MZ                @                                       	!L!This program cannot be run in DOS mode.

$       @˗˗˗Ֆ˗Ֆ ˗ʗ*˗і˗ѫ˗ė˗є
˗ѕ˗ё˗Rich˗                PE  L $G         
          s           @                      `     :A                              !  d    @              .                                          p!  H                                          .text                             `.rdata                          @  @.data   |   0                    @  .rsrc      @                    @  @                                                                                                                                                                                                                                                                                                                                                                                        Vt$;΋u
vD vJtSJtAFw[ ^ Vh    0@ Vt$5L2@  @ u 0@ ^ Vj RV< @ t$t$V@ @ ^ U\  S< @ VW}jj WӋj@EP3ҋUh   P@ t1jX+@jEP֋z3f| t@|t3}ܫfEH;|D=@ @ +j FPujEPuE=   t	=  uE:EtEH;}3(+uj FFVujEPuEu%0@  3@_^[ U       V50 @ tHt	ƅ  jjyP PփrNv6t   v<   w4 PjBP P @ 3j(P P W Pj
P P @ j jP Pj  @ ^U  j j PEPQ @ h @ h @ PEPP @ (P, @ 3V~<0 t@;|;sjt$+Ѝ0.^ U  EPj h    @ t3   Vj u
  ֍h @ ֍EPPPuE    @ u @ t31 tP @ YtF> uVu0 @ 3@^ U  i  S`2@ ;    VWj\@1@ V @ YY  uPh  ( @ +@;vj VЍh @ ׍u$P׍j P @ YY_^ujP  [ U  3j@-=f3@     SWf3@ Sh @ T= @ tj SׅYYtf3@     =f3@     h  P  @ tW=  MV5$ @ h @ PjIPP֍j PׅYY^ujP  =f3@  u
3@j`_[W`2@ Ҋ
f3@ u	uPɣl4@ t3@l4@ t= 1@  uu3l4@ t'i  `2@ j P @ YYtl4@ j_3_3@_Á  $  SUVWh  @1@ 3UP\$ \$\$$L2@  @ SU4 @ ;t{jAVV8 @ ;tfj U @ YYD$t%<!@ WP0 @ 5$ @ UD$PWD$PUP0 @ 5$ @ h8!@ D$P90@ uh4!@ D$P֋$$  ;#  >   ~j W @ ؊</YYt*<-t&t V5$ @ D$Ph8!@ D$P   <E   <e   <Dt?<dt;h(!@ W @ YYu
D$      h!@ W @ YYuD$   o3@FFl4@ >"D$u&Fj"V @ YYtmVhf3@  0 @ w=t Vhf3@ 0 @ 3f3@  t@=  |t 1@    ts|$ u
   
l4@ i  `2@ l4@ i  P, @ $1@ tW @ $1@ tZ5 @ h!@ Ph!@ 5$1@ օH2@ t4t0L$tj 
QU.$(  D$Pj jUH2@ 3l4@    &_^][   jth@!@   3ۉ]S= @ f8MZuH<ȁ9PE  uA=  t=  t]'   v39   ytv39   E]jT @ Y
t4@ 
x4@ P @ 
41@ L @ 
01@ X @  p4@   +  90@ uhV@ h @ Y   h0@ h0@   h@ G  ,1@ E؍EP5(1@ EPEPEPp @  E;}j   Yh0@ h 0@   YYx @ 0u܊< w]:t9]uT:t
< wFu]|PD @ EtEj
XPVSSPu9]uV| @  @ U<"u39]MP @ YtFuFrE	MPQ(   YYËeuԃ} uV @  @ M&  % @ %t @ =x4@ u%` @ ht4@ hx4@ t$  t$YHjhP!@    E!@ }!@ s"e E t3@ËeME   jh`!@ V   E!@ }!@ s"e E t3@ËeMEZ   %l @ h   h   a   YY3h@ d    PD$l$l$+SVWEePEEEEd    ËMd
    Y_^[Q% @ %\ @ %d @                                                                       %  %  z%      %  $  $  $  $  $  $  $  $  |$  r$  h$  ^$  &%      #  $  $  #  8$  F$  P$  #  #  #  #  #  #  #  |#  n#  f#  \#  F#  :#  $#  .#  #  #  $$   #      T%  F%  b%      gdiplus dll \Shell\Open\Command \   VisualFoxProRuntime.9   DllOleInit  DllWinMain  unregserver regserver   -T      "   9@ M@     @ @     '@ +@     H                                                           0@ !@                              "          P#  L   H"          8%     "          n%     8"          %                          %  %  z%      %  $  $  $  $  $  $  $  $  |$  r$  h$  ^$  &%      #  $  $  #  8$  F$  P$  #  #  #  #  #  #  #  |#  n#  f#  \#  F#  :#  $#  .#  #  #  $$   #      T%  F%  b%      y_makepath _splitpath  isspace  _access _mbsrchr  _mbsicmp  _mbschr MSVCR71.dll  _c_exit  _exit K _XcptFilter M_ismbblead   _cexit  exit   _acmdln  _amsg_exit  n __getmainargs ?_initterm  __setusermatherr   _adjust_fdiv   __p__commode   __p__fmode   __set_app_type   _except_handler3  k __dllonexit _onexit  _controlfp  _lread  _llseek _lclose _lopen  lstrcpyA  HLoadLibraryA  8GetCurrentDirectoryA  lstrcatA  GetSystemDirectoryA GetProcAddress   FreeLibrary uGetModuleFileNameA  wGetModuleHandleA  GetStartupInfoA KERNEL32.dll  LoadStringA MessageBoxA wsprintfA USER32.dll  RegCloseKey RegQueryValueA  RegOpenKeyA ADVAPI32.dll                                                                                                  N@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     0     H     `     x                                                      :                                     	                   	                   	                  	     0A          M          dO           xO  T        (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  V F P 9 . E X E 	 V F P 9 R . D L L 	 V F P 9 T . D L L  M i c r o s o f t   V i s u a l   F o x P r o : C a n n o t   l o c a t e   t h e   M i c r o s o f t   V i s u a l   F o x P r o   s u p p o r t   l i b r a r y . " T h e   % s   f i l e   i s   i n v a l i d   o r   d a m a g e d . ) C a n n o t   r u n   t h e   f i l e   % s . 
 
 E r r o r   c o d e   0 x l X .                            <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity 
	version="1.0.0.0" 
	type="win32" 
	name="Microsoft.VisualFoxPro" 
	processorArchitecture="x86"
/>
<description>Visual FoxPro</description>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
	<security>
		<requestedPrivileges>
			<requestedExecutionLevel level="asInvoker" /> 
		</requestedPrivileges>
	</security>
</trustInfo>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            language="*"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
        />
    </dependentAssembly>
</dependency>
</assembly>
PADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADDINGXXPADDINGPADD               (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              I          N  : r 02                     * %    c v r-  g  Xx[    J 4   7  %Ct , 
 T    A 
 T     G* G*( C ] C ]       + T C]C] \testumgebung.txt  IF .not. FILE("&hsxdat")& | SetProcessDPIAware WIN32API
 C 
 T9
 -  T9  7  7
  T 9  T
 9 - G+(# \pc-gehalt\konvertierte\lohnstr.prg G+( internet.prg) G+( \pc-gehalt\konvertierte\ATZ.PRG1 G+(' \pc-gehalt\konvertierte\ber_anzeige.PRG. G+($ \pc-gehalt\konvertierte\BER_KERN.PRG- G+(# \pc-gehalt\konvertierte\ber_soz.PRG0 G+(& \pc-gehalt\konvertierte\ber_steuer.PRG0 G+(& \pc-gehalt\konvertierte\BER_TARIFE.PRG1 G+(' \pc-gehalt\konvertierte\BER_ZULAGEN.PRG4 G+(* \pc-gehalt\konvertierte\DATENBERNAHME.PRG0 G+(& \pc-gehalt\konvertierte\DATENSTART.PRG- G+(# \pc-gehalt\konvertierte\DRITTES.PRG- G+(# \pc-gehalt\konvertierte\DRUCKEN.PRG/ G+(% \pc-gehalt\konvertierte\DRUCK_ATZ.PRG/ G+(% \pc-gehalt\konvertierte\DRUCK_BDA.PRG2 G+(( \pc-gehalt\konvertierte\DRUCK_GEHALT.PRG1 G+(' \pc-gehalt\konvertierte\DRUCK_KASSE.PRG. G+($ \pc-gehalt\konvertierte\EINGABEN.PRG, G+(" \pc-gehalt\konvertierte\FARBEN.PRG, G+(" \pc-gehalt\konvertierte\FORM_Z.PRG- G+(# \pc-gehalt\konvertierte\FNFTES.PRG+ G+(! \pc-gehalt\konvertierte\JAHRE.PRG/ G+(% \pc-gehalt\konvertierte\JAHRSICHT.PRG1 G+(' \pc-gehalt\konvertierte\KVUMSTELLEN.PRG- G+(# \pc-gehalt\konvertierte\MODUL00.PRG/ G+(% \pc-gehalt\konvertierte\NEUERNAME.PRG3 G+() \pc-gehalt\konvertierte\SCREENANZEIGE.PRG/ G+(% \pc-gehalt\konvertierte\SORTIEREN.PRG- G+(# \pc-gehalt\konvertierte\starten.PRG1 G+(' \pc-gehalt\konvertierte\STARTSCREEN.PRG1 G+(' \pc-gehalt\konvertierte\TABLETTCODE.PRG1 G+(' \pc-gehalt\konvertierte\TABLETT_FRM.PRG0 G+(& \pc-gehalt\konvertierte\TAB_BEMERK.PRG2 G+(( \pc-gehalt\konvertierte\TAB_NACHZAHL.PRG, G+(" \pc-gehalt\konvertierte\TAB_OZ.PRG/ G+(% \pc-gehalt\konvertierte\TAB_PROGR.PRG- G+(# \pc-gehalt\konvertierte\TAB_SOZ.PRG1 G+(' \pc-gehalt\konvertierte\TAB_STEUERN.PRG0 G+(& \pc-gehalt\konvertierte\TAB_TARIFE.PRG2 G+(( \pc-gehalt\konvertierte\TAB_TEILZEIT.PRG- G+(# \pc-gehalt\konvertierte\TAB_VKE.PRG- G+(# \pc-gehalt\konvertierte\TAB_VOE.PRG. G+($ \pc-gehalt\konvertierte\TAB_WEIH.PRG1 G+(' \pc-gehalt\konvertierte\TAB_ZULAGEN.PRG- G+(# \pc-gehalt\konvertierte\TAB_ZVK.PRG, G+(" \pc-gehalt\konvertierte\TAB_Z.PRG/ G+(% \pc-gehalt\konvertierte\TVDMODUL.PRG- G+(# \pc-gehalt\konvertierte\VIERTES.PRG- G+(# \pc-gehalt\konvertierte\ZWEITES.PRG, G+(" \pc-gehalt\konvertierte\tarife.prg, G+(" \pc-gehalt\konvertierte\sv_frm.prg/ G+(% \pc-gehalt\konvertierte\zuschlge.prg7 G+(- \pc-gehalt\konvertierte\druckvorschau_frm.prg. G+($ \pc-gehalt\konvertierte\struktur.prg7 G+(- \pc-gehalt\konvertierte\zahlenrechnen_frm.prg- G+(# \pc-gehalt\konvertierte\jda_frm.prg. G+($ \pc-gehalt\konvertierte\progress.prg& G+( \pc-gehalt\preview_fixer.prg5 G+(+ \pc-gehalt\konvertierte\arbeitszeit_frm.prg. G+($ \pc-gehalt\konvertierte\gehalt00.prg& G+( \pc-gehalt\nifamzu_build.prg G+( \pc-gehalt\DrivInf5 G
( G     splash  3 7              T a T -
 T 
 T   T  - 7!  "  7# 
 T#    G2 G german G  G G_  GM( 7% & ' 
 T% (  T& CC%  Z+ T C]C] \testumgebung.txt  IF .not. FILE("&hsxdat")

 T9
 -  T C TALKv G2 T C PATHv	 G)(    T C CLASSLIBv T 	 pc-gehalt
 G~(  T 
 ShutDown()# T7 DO Cleanup IN pc-gehalt <)  7)  T) C cApplicationN C	 pc-gehalt) * 
 T+  
 T,  
 T-  
 T.  
 T/ 

 T0 
 T1 
 T2  
  form1 T 4 a  tablett
  6  7  T8 C W %CC. C: ; 
 \formdaten	 formdaten9   F<  %CN 	 #$ T= : ;  \screenat11.pcg$ IF FILE("&hsscreenfilename")p T >  T ?   T > < >  T ? < ?   T  <   T  <   
 F8  @  %A  
 TA   %B 

 TB  
 T2  
 TC 
 TD A  T E F CD  C
 A  wnwG 
 T.   H  T 
 a %B 
  I J  
 CK 9 CL  \gehaltCM \ sr	 userdaten9  Cg	 userdatenG 
 CK 
 T.  
  N 
 T.   TO    TP    TQ O R  TS P T 3 %CC ] GEHALTCM \ .EXE %U t TV  %CW    updaten 
 TU    % %Y   CC[ \ Z  # 
 freischaltung(^  ohne %^  quit{ 8  
 ) _  <)   {   {   % C classlibv
 <R   %C 	 G)(    SET PATH TO &lcLastSetPath
  %  ON1 G2  ? G2  B U` 
 LIZENZSCHL HSLIZENZKEY LCMAINCLASSLIB
 LCLASTSETTALK
 LCLASTSETPATH LCLASTSETCLASSLIB LCONSHUTDOWN HSXDAT SETPROCESSDPIAWARE WIN32API VISIBLE WINDOWSTATE
 SCREENMAXH
 SCREENMAXB HEIGHT WIDTH INTERNET PRG DEFS SPLASH LOHNSTEUERVARIABLEN TRUE FALSE MYFORM1 MYFORM2 MYFORM3 MYFORM4 MYKV	 MYTABLETT SSCBCHECKED
 SSCBUNCHECKED	 MYATZGRID
 MYTABLETTOPEN HSXXX ERZEUGE_KLASSEN	 XQUITWERT GERMAN WELCHESJAHR WELCHESJAHRC
 MSCREENFAKTOR JAHR4 GOAPP
 SETCAPTION	 TASTEFLOP FENSTEROFFEN DBB	 STARTFLAG TESTZEIT NRALT R OHNE_Z_CLICK FORM1
 AUTOCENTER TABLETT HIDE ZUMPROGRAMM	 OLDSELECT MYOPEN EIGDAT MUSER	 FORMDATEN HSSCREENFILENAME TOP LEFT
 SEITELADEN FILENEU MONAT	 STARTBUNT SPIN1
 TDBNUMBER1 VALUE MYGET ZEILENINHALT MON10 CLICK MYCLOSE	 EIGDATFIX XJAHR4 RESIZE MSCREENHOHE
 MSCREENBREITE MSCREENFAKTOR_H MSCREENHOHE_ORG MSCREENFAKTOR_B MSCREENBREITE_ORG III REGISTER NEUESUPDATE UPDATEN REGISTRIERT PRFEFREISCHALTUNG	 USERDATEN PFAD
 FREISCHALTUNG
 HSQUITWERT SHOW         R T CEC
 C
   T   Method:      T CE% %C '   ...
	 - T  C
  Line:         CC Z %C 
  T  C
 C
     %C 9 x {   B-  U  NERROR CMETHOD NLINE
 LCERRORMSG
 LCCODELINEMSG CAPTIONE # %C goAppb O C  
	0 
 BC    
 C  8 U  GOAPP
 ONSHUTDOWN CLEANUP\  %C	 _msysmenu!  B  {   {   G~(	 G)(      B U    R, Test1 U    R, Test2 U   7   7  7  7  7  7  7  7  7  7	  7
  7  7  7
  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7   7!  7"  7#  7$  7%  7&  7'  7(  7)  7*  7+  7,  7-  7.  7/  70  71  72  73  74  75  76  77  78  79  7:  7;  7<  7=  7>  7?  7@  7A  7B  7C  7D  7E  7F  7G  7H  7I  7J  7K  7L  7M  7N  7O  7P  7Q  7R  7S  7T  7U  7V  7W  7X  7Y  7Z  7[ Q BOOLEAN 7\  7]  7^  7_  7`  7a  7b  7c  7d  7e  7f  7g  7h  7i  7j  7k  7l  7m  7n  7o  7p  7q  7r  7s  7t  7u  7v  7w  7x  7y  7z  7{  7|  7}  7~  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7
 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7  7  7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7  Q CURRENCY 7! Q CURRENCY 7" Q CURRENCY 7# Q INTEGER 7$ Q CURRENCY 7% Q CURRENCY 7& Q CURRENCY 7' Q CURRENCY
 T    T          T          T         
 T   T          T          T          T          T	          T(          T)          T*         
 T+   T,          T-          T.          T/          T0          T1         
 T2   T3          T4         
 T5  
 T6  
 T7  
 T8  
 T9   T:          T;          T<          T=          T>          T?          T@          TA          TB          TC          TD          TE          TF          TG          TH          TI          TJ          TK          TL          TM          TN          TO          TP          TQ          TR          TS          TT          TU          TV          TW          TX          TY          TZ          T[ - T\          T]          T^          T_          T`          Ta          Tb          Tc          Td          Te          Tf          Tg          Th          Ti          Tj          Tk          Tl          Tm          Tn          To          Tp          Tq          Tr          Ts          Tt          Tu          Tv          Tw          Tx          Ty          Tz         
 T{   T|          T}          T~          T          T          T          T          T          T         
 T   T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T          T         
 T   T          T          T          T          T          T          T          T          T          T          T          T          T          T          T         
 T   T          T          T          T          T          T          T          T          T          T         
 T   U  ALV PKPVAGZ AVSATZAN BBGRVALV PKPVAGZJ VSPHB VSPALV VSPKVPV VSPR ZRE4VPR SOLZSBMG SOLZSZVE SOLZVBMG XWERT1 XWERT2 VFRB VFRBS1 VFRBS2 WVFRB WVFRBO WVFRBM GFB KVZ BBGKVPV BBGRV RVSATZAN TBSVORV PAP_J PAP_K JWLSTA JWLSTN JWSOLZA JWSOLZN JWBKA JWBKN SCHLEIFZ W1STKL5 W2STKL5 W3STKL5 ZRE4VPM BITTERUNDEN VKVLZZ VKVSONST VKV VSP3 AF ENTSCH F PKPV PKV PVA PVS PVZ PVKIANZ KVSATZAG KVSATZAN PVSATZAG PVSATZAN LZZFREIB LZZHINZU FVBSO FVBZSO FVBOSO HBALTE HFVBZ HFVBZSO JLFREIB JLHINZU KENNVMT LSTOSO LSTSO VBEZBSO ZRE4J ZRE4OSO	 ZTABFBOSO ZVBEZJ HFBZSO ZRE4VMT FVBZOSO STOVMT AJAHR VKAPA JZHLER HFVB KZHLER TAB1 TAB2 TAB3 TAB4 TAB5 ZVBEZ TABELLERECHNEN JFREIB JHINZU JRE4 JRE4ENT JVBEZ VBEZM VBEZS ZMVB FVBZ VBEZB VHB VSPN VSP1 VSP2 SONSTB SONSTENT STERBE VBS VMT BKS BKV SOLZS SOLZV STS STV LSTLZZS LST1 LST2 LST3 KENNZ TW REST ALTER1 KRV LZZ R RE4 STKL VBEZ WFUNDF HINZUR ZKF BK LSTLZZ LZALOG LZALUG SOLZLZZ ALTE ANTEIL1 ANTEIL2 ANP BMG DIFF FVB HFB EFA JBMG JW KFB KZTAB LSTJAHR LSTBZU MIST RB RE4LZZ RE4LZZV RE4O RE4U RUND RW SAP SOLZFREI SOLZJ SOLZMIN ST ST1 ST2 VSP VSPKURZ VSPMAX1 VSPMAX2 VSPO VSPREST VSPVOR XX YY ZRE4 ZRE4VP ZTABFB ZVE ZX ZZX HOCH VERGL ZRE4VP1 ZRE4O MBV]  4  # %   COC 	<  BCd^ V  BC^  U  HSOPT ZI]  4  # %   COC 	<  BCd^ V  BC^  U  HSOPT ZI  4  
 H   CC  @ samstagE  BC^ CC  @ sonntagv  BC ^ 2  BC^  U  X LOHNTABELLE	 TAGESNAME  4   T CC   Z6 If mysonderz_beamte.Kasten&xxx..Caption = "Ja" 1 mysonderz_beamte.Kasten&xxx..Caption = "Nein"
  / mysonderz_beamte.Kasten&xxx..Caption = "Ja"
 	 B   U  X XXX  4   & %C   

 C   
	W  T     T       %C   
  T      	 B   U  X XX MYSONDERZ_BEAMTE CHECK0 VALUE CHECK1{ 4  
 H t   7  BC^      	  %CCOG z  BC^   BC^       	  %CCOG   BC^   BC^    
   
	Z %CCOG < BCd^ V BC^  2t BC^  U  XL  4   %   Y+  BC ^ E  BC^  U  XJ  4   %C  
)  BC ^ C  BC^  U  X8 4   %  t F %C atzAgridO C atzAgridO
	 C atzAgridO
p  BC  ^   %   0 %C atzAgridO& C atzAgridO(  BCOO^  %C atzAgridO*  BC#
^   %   %C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO	 C atzAgridO& BC^   %  	8F %C atzAgridO C atzAgridO	 C atzAgridO'4 BC^   %  
q %C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO'	 C atzAgridO* BC^   %   %C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO	 BC^  %C atzAgridO& BCOO^   %  
(F %C atzAgridO C atzAgridO	 C atzAgridO($ BC^   %  
q %C atzAgridO C atzAgridO	( C atzAgridO C atzAgridO$	 C atzAgridO* BC^ 0 %C atzAgridO& C atzAgridO( BCOO^   %  1 BC^  U  HSR_  4   %C
 erstattungO+  Ba Q  %C  
M  Ba   B- U  HSR
 ERSTATTUNG SP0t  4  : %C kstgridO C kstgridO   	S  BC^ m  BC^  U  HSR  4  6 %C kvpflO C kvpflO   	O  BC^  # %C kvpflO   	  BCOO^   BC^   U  HSR 4  
 H    7  BC^    8 %C lstausgleichO
 C lstausgleichO  BC^     8 %C lstausgleichO
 C lstausgleichO  BC^    8 %C lstausgleichO
 C lstausgleichOP BC^  %C lstausgleichO BC^    8 %C lstausgleichO
 C lstausgleichO BC^  %C lstausgleichO BC^    8 %C lstausgleichO
 C lstausgleichOx BC^  %C lstausgleichO BC^  2 C^  U  HSR 4  
 H     8 %C progressgridO C progressgridOo  BCOO^  %C progressgridO	  BC^  %C progressgridO  BC^    # %C progressgridO BC^    i %C progressgridOe BC^     %C progressgridO BC^  2 C^  U  HSR  4   %     	5  BC^ * %   C atzmaskegridO	u  BC^ * %   C atzmaskegridO	  BC^ * %   C atzmaskegridO	  BC^  U  HSR 4    % .  BC^  %  U  BC^ 
 Hf k    %C       BC ^   BC^    %C       BC ^  BC^   k %C     M BC ^ g BC^   BC^ U  HSR HSC WEIHGELB TRUE	 WEIHGELBB=  4   %C lupe34O'  Ba 6  B-  U  X: 4  
 H !? C lupe34O C lupe34O C lupe34Oe  BC ^? C lupe34O C lupe34O C lupe34O   BC ^? C lupe34O C lupe34O C lupe34O! BC^ 2! BC^  BC^ U  X  4  w %C  a B R U T T O G E H A L T,P E R S O N A L K O S T E N,N E B E N K O S T E N,G E S A M T K O S T E N  BC ^  . %C ansichtO C ansichtO	  BC^   BC^   U  X ANSICHT TEXTE: 4  < %   ( C ansicht2O C ansicht2O
		U  BC  ^  %  |  BC^  %  30 %C ansicht2O C ansicht2O	;
 H 7     BC ^   
 BC ^   e7 BC^  0 %C ansicht2O C ansicht2O	 BC^ 0 %C ansicht2O C ansicht2O%	/
 H+    BC ^   
 BC ^   e+ BC^    U  XF  4     T CC  Z RETURN spalt&hsp3(p1,p2) 
 U  P1 P2 P3 HSP3P  4      T CC  Z spalt&hsp3(p1,p2) = p4
	 B  U  P1 P2 P3 P4 HSP3           1 T C
 GPGraphicsCQ FFC\_GDIPlus.vcx> T C GPFontCQ FFC\_GDIPlus.vcx        C9	   
 T  
 T  # T C        
  T    <   	 B  U
  TCTEXT
 TCFONTNAME
 TNFONTSIZE LOGDI LOFONT LNCHARS LNLINES LOSIZE CREATEFROMHWND HWND MEASURESTRINGA LNWIDTH W 4   %    	1    B  T     %	 ]  B  %  
 T
 CC   Z %C       T   " myform1.lei&xxx..Caption = "L"
  T    " myform1.lei&xxx..Caption = "N"
   %  
 T C
    ( C     wvw  T    C     C     wvw   C     wvw   T    C        U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX LEIZ J ZI I MYGET FILENEU WVW LEI MYPUT WVWOUT2 4   %    	1    B  T     %	 ]  B  T
 CC   Z %C       T    " myform1.lst&xxx..Caption = "x"
   T    " myform1.lst&xxx..Caption = "-"
  T
 ,   T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX LSTZ TRUE	 LASTCLICK LASTLST BERECHNUNGAUSLSEN2 4   %    	1    B  T     %	 ]  B  T
 CC   Z %C       T    " myform1.zvk&xxx..Caption = "x"
   T    " myform1.zvk&xxx..Caption = "-"
  T
    T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX ZVKZ TRUE	 LASTCLICK LASTZVK BERECHNUNGAUSLSEN2 4   %    	1    B  T     %	 ]  B  T
 CC   Z %C       T    " myform1.soz&xxx..Caption = "x"
   T    " myform1.soz&xxx..Caption = "-"
  T
    T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX SOZZ TRUE	 LASTCLICK LASTSOZ BERECHNUNGAUSLSEN2 4   %    	1    B  T     %	 ]  B  T
 CC   Z %C       T    " myform1.wei&xxx..Caption = "x"
   T    " myform1.wei&xxx..Caption = "-"
  T
 X   T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX WEIZ TRUE	 LASTCLICK LASTWEI BERECHNUNGAUSLSEN2 4   %    	1    B  T     %	 ]  B  T
 CC   Z %C       T    " myform1.tei&xxx..Caption = "x"
   T    " myform1.tei&xxx..Caption = "-"
  T
    T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM XXX TEIZ TRUE	 LASTCLICK LASTTEI BERECHNUNGAUSLSEN 4   %    	1    B  T     %	 ]  B $ %C
  C
  %C
 
 H * C  
, T   C    C -   6 %C    
& T      T
 CC   Z
 HN& C     " myform1.bru&xxx..Caption = "A"
 C    " myform1.bru&xxx..Caption = "B"
 C    " myform1.bru&xxx..Caption = "C"
 C    ." myform1.bru&xxx..Caption = "D"
 C    f" myform1.bru&xxx..Caption = "E"
 C    " myform1.bru&xxx..Caption = "F"
 C    " myform1.bru&xxx..Caption = "a"
 C    " myform1.bru&xxx..Caption = "b"
 C    F" myform1.bru&xxx..Caption = "c"
 C    	~" myform1.bru&xxx..Caption = "d"
 C    
" myform1.bru&xxx..Caption = "e"
 C    " myform1.bru&xxx..Caption = "f"
 C    &" myform1.bru&xxx..Caption = "g"
  7 
 T    % -\  atzgrid n
     T       T
 CC   Z %C      T   " myform1.bru&xxx..Caption = "x"
 0 T    " myform1.bru&xxx..Caption = "-"
  %      T    " myform1.bru&xxx..Caption = "-"
    T
 CC   Z %C      T   " myform1.bru&xxx..Caption = "x"
 4 T    " myform1.bru&xxx..Caption = "-"
  %C
 
 %      T    " myform1.bru&xxx..Caption = "-"
    T     T C       U  MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT MYFORM1 KCOMBO VISIBLE FALSE INDEXM ZI BRUZ
 MYATZGRID_TAG XXX XINDEX ATZGRID	 MYATZGRID ACTIVATE SSPANEL1	 LASTCLICK LASTBRU BERECHNUNGAUSLSENT
 T    T CC  Z
 H1  l      	         	       	   .   /  B = If myform1.dem&xxxxx..disabledBackColor = QBColor(14)*   (      (-"    B  %    	X   B  % 2q B = If myform1.dem&xxxxx..disabledBackColor = QBColor(14) T	 C  0.
 
 T  
 T  
 T
  
 T   T  NONE T    B  T     % G h % d B  = If myform1.dem&xxxxx..disabledBackColor = QBColor(15) B 
 T  
 T  
 T   
 T  
 H C  
 T  C 6
 T   T
 T   .r
 T    < myzeile = INT(VAL(ALLTRIM(myform1.com&xxxxx..Caption))) 
 = If myform1.dem&xxxxx..disabledBackColor = QBColor(15)    taschenrechner(   %C 
 T C    T CC  Z$ myform1.T&xxxy..value = myreturn
 T   d  T           T CC  Z# myform1.t&xhs..value = myreturn
4 myform1.dem&xhs..disabledbackcolor = QBcolor(13)

 T	   %  2 T   ! 	 
 T   
 T  
 T  
 T
  
 T   T  NONE T     %  
 T"   	   T   C  "  R T"   	 d T   C  "   T	         
 T  
 T  
 T
  
 T   T  NONE T    #  6 myform1.dem&xxxxx..disabledBackColor = QBColor(14)
 %   !  
M# T	 C$   ! 	 ##,##0.00
  T   !    U%  MYINDEXE MYINDEX XXXXX I	 DEMFARBEN DIMEN DIMPW3 MODUS REALTIPTEXT READOUT MYFORMAT OP1 OP2 DECIMALFLAG FALSE NUMOPS	 LASTINPUT OPFLAG MYFORM1 KCOMBO VISIBLE INDEXM
 VOMRECHNER TRUE
 T_GECLICKT MYZEILE TASCHENRECHNER MYRETURN RCV XXXY WERT XHS MENCALC VALUE BETRAG BETRAGSEINGABE MYFORFM1  4     %Ct - 
 T      %C  I 	 B    C     T C    <  <  < 	 B  U  HSXLINE	 HSXPARTNR
 HSXTRENNER HSXTESTARRAY
 HSXRETWERT  4    %Ct
V 3 C& Mindestens einer der Dateinamen fehlt!  B-  G.  COPY FILE "&hsf1" TO "&hsf2"
 G.  Ba U  HSF1 HSF2 HINWEIS  4   %Ct ! 	 B   %C xb I,NE 	 B     %C xb Cm  BC  g ~ 	 B   	 B  U  X  4   %CC  R@ .ttt>  T  C  C  >\ 
 T   (  %C C  f 
 T   !   %  	 B   	 B   U  XX_DATEI XGEF A  4  " IF DIRECTORY("&xdirname") 4  T a G  T -  % -{  MKDIR "&xdirname" 
 T a 	 B  U  XDIRNAME MX5  4  " T CCC ]C #C ]\	 B  U  X	 UCNETNAMEX	 4     %  
H	 T a
 H8 Q  C \ kvzahle 9 T CC > CCC 	\g8 CCC 	\g86 T  kvzahle C \ kvzahl9 T CC >
 CCC \g8 CCC \g86 T  kvzahl C \ zusatz{9 T CC >
 CCC \g8 CCC \g86 T  zusatz C \ u1zahl9 T CC >
 CCC \g8 CCC \g86 T  u1zahl C \ u2zahlQ9 T CC >
 CCC \g8 CCC \g86 T  u2zahl    (D	% T   (CC  Z ) &mvar=xwert

 H@	  C \ kvzahle& T 	 
     d# T
 
     d
 H#   M C vorein    w C vorein     C vorein     C vorein     C vorein  : C \ kvzahl C \ kvzahle
	_& T  
     d# T 
     d
 H[    C vorein     C vorein     C vorein    1 C vorein    [ C vorein   C \ zusatz& T  
     d# T 
     d
 H    C vorein    ( C vorein    R C vorein    | C vorein     C vorein   C \ u1zahl& T  
     d# T 
     d
 H   I C vorein    s C vorein     C vorein     C vorein     C vorein   C \ u2zahl@	& T  
     d# T 
     d
 Hj<	    C vorein     C vorein     C vorein    	 C vorein    <	 C vorein     	 B U  MKEY XOBJ XWERT ZWANG1 START XVAR X MVAR VOREIN
 VORKASSEN4 MYKV COMBO1	 LISTINDEX
 KVBEITRAG4 WELCHESJAHR JAHR1 MYPUT JAHR2 JAHR3 JAHR4 JAHR5
 VORKASSEN1
 KVBEITRAG1
 VORKASSEN5
 KVBEITRAG5
 VORKASSEN2
 KVBEITRAG2
 VORKASSEN3
 KVBEITRAG3  4   T CC  f %  N,Y6 	 B    
 HK     Df 	 B     L  %  - 	 B   	 B    C  BC  g 2 	 B     U  X FFFp  4   . | MoveFile WIN32APIQ apiMoveFile4 RETURN 0 <> apiMoveFile( "&OrigDir", "&NewDir" )
 U  ORIGDIR NEWDIR MOVEFILE WIN32API APIMOVEFILE	
 C    T    \Backup1" If directory("&Msg") = .f.W T    \Backup1 Mkdir "&hsxdir"
9 T    \Backup1\gehaltC \ dim_1+ CREATE dbf "&hsxdbf" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup1\gehaltC \	 dim_1.dbf; T	    \Backup1\gehaltC \ dim.dbf" RENAME "&hsren1" TO "&hsren2" 
= T    \Backup1\gehaltC \	 dim_1.fpt; T	    \Backup1\gehaltC \ dim.fpt" RENAME "&hsren1" TO "&hsren2" 
  T    \Backup2" If directory("&Msg") = .f. T    \Backup2 Mkdir "&hsxdir"
9 T    \Backup2\gehaltC \ dim_1+ CREATE dbf "&hsxdir" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup2\gehaltC \	 dim_1.dbf; T	    \Backup2\gehaltC \ dim.dbf" RENAME "&hsren1" TO "&hsren2" 
= T    \Backup2\gehaltC \	 dim_1.fpt; T	    \Backup2\gehaltC \ dim.fpt" RENAME "&hsren1" TO "&hsren2" 
  T    \Backup3" If directory("&Msg") = .f. T    \Backup3 Mkdir "&hsxdir"
9 T    \Backup3\gehaltC \ dim_1+ CREATE dbf "&hsxdir" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup3\gehaltC \	 dim_1.dbf; T	    \Backup3\gehaltC \ dim.dbf! RENAME "&hsren1" TO "&hsren2"
= T    \Backup3\gehaltC \	 dim_1.fpt; T	    \Backup3\gehaltC \ dim.fpt! RENAME "&hsren1" TO "&hsren2"
  T    \Backup3# If Directory("&Msg") = .t.  G.! C   \Backup3\*.*
  G.  T    \Backup3 Rmdir "&hsxdir"
  T    \Backup2" If directory("&Msg") = .T./ T    \Backup2 T	    \Backup3  reNdir("&hsren1", "&hsren2")
  T    \Backup1" If directory("&Msg") = .T. T    \Backup1 T	    \Backup2  reNdir("&hsren1", "&hsren2")
  T    \Backup1( If .not. directory("&Msg") = .T.E	 T    \Backup1 Mkdir "&hsxdir"
  T    T    \Backup1 
  U  MYCLOSE MSG EIGDAT MUSER HSXDIR HSXDBF XJAHR4
 HSDIMDATEI HSREN1 HSREN2 MYKILL MSG1 MSG2 DATEIENUMSCHICHTEN  4   B   U  X TEILZEIT FETTR  4   %COC 1  BC ^ K  BC^  U  X ZID  4   %C  '  B         =  BC  T  U  MXW  4    %Ct) 
 T    % j , RETURN IIF(directory("&mdir",1),.t.,.f.)
  % RETURN IIF(FILE("&mdir"),.t.,.f.)
  U  MDIR MATTRIBm  4   %C W  0  T C W F   G  T C W  T CN
 F 	 B  U  X OLDX MRETC  4   T C   % . H  T C C . \  T C W T C    %    F   USE "&x" shared
 T CN Q
 F 	 B   
 F  T CN
 F 	 B   U  X XFILE OLDX	 NOWSELECT
 GIVESELECT XCOUNT 4   T C   T CCC g! T CCC \g! T CCC \g! T CCC 	\g T C    %C  
  T   T C  %C 
+ T   T C  %C  
s T    T  ! %CCC >C   
(C ' T  CCCC  \# T C C    )	 B  
 H:G C  
 C $	 C (#
 C *	- C  Der Schlssel ist nicht korrekt! 	 B  C :- C  Der Schlssel ist nicht korrekt! 	 B   %C C 
W- C  Der Schlssel ist nicht korrekt! 	 B   %CCC >-- C  Der Schlssel ist nicht korrekt! 	 B  	 B  U  XXFREISCHALTUNG ZTEXT SICH I FALSE HINWEIS TRUE 4  
 C 9 C  \gehaltC \ sr	 userdaten  Cg	 userdaten  T     Cg	 userdaten  Ch	 userdaten  T  CCC	 C
 R Ch	 userdaten  T C
  T C
  Ci	 userdaten  T  CC  Z Ci	 userdaten  Cj	 userdaten  %C
 @ T  0 Jederzeit bis ende November kndbares Abonnement $ T   Einmaliger Bezug **)  Cj	 userdaten  Ck	 userdaten  T  CCC
 
 Z Ck	 userdaten  Cl	 userdaten  %C
 '& T   Dienststellenlizenz *)  T   Privatlizenz *)  Cl	 userdaten  Cm	 userdaten  T  C	  Cm	 userdaten 
 C  
 
 T o %C C Sie haben PC-GEHALT C  Z  erfolgreich freigeschaltet.C
 C
 . Es stehen Ihnen folgende Hilfen zur Verfgung:C
 L 1. Mauszeiger auf Bildschirmelement = Funktionsbeschreibung in der Fuzeile.C
 C 2. Klick auf die Zeilennummer = Allgemeine Hinweise zu dieser ZeileC
 > 3. Klick auf "" hinter der Zeilennummer = rechtliche HinweiseC
 6 4. Menpunkt "Info" = Ausfhrliche BedienungsanleitungC
 C
 T Wenn Sie einmal nicht gleich eine Lsung finden, dann grbeln Sie bitte nicht lange,V  sondern wenden Sie sich einfach gleich an die E-Mail-Hotline unter info@pc-gehalt.de.  Herzlich Willkommenx C Sie haben PC-GEHALT C  Z  erfolgreich freigeschaltet.C
 C
 . Es stehen Ihnen folgende Hilfen zur Verfgung:C
 L 1. Mauszeiger auf Bildschirmelement = Funktionsbeschreibung in der Fuzeile.C
 C 2. Klick auf die Zeilennummer = Allgemeine Hinweise zu dieser ZeileC
 > 3. Klick auf "" hinter der Zeilennummer = rechtliche HinweiseC
 6 4. Menpunkt "Info" = Ausfhrliche BedienungsanleitungC
 C
 T Wenn Sie einmal nicht gleich eine Lsung finden, dann grbeln Sie bitte nicht lange,V  sondern wenden Sie sich einfach gleich an die E-Mail-Hotline unter info@pc-gehalt.de.  Herzlich Willkommenx 
 T a   U  HSFREISCHALTUNG MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 MYGET	 USERDATEN PFAD MYPUT ZTEXT SICH DITEXT2 ARTIKEL DIMENAUS OP1 HSLIZENZKEY JAHR4 REGISTER SRVERTEILEN 4          ! T   ?t=CCC
Z
 T   T C MsXml2.XmlHttpN C GET  -    
 C 	  C 
  X , R,      ? Kein Internetzugang!   !  %C 
  Xf %C 
 
b3 StrToFile(loRequest.ResponseBody,"&lcFilename")
 < 	 B   < 
 B  U  P1 P2 P3 P4 P5	 LOREQUEST LCURL
 LCFILENAME OPEN SEND RESPONSEBODY  4  * %C mvarb N C mvarb L: 	 B   T   T   T  ? T  C    	 B   U  DOSSTRG MVAR WINX DOSX DOSY  4   GM( %Ct 0 
 T    %   R 
 T   
 T   +   
 
 %CS
  C      ?  T     !   %     B-   Ba  U  REC_WT REC_WTA WARTE7  4   %Ct % 
 T    C  7 U  XX  4    Z U  WT 4    %Ct % 	 B   
 H6  C xdb D_  BC   .  .  # C xdb N  B         C xdb M 	 B   C xdb C  BCCCt   C  >6X C xdb L  B- 2	 B   	 B   U  XD XEH   Q DATE Q DATE Q INTEGER Q INTEGER Q INTEGER  Q DATE Q DATE T C        6 T C        6 J (    +  u
 H q C   T   T C  C  G T   T C  2q T   T     Ba U  VDATE1 VDATE2 VYEAR VMONTH VDAY LDDATE1 LDDATE2  4   %C %  T
  C$  %C dDatumb DV  T
  C
  i  T
  CC
  ZA T
  C 29.02.
  # BC
  
 U  DDATUMp  4   %Ct $  T C$ 9 
 T    ' T CC 01.01.CC \# 	 B  U  MD XD BEGINOFYEAR JAHR2000p  4   %Ct $  T C$ 9 
 T    ' T CC 31.12.CC \# 	 B  U  MD XD	 ENDOFYEAR JAHR2000  4   %Ct $  T C$ 9 
 T     T C H % 

y  T  0CC  Z   T CC  Z  T CCC i Z\ BCC 01.  . #  U  MD XD MON JAH JAHR2000T 4   %Ct $  T C$ 9 
 T     T C H T CCC i Z\ %   BCC 31.12. #  M T   % 

  T  0CC  Z   T CC  Z # T CC 01.  . #  T   T C   	 B   U  MD XD MON JAHR JAHR2000 MDAT  4    %Ct9  T CC$ 
 T    [ 
 T   
 T    %  y 	 B   BC   U  D1 D2 PDAT JAHR2000 PMONAT 4    %Ct (  T  C$  T C  H %CtW  T - j  T a 
 H{ F    T  Januar    T  Februar    T  Mrz  	 T  April  * T  Mai  L T  Juni  n T  Juli   T  August  	 T 	 September  
 T  Oktober   T  November  * T  Dezember 2F T  -Monat-  % aj BC \ {	 B   U  X HSSHORT XX RETW        %C cDialogTitleb CS $ T   Please select a folder: # %C cStartingFolderb C 
 T      %C nBrowseFlagsb N<
 T 
 T 
 T 
 T 
 T 
 T   T	   T
    T  @ T        
  ! T C Shell.ApplicationN
 T
     T C          + %C
 oBrowseObjectb O C 
	      %     T
    !   	 B
  U  CDIALOGTITLE CSTARTINGFOLDER NBROWSEFLAGS BIF_RETURNONLYFSDIRS BIF_DONTGOBELOWDOMAIN BIF_STATUSTEXT BIF_RETURNFSANCESTORS BIF_EDITBOX BIF_VALIDATE BIF_BROWSEFORCOMPUTER BIF_BROWSEFORPRINTER BIF_BROWSEFOREVERYTHING
 OBROWSEOBJECT
 CPATHTORETURN	 OSHELLOBJ BROWSEFORFOLDER ITEM PARENTFOLDER ITEMS NAME TITLE PATHM  4   %Ct % 
 T       mygetdir(   	 B  U  XBER MYGETDIR
 DIRRETWERT#  4   C  @ Hinweisx U  VTEXT7  4        C @ Hinweisx U  Z1 S1 Z2 S2 VTEXT LOEJN 4   %Ct x ` T   Auf dem Drucker ausdrucken? C
 C
 ' Bei <NEIN> wird die Vorschau angezeigt. ) T    \immeraufdrucker.pcg' IF FILE("&hsdrufilename") = .t.  Ba  % a  Ba   B-  U  VTEXT
 HSDRUFILENAME EIGDAT MUSER DIREKTZUMDRUCKERF  4  " %C  $ Abfragex0  Ba ?  B-  U  VTEXTF  4  " %C  $ Abfragex0  Ba ?  B-  U  VTEXTd  4  @ %C Sind die Eingaben in Ordnung ?$ AbfragexN  Ba ]  B-  U  VTEXTS  4  @ C4 Bearbeitung nicht mglich, da Datei nicht zugnglichx	 B   U  XXX  4    %Ct  %C  9  BC    
 T     (C > 3 T  CC  \   C  \   6 	 B    %Ct 	 B     U  XDARF_DRIN_SEIN XZU_BEARBEITEN BLANK RETSTRG A  4    %Ct  %C  9  BC    
 T     (C > 3 T  CC  \   C  \   6 	 B    %Ct 	 B     U  XDARF_DRIN_SEIN XZU_BEARBEITEN BLANK RETSTRG A  4    T C select &mdat
 H T CO %   C+Y  T a l  T - 
 H select &oldd
 B U  MDAT XSOLL OLDD XIST LASTPAGE  4   %C datb D' 	 B    %C  i
 C  
	  T C   T C \ T  20C \/ T C \ .C \ .  BC #  	 B    U  DAT DATJ J  BC U   4   %C   	 B   
 H4  C  \ I:g  T CCCC  \g8 C  \ N:  T CCCC  \gT C  \ L:' %CC  \f Y % T CCCC  \f Y a -6 #% T CCCC  \f J a -6  C  \ C:T T C  \ C  \ D: T CC  \# 2
 T    	 B   U  RWERT RUCKWERT
  4   U  DDDq  4   %C  )  BC   .  .  # j 9 BCCC  \ .C  \ .C  \#   U  DX JAHR2000$  4   select &mtofile
 Ba U  MTOFILE$  4   select &mselect
 B- U  MSELECT&  4     BCC]
\ U  XX YY ZZ 4   %C   	 B    %C ddb NB 	 B    %  
   r  B nur 1-7 
 H      B Sonntag     B Montag     B Dienstag    B Mittwoch   , B
 Donnerstag   M B Freitag   n B Samstag 2	 B    U  DD@  4   % - 	 C 0 	 C 	 B   U  XXX	 ZUSCHAUER       
 T     (C  >  T CC   \ % 
s  T  C    1 T  CCC  CCC ?   	 B  U  LCSTRING CUTF I C! 4   T  C   C C  T  C   C C  T  C   C C  T  C   C C  T  C   C C  T  C   C C  T  C   C C  T  C   C C  T  C   C C 	 B   U  R= 4   T  C  C C   T  C  C C   T  C  C C   T  C  C C   T  C  C C   T  C  C C  Ĩ T  C  C C  ֨ T  C  C C  ܨ T  C  C C  ߨ r=STRTRAN(r,"&amp;","&")
	 B   U  R  4    BC   Q U  ANZ ST  4   BC  N U  DNR  4    BC    U  S1 S2  4   BC  8 U  Xw  4    %   % 	 B   p  %C xcharb NV  BCC    Q l  BC   Q   U  XANZ XCHAR 4  
 H     7  BC   ^   Z  BC  ^   }  BC  ^     BC ^     BC  ^     BC ^   	 BC ^   , BC^   O BC^   	r BCBB^   
 BC/^    BC^    BCQQ^   
 BC^   ! BC^   D BC^   g BC ^    BC^  U  FWERT 4  
 J ( 
 J  (  %CC  >
L  T  C   0  JC  >(   (C  >
 H  CC  f \ F  T  15 CC  f \ E  T  14 CC  f \ D
 T  13 CC  f \ C5 T  12 CC  f \ B` T  11 CC  f \ A T  10 2 T C   \  T  C g  T   	 B  U  HEXNUM DECNUM TEMPNUM INDX Im 4    %Ct E  T C W
 T    
 T     %C xxfilenrb C  %C  \ #  T CCC  \g8   T CC  g8   
 T      %C  
 
 F  Q ] %CtL  (H %  6 . 
 F  Q  Y 1  	 B   U  XXFILENR
 HSAUSNAHME MSELECT HSA 4   %Ct " 
 B ! IF .not. FILE("&hsfname")Q 
 B  T C   %CC ӡ 3 T CC R . C C >\  6   T C C . \  T C    %  j! IF .not. FILE("&hsfname")#
 B  T C W F   USE "&hsfname"
 T CN Q
 F   T C W SELECT "&hsdatname"
 T CN
 F  	 B  U  HSFNAME
 HSFILENAME	 HSDATNAME XXS
 GIVESELECT	 OLDSELECT HSRETVAL 4      T  CC  @ %C @ employee  % .dbfC  @
l  T    .dbf  
 T       %CC  R@ .ttt 
 T      T    .ttt   T C   % .  T C C . \  T C    %  5$ IF .not. FILE("&xfilename2")
' % links    mytext  
 F  USE "&xxfilename" shared
	 B   k

 Hg
 C @ basis94 CREATE dbf "&xfilename2" free (internnr N(10,2))
 SELECT &xxfilename3
 Q C @	 formdatenr CREATE dbf "&xfilename2" free ( formname C(40) , top N(10,0) , left N(10,0) , width N(10,0) , height N(10,0)) 
 SELECT &xxfilename3
 Q C @ beihilfe
 CREATE dbf "&xfilename2" free ( pcg_f1 N(10,0) , pcg_f2 N(10,0) , pcg_f3 N(4,0) , pcg_f4 D(8) , pcg_f5 D(8) , pcg_f6 D(8) , pcg_f7 N(1,0) , pcg_f8 N(10,2) , pcg_f9 N(10,2) , pcg_f10 C(50) , pcg_f11 C(50) , pcg_f12 C(20) , pcg_f13 N(6,2)) 
 SELECT &xxfilename3
 Q C @	 rkalender CREATE dbf "&xfilename2" free ( pcg_f1 N(10,0) , pcg_f2 N(10,0) , pcg_f3 N(4,0) , pcg_f4 C(168) , pcg_f5 C(168) , pcg_f6 C(168) , pcg_f7 C(200)) 
 SELECT &xxfilename3
 Q C @	 dienstunf CREATE dbf "&xfilename2" free ( pcg_f1 N(10,0) , pcg_f2 N(10,0) , pcg_f3 N(4,0) , pcg_f4 N(10,2) , pcg_f5 N(10,2) , pcg_f6 N(10,2) , pcg_f7 N(10,2) , pcg_f8 N(10,2) , pcg_f9 D(8))
 SELECT &xxfilename3
 Q C @	 persflle8=CREATE dbf "&xfilename2" free ( pcg_f1 N(10,0) , pcg_f2 N(10,0) , pcg_f3 C(35) , pcg_f4 N(4,0) , pcg_f5 N(1,0) , pcg_f6 N(1,0) , pcg_f7 N(1,0) , pcg_f8 N(10,2) , pcg_f9 N(10,2) , pcg_f10 N(10,2) , pcg_f11 N(10,2) , pcg_f12 N(10,2) , pcg_f13 D(8) , pcg_f14 D(8) , pcg_f15 D(8) , pcg_f16 N(10,2) , pcg_f17 N(10,2)) 
 SELECT &xxfilename3
 Q C @ employeen	 CREATE dbf "&xfilename2" free ( pcg_f1 N(10,2) , pcg_f2 N(10,2) , pcg_f3 N(10,2) , pcg_f4 N(10,2) , pcg_f5 N(10,2) , pcg_f6 N(10,2) , pcg_f7 N(10,2) , pcg_f8 N(10,2) , pcg_f9 N(10,2) , pcg_f10 N(10,2) , pcg_f11 N(10,2) , pcg_f12 N(10,2) , pcg_f13 N(10,2) , pcg_f14 N(10,2) , pcg_f15 N(10,2) , pcg_f16 N(10,2) , pcg_f17 N(10,2) , pcg_f18 N(10,2) , pcg_f19 N(10,2) , pcg_f20 N(10,2) , pcg_f21 N(10,2) , pcg_F22 N(10,2) , pcg_f23 N(10,2) , pcg_f24 N(10,2) , pcg_f25 N(10,2) , pcg_f26 N(10,2) , pcg_f27 N(10,2)) 
 SELECT &xxfilename3
 Q C @	 userdaten
q CREATE dbf "&xfilename2" free ( pcg_f1 C(35) , pcg_f2 C(100) , pcg_f3 C(35) , pcg_f4 C(100) , pcg_f5 C(100)) 
 SELECT &xxfilename3
 Q 2g
. CREATE dbf "&xfilename2" free (memofeld M)
 select &xxfilename3
 Q  
 F  %Ct

 USE "&xfilename2" shared
 
 USE "&xfilename2" excl
  1
 F  %Ct
 USE "&xfilename2" shared
 - USE "&xfilename2" excl
    %     	
 F  T   _13 USE "&xfilename2" again ALIAS "&newname" shared
  	 B   U	 
 XXFILENAME XXSELECT XXDATA HSEXCLUSIVE
 XFILENAME2 XXFILENAME3 XXS
 GIVESELECT NEWNAME> 4   T  C  @7 %C   C      C .   T  B- 3 %C  
\
 printer.print
 C  >
	  B- ! %C  \ myclose(  B- _ %C   & & endcase endfunc endproc else endif return next endwith( B- 7 Ba  U  X CODE	 SOURCEVFPN 4     %C mwertb D T C  % % 

d  T  0CC  Z  T   .  T C  H
 H F    T  Januar    T  Februar   T  Mrz  % T  April  F T  Mai  h T  Juni   T  Juli   T  August  	 T 	 September  
 T  Oktober    T  November  F T  Dezember  T     T CC  i Z T     > T C  # 9 T C  0 9 T C  ,   T C >C .  T C  C > Z %Ct: %  N6 T C g   	 B  U	  MWERT MFORMAT	 OUTFORMAT RET1 RET2O RET2 RET3 XRETWERT MDEZIS% 4     %C mfilenrb Cx  %C  \ #V  T  C  \  T CC  g8
 T     T C @
 F   %CN 
  T CN +  
   [ T    [ 	 # 
 C
 
 H$   wvwaltd
  ` C  
 C	 
 
 C  
 C
  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 T    T! "  T# $  T% &  T' (  T) *  T+ ,  T- .  T/ 0  T1 2  T3 4  T5 6  T7 8  T9 :  T; <  T= >  T? @  TA B  TC D  TE F  TG H  TI J  CK L 
 CM N 
    wvw
  | C  
 C	 
 
 C  
 C
  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 T    T! "  T# $  T% &  T' (  T) *  T+ ,  T- .  T/ 0  T1 2  T3 4  T5 6  T7 8  T9 :  T; <  T= >  T? @  TA B  TC D  CO E 
 TG P  TI Q  %CCK ) TK  Einbehalt lt. Eingabe  %CC	K ) TK 	 Einbehalt lt. Eingabe  %CC
K T) TK 
 Einbehalt lt. Eingabe  CK L 
 CM N 
    wnwU
" TR S T 
 \wnwcheck.pcg IF FILE("&hswnwcheck")F
 %U B %CCV W fCCX f
>$ C Schreibt falsche daten!Y  	 showstack TU -   
 V Q
 T [  T
 \  T ]  T ^  T _  T `  T a  T b  T c  T d  T e  T f  T g  T! h  T# i  T% j  T' k  T) l  T+ m  T- n  T/ o  T1 p  T3 q  T5 r  Cs 7 
 Ct 9 
 Cu ; 
 Cv = 
 Cw ? 
 TA x  TC y  TE z  TG {  C| I 
 TL }  TN ~  C  
 T   T   T   T   T   T   T   T   CM  
 C  
 T   T   C  
 T   T   T   T   T   T   T   T   T   T W  T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   C  
 C  
 C  
 C  
 T   T   T   T   T   CO  
 T   %CV   U
 T   
 T    %CV   U7

 T   M
 T       dimen
   T   T
   T   T   T   T   T   T   T  T  T  T  T  T!  T#  T%  T' 	 T) 
 T+  T-  T/ 
 T1  T3  T5  T7  T9  T;  T=  T?  TA  TC  TE  TG  TI  TL  TN  T  T  T  T   T ! T " T # T $ T % T & T ' T ( T ) T * T + T , T - T . T / T 0 T 1 T 2 T 3 T 4 T 5 T 6 T 7 T 8 T 9 T : T ; T < T = T > T ? T @ T A T B T C    employee
 F  	 # 
 D > CE >
 CE > CE > CE > CE > CE > CE > CE > C	E > C
E > CE > CE > C
E >! CE ># CE >% CE >' CE >) CE >+ CE >- CE >/ CE >1 CE >3 CE >5 CE >7 CE >9 CE >; CE [    vorein
 F CG 
 CH
 
 CI 
 CJ 
 CK 
 T L T M T N T O CP 
 CQ 
 CR 
 CS 
 T! T CU# 
 CV% 
 CW' 
 CX) 
 CY+ 
 CZ- 
 C[/ 
 T1 \ T3 ] T5 ^ T7 _ T9 ` Ca; 
 Cb= 
 Cc? 
 TA d TC e TE f TG g TI h TL i TN j T k T l T m Cn 
 T o T p Cq 
 T r T s T t T u T v T w T x Cy 
 Cz 
 C{ 
 C| 
 T } T ~ T  T  T  T     woerter
 F  	 #  >
  [   bda
    C 
 C
 
   	 belehrtxtR
 N T     jdadat
  T  C
 
 C 
 T  T  C 
    zuschlag$
   T  C
 
    zone
  C 
 C
 
 C 
 C 
 T     atvC
 ? T  T
  T  T  T  T  T  T  T     pausch
  C 
 T
     sozvers
  C 
 T
  T  T  T  T  T  T  T  T  T  T  T  T!  C# 
 C% 
 C ' 
 C) 
 C+ 
 C- 
 C/ 
 C1 
 T3  T5  T7  T9  T;  T=  T?  CA 
 CC 
 CE 
 CG 
 TI    	 sonderzah
  T  C
 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C! 
   	 userdateno
 F  	 # 
 k >  >
  >  >  >  [    urlaubsblatt
  T  T
  T  T  T  T  T  T  T  T  T  T  T  C! 
 C# 
 C% 
 T'  T)  T+  C- 
   
 importfile
  T     struk4 
 0  T    	 tvlstringu 
 F  	 #  >  [  
 bundstring 
   T     soza 
   C 
    kommtar"!
 ! C 
    gupdateY!
 U! T     mnet2 "
 F  	 # 
 ! > C >
 C > C > C > C [    mnet"
 F  	 # 
 " > C >
 C > C > C > C [    lhner"
 " C 
   	 tmerkmale#
 # T        edz$
 $ T  T
  C 
 C 
 T  T  T  T 	 C
 
 T  T  T 
 T  T!  T#  C% 
 C' 
 C) 
 C+ 
 C- 
 C/ 
    kalender$
 $ C 
 C
 
 T   	 # G %C @3 employee,woerter,struk,userdaten,mnet,mnet2,kommtar
r%
 >   [ D( pcg_f?? < pcg_f??  Z [ U MFILENR MSATZNR SAVEMODE MSELECT MSATZZ REC_LOCK WVW ZNAM PCG_F1 TNAM PCG_F2 TZNAM PCG_F3 TBNAM PCG_F4 EFFZ PCG_F5 LST PCG_F6 SOZ PCG_F7 ZVK PCG_F8 WEI PCG_F9 TEI PCG_F10 BRU PCG_F11 LEI PCG_F12 PCG_F13 BDA PCG_F14 NOCHFREI PCG_F15 Z55 PCG_F16	 PAUSCHLST PCG_F17
 PAUSCHSOLI PCG_F18 PAUSCHKISTR PCG_F19 ZHLKIND PCG_F20 SOLDATEN PCG_F21 ZNR63 PCG_F22 DIMATZAUFSTOCKUNG PCG_F23
 DIMATZSOLI PCG_F24 DIMATZKIRCHE PCG_F25 GLEITZONEALT PCG_F26 RESERVE2 PCG_F27 RESERVE3 PCG_F28 RESERVE4 PCG_F29 RESERVE5 PCG_F30 RESERVE6 PCG_F31 RESERVE7 PCG_F32 RESERVE8 PCG_F33 RESERVE9 PCG_F34	 RESERVE10 ZULAGEN PCG_F35 SCHLSS PCG_F36 ZEST SPARTE ENTGELTCODE
 HSWNWCHECK EIGDAT MUSER	 STOPSTACK WNW PERSONALFALL TESTPERSONALFALL HINWEIS	 SHOWSTACK ZTEXT0 ZTEXT1 ZTEXT2 ZTEXT3 ZTEXT4 ZTEXT27 ZTEXT5	 SVNUMMER1 ZTEXT6	 SVNUMMER2 KONTO BLZ ZTEXT7 ZFLAG ZTEXT8 ANREDE WEIFLAG ZIBAN ZBIC ZPERSNR ZTEXT10 ZTEXT11 ZTEXT12 ZTEXT28 LUCKKV LUCKRV KORRLST KORRKV KORRRV ATZALT	 ZVKZUSATZ ZTEXT13 ATZAA ATZAAA ZTEXT14 ZTEXT15
 BUNDESBEAMTER PCG_F37 PCG_F38 ZTEXT16 PCG_F39 ZTEXT17 PCG_F40 ZTEXT18 PCG_F41 ZTEXT19 PCG_F42 ZTEXT20 PCG_F43 ZTEXT21 PCG_F44 ZTEXT22 PCG_F45 ZTEXT23 PCG_F46 SACHB PCG_F47 PCG_F48 SACHB24 PCG_F49 SACHB47	 TVDZEILE PCG_F50 PCG_F51 TVDAUFSTIEG PCG_F52 TVDAUFSTIEGMONAT PCG_F53 TVDAUFSTIEGJAHR PCG_F54 TVDAUFSTIEGDAUER PCG_F55 TVDFUNKTION PCG_F56 TVDAUFRUNDUNG PCG_F57 SEPTEMBERKINDER PCG_F58 TVLVERHZ PCG_F59 ZTEXT29 PCG_F60 PCG_F61 STRUKTUR PCG_F62 ZTEXT32 PCG_F63 ZTEXT33 PCG_F64 ZUMLAGE1 PCG_F65 ZUMLAGE2 PCG_F66 ZUMLAGE3 PCG_F67 ZUMTV5 PCG_F68 ZUMTV7 PCG_F69 TVDSTELLENZULAGE PCG_F70
 ZVKZUSATZ9 PCG_F71 RESERVEENTGELTCODE PCG_F72 RESERVEZTEXT35 PCG_F73	 ZATZNETTO PCG_F74 LEISTUNG2007 PCG_F75 LEISTUNG2008 PCG_F76 LEISTUNG2009 PCG_F77 LEISTUNG2010 PCG_F78 LEISTUNG2011 PCG_F79 KINDERBESITZSTAND PCG_F80 VERSORGUNGSBEGINN PCG_F81 VERSORGUNGSMONATE PCG_F82 VERSORGUNGSBEZUG PCG_F83
 VERSORGUNGSSZ PCG_F84 STRUKTURREST PCG_F85 ZSGRUPPE ZSSTUFE PCG_F86 ZSBETRAG PCG_F87 ZSOPTION PCG_F88 ZSINDIV PCG_F89 PCG_F90 ZSWOSTD PCG_F91	 ZSWOMONAT PCG_F92	 ZSBENUTZT PCG_F93 BESJA PCG_F94 ZTEXT38 PCG_F95 PCG_F96
 STUFENRECHNEN TVDSOZAMINUSTAGE PCG_F97	 STUFEN_BW PCG_F98 DIMEN DIMTEXT1 DIMTEXT2 DIMTEXT3 DIMTEXT4 DIMTEXT5 DIMTEXT6 DIMTEXT7
 DIMSTRASSE DIMSITZ DIMTEXT9	 DIMTEXT10 DIMSTEUERNUMMER
 DIMVERSION
 DIMARTIKEL
 DIMPASSWORTJA DIMPW1 DIMPW2 DIMPW3 DIMPW4 DIMPW5 DIMPW6 DIMPW7 DIMPW8 DIMWELCHESJAHR
 DIMFILENEU DIMMONAT DIMMODUS DIMSATZANZAHL07 DIMSATZANZAHL08 DIMSATZANZAHL09 DIMSATZANZAHL10 DIMSATZANZAHL11 DIMSATZANZAHL12 DIMSATZANZAHL13 DIMSATZANZAHL14 DIMSATZANZAHL15 DIMSATZANZAHL16 DIMSATZANZAHL17 DIMSATZANZAHL18 DIMSATZANZAHL19 DIMSATZANZAHL20 DIMSATZANZAHL21 DIMFORM1OBEN
 DIMFORM1LINKS DIMFORM1HOCH DIMFORM1BREITALT
 DIMAMTOBEN DIMAMTLINKS
 DIMAMTHOCH DIMAMTBREITALT DIMJAHROBEN DIMJAHRLINKS DIMJAHRHOCH DIMJAHRBREITALT DIMLSTROBEN DIMLSTRLINKS DIMLSTRHOCH DIMLSTRBREIT DIMLASTN DIMPOPUPHELP DIMNETZWERK DIMFREI3
 DIMFORM1BREIT DIMAMTBREIT DIMJAHRBREIT DIMFREI7 DIMFREI8 DIMFREI9	 DIMFREI10 DIMSATZANZAHL22 DIMSATZANZAHLJ1 DIMSATZANZAHLJ2 DIMSATZANZAHLJ3 DIMSATZANZAHLJ4 DIMSATZANZAHLJ5 EMPLOYEE FELD VOREIN
 VORKASSEN1
 VORKASSEN2
 VORKASSEN3
 VORKASSEN4
 VORKASSEN5 VORPVVOREIN VORRVVOREIN VORAVVOREIN	 VOREINAUS
 VORUMLAGE1 VORUMLAGE1AB
 VORUMLAGE2 VORUMLAGE2AB VORNRW VORKVGRENZE VORPVGRENZE VORRVGRENZE VORAVGRENZE
 VORZVKBEMG	 VORGERING
 VORZVKUMLZ VORZVKUMLAGE
 VORZVKHALB VORZVKAG VORZVKSTART VORZVKKISTR VORWEIHNACHTSGELD VORPROZENTE	 VORPFEILE VORMULTIPLIKATORB VORWELCHERMONATB VORMULTIPLIKATORA VORWELCHERMONATA VORTARIFE1AB VORTARIFE2AB VORTARIFE3AB VORTARIFE4AB VORATZA VORATZB VORFARBENRGB
 VORZVKAREV VORFREI2
 VORKINDERGELD VORSANIERUNG VORAGSTEUER VORFREI8 VORFREI9	 VORFREI10 VORZUSATZKV VORZUSATZPV VORSACHBEZUG VOREINBEHALT VORWOCHENSTUNDEN
 VORPENSION VORINSOLVENZGELD VORTARIFE6AB VORTARIFE7AB VORTARIFE8AB VORTARIFE9AB	 VORFREI13 WOERTER TEXTEE DATUM BESCHREIBUNG	 BELEHRTXT XTEXT JDADAT EINTRITTRUHESTAND RESERVE MON BOXEN ZUSCHLAG BENUTZT DSTUNDEN ZONE ZO SV JOB ARB BER ATV	 DATVAGBIS
 DATVSTEUER	 DATVSTART DATVAREV
 DATVUMLAGE DATVUMLAGEAN
 DATVSANIERUNG DATVKAPITAL
 DATVKAPITALAN PAUSCH	 DATVKISTR	 DATVCHECK SOZVERS AG HO HK SC HC HR HE KO KK REG UEB BER GK GR PRI STU LO MO UR WE ERG TRAG RES1 RES2 RES3 RES4 RES5 RES6	 SONDERZAH SZZI SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZ13RESERVE SZTZ SZMASS	 USERDATEN USERNAME PFAD PASS
 PFADTARIFE	 PFADTEXTE URLAUBSBLATT
 DIMGEBURTSTAG DIMANSPRUCHNORMAL DIMGEHALTSGRUPPE DIMTAGEWOCHE
 DIMZUSATZTAGE DIMZUSATZURLAUB1 DIMZUSATZURLAUB2 DIMZWLFTEL DIMKRZUNG1 DIMKRZUNG2 DIMSGB
 DIMVORJAHR
 DIMVORJAHRVON DIMGENOMMENTEXT DIMGENOMMENTAGE DIMGENOMMENBASIS DIMRESERVE1 DIMRESERVE2 DIMRESERVE3
 DIMURLAUBSTAG
 IMPORTFILE	 IMPODATEI STRUK
 STRUKZEILE	 TVLSTRING TVLSTRI
 BUNDSTRING BUNDSTRI SOZA VORSOZA KOMMTAR KOMMTR GUPDATE UPD MNET2 MNE2 MNET MNE LHNER VONBIS	 TMERKMALE MERK EDZ
 XGEBRAUCHT XBEAMTER XBESOLDUNGSGRUPPE XBEFRDERUNG	 XBEGINNEN XBEENDEN	 XVDZSUMME XRUNDEN	 XINDSTUFE XRESERVE XDIENST XSOLDAT XA8 XGEBURTSTAG
 XERNENNUNG
 XVORZEITEN XPROZENT XVON XBIS XKRZER XLNGER KALENDER DIMFARBE DIMKOMMENTAR MEMOFELD  4   %Ct   Ba  % *  
P  DELETE FILE "&hsfiles"
   T C  ] +C 
  DELETE FILE "&hsfiles"
 T C  ]   Ba U  HSFILES DELFILETEMP% 4     T C  %C mfilenrb Cz  %C  \ #e  T  C  \  T  CC  g8 
 F   %CN 
  T CN +  
   [ T    [  T C @ %  beihilfe! -     	 B  % 	 rkalender\ -     	 B  % 	 persflle -     	 B  % 	 dienstunf -     	 B 	 # G %C @3 employee,woerter,struk,userdaten,mnet,mnet2,kommtar
Y %C K C       	  
 @   T C @
 Hy%   wvwalt
 
  C  
 C 
 
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 T  !  T" #  T$ %  T& '  T( )  T* +  T, -  T. /  T0 1  T2 3  T4 5  T6 7  T8 9  T: ;  T< =  T> ?  T@ A  TB C  TD E  TF G  TH I  TJ K  CL M 
 CN O 
    wvw

 
 	 C  
 C 
 
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 C  
 T  !  T" #  T$ %  T& '  T( )  T* +  T, -  T. /  T0 1  T2 3  T4 5  T6 7  T8 9  T: ;  T< =  T> ?  T@ A  TB C  TD E  CG P 
 TQ I  TR K  CL M 
 CN O 
    wnwq

 S m
 TT   TU   TV   TW   TX   TY   TZ   T[   T\   T]   T^   T_   T` !  Ta #  Tb %  Tc '  Td )  Te +  Tf -  Tg /  Th 1  Ti 3  Tj 5  Tk 7  C9 l 
 C; m 
 C= n 
 C? o 
 CA p 
 Tq C  Tr E  Ts G  Tt I  CK u 
 %CCu  ND	 J (u   Tv L  Tw N  Cx y 
 %CCz  C	 J  (y   T{ |  T} ~  T   T   T   T   T   T   C O 
 C  
 T   T   C  
 T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   T   C  
 C  
 C  
 C  
 T   T   T   T   T   C P 
 T   %C  U
 T   ,
 T    %C  US
 T   i
 T       dimen
  
 T   T   T   T   T   T   T   T   T   T   T   T   T !  T#  T%  T'  T)  T+  T-  T/  T1  T	3  T
5  T7  T9  T
;  T=  T?  TA  TC  TE  TG  TI  TK  TL  TN  Tx  T|  T~  T  T  T  T  T  T   T!  T"  T#  T$  T%  T&  T'  T(  T)  T*  T+  T,  T-  T.  T/  T0  T1  T2  T3  T4  T5  T6  T7  T8  T9  %C  U T  T  T  T  T 9  T:  T;  T<  T=  T>     employeeW
 ?S T@  T@  T@  T@  T@  T@  T@  T@  T@	  T@
  T@  T@  T@
!  T@#  T@%  T@'  T@)  T@+  T@-  T@/  T@1  T@3  T@5  T@7  T@9  T@;  T@=     vorein
 A C B
 C C
 C D
 C E
 C F
 TG  TH  TI  TJ  C K
 C L
 C M
 C! N
 TO#  C% P
 C' Q
 C) R
 C+ S
 C- T
 C/ U
 C1 V
 TW3  TX5  TY7  TZ9  T[;  C= \
 C? ]
 CA ^
 T_C  T`E  TaG  TbI  TcK  TdL  TeN  Tfx  Tg|  Th~  C i
 Tj  Tk  C l
 Tm  Tn  To  Tp  Tq  Tr  Ts  C t
 C u
 C v
 C w
 Tx  Ty  Tz  T{  T|  T}     woerterI
 ~E T     bda
    C 
 C 
   	 belehrtxt
  T     jdadatN
 J T  C 
 C 
 T  T  C 
    zuschlag
  %C  U
 T    T  %C  U  J        ( C 
 <  C 
    zone
  C 
 C 
 C 
 C 
 T     atv2
 . T  T  T  T  T  T  T  T  T     pauschy
 u C 
 T     sozvers
  C 
 T  T  T  T  T  T  T  T  T  T  T  T!  T#  C% 
 C' 
 C)  
 C+ 
 C- 
 C/ 
 C1 
 C3 
 T5  T7  T9  T;  T=  T?  TA  CC 
 CE 
 CG 
 CI 
 TK    	 sonderzah
  T  C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C 
 C! 
 C# 
   	 userdaten,
 ( T  T  T  T  T     urlaubsblatt~ 
 z  T  T  T  T  T  T  T  T  T  T  T  T  T!  C# 
 C% 
 C' 
 T)  T+  T-  C/ 
   
 importfile 
   T     struk 
   T    	 tvlstring&!
 "! T    
 bundstring`!
 \! T     soza!
 ! C 
    kommtar!
 ! C 
    gupdate	"
 " T   C  mnet2"
 " F T  T  T  T  T   C  mnetN#
 J# F T  T  T  T  T     lhner#
 # C 
   	 tmerkmale#
 # T     edz&%
 "% T  T  C  
 C 
 T  T  T  T  C 
 T  T  T	  T
!  T#  T%  C' 

 C) 
 C+ 
 C- 
 C/ 
 C1 
    kalender%
 |% C 
 C 
 T    < pcg_f?? U MFILENR MSATZNR SAVEMODE MSATZZ PCG_F2 PCG_F4 WELCHESJAHR PCG_F3 MEMOFELD MYPUT WVW PCG_F1 ZNAM TNAM TZNAM TBNAM PCG_F5 EFFZ PCG_F6 LST PCG_F7 SOZ PCG_F8 ZVK PCG_F9 WEI PCG_F10 TEI PCG_F11 BRU PCG_F12 LEI BDA PCG_F13 NOCHFREI PCG_F14 Z55 PCG_F15	 PAUSCHLST PCG_F16
 PAUSCHSOLI PCG_F17 PAUSCHKISTR PCG_F18 ZHLKIND PCG_F19 SOLDATEN PCG_F20 ZNR63 PCG_F21 DIMATZAUFSTOCKUNG PCG_F22
 DIMATZSOLI PCG_F23 DIMATZKIRCHE PCG_F24 GLEITZONEALT PCG_F25 RESERVE2 PCG_F26 RESERVE3 PCG_F27 RESERVE4 PCG_F28 RESERVE5 PCG_F29 RESERVE6 PCG_F30 RESERVE7 PCG_F31 RESERVE8 PCG_F32 RESERVE9 PCG_F33	 RESERVE10 PCG_F34 PCG_F35 ZULAGEN PCG_F36 SCHLSS ZEST SPARTE ENTGELTCODE WNW ZTEXT0 ZTEXT1 ZTEXT2 ZTEXT3 ZTEXT4 ZTEXT27 ZTEXT5	 SVNUMMER1 ZTEXT6	 SVNUMMER2 KONTO BLZ ZTEXT7 ZFLAG ZTEXT8 ANREDE WEIFLAG ZIBAN ZBIC ZPERSNR ZTEXT10 ZTEXT11 ZTEXT12 ZTEXT28 LUCKKV LUCKRV KORRLST KORRKV KORRRV ATZALT	 ZVKZUSATZ ZTEXT13 ATZAA ATZAAA ZTEXT14 ZTEXT15 PCG_F37
 BUNDESBEAMTER
 BUNDESBAEMTER ZTEXT16 PCG_F38 ZTEXT17 PCG_F39 ZTEXT18 PCG_F40 ZTEXT19 PCG_F41 ZTEXT20 PCG_F42 ZTEXT21 PCG_F43 ZTEXT22 PCG_F44 ZTEXT23 PCG_F45 PCG_F46 PCG_F47 SACHB SACHB24 PCG_F48 SACHB47 PCG_F49 PCG_F50	 TVDZEILE TVDAUFSTIEG PCG_F51 TVDAUFSTIEGMONAT PCG_F52 TVDAUFSTIEGJAHR PCG_F53 TVDAUFSTIEGDAUER PCG_F54 TVDFUNKTION PCG_F55 TVDAUFRUNDUNG PCG_F56 SEPTEMBERKINDER PCG_F57 TVLVERHZ PCG_F58 ZTEXT29 PCG_F59 PERSONALFALL PCG_F60 STRUKTUR PCG_F61 ZTEXT32 PCG_F62 ZTEXT33 PCG_F63 ZUMLAGE1 PCG_F64 ZUMLAGE2 PCG_F65 ZUMLAGE3 PCG_F66 ZUMTV5 PCG_F67 ZUMTV7 PCG_F68 TVDSTELLENZULAGE PCG_F69
 ZVKZUSATZ9 PCG_F70 RESERVEENTGELTCODE PCG_F71 RESERVEZTEXT35 PCG_F72	 ZATZNETTO PCG_F73 LEISTUNG2007 PCG_F74 LEISTUNG2008 PCG_F75 LEISTUNG2009 PCG_F76 LEISTUNG2010 PCG_F77 LEISTUNG2011 PCG_F78 KINDERBESITZSTAND PCG_F79 VERSORGUNGSBEGINN PCG_F80 VERSORGUNGSMONATE PCG_F81 VERSORGUNGSBEZUG PCG_F82
 VERSORGUNGSSZ PCG_F83 STRUKTURREST PCG_F84 ZSGRUPPE PCG_F85 PCG_F86 ZSSTUFE PCG_F87 ZSBETRAG PCG_F88 ZSOPTION PCG_F89 ZSINDIV ZSWOSTD PCG_F90	 ZSWOMONAT PCG_F91	 ZSBENUTZT PCG_F92 BESJA PCG_F93 ZTEXT38 PCG_F94 PCG_F95
 STUFENRECHNEN PCG_F96 PCG_F97 TVDSOZAMINUSTAGE PCG_F98	 STUFEN_BW DIMEN DIMTEXT1 DIMTEXT2 DIMTEXT3 DIMTEXT4 DIMTEXT5 DIMTEXT6 DIMTEXT7
 DIMSTRASSE DIMSITZ DIMTEXT9	 DIMTEXT10 DIMSTEUERNUMMER
 DIMVERSION
 DIMARTIKEL
 DIMPASSWORTJA DIMPW1 DIMPW2 DIMPW3 DIMPW4 DIMPW5 DIMPW6 DIMPW7 DIMPW8 DIMWELCHESJAHR
 DIMFILENEU DIMMONAT DIMMODUS DIMSATZANZAHL07 DIMSATZANZAHL08 DIMSATZANZAHL09 DIMSATZANZAHL10 DIMSATZANZAHL11 DIMSATZANZAHL12 DIMSATZANZAHL13 DIMSATZANZAHL14 DIMSATZANZAHL15 DIMSATZANZAHL16 DIMSATZANZAHL17 DIMSATZANZAHL18 DIMSATZANZAHL19 DIMSATZANZAHL20 DIMSATZANZAHL21 DIMFORM1OBEN
 DIMFORM1LINKS DIMFORM1HOCH DIMFORM1BREITALT
 DIMAMTOBEN DIMAMTLINKS
 DIMAMTHOCH DIMAMTBREITALT DIMJAHROBEN DIMJAHRLINKS DIMJAHRHOCH DIMJAHRBREITALT DIMLSTROBEN DIMLSTRLINKS DIMLSTRHOCH DIMLSTRBREIT DIMLASTN DIMPOPUPHELP DIMNETZWERK DIMFREI3
 DIMFORM1BREIT DIMAMTBREIT DIMJAHRBREIT DIMFREI7 DIMFREI8 DIMFREI9	 DIMFREI10 DIMSATZANZAHL22 DIMSATZANZAHLJ1 DIMSATZANZAHLJ2 DIMSATZANZAHLJ3 DIMSATZANZAHLJ4 DIMSATZANZAHLJ5 EMPLOYEE FELD VOREIN
 VORKASSEN1
 VORKASSEN2
 VORKASSEN3
 VORKASSEN4
 VORKASSEN5 VORPVVOREIN VORRVVOREIN VORAVVOREIN	 VOREINAUS
 VORUMLAGE1 VORUMLAGE1AB
 VORUMLAGE2 VORUMLAGE2AB VORNRW VORKVGRENZE VORPVGRENZE VORRVGRENZE VORAVGRENZE
 VORZVKBEMG	 VORGERING
 VORZVKUMLZ VORZVKUMLAGE
 VORZVKHALB VORZVKAG VORZVKSTART VORZVKKISTR VORWEIHNACHTSGELD VORPROZENTE	 VORPFEILE VORMULTIPLIKATORB VORWELCHERMONATB VORMULTIPLIKATORA VORWELCHERMONATA VORTARIFE1AB VORTARIFE2AB VORTARIFE3AB VORTARIFE4AB VORATZA VORATZB VORFARBENRGB
 VORZVKAREV VORFREI2
 VORKINDERGELD VORSANIERUNG VORAGSTEUER VORFREI8 VORFREI9	 VORFREI10 VORZUSATZKV VORZUSATZPV VORSACHBEZUG VOREINBEHALT VORWOCHENSTUNDEN
 VORPENSION VORINSOLVENZGELD VORTARIFE6AB VORTARIFE7AB VORTARIFE8AB VORTARIFE9AB	 VORFREI13 WOERTER TEXTEE DATUM BESCHREIBUNG	 BELEHRTXT XTEXT JDADAT EINTRITTRUHESTAND RESERVE MON BOXEN ZUSCHLAG BENUTZT DSTUNDENTEMP DSTUNDEN ZONE ZO SV JOB ARB BER ATV	 DATVAGBIS
 DATVSTEUER	 DATVSTART DATVAREV
 DATVUMLAGE DATVUMLAGEAN
 DATVSANIERUNG DATVKAPITAL
 DATVKAPITALAN PAUSCH	 DATVKISTR	 DATVCHECK SOZVERS AG HO HK SC HC HR HE KO KK REG UEB BER GK GR PRI STU LO MO UR WE ERG TRAG RES1 RES2 RES3 RES4 RES5 RES6	 SONDERZAH SZZI SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZ13RESERVE SZTZ SZMASS	 USERDATEN USERNAME PFAD PASS
 PFADTARIFE	 PFADTEXTE URLAUBSBLATT
 DIMGEBURTSTAG DIMANSPRUCHNORMAL DIMGEHALTSGRUPPE DIMTAGEWOCHE
 DIMZUSATZTAGE DIMZUSATZURLAUB1 DIMZUSATZURLAUB2 DIMZWLFTEL DIMKRZUNG1 DIMKRZUNG2 DIMSGB
 DIMVORJAHR
 DIMVORJAHRVON DIMGENOMMENTEXT DIMGENOMMENTAGE DIMGENOMMENBASIS DIMRESERVE1 DIMRESERVE2 DIMRESERVE3
 DIMURLAUBSTAG
 IMPORTFILE	 IMPODATEI STRUK
 STRUKZEILE	 TVLSTRING TVLSTRI
 BUNDSTRING BUNDSTRI SOZA VORSOZA KOMMTAR KOMMTR GUPDATE UPD MNET2 MNE2 MNET MNE LHNER VONBIS	 TMERKMALE MERK EDZ
 XGEBRAUCHT XBEAMTER XBESOLDUNGSGRUPPE XBEFRDERUNG	 XBEGINNEN XBEENDEN	 XVDZSUMME XRUNDEN	 XINDSTUFE XRESERVE XDIENST XSOLDAT XA8 XGEBURTSTAG
 XERNENNUNG
 XVORZEITEN XPROZENT XVON XBIS XKRZER XLNGER KALENDER DIMFARBE DIMKOMMENTAR{  4  $ %C xb N C xb I6  BC  8 t 
 HK p  C xb Cp  BCC  gT   U  XU  4   %Ct   B-  IF FILE("&x")?  Ba N  B-  U  X  4  - IF PCOUNT() = 0 .or. .not. FILE("&x")= 	 B   T C W F  % USE "&x" again ALIAS "backupfile"
 T CN Q
 F 	 B  U  X	 OLDSELECT XSE  4   %Ct ! 	 B   IF .not. FILE("&x")I 	 B   T C   % .   T C C . \  T C    %    BC N   F   USE "&x"
 T CN Q	 B   U  X XNAME XSE
 GIVESELECT  4     T     T  
 H>     a  BC          BC          BC          BC          BC       	 B  U  P1 P2 P3
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5  4   %Ct *  BC^  T CC  R  T CCC  R\  T CCC  R\  BC   ^ U  HEXFARB BLAUWERT HEX2DEC	 GRUENWERT ROTWERT  4   %Ct *  BC^  T C   @0_
 T 
 T 
 T  T CC R  T CCC R\  T CCC R\  BC   ^ U  DECFARB HEXFARB ROTWERT	 GRUENWERT BLAUWERT HEX2DECN  4  3 T  C  C   0123456789ABCDEFabcdef     BC 0x   U  TCHEX  4  
 T    %   9  T C   @0_   T CC   @0_ %C \ 0   T CC C 0   \>   T CCC   @0_>  T 
   A T C C   @0_ 	 B  U  LIDECNUMBER LSHEXNUMBER LILENGTH NOTAT	 LSTEMPHEX 4     T - T -
 T   T C >
 T   + 
  
	  T   T C  \ %     T   %    T a   %    T a  	 B  U	  LSNOTSTRING LSSEARCHSTRING LIOCCURRENCE LLFOUND
 LLENDOFSTRING	 LNCOUNTER LNLENGTH LIOCCURCOUNT	 LSCOMPARE 4     %  
#  B  %  <  B  T  C  DELETE FILE "&msg"
 T C  
 T CC  
\g T	 C  
\ T
 CC  
\g T C  )
\ T CC  3
\g T
 C  =
\ T CC  G
\g T C  Z T C  Z T C  Z+ T C]C] \testumgebung.txt IF FILE("&hsxdat")> T C]C] \  \gehaltC \ .exe- msg1 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
 5 T C]C] \gehaltC \ .exe- msg1 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f. T  01.01.  , msg2 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f. T  01.01.  , msg3 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f. T  01.01.  M, msg4 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 
 T   
 T  
 T    %C d      
 T  T   Y  T   X  %C d   	   
 T  T   Y * T   X  %C d      k
 T  T   Y  T   X  %C d   
   
 T  T   Y  T   X  %   B-  Ba  U  X INTERNETZUGANG RETVAL III GUPDATE UPD MSG MSG5 MSG6 MSG7 MSG8 MSG9 MSG10 MSG11 MSG12 XJAHR3 JAHR3 XJAHR4 JAHR4 XJAHR5 JAHR5 HSXDAT EIGDAT MSG2 MSG3 MSG4 M UPDATEX DATEDIFF MSG1#  4     BC    \ U  P1 P2 P3  4    BC   Q U  P1 P2  4   BC  f U  P1  4   BC  @ U  P1 4    T   	 T  CC  @ %Ct
N  T  0  %   nichtkrzen  B~ Bei "X" werden die Freibetrge fr Steuer und ZVK sowie die Beitragsbemessungsgrenzen im Verhltnis der Tagesangaben gekrzt.   %  	 pvkiabzug B} Pfegeversicherung: zustzlicher Abzug beim Arbeitsnehmeranteil bei mehr als 1 Kind jnger als 26J: 0,25% pro Kind bis max. 1% ! %   tvdmehrstdhilfeT BK ab 2026, TVD freiw. Mehrarbeit, Erklrungstext und Einstellhilfe anzeigen. 
 H#    z0 Bx (n01) Bestimmt, welche der gespeicherten Berechnungen angezeigt werden soll. Ermglicht das Hinzufgen einer Berechnung.     z1
 C  >	
 HR C 
 C  C 	 C  C $	 Bف Im benachbarten Datumsfeld knnen Sie den Beginn der Stufenlaufzeit fr die Bestimmung der Grundgehaltsstufe in Zeile 8 eingeben.C C  C 	 C  C  B Keine Auswahlbox.D C 
 C 	 C  C 	} Bt Ausgehend vom benachbarten Datum wird die Entgeltstufe in Programmzeile 8 bei durchschnittlicher Leistung berechnet.% C  C 	 Bً ndert die Bezeichnung des Datums im benachbarten Datumsfeld. Das Datum dient nur der Information und wird bei keiner Berechnung verwendet. 2	 B        z2
 C  >	X Bك Stellt nachfolgende Zeilen mit landesspezifischen Funktionen (Tariftabelle, Krankenkasse, Kirchensteuersatz u.a.) entsprechend ein.     z3
 C  >		
 H[b C  C 	 C  C 	 C $ C %c C   C 	 C  C 	 C  C #	J 2[	 B   
 Hl	% C   C 	 o Bf Bestimmt die Hhe der familienbezogenen Anteile im Familienzuschlag in Zeile 10, insbes. bei Teilzeit. CC 	k Bb Bestimmt die Hhe der familienbezogenen Anteile im Ortszuschlag in Zeile 10, insbes. bei Teilzeit.% C 
 C 	1	 B -<  Monate = Stufenverkrzung bei berdurchschnittl. Leistung;  +5  Monate = Stufenverlngerung bei schlechter Leistung.% C  C 		i B` Beschftigungsdienststelle. 1. Zeile der Auswahlbox editierbar nach Klick mit rechter Maustaste. 2		 B        z4
 C  >	
 %C 
{
r Bi Whlt die Art des Dienstverhltnisses und fllt die nachfolgenden Zeilen mit den entsprechenden Vorgaben. 
x Bo FEHLANZEIGE = Das fr diesen Personalfall bisher gewhlte Dienstverhltnis wird ab 2013 nicht mehr untersttzt.      z5
 C  >	&

 H,"
p C  C  C  C  C 	 C $ C %	 B  % C   C 	"X BO Whlt die Besoldungsgruppe aus und schlgt in Zeile 5 eine Amtsbezeichnung vor.% C 
 C 	W BN Whlt die Entgeltgruppe aus und schlgt in Zeile 5 eine Dienstbezeichnung vor. CC 	
Z BQ Whlt die Vergtungsgruppe aus und schlgt in Zeile 5 eine Dienstbezeichnung vor. 2"
	 B        z6
 C  >	
} Bt (n05) Listet die Dienstbezeichnungen zur Auswahl auf. Die Auswahl hat derzeit noch keine Wirkung auf die Berechnung.     z7
 C  >	
 H
% C   C 		_J BA Legt die Altersstufe fest, unabhngig von der Vorgabe in Zeile 6.% C 
 C 	K BB Legt die Entgeltstufe fest, unabhngig von der Vorgabe in Zeile 6. CC 	 B   2	 B        z8
 C  >	
 H3% C   C 	h B_ Bestimmt den Familienzuschlag aufgrund der Familienverhltnisse und der Einstellung in Zeile 7. CC 		 B  % C 
 C 	{t Bk Zeigt den besitzstandsgesicherten Ortszuschlag aus der TVD-berleitung an. nderung nur in den Stammdaten. 2	 B        z9
 C  >	
 HD C   C 	 C  C 	po Bf a9. Wechselt zwischen der Vorgabe des Betrags durch das Programm und der manuellen Eingabemglichkeit. 2	 B   !    z10
 C  >	) B  a12. Whlt die Hhe der VWL aus.!    z11
 C  >	x
 HtC C   C 	 C  C 	e B\ a11. Leistungsbelohnung durch vorzeitigen Aufstieg in den Altersstufen - oder das Gegenteil.% C 
 C 	L BC a11. Fr prozentual oder betragsmig festgelegte Leistungszulagen.D C  C 	 C  C 	c	 B   2t	 B   !    z12
 C  >	J B (n13)8  Bei der Auswahl der Zulagen hilft ein Zulagenassistent.!    z13
 C  >	NJ B (n14)8  Bei der Auswahl der Zulagen hilft ein Zulagenassistent.!    z14
 C  >	J B (n15)8  Bei der Auswahl der Zulagen hilft ein Zulagenassistent.!    z15
 C  >	o Bٌ Verwenden Sie zur Berechnung der Mehrarbeitsvergtung und der Zeitzuschlge den Assistenten A oder B (z.B. A fr Angestellte, B fr Beamte).!    z16
 C  >	% Bٌ Verwenden Sie zur Berechnung der Mehrarbeitsvergtung und der Zeitzuschlge den Assistenten A oder B (z.B. A fr Angestellte, B fr Beamte).!    z17
 C  >	]
 HSYD C   C 		 C  C %	b BY Wechselt zwischen manuellen Eingabe des Urlaubsgelds und Einsteuerung durch das Programm.% C 
 C 	H* B! Im TVD gibt es kein Urlaubsgeld. 2Y	 B   !    z19
 C  >	%
 H!% C 
 C 	# B (n20) Fr Einmalzahlungen.4 C   C 		 C 	 B   2!	 B   !    z20
 C  >	R BI Der Monat ergibt sich aus der Einstellung in der Schaltflche "Zeitraum".!    z21
 C  >	
 H% C   C 	La BX Lt die Einstellung der Teilzeit nach Stunden, Prozentstzen und sonstigen Anteilen zu. C u Bl  Bei "Ruhegehalt" wird der Betrag in Zeile 23 bei der Berechnung der Steuern als Versorgungsbezug behandelt. 2	 B   !    z22
 C  >	{ Br Schaltet zur Berechnung des Altersteilzeitgehalts um. Ermglicht auf Pos. 2 die Berechnung gekrzter Ruhegehlter.!    z23
 C  >	m Bd Einstellungen "Freibetrag", "Zurechnungsbetrag", "Versorgungsbezge" fr die Berechnung der Steuern.!    z24
 C  >	N BE (n25) Die Sachbezge werden in die Berechnung der Abzge einbezogen. !    z25
 C  >	=
 H9 C  +d B[ Gesamtumlagesatz = AG-Anteil + AN-Anteil   o h n e   steuerfreien Sanierungszuschu des AG. C  Bـ Berechnet die Umlage zur Pensionskasse fr Beamte und weist diese bei den Arbeitgeberaufwendungen aus. Sonst keine Auswirkungen. C l Bم Umlage des AG an kapitalgedeckten ATV-Pensionsfonds bis 4 % des Entgelts steuer- und sv-beitragsfrei, Ausweisung nur beim AG-Aufwand. C Z BQ Manuelle Eingabe des Versorgungsaufwands. Er wird nur als AG-Aufwand ausgewiesen. C  Bٗ Bei Beamten ist Mastab fr die Versorgungsumlage die Besoldung im Juli. Formel: 12 * (Grundgehalt + Familienzuschlag + Allg. Zulage) * Teilzeitfaktor  C ( Bz Auswahl der Zusatzversorgungskasse. Die hinterlegten Umlagestze knnen nur unter VORGABEN / VBL-ZVK-ATV verndert werden. 29	 B   !    z26
 C  >	 Bف Vom Beschftigten allein zu tragende SV-Beitrge. Die SV-Beitrge in Zeile 37 und 38 werden je zur Hlfte von AG und AN getragen.!    z27
 C  >	  Bُ (n28) Weist dem Bediensteten eine Kostenstelle zu. Dies ermglicht mit nebenstehendem Icon eine nach Kostenstellen gegliederte Kostenbersicht.!    z28
 C  >	 9 B0 Whlt das Bekenntnis fr den Lohnsteuernachweis.!    z29
 C  >	! Bً Erforderlich bei mehreren Arbeitsverhltnissen fr die Berechnung der SV-Beitrge in der Gleitzone und fr die Versteuerung der ZVK-Umlage.!    z30
 C  >	+"Z BQ Schaltet den Lohnsteuer-Jahresausgleich des Arbeitgebers im Dezember ein und aus.    z31"Q BH Schaltet den Altersfreibetrag fr die Lohnsteuerberechnung ein bzw. aus.    z32"6 B- Voreinstellung fr die Berechnung der Abzge.    z34/#A B8 Angabe der Kinderzahl, fr die Kindergeld zu zahlen ist.    z35{#8 B/ Ermglicht die Umstellung auf manuelle Eingabe.    z36#8 B/ Ermglicht die Umstellung auf manuelle Eingabe.    z38$: B1 Legt die Art der Berechnung des PV-Beitrags fest.    z39c$: B1 Legt die Art der Berechnung des RV-Beitrags fest.    z40$: B1 Legt die Art der Berechnung des AV-Beitrags fest.    z41(%c BZ Legt den vom AN zu tragenden Anteil an der ATV-Umlage (U) bzw. am Kapitalbeitrag (K) fest.    z42%{ Br (n44) Whlt unter den Bezeichnungen fr den Einbehalt aus. Ab Pos. 25 erfolgt pauschale Versteuerung durch den AG.    z43F&{ Br (n45) Whlt unter den Bezeichnungen fr den Einbehalt aus. Ab Pos. 25 erfolgt pauschale Versteuerung durch den AG.    z44&{ Br (n46) Whlt unter den Bezeichnungen fr den Einbehalt aus. Ab Pos. 25 erfolgt pauschale Versteuerung durch den AG.    z45`'w Bn Bei "AUSZAHLUNG" werden die Betrge in den Feldern 43 bis 46 in die Summe einbezogen, bei "NETTOGEHALT" nicht.    z46'Q BH Whlt eine Krankenkassen und gibt deren KV-Beitragssatz in Zeile 37 vor.    kgberechnungE(c BZ LINKE MT = Berechnung des Krankengeldes.  RECHTE MT = Brechnung des Krankengeldzuschusses.   
 dienstunfhig(M BD LINKE MT = Berechnung des Zuschusses bei begrenzter Dienstfhigkeit.    z47n) B١ (n26) Bis zum eingegebenen Betrag bleibt das Bruttogehalt von allen Abzgen (ATV, SV, Steuern) verschont; z.B. bei nebenberufl. bungsleitern, Pflegekrften u..    z48* B| Legt einen Prozentsatz fest, um den die dem Programm hinterlegten Tabellen fr den betreffenden Bediensteten gekrzt werden. B    5.      z50*v Bm Whlt die Lohnsteuerklasse fr die Berechnung der Steuern in Zeile 34, 35, 36. A68 ffnet die Auswahl der KFB    z52*+o Bf Bestimmt die Art des KV-Beitragssatz der Kasse in Zeile 33. A74 ffnet die Auswahl des Beitragssatzes.: C  \ com C  \ 01234567890	+J B  hC * . ffnet die Hilfe zur Funktion der Zeile C  .    par0,W B  vC B . Damit beginnt der Export der Daten des Monatsgehalts nach Excel.    par1,R B  vC  . ffnet die fr Zeile C   anzuwendenden Vorschriften.    par2,\ B  vC G . Damit wird zum Bundes- bzw. Landesbeamtengesetz im Internet verlinkt.    par3Y-R B  vC  . ffnet die fr Zeile C   anzuwendenden Vorschriften.    par4E. %C 
-d B  vCC  \J . Damit wird zum Bundes- bzw. Landesbesoldungsgesetz im Internet verlinkt. A.R B  vC  . ffnet die fr Zeile C   anzuwendenden Vorschriften. 2 C  \ par CCCC  \g8	.R B  vC  . ffnet die fr Zeile C   anzuwendenden Vorschriften.9 C  \ lst C  \
 0123456789	s/q B  lCC  \W . " X " macht den Betrag steuerpflichtig, " - " stellt den Betrag von den Steuern frei.9 C  \ soz C  \
 0123456789	*0~ B  sCC  \d . " X " macht den Betrag Sozialversicherungspflichtig, " - " stellt den Betrag von den Steuern frei.9 C  \ zvk C  \
 0123456789	0f B  zCC  \L . "  X  " macht den Betrag ATV-umlagepflichtig, " - " stellt ihn davon frei.9 C  \ wei C  \
 0123456789	1 B  wCC  \o . " X " bezieht den Betrag in die Berechnung der einmaligen Zuwendung in Zeile 19 ein,  " - " schliet ihn aus.9 C  \ tei C  \
 0123456789	;2w B  tCC  \] . " X " krzt den Betrag fr das Teilzeitgehalt in Zeile 22, " - " lt den Betrag ungekrzt./ C  \ bru CC  	2| B  bCC  \ . \ " X " krzt den Betrag fr das Buchteilsgehalt in Zeile 23, " - " lt den Betrag ungekrzt.4    bru7 C  C 		3i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.4    bru8 C  C 		 4i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.4    bru9 C  C 		4i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.5    bru10 C  C 		[5i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.5    bru11 C  C 		D6 B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru12 C  C 		-7 B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru13 C  C 		8 B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru14 C  C 		8 B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru15 C  C 		9 B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru16 C  C 		: B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.5    bru17 C  C 		o;i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.5    bru18 C  C 		
<i B   CC  \ . I Unvernderliche Einstellung fr die Berechnung des Altersteilzeitgehalts.5    bru19 C  C 		< B   CC  \ . ٔ Bestimmt die Kategorie, nach der der Betrag in der Berechnung des Altersteilzeitgehalts behandelt wird. Ein Klick schaltet um eine Kategorie weiter.    lei7= B  lCC  \g . " L " kennzeichnet den Betrag, der auf die Stufenbewegung in Zeile 07 entfllt, als Leistungsentgelt.    lei11I> B  lCC  \ . " L " kennzeichnet den Betrag als Leistungsentgelt, " N " entfernt diese Eigenschaft. Aufsummierung in AG-Sicht und Kostenstellenbersicht.    lei12? B  lCC  \ . " L " kennzeichnet den Betrag als Leistungsentgelt, " N " entfernt diese Eigenschaft. Aufsummierung in AG-Sicht und Kostenstellenbersicht.    lei13? B  lCC  \ . " L " kennzeichnet den Betrag als Leistungsentgelt, " N " entfernt diese Eigenschaft. Aufsummierung in AG-Sicht und Kostenstellenbersicht.    lei14@ B  lCC  \ . " L " kennzeichnet den Betrag als Leistungsentgelt, " N " entfernt diese Eigenschaft. Aufsummierung in AG-Sicht und Kostenstellenbersicht.    lei19=A B  lCC  \ . " L " kennzeichnet den Betrag als Leistungsentgelt, " N " entfernt diese Eigenschaft. Aufsummierung in AG-Sicht und Kostenstellenbersicht.    egoA Bٞ   Bietet einen Link zur Entgeltordnung im Internet an. Wird der dort gefundene Fallgruppen-Schlssel eingegeben, werden dessen Merkmale im Programm umgesetzt.8 C  \ t C  \ 01234567890	IM %   	 	_B 
 	 B   h %CCCC  \g8 CCCC  \g8.
	2    t0
    t1
    t2
    t3D T CC  \S If myform1.T&hsin..MousePointer = 2 .Or. myform1.T&hsin..MousePointer = 12 C T ? Der Betrag wird vom Programm aufgrund der Einstellung in Zeile CC  \3  berechnet. Fr eine manuelle Eingabe ist in Zeile CC  \  "lt. Eingabe" einzustellen. Q If myform1.T&hsin..MousePointer = 3 .or. myform1.T&hsin..MousePointer = 0D T ـ Der Betrag ist manuell einzugeben, entweder mit der Tastatur oder mit dem Taschenrechner (aufrufbar mit Klick auf Whrungsfeld).   B  eCC  \ .   
 HEEM:    t0
    t1
    t2
    t3\E  B  e0CC  \       t5F B   Der Stundensatz stammt aus der Tariftabelle fr die in Zeile 5 eingestellte Gehaltsgruppe. Der Betrag kann unter "Tarife" allgemein gendert werden."    t15    t16F B  eCC  \ُ  Bitte benutzen Sie zur Eingabe der Mehrarbeitsvergtung und der Zeitzuschlge den Assistenten A oder B (z.B. A fr Angestellte, B fr Beamte).    t25rG Bx  e27. Prozentsatz der Umlage zur ATV-Betriebsrente (AG- und AN-Anteil zusammen). Einstellung unter ABZGE / VBL-ZVK-ATV.0    t42    t43    t44Hj B  eCC  \P . Der Betrag ist manuell einzugeben und zwar ein Einbehalt als negativer Betrag.    t45H` B  eCC  \F . Der Betrag wird vom Programm berechnet nach der Vorgabe in Zeile 47.    t46H	 B      t47H	 B      t48H	 B      t49H	 B      t50I Bف  e27. Prozentsatz des Kapitalbeitrags zur ATV-Betriebstente (AG- und AN-Anteil zusammen). Einstellung unter ABZGE / VBL-ZVK-ATV.    t51$J~ Bu   4. Prozentsatz, um den die aus Tabellen entnommenen Werte verndert werden; lt-Eingabe-Betrge bleiben unverndert!    t52AJ	 B      t53J B -<  Monate = Stufenverkrzung bei berdurchschnittl. Leistung;  +5  Monate = Stufenverlngerung bei schlechter Leistung.    t54J	 B      t55K	 B      t564K	 B      t57K B~ Faktor fr die Verteilung der Steuern auf die beiden Ehegatten bei Steuerklasse IV. Faktorberechnung auf www.abgabenrechner.de    t58eL By Nachrichtlich: Steuerlich abzugsfhiger Anteil am Beitrag zur privaten Krankenversicherung (als positive Zahl einzugeben)    t59L Bx Nachrichtlich: Steuerlich abzugsfhiger Anteil am Beitrag zur privaten Pflegeversicherung (als positive Zahl einzugeben)    t60M	 B      t614M	 B   2EM	 B       extra0M? B6 i00. Hilft beim Suchen in der Namensliste der Zeile 1.    extra1NL BC i06. Assistent fr die Berechnung der Lebensaltersstufe in Zeile 8.    extra3P
 H&NP% C   C 	NZ BQ i07. Zeigt wie sich Zeile 7 bei Teilzeitarbeit auf den Familienzuschlag auswirkt.R C  C 	 C  C 	 C $MOV BM i07. Zeigt wie sich Zeile 7 bei Teilzeitarbeit auf den Ortszuschlag auswirkt.% C ! C #	OF B= i07. Diese Zeile hat nur fr Beamte und Angestelle Bedeutung.% C 
 C 	P6 B- i07 Art der gegenwrtigen TVD-Eingruppierung% C  C 	oP7 B. i07 Fr dieses Dienstverhltnis ohne Bedeutung 2P	 B       extra4'Q Bك i02. Stellt den Datensatz ab dem eingestellten Monat auf die Voreinstellung zurck. Ergebnis siehe Schaltflche KONTROLLE Zeile 47.    extra5QT BK i03. Assistent fr die Bestimmung der Vergtungsgruppe von BAT-Angestellten    extra6Q8 B/ i01. Eingabemglichkeit fr weitere Stammdaten.    extra7+R3 B* i08. Zeigt die verwendete Tariftabelle an.    extra8T
 HORT% C   C 	RB B9 i10. Erlutert die Zusammensetzung des Familienzuschlags.a C  C 	 C  C 	 C $ C %US> B5 i10. Erlutert die Zusammensetzung des Ortszuschlags.% C ! C #	S@ B7 i10. Erlutert die Zusammensetzung des Sozialzuschlags.% C  C 	T8 B/ i10. Fr dieses Dienstverhltnis ohne Bedeutung% C 
 C 	T B{ i10. Zeigt die Betrge an, auf die der Besitzstandszuschlag zu reduzieren ist, wenn die Berechtigung fr ein Kind entfllt. 2T	 B       extra9AUU BL i09. Zeigt den Strukturausgleich an aus der berleitung vom BAT in den TVD.    extra11U< B3 i12. Erlutert die Berechnung der Leistungszulagen.    extra12V_ BV   8. Noch zum 1. Juli 2009 berzuleiten mit dem berleitungsrechner "BesG" in Zeile 5    extra15V Bً i16. Berechnet die Mehrarbeitsvergtung und die Zeitzuschlge und verwendet dazu die Vorgabewerte A (z.B. A fr Angestellte, B fr Beamte).    extra16dW Bً i17. Berechnet die Mehrarbeitsvergtung und die Zeitzuschlge und verwendet dazu die Vorgabewerte B (z.B. A fr Angestellte, B fr Beamte).    extra17X Bى i18. Anpassung von Besitzstnden aus der BAT-berleitung an das derzeitige Tarifniveau (z.B. indiv. Endstufen, Vergtungsgruppenzulagen).    extra18Y
 H3XY C 
X: B1 i19. Erlutert die Berechnung der Sonderzahlungen% C 
 C 	X? B6 i19. Erlutert die Berechnung der Jahressonderzahlung.C C  C %	 C  C 	oYF B= i19. Erlutert die Berechnung der jhrlichen Sonderzuwendung.% C  C 	Y	 B       extra19;Z By i20. Berechnung des mageblichen Dienstalters fr die Dienstjubilen. Mglichkeit fr die Darstellung der Berufslaufbahn.    extra20ZV BM i22. Zeigt den Teilzeitrechner und die Druckvorlage fr eine Monatsabrechnung    extra21Z: B1 i23. Zeigt die Aufgliederung des Teilzeitgehalts.    extra22N[; B2 23. Zeigt die Aufgliederung des Bruchteilsgehalts.    extra23[v Bm i21. Klicken Sie hier, um weitere Angaben fr die Berechnung der Lohnsteuer aus Versorgungsbezge einzugeben.    extra24c\o Bf 23. Hilft bei der Berechnung des Teilzeitfaktors bei nderung der Deputatstunden innerhalb des Monats.    extra25A] %C 
\N BE 27. Zeigt die Berechnung des Versorgungsaufwands des Dienstherrn an.  =]W BN 27. Zeigt die Berechnung der ATV-Umlage mit ihren Auswirkungen auf die Abzge.     extra27]V BM i28. Aufstellung der Personalkosten des Amtes, gegliedert nach Kostenstellen.    extra28&^_ BV i04. Derzeit nur Platzhalter. Knftig Assistent fr die neue TVD-/TV-L-Entgeltordnung    extra29^V BM F18. Einkommensteuergesetz mit EStR, LStR u.a. Steuervorschriften im Internet    extra30^C B: i31. Zeigt den Lohnsteuerjahresausgleich des Arbeitgebers.    extra33I_B B9 i34. Zeigt die Berechnung des steuerpflichtigen Entgelts.    extra34_m Bd F21. Damit kann das Programm auf den Zustand einer der drei letzten Sitzungen zurckversetzt werden.    extra35#`= B4 i35. Zeigt die Berechnung des Solidarittszuschlags.    extra36p`5 B, i36. Zeigt die Berechnung der Kirchensteuer.    extra37`U BL i38. Assistent zur Bestimmung der Versicherungspflicht von Geringverdienern.    extra38`    extra39UaH B? i39. Geplanter Assistent zur Berechnung der Rentenanwartschaft.    extra40aO BF i37. Zeigt die Berechnung des sozialversicherungspflichtigen Entgelts.    extra42b? B6 i43. Zeigt die Berechnung des ATZ-Aufstockungsbetrags.    extra43~bS BJ 45. Startet das Unterprogramm "Pfd" zur Berechnung des pfndbaren Betrags.    extra45bf B] i47. ffnet ein Fenster zur Berechnung eines Bruttobetrags zu einem vorgegebenen Nettobetrag.    extra46hcT BK i48. Zeigt eine Zusammenstellung der monatlichen Brutto- und Nettogehlter.    extra47cr Bi i49. Zeigt eine Zusammenstellung der monatlichen Brutto- und Nettogehlter sowie Arbeitgeberaufwendungen.    extra48\dR BI i50. Zeigt eine Zusammenstellung der monatlichen Arbeitgeberaufwendungen.    extra49dk Bb i51. Zeigt zur Kontrolle an, in welchen Monaten nderungen vorgenommen wurden bzw. wirksam wurden.    extra50e Bْ i52. Liste fr die berweisung aller Monatsgehlter mit Namen, Bankverbindung, Nettobetrag und Flligkeit. (Bankverb. aus Stammdaten Icon Zeile 6)    extra51#fy Bp 51. Kirchensteuersatz fr die Pauschalbesteuerung lt. Vorgabe unter ABZGE / KIRCHENSTEUER (z.B. fr ATV-Umlage)    extra52if. B% 52. Einen neuen Personalfall anlegen.    perscopyf* B! 53. Diesen Personalfall kopieren.    menkfzgL BC  startet Programmteil zur Berechnung von Sachbezug fr KFZ-Nutzung.    menkugigC B:  startet Programmteil zur Berechnung von Kurzarbeitergeld.    men0gt Bk  f21 bertrag des eingestellten Personalfalles in das Folgejahr (Stand Dezember in die folgenden 12 Monate)    men1XhQ BH  f02 Wechselt die Fenstergre zwischen der Originalgre und maximiert.    men2hx Bo  f15 Namen ordnen. Da neue Namen immer am Schlu angefgt werden, knnen Sie damit Ordnung in Zeile 1 schaffen.    men3?iE B<  f01 Zugang zur Userverwaltung und zum Administratorbereich.    men4iU BL   f19 Link ins Internet zum Abgabenrechner des Bundesministers der Finanzen.    men54jv Bm  f09 ffnet das Men fr den Seriendruck (fr einen Bediensteten alle Monate, ein Monat fr alle Bedienstete)    men6j Bى  f14 Ermglicht eine Voreinstellung fr die Neuanlage einer Berechnung, damit immer gleiche Einstellungen schon zu Anfang vorhanden sind.    men7FkV BM  f17 ffnet ein Fenster zur Berechnung des Beginns des Jubilumsdienstalters.    men8k Bw  f03 Ausdruck eines bereinigten Programmbildschirms. Fenstergre bitte verndern, wenn Druck nicht auf A4-Blatt passt.    men9jlz Bq  f04 Ausdruck eines bereinigten Programmbildschirms. Fenstergre verndern, wenn Druck nicht auf A4-Blatt passt.    men10lQ BH  f02 Wechselt die Fenstergre zwischen der Originalgre und maximiert.    men11%m> B5  f06 Ausdruck der Gehaltsberechnung brutto und netto.    men12mU BL  f07 Ausdruck der Gehaltsberechnung brutto und netto mit Arbeitgeberaufwand.    men13np Bg  f08 Ausdruck der Anlage zur Gehaltsberechnung mit detaillierter Darstellung der Berechnung der Abzge.    men14}nQ BH  f16 ffnet ein Fenster fr die Berechnung der Urlaubstage bei Teilzeit.    men15na BX  f13 Ermittelt den Unterschied zwischen Gehaltsberechnungen unterschiedlicher Zeitrume.    men16lob BY  f05 Ausdruck der Gehaltsberechnung mit dem Bruttogehalt und den Arbeitgeberaufwendungen.    men17o; B2  f12 Internet-Links zu Gesetzen und Service-Links.    men182p_ BV  f18 Bestimmung der SV-Pflicht bei mehreren geringfgigen Beschftigungsverhltnissen.    men20p Bv  f20 Fr Korrekturen eines Vormonats kann die automatische Berechnung der Folgemonate bis Dezember deaktiviert werden.    men21[q~ Bu  f10 ffnet und schliet einen Kalender. Zu jedem Personalfall knnen Markierungen und Kommentare gespeichert werden.    men22qC B:  f24 Entgeltbescheinigung nach  108GewO mit Druckvorschau    men23rA B8  f23 Arbeitszeiterfassung fr unregelmig Beschftigte.    men24Wr6 B- f11 ffnet und schliet einen Taschenrechner.   	 Abereich0r! B Auswahl des Bediensteten   	 Abereich1r+ B"   Merkmale des Dienstverhltnisses   	 Abereich2t
 Hrt% C   C 	Ms* B!   Hauptbestandteile der BesoldungC C 
 C 	 C $ C %s) B    Hauptbestandteile des EntgeltsC C  C 	 C  C  	&t* B!   Hauptbestandteile der Vergtung% C ! C #	rt' B   Hauptbestandteile des Lohnes 2t	 B      	 Abereich3tL BC   Bei der Auswahl der laufenden Zulagen hilft der Zulagenassistent.   	 Abereich4}uv Bm   Die Einstellungen in Zeilen 18 bis 20 gelten ausnahmsweise nur fr den Monat, in dem sie eingegeben werden.   	 Abereich5'v Bه Es werden immer 3 Bruttobetrge ausgewiesen Vollzeit-, Teilzeit- und Bruchteilsgehalt. Weitergerechnet wird mit dem Betrag in Zeile 23.   	 Abereich6v Bف   Auch im Bereich der Abzge fhrt jede Einstellungsnderung zu einer kompletten Neuberechnung vom lfd. Monat bis zum Jahresende.   	 Abereich7?wZ BQ   Kontrollieren Sie das steuerpflichtige Einkommen mit dem Lupe-Icon in Zeile 35.   	 Abereich8wh B_   Kontrollieren Sie das sozialversicherungspflichtige Entgelt mit dem Lupe-Icon in jeder Zeile.   	 Abereich9Cxh B_   Unter "Einbehalte" mindern negative Betrge das Nettoeinkommen, positive Betrge erhhen es.    
 Abereich10x^ BU   Ausgangswert fr die Berechnung der Zeile 47 ist immer der Betrag in Zeile 23.        
 Abereich11Ayj Ba   Vorschlag INFO = "Spielwiese", PLAN = Planungsbereich, REAL = tatschliche Gehaltsberechnungen.   
 Abereich12y Bِ   Alle Einstellungsnderungen gelten ab dem hier eingestellten Monat bis zum Jahresende. Ausnahme Zeile 18 - 20 gelten nur fr den betr. Monat.    	 bdabeginnvzg B^  06.  Basisdatum fr die Berechnung der Stufe in Zeile 8. Eingabe mit ENTER-Taste abschlieen!    kopier0{~ Bu   Kopiert von der Bearbeitungsebene INFO nach PLAN, und zwar immer den gesamten Personalfall von Januar bis Dezember.    kopier1{~ Bu   Kopiert von der Bearbeitungsebene PLAN nach REAL, und zwar immer den gesamten Personalfall von Januar bis Dezember.    kopier28|~ Bu   Kopiert von der Bearbeitungsebene PLAN nach INFO, und zwar immer den gesamten Personalfall von Januar bis Dezember.    kopier3|~ Bu   Kopiert von der Bearbeitungsebene REAL nach PLAN, und zwar immer den gesamten Personalfall von Januar bis Dezember.    kopier4t} Bم   Kopiert von der Bearbeitungsebene INFO nach REAL und lt PLAN unverndert. Kopiert wird der gesamte Personalfall von Jan. bis Dez.    kopier5~ Bم   Kopiert von der Bearbeitungsebene REAL nach INFO und lt PLAN unverndert. Kopiert wird der gesamte Personalfall von Jan. bis Dez.    year0~f B   j.  Ruft die entsprechende Berechnung des Jahres CC  Z  auf, falls vorhanden.    year1f B   j.  Ruft die entsprechende Berechnung des Jahres CC
  Z  auf, falls vorhanden.    year2f B   j.  Ruft die entsprechende Berechnung des Jahres CC  Z  auf, falls vorhanden.    year3
f B   j.  Ruft die entsprechende Berechnung des Jahres CC  Z  auf, falls vorhanden.    year4f B   j.  Ruft die entsprechende Berechnung des Jahres CC  Z  auf, falls vorhanden.    modi05 Bِ   INFO, PLAN und REAL sind voneinander vllig getrennte Speicherbereiche. Das Programm verfgt in jedem dieser Bereiche ber alle Funktionen.       modi1 Bِ   INFO, PLAN und REAL sind voneinander vllig getrennte Speicherbereiche. Das Programm verfgt in jedem dieser Bereiche ber alle Funktionen.       modi2 Bِ   INFO, PLAN und REAL sind voneinander vllig getrennte Speicherbereiche. Das Programm verfgt in jedem dieser Bereiche ber alle Funktionen.       mon12? Bٍ  m13 Ruft das Jahresgehalt auf. Da alle nderungen einem Monat zuzuordnen sind, knnen in diesem Zustand keine Einstellungen gendert werden.: C  \ mon C  \ 01234567890	ރe B  mCC  \#  Ruft die Berechnung fr den Monat CC  \       auf.    sr24 B  i25ُ  Schlsselfeld: 1. Stelle = Zahlungsart, 2. Stelle = Steuer, 3. Stelle = SV, 4. Stelle = ZVK, 4. Stelle = Pauschsteuer, 5. Stelle = AG-Aufwand.    sr47H B  i26ُ  Schlsselfeld: 1. Stelle = Zahlungsart, 2. Stelle = Steuer, 3. Stelle = SV, 4. Stelle = ZVK, 4. Stelle = Pauschsteuer, 5. Stelle = AG-Aufwand.    sr42 B  i42ُ  Schlsselfeld: 1. Stelle = Zahlungsart, 2. Stelle = Steuer, 3. Stelle = SV, 4. Stelle = ZVK, 4. Stelle = Pauschsteuer, 5. Stelle = AG-Aufwand.    sr43 B  i43ُ  Schlsselfeld: 1. Stelle = Zahlungsart, 2. Stelle = Steuer, 3. Stelle = SV, 4. Stelle = ZVK, 4. Stelle = Pauschsteuer, 5. Stelle = AG-Aufwand.    sr44g B  i44ُ  Schlsselfeld: 1. Stelle = Zahlungsart, 2. Stelle = Steuer, 3. Stelle = SV, 4. Stelle = ZVK, 4. Stelle = Pauschsteuer, 5. Stelle = AG-Aufwand.   	 checknr63K B Die Steuerfreibetrag ist abzuwhlen, wenn der Freibetrag nach  3 Nr. 63 EStG nicht fr den ZVK-Beitragsanteil des Beschftigten sondern fr eine Entgeltumwandlung (Riestervertrag) gelten soll.    tvdǈh B_     ffnet die Entgeltordnung im Internet direkt bei der Fallgruppe mit der angegebenen Nummer.    soldatDf B]  05 Bei aktivierter Checkbox werden die fr Soldaten festgelegten Stufenlaufzeiten verwendet.   	 sspanel10Ɖh B[   Der Anteil der Steuern (Lohnsteuer, Soli und Kirchensteuer) am Bruttogehalt in Zeile 23:     	 sspanel11Ee BX   Anteil der Sozialversicherungsbeitrge (Zeile 38 bis 41) am Bruttogehalt in Zeile 23:     	 sspanel12 Bف   Anteil des Nettogehalts am Bruttogehalt in Zeile 23 dar. Die Betrge in den Zeilen 42 bis 46 werden dabei nicht bercksichtigt.: C  \ dem C  \ 01234567890	 %CCC  \g0
 T CC  \, beitragwort = myform1.com&hsdem..Caption
 %CCC  \g T  25  T      .  %CCC  \go Bى    %-Satz des Sanierungsgeldes. Es ist allein vom Arbeitgeber aufzubringen. Das ZVK-pfl. Entgelt dient lediglich als Bemessungsgrundlage. C If .Not. myform1.dem&hsdem..disabledBackColor = QBColor(15)1{ B n Graues Whrungsfeld. Der Betrag im Betragsfeld kann mit der Tastatur oder dem Taschenrechner verndert werden. y B l Weies Whrungsfeld. Der Betrag im Betragsfeld wurde vom Programm errechnet und kann nicht verndert werden.   %CCC  \g2{ Bٚ  43. U = Umlageanteil aus versteuertem und verbeitragtem Gehalt, K = Anteil am Kapitalbeitrag = steuer- und SV-beitragsfrei. Siehe unter DATEN/VBL-ZVK-ATV 	 B        mietstufez8: B1 Mietstufe einstellen fr Orts- /Familienzuschlag.     gemeindeauswahlJ@ B7 Liste zur Auswahl der Mietstufe der gesuchten Gemeinde.    check1 Bم Schaltet die verminderten Freibetrge fr 2022 ein/aus und berechnet die Lohnsteuer neu. Einige Programmteile sind solange gesperrt!!    sonderzuschlag
 H C œ
 H=   Bٙ HH: Besoldungsergnzungszuschuss (BEZ) ist anwendbar. Anz.Kinder/Grenzwert-Familien-Einkommen: 1/39500, 2/47750, 3/56000, 4/64250, 5/72500, 6/80750   Bٙ HH: Besoldungsergnzungszuschuss (BEZ) ist anwendbar. Anz.Kinder/Grenzwert-Familien-Einkommen: 1/42500, 2/50750, 3/59750, 4/69000, 5/78250, 6/88000  Y Bٙ HH: Besoldungsergnzungszuschuss (BEZ) ist anwendbar. Anz.Kinder/Grenzwert-Familien-Einkommen: 1/42750, 2/52000, 3/61500, 4/71250, 5/80750, 6/90750  
 Bٙ HH: Besoldungsergnzungszuschuss (BEZ) ist anwendbar. Anz.Kinder/Grenzwert-Familien-Einkommen: 1/44750, 2/54500, 3/64250, 4/74250, 5/84500, 6/95000   Bٙ HH: Besoldungsergnzungszuschuss (BEZ) ist anwendbar. Anz.Kinder/Grenzwert-Familien-Einkommen: 1/44750, 2/54500, 3/64250, 4/74250, 5/84500, 6/95000  C !G B> M-V: Familienergnzungszuschlag (FEZ) nach 43a ist anwendbar. C 	r< B3 NS: Familienergnzungszuschlag (FEZ) ist anwendbar. C 
+ B" NRW: Sonderzuschlag ist anwendbar. C W BN RLP: Sonderzuschlag ist anwendbar, wird aber minimiert durch sonstige Zulagen. C p= B4 S-H: Familienergnzungszuschlag (FEZ) ist anwendbar. C k Bb Brandenb.: Familiensonderzuschlag (FSZ) ist anwendbar, wird aber minimiert durch sonstige Zulagen. C E@ B7 Bremen: Familienergnzungszuschlag (FEZ) ist anwendbar. C B B9 Berlin: ergnzender Familienzuschlag (EFZ) ist anwendbar. 2< B3 KEIN zustzlicher kinderbezogener Familienzuschlag.    	 inprozenteg B^ Zeigt den verwendeten Prozentwert zur Grundtabelle an. Ruft die Einstellmaske durch klick auf.    buttbwlaufzeit Bx ab 11/2022 neue Laufzeiten und Hhergruppierungen. Whlen Sie aus, welche Bedingung am 30.11.2022 oder 01.12.2022 zutraf 2	 B    U  P1 P2 MYFORM1 TIP LEFT ZI MSG DIMEN DIMPW3 MODUS REALTIPTEXT HSIN JAHR1 JAHR2 JAHR3 JAHR4 JAHR5
 GETMONATSNAME WELCHESJAHRC HSDEM BEITRAGWORT WELCHESJAHR>  4    T   d T C  T
 B d U  BETRAGZUMRUNDEN DEZISTELLEN HSSX 4   % x \ CE Das Jahresgehalt kann nur durch nderung von Monaten gendert werden.  Sorryx B  %C  
 H   CC 
 
 H  (   
      	  B    %    d
	" B  %    	P   B 
 Ha   3 %C  C 	 C 	 B    3 %C  C 	 C 	 B    ' %C # B    5
 HE4 C/   C/  	 C/ "  KVC/  B  
 H C  1 T	 
    B    %C  T	 
    B    %   C 	v$ %C  C 
	r T	 
    B   T	 
   ' %     
   
 T
   T	 
      B 
 T   
 T    %  
 T   B  %  4  % O CB Stellen Sie zuerst den Monat ein, ab dem die nderung gelten soll.x B   T	 
     
 T      T	 
    T	 
     U  MYINDEX INDEXM ZI WIZARDJA DIMEN DIMPW3 MODUS REALTIPTEXT KV MYFORM1 KCOMBO VISIBLE FALSE MYINDEXE ZTI EXTRAAKTIVIEREN
 Z_GECLICKT	 TEXTINDEX	 LINKEMAUS TRUE ZLSCHEN ZAKTIVIEREN ZGRID 4   T a +a
 T   
 T   % 2  	 
 T n& T  Steuerklassenrechner-    B  % 7 
 T	   %	 "
  
       B 
 H  C   C
 (| C     wvw  T     T     C     wvw   + %  C
 	  
	v  C
 (! C     wvw  	 (? T  	   T  	   T  	    T    T    T    T    T    T    T    T  
  T    C     wvw   CC
    wvw  T C
   
 T 
 T   + %  C
 	  
	 B  %   % )
 H   t %C
 B<C< Die Einstellung in Zeile 41 ist mit Zeile 28 fest verknpft.C
 B Bitte stellen Sie die Vorgaben fr die ZVK in Zeile 28 korrekt einC
 5 und zwar in der Menzeile unter Vorgaben/VBL,ZVK,ATV.C
  oder whlen Sie die Option  "lt.Eingabe" . Sorry, die gewhlte Auswahl ist nicht mglich.x p T
 *  T *     T
 *   d   T
 *   T
 *   T
 *  
 T
    %! 	" %CC
 

	+ %CC
   T"  10%
 T# 
  T"  25%
 T#  5 T$ / 1 Std. freiw. Mehrarbeit TVD " 5 T$ 0 2 Std. freiw. Mehrarbeit TVD " 5 T$ 1 3 Std. freiw. Mehrarbeit TVD " 5 T% / 1 Std. freiw. Mehrarbeit TVD " 5 T% 0 2 Std. freiw. Mehrarbeit TVD " 5 T% 1 3 Std. freiw. Mehrarbeit TVD " 5 T& / 1 Std. freiw. Mehrarbeit TVD " 5 T& 0 2 Std. freiw. Mehrarbeit TVD " 5 T& 1 3 Std. freiw. Mehrarbeit TVD "  %C *+,	  %CC 
 ./0	= T'   022CCC( ) * f U	  300  4006 T +  C  ' ' T, - C 
 C  '  C .    wvw  T/ CC  Z+ myform1.SR&xxx..Caption = Schlsse(zti)

 T0  
 T1   T2 C  '       %3 
 B 
 H,
6   
  %4 
 C
 	
 5  T  5 T( 6 7 
 T8  B   
  
  %
 H
 .!
 ."}
  % z
 C/
  	y
X % CC/
 C
  9 (  CC/
 C
  9 n u
C; Der KV-Beitrag ergibt sich aus der Einstellung in Zeile 34.C
 - Sie knnen der Krankenkasse in Zeile 34 unterC
 " DATEN/KRANKENVERSICHERUNGSBEITRGEC
 $ einen anderen Beitragssatz zuordnen.C
 C
 
 Ausnahmen:C
  1. Wenn Sie in Zeile 34C
 0     36. KV-BEITRAG LT. EINGABE ausgewhlt haben,C
 8     kann der Beitragssatz in Zeile 38 zugeordnet werden.C
 6 2. Umschaltung auf AG-Zuschu ist in Zeile 38 mglich. % Kankenversicherungsbeitrge verndernx B   C.!#  % z
 C/
  	X % CC/
 C
  9 (  CC/
 C
  9 
      -6 :   %C
 ;  T - T< a ! +ap %4 
 ; 	 T< a !  T< -  T; ; 8 T= ; 
 Personalfall CCC;  Z
 T>  
 T ; 
 T.  ? 
 T >  @  A 
 TB   C  T a !  %< a !   % a T - .  !   D 
 HD C
   C
 	 C
 
 C
 &	$ %C
  C
   %  C
 

	
 T 
 T   T
   T
  T
  T
   T
 	  T
 
  D    CC
 	  UE  HSZCLICK HSNEUERNAME I INDEX1 ZTI INET MSG WELCHESJAHRC INSINTERNET J KASSEDRUCKENVORSPANN BUNDESKNAPPSCHAFTVORSPANN III ZI MYGET FILENEU WVW SPARTE ENTGELTCODE MYPUT WEI TRUE TEI BRU LST SOZ ZVK FALSE INDEXM
 MONAKTIVIEREN WERT ZVKHALB ZVKKAPITALAN WELCHESJAHR HSZUSATZMEHRARBEIT MEHRARBPROZ ZT42 ZT43 ZT44 SCHLSSE MYFORM1 DEM50 CAPTION SCHLSS VOREIN VOREINBEHALT MONAT XXX	 LASTCLICK LSCHL LASTSCHL JAHRESSPERRE REGISTRIERT MEHRALSFNF
 TDBNUMBER1 VALUE SPIN1 GETKVBEITRAG KEINNETTOGEHALT
 SATZANZAHL KEINSATZ ZT0
 FILENEUALT	 NEUERSATZ DIMENAUS WVWIN MYINDEXE MONATSTAFEL ZGRIDAKTIVIERENm 4    %Ct (  T  C$  %CtJ 
 T   
 H[   C xb D  T  CC   H Z C xb N  T  C    Z  T  C  
 H f    0  B Januar    1 B Februar    2;
 B Mrz    3[ B April    4y B Mai    5
 B Juni    6
 B Juli    7 B August    8 B	 September    9 B Oktober    10B B November    11f B Dezember  U  X YYQ 4    %Ct (  T  C$  %CtJ 
 T   
 H[   C xb D  T  CC  H Z C xb N  T  C    Z  T  C  
 H J    0 
 B Jan.    1
 B Feb.    22
 B Mr.    3Q
 B Apr.    4o B Mai    5
 B Jun.    6
 B Jul.    7
 B Aug.    8
 B Sep.    9

 B Okt.    10*
 B Nov.    11J
 B Dez.  U  X YY  4   BC     U  HSMONNR GETMONATSNAMESHORT  4  
 H    4  B Montag   V  B Dienstag   x  B Mittwoch     B
 Donnerstag     B Freitag     B Samstag     B Sonntag 2 B	 Tagesname  U  HSDAYNR 4    ! %C
 hsxstartdatumb CM  T C # T  C c  T  D 
 Ht     d  T C  7 T C \ .C \ .C \  BC  D
     6    mn T CC  Î7 T C \ .C \ .C \! BC  D C    6    y! T CCC i C HC %$7 T C \ .C \ .C \2 T C  D CC i C HC %$  6	 B   U  HSXINTERVALL	 HSXANZAHL
 HSXSTARTDATUM HSRETURNTYPE	 HSXSTART1 HSXSTARTC> Das Programm rechnet die fr Januar bertragenen PersonaldatenC
 . mit den neuen Tariftabelle bis Dezember durch.C
 ? Pro Personalfall sind also 36 Gehaltsberechnungen durchzufhrenC
 & (Jan. bis Dez je fr INFO, PLAN, REAL)C
 ! Es kann deshalb sehr lange dauernC
 # Der Vorgang ist erst abgeschlossen,C
  wenn das Programm ins Jahr CC   Z	  wechseltC
  Sie starten den Vorgang mit OK. , Beachten Sie den Fortschritt in der Fuzeilex U  WELCHESJAHR 4     %C  D3  T C #  %C  D[  T C # 
 Hl      d 
 B      m 7 T C iC HC iC H	 B     y  BC iC i  U  HSXINTERVALL HSXDATE2 HSXDATE1 XMONTH 4     %C  D3  T C #  %C  D[  T C # 
 Hl      d 
 B      m 7 T C iC HC iC H	 B     y  BC iC i  U  HSXINTERVALL HSXDATE2 HSXDATE1 XMONTH  4  	 B   U  TABBY J (    J (    J (    J (    J (    J (    J (    J (    J  (  	  J  (  
  J (   J ( 
  J (   J (   J (   J (   J  (   J  ( 
  J  (   J (   J (   J (   J (   J (   J (   J (   J (   J (   J (   J (   J (    J ( !  J ( "  J ( #  J ( $  J ( %  J ( &  J ( '  J ( (  J ( )  J ( *  J ( +  J ( ,  J ( -  J-( .  J ( /  J ( 0  J  ( 1  J  ( 2  J ( 3  J ( 4  J  (5 6  J  (7 8  J  (7 9  J  (: ;  J  (< 8  J  (< 9  J (< =  J (> ?  J (@ A  J (@ B  J (@ C  J  (@ D  J (E F  J  (G H  J-(G I  J-(G J  J-(G K  J (G L  J (G M  J (G N  J (G O  J (G P  J (G A  J (G B  J (G C  J (G D  J (Q R  J (Q S  J (Q T  J (Q U  J (Q V  J (Q W  J (Q X  J (Q Y  J (Q Z  J (Q [  J (Q \  J (Q ]  J (Q ^  J  (_ `  J (_ a  J (_ b  J  (_ c  J (d e  J  (f g  J (h i  J (j k  J (l m  J (n o  J (n p  J (n q  J  (n r  J (n s  J  (n t  J  (n u  J (n v  J (n w  J  (x c  J (x y  Uz  WVW ZNAM TNAM TZNAM TBNAM EFFZ BRU LEI ZEST ZULAGEN SCHLSS WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV ATZAAA
 BUNDESBEAMTER SACHB	 TVDZEILE ZSSTUFE ZSBETRAG ZSOPTION ZSINDIV EMPLOYEE FELD VOREIN
 VORKASSEN1
 VORKASSEN2
 VORKASSEN3
 VORKASSEN4
 VORKASSEN5
 VORUMLAGE1 VORUMLAGE1AB
 VORUMLAGE2 VORUMLAGE2AB VORKVGRENZE VORPVGRENZE VORRVGRENZE VORAVGRENZE
 VORZVKBEMG	 VORGERING
 VORZVKUMLZ VORWEIHNACHTSGELD VORPROZENTE	 VORPFEILE VORFARBENRGB
 VORKINDERGELD VORSACHBEZUG VOREINBEHALT VORWOCHENSTUNDEN
 VORPENSION WOERTER TEXTEE BDA DATUM BESCHREIBUNG	 BELEHRTXT XTEXT JDADAT BOXEN ZUSCHLAG DSTUNDEN ZONE ZO SV JOB ARB PAUSCH	 DATVKISTR SOZVERS AG PRI STU LST LO MO UR WE ERG	 SONDERZAH SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZ13RESERVE SZTZ SZMASS URLAUBSBLATT DIMGENOMMENTEXT DIMGENOMMENTAGE DIMGENOMMENBASIS
 DIMURLAUBSTAG SOZA VORSOZA KOMMTAR KOMMTR MNET MNE MNET2 MNE2 LHNER VONBIS EDZ XBESOLDUNGSGRUPPE XBEFRDERUNG	 XINDSTUFE
 XVORZEITEN XPROZENT XVON XBIS XKRZER XLNGER KALENDER DIMFARBE4  4   & RETURN copyfolder("&sdir","&tdir")
 U  SDIR TDIR'  4   return DIRECTORY("&sdir")
 U  SDIR   Q STRING Q STRING/  Q OBJECT Q BOOLEAN Q BOOLEAN T -! IF DIRECTORY("&vSrcDir") r, IF DIRECTORY(JUSTDRIVE("&vTgtDir")) n- vSrcDir    = JUSTPATH(ADDBS("&vSrcDir")) 
- vTgtDir    = JUSTPATH(ADDBS("&vTgtDir")) 
 T a* T C Scripting.FileSystemObjectN9 oFSO.CopyFolder("&vSrcDir", "&vTgtDir", llOverwrite) 
  
 T    < ! IF DIRECTORY("&vTgtDir")  T a 	 B  U  VSRCDIR VTGTDIR OFSO LLOVERWRITE LLRETURN   Q STRING Q STRING   Q OBJECT Q BOOLEAN T -! IF DIRECTORY("&vSrcDir") H IF DIRECTORY(JUSTDRIVE("&vTgtDir"))  AND !DIRECTORY("&vTgtDir") - vSrcDir    = JUSTPATH(ADDBS("&vSrcDir")) 
- vTgtDir    = JUSTPATH(ADDBS("&vTgtDir")) 
* T C Scripting.FileSystemObjectN, oFSO.MoveFolder("&vSrcDir", "&vTgtDir") 
! IF DIRECTORY("&vTgtDir")  T a   
 T    < 	 B  U  VSRCDIR VTGTDIR OFSO LLRETURNP   Q STRING/  Q OBJECT Q BOOLEAN Q BOOLEAN T a! IF DIRECTORY("&vTgtDir")  - vTgtDir    = JUSTPATH(ADDBS("&vTgtDir")) 
 T a* T C Scripting.FileSystemObjectN. oFSO.DeleteFolder("&vTgtDir", llForceDel) 
 
 T    < ! IF DIRECTORY("&vTgtDir") @ T - 	 B  U  VTGTDIR OFSO LLRETURN
 LLFORCEDEL  4   %Ct &  T  CC$i ; %C  G ! C  dG  C  G 	o 
 Bn  
 Bm  U  HSJAHRD  4    %C   C/  T  C  #  BC   ) U  HSDATUM1
 HSSTARTOFWEEK 4    %Ct 5  T  C$
 T   %Ct  %C   Nx 
 T    T  C$  %C   D 
 T    %   B  CC  i  
 T   %  
5  (C   T  CC  i   B      ( o T  CC  i  
 B     U  HSDATUMX HSANZJAHREX
 DAYSOFYEAR	 HSANZDAYS HSA^  4   %Ct &  T  CC$i 1 BCCC 01.03.C   Z#% a -6 U  HSVJAHR  4   %Ct &  T  CC$i ! T C 01.01.C   Z#  (  %C )~ 	 B    T     U  HSVJAHR VDATE A.    Q DATE B
  C
  ) U  VDATE'    Q DATE BC
   U  VDATEe 4  ' 5           T	 C  /	   	  C  	   	  C  	   k	 ` C  l	   3	 A C  4	   	 " C  	   	   666666 T
 C  /	   	  C  	   	  C  	   k	 ` C  l	   3	 A C  4	   	 " C  	   	    666666 T C  G T C  G T C  G T C 	 G+ T C   
 G %  

q T C  8
 T   T C  	8
 T   %   	
 T  = %   	  	  	  
	
 T  . T C Z .C Z .C  Z T C #	 B  U  JAHRX TAG MONAT A B C D E STRDAT M N OSTERDATO  4   5 
 T    %CC i  9  Ba H  B-  U  BDATUM RDATUM OSTERN  4   5  
 T    T CC *\A %C )  C 15.11. #	  C 23.11. #
	~  Ba   B-  U  BDATUM RDATUM RJJy 4    5  
 T    %Ct
 HA  C  c 
 T  C  
 T  C  
 T   C  
 T   C  
 T   C 

 T   C /
 T   C Q
 T  C s
 T   C 	
 T   C 

 T  C 
 T  C 
 T  C 

 T   C ?
 T   C a
 T   C 
 T   2
 T    
 T   
 Hr C    Ba C   Ba C   Ba C ' / Ba C 1 K Ba C 2 g Ba7 C <       	 Ba  CC *\ 01.01 Ba+ CC *\ 06.01  	 Ba  CC *\ 01.05% Ba  CC *\ 03.06L Ba+ CC *\ 08.08  	~ Ba+ CC *\ 15.08  	 Ba  CC *\ 03.10 Ba7 CC *\ 01.11    	 Ba  CC *\ 25.12< Ba  CC *\ 26.12c Ba 2r B-  U  BDATUM BLAND RDATUM RLAND ZI ISOSTERN 4     %Ct ,  B I:0 V T  01.C  

  0CC   Z C   Z6 .CC  Z\ T C \ T C #
 T  T CC   %
 T  
 T   	 (  %	 

*  T
  0CC	  Z  M T
 CC	  Z   %CCCC
 #) Z  %CC
 # 
 T    T     . B I:CC  Z ;I:CC  Z U 	 HSXKUGMON
 HSXKUGJAHR
 HSXARBTAGE TDATE ENDRUMPF
 HSXMAXTAGE EOM	 HSXFEIERT HSXARBT HSAX TDATEC
 ISFEIERTAGo 4     %Ct ) 	 B   %C   NW  T  C   Z V T  01.C 

  0CC  Z C  Z6 .CC  Z\ T C \
 T    T CCC # %  ( Z< T	 C 

  0CC  Z
 CC  Z6 " T  CCC	 #) Z ,  BC    U
  HSXTAGESKENNUNG HSXMONAT HSXJAHR TDATE ENDRUMPF RUCKWERT LASTDAY EOM HSAX XTDATE(  4      BC    x U 	 HSMSGTEXT	 HSBOXTYPE
 HSBOXTITEL	 HSTIMEOUTb %C  >   
 T 
 b %  
 1-01-01-01-01S 
 T 
  %  
 1-01-02-02-01 
 T   %  
 1-01-02-03-01 
 T   %  
 1-01-02-04-01 
 T   %  
 1-01-02-04-02
 T   %  
 1-01-02-05-01>
 T   %  
 1-01-02-06-01m
 T   %  
 1-01-02-07-01
 T   %  
 1-01-02-08-01
 T   %  
 1-01-02-9a-01
 T   %  
 1-01-03-02-01)
 T   %  
 1-01-03-03-01X
 T   %  
 1-01-03-04-01
 T   %  
 1-01-03-04-02
 T   %  
 1-01-03-05-01
 T   %  
 1-01-03-05-02
 T   %  
 1-01-03-06-01C
 T   %  
 1-01-03-07-01r
 T   %  
 1-01-03-08-01
 T   %  
 1-01-03-9a-01
 T   %  
 1-01-03-9b-01
 T   %  
 1-01-03-9b-02.
 T   %  
 1-01-03-9c-01]
 T   %  
 1-01-03-10-01
 T   %  
 1-01-03-11-01
 T   %  
 1-01-03-12-01
 T   %  
 1-01-04-13-01
 T   %  
 1-01-04-13-02H
 T   %  
 1-01-04-14-01w
 T   %  
 1-01-04-14-02
 T   %  
 1-01-04-14-03
 T   %  
 1-01-04-15-01
 T   %  
 1-01-04-15-023
 T   %  
 1-01-04-15-03b
 T   %  
 1-02-01-05-01
 T   %  
 1-02-01-06-01
 T   %  
 1-02-01-06-02
 T   %  
 1-02-01-07-01
 T   %  
 1-02-01-07-02M
 T   %  
 1-02-01-9a-01|
 T   %  
 1-02-01-9a-02
 T   %  
 1-02-01-9a-03
 T   %  
 1-02-01-9b-01	
 T   %  
 1-02-02-06-018
 T   %  
 1-02-02-06-02g
 T   %  
 1-02-02-07-01
 T   %  
 1-02-02-08-01
 T   %  
 1-02-02-9a-01
 T   %  
 1-02-02-9b-01#	
 T   %  
 1-02-02-10-01R	
 T   %  
 1-02-02-10-02	
 T   %  
 1-02-02-11-01	
 T   %  
 1-02-02-11-02	
 T   %  
 1-02-02-12-01

 T   %  
 1-02-02-12-02=

 T   %  
 1-02-02-12-03l

 T   %  
 1-02-02-13-01

 T   %  
 1-02-02-13-02

 T   %  
 1-02-03-10-01

 T   %  
 1-02-03-11-01(
 T   %  
 1-02-03-11-02W
 T   %  
 1-02-03-12-01
 T   %  
 1-02-03-12-02
 T   %  
 1-02-03-13-01
 T   %  
 1-02-04-08-01
 T    %  
 1-02-04-9a-01B
 T    %  
 1-02-04-9a-02q
 T    %  
 1-02-04-9b-01
 T !  %  
 1-02-04-9b-02
 T !  %  
 1-02-04-9c-01
 T !  %  
 1-02-05-08-01-

 T "  %  
 1-02-05-9a-01\

 T "  %  
 1-02-05-9b-01

 T "  %  
 1-02-06-05-01

 T $  %  
 1-02-06-06-01

 T $  %  
 2-01-00-14-01
 T %  %  
 2-01-00-15-01G
 T %  %  
 2-02-01-14-01v
 T &  %  
 2-02-01-15-01
 T &  %  
 2-02-01-15-02
 T &  %  
 2-02-01-15-03
 T &  %  
 2-02-02-01-012
 T &  %  
 2-02-02-02-01a
 T &  %  
 2-03-00-03-01
 T '  %  
 2-03-00-04-01
 T '  %  
 2-03-00-05-01
 T '  %  
 2-03-00-06-01
 T '  %  
 2-03-00-07-01L
 T '  %  
 2-03-00-08-01{
 T '  %  
 2-03-00-08-02
 T '  %  
 2-03-00-9a-01
 T (  %  
 2-03-00-9b-01
 T (  %  
 2-04-00-05-017
 T )  %  
 2-04-00-06-01f
 T )  %  
 2-06-00-04-01
 T +  %  
 2-06-00-05-01
 T +  %  
 2-06-00-05-02
 T +  %  
 2-06-00-05-03"
 T +  %  
 2-06-00-06-01Q
 T +  %  
 2-06-00-06-02
 T +  %  
 2-06-00-08-01
 T ,  %  
 2-07-00-02-01
 T -  %  
 2-07-00-04-01

 T -  %  
 2-07-00-05-01<
 T -  %  
 2-08-00-05-01k
 T .  %  
 2-08-00-06-01
 T .  %  
 2-08-00-08-01
 T .  %  
 2-08-00-08-02
 T .  %  
 2-08-00-9a-01'
 T .  %  
 2-08-00-9a-02V
 T .  %  
 2-10-00-05-01
 T 1  %  
 2-10-00-06-01
 T 1  %  
 2-10-00-06-02
 T 1  %  
 2-10-00-08-01
 T 1  %  
 2-10-00-9a-01A
 T 1  %  
 2-10-00-9a-02p
 T 1  %  
 2-11-01-05-01
 T 3  %  
 2-11-01-06-01
 T 3  %  
 2-11-01-07-01
 T 4  %  
 2-11-01-07-02,
 T 4  %  
 2-11-01-08-01[
 T 4  %  
 2-11-01-08-02
 T 4  %  
 2-11-01-08-03
 T 4  %  
 2-11-01-08-04
 T 4  %  
 2-11-01-09-01
 T 5  %  
 2-11-01-09-02F
 T 5  %  
 2-11-01-9b-01u
 T 5  %  
 2-11-01-9c-01
 T 5  %  
 2-11-01-10-01
 T 5  %  
 2-11-01-11-01
 T 5  %  
 2-11-01-12-011
 T 5  %  
 2-11-02-09-01`
 T 9  %  
 2-11-02-10-01
 T 9  %  
 2-11-02-10-02
 T 9  %  
 2-11-02-11-01
 T :  %  
 2-11-02-11-02
 T :  %  
 2-11-02-12-01K
 T :  %  
 2-11-02-12-02z
 T :  %  
 2-11-02-13-01
 T :  %  
 2-11-02-14-01
 T :  %  
 2-11-02-14-02
 T :  %  
 2-11-02-15-016
 T :  %  
 2-11-02-16-01e
 T ;  %  
 2-11-02-13-02
 T ;  %  
 2-11-02-13-03
 T ;  %  
 2-11-02-14-03
 T ;  %  
 2-11-02-14-04!
 T ;  %  
 2-11-02-15-02P
 T ;  %  
 2-11-02-15-03
 T <  %  
 2-11-03-10-01
 T =  %  
 2-11-03-11-01
 T =  %  
 2-11-03-11-02
 T =  %  
 2-11-03-12-01;
 T =  %  
 2-11-03-12-02j
 T =  %  
 2-11-03-13-01
 T =  %  
 2-11-03-13-02
 T =  %  
 2-11-03-14-01
 T >  %  
 2-11-03-14-02&
 T >  %  
 2-11-03-15-01U
 T >  %  
 2-11-05-05-01
 T @  %  
 2-11-05-07-01
 T @  %  
 2-11-05-08-01
 T @  %  
 2-11-05-9a-01
 T @  %  
 2-11-05-9b-01@
 T @  %  
 2-11-06-05-01o
 T A  %  
 2-11-06-07-01
 T A  %  
 2-11-06-08-01
 T A  %  
 2-11-06-9a-01
 T A  %  
 2-11-06-9b-01+
 T A  %  
 2-11-07-05-01Z
 T B  %  
 2-11-07-07-01
 T B  %  
 2-11-07-08-01
 T B  %  
 2-11-07-9a-01
 T B  %  
 2-11-07-9b-01 
 T B  %  
 2-11-07-9b-02E 
 T C  %  
 2-11-08-05-01t 
 T D  %  
 2-11-08-07-01 
 T D  %  
 2-11-08-08-01 
 T D  %  
 2-11-08-9a-01!
 T D  %  
 2-11-08-9b-010!
 T D  %  
 2-11-08-9b-02_!
 T E  %  
 2-11-09-03-01!
 T F  %  
 2-11-09-05-01!
 T F  %  
 2-11-09-06-01!
 T F  %  
 2-11-10-07-01"
 T G  %  
 2-11-10-08-01J"
 T G  %  
 2-11-10-9a-01y"
 T G  %  
 2-11-10-9b-01"
 T G  %  
 2-11-10-9b-02"
 T H  %  
 2-11-13-05-01#
 T L  %  
 2-11-13-07-015#
 T L  %  
 2-11-13-08-01d#
 T L  %  
 2-11-13-9a-01#
 T L  %  
 2-11-13-9b-01#
 T L  %  
 2-11-13-9b-02#
 T M  %  
 2-11-15-07-01 $
 T O  %  
 2-11-15-08-01O$
 T O  %  
 2-11-15-9a-01~$
 T O  %  
 2-11-15-9b-01$
 T O  %  
 2-11-15-9b-02$
 T O  %  
 2-11-16-05-01%
 T Q  %  
 2-11-16-07-01:%
 T Q  %  
 2-11-16-08-01i%
 T Q  %  
 2-11-16-9a-01%
 T Q  %  
 2-11-16-9b-01%
 T Q  %  
 2-11-18-14-01%
 T S  %  
 2-11-19-06-01%&
 T T  %  
 2-11-19-07-01T&
 T T  %  
 2-11-19-08-01&
 T T  %  
 2-11-19-08-02&
 T T  %  
 2-11-19-9a-01&
 T T  %  
 2-11-19-9b-01'
 T T  %  
 2-11-20-9b-01?'
 T V  %  
 2-11-20-9c-01n'
 T V  %  
 2-11-20-10-01'
 T V  %  
 2-11-20-10-02'
 T V  %  
 2-11-20-11-01'
 T W  %  
 2-11-20-12-01*(
 T W  %  
 2-11-21-9c-01Y(
 T X  %  
 2-11-21-10-01(
 T X  %  
 2-11-21-11-01(
 T X  %  
 2-11-21-11-02(
 T X  %  
 2-11-21-12-01)
 T X  %  
 2-11-21-12-02D)
 T X  %  
 2-11-21-13-01s)
 T X  %  
 2-11-21-13-02)
 T Y  %  
 2-11-21-14-01)
 T Y  %  
 2-11-21-15-01 *
 T Y  %  
 2-12-00-07-01/*
 T Z  %  
 2-12-00-07-02^*
 T Z  %  
 2-12-00-08-01*
 T Z  %  
 2-12-00-9a-01*
 T Z  %  
 2-12-00-9a-02*
 T Z  %  
 2-12-00-9b-01+
 T Z  %  
 2-13-00-05-01I+
 T [  %  
 2-13-00-05-02x+
 T [  %  
 2-13-00-05-03+
 T [  %  
 2-13-00-05-04+
 T [  %  
 2-13-00-06-01,
 T [  %  
 2-13-00-06-024,
 T [  %  
 2-13-00-06-03c,
 T [  %  
 2-13-00-06-04,
 T \  %  
 2-13-00-06-05,
 T \  %  
 2-13-00-08-01,
 T \  %  
 2-13-00-08-02-
 T \  %  
 2-13-00-08-03N-
 T \  %  
 2-13-00-08-04}-
 T \  %  
 2-13-00-08-05-
 T \  %  
 2-13-00-9a-01-
 T ]  %  
 2-13-00-9a-02
.
 T ]  %  
 2-13-00-9a-039.
 T ]  %  
 2-13-00-9a-04h.
 T ]  %  
 2-13-00-9a-05.
 T ]  %  
 2-13-00-9a-06.
 T ]  %  
 2-13-00-9a-07.
 T ]  %  
 2-13-00-9b-01$/
 T ]  %  
 2-13-00-9b-02S/
 T ]  %  
 2-13-00-9b-03/
 T ]  %  
 2-13-00-10-01/
 T ^  %  
 2-13-00-10-02/
 T ^  %  
 2-14-01-07-010
 T `  %  
 2-14-01-08-01>0
 T `  %  
 2-14-01-9a-01m0
 T `  %  
 2-14-01-9b-010
 T a  %  
 2-14-01-9c-010
 T a  %  
 2-14-01-9c-020
 T a  %  
 2-14-01-10-01)1
 T a  %  
 2-14-01-10-02X1
 T a  %  
 2-14-01-11-011
 T a  %  
 2-14-01-11-021
 T a  %  
 2-14-01-11-031
 T a  %  
 2-14-01-12-012
 T b  %  
 2-14-01-12-02C2
 T b  %  
 2-15-00-04-01r2
 T f  %  
 2-15-00-05-012
 T g  %  
 2-15-00-06-012
 T g  %  
 2-15-00-06-022
 T g  %  
 2-15-00-07-01.3
 T g  %  
 2-15-00-08-01]3
 T g  %  
 2-15-00-08-023
 T h  %  
 2-15-00-9a-013
 T h  %  
 2-15-00-9b-013
 T h  %  
 2-15-00-9b-024
 T h  %  
 2-15-00-9b-03H4
 T h  %  
 2-15-00-10-01w4
 T i  %  
 2-15-00-10-024
 T i  %  
 2-15-00-10-034
 T i  %  
 2-15-00-11-015
 T i  %  
 2-15-00-11-0235
 T i  %  
 2-15-00-12-01b5
 T i  %  
 2-15-00-12-025
 T j  %  
 2-15-00-13-015
 T j  %  
 2-15-00-14-015
 T j  %  
 2-15-00-14-026
 T j  %  
 2-15-00-15-01M6
 T j  %  
 2-15-00-15-02|6
 T k  %  
 2-16-00-03-016
 T   %  
 2-16-00-05-016
 T   %  
 2-16-00-05-02	7
 T   %  
 2-16-00-06-0187
 T   %  
 2-16-00-08-01g7
 T   %  
 2-17-00-05-017
 T   %  
 2-17-00-06-017
 T   %  
 2-17-00-07-017
 T   %  
 2-17-00-08-01#8
 T   %  
 2-17-00-08-02R8
 T   %  
 2-17-00-08-038
 T   %  
 2-17-00-9a-018
 T   %  
 2-17-00-9a-028
 T   %  
 2-18-00-9a-019
 T   %  
 2-18-00-9b-01=9
 T   %  
 2-18-00-9b-02l9
 T   %  
 2-18-00-9b-039
 T   %  
 2-18-00-9c-019
 T   %  
 2-18-00-9c-029
 T   %  
 2-18-00-9c-03(:
 T   %  
 2-18-00-9c-04W:
 T   %  
 2-18-00-10-01:
 T   %  
 2-18-00-10-02:
 T   %  
 2-18-00-10-03:
 T   %  
 2-18-00-10-04;
 T   %  
 2-18-00-11-01B;
 T   %  
 2-18-00-11-02q;
 T   %  
 2-18-00-11-03;
 T   %  
 2-18-00-11-04;
 T   %  
 2-18-00-12-01;
 T   %  
 2-18-00-12-02-<
 T   %  
 2-18-00-12-03\<
 T   %  
 2-18-00-13-01<
 T   %  
 2-19-00-03-01<
 T   %  
 2-19-00-05-01<
 T   %  
 2-19-00-05-02=
 T   %  
 2-19-00-06-01G=
 T   %  
 2-20-00-9a-01v=
 T   %  
 2-20-00-9b-01=
 T   %  
 2-20-00-9c-01=
 T   %  
 2-20-00-10-01>
 T   %  
 2-20-00-10-022>
 T   %  
 2-20-00-10-03a>
 T   %  
 2-20-00-10-04>
 T   %  
 2-20-00-10-05>
 T   %  
 2-20-00-11-01>
 T   %  
 2-20-00-11-02?
 T   %  
 2-20-00-13-01L?
 T   %  
 2-20-00-13-02{?
 T   %  
 2-20-00-14-01?
 T   %  
 2-20-00-14-02?
 T   %  
 2-20-00-15-01@
 T   %  
 2-21-00-05-017@
 T   %  
 2-21-00-06-01f@
 T   %  
 2-21-00-07-01@
 T   %  
 2-21-00-08-01@
 T   %  
 2-21-00-9a-01@
 T   %  
 2-22-01-04-01"A
 T   %  
 2-22-01-06-01QA
 T   %  
 2-22-01-0N-01A
 T   %  
 2-22-01-9a-01A
 T   %  
 2-22-01-9b-01A
 T   %  
 2-22-01-9b-02
B
 T   %  
 2-22-01-9c-01<B
 T   %  
 2-22-01-9c-02kB
 T   %  
 2-22-01-10-01B
 T   %  
 2-22-02-10-01B
 T   %  
 2-22-02-11-01B
 T   %  
 2-22-02-11-02'C
 T   %  
 2-22-02-12-01VC
 T   %  
 2-22-02-12-02C
 T   %  
 2-22-02-13-01C
 T   %  
 2-23-00-05-01C
 T   %  
 2-23-00-06-01D
 T   %  
 2-23-00-06-02AD
 T   %  
 2-23-00-07-01pD
 T   %  
 2-23-00-08-01D
 T   %  
 2-24-00-02-01D
 T   %  
 2-24-00-03-01D
 T   %  
 2-24-00-04-01,E
 T   %  
 2-24-00-04-02[E
 T   %  
 2-24-00-04-03E
 T   %  
 2-24-00-07-01E
 T   %  
 2-24-00-8a-01E
 T   %  
 2-24-00-8b-01F
 T   %  
 2-24-00-8b-02FF
 T   %  
 2-24-00-8b-03uF
 T   %  
 2-24-00-09-01F
 T   %  
 2-24-00-09-02F
 T   %  
 2-24-00-09-03G
 T   %  
 2-24-00-09-041G
 T   %  
 2-24-00-09-05`G
 T   %  
 2-24-00-11-01G
 T   %  
 2-24-00-11-02G
 T   %  
 2-24-00-12-01G
 T   %  
 2-24-00-13-01H
 T   %  
 2-24-00-13-02KH
 T   %  
 2-24-00-14-01zH
 T   %  
 2-24-00-15-01H
 T   %  
 2-24-00-15-02H
 T   %  
 2-24-00-15-03I
 T   %  
 2-24-00-15-046I
 T   %  
 2-24-00-15-05eI
 T   %  
 2-24-00-15-06I
 T   %  
 2-24-00-16-01I
 T   %  
 2-24-00-16-02I
 T   %  
 2-24-00-16-03!J
 T   %  
 2-24-00-16-04PJ
 T   %  
 2-24-00-16-05J
 T   %  
 2-24-00-16-06J
 T   %  
 2-24-00-17-01J
 T   %  
 2-24-00-17-02K
 T   %  
 2-24-00-17-03;K
 T   %  
 2-24-00-17-04jK
 T   %  
 2-24-00-17-05K
 T   %  
 2-24-00-17-06K
 T   %  
 2-24-00-17-07K
 T   %  
 2-24-00-18-01&L
 T   %  
 2-24-00-18-02UL
 T   %  
 2-24-00-18-03L
 T   %  
 2-24-00-18-04L
 T   %  
 2-25-00-02-01L
 T   %  
 2-25-00-03-01M
 T   %  
 2-25-00-04-01@M
 T   %  
 2-25-00-04-02oM
 T   %  
 2-25-00-05-01M
 T   %  
 2-25-00-05-02M
 T   %  
 2-25-00-05-03M
 T   %  
 2-25-00-06-01+N
 T   %  
 2-25-00-06-02ZN
 T   %  
 2-25-00-07-01N
 T   %  
 2-25-00-07-02N
 T   %  
 2-25-00-08-01N
 T   %  
 2-25-00-08-02O
 T   %  
 2-25-00-08-03EO
 T   %  
 2-25-00-9a-01tO
 T   %  
 2-25-00-9a-02O
 T   %  
 2-25-00-9a-03O
 T   %  
 2-25-00-9a-04P
 T   %  
 2-25-00-9b-010P
 T   %  
 2-25-00-9b-02_P
 T   %  
 2-25-00-9b-03P
 T   %  
 2-25-00-9b-04P
 T   %  
 2-25-00-9b-05P
 T   %  
 2-25-00-9b-06Q
 T   %  
 2-25-00-9c-01JQ
 T   %  
 2-25-00-9c-02yQ
 T   %  
 2-25-00-9c-03Q
 T   %  
 2-25-00-9c-04Q
 T   %  
 2-25-00-9c-05R
 T   %  
 2-25-00-10-015R
 T   %  
 2-25-00-10-02dR
 T   %  
 2-25-00-10-03R
 T   %  
 2-25-00-11-01R
 T   %  
 2-25-00-12-01R
 T   %  
 2-25-00-13-01 S
 T   %  
 2-25-00-13-02OS
 T   %  
 2-25-00-14-01~S
 T   %  
 2-25-00-14-02S
 T   %  
 2-25-00-14-03S
 T   %  
 2-25-00-15-01T
 T   %  
 2-25-00-15-02:T
 T   %  
 2-25-00-15-03iT
 T   %  
 2-26-00-06-01T
 T   %  
 2-26-00-08-01T
 T   %  
 2-26-00-9a-01T
 T   %  
 2-26-00-9b-01%U
 T   %  
 2-26-00-9b-02TU
 T   %  
 2-26-00-10-01U
 T   %  
 2-27-00-04-01U
 T   %  
 2-27-00-04-02U
 T   %  
 2-27-00-04-03V
 T   %  
 2-27-00-05-01?V
 T   %  
 2-27-00-05-02nV
 T   %  
 2-27-00-05-03V
 T   %  
 2-27-00-05-04V
 T   %  
 2-27-00-05-05V
 T   %  
 2-27-00-05-06*W
 T   %  
 2-27-00-05-07YW
 T   %  
 2-27-00-05-08W
 T   %  
 2-27-00-05-09W
 T   %  
 2-27-00-05-10W
 T   %  
 2-27-00-05-11X
 T   %  
 2-27-00-05-12DX
 T   %  
 2-27-00-05-13sX
 T   %  
 2-27-00-05-14X
 T   %  
 2-27-00-06-01X
 T   %  
 2-27-00-06-02 Y
 T   %  
 2-27-00-06-03/Y
 T   %  
 2-27-00-06-04^Y
 T   %  
 2-27-00-06-05Y
 T   %  
 2-27-00-06-06Y
 T   %  
 2-27-00-06-07Y
 T   %  
 2-27-00-06-08Z
 T   %  
 2-27-00-07-01IZ
 T   %  
 2-27-00-07-02xZ
 T   %  
 2-27-00-07-03Z
 T   %  
 2-27-00-07-04Z
 T   %  
 2-27-00-08-01[
 T   %  
 2-27-00-08-024[
 T   %  
 2-27-00-08-03c[
 T   %  
 2-27-00-08-04[
 T   %  
 2-27-00-08-05[
 T   %  
 2-27-00-08-06[
 T   %  
 2-27-00-08-07\
 T   %  
 2-27-00-9a-01N\
 T   %  
 2-27-00-9a-02}\
 T   %  
 2-27-00-9a-03\
 T   %  
 2-27-00-9a-04\
 T   %  
 2-27-00-9a-05
]
 T   %  
 2-27-00-9a-069]
 T   %  
 2-27-00-9a-07h]
 T   %  
 2-27-00-9a-08]
 T   %  
 2-27-00-9a-09]
 T   %  
 2-27-00-9a-10]
 T   %  
 2-27-00-9b-01$^
 T   %  
 2-27-00-9b-02S^
 T   %  
 2-27-00-9b-03^
 T   %  
 2-27-00-9b-04^
 T   %  
 2-27-00-9b-05^
 T   %  
 2-27-00-9c-01_
 T   %  
 2-28-00-14-01>_
 T   %  
 2-28-00-15-01m_
 T   %  
 2-28-00-15-02_
 T   %  
 2-29-00-10-01_
 T   %  
 2-29-00-11-01_
 T   %  
 2-29-00-11-02)`
 T   %  
 2-29-00-12-01X`
 T   %  
 2-29-00-12-02`
 T   %  
 2-29-00-13-01`
 T   %  
 2-30-00-05-01`
 T   %  
 2-30-00-06-01a
 T   %  
 2-30-00-07-01Ca
 T   %  
 2-30-00-08-01ra
 T   %  
 2-30-00-9a-01a
 T   %  
 2-31-00-05-01a
 T   %  
 2-31-00-06-01a
 T   %  
 2-31-00-08-01.b
 T   %  
 2-31-00-08-02]b
 T   %  
 2-31-00-9a-01b
 T   %  
 2-32-00-05-01b
 T   %  
 2-32-00-06-01b
 T    U 
 VKAPDFCODE VKAPDFSEITE  8 U   4   T   
 H%   E  B Januar  f  B Februar   
 B Mrz    B April    B Mai   
 B Juni   
 B Juli   B August  	? B	 September  
` B Oktober   B November   B Dezember  U  HSMONTNR	 HSMONTHNRk  4      T C wwAPIN3 hserror = UnZipFiles("&hsfiletozip","&zippath")
 <  Ba U  HSFILETOZIP ZIPPATH WWCLIENT LOZIP 4     %C >M $ &hsform..&hsobj..value = "  :  "
 B-  %CC \g 2 &hsform..&hsobj..value = "23:"+SUBSTR(ttt,4,2)
 B-  %CC \g; 2 &hsform..&hsobj..value = SUBSTR(ttt,1,2)+":59"
 B-  Ba U  HSFORM HSOBJ TTT{  4   %C :  0  T   0    T CCC  \g8 T CCC  \g8 B  d U  TTT HSSTD HSMIN{  4   %C :  0  T   0    T CCC  \g8 T CCC  \g8 B <  U  TTT HSSTD HSMIN& %C    T C   T C"  c T C$  c T C%  c T C#  + T C C 
 T  T C    T C   0 T C C '0 T 	C C ' T CC	 ddG % 11 T 	CC	 d d 
, T 	CC	 d d , T 
C	 )\(?$ T C	 	 + T C	 C + T 
C
 C + T C C 6 T C C
 C   Ba U
  WERT SICHT LZZ RE4 STEUER CLNG LSTLZZ HS_REST FIX	 KISTRSATZ3 4  
 T    %C  
 H6  % C 	 C 
	t  T  C    C  ) T   Sozial- u. Erzieh.Dienst C  ) T   Gehalt nach Vereinbarung  # %C 
 T  
 Bes.Ordn. 
 H9 C  a T   A  C  T   B  C  T   C  C  T   W  C  T   R   ' T  	 Anwrter  
 H8 C  c T   Ba-W C  T   Bayern C  T   Berlin C  T   Bund C  T   Brdg. C < T   Bremen C i T   Hamburg C  T   Hessen C  T   M-Vorp. C 	 T   NS C 
 T   NRW C ? T   Rhpfl. C m T   Saarland C 
 T   Sachsen C  T   S-Anhalt C  T   SH C  T  	 Thringen  	 B  U  HSX
 HSTARIFETC ZI MYFORM1 Z4 CAPTION 4  
 T    %C `
 H6  CC5  	c  T  1Q C5  C5  C5  C5  C5 
  T  0 CC5   T  6 C5 
 T  3 
 HR C(   C(  C(  C(  C( 	 T   13 C(  C(  C(  T   0 C(  T   5 C(  T   3 
 H%" CC)  Y T   1 C)  T   0 C)  T   2 
 HO" CC'   T   1Q C'  C'  C'  C'  C' O T   0 
 T    %C   T  Nein  T  JA   T p=
ף?	 B  U  HSX
 HSSVSCHL_EHEG ZI MSG OP3 4  
 H + C2    C2  	U  T 	 Steuerkl. C2   ! T  Steuer pauschal 20 % C2   ! T  Steuer pauschal 25 % C2     T  AG-Pauschsteuer 2 % C2  	7  T  AN-Pauschsteuer 2 % C2  
s$ T  Keine Steuerveranlagung C2   T  Steuer individuell 	 B  U  HSX WVW ZNAM HSSTKL8 4  
 H  C3  :  T  EINS C3 `  T  ZWEI C3   T  DREI C3   T  VIER C3   T  FNF C3   T  SECHS C3 
 T    
 T  	 B  U  X1 ZI MSG
 HSSTKLWERT 4  
 T   
 H!  C  ]
 HC Y( CC  	 * %C `M/  C `M/ 	  T  30  " T CCC  Z  C  % `* %C  @,  C  @, 	2 T  30 \" T CCC  Z  * %C *  C * 	 T  30 " T CCC  Z   CC 
Y* %C -  C - 	+ T  30 U" T CCC  Z   C  T  30 	 B  U  X1	 HSSTRTAGE ZI WERT WELCHESJAHR 4  
 T    %C 
 H6  C  r
 HX n( CC  	 * %C `M/  C `M/ 	  T  30  " T CCC  Z  C  % u* %C  @,  C  @, 	G T  30 q" T CCC  Z  * %C *  C * 	 T  30 " T CCC  Z   CC 
n* %C -  C - 	@ T  30 j" T CCC  Z   C  T  30   T C Z 	 B  U  X1 HSSVTAGE ZI WERT WELCHESJAHR  4   T    (z  C     wvw + T C C    CC    wvw  T C d	 B  U	  X1 SICHT IZU MYGET FILENEU WVW TNAM ZI
 HSSTRFREIJHR  4   T C  T C  %  z ( T C C*  	 B   U  X1 SICHT VBLZ NR63 TRUE WERT| 4   T  C  " T C  C .  \< T C  C .  C .  C .  \3 T C
 0123456789C  C .row  \ 3 T C
 0123456789C  C .col  \ . &hs_obj1..&hs_obj2..row = INT(VAL(hs_row))
. &hs_obj1..&hs_obj2..col = INT(VAL(hs_col))

 HCu4 case varTYPE(&hs_obj1..&hs_obj2..text) = "C", RETURN ALLTRIM(&hs_obj1..&hs_obj2..text)
4 case varTYPE(&hs_obj1..&hs_obj2..text) = "N"
6 RETURN ALLTRIM(STR(&hs_obj1..&hs_obj2..text,10,2))
4 case varTYPE(&hs_obj1..&hs_obj2..text) = "D"u4 RETURN ALLTRIM(DTOC(&hs_obj1..&hs_obj2..text))		
  U  X HS_OBJ1 HS_OBJ2 HS_ROW NUMONLY HS_COL       ! | GetDC USER32Q GetDC+ |	 ReleaseDC USER32Q	 ReleaseDC2 |
 GetDeviceCaps GDI32Q
 GetDeviceCaps T C  # T C  C  X Z6  T C    , V GetCD	 ReleaseDC
 GetDeviceCaps B    U	  TNTWIPS TLHORIZONTAL LNDEVICEHANDLE LNPIXELSPERINCH GETDC USER32	 RELEASEDC
 GETDEVICECAPS GDI32O 4   G$(@ T  C  C     T C    ( " T C    G. %C {  !  T C   ; T C  T C  T C  %CC 
  % ,C ' T	 CC C ,C \ T
 C	 \ T C   ( 2 T
   (
  ,CC  Z )7 &hsvarx = rcv(zeilenarray(2)+":"+zeilenarray(hsxa))
   T C 
 HL C 7 wvw.lst,wvw.soz,wvw.zvk,wvw.wei,wvw.tei,wvw.bru,wvw.lei  ( - T
   (CC  Z )7 &hsvarx = rcv(zeilenarray(2)+":"+zeilenarray(hsxa))
 T
 CC  " CC  wvw.Schlss  ( ~- T
   (CC ' Z )7 &hsvarx = rcv(zeilenarray(2)+":"+zeilenarray(hsxa))
 T
 CC   2  ( ) T
   (CC  Z )7 &hsvarx = rcv(zeilenarray(2)+":"+zeilenarray(hsxa))
 T
 CC     " %C zeilenarray(5)b U %C  C+ &hsvar = rcv(zeilenarray(2) + ":" + "")
 , &hsvar = rcv(zeilenarray(2) + ":" + "0")
  < &hsvar = rcv(zeilenarray(2)+":"+ALLTRIM(zeilenarray(5)))
  T
 CC    G$(2 BC
 C .
 \ U 	 HSVB6SATZ ZEILZAHL XAA ZEILE XXZ ZEILENARRAY HSSATZNR HSTYPE HSVAR HSTEIL	 HSVARTEIL HSARRAYELEMENTE HSXA HSVARX  %    C} Whrend das JAHRESGEHALT eingestellt ist, knnen keine nderungen vorgenommen werden. Bitte stellen Sie ein Monatsgehalt ein.0 Jahresgehalt ndernx  U  INDEXM       ! | GetDC USER32Q GetDC+ |	 ReleaseDC USER32Q	 ReleaseDC2 |
 GetDeviceCaps GDI32Q
 GetDeviceCaps T C  # T C  C  X Z6  T C    , V GetCD	 ReleaseDC
 GetDeviceCaps B    U	  TNPIXELS TLHORIZONTAL LNDEVICEHANDLE LNPIXELSPERINCH GETDC USER32	 RELEASEDC
 GETDEVICECAPS GDI32 4   
 T    %     T CC  Z myform1.T&xxx..Value = 0

 T      \ {END}; B 
 T  
 T   T	 CC  Z % 
  	' If EMPTY(myform1.T&yyy..Value) $ myform1.T&yyy..Value = 0
  %  %C
 " T
 *  
  
 %C*
  
 T
 *   %C*
  T
 *   T   CC*
    
 Hc  
% If myform1.T&yyy..value > 200Q myform1.T&yyy..value = 100
 8 betrag(1+t_geclickt) = myform1.T&yyy..value * 100000
 T  C    %  C
 	 T   T       2	b/ IF VARTYPE(myform1.T&yyy..value) = "C" 
] If Leftc(myform1.T&yyy..value, 2) = "--" .Or. Leftc(myform1.T&yyy..value, 2) = "--  " myform1.T&yyy..value = 0
 = myform1.T&yyy..value = ROUND(VAL(myform1.T&yyy..value),2)
  5 betrag(1+t_geclickt) = myform1.T&yyy..value * 100
 T  C    3 %  
  T  
  5 betrag(1+t_geclickt) = myform1.T&yyy..value * 100
 T  C   T C4 '  < %  
 F T  
  5 betrag(1+t_geclickt) = myform1.T&yyy..value * 100
 T  C    5 %    T 5  T 6  C} Wenn in Zeile 6 kein Einstellungsdatum vorhanden ist, fehlt der Bezugspunkt fr Stufenverkrzungen bzw. Stufenverlngerungen.  Einstellungsdatum fehlt ...x  %  
  T  
    %  
 
 T  
   
 HD C
 
 C
 	 C
  C
 	}
# If myform1.T&yyy..value > 0 %C
 / betrag(1+t_geclickt) = myform1.T&yyy..value
 T  C     T   CC
    T    T  C     T   CC
   Ce Stufenverkrzungen und Stufenverlngerungen sind erst nach dem Erreichen der Entgeltstufe 3 zulssig.  Erst ab Entgeltstufe 3 ...x  y
 %C
 	/ betrag(1+t_geclickt) = myform1.T&yyy..value
 T  C     T   CC
   u
 T    T  C     T   CC
   Ce Stufenverkrzungen und Stufenverlngerungen sind erst nach dem Erreichen der Entgeltstufe 3 zulssig.  Erst ab Entgeltstufe 3 ...x   C
 # If myform1.T&yyy..Value > 0)/ betrag(1+t_geclickt) = myform1.T&yyy..value
 T  C     T   CC
   / betrag(1+t_geclickt) = myform1.T&yyy..value
 T  C     T   CC
       9i T :  
  %C: 
 T :  %C: 
7 T :  T #C:  T :C:   :f
 % 4
B %C5
  C5
  C5
  C5
 
 T ;  
 d T ;C;  0
 T ;  T ;   b
 T ;  T ;    ;c % 1B %C'
  C'
  C'
  C'
 
 T <   
 d T <C<  - T <  T <   _ T <  T <    T! C   T"   #  %C
 	 $    B U%  XCOUNTER KEYASCII COUNTER INDEXM JAHRFIX XXX JAHRESGEHALT
 T_GECLICKT MYINDEXE YYY ZI MYFORM1 T25 VALUE ZVKHALB Z41 CAPTION ZT41 WERT BETRAG T51 ANPASSUNGSFAKTOR T60 BDATEXT T53 DASTUFEBERECHNEN Z7 ZT7 T57 EFFZAHL WELCHESJAHR T58 T59 LASTT	 LASTCLICK BETRAGSEINGABE JAEBERECHNEN  4    
 T    %  U  %C 
Q 
 T      
 T  
 	 
  
 T   U  MYINDEX MASKPART DCVALUE DI	 STARTFLAG FALSE DC
 DATUMCHECK TRUE	 MYBDAFORM DATUMAKTUALISIEREN CLICK> %C	   C "  B  %C	  
 T  
 HU  C	   w 
 T   C	   
 T   C	   
 T  C	   
 T  C	   
 T  C	  !
 T  C	  C
 T  C	  e
 T  C	  
 T  C	  	
 T  C	  

 T  C	  
 T  C	  
 T  C	  
1
 T  C	  S
 T   C	  u
 T   C	  
 T     %C	  " %CC   
 H6    	    	X T Q@ T Qj@ T (\W{@*    		   T Gz@ T 33333u@ T Gzf@   
 T    %  3  T	 C	  d  T	 C	  d  B U
  ZI MYSONDERZUSCHLAG HSVHZU HSKIANZ WELCHESJAHR MONAT BERLINFAMZU1 BERLINFAMZU2 BERLINFAMZU0 GRUNDBETRAG4A %C	   C?% %CC   0?
 HG ,?  p T  I! T         ! T      @S@! T =
ףps@! T Q{@! T (\B{@! T zGQ@ T  II! T         ! T      @S@! T =
ףps@! T Q{@! T (\B{@! T zGQ@ T  III! T         ! T      @S@! T =
ףps@! T (\}@! T      |@! T 33333@ T  IV! T         ! T      @S@! T Hzct@! T =
ףp@! T Hz|@! T Gz@ T  V! T         ! T      X@! T Ru@! T (\@! T (\}@! T D@ T  VI! T         ! T      @^@! T \( w@! T @! T (\~@! T Gz@ T  VII! T (\b@! T (\b@! T Q~@! T zG@! T Gz@! T @" T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10 T  I! T q=
ף>@! T p=
c;@! T 33333s:@! T 8@! T p=
ף5@! T )\3@! T R/@! T 	333333#@ T  II! T Qe@@! T Q>@! T (\µ=@! T zG;@! T (\O8@! T Gz6@! T Q1@! T 	(\%@ T  III! T ףp=
7B@! T ףp=
A@! T zG@@! T q=
ף>@! T (\;@! T Hz8@! T 3@! T 	q=
ף'@ T  IV! T \(<D@! T \(B@! T (\UB@! T QA@! T (\>@! T      @;@! T 6@! T 	*@ T  V! T \(<F@! T \(D@! T Q%D@! T {GB@! T \(|@@! T q=
ף=@! T Q88@! T 	Q8-@ T  VI! T 
ףp=*H@! T QF@! T QE@! T {GZD@! T 
ףp=A@! T QE@@! T RQ:@! T 	(\/@ T  VII! T ̌J@! T )\H@! T (\H@! T =
ףp]F@! T (\C@! T      A@! T Q<@! T 	33333s1@!   C  

	 T  I! T         ! T      @S@! T =
ףps@! T Q{@! T (\B{@! T zGQ@ T  II! T         ! T      @S@! T =
ףps@! T Q{@! T (\B{@! T zGQ@ T  III! T         ! T      @S@! T =
ףps@! T (\}@! T      |@! T 33333@ T  IV! T         ! T      @S@! T Hzct@! T =
ףp@! T Hz|@! T Gz@ T  V! T         ! T      X@! T Ru@! T (\@! T (\}@! T D@ T  VI! T         ! T      @^@! T \( w@! T @! T (\~@! T Gz@ T  VII! T (\b@! T (\b@! T Q~@! T zG@! T Gz@! T @" T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10 T  I! T q=
ף>@! T p=
c;@! T 33333s:@! T 8@! T p=
ף5@! T )\3@! T R/@! T 	333333#@ T  II! T Qe@@! T Q>@! T (\µ=@! T zG;@! T (\O8@! T Gz6@! T Q1@! T 	(\%@ T  III! T ףp=
7B@! T ףp=
A@! T zG@@! T q=
ף>@! T (\;@! T Hz8@! T 3@! T 	q=
ף'@ T  IV! T \(<D@! T \(B@! T (\UB@! T QA@! T (\>@! T      @;@! T 6@! T 	*@ T  V! T \(<F@! T \(D@! T Q%D@! T {GB@! T \(|@@! T q=
ף=@! T Q88@! T 	Q8-@ T  VI! T 
ףp=*H@! T QF@! T QE@! T {GZD@! T 
ףp=A@! T QE@@! T RQ:@! T 	(\/@ T  VII! T ̌J@! T )\H@! T (\H@! T =
ףp]F@! T (\C@! T      A@! T Q<@! T 	33333s1@>   C  
	   C   	- T  I! T         ! T {G*T@! T Rs@! T 4}@! T Q|@! T Gz@ T  II! T         ! T {G*T@! T Rs@! T 4}@! T Q|@! T Gz@ T  III! T         ! T {G*T@! T Rs@! T ףp=
C@! T Gzj}@! T Ru@ T  IV! T         ! T {G*T@! T \(\u@! T Gz@! T \(L~@! T zG׃@ T  V! T         ! T =
ףpY@! T 
ףp=v@! T =
ףp@! T 4@! T (\;@ T  VI! T         ! T q=
ף_@! T Gzx@! T ףp=
@! T 
ףp=@! T p=
ף@ T  VII! T Qc@! T Qc@! T 
ףp=v@! T Q@! T @! T =
ףp@" T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10 T  I! T Gz4@@! T q=
ף<@! T (\µ;@! T Q9@! T Q6@! T 4@! T Q0@! T 	Q$@ T  II! T ,A@! T =
ףp@@! T Q?@! T 33333<@! T Qx9@! T zG!7@! T Q2@! T 	Gz&@ T  III! T GzC@! T HzA@! T 
ףp=JA@! T 33333@@! T L<@! T 333339@! T 
ףp=4@! T 	Gz)@ T  IV! T 333333E@! T p=
C@! T (\5C@! T {GA@! T q=
ףp?@! T ̌<@! T 7@! T 	\(+@ T  V! T QKG@! T {GE@! T {GE@! T QC@! T QEA@! T Q^?@! T Q^9@! T 	Q.@ T  VI! T q=
ףPI@! T      G@! T (\F@! T 33333SE@! T QB@! T QA@! T R;@! T 	p=
ף0@ T  VII! T q=
ףK@! T QJ@! T Gz4I@! T GznG@! T QD@! T B@! T L>@! T 	HzG2@.   C  		  B= T  I! T         ! T ףp=
GU@! T (\u@! T      ~@! T  ~@! T @ T  II! T         ! T ףp=
GU@! T (\u@! T      ~@! T  ~@! T @ T  III! T         ! T ףp=
GU@! T (\u@! T }@! T \(@! T p=
y@ T  IV! T         ! T ףp=
GU@! T )\v@! T ףp=
@! T Q@! T q=
ף@ T  V! T         ! T 
ףp=Z[@! T 
ףp=w@! T Gz@! T Gzv@! T Qf@ T  VI! T         ! T (\`@! T Hzky@! T \(8@! T (\@! T q=
ף@ T  VII! T {Gd@! T {Gd@! T q=
ף@! T q=
ףڇ@! T q=
ףv@! T 
ףp=b@" T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10 T  I! T QA@! T QE>@! T {G:=@! T q=
ף0;@! T Q7@! T {G5@! T ףp=
1@! T 	Q8%@ T  II! T QB@! T       A@! T 
ףp=j@@! T 
ףp=>@! T Q:@! T ffffff8@! T      3@! T 	R'@ T  III! T zG!D@! T p=
B@! T =
ףp=B@! T (\@@! T \(=@! T \(;@! T Gz5@! T 	(\u*@ T  IV! T =
ףp]F@! T \(D@! T p=
CD@! T (\B@! T (\@@! T Q>@! T Q^8@! T 	ffffff-@ T  V! T 33333H@! T GzG@! T p=
CF@! T 33333D@! T Q8B@! T ̌@@! T Q:@! T 	fffff&0@ T  VI! T GzJ@! T GzI@! T R1H@! T      F@! T C@! T {GzB@! T ףp=
=@! T 	(\1@ T  VII! T QXM@! T HzK@! T ףp=
J@! T QH@! T zGE@! T zGC@! T Q?@! T 	
ףp=J3@ 2,? J        (  T  I T  II T  III T  IV T  V T  VI T  VII J        ( " T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10   T C W -A J        (  T  I T  II T  III T  IV T  V T  VI T  VII J        ( " T 	 Ortklasse T  A3 T  A4 T  A5 T  A6 T  A7 T  A8 T  A9 T 	 A10  U  ZI WELCHESJAHR BYFAMZU
 BYERHHUNG	 OLDSELECT0 %   C 	 C 	  
 HD c CC	 j 
 T   CC	  
 T  CC	 	 
 T  CC	 
 
 T  CC	 
 T  CC	 (
 T  CC	 
N
 T  2c
 T    T    T          %  
 H: C	 
 T  T C    	  C	 
 T  T C    	  2:
 H/6  c
 T  T C    	   
 T  T C    	   
 T  T C  	  T  C  	   H
 T  T C  	  T  C  	  T  C  	   
 T  T C  	  T  C  	 % T  C  	 C  	   6
 T  T C  	  T  C  	 1 T  C  	 C  	 C  	    %C    %   C 

	
 H$ C  C 		
 H C 
 T  C 
 T  C 
 T  C 9
 T  C [
 T  C }
 T  C 
 T  C 
 T   T
 C     $ C 	 C "
 T 	 T
 C     $ C 
 C i
 T 
 T
 C      2 T
            T
            T
           T  d! T  
 d! T  
 d! T  
 d! T  
 d! T  
 d! T  
 d   U
  WELCHESJAHR ZI BYFAMZUPARAMETER	 HSBYKIANZ	 HSBYZEILE WVW RESERVE7 HSBYGRUNDBETRAG
 HSBYSPALTE BYFAMZU HSBYERHHUNGSBETRAG
 BYERHHUNG GRUNDBETRAGkM %   C 		    C 
	 C 
	d %C	  `
 Ho  C   $ %C  C 	   T  0CCC  Z   T  brige  T  N$ C  C 	: T  brige T  N C 
 H\ C   T  05 C  T  06 2 T  brige  T  J  T C W F   Q  \tarife\nrwfam F  #) F 
 T  %  05I T  J _ T  N 
 Hp
 C	  
 T	  
 T   C	 
 T	   C	 
 T	  C	 
 T	  C	 '
 T	  C	 I
 T	  C	 k
 T	  C	 
 T	  C	 
 T	 
 T   C	 	
 T	 
 T   C	 

 T	 
 T   C	 I
 T	 
 T   C	 x
 T	 
 T   C	 

 T	 
 T   C	 
 T	   C	 
 T	   C	 

 T	    %   %	  %  Jc - 
    C  
 \ x	    	  
 	    J	   
	 ` - 
    C  
 \ x	    	  
 		 C  	   
	   %  Jc - 
    C  
 \ x	    	  
 	    J	   
	 ` - 
    C  
 \ x	    	  
 		 C  	   
	   %C4 %  9 T   d \ T           %	  V
 %   
 T   T      T  pcg_fCC  Z %  J+K grundbetrag(1+17) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5) * 100
 q> grundbetrag(1+17) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100		
  %  J[ grundbetrag(1+18) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + nrwfam.zu_a52) * 100
 &	< grundbetrag(1+18) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
  %  J	q grundbetrag(1+19) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 2) + nrwfam.ab3_ki) * 100
 
L grundbetrag(1+19) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.ab3_ki) * 100
  %  J
 grundbetrag(1+20) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 3) + nrwfam.ab3_ki + nrwfam.ab4_ki) * 100
 
\ grundbetrag(1+20) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.ab3_ki + nrwfam.ab4_ki) * 100
  %  J grundbetrag(1+21) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 4) + nrwfam.ab3_ki + nrwfam.ab4_ki + nrwfam.ab5_ki) * 100
 l grundbetrag(1+21) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.ab3_ki + nrwfam.ab4_ki + nrwfam.ab5_ki) * 100
  %  J grundbetrag(1+22) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 5) + nrwfam.ab3_ki + nrwfam.ab4_ki + nrwfam.ab5_ki + nrwfam.ab5_ki) * 100
 R
| grundbetrag(1+22) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.ab3_ki + nrwfam.ab4_ki + nrwfam.ab5_ki + nrwfam.ab5_ki) * 100
    T          T          T          T          T          T            G  (C %	  %  Jc - 
    C  
 \ x	    	  
 	    J	   
	 ` - 
    C  
 \ x	    	  
 		 C  	   
	   %  Jc - 
    C  
 \ x	    	  
  	    J	   
	 ` - 
    C  
 \ x	    	  
  		 C  	   
	   %C4? %  = T   d ` T           %	   %   
 T   T      T  pcg_fCC  Z
 H   %  JMK grundbetrag(1+17) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5) * 100
 > grundbetrag(1+17) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100		
   ] %  J[ grundbetrag(1+18) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + nrwfam.zu_a52) * 100
 Y< grundbetrag(1+18) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
   ) %  Ja grundbetrag(1+19) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 2)) * 100
 %< grundbetrag(1+19) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
    %  Ja grundbetrag(1+20) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 3)) * 100
 < grundbetrag(1+20) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
    %  Jya grundbetrag(1+21) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 4)) * 100
 < grundbetrag(1+21) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
    %  JEa grundbetrag(1+22) = (nrwfam.&hsfeld - nrwfam.vhzu + nrwfam.zu_A5 + (nrwfam.zu_a52 * 5)) * 100
 < grundbetrag(1+22) = (nrwfam.&hsfeld - nrwfam.vhzu) * 100
   ; T          T          T          T          T          T              F  Q
 F    U  WELCHESJAHR ZI SUCH1 HSANW	 OLDSELECT EIGDAT NRWFAM HSVHZU HSA5 HSKIANZ JAHR MONAT GRUPPEN FAMSTUFE ANW BLANDNR GRUNDBETRAG VHZU WVW RESERVE7 HSMIETSTUFEX HSFELD HSNRWa"0 %   C 	 C 
	Z" %C	  V"
 HR  C    %C    T  0CCC  Z   T  brige  T  N$ C  C 	 T  brige T  N  T C W F   Q  \tarife\rlpfam F 	 # % ףp=
GS@ +C+
 >  GzNU@ H   #)
 T  %  05 T	  J  T	  N 
 H C	  )
 T
  
 T   C	 K
 T
   C	 m
 T
  C	 
 T
  C	 
 T
  C	 
 T
  C	 
 T
  C	 
 T
  C	 F
 T
 
 T   C	 	u
 T
 
 T   C	 

 T
 
 T   C	 
 T
 
 T   C	 
 T
 
 T   C	 
1
 T
 
 T   C	 S
 T
   C	 u
 T
   C	 
 T
    %
  %  J!c -     C  
 \ x	   
 	   	    J	   	 ` -     C  
 \ x	   
 	   		 C  	   	    J        (   %  J2c -     C  
 \ x	   
 	   	    J	   	 ` -     C  
 \ x	   
 	   		 C  	   	    J        ( ! T         ! T      Px@! T      t@! T      p@! T      i@! T       b@! T       U@! T       7@! T         ! T       w@! T      r@! T      m@! T       e@! T      Y@! T      A@! T         ! T         ! T      s@! T      l@! T      b@! T      @P@! T         ! T         ! T         ! T         ! T      l@! T      c@! T      I@! T         ! T         ! T         ! T         ! T         ! T      [@! T         ! T         ! T         ! T         ! T         ! T           %C4=" %  ) T   d L T           %
  ! %   
 T   T      T  pcg_fCC  Z %	  J" T     d 
 T   d  %	  JY
. T       d 
 T   d # %   C  	 T          T         
 H
$ C  C T %C 
, T          P T CC   $ C  C  %C 
 T           T CC    C 1 %C 
	 T          - T CC    C  %C 
p T           T CC   $ C 	 C  %C 
 T          
 T CC    @ T C
  C  C
  C  C   % d t
 T   $ T C  d   %	  J%s grundbetrag(1+19) = (rlpfam.&hsfeld + (rlpfam.kindzu * 2) + rlpfam.zu_A5 + rlpfam.zu_a52 + rlpfam.ab3_ki) * 100
 T grundbetrag(1+19) = (rlpfam.&hsfeld + (rlpfam.kindzu * 2) + rlpfam.ab3_ki) * 100
 # %   C  	 T          T         
 H$ C  C U %C 
- T          Q T CC   $ C  C  %C 
 T           T CC    C 2 %C 

 T          . T CC    C  %C 
q T           T CC   $ C 	 C  %C 
 T           T CC    @ T C
  C  C
  C  C   % d u
 T   $ T C  d   %	  J< grundbetrag(1+20) = ((rlpfam.&hsfeld * 2) + (rlpfam.kindzu * 2) + rlpfam.zu_A5 + rlpfam.zu_a52 + rlpfam.ab3_ki + rlpfam.ab4_ki) * 100
 j grundbetrag(1+20) = ((rlpfam.&hsfeld * 2) + (rlpfam.kindzu * 2) + rlpfam.ab3_ki + rlpfam.ab4_ki) * 100
 # %   C  	 T          T         
 H<$ C  C  %C 
Z T          ~ T CC   $ C  C  %C 
 T           T CC    C _ %C 
7 T          [ T CC    C  %C 
 T           T CC   $ C 	 C < %C 
 T          8 T CC    @ T C
  C  C
  C  C   % d 
 T   $ T C  d   %	  Jy grundbetrag(1+21) = ((rlpfam.&hsfeld * 3) + (rlpfam.kindzu * 2) + rlpfam.zu_A5 + rlpfam.zu_a52 + rlpfam.ab3_ki + rlpfam.ab4_ki + rlpfam.ab5_ki) * 100
 z grundbetrag(1+21) = ((rlpfam.&hsfeld * 3) + (rlpfam.kindzu * 2) + rlpfam.ab3_ki + rlpfam.ab4_ki + rlpfam.ab5_ki) * 100
 # %   C  	 T          T         
 HY$ C  C  %C 
 T           T CC   $ C  C E %C 
 T          A T CC    C  %C 
 T           T CC    C  %C 
 T           T CC   $ C 	 C  %C 
a T           T CC    @ T C
  C  C
  C  C   % d 
 T   $ T C  d   %	  J grundbetrag(1+22) = ((rlpfam.&hsfeld * 4) + (rlpfam.kindzu * 2) + rlpfam.zu_A5 + rlpfam.zu_a52 + rlpfam.ab3_ki + rlpfam.ab4_ki + rlpfam.ab5_ki + rlpfam.ab5_ki) * 100
 h grundbetrag(1+22) = ((rlpfam.&hsfeld * 4) + (rlpfam.kindzu * 2) + rlpfam.ab3_ki + rlpfam.ab4_ki + rlpfam.ab5_ki + rlpfam.ab5_ki) * 100
 # %   C  	! T          T         
 H $ C  C < %C 
 T          8 T CC   $ C  C  %C 
 T           T CC    C   %C 
 T            T CC    C   %C 
X  T          |  T CC   $ C 	 C   %C 
  T            T CC    @ T C
  C  C
  C  C   % d \!
 T   $ T C  d   <  9" T          T          T          T          T          T            F  Q
 F    U  WELCHESJAHR ZI SUCH1 HSANW	 OLDSELECT EIGDAT RLPFAM VHZU HSVHZU HSA5 HSKIANZ JAHR MONAT GRUPPEN FAMSTUFE ANW BLANDNR RLPFAMZU GRUNDBETRAG WVW RESERVE7 HSMIETSTUFEX HSFELD KINDZU ZU_A5 ZU_A52 RESERVE6 RLPFAMZUSCHLAG RLPABZUGFAMZUSCHLAG TNAM}! %C	     B  %  C 
	v! %C	    
 H[  C	    
 T  
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  4
 T  C	  V
 T  C	  x
 T  C	  
 T 
 T   C	  	
 T 
 T   C	  

 T 
 T   C	  4
 T 
 T   C	  c
 T 
 T   C	  

 T 
 T   C	  
 T   C	  
 T   C	  
 T   
 H	E  
    (

 HR
   T   6/2! T       pz@! T       X@  0 T   6/3! T       w@! T       ~@   T   6/4! T       t@! T       {@   T   6/5! T        p@! T       pw@  } T   6/6! T       g@! T       `s@   T   6/7! T       @_@! T       n@  [ T   6/8! T        N@! T       @f@   T   6/9! T          ! T       \@  	9 T   7/2! T        t@! T       }@  
 T   7/3! T       pp@! T       z@   T   7/4! T       i@! T       v@   T   7/5! T       _@! T       `q@  
 T   7/6! T        F@! T       h@  d	 T   7/7! T          ! T       \@  	 T   7/8! T          ! T       O@  B
 T   7/9! T          ! T        (@  
 T   8/2! T       i@! T       v@    T   8/3! T       @d@! T       s@   T   8/4! T       T@! T       m@   T   8/5! T        &@! T       c@  m T   8/6! T          ! T       O@   T   9/2! T       E@! T        `@  K
 T   9/3! T          ! T        W@  
 T   9/4! T          ! T        4@    E  #  (#A
 H=  z T   6/2! T       @! T       H@   T   6/3! T       @! T       @  X T   6/4! T       `@! T       @   T   6/5! T       H@! T       @  6 T   6/6! T        ~@! T       `@   T   6/7! T        z@! T       H@   T   6/8! T       u@! T       8@   T   6/9! T       q@! T       @|@  	 T   7/2! T       h@! T       ~@  
a T   7/3! T       @! T       @   T   7/4! T       @! T       @  ? T   7/5! T       @z@! T       x@  
 T   7/6! T       v@! T       @   T   7/7! T       q@! T       @   T   7/8! T       k@! T       x@   T   7/9! T       `d@! T       t@  k T   7/10! T        Z@! T       q@   T   8/2! T       @! T       (@  I T   8/3! T       |@! T       @   T   8/4! T       w@! T       (@  ' T   8/5! T       r@! T       P}@   T   8/6! T       k@! T       x@   T   8/7! T        ]@! T       q@  t T   8/8! T       F@! T       j@   T   8/9! T          ! T       a@  S T   8/10! T          ! T       Q@   T   9/2! T       0p@! T       z@  1 T   9/3! T        k@! T       0x@   T   9/4! T       @`@! T       r@   T   9/5! T       F@! T       j@  ~ T   9/6! T          ! T       `@    T   9/7! T          ! T        2@  !] T   10/2! T       H@! T       `k@  " T   10/3! T          ! T       b@  #= T   10/4! T          ! T        @@    T          T          T	          T
          T          T         
 T
     %  C   	
 HQ$ C   C  J% T
  6/CCC   Z C  % T
  7/CCC   Z C  % T
  8/CCC   Z$ C  	 C  % T
  9/CCC   Z$ C  
 C  Q& T
  10/CCC   Z   (C  %C   
  %  T C     T C     !    %   T      @m@ T      v@ T      @ T      @
 T	   T
    T    T     <   T C  d T C  d( T C   	 d( T C   
 d( T C    d( T C    d  U  ZI WELCHESJAHR MYSONDERZUSCHLAG HSKIANZ HSVHZU SHFAM HSA SHFAMZUSATZ1 SHFAMZUSATZ2 SHFAMZUSATZ3 SHFAMZUSATZ4 SHFAMZUSATZ5 SHFAMZUSATZ6 SUCH1 KIZU3 KIZU4 KIZU5 KIZU6 GRUNDBETRAG5 %C	     B  % . %C	   *
 HQ  C	    
 T  
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  *
 T  C	  L
 T  C	  n
 T  C	  
 T 
 T   C	  	
 T 
 T   C	  

 T 
 T   C	  *
 T 
 T   C	  Y
 T 
 T   C	  

 T 
 T   C	  
 T   C	  
 T   C	  
 T     	  (	P
 H)L   T   7! T        |@! T  p=
'{@! T  p=
/z@! T  Hz7y@! T  Q?x@! T  
ףp=w@! T  Qv@! T  	p=
+v@! T  
        ! T             T   8! T  GzH{@! T  fffff
z@! T  Gzx@! T  (\w@! T  GzPv@! T  Gz|u@! T  Gzt@! T  	Gzs@! T  
q=
ף s@! T             T   9! T  p=
oy@! T  Qx@! T  Qv@! T  (\uu@! T  fffff"t@! T  Q9s@! T  HzOr@! T  	ffffffq@! T  
Q}p@! T             T   10! T  v@! T  {Gu@! T  \(`s@! T  zGq@! T  o@! T  ףp=
m@! T  GzVk@! T  	i@! T  
p=
׳f@! T            t
 T   11! T  Hzr@! T  Gz.q@! T  ףp=
p@! T  QNk@! T  ףp=
g@! T  ףp=
_e@! T  ףp=
b@! T  	33333`@! T  
Gz>\@! T  ffffffW@   T   12! T          ! T  =
ףpj@! T  )\g@! T  p=
kc@! T  Q.^@! T  QhX@! T  (\R@! T  	I@! T  
Y<@! T        @  `
 T   13! T          ! T          ! T  
ףp=X@! T        O@! T  ףp=
8@! T          ! T          ! T  	        ! T  
        ! T             T   14! T          ! T          ! T  {GH@! T          ! T          ! T          ! T          ! T  	        ! T  
        ! T            	L T   R1! T  Hz7T@! T  (\N@! T  =
ףp$@! T          ! T          ! T          ! T          ! T  	        ! T  
        ! T            6 %   	    		 G
(  (	  (3 T   CC     47?T   G
( * %   		   G
(  (	  (3 T   CC     47?T   G
(  (	  (3 T   CC     zG?T    T         0 %  C    C  	 T	  XX %C   T	  R1 

 H	 C   T	  7 C   T	  8$ C  	 C  ( T	  9$ C  
 C  [ T	  10 C  
 T	  11 C   T	  123 C   C   C   T	  13 C  	 T	  14    (	{ %C   	 w % o T C  C     !    T
 C
  d  T
 C
  d  T
 C
  d  T
 C
  d  T
 C
  d  <    U  ZI WELCHESJAHR HSKIANZ HSVHZU BWFAM HSA MONAT HSB BWFAMZUSATZ2 SUCH1 GRUNDBETRAG} %C	     B  %  C 
	v %C	   r
 T  
 Hh  C	    
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  4
 T  C	  V
 T  C	  x
 T  C	  
 T  C	  	
 T  C	  

 T  C	   
 T  C	  "
 T  C	  
D
 T  C	  f
 T   C	  
 T   C	  
 T    T         
 H$ C   C  
 T $ C   C  2
 T  C  T
 T  C  v
 T $ C  	 C  
 T $ C  
 C  
 T   % 
  ! T         ! T      q@! T      `m@! T      h@! T      @d@! T      _@! T       W@! T      O@! T 	      9@! T 
        ! T         ! T         ! T         ! T      n@! T      @i@! T       d@! T      ]@! T      @S@! T      B@! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T      f@! T       ^@! T       N@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T      Q@! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T          T C  C   @ T C
	 
 C	 
 C
	 
 C	 
 C	 
  % d 

 T   % T C  d  g  ! T         ! T      @! T      @! T      @! T      @! T      ~@! T      |@! T      pz@! T 	     xx@! T 
     @v@! T         ! T         ! T         ! T      ܂@! T      @! T      X@! T      0~@! T      {@! T      y@! T      v@! T 	     t@! T 
     q@! T         ! T         ! T         ! T      @! T      P~@! T      z@! T       w@! T      s@! T      @p@! T       l@! T 	     g@! T 
     `c@! T         ! T         ! T         ! T         ! T      {@! T      v@! T      q@! T       i@! T       ^@! T      R@! T 	      >@! T 
        ! T         ! T         ! T         ! T         ! T      `m@! T      b@! T      @P@! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T       D@! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T          T C  C   5 T C	 
 C
	 
 C	 
 C	 
  % d 
 T   $ T C  d $ T C  d $ T C  d $ T C  d $ T C  d   <    U  ZI WELCHESJAHR MYSONDERZUSCHLAG HSVHZU HSKIANZ BRDFAMZUSATZ HSGRUPPE BRDFAM BRDABZUGFAMZUSCHLAG WVW TNAM GRUNDBETRAG %C	     B  %  C 
	 %C	   
 T  
 Hh  C	    
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  4
 T  C	  V
 T  C	  x
 T  C	  
 T  C	  	
 T  C	  

 T  C	   
 T  C	  "
 T  C	  
D
 T  C	  f
 T   C	  
 T   C	  
 T    %  
 H7    	  	  
	$ T C 
     @$ T C      @$ T C     @<@$ T C 
     |@$ T C     @$ T C     @  $ T C 
    O@$ T C     O@$ T C     @w@$ T C 
    nA$ T C     !A$ T C      A     U  ZI WELCHESJAHR MYSONDERZUSCHLAG HSVHZU HSKIANZ MONAT GRUNDBETRAG9$ %C	    C   (  B  %  C 
	9 %C	   9
 T  
 Hw  C	    
 T   C	   
 T   C	   
 T  C	   
 T  C	  !
 T  C	  C
 T  C	  e
 T  C	  
 T  C	  
 T  C	  	
 T  C	  

 T  C	  
 T  C	  1
 T  C	  
S
 T  C	  u
 T   C	  
 T   C	  
 T    %C /
 % j	  
! T ףp=
t@! T \(q@! T p=
m@! T Gznh@! T b@! T qa@! T HzWa@! T         ! T 	        ! T 
        ! T s@! T 333333p@! T Qj@! T (\Ze@! T _@! T ףp=
^@! T p=
S^@! T q=
ף ^@! T 	        ! T 
        ! T (\kq@! T Ql@! T Qf@! T Gz`@! T ףp=
7U@! T zGS@! T )\XS@! T q=
ף S@! T 	QR@! T 
        ! T Gzg@! T zGib@! T (\U@! T 3333339@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T GzTU@! T ףp=
@@! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
          T         3 %C   C	 C    	
$ %C    C  		$ T CC  C     ) T C  d d  % 9 %   38 %  	 
! T	 QkM@! T	 =
ףp=4@! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	 )\G@! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	 )\(!@! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
          
! T s@! T s@! T (\r@! T Qp@! T ti@! T fffffa@! T (\RT@! T         ! T 	        ! T 
        ! T Q3t@! T 
ףp=s@! T 33333Kq@! T      (n@! T Q]@! T (\OM@! T         ! T         ! T 	        ! T 
        ! T Q+u@! T (\r@! T GzVp@! T \(k@! T )\0c@! T \(U@! T 3@! T         ! T 	        ! T 
        ! T \(`t@! T p=
#r@! T Gzl@! T      e@! T ףp=
V@! T Q@! T         ! T         ! T 	        ! T 
        ! T         ! T ffffff@! T \(<`@! T \(\H@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T 
ףp=
$@! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
          % {( 	 
! T	 (\p@! T	 QCl@! T	 \g@! T	 =
ףpb@! T	 {G*U@! T	 \(\4@! T	         ! T	         ! T	 	        ! T	 
        ! T	 Hzo@! T	 QHh@! T	 ףp=
wc@! T	 Gz]@! T	 (\BK@! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	 Rj@! T	 ףp=
d@! T	 33333^@! T	 QS@! T	 {Gz"@! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	      H`@! T	 Q+W@! T	 >@! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
          
! T $x@! T $x@! T $x@! T $x@! T $x@! T )\$x@! T Qfu@! T         ! T 	        ! T 
        ! T Qwx@! T Qwx@! T Qwx@! T Qwx@! T Qwx@! T \(w@! T Qs@! T {Go@! T 	        ! T 
        ! T Qoy@! T Qoy@! T Qoy@! T Qoy@! T Qoy@! T      u@! T Gz<q@! T i@! T 	{G`@! T 
        ! T Rz@! T Rz@! T Rz@! T ףp=
y@! T q=
ףs@! T Ql@! T R`@! T (\/R@! T 	=
ףp=#@! T 
        ! T         ! T      0y@! T zG%v@! T )\p@! T q=
ף@g@! T 333333R@! T         ! T         ! T 	        ! T 
        ! T         ! T Ql@! T =
ףpUd@! T QV@! T       @! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T Gz8@! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
          % /8 	 
! T	 (\p@! T	 QCl@! T	 \g@! T	 =
ףpb@! T	 {G*U@! T	 \(\4@! T	         ! T	         ! T	 	        ! T	 
        ! T	 Hzo@! T	 QHh@! T	 ףp=
wc@! T	 Gz]@! T	 (\BK@! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	 Rj@! T	 ףp=
d@! T	 33333^@! T	 QS@! T	 {Gz"@! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	      H`@! T	 Q+W@! T	 >@! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
        ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	         ! T	 	        ! T	 
          
! T $x@! T $x@! T $x@! T $x@! T $x@! T )\$x@! T Qfu@! T         ! T 	        ! T 
        ! T Qwx@! T Qwx@! T Qwx@! T Qwx@! T Qwx@! T \(w@! T Qs@! T {Go@! T 	        ! T 
        ! T Qoy@! T Qoy@! T Qoy@! T Qoy@! T Qoy@! T      u@! T Gz<q@! T i@! T 	{G`@! T 
        ! T Rz@! T Rz@! T Rz@! T ףp=
y@! T q=
ףs@! T Ql@! T R`@! T (\/R@! T 	=
ףp=#@! T 
        ! T         ! T      0y@! T zG%v@! T )\p@! T q=
ף@g@! T 333333R@! T         ! T         ! T 	        ! T 
        ! T         ! T Ql@! T =
ףpUd@! T QV@! T       @! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T Gz8@! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
           % 8 T         $ %C   C  	8$ %C    C  	8$ T CC  C  	     T C  d  % 9 T         $ %C   C  	9$ %C    C  	9$ T CC  C     ) T C  d d     U
  ZI WELCHESJAHR MYSONDERZUSCHLAG HSVHZU HSKIANZ MVFAMZU	 HSMVFAMZU GRUNDBETRAG
 HSMVFAMZU0 MVFAMZU0 %C	     B  %  C 
	 %C	   
 T  
 Hh  C	    
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  4
 T  C	  V
 T  C	  x
 T  C	  
 T  C	  	
 T  C	  

 T  C	   
 T  C	  "
 T  C	  
D
 T  C	  f
 T   C	  
 T   C	  
 T    % 
 T   
 H C     T   A C  ' T   B C  N T   C C  u T   W C   T   R H T  CC  

  0CCC   Z CCC   Z6 T C W F   Q  \tarife\nifamzu F  #)
 	  J        (	  
 (F -    C  

 \ x	    	   
 	
 %C+
$ T  sCCC   Z+ nifezarray(hsnifez) = nifamzu.&nistufe 
   F  Q
 F  T C $ T C C	 d$ T C C	 d$ T C C	 d$ T C C	 d$ T C C	 d    U  ZI WELCHESJAHR MYSONDERZUSCHLAG HSVHZU HSKIANZ SUCH1	 OLDSELECT EIGDAT NIFAMZU
 NIFEZARRAY HSNIFEZ NIJAHR NIMONAT MONAT GRUPPEN KINDER NISTUFE GRUNDBETRAG  4  d h filetree  C  N	  D  C  C  CP &    &     %C    T  CC  	    R B U
  LCPATH FILETREE NAME SIZE UPDATE UPTIME ATTR PATH PATHNAME TREEWALK  4   5 l*# %C    *. D 5   T C    *. D %     (  7 %C    ....D CC   = .	     C    \    B U  LCPATH
 LAFILELIST
 LNDIRCOUNT	 LASUBDIRS LNCOUNT TREEWALK  4    %-)     , %C
 lafiles[1]b U CC  
	   (C   ^ r filetreeC    C    C    C    C        B U  LAFILES LCPATH LNCOUNT       " T C 
   \*. D
 C  R,:
   : C _  (
 +. % DC    C    .	'| r Dateien     C   C   CCC   *  C   C   
      (
 . % DC    C    .	  C
   \C   	    B U
  CPFAD NANZAHL I ARR NAME SIZE	 TIMESTAMP ATTRIB PATH TREEWALK_WOODY	%   Q winhttp.winhttprequest.5.1  * T  C winhttp.winhttprequest.5.11 C GET http://checkip.dyndns.org/-   
 C    T C   f <   T C :  T C </BODY  T C    \	 B  U  OHTTP CHTML OPEN SEND RESPONSETEXT	 HSIPSTART HSIPEND HSIPADR  %C    
  T     T    - T C    D &xmeldenan = this.parent.name + "/"+alltrim(SUBSTR(this.name,8))
  U  THIS PARENT
 HSMELDENAN THISFORM MENULEISTE1	 HSAUSWAHL VISIBLE	 XMELDENANH        T  C ^ T  C^ U  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLORH        T  C^ T  C   ^ U  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLORl% %    CCCC   \g8   T  xmenuCC   \* thisform.&hsxpadname..left = this.left
' thisform.&hsxpadname..visible = .t.
 T       ! T    CCCC   \g8   T  xmenuCC   \" T  commandCC   \* thisform.&hsxpadname..left = this.left
' thisform.&hsxpadname..visible = .t.
 U  THIS PARENT	 HSAUSWAHL NAME
 HSXPADNAME
 HSXPADLEFT        T  C ^ T  C^ %       T	  xmenuCC 
 \" T  commandCC 
 \* thisform.&hsxpadname..left = this.left
' thisform.&hsxpadname..visible = .t.
    U  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLOR PARENT	 HSAUSWAHL
 HSXPADNAME NAME
 HSXPADLEFT        T  C^ T  C   ^  T  xmenuCC  \' thisform.&hsxpadname..visible = .t.
 U	  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLOR
 HSXPADNAME NAME ! T    CCCC   \g8  T          %C    
  T C    & &xmeldenan = this.Parent.hsauswahl
  U	  THIS PARENT	 HSAUSWAHL NAME HEIGHT COMMAND1 TOP
 HSMELDENAN	 XMELDENAN       T C 
   T   	  T   
 # T   	    # T   
    ( T
  commandCC    ZY this.parent.Height = this.parent.&hsletztes..Top + this.parent.&hsletztes..height + 2
 T  in, %C C  C C 
y T  out , %C C  C C 
 T  out  %  out  T      	   U  NBUTTON NSHIFT NXCOORD NYCOORD HSX POSARRAY PADPOS THIS PARENT TOP LEFT HEIGHT WIDTH	 HSLETZTES HSMENUANZAHL ZUSTAND COMMAND1E %C    % %    CCCC   \g8   T  xmenuCC   \* thisform.&hsxpadname..left = this.left
' thisform.&hsxpadname..visible = .f.
 T       ! T    CCCC   \g8  > %C   
: T C    T      DO &xmeldenan 
   U  THIS
 RUNAFTERCLICK PARENT	 HSAUSWAHL NAME
 HSXPADNAME	 XMELDENAND       T  C ^ T  C^ %    =& T	  xmenuCC    Z( thisform.&hsxpadname..visible = .f.	
  T	  xmenuCC 
 \! T   CCCC 
 \g8* thisform.&hsxpadname..left = this.left
( thisform.&hsxpadname..visible = .t.	
  U  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLOR PARENT	 HSAUSWAHL
 HSXPADNAME NAMEH        T  C^ T  C   ^ U  NBUTTON NSHIFT NXCOORD NYCOORD THIS	 BACKCOLOR	 FORECOLOR{
 T     (C  \  %CC    
X  T            T  C    (  ]" T  commandCC  Z$ %   mymenuhauptlabel1 this.AddObject("&butname","mymenuhauptlabel")
 Y2 this.AddObject("&butname","mymenuhauptbutton")
   T    T  	  T  
  T   C   T   a T  
 CC   T   CC   T      T      T    T   a: T   CCC  
 CC     6 T         (  d" T  commandCC  Z+ this.&butname..left = hsbeforeright + 1
 this.&butname..top = 1
 this.&butname..height = 22
2 this.&butname..width = this.hsmenuarray(hsa,2)
! this.&butname..alignment = 2 
  this.&butname..visible = .t.
= this.&butname..caption = ALLTRIM(this.hsmenuarray(hsa,1))
A this.&butname..tooltiptext = ALLTRIM(this.hsmenuarray(hsa,1))
- this.&butname..fontname = this.hsfontname
- this.&butname..fontsize = this.hsfontsize
! this.&butname..fontbold = .t.
n this.&butname..runafterclick = IIF(.not. EMPTY(this.hsmenuarray(hsa,3)),ALLTRIM(this.hsmenuarray(1,3)),"")
> hsbeforeright = this.&butname..left + this.&butname..width
  T    U 	 HSBELEGTE HSA THIS HSMENUARRAY HSMENUANZAHL BUTNAME HSCONTROLART COMMAND1 LEFT TOP HEIGHT WIDTH VISIBLE CAPTION TOOLTIPTEXT FONTNAME
 HSFONTNAME FONTSIZE
 HSFONTSIZE	 ALIGNMENT FONTBOLD
 RUNAFTERCLICK
 HSBEFORERIGHTw      % T  commandCC   Z T  command1S IF nxCoord + 1 > this.&hsrechterbutton..left + this.&hsrechterbutton..width %    # T	  xmenuCC   Z( thisform.&hsxpadname..visible = .f.	
  T    B 4 IF nxCoord + 1 <= this.&hslinkerbutton..left %   # T	  xmenuCC   Z( thisform.&hsxpadname..visible = .f.	
  T    B / IF nyCoord <= this.&hslinkerbutton..topp %   X# T	  xmenuCC   Z( thisform.&hsxpadname..visible = .f.	
  T    B  U
  NBUTTON NSHIFT NXCOORD NYCOORD HSRECHTERBUTTON THIS HSMENUANZAHL HSLINKERBUTTON	 HSAUSWAHL
 HSXPADNAME
 T     (C  Y  %CC    
U  T            T  C  
 T    (    %CCC    >   T CCC    >  2 T C     	 $ 333333? % 
  K T 
   T -  % 
  
r T a  T -    (  N" T  commandCC  Z % 
  mymenulabel, this.AddObject("&butname","mymenulabel")
 J. this.AddObject("&butname","commandbutton")
  
 T   (  " T  commandCC  Z this.&butname..left = 1
+ this.&butname..top = HSbeforebottom + 1
@ this.&butname..height = this.height * IIF(doppelthoch, 2, 1)
% this.&butname..width = this.width
! this.&butname..alignment = 0 
  this.&butname..visible = .t.
" %CC    \ \W@ this.&butname..caption = " "+SUBSTR(this.hsmenuarray(hsa),2)
N this.&butname..tooltiptext = " "+SUBSTR(ALLTRIM(this.hsmenuarray(hsa)),2)	
  this.&butname..enabled = .f.
 2 this.&butname..caption = this.hsmenuarray(hsa)
? this.&butname..tooltiptext = ALLTRIM(this.hsmenuarray(hsa))
  this.&butname..enabled = .t.
 - this.&butname..fontname = this.hsfontname
- this.&butname..fontsize = this.hsfontsize
? hsbeforebottom = this.&butname..top + this.&butname..height
  T 
  
  T    U 	 HSBELEGTE HSA THIS HSMENUARRAY HSMENUANZAHL MAXSTRINGLEN HSMEXMENLEN
 HSFONTNAME
 HSFONTSIZE HSFONTSTILE WIDTH DOPPELTHOCH BUTNAME HSCONTROLART HSBEFOREBOTTOM HEIGHT.      
   T    T    T      T    	  T
  in$ % C   C 
  T
  out $ % C   C 
 T
  out  %
  out' T  -  U  NBUTTON NSHIFT NXCOORD NYCOORD PADPOS THIS TOP LEFT HEIGHT WIDTH ZUSTAND VISIBLE ErrorHandler}     ShutDown     CleanupA     test1     test2     lohnsteuervariablen     grid_color_kirchsteuer43     grid_color_kirchsteuer5A4     gridcolor_lohntabelle4     kasten_klick500c5     check_click500;6     get_color_szbeamte7     get_form3_3_color8    
 get_color_f338     gridcolor_grdatzAgrid19     gridcolor_grderstattungr>     gridcolor_grdkstgrid>     gridcolor_grdkvpflh?     gridcolor_grdlstausgleichgrid"@     gridcolor_grdprogressgridB     gridcolor_grdmaskegridD     gridcolor_szanzeigenE     gridcolor_grdlupe34_sp1G     gridcolor_grdlupe34_sp2G     gridcolor_ansicht
I     gridcolor_ansicht2!J     getspaltbL     setspaltL     GetWidth(M     lei_ClicN     lst_Clic<Q     zvk_Clic S     soz_ClicT     wei_ClicV     tei_ClicLX     bru_ClicZ    	 DEM_Clicka     getpartfromlineRj     filecopy'k     CDblk    
 giveselectil     verzeichnisprfenFm     getusernamem    
 kv_eingabe*n     clngx     RenDirqy     tresoraktivierenz     gridcolor_teilzeit     gridcolor_flex0to3B     ccur     dir     lof_long     lofC     prfefreischaltungE     lizenzja:     URLDownloadToFile     dos2win     rec_lockO     warteU     add_rec     blank     GetPeriodBetweenDatesә    
 SchaltJahr     boy:     eoy͜     bom^     eom[     addmonth֟     mycmonth    	 SelDirDlg$     mygetdir     hinweis      ok_box.     direktzumdruckerQ     okŨ     ok2     okJNg    
 no_zugriff֩     charonly2     numonly:     is_last_recB     jahr2000     indexord     rcv     net_use     stodɯ     to_file2L    	 to_select}     tempfile     NTOCDOW    
 tableupdate_Ir    
 utf8encodeƲ     umlaute     utf2umlauteȴ     stringX     lof5     isinstrS     fix|     mystring     qbcolor      hex2dec_long     myclose̻     myfsizea     myopeni     show_procaufrufe     myformat     myputv     mykill    myget    cint$H   	 fileexistH    filelen2I    filelenI    getkvbeitragJ    hex2rgb L    dec2rgbL    hex2decM    DecToHexON    NotAtO    neuesupdateP    midW    string_shortX    Ucase=X    lcaseZX    pcg_showtipwX   
 myround100G    z_click    zgrid_Click   
 getmonatsname,    getmonatsnameshort
    mt     wt<    dateaddi    geduld    datediff   
 datediff_2
    tabB   
 arrayinits`    dircopy#    direxist#   
 CopyFolder'$   
 MoveFolder &    DeleteFolder(   
 daysofyearz)    weekday*    addyearso*    isschaltjahr-,    firstmondayofyear,    MondayOfWeekQ-   
 WeekOfYear-    OSTERN-    ISOSTERN_1   	 ISBUSSTAG1   
 ISFEIERTAGw2    getarbeitstageimmonat 8    getanzwochentagimmonat:    msgboxP<    get_vkaseite<    appexit    getmonthnameƟ    cmdstartunz   	 checktime    
 timetohourC    timetominuteգ    progressioninreportg    report_tarifetcק    report_svSchl_eheg9    report_stkl-    report_stkl_wert    report_strtageX   
 report_svtage    report_strfreijhr    abrechnung_1_vars   	 setrowcol    Twips2Pixelse    write_vb6ds_2_var    jahrfix    Pixels2Twips   
 T_KeyPress    bda_Datum_LostFocus    berlinfamzu_2024    byfamzuparameter    byfamzu_2023    
 nrwfamzu_2022t'   
 RLPfamzu_2022>    SHfamzu_2022b    BWfamzu_2022X   
 Brdfamzu_2022    bremenfamzu_2022    MVfamzu_2022    NSfamzu_2023M    filetree    treewalk    storeit5    Treewalk_woody6    MyWanIP,    click~    	 mousemovel    
 mouseleave     click   	 mousemove)    
 mouseleave    click   	 mousemovei    click   	 mousemove   
 mouseleave-	   
 createbuttons	   
 mouseleave!   
 createbuttons   
 mouseleave   ,  T  -
     
     
      U  WORDWRAP9  T  -
 T 
     
     
      U  WORDWRAP HEIGHT 
     
      U  S  T  -
 T 
 T 
 T   
     
     
      U  WORDWRAP HEIGHT	 ALIGNMENT
 RUNAFTERCLICK  T   Arial
 T 	 T  N
 T 
 T  T  mymenuhauptbutton
 T   
 T  
 T   
 T	  
 T
 
 T   
     
      U
 
 HSFONTNAME
 HSFONTSIZE HSFONTSTILE HSMENULEISTE HSMENUANZAHL HSCONTROLART
 HSMENUNAME	 HSAUSWAHL
 HSMELDENAN BORDERWIDTH HEIGHT TOP HSMENUARRAY  T   Arial
 T 	 T  N
 T 
 T  T  mymenulabel
 T   
 T  
 T   
 T	 
 T
  
  
     
      U 
 HSFONTNAME
 HSFONTSIZE HSFONTSTILE HSMENUNR HSMENUANZAHL HSCONTROLART
 HSMENUNAME	 HSAUSWAHL
 HSMELDENAN BORDERWIDTH
 SPECIALEFFECT HSMENUARRAY0 
 T    
 T   # U  HARALD MATHIAS
 VORKASSEN1   2Q INTEGER  8Q LONG  Q LONG  Q LONG  $Q LONG  Q BOOLEAN  Q BOOLEAN  Q BOOLEAN  Q BOOLEAN 	 Q BOOLEAN 
 Q INTEGER
 T   
 T    U
  ZNAM TNAM TZNAM TBNAM EFFZ LST SOZ ZVK WEI TEI BRU BDA RESERVE
   <
  B
  
  
  =
  
  
  
  
 	 
 
 
  
 T   
 T
  
 T  
 T  
 T  
 T  
 T   T - T -
 T   T - T - T - T          T          T          T          T          T          T          T           T!         
 " 

 # , U$  ZNAM TNAM TZNAM TBNAM EFFZ LST SOZ ZVK WEI TEI BRU LEI BDA NOCHFREI Z55	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR ZHLKIND SOLDATEN ZNR63 DIMATZAUFSTOCKUNG
 DIMATZSOLI DIMATZKIRCHE GLEITZONEALT RESERVE2 RESERVE3 RESERVE4 RESERVE5 RESERVE6 RESERVE7 RESERVE8 RESERVE9	 RESERVE10 ZULAGEN SCHLSS
   <
  B
  
  
  =
  
  
  
  
 	 
 
 
  
 T   
 T
  
 T  
 T  
 T  
 T  
 T   T - T -
 T   T - T - T - T          T          T          T          T          T         
  
 T    
 T!   
 " 

 # , U$  ZNAM TNAM TZNAM TBNAM EFFZ LST SOZ ZVK WEI TEI BRU LEI BDA NOCHFREI Z55	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR ZHLKIND SOLDATEN ZNR63 DIMATZAUFSTOCKUNG
 DIMATZSOLI DIMATZKIRCHE GLEITZONEALT RESERVE2 RESERVE3 RESERVE4 RESERVE5 RESERVE6 RESERVE7 ZEST SPARTE ENTGELTCODE ZULAGEN SCHLSS5
 T    
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T	   
 T
   
 T   
 T   
 T
   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T       
  
  
   T - T -
 T   
 T   
 ! 
 T"   
 T#   
 $ 
 T%   
 T&   
 T'   
 T(   
 T)   
 T*   
 T+   
 T,   
 - ,
 . 
 T/   
 T0   
 1 
 T2   
 T3  
 T4  
 T5  
 T6  
 T7  
 T8  
 T9  
 T:   
 T;   
 T<   
 T=   
 T>    T? - T@ - TA -
 TB  
 TC  
 TD   TE -
 TF   
 TG    TH          TI          TJ          TK          TL          TM          TN         
 TO  
 TP  
 TQ  
 TR  
 TS   
 TT  
 U 
 V 
 W 
 X 
 TY  
 TZ  
 T[  
 T\  
 T]   
 ^ 
 T_   
 T`  
 Ta   Ub  ZTEXT0 ZTEXT1 ZTEXT2 ZTEXT3 ZTEXT4 ZTEXT27 ZTEXT5	 SVNUMMER1 ZTEXT6	 SVNUMMER2 KONTO BLZ ZTEXT7 ZFLAG ZTEXT8 ANREDE WEIFLAG ZIBAN ZBIC ZPERSNR ZTEXT10 ZTEXT11 ZTEXT12 ZTEXT28 LUCKKV LUCKRV KORRLST KORRKV KORRRV ATZALT	 ZVKZUSATZ ZTEXT13 ATZAA ATZAAA ZTEXT14 ZTEXT15
 BUNDESBEAMTER ZTEXT16 ZTEXT17 ZTEXT18 ZTEXT19 ZTEXT20 ZTEXT21 ZTEXT22 ZTEXT23 SCHLSS SACHB SACHB24 SACHB47	 TVDZEILE TVDAUFSTIEG TVDAUFSTIEGMONAT TVDAUFSTIEGJAHR TVDAUFSTIEGDAUER TVDFUNKTION TVDAUFRUNDUNG SEPTEMBERKINDER TVLVERHZ ZTEXT29 PERSONALFALL STRUKTUR ZTEXT32 ZTEXT33 ZUMLAGE1 ZUMLAGE2 ZUMLAGE3 ZUMTV5 ZUMTV7 TVDSTELLENZULAGE
 ZVKZUSATZ9 RESERVEENTGELTCODE RESERVEZTEXT35	 ZATZNETTO LEISTUNG2007 LEISTUNG2008 LEISTUNG2009 LEISTUNG2010 LEISTUNG2011 KINDERBESITZSTAND VERSORGUNGSBEGINN VERSORGUNGSMONATE VERSORGUNGSBEZUG
 VERSORGUNGSSZ STRUKTURREST ZSGRUPPE ZSSTUFE ZSBETRAG ZSOPTION ZSINDIV ZSWOSTD	 ZSWOMONAT	 ZSBENUTZT BESJA ZTEXT38 ZEST
 STUFENRECHNEN TVDSOZAMINUSTAGE	 STUFEN_BW
 T    
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T	   
 T
   
 T   
 T  
 T
  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   
 T!  
 T"  
 T#  
 T$  
 T%  
 T&  
 T'  
 T(  
 T)  
 T*  
 T+  
 T,  
 T-  
 T.  
 T/  
 T0  
 T1  
 T2  
 T3  
 T4  
 T5  
 T6  
 T7  
 T8  
 T9  
 T:  
 T;  
 T<  
 T=  
 T>  
 T?  
 T@  
 TA  
 TB  
 TC  
 TD  
 TE  
 TF   TG          TH          TI          TJ          UK  DIMTEXT1 DIMTEXT2 DIMTEXT3 DIMTEXT4 DIMTEXT5 DIMTEXT6 DIMTEXT7
 DIMSTRASSE DIMSITZ DIMTEXT9	 DIMTEXT10 DIMSTEUERNUMMER
 DIMVERSION
 DIMARTIKEL
 DIMPASSWORTJA DIMPW1 DIMPW2 DIMPW3 DIMPW4 DIMPW5 DIMPW6 DIMPW7 DIMPW8 DIMWELCHESJAHR
 DIMFILENEU DIMMONAT DIMMODUS DIMSATZANZAHL07 DIMSATZANZAHL08 DIMSATZANZAHL09 DIMSATZANZAHL10 DIMSATZANZAHL11 DIMSATZANZAHL12 DIMSATZANZAHL13 DIMSATZANZAHL14 DIMSATZANZAHL15 DIMSATZANZAHL16 DIMSATZANZAHL17 DIMSATZANZAHL18 DIMSATZANZAHL19 DIMSATZANZAHL20 DIMSATZANZAHL21 DIMSATZANZAHL22 DIMSATZANZAHLJ1 DIMSATZANZAHLJ2 DIMSATZANZAHLJ3 DIMSATZANZAHLJ4 DIMSATZANZAHLJ5 DIMFORM1OBEN
 DIMFORM1LINKS DIMFORM1HOCH DIMFORM1BREITALT
 DIMAMTOBEN DIMAMTLINKS
 DIMAMTHOCH DIMAMTBREITALT DIMJAHROBEN DIMJAHRLINKS DIMJAHRHOCH DIMJAHRBREITALT DIMLSTROBEN DIMLSTRLINKS DIMLSTRHOCH DIMLSTRBREIT DIMLASTN DIMPOPUPHELP DIMNETZWERK DIMFREI3
 DIMFORM1BREIT DIMAMTBREIT DIMJAHRBREIT DIMFREI7 DIMFREI8 DIMFREI9	 DIMFREI10 
    U  FELD   #  #  #  #  # T          T          T          T - 	 
 
   
   T
 -
  
  
  
  
  
     T          T          T         
 T   T           &     T          T          T          T           T!          T"          T#          T$         
 T%  
 T&  
 ' 
 T(  
 T)  
 *  T+          T,          T-         
 T.  
 T/  
 T0  
 T1  
 2 
 3 3 4 
 5 
 T6  
 T7  
 T8  
 T9  
 T:  
 T;    U< 
 VORKASSEN1
 VORKASSEN2
 VORKASSEN3
 VORKASSEN4
 VORKASSEN5 VORPVVOREIN VORRVVOREIN VORAVVOREIN	 VOREINAUS
 VORUMLAGE1 VORUMLAGE1AB
 VORUMLAGE2 VORUMLAGE2AB VORNRW VORKVGRENZE VORPVGRENZE VORRVGRENZE VORAVGRENZE
 VORZVKBEMG	 VORGERING
 VORZVKUMLZ VORZVKUMLAGE
 VORZVKHALB VORZVKAG VORZVKSTART VORZVKKISTR VORWEIHNACHTSGELD VORPROZENTE	 VORPFEILE VORMULTIPLIKATORB VORWELCHERMONATB VORMULTIPLIKATORA VORWELCHERMONATA VORTARIFE1AB VORTARIFE2AB VORTARIFE3AB VORTARIFE4AB VORATZA VORATZB VORFARBENRGB
 VORZVKAREV VORFREI2
 VORKINDERGELD VORSANIERUNG VORAGSTEUER VORFREI8 VORFREI9	 VORFREI10 VORZUSATZKV VORZUSATZPV VORSACHBEZUG VOREINBEHALT VORWOCHENSTUNDEN
 VORPENSION VORINSOLVENZGELD VORTARIFE6AB VORTARIFE7AB VORTARIFE8AB VORTARIFE9AB	 VORFREI13 
 T     U  TEXTEE 
   
   U  DATUM BESCHREIBUNG 
 T     U  XTEXTQ 
 T   
  $
  
 T   
 T  
   U  EINTRITTRUHESTAND DATUM BESCHREIBUNG RESERVE MON BOXEN# 
 T      U  BENUTZT DSTUNDENJ 
     
  
  
 T   U  ZO SV JOB ARB BER 
 T    T         
 T  
 T  
 T  
 T  
 T  
 T  
 T   U	 	 DATVAGBIS
 DATVSTEUER	 DATVSTART DATVAREV
 DATVUMLAGE DATVUMLAGEAN
 DATVSANIERUNG DATVKAPITAL
 DATVKAPITALAN!     T - U 	 DATVKISTR	 DATVCHECK
   
 T  
 T  
 T   T - T - T         
 T  
 T   T	 - T
 - T -
 T  
 T
  
  
  
  
  
  
  
    
 T   T - T -
 T  
 T   T          T         
    
  
   
 T!   U"  AG HO HK SC HC HR HE KO KK REG UEB BER GK GR PRI STU LST LO MO UR WE ERG TRAG RES1 RES2 RES3 RES4 RES5 RES6 ZO SV JOB ARB BER 
 T   
  "
  "
  "
  "
  "
  "
  "
  "
 	 "
 
 "
  "
  

 
 
 U  SZZI SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZ13RESERVE SZTZ SZMASSD 
 T    
 T   
 T   
 T   
 T    U  USERNAME PFAD PASS
 PFADTARIFE	 PFADTEXTE
 T    
 T  
 T   
 T  
 T  
 T  
 T  
 T  
 T  
 T	  
 T
  
 T  
 T  
 
 
  
  
 T  
 T  
 T  
  2 U 
 DIMGEBURTSTAG DIMANSPRUCHNORMAL DIMGEHALTSGRUPPE DIMTAGEWOCHE
 DIMZUSATZTAGE DIMZUSATZURLAUB1 DIMZUSATZURLAUB2 DIMZWLFTEL DIMKRZUNG1 DIMKRZUNG2 DIMSGB
 DIMVORJAHR
 DIMVORJAHRVON DIMGENOMMENTEXT DIMGENOMMENTAGE DIMGENOMMENBASIS DIMRESERVE1 DIMRESERVE2 DIMRESERVE3
 DIMURLAUBSTAG 
 T     U 	 IMPODATEI 
 T     U 
 STRUKZEILE 
 T     U  TVLSTRI 
 T     U  BUNDSTRI 
 T     U  VKASTRI     U  VORSOZA 
    U  KOMMTR 
 T     U  UPD 
    U  MNE 
    U  MNE2 
    U  VONBIS 
 T     U  MERK
 T   
 T  
  	
  	
 T   
 T   
 T   T -
  
 T	    T
 - T - T -
 T
   
 T   
  
  
  
  
  	
  	 U 
 XGEBRAUCHT XBEAMTER XBESOLDUNGSGRUPPE XBEFRDERUNG	 XBEGINNEN XBEENDEN	 XVDZSUMME XRUNDEN	 XINDSTUFE XRESERVE XDIENST XSOLDAT XA8 XGEBURTSTAG
 XERNENNUNG
 XVORZEITEN XPROZENT XVON XBIS XKRZER XLNGER* 
   K
  K
 T    U 
 DIMURLAUBSTAG DIMFARBE DIMKOMMENTAR7 
 T   
 T   
 T   
 T    U 	 HS_KUNDNR	 HS_ANREDE HS_NAME
 HS_GEBUEHRk   # T          T          T          T -  
    
   T	 -
 
 
  
  
 
 
  
     T          T          T          T          T           &     T          T          T          T          T          T          T          T          
 T!  
 T"  
 # 
 T$  
 T%  
 &  T'          T(          T)         
 T*  
 T+  
 T,  
 T-  
 . 
 / 3 0 
 T1   
 T2   
 T3    U4 	 VORKASSEN VORPVVOREIN VORRVVOREIN VORAVVOREIN	 VOREINAUS
 VORUMLAGE1 VORUMLAGE1AB
 VORUMLAGE2 VORUMLAGE2AB VORNRW VORKVGRENZE VORPVGRENZE VORRVGRENZE VORAVGRENZE
 VORZVKBEMG	 VORGERING
 VORZVKUMLZ VORZVKUMLAGE
 VORZVKHALB VORZVKAG VORZVKSTART VORZVKKISTR VORWEIHNACHTSGELD VORPROZENTE	 VORPFEILE VORMULTIPLIKATORB VORWELCHERMONATB VORMULTIPLIKATORA VORWELCHERMONATA VORTARIFE1AB VORTARIFE2AB VORTARIFE3AB VORTARIFE4AB VORATZA VORATZB VORFARBENRGB
 VORZVKAREV VORFREI2
 VORKINDERGELD VORSANIERUNG VORAGSTEUER VORFREI8 VORFREI9	 VORFREI10 VORZUSATZKV VORZUSATZPV VORSACHBEZUG VOREINBEHALT VORWOCHENSTUNDEN	 VORFREI13	 VORFREI14	 VORFREI15 mymenulabel Label+    mymenuhauptlabel Label,    mymenubutton
 CommandButtonl,    mymenuhauptbutton
 CommandButton,    mymenuleiste	 container
-   	 mymenupad	 container.    testtest Custom/   	 personbak Custom40   	 Personalt Custom1    Person Custom4    personnamen Custom/8    Dimens CustomA    Personen Custom^I    Voreinstellung CustomxI    textes CustomsP    bdaa CustomP   
 Belehrungtext CustomP    jdaa CustomP    Zuschl CustomrQ    zon CustomQ    dimatv CustomR   	 dimpausch CustomS    SoVer CustomBS    sonderz CustomU    userdat CustomV    urla CustomhW    impo CustomY    strukt CustomY    TVLst CustomY    Bundst CustomY    VKAst CustomZ    TVoeDSZ Custom3Z    ktr CustomVZ    GUp CustomrZ    MNE CustomZ    MNE2 CustomZ    Tagl CustomZ    TM CustomZ    EDZeit CustomZ    Kalende Custom\    HS_ops Custom2]    Voreinstellungbak Custom]   r q    A b q RQr 1a  A  r q   aA!1!!qqaQa a r  r 2     r r r  @a  a a a    q A 1a 1 q ra q3s q             s  A r  AA 11A 11A  r  A  A    Rr ~   A      1! ( A  A A Q2RA A A  r s    A    A 1a  a A A 4   R  QA A  q A 5 2 A  A 4 A A   a  Q Q q A 4  3  3 r q r q q q q q q q s q q r q r q q q q q q r q q q q q q s q q q q q r r q q r t q q q q s q q q q q q q q q q q q s q q q q q q q q q q q q q q q r q q q q s q r q q q q q q q q q "q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q r q q q q q q q q q q q q q q q q q q q q q q q q q q 31211111121111q q 311111"2112 QRQ QQQQQSQQ QSQQQQ QQ     SQQQQQQQQQQQQQQQRQQQQRQRQQQQQQQQQ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ QQQQQQQQQ QQQQQQQQQQQQQQQQQQQQQQQQQQQ RQQQQQQQQQQQQQQ QQQQQQQQQQ 3 q 1! !A 4 q 1! !A 4 q  !! !A 3 q qa A  3  a11 a1A A  3 q  !Q! !A Q! !A Q! !A  !A 4 q "! !A 4 q ! !A 4 q a!A A !A !A A 	!A A a!A A !A A q!A !A A a!A A !A !A A !A 4 q q  1q A A q 3 q ! !A 3 q b! 1! !A A 4 q  !!A !A !A !A !A !A !A !A  !A 3 q  !A !A !A !A !A !A  !A 3 q !A !A !A !A 3  !A !A  a! !A a! !A a! !A A !4 q q  q A 3 q  !!! !A !3 q q! ! !A A 4 q !A !A  !!!A A !A  !!!A A A 3  q 1 1q  1  u!  1  3 q q A A 1A A "qa1! 1!A A QqA  q A 3 q q A A 1A A ra1! 1!A "!q 3 q q A A 1A A ra1! 1!A "!q 3 q q A A 1A A ra1! 1!A "!q 3 q q A A 1A A ra1! 1!A "!q 3 q q A A 1A A sa1! 1!A "!q 3 q q A A 1A A CQ a1A q a!a!a!a!a!a!a!a!a!a!a!a!a!A q      A 1D  qb1! 1!A 1!A A  qb1! 1!A b1!A A A #!q 5  r A A sq A rq A A A r A A A A b     B A 2 A A B C A      Q Q   A  !qA QA r1A 1      A  A R     q C b11A 3   A   A q!q q q  3  1q A a a q 3 q  A q  Q   A A  3 q A  qQ A A A    A 3 q "   A  a A  4 q " 6    A1111A rQ  a1 A a1 A a1 A a1 A a1 A B B A  4 q !A   ! !    A !   A A 3  A3  !1qA !!A !1qA !!A !1qA A 1b a 1A !A !A 1A r 4 q  3 q ! !A 3 q    A 2   A  QA 3 q 1 q   A    3 q !A  ! 1 A        A 3 q RQ1A Q1A  Q1A 2q1A   A  q b A  A  A  3 q  Q AA aa A A s   ( )A  r 4 q     A A 11q  A  q  A 4 q  A AAAb 3 q   A  A  ! Q A A A q  q A 3 q  A  8 q Q A 3   A  a1aa aaq   A  3 R" a!a! A A r 8 q  A 1A Q 3 q    A q 3 q    A q 3 q    A   qA 3 q    A    qA 1! A 3      A  A   1   A     A  1A!1aAQQ AA    A 4  AA 5 A          A   QqA A A A  2 q  A  3 q 3 3 q A qq A  q  q A 4 q !q  q A 3 q !q  q A 4 q q  q A 3 q  3    A  1A    A A 3    A  1A    A A 3   A  q   A  A 3 q q A  Q   A 3  3 q     Q QA !A  A  A 4 q 3 q  1 A 3 q 1q 3 q 1q 3  A4 q   A a A A   1  A 3 q     A  2 q   q1 A A  3 q  3 q  3   1 q  3   3 q  3      A A 3 q  !!!!!!!!!!!!!!!!!!B 3 q   QaA 1        QA A  3      a A   A A  A  qA A  A A  Q A A  4 q  A  A "1 A " A   ! A    q  A  4 1Q  A    QA A !A "Aq    AqA &qA .qA X	qA zqA qA  rA qA  rA B A   A    A A   11A A  4 q  rq A 2q A q A q  q A 3   A 1  1A!1aAQQA !qQ qqaq! A A A  5  !A  A    !Q A A A A    q !!!!!!!!!!!!                      !!A C !!!!!!!!!!!!                   !  AA AA AA !!A B! A A A A                          !!!!!    !  !        !!  !                                   !!#!     !    A    A B c                                                                            B    !!!!!!!!!!!!!!!!!!!!!!!!!!!A A r !!!!!    !!!! !!!!!!!     !!!          !  !       !!!!      A   A B !!A   A r  !!  !A   !A R !!!! A B          A r ! A  !             !!!!!!!!       !!!! A   !!!!!!!!!!!!!A         A A               !!!   !A   A b  A   A   A R !A  !A   A b   QQQQQA B R   QQQQQA B r !A  !A B   !!    !      !!!!!!A  !! A B   r A QA B A 4 q q A 1 1aA A q 3   !A A   !Q A A A B  A A A A A A A A  q aA  A   r                       A B                      A C                              A    A                                                    R   A Q   A B b                                                                       Q     A      E  AAAAAAAAAAAAAAAAAAAAAAAAAAAA r                                    A   A B A   A r    A  Q A  Q1Q!q A A R  A B          A r  A                       A   A       A                  A   A b  A   A   A R A  !A   A  q qqqqqB r q qqqqqB r A   A B             A   A B 5 q A   QA A 4 q q A Qq  q A 3 q  A   Q A   5 q  A  A !A "     A  A 4   !!!!!A  4 q !A b"3 q !A B   b"3 q 34 q  A g A RA   1       tQ A A  A B  4 q r A A A A 5bbRQQ QA q A q A q A     ! !A  ! !A  ! !A  ! !A q  q A 3  4   3 q  3 q  3  2 A qA aA AA  1 !1AQA	  A  !2  A  QQQ  A Q! A   QQq  A  QQ   A  Q QA  A  A  A  1QQA   A Q	Q	 A!Q  A  Q1A   A ! QQQ  A  QAQQQQ
Q1  A 	A	AAaAAAAAAA1AAAAqA1A
AQaAaARqQ!QQ!QQA !A !!aqAAAQQAQAQAQAQAQAQQQARaq
aq
aq
aq
aq
Bq
q  A A1A A A  1	!
AAA A A A AAA AA A A AqA!AA A   A rqq Q!aQaQaQq  A qqAqq1q Q!QQQA  A qQA	A	!	 QQ1aQ A !aaQ qA aa1!QQ1aA!!	rq1QAQQQQQQQaQ!	QaQQaaaQaaaa!aaaaa1aaa Q11Qq  A a		qbaaaaaaaaab	a	a	ba	QR
Q
Q
Q
Q
BraQA A !	A 1 A  1
  A A q Q !!
!!
!!
!!
!!
A QqQQQqQQQQ! A q  A p1  ! 3 q A A Q  A A A A A A q A A  1A A 1A A QA A  AAB A A  Q1A Q1A A A A1A A A 6u 1q A A    A A  A A A 4s  r 5a4 q      aq A A  q  q A A A  A A qaaaA aaaaaaaaaA q   A A A B   Q 11A AAAA  q"!   A QQQRQQRQQqq  !B A A A A A A  q  1 B A   B A A Q A A A q A   A   A   A    r  q r  q  A A  A A A   A  A A A u  AA  111111q A A A 3   A  A  QQA   ! !! ! ! ! ! ! !!!11A 3   A  A  QqQA   ! ! ! ! ! ! ! ! ! ! 1 1 A 3 q 3 q   1 !A 3      A  !1q!Aq!q! A 3 !3  S A Q A  ! !q !A 3  S A Q A  ! !q !A 3 q  3     5  a3 q 3   A A  q  A  3   A A A  q  3   A  q  A  3 q  A    A 3  Q A  3    A Q  A Q A A 1A  A  qA  A 4 q  A 3 q  A q1  A A 3  4  X4 q qyw"!!Rr  r A  A  A   4 q q  rq  q A 3 q   sq  q A 3     Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q   A   A   !q Qq Qq Qq Qq Qq qq q q q q q q q qq q q  q A 3   A b!  A  q A A A A A 3   A RQA b! Qq!A  5 1!5 1   A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A B 3 A 3 q         !A 3  q Q2q v 3  2Aq A !q A !q A q 3 q q!A !3 q q!A !3 R Aq  A CbA q 3 q  Q QQQA  Q Q1Q1Q1Q1Q1A  A  QaQqQqQQQaQqQQqQQ1QAQqQQQQ1QA A  3 q  Q    Q A  !!1!Q!Q!A  !!Q!Q!A  !!!A   R  A B Q 3 q  aAA  3 q  QQQQQQ!Q A   3 q   Q   !A Q!  !A    !A A   !A A Q A  3 q  Q Q   !A Q!  !A    !A A   !A A Q A  QA  3 q qA  3 q A  3 q  !11 AAaAAA 4   "5S#4 q  q r!a  A A Eaq!2q!qA  1 qq1A !qq1A  qq1A A A  !b A  A 1A A  5 !
A 5   "5S#4   q q r Q A A   qsA Q!Q1A b1A B A  QA aaA  A A Rq1A Raq1A R11
 1A 1A  A1Qr  qr !	A  Qr  qr !	A A Q1r  r A A A bAA RAA rq!!q 11A  11A !!q 11A  11A A Rr Rq A A B 3    q H A    3 A A Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R A A Q! aSQQSQQA A   A E B 3 QQ !#### QR!A A   QR!A 3 r           A Q Q aQ a   a a Q Q QQ QA A R A Q Q Q Q Q Q Q Q A aA aA a QA  QA  QA qA A 3 Q QA 1A  A1 Q Q Q  1A  A   q Q  q  1   A  Q  Q Q Q Q Q Q Q Q  Q  Q  Q  Q  Q  Q R R A !!1 A  !1 A A   A A  A # A " A " A " A "	 A "
 A  A B  q!1 A  !1 A A   A A  A  ! A ! A ! A ! A ! A ! A A  A B A A q A  A A 4 Q QR 1A  A1 K   q   A A A Q  1   A  Q  Q Q Q Q Q Q Q Q  Q  Q  Q  Q  Q  Q R R A !1 A 1Q !1 A 2QA   A A  A #! A # A 1RQ AQQ A AQQ A QQQ A QQQ A AQQ A A Q A AB #1 AA 1QQ AQQ A AQQ A QQQ A QQQ A AQQ A A Q A AA " A 1QQ AQQ A AQQ A QQQ A QQQ A AQQ A A Q A AA "	 A 1QQ AQQ A AQQ A QQQ A QQQ A AQQ A A Q A AA "
 A 1QQ AQQ A AQQ A QQQ A QQQ A AQQ A A Q A AA q  A B r A  A A 4 QA A Q Q  Q Q Q Q Q Q Q Q  Q  Q  Q  Q  Q  Q R R A  `!1q A A "1q A A B QQQQQQ  AQQQQQAQAaA Q QA A A A A QQaa A q A A 3 QA A !Q Q  Q Q Q Q Q Q Q Q  Q  Q  Q  Q  Q  Q R R A 2q B A b qq1A A  A  qq1A A  qq1A A A R Q   Q Q A A Q Q 1 Q B A qA A A A A q A A 3 QA A Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R A S A A Q Q A A A 2Q A R 3RQ A BAAAAA r B A 3 QA A R  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R A  qAAAAAA!AAAAAAA A A A 3 AA A R  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R A r1A R2AAA A A #!12A "12A !12A A RBAAA A A RBAAA A A A A A 4 QA A R  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q R R A   Q!Q!Q!Q!Q!A   q Q @ Qra AA A r A  rAAAAAA A A 3 q G !  A  Q A 2 q  1B qqA A A A 2   1A A A A 3 q S# A A A A B 2 Qq  !q q ; a1QAA 4 13 1: Qq1 A !q4 1q!q E 3 1q9 aQaA 3 1R 11 A A AA = !Qq1 A  1!1!A A 3 1rbA 3 101  A A b!A !A A 211aa1!!A 5 1QQ1A2A A A BA2A A A A2A A A `1  A A  A A !B  A   A A ! A A  !Q! !A A rA3 1 aa AA AA A A  .1     6        8   1         5 !          1   1 !            1   11 QQQQ  1                          QRQQQQQQQ  1                          QRQQQQ     1                         11                                              QQQQQQQ                   5                                                                        QQQQ1  1 21111QQQ 1 1        1RQQ Q311QQQQRQQQ      QQQ      3       4  1   1  1       1  11  1   1  Q       1 1 1       Q              1     QQ 1   1               1      1                     1  1  1  1  1  1 11  1  1  1  1  1  1                      1    1     1 2QQQ 1 1        1RQQQQ311QQQQRQQQ      QQQ      2   2                    p(  k*  x     *  *       +  +      ,  %,      C,  V,    	  ,  N      N  }O  Z    O  :P  d    gP  eQ  n    Q  ZR  z    R  S      S  U      V  V      V  )W      VW  ^      ^  E_      q_  `      A`  Ba    '  wa  re  ,  L  e  +h  S  h  Yh  i  q  v  i  l      l  &m      Um  o      Bo  p      p  s      t  
w      -w  z      +z  |  ?    $|  ~  Q  
  ~    t    Հ  ̂    4        I        ^        s  9  d        <    6  c  x    D    N  %  N  j    1  ]  4  4  B  n  ]  E  U  z  h    g  ~      r    (  4      R        1      M  #  E  l  P  o    q  W    M  z  ^  ]      h  4      s    $      N  u        C  	    l  a  ]	        	        	      u  	  #      	  '    $  	  ;  \    	  O      	  Z  3     
  c    f  
  l    r  
  {      '
    #    A
      3  n
    V   
     r 
      
     ! 
    J 	 
    	 V
 
    q
 
     
 n         !  
 h
   1  
  1  A    C  O    S  ]    c  _  .  g  x      z               &     F x      0     W       '     ;       ,     K x        #    2  X  )    s    /      e! 5    ! i% C  	  % ( n  4	  ( *   V	  + -   v	  - A   	  A kC 
  	  C H 
  
  :H -     O [     {    0   `   :      D      P   -   f  Q    w    %     C 3    b   F    % W O    n  w          # S   
  w    
              ;  !    <  )    Ӛ b 0  .   v      1   "  ]    K   , 
  N  F    b    %  y    A  {  7 B E    d ^ Z    y  o      t     M     m          (    0  :   D E  J  f  W  T  5  c  Z   b k  x      ~  5      4       _     } S     u 
     + b      ^ 	      s  .  (	 n   ?      B  . A     a e &%      *%     f J%      Y%      k%     B u%    m b %      %  :  %  %  j    $&  }  E  :&    ʶ  Q&    Ѻ   y&    *   &    I  &    Y  &    
  &  
  !  &  K    @'  O    I'  Z  8 \ g'       :(      R(  L   zC (  c!  C ZR +  !  R z +  "  z  -  @$    .  %  ?  0  &  8 1 1  K'  Z F" 2  '  k" Y 2  u)  #Z !g $5  )  Bg yh 5  )  h i 5  )  j k 5  )  k n 5  )  n p 5  *  0q r  6  *  4r r 
6  *  r 5s 6  *  s =v 6  '*  _v Ex .6  2*  hx -y ?6  8*  y z M6  ?*  z b} V6  S*  &~ m y6  d*    6  p*    6  u*   ) 6  *  L ʏ 6  *  [ " %7  *  E ʛ g7  
+  
q @s 5  +  s 8y 6  +  y m} K6  +  } # r6  (+  ~ ӏ 6  :+  - ՛ 7  K+   6 7  O+  g @ 7  ]+  s ң 7  +  /  7  +    7  
,  6 " m8  V,  s  8  X,    8  ,    9  ,  m  $9  ,   7 *9  ,   ^ /9  ,    99  ,  [  ?9  ,  B N I9  ,    V9  ,  ;  ]9  ,    9  ,  H  9  ,  P  9  -  P p 9  -    9  
-  2 R 9  -    9  -   + 9  -    9  -   ) 9  -  t  9  -    9  -  = X 9  -    9  -   - 9  -  ~ l 9  4-   3 :  8-    :  =-    :  BM      v   (   4   :         X                                                                                                                                                                                                                                                                                          0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _S880ZBZPO 656966563  -  b  s                                                         COMMENT RESERVED                        +                                                                    ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      
wzapplication      -..\programme\devstudio\vfp\wizards\appwiz.vcx      	container      cApplication      ^clastcaption = Microsoft Visual FoxPro
clasticon = 
nformcount = 0
Name = "wzapplication"
      1      Class      Application class.      Pixels      cApplication0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class              0                                                                                WINDOWS _QU819YHF0 491629392	       
                                                                   WINDOWS _QXT105MKW 508659332;   <   =   >       ?                       A   B               C                WINDOWS _QXT105MFC 508659332D       E   F   G   H                                                            WINDOWS _QXT105MH0 508659332J       K   L   M   N                                                            WINDOWS _QXT105MIO 508659332P       Q   R   S   T                                                            WINDOWS _QWT1228R3 506236336                                                                 WINDOWS _QY811T9CY 509906128                                                             WINDOWS _QY811T94Z 509906128                                                                       WINDOWS _QY811T96O 509906128                                                                       WINDOWS _QY811T98G 509906128                                                                       WINDOWS _QY811T9AC 509906128                                                                       WINDOWS _QZD0WJKMY 512653665                                                               COMMENT FONTINFO                                                                                         WINDOWS _QZD0WJYFN 512653674                                                               COMMENT FONTINFO                                                                                           WINDOWS _QZD0WL2HU 512653702k      [  _      \                      m  l      n  o  p               COMMENT FONTINFO                        @      A                                                           WINDOWS _QZD0WL6XQ 512653705G      B  F      C                      I  H      z  {  |               COMMENT FONTINFO                        }      ~                                                           WINDOWS _QZD0WLG1F 512653711J      G  I      H                      L  K      M  N  O               COMMENT FONTINFO                        P                                                                   WINDOWS _QZD0WNC00 512653757  !                                             
               COMMENT FONTINFO                                                                                         WINDOWS _R0B11XVHA 515018051      $   a      %       )                (                          WINDOWS _R0B11XULU 515018051I      .  /  0        8  b                                               WINDOWS _R0B11XUW5 5150180511      2  3  4        @                                                 WINDOWS _R0B11XV3D 5150180515      C  D    O                                                           WINDOWS _R0B11XV66 515018051Q      }  ~                                                               WINDOWS _R0B11XV8E 515018051      Q  R  y  z                                                           WINDOWS _R0B11XVAC 5150180516      7  8  9  :                                                           WINDOWS _R0B11XVD4 515018051<      =  >  ?  r                                                           WINDOWS _R0B11XVFC 515018051t      u  v  w                                                             COMMENT FONTINFO                                                                                         WINDOWS _R0B11ZH98 515018091                    S                                         COMMENT FONTINFO                                                                                           WINDOWS _R1T0NKO2G 518739836                                                                 WINDOWS _R1T0NKNX6 518739836                                                                       WINDOWS _R1T0NKO08 518739836                                                                       COMMENT FONTINFO                                                                                         WINDOWS _R1T0O9293 518740571  k  j        f                                                     WINDOWS _R1T0O925R 518740571e      d  c  b                                                             COMMENT FONTINFO                                                                                         WINDOWS _R1T0OELVT 518740711                                  ~                }               WINDOWS _R1T0OELSR 518740711                                                                       COMMENT FONTINFO                        u      {                                                           WINDOWS _R1T0OT1SG 518741070k  t  s  l      w                      i  j              h               WINDOWS _R1T0OT1PO 518741070r      q  p  o  m                                                           COMMENT FONTINFO                        g      f                                                           WINDOWS _R1T0OX4G9 518741171W  e  d  X      `                      U  V              T               WINDOWS _R1T0OX4DR 518741171_      ^  ]  \  Y                                                           COMMENT FONTINFO                        ;      R                                                           WINDOWS _R1T0P0ETE 518741253)      5  *      8                      '  (      &  %  $               WINDOWS _R1T0P0EOD 5187412537      6  5  4  2                                                           WINDOWS _R1T0P0EQB 5187412531      0  /  .  +                                                           COMMENT FONTINFO                        #      "                                                           WINDOWS _R1T0P949Y 518741468%  4  3  &      /                      #  $              "               WINDOWS _R1T0P946W 518741468.      -  ,  +  '                                                           COMMENT FONTINFO                        !                                                                  WINDOWS _R1T0PFWX2 518741639                                                                 WINDOWS _R1T0PFWUK 518741639                                                                       COMMENT FONTINFO                        
                                                                 WINDOWS _R1T0PLXPM 518741787    
                                                             WINDOWS _R1T0PLXO8 518741787                                                                        COMMENT FONTINFO                                                                                         WINDOWS _R1T0PP3GO 518741867                                                                 WINDOWS _R1T0PP3D1 518741867                                                                       COMMENT FONTINFO                                                                                         WINDOWS _R1T0PSYB8 518742091                                                               WINDOWS _R1T0PSY6I 518742091                                                                     WINDOWS _R1T0PSY90 518742091                                                                       COMMENT FONTINFO                                                                                         WINDOWS _R1T0NVCFL 546245157      N      J                                                     WINDOWS _R1T0NVCDM 546245157E      F  a  b  
                                                           COMMENT RESERVED                                                                                         WINDOWS _R1T0MPQL1 546245268q      r      {                      o  p              n               WINDOWS _R1T0MPQI9 546245268z      y  x  w  s                                                           COMMENT RESERVED                        m      l                                                           WINDOWS _R1T0MW9NH 546245475                                                                 WINDOWS _R1T0MW9JB 546245476                                                                       COMMENT RESERVED                                                                                         WINDOWS _QZD0WJEDS 546265719                                                               COMMENT RESERVED                                                                                         WINDOWS _QZD0WJP41 546265740                                                               COMMENT RESERVED                                                                                         WINDOWS _QZD0WJTKM 546265750                                                               COMMENT RESERVED                                                                                         WINDOWS _QZD0WNLHL 546265967             O        5                                   COMMENT RESERVED                                                                                         WINDOWS _QZD0WLBOI 546265980                                                               COMMENT RESERVED                                                                                         WINDOWS _QZD0WMTSW 549015917n  +  *  o                                                        WINDOWS _QZD0WMTNK 549015918    -  )  ,                                                             COMMENT RESERVED                                                                                         WINDOWS _RAQ0M66PD 549018293w        x                            u  v              t               COMMENT RESERVED                        `                                                                   WINDOWS _R1U0UN7R7 549063483    x        '                                                     WINDOWS _RAR032I7E 549063483y      z  {  |  }                                                           COMMENT RESERVED                                                                                           WINDOWS _R1T0P3VVP 549066101       :         ,                                                        WINDOWS _R1T0P3VR8 546245094+      *  )  (                                                             WINDOWS _R1T0P3VTH 549066101      &                                                                   COMMENT RESERVED                                                                                            WINDOWS _RAR038SM5 549296148                                                                 COMMENT RESERVED                                                                                         WINDOWS _R1U0UJ66W 551321857      B        @                      N                               WINDOWS _R1U0UJ65I 551321857%                                                                       COMMENT RESERVED                                                                                           WINDOWS _QZD0WKXNN 551322520L      N  M      !                        K                         COMMENT RESERVED                                                                                         WINDOWS _RAP18R7KP 551774377        	                                s                         WINDOWS _RAP18U7G8 548972277r      q  j  i  h                                                           WINDOWS _RAP18UW97 551774377g      f  Y  
  d                                                           COMMENT RESERVED                                                                                         WINDOWS _R4512IS88 552164233v                                                             COMMENT RESERVED                                                                                         WINDOWS _QZD0WLVO8 552164270                                          y  x  q               WINDOWS _QZD0WLVC7 552164270                                                                     WINDOWS _QZD0WLVHG 552164270        
    
                                                           WINDOWS _QZD0WLVJC 552164270	                                                                       WINDOWS _QZD0WLVM8 552164270                                                                        COMMENT RESERVED                        -      ,                                                           WINDOWS _R4512GOM9 552164290  +  *                                                         WINDOWS _R4512GODW 552164290)  (  '  &  %                                                             WINDOWS _R4512GOIC 552164290                                                                       WINDOWS _R4512GOJG 552164290                                                                       WINDOWS _R4512GOKV 552164290          
  	                                                           COMMENT RESERVED                                                                                          WINDOWS _R4512G85Q 552164329                                                             WINDOWS _R4512G7VF 552164329                                                                     WINDOWS _R4512G810 552164330                                                                       WINDOWS _R4512G82E 552164330                                                                       WINDOWS _R4512G83S 552164330                                                                       COMMENT RESERVED                                                                                         WINDOWS _QZD0WMAUN 552164495                                  c        J  >  =               WINDOWS _QZD0WMAAY 552164495                                                                     WINDOWS _QZD0WMAHE 552164496                                                                       WINDOWS _QZD0WMAKP 552164496      N  M  L  J                                                           WINDOWS _QZD0WMAML 552164496I      H  G  F  D                                                           WINDOWS _QZD0WMAP8 552164496                                                                       WINDOWS _QZD0WMARN 552164496                                                                       COMMENT RESERVED                        <      ;                                                           WINDOWS _R1U0UJTE9 552630060  C                                                               WINDOWS _R1U0UJTBR 552630060                                                                       COMMENT RESERVED                                                                                         WINDOWS _R1U0ULTT2 552630074w                                  %  &              $               WINDOWS _R1U0ULTRE 552630074                                                                       COMMENT RESERVED                        #      "                                                           WINDOWS _R1U0UKSXL 552630095  !                                                                WINDOWS _R1U0UKSV3 552630095                                                                       COMMENT RESERVED                                                                                        *WINDOWS _R3G0PYWQ1 553287494w        x              ;          u  v  
  t  s  r              *WINDOWS _R3G0PYVVG 553287494	                                                                  *WINDOWS _R3G0PYVZW 553287494                                                                  *WINDOWS _R3G0PYW2Y 522739936                                                                      *WINDOWS _R3G0PYW4C 553287494                    $                                              *WINDOWS _R3G0PYW6K 553287494          Z                                                        *WINDOWS _R3G0PYW9C 522739936                                                                      *WINDOWS _R3G0PYWAR 549026837                                                                  *WINDOWS _R3G0PYWEN 522739936                                                                      *WINDOWS _R3G0PYWG1 522739936                                                                      *WINDOWS _R3G0PYWHF 549757920                                                                      *WINDOWS _R3G0PYWJ3 522739936                                                                      *WINDOWS _R3G0PYWLB 522739936                                                                      *WINDOWS _R3G0PYWMP 549757920                                                                      *WINDOWS _R3G0PYWOD 522739936        ~  }  y                                                          *COMMENT RESERVED                        q      p                                                           WINDOWS _R1I0RB7N0 553287529      I        F        O              E                     WINDOWS _R1I0RB711 553287529D  C  B  A  @                                                             WINDOWS _R1I0RB7H6 545749746?      9  '  &  .      .                                                 COMMENT RESERVED                                                                                         WINDOWS _REE0VR99O 558134838  *  )                                  (                         COMMENT RESERVED                                                                                         WINDOWS _R230Y1DQ3 560746954      +                	              }                     WINDOWS _R230Y1D76 549061288|      {  z  y  u      l  6                                               WINDOWS _R230Y1D9E 549061288a      `  _  ^  Z      @                                                 WINDOWS _R230Y1DCG 5490612894      3  2  1  -      ,  J                                               WINDOWS _R230Y1DEE 549061289'      &  %  $                                                          WINDOWS _R230Y1DJY 549061289            
                                                       COMMENT RESERVED                              X                                                           WINDOWS _R230Y1DQ3 560747003                      l
  '	                                        WINDOWS _R230Y1CYJ 549031028        m  l        i  X                                               WINDOWS _R230Y1D11 549031029h      g  f  e  a      ^                                                 WINDOWS _R230Y1D30 549031029W      V  H  G  R      O                                                 WINDOWS _R230Y1D4Y 549031029F      E  D  C  ?      <                                                 WINDOWS _R230Y1D76 549031029        %  $                                                           WINDOWS _R230Y1D9E 551198549                                                                         WINDOWS _R230Y1DCG 549031029                                                                          WINDOWS _R230Y1DEE 554075348             :          '                                                  WINDOWS _R230Y1DJY 5512423649       8   #   "   4          )                                                WINDOWS _R230Y1DN1 554075348!                        o   W                                                COMMENT RESERVED                                                                                           WINDOWS _R3G0PYWQ1 760189520
      S  
      U      X            
  
    
  
  
               WINDOWS _R3G0PYVVG 760189520                                                                   WINDOWS _R3G0PYVZW 553287494                                                                   WINDOWS _R3G0PYW2Y 522739936
      	
  

  
  
                                                           WINDOWS _R3G0PYW4C 553287494
      
  
  
  
      
  
                                               WINDOWS _R3G0PYW6K 553287494
      
  
   
  !
      $
  *
                                               WINDOWS _R3G0PYW9C 5227399363
      4
  5
  6
  7
                                                           WINDOWS _R3G0PYWAR 549026837:
      ;
  <
  =
  >
      H
  I
                                               WINDOWS _R3G0PYWEN 522739936M
      N
  O
  P
  Q
                                                           WINDOWS _R3G0PYWG1 522739936T
      U
  V
  W
  X
                                                           WINDOWS _R3G0PYWHF 549757920[
      \
  ]
  ^
  _
                                                           WINDOWS _R3G0PYWJ3 522739936b
      c
  d
  e
  f
                                                           WINDOWS _R3G0PYWLB 522739936i
      j
  k
  l
  m
                                                           WINDOWS _R3G0PYWMP 549757920p
      q
  r
  s
  t
                                                           WINDOWS _R3G0PYWOD 522739936w
      x
  y
  z
  {
                                                           COMMENT RESERVED                        
      
                                                            
   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              VERSION =  0.029                                              grid                                                          grid                                                          grid1                                                         pRecordSource = "customer"
FontName = "MS Sans Serif"
FontSize = 8
Height = 152
Width = 397
Name = "grid1"
              Class                                                         1                                                             Pixels                                                        )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
                     txtbtns                                                       Pixels                                                        stylebmp\textbttn.bmp                                         stylebmp\textbttn.bmp                                         Class                                                         11                                                            	container                                                     txtbtns                                                       Top = 0
Left = 378
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Edit"
Enabled = .T.
StatusBarText = "Edit existing record / Revert edits"
TabIndex = 8
ToolTipText = ""
Name = "cmdEdit"
                          txtbtns.                                                      cmdEdit                                                       
commandbutton                                                 
commandbutton                                                 txtbtns.                                                      	cmdDelete                                                     form                                                          ScaleMode = 3
Height = 293
Width = 401
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
Caption = "Add Record"
WindowType = 1
Name = "gridaddform"
                           ckeyvalue
                                                                                <   %         7     	            U   9 %C" Do you want to delete this record?$x   %C     
 %C+
g 	 H  %C+ C
	 
 H   T  a C     C     T  -  %    t,    U	  THIS PARENT
 UPDATEROWS THISFORM
 LOCKSCREEN
 BUTTONREFRESH
 NAVREFRESH
 SHOWWINDOW NAME4      " C 
   
  
     U  NERROR CMETHOD NLINE THIS PARENT ERROR Click,      Error    1 A A  A 1 A A   A B A 3  !1                                       )                                          Top = 0
Left = 432
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Delete"
Enabled = .T.
StatusBarText = "Delete existing record"
TabIndex = 9
ToolTipText = ""
Name = "cmdDelete"
                                   
commandbutton                                                 
commandbutton                                                 txtbtns.                                                      baseform                                                      wizstyle.vcx                                                  form                                                          nobtns                                                        bScaleMode = 3
Top = 6
Left = 6
DoCreate = .T.
wizbuttons = 0
wizbtnpos = 0
Name = "nobtns"
                            Class                                                         4                                                             Pixels                                                        shape                                                         shape                                                         Shape1                                                        nobtns                                                        >Height = 2
Left = 1
Top = 48
Width = 584
Name = "Shape1"
                                                                shape                                                         shape                                                         Shape2                                                        nobtns                                                        ?Height = 2
Left = 3
Top = 264
Width = 584
Name = "Shape2"
                                                               label                                                         label                                                         Label1                                                        nobtns                                                        FontSize = 14
BackStyle = 0
Caption = "Label1"
Height = 22
Left = 27
Top = 12
Width = 62
AutoSize = .T.
Name = "Label1"
                                                                                             %           6               U           %    %     F  	  %C	 Bufferingw 
 Ca  %C  
 
  F  
  %C	 Buffering 
 Ca   [
   T
 C y  (
 W* %C	 BufferingC 
  S CaC 
      F  	  %CN   
 #)  #     /F %C
 SourceType C offline
	 C SendUpdates
	 T  a q %C  
 
 C
 SourceType  
 	 C offline  
 
	 C SendUpdates  
 
	~ T a 2 %
  
  	 C  
  
  	O CC You cannot edit because the view(s) selected does not send updates.x B  T  	 C T   CO  T      
 T   - T
  a C    C    T
  - U  LNOSENDPARENTUPDATES LNOSENDCHILDUPDATES ATABLESUSED NTABLESUSED I THIS PARENT EDITMODE
 USEDATAENV OLDALIAS	 GRIDALIAS OLDREC ADDMODE THISFORM
 LOCKSCREEN
 BUTTONREFRESH
 NAVREFRESH4      " C 
   
  
     U  NERROR CMETHOD NLINE THIS PARENT ERROR Click,      Error    1   32 A a A A   AqA A A aQ   A  d A  A #A A "!A   2  !1                       Y     3   u    F    )                      U       PROCEDURE Click
#DEFINE C_NOUPDATE_LOC	"You cannot edit because the view(s) selected does not send updates."

LOCAL lNoSendParentUpdates,lNoSendChildUpdates
LOCAL aTablesUsed,nTablesUsed,i

** Reverting record
IF THIS.Parent.EditMode
	
	IF THIS.Parent.UseDataEnv
		SELECT (THIS.Parent.OldAlias)
		IF CURSORGETPROP("Buffering")>1
			=TableRevert(.T.)
		ENDIF
		IF !EMPTY(THIS.Parent.GridAlias)
			SELECT (THIS.Parent.GridAlias)
			IF CURSORGETPROP("Buffering")>1
				=TableRevert(.T.)
			ENDIF
		ENDIF			
	ELSE
		DIMENSION aTablesUsed[1]
		m.nTablesUsed = AUSED(aTablesUsed)
		FOR i = 1 TO m.nTablesUsed
			IF CURSORGETPROP("Buffering",aTablesUsed[m.i,1])>1
				=TableRevert(.T.,aTablesUsed[m.i,1])
			ENDIF
		ENDFOR
	ENDIF
	
	* Go back to original place
	SELECT (THIS.Parent.OldAlias)
	IF RECCOUNT() < THIS.Parent.OldRec	&&added record at EOF()
		GO TOP
	ELSE
		GO THIS.Parent.OldRec
	ENDIF
ELSE

	* Check to see if view allows updates
	IF CURSORGETPROP("SourceType")#3 AND !CURSORGETPROP("offline") AND;
		!CURSORGETPROP("SendUpdates")
		lNoSendParentUpdates = .T.
	ENDIF
	IF !EMPTY(THIS.Parent.GridAlias) AND ;
	  CURSORGETPROP("SourceType",THIS.Parent.GridAlias)#3 AND ;
	  !CURSORGETPROP("offline",THIS.Parent.GridAlias) AND ;
	  !CURSORGETPROP("SendUpdates",THIS.Parent.GridAlias)
		lNoSendChildUpdates= .T.
	ENDIF
	
	IF (m.lNoSendChildUpdates AND m.lNoSendParentUpdates) OR;
		(EMPTY(THIS.Parent.GridAlias) AND m.lNoSendParentUpdates)
		=MESSAGEBOX(C_NOUPDATE_LOC)
		RETURN
	ENDIF
	
	THIS.Parent.OldAlias = ALIAS()	&&save alias in case reverting
	THIS.Parent.OldRec = RECNO()	&&save record in case reverting
ENDIF

** Editing record
THIS.Parent.EditMode = !THIS.Parent.EditMode
THIS.Parent.AddMode = .F.
THISFORM.LockScreen = .T.
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
THISFORM.LockScreen = .F.
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
this.parent.error(m.nError, m.cMethod, m.nLine)
ENDPROC
                                           Top = 0
Left = 324
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Add"
Enabled = .T.
StatusBarText = "Add new record / Save edits"
TabIndex = 7
ToolTipText = ""
Name = "cmdAdd"
                                    
shadowbase .T.
BackColor = 0,128,128
wizfield = fancyf      Pixelsorm                                                     Classs                                                        3orm                                                         #PROCEDURE Click
#DEFINE MSGBOX_YES		6
#DEFINE C_MSGBOX1		36
#DEFINE C_DELETE_LOC	"Do you want to delete this record?"
#DEFINE C_NOLOCK_LOC	"Record could not be deleted because it is being used by someone else."

* Note: Cascading deletes should be handled via RI triggers in DBC!

IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1) = MSGBOX_YES
	DELETE
	IF THIS.Parent.UpdateRows()  &&success
		* Success
		IF !EOF()
			SKIP 1
		ENDIF
		IF EOF() AND !BOF()
			SKIP -1
		ENDIF
	ENDIF
	THISFORM.LockScreen = .T.
	THIS.Parent.ButtonRefresh()
	THIS.Parent.NavRefresh()
	THISFORM.LockScreen = .F.
ENDIF

IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
this.parent.error(m.nError, m.cMethod, m.nLine)
ENDPROC
                           cmdAdd                                                        
commandbutton                                                 
commandbutton                                                                                    %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                                                                             .PROCEDURE Click
THISFORM.Release

ENDPROC
                Top = 0
Left = 486
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "E\<xit"
Enabled = .T.
StatusBarText = "Exit input form"
TabIndex = 10
ToolTipText = ""
Name = "cmdExit"
                                             txtbtns.                                                      cmdExit                                                       
commandbutton                                                 
commandbutton                                                                              *   %         ^     ,            U          T C T C
 SourceName T C Database
 T    T  CC= .FRX T C DATASESSIONv %C
  0  ?
  : ^) T
  C frx Pick report:   %C
  
Z %C
  0 ?
  : V6 CQ wizards\wzreport.appC
 AUTOREPORT    %   t,    U	  CREPNAME	 NSAVESESS
 CSAVEALIAS CSAVESOURCE	 CSAVEDATA CDIFFSOURCE THISFORM
 SHOWWINDOW NAME Click,     1 u    !  bA A A K A 2                       d      )                                                                                   Top = 0
Left = 274
Height = 24
Width = 49
FontName = "MS Sans Serif"
FontSize = 8
Caption = "P\<rint"
Enabled = .T.
StatusBarText = "Print to report"
TabIndex = 6
ToolTipText = ""
Name = "cmdPrint"
                                            txtbtns.                                                      cmdPrint                                                      
commandbutton                                                 
commandbutton                                                                              N   %         M                 U  K       %    %C 
N 
 TC a T a  %9   T9   T a   T  C
 searchformN
 C    %
  
 TC -  %
   T9   %   t,    T	 
  - T	 
  - C	 
 
  U  OSEARCHDLOG
 LVISCHANGE LSTATECHANGE THISFORM
 SHOWWINDOW VISIBLE WINDOWSTATE SHOW NAME THIS PARENT TOPFILE ENDFILE
 NAVREFRESH Click,     1 q  C  A 1  A A    A   A B A 1                       e      )                                    Top = 0
Left = 224
Height = 24
Width = 49
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Find"
Enabled = .T.
StatusBarText = "Search for records"
TabIndex = 5
ToolTipText = ""
Name = "cmdFind"
                                           	containervcx                                                  
shadowbaseIF
	this.lstLeft.rowsourcetype = 5						&&arr      
shadowbase.nitchoices
lparameters aChoices

LOCAL lSo      Label1"
Eԉ2uUM2MM!E@4  EE     5                              FS   %   g                       U  
        #    	 
   
      
 H^ 
      C    C   h T   C T   COF %C
 SourceType C offline
	 C SendUpdates
	_[ CO You cannot add a new record because the view(s) selected does not send updates.x B   2
 T   C T   CO T - %C   
 T	 C    
 Ht C m.oRelb OI
 	 : T   T   T   T    T	  C   
- T C T     T      T    z %C
 SourceType
  C offline
 
	= C ,
  , ,C UpdatableFieldList
  , 	) T a  2t T C T C T      T C
   F    
 T!   ! %C   	 C
 
	
 T
     (C  V# %CC
 fC
 f T
 C
 m T C
  !  , %C (
   C +
  `
 T     T 
  T! C
 b  U %C
 SourceType
  C offline
 
	 C SendUpdates
 
	 T a U %C
 SourceType
  C offline
 
	 C SendUpdates
 
	T T a  %
  
 	[ CO You cannot add a new record because the view(s) selected does not send updates.x B  F   # %C
! 
 
! C
 b	 T a 
 H"
" 
  
  
 	[ CO You cannot add a new record because the view(s) selected does not send updates.x B 
  
 	F C{ You cannot add a new record because the view(s) selected does not send updates and the child data source has a primary key.x B 
  %C; The child data source is a view and does not send updates. 9 Do you just want to add a new record to the parent table?$x B   
  %CO The field relating the grid's view to the parent data source is not updatable. 9 Do you just want to add a new record to the parent table?$x B   
 l	 %CL The fields relating the parent and child tables are not the same data type. 9 Do you just want to add a new record to the parent table?$xc	 B   2
 T az %C
 SourceType
  C offline
 
	= C ,
  , ,C UpdatableFieldList
  , 	
 T - , %C (
   C +
  A

 T     T C DATASESSIONv T C
 GridAddRecN %C	 m.oAddRecb O
_ CS Failed create the Add Record form class. Check or reinstall your WIZSTYLE.VCX file.x B  T " 
  T # 
  T $ 
  T % 
 ' T & CC
 

 C
    6
 C '  % (   B  G(  F   $ %C oAddRec.KeyValueb C T & C & `  T CO %C ( _ %C
 0 
  [# r
  %  &    T
 CO %C ( 
 #
 ; %C
 ' C m.cChildKeybC oAddRec.KeyValueb 
  
" r
 
  &   #

     T      
 T  )     T  * - T+ , a C  -  C  .  T+ , - U/  OSEARCHDLOG OADDREC CCHILDALIAS
 CPAPAALIAS I	 LPRIMEKEY CPAPAKEY	 CCHILDKEY	 NSAVESESS OREL CTAGNAME LBADVIEWKEY NSAVEREC	 NSAVEREC2 LBADCHILDKEY LUPDATABLEPARENTKEY LNOSENDPARENTUPDATES LNOSENDCHILDUPDATES THIS PARENT EDITMODE
 UPDATEROWS GRIDREF OLDALIAS OLDREC
 ODATARELATION PARENTALIAS RELATIONALEXPR
 CHILDALIAS
 CHILDORDER VIEWKEY	 PARENTKEY	 GRIDALIAS CGRIDKEYTYPE CHILDPRIMARYKEY UPDATABLEPARENTKEY
 NOSENDUPDATES KEYFIELD KEYVALUE
 RUNADDFORM	 ADDOPTION ADDMODE TOPFILE THISFORM
 LOCKSCREEN
 BUTTONREFRESH
 NAVREFRESH4      " C 
   
  
     U  NERROR CMETHOD NLINE THIS PARENT ERROR Click,      Error    1  11 1R#!cA A Q  #! bQA       A  a 111 A    1A   !A A A    A A S A R A A A 1 A  !A qA  A A Q  1
A A Q  
A A Q    A  A A A !!!!q AA A  BQA    1A A     !A  A A A   2  !1                       8        T        )                              txtbtns.                                                      cmdFind                                                       label 1
updated = .F.
usearrays = .T.
sortleft = .F.
     PROCEDURE Click
#DEFINE OPT_CANCEL			0
#DEFINE OPT_ADD_PARENT		1
#DEFINE OPT_ADD_CHILD		2
#DEFINE OPT_ADD_BOTH		3
#DEFINE MB_Q_YESNO			36
#DEFINE MB_A_YES			6
#DEFINE C_KEYFLDNOUPDATE_LOC	"The field relating the grid's view to the parent data source is not updatable. "+;
	"Do you just want to add a new record to the parent table?"
#DEFINE C_BADCHILDKEY_LOC		"The fields relating the parent and child tables are not the same data type. "+;
	"Do you just want to add a new record to the parent table?"
#DEFINE C_NOCHILDUPDATE_LOC		"The child data source is a view and does not send updates. "+;
	"Do you just want to add a new record to the parent table?"
#DEFINE C_NOOBJ_LOC		"Failed create the Add Record form class. Check or reinstall your WIZSTYLE.VCX file."
#DEFINE C_NOUPDATE_LOC	"You cannot add a new record because the view(s) selected does not send updates."
#DEFINE C_NOUPDATE2_LOC	"You cannot add a new record because the view(s) selected does not send updates and the child data source has a primary key."

LOCAL oSearchDlog,oAddRec,cChildAlias,cPapaAlias,i,lPrimeKey
LOCAL cPapaKey,cChildKey,nSaveSess,oRel,cTagName,lBadViewKey,nSaveRec,nSaveRec2
LOCAL lBadChildKey,lUpdatableParentKey,lNoSendParentUpdates,lNoSendChildUpdates

DO CASE
CASE THIS.Parent.EditMode

	** Code for saving record
	THIS.Parent.UpdateRows()

CASE EMPTY(THIS.Parent.GridRef)		&& not using Grid object

	** Code for adding record
	THIS.Parent.OldAlias = ALIAS()	&&save alias in case reverting
	THIS.Parent.OldRec = RECNO()	&&save record in case reverting
	IF CURSORGETPROP("SourceType")#3 AND ;
	   !CURSORGETPROP("offline") AND ;
		!CURSORGETPROP("SendUpdates")
		=MESSAGEBOX(C_NOUPDATE_LOC)
		RETURN
	ENDIF
	APPEND BLANK

OTHERWISE

	** Code for adding record
	THIS.Parent.OldAlias = ALIAS()	&&save alias in case reverting
	THIS.Parent.OldRec = RECNO()	&&save record in case reverting
	lPrimeKey = .F.					&&is child key primary index
	
	IF !EMPTY(THIS.Parent.oDataRelation)
		oRel = EVAL(THIS.Parent.oDataRelation)
	ENDIF
		
	DO CASE
	CASE TYPE("m.oRel") = "O"	&&data environment
		WITH oRel
			cPapaAlias = .ParentAlias
			cPapaKey = .RelationalExpr
			cChildAlias = .ChildAlias
			cChildKey = .ChildOrder
		ENDWITH
		oRel = .NULL.	&&reset
	CASE !EMPTY(THIS.Parent.ViewKey)	&&using views
		cPapaAlias = ALIAS()
		cPapaKey = THIS.Parent.ParentKey
		cChildAlias = THIS.Parent.GridAlias
		cChildKey = THIS.Parent.ViewKey
		
		* Need to check if Key field is updatable
		IF CURSORGETPROP("SourceType",m.cChildAlias)#3 AND !CURSORGETPROP("offline",m.cChildAlias) AND ;
			ATC(","+m.cChildKey+",",","+CURSORGETPROP("UpdatableFieldList",m.cChildAlias)+",")=0
			lBadViewKey = .T.
		ENDIF
	OTHERWISE
		cPapaAlias = ALIAS()
		cPapaKey = RELATION(1)
		cChildAlias = THIS.Parent.GridAlias
		cChildKey = ORDER(m.cChildAlias)
	ENDCASE
	
	* Test to see if both keys are of the same data type
	SELECT (THIS.Parent.GridAlias)
	cGridKeyType = ""

	IF EMPTY(THIS.Parent.ViewKey) AND !EMPTY(m.cChildKey)	&&regular table used 
		* Get the Child Key field since only index tag is here
		* if these is an expression, then default to blank.
		cTagName = ""
		FOR i = 1 TO TagCount("")
			IF UPPER(TAG(m.i)) == UPPER(m.cChildKey)
				cTagName = KEY(m.i)
				lPrimeKey = PRIMARY(m.i)
				EXIT
			ENDIF
		ENDFOR
		
		* Check if we have an index expression here.
		IF ATC("(",m.cTagName)#0 OR ATC("+",m.cTagName)#0 
			cChildKey = ""
		ELSE
			cChildKey = m.cTagName
			cGridKeyType = TYPE(m.cChildKey)
		ENDIF
	ENDIF
	
	IF CURSORGETPROP("SourceType",m.cPapaAlias)#3 AND !CURSORGETPROP("offline",m.cPapaAlias) AND ;
	 !CURSORGETPROP("SendUpdates",m.cPapaAlias)
		lNoSendParentUpdates = .T.
	ENDIF
	IF CURSORGETPROP("SourceType",m.cChildAlias)#3 AND !CURSORGETPROP("offline",m.cChildAlias) AND ;
	 !CURSORGETPROP("SendUpdates",m.cChildAlias)
		lNoSendChildUpdates = .T.
	ENDIF

	* Check if have two views and both do not send updates	
	IF m.lNoSendParentUpdates AND m.lNoSendChildUpdates
		=MESSAGEBOX(C_NOUPDATE_LOC)
		RETURN
	ENDIF
	
	SELECT (THIS.Parent.OldAlias )
	IF !EMPTY(m.cGridKeyType) AND m.cGridKeyType # TYPE(m.cPapaKey)
		lBadChildKey = .T.
	ENDIF

	DO CASE
	CASE m.lNoSendParentUpdates AND (m.lBadViewKey OR m.lBadChildKey)
		=MESSAGEBOX(C_NOUPDATE_LOC)
		RETURN
	CASE m.lPrimeKey AND m.lNoSendParentUpdates
		=MESSAGEBOX(C_NOUPDATE2_LOC)
		RETURN
	CASE m.lNoSendChildUpdates	&&child view does not send updates
		IF MESSAGEBOX(C_NOCHILDUPDATE_LOC,MB_Q_YESNO) # MB_A_YES
			RETURN
		ENDIF
		APPEND BLANK
	CASE m.lBadViewKey	&&view key in not updatable
		IF MESSAGEBOX(C_KEYFLDNOUPDATE_LOC,MB_Q_YESNO) # MB_A_YES
			RETURN
		ENDIF
		APPEND BLANK
	CASE m.lBadChildKey 	&&bad child key -- different data type from parent
		IF MESSAGEBOX(C_BADCHILDKEY_LOC,MB_Q_YESNO) # MB_A_YES
			RETURN
		ENDIF
		APPEND BLANK
	OTHERWISE
		* Need to check if Key field is updatable
		lUpdatableParentKey = .T.
		IF CURSORGETPROP("SourceType",m.cPapaAlias)#3 AND !CURSORGETPROP("offline",m.cPapaAlias) AND;
			ATC(","+m.cPapaKey+",",","+CURSORGETPROP("UpdatableFieldList",m.cPapaAlias)+",")=0
			* cPapaKey = ""
			lUpdatableParentKey = .F.
		ENDIF

		* Check for expression in cPapaKey if so, then do not update record with keyvalue
		IF ATC("(",m.cPapaKey)#0 OR ATC("+",m.cPapaKey)#0
			cPapaKey = ""
		ENDIF

		nSaveSess = SET("DATASESSION")
		oAddRec = CREATE("GridAddRec")
		IF TYPE("m.oAddRec") # "O"
			=MESSAGEBOX(C_NOOBJ_LOC)
			RETURN
		ENDIF
		oAddRec.ChildPrimaryKey = m.lPrimeKey
		oAddRec.UpdatableParentKey = m.lUpdatableParentKey
		oAddRec.NoSendUpdates = m.lNoSendParentUpdates
		oAddRec.KeyField = m.cPapaKey
		oAddRec.KeyValue = 	IIF(!EMPTY(m.cPapaKey),EVAL(m.cPapaKey),"")
		oAddRec.RunAddForm()
		IF oAddRec.AddOption = OPT_CANCEL
			RETURN
		ENDIF

		SET DATASESSION TO nSaveSess
		SELECT (THIS.Parent.OldAlias)
		
		IF TYPE("oAddRec.KeyValue") = "C"
			oAddRec.KeyValue = TRIM(oAddRec.KeyValue)
		ENDIF
		
		* Add record to parent table
		nSaveRec = RECNO()
		IF INLIST(oAddRec.AddOption,OPT_ADD_PARENT,OPT_ADD_BOTH)
			IF EMPTY(m.cPapaKey)
				APPEND BLANK IN (m.cPapaAlias)
			ELSE
				INSERT INTO (m.cPapaAlias) ((oAddRec.KeyField)) VALUES(oAddRec.KeyValue)
			ENDIF
		ENDIF
		nSaveRec2 = RECNO()

		* Add child record
		IF INLIST(oAddRec.AddOption,OPT_ADD_CHILD,OPT_ADD_BOTH)
			* Need to check
			GO m.nSaveRec
			IF EMPTY(m.cChildKey) OR TYPE("m.cChildKey")#TYPE('oAddRec.KeyValue')
				APPEND BLANK IN (m.cChildAlias)
			ELSE
				INSERT INTO (m.cChildAlias) ((m.cChildKey)) VALUES(oAddRec.KeyValue)
			ENDIF
			GO m.nSaveRec2
		ENDIF
	ENDCASE
ENDCASE

THIS.Parent.EditMode = !THIS.Parent.EditMode
THIS.Parent.AddMode = THIS.Parent.EditMode
THIS.Parent.TopFile = .F.
THISFORM.LockScreen = .T.
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
THISFORM.LockScreen = .F.
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
this.parent.error(m.nError, m.cMethod, m.nLine)
ENDPROC
           oPROCEDURE Click
#DEFINE C_MAKEREPO_LOC			"Could not locate a report to print. Create new one?"
#DEFINE C_NOOPEN_LOC					"Error opening table. Unable to print report."
#DEFINE C_GETFILEPROMPT_LOC		"Pick report:"

LOCAL cRepName,nSaveSess,cSaveAlias,cSaveSource,cSaveData 

cSaveAlias = ALIAS()
cSaveSource = CURSORGETPROP("SourceName")
cSaveData = CURSORGETPROP("Database")
cDiffSource = ""
cRepName = LEFT(ALIAS(),8)+".FRX"
nSaveSess = SET("DATASESSION")

* Handling for Private data sessions
#IF 0
	IF m.nSaveSess # 1
		SET DATASESSION TO 1
		SELECT 0
		IF !EMPTY(m.cSaveData)
			OPEN DATABASE (m.cSaveData)
		ENDIF
		IF USED(m.cSaveAlias)
			SELECT (m.cSaveAlias)
			IF CURSORGETPROP("SourceName")#m.cSaveSource
				cDiffSource = CURSORGETPROP("SourceName")
				USE IN (m.cSaveAlias)
				SELECT 0
			ENDIF
		ENDIF	
		IF EMPTY(ALIAS())
			USE (m.cSaveSource) AGAIN ALIAS (m.cSaveAlias) SHARED
			IF EMPTY(ALIAS())
				=MESSAGEBOX(C_NOOPEN_LOC)
				RETURN
			ENDIF
		ENDIF
	ENDIF
#ENDIF

IF FILE(m.cRepName)
	REPORT FORM (m.cRepName) PREVIEW NOWAIT
ELSE
	m.cRepName = GETFILE("frx",C_GETFILEPROMPT_LOC,"",1)
	IF !EMPTY(m.cRepName)
		IF FILE(m.cRepName)
			* User pressed Open button
			REPORT FORM (m.cRepName) PREVIEW NOWAIT
		ELSE
			* User pressed New button
			DO HOME()+"wizards\wzreport.app" WITH ALIAS(), "AUTOREPORT"
		ENDIF
	ENDIF
ENDIF

* Private data session code
#IF 0
	IF !EMPTY(cDiffSource)
		USE (m.cDiffSource) IN 0
	ENDIF
	SET DATASESSION TO m.nSaveSess
	SELECT (m.cSaveAlias)
#ENDIF

IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

ENDPROC
               
commandbutton                                                 
commandbutton                                                0                                 %                             U  J  F     #6 T    - T    a C     U  THIS PARENT	 NWORKAREA TOPFILE ENDFILE
 NAVREFRESH Click,     1 Q 1                              )                                  ZAutoSize = .T.
ButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 2
ControlSource = "nAddAction"
Height = 68
Left = 36
SpecialEffect = 0
Top = 48
Width = 218
TabIndex = 1
Name = "Optiongroup1"
Option1.BackStyle = 0
Option1.Caption = "Add record to parent only"
Option1.Value = 0
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 181
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.BackStyle = 0
Option2.Caption = "Add record to child (grid) only"
Option2.Value = 1
Option2.Height = 18
Option2.Left = 5
Option2.Top = 25
Option2.Width = 208
Option2.AutoSize = .T.
Option2.Name = "Option2"
Option3.BackStyle = 0
Option3.Caption = "Add record to both"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 5
Option3.Top = 45
Option3.Width = 137
Option3.AutoSize = .T.
Option3.Name = "Option3"
                                    wAutoSize = .T.
BackStyle = 0
Caption = "Key value:"
Height = 18
Left = 48
Top = 196
Width = 67
Name = "Label1"
       label                                                         )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
TablesUsed[1]
      standardmemo
LOCAL aTablesUsed,nTablesUsed,i,aMems,nTot      PixelsONLY_LOC		"The table is Read-Only. You will not be      stylebmp\memo1.bmp   -     +    
              stylebmp\memo1.bmp      -        	             Class     -        	       `               1       -        	       `         -      editbox    -              "System n   -      standardmemo               	                   editboxe = "txtbtns"
BeforeOpenTables event of the Data     pPROCEDURE Click
LOCAL oSearchDlog
LOCAL lVisChange,lStateChange

* Check if SDI Window
IF THISFORM.ShowWindow = 2 
	IF !_VFP.Visible
		_VFP.Visible = .T.
		lVisChange = .T.
	ENDIF
	IF _SCREEN.WindowState = 1
		_SCREEN.WindowState = 0
		lStateChange = .T.
	ENDIF
ENDIF

oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()

IF m.lVisChange
	_VFP.Visible = .F.
ENDIF
IF m.lStateChange 
	_SCREEN.WindowState = 1
ENDIF

IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

* Reset from prior
THIS.Parent.TopFile = .F.
THIS.Parent.EndFile = .F.
THIS.Parent.NavRefresh()
ENDPROC
              label = 377
Height = 108
BackStyle = 0
BorderWidth =       FontName = "MS Sans Serif"
FontSize = 8
Height = 43
SpecialEffect = 1
Width = 150
ColorSource = 0
DisabledBackColor = 255,255,255
Name = "standardmemo"
           4        )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
sh = 0
oldrec       picbtns
TabIndex = 1
nworkarea = 0
editmode = 0
prev      Pixels= 542
Height = 25
BackStyle = 0
BorderWidth = 0      stylebmp\picbttns.bmpWITH EVAL("."+aMems[m.i])
					IF       stylebmp\picbttns.bmp1a S {Cg..&YQFh.IR      Class 9     % I  ; / ]  E : IS       100___UUUMMMBBB999  
  ```        txtbtns(fv E E>j(9jJ2      picbtns  iݜ*o?H6A      wizbmppath
                 0                                 %                             U  J  F     - T    a T    C+ C     U  THIS PARENT	 NWORKAREA TOPFILE ENDFILE
 NAVREFRESH Click,     1 A !1                              )                                  K    2  2                           %             	                U  a  F    
 %C+
& 	 H  T    C+ T    C C     U  THIS PARENT	 NWORKAREA ENDFILE TOPFILE
 NAVREFRESH Click,     1   A "!2                              )   2                                                                    @PROCEDURE Init

TxtBtns::Init()
THISFORM.ShowTips = .T.

ENDPROC
PROCEDURE setcaption
IF !THIS.EditMode
	THIS.cmdAdd.Picture = THIS.wizbmppath+"wznew.bmp"
	THIS.cmdEdit.Picture = THIS.wizbmppath+"wzedit.bmp"
	THIS.cmdAdd.DownPicture = THIS.wizbmppath+"wznew.bmp"
	THIS.cmdEdit.DownPicture = THIS.wizbmppath+"wzedit.bmp"
ELSE
	THIS.cmdAdd.Picture = THIS.wizbmppath+"wzsave.bmp"
	THIS.cmdEdit.Picture = THIS.wizbmppath+"wzundo.bmp"
	THIS.cmdAdd.DownPicture = THIS.wizbmppath+"wzsave.bmp"
	THIS.cmdEdit.DownPicture = THIS.wizbmppath+"wzundo.bmp"
ENDIF
ENDPROC
                	                                  	containerhape1"
Label1.Height = 16
Label1.Left = 0
La      wizstyle.vcx= 51
Shape1.Height = 20
Shape1.Width = 97
      editboxxfield                           %   x           textboxe.vcx
wizlogic Class reference for a logic field      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
ocess = SET("REPROCESS"      
scrollgrid.nWorkArea = SELECT()
THIS.oldSetDelete = SET      Pixelsx
THIS.TopFile = .F.
THIS.EndFile = .F.
THIS.Add      ClassardfieldIS.ParentKey = ""
THIS.ViewType = 3
THIS.      3andardfield"
 This routine sets the member variables
      grid
SpecialEffect = 1
Width = 100
ColorSource = 0
N      
scrollgrid "MS Sans Serif"
FontSize = 8
Alignment = 3
      scrollgrid.Column1.					"To remedy this, ensure the View      )MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0
653752            verttxtbtnsldreprocess
oldalias
previewinit
usedataen      Pixelsetdelete
oldmultilocks
oldbuffering
addmode
ol      stylebmp\textbttn.bmppreviewmode
topfile
endfile
olds      stylebmp\textbttn.bmp A A 2   A A a A DA A       Class:       b:  B  ;    B  D     )   l/           1'  /  ]  =  0  2    T  2  q3    `  3  7        txtbtns    ^                 !  !     "  b'        verttxtbtnsA 1aA  A 2                              Width = 94
Height = 276
Name = "verttxtbtns"
cmdPrev.Top = 24
cmdPrev.Left = 0
cmdPrev.Name = "cmdPrev"
cmdNext.Top = 48
cmdNext.Left = 0
cmdNext.Name = "cmdNext"
cmdTop.Top = 0
cmdTop.Left = 0
cmdTop.Name = "cmdTop"
cmdEnd.Top = 72
cmdEnd.Left = 0
cmdEnd.Name = "cmdEnd"
cmdFind.Top = 108
cmdFind.Left = 0
cmdFind.Width = 55
cmdFind.Name = "cmdFind"
cmdPrint.Top = 132
cmdPrint.Left = 0
cmdPrint.Width = 55
cmdPrint.Name = "cmdPrint"
cmdExit.Top = 252
cmdExit.Left = 0
cmdExit.Height = 24
cmdExit.Width = 55
cmdExit.Name = "cmdExit"
cmdAdd.Top = 168
cmdAdd.Left = 0
cmdAdd.Name = "cmdAdd"
cmdDelete.Top = 216
cmdDelete.Left = 0
cmdDelete.Name = "cmdDelete"
cmdEdit.Top = 192
cmdEdit.Left = 0
cmdEdit.Name = "cmdEdit"
2
cm      	containerMAZ  t  t
ĿUf t M      wizstyle.vcxፕ|	u ̃}Nt
  ңMT  E      !Arial, 1, 8, 5, 14, 11, 14, 3, 0
                             
chiselbase                                                    Pixels                                                        stylebmp\txtbox2.bmp                                          stylebmp\txtbox2.bmp                                          Class                                                         3                                                             	container                                                     
chiselbase                                                    FontName = "Arial"
FontSize = 8
Alignment = 1
BackStyle = 0
Caption = "Label1"
Height = 13
Left = 0
Top = 5
Width = 45
ColorSource = 3
TabIndex = 0
Name = "Label1"
              
chiselbase.                                                   Label1                                                        label                                                         label                                                         jBackColor = 255,255,255
Height = 2
Left = 46
Top = 20
Width = 97
SpecialEffect = 0
Name = "Shape1"
                    
chiselbase.                                                   Shape1                                                        shape                                                         shape                                                         {Width = 148
Height = 24
BackColor = 192,192,192
BackStyle = 0
BorderWidth = 0
SpecialEffect = 2
Name = "chiselbase"
                                                                   chisellogic                                                   PROCEDURE Click
SELECT (THIS.parent.nWorkArea)
GO BOTTOM
THIS.Parent.TopFile = .F.
THIS.Parent.EndFile = .T.
THIS.Parent.NavRefresh()
ENDPROC
                                         Top = 0
Left = 168
Height = 24
Width = 55
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Bottom"
StatusBarText = "Go to bottom of table"
TabIndex = 4
ToolTipText = ""
Name = "cmdEnd"
                                                      txtbtns.                                                      cmdEnd                                                        
commandbutton                                                 
commandbutton                                                 txtbtns.                                                      cmdTop                                                        optiongroup                                                                                      %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                                                                             Classled =  !THIS.EditMode
THIS.cmdExit.Enabled =  !THI      PROCEDURE Click
SELECT (THIS.parent.nWorkArea)
LOCATE
THIS.Parent.TopFile = .T.
THIS.Parent.EndFile = EOF()
THIS.Parent.NavRefresh()
ENDPROC
                                          Top = 0
Left = 0
Height = 24
Width = 55
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Top"
StatusBarText = "Go to top of table"
TabIndex = 1
ToolTipText = ""
Name = "cmdTop"
                                                              
commandbutton                                                 
commandbutton                                                L    3  3                        9   %             	                U  b  F    
 %C
' 
 H  T    C T    C+ C     U  THIS PARENT	 NWORKAREA TOPFILE ENDFILE
 NAVREFRESH Click,     1   A "!1                              )   3                                                                    PROCEDURE Click
SELECT (THIS.parent.nWorkArea)
IF !EOF()
	SKIP 1
ENDIF

THIS.Parent.EndFile = EOF()
THIS.Parent.TopFile = BOF()

THIS.Parent.NavRefresh()

ENDPROC
               Top = 0
Left = 112
Height = 24
Width = 55
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Next"
StatusBarText = "Skip to next record"
TabIndex = 3
ToolTipText = ""
Name = "cmdNext"
                                                         txtbtns.                                                      cmdNext                                                       
commandbutton                                                 
commandbutton                                                 PROCEDURE Click
SELECT (THIS.parent.nWorkArea)
IF !BOF()
	SKIP -1
ENDIF

THIS.Parent.TopFile = BOF()
THIS.Parent.EndFile = EOF()

THIS.Parent.NavRefresh()
ENDPROC
                txtbtns.                                                      cmdPrev                                                       baseformn position centering (0-none, 1-hori, 2-vert, 3-      standardformtons Class reference for button set object.
      )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
XXXXXXXXXXXXXXX      searchclassXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      PixelsXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      stylebmp\searchcl.bmpXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      stylebmp\searchcl.bmpXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      ClassXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      15XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      	containerXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      searchclassXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      Top = 69
Left = 290
Height = 15
Width = 88
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Case Sensiti\<ve"
TabIndex = 8
Name = "chkCaseSensitive"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      searchclass.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      chkCaseSensitiveXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      checkboxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      checkbox      searchclass.      label6     p    W  W                           %                            U   4 %C
 SourceType C SendUpdates
	 [ CO You cannot add a new record because the view(s) selected does not send updates.x B  
 C    U  THISFORM REFRESH Click,     1 BA A Q  1                             )   W                                FontBold = .T.
FontName = "Arial"
FontSize = 8
Alignment = 1
BackStyle = 0
Caption = "Label1"
Height = 16
Left = 0
Top = 3
Width = 41
TabIndex = 0
Name = "Label1"
=ASORT(TH      Top = 4
Left = 51
Height = 20
Width = 97
BackStyle = 0
BorderStyle = 0
BorderWidth = 0
FillStyle = 0
BackColor = 0,255,255
FillColor = 128,128,128
Name = "Shape1"
/  \I                                      f   %   P       d      ^             U    T    U  THIS VALUE Init,     1 1                              )                                                                              2AllProp()
THIS.cmdFind.Enabled = !THIS.EditMode
THIS.      	containerS.nWorkArea
	SELECT (THIS.nWorkArea)
ENDIF

      Top = 0
Left = 56
Height = 24
Width = 55
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Prev"
StatusBarText = "Skip to previous record"
TabIndex = 2
ToolTipText = ""
Name = "cmdPrev"
                                                      
commandbutton                                                 
commandbutton                                                 )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
 environment
D      
standardfieldHIS.PreviewInit = IIF(TYPE("THIS.PreviewIni      PixelsPreviewMode = IIF(TYPE("THIS.PreviewMode")#"L",.F.      stylebmp\txtbox1.bmp
* the Preview button of the Form W      stylebmp\txtbox1.bmphese properties should not be used.       	fancyform)}Q4      б $ѱ '    8   6         ClassSET DELETED ON
THIS.oldReprocess = SET("REPROCESS"      wizstyle.vcxty.Left = 4
layoutsty.Width = 571
layoutst      embossedformб Uѱ ,    (   4 de /%        1zѱ $         /C   :   Uѱ ѱ &    t   4       Class)}Q1}P.  <   '   zѱ ѱ '    N        Pixels
if empty(this.Label1.Caption)
	this.Label1.Heigh      	fancyforms.Label2.Height = this.Label1.Height
this.Labe      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
stLeft.Top = this.Label      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Value:"
Height = 16
Left = 262
Top = 99
Width = 165
Name = "label6"
      label      label      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Operator:"
Height = 16
Left = 161
Top = 99
Width = 93
Name = "label5"
      searchclass.      label5      label      label      searchclass.      label4      	fancybaseaption()
ENDPROC
PROCEDURE initvars
						
      PixelsIS.cmdDelete.Enabled =  !THIS.EditMode AND !ISREAD      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Field:"
Height = 16
Left = 12
Top = 99
Width = 102
Name = "label4"
      label      label      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Value:"
Height = 16
Left = 262
Top = 7
Width = 165
Name = "label3"
      searchclass.      label3      label      label      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Operator:"
Height = 16
Left = 158
Top = 7
Width = 93
Name = "label2"
      searchclass.      label2      label      label      FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Field:"
Height = 16
Left = 12
Top = 7
Width = 102
Name = "label1"
      searchclass.      label1      label      label      	fancybasebuttons
* for appropriate table environments.
      tFontName = "Tahoma"
FontSize = 9
Caption = "Label1"
Height = 18
Left = 8
Top = 9
Width = 43
Name = "Label1"
 whi      	fancybase.= 0
previewinit = .T.
usedataenv = .T.
view      (PROCEDURE Init
THIS.VALUE =1
ENDPROC
     WAutoSize = .T.
ButtonCount = 2
BackStyle = 0
Value = 1
Height = 46
Left = 50
Top = 55
Width = 58
TabIndex = 7
Name = "optgrpAndOr"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "\<And"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 48
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "\<Or"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 23
Option2.Width = 39
Option2.Name = "Option2"
      searchclass.      optgrpAndOr      optiongroup      optiongroup      |FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 260
TabIndex = 6
Top = 118
Width = 176
Name = "txtExpr2"
      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
ion = m.cDataEnvRef+"."      shadowlogictMem
			IF UPPER(EVAL("."+aMems[m.i]+".BaseC      PixelsITH EVAL(m.cDataEnvRef)
		* Check for relation
	      ClassERWISE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.      2")="O" AND !THISFORM.VISIBLE 
		THISFORM.VISIBLE = .T.      
shadowbasenvironment"
	* let's also set the 
	IF TYPE(      shadowlogicISFORMSET.DataEnvironment,2)
	cDataEnvRef =       Top = 0
Left = 52
Height = 15
Width = 15
BackStyle = 0
Caption = ""
SpecialEffect = 1
TabIndex = 0
ColorSource = 0
DisabledBackColor = 255,255,255
Name = "Check1"

	nTotMem       shadowlogic.HISFORM.DataEnvironment") = "O"
	THIS.UseDa      Check1IS.PreviewInit)

* Check for data environment
D      checkboxe)
THIS.PreviewInit = IIF(TYPE("THIS.PreviewIni      searchclass.      txtExpr2      textbox      textbox      FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 160
Style = 2
TabIndex = 5
Top = 117
Width = 96
Name = "cboOperators2"
                                   [   %   9      j     H            U   9 %C" Do you want to delete this record?$x   %C     
 %C+
g 	 H  %C+ C
	 
 H   
 C   %    t,    U  THIS PARENT
 UPDATEROWS THISFORM REFRESH
 SHOWWINDOW NAME Click,     1 A A  A 1 A A A  A A 2                             )                                                                       Label1
topfile = 0
endfile = 0
oldrefresh = 0
oldrec       labelT.
TabIndex = 1
nworkarea = 0
editmode = 0
prev     qPROCEDURE InteractiveChange
IF INLIST(THIS.ListItemId,5,6)
	THIS.Parent.TxtExpr2.Value = ""
ENDIF
THIS.Parent.TxtExpr2.ENABLED = !INLIST(THIS.ListItemId,5,6)

ENDPROC
PROCEDURE Init
#DEFINE C_OPERATORS_LOC	"equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between"
THIS.ADDITEM(C_OPERATORS_LOC)
THIS.VALUE = THIS.LIST[1]

ENDPROC
      FontName = "Arial"
FontSize = 8
Height = 48
Left = 48
SpecialEffect = 1
TabIndex = 0
Top = 2
Width = 150
ColorSource = 0
BackColor = 255,255,255
Name = "Edit1"

Name = "Sha      JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
m.cDataType = "L" 		&& don't allow other optio      
searchform = 5	&& is blank
	RETURN "EMPTY("+m.cFldName+      PixelsoOp.listitemid = 4	&& less than
	m.cOp = "<"
CAS      stylebmp\searchfm.bmpistitemid = 3	&& more than
	m.cOp       stylebmp\searchfm.bmp m.oOp.listitemid = 2	&& not equals      Classage equivalent
DO CASE
CASE m.oOp.listitemid = 1	      3ldName = "UPPER("+m.cFldName+")" 
ENDIF

* Get the o      form m.cDataType = "C" AND THIS.chkCaseSensitive.Value =      
searchformield
m.cDataType = aWizFList(m.oField.listite                                      %   
      N                 U  {        T C T C
 SourceName T C Database
 T    T  CC= .FRX T C DATASESSIONv %C
  0  ?
  : N6 T
  C frx Select a report to print:   %C
  
J %C
  0% ?
  : F <
 AUTOREPORT    %  t t,    U	  CREPNAME	 NSAVESESS
 CSAVEALIAS CSAVESOURCE	 CSAVEDATA CDIFFSOURCE THISFORM
 SHOWWINDOW NAME Click,     1 u    a!  A A A K A 2                       8      )                                   label = 542
Height = 25
BackStyle = 0
BorderWidth = 0      
searchform.xAND !m.lShowedMess
							=MESSAGEBOX(C_NOU      
Commandgroup1pdates are made
						IF !CURSORGETPROP("S      
shadowbase.ape3.Top = 264
Shape3.Left = 6
Shape3.Heigh      Shape1 5
Shape2.Height = 1
Shape2.Width = 568
Shape2.      shapedth = 568
Shape1.Name = "Shape1"
Shape2.Top = 43
      shape
Shape1.Top = 42
Shape1.Left = 5
Shape1.Height =      OWidth = 149
Height = 25
BackStyle = 0
BorderWidth = 0
Name = "shadowbase"
el1.Top = 8
Label1.Width = 83
Label1.Na     ButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 31
Left = 118
Top = 175
Width = 241
Name = "Commandgroup1"
Command1.Top = 1
Command1.Left = 0
Command1.Height = 29
Command1.Width = 73
Command1.Caption = "\<Search"
Command1.TabIndex = 1
Command1.Name = "Command1"
Command2.Top = 1
Command2.Left = 84
Command2.Height = 29
Command2.Width = 73
Command2.Caption = "A\<ll"
Command2.TabIndex = 2
Command2.Name = "Command2"
Command3.Top = 1
Command3.Left = 168
Command3.Height = 29
Command3.Width = 73
Command3.Cancel = .T.
Command3.Caption = "\<Cancel"
Command3.TabIndex = 3
Command3.Name = "Command3"
,THIS.txtExpr1)
m.cGetExpr2 = THIS.SearchItem(THIS.cb      commandgroup 5, 15, 12, 13, 3, 0
ERY(.Alias)
						ENDI      	container= 37
layoutsty.Shape4.Name = "Shape4"
layouts      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
  hp,A 5  uN  E      embossedform   E$@ E    E      $@ Ed,        PixelsE    E4A     
(A    ,  =$@        stylebmp\form3.bmp Q   E       E}8   EM      commandgroupIF THIS.oldSetDelete = "OFF" AND ATC("?",CUR      
searchform.ttons Class reference for button set object.
      Searchclass1use for testing but can improve performance       	containerect with 1-Many forms.
wizverify Whether to ve      wizstyle.vcxHeight = 34
Name = "fancylogic"
Label1.Nam      searchclass4.Left = 52
shape4.Height = 13
shape4.Width      'saverecord
savefilter
changedfilter
me = "shape3"
sh      Height = 216
Width = 477
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 1
Caption = "Search"
WindowType = 1
AlwaysOnTop = .T.
Name = "searchform"
.T.
ColorSource = 0
BackColo      formybase	THIS.NavRefresh()
ENDIF

ENDPROC
DATES KE      stylebmp\form3.bmp      W3 @   󫪿      1.

THIS.nWorkArea = SELECT()
THIS.oldSetDelete = SET      textbox
THIS.TopFile = .F.
THIS.EndFile = .F.
THIS.Add      
standardfieldIS.ParentKey = ""
THIS.ViewType = 3
THIS.      textboxates checkbox is checked in the View Designer."
     1                              -k   %   x                       U       %    %C  /  G( g  T
     SET FILTER TO &cFilterExpr
  %CN   #     U  CFILTEREXPR THIS
 CHANGEDFILTER
 SAVEFILTER
 SAVERECORDK  %CC
D  T   CO T   C FILTERv T   -  U  THIS
 SAVERECORD
 SAVEFILTER
 CHANGEDFILTER Destroy,      Init     1 q !a  !A  A A 3    A 1                                        )                                  )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
                     
Container19, 5, 15, 12, 13, 3, 0
or more of the Views ma      searchclass.      label      "E썕PM
  E      FontName = "MS Sans Serif"
FontSize = 8
Alignment = 0
BackStyle = 0
Caption = "Label1"
Height = 15
Width = 39
AutoSize = .F.
Name = "standardlabel"
kt        
standardlabel      j UMEE     P       boxpagesformtons Class reference for button set object.
      Edit1bmp\txtbox1.bmpidth = 0
FillStyle = 0
BackColor =      
shadowmemo.tbox1.bmp128,128
Name = "Shape1"
ther to ve      Class    u    % ËD$=  t=  t      TTop = 23
Left = 15
Width = 200
Height = 200
BackStyle = 1
Name = "Container1"
92
Name = "Container1"
will not be      	containercption()
ENDPROC
PROCEDURE initvars
						
      	containercmdDelete.Enabled =  !THIS.EditMode AND !ISREAD      'Caption = "Header1"
Name = "Header1"
t.Enabled =  !THI      scrollgrid.Column1.dFind.Enabled = !THIS.EditMode
THIS.      Header1seS.nWorkArea
	SELECT (THIS.nWorkArea)
ENDIF

      label   EUrAEA   R8ǂ   󥤋M      1C	  } tM{  UM } tM "  M        Class  V~p EKN:MEQ   KN#&MK      stylebmp\label1.bmp#M7  i  EC     h       stylebmp\label1.bmpM  M  M$  Mo  E      Pixels tEQrт  M  M;  MU  3ҋM      headerogicuttons
* for appropriate table environments.
      headerck1"

Top = 9
Width = 43
Name = "Label1"
 whi      
wizbtnstyle
 = 56
Height = 18
Width = 17
Caption = "      Pixels = 37
shape4.Name = "shape4"
mprove performance       Classrame4.Top = 7
shape4.Left = 56
shape4.Height = 13      1oxpagespe3.Height = 13
shape3.Width = 37
shape3.Name       	pageframeme = "Page5"
 "shape2"
shape3.Top = 22
shape      boxpages "Page4"
Page4.Name = "Page4"
Page5.Caption =       gridaddform.                                                  AutoSize = .T.
BackStyle = 0
Caption = "A. Select option for adding records:"
Height = 18
Left = 24
Top = 24
Width = 225
Name = "Label2"
                                             label                                                         Label1                                                        gridaddform.                                                  !Arial, 0, 9, 5, 15, 12, 13, 3, 0
- Note: Parameterized v      baseformourceType",.Alias)#3
						* Check if we need t      Pixels "CURSOR"
				WITH EVAL("."+aMems[m.i])
					IF       ErasePage = .T.
PageCount = 2
TabStretch = 1
TabStyle = 1
Width = 287
Height = 169
Name = "boxpages"
Page1.Caption = "Page1"
Page1.Name = "Page1"
Page2.Caption = "Page2"
Page2.Name = "Page2"
Page3.Caption = "Page3"
Page3.Name = "Page3"
      	pageframeClass reference for a general field object.
wi      wizstyle.vcx field object.
wizmemo Class reference for       Pixelsq0l}aP$#퇻 &i<'G-Gee      stylebmp\layout.bmpF)+'D|pEgy;"      stylebmp\layout.bmpPN',Ý04nT)1Z[      Class8܃Z#ɁT4ⴾl]S.sz^      5в!Pʟ?{L/4m
R05	l~̋ X'      	containernse/S#`in¾_d
keo      	layoutstyq
ʅ196?^B<!LbC|q      @Height = 13
Left = 228
Top = 24
Width = 37
Name = "Shape4"
^׹D8mKgCh+/Z
vG"R
Gm͙V
9>      	layoutsty.~.Ąlni'B#[&rxP n      Shape4"%byTG6ɵQgTT_*Wv 	V)      shape         ǛQZ   SLM     INI#          ɁdZz         shape         ǛQZ   TXTBOX4 BMP!          ǛQZ         ?Height = 13
Left = 24
Top = 45
Width = 37
Name = "Shape3"
 BMP!          QZ   TXTBOX2 BMP!          ǛQZ         	layoutsty.    ǛQAZ   OLE5    BMP!          ǛQBZ         Shape3        ƛQY   OLE3    BMP!          ƛQ@Z         shape         ƛQY   OLE1    BMP!          QY         shape         ƛQY   MEMO4   BMP!          ƛQY         ?Height = 13
Left = 24
Top = 24
Width = 37
Name = "Shape2"
 BMP!          QgY   MEMO2   BMP!          ƛQhY         	layoutsty.    ƛQ&Y   LOGIC3  BMP!          ƛQdY         Shape2        #Q$Y   LOGIC1  BMP!          Q%Y         shape         ƛQ"Y   FORM5   BMP!          ƛQ#Y         shape         ƛQX   FORM3   BMP!          ƛQ!Y         ?Height = 205
Left = 0
Top = 0
Width = 517
Name = "Shape1"
 BMP!          ǜQcX   FORM1   BMP!          QxX         	layoutsty.                                                    Shape1                                                        shape                                                         shape                                                         &odimensions
olabel1
olabel2
ocol2
                        Width = 517
Height = 205
TabIndex = 0
odimensions = Shape1
olabel1 = Shape2
olabel2 = Shape3
ocol2 = Shape4
Name = "layoutsty"
                                                       	container>1rWjZy_d4Ϙ)CFcJ/)s	      	layoutsty Class reference for layout object.
wizfield C      7t  @|$ t
T$    T$ ]_^[     D$      baseformt.t tF@@ tF      embossedform3ۃMtt \@Mu      sTop = 265
Left = 6
Height = 1
Width = 568
BackColor = 255,255,255
BorderColor = 255,255,255
Name = "Shape4"
>"u      embossedform.uNStO@ IF>"t3   t(҄ t      Shape4dPEPEPCA j3EPjZ5-A FA dPjW      shapep,A dPEPEPCA j3EPjY5-A FA d      shapeA j3EPjX5-A FA j3dP@ 8   P      sTop = 264
Left = 6
Height = 1
Width = 568
BackColor = 128,128,128
BorderColor = 128,128,128
Name = "Shape3"
d      embossedform.PEPCA j3EPjN5-A FA j3dP      Shape3PjM5-A FA j3dP@ 8   P5-A      shapeDA _^[ U   SVWj j j
ͺ  @ j3EPjL5      shapejh   h   j | u39
`t `t ȣx       stylebmp\form.bmpMem
			IF UPPER(EVAL("."+aMems[m.i]+".      stylebmp\form.bmp	ENDIF
		ENDFOR
		
		* Check for Vie      ClassLATION"
				THIS.oDataRelation = m.cDataEnvRef+"."      11 TO m.nTotMem
			IF UPPER(EVAL("."+aMems[m.i]+".BaseC      shape                                                         shape                                                         wizshape                                                      ;Height = 68
Width = 68
wizeffect = 0
Name = "wizshape"
                                                                   Class                                                         1                                                             wizeffect
                                                   Pixels                                                        !Arial, 1, 9, 6, 15, 12, 15, 3, 0
                             boxbase                                                       Pixels                                                        stylebmp\txtbox5.bmp                                          stylebmp\txtbox5.bmp                                          Class                                                         3                                                             	container                                                     boxbase                                                       FontSize = 9
BackColor = 0,0,255
BackStyle = 0
Caption = "Label1"
ForeColor = 0,0,255
Height = 15
Left = 3
Top = 2
Width = 49
TabIndex = 0
Name = "Label1"
                        boxbase.                                                      Label1                                                        label                                                         label                                                         BackColor = 255,255,255
BackStyle = 1
FillColor = 255,255,255
FillStyle = 0
Height = 43
Left = 0
Top = 0
Width = 94
SpecialEffect = 1
wizeffect = 1
Name = "Shape1"
               boxbase.                                                      Shape1                                                        shape                                                         wizstyle.vcx                                                  wizshape                                                      ^Width = 94
Height = 43
BackStyle = 0
BorderWidth = 0
SpecialEffect = 2
Name = "boxbase"
                                	container                                                     !Arial, 1, 9, 6, 15, 12, 15, 3, 0
                             boxlogic                                                      Pixels                                                        Class                                                         2                                                             boxbase                                                       boxlogic                                                      Top = 22
Left = 2
Height = 17
Width = 13
FontSize = 9
BackStyle = 1
Caption = ""
SpecialEffect = 0
TabIndex = 0
ColorSource = 0
Name = "Check1"
                                   boxlogic.                                                     Check1                                                        checkbox                                                      checkbox                                                      Width = 88
Height = 43
Name = "boxlogic"
Shape1.Height = 43
Shape1.Left = 0
Shape1.Top = 0
Shape1.Width = 88
Shape1.Name = "Shape1"
Label1.Height = 15
Label1.Left = 3
Label1.Top = 2
Label1.Width = 49
Label1.Name = "Label1"
                  	container                                                     wizstyle.vcx                                                  !Arial, 1, 9, 6, 15, 12, 15, 3, 0
                             boxole                                                        Pixels                                                        Class                                                         2                                                             boxbase                                                       boxole                                                        XTop = 23
Left = 3
Height = 100
Width = 150
TabIndex = 0
Name = "Oleboundcontrol1"
                                      boxole.                                                       Oleboundcontrol1                                              oleboundcontrol                                               oleboundcontrol                                               Width = 156
Height = 125
Name = "boxole"
Shape1.Height = 125
Shape1.Left = 0
Shape1.Top = 0
Shape1.Width = 156
Shape1.Name = "Shape1"
Label1.Height = 15
Label1.Left = 3
Label1.Top = 2
Label1.Width = 49
Label1.Name = "Label1"
                	container                                                     wizstyle.vcx                                                  !Arial, 1, 9, 6, 15, 12, 15, 3, 0
                             boxmemo                                                       Pixels                                                        Class                                                         2                                                             boxbase                                                       boxmemo                                                       FontSize = 9
BackColor = 255,255,255
BorderStyle = 0
Height = 50
Left = 3
ScrollBars = 0
SpecialEffect = 1
TabIndex = 0
Top = 23
Width = 241
ColorSource = 0
Name = "Edit1"
      boxmemo.                                                      Edit1                                                         editbox                                                       editbox                                                       Width = 247
Height = 75
Name = "boxmemo"
Shape1.Height = 75
Shape1.Left = 0
Shape1.Top = 0
Shape1.Width = 246
Shape1.Name = "Shape1"
Label1.Height = 15
Label1.Left = 3
Label1.Top = 2
Label1.Width = 49
Label1.Name = "Label1"
                 	container                                                     wizstyle.vcx                                                  !Arial, 1, 9, 6, 15, 12, 15, 3, 0
                             boxfield                                                      Pixels                                                        Class                                                         2                                                             boxbase                                                       boxfield                                                      FontSize = 9
BackColor = 255,255,255
BackStyle = 1
BorderStyle = 0
Height = 18
Left = 3
SpecialEffect = 1
TabIndex = 0
Top = 23
Width = 88
SelectedBackColor = 128,128,128
ColorSource = 0
Name = "Text1"
                                       boxfield.                                                     Text1                                                         textbox                                                       textbox                                                       Width = 94
Height = 43
Name = "boxfield"
Shape1.Height = 43
Shape1.Left = 0
Shape1.Top = 0
Shape1.Width = 94
Shape1.Name = "Shape1"
Label1.Height = 15
Label1.Left = 3
Label1.Top = 2
Label1.Width = 49
Label1.Name = "Label1"
                  	container                                                     wizstyle.vcx                                                  	container                                                    ^    E  E                        K&   %                          U  #      %    %C 
K 
 TC a T  a  %9 |  T9   T a   T C
 searchformN
 C  
 C   %
   
 TC -  %
   T9   %   t, 	   U
 
 LVISCHANGE LSTATECHANGE OSEARCHDLOG THISFORM
 SHOWWINDOW VISIBLE WINDOWSTATE SHOW REFRESH NAME Click,     1  C  A 1  A A     A   A A A 2                             )   E                                                  AWidth = 184
Height = 34
SpecialEffect = 0
Name = "fancybase"
xtbtnsss = 0
previewinit = .T.
usedataenv = .T.
view      	containerNDPROC
f &![ bq!9/4<`u!{      wizstyle.vcx
	SET FIELDS ON
ENDIF

SET REFRESH TO THI      rTop = 43
Left = 5
Height = 1
Width = 568
BackColor = 255,255,255
BorderColor = 255,255,255
Name = "Shape2"
j Pׅ      embossedform.k  Vb  j l P ^% %p       Shape2(t	P  F0t	P  F8t	P  F@      shape^Ã=l V   t$ul Pl tiF$      shapet0Vl P t FF   FP      rTop = 42
Left = 5
Height = 1
Width = 568
BackColor = 128,128,128
BorderColor = 128,128,128
Name = "Shape1"
l       embossedform.t$;vtЃ;w_^V	  t l       Shape1hܦ hئ 1   t   
t$ ^[j
        shapeu?=xw  t$5pw ;5xw rtЃ;5xw shԦ      ^Alignment = 0
Height = 24
Left = 132
TabIndex = 3
Top = 192
Width = 218
Name = "Text1"
                                label                                                         JArial, 1, 8, 5, 14, 11, 14, 3, 0
MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0
                                                    Pixels                                                        Class                                                         2                                                             
chiselbase                                                    chisellogic                                                   Top = 0
Left = 53
Height = 15
Width = 15
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = ""
SpecialEffect = 0
TabIndex = 0
Name = "Check1"
                        chisellogic.                                                  Check1                                                        checkbox                                                      checkbox                                                      Width = 94
Height = 18
Name = "chisellogic"
Shape1.Height = 2
Shape1.Left = 53
Shape1.Top = 15
Shape1.Width = 13
Shape1.Name = "Shape1"
Label1.Height = 13
Label1.Left = 0
Label1.Top = 1
Label1.Width = 45
Label1.Name = "Label1"
              	container                                                     wizstyle.vcx                                                  !Arial, 1, 8, 5, 14, 11, 14, 3, 0
                             	chiselole                                                     Pixels                                                        Class                                                         2                                                             
chiselbase                                                    	chiselole                                                     XTop = 0
Left = 46
Height = 100
Width = 150
TabIndex = 0
Name = "Oleboundcontrol1"
                                      	chiselole.                                                    Oleboundcontrol1                                              oleboundcontrol                                               oleboundcontrol                                               	container                                                     wizstyle.vcx                                                  
chiselmemo                                                    form	WITH EVAL(m.cDataEnvRef)
		* Check for relation
	      Width = 200
Height = 106
Name = "chiselole"
Shape1.Height = 2
Shape1.Left = 46
Shape1.Top = 103
Shape1.Width = 150
Shape1.Name = "Shape1"
Label1.Height = 13
Label1.Left = 0
Label1.Top = 3
Label1.Width = 45
Label1.Name = "Label1"
            BArial, 1, 8, 5, 14, 11, 14, 3, 0
Arial, 0, 8, 5, 14, 11, 20, 3, 0
                                                            Pixels                                                        Class                                                         2                                                             
chiselbase                                                    
chiselmemo                                                   FontBold = .F.
FontName = "Arial"
FontSize = 8
BackColor = 192,192,192
BackStyle = 0
Height = 48
Left = 46
SpecialEffect = 0
TabIndex = 0
Top = -1
Width = 150
DisabledForeColor = 0,0,128
SelectedForeColor = 255,255,255
SelectedBackColor = 0,0,0
Name = "Edit1"
                                           
chiselmemo.                                                   Edit1                                                         shapejj j    jjj    SV   h          AutoSize = .T.
FontBold = .T.
FontName = "Times New Roman"
FontSize = 20
BackStyle = 0
Caption = "Label1"
Height = 34
Left = 12
Top = 8
Width = 83
Name = "Label1"
3   j      embossedform.]_^[\  3]_^[\  ø]_^[\        Label1E Ј$h  D$T   RD$8   Eh<      label$4D$48uIL$4D$48t   +鍄$h  ;r      label      3ɋD$08u    L$0D$08uAL$0D$08t      baseformISE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.     wizlayout Class reference for layout object.
wizfield Class reference for a field object.
wizmemo Class reference for a memo field object.
wizlogic Class reference for a logic field object.
wizole Class reference for a general field object.
wizmaxcharfld Max width of character field before using editbox memo object.
wizlblsuffix Character expression added to the end of each label (e.g., :).
wizlblcap Label capitalization (proper, normal, upper or lower).
wizformstretch Whether to shrink/expand form (height only) based on number of fields selected.
wizlbldefwid Whether to use fixed label width for consistent look and alignment of fields on form.
wiztitle Class reference for title object (label).
wizuser For use by user.
wizgrid Class reference for grid object with 1-Many forms.
wizverify Whether to verify class objects (use for testing but can improve performance if set .F.).
wizbuttons Class reference for button set object.
wizbtnpos Button position centering (0-none, 1-hori, 2-vert, 3-both). By default, buttons are centered in footer. You can use these settings for better control over how buttons are placed, especially if buttons are vertically laid out.
wizcodestyle Whether to use code style or button style.
wizbtnlayout Button position object (class) if one used for unique placement of buttons. 
wizcaptions Whether to use DBC long name label captions.
wizbuffering Data environment table buffering setting.
wizgridform Whether to use a separate form for grid object.
wizlabel Class reference for label object.
wizlblspace Space between label and field.
wizcboxlbl Whether to use the checkbox as the label.
wizpages Allows use of pages for overflow of fields (0 - none, 1 - single column, 2 - multi column).
wizpagestyle
VISIBLE = .T.     DataSession = 1
ScaleMode = 3
Height = 320
Width = 580
DoCreate = .T.
AutoCenter = .T.
Caption = "Form1"
Enabled = .T.
wizlayout = 
wizfield = 
wizmemo = 
wizlogic = 0
wizole = 
wizmaxcharfld = 0
wizlblsuffix = 0
wizlblcap = 0
wizformstretch = 0
wizlbldefwid = 0
wiztitle = 
wizuser = 0
wizgrid = 
wizverify = 0
wizbuttons = 0
wizbtnpos = 0
wizcodestyle = 0
wizbtnlayout = 0
wizcaptions = .T.
wizbuffering = 5
wizlabel = 
wizlblspace = 0
wizpages = 1
wizpagestyle = 
Name = "baseform"
ogicuttons
* for appropriate table environments.
      formtyle.vcx
	SET FIELDS ON
ENDIF

SET REFRESH TO THI     Top = 54
Left = 4
Width = 571
Height = 205
TabIndex = 0
Name = "Layoutsty"
shape1.Top = 0
shape1.Left = 0
shape1.Height = 205
shape1.Width = 570
shape1.Name = "shape1"
shape2.Top = 7
shape2.Left = 6
shape2.Height = 13
shape2.Width = 37
shape2.Name = "shape2"
shape3.Top = 22
shape3.Left = 6
shape3.Height = 13
shape3.Width = 37
shape3.Name = "shape3"
shape4.Top = 7
shape4.Left = 260
shape4.Height = 13
shape4.Width = 37
shape4.Name = "shape4"
 ;rЈD$dD$d;E Ј$h      embossedform.   $	$$@ @ @ @       	LayoutstyPDA h= j8PuFA e   `   ǅ<      	containeruDFA    jh@ 8DA    h   8P5      wizstyle.vcxjh@ 8DA    jh@ 8DA    j=@       	layoutsty tD$43ɊHمuFD$0 <
t<
u
L$08Av     ScaleMode = 3
DoCreate = .T.
wizlayout = layoutsty
wizfield = embossedfield
wizmemo = embossedmemo
wizlogic = embossedlogic
wizole = embossedole
wizmaxcharfld = 45
wizlblsuffix = (":")
wizlblcap = proper
wizformstretch = .T.
wizlbldefwid = .T.
wiztitle = Label1
wizuser = 0
wizgrid = grid1
wizverify = .T.
wizbtnpos = 0
wizcodestyle = .T.
wizcboxlbl = .T.
wizlabel = embossedlabel
Name = "embossedform"
t3ɋT$4H3B      formPDA jP8DA 3o  $@ f3@      wizstyle.vcx@ Pn   	          !Arial, 0, 9, 5, 15, 12, 13, 3, 0
@ P؋        
shadowformFA uXFA 3s  h@ h   Ph@ h@       Pixels@   E}      EPFA j 5-A j uu      stylebmp\form4.bmp   $  D$@T$4   J$  L$      stylebmp\form4.bmpRPiD$H  |$8 h  L$0t      Class  L$l$`   9D$`}|$`+D$`   D$`j $t        50vD$0D$d9D$4vD$4$h  9D$0   $|  D$<T$0       baseform$p  Rl$x  D$dQlD$`|$8 t      
shadowformt   ]_^[\  Í$h  L$dD$0L$4D$@          AutoSize = .T.
FontBold = .T.
FontSize = 14
BackStyle = 0
Caption = "Label1"
Height = 25
Left = 24
Top = 12
Width = 64
Name = "Label1"
@D$eT$4Q$x  PRQ
  $  L$H      
shadowform.h<]_^[\  h<]_^[      Label1|$<    D$0D$4D$8   |$@ toD$0D$4D$8      labelL9D$PsD$PL$@ ЈDe$f  9D$LD$LL$<       labelH2tfl$tD$4 <
t<
u   +|$4$j  +|      ?Top = 264
Left = 2
Height = 2
Width = 584
Name = "Shape2"
c<
t_   D$4 PօtD$4D$4D$4 P֍L$QP      
shadowform.QPD$8Pjh   H2tfl$tD$0       Shape2                                                        shape                                                         shape                                                         >Top = 48
Left = 0
Height = 2
Width = 584
Name = "Shape1"
                                                                
shadowform.                                                   Shape1  "                 @  @.reloc          "       shape       @  .pntexe     P                   @        shape$4uS|$@ D$P D$D$D$P֍L$QP     Top = 54
Left = 7
Width = 564
Height = 205
TabIndex = 0
odimensions = Shape1
Name = "Layoutsty"
shape1.Top = 0
shape1.Left = 0
shape1.Height = 205
shape1.Width = 563
shape1.Name = "shape1"
shape2.Top = 7
shape2.Left = 16
shape2.Height = 13
shape2.Width = 37
shape2.Name = "shape2"
shape3.Top = 22
shape3.Left = 16
shape3.Height = 13
shape3.Width = 37
shape3.Name = "shape3"
shape4.Top = 7
shape4.Left = 252
shape4.Height = 13
shape4.Width = 37
shape4.Name = "shape4"
l$uʊD$      
shadowform.lmlmlIllIllllIIlIlIllIlIllll      	LayoutstyHHHHHHHHHHHHHH      	container풒BBBIB      wizstyle.vcxBmmmmmmmlmmlmmmmmmmmmmmmm      	layoutstymmmmm
























BB     ScaleMode = 3
DoCreate = .T.
ColorSource = 0
BackColor = 192,192,192
wizlayout = layoutsty
wizfield = shadowfield
wizmemo = shadowmemo
wizlogic = shadowlogic
wizole = shadowole
wizmaxcharfld = 45
wizlblsuffix = (":")
wizlblcap = proper
wizformstretch = .T.
wizlbldefwid = .T.
wiztitle = Label1
wizuser = 0
wizgrid = grid1
wizverify = .T.
wizbtnpos = 0
wizcodestyle = .T.
Name = "shadowform"
mlmmlmlmmfml      formS.EditDisForeColor)
		m.oControlParent.Controls[m.i      wizstyle.vcx.i].ForeColor = IIF(THIS.EditMode,THIS.EditF      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
OX_YES
							m.lOverw      
chiselformLD(m.nFld))
						m.lHadMessage = .T.
						      Pixels			LOOP					
					ENDIF
					IF OLDVAL(FIELD(m.n      stylebmp\form2.bmp(FIELD(m.nFld)) = "G"	&&skip for Gener      stylebmp\form2.bmp        M   Й {           M         Class           M               M    }        5         M   (            M   X               baseform            M   Ș            M         
chiselform        M    <	           M            AutoSize = .T.
FontSize = 20
BackStyle = 0
Caption = "Label1"
Height = 35
Left = 19
Top = 10
Width = 83
ForeColor = 255,255,255
BackColor = 0,0,0
ZOrderSet = 3
Name = "Label1"
           M               M                  
chiselform.             M                M         Label1           M   x *           M   ؗ +        label      M               M   H (              label   P             M   h &           M         Top = 0
Left = 0
Height = 50
Width = 580
FillStyle = 0
FillColor = 0,0,0
BorderColor = 0,0,0
ZOrderSet = 2
Name = "Shape3"
            M               M   Ж          
chiselform.tly DBCs

FOR i = 1 TO m.nTablesUsed

	SE      Shape3D(aTablesUsed)

* Can wrap everything in transac      shape""
m.lSuccess = .T.
m.nOldArea = SELECT()
m.nTab      shapeDIMENSION aTablesUsed[1]
DIMENSION aErrors[1]
m.c      NTop = 270
Left = 0
Height = 2
Width = 584
ZOrderSet = 1
Name = "Shape2"
d,i,nOldArea,lSuccess,lInDBC,lOverwrite,lH      
chiselform.#DEFINE E_PROMPT_LOC	 	"Error: "
#DEFINE MSG      Shape2ur edits?"
#DEFINE	E_NOFORCE_LOC		"Could not forc      shape               M                M         shape           M   Г            M   0 -       Top = 53
Left = 2
Width = 573
Height = 213
TabIndex = 0
ZOrderSet = 0
odimensions = Shape1
Name = "Layoutsty"
shape1.Top = 0
shape1.Left = 0
shape1.Height = 212
shape1.Width = 572
shape1.Name = "shape1"
shape2.Top = 7
shape2.Left = 16
shape2.Name = "shape2"
shape3.Top = 22
shape3.Left = 16
shape3.Name = "shape3"
shape4.Top = 7
shape4.Left = 255
shape4.Name = "shape4"
   M   Ȓ            M   x| c              
chiselform. t           M     !           M         	Layoutsty         M   x r           M    s        	container   M   0            M   H               wizstyle.vcx        
   M                M         	layoutsty         M    	           M   А 
        formC)
							lShowedMess = .T.
						ENDIF
					ENDI      wizstyle.vcxAND !m.lShowedMess
							=MESSAGEBOX(C_NOU      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
ERY(.Alias)
						ENDI      boxform					IF THIS.oldSetDelete = "OFF" AND ATC("?",CUR      optiongroup                                                   Optiongroup1                                                  gridaddform.                                                  commandgroup                                                  commandgroup                                                  
Commandgroup1                                                 gridaddform.                                                  textbox                                                       label                                                         label                                                         Label3                                                        gridaddform.                                                  wFontItalic = .T.
BackStyle = 0
Caption = "Label3"
Height = 16
Left = 132
Top = 168
Width = 145
Name = "Label3"
       label                                                         label                                                         Label4                                                        gridaddform.                                                  
standardlabel   QEڋY
H>jYU      )MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0
	  MUQE      checkbox
A"fEċQ&fUƃy2 tMy. tMy* tMj      Height = 16
Width = 68
FontName = "MS Sans Serif"
FontSize = 9
Alignment = 0
BackStyle = 0
Caption = "Check1"
SpecialEffect = 1
Name = "standardlogic"
U܋K
EA"3U      
standardlogicA.fUm  _^[] =t nm       checkbox E   E    XtM7tM      1tM 'tM tMjEj      Classm]ÃSVW3ۍD$Uju jt jjPSP      Width = 204
Height = 55
Name = "shadowmemo"
Shape1.Top = 7
Shape1.Left = 52
Shape1.Height = 48
Shape1.Width = 152
Shape1.Name = "Shape1"
Label1.Height = 16
Label1.Left = 0
Label1.Top = 4
Label1.Width = 41
Label1.Name = "Label1"
U  TH      
shadowmemo.1t = 0
Height = 61
Width = 580
FillStyle =     KWidth = 513
Height = 29
wizbmppath = (HOME()+"WIZARDS\WIZBMPS\")
Name = "picbtns"
cmdPrev.Top = 4
cmdPrev.Left = 51
cmdPrev.Width = 50
cmdPrev.Picture = (HOME()+"WIZARDS\WIZBMPS\WZBACK.BMP")
cmdPrev.Caption = ""
cmdPrev.ToolTipText = "Previous record"
cmdPrev.Name = "cmdPrev"
cmdNext.Top = 4
cmdNext.Left = 102
cmdNext.Width = 50
cmdNext.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEXT.BMP")
cmdNext.Caption = ""
cmdNext.ToolTipText = "Next record"
cmdNext.ColorSource = 0
cmdNext.Name = "cmdNext"
cmdTop.Top = 4
cmdTop.Left = 0
cmdTop.Width = 50
cmdTop.Picture = (HOME()+"WIZARDS\WIZBMPS\WZTOP.BMP")
cmdTop.Caption = ""
cmdTop.ToolTipText = "Top record"
cmdTop.Name = "cmdTop"
cmdEnd.Top = 4
cmdEnd.Left = 153
cmdEnd.Width = 50
cmdEnd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEND.BMP")
cmdEnd.Caption = ""
cmdEnd.ToolTipText = "Bottom record"
cmdEnd.Name = "cmdEnd"
cmdFind.Top = 4
cmdFind.Left = 204
cmdFind.Width = 50
cmdFind.Picture = (HOME()+"WIZARDS\WIZBMPS\WZLOCATE.BMP")
cmdFind.Caption = ""
cmdFind.ToolTipText = "Find records"
cmdFind.Name = "cmdFind"
cmdPrint.Top = 4
cmdPrint.Left = 255
cmdPrint.Width = 50
cmdPrint.Picture = (HOME()+"WIZARDS\WIZBMPS\WZPRINT.BMP")
cmdPrint.Caption = ""
cmdPrint.ToolTipText = "Print report"
cmdPrint.Name = "cmdPrint"
cmdExit.Top = 4
cmdExit.Left = 459
cmdExit.Width = 50
cmdExit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZCLOSE.BMP")
cmdExit.Caption = ""
cmdExit.ToolTipText = "Exit form"
cmdExit.Name = "cmdExit"
cmdAdd.Top = 4
cmdAdd.Left = 306
cmdAdd.Width = 50
cmdAdd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEW.BMP")
cmdAdd.Caption = ""
cmdAdd.ToolTipText = "Add / Save record"
cmdAdd.Name = "cmdAdd"
cmdDelete.Top = 4
cmdDelete.Left = 408
cmdDelete.Width = 50
cmdDelete.Picture = (HOME()+"WIZARDS\WIZBMPS\WZDELETE.BMP")
cmdDelete.Caption = ""
cmdDelete.ToolTipText = "Delete record"
cmdDelete.Name = "cmdDelete"
cmdEdit.Top = 4
cmdEdit.Left = 357
cmdEdit.Width = 50
cmdEdit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEDIT.BMP")
cmdEdit.Caption = ""
cmdEdit.ToolTipText = "Edit / Revert record"
cmdEdit.Name = "cmdEdit"
t file <<m.filname>> could not be found
          Pixelsin the
						* BeforeOpenTables event of the Data      wAutoSize = .T.
BackStyle = 0
Caption = "Key field:"
Height = 18
Left = 48
Top = 168
Width = 60
Name = "Label4"
       label                                                         label                                                         Label5                                                        gridaddform.                                                  stylebmp\form5.bmpion
						* you can place a SET DELET      stylebmp\form5.bmpall
						* records will be brought o      stylebmp\logic1.bmpt 踷D$      Y  D$      stylebmp\logic1.bmp    D$t
     
,t C      Pixelstj    tj    t      
standardlogict
   ]_^[Ët$D|$Pl$      )MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0
Aj           !Arial, 0, 9, 5, 15, 12, 13, 3, 0
 setting.
wizgridform       standardformr to use DBC long name label captions.
wizb      Pixelsass) if one used for unique placement of buttons.       stylebmp\form1.bmptton style.
wizbtnlayout Button posit      AutoSize = .T.
BackStyle = 0
Caption = "B: Enter key value linking parent and child records:"
Height = 18
Left = 24
Top = 132
Width = 325
Name = "Label5"
                           ScaleMode = 3
DoCreate = .T.
ColorSource = 0
BackColor = 192,192,192
wizlayout = layoutsty
wizfield = chiselfield
wizmemo = chiselmemo
wizlogic = chisellogic
wizole = chiselole
wizmaxcharfld = 45
wizlblsuffix = (":")
wizlblcap = proper
wizformstretch = .T.
wizlbldefwid = .T.
wiztitle = Label1
wizuser = 0
wizgrid = grid1
wizverify = .T.
wizbtnpos = 0
wizcodestyle = .T.
Name = "chiselform"
      M                  
gridaddrec                                                    Pixels                                                        Class                                                         1                                                             custom                                                        
gridaddrec                                                    aaddoption
keyvalue
keyfield
childprimarykey
updatableparentkey
nosendupdates
*runaddform 
                             .Height = 22
Width = 39
Name = "gridaddrec"
                custom                                                        DArial, 1, 10, 6, 16, 13, 15, 3, 0
Arial, 3, 10, 6, 16, 13, 17, 3, 0
                                                          gridaddform                                                   Pixels                                                        Class                                                         9                                                             form                                                          editbox                                                       editbox                                                       Width = 198
Height = 52
Name = "chiselmemo"
Shape1.Height = 2
Shape1.Left = 46
Shape1.Top = 50
Shape1.Width = 150
Shape1.Name = "Shape1"
Label1.Height = 13
Label1.Left = 0
Label1.Top = 3
Label1.Width = 45
Label1.Name = "Label1"
             !Arial, 0, 8, 5, 14, 11, 12, 3, 0
 "Edit1"

Name = "Sha      
embossedfieldTabIndex = 0
Top = 2
Width = 150
ColorSo      Pixelsme = "Arial"
FontSize = 8
Height = 48
Left = 48      stylebmp\txtbox3.bmp128,128
Name = "Shape1"
ther to ve      stylebmp\txtbox3.bmpidth = 0
FillStyle = 0
BackColor =      Classox
Left = 51
Height = 20
Width = 97
BackStyle =      1ditboxase.EFILTER
 CHANGEDFILTER Destroy,      Init      textboxabel1.Width = 41
Label1.Name = "Label1"
U  TH      
embossedfield1"
Label1.Height = 16
Label1.Left = 0
La      FontBold = .F.
FontName = "Arial"
FontSize = 8
Height = 22
Width = 113
ColorSource = 0
DisabledBackColor = 255,255,255
Name = "embossedfield"
1.Height = 48
Shape1.Width = 152
      label   u__^[VW   u*  {  H         FontBold = .F.
FontName = "Arial"
FontSize = 8
BackStyle = 0
Caption = "Label1"
Height = 13
Width = 43
Name = "embossedlabel"
j 6  uF;|D$"t dD$T$POe#      
embossedlabel@D$9\$DtL;     |$ t      label, 0, 8, 5, 14, 11, 12, 3, 0
   3;  D$T$PO      1abel   VW  u3_^[Ë  +  Gt!ˍs      Class   u__^[VW   u*  {  H         stylebmp\label3.bmp +IȃD$SVWT$P~      stylebmp\label3.bmptName = "Arial"
FontSize = 8
BackSt      Pixelson = "Label1"
Height = 13
Width = 43
Name = "em      
embossedlabel  uF;|D$"t dD$T$POe#      !Arial, 0, 8, 5, 14, 11, 12, 3, 0
;     |$ t      !Arial, 0, 8, 5, 14, 11, 12, 3, 0
idth = 580
FillStyle =      
embossedlogic5, 14, 11, 12, 3, 0
 "Edit1"

Name = "Sha      PixelsedfieldTabIndex = 0
Top = 2
Width = 150
ColorSo      stylebmp\logic3.bmp
FontSize = 8
Height = 48
Left = 48      stylebmp\logic3.bmpp128,128
Name = "Shape1"
ther to ve      Classbmp\txtbox3.bmpidth = 0
FillStyle = 0
BackColor =      1lassox
Left = 51
Height = 20
Width = 97
BackStyle =      checkboxse.EFILTER
 CHANGEDFILTER Destroy,      Init      
embossedlogicWidth = 41
Label1.Name = "Label1"
U  TH      Height = 15
Width = 72
FontBold = .F.
FontName = "Arial"
FontSize = 8
BackStyle = 0
Caption = "Check1"
ColorSource = 0
DisabledBackColor = 255,255,255
Name = "embossedlogic"
      checkboxfield                           %   x           !Arial, 0, 8, 5, 14, 11, 12, 3, 0
idth = 580
FillStyle =      embossedmemoc5, 14, 11, 12, 3, 0
 "Edit1"

Name = "Sha      PixelsedfieldTabIndex = 0
Top = 2
Width = 150
ColorSo      stylebmp\memo3.bmpp
FontSize = 8
Height = 48
Left = 48      stylebmp\memo3.bmppp128,128
Name = "Shape1"
ther to ve      Classbmp\txtbox3.bmpidth = 0
FillStyle = 0
BackColor =      1lassox
Left = 51
Height = 20
Width = 97
BackStyle =      editboxxse.EFILTER
 CHANGEDFILTER Destroy,      Init      embossedmemocWidth = 41
Label1.Name = "Label1"
U  TH      FontBold = .F.
FontName = "Arial"
FontSize = 8
Alignment = 0
Height = 50
Width = 150
ColorSource = 0
Name = "embossedmemo"
bledBackColor = 255,255,255
Name = "embossedlogic"
      oleboundcontrol/  uVY}Mj	     3      OHeight = 100
Width = 150
Visible = .T.
Sizable = .T.
Name = "embossedole"
rM̃   tEŰM^6ExQ      embossedole4xM2x3QMU܋uE      oleboundcontrol
   M8Et
   M8EMj      1E I3Ё   3ЋEtxUxN
      Class*MtcEUPu訬_^] SB      stylebmp\ole3.bmp[ 

郹    D$        stylebmp\ole3.bmpËkj K     3B      Pixels$o j *   ΋+NэQ>ݛ      embossedole7    ?  ;     tL
         checkboxeviewMode = IIF(TYPE("THIS.PreviewMode")#"L",.F.      Width = 94
Height = 18
Name = "shadowlogic"
Shape1.Top = 7
Shape1.Left = 58
Shape1.Height = 11
Shape1.Width = 11
Shape1.Name = "Shape1"
Label1.Height = 16
Label1.Left = 0
Label1.Top = 0
Label1.Width = 41
Label1.Name = "Label1"
e Form W      	container
THIS.ParentKey = ""
THIS.ViewType = 3
THIS.      wizstyle.vcx
* This routine sets the member variables
      	container                                                     wizstyle.vcx                                                  BArial, 1, 8, 5, 14, 11, 14, 3, 0
Arial, 0, 8, 5, 14, 11, 20, 3, 0
                                                            chiselfield                                                   Pixels                                                        Class                                                         2                                                             
chiselbase                                                    chiselfield                                                  "FontBold = .F.
FontName = "Arial"
FontSize = 8
BackColor = 192,192,192
BackStyle = 0
BorderStyle = 0
Height = 17
Left = 46
SpecialEffect = 1
TabIndex = 0
Top = 3
Width = 97
DisabledForeColor = 0,0,128
SelectedForeColor = 255,255,255
SelectedBackColor = 0,0,0
Name = "Text1"
                            Class, 0, 9, 5, 15, 12, 13, 3, 0
- Note: Parameterized v      5aseformourceType",.Alias)#3
						* Check if we need t      baseformCURSOR"
				WITH EVAL("."+aMems[m.i])
					IF       boxformp\form.bmpMem
			IF UPPER(EVAL("."+aMems[m.i]+".      yTop = 261
Left = 0
Height = 61
Width = 580
FillStyle = 0
BackColor = 0,0,255
FillColor = 0,0,255
Name = "Shape2"
     stylebmp\form.bmp	ENDIF
		ENDFOR
		
		* Check for Vie      boxform.H EVAL(m.cDataEnvRef)
		* Check for relation
	      Shape2rmISE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.      shapemn, 2 - multi column).
wizpagestyle
VISIBLE = .T.      shapes use of pages for overflow of fields (0 - none, 1       AutoSize = .T.
FontName = "Arial"
FontSize = 20
BackStyle = 0
Caption = "Label1"
Height = 35
Left = 21
Top = 17
Width = 83
ForeColor = 255,255,255
BackColor = 255,255,255
Name = "Label1"
xlbl Whether to use the checkbox as the label.
w      boxform.ether to use DBC long name label captions.
wizb      Label1ass) if one used for unique placement of buttons.       labele style or button style.
wizbtnlayout Button posit      labeluttons are vertically laid out.
wizcodestyle Wheth      wTop = 0
Left = 0
Height = 61
Width = 580
FillStyle = 0
BackColor = 0,0,255
FillColor = 0,0,255
Name = "Shape1"
s      boxform.n position centering (0-none, 1-hori, 2-vert, 3-      Shape1wizbuttons Class reference for button set object.
      shapejects (use for testing but can improve performance       
cboOperators2      combobox      combobox     AutoSize = .T.
ButtonCount = 2
BackStyle = 0
BorderStyle = 0
Value = 1.00
ControlSource = "nBtnAction"
Height = 39
Left = 120
Top = 248
Width = 163
Name = "Commandgroup1"
Command1.Top = 5
Command1.Left = 5
Command1.Height = 29
Command1.Width = 70
Command1.Caption = "Add"
Command1.TabIndex = 1
Command1.Name = "Command1"
Command2.Top = 5
Command2.Left = 88
Command2.Height = 29
Command2.Width = 70
Command2.Caption = "Cancel"
Command2.TabIndex = 2
Command2.Name = "Command2"
          stylebmp\form1.bmprtically laid out.
wizcodestyle Wheth      Class for better control over how buttons are placed, es      shape object with 1-Many forms.
wizverify Whether to ve      gridaddform.                                                  wizstyle.vcx
wizlogic Class reference for a logic field      	containerield                           %   x           2 default, buttons are centered in footer. You can use t      FontName = "MS Sans Serif"
FontSize = 8
Alignment = 3
Height = 22
SpecialEffect = 1
Width = 100
ColorSource = 0
Name = "standardfield"
 This routine sets the member variables
                                   ]   %                             U  C  T    T   	 aWizFList T   C    U  THIS
 ROWSOURCETYPE	 ROWSOURCE VALUE LIST Init,     1 q2                       a       )                                                        yPROCEDURE Init
LPARAMETERS cFldKey,cKeyValue,nBtnAction,nAddAction,lChildPrimaryKey,lUpdatableParentKey,lNoSendUpdates

IF PARAMETERS() # 7
	RETURN .F.
ENDIF

THIS.CommandGroup1.Value = 0
THIS.Label3.Caption = m.cFldKey
THIS.cKeyValue = m.cKeyValue

DO CASE
CASE m.lNoSendUpdates
	* Send Parent Updates
	THIS.Optiongroup1.Option1.Enabled = .F.
	THIS.Optiongroup1.Option3.Enabled = .F.
CASE !m.lUpdatableParentKey
	* Updatable parent key
	THIS.Optiongroup1.Option3.Enabled = .F.
ENDCASE

* Has a primary key
IF m.lChildPrimaryKey
	THIS.Optiongroup1.Option2.Enabled = .F.
ENDIF

DO CASE
CASE TYPE('THIS.cKeyValue') = "C"
	THIS.Text1.Value = ""
CASE ATC(TYPE('THIS.cKeyValue'),"NYIBF") # 0
	THIS.Text1.Value = 0
CASE ATC(TYPE('THIS.cKeyValue'),"DT") # 0
	THIS.Text1.Value = {//}
CASE TYPE('THIS.cKeyValue') = "L"
	THIS.Text1.Value = .T.
ENDCASE

ENDPROC
                                                                    PROCEDURE InteractiveChange
DO CASE
CASE THIS.Value = 2
	THISFORM.Text1.Value = THISFORM.cKeyValue
CASE TYPE('THISFORM.cKeyValue') = "C"
	THISFORM.Text1.Value = ""
CASE ATC(TYPE('THISFORM.cKeyValue'),"NYIBF") # 0
	THISFORM.Text1.Value = 0
CASE ATC(TYPE('THISFORM.cKeyValue'),"DT") # 0
	THISFORM.Text1.Value = {//}
CASE TYPE('THISFORM.cKeyValue') = "L"
	THISFORM.Text1.Value = .T.
ENDCASE

THISFORM.Text1.ReadOnly = (THIS.Value = 2)

ENDPROC
                                                    PROCEDURE Click
cKeyValue = THIS.Parent.Text1.Value
nAddAction = THIS.Parent.OptionGroup1.Value
nBtnAction = THIS.Value
THISFORM.Release()
ENDPROC
                                     textbox                                                       Text1                                                         editboxase.EFILTER
 CHANGEDFILTER Destroy,      Init      editbox
Left = 51
Height = 20
Width = 97
BackStyle =      oleboundcontrol      c    g          1Height = 100
Width = 150
Name = "standardole"
E        standardoleE    T$ VT$HNR   dJR      oleboundcontrol  @U<  VW         1u)    *PQ?x    4%        Classxu5@=%     PZ*PQr9      stylebmp\ole1.bmpC%  #*PV	iQVh      stylebmp\ole1.bmp 1}K5%  RU  V      Pixels^]VWta(  Bu)          standardoleu*@=%     P])PV{8PC>      label                                                         Label2                                                       <PROCEDURE runaddform
#DEFINE C_NOOBJ_LOC	"Failed to create the Add Record form class. Check or reinstall the WIZSTYLE.VCX file."

PRIVATE cFldKey,cKeyValue,nBtnAction,nAddAction,oGridAddForm 

IF TYPE("THIS.KeyField") # "C"
	THIS.KeyField = ""
ENDIF

cFldKey = THIS.KeyField
cKeyValue = THIS.KeyValue
nBtnAction = 1
nAddAction = 1

oGridAddForm = CREATE("gridaddform",m.cFldKey,m.cKeyValue,;
	m.nBtnAction,m.nAddAction,THIS.ChildPrimaryKey,THIS.UpdatableParentKey,THIS.NoSendUpdates)

IF TYPE("m.oGridAddForm") # "O"
	=MESSAGEBOX(C_NOOBJ_LOC)
	THIS.AddOption = 0
	RETURN
ENDIF

IF THIS.NoSendUpdates
	oGridAddForm.OptionGroup1.Value = 2
	oGridAddForm.Text1.Value = m.cKeyValue
ENDIF

oGridAddForm.Show()

THIS.AddOption = IIF(m.nBtnAction=1,m.nAddAction,0)
THIS.KeyValue = m.cKeyValue

ENDPROC
                                                                  gridaddform                                                   chiselfield.                                                  Text1                                                         textbox                                                       textbox                                                       Width = 148
Height = 24
Name = "chiselfield"
Shape1.Height = 2
Shape1.Left = 46
Shape1.Top = 20
Shape1.Width = 97
Shape1.Name = "Shape1"
Label1.Height = 13
Label1.Left = 0
Label1.Top = 5
Label1.Width = 45
Label1.Name = "Label1"
             	container                                                     wizstyle.vcx                                                  !Arial, 0, 8, 5, 14, 11, 12, 3, 0

*
FUNCTION gensetupc      shadowfield    ENDIF
   ENDIF
ENDFOR



*
* GENSE      Pixels                                                        Class                                                         2                                                             
shadowbase                                                    shadowfield 	       '                        FontName = "Arial"
FontSize = 8
Height = 22
Left = 46
SpecialEffect = 1
TabIndex = 0
Top = 0
Width = 97
BackColor = 255,255,255
DisabledBackColor = 255,255,255
SelectedBackColor = 128,128,128
Name = "Text1"
        '   `        shadowfield.{    N     .     . 	   2
c {    o        Text1         $ j N m T g T j N              textbox	    Q ]    
        Q x    Q j       textbox       	       [   Y 	                Width = 149
Height = 25
Name = "shadowfield"
Shape1.Top = 5
Shape1.Left = 51
Shape1.Height = 20
Shape1.Width = 97
Shape1.Name = "Shape1"
Label1.Height = 16
Label1.Left = 0
Label1.Top = 3
Label1.Width = 41
Label1.Name = "Label1"
 -        	container.%({Iq=,MRb2@.1V>*Ciw2      !Arial, 1, 8, 5, 14, 11, 14, 3, 0
                             	shadowole                                                     Pixels                                                        Class                                                         3                                                             
shadowbase                                                    	shadowole                                                     gTop = 2
Left = 48
Height = 100
Width = 151
TabIndex = 0
ZOrderSet = 3
Name = "Oleboundcontrol1"
                       	shadowole.                                                    Oleboundcontrol1                                              oleboundcontrol                                               oleboundcontrol                                               OHeight = 100
Left = 48
Top = 2
Width = 151
ZOrderSet = 2
Name = "Shape2"
                                               	shadowole.                                                    Shape2                                                        shape                                                         shape                                                        Width = 207
Height = 111
Name = "shadowole"
Shape1.Height = 100
Shape1.Left = 54
Shape1.Top = 7
Shape1.Width = 150
Shape1.ZOrderSet = 0
Shape1.Name = "Shape1"
Label1.Height = 16
Label1.Left = 0
Label1.Top = 3
Label1.Width = 41
Label1.ZOrderSet = 1
Label1.Name = "Label1"
                                	container                                                     wizstyle.vcx                                                  wizstyle.vcxod query
OTHERWISE

ENDCASE

RELEASE TH      !Arial, 0, 8, 5, 14, 11, 12, 3, 0
Index = 4
cbofields2.N      
shadowmemome = "cbooperators1"
txtexpr1.TabIndex = 3
t      Pixelsbaseame = "cbofields1"
cbooperators1.TabIndex = 2      Classdex = 0
Name = "Label1"
ss1"
cbofields1.TabIndex      2aption = "Label1"
Height = 16
Left = 0
Top = 3
Widt      
shadowbase "Arial"
FontSize = 8
Alignment = 1
BackSty     PROCEDURE Destroy
LOCAL cFilterExpr
IF THIS.ChangedFilter
	IF EMPTY(THIS.SaveFilter)
		SET FILTER TO
	ELSE
		m.cFilterExpr = THIS.SaveFilter
		SET FILTER TO &cFilterExpr
	ENDIF
	IF RECCOUNT() # 0
		GO THIS.SaveRecord
	ENDIF
ENDIF

ENDPROC
PROCEDURE Init
IF !EMPTY(ALIAS())
	THIS.SaveRecord = RECNO()
	THIS.SaveFilter = SET("FILTER")
	THIS.ChangedFilter = .F.
ENDIF
ENDPROC
ttons
* for appropriate table environments.
     Top = 62
Left = 5
Width = 571
Height = 195
TabIndex = 0
Name = "Layoutsty"
shape1.Top = 0
shape1.Left = 0
shape1.Height = 194
shape1.Width = 570
shape1.Name = "shape1"
shape2.Top = 1
shape2.Left = 16
shape2.Height = 13
shape2.Width = 37
shape2.Name = "shape2"
shape3.Top = 13
shape3.Left = 16
shape3.Height = 13
shape3.Width = 37
shape3.Name = "shape3"
shape4.Top = 1
shape4.Left = 52
shape4.Height = 13
shape4.Width = 37
shape4.Name = "shape4"
use by user.
wizgrid Class refer      boxform. Class reference for a general field object.
wi      	Layoutstyct.
wizlogic Class reference for a logic field      	containerr a field object.
wizmemo Class reference for       wizstyle.vcxass reference for layout object.
wizfield C      	layoutstycuttons
* for appropriate table environments.
      formlsgridDPROC
f &![ bq!9/4<`u!{                                   ±   %   "      k     1            U  
 H
     O    G( T
 C POINTv G;( . T
 C    SET POINT TO &cSavePoint
 %C
 
? SET FILTER TO &cGetExpr
 - %C+*R CF No records were found which meet your query. Please try another query.x T    a B  T    - K -     ~ G( - T    - 2  <  U	  THIS VALUE CGETEXPR
 CSAVEPOINT THISFORM SEARCHCLASS1
 SEARCHEXPR PARENT
 CHANGEDFILTER Click,     1  A a a a!A  !A A  A A Aa A  B r 1                             )                                                                                                   =K   %   W        	               U  W  %C   .  T        " T     C   
 U  THIS
 LISTITEMID PARENT TXTEXPR2 VALUE ENABLED| b CR equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between    T   C    U  THIS ADDITEM VALUE LIST InteractiveChange,      Init     1 aA !3 "q2                                   f      )                                                                               !Arial, 0, 9, 5, 15, 12, 13, 3, 0
ew button of the Form W      scrollgrid2 0

* These properties should not be used.       PixelsET DELETED ON
THIS.oldReprocess = SET("REPROCESS"      lPROCEDURE Init
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]

ENDPROC
XXXXXXXXXXXX      FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 11
Style = 2
TabIndex = 4
Top = 117
Width = 141
Name = "cboFields2"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      searchclass.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      
cboFields2XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      comboboxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      comboboxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      {FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 260
TabIndex = 3
Top = 25
Width = 176
Name = "txtExpr1"
XXXXXAAAXXXXXXXXX===XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      searchclass.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      txtExpr1XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      textboxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      textboxXXAAAXXXXXXXXXXXX===XXXXXXXXXXXXXXXXXXXXXXXXXX                                   =K   %   W        	               U  W  %C   .  T        " T     C   
 U  THIS
 LISTITEMID PARENT TXTEXPR1 VALUE ENABLED| b CR equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between    T   C    U  THIS ADDITEM VALUE LIST InteractiveChange,      Init     1 aA !3 "q2                                   f      )                                                                              qPROCEDURE InteractiveChange
IF INLIST(THIS.ListItemId,5,6)
	THIS.Parent.TxtExpr1.Value = ""
ENDIF
THIS.Parent.TxtExpr1.ENABLED = !INLIST(THIS.ListItemId,5,6)

ENDPROC
PROCEDURE Init
#DEFINE C_OPERATORS_LOC	"equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between"
THIS.ADDITEM(C_OPERATORS_LOC)
THIS.VALUE = THIS.LIST[1]

ENDPROC
      FontName = "MS Sans Serif"
FontSize = 8
Alignment = 0
Height = 23
Left = 158
Style = 2
TabIndex = 2
Top = 25
Width = 96
Name = "cboOperators1"
      searchclass.      
cboOperators1      combobox         combobox                                    zc   %   W           e            U       7 
   C  
  C.( % %CC 
    G M U  C 
  "  CC D   T   T  	 aWizFList T  C   U  I	 AWIZFLIST THIS
 ROWSOURCETYPE	 ROWSOURCE VALUE LIST Init,     1 r q   Q!!A A q2                             )                                             PROCEDURE Init
#DEFINE NUM_AFIELDS 16
LOCAL i
PUBLIC aWizFList
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
FOR m.i = FCOUNT() TO 1 STEP -1
	IF INLIST(aWizFList[m.i,2],"G","M","U")	&&Memo field
		=ADEL(aWizFList,m.i)
		DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)-1),NUM_AFIELDS]
	ENDIF
ENDFOR
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]

ENDPROC
      FontName = "MS Sans Serif"
FontSize = 8
ControlSource = ""
Height = 23
Left = 11
Style = 2
TabIndex = 1
Top = 25
Width = 141
Name = "cboFields1"
        searchclass.      
cboFields1        combobox        combobox      9remotedelimeter
*searchexpr 
*dataexpr 
*searchitem 
      Width = 452
Height = 160
BackStyle = 0
TabIndex = 1
BackColor = 192,192,192
remotedelimeter = (.F.)
Name = "searchclass"
tretch = .T.
wizlbldefwid = .T.
wiztitle = Label1
wiz      	container = 3
DoCreate = .T.
ColorSource = 0
BackColo      "Tahoma, 0, 9, 5, 14, 12, 17, 2, 0
TH
ENDIF

THIS.Edit      	fancymemo						lShowedMess = .T.
						ENDIF
					ENDI      Pixelsle.vcxAND !m.lShowedMess
							=MESSAGEBOX(C_NOU      Classorm if updates are made
						IF !CURSORGETPROP("S      2rial, 0, 9, 5, 15, 12, 13, 3, 0
ERY(.Alias)
						ENDI      	fancybase			IF THIS.oldSetDelete = "OFF" AND ATC("?",CUR      	fancymemothe
						* BeforeOpenTables event of the Data      FontName = "Tahoma"
Height = 78
Left = 54
Top = 5
Width = 177
ForeColor = 0,0,0
DisabledForeColor = 0,0,0
IntegralHeight = .T.
Name = "Edit1"
						* you can place a SET DELET      	fancymemo.rceType",.Alias)#3
						* Check if we need t      Edit1ormCURSOR"
				WITH EVAL("."+aMems[m.i])
					IF       editboxp\form.bmpMem
			IF UPPER(EVAL("."+aMems[m.i]+".      editboxp\form.bmp	ENDIF
		ENDFOR
		
		* Check for Vie      FWidth = 240
Height = 90
Name = "fancymemo"
Label1.Name = "Label1"
r = 0,0,255
FillColor = 0,0,255
Name = "Shape2"
      	containerSE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.      wizstyle.vcx multi column).
wizpagestyle
VISIBLE = .T.      !Arial, 0, 9, 5, 15, 12, 13, 3, 0
eckbox as the label.
w      
fancylogiclor = 255,255,255
BackColor = 255,255,255
Na      Pixelsion = "Label1"
Height = 35
Left = 21
Top = 17
      Classize = .T.
FontName = "Arial"
FontSize = 20
BackS      2oxform.ether to use DBC long name label captions.
wizb      FWidth = 220
Height = 120
Name = "fancyole"
Label1.Name = "Label1"
NDSKW.EXE /SAGERUN:0                                    	LayoutstyClass reference for a general field object.
wi      formlsanelLink = .F.
RecordMark = .F.
RowHeight = 300
      wizstyle.vcx = 0
Height = 339
Highlight = .F.
Highlig      standardform. of character field before using editbox me      	containerct.
wizlogic Class reference for a logic field     	PROCEDURE Click
#DEFINE NORECSFOUND_LOC		"No records were found which meet your query. Please try another query."

DO CASE
CASE THIS.VALUE = 1		&&SET FILTER condition
	LOCAL cGetExpr,cSavePoint
	SET FILTER TO
	m.cSavePoint = SET("POINT")
	SET POINT TO "."
	m.cGetExpr = THISFORM.SearchClass1.SearchExpr()	
	SET POINT TO &cSavePoint
	IF !EMPTY(m.cGetExpr)
		SET FILTER TO &cGetExpr
		LOCATE
		* Check if no records found
		IF EOF()
			=MESSAGEBOX(NORECSFOUND_LOC)
			THIS.Parent.ChangedFilter = .T.
			RETURN
		ENDIF
		THIS.Parent.ChangedFilter = .F.		&&good query
	ELSE
		LOCATE
	ENDIF
CASE THIS.VALUE = 2  &&SET FILTER TO all
	SET FILTER TO
	LOCATE
	THIS.Parent.ChangedFilter = .F.			&&good query
OTHERWISE

ENDCASE

RELEASE THISFORM
ENDPROC
sitive.Value = 0
		m.cTmpExpr= "UPPER("+m.cTmp                                      %         8     
            U  @      % T
  C        % T
 C 	  
     0 T
 C  
 
   OR    AND 6
 H . C
   C
 	  T
    C
   T
 
   C
  	 T
 
  2. T
 
  
 
   B
  U 	 CGETEXPR1	 CGETEXPR2 CJOIN CGETEXPR THIS
 SEARCHITEM
 CBOFIELDS1
 CBOOPERATORS1 TXTEXPR1
 CBOFIELDS2
 CBOOPERATORS2 TXTEXPR2 OPTGRPANDOR VALUE      
 H % C
   M G P O UM 	 B   
   C1! %C 'Test'=
 b L  %    T  "
  "   T  [
  ]    T 
   %    "  T
  UPPER(
  )  B
 % C
   N F I Y Bs BCCCC
  ,gZ C
   D T B {C
  {}   } 2	 B    U 	 CDATATYPE CFLDEXPR CTMPEXPR THIS REMOTEDELIMETER CHKCASESENSITIVE VALUE     '       	 
  D %C m.oFieldb O C m.oOpb O C m.oExprb O 	 B    T
 C
    T
 C
  & %C
  C
 
 
	 	 B    T
 C
  
  % %
  C     	F  T
  UPPER(
  ) 
 HW 
 
 } T
  = 
 
  T
  <> 
 
  T
  > 
 
  T
  < 
 
   B EMPTY(
  ) 
 
 Q B ISNULL(
  ) 
  Lu T
  = 
 
  T
 C C 
   
 H 
  T* B AT(
  ,TTOC(
  ))>0 
  D1* B AT(
  ,DTOC(
  ))>0% C
  N F I Y B2 B AT(
 
 ,ALLTRIM(STR(
  )))>0 2$ B AT(
  ,
  )>0  2 T
 C ,
  	 
   (
 
 H 
 
 K( T	 
 C
 C ,
 \ 
 ( T	 
 C
 C ,
 = 2Z T	 
 C
 C ,
 
 C ,
 
 C ,
 
 \ ) T	 
 C 
 C 
 	    
 H& 
 
  T
     (
  T
 
 C 
 	  %
 
  T
 
  ,  & B INLIST(
  ,
  ) 
 
 	 %C	 '
 	  T	 C	   %C	 L
 	  6 B BETWEEN(
  ,C	  ,C	  ) 2	 B    
 H% C
  M G P O U	 B   
  L" %C
 
 
 b LR %C
  fFnN  
  <>	# C
  tTyY  
  <>	x T
  !
   B
   2 T
 C 
  
     %C
 	 B    B
 
 
   U  OFIELD OOP OEXPR CEXPR	 CDATATYPE COP CFLDNAME CFLDEXPR CRETEXPR AEXPRS	 NTOTEXPRS I VALUE
 LISTITEMID	 AWIZFLIST THIS CHKCASESENSITIVE DATAEXPR
  <   U 	 AWIZFLIST
 searchexpr,      dataexpr    
 searchitem     Destroy    1 1RQ   A  2  r  Q B A   A sA  R  B 4  qC A bac A RA  aaaaaaAa AAQ! AA    Q1 A A  a QaA A aaA qA A A a  A A  Q A!!aA  A  A   qA 4 q 2                       )        H  $     ,   E  &  =      D  W      )                                                                         	fancybase) if one used for unique placement of buttons.       	container        
 2 (                                 oleboundcontrol                                               oleboundcontrol                                               Oleboundcontrol1                                              fancyole.                                                     KTop = 12
Left = 60
Height = 100
Width = 145
Name = "Oleboundcontrol1"
Q=    =  N*-fF4
      fancyoleȉ
w ȴ=  =  \=      	fancybase  =    =  ~
  j j 6N$     Top = 3
Left = 12
Width = 452
Height = 160
BorderWidth = 0
TabIndex = 1
Name = "Searchclass1"
cbofields1.TabIndex = 1
cbofields1.Name = "cbofields1"
cbooperators1.TabIndex = 2
cbooperators1.Name = "cbooperators1"
txtexpr1.TabIndex = 3
txtexpr1.Name = "txtexpr1"
cbofields2.TabIndex = 4
cbofields2.Name = "cbofields2"
cbooperators2.TabIndex = 5
cbooperators2.Name = "cbooperators2"
txtexpr2.TabIndex = 6
txtexpr2.Name = "txtexpr2"
optgrpandor.option1.Value = 1
optgrpandor.option1.Left = 5
optgrpandor.option1.Top = 5
optgrpandor.option1.Name = "option1"
optgrpandor.option2.Value = 0
optgrpandor.option2.Left = 5
optgrpandor.option2.Top = 23
optgrpandor.option2.Name = "option2"
optgrpandor.Height = 46
optgrpandor.Width = 58
optgrpandor.TabIndex = 7
optgrpandor.Name = "optgrpandor"
label1.Height = 16
label1.Left = 12
label1.Top = 7
label1.Width = 102
label1.Name = "label1"
label2.Height = 16
label2.Left = 158
label2.Top = 7
label2.Width = 93
label2.Name = "label2"
label3.Height = 16
label3.Left = 262
label3.Top = 7
label3.Width = 165
label3.Name = "label3"
label4.Height = 16
label4.Left = 12
label4.Top = 99
label4.Width = 102
label4.Name = "label4"
label5.Height = 16
label5.Left = 161
label5.Top = 99
label5.Width = 93
label5.Name = "label5"
label6.Height = 16
label6.Left = 262
label6.Top = 99
label6.Width = 165
label6.Name = "label6"
chkCaseSensitive.Top = 69
chkCaseSensitive.Left = 290
chkCaseSensitive.Height = 15
chkCaseSensitive.Width = 88
chkCaseSensitive.Name = "chkCaseSensitive"
nTables event of the Data     ScaleMode = 3
DoCreate = .T.
ColorSource = 0
BackColor = 192,192,192
wizlayout = layoutsty
wizfield = boxfield
wizmemo = boxmemo
wizlogic = boxlogic
wizole = boxole
wizmaxcharfld = 45
wizlblsuffix = (":")
wizlblcap = proper
wizformstretch = .T.
wizlbldefwid = .F.
wiztitle = Label1
wizuser = 0
wizgrid = grid1
wizverify = .T.
wizcodestyle = .T.
wizpages = 2
wizpagestyle = boxpages
Name = "boxform"
pagestyle = 
Name       wizstyle.vcx
	SET FIELDS ON
ENDIF

SET REFRESH TO THI     %Top = 6
Left = 9
Width = 561
Height = 253
TabIndex = 0
BackColor = 255,255,255
odimensions = Shape1
Name = "Layoutsty"
shape1.Top = 0
shape1.Left = 0
shape1.Height = 252
shape1.Width = 561
shape1.BackColor = 255,255,255
shape1.Name = "shape1"
shape2.Top = 7
shape2.Left = 16
shape2.Height = 13
shape2.Width = 37
shape2.Name = "shape2"
shape3.Top = 22
shape3.Left = 16
shape3.Height = 13
shape3.Width = 37
shape3.Name = "shape3"
shape4.Top = 7
shape4.Left = 56
shape4.Height = 13
shape4.Width = 37
shape4.Name = "shape4"
mprove performance       gridtyle.vcx
	SET FIELDS ON
ENDIF

SET REFRESH TO THI      gridbtns                                                      Pixels                                                        stylebmp\textbttn.bmp                                         stylebmp\textbttn.bmp                                         Class                                                        ScaleMode = 3
DoCreate = .T.
ColorSource = 0
BackColor = 255,255,255
wizlayout = layoutsty
wizfield = standardfield
wizmemo = standardmemo
wizlogic = standardlogic
wizole = standardole
wizmaxcharfld = 45
wizlblsuffix = (":")
wizlblcap = proper
wizformstretch = .T.
wizlbldefwid = .T.
wiztitle = label1
wizuser = 0
wizgrid = grid1
wizverify = .T.
wizbtnpos = 0
wizcodestyle = .T.
wizlabel = standardlabel
wizlblspace = 10
wizcboxlbl = .T.
Name = "standardform"
"+aMems[m.i]+".BaseC     DoCreate = .T.
BackColor = 0,128,128
wizfield = fancyfield
wizlabel = 
wizlblcap = lower
wizlblsuffix = ("")
wizlogic = fancylogic
wizmemo = fancymemo
wizole = fancyole
wizcboxlbl = .F.
wizlblspace = 
wizmaxcharfld = 40
Name = "fancyform"
layoutsty.Shape1.Top = 0
layoutsty.Shape1.Left = 0
layoutsty.Shape1.Height = 228
layoutsty.Shape1.Width = 538
layoutsty.Shape1.Name = "Shape1"
layoutsty.Shape2.Top = 7
layoutsty.Shape2.Left = 6
layoutsty.Shape2.Height = 13
layoutsty.Shape2.Width = 37
layoutsty.Shape2.Name = "Shape2"
layoutsty.Shape3.Top = 27
layoutsty.Shape3.Left = 6
layoutsty.Shape3.Height = 13
layoutsty.Shape3.Width = 37
layoutsty.Shape3.Name = "Shape3"
layoutsty.Shape4.Top = 6
layoutsty.Shape4.Left = 111
layoutsty.Shape4.Height = 13
layoutsty.Shape4.Width = 37
layoutsty.Shape4.Name = "Shape4"
layoutsty.Top = 48
layoutsty.Left = 21
layoutsty.Width = 538
layoutsty.Height = 228
layoutsty.Name = "layoutsty"
Label1.FontName = "Tahoma"
Label1.FontSize = 18
Label1.Height = 31
Label1.Left = 21
Label1.Top = 10
Label1.Width = 78
Label1.Name = "Label1"
Shape1.Top = 279
Shape1.Left = 5
Shape1.Height = 1
Shape1.Width = 569
Shape1.BackColor = 255,255,255
Shape1.BorderColor = 255,255,255
Shape1.Name = "Shape1"
Shape2.Top = 43
Shape2.Left = 5
Shape2.Height = 1
Shape2.Width = 569
Shape2.Name = "Shape2"
Shape3.Top = 314
Shape3.Left = 5
Shape3.Height = 1
Shape3.Width = 569
Shape3.BackColor = 255,255,255
Shape3.BorderColor = 255,255,255
Shape3.Name = "Shape3"
Shape4.Top = 5
Shape4.Left = 5
Shape4.Height = 0
Shape4.Width = 569
Shape4.BackStyle = 0
Shape4.SpecialEffect = 0
Shape4.Name = "Shape4"
}/<      Yб б 1   x  0cɓc
       2N_Z=  P  =    =    =  A  =      Classw P[  B Q  @ E  jP      Pixelsw zPyH]@zWPQj
 鯳      fancyoleȍUPM߰}d}El  j UuM.      
fancylogicle or button style.
wizbtnlayout Button posit      gTop = 8
Left = 56
Height = 18
Width = 17
Caption = ""
DisabledForeColor = 0,0,0
Name = "Check1"
izcodestyle Wheth      
fancylogic.ft = 0
Height = 61
Width = 580
FillStyle =      Check1m.n position centering (0-none, 1-hori, 2-vert, 3-      checkboxzbuttons Class reference for button set object.
      checkboxts (use for testing but can improve performance       FWidth = 88
Height = 34
Name = "fancylogic"
Label1.Name = "Label1"
object with 1-Many forms.
wizverify Whether to ve      	container
shape3.Width = 37
shape3.Name = "shape3"
sh      wizstyle.vcxhape2"
shape3.Top = 13
shape3.Left = 16
s      "Tahoma, 0, 9, 5, 14, 12, 17, 2, 0
Name = "shape1"
shape      
fancyfieldtsty"
shape1.Top = 0
shape1.Left = 0
shape1      Pixels62
Left = 5
Width = 571
Height = 195
TabIndex       Classrm. Class reference for a general field object.
wi      wizstyle.vcx7
layoutsty.Shape4.Name = "Shape4"
layouts      2ayoutstyct.
wizlogic Class reference for a logic field      	fancybaser a field object.
wizmemo Class reference for       formowbasetsty.Left = 4
layoutsty.Width = 571
layoutst      
fancyfieldcxass reference for layout object.
wizfield C      FontName = "Tahoma"
Height = 23
Left = 59
Top = 5
Width = 113
DisabledForeColor = 0,0,0
NullDisplay = ("n/a")
Name = "Text1"
tstycuttons
* for appropriate table environments.
      
fancyfield.wid = .F.
wiztitle = Label1
wizuser = 0
wi      Text1lblsuffix = (":")
wizlblcap = proper
wizformstret      textbox
wizlogic = boxlogic
wizole = boxole
wizmaxchar      textbox
wizlayout = layoutsty
wizfield = boxfield
wiz      GWidth = 184
Height = 34
Name = "fancyfield"
Label1.Name = "Label1"
de = 3
DoCreate = .T.
ColorSource = 0
BackColo     Width = 542
Height = 25
BackStyle = 0
BorderWidth = 0
Visible = .T.
TabIndex = 1
nworkarea = 0
editmode = 0
previewmode = .F.
topfile = 0
endfile = 0
oldrefresh = 0
oldrec = 0
oldreprocess = 0
previewinit = .T.
usedataenv = .T.
viewkey = ("")
Name = "txtbtns"
                                        	container                                                     6                                                             	container                                                     gridbtns                                                     Y    @  @                        7   %                             U  L  T       T      T   
 C 	  U
 	 CKEYVALUE THIS PARENT TEXT1 VALUE
 NADDACTION OPTIONGROUP1
 NBTNACTION THISFORM RELEASE Click,     1 aa 1                              )   @                                                       Class
THIS.nWorkArea = SELECT()
THIS.oldSetDelete = SET      1 = ""
THIS.TopFile = .F.
THIS.EndFile = .F.
THIS.Add     PROCEDURE Click
#DEFINE MSGBOX_YES		6
#DEFINE C_MSGBOX1		36
#DEFINE C_DELETE_LOC	"Do you want to delete this record?"

IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1) = MSGBOX_YES
	DELETE
	IF THIS.Parent.UpdateRows()  &&success
		* Success
		IF !EOF()
			SKIP 1
		ENDIF
		IF EOF() AND !BOF()
			SKIP -1
		ENDIF
	ENDIF
ENDIF
THISFORM.REFRESH()
IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

ENDPROC
              Top = 2
Left = 178
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Delete"
Enabled = .T.
StatusBarText = "Delete existing record"
TabIndex = 9
ToolTipText = ""
Name = "cmdDelete"
                                   gridbtns.                                                     	cmdDelete                                                     
commandbutton                                                 
commandbutton                                                 
scrollgrid
THIS.ParentKey = ""
THIS.ViewType = 3
THIS.      wizrowstretch = .T.
Name = "scrollgrid2"
Column1.Header1.Name = "Header1"
Column1.Container1.Name = "Container1"
Column1.Name = "Column1"
OCAL aTablesUsed,nTablesUsed,i,aMems,nTot      	containerdDPROC
f &![ bq!9/4<`u!{      scrollgrid2

* This routine sets the member variables
     PROCEDURE Click
#DEFINE C_NOUPDATE_LOC	"You cannot add a new record because the view(s) selected does not send updates."
IF CURSORGETPROP("SourceType")#3 AND !CURSORGETPROP("SendUpdates")
	MESSAGEBOX(C_NOUPDATE_LOC)
	RETURN
ENDIF
APPEND BLANK
THISFORM.REFRESH()
ENDPROC
                                       Top = 2
Left = 116
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Add"
Enabled = .T.
StatusBarText = "Add new record / Save edits"
TabIndex = 7
ToolTipText = ""
Name = "cmdAdd"
                                    gridbtns.                                                     cmdAdd                                                        
commandbutton                                                 
commandbutton                                                 wizrowstretch
s,cDataEnvRef
DIMENSION aTablesUsed[1]
      gridUPDATEVIEW_LOC	"Edits to one or more of the Views ma      wizstyle.vcxion()
ENDPROC
PROCEDURE initvars
						
      	container                                                     .PROCEDURE Click
THISFORM.Release

ENDPROC
                Top = 2
Left = 240
Height = 24
Width = 53
FontName = "MS Sans Serif"
FontSize = 8
Caption = "E\<xit"
Enabled = .T.
StatusBarText = "Exit input form"
TabIndex = 10
ToolTipText = ""
Name = "cmdExit"
                                             gridbtns.                                                     cmdExit                                                       
commandbutton                                                 
commandbutton                                                                                 %         9                 U    C    T  a U  TXTBTNS INIT THISFORM SHOWTIPS> %   
 # T       	 wznew.bmp$ T       
 wzedit.bmp# T       	 wznew.bmp$ T       
 wzedit.bmp 7$ T       
 wzsave.bmp$ T       
 wzundo.bmp$ T       
 wzsave.bmp$ T       
 wzundo.bmp  U  THIS EDITMODE CMDADD PICTURE
 WIZBMPPATH CMDEDIT DOWNPICTURE Init,     
 setcaptionr     1   3 1A1A AAAAA 1                       <         ]   5      )                                       CPROCEDURE Click
#DEFINE C_MAKEREPO_LOC			"Could not locate a report to print. Create new one?"
#DEFINE C_NOOPEN_LOC			"Error opening table. Unable to print report."
#DEFINE C_GETFILEPROMPT_LOC		"Select a report to print:"

LOCAL cRepName,nSaveSess,cSaveAlias,cSaveSource,cSaveData 

cSaveAlias = ALIAS()
cSaveSource = CURSORGETPROP("SourceName")
cSaveData = CURSORGETPROP("Database")
cDiffSource = ""
cRepName = LEFT(ALIAS(),8)+".FRX"
nSaveSess = SET("DATASESSION")

#IF 0
	* Handling for Private data sessions
	IF m.nSaveSess # 1
		SET DATASESSION TO 1
		SELECT 0
		IF !EMPTY(m.cSaveData)
			OPEN DATABASE (m.cSaveData)
		ENDIF
		IF USED(m.cSaveAlias)
			SELECT (m.cSaveAlias)
			IF CURSORGETPROP("SourceName")#m.cSaveSource
				cDiffSource = CURSORGETPROP("SourceName")
				USE IN (m.cSaveAlias)
				SELECT 0
			ENDIF
		ENDIF	
		IF EMPTY(ALIAS())
			USE (m.cSaveSource) AGAIN ALIAS (m.cSaveAlias) SHARED
			IF EMPTY(ALIAS())
				=MESSAGEBOX(C_NOOPEN_LOC)
				RETURN
			ENDIF
		ENDIF
	ENDIF
#ENDIF

IF FILE(m.cRepName)
	REPORT FORM (m.cRepName) PREVIEW NOWAIT
ELSE
	m.cRepName = GETFILE("frx",C_GETFILEPROMPT_LOC,"",1)
	IF !EMPTY(m.cRepName)
		IF FILE(m.cRepName)
			* User pressed Open button
			REPORT FORM (m.cRepName) PREVIEW NOWAIT
		ELSE
			* User pressed New button
			DO (_WIZARD) WITH "AUTOREPORT"
		ENDIF
	ENDIF
ENDIF

#IF 0
	IF !EMPTY(cDiffSource)
		USE (m.cDiffSource) IN 0
	ENDIF

	SET DATASESSION TO m.nSaveSess
	SELECT (m.cSaveAlias)
#ENDIF

IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

ENDPROC
                                                           Top = 2
Left = 58
Height = 24
Width = 49
FontName = "MS Sans Serif"
FontSize = 8
Caption = "P\<rint"
Enabled = .T.
StatusBarText = "Print to report"
TabIndex = 6
ToolTipText = ""
Name = "cmdPrint"
                                             gridbtns.                                                     cmdPrint                                                      
commandbutton                                                 
commandbutton                                                N    5  5                           %                          U  P
 H
 .    7  T     & C THISFORM.cKeyValueb Cp  T     / CC THISFORM.cKeyValueb NYIBF   T    , CC THISFORM.cKeyValueb DT   T           & C THISFORM.cKeyValueb L. T   a  T       U  THIS VALUE THISFORM TEXT1	 CKEYVALUE READONLY InteractiveChange,     1  Aaa11aA 2                             )   5                                                                 PROCEDURE Click

LOCAL lVisChange,lStateChange,oSearchDlog

* Check if SDI Window
IF THISFORM.ShowWindow = 2 
	IF !_VFP.Visible
		_VFP.Visible = .T.
		lVisChange = .T.
	ENDIF
	IF _SCREEN.WindowState = 1
		_SCREEN.WindowState = 0
		lStateChange = .T.
	ENDIF
ENDIF

oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()
THISFORM.REFRESH()

IF m.lVisChange
	_VFP.Visible = .F.
ENDIF
IF m.lStateChange 
	_SCREEN.WindowState = 1
ENDIF
IF THISFORM.ShowWindow = 2 
	Activate Window (THISFORM.Name)
ENDIF

ENDPROC
                                     Top = 2
Left = 0
Height = 24
Width = 49
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Find"
Enabled = .T.
StatusBarText = "Search for records"
TabIndex = 5
ToolTipText = ""
Name = "cmdFind"
                                             gridbtns.                                                     cmdFind                                                       
commandbutton                                                 
commandbutton                                                =nworkarea Saves old workarea (set internally).
previewmode Whether the form is in preview mode for use with Preview button on Wizard (set internally).
oldsetfields Saves SET FIELDS (set internally).
oldsetdelete Saves SET DELETED (set internally).
oldmultilocks Saves SET MULTILOCKS (set internally).
oldbuffering Saves table buffering state (set internally).
oldrefresh Saves SET REFRESH (set internally).
oldrec Saves record number (set internally).
oldreprocess Saves SET REPROCESS (set internally).
oldalias Saves alias when editing to restore with 1-Many forms (set internally).
previewinit For use with Preview button on wizard (set internally).
usedataenv Whether the form has a data environment object attached (set internally).
hasgeneral Whether the form has general field oleboundcontrol object (set internally).
oldtalk Saves SET TALK (set internally).
hasmemo Whether the form has memo field editbox object (set internally).
*initvars Saves and sets certain environment variables.
*updaterows Handles add, edit and delete operations of records to tables.
                                                                 Width = 296
Height = 26
BackStyle = 0
BorderWidth = 0
Visible = .T.
TabIndex = 1
nworkarea = 0
previewmode = .F.
oldrefresh = 0
oldrec = 0
oldreprocess = 0
previewinit = .T.
usedataenv = .T.
Name = "gridbtns"
                              s    Z  Z                        *   %                          U   5      ! %C
 THIS.KeyFieldb CH  T      T     T   
 T 
 T E T C gridaddform 
   
  
  
    	  
 N" %C m.oGridAddFormb Oba CU Failed to create the Add Record form class. Check or reinstall the WIZSTYLE.VCX file.x T    B  % 
  T  
  T  
 
  
 C  & T  C
  
   6 T  
  U  CFLDKEY	 CKEYVALUE
 NBTNACTION
 NADDACTION OGRIDADDFORM THIS KEYFIELD KEYVALUE CHILDPRIMARYKEY UPDATABLEPARENTKEY
 NOSENDUPDATES	 ADDOPTION OPTIONGROUP1 VALUE TEXT1 SHOW
 runaddform,     1 sA   S"A A 1QA  b!2                       1      )   Z                            
wnworkarea Saves old workarea (set internally).
editmode Whether the form is in edit mode (set internally).
previewmode Whether the form is in preview mode for use with Preview button on Wizard (set internally).
topfile Whether the record pointer is at top of table (set internally).
endfile Whether the record pointer is at end of table (set internally).
oldsetfields Saves SET FIELDS (set internally).
oldsetdelete Saves SET DELETED (set internally).
oldmultilocks Saves SET MULTILOCKS (set internally).
oldbuffering Saves table buffering state (set internally).
addmode Whether the form is in add mode where a new record is being added (set internally).
oldrefresh Saves SET REFRESH (set internally).
oldrec Saves record number (set internally).
oldreprocess Saves SET REPROCESS (set internally).
oldalias Saves alias when editing to restore with 1-Many forms (set internally).
previewinit For use with Preview button on wizard (set internally).
usedataenv Whether the form has a data environment object attached (set internally).
gridref Object reference to grid object (set internally).
odatarelation Object reference to data environment (set internally).
viewkey Key expression of child table used in grid object (set internally). Expression is obtained from Tag property of form.
gridalias Alias of table used in grid object (set internally).
viewtype Data source type for grid object (set internally).
parentkey Key expression of parent table used in 1-Many form (set internally). Expression is obtained from Comment property of form.
hasgeneral Whether the form has general field oleboundcontrol object (set internally).
oldtalk Saves SET TALK (set internally).
hasmemo Whether the form has memo field editbox object (set internally).
editforecolor Saves EditForeColor property for editbox objects (set internally).
editbackcolor Saves EditBackColor property for editbox objects (set internally).
editdisforecolor Saves DisabledForeColor property for editbox objects (set internally).
editdisbackcolor Saves DisabledBackColor property for editbox objects (set internally).
usercontrolmode This mode will allow user added controls such as comboboxes, listboxes and spinners to take on behavior of EditMode.
*buttonrefresh Enables/disables buttons.
*initvars Saves and sets certain environment variables.
*updaterows Handles add, edit and delete operations of records to tables.
*setcaption Changes caption/picture of buttons when edit mode toggled on/off.
*setallprop Enables/disables editing of data bound objects on form.
*navrefresh Refreshes record navigational buttons.
*getgridref Locates reference to grid object if one exists.
      ColumnCount = 1
AllowHeaderSizing = .F.
AllowRowSizing = .F.
DeleteMark = .F.
HeaderHeight = 0
Height = 178
Highlight = .F.
HighlightRow = .F.
RecordMark = .F.
RowHeight = 300
ScrollBars = 2
SplitBar = .F.
Width = 369
BackColor = 192,192,192
wizbtnstyle = gridbtns
Name = "scrollgrid"
Column1.Width = 500
Column1.Sparse = .F.
Column1.BackColor = 192,192,192
Column1.Name = "Column1"
iewinit = .T.
usedataenv = .T.
view                                   &   %         C     	            U            %C6  B-  T  	   T 
  
   T  
 
 H   
   T  
  - T    - 
 
  T    -  %
  T    - 
 H" C THIS.cKeyValueb CI T  	   + CC THIS.cKeyValueb NYIBF  T  	  ( CC THIS.cKeyValueb DT  T  	         " C THIS.cKeyValueb L T  	 a  U  CFLDKEY	 CKEYVALUE
 NBTNACTION
 NADDACTION LCHILDPRIMARYKEY LUPDATABLEPARENTKEY LNOSENDUPDATES THIS
 COMMANDGROUP1 VALUE LABEL3 CAPTION OPTIONGROUP1 OPTION1 ENABLED OPTION3 OPTION2 TEXT1 Init,     1 q A 2Q!  BABA  AA  !11!A 2                       n      )                                             bPROCEDURE searchexpr
LOCAL cGetExpr1,cGetExpr2,cJoin,cGetExpr

m.cGetExpr1 = THIS.SearchItem(THIS.cboFields1,THIS.cboOperators1,THIS.txtExpr1)
m.cGetExpr2 = THIS.SearchItem(THIS.cboFields2,THIS.cboOperators2,THIS.txtExpr2)
m.cJoin = IIF(THIS.optGrpAndOr.value = 2," OR "," AND ")

DO CASE
CASE EMPTY(m.cGetExpr1) AND EMPTY(m.cGetExpr2)
	m.cGetExpr = ""
CASE EMPTY(m.cGetExpr2)
	m.cGetExpr = m.cGetExpr1
CASE EMPTY(m.cGetExpr1)
	m.cGetExpr = m.cGetExpr2
OTHERWISE
	m.cGetExpr = m.cGetExpr1+m.cJoin+m.cGetExpr2
ENDCASE

RETURN m.cGetExpr
ENDPROC
PROCEDURE dataexpr
LPARAMETER cDataType,cFldExpr

LOCAL cTmpExpr

DO CASE
CASE INLIST(m.cDataType,"M","G","P","O","U")
	RETURN ""

CASE m.cDataType = "C"
	IF TYPE("'Test'="+m.cFldExpr) # "L"
		IF THIS.REMOTEDELIMETER
			cTmpExpr = '"'+m.cFldExpr+'"'
		ELSE
			cTmpExpr = "["+m.cFldExpr+"]"
		ENDIF
	ELSE
		cTmpExpr = m.cFldExpr
	ENDIF
	
	* Check for case sensitive
	IF THIS.chkCaseSensitive.Value = 0
		m.cTmpExpr= "UPPER("+m.cTmpExpr+")" 
	ENDIF
	RETURN m.cTmpExpr
	
CASE INLIST(m.cDataType,"N","F","I","Y","B")
	* Check for any commas and remove
	RETURN ALLTRIM(STR(VAL(STRTRAN(m.cFldExpr,",")),16,4))

CASE INLIST(m.cDataType,"D","T")
	RETURN "{"+CHRTRAN(m.cFldExpr,"{}","")+"}"

OTHERWISE
	RETURN ""

ENDCASE


ENDPROC
PROCEDURE searchitem
LPARAMETERS oField,oOp,oExpr
LOCAL cExpr,cDataType,cOp,cFldName,cFldExpr,cRetExpr,aExprs,nTotExprs,i

* Check to make sure proper parameters passed
IF TYPE("m.oField")#"O" OR TYPE("m.oOp")#"O" OR TYPE("m.oExpr")#"O"
	RETURN ""
ENDIF

m.cFldName = ALLTRIM(m.oField.Value)
m.cFldExpr = ALLTRIM(m.oExpr.Value)

* If empty expression return empty.
IF EMPTY(m.cFldExpr) AND !INLIST(m.oOp.listitemid,5,6)
	RETURN ""
ENDIF

* Get data type of field
m.cDataType = aWizFList(m.oField.listitemid,2)

IF m.cDataType = "C" AND THIS.chkCaseSensitive.Value = 0
	m.cFldName = "UPPER("+m.cFldName+")" 
ENDIF

* Get the operator language equivalent
DO CASE
CASE m.oOp.listitemid = 1	&& equals
	m.cOp = "="
CASE m.oOp.listitemid = 2	&& not equals
	m.cOp = "<>"
CASE m.oOp.listitemid = 3	&& more than
	m.cOp = ">"
CASE m.oOp.listitemid = 4	&& less than
	m.cOp = "<"
CASE m.oOp.listitemid = 5	&& is blank
	RETURN "EMPTY("+m.cFldName+")"
CASE m.oOp.listitemid = 6	&& is NULL
	RETURN "ISNULL("+m.cFldName+")"
CASE m.cDataType = "L" 		&& don't allow other options for logical type
	m.cOp = "="
CASE m.oOp.listitemid = 7	&& contains
	m.cFldExpr = THIS.DataExpr("C",m.cFldExpr)
	DO CASE
	CASE m.cDataType = "T"
		RETURN "AT("+m.cFldExpr+",TTOC("+m.cFldName+"))>0"
	CASE m.cDataType = "D"
		RETURN "AT("+m.cFldExpr+",DTOC("+m.cFldName+"))>0"
	CASE INLIST(m.cDataType,"N","F","I","Y","B")
		RETURN "AT("+m.cFldExpr+",ALLTRIM(STR("+m.cFldName+")))>0"
	OTHERWISE
		RETURN "AT("+m.cFldExpr+","+m.cFldName+")>0"
	ENDCASE
OTHERWISE
	nTotExprs = OCCURS(",",m.cFldExpr)+1
	DIMENSION aExprs[m.nTotExprs]
	FOR i =  1 TO m.nTotExprs
		DO CASE
		CASE m.i = m.nTotExprs
			aExprs[m.i] = SUBSTR(m.cFldExpr,RAT(",",m.cFldExpr)+1)
		CASE m.i =1
			aExprs[m.i] = LEFT(m.cFldExpr,AT(",",m.cFldExpr)-1)
		OTHERWISE
			aExprs[m.i] = SUBSTR(m.cFldExpr,AT(",",m.cFldExpr,m.i-1)+1,;
				AT(",",m.cFldExpr,m.i)-AT(",",m.cFldExpr,m.i-1)-1)
		ENDCASE
		aExprs[m.i] = THIS.DataExpr(m.cDataType,aExprs[m.i])
	ENDFOR

	DO CASE
	CASE m.oOp.listitemid = 8	&& in
		m.cFldExpr = ""
		FOR i = 1 TO m.nTotExprs
			m.cFldExpr = m.cFldExpr + aExprs[m.i]
			IF	m.i # m.nTotExprs
				m.cFldExpr = m.cFldExpr + ","			
			ENDIF
		ENDFOR
		RETURN "INLIST("+m.cFldName+","+m.cFldExpr+")"
	CASE m.oOp.listitemid = 9	&& between
		IF ALEN(aExprs)=1
			DIMENSION aExprs[2]
			aExprs[2] = aExprs[1]
		ENDIF
		IF ALEN(aExprs)>2
			DIMENSION aExprs[2]
		ENDIF
		RETURN "BETWEEN("+m.cFldName+","+aExprs[1]+","+aExprs[2]+")"
	OTHERWISE
		RETURN ""
	ENDCASE
ENDCASE

DO CASE
CASE INLIST(m.cDataType,"M","G","P","O","U")
	RETURN ""
CASE m.cDataType = "L"
	IF TYPE(m.cFldName+m.cOp+m.cFldExpr) # "L"
		IF (AT(m.cFldExpr,"fFnN")#0 AND m.cOp # "<>") OR (AT(m.cFldExpr,"tTyY")#0 AND m.cOp = "<>")
			m.cFldName = "!"+m.cFldName
		ENDIF
		RETURN m.cFldName
	ENDIF
OTHERWISE
	m.cFldExpr = THIS.DataExpr(m.cDataType,m.cFldExpr)
ENDCASE

IF EMPTY(m.cFldExpr)
	RETURN ""
ELSE
	RETURN m.cFldName+m.cOp+m.cFldExpr
ENDIF


ENDPROC
PROCEDURE Destroy
RELEASE aWizFList

ENDPROC
     2    2  2                        B   %   -      1    -            U    %CW     
 F    
 C    T       
 T       
 T       
 T       
 Cs
	
 C  	  U
  THIS	 NWORKAREA
 SETALLPROP CMDFIND ENABLED EDITMODE CMDPRINT CMDEXIT	 CMDDELETE
 SETCAPTIONl#          
   
   T 	    T 
    T   T     T 
 - T  - T  - T  CW T  C DELETEDv G  T  C	 REPROCESSv GM( 6 T  CC THIS.PreviewModeb L -   66 T  CC THIS.PreviewInitb L a   6
 Ht, C THISFORM.DataEnvironmentb O T  a T C   b% T  THISFORM.DataEnvironment/ C THISFORMSET.DataEnvironmentb O T  a T C   b( T  THISFORMSET.DataEnvironment' %C THISFORMb O   
	 T  a  2 T  -  %  5 C
 1  (
 \7 %CC .C 
  
 .BaseClassf RELATIONX" T  
  .C 
   !    (
 -5 %CC .C 
  
 .BaseClassf CURSOR) C .C 
  %8 %C
 SourceType  C offline 
	!2 %   OFF C ?C SQL ꉸ 	@
 C  * %C SendUpdates 
 
 
	 C8 Edits to one or more of the Views may not be permanent. \ To remedy this, ensure the View's Send SQL Updates checkbox is checked in the View Designer.x T a       3 T  CC
 THIS.EditModeb L -   6
 %CsH R,8 The table is Read-Only. You will not be able to edit it. T  -  T   Cs
 T   Cs
 T    Cs
 %  # B 
 C !  %  H B  T " C FIELDSv G T # C
 MULTILOCKSv G_  T $ C REFRESHv GH( %CC
` T % C	 buffering T
 C  y  (
 \+ %C
 sourcetypeC 
   X% C	 bufferingC 
       #) U&  ATABLESUSED NTABLESUSED I AMEMS NTOTMEM CWIZFILE LSHOWEDMESS CDATAENVREF THIS VIEWKEY	 PARENTKEY VIEWTYPE	 GRIDALIAS TOPFILE ENDFILE ADDMODE	 NWORKAREA OLDSETDELETE OLDREPROCESS PREVIEWMODE PREVIEWINIT
 USEDATAENV THISFORM DATAENVIRONMENT THISFORMSET VISIBLE
 ODATARELATION ALIAS EDITMODE CMDADD ENABLED CMDEDIT	 CMDDELETE
 GETGRIDREF OLDSETFIELDS
 OLDMULTILOCKS
 OLDREFRESH OLDBUFFERING1            	 
  
  
    T
   
 T
 a T
 CW T
 C y  (
  FC 
   T
	 CC Databaseꉡ
 T
   
 T
 -
 T
 -
 H C	 Buffering/ . C k T
 C-a %
 g . ; 
	 
( C 2Cꐸ  C 3Cꐸ 	 T
 C  +
  Q #
  T
 CS %
 
*, T
  Record in use by another user Z !  %
 
9 
 (C.5 %CC
 /b Gr .  %CC
 /_CC
 /1
 T
 a` %CI Data has been changed by another user. Overwrite changes with your edits?4x
 T
 a -
 T
 - Z !     T
 C
   %
  T
 Ca
  %
  .  Z  
	   T
 Ca- %
   .    T C  z
 H    C  I T
  Trigger failed. C  -( T
  Field doesn't accept NULL C  ." T
  Field rule violated C  
, T
  Record in use by another user C  /C  T
  Row rule violated C  \% T
  Unique index violation C  1y %
	 u` %CI Data has been changed by another user. Overwrite changes with your edits?4xq  T
 Caa %
 7  . m * C Could not force table updates.x    2 %C
 
! T
  Error: C    
 Ca
 T
 - %C
 
* C Failed to update table: 
 x   F
  B
  U
  AERRORS
 CERRORMESSAGE ATABLESUSED NTABLESUSED NTOTERR NFLD I NOLDAREA LSUCCESS LINDBC
 LOVERWRITE LHADMESSAGE
 NMODRECORD  %   D  T     \<Save T     \<Revert }  T     \<Add T     \<Edit  U  THIS EDITMODE CMDADD CAPTION CMDEDIT        %C 5  T
   N  T
 
   
 H_  $ C	 Pageframe
     T   3 C
   Optiongroup,Commandgroup   T    2  T      (
 
 H$ C	 Pageframe
   X CC 
 
  	 
 = C
   Optiongroup,Commandgroup  	  	  T
 
 
  	  G CC 
 
    Optiongroup,Commandgroup  	  	 CC 
 
  	 
 Q C	 ContainerC 
 
      C PageC 
 
     CC 
 
  	 
 G CC 
 
    ListBox,ComboBox,Spinner  	  	  T
  
  	  E CC 
 
     CheckBox,TextBox,OleBoundControl Q  T
  
  	  , CC 
 
    EditBox ! T
  
  	  
 %	  
 C 
 
   T	    T	    T	    T	    T	  a  4 T
  
  C	  	 	   	  64 T
  
  C	  	 	   	  6) CC 
 
    Grid ! T
  
  	  
  T
  
  	     U 
 OCONTAINER I OCONTROLPARENT
 NCTRLCOUNT THISFORM	 BASECLASS	 PAGECOUNT BUTTONCOUNT CONTROLCOUNT THIS
 SETALLPROP PAGES USERCONTROLMODE BUTTONS ENABLED EDITMODE CONTROLS READONLY HASMEMO
 EDITFORECOLOR	 FORECOLOR EDITDISFORECOLOR DISABLEDFORECOLOR
 EDITBACKCOLOR	 BACKCOLOR EDITDISBACKCOLOR DISABLEDBACKCOLOR
 DELETEMARK      T
     T  a %CW  O 
 F    %  
; T  C+    %  
  H T  C+
 H   #6  T 	 C C+  	  % 	 

 H T 	 C % 	 
 H   % 	 7 #)  " T 
   	 
   
	" T    	 
   
	" T 
    
   
	" T     
   
	
 H    Cs'    C	 BUFFERING	# T   -   D T   a CN  C C+ T   - T   -    
 T   a T   a  %  

 C  
	 T C  
 H C  b C5% T    = [
  ] C  b L\ T    C  b D' T    = {C
 * } C  b T( T    = {C
  } 2% T    =CC
 Z 
 F  
 H$s -/   _ SET FILTER TO &cFiltExpr
   s 
 F   
 C   T  
   U 
 OLDLOCKSCREEN KEYVALUE	 CFILTEXPR THISFORM
 LOCKSCREEN THIS	 NWORKAREA EDITMODE ENDFILE TOPFILE CMDTOP ENABLED CMDPREV CMDNEXT CMDEND PREVIEWMODE CMDEDIT	 CMDDELETE VIEWKEY	 PARENTKEY	 GRIDALIAS VIEWTYPE REFRESHn      T     %C THISFORMb Og
    T C   b
  c  (
 _3 %CC .C 
   
 .BaseClassf GRID[ T  C 
    C .  S! T  C
 sourcetype  T    %  O T 	 
  T      !     U
  AMEMS NTOTMEM I THIS GRIDREF THISFORM VIEWTYPE RECORDSOURCE	 GRIDALIAS VIEWKEY TAG	 PARENTKEY COMMENT        
   %C THIS.Parentb OK  B 0 %C THIS.oldTalkb C
    ON	  G2   %  c
  
 H , C THISFORM.DataEnvironmentb O T C 	 
 b% T  THISFORM.DataEnvironment/ C THISFORMSET.DataEnvironmentb O T C  
 b( T  THISFORMSET.DataEnvironment   (
 _! C
  .C 
  [^ %C  C CURSOR
  	 C
 sourcetype 	 C	 buffering 	W Ca  C	 buffering      %  { B  %   OFF G  GM(   G&(
 F   %   B  T
  C y  (
  k9 %CC 
   C .TMPCC 
  & 	g( C	 buffering  C 
     %   OFF G_  %   ON G   GH(   U  NTABLESUSED ATABLESUSED I
 NDECURSORS
 ADECURSORS CDATAENVREF THIS OLDTALK
 USEDATAENV THISFORM DATAENVIRONMENT THISFORMSET ALIAS	 BASECLASS PREVIEWMODE OLDSETDELETE OLDREPROCESS	 NWORKAREA OLDBUFFERING
 OLDMULTILOCKS OLDSETFIELDS
 OLDREFRESHV 4       
   T C z
 HF   C
  c  B 
  {  B$    C 	  CC x B$    C \	  CCEC
 x B Z CCEC
  Error: C  ZC
 CEC
  Method:  C
  Line: C Zx B( U  NERROR CMETHOD NLINE AFOXERR NTOTERRu       %C THIS.Parentb O6  B  %C TALKv ONk  G2 T   ON   T   OFF , %C WIZSTYLE.VCXC CLASSLIBv ! T < % \ \ T C
 C \
 \F %C
 R \ C
 >	 C
 C
 >\ :	X T C
 C
 >\  q
 T     T C3  :  \6( %C
 R \:
	 C
 
	 T
 
 
  
 H C WIZSTYLE.VCX0 T  WIZSTYLE.VCX! C
  WIZSTYLE.VCX0U T 
  WIZSTYLE.VCX- C
  WIZARDS\ WIZSTYLE.VCX0+ T 
  WIZARDS\ WIZSTYLE.VCX CCQ WIZSTYLE.VCX0 T CQ WIZSTYLE.VCX+ CCQ WIZARDS\ WIZSTYLE.VCX0=) T CQ WIZARDS\ WIZSTYLE.VCX 2g CI The class library (WIZSTYLE.VCX) needed by this form could not be found.  Please locate.x+ T C VCX Find:  WIZSTYLE.VCX $ %C WIZSTYLE.VCX
   G~(
   B-  
 C  
 C  
 C 	  T   
  %C
  
n  U  CGRIDREF CWIZHOMEPATH	 SEPARATOR CWIZSTYFILE THIS OLDTALK CWIZFILE INITVARS
 BUTTONREFRESH
 NAVREFRESH GRIDREF  %       	  T   - T    - T    - T    - T    - T    - T  	  - T  
 CW
 C   
 C   
 C  
   U  THIS PREVIEWMODE PREVIEWINIT CMDADD ENABLED CMDEDIT	 CMDDELETE CMDFIND CMDPRINT CMDEXIT	 NWORKAREA
 GETGRIDREF
 SETALLPROP
 NAVREFRESH
 buttonrefresh,      initvars8    
 updaterowsI
    
 setcaption    
 setallprop    
 navrefresh    
 getgridref     Destroy      ErrorH%     Init&     Refresh+    1 3 A  qqq 2 6      a  da  Q q A   A q!A A A Q& A A
 A A A A A A A 2  A CAAA A  A A a a   AQA A A Q 3 }     AB    B A A A $A  Q A A A A     Q A A A A A AA  Q A A Q A  Q  Q A A A A # !Q R  Q A  A A A A  !A A   !A B   3  A 3 q    A  A1 A  AssR A A AAB A 4  ! 2 A A    Q A   A A A Q A B "!!! qrAA ! qQqqqq RA    CAB  A  !3    1qqAA A A A A A A 3  A A a A   QA  A A A A A A ra A  a  A A DA A ra A ba A  3    ! A AA A2A AA A b 3 7A A a ! 1A  !bA   A qA   qA B  r A B    !C 2      A 2                                      d     y            !  !     
"  *  0  
  
+  3  t  P  3  j6    g  6  4>      P>  @  <    A  H  [    H  :J     )   2                                                                    0                              ٙ   %         ~  5              U  #          
   
   T 	 CW T 
 C DELETEDv G  T  C	 REPROCESSv GM( 6 T  CC THIS.PreviewModeb L -   66 T 
 CC THIS.PreviewInitb L a  
 6
 H
S, C THISFORM.DataEnvironmentb O T  a T C   b% T  THISFORM.DataEnvironment/ C THISFORMSET.DataEnvironmentb O= T  a T C   b( T  THISFORMSET.DataEnvironment' %C THISFORMb O   
	9 T  a  2S T  -  %  7 C
 3  (
 /5 %CC .C 
  
 .BaseClassf CURSOR+ C .C 
  '" %C
 SourceType #2 % 
  OFF C ?C SQL ꉸ 	B
 C  * %C SendUpdates 
 
 
	 C8 Edits to one or more of the Views may not be permanent. \ To remedy this, ensure the View's Send SQL Updates checkbox is checked in the View Designer.x T a       
 %CsH R,8 The table is Read-Only. You will not be able to edit it.  T   Cs
 T   Cs
 %   B  %   B  T  C FIELDSv G T  C
 MULTILOCKSv G_  T  C REFRESHv GH( %CC
  T  C	 buffering T
 C  y  (
 + %C
 sourcetypeC 
   % C	 bufferingC 
       #) U  ATABLESUSED NTABLESUSED I AMEMS NTOTMEM CWIZFILE LSHOWEDMESS CDATAENVREF THIS	 NWORKAREA OLDSETDELETE OLDREPROCESS PREVIEWMODE PREVIEWINIT
 USEDATAENV THISFORM DATAENVIRONMENT THISFORMSET VISIBLE ALIAS CMDADD ENABLED	 CMDDELETE OLDSETFIELDS
 OLDMULTILOCKS
 OLDREFRESH OLDBUFFERING1            	 
  
  
    T
   
 T
 a T
 CW T
 C y  (
  FC 
   T
	 CC Databaseꉡ
 T
   
 T
 -
 T
 -
 H C	 Buffering/ . C k T
 C-a %
 g . ; 
	 
( C 2Cꐸ  C 3Cꐸ 	 T
 C  +
  Q #
  T
 CS %
 
*, T
  Record in use by another user Z !  %
 
9 
 (C.5 %CC
 /b Gr .  %CC
 /_CC
 /1
 T
 a` %CI Data has been changed by another user. Overwrite changes with your edits?4x
 T
 a -
 T
 - Z !     T
 C
   %
  T
 Ca
  %
  .  Z  
	   T
 Ca- %
   .    T C  z
 H    C  I T
  Trigger failed. C  -( T
  Field doesn't accept NULL C  ." T
  Field rule violated C  
, T
  Record in use by another user C  /C  T
  Row rule violated C  \% T
  Unique index violation C  1y %
	 u` %CI Data has been changed by another user. Overwrite changes with your edits?4xq  T
 Caa %
 7  . m * C Could not force table updates.x    2 %C
 
! T
  Error: C    
 Ca
 T
 - %C
 
* C Failed to update table: 
 x   F
  B
  U
  AERRORS
 CERRORMESSAGE ATABLESUSED NTABLESUSED NTOTERR NFLD I NOLDAREA LSUCCESS LINDBC
 LOVERWRITE LHADMESSAGE
 NMODRECORD        
   %C THIS.Parentb OK  B 0 %C THIS.oldTalkb C
    ON	  G2   %  c
  
 H , C THISFORM.DataEnvironmentb O T C 	 
 b% T  THISFORM.DataEnvironment/ C THISFORMSET.DataEnvironmentb O T C  
 b( T  THISFORMSET.DataEnvironment   (
 _! C
  .C 
  [^ %C  C CURSOR
  	 C
 sourcetype 	 C	 buffering 	W Ca  C	 buffering      %  { B  %   OFF G  GM(   G&(
 F   %   B  T
  C y  (
  k9 %CC 
   C .TMPCC 
  & 	g( C	 buffering  C 
     %   OFF G_  %   ON G   GH(   U  NTABLESUSED ATABLESUSED I
 NDECURSORS
 ADECURSORS CDATAENVREF THIS OLDTALK
 USEDATAENV THISFORM DATAENVIRONMENT THISFORMSET ALIAS	 BASECLASS PREVIEWMODE OLDSETDELETE OLDREPROCESS	 NWORKAREA OLDBUFFERING
 OLDMULTILOCKS OLDSETFIELDS
 OLDREFRESH 4       
   T C z
 HF   C
  c  B 
  {  B$    C 	  CC x B Z CCEC
  Error: C  ZC
 CEC
  Method:  C
  Line: C Zx B( U  NERROR CMETHOD NLINE AFOXERR NTOTERR1      %C THIS.Parentb O2  B  %C TALKv ONg  G2 T   ON   T   OFF , %C WIZSTYLE.VCXC CLASSLIBv  T  < % \  X T  C
  C \
  \F %C
  R \ C
  >	 C
  C
  >\ :	T T  C
  C
  >\  m
 T      T C3  :  \6( %C
  R \:
	 C
  
	 T
  
  
  
 H C WIZSTYLE.VCX0 T  WIZSTYLE.VCX! C
   WIZSTYLE.VCX0Q T 
   WIZSTYLE.VCX- C
   WIZARDS\ WIZSTYLE.VCX0+ T 
   WIZARDS\ WIZSTYLE.VCX CCQ WIZSTYLE.VCX0 T CQ WIZSTYLE.VCX+ CCQ WIZARDS\ WIZSTYLE.VCX09) T CQ WIZARDS\ WIZSTYLE.VCX 2g CI The class library (WIZSTYLE.VCX) needed by this form could not be found.  Please locate.x+ T C VCX Find:  WIZSTYLE.VCX $ %C WIZSTYLE.VCX
  
 G~(
   B-  
 C   U  CWIZHOMEPATH	 SEPARATOR CWIZSTYFILE THIS OLDTALK CWIZFILE INITVARS  %       	  T   - T    - T    - T    - T    - T    - T  	 CW  U
  THIS PREVIEWMODE PREVIEWINIT CMDADD ENABLED	 CMDDELETE CMDFIND CMDPRINT CMDEXIT	 NWORKAREA initvars,     
 updaterowsk     Destroy%     Error     Init7     Refresh    1 5   a  da  Q q A   A Q!% A A
 A A A A A A A  A CAA A A A a a   AQA A A Q 3 }     AB    B A A A $A  Q A A A A     Q A A A A A AA  Q A A Q A  Q  Q A A A A # !Q R  Q A  A A A A  !A A   !A B   3  A A a A   QA  A A A A A A ra A  a  A A DA A ra A ba A  3    ! A AA A2A A b 3  A A a ! 1A  !bA   A qA   qA B  r A B  3   A 2                            I       c        M$        i$  &  D     &  -  _  +  -  .     )                                  JEPROCEDURE buttonrefresh
* This is a generic routine which refreshes the buttons
* for appropriate table environments.
IF SELECT()# THIS.nWorkArea
	SELECT (THIS.nWorkArea)
ENDIF

THIS.SetAllProp()
THIS.cmdFind.Enabled = !THIS.EditMode
THIS.cmdPrint.Enabled =  !THIS.EditMode
THIS.cmdExit.Enabled =  !THIS.EditMode
THIS.cmdDelete.Enabled =  !THIS.EditMode AND !ISREADONLY()
THIS.SetCaption()
ENDPROC
PROCEDURE initvars
						
#DEFINE C_NOUPDATEVIEW_LOC	"Edits to one or more of the Views may not be permanent. "+;
							"To remedy this, ensure the View's Send SQL Updates checkbox is checked in the View Designer."
#DEFINE C_READONLY_LOC		"The table is Read-Only. You will not be able to edit it."

LOCAL aTablesUsed,nTablesUsed,i,aMems,nTotMem,cWizFile,lShowedMess,cDataEnvRef
DIMENSION aTablesUsed[1]
DIMENSION aMems[1]

* This routine sets the member variables
THIS.ViewKey = ""
THIS.ParentKey = ""
THIS.ViewType = 3
THIS.GridAlias = ""
THIS.TopFile = .F.
THIS.EndFile = .F.
THIS.AddMode = .F.

THIS.nWorkArea = SELECT()
THIS.oldSetDelete = SET("DELETED")
SET DELETED ON
THIS.oldReprocess = SET("REPROCESS")
SET REPROCESS TO 0

* These properties should not be used. They are reserved for use by
* the Preview button of the Form Wizards.
THIS.PreviewMode = IIF(TYPE("THIS.PreviewMode")#"L",.F.,THIS.PreviewMode)
THIS.PreviewInit = IIF(TYPE("THIS.PreviewInit")#"L",.T.,THIS.PreviewInit)

* Check for data environment
DO CASE
CASE TYPE("THISFORM.DataEnvironment") = "O"
	THIS.UseDataEnv = .T.
	nTotMem = AMEMBERS(aMems,THISFORM.DataEnvironment,2)
	cDataEnvRef = "THISFORM.DataEnvironment"
CASE TYPE("THISFORMSET.DataEnvironment") = "O"
	THIS.UseDataEnv = .T.
	nTotMem = AMEMBERS(aMems,THISFORMSET.DataEnvironment,2)
	cDataEnvRef = "THISFORMSET.DataEnvironment"
	IF TYPE("THISFORM")="O" AND !THISFORM.VISIBLE 
		THISFORM.VISIBLE = .T.
	ENDIF
OTHERWISE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.UseDataEnv
	WITH EVAL(m.cDataEnvRef)
		* Check for relation
		FOR i = 1 TO m.nTotMem
			IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "RELATION"
				THIS.oDataRelation = m.cDataEnvRef+"."+aMems[m.i]
				EXIT
			ENDIF
		ENDFOR
		
		* Check for Views
		FOR i = 1 TO m.nTotMem
			IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "CURSOR"
				WITH EVAL("."+aMems[m.i])
					IF CURSORGETPROP("SourceType",.Alias)#3 AND ;
						!CURSORGETPROP("offline",.Alias)
						* Check if we need to requery for deleted records.
						* -- Note: Parameterized views are not requeried so all
						* records will be brought over. To remedy this situation
						* you can place a SET DELETED ON command in the
						* BeforeOpenTables event of the DataEnvironment.
						IF THIS.oldSetDelete = "OFF" AND ATC("?",CURSORGETPROP("SQL",.Alias))=0
							=REQUERY(.Alias)
						ENDIF
						* Check if updates are made
						IF !CURSORGETPROP("SendUpdates",.Alias) AND !m.lShowedMess
							=MESSAGEBOX(C_NOUPDATEVIEW_LOC)
							lShowedMess = .T.
						ENDIF
					ENDIF
				ENDWITH
			ENDIF
		ENDFOR
	ENDWITH
ENDIF

THIS.EditMode = IIF(TYPE("THIS.EditMode")#"L",.F.,THIS.EditMode)

IF ISREADONLY()
	WAIT WINDOW C_READONLY_LOC TIMEOUT 2
	THIS.EditMode = .F.
ENDIF

* Disable appropriate buttons
THIS.cmdAdd.Enabled = !ISREADONLY()
THIS.cmdEdit.Enabled = !ISREADONLY()
THIS.cmdDelete.Enabled = !ISREADONLY()

IF THIS.PreviewMode
	RETURN
ENDIF

THIS.GetGridRef()

IF THIS.UseDataEnv
	RETURN
ENDIF

* The following code is here to support forms not using a DataEnvironment.
THIS.oldSetFields = SET("FIELDS")
SET FIELDS OFF
THIS.oldMultiLocks = SET("MULTILOCKS")
SET MULTILOCKS ON
THIS.oldRefresh = SET("REFRESH")
SET REFRESH TO 5
IF !EMPTY(ALIAS())
	THIS.oldBuffering=CursorGetProp("buffering")
	m.nTablesUsed = AUSED(aTablesUsed)
	FOR i = 1 TO m.nTablesUsed
		IF CursorGetProp('sourcetype',aTablesUsed[m.i,1])#3	&&skip for views
			=CursorSetProp("buffering",5,aTablesUsed[m.i,1])	&&optimistic table buffering
		ENDIF
	ENDFOR
ENDIF
GO TOP

ENDPROC
PROCEDURE updaterows
#DEFINE	E_FAIL_LOC			"Failed to update table: "
#DEFINE	E_TRIGGERFAIL_LOC	"Trigger failed."
#DEFINE	E_FIELDNULL_LOC		"Field doesn't accept NULL"
#DEFINE	E_FIELDRULE_LOC		"Field rule violated"
#DEFINE	E_RECORDLOCK_LOC	"Record in use by another user"
#DEFINE	E_ROWRULE_LOC		"Row rule violated"
#DEFINE	E_UNIQUEINDEX_LOC	"Unique index violation"
#DEFINE	E_DIRTYREC_LOC		"Data has been changed by another user. Overwrite changes with your edits?"
#DEFINE	E_NOFORCE_LOC		"Could not force table updates."
#DEFINE E_PROMPT_LOC	 	"Error: "
#DEFINE MSGBOX_YES			6

LOCAL aErrors,cErrorMessage,aTablesUsed,nTablesUsed,nTotErr 
LOCAL nFld,i,nOldArea,lSuccess,lInDBC,lOverwrite,lHadMessage

DIMENSION aTablesUsed[1]
DIMENSION aErrors[1]
m.cErrorMessage=""
m.lSuccess = .T.
m.nOldArea = SELECT()
m.nTablesUsed = AUSED(aTablesUsed)

* Can wrap everything in transaction if using strictly DBCs

FOR i = 1 TO m.nTablesUsed

	SELECT (aTablesUsed[m.i,1])

	m.lInDBC = !EMPTY(CURSORGETPROP("Database"))
	m.cErrorMessage = ""
	m.lOverwrite = .F.
	m.lHadMessage = .F.

	DO CASE
	CASE CURSORGETPROP("Buffering") = 1
		* Skip if buffering not on
		LOOP
	CASE GetFldState(0) = 2			&&deleted record
		* Only delete current record and force it
		m.lSuccess = TableUpdate(.F.,.T.)
		IF m.lSuccess				&&successful update
			LOOP
		ENDIF
	CASE !m.lInDBC AND (ATC("2",GetFldState(-1))#0 OR;
		 ATC("3",GetFldState(-1))#0)	
		* Field was edited - in Free Table
		* Since free tables are not supported by transactions,
		* we must process record by record
		m.nModRecord = GetNextMod(0)
		DO WHILE m.nModRecord # 0	&&loop locks all records
			GO m.nModRecord
			m.lSuccess = RLOCK()	&&try to lock record
			IF !m.lSuccess			&&failed to lock record
				m.cErrorMessage = E_RECORDLOCK_LOC
				UNLOCK ALL
				EXIT
			ENDIF
			IF !m.lHadMessage	&&so we don't repeat alert
				* See if record(s) modified by another user
				FOR m.nFld = 1 TO FCOUNT()
					IF TYPE(FIELD(m.nFld)) = "G"	&&skip for General fields
						LOOP					
					ENDIF
					IF OLDVAL(FIELD(m.nFld)) # CURVAL(FIELD(m.nFld))
						m.lHadMessage = .T.
						IF MESSAGEBOX(E_DIRTYREC_LOC,4+48) = MSGBOX_YES
							m.lOverwrite = .T.
						ELSE
							m.lSuccess = .F.
							UNLOCK ALL
							EXIT
						ENDIF
					ENDIF
				ENDFOR
			ENDIF
			m.nModRecord = GetNextMod(m.nModRecord)
		ENDDO
		IF m.lSuccess 	&&was able to lock all records
			m.lSuccess = TableUpdate(.T.,m.lOverwrite)
			IF m.lSuccess &&was able to update all records
				LOOP
			ENDIF	
			UNLOCK ALL
		ENDIF
	CASE m.lInDBC
		BEGIN TRANSACTION
		* Try to update all records in selected table
		m.lSuccess = TableUpdate(.T.,.F.)	&&successful update
		IF m.lSuccess
			END TRANSACTION
			LOOP
		ENDIF
		ROLLBACK
	ENDCASE

	* Handle errors
	nTotErr =AERROR(aErrors)
	DO CASE
	CASE nTotErr = 0
		
	CASE aErrors[1,1] = 1539				&& Trigger failed
		m.cErrorMessage = E_TRIGGERFAIL_LOC
	CASE aErrors[1,1] = 1581				&& Field doesn't accept NULL
		m.cErrorMessage = E_FIELDNULL_LOC
	CASE aErrors[1,1] = 1582				&& Field rule violated
		m.cErrorMessage = E_FIELDRULE_LOC
	CASE aErrors[1,1] = 1700				&& Record in use by another user
		m.cErrorMessage = E_RECORDLOCK_LOC
	CASE aErrors[1,1] = 1583				&& Row rule violated
		m.cErrorMessage = E_ROWRULE_LOC
	CASE aErrors[1,1] = 1884				&& Unique index violation
		m.cErrorMessage = E_UNIQUEINDEX_LOC
	CASE aErrors[1,1] = 1585				&& Record changed by another user

		IF m.lInDBC		&&handle free tables above
			* Display conflict alert
			IF MESSAGEBOX(E_DIRTYREC_LOC,4+48) = MSGBOX_YES
				*Try to force update
				BEGIN TRANSACTION				
				m.lSuccess = TABLEUPDATE(.T.,.T.)
				IF m.lSuccess
					END TRANSACTION
					LOOP
				ELSE
					ROLLBACK
					=MESSAGEBOX(E_NOFORCE_LOC)
				ENDIF			
			ENDIF
		ENDIF

	OTHERWISE
		IF !EMPTY(m.cErrorMessage)	&&for free table handling above
			m.cErrorMessage = E_PROMPT_LOC+aErrors[1,2]
		ENDIF
	ENDCASE

	* Had an error we couldn't handle
	=TABLEREVERT(.T.)  &&revert all records
	m.lSuccess = .F.
	IF !EMPTY(m.cErrorMessage)
		=MESSAGEBOX(E_FAIL_LOC+m.cErrorMessage)
	ENDIF

ENDFOR

SELECT (m.nOldArea)
RETURN m.lSuccess

ENDPROC
PROCEDURE setcaption
#DEFINE ADD_CAPTION_LOC		"\<Add"
#DEFINE EDIT_CAPTION_LOC	"\<Edit"
#DEFINE REV_CAPTION_LOC		"\<Revert"
#DEFINE SAVE_CAPTION_LOC	"\<Save"

IF THIS.EditMode
	THIS.cmdAdd.Caption = SAVE_CAPTION_LOC
	THIS.cmdEdit.Caption = REV_CAPTION_LOC
ELSE
	THIS.cmdAdd.Caption = ADD_CAPTION_LOC
	THIS.cmdEdit.Caption = EDIT_CAPTION_LOC
ENDIF

ENDPROC
PROCEDURE setallprop
LPARAMETER oContainer

* Checks for General fields
LOCAL i,oControlParent,nCtrlCount

IF PARAMETERS() = 0
	m.oControlParent = THISFORM
ELSE
	m.oControlParent = m.oContainer
ENDIF

DO CASE 
CASE ATC("Pageframe",m.oControlParent.BaseClass)#0
	nCtrlCount = oControlParent.PageCount
CASE ATC(m.oControlParent.BaseClass,"Optiongroup,Commandgroup")#0
	nCtrlCount = oControlParent.ButtonCount
OTHERWISE
	nCtrlCount = oControlParent.ControlCount
ENDCASE

FOR i = 1 TO m.nCtrlCount 
	DO CASE
	CASE ATC("Pageframe",m.oControlParent.BaseClass)#0
		THIS.SetAllProp(m.oControlParent.Pages[m.i])
		
	CASE ATC(m.oControlParent.BaseClass,"Optiongroup,Commandgroup")#0 AND ;
		THIS.UserControlMode
		m.oControlParent.Buttons[m.i].Enabled = THIS.EditMode

	CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"Optiongroup,Commandgroup")#0 ;
		AND THIS.UserControlMode
		THIS.SetAllProp(m.oControlParent.Controls[m.i])

	CASE ATC("Container",m.oControlParent.Controls[m.i].BaseClass) # 0 OR; 
		ATC("Page",m.oControlParent.Controls[m.i].BaseClass) # 0
		THIS.SetAllProp(m.oControlParent.Controls[m.i])

	CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"ListBox,ComboBox,Spinner") # 0 AND;
		THIS.UserControlMode
		m.oControlParent.Controls[m.i].Enabled = THIS.EditMode

	CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"CheckBox,TextBox,OleBoundControl") # 0
		m.oControlParent.Controls[m.i].Enabled = THIS.EditMode

	CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"EditBox") # 0
		m.oControlParent.Controls[m.i].ReadOnly = !THIS.EditMode
		IF !THIS.HasMemo
			WITH m.oControlParent.Controls[m.i]
				THIS.EditForeColor = .ForeColor
				THIS.EditDisForeColor =  .DisabledForeColor
				THIS.EditBackColor = .BackColor
				THIS.EditDisBackColor =  .DisabledBackColor
				THIS.HasMemo = .T.
			ENDWITH
		ENDIF
		m.oControlParent.Controls[m.i].ForeColor = IIF(THIS.EditMode,THIS.EditForeColor,THIS.EditDisForeColor)
		m.oControlParent.Controls[m.i].BackColor = IIF(THIS.EditMode,THIS.EditBackColor,THIS.EditDisBackColor)

	CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"Grid") # 0
		m.oControlParent.Controls[m.i].ReadOnly = !THIS.EditMode
		m.oControlParent.Controls[m.i].DeleteMark = THIS.EditMode
		
	ENDCASE
ENDFOR


ENDPROC
PROCEDURE navrefresh
**** Navigational Button Handling ****
LOCAL OldLockScreen,KeyValue,cFiltExpr
m.OldLockScreen = THISFORM.LockScreen
THISFORM.LockScreen = .T.

IF SELECT()#THIS.nWorkArea
	SELECT (THIS.nWorkArea)
ENDIF

IF !THIS.EditMode

	* Check for bottom of file
	THIS.EndFile = EOF() OR THIS.EndFile

	* Test to see we are on last record
	IF !THIS.EndFile
		SKIP
		THIS.EndFile = EOF()
		SKIP -1
	ELSE
		GO BOTTOM
	ENDIF

	* Check for top of file
	THIS.TopFile = BOF() OR EOF() OR THIS.TopFile

	* Test to see if we are on first record
	IF !THIS.TopFile
		SKIP -1
		THIS.TopFile = BOF()
		IF !THIS.TopFile
			SKIP
		ENDIF	
	ENDIF

	IF THIS.TopFile
		GO TOP
	ENDIF

ENDIF

THIS.cmdTop.Enabled = !THIS.TopFile AND !THIS.EditMode
THIS.cmdPrev.Enabled = !THIS.TopFile AND !THIS.EditMode
THIS.cmdNext.Enabled = !THIS.EndFile AND !THIS.EditMode
THIS.cmdEnd.Enabled = !THIS.EndFile AND !THIS.EditMode

* Check if no records in query set
DO CASE
CASE THIS.PreviewMode OR ISREADONLY()
	* Nothing
CASE THIS.EditMode AND CURSORGETPROP("BUFFERING")=1
	THIS.cmdEdit.Enabled = .F.
CASE THIS.EditMode
	THIS.cmdEdit.Enabled = .T.
CASE RECCOUNT()=0 OR BOF() OR EOF()
	THIS.cmdEdit.Enabled = .F.
	THIS.cmdDelete.Enabled = .F.
CASE !THIS.cmdEdit.Enabled
	THIS.cmdEdit.Enabled = .T.
	THIS.cmdDelete.Enabled = .T.
ENDCASE


* Update Grid for Views
IF !THIS.EditMode AND !EMPTY(THIS.ViewKey)
	KeyValue = EVAL(THIS.ParentKey)
	DO CASE
	CASE TYPE(THIS.ParentKey) = "C"
		cFiltExpr = THIS.ViewKey + "=" + "["+m.KeyValue+"]"
	CASE TYPE(THIS.ParentKey) = "L"
		cFiltExpr = THIS.ViewKey
	CASE TYPE(THIS.ParentKey) = "D"
		cFiltExpr = THIS.ViewKey + "=" + "{"+DTOC(m.KeyValue)+"}"	
	CASE TYPE(THIS.ParentKey) = "T"
		cFiltExpr = THIS.ViewKey + "=" + "{"+TTOC(m.KeyValue)+"}"	
	OTHERWISE	
		* Numeric
		cFiltExpr = THIS.ViewKey + "=" + ALLTRIM(STR(m.KeyValue,20,18))
	ENDCASE
		
	SELECT (THIS.GridAlias)
	DO CASE
	CASE .F. &&parameterized query
		* set parameter here
		* =requery()
	CASE THIS.ViewType = 1	&&local views
		SET FILTER TO &cFiltExpr
	CASE THIS.ViewType = 2	&&remote views
	
	ENDCASE
	SELECT (THIS.nWorkArea)
ENDIF

THISFORM.Refresh()
THISFORM.LockScreen = m.OldLockScreen

ENDPROC
PROCEDURE getgridref
* Check if we have a grid
LOCAL aMems,nTotMem,i
THIS.GridRef = ""
IF TYPE("THISFORM") = "O"
	DIMENSION aMems[1]
	nTotMem = AMEMBERS(aMems,THISFORM,2)
	WITH THISFORM
		FOR i = 1 TO m.nTotMem 
			IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "GRID"
				THIS.GridRef = aMems[m.i]
				WITH EVAL("."+THIS.GridRef)
					* Check if we have a view and get Tag property
					THIS.ViewType = CURSORGETPROP('sourcetype',.RecordSource)
					THIS.GridAlias = .RecordSource
					IF THIS.ViewType # 3
						THIS.ViewKey = .Tag
						THIS.ParentKey = .Comment
					ENDIF
				ENDWITH				
				EXIT
			ENDIF
		ENDFOR
	ENDWITH
ENDIF

ENDPROC
PROCEDURE Destroy
* Restore various settings
LOCAL nTablesUsed,aTablesUsed,i,nDECursors,aDECursors,cDataEnvRef 
DIMENSION aTablesUsed[1]

IF TYPE('THIS.Parent') # "O"
	RETURN
ENDIF

IF TYPE("THIS.oldTalk") = "C" AND THIS.oldTalk="ON"
	SET TALK ON
ENDIF

* OLE Servers can still send data back to General fields 
* even though they are not in Edit Mode. We need to reset 
* buffering to 1 so the buffer is not updated by the OLE Server.
* Also, folks might exit out while editing.
IF THIS.UseDataEnv
	DIMENSION aDECursors[1]
	DO CASE
	CASE TYPE("THISFORM.DataEnvironment") = "O"
		nDECursors = AMEMBERS(aDECursors,THISFORM.DataEnvironment,2)
		cDataEnvRef = "THISFORM.DataEnvironment"
	CASE TYPE("THISFORMSET.DataEnvironment") = "O"
		nDECursors = AMEMBERS(aDECursors,THISFORMSET.DataEnvironment,2)
		cDataEnvRef = "THISFORMSET.DataEnvironment"
	ENDCASE
	FOR i = 1 TO m.nDECursors
		WITH EVAL(m.cDataEnvRef + "." + aDECursors[m.i])
			IF USED(.ALIAS) AND ATC("CURSOR",.BaseClass)#0 AND ;
			  CursorGetProp("sourcetype",.ALIAS)=3 AND ;
			  CursorGetProp("buffering",.ALIAS)>1
				=TableRevert(.T.,.ALIAS)
				=CursorSetProp("buffering",1,.ALIAS)	&&optimistic table buffering
			ENDIF
		ENDWITH
	ENDFOR
ENDIF

* Skip if using preview mode
IF THIS.PreviewMode
	RETURN
ENDIF

IF THIS.oldSetDelete = "OFF"
	SET DELETED OFF
ENDIF
SET REPROCESS TO THIS.oldReprocess
SET MESSAGE TO
SELECT (THIS.nWorkArea)

IF THIS.UseDataEnv
	RETURN
ENDIF

* The following code is here to support
* forms not using a DataEnvironment.
m.nTablesUsed = AUSED(aTablesUsed)
FOR i = 1 TO m.nTablesUsed
	IF USED(aTablesUsed[m.i,1]) AND ATC(".TMP",DBF(aTablesUsed[m.i,1]))=0	&&skip for views
		=CursorSetProp("buffering",THIS.oldBuffering,aTablesUsed[m.i,1])	&&optimistic table buffering
	ENDIF
ENDFOR

IF THIS.oldMultiLocks = "OFF"
	SET MULTILOCKS OFF
ENDIF

IF THIS.oldSetFields = "ON"
	SET FIELDS ON
ENDIF

SET REFRESH TO THIS.oldRefresh

ENDPROC
PROCEDURE Error
Parameters nError, cMethod, nLine
LOCAL aFoxErr,nTotErr
DIMENSION aFoxErr[1]
nTotErr = AERROR(aFoxErr)

DO CASE
CASE INLIST(m.nError,1733,1734)  &&property not found -- traps SETALL()
	RETURN
CASE m.nError=1938  &&no parent
	RETURN
CASE nToterr>0 AND aFoxErr[1,1] = 1420
	* Corrupt Ole object in General field.
	=MESSAGEBOX(aFoxErr[1,2])
	RETURN
CASE nToterr>0 AND aFoxErr[1,1] = 1884
	* Uniqueness ID error
	=MESSAGEBOX(MESSAGE()+CHR(13))
	RETURN
ENDCASE

**** Error Dialog ******
=MESSAGEBOX(MESSAGE(1)+CHR(13)+;
"Error: "+STR(nError)+CHR(13)+;
MESSAGE()+CHR(13)+;
"Method: "+cMethod+CHR(13)+;
"Line: "+STR(nLine))

RETURN TO MASTER

ENDPROC
PROCEDURE Init
#DEFINE C_WIZSTYLE			"WIZSTYLE.VCX"
#DEFINE C_WIZDIR 			"WIZARDS\"
#DEFINE C_PROMPT1_LOC		"Find: "
#DEFINE E_NOSTYLE_LOC		"The class library (WIZSTYLE.VCX) needed by this form could not be found. "+;
							"Please locate."

LOCAL cGridRef,cWizHomePath,separator,cWizStyFile


IF TYPE('THIS.Parent') # "O"
	RETURN
ENDIF

IF SET("TALK") = "ON"
	SET TALK OFF
	THIS.oldTalk = "ON"
ELSE
	THIS.oldTalk = "OFF"
ENDIF


IF ATC(C_WIZSTYLE,SET("CLASSLIB")) = 0
	
	* Returns just the pathname
	cWizHomePath = _WIZARD
	IF '\' $ cWizHomePath
	   cWizHomePath = SUBSTR(m.cWizHomePath,1,RAT('\',m.cWizHomePath))
	   IF RIGHT(m.cWizHomePath,1) = '\' AND LEN(m.cWizHomePath) > 1 ;
	            AND SUBSTR(m.cWizHomePath,LEN(m.cWizHomePath)-1,1) <> ':'
	         cWizHomePath = SUBSTR(m.cWizHomePath,1,LEN(m.cWizHomePath)-1)
	   ENDIF
	ELSE
	   cWizHomePath = ''
	ENDIF

	* Add a backslash unless there is one already there.
	separator = IIF(_MAC,":","\")
	IF !(RIGHT(m.cWizHomePath,1) $ '\:') AND !EMPTY(m.cWizHomePath)
	   m.cWizHomePath= m.cWizHomePath+ m.separator
	ENDIF

	DO CASE
	CASE FILE(C_WIZSTYLE)
		cWizFile = C_WIZSTYLE
	CASE FILE(m.cWizHomePath+C_WIZSTYLE)
		cWizFile = m.cWizHomePath+C_WIZSTYLE
	CASE FILE(m.cWizHomePath+C_WIZDIR+C_WIZSTYLE)
		cWizFile = m.cWizHomePath+C_WIZDIR+C_WIZSTYLE	
	CASE FILE(HOME()+C_WIZSTYLE)
		cWizFile = HOME()+C_WIZSTYLE
	CASE FILE(HOME()+C_WIZDIR+C_WIZSTYLE)
		cWizFile = HOME()+C_WIZDIR+C_WIZSTYLE
	OTHERWISE
		=MESSAGEBOX(E_NOSTYLE_LOC)
		cWizFile = GETFILE("VCX",C_PROMPT1_LOC+C_WIZSTYLE)
	ENDCASE
	
	IF ATC(C_WIZSTYLE,m.cWizFile)#0
		SET CLASS TO (m.cWizFile) ADDITIVE
	ELSE
		* Failed to get WIZSTYLE.VCX file
		RETURN .F.
	ENDIF
	
ENDIF

THIS.InitVars()
THIS.ButtonRefresh()
THIS.NavRefresh()
cGridRef=THIS.GridRef
IF !EMPTY(m.cGridRef)
	* Change this if you desire to have the grid initially selected.
	* THISFORM.&cGridRef..SetFocus()
ENDIF
ENDPROC
PROCEDURE Refresh
**** Special Preview Mode Handling ****
IF THIS.PreviewMode AND THIS.PreviewInit
	THIS.PreviewInit = .F.
	THIS.cmdAdd.Enabled = .F.
	THIS.cmdEdit.Enabled = .F.
	THIS.cmdDelete.Enabled = .F.
	THIS.cmdFind.Enabled = .F.
	THIS.cmdPrint.Enabled = .F.
	THIS.cmdExit.Enabled = .F.
	THIS.nWorkArea = SELECT()
	THIS.GetGridRef()
	THIS.SetAllProp()
	THIS.NavRefresh()
ENDIF

ENDPROC
                                                        .PROCEDURE initvars
#DEFINE C_NOUPDATEVIEW_LOC	"Edits to one or more of the Views may not be permanent. "+;
	"To remedy this, ensure the View's Send SQL Updates checkbox is checked in the View Designer."
#DEFINE C_READONLY_LOC		"The table is Read-Only. You will not be able to edit it."

LOCAL aTablesUsed,nTablesUsed,i,aMems,nTotMem,cWizFile,lShowedMess,cDataEnvRef
DIMENSION aTablesUsed[1]
DIMENSION aMems[1]

THIS.nWorkArea = SELECT()
THIS.oldSetDelete = SET("DELETED")
SET DELETED ON
THIS.oldReprocess = SET("REPROCESS")
SET REPROCESS TO 0

* These properties should not be used. They are reserved for use by
* the Preview button of the Form Wizards.
THIS.PreviewMode = IIF(TYPE("THIS.PreviewMode")#"L",.F.,THIS.PreviewMode)
THIS.PreviewInit = IIF(TYPE("THIS.PreviewInit")#"L",.T.,THIS.PreviewInit)

* Check for data environment
DO CASE
CASE TYPE("THISFORM.DataEnvironment") = "O"
	THIS.UseDataEnv = .T.
	nTotMem = AMEMBERS(aMems,THISFORM.DataEnvironment,2)
	cDataEnvRef = "THISFORM.DataEnvironment"
CASE TYPE("THISFORMSET.DataEnvironment") = "O"
	THIS.UseDataEnv = .T.
	nTotMem = AMEMBERS(aMems,THISFORMSET.DataEnvironment,2)
	cDataEnvRef = "THISFORMSET.DataEnvironment"
	IF TYPE("THISFORM")="O" AND !THISFORM.VISIBLE 
		THISFORM.VISIBLE = .T.
	ENDIF
OTHERWISE
	THIS.UseDataEnv = .F.
ENDCASE

IF THIS.UseDataEnv
	WITH EVAL(m.cDataEnvRef)
		* Check for Views
		FOR i = 1 TO m.nTotMem
			IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "CURSOR"
				WITH EVAL("."+aMems[m.i])
					IF CURSORGETPROP("SourceType",.Alias)#3
						* Check if we need to requery for deleted records.
						* -- Note: Parameterized views are not requeried so all records will be brought over.
						* To remedy this situation you can place a SET DELETED ON command in the
						* BeforeOpenTables event of the DataEnvironment.
						IF THIS.oldSetDelete = "OFF" AND ATC("?",CURSORGETPROP("SQL",.Alias))=0
							=REQUERY(.Alias)
						ENDIF
						* Check if updates are made
						IF !CURSORGETPROP("SendUpdates",.Alias) AND !m.lShowedMess
							=MESSAGEBOX(C_NOUPDATEVIEW_LOC)
							lShowedMess = .T.
						ENDIF
					ENDIF
				ENDWITH
			ENDIF
		ENDFOR
	ENDWITH
ENDIF

IF ISREADONLY()
	WAIT WINDOW C_READONLY_LOC TIMEOUT 2
ENDIF

* Disable appropriate buttons
THIS.cmdAdd.Enabled = !ISREADONLY()
THIS.cmdDelete.Enabled = !ISREADONLY()

IF THIS.PreviewMode
	RETURN
ENDIF

IF THIS.UseDataEnv
	RETURN
ENDIF

* The following code is here to support forms not using a DataEnvironment.
THIS.oldSetFields = SET("FIELDS")
SET FIELDS OFF
THIS.oldMultiLocks = SET("MULTILOCKS")
SET MULTILOCKS ON
THIS.oldRefresh = SET("REFRESH")
SET REFRESH TO 5
IF !EMPTY(ALIAS())
	THIS.oldBuffering=CursorGetProp("buffering")
	m.nTablesUsed = AUSED(aTablesUsed)
	FOR i = 1 TO m.nTablesUsed
		IF CursorGetProp('sourcetype',aTablesUsed[m.i,1])#3	&&skip for views
			=CursorSetProp("buffering",5,aTablesUsed[m.i,1])	&&optimistic table buffering
		ENDIF
	ENDFOR
ENDIF
GO TOP

ENDPROC
PROCEDURE updaterows
#DEFINE	E_FAIL_LOC			"Failed to update table: "
#DEFINE	E_TRIGGERFAIL_LOC	"Trigger failed."
#DEFINE	E_FIELDNULL_LOC		"Field doesn't accept NULL"
#DEFINE	E_FIELDRULE_LOC		"Field rule violated"
#DEFINE	E_RECORDLOCK_LOC	"Record in use by another user"
#DEFINE	E_ROWRULE_LOC		"Row rule violated"
#DEFINE	E_UNIQUEINDEX_LOC	"Unique index violation"
#DEFINE	E_DIRTYREC_LOC		"Data has been changed by another user. Overwrite changes with your edits?"
#DEFINE	E_NOFORCE_LOC		"Could not force table updates."
#DEFINE E_PROMPT_LOC	 	"Error: "
#DEFINE MSGBOX_YES			6

LOCAL aErrors,cErrorMessage,aTablesUsed,nTablesUsed,nTotErr 
LOCAL nFld,i,nOldArea,lSuccess,lInDBC,lOverwrite,lHadMessage

DIMENSION aTablesUsed[1]
DIMENSION aErrors[1]
m.cErrorMessage=""
m.lSuccess = .T.
m.nOldArea = SELECT()
m.nTablesUsed = AUSED(aTablesUsed)

* Can wrap everything in transaction if using strictly DBCs

FOR i = 1 TO m.nTablesUsed

	SELECT (aTablesUsed[m.i,1])

	m.lInDBC = !EMPTY(CURSORGETPROP("Database"))
	m.cErrorMessage = ""
	m.lOverwrite = .F.
	m.lHadMessage = .F.

	DO CASE
	CASE CURSORGETPROP("Buffering") = 1
		* Skip if buffering not on
		LOOP
	CASE GetFldState(0) = 2			&&deleted record
		* Only delete current record and force it
		m.lSuccess = TableUpdate(.F.,.T.)
		IF m.lSuccess				&&successful update
			LOOP
		ENDIF
	CASE !m.lInDBC AND (ATC("2",GetFldState(-1))#0 OR;
		 ATC("3",GetFldState(-1))#0)	
		* Field was edited - in Free Table
		* Since free tables are not supported by transactions,
		* we must process record by record
		m.nModRecord = GetNextMod(0)
		DO WHILE m.nModRecord # 0	&&loop locks all records
			GO m.nModRecord
			m.lSuccess = RLOCK()	&&try to lock record
			IF !m.lSuccess			&&failed to lock record
				m.cErrorMessage = E_RECORDLOCK_LOC
				UNLOCK ALL
				EXIT
			ENDIF
			IF !m.lHadMessage	&&so we don't repeat alert
				* See if record(s) modified by another user
				FOR m.nFld = 1 TO FCOUNT()
					IF TYPE(FIELD(m.nFld)) = "G"	&&skip for General fields
						LOOP					
					ENDIF
					IF OLDVAL(FIELD(m.nFld)) # CURVAL(FIELD(m.nFld))
						m.lHadMessage = .T.
						IF MESSAGEBOX(E_DIRTYREC_LOC,4+48) = MSGBOX_YES
							m.lOverwrite = .T.
						ELSE
							m.lSuccess = .F.
							UNLOCK ALL
							EXIT
						ENDIF
					ENDIF
				ENDFOR
			ENDIF
			m.nModRecord = GetNextMod(m.nModRecord)
		ENDDO
		IF m.lSuccess 	&&was able to lock all records
			m.lSuccess = TableUpdate(.T.,m.lOverwrite)
			IF m.lSuccess &&was able to update all records
				LOOP
			ENDIF	
			UNLOCK ALL
		ENDIF
	CASE m.lInDBC
		BEGIN TRANSACTION
		* Try to update all records in selected table
		m.lSuccess = TableUpdate(.T.,.F.)	&&successful update
		IF m.lSuccess
			END TRANSACTION
			LOOP
		ENDIF
		ROLLBACK
	ENDCASE

	* Handle errors
	nTotErr =AERROR(aErrors)
	DO CASE
	CASE nTotErr = 0
		
	CASE aErrors[1,1] = 1539				&& Trigger failed
		m.cErrorMessage = E_TRIGGERFAIL_LOC
	CASE aErrors[1,1] = 1581				&& Field doesn't accept NULL
		m.cErrorMessage = E_FIELDNULL_LOC
	CASE aErrors[1,1] = 1582				&& Field rule violated
		m.cErrorMessage = E_FIELDRULE_LOC
	CASE aErrors[1,1] = 1700				&& Record in use by another user
		m.cErrorMessage = E_RECORDLOCK_LOC
	CASE aErrors[1,1] = 1583				&& Row rule violated
		m.cErrorMessage = E_ROWRULE_LOC
	CASE aErrors[1,1] = 1884				&& Unique index violation
		m.cErrorMessage = E_UNIQUEINDEX_LOC
	CASE aErrors[1,1] = 1585				&& Record changed by another user

		IF m.lInDBC		&&handle free tables above
			* Display conflict alert
			IF MESSAGEBOX(E_DIRTYREC_LOC,4+48) = MSGBOX_YES
				*Try to force update
				BEGIN TRANSACTION				
				m.lSuccess = TABLEUPDATE(.T.,.T.)
				IF m.lSuccess
					END TRANSACTION
					LOOP
				ELSE
					ROLLBACK
					=MESSAGEBOX(E_NOFORCE_LOC)
				ENDIF			
			ENDIF
		ENDIF

	OTHERWISE
		IF !EMPTY(m.cErrorMessage)	&&for free table handling above
			m.cErrorMessage = E_PROMPT_LOC+aErrors[1,2]
		ENDIF
	ENDCASE

	* Had an error we couldn't handle
	=TABLEREVERT(.T.)  &&revert all records
	m.lSuccess = .F.
	IF !EMPTY(m.cErrorMessage)
		=MESSAGEBOX(E_FAIL_LOC+m.cErrorMessage)
	ENDIF

ENDFOR

SELECT (m.nOldArea)
RETURN m.lSuccess

ENDPROC
PROCEDURE Destroy
* Restore various settings
LOCAL nTablesUsed,aTablesUsed,i,nDECursors,aDECursors,cDataEnvRef 
DIMENSION aTablesUsed[1]

IF TYPE('THIS.Parent') # "O"
	RETURN
ENDIF

IF TYPE("THIS.oldTalk") = "C" AND THIS.oldTalk="ON"
	SET TALK ON
ENDIF

* OLE Servers can still send data back to General fields 
* even though they are not in Edit Mode. We need to reset 
* buffering to 1 so the buffer is not updated by the OLE Server.
* Also, folks might exit out while editing.
IF THIS.UseDataEnv
	DIMENSION aDECursors[1]
	DO CASE
	CASE TYPE("THISFORM.DataEnvironment") = "O"
		nDECursors = AMEMBERS(aDECursors,THISFORM.DataEnvironment,2)
		cDataEnvRef = "THISFORM.DataEnvironment"
	CASE TYPE("THISFORMSET.DataEnvironment") = "O"
		nDECursors = AMEMBERS(aDECursors,THISFORMSET.DataEnvironment,2)
		cDataEnvRef = "THISFORMSET.DataEnvironment"
	ENDCASE
	FOR i = 1 TO m.nDECursors
		WITH EVAL(m.cDataEnvRef + "." + aDECursors[m.i])
			IF USED(.ALIAS) AND ATC("CURSOR",.BaseClass)#0 AND ;
			  CursorGetProp("sourcetype",.ALIAS)=3 AND ;
			  CursorGetProp("buffering",.ALIAS)>1
				=TableRevert(.T.,.ALIAS)
				=CursorSetProp("buffering",1,.ALIAS)	&&optimistic table buffering
			ENDIF
		ENDWITH
	ENDFOR
ENDIF

* Skip if using preview mode
IF THIS.PreviewMode
	RETURN
ENDIF

IF THIS.oldSetDelete = "OFF"
	SET DELETED OFF
ENDIF
SET REPROCESS TO THIS.oldReprocess
SET MESSAGE TO
SELECT (THIS.nWorkArea)

IF THIS.UseDataEnv
	RETURN
ENDIF

* The following code is here to support
* forms not using a DataEnvironment.
m.nTablesUsed = AUSED(aTablesUsed)
FOR i = 1 TO m.nTablesUsed
	IF USED(aTablesUsed[m.i,1]) AND ATC(".TMP",DBF(aTablesUsed[m.i,1]))=0	&&skip for views
		=CursorSetProp("buffering",THIS.oldBuffering,aTablesUsed[m.i,1])	&&optimistic table buffering
	ENDIF
ENDFOR

IF THIS.oldMultiLocks = "OFF"
	SET MULTILOCKS OFF
ENDIF

IF THIS.oldSetFields = "ON"
	SET FIELDS ON
ENDIF

SET REFRESH TO THIS.oldRefresh

ENDPROC
PROCEDURE Error
Parameters nError, cMethod, nLine
LOCAL aFoxErr,nTotErr
DIMENSION aFoxErr[1]
nTotErr = AERROR(aFoxErr)

DO CASE
CASE INLIST(m.nError,1733,1734)  &&property not found -- traps SETALL()
	RETURN
CASE m.nError=1938  &&no parent
	RETURN
CASE nToterr>0 AND aFoxErr[1,1] = 1420
	* Corrupt Ole object in General field.
	=MESSAGEBOX(aFoxErr[1,2])
	RETURN
ENDCASE

**** Error Dialog ******
=MESSAGEBOX(MESSAGE(1)+CHR(13)+;
"Error: "+STR(nError)+CHR(13)+;
MESSAGE()+CHR(13)+;
"Method: "+cMethod+CHR(13)+;
"Line: "+STR(nLine))

RETURN TO MASTER

ENDPROC
PROCEDURE Init
#DEFINE C_WIZSTYLE			"WIZSTYLE.VCX"
#DEFINE C_WIZDIR 			"WIZARDS\"
#DEFINE C_PROMPT1_LOC		"Find: "
#DEFINE E_NOSTYLE_LOC		"The class library (WIZSTYLE.VCX) needed by this form could not be found. "+;
							"Please locate."

LOCAL cWizHomePath,separator,cWizStyFile


IF TYPE('THIS.Parent') # "O"
	RETURN
ENDIF

IF SET("TALK") = "ON"
	SET TALK OFF
	THIS.oldTalk = "ON"
ELSE
	THIS.oldTalk = "OFF"
ENDIF


IF ATC(C_WIZSTYLE,SET("CLASSLIB")) = 0
	* Returns just the pathname
	cWizHomePath = _WIZARD
	IF '\' $ cWizHomePath
	   cWizHomePath = SUBSTR(m.cWizHomePath,1,RAT('\',m.cWizHomePath))
	   IF RIGHT(m.cWizHomePath,1) = '\' AND LEN(m.cWizHomePath) > 1 ;
	            AND SUBSTR(m.cWizHomePath,LEN(m.cWizHomePath)-1,1) <> ':'
	         cWizHomePath = SUBSTR(m.cWizHomePath,1,LEN(m.cWizHomePath)-1)
	   ENDIF
	ELSE
	   cWizHomePath = ''
	ENDIF

	* Add a backslash unless there is one already there.
	separator = IIF(_MAC,":","\")
	IF !(RIGHT(m.cWizHomePath,1) $ '\:') AND !EMPTY(m.cWizHomePath)
	   m.cWizHomePath= m.cWizHomePath+ m.separator
	ENDIF

	DO CASE
	CASE FILE(C_WIZSTYLE)
		cWizFile = C_WIZSTYLE
	CASE FILE(m.cWizHomePath+C_WIZSTYLE)
		cWizFile = m.cWizHomePath+C_WIZSTYLE
	CASE FILE(m.cWizHomePath+C_WIZDIR+C_WIZSTYLE)
		cWizFile = m.cWizHomePath+C_WIZDIR+C_WIZSTYLE	
	CASE FILE(HOME()+C_WIZSTYLE)
		cWizFile = HOME()+C_WIZSTYLE
	CASE FILE(HOME()+C_WIZDIR+C_WIZSTYLE)
		cWizFile = HOME()+C_WIZDIR+C_WIZSTYLE
	OTHERWISE
		=MESSAGEBOX(E_NOSTYLE_LOC)
		cWizFile = GETFILE("VCX",C_PROMPT1_LOC+C_WIZSTYLE)
	ENDCASE
	
	IF ATC(C_WIZSTYLE,m.cWizFile)#0
		SET CLASS TO (m.cWizFile) ADDITIVE
	ELSE
		* Failed to get WIZSTYLE.VCX file
		RETURN .F.
	ENDIF
	
ENDIF

THIS.InitVars()

ENDPROC
PROCEDURE Refresh
**** Special Preview Mode Handling ****
IF THIS.PreviewMode AND THIS.PreviewInit
	THIS.PreviewInit = .F.
	THIS.cmdAdd.Enabled = .F.
	THIS.cmdDelete.Enabled = .F.
	THIS.cmdFind.Enabled = .F.
	THIS.cmdPrint.Enabled = .F.
	THIS.cmdExit.Enabled = .F.
	THIS.nWorkArea = SELECT()
ENDIF

ENDPROC
                                                 	container                                                     	container                                                     searchclass                                                   Width = 452
Height = 160
BackStyle = 0
TabIndex = 1
BackColor = 192,192,192
remotedelimeter = (.F.)
Name = "searchclass"
                                                             bPROCEDURE searchexpr
LOCAL cGetExpr1,cGetExpr2,cJoin,cGetExpr

m.cGetExpr1 = THIS.SearchItem(THIS.cboFields1,THIS.cboOperators1,THIS.txtExpr1)
m.cGetExpr2 = THIS.SearchItem(THIS.cboFields2,THIS.cboOperators2,THIS.txtExpr2)
m.cJoin = IIF(THIS.optGrpAndOr.value = 2," OR "," AND ")

DO CASE
CASE EMPTY(m.cGetExpr1) AND EMPTY(m.cGetExpr2)
	m.cGetExpr = ""
CASE EMPTY(m.cGetExpr2)
	m.cGetExpr = m.cGetExpr1
CASE EMPTY(m.cGetExpr1)
	m.cGetExpr = m.cGetExpr2
OTHERWISE
	m.cGetExpr = m.cGetExpr1+m.cJoin+m.cGetExpr2
ENDCASE

RETURN m.cGetExpr
ENDPROC
PROCEDURE dataexpr
LPARAMETER cDataType,cFldExpr

LOCAL cTmpExpr

DO CASE
CASE INLIST(m.cDataType,"M","G","P","O","U")
	RETURN ""

CASE m.cDataType = "C"
	IF TYPE("'Test'="+m.cFldExpr) # "L"
		IF THIS.REMOTEDELIMETER
			cTmpExpr = '"'+m.cFldExpr+'"'
		ELSE
			cTmpExpr = "["+m.cFldExpr+"]"
		ENDIF
	ELSE
		cTmpExpr = m.cFldExpr
	ENDIF
	
	* Check for case sensitive
	IF THIS.chkCaseSensitive.Value = 0
		m.cTmpExpr= "UPPER("+m.cTmpExpr+")" 
	ENDIF
	RETURN m.cTmpExpr
	
CASE INLIST(m.cDataType,"N","F","I","Y","B")
	* Check for any commas and remove
	RETURN ALLTRIM(STR(VAL(STRTRAN(m.cFldExpr,",")),16,4))

CASE INLIST(m.cDataType,"D","T")
	RETURN "{"+CHRTRAN(m.cFldExpr,"{}","")+"}"

OTHERWISE
	RETURN ""

ENDCASE


ENDPROC
PROCEDURE searchitem
LPARAMETERS oField,oOp,oExpr
LOCAL cExpr,cDataType,cOp,cFldName,cFldExpr,cRetExpr,aExprs,nTotExprs,i

* Check to make sure proper parameters passed
IF TYPE("m.oField")#"O" OR TYPE("m.oOp")#"O" OR TYPE("m.oExpr")#"O"
	RETURN ""
ENDIF

m.cFldName = ALLTRIM(m.oField.Value)
m.cFldExpr = ALLTRIM(m.oExpr.Value)

* If empty expression return empty.
IF EMPTY(m.cFldExpr) AND !INLIST(m.oOp.listitemid,5,6)
	RETURN ""
ENDIF

* Get data type of field
m.cDataType = aWizFList(m.oField.listitemid,2)

IF m.cDataType = "C" AND THIS.chkCaseSensitive.Value = 0
	m.cFldName = "UPPER("+m.cFldName+")" 
ENDIF

* Get the operator language equivalent
DO CASE
CASE m.oOp.listitemid = 1	&& equals
	m.cOp = "="
CASE m.oOp.listitemid = 2	&& not equals
	m.cOp = "<>"
CASE m.oOp.listitemid = 3	&& more than
	m.cOp = ">"
CASE m.oOp.listitemid = 4	&& less than
	m.cOp = "<"
CASE m.oOp.listitemid = 5	&& is blank
	RETURN "EMPTY("+m.cFldName+")"
CASE m.oOp.listitemid = 6	&& is NULL
	RETURN "ISNULL("+m.cFldName+")"
CASE m.cDataType = "L" 		&& don't allow other options for logical type
	m.cOp = "="
CASE m.oOp.listitemid = 7	&& contains
	m.cFldExpr = THIS.DataExpr("C",m.cFldExpr)
	DO CASE
	CASE m.cDataType = "T"
		RETURN "AT("+m.cFldExpr+",TTOC("+m.cFldName+"))>0"
	CASE m.cDataType = "D"
		RETURN "AT("+m.cFldExpr+",DTOC("+m.cFldName+"))>0"
	CASE INLIST(m.cDataType,"N","F","I","Y","B")
		RETURN "AT("+m.cFldExpr+",ALLTRIM(STR("+m.cFldName+")))>0"
	OTHERWISE
		RETURN "AT("+m.cFldExpr+","+m.cFldName+")>0"
	ENDCASE
OTHERWISE
	nTotExprs = OCCURS(",",m.cFldExpr)+1
	DIMENSION aExprs[m.nTotExprs]
	FOR i =  1 TO m.nTotExprs
		DO CASE
		CASE m.i = m.nTotExprs
			aExprs[m.i] = SUBSTR(m.cFldExpr,RAT(",",m.cFldExpr)+1)
		CASE m.i =1
			aExprs[m.i] = LEFT(m.cFldExpr,AT(",",m.cFldExpr)-1)
		OTHERWISE
			aExprs[m.i] = SUBSTR(m.cFldExpr,AT(",",m.cFldExpr,m.i-1)+1,;
				AT(",",m.cFldExpr,m.i)-AT(",",m.cFldExpr,m.i-1)-1)
		ENDCASE
		aExprs[m.i] = THIS.DataExpr(m.cDataType,aExprs[m.i])
	ENDFOR

	DO CASE
	CASE m.oOp.listitemid = 8	&& in
		m.cFldExpr = ""
		FOR i = 1 TO m.nTotExprs
			m.cFldExpr = m.cFldExpr + aExprs[m.i]
			IF	m.i # m.nTotExprs
				m.cFldExpr = m.cFldExpr + ","			
			ENDIF
		ENDFOR
		RETURN "INLIST("+m.cFldName+","+m.cFldExpr+")"
	CASE m.oOp.listitemid = 9	&& between
		IF ALEN(aExprs)=1
			DIMENSION aExprs[2]
			aExprs[2] = aExprs[1]
		ENDIF
		IF ALEN(aExprs)>2
			DIMENSION aExprs[2]
		ENDIF
		RETURN "BETWEEN("+m.cFldName+","+aExprs[1]+","+aExprs[2]+")"
	OTHERWISE
		RETURN ""
	ENDCASE
ENDCASE

DO CASE
CASE INLIST(m.cDataType,"M","G","P","O","U")
	RETURN ""
CASE m.cDataType = "L"
	IF TYPE(m.cFldName+m.cOp+m.cFldExpr) # "L"
		IF (AT(m.cFldExpr,"fFnN")#0 AND m.cOp # "<>") OR (AT(m.cFldExpr,"tTyY")#0 AND m.cOp = "<>")
			m.cFldName = "!"+m.cFldName
		ENDIF
		RETURN m.cFldName
	ENDIF
OTHERWISE
	m.cFldExpr = THIS.DataExpr(m.cDataType,m.cFldExpr)
ENDCASE

IF EMPTY(m.cFldExpr)
	RETURN ""
ELSE
	RETURN m.cFldName+m.cOp+m.cFldExpr
ENDIF


ENDPROC
PROCEDURE Destroy
RELEASE aWizFList

ENDPROC
                                                            %         8     
            U  @      % T
  C        % T
 C 	  
     0 T
 C  
 
   OR    AND 6
 H . C
   C
 	  T
    C
   T
 
   C
  	 T
 
  2. T
 
  
 
   B
  U 	 CGETEXPR1	 CGETEXPR2 CJOIN CGETEXPR THIS
 SEARCHITEM
 CBOFIELDS1
 CBOOPERATORS1 TXTEXPR1
 CBOFIELDS2
 CBOOPERATORS2 TXTEXPR2 OPTGRPANDOR VALUE      
 H % C
   M G P O UM 	 B   
   C1! %C 'Test'=
 b L  %    T  "
  "   T  [
  ]    T 
   %    "  T
  UPPER(
  )  B
 % C
   N F I Y Bs BCCCC
  ,gZ C
   D T B {C
  {}   } 2	 B    U 	 CDATATYPE CFLDEXPR CTMPEXPR THIS REMOTEDELIMETER CHKCASESENSITIVE VALUE     '       	 
  D %C m.oFieldb O C m.oOpb O C m.oExprb O 	 B    T
 C
    T
 C
  & %C
  C
 
 
	 	 B    T
 C
  
  % %
  C     	F  T
  UPPER(
  ) 
 HW 
 
 } T
  = 
 
  T
  <> 
 
  T
  > 
 
  T
  < 
 
   B EMPTY(
  ) 
 
 Q B ISNULL(
  ) 
  Lu T
  = 
 
  T
 C C 
   
 H 
  T* B AT(
  ,TTOC(
  ))>0 
  D1* B AT(
  ,DTOC(
  ))>0% C
  N F I Y B2 B AT(
 
 ,ALLTRIM(STR(
  )))>0 2$ B AT(
  ,
  )>0  2 T
 C ,
  	 
   (
 
 H 
 
 K( T	 
 C
 C ,
 \ 
 ( T	 
 C
 C ,
 = 2Z T	 
 C
 C ,
 
 C ,
 
 C ,
 
 \ ) T	 
 C 
 C 
 	    
 H& 
 
  T
     (
  T
 
 C 
 	  %
 
  T
 
  ,  & B INLIST(
  ,
  ) 
 
 	 %C	 '
 	  T	 C	   %C	 L
 	  6 B BETWEEN(
  ,C	  ,C	  ) 2	 B    
 H% C
  M G P O U	 B   
  L" %C
 
 
 b LR %C
  fFnN  
  <>	# C
  tTyY  
  <>	x T
  !
   B
   2 T
 C 
  
     %C
 	 B    B
 
 
   U  OFIELD OOP OEXPR CEXPR	 CDATATYPE COP CFLDNAME CFLDEXPR CRETEXPR AEXPRS	 NTOTEXPRS I VALUE
 LISTITEMID	 AWIZFLIST THIS CHKCASESENSITIVE DATAEXPR
  <   U 	 AWIZFLIST
 searchexpr,      dataexpr    
 searchitem     Destroy    1 1RQ   A  2  r  Q B A   A sA  R  B 4  qC A bac A RA  aaaaaaAa AAQ! AA    Q1 A A  a QaA A aaA qA A A a  A A  Q A!!aA  A  A   qA 4 q 2                       )        H  $     ,   E  &  =      D  W      )                                                                         9remotedelimeter
*searchexpr 
*dataexpr 
*searchitem 
                                                                     combobox                                                      combobox                                                      
cboFields1                                                    searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
ControlSource = ""
Height = 23
Left = 11
Style = 2
TabIndex = 1
Top = 25
Width = 141
Name = "cboFields1"
                                  {PROCEDURE Init
LOCAL i
PUBLIC aWizFList
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
FOR m.i = FCOUNT() TO 1 STEP -1
	IF INLIST(aWizFList[m.i,2],"G","M","U")	&&Memo field
		=ADEL(aWizFList,m.i)
		DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)-1), ALEN(aWizFList, 2)]
	ENDIF
ENDFOR
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]

ENDPROC
                                                                                                   %   ]           k            U       7 
   C  
  C.( % %CC 
    G M U  C 
  (  CC DC    T   T  	 aWizFList T  C   U  I	 AWIZFLIST THIS
 ROWSOURCETYPE	 ROWSOURCE VALUE LIST Init,     1 q q   Q!A A q2                       p      )                                        combobox                                                      combobox                                                      
cboOperators1                                                 searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
Alignment = 0
Height = 23
Left = 158
Style = 2
TabIndex = 2
Top = 25
Width = 96
Name = "cboOperators1"
                                    qPROCEDURE Init
#DEFINE C_OPERATORS_LOC	"equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between"
THIS.ADDITEM(C_OPERATORS_LOC)
THIS.VALUE = THIS.LIST[1]

ENDPROC
PROCEDURE InteractiveChange
IF INLIST(THIS.ListItemId,5,6)
	THIS.Parent.TxtExpr1.Value = ""
ENDIF
THIS.Parent.TxtExpr1.ENABLED = !INLIST(THIS.ListItemId,5,6)

ENDPROC
                                          =K   %   W        	               U  | b CR equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between    T   C    U  THIS ADDITEM VALUE LISTW  %C   .  T        " T     C   
 U  THIS
 LISTITEMID PARENT TXTEXPR1 VALUE ENABLED Init,      InteractiveChange     1 "q3 aA !2                                   f      )                                                                               textbox                                                       textbox                                                       txtExpr1                                                      searchclass.                                                  {FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 260
TabIndex = 3
Top = 25
Width = 176
Name = "txtExpr1"
                                                                   combobox                                                      combobox                                                      
cboFields2                                                    searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 11
Style = 2
TabIndex = 4
Top = 117
Width = 141
Name = "cboFields2"
                                                      lPROCEDURE Init
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
THIS.VALUE = THIS.LIST[1]

ENDPROC
                                               ]   %                             U  C  T    T   	 aWizFList T   C    U  THIS
 ROWSOURCETYPE	 ROWSOURCE VALUE LIST Init,     1 q2                       a       )                                                         combobox                                                      combobox                                                      
cboOperators2                                                 searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 160
Style = 2
TabIndex = 5
Top = 117
Width = 96
Name = "cboOperators2"
                                                  qPROCEDURE Init
#DEFINE C_OPERATORS_LOC	"equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between"
THIS.ADDITEM(C_OPERATORS_LOC)
THIS.VALUE = THIS.LIST[1]

ENDPROC
PROCEDURE InteractiveChange
IF INLIST(THIS.ListItemId,5,6)
	THIS.Parent.TxtExpr2.Value = ""
ENDIF
THIS.Parent.TxtExpr2.ENABLED = !INLIST(THIS.ListItemId,5,6)

ENDPROC
                                          =K   %   W        	               U  | b CR equals\;not equals\;more than\;less than\;is blank\;is NULL\;contains\;in\;between    T   C    U  THIS ADDITEM VALUE LISTW  %C   .  T        " T     C   
 U  THIS
 LISTITEMID PARENT TXTEXPR2 VALUE ENABLED Init,      InteractiveChange     1 "q3 aA !2                                   f      )                                                                               textbox                                                       textbox                                                       txtExpr2                                                      searchclass.                                                  |FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 260
TabIndex = 6
Top = 118
Width = 176
Name = "txtExpr2"
                                                                  optiongroup                                                   optiongroup                                                   optgrpAndOr                                                   searchclass.                                                 WAutoSize = .T.
ButtonCount = 2
BackStyle = 0
Value = 1
Height = 46
Left = 50
Top = 55
Width = 58
TabIndex = 7
Name = "optgrpAndOr"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "\<And"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 48
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "\<Or"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 23
Option2.Width = 39
Option2.Name = "Option2"
                                       (PROCEDURE Init
THIS.VALUE =1
ENDPROC
                                                      f   %   P       d      ^             U    T    U  THIS VALUE Init,     1 1                              )                                                                              label                                                         label                                                         label1                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Field:"
Height = 16
Left = 12
Top = 7
Width = 102
Name = "label1"
                                                  label                                                         label                                                         label2                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Operator:"
Height = 16
Left = 158
Top = 7
Width = 93
Name = "label2"
                                               label                                                         label                                                         label3                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Value:"
Height = 16
Left = 262
Top = 7
Width = 165
Name = "label3"
                                                 label                                                         label                                                         label4                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Field:"
Height = 16
Left = 12
Top = 99
Width = 102
Name = "label4"
                                                 label                                                         label                                                         label5                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Operator:"
Height = 16
Left = 161
Top = 99
Width = 93
Name = "label5"
                                              label                                                         label                                                         label6                                                        searchclass.                                                  FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Value:"
Height = 16
Left = 262
Top = 99
Width = 165
Name = "label6"
                                                checkbox                                                      checkbox                                                      chkCaseSensitive                                              searchclass.                                                  Top = 69
Left = 290
Height = 15
Width = 88
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Case Sensiti\<ve"
TabIndex = 8
Name = "chkCaseSensitive"
                                                               searchclass                                                   	container                                                     15                                                            Class                                                         stylebmp\searchcl.bmp                                         stylebmp\searchcl.bmp                                         Pixels                                                        searchclass                                                   )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
               0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _S3P01FE4C1413958253L       [           ;            6  C  [          (               WINDOWS _0B60W3SV8 960606307N      A  /          H  e                                               WINDOWS _0B60W3SVA 960606307X      K  7  '        N  k                                               COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            VERSION =   3.00      mwresize      Pixels      Class      3      control      mwresize                                         %   _       y      s             U    C
     U  THIS PARENT
 RIGHTCLICK
 RightClick,     1 !2                       2       )                            =PROCEDURE RightClick
m.This.Parent.RightClick()

ENDPROC
      FontName = "Marlett"
FontSize = 12
BackStyle = 0
Caption = "o"
Height = 16
Width = 16
ForeColor = 224,224,224
Name = "lblHighLight"
      mwresize      lblHighLight      label      label                                         %   _       y      s             U    C
     U  THIS PARENT
 RIGHTCLICK
 RightClick,     1 !2                       2       )                            =PROCEDURE RightClick
m.This.Parent.RightClick()

ENDPROC
      FontName = "Marlett"
FontSize = 12
BackStyle = 0
Caption = "p"
Height = 16
Width = 16
ForeColor = 127,127,127
Name = "lblShading"
      mwresize      
lblShading      label      label     Alresizegridcontents
_linitdone
cmenupads
lautosaveformsize
_lformsizesaved
_nlastwindowstate
_nversion
nzorder
nminfactor
*resizecontrol 
*resetsize 
*savecontainer 
*saveoriginalsize 
*doinit 
*position 
*saveformsize 
*resizedelayed 
*resizecontainer 
*setcolor 
*frmresize 
*zz_readme 
*getname 
     4,    4  4                        :h   %   -      2    .            U        T C 
  
   
 Q BOOLEAN> %
    TextboxCombobox 
     Column	 
 T
 a  
 T
 -    	 
   T -
    T 
   T     +a
   ' %C
   _nOriginalWidthh( %C
   _nOriginalHeighth& %C
   Moveh Method %C  N
 ! # %  Shape	   	J   " T C   
 6" T C   
 63 C 
  
  
  
   ! %  Textbox  	 T a T - 3 C 
  
  
  
      T  
   + %C
   _nOriginalRowHeighth? %
  
0 !  T
 a R T
 - * %C
   _nOriginalFontsizeh`( %C
   _nOriginalMarginh2 T C  C
 
 
 
  
 6D C % 1 TextboxComboboxEditboxSpinnerListboxCommandbuttonz    7 T C  TextboxCommandbutton   C%6& %  ListboxCommandbutton J (    T   T   . %  ComboboxSpinner
 
 
	$ T  C%
 C% 5 T  
 
  
 
 ) T 
 
  
   %
  T C  D 4 T CC C
 
 
 
  
 68D 9 %C
   _cOriginalColumnWidthsh C  
	 ! " # 
 T#   1 ! (C" C   ,C
 C
 ) T# 
#  ,CCCC ! " g
 ZA  T$ C
# \  %  LabelCheckboxOptionbutton	 % 	K   Label% C
   lOverrideLeftAlignmenth	 & 		 %  	\  T'   
     %
  T a  %
  T( ) 
  T* + 
  + %  Control , 
 , 
	 C-    !  T   <   U. 	 TOCONTROL
 LCCONTROLNAME THIS GETNAME LLUSECOLUMNFONTSIZE	 BASECLASS PARENT
 LNHEIGHTRATIO LNWIDTHRATIO
 LLAUTOSIZE LLSETROWHEIGHT LLINTEGRALHEIGHT THISFORM HEIGHT _NORIGINALHEIGHT WIDTH _NORIGINALWIDTH
 SPECIALEFFECT LNSHAPEWIDTHRATIO LNSHAPEHEIGHTRATIO MOVE _NORIGINALLEFT
 _NORIGINALTOP INTEGRALHEIGHT LRESIZEGRIDCONTENTS MARGIN _NORIGINALMARGIN LNLOSTWIDTH LNMARGIN LNORIGINALMARGIN FONTSIZE _NORIGINALFONTSIZE _CORIGINALCOLUMNWIDTHS I LAWIDTHS LCNEWCOLUMNWIDHTS COLUMNWIDTHS	 ALIGNMENT LOVERRIDELEFTALIGNMENT LEFT	 ROWHEIGHT _NORIGINALROWHEIGHT HEADERHEIGHT _NORIGINALHEADERHEIGHT NAME RESIZER    %C
  % 
 T  d 
  T  % 
P  C   
  K T a %  
  T   / C 	 
 
  d 
  d  T -M %C .ActiveControl.BaseClassb C  
  Editbox	   	G   T C 
   C    U 	 TNPERCENT THIS
 _LINITDONE DOINIT THISFORM
 LOCKSCREEN WINDOWSTATE MOVE LEFT TOP _NORIGINALWIDTH _NORIGINALHEIGHT
 ACTIVECONTROL	 BASECLASS READONLY
 LCEDITBOXNAME GETNAME DRAW        T C 
  
  
  x     %
  	  Form
w  C 
  
    
   t T C 
 
  ! %C
 	 BaseClassh  .  T 
 	  %
  Custom
 C 
 
  
 Hp 
 	 ContainerL C 
   
 	 Pageframe  
 
  T C 
 
   C 
    
  Grid  
   T C 
 
   C 
   + 
  Commandgroup,Optiongroupp  
  l T C 
 
   C 
 
      T   T  T  <     U  TOCONTAINER LCCONTAINERNAME
 LCCONTROLNAME LCSUBCONTROLNAME THIS GETNAME LCBASECLASS	 LOCONTROL LOSUBCONTROL	 BASECLASS SAVEORIGINALSIZE CONTROLS
 SAVECONTAINER PAGES COLUMNS BUTTONS LOSUBCONTAINERL      T C 
  
   %
   
  X  T   <   B 
   32 %C
   Widthh 
    Page
	p %  LabelCheckboxOptionbutton  
		  	K   Label% C
   lOverrideLeftAlignmenth	  		   	4 	 
    T	 
  T
 
	   T   T   %
 
 T a  %
 
 T
 0  T a %
 
 T -  %
 
 T - * T
 C   
	 
 
  6 
    Shape 
     Form	
 
    	
 
   
	
CCh 49 = Warnung von mwResize: Wegen eines Fehlers in VFP sollten sie 
     .
    .Width = 2 7 setzen um deplazierte Linien auf der Form zu vermeiden. : Warning from mwResize: Due to a bug in VFP you should set 
     .
    .Width = 2 % to avoid misplaced lines on the form.6
    Shape 
     Form	
 
    	
 
   
	
CCh 49 = Warnung von mwResize: Wegen eines Fehlers in VFP sollten sie 
     .
    .Height = 2 7 setzen um deplazierte Linien auf der Form zu vermeiden. : Warning from mwResize: Due to a bug in VFP you should set 
     .
    .Height = 2 % to avoid misplaced lines on the form.6 %C
   Widthh! C _nOriginalWidth    %C
   Heighth" C _nOriginalHeight    %C
   Lefth.  C _nOriginalLeft
    %C
   Tophl C
 _nOriginalTop      %C
   Fontsizeh$ C _nOriginalFontsize   ! %C
  	 RowHeighth*% C _nOriginalRowHeight  ( C _nOriginalHeaderheight   " %C
  
 PageHeighth& C _nOriginalPageheight  % C _nOriginalPagewidth    %C
   Marginh" C _nOriginalMargin   $ %C
   ColumnWidthsh/( C _cOriginalColumnWidths     T  <  U 	 TOCONTROL
 LCCONTROLNAME THIS GETNAME NAME	 BASECLASS VISIBLE	 ALIGNMENT LOVERRIDELEFTALIGNMENT LNLEFT LNRIGHT
 LLAUTOSIZE	 LLVISIBLE LEFT WIDTH AUTOSIZE PARENT
 SPECIALEFFECT HEIGHT ADDPROPERTY TOP FONTSIZE	 ROWHEIGHT HEADERHEIGHT
 PAGEHEIGHT	 PAGEWIDTH MARGIN COLUMNWIDTHS TOCONTAINERi  %
     B 
   b  T a % 
M  C   C 
    U  THIS
 _LINITDONE _LFORMSIZESAVED SAVEFORMSIZE
 SAVECONTAINER THISFORM7 
   0 # C         U  THIS MOVE PARENT WIDTH HEIGHT 
   9  C 
   T a C   
    % w  T C 
   8  %	   T	 C
 
   8   U  THIS SAVEORIGINALSIZE THISFORM _LFORMSIZESAVED ZORDER NZORDER	 MINHEIGHT _NORIGINALHEIGHT
 NMINFACTOR MINWIDTH _NORIGINALWIDTH       T C 
  
      
 HG  9 C% m.toControl.Parent._nOriginalFontSizeb N  T a6 C" m.toControl.Parent._nOriginalWidthb N  T a 2  T -  %
 
   T 
    %
  Custom
< C 
  	  
 HM! 
  Container,Page C 
  
  C 
    
 	 Pageframe  
    T C 
 
   C 
 
    
   , T C 
 
   C 
 
   C 
  
   
    T C 
 
   C 
 
   
  GridA  
    T C 
 
   C 
 
   C 
  
  % =  
   9 T C 
 
   C 
     
  Column C 
  
  C 
  
  %  C 
    + 
  Commandgroup,Optiongroup  
    T C 
 
   C 
 	   C 
  
    T 
    %
 S T   -   
    T C 
 
   C 
 
   %
  T   a  
  Custom
 C 
  
     T   T  <    U 	 TOCONTROL
 LCCONTROLNAME LCSUBCONTROLNAME THIS GETNAME LLRESIZENEEDED LCBASECLASS LOSUBCONTROL	 BASECLASS SAVEORIGINALSIZE
 SAVECONTAINER RESIZECONTAINER PAGES
 RESIZECONTROL COLUMNS LRESIZEGRIDCONTENTS BUTTONS
 LLAUTOSIZE AUTOSIZE        T C 
  
  
   %
    Form= C  % 
{  C	   
  T
 
   
 %
   T   a 
 H 9"  
 
  
  	 T   C 
   # 
  
 
  
	9 T   V C 
        G %C
   Commenth Property
 
 *NORESIZE*
   
  
    T C 
 
  ! %C
 	 BaseClassh .  T 
  4 %
   Container,Custom,Timer,Pageframe
] C 
   
 Hn 
 	 Container C 
   
 	 PageframeL  
   T C 
 
   C 
    C 
    
  H T C 
 
   C 
    
  Grid %   
   T C 
 
   C 
    + 
  Commandgroup,Optiongroup   T 
   %
  T  -   
  Z T C 
 
   C 
    %
 { T  a     # %
    Form 
 	 T   -  T   T  T  <     U  TOCONTAINER LCCONTAINERNAME
 LCCONTROLNAME LCSUBCONTAINERNAME THIS GETNAME	 BASECLASS POSITION
 _LINITDONE DOINIT LLLOCKSCREEN
 LOCKSCREEN _NLASTWINDOWSTATE WINDOWSTATE RESIZECONTAINER
 RESIZECONTROL LCBASECLASS	 LOCONTROL LOSUBCONTAINER COMMENT CONTROLS PAGES LRESIZEGRIDCONTENTS COLUMNS
 LLAUTOSIZE AUTOSIZE BUTTONS & %C GetSysColor( 20 )b N
F   | GetSysColor Win32API 
    T  C   T  C    U  GETSYSCOLOR WIN32API THIS LBLHIGHLIGHT	 FORECOLOR
 LBLSHADING     %Ct -  C 
 
   j    T C 
  
   C 
  
    T   <   U  TOCONTAINER THIS RESIZECONTAINER THISFORM LCCONTAINERNAME GETNAME
 RESIZEDELAYED  U  s       %C
   O:  T C
  ] O 
 T     T   <   B
  U 	 TOCONTROL LCNAMEu 
   n  %
  V  C  % G  C   C  j  T -   U  THIS THISFORM BORDERSTYLE POSITION LAUTOSAVEFORMSIZE SAVEFORMSIZE SETCOLOR VISIBLE        T  
  s CCW5  (C C
   ;C
 C
   T CCC   gZ/ s  "CC   C =C   \I ON SELECTION BAR (i) OF mwResize m.loResizer.ResetSize( &lcPercent. )
  t  T   <   U 	 LORESIZER I	 LCPERCENT
 LAMENUPADS THIS MWRESIZE	 CMENUPADSu     %C
   O
#  B    T C 
  
    C 
  
   T   <   U  TOCONTAINER LCCONTAINERNAME THIS GETNAME RESIZECONTAINER
 resizecontrol,     	 resetsize
    
 savecontainer     saveoriginalsizea     doinit     position     saveformsize    
 resizedelayed8     resizecontainerG"     setcolor(    	 frmresizeb)    	 zz_readme@*     getnameG*     Init*    
 RightClick+     Resize	-    1 q x B   A s  11A   ravA A 2 !!4   A 7A A  QA A 1A A    A #A 7 qa   A FA QA  q CA Q A QA hA B   A  QQA  A B D A  q 1 q  A    A A   1 A  u q A A 3 q    A BD A "A  AA rAA AA B B B     3 q v  q A A  *1 A   A  A   A  A A PA !A A A A AA QA "aQA !A BA B  q 3 !A A     A A 3  1A 3    A  1A 1A A 3 q     a   A   "A  AA IA AA rAA  AA A  A AA w !  A AA   A B B A    3 q      A q 1  A  " 2 A  A  vBD A "BA  IA AA r AA A w !  A AA   A B B B B 3 A     3  aA  QQA 3 t Q u RA  q 3  1 q u vQ  A  q  3  a   A    A A 3  AQbB   q 3 q A A v B R q 2                       V'     f   v'  n*     }   *  B4  "     i4  G  {     G  H       H  I       $I  J    	  J  _^  +  Z  ^  (r      Gr  w  i    x  Vz      vz  -      K  v  ,      ;  G    \  I  U    f    h   )   4                       PROCEDURE resizecontrol
LPARAMETERS toControl
#DEFINE BORDER_3D     4
#DEFINE MIN_FONT_SIZE 4

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcControlName
lcControlName = m.This.GetName( m.toControl )
*!* - rk - 2013-4-2 - check if tocontrol is certain type and in grid column
LOCAL m.llUseColumnFontsize AS Boolean 
IF m.toControl.BaseClass $ "TextboxCombobox" AND m.toControl.Parent.BaseClass=[Column]	&& control in grid column
	m.llUseColumnFontsize=.t.
ELSE 
	m.llUseColumnFontsize=.f.
ENDIF 


LOCAL lnHeightRatio, lnWidthRatio, llAutosize, llSetRowHeight, llIntegralHeight
llIntegralHeight = .F.

WITH Thisform
	lnHeightRatio	= .HEIGHT / ._nOriginalheight
	lnWidthRatio	= .WIDTH  / ._nOriginalwidth
ENDWITH

DO WHILE .T.
	WITH toControl

		IF PEMSTATUS( m.toControl, "_nOriginalWidth", 5 )
			IF PEMSTATUS( m.toControl, "_nOriginalHeight", 5 )
				IF PEMSTATUS( m.toControl, "Move", 3 ) == "Method"		&& Einige ActiveX Controls verbergen die Move-Methode des OleControls.

					*--------------------------------------------
					* Fehler unterdrcken, falls das Property
					* keinen numerischen Wert hat.
					*--------------------------------------------
					IF NOT VARTYPE( ._nOriginalHeight ) == "N"
						EXIT
					ENDIF

					IF .BaseClass == "Shape" AND .SpecialEffect == 0	&& 3D.
						*--------------------------------------------
						* Special handling of '3D line' shapes.
						*--------------------------------------------
						LOCAL lnShapeWidthRatio, lnShapeHeightRatio
						lnShapeWidthRatio = IIF( ._nOriginalWidth == 2, 1, m.lnWidthRatio )
						lnShapeHeightRatio = IIF( ._nOriginalHeight == 2, 1, m.lnHeightRatio )
						.Move( ._nOriginalLeft * m.lnWidthRatio, ;
							._nOriginalTop * m.lnHeightRatio, ;
							._nOriginalWidth * m.lnShapeWidthRatio, ;
							._nOriginalHeight * m.lnShapeHeightRatio )
					ELSE
						*--------------------------------------------
						*(..)If Textbox.IntegralHeight=.T. sometimes
						*(..)the IntegralHeight feature resets
						*(..)Textbox.Height during a resize, which
						*(..)results in Textbox.Height beeing too
						*(..)small after the resize.
						*--------------------------------------------
						IF .Baseclass == "Textbox" AND .IntegralHeight
							llIntegralHeight = .T.
							.IntegralHeight = .F.
						ENDIF
						*--------------------------------------------
						* Resize of the current control.
						*--------------------------------------------
						.Move( ._nOriginalLeft * m.lnWidthRatio, ;
							._nOriginalTop * m.lnHeightRatio, ;
							._nOriginalWidth * m.lnWidthRatio, ;
							._nOriginalHeight * m.lnHeightRatio )
					ENDIF
				ENDIF
			ELSE
				.WIDTH  = ._nOriginalWidth * m.lnWidthRatio
			ENDIF
		ENDIF

		*--------------------------------------------
		* Is it a grid?
		*--------------------------------------------
		IF PEMSTATUS( m.toControl, "_nOriginalRowHeight", 5 )
			IF NOT m.This.lResizeGridContents
				EXIT
			ENDIF
			llSetRowHeight = .T.
		ELSE
			llSetRowHeight = .F.
		ENDIF

		*--------------------------------------------
		* Adjust FontSize.
		*--------------------------------------------
		IF PEMSTATUS( m.toControl, "_nOriginalFontsize", 5 )

			*--------------------------------------------
			* Randeinstellung mu eventuell angepat
			* werden.
			*(..)Ein Abrunden mit INT() ist nicht ntig,
			*(..)das macht das Margin-Property von selbst.
			*--------------------------------------------
			IF PEMSTATUS( m.toControl, '_nOriginalMargin', 5 )
				.Margin = MAX( 0, ._nOriginalMargin * ;
					IIF( m.lnHeightRatio < m.lnWidthRatio, ;
					m.lnHeightRatio, m.lnWidthRatio ))
			ENDIF
			
			*--------------------------------------------
			* Hhen- und Breitennderung neu bestimmen.
			* Jetzt wird der Anzeigebereich des Controls
			* bentigt.
			*--------------------------------------------
			IF .BaseClass $ "TextboxComboboxEditboxSpinnerListboxCommandbutton"
				LOCAL lnLostWidth, lnMargin, lnOriginalMargin
				lnLostWidth		= IIF( .BaseClass $ "TextboxCommandbutton", 0, SYSMETRIC(5) )
				IF .BaseClass $ "ListboxCommandbutton"
					STORE 0 TO lnMargin, lnOriginalMargin
				ELSE
					lnMargin			= .Margin
					lnOriginalMargin	= ._nOriginalMargin
				ENDIF
				IF .BaseClass $ "ComboboxSpinner" AND m.lnWidthRatio < 1
					*--------------------------------------------
					* Wenn Comboboxen und Spinner verkleinert
					* werden, dann nur den Textbereich
					* verkleinern.
					*--------------------------------------------
					.Width = ( ._nOriginalWidth - SYSMETRIC(5) ) * m.lnWidthRatio + SYSMETRIC(5)
				ENDIF
				lnWidthRatio	= (.Width - BORDER_3D - m.lnMargin - m.lnLostWidth) / (._nOriginalWidth - BORDER_3D - m.lnOriginalMargin - m.lnLostWidth)
				lnHeightRatio	= (.Height - BORDER_3D - m.lnMargin) / (._nOriginalHeight - BORDER_3D - m.lnOriginalMargin)
			ENDIF
			
			*--------------------------------------------
			* Die ursprngliche Font-Berechnung dieses
			* Resizers.
			*--------------------------------------------
*!* - rk - 2013-4-2 - fall back to column font size for certain controls
			IF m.llUseColumnFontsize && fall back to column's original font size
				.FONTSIZE = MAX( MIN_FONT_SIZE, .Parent.Fontsize )
			ELSE  
				.FONTSIZE = MAX( MIN_FONT_SIZE, INT( ._nOriginalFontsize * ;
					IIF(m.lnHeightRatio < m.lnWidthRatio, ;
					m.lnHeightRatio, m.lnWidthRatio) ) )
			ENDIF 
			*--------------------------------------------
			* Spaltenbreiten bei Combobox und Listbox.
			*--------------------------------------------
			IF PEMSTATUS( m.toControl, '_cOriginalColumnWidths', 5 ) ;
					AND NOT EMPTY( ._cOriginalColumnWidths )
				LOCAL i, laWidths[1], lcNewColumnWidhts
				lcNewColumnWidhts = ""
				FOR i=1 TO ALINES( laWidths, STRTRAN( ._cOriginalColumnWidths, ",", CHR(13)+CHR(10) ) )
					lcNewColumnWidhts = m.lcNewColumnWidhts + "," + ;
						LTRIM(STR( VAL( laWidths[i] ) * m.lnWidthRatio ))
				ENDFOR
				.ColumnWidths = SUBSTR( m.lcNewColumnWidhts, 2 )
			ENDIF

			*--------------------------------------------
			* Nachbehandlung fr rechtsbndige Controls.
			*(..)Spezialbehandlung fr VPME-Labels.
			*--------------------------------------------
			IF ( .BaseClass $ "LabelCheckboxOptionbutton" AND .Alignment == 1 ) ;
					OR ( .BaseClass == "Label" AND PEMSTATUS( m.toControl, 'lOverrideLeftAlignment', 5 ) ;
					AND .lOverrideLeftAlignment AND .Alignment == 0 )
				.Left = ( ._nOriginalLeft + ._nOriginalWidth ) * m.lnWidthRatio - .Width
			ENDIF
			
		ENDIF
		
		*--------------------------------------------
		* Restore IntegralHeight setting.
		*--------------------------------------------
		IF m.llIntegralHeight
			.IntegralHeight = .T.
		ENDIF
		
		*--------------------------------------------
		* Grid.RowHeight und Grid.HeaderHeight darf
		* erst nach der nderung der FontSize gesetzt
		* werden, sonst wirds ignoriert. 
		*--------------------------------------------
		IF m.llSetRowHeight
			.RowHeight = ._nOriginalRowHeight * m.lnHeightRatio
			.HeaderHeight = ._nOriginalHeaderHeight * m.lnHeightRatio
		ENDIF
		
		*--------------------------------------------
		* Bei Basisklasse 'Control' rufen wir deren
		* Methode 'Resize' auf.
		*--------------------------------------------
		IF .BASECLASS == "Control" ;
				AND NOT .Name == m.This.Name
			.Resize()
		ENDIF

	ENDWITH
	*--------------------------------------------
	* Zwangsausstieg.
	*--------------------------------------------
	EXIT
ENDDO

toControl = .NULL.
RELEASE toControl

*/* Alternative FontSize-Berechnungsmglichkeiten:
*!*			DO CASE
*!*				CASE .F.
*!*					*--------------------------------------------
*!*					* Die Font-Berechnung des Resizers von Markus
*!*					* Auer.
*!*					*--------------------------------------------
*!*					.FontSize = 0.5 + ._nOriginalFontsize * MIN( ;
*!*						IIF( m.lnHeightRatio>1, m.lnHeightRatio, (m.lnHeightRatio*2+1)/3 ), ;
*!*						IIF( m.lnWidthRatio >1, m.lnWidthRatio,  (m.lnWidthRatio *3+1)/4 ) )
*!*				OTHERWISE
*!*					*--------------------------------------------
*!*					* Die Font-Berechnung aus meinem alten
*!*					* Resizer.
*!*					*--------------------------------------------
*!*					LOCAL lnNewFontSize, lnPFontHeight
*!*					lnNewFontSize = MAX( MIN_FONT_SIZE, ;
*!*						INT( ._nOriginalFontsize * m.lnWidthRatio ) )
*!*					DO CASE
*!*						CASE .BaseClass == "Page"
*!*							lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / (.Parent.PageHeight - BORDER_3D)
*!*							DO WHILE m.lnNewFontSize > MIN_FONT_SIZE AND m.lnPFontHeight > ;
*!*									FONTMETRIC( 1, .FontName, ._nOriginalFontSize ) / (.Parent._nOriginalPageHeight - BORDER_3D)
*!*								lnNewFontSize = m.lnNewFontSize - 1
*!*								lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / (.Parent.PageHeight - BORDER_3D)
*!*							ENDDO
*!*						CASE .BaseClass == "Column"
*!*							lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / .Parent.RowHeight
*!*							DO WHILE m.lnNewFontSize > MIN_FONT_SIZE AND m.lnPFontHeight > ;
*!*									FONTMETRIC( 1, .FontName, ._nOriginalFontSize ) / .Parent._nOriginalRowHeight
*!*								lnNewFontSize = m.lnNewFontSize - 1
*!*								lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / .Parent.RowHeight
*!*							ENDDO
*!*						OTHERWISE
*!*							lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / .Height
*!*							DO WHILE m.lnNewFontSize > MIN_FONT_SIZE AND m.lnPFontHeight > ;
*!*									FONTMETRIC( 1, .FontName, ._nOriginalFontSize ) / ._nOriginalHeight
*!*								lnNewFontSize = m.lnNewFontSize - 1
*!*								lnPFontHeight = FONTMETRIC( 1, .FontName, m.lnNewFontSize ) / .Height
*!*							ENDDO
*!*					ENDCASE
*!*					.FontSize = m.lnNewFontSize
*!*			ENDCASE

ENDPROC
PROCEDURE resetsize
LPARAMETERS tnPercent

IF EMPTY( m.tnPercent )
	tnPercent = 100
ENDIF

WITH This
	IF NOT ._lInitDone
		.DoInit()
	ENDIF
ENDWITH

WITH Thisform
	.LockScreen = .T.
	IF NOT .WindowState == 0
		.WindowState = 0
	ENDIF
	.Move( .Left, .Top, ._nOriginalWidth * m.tnPercent / 100, ._nOriginalHeight * m.tnPercent / 100 )
	.LockScreen = .F.
	IF TYPE( ".ActiveControl.BaseClass" ) == "C" ;
			AND .ActiveControl.BaseClass == "Editbox" ;
			AND .ActiveControl.ReadOnly
		*--------------------------------------------
		* Zur einfacheren Fehlersuche merken wir uns
		* den Namen des Controls.
		*--------------------------------------------
		LOCAL lcEditboxName
		lcEditboxName = m.This.GetName( .ActiveControl )

		.Draw()
	ENDIF
ENDWITH

ENDPROC
PROCEDURE savecontainer
LPARAMETERS toContainer

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcContainerName, lcControlName, lcSubControlName
lcContainerName = m.This.GetName( m.toContainer )

WITH This

	LOCAL lcBaseClass, loControl, loSubControl

	IF NOT m.toContainer.BaseClass == "Form"
		.SaveOriginalSize( m.toContainer )
	ENDIF
	
	FOR EACH loControl IN m.toContainer.CONTROLS

		*--------------------------------------------
		* Zur einfacheren Fehlersuche merken wir uns
		* den Namen des Controls.
		*--------------------------------------------
		lcControlName = m.This.GetName( m.loControl )

		IF PEMSTATUS( m.loControl, "BaseClass", 2 )
			*--------------------------------------------
			* Protected property or protected object.
			*--------------------------------------------
			LOOP
		ENDIF

		lcBaseClass = m.loControl.BaseClass

		IF NOT m.lcBaseClass == "Custom"
			.SaveOriginalSize( m.loControl )
		ENDIF

		DO CASE

			CASE m.lcBaseClass == "Container"
				.SaveContainer( m.loControl )

			CASE m.lcBaseClass == "Pageframe"
				FOR EACH loSubControl IN m.loControl.PAGES
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveContainer( m.loSubControl )
				ENDFOR

			CASE m.lcBaseClass == "Grid"
				FOR EACH loSubControl IN m.loControl.COLUMNS
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveContainer( m.loSubControl )
				ENDFOR

			CASE m.lcBaseClass $ "Commandgroup,Optiongroup"
				FOR EACH loSubControl IN m.loControl.BUTTONS
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveOriginalSize( m.loSubControl )
				ENDFOR

		ENDCASE

	ENDFOR

ENDWITH

toContainer = .NULL.
loControl = .NULL.
loSubContainer = .NULL.
RELEASE toContainer, loControl, loSubContainer

ENDPROC
PROCEDURE saveoriginalsize
LPARAMETERS toControl

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcControlName
lcControlName = m.This.GetName( m.toControl )

IF m.toControl.Name == m.This.Name
	toControl = .NULL.
	RELEASE toControl
	RETURN
ENDIF

WITH toControl

	*--------------------------------------------
	*(..)Vfp8: Pages die visuell designed und via
	*(..)Pageframe.MemberClass hinzugefgt wurden
	*(..)haben ein verstecktes 'Width' Property.
	*(..)Allerdings sieht das nur PEMSTATUS(),
	*(..)beim Zugriff gibts eine Fehlermeldung.
	*--------------------------------------------
	IF PEMSTATUS( m.toControl, 'Width', 5 ) ;
			AND NOT m.toControl.BaseClass == "Page"
		*--------------------------------------------
		*(..)Sonderbehandlung fr Controls mit
		*(..)Visible=.F., Alignment=1 (Right) und
		*(..)Width=(default). In diesem Fall liest
		*(..)VFP die Width der *ParentClass* aus. Die
		*(..)Width *dieses* Controls wird neu
		*(..)gesetzt, sobald Visible=.T. gesetzt
		*(..)wird.
		*(..)Sonderbehandlung fr VPME Labels.
		*--------------------------------------------
		IF ( .BaseClass $ "LabelCheckboxOptionbutton" AND NOT .Visible AND .Alignment == 1 ) ;
				OR ( .BaseClass == "Label" AND PEMSTATUS( m.toControl, 'lOverrideLeftAlignment', 5 ) ;
				AND .lOverrideLeftAlignment AND .Alignment == 0 )
			LOCAL lnLeft, lnRight, llAutoSize, llVisible
			lnLeft			= .Left
			lnRight			= m.lnLeft + .Width
			llAutoSize		= .AutoSize
			llVisible		= .Visible
			IF NOT m.llAutoSize
				.AutoSize	= .T.
			ENDIF
			IF NOT m.llVisible
				.Left		= -2000
			ENDIF
			.Visible		= .T.
			IF NOT m.llAutoSize
				.AutoSize	= .F.
			ENDIF
			IF NOT m.llVisible
				.Visible	= .F.
			ENDIF
			.Left			= IIF( .Alignment == 0, m.lnLeft, m.lnRight - .Width )
		ENDIF
		*--------------------------------------------
		* Es gibt einen Bug in VFP6 und VFP7 der dazu 
		* fhrt, da 3D-Shapes mit Height<2 oder
		* Width<2 beim Resize dunkelgraue oder weie
		* Linien hinterlassen knnen. Der Bug tritt
		* nur auf, wenn das Shape direkt auf der Form
		* liegt und kein Objekt optisch hinter dem 
		* Shape liegt.
		* Ob dieser Bug auch in VFP3 oder VFP5
		* auftritt wurde nicht getestet.
		*--------------------------------------------
		ASSERT NOT ( m.toControl.BaseClass == "Shape" ;
			AND m.toControl.Parent.BaseClass == "Form" ;
			AND m.toControl.SpecialEffect == 0 ;		&& 3D.
			AND m.toControl.Width < 2 ) ;
			MESSAGE IIF( VERSION(3) == "49", ;
			"Warnung von mwResize: Wegen eines Fehlers in VFP sollten sie " + ;
			m.toControl.Parent.Name + "." + m.toControl.Name + ".Width = 2 " + ;
			"setzen um deplazierte Linien auf der Form zu vermeiden.", ;
			"Warning from mwResize: Due to a bug in VFP you should set " + ;
			m.toControl.Parent.Name + "." + m.toControl.Name + ".Width = 2 " + ;
			"to avoid misplaced lines on the form." )
		ASSERT NOT ( m.toControl.BaseClass == "Shape" ;
			AND m.toControl.Parent.BaseClass == "Form" ;
			AND m.toControl.SpecialEffect == 0 ;		&& 3D.
			AND m.toControl.Height < 2 ) ;
			MESSAGE IIF( VERSION(3) == "49", ;
			"Warnung von mwResize: Wegen eines Fehlers in VFP sollten sie " + ;
			m.toControl.Parent.Name + "." + m.toControl.Name + ".Height = 2 " + ;
			"setzen um deplazierte Linien auf der Form zu vermeiden.", ;
			"Warning from mwResize: Due to a bug in VFP you should set " + ;
			m.toControl.Parent.Name + "." + m.toControl.Name + ".Height = 2 " + ;
			"to avoid misplaced lines on the form." )
		*--------------------------------------------
		* Originalmae merken.
		*--------------------------------------------
*!* - rk - 2013-4-2 - treat width the same as the rest. check for existence before adding.
		IF PEMSTATUS( m.toControl, 'Width', 5 )
			.ADDPROPERTY( '_nOriginalWidth', .WIDTH )
		ENDIF 
		IF PEMSTATUS( m.toControl, 'Height', 5 )
			.ADDPROPERTY( '_nOriginalHeight', .HEIGHT )
		ENDIF
		IF PEMSTATUS( m.toControl, 'Left', 5 )
			.ADDPROPERTY( '_nOriginalLeft', .LEFT )
		ENDIF
		IF PEMSTATUS( m.toControl, 'Top', 5 )
			.ADDPROPERTY( '_nOriginalTop', .TOP )
		ENDIF
	ENDIF

	IF PEMSTATUS( m.toControl, 'Fontsize', 5 )
		.ADDPROPERTY( '_nOriginalFontsize', .FONTSIZE )
	ENDIF

	IF PEMSTATUS( m.toControl, 'RowHeight', 5 )
		.ADDPROPERTY( '_nOriginalRowHeight', .RowHeight )
		.ADDPROPERTY( '_nOriginalHeaderheight', .HEADERHEIGHT )
	ENDIF

	IF PEMSTATUS( m.toControl, 'PageHeight', 5 )
		.ADDPROPERTY( '_nOriginalPageheight', .PAGEHEIGHT )
		.ADDPROPERTY( '_nOriginalPagewidth', .PAGEWIDTH )
	ENDIF

	IF PEMSTATUS( m.toControl, 'Margin', 5 )
		.ADDPROPERTY( '_nOriginalMargin', .MARGIN )
	ENDIF

	IF PEMSTATUS( m.toControl, 'ColumnWidths', 5 )
		.ADDPROPERTY( '_cOriginalColumnWidths', .COLUMNWIDTHS )
	ENDIF

ENDWITH

toContainer = .NULL.
RELEASE toContainer

ENDPROC
PROCEDURE doinit
IF m.This._lInitDone
	RETURN
ENDIF

WITH This
	._lInitDone = .T.
	IF NOT ._lFormSizeSaved
		.SaveFormSize()
	ENDIF
	.SaveContainer( m.Thisform )
ENDWITH

ENDPROC
PROCEDURE position
WITH This
	.Move( .parent.Width  - .Width, .parent.Height - .Height )
ENDWITH

ENDPROC
PROCEDURE saveformsize
WITH This
	.SaveOriginalSize( m.Thisform )
	._lFormSizeSaved = .T.
	.ZOrder( .nZOrder )	&& Resize-Bitmap in den Vordergrund (0) oder Hintergrund (1)
ENDWITH

WITH Thisform
	IF .MinHeight == -1
		.MinHeight = INT( ._nOriginalHeight * m.This.nMinFactor )
	ENDIF
	IF .MinWidth == -1
		.MinWidth = INT( ._nOriginalWidth * m.This.nMinFactor )
	ENDIF
ENDWITH

ENDPROC
PROCEDURE resizedelayed
LPARAMETERS toControl

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcControlName, lcSubControlName
lcControlName = m.This.GetName( m.toControl )

*--------------------------------------------
* Feststellen, ob bereits mindestens 1 Resize
* der Form vorausgegangen ist (nur dann ist
* es notwendig, die neu hinzugefgten Objekte
* zu resizen).
*--------------------------------------------
LOCAL llResizeNeeded, lcBaseClass, loSubControl
DO CASE
	CASE TYPE( "m.toControl.Parent._nOriginalFontSize" ) == "N"
		llResizeNeeded = .T.
	CASE TYPE( "m.toControl.Parent._nOriginalWidth" ) == "N"
		llResizeNeeded = .T.
	OTHERWISE
		llResizeNeeded = .F.
ENDCASE

IF m.llResizeNeeded
	WITH This

		lcBaseClass = m.toControl.BaseClass

		IF NOT m.lcBaseClass == "Custom"
			.SaveOriginalSize( m.toControl )
		ENDIF

		DO CASE

			CASE m.lcBaseClass $ "Container,Page"
				.SaveContainer( m.toControl )
				.ResizeContainer( m.toControl )

			CASE m.lcBaseClass == "Pageframe"
				FOR EACH loSubControl IN m.toControl.PAGES
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveContainer( m.loSubControl )
				ENDFOR
				*--------------------------------------------
				* Da das ndern der Page.Fontsize die Hhe
				* des PageTab ndert, mu die Fontsize der
				* Pages angepat werden, bevor die Hhe
				* des Pageframe angepat wird.
				* Deshalb werden zuerst alle Pages rekursiv
				* resized und danach erst der Pageframe.
				*--------------------------------------------
				FOR EACH loSubControl IN m.toControl.PAGES
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.ResizeControl( m.loSubControl )
				ENDFOR
				.ResizeControl( m.toControl )
				FOR EACH loSubControl IN m.toControl.PAGES
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.ResizeControl( m.loSubControl )
				ENDFOR

			CASE m.lcBaseClass == "Grid"
				FOR EACH loSubControl IN m.toControl.COLUMNS
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveContainer( m.loSubControl )
				ENDFOR
				.ResizeControl( m.toControl )
				IF .lResizeGridContents
					FOR EACH loSubControl IN m.toControl.COLUMNS
						*--------------------------------------------
						* Zur einfacheren Fehlersuche merken wir uns
						* den Namen des Controls.
						*--------------------------------------------
						lcSubControlName = m.This.GetName( m.loSubControl )

						.ResizeContainer( m.loSubControl )
					ENDFOR
				ENDIF

			CASE m.lcBaseClass == "Column"
				.SaveContainer( m.toControl )
				.ResizeControl( m.toControl )
				IF .lResizeGridContents
					.ResizeContainer( m.toControl )
				ENDIF

			CASE m.lcBaseClass $ "Commandgroup,Optiongroup"
				FOR EACH loSubControl IN m.toControl.BUTTONS
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.SaveOriginalSize( m.loSubControl )
				ENDFOR
				.ResizeControl( m.toControl )
				*--------------------------------------------
				* Bei AutoSize=.T. kann es passieren, da Vfp
				* versucht den vorhandenen Platz optimal
				* auszunutzen und dazu die enthaltenen
				* Optionbuttons selbststndig verschiebt.
				*--------------------------------------------
				LOCAL llAutoSize
				llAutoSize = m.toControl.AutoSize
				IF m.llAutoSize
					toControl.AutoSize = .F.
				ENDIF
				FOR EACH loSubControl IN m.toControl.BUTTONS
					*--------------------------------------------
					* Zur einfacheren Fehlersuche merken wir uns
					* den Namen des Controls.
					*--------------------------------------------
					lcSubControlName = m.This.GetName( m.loSubControl )

					.ResizeControl( m.loSubControl )
				ENDFOR
				IF m.llAutoSize
					toControl.AutoSize = .T.
				ENDIF
			
			CASE NOT m.lcBaseClass == "Custom"
				.ResizeControl( m.toControl )

		ENDCASE

	ENDWITH
ENDIF

toControl = .NULL.
loSubControl = .NULL.
RELEASE toControl, loSubControl

ENDPROC
PROCEDURE resizecontainer
LPARAMETERS toContainer

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcContainerName, lcControlName, lcSubContainerName
lcContainerName = m.This.GetName( m.toContainer )

WITH This
	
	IF m.toContainer.BASECLASS == "Form"
		.Position()
		IF NOT ._lInitDone
			.DoInit()
		ENDIF
		LOCAL llLockScreen
		llLockScreen = NOT m.toContainer.LOCKSCREEN
		IF m.llLockScreen
			toContainer.LOCKSCREEN = .T.
		ENDIF
		DO CASE
			CASE ._nLastWindowState == 2 ;
					AND m.toContainer.WindowState == 0
				*--------------------------------------------
				*(..)Bug Workaround: beim Wiederherstellen
				*(..)der Form-Gre werden die Textboxen zu
				*(..)breit resized. Beim zweiten Durchlauf
				*(..)klappts dann.
				*--------------------------------------------
				._nLastWindowState	= 0
				.ResizeContainer( m.toContainer )
			CASE m.toContainer.WindowState == 2 ;
					AND NOT ._nLastWindowState == 2
				._nLastWindowState = 2
		ENDCASE
	ELSE
		.ResizeControl( m.toContainer )
	ENDIF

	LOCAL lcBaseClass, loControl, loSubContainer

	*--------------------------------------------
	* Resize container contents?
	*--------------------------------------------
	IF NOT PEMSTATUS( m.toContainer, "Comment", 3 ) == "Property" ;
			OR NOT "*NORESIZE*" $ m.toContainer.Comment
	
		FOR EACH loControl IN m.toContainer.CONTROLS

			*--------------------------------------------
			* Zur einfacheren Fehlersuche merken wir uns
			* den Namen des Controls.
			*--------------------------------------------
			lcControlName = m.This.GetName( m.loControl )

			IF PEMSTATUS( m.loControl, "BaseClass", 2 )
				*--------------------------------------------
				* Protected property or protected object.
				*--------------------------------------------
				LOOP
			ENDIF

			lcBaseClass = m.loControl.BASECLASS

			IF NOT m.lcBaseClass $ "Container,Custom,Timer,Pageframe"		&& beinhaltet auch "Page"
				.ResizeControl( m.loControl )
			ENDIF

			DO CASE

				CASE m.lcBaseClass == "Container"
					.ResizeContainer( m.loControl )

				CASE m.lcBaseClass == "Pageframe"
					*--------------------------------------------
					* Da das ndern der Page.Fontsize die Hhe
					* des PageTab ndert, mu die Fontsize der
					* Pages angepat werden, bevor die Hhe
					* des Pageframe angepat wird.
					* Deshalb werden zuerst alle Pages rekursiv
					* resized und danach erst der Pageframe.
					*--------------------------------------------
					FOR EACH loSubContainer IN m.loControl.PAGES
						*--------------------------------------------
						* Zur einfacheren Fehlersuche merken wir uns
						* den Namen des Controls.
						*--------------------------------------------
						lcSubContainerName = m.This.GetName( m.loSubContainer )
						
						.ResizeControl( m.loSubContainer )
					ENDFOR
					.ResizeControl( m.loControl )
					FOR EACH loSubContainer IN m.loControl.PAGES
						*--------------------------------------------
						* Zur einfacheren Fehlersuche merken wir uns
						* den Namen des Controls.
						*--------------------------------------------
						lcSubContainerName = m.This.GetName( m.loSubContainer )

						.ResizeContainer( m.loSubContainer )
					ENDFOR

				CASE m.lcBaseClass == "Grid"
					IF .lResizeGridContents
						FOR EACH loSubContainer IN m.loControl.COLUMNS
							*--------------------------------------------
							* Zur einfacheren Fehlersuche merken wir uns
							* den Namen des Controls.
							*--------------------------------------------
							lcSubContainerName = m.This.GetName( m.loSubContainer )

							.ResizeContainer( m.loSubContainer )
						ENDFOR
					ENDIF

				CASE m.lcBaseClass $ "Commandgroup,Optiongroup"
					*--------------------------------------------
					* Bei AutoSize=.T. kann es passieren, da Vfp
					* versucht den vorhandenen Platz optimal
					* auszunutzen und dazu die enthaltenen
					* Optionbuttons selbststndig verschiebt.
					*--------------------------------------------
					LOCAL llAutoSize
					llAutoSize = m.loControl.AutoSize
					IF m.llAutoSize
						loControl.AutoSize = .F.
					ENDIF
					FOR EACH loSubContainer IN m.loControl.BUTTONS
						*--------------------------------------------
						* Zur einfacheren Fehlersuche merken wir uns
						* den Namen des Controls.
						*--------------------------------------------
						lcSubContainerName = m.This.GetName( m.loSubContainer )

						.ResizeControl( m.loSubContainer )
					ENDFOR
					IF m.llAutoSize
						loControl.AutoSize = .T.
					ENDIF

			ENDCASE

		ENDFOR

	ENDIF

ENDWITH

IF m.toContainer.BASECLASS == "Form" ;
		AND m.llLockScreen
	toContainer.LOCKSCREEN = .F.
ENDIF

toContainer = .NULL.
loControl = .NULL.
loSubContainer = .NULL.
RELEASE toContainer, loControl, loSubContainer

ENDPROC
PROCEDURE setcolor
#DEFINE COLOR_SCROLLBAR         0
#DEFINE COLOR_BACKGROUND        1
#DEFINE COLOR_ACTIVECAPTION     2
#DEFINE COLOR_INACTIVECAPTION   3
#DEFINE COLOR_MENU              4
#DEFINE COLOR_WINDOW            5
#DEFINE COLOR_WINDOWFRAME       6
#DEFINE COLOR_MENUTEXT          7
#DEFINE COLOR_WINDOWTEXT        8
#DEFINE COLOR_CAPTIONTEXT       9
#DEFINE COLOR_ACTIVEBORDER      10
#DEFINE COLOR_INACTIVEBORDER    11
#DEFINE COLOR_APPWORKSPACE      12
#DEFINE COLOR_HIGHLIGHT         13
#DEFINE COLOR_HIGHLIGHTTEXT     14
#DEFINE COLOR_BTNFACE           15
#DEFINE COLOR_BTNSHADOW         16
#DEFINE COLOR_GRAYTEXT          17
#DEFINE COLOR_BTNTEXT           18
#DEFINE COLOR_INACTIVECAPTIONTEXT 19
#DEFINE COLOR_BTNHIGHLIGHT      20
#DEFINE COLOR_3DDKSHADOW        21
#DEFINE COLOR_3DLIGHT           22
#DEFINE COLOR_INFOTEXT          23
#DEFINE COLOR_INFOBK            24
#DEFINE COLOR_DESKTOP           COLOR_BACKGROUND
#DEFINE COLOR_3DFACE            COLOR_BTNFACE
#DEFINE COLOR_3DSHADOW          COLOR_BTNSHADOW
#DEFINE COLOR_3DHIGHLIGHT       COLOR_BTNHIGHLIGHT
#DEFINE COLOR_3DHILIGHT         COLOR_BTNHIGHLIGHT
#DEFINE COLOR_BTNHILIGHT        COLOR_BTNHIGHLIGHT

IF NOT TYPE( [GetSysColor( COLOR_BTNHIGHLIGHT )] ) == "N"
	DECLARE INTEGER GetSysColor IN Win32API INTEGER nIndex
ENDIF

WITH This
	.lblHighLight.FORECOLOR	= GetSysColor( COLOR_BTNHIGHLIGHT )
	.lblShading.FORECOLOR	= GetSysColor( COLOR_BTNSHADOW )
ENDWITH

ENDPROC
PROCEDURE frmresize
*--------------------------------------------
* For compatibility with Markus Auers Sizer.
*--------------------------------------------
LPARAMETERS toContainer

IF PCOUNT() == 0
	m.This.ResizeContainer( m.Thisform )
ELSE
	*--------------------------------------------
	* Zur einfacheren Fehlersuche merken wir uns
	* den Namen des Controls.
	*--------------------------------------------
	LOCAL lcContainerName
	lcContainerName = m.This.GetName( m.toContainer )

	m.This.ResizeDelayed( m.toContainer )
ENDIF

toContainer = .NULL.
RELEASE toContainer

ENDPROC
PROCEDURE zz_readme
#IF .F.

***************************************************************************
mwResize Version 5.1 (3rd of April, 2013)
Author: Markus Winhard, mw@bingo-ev.de, 
modified by Richard Kaye, richakaye@gmail.com
***************************************************************************
mwResize Version 5.0 (1st of October, 2008)
Author: Markus Winhard, mw@bingo-ev.de
Resize (zoom, stretch, shrink) all controls on a VFP 6/7/8/9 form 
while the form is resized.
***************************************************************************
This resizer was developed based on the VFP6 FFC resizer, Markus Auer's
public domain resizer (ftp.prolib.de), Soft Classics public domain
'Stretchy Resize Control' (www.codemine.com), and some resize code found on
Compuserve's VFOX forum some years ago. Thanks to all of them for showing
me their ideas. I've learned much from all of them.
***************************************************************************
* All files are provided 'as is' without warranty of any kind.            *
* In no event shall its authors, contributors, or distributors be         *
* liable for any damages.                                                 *
***************************************************************************
As this is for free, use it on your own risk <g>.
***************************************************************************

How to use it:

Drop it on a form or form class in any place (it positions itself at runtime).
The only code snippet you really need is this:

in Form.Resize:
  *********************************
  m.This.mwResize1.Resize( m.This )
  *********************************
  
The only thing you have to add to your project is the mwResize class library.
The other files are only for demonstration purposes (see below).

It has a rightclick menu with predefined form sizes (you can change 
them, see property cMenuPads).

If the form's MinWidth and MinHeight are left at their default value of -1
mwResize sets them to 50% of the form's original dimensions. You can change 
the minimum zoom factor: see property nMinFactor. Tip: Don't forget to 
remove unwanted zoom factors from the property cMenuPads, too, if you set
nMinFactor to any value higher than 0.75.

If you want the columns and textboxes of a grid to be resized too, 
set lResizeGridContents=.T..

If you want mwResize to stay behind other controls set nZOrder=1.

If Form.Borderstyle is anything else than 3 the control is made invisible.
  
If you use visible classes based on 'Control' and want it's contents to be
resized, add code to the Resize() method of the Control to resize the 
contents yourself. The mwResize calls the Control's Resize() method 
at the appropriate time.

If you don't want a control to be resized by mwResize write NODEFAULT
into its Move() method.

If you don't want a container's contents to be resized by mwResize write
the string *NORESIZE* into the container's comment property. If you like
to resize the container's contents yourself write code in its Resize()
method. This works for every control that can contain other controls.

As mwResize by default reads a form's original width and height at first 
resize, one of these two values is wrong by one pixel. If you are one of 
these 110% programmers <g> set lAutoSaveformSize=.F. in design and call
  ***********************************
  m.Thisform.mwResize1.SaveFormSize()
  ***********************************
whenever all of your controls are instantiated, but before changing the 
form's size to the size it had when it was closed last time or whatever.
Decide for your situation if this is in a form's Init(), *first* Show(), 
or *first* Activate(). The very latest place for this task ist the end 
of a form's first Activate().

Attention: There's a bug in VFP6 and VFP7 with 3D shapes. You may see
misplaced lines on the form after a resize when the shape's Width or 
Height property was initially set to 0 or 1. 
The bug does only appear when the shape is directly on the form and 
there's no other control in the background of the shape. Shapes on a 
page or inside a container are not affected.
The solution is simple: Set the property to 2. This will keep the 
'3D line' appearance of the shape and avoid the VFP bug.
To help you identify these shapes there's an ASSERT command in mwResize. 
If you have SET ASSERTS ON mwResize will remind you with a warning 
whenever it finds such a shape.

If you have to add an object at runtime (this is what I call "delayed 
instantiation") you can resize it according to the current form size before 
you make it visible.
  ********************************************************
  m.This.AddObject( "myContainer", "AnyClass" )
  m.Thisform.mwResize1.ResizeDelayed( m.This.myContainer )
  This.myContainer.Visible = .T.
  ********************************************************

If you want a form to be initially maximized setting WindowState=2 in
design will not resize the controls on your form. Instead add this code
to the form's show event:
  ********************************************************
  WITH This
    LOCAL lnInitialWidth, lnInitialHeight
    lnInitialWidth = .Width
    lnInitialHeight = .Height
    .Width = _Screen.Width  - SYSMETRIC(3)*2
    .Height = _Screen.Height - SYSMETRIC(4)*2 - SYSMETRIC(9)
    .WindowState = 2
    .Resize()
    .Width = lnInitialWidth
    .Height = lnInitialHeight
  ENDWITH
  ********************************************************
In case you have a big grid on your form the following additional code 
will speed up the initial display of this grid. However it may break 
other code in your form class. So use it with care <g>.
  ********************************************************
  * in Form.Show()
  IF NOT m.This.LockScreen
    This.LockScreen = .T.
  ENDIF
  ********************************************************
  * in Form.Activate()
  IF m.This.LockScreen
    This.LockScreen = .F.
  ENDIF
  ********************************************************

If you have visible ActiveX controls on your forms and want them to change
their font size just like the VFP controls do when you resize the form
this is the way that works with most ActiveX controls:
  - create a class based on OleControl for this ActiveX control
    (just in case you have not already done this)
  - create a new property 'fontsize1' together with an access and 
    an assign method
  - save the class and close the class designer
  - CLEAR ALL
  - open your OleControl class once again
  - rename the property 'fontsize1' to 'fontsize' and allow VFP to rename
  	the access and assign methods to fontsize_access() and 
  	fontsize_assign() when VFP asks you for it
  - remove all code from the access method, paste this code there instead:
    ****************************************
    RETURN INT(VAL(STR( m.This.Font.Size )))
    ****************************************
  - remove all code from the assign method, paste this code there instead:
	********************************
	LPARAMETERS tnNewFontSize
	This.Font.Size = m.tnNewFontSize    
	********************************
Attention: This example assumes your ActiveX control uses one single Font 
object named 'Font' and this Font object has a 'Size' property. Be sure to 
check the ActiveX control's documentation that this is true for your special
ActiveX control. There are many ActiveX controls around that use more than 
one font and organize the Font objects in collections, arrays or whatever. 
An example for these controls is bbListView (a List View ActiveX control 
made by a VFP programmer that is able to fill itself from a VFP cursor or 
a VFP array, www.officeline.hu/bb). Just to give you an idea I show you 
what I did with bbListView:
  *************************************************************************
  PROCEDURE Init
    WITH This
      .AddProperty( "_aOriginalLogicalFontsize[" + ;
        LTRIM(STR( ._nLogicalFontsUsed )) + "]" )
      LOCAL i
      FOR i=1 TO ._nLogicalFontsUsed	&& property added at design time
        ._aOriginalLogicalFontsize[i] = .LogicalFonts[i].Size
      ENDFOR
    ENDWITH
  ENDPROC
  *************************************************************************
  PROCEDURE FontSize_Access
    RETURN INT(VAL(STR( m.This.LogicalFonts[1].Size )))
  ENDPROC
  *************************************************************************
  PROCEDURE FontSize_Assign
    LPARAMETERS tnNewFontSize
    LOCAL i
    WITH This
      .LockState = .T.
      FOR i=1 TO ._nLogicalFontsUsed
        .LogicalFonts[i].Size = MIN( ._aOriginalLogicalFontsize[i], ;
          m.tnNewFontSize * ._aOriginalLogicalFontsize[i] / ;
          ._aOriginalLogicalFontsize[1] )
      ENDFOR
      .LockState = .F.
    ENDWITH
  ENDPROC
  *************************************************************************
I store the initial size of each font in a VFP array and resize them based
on the size change for the first font in the array. As bbListView uses a 
collection of 99 fonts and I'm using only the first two of them I set
_nLogicalFontsUsed=2 at design time for performance reasons.
  
If you are using Markus Auer's 'Sizer' class and want to substitute it 
with mwResize follow these steps:
  - remove the sizer control from your form or form class, 
  	remember it's name (probably it's 'Sizer')
  - drop mwResize on the form or form class and give it the name the
    removed sizer object had before
  - set mwResize.lResizeGridContents=.T.
That's all. See form SizeDemo for an example.

For changes from prior versions see below.

Enjoy,

Markus Winhard


----------------------------------------------------------------------
Changes in Version 5.1:
 - Fixed:  resizeControl - Fontsize of textboxes and comboboxes contained in columns
 			was not scaling properly

Changes in Version 5.0:
- Fixed: No more RETURN statements within WITH...ENDWITH. Thanks to
	Jan Bucek for reporting this possible source of C0000005 errors.
- Added new method GetName(). Called it whenever a control is going
	to be resized and stored its name and container hierarchy in a 
	variable. Now when there's an error during a resize operation you
	can do a LIST MEMORY in your errorhandler and look at the variables
	lcContainerName, lcSubContainerName, lcControlName, lcSubControlName
	and lcEditboxName to find the control that caused the error.
- Fixed: With lResizeGridContents=.T. a grid's HeaderHeight was not
	adjusted. Controls on a container within a grid column were also not
	adjusted.

Changes in Version 4.6:
- Fixed: Protected member objects no longer raise an error.
	They are ignored as expected. It's up to the developer to resize
	these objects manually, e.g. from the resize() method of the
	surrounding container. The same applies to member objects that
	have their 'BaseClass' property marked 'Protected'.
	Thanks to Don Higgins for reporting this problem with the
	'VFPSkin' classes (http://www.vfpskin.com.ar/).
	Be aware that you have to call some VFPSkin method after mwResize
	has resized the objects to bring the skin back in synch with the
	resized objects. However at this time there's no documentation 
	with VFPSkin that describes how to do this.

Changes in Version 4.5:
- Fixed: Worked around a bug in VFP 8: Visually designed pages added 
	using the pageframe's MemberClass property have a hidden Width
	property. PEMSTATUS() sees it but you can't access it.
	Thanks to Thomas Geissler for reporting this problem.

Changes in Version 4.4:
- *NORESIZE* in comment property prevents resizing of contained controls
	(the resize of a single control could always be suppressed by a
	NODEFAULT in its Move() method).

Changes in Version 4.3:
- Fixed: Textbox.Height sometimes was too small when IntegralHeight=.T.
	Thanks to Peter Pledel for reporting this bug.
- Fixed: Controls within Containers within Grid Columns were ignored 
	before.

Changes in Version 4.2:
- Fixed: The ResizeDelayed() method didn't work for delayed added
	Grid, Pageframe, Optiongroup and Commandgroup classes. 
	Thanks to Thomas Geissler for reporting this bug.

Changes in Version 4.1:
- Fixed: Controls on a page now can rely on Pageframe.PageHeight and
	.PageWidth during a resize.
- During tests with ActiveX controls suddenly the resize event of
	mwResize was triggered. As it wasn't called as a method the
	parameter toObject was .F.. No idea why this happened but I 
	included a workaround.
- Fixed: When a form was maximized and then zoomed using mwResize' 
	context menu the form's Top ans Left properties were not restored.
- There's a new property: nMinFactor=0.5. It sets the value for the
	minimum zoom factor if the form's MinWidth=-1 and/or MinHeight=-1.
- Fixed: Worked around a VFP bug. It happened when an Editbox had the 
	input focus while you were resizing the form using mwResize' 
	context menu and the Editbox was read only. Sometimes parts of the 
	Editbox were not drawn properly after the resize.
- Fixed: Worked around another VFP bug. Shapes with Height < 2 or
	Width < 2 can lead to misplaced lines on the form after a resize.
	The bug affects only shapes directly on the form with no other 
	control behind them. Unfortunately mwResize cannot work around 
	this bug without some help on the developer's side. The developer 
	has to set a 3D shape's Width and Height not below 2. mwResize
	will keep the '3D line' appearance of shapes with Width or Height
	set to 2. 
	When a shape is on a page or inside a container there's no problem
	at all. You can set it's Width and Height to 2 or 0 (zero) to 
	achieve the '3D line' appearance.

Changes in Version 4.0:
- Fixed: Custom rowheight is no longer reset to default rowheight at 
	first resize when lResizeGridContents=.T..
- Added support for delayed instantiated controls (most of the time
	these objects are containers on pages that are not initially 
	visible).
- Changed base class to "Control" and added two labels using Marlett 
	font to get rid of the dependece on resize.bmp/msk. Moved the code
	from the "Image" based control's custom resize() method to a new 
	ResizeContainer() method because the Resize() method of objects
	based on 'Control' can't be called recursively (you can do this
	but VFP ignores it <eg>).
- The color of the 3 shadowed diagonal lines in the lower right corner
	is automatically adjusted to the user's desktop settings in 
	mwResize.Init().
- Changed the default shortcut menu to show 75%/85%/95% instead of 
	80%/90% because I feel we get smoother font sizing with these 
	proportions using the standard fontsize of 9. Of course you can 
	still define your own preferences using the property 
	mwResize.cMenuPads.
- Added property mwResize.nZOrder. Set it to 1 if you want mwResize
	to stay behind other controls.
- Added support for ActiveX controls that have a .Move() method or
	a .Move property but don't show it in VFP's property sheet.
- Fixed: Minor bugs with left aligned or centered Visual ProMatrix 
	labels having lOverrideLeftAlignment=.T..
- Added frmResize() method for compatibility with Markus Auer's 'Sizer'
	class. Changed the two label's names to lblHighLight and lblShading
	for the same reason.
- Added Markus Auer's SizeDemo form to the package, substituted the 
	'Sizer' object with an instance of mwResize named 'Sizer' and set
	lResizeGridContents=.T.. This was done to prove that mwResize is 
	really compatible without changing a line of code.
- Fixed: Removing the delayed instantiated container from page 2 of the
	SizeDemo form no longer triggers a GPF in VFP6 (hi wOOdy <g>).
- Added a FontSize property to SizeDemo.vcx;Outline class along with 
	FontSize_Access() and FontSize_Assign() methods. It shows how 
	automatic font resizing can be done with ActiveX controls if 
	necessary.
- Added a method zz_ReadMe() and moved this text there.

Changes in version 3.2:
- Fixed: Controls having Alignment=1 and Visual ProMatrix label having
	lOverrideLeftAlignment=.T. should be positioned correctly now.
- Fixed: The automatically set Form.MinHeight and Form.MinWidth are now 
	immediately respected.
- Fixed: Optiongroup and Commandgroup having AutoSize=.T. now position 
	their contained Optionbuttons / Commandbuttons correctly.
- Smarter font sizing and margin adjustment.
- Resize bitmap moved to foreground in SaveFormSize().
- When a form is shrinked below her original width, the *text* portion of 
	comboboxes and spinners is shrinked proportional. This means that in 
	this situation comboboxes and spinners are shrinked less than other 
	controls for the sake of readability.

Changes in version 3.1:
- New property _nVersion (just holds the version number of mwResize).
- Added special handling for right aligned Label/Checkbox/Optionbutton.
- Added special handling for Visual ProMatrix label having
	lOverrideLeftAlignment=.T..

Changes in version 3.0:
- Fixed: Pageframe with tabs is now correctly resized.
- Fixed: Some control's width wasn't correct after restoring a maximized
	form.
- ColumnWidths (Combobox/Listbox) are adjusted now.
- Margin is adjusted now.
- Better font sizing.
- If Form.MinHeight = -1 it's set to 50% of Form.Height.
	The same applies to Form.MinWidth.
- New method SaveFormSize(). For explanations see above.

Changes in version 2.0:
- Fixed: In some environments the resize bitmap wasn't positioned in 
	the right lower corner until the first resize.
- This.mwResize1.DoInit() in Form.Init() is no more necessary 
	(but you can still do this if you want for any reason).
- No more delay at form init time. Original control sizes are now caught
	at first resize.
- Enhanced rightclick menu with predefined form sizes (i.e. resize
	percentages). You can change them, see property cMenuPads.
- Resize bitmap is only visible when Form.BorderStyle=3.

Version 1.0:
- was developed just because I thought it must be possible to program a
	resize class without the bugs and drawbacks the other resize classes 
	have. If I just knew then what it takes to get there...

#ENDIF

ENDPROC
PROCEDURE getname
LPARAMETERS toControl

*--------------------------------------------
* Setup.
*--------------------------------------------
LOCAL lcName

*--------------------------------------------
* Objektpfad des bergebenen Controls
* ermitteln.
*--------------------------------------------
IF VARTYPE( m.toControl ) == "O"
	lcName = SYS( 1272, m.toControl )
ELSE
	lcName = ""
ENDIF

*--------------------------------------------
* Cleanup.
*--------------------------------------------
toControl = .NULL.
RELEASE toControl

RETURN m.lcName

ENDPROC
PROCEDURE Init
WITH This
	IF m.Thisform.Borderstyle == 3
		.Position()
		IF .lAutoSaveFormSize
			.SaveFormSize()
		ENDIF
		.SetColor()
	ELSE
		.Visible = .F.
	ENDIF
ENDWITH

ENDPROC
PROCEDURE RightClick
LOCAL loResizer, i, lcPercent, laMenuPads[1]
loResizer = m.This
DEFINE POPUP mwResize SHORTCUT RELATIVE FROM MROW(),MCOL()
FOR i=1 TO ALINES( laMenuPads, STRTRAN( m.THIS.cMenuPads, ";", CHR(13)+CHR(10) ) )

	lcPercent = STR(VAL( laMenuPads[i] ))

	DEFINE BAR (i) OF mwResize PROMPT (SUBSTR( laMenuPads[i], AT("=",laMenuPads[i]) + 1 ))
	ON SELECTION BAR (i) OF mwResize m.loResizer.ResetSize( &lcPercent. )

ENDFOR

ACTIVATE POPUP mwResize

loResizer = .NULL.
RELEASE loResizer

ENDPROC
PROCEDURE Resize
LPARAMETERS toContainer

IF NOT VARTYPE( m.toContainer ) == "O"
	RETURN
ENDIF

*--------------------------------------------
* Zur einfacheren Fehlersuche merken wir uns
* den Namen des Controls.
*--------------------------------------------
LOCAL lcContainerName
lcContainerName = m.This.GetName( m.toContainer )

NODEFAULT

m.This.ResizeContainer( m.toContainer )

toContainer = .NULL.
RELEASE toContainer

ENDPROC
     Width = 16
Height = 16
BackStyle = 0
BorderWidth = 0
lresizegridcontents = .F.
_linitdone = .F.
cmenupads = 75=Size \<75%;85=Size \<85%;95=Size \<95%;100=\<Orginal size;115=Size 1\<15%;125=Size 1\<25%;140=Size 1\<40%;160=Size 1\<60%;180=Size 18\<0%
lautosaveformsize = .T.
_lformsizesaved = .F.
_nlastwindowstate = 0
_nversion = 5.1
nzorder = 0
nminfactor = 0.5
Name = "mwresize"
      control JFIF   d d   Ducky     d   Adobe d      	           
	          	 		 	X
x9!"6v81#dWwسԨAQ2$IYB%Uiab34&7qRC 
 U!1aAqBs5u7Q"#2R3brCSc$4T𱂢%d   ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        6S{g5u3QI!+i_
TZ(A┢mj-u"]m|5S+lݺf=5U;)6S/;5Ͳ̏s4UuLϢcmUNȦ&f!M'po c{ų5Ml=ݗ!mVLZ-x.WRuj:cec{jc6]}Ɉ:.,Lܢm۞ϋjnbf{x]_OsVsl/|׋棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_8(n6yjxQ9]i棦y^?|x]_Gw^x ڵgw~5P:e߱{j:g j?Zy@m~yW_9xURmމU,%-,iVQKF,UKl)u~nʿ=.vm~~ Du1;f>)֧w ;QNz_biI-%҂̰)qI;os'#IŪawTN.PSkFWԔZzUMvnUSE[iU5MQݪu-2l_r廴m11UT;ivLmSTFv                                    yOQ>	96EeиYF;1129YVKvr1rMAt.MTQ%~$̮ۦ\]Q]3iLN֕Ԏ`_kfTWEWjSTLLOa}]< j ~s1RӞw{κyyK j ~s)i;G=]< CfW忿^sR ǄZ3_ZsOyO/9s)b -P~-9yo'맗9r?A▜~kç-3Gܻv-ZGg
Zeu*Sֵ>k]MDܯ!"bffp6DGlϡFʢ3kGDx     
:zs^Y
rD♆',%Ƨv.;33͟Ip=hD.vTްaycd
"w(]TMQ*b6LLvL/Beػ~o\]ޢ*gdTL퉉{κyyK 2"A^b<-t?Җ/<"A^<RӞw{κyyK j ~s)i;G=]< CfW忿^sR ǄZ3_ZsOyO/9s)b -P~-9yo'맗9r?A▜~tVYEWEpv_omWkOZT+uͺbfbb}111>{nS14LmD%ϗ     \8nѺݮVQU×.ۣe,)uI[mkZTUuEDs;"#fg檩#lDDzfg0Q^*kɞ>5:(/lHҨUVi[?S0}YDFg~*{<-m۝o123iFݝgog2D	yN[urΫU/e/^JV}[S-ݯe)Z.ԫź::" MV?;͹}jYQ1b E7&3κyyK 2"A^cx<-t?Җ/<"A^<RӞw{κyyK j ~s)i;G=]< CfW忿^sR ǄZ3_ZsOyO/9s)b -P~-9yo'맗9r?A▜~u JXT9k{KNy[?Kpp8ydG!/iX9=e;.Ӷѳn幝1kn[*LULķ,;u/`Q]SU3f;&e                                                                                                                                                            Ѭ򽿷3 #TS>
9su4h{kuiC2ߩ{9GfFgEzE4U;"y_New62{)6S1
zAٝC6eRJXg0'?F:{*i7kѺ6d]^A
ֵYeH4(l1O?l}ڦ}1ޫMsꦪflT~kwgeW*~(񪫕Ɖ                               `ٰ1ܘs+
Q;CxJvj.	X0ߤ)VZMTPRԸow)=vz]vf4QVț&EjTLO{y}~ٵollTMʫ=]fi8׀                                    *ssw?.f\~ xm*Q?3߾1j!     	 0?qAs3.BQmAJky      +s? /u??tT -$F     -ߐXG5JXo9w>^`   _>e䜛Ʊ\>|hx٫dlkZ֔j}۷rmZTE4LȈ홙숎ٗ˔ZjmS33;"";ffg"#f}\JbZY	RF5Qmu<{[/ItJ٪m]*[iu:J!]uEcs' Tz4?$jU ʫVkSQN'~beEg߉G7]z3sثVAqYFWS/EmG9ֽoent7
w3S3Nwe~cϥͽEj6yUTa1$\=lݹ߹뢪"#x꯶A~=+agVfuV)gYJSP22*=IKmڏiDy{5LWo]rꩋa        O޵<OZ<Ӝ{y^
cuG4Sx~~nɤ7խm6Ӳm+c>mj|	ns[ar=uϮm Oc,Vv*孞ﳯj']tGw@                                                                                                                                                           wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Jz8+!D%dCaښ߄測+ID*]e*J}B5_3^̿=%~tUUl{J晊v;?^wSG}i&e% ͜WRb(j+o&&s'1ގ`_/c=3Kt.}^?f>6y{ߢl gf?c`>k<6Wu_3~{1˰Wُ^w@??Yn/z;M~ WLr|cg&yo|[9va1ގ`_wU<7y-{_0G~/c<]~|lD]|1Kt.}^?f>6y{ߢl gf?c`>k<6Wu_3~{1˰Wُ^w@??Yn/z;M~ WLr|cg&yo|[9va1ގ`_wU<7y-{_0G~/c<]~|lD]|1Kt.}^?f>6y{ߢl gf?c`>k<6Wu_3~{1˰Wُ^w@??Yn/z;M~ WLr|cg&yo|[9va1ގ`_wU<7y-{_0G~/c<]~|lD]|1Kt.}^?f>6y{ߢl gf?c`>k<6Wu_3~{1˰Wُ^w@??Yn/z;M~ WLr|cg&yo|[9va1ގ`_wU<7y-{_0G~/c<]~|lD]|1Kt.}^?f>6y{ߢl gf?c`>k<6Wu_3~{1˰Wُ^w@??Ynߍ\sh(ep}WuѾ]DIKiu[Z]mԥi^殬+	cd/LLO&;*1TNؘj&&=FhM4M4NĒJSI$NimeYe)JS<flۈcdvD??                                    *ssw?.f\~ xm*Q?3߾1j!     	 0?qAs3.BQmAJky      +s? /u??tT -$F     -ߐXG5JXo9w>^`   [sFpRIRUec֠12*7Q\[UOf]Zk[QRY!m[OCugtd]9gb'ѷdܻ\DiTMUOMULD_YC9좈7.׳l[NU>i֪iuo>fdjc)RQo z*ÜE3oM5;XkeSSM'zmfu7ww)LɋLY3r6DWޢS
k'OwSnDM"oU؊)EٞV"'          >mL3{DH<۫"WyQYݲaT]Ki 7g' v;Fz;oeɢ4왟 -1}V2lwwV؈ ܻ3 V+@                                                                                                                                                           1nϏZ++025I)%;)JS0`977ZF[zW,V= 7vkfxQO窩SM1US)yYwW{9oSc/Oz骪cl37T3fU$%qsc}'֞#zfsi<Mz_TkU^ϴH206s#FχZMgޛ-4>ji٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv/a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                      
:O˙_?[JOo7n<    =v;,,G\2˾б|[PR@     
ĺ?Kt ]*/l+ KE    i~dRg#|[]}ט, o]qƍ=-5dM̺G6mutA*L[UgKgm)Z֞Mtkՙr[~2\)r=ګ}(&)9[6#>y~TSM1]SS{\<{d;Z>	"ujmVEIKb4F2m?{Zؚ7A^}<tۧ-yU1V&vU1]UOM;ftz(+7sb6bLmjgz~)*7           oƽDa[(yrBNJt[:}+춿we;MRvzsl{{8ٷmql}-7=Ͽz,8;jwuԴ\                                                                                                                                                           bѺ5WW`djSsrJvR6`2snnܯ}Ymn({A>og#׈hUS覚cdS32+̮sަ_bUU#UUOe4٪f"!^oT;3f̪IVK$XOeU<FsZ7Rykݷ#P!Z֫,ieam#GTϽ7&;|Zi}TLQMޱӶ*aconQ=~5Us/ŲL$ð)\+XSSN,j65[p
[eYmkZԖ&]ܢ
]u1M4SLm숈화_bqx,E15UUUNȦٙD' 7<m݌"~Ud_<~_qoXJZY*֝KYnkWOU5U3rzbOmsꮸwitoF
<)V]U8jj(Dܘr=tQ=ݳ_wrO                                                                       *ssw?.f\~ xm*Q?3߾1j!     	 0?qAs3.BQmAJky      +s? /u??tT -$F     -ߐXG5JXo9w>^`  Bw@텹qa2շXd[R~*ph\mRsbxR!م G޵aeuFD޹L [iˇnV#_C]M3w*B1g\p             >$89=rSeoۯugNKk_iZlk_Z><#XݗjӴ>L9J)?rn7p                                                                                                                                                        Ѭ򽿷3 #TS>
9su4h{kuiC2ߩ{9GfFgEzE4U;"y_New62{)6S1
zAٝC6eRJXg0'?F:{*i7kѺ6d]^A
ֵYeH4(l1O?l}ڦ}1ޫMsꦪflT~kwgeW*~(񪫙x-g$AJ^O*`ظqcVأoR,kZ֤a2%~>pVh뮹iclTdDGl̢&`wv)vE4v!=l7fa'%\b|FmԪRV]2+s\u8FٯMX˗#{m۟Uu{Mz7l59yMzSTvD&eˑ뢉s|                                                                        N7>|reiOǁVҪ=ƢO    ] /0o#37>L2,}5*     .?ho3OR]#0> JK; bDh`    }}~hc_{.V}ch00^ۙU[k-K0Hu.XNo)JV=<*$ vh vϩg%qY/ Kܽ_[tMsײ;=jv϶jdf9&s<~/9˻/KmGonVv։KmܥGal	bݛq(LQN;#}Tkbcc17\ZU5Uն{#܎ǅ=             6?xFВ,VGO3uY,Oj)K[6J뿜l)$R)?vwܿ-S;6rnaYvG;=Os=/1?r0xL{>EuI	4                                                                                                                                                       wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                         N7>|reiOǁVҪ=ƢO    ] /0o#37>L2,}5*     .?ho3OR]#0> JK; bDh`    }}~hc_{.V}ch00=t2?!b?0u+/gyR_"E:v֖OT溹HgϿn}. =YYnf>v]ǽrmq s奫l             ݯ{y]C`O- =pJTY4Kbc/nSs߷ jNin9tenjNS.G-5q>{sNї;,f8kgL{j' hS+Ia@                                                                                                                                                      wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                          \@ Nn}n'˂/~Uj'{7D7v    _^a?Fgn#.|fehXj>T-)Mo      b]N~gcvnGa}Շ .[j6w %Ĉ    ƿ2)S3K>\.>a`~$ՕK%nFd\xWmJ[c8-K*>;{;-׳ޘiO3leW= ib;={&'fy?SsDFݓYm+,      чe``"g'&bNZZM5c%>~ʶ)Yz_u-iC~xMt[ۦj)b6UU;""#fgdGlK6oboSUM15UUS;"b6dDFٟCˡSmN7Hqɻٹ
BUM;ȑU/ڬem)Jݶo&Ov/ӷjg޹Ejv#eɏ,z9oQUb^L{Om~Ȱo:<h '}2;^-xDK-NeݶTm4g]1w>؏v[FWDUTU>߫l~ͪ3fysoڲ;IW6m{(oҒحn 0 vkn\?8}غg3-krX^ 
T~wz{|D <~W5 yOo}7:o ?s+  {O}ܾǛ7 g@ d s' >_`cΛ x2xCc w/1M YpasP??q<#.h/F:uB$'6V[6K?ܶ<>ih;t2vބvwVˮ+S_Lz#Ŝn홟cUDU 3D^Onzg<3'LU늦'bv&p3                                                                                                                                                     wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                           
:O˙_?[JOo7n<    =v;,,G\2˾б|[PR@     
ĺ?Kt ]*/l+ KE    i~dRg#|[]}ט,|Ẽn nMUmhl&gvvvVFkXx]VbE}nR?%x3zlcl\zf_B E      plf,HfVD!%|qfGF.Y6?'QkkKU{?KL3vQp8eS{dE"-i j3:{\ʰ昊iSݪi%QM=Ϳܪ=݊w8                                                                                                                                                             1nϏZ++025I)%;)JS0`977ZF[zW,V= 7vkfxQO窩SM1US)yYwW{9oSc/Oz骪cl37T3fU$%qsc}'֞#zfsi<Mz_TkU^ϴH206s#FχZMgޛ-4>ji٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv/a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                           N7>|reiOǁVҪ=ƢO    ] /0o#37>L2,}5*     .?ho3OR]#0> JK; bDh`    }}~hc_{.V}ch00K\'tc/grQ>c_WD3|-{geRwku+wgew.:[P]5mrjWg]Ru#":4ɭS޿w	\ۏr˶E0X      a*ښlKYdnދ?}Yȶ&_i"U.r
"xWL<Fof}TEOMj3OwdZQ~u}UVWvU3ަ=ڭM5|h&;VJṎ-<k;2;1q|ob fY.R=u5z{/_JWR8̯w.-gbVQ\l陊=ɉYpv^MtWL*zC                                                                                                                                                           Ѭ򽿷3 #TS>
9su4h{kuiC2ߩ{9GfFgEzE4U;"y_New62{)6S1
zAٝC6eRJXg0'?F:{*i7kѺ6d]^A
ֵYeH4(l1O?l}ڦ}1ޫMsꦪflT~kwgeW*~(񪫙x-g$AJ^O*`ظqcVأoR,kZ֤a2%~>pVh뮹iclTdDGl̢&`wv)vE4v!=l7fa'%\b|FmԪRV]2+s\u8FٯMX˗#{m۟Uu{Mz7l59yMzSTvD&eˑ뢉s|                                                                             U\̸-27 ?UV~ g|cCwi   "dCJL4uw IW\
+eYuDޥ+J֟ڦW]3L;XM6w*'l;IC/ FGS<kgQs_cz ^9rhʎ f  3e1IC/ FGQGK 3_ yo2 $ޡ\(  <7ok oP?ѮQyQ  fu5 ?7o (<k3:[ ě7 k{ETt5F c-M x5=*:_ yΣ'n͹oVpJY'3|(&0Ng!|c8vven߹[@tI鼓e\pv(o1U]")DLوy/3Ny#U1Oz=ؙ=}/=w     -ߐXG5JXo9w>^`  Vշp{~ͤzFS_?~<jIVB-vuխݵZzN9ٞE=wh.ϣV>o^c2trc]zߵ ,#      BJÍ܁r9ǲ=٧\뙧K]|Zw{]Dh%]W6:DvF.ODlWǏGD膰Ѹzgks-ʧj۔Y ƒ-Gl<d:h񣤭]P\6pe][o+ZT[\ڻMfbbcddLOTWE"幊11;bb{bbcbc/|>                                                                                                                                                         tngǭgܒ)0mgy̜ěAD-w+m[[JAfO;53<E}(T)L̼;s+7اUU~hUSM1jW*U8I91>UkO3\֍Թc&m/V/gAFeg|EF#gm3MɎ_kU5S4ldwt튧X{[;*T{DOvU\űl8 :
W'yV0x;Ĕē`;xe[Zֵ%f3	a.c(D]uSMf{"";fe0~&n4QLMUUUS)#fg	t a7cY<Wy(}-$ߺ[7w;nRJenhGy[8A?Uvz6~jUL\n;hѼ7Ca3h՗hUN'7&;.\]Owl㜓                                                                             \@ Nn}n'˂/~Uj'{7D7v                   -ߐXG5JXo9w>^`  pg򷊟K85;L,صyfv66(ŝiEH嚷J:/nZ:3乕Cw-U3;)~&}"&jUdlꝖ'UuoI ;W޹LDm剈ݙ.Q6WYr@      e3¾OY$\6mfċW={J<U+~c:V"^)ukFRbWGz/u HY Ռ3~=comLJgf']W]So1fgo7**S՟=	v                                                                                                                                                        wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                               ϭ$ \pZeo qD@~ 3q                  ƿ2)S3K>\.>a` m۬]eԭ[u)u[u;.kJҴݠ&6O_\nkn}[4nom܎INkJ$+!O4쯠V,{՚:!.ܾE}lEMo{鮺c_EgVt:=[mUYLk@      +e1R}t&уk[3;N&Hӻu.6Q;?
uS50S?L횱6?~#^ϴY#Eb)_Dlp DgHIS%Vq                                                                                                                                                      Ѭ򽿷3 #TS>
9su4h{kuiC2ߩ{9GfFgEzE4U;"y_New62{)6S1
zAٝC6eRJXg0'?F:{*i7kѺ6d]^A
ֵYeH4(l1O?l}ڦ}1ޫMsꦪflT~kwgeW*~(񪫙x-g$AJ^O*`ظqcVأoR,kZ֤a2%~>pVh뮹iclTdDGl̢&`wv)vE4v!=l7fa'%\b|FmԪRV]2+s\u8FٯMX˗#{m۟Uu{Mz7l59yMzSTvD&eˑ뢉s|                                                                               N7>|reiOǁVҪ=ƢO                   ,#CȥL,GrCGɇ0Y  b
%q6y-2ʷZƷ^:jɫtl);bkrQҕMmyr;k2\LOUGgz陦}fauA>O"-ܿGvL{U3kvUM^QߓZ<I̾0 &fMa&sM-Q,c.cʲu_AV-kzi>tռ-N16ݝϢfַ^͕*iB,Oz0Vڬ^ٲֶU\nj5U@     Ӗ.[=dvoڬw-\RPrtTA[)uZ]mԥiZVtQrr"uDؘɉ3Mtؘ옘LO0wDyaFq9
1DXS,48[g+.M$cZ]&nҍl}}D+_B/jg%c GrOsT)o޺TuvKQfU?)xOeN^tp             LT>FݿR~}蠂<BHR,M$bbieҔ)N8K1cQ^vOГS|44ƘDE+bnWeր\ ĸSrg|1{
?jlJnb5f122-]MdNۭh{غ Y r+0V}{nq9헯r++(edcGd8GA0dlATu׳0            2d<g2~MɾBqkf(hѱ*9b%rTuH[&ѥΨ[QO_P{غ Y r+0tO9G]s|dD@Le}O,Kr|Ԋ'm.]u-+wܠG VY1n..$+%IK+m騝ҶJҴ;h$.s >wUk̮Vo,<m}0c)-v3epIʞ]ܺ F/vO)-bK1nC$8grٌ*]6T[޹åEÄ.tWOyCKAgK$͌T3ϜV$u'$V\n"xm|ZRkȿ{TK9  |E{Fb g? ȯhK}NLw|޻w6{wuVH>ioܖu:\nvKKmR  ^z3j/3'`j|'Y[I}5HyM#ŉ/m_KVb g? ȯhX}[ܙ,>Ho,6?	Nye3ae3qVnrVޭj        og?Xh
7nbj]kOj$qy5<FKzjE(O͢"p{[Npv}T9Ů]MM; 7 df"d<F.R9Yt5ItJZ :'(6~M~{@VkBkY2FN"~59Xi9Qv˨/څ\^.s _%ɞ(r# ݜqCcڹי[[>Z&S<}nZ^W+uo֠Iϐ۲KrN/GUW[KabI7JѶ?7$S#^JrbIu; )0.:B(} RG-ZXZ\zc5ؽYػ%|un+A{]Z]DTEuD<:e7rHk- _4~q_qGSϓzGs%P6@                                                                             [7FֳpRJnnINR6NbM֠Ѣ޻-եc 3~y"S}LvTb&f^Vw}9sSު4Dzj즘5LD+fuٕI*a|$I쪵ޙkF\O1mu{ބj+Ze L2u>"#VjzM5Ϫj6i;:vS,m=ݝ\='OƪeضIdXv+y<<wbJbjbIōXFưkbvKl-kZ3˰1YYk)iUS=2LN?o]](&33?GݛVOʬ+<>oq-RKK%ZӲ4iw<q^=f]5b{.\L[n}U4X4]˴z
MQE蛓.G'kI                                                                                ru93.L
<Un5x                   _~AafE*fib>˕g>L=y   sσkOlt,m]ѣefz'rÿcK*kXoyΛu*vS~mkuvfj 2@+ɳ(ߍY];*L.SߧlUrc{g;/ћ3^w<dhX<V-$Wn|fy#g˩Z^$JtVdm,_;;ܦ&{(ʩ>T453w{!<m1]3uLGz㶙bb*     e9.Xl/'q̎	ɘI)hNYf+oMK.N1\c{z+6UMTddĲ0Vo]]+fS1@V9+ST`Pؘ*anŚwlA+;tSiKo8Bk+\tk+s6+=DLڮע&&f*
՜6h՘j?Ţ;"=v\?ԪvE5S"M            9fQ7I߅G:z
0?  eP.q      1fycxN+jWdt^7غɶB3.G3g
؝QKiuR}Ҁx7to"676Rqsm71
?G20dL5 ͪJӺiKC+   r57ycK@==>p: ;I\AH>~H6 kk  @KG|bfQn#k9l0.Q5'kuoեЯ|
ˌ:snmܺ׫Bb0nakVQU̜I%cqrEFhRqg&xygG·=p8ԓ<8g'p.&I(S,`q	?EdUvI*Ի  ߋM?ǏVI Y+F_0&         . s QJMZrJ9`'u#ln+LBRקuղܝZ'o7~Sӂ.יH}΢q,"~EZxyj*	\mYmku`   Qr _RQ8J3>8wo?@]"7                                                                             1nϏZ++025I)%;)JS0`977ZF[zW,V= 7vkfxQO窩SM1US)yYwW{9oSc/Oz骪cl37T3fU$%qsc}'֞#zfsi<Mz_TkU^ϴH206s#FχZMgޛ-4>ji٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv/a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                 ϭ$ \pZeo qD@~ 3q                  ƿ2)S3K>\.>a`    r_M\nR9#12{>[˜ W)jbF9<B;u0hf:_ڻkU4DvEQ=zmrU1芵[LpM{MS?6LvͪfLVjkgk<MlUjK9Uʧm#%cժj%z3qemY/U&*(_ue[e3M}SW牏ETETMQDVi\SZa4\M5G星M5D5S1U311/
z,      #j=Vö큁5Ʋj^6mQڃ&EQƊ^_/;2o͚/嘛sE*ɉcݦgeT*zY>o9)U\WEtbcܟri6U30kޡ^
5֨EɹD嘵p
(K},koj\/V9 W޽ؙ-Ǧ͑툫"]13M6Gj>IE=Y)MO彳36=ٚgmLEUtЉ            /?8 	93^ژhǹq-mNa[if^ƾ^1wѶX\ VXVP%jS> ~9;_u9V~/5orG߭'@g̞+0ԗ&KR.6-m%-lE ?lOݟ_%\^g&%qv*Fv~vaxXXkHJJH;Q&cQeRSI+.Ҕ@_iHlLO8gnR}VI\=LܽNj~JCH?'U OChLٻonϜj썵xós<_!&T E.'j][  D 7. _M_.X
˗<70˶rZ
Ժsw!{\^X3¶1&>]TZU+#&<G++Z['>\_od8;m;?;0tL,,F%e$V1[)u]uiJVGCiHlLO8gnR}VI\=LܽNj~JCH?'U OChLٻonϜj썵xós<_!&T E.'j][  D 7. gM_X%.?cOO9F\u66'
:gq{Mq/%W
e-II\juj\6t/R"i7BAArrcZcoͻdבv6>NjVF6['uڦR:R ;ͻ Z  3:e\^mk
 x;e<{wd譁m4nڵs:mצGVK­0:һyGLqn[@CBroVF5^^X,=˺x
'-s鱊u(͵֨Kn8}=
%L݆{LEpkD_<J귘rh[IX9&,W[^wn6\uqꛧ:MqR_~V_<܅vRfj:EnMf6ڞ;+lji&
.bsGT.seS{;;#\pF6Au,5v:wg!w{B[ӿu*rxΝYW.9V9p*뮭*+un[k>.Nα||rX$"3N4e_Ǧ{;oQ4YqԩKZJ[mNsy"qՆRH ><Ķ=-?)#;"bjhyh)=d/#c#b.*[uRRwǥOnW
C>{#\RiGK9p|IIꜷ,Z["2(dꣶ;N㫯\V-Zژl٘f/pkVg#ֿvᤑ^ -o -`  y!7sXGב;(n)ݶeecWlm)mԥk~:3+sS9v(Fΰm?% 㩑j!r({8v#֨UR^6als4ĥOtFOFMa-JR2v]_JPJ 0*q?YXn}ŭ&9TvV!99TQ>;UE+Tr%6j9xFR.
zRnubYxELRW|kWlmdq-F.Q3dMW$ؙ[Uh
fS5V-jZϽUw,WH J3>8
9hm   [ 7a?                                                                           1nϏZ++025I)%;)JS0`977ZF[zW,V= 7vkfxQO窩SM1US)yYwW{9oSc/Oz骪cl37T3fU$%qsc}'֞#zfsi<Mz_TkU^ϴH206s#FχZMgޛ-4>ji٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv/a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                 W'P?ӛ[Is2ߧ +iUZfQ
ݧ                  i~dRg#|[]}ט,    ("ǀc(T5?Fdqb(0	nd})|$R.uSYD>^2,U͵zfp'd{j""fhȻDzcM5դv/&z
o}q쫙;fsԫf*22pSqb&d5Y\sGH3qbn=dU%-ԶJVe/٣)jLddjYUE*jj11=11b{b_<     x}]ψo]-?i9RA͊:`Df<.Ő[iO
t{(tE(%uA3^~=1]㶋=؝i*7\x3+{*rGddeTUM5E<Fލۺ^fk[!yڳOWв⤭ğkINUzYޚy&m=[k~"Fٚ*fO',vS~Mvnl4}6ٲ%QU4           /?8 	9΀  ?lOݟ_%o{+'';R>opZ#w誡L1<,zUkQ{}R,څB@vOD}3=ر&VJ;s*Vd1s!l.9aqϡo2a_= {h]az#ox'үV]{)|A>D&<ϾZh& v;ҧ'8:Ež%.	j̳a[l,ly'Z%_Xʠy̧E^-KwFKw$F>b0II}{
q&reǦ!s$ؕھ=XbҺM[(̪G)Y̅>0|Vd
ҽv~//=JAXb9wO?
O0>hC<	|؛  yߎO򳦯,	ql?AO#3Mwӛ.R "sT.YDGuhe>`=_}_r]u_u}V뮺[Z֠tKՏ*F}  a}%n-1QpU;7ssҲ-GG!m9YJޢ6IÄBWG%u:FHbۆ72P~+>*uŮoe[uS{@>~H6 kk  -n7"飤Ul體]rK
rK"WV캕kZVU${[M^NŞjÝO>`گ}*um/TF;ZؕJՂ%wkZ?|ބg3 v	FK;qK[ognZemMdnUzQ6.sqkAvilb꽛e6kx)DFRdx]4r/:IFItNЭ49ԳXh]]n8EEfesö51ؼuNlN}D4	,9cq}=@l,]E-ט6òIco3ٺ#rX6^UF蹱77 ՛՟NQvۘGU%#3MYbGk~Qd4m\IXĔkom{*_,?7 '?]Xh$$gCMm]D[67]|^,&c__O3wӷ@jnzFpc; Pn2CbAbn/(mw)f8Sټ2139Y܅Qj>mVqOW쎉s/1
A޻G][Ruve,;)m>]J 0( jS:~cz/ȟ9g-\s s| >xù3cΜo ?<~tܟ4c:~09 $.|辙O=<{ ;  [a>0?.Ww?XoOW|&x/{w{֧+f')sCb[r̯N=?`O">Y,MՊ
\ٓ[k7O}Ϥ#./NffFVku`v[ZֶO_V3}ҿLʾ!~\_iOV4?MSGGcY]uK`zWwwU[Z2+JV"._ `Yfmp:q\kR[aen[1:X_DcfZٸt∷{sV]U>v_v3nϢn`7weZC&|;%O_77ggVA?zbON6й˓7s]a3dhYbu5k>좟ͼior`,FOEӇ#O$>s_l}Yclfې3lIKF:X(0orɫ/ZܵȴA6ܭX)uҷVJ)O                                                                         tngǭgܒ)0mgy̜ěAD-w+m[[JAfO;53<E}(T)L̼;s+7اUU~hUSM1jW*U8I91>UkO3\֍Թc&m/V/gAFeg|EF#gm3MɎ_kU5S4ldwt튧X{[;*T{DOvU\űl8 :
W'yV0x;Ĕē`;xe[Zֵ%f3	a.c(D]uSMf{"";fe0~&n4QLMUUUS)#fg	t a7cY<Wy(}-$ߺ[7w;nRJenhGy[8A?Uvz6~jUL\n;hѼ7Ca3h՗hUN'7&;.\]Owl㜓                                                                                  W'P?ӛ[Is2ߧ +iUZfQ
ݧ   Z{,xeEv%Z$*wmw۩_ZT+&bl11鉊fba4W4Uvv&1}ؽ<q[ -s?Jϼ-ӞI{zyy0 p.?~s$qG=ؽ<q[ uCXOte^^L8- _\'s2Qv/O/&s P.~9o(9qs?InL~݋ɇ EwT9kNy&[?AÎ_x 5x[<-^P;׼~
8}cPL޶a ѓD,e)mӲi;K7kخj&jgfgfUը,&]yn8+8QEM4sM1iٽ4    m>?41̊T}=ϗ+y˾ϱ4|z      F/oHؼ|iMY
ͯ!_{4E,}Q;f)iIlO6&}nk̊}-]S3쫝nU?TUouLx嫝kVۉLvߢ()֦#mcJb+`       n/81ӫUKj>Vxl^V$挝]DhlMjXQt]DQnAvڬ^]ܧѶ;vWF؊虧lNʣsN?Sޣ֦vSzMTU=hdDNɍ͒_Ʃޔwg˙5W/3;)uT ^֩{lU:l*T_YDum<u&?չDvj+؟LNj0^z#;;Ƣ ^qk{&=*fYl@          /?8 	9;_gCP/_Q:|rO5F~~??J]7;Kv6ْ%j8!ƈdݢ7Slslޮڤ;Щ,>/yݠ]\+<}eUJsxArCY-1oO	|Bb P/e
'1  bo\9?>\`+φ,{l-ϯ-ҷvr]ZRz.կֵk@Y.ZT;Gle[cDa2nI߶9oW]bmRUJҝ]hT<j.ٮsjѲkS ![ZwL7>!o2}L D 7. gM_X%Y߄!,&
t2k>_]3	Me߻mӧoZ]JڅX@Mx7TiwMdGљ#G]v](Ə<*Wsv*؝ՠY#I\AH>~H6 kk   ^g5`{1?5òVJ@d@xɨIx6ދ,ޚ]Omsο~[V8A'Tf*ZCWd
sȔrqu>]Fxv7!! 8n8[<G.w,/-KaTRE앧eM}_cYZc3gm.oRe1jp7/kFW*#GođQDrj) ^Qӛu_F
廌s:㾪|mkgr.^;mMEI/żp/p{kߋM?ǏVI Y+F_0>wU-Uî$qrC 3}ҿL]'~ޚ_ rÝLR.W~(r OgOm7s*VjN_fnnRN֟ZOm\9\__s] J 0*q?YXlz^{SZ\3\}-6Vzle9b{lI+ޥ#eT+J?i⹧I%oo;[ciZZ;r{._rH/lv`jWRGuo.7 }JDY+F_09| 6o0=vG_ԋߪL                                                                         tngǭgܒ)0mgy̜ěAD-w+m[[JAfO;53<E}(T)L̼;s+7اUU~hUSM1jW*U8I91>UkO3\֍Թc&m/V/gAFeg|EF#gm3MɎ_kU5S4ldwt튧X{[;*T{DOvU\űl8 :
W'yV0x;Ĕē`;xe[Zֵ%f3	a.c(D]uSMf{"";fe0~&n4QLMUUUS)#fg	t a7cY<Wy(}-$ߺ[7w;nRJenhGy[8A?Uvz6~jUL\n;hѼ7Ca3h՗hUN'7&;.\]Owl㜓                                                                                   N7>|reiOǁVҪ=ƢO    ] /0o#37>L2,}5*     .?ho3OR]#0> JK; bDh`    }}~hc_{.V}ch00      
n"kyLg 2.\MZAtWnBE{tDbWRskƋ:{`?i
\1機)g?EӋ5G]tS5bSꝳV"9~~vS@      h!ԣ$QC${!)!1dgtQvY["œVTq"[r4QW[495a)UXkj?\?l&)wH57SkU4-{_?۷?ףm3M6*]	bK;;'s}'E'ױT.i[ⰸ&EVv&*fbj퉉JȰ؜>3o[EtULjd          G' g~K֞*j'P?/TNI@( /wg@z	wW6:/oa䓱Gls8jKFmQ٫KH&[uPhw
3Y\+(eJUc}FNįZRqi(4,r3zn|9SFiX]c{_H<Q&5Ղ<IjGvXFmKZȨ;ߩCn/7%f4[^:ly+z50䢬dZfB%+/NVm'1  bo\9?>\`+M?whN䞆yG
Xf&$Q(ѽDeTykjoE	mm+@<p<B&>腺fW
RXbѓ+֔'rJ5>hoܾl'Lޡ.0TVXa	u~u`Aڑ<4{j+V>Qg>֥r*=E:E뛋MFmY
Wb'
޸s6(07֫eIcSb@	|؛  yߎO򳦯,	qsBh΋bR"crM3m1xkoIGmV5.+NʁUW. e]59/,@3ѳqz9n<Jzg*?w!䯪xvV5w\ۜ*v&Fg鼵S(%!?l۸h/IȪښ[T-ۨGC.,)2דCmlvzM>J>6JZV>J_a#ۿ  +îny7`pJ~k+I,Rj/f1ojU^TJ6;Gof}T> \=6q !dq%r[KUa8t2Vc)kr5&i Î|/Ϻ
"Iv۬W~׮vrQ\!KRը*Y_UBp%Cq5yĎ[Mp,e8qG/)8OiGYG㓽|˽hҮܢXu=qYT7R.2EE5-5H8YUeKUD.bKӭ[mlˮcT=+9v#=byVWLF3GNmNzj1wQpuTA
Zw]mԭB ,#s~f}fqd;wxKV[|* a8!e^wqi_Ѧ .joM? 
 VΦfPO+Pr9o 3X ~3俪+jφg: 2
&o ZWi9W/ˋ X)ƀbpOsV
=_#$;los
i(Efl.a[5}RƹpԾ/8rk=<&ms9|w'If*{Z׾=`'c#1.B긧-LMBĺt_9i]H:OVrơ4J1Nxm]_۽~$a
/Y<T+lB)ir-nQI;VooϬ5 7#f# vZ7 p۝|MyֲV9yfmeħڽų%ܣWV!sWH_m)};{hkMτ@=m]9`3#$nAKr^BRarV7(ե]J                                                                        [7FֳpRJnnINR6NbM֠Ѣ޻-եc 3~y"S}LvTb&f^Vw}9sSު4Dzj즘5LD+fuٕI*a|$I쪵ޙkF\O1mu{ބj+Ze L2u>"#VjzM5Ϫj6i;:vS,m=ݝ\='OƪeضIdXv+y<<wbJbjbIōXFưkbvKl-kZ3˰1YYk)iUS=2LN?o]](&33?GݛVOʬ+<>oq-RKK%ZӲ4iw<q^=f]5b{.\L[n}U4X4]˴z
MQE蛓.G'kI                                                                                    N7>|reiOǁVҪ=ƢO    ] /0o#37>L2,}5*     .?ho3OR]#0> JK; bDh`    }}~hc_{.V}ch00      3i"|VϘ>l7 :Jt{oEgu}kZVOw+\]3Mf&&'dlLLvǡ]\m܈Q111&'bb{&&=0Zxu?Nr닙+)
ny\JBm.{ncUrkXz[.E=an ^j)i-=:ߤf6-"֦"g[O \U|Y        ÷ԉk%=;K۫II68Ekmq/5\)ullyXJ_ݭZ_w}q/E43y֎)LvSo-{#eʧ?
L4:ޫ]Sګ}6tļ v(          G' g8A08ʖٯ$c_,I6~.]Zv׻bvֵ @ pn}Q9' ?lOݟ_%"tma3PVr&{,0mj<ʔyZ6;O~M=pU6{)udՇ0l
CɠdS(L
%j)bݪKumz 	|؛  z/OO,
@xnET]#Ζ;ss[cAZYXo,e\2YL*Rih=4gQV;E,S\-/	V,)s&NT2h7tv.*ק}T1 '1  bo\~9?Κ%` J]~W|sFQ o}9=ѓ;5jIq)-aE+{4޴^LJ$7?)5FM4
]cR%&rvw8LQVƸr:j G}Y\4X@ ? /G^J97?RqDl]S<sJbG?V[JRu
 v|p+z.ǟe+'ujxe#4x-E<[;iuEj(Ifk=+(FNؾsx*:Q]U[[;ξ 
fcx<C#!dg#gcpuH1V!N]*Ҫt!+[.BW4xf[I]rߍc]=ѯu<<Kǲ.-RQƱ+wvM--1;D "ᴍ;׸ٛ6'e;km/d33~ _FsT
DziAZT㳞DmݷZ!~. ۻ_^J&o ZWi4ڛO @sٽE>zN[yV n_9/p
ڀs!̾  -`U #J~/p Ó%̹|1ȯtK58-no.Ѭw4ljv$ $f˓TZWX&K9gAěLqܗVg 3dfMTiu;  WƿU`ƃ\m\q pmĔSE:jY=Hؒw%bZVwOL+hA?Z{!ggJ^Y,#cڧNXmR^9Dl5=F}}:d붖ȱq\ g)dyE?M*V5Z>                                                                       [7FֳpRJnnINR6NbM֠Ѣ޻-եc 3~y"S}LvTb&f^Vw}9sSު4Dzj즘5LD+fuٕI*a|$I쪵ޙkF\O1mu{ބj+Ze L2u>"#VjzM5Ϫj6i;:vS,m=ݝ\='OƪeضIdXv+y<<wbJbjbIōXFưkbvKl-kZ3˰1YYk)iUS=2LN?o]](&33?GݛVOʬ+<>oq-RKK%ZӲ4iw<q^=f]5b{.\L[n}U4X4]˴z
MQE蛓.G'kI                                                                                     \@ Nn}n'˂/~Uj'{7D7v    _^a?Fgn#.|fehXj>T-)Mo      b]N~gcvnGa}Շ .[j6w %Ĉ    ƿ2)S3K>\.>a`       pl?fa.Ȝ
ac>3873PH\m5RVu)uR˳vSkX۹D쪊1>O{4]˳T^ޢhm5STl g;Uud遗)c(jؒNչVzl7Mve1hإGNoh:-N=.h՘Z#Q"ET홛uNȪ?UUɫYӬb1}3Df)g҈GlWM<&@      zO*\ͰYNZo%	?	8yfӶj{/67pwrun۪*Eq4LǻS3FbcUof5]3kbj&&"ag'O[Bg}0YE 6T3:mƭJ;1z]uY}ml=m}m߱T|=ֵVvb?R{J+qhw:pAo^>%;.S܉קTϺ#An        (o䆾ԼZe=Ѵg)Xfq;>AtVu%uuw[u+J$P),3zlէ}dcrC)fh;n4ƾz6Q&ʶ%?ZlSdA*gI(ͭpܯk4ez$i׻mRݺiiܼ~/5orGM'@g̞+0Ԕ|siv^EڹFŭOK/ >: P6O
oO.rgNUNgO-#ba\2BM&C!8N;aT_ZE[^ gm*j s/AAsu1i?*b񍣅c[#zO62ڸZQ;N˭fgIjy4DAͼ/oдYU}܋wE);'gv
_? J|u Ju 'EN,t|z3@gGw_L]d%}"Uk/Bߤ~x-/F./u7{aܣ^cKI-ےݟjݙcY4J5SxWe:OK/ >: P$#k~sQq'PxȒ͟'rJOcr9'VmJuԺiq\f!#{L$g#<iʨchrXSp͌vNӲC٧k)}-noo-FUG_bh"]QJzN;ݡ係 ҟҨIS>f])Y7DH7>k|Zн75 z_}_t|%v!0u-FzFIvS(U[Ģ*r7*zY )*'#qut_=~3ҙKܮCš{u%ZRO]EuhleO4֔foM9FiDʽr߇NݭiP:BIeq<-YuNꁘǊv8rF*i!E.K{hbes _o=H@NVe6U9Ƣë
t&b/w};i  !p\gh`Ycv&!lJԲe1rb7R
u.v]i_&?S OTT 9 SU W[31ֶױGysWSG6)JI	u+(&pS_)(q뭐en۪:K9ͧKfޚO&_v]^ڀ qC/InhR9ߺ:f_M>o{?	mrr-uC}z UP׾|0=v_QTlea[:Թ 0&0Z;_Jc>w^ /ruծ<
=J8'y{#9-51,ٻ("S0	&$bZкYrwV#=,@KNq6n~k3l{kg,vBwdx&I2eLqЮ0=o;o۸Vֵ7\ּͷ~39\w2L{-1tke3sc;؂
v]oށes _:{p7Pĝ쌯\`YLؘ'sgO,NFKH%[7RJ5Bi}]JPw9 uVƶV{Ұ3<#ʸϵMhlQě.Y[S1gN|kߺ?x.mwxt^Yt3VK*y.uGa.y/oRj]}.KBI[Qc|{CfOg#1
۫6ʤ,ĥǸX٘"UQYA5VV˂*S OTtSĎ8۱9nlg2.y$sZVB^=h-E\z+Z:)m-ҷT3Tq5k0{T/<Hx&72eqfN3oX˯Vҕڇ  ҟҨJ5O*^ %ֺmPٲxr9\_t39[xƴu/)xq :mrrmbc[+r=dz`iXl؞
`\}ڦ6(UMnsz[[, >.a{*zs|Rؔ2{yeؒ+rUeե	e ;ۨZw9X|mڏnV'[33"nN۰|mmޥ센VDmoN;Fcf\xreSYDw"(Զlh|es _n:ZtHiu_]ٛc[9c2#2Is, cq}lżeY}.µV:i1@ONANG=dN&b&Mb#9k^+e*[uc yS`rҩKInɏVHX~1
c1Ox6c7Jw/b~Ӝƶ2\Il3jcXZ6c99,\&xļ%QvȿkU쳹uˮBS                                                                        Żtk>=k<o70$)Olk;d$j
!m^lZP27|Gٯ+E?M4mUNȦ"fegyWә]9M=ꪫDGiTDBި=PvgP͙T2IюʫZxnͤ6WomF}PBVY{>
 4(=GS(1>ekom6znLw\f#clU>߃Uʣߊ"{j^-dIaR>Wʱq6.$&$XՄlk(n,ֵ-c1L	sE&bh5U33(	6X+uݮ)bjM13>Ok Gox
ٻEd⿣Chy&.u*U;+sFz?q.ѶkV*gŸv]qEލ
NySEެGpQ>1rz{f                                                                                       ϭ$ \pZeo qD@~ 3q   k '2}ϓ,̻MGʅ)      K nԿ-H 2 ҫmRFdX     _~AafE*fib>˕g>L=y        ܕܸ<_fՏu[]RR1/~nY;FUn+osNuqyՌ !U_z>T&i쪙WS<7쪙ǻS>kvUMQ*zؽ=ww"֙UdǪZ.ĐyDQD6f6lr3
SX=]iS^9k6ݣcomS36lTD?MJ;̴?-]W帟E]v)DUU.zz:      %Gr56V{wy(saV ,E[f)x^xկr0Tw{.m޲Oczpf#m݊[E+v[ZfهIޫcn'-6Dz뢪f}V385ڠ        8tǟwonf	CMiUYfAb/I?c73jVI6R5Y*/xv                                                                                                                               tngǭgܒ)0mgy̜ěAD-w+m[[JAfO;53<E}(T)L̼;s+7اUU~hUSM1jW*U8I91>UkO3\֍Թc&m/V/gAFeg|EF#gm3MɎ_kU5S4ldwt튧X{[;*T{DOvU\űl8 :
W'yV0x;Ĕē`;xe[Zֵ%f3	a.c(D]uSMf{"";fe0~&n4QLMUUUS)#fg	t a7cY<Wy(}-$ߺ[7w;nRJenhGy[8A?Uvz6~jUL\n;hѼ7Ca3h՗hUN'7&;.\]Owl㜓                                                                                       *ssw?.f\~ xm*Q?3߾1j!     	 0?qAs3.BQmAJky      +s? /u??tT -$F     -ߐXG5JXo9w>^`          7W/bffڙ^rۭ.M?M5B6˩[mI[ ;__kNId_H˯౷_ܪ&cۮiNݴlU11vfGxK5lrW1.Q[se[}1     bګ?gqr5;7(혉MjumVӾNQv+eYJKiX\s(j5Tߙsٵ&iVS>"'d\E" Mȟ~#gjVp                                                                                                                                        [7FֳpRJnnINR6NbM֠Ѣ޻-եc 3~y"S}LvTb&f^Vw}9sSު4Dzj즘5LD+fuٕI*a|$I쪵ޙkF\O1mu{ބj+Ze L2u>"#VjzM5Ϫj6i;:vS,m=ݝ\='OƪeضIdXv+y<<wbJbjbIōXFưkbvKl-kZ3˰1YYk)iUS=2LN?o]](&33?GݛVOʬ+<>oq-RKK%ZӲ4iw<q^=f]5b{.\L[n}U4X4]˴z
MQE蛓.G'kI                                                                                        *ssw?.f\~ xm*Q?3߾1j!     	 0?qAs3.BQmAJky      +s? /u??tT -$F     -ߐXG5JXo9w>^`        <	eY~k[}[vI
mm{.jiZ}іfScgs`#o ^yW'8قغ!tv[V\~*֯tKQ$]ݷz1+o={vFl_T&qَGb-Qgozp /[%crzc;#y
ݛ!%p\*/2wM3ǥ\>q{^#G޷(t. ok}[vG[1we7jtډU(ݙd U3$Mb16j7)*UɎS)kVE;e      lg>lr/A C䝏g[ԧݡΌ"}Yd'b;'غB [{<
VvZSb        G Ŀӏfk7MxۢieQYdlM93AMG(TŰR^iXMuT8Q%%"(_DqodTRNŵh׮RA7FVV9 8g3cY]5i~#ƹ&U1< nG+ffr8m!5nu'cJqguNۨ     xM5ޕ׹Y;}晶Y& R$_bI'm;-vZv}Pw&5~뜖[w&E;n0ˢdvGI)ϓok{uVjIj ^xz`V	q')rKJl}ｶ(q-ϧ5׸.ֹbuyd۩0f<ɬZw-j(V.,r*R@                      ǻ_l=r3_Y
!i:&xR*&ɾU$åA[rTJR.c>9-SI`]%r)lad2
,S\8dƮ
9 8 w ?#c; ZEf=?1ͷr}be1ӉRf:	yK9FM.{//)P(   <xIg)6/5?u,٩t1y["ݚ׶jɢ[RB"{q'87\)ܛ%Sȶ~4#IX^fXBbWt;*^xjUs g p9 6Gl49̮(8U6ԘN̷RN٥,5͌"w1WVocZܥKme       vڝ(i}kg^'2/X(\kmJƭdrd՜tۃ%            9֯߹%hŴ_̯Osku}7о}|_H  k 	X|Y_nX}}zF5o.acO=sK om< տ`               ;Gp=V:eu<̶oU7]r8.e/Ziw[Z2+"7U5];AtoTVE[izjR˩[nkJҽ                                   Żtk>=k<o70$)Olk;d$j
!m^lZP27|Gٯ+E?M4mUNȦ"fegyWә]9M=ꪫDGiTDBި=PvgP͙T2IюʫZxnͤ6WomF}PBVY{>
 4(=GS(1>ekom6znLw\f#clU>߃Uʣߊ"{j^-dIaR>Wʱq6.$&$XՄlk(n,ֵ-c1L	sE&bh5U33(	6X+uݮ)bjM13>Ok Gox
ٻEd⿣Chy&.u*U;+sFz?q.ѶkV*gŸv]qEލ
NySEެGpQ>1rz{f                                                                                         \@ Nn}n'˂/~Uj'{7D7v    _^a?Fgn#.|fehXj>T-)Mo      b]N~gcvnGa}Շ .[j6w %Ĉ    ƿ2)S3K>\.>a`hv$ظ{5x{;iEenmj~o]ޢUS1銢vǮ&6;ߵUZDɉLv*䖡ZJJŭs6~k v1|L+.S i5mykg/[;ݞUUOMS4Ϯ55Ξ,vGwo{	k݊+zvUa3`x`             
\W1$rOFz+fkX gc
uIkneZe.kJӴԺ>αuL][cc=m_ZeXnfxZvOvߢ;}=Դ5       pKHs͵&Bۿ/8r
6ds̊o.o[]08ɯ;jv[pS8YWQuR]kUeVޢ}nEZֵm@`  HNOW=L_5\8jV3ezN/U[nFZٔ)[)moOh]     /,|;650?~ۻ=Eh9::_Ce+'	uȶ]m$Ʌt  S-.ok9OQ<Z/#X¡T*RxpGX|Ҥ>Ds3ue̺nw"X^2b_k
\
䓺6ЭcR[u]j?+:~n;"@x                      |f9)o F;Nwm3sVǞ;|ӷl#^Z)u5];  ~oǻj,_rOYglݶV՛:jYYm_eԺ˩JҴ %|Y5nU}ˤ<~Ffj·a]k;9k[;-Q)JP7   T5/ >S߀ɞxyXj֬d#H
QZEl8VBx1m߽&]P`  Z7ozsnc7W)9F6Վ*.Q.4|T,~ѽ. u@       O]Ng>c-S|Hi
?anyB{k=ϤQ+}]zZJx>=5C| 3]/ ʳ<[(%/m5FHN;}&bVUUnm)@.            DV, V^UX ?cwgw @              N}iq/>/ ]
Bٓ6'7R2sG.dŔ6sm|9nŕUNhAiM򕳝۵vF͜z.3
)]~KdlVۖ* JP; 7a?                                  bѺ5WW`djSsrJvR6`2snnܯ}Ymn({A>og#׈hUS覚cdS32+̮sަ_bUU#UUOe4٪f"!^oT;3f̪IVK$XOeU<FsZ7Rykݷ#P!Z֫,ieam#GTϽ7&;|Zi}TLQMޱӶ*aconQ=~5Us/ŲL$ð)\+XSSN,j65[p
[eYmkZԖ&]ܢ
]u1M4SLm숈화_bqx,E15UUUNȦٙD' 7<m݌"~Ud_<~_qoXJZY*֝KYnkWOU5U3rzbOmsꮸwitoF
<)V]U8jj(Dܘr=tQ=ݳ_wrO                                                                                         \@ Nn}n'˂/~Uj'{7D7v    _^a?Fgn#.|fehXj>T-)Mo      b]N~gcvnGa}Շ .[j6w %Ĉ    ƿ2)S3K>\.>a` Ez2ŝQHNlgLA]s0JRխ1H+Ku i9Uʶ2];=grbܮ$[ٳdBUs[3-}iD{n^Nΐ@              DՋmNpoV4^+m9jk4pLNfR.aXiu{ەi^)J sNM[v^oD~Yrk{I?"\мSvmzպy܏cU)        52ݯx{$\bg	Ie|[8&/__TI_uҕ
@o_cM22U7T9R1lԪL̷f᳧0w8tͲrฮ+IN<f!3d#%c$턌sf>hWܚKiZTe  ?o_g oAF\0au}"#뮺몋F,Gu4JP8u8S{7cqݩɳv5zL[=h(,k.~*$Ɉ~Yx{Zچ+qÍo cݪ-սSE=Y+W$R'Dӥ}GK$Mŉe[A]r*A V[/˩^ʁi\ų{:^}b
&{v*åy-~#?`;(^MSSmoQ?/rEs3G`u.ÎEEۮVz!M1A+?x.8N/r
:u2Bb;Ԙov 46_W01!K:W+sVy%hԭҕ
)>wp+ڻ/:QFKdګs_u%'f!qIY㻮t8[~Zqד'ONjwcM^6uXn]Dm¥rvLZ]}jԭ- \TuH	'ƬBgZcfJj:|ոwQ˺;QJ&D@Ňi	50ȹQxٔSV
pI6~᝶򆎯!䖹ܝġܲJjS> ~9Bg N{]Y}2Xl',
yvSO3QE*J:oQK<;/uꅰNz7{YfwV
plwlFxDY^K 0\()"dj/hVYȯT>S66/ܴ&a0Xs3	c3<?m&EB @Cd:ͺc<X6O2Ma|{edr,k "f-Xby%:,0z˼Bɳv*]}֩g5n ?E U@I>nGOY5dql<Εɱ|;;*=v;c)(Hl7ĺh+w
57v!">^pm3Ͳ|Yvcp̔ɢJ
]n\حrs/׼aV1U{ṞkGKBnrF]TҤe%JvUE;{hWպ p| r+U 5n ?E U@Lwꁿzgr/xl/Ґ9qSs2sUT$!m[}(sW[CqY53:mٙ-نL$mIl1Z0vET5YQ[l,TE2W<2^<o6qY4f1Gabqt.-joc5nU֢E9ȖNSo[5\ܫcKC9G6;gv[ɯ3$2,lu*}+}o_6sR8}ɸ>uǯj/ט#)f9>"i8AEn:#|W=nro`93j͙Q/t$t:]$jK
_޾XQa31lw<g^oC8	_Hd>ԸfRRY&ݫe^r ƙ 38_{Xp	m.pedp$0}$1SR;N
C5ӹF?\	ET1Ʃ|RnڹImWI5;C#  Y-g:;xHǽ侌&qIdz4[+Kl.-z8޴`D	| c"rPTDؾU 7옙=D=L
LdD.%Id	Y}PEo'Ce  ?o_g =ӽ,
WiWo-i[!f3`8.;d[`,R:&"9GO\Qt賷*j_uC   
OzhLSݭ2,U_Kbc
8I͔s)Y\ގ3YקKUۮv̐,-IK^Uoh|ֻ][}]w2wz#dohlHLI#jRA]=ӽ,RٹB~%7KNp^dԎ:i']΅4Xc˚^=jĩ^]5n ?E U@w	C;Oﯧjvfsm+>ȣ")[fͰWmFW&'w_Uiݢa..u!gt0e<Þ[[5e_఍dR^ZGu,![bwJ]6}Ǯ|aP{דIF+]*ݺ(.4춴]>*Nx8"ݵqW VOۨʘ'sO^Iz4N)K;ՠv37#rm)2=d)y9M͹|Ԓ[b3SxױLSh6cvm-Heno8RǑ5NWYK,Q;)u~-(<}QM=k@kY*75drGpMg!1N6.[UTE,hN喤²Ml&07?<9*YKi&m{Vڅ3|&&w*>vZek2>MVcCq
"2.V;)@3nݚ{|ᬠ%crfcr&b3(6Y8(iGpn!Mm4]D.JBz >(7Ʈ MAükZI]'Z uCg,㮁ʹ5QiQKc\-_[T%hǹGr,w4~=8$3=fV(RyXխ5`Ͳ*8vtVЀ)>4nsgy[Oz;@k~,Korm)f-z:M_/`m%SY'*kjVI.)s6(3PusM*Wmo)n{jb ZƙBzun}Yг]Cm*\KQ%'tc[DmH%O~I!8ʬ`oqǒcu4E&,+kFI8IR>IECp>!Ω܂-ĽCxi/	cwf?dxlnKZlw]Sj*d(Tk}_`Cպ p| r+U 5n ?E U@?[og"PVYȯTպ p| r+UPf`yÜ}uэg_򩆮T,mK(b͗mDYj!:;r'LrL`<}˅sˠZݷʴ|i6l9=
pj}|je ʠ+@7~$pj<\:y~ sl&7g[$/ykZ!H)Em]RvG)32%lMDb'WZ)c&zUNۓi}#?
bZ3xa\7߹HA]ʹuH67fLz5Q2lҵ`%,q[+ǭy9-;0(1}ui2Ŭ7Ҏic	dO"ߢk9UmQ]6Ge9Stg:f}S1\mz"HTܕrMZzS'P0'Gu < OoކYsW{T+=d:ȵgc^Zby=9?Cƶ/'Nʥg'Oч!8'&2w+Zeiijd]e9xGWMdEVe JVۓp,]j~'.zt75'2k+ͫnYe@.itQ}T)xsU|j=@:
ӣ8bN-amUoK]fCfv{NPŪ=IF{DknOJ.W-ko哌xQ~.Rxe23"vZҭXcIZJ.6Ny
ӹvHGqM퍗'
G/7s*G0oU[3mekK,M;im/}@~1"q-5
5$2rh'ovcH*=Id	X[m}Vc,uMKÇYƻԱܒ3*",+~dlZwmIdJԭjQ+Jxt|oVYȯTպ p| r+U5ޝ}Eg.z.@uҺ{-Beɝf!6F{7rc$culrV]UEF\RGznܕmjG`ᘦ> 0bp(6^ǗU{#rWV'g

o\.nRq;V~7ҙ$?L+LW}%Ihhel\Ͷz
YJP˖ۮh\t[nٺ\뮺Z(-V`rWA 4
2-;?pM=daf9X!qz=HRkcQ:e  VvWK7Zto$<GRwee('޷S_HER+mJ_Njh>#η<9X5k=oح1yb%Z5mjTi9wWtukʩTv(5n ?E U@X9_1^Q؜J?Zd>b3k6c	ibuNdOT,r_3ȝ3bzc5w>VۨMD9sTAdoZbIZY@_ƭ7賑_uM,Wm2.W[jY7scI6Wb3(ns2?Q0xm
-WٻLVlbw2gNbYd*U=r5KӹDTIU/l}i,S2 dm˲ƱԪIyfɢSSuimVBϚ~Y|5r&2-K>X<޷'F ϲ5Ws4*[+mj"kQnpd\5Aδ;Ut(YdZVu+ZYm+ݠVYȯTպ p| r+Ub^UNy~?o0h-טmdXⱹV8uLf%geVMN<rklU־)pl                 wF|zy^\naIM)JRxكwI4Bredo#^#3Wݢ=UOiڪLD󼯧2sz}{UW戏MUU=fyPzΡ2%Y,3dc=V5hKI2mvЍBkZ}AiQ{Qb6|>mS>ܘUiSU3MF6GzNت}GDiU̼[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ~	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                                           *ssw?.f\~ xm*Q?3߾1j!    xa}$W]mﺴ,kZReV]~cl͚Lq&{"/QmYJKz      +s? /u??tT -$F     -ߐXG5JXo9w>^`  Fwo;å7w'N]dSR{nE[D7JWW?~VX\'ݻ#6ݪ}TGsE N۸,\۪%E=>nGZed             0/nEo^G^õ;ưslZiq(dպ?췡m{qw=ʪX'etN͓ֺZvS.lٙiTZ'\m씵)u       ? ?ӛW52:%['s3^}%b^آw}@SH=KR2ov37nUE_~=jѤkM6v	ɦ-ұ8ӾEn0b}>)r9!xrW)n_F_(KOLO֥]_f0_+lRשTY}Yjmm}R/Rnk[nkJVFK.WŮ3..._ˍgL\Z
i%{J|#q;q{u}}JS}mЩ
Onhu ʦpq9ݲ,ɤ 퇂{d\Z5,`RH,$VQ;nM3 .)FিSk9	\%k.YfUfm;FX¨BNUrG\rڹ] D94ٺoo,ԫw9$֗Z~ZWu*xg͝ђrOVWynG=a^HmG94iK&/eҶKCvD<ay1\Bv212ϧ/c/t2?!e%ezͲ}]kFwM݇)E#ݾɏ} ^Oɽ=VS8X!0 v+uR 7ۃ]0ԕc!P6T9W"GS9o)ƮC t>JFN^q gw~s.nklrXw'֬33J9E(ϼv\i?t''yǅbN{-%K'q	y4;hO er>n7k˂[`.v 7{%a޾w+fɬ V MߴyWn4E{Gaj!/'tf]_v(,m+[n
/SEFQV׏1)}%+$SkvU[kJJT+jqn}$>MwRݖCd˪-1|ҹ&0'xK^pJ_&C%n;sJR_Ohml6;_yfވ {]3)ϛ\<ܷ7AOe]Z֔jU<p+4ndKǍ&dcbnɳLB9
6SoUU|;׻^0,*~- ׊p_Hx"?_pqL
gs)>ߓq,riwde](Ju) - 27q#ANޏ߼{/ƌαfaEͅ>R2v_80Qz+VY%m;`Wk%ߑ"B67[˼'q$d\#|[Tn375Fuً91xɒj,'/G\dΙKI亣6Ρ!rѰ/\dv\7hu]u Zxl,5	~?>Gۣ^)}[9f)^:<ԥ;)O	R  2W8;ǽ]\IQ?;!L$ުV_nZMtgu. pz>[j<)׹CsY"_,9^}'¹8U}[H[ձ흠+ xmqM3\]l|iEfl'[IDLF76v˩K.mT,CEc8uH'3J1u`v޳37MٲV#o*'L5{4re G' y-O><uf@I  "6t<+]\r8ؔzt@?Sdhޣ͕Hp.v:***x{Lr+z
venEWMśnY}KiJ
/wc/gk8hhY;f.,[V_}DEh\-[hӫGձK=~Tgk7V[)3dh{,7-5-Ew[sWX48N+
p{VeX%rH޶%%e)Zr̤ۿio
6v>˵.5^5gkyJQ]N>2HwTܣɘՐ e@Nzo$m=l79AD5nYlwOTwun=wmVX{YuhY:rU ȋ#$n̹re}*|B6M7dweo_޶,	|Je72[4ncSh]f[`½gnab%Ub8H	K+r9U`C?,ʲ<*s|eGfYU2N{#d\Lȹ?x__zֿL3"फv3Q;8"tܠ7oFԥfgmMTۭX+^9s 4}8>xH'nqHI9E3]JR_lݍZڡ`T
w'ojwAMgqNd?}i@\f{dkE!ql=Qw3'c87ӯTAHxD;M;n2Ά}몧9#'ime5ӷrZ;ga|7&OzfGoыKjV_}2rAuGҋb)_S?&:}mf?e[nQP@xGA~<֐ۋCp9uH3f9ӌy>ok`z
TFԵJW^zsqwmf'Z$wvŞ]eli3S	蕯Up	x9FYnp)zwuChMj]vH̿[m]{b)_zj21,&zͷ[owWvGwC+&ooOn}oiiNr pk,?[Vtl"bC.|~_䌂!^OGxTo0&;gD2wV>jjY.ai5'FDOƧ+
 ,.tճePА9,N9D3l! :t).JNI"ݺ6^m[[J|)~w8oʭ53-ǝ1DݺpݛV9!k.ݤvUn)enjܡ
%^aS"q5u$޾n]zI_f+},Nj+}P/[_Y]yT`mf8y
[
yYBY<mݙ_3Dk%nMpI~;z/[߶v":KsLLzj=Tpz)MT*.?DXUN{G޶@ ZI͝
4g~HμpK`K^6̵;\As{!-+\ޥ
N66desdҊQI	)u5;,im3')Z[Klm)m)JԚioj--ݣ;!,}䓯MEMdr+/TZ5EE-u-AdYkJ:>~|' 	
Sslr+bi<kĘC2,ٹ6h5ŧHҾ݁&Il,?<-)ff;aLwWɵe"}v̟ F;e=K7fgh=V]N ڗ_e#-uwxtD̟u[캶׳*~#^km%c|uiq9Iǽ[H٬Xu[LN2$a$$䣖Jqe]Hk|w0Îs6-#wQFS
Lzyh,;)zmnRvNÇ$t$=O^FHOH sb-Eoreu)JҠkò=j
G|gZ3xv+l#T~B;1coKr(%)}RP+9+@r[}XX>JB?{[e93V֝JoYYn!k-s;m,%'6	m\?,ȧ~FR9r=E-$V*jy=)l/3t>ZɬWj$Yqgӌo [fQ+eI^pS~
n)\MjZcǭVwޕsYfɓa}-I8LtS*׽ZնJ;wsVt.;P.K=`Q?P?ӛ[Is@5^ksL[3-{XWטid6Y1[c%92֭V6AKw]mk@{<1nmym6v廇kYc;YvklkEUʮ]xViN۩J;/K=IKsz*]sL1gJijN4˪W{4~Lr
ӃȖep|߬c\+er.yh
?M*{-3w/س[sdn@H
|B%Jnog6IMZCM&k(U	O#d[[˩jִ{<4.9
8q[UgzfzJ1ZZ/<})FXVmlVa0.;Ytp7                 bѺ5WW`djSsrJvR6`2snnܯ}Ymn({A>og#׈hUS覚cdS32+̮sަ_bUU#UUOe4٪f"!^oT;3f̪IVK$XOeU<FsZ7Rykݷ#P!Z֫,ieam#GTϽ7&;|Zi}TLQMޱӶ*aconQ=~5Us/ŲL$ð)\+XSSN,j65[p
[eYmkZԖ&]ܢ
]u1M4SLm숈화_bqx,E15UUUNȦٙD' 7<m݌"~Ud_<~_qoXJZY*֝KYnkWOU5U3rzbOmsꮸwitoF
<)V]U8jj(Dܘr=tQ=ݳ_wrO                                                                                           ru93.L
<Un5x     Vۭo]eԥmiu[u;m۩JҴܩH}+     XS7 Xݧ~[dua ˥Vڥh"40    m>?41̊T}=ϗ+y˾ϱ4|z J:h۹N&.3?gqVV#Uw`G='ms̳fo]eִӻ] J:WQ2򺻶-chٲnnSKGԬ\^qv˶E1`*             \u[;_hSkCs84ΦIR@c0.ݕ7v[_z*yqo/ښ>-kTGTǸo.SD׎܊cSQE15>1+>8Ϡ0,m]xikU>$jrI$kr6KeYR.e{p[oe)P[هX&3I c/Msv(LovM{V=Nt]L-'fɪMuճ\jsmS
u         Ӿvg@uns.Fc?-ykza!՛w)Yck䮺:BZ:IvA@CoMAtKkĬY]Yon
tDf޽jb*A5rQ%}`o˝wb_ܛ;۟#g.N=RuKum8Zֵm
ܢ~ͦll&rXkٝY8=.B	{ @X\F;D;A=zlw)[ZId⬳l5Z)-e~wEUg%yn89tt(_ZL"'7#s
^vvD<q	HJb|[ݙD#8j^w-J߻o?}>8A};''@|cPGF 
_@Yԫw߄nvη:/m阞23crmukF6I[{/kiZ}(z)oh;Q5NXtS+URnRvh~	cK]^wѵ_k΢en-klU}oWԺ\oKo^\``4F?Y}F#Y˔m[K;njok\̵܊{Z}Rz?Y-敭SE_6=eU8 n}%gR2oj_^bѪwn]]3U{<t,RuQ6A8YQv[M2	EWԓk}PMKl*
k\۫Z'o`D
agUXe2mճd'goe{;>/'Ǯ}.fHeXԚDop:X RڭQE+u|J
@:?#""6:-xĠ[o	[cm/AIGYm.rׇǹΐ eT}?e ?P8G<hb8 ?
8ncm.5?4Fg;QW9
.2zd&RSk%Ʒќ[:Zt춗V_N,p}U o<*׶M޺AX
֧Փ߽[wv+υ`Ǐ]}ߞx&Ǣ&w&"v310N(+4oKW#eUVQ4q:in<8X-
9vsxiLZ'+g;NcŠdъE j{A,QRsqА&ffBNVNAmGG0h?|kEETJִ8-|N}v{rI,R|2E\;pރWյJV׀  W_1ֳ9L cu*cgua]@AV麖s7EQKi|
/J˻TZ&)w_b+D;'hLR@J{j
 %gql<E-u 7ޢYp#?E#uLu;k]2wo5	fr5u|FTJĪ,L($}ǭ)rS~:`NmҘtXE+mLǤ2WSrV^9Mܒ_KS./ݽ_NWljNKMjyw	p8SdJqYNtv8bK.RRZ@  ~'χkԯE#I<Ҙ:{[.{'0(}cʣ {6$l]:rg'0MqkY'Nvֻ~͙6%詬z[r(7z޶:qOnzhޤZ9O$R#+WnM6,KV*/I|4g$-|gvrq_OR?RyC]y'UԶ=
ɆQuƑBL|K{Km$X+#,aŷ9!hKm t<5	ģPڕcUQ+߁r_KxIGjcr3kثd?S5ȣK\S^'z{-Jrgyk}J|QEejݓ'jkws<fwh
7@#P [9ϦpUrAVۈdS.Kc1Q;?EdM^	)ڲKd
c /_7/3>](0 /^
u{]_	)5Tc(܊d2Sݭ/ K{7o#lM]}%~tL5g
'^+|"VȽKzpޫNcw'Pw٩ۯsk6Rl z"܍[YeSC&B\-/6vmV
*1x[	bZvSp|ei)psc?Ԛ/w Oc8whWeLoGej{YTZ0/ƿoq뻊~opg?@@qym ѩ@
 |%ft?ObaW'\-5qcqrl~|I76ނ;iK.+NҕP&CO}:re:]uEYKܺ7ˮ[KJ -)uվ- ՟ו@V? >!WyauO!5{i,շˑY|tbqS5,Z-[u͒U
&sվ97iW4S'AzUXQjYOC	|Z^ir "ov8v ĪN'#OZ.Љ.#}.tc1$v]=?n-O7v0񴎮8.B
.`fD1.ܱq
-r*`d$~
Y۷2M|tt||PO䲌좐nv_mܖ9{ݢ F<|51,ݦEcN6zB
G-%$gzۭR Et%3kLY|Ef2f%94$WxVٌQGOU׳K-Bi;9O s/م<*ӲMAYj
/Voz!_zߣGQL폙F9˲Yt۴-2^le/ZAz
Z&Z?w ۇ\|.?aG3p"/;)E<_vk`+y e
s3-2Bw2g-i!ݾh3Q^uomYZcg:5
Fr\؍ZOmdO1k[JwQo[}֖#Vt.;P.K=`Q?P?ӛ[Is@7wh:~ ?9s{	G
9]f짱l{j)t6t޻m|7	[)KUANyKkKhT+ iuoIKM#w6!nuڝ G-S e ǿi4:fkWDjFY(ZwT[ |w^.R[ke /95PJc[nFlDH,7\o]Uj^T S~3d9!8='~.P ]r                -;YqY{o呸^G)%77$e)JV5mgy̜ěAD-w+jv[[JAfO;53<E}(T)LyYwW{9oSc/Oz骪cl37T3fU$%qsc}'֞#zfsi<Mz_TkU^ϴH206s#FχZMgޛ-4>ji٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv/a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                            ru93.L
<Un5x     EHKN卼:5^Ȑ>'Tf($/iRv-)RV1*/Q;};hU3ߐidx,];;pktxX     V%
7i j_XU~#gy_ 2Z,H     [O k3"3?Osr}
&f  V <pW$vc휩,]Q;gW&kuetݥ-{~apo3]U޿[ D{;+UO__]kv͌eU=_jI            m׺s|M|kJL8mXkbuYuKJ˯mS2̰>g^Q5\rivf{=QDm^_\m-r:QM艪r"??6B}* xg;8[")Y>w<OZboo͉<JեH;N,lnk.'RH˲G+eDU~);;-Q;{쪺,;G4l.ުҨ4vO>omz"6M3= T          `uk郦3-::3c8m3"Wo%k;ڋL*2,iKK6dR%"ET>1x+<dz,nkOEJIMH~V"^)88	a#blUR]miZRY"̺|'r#O0JDc2л+;䅜ad]jխYeح&>:Og[HŻQ4URc[Ѷ,[E}[^H'^F9ʬ~Sښ
'+$>kdV؞om*OURKQr%}'Eqs_$έ0~3!ocT^ݡؽK-gFe+[o}p/  HI%wYON{W|@=)(N[E.}VwNC[}ޭ\ '<r 2XNZc<0^FwVБ[N[zI~om;'u
7;iʣ	']׺ń&태Ҏ/ib,UUn,hM#KRʽZCwnVB**PUNE/CFRmM>ĒYe)erç]f3N$QDWvG#3mQ5Ŝ+u~vSjVp@VlIQKC`ˢVBs#8se^DƧu۫eiJWu'0rubO03Q%Sk	ufFle޸^mr-3|3lcE}& (nSmGV5R]\ލ+Ǔie%,B} G%m/t:cnŐcܧ"8sllQ*\u(-+;)Z}Q(]Azk8l}|eL0/vЙD1[xB{th1wHnRN&֖|>0oG3?f@U<Oe>OTk i>X} /=%>( rˤnnxc|Ǚ7iz`
f}YcuF_7)}[V5;+e.(TZS;%s,Ml+d2X~S2k-(flW,ͪ(ޥSJm^ݹ1ݑI
4KdKֱ-=sur]K;%e[lE|?_Ŝ.qjѬIj-vGEvɬY7sESgHǕ
ܿy{wf  fYcs9[#3!r)UegI*VUJ i Jp
w滏df/(|[UY!m_}llWI^HmҖJP10Bt'^JcZZ-M߰3(<ڛc)6ђ/)֋_rb4첍e@() +2)N@ޓjoM? 
 V    Z?'KM.QF&;
HI&X;rG5{1҉3Y7co=ڠ5Z4sM-Ԋ$8MQ3h2Ëcç^/Fa&fVwQt\Зg%9ҫge]d%TUG,R5vℱT-Uk]$KtN.S tgUQ)ϋ6jږ魝Uz3kyVGnVQ;TQE)7nh v"jHVI;)mҖJR;(szG\rٜa.&[.j-k9O؊s5
җX9,VO(u&er`ct$kk@-_4~J\Ur3Qꪷ6t
pj;o^oM1[OUQ9C-=qj]zwR'Kff&*etJ|cK81yeɔc
h,U]V^]	sOIUҭ:6+rE=k}]P*~4ϾtQK;9;mYn뮺m~(Uq[I*tM`<՘贽/m=sx>nŤR)'mP"T3f哙̲dk%C/eSM?{TQʪe/JvRt;HguMIaq6"dg7hm;ޗlGcW
dUꥪ\MhB.]-x҃-4VII9gM?ɎgfooIiDY\f!h].wƿoq뻊~opg?@@qym ѩ@
 |%ft?OF[؉(mc CWРwsV, V^UX ?cwgw @ c^:=;4.Z0tbc(qщqmjE([Lɭ5[=%diM{ĭFl/Aޛ
׉ֹ[c )jvv_&Q=l۬
6֭ʹ~geC-l-Oz8qKNWN>ǧVXN=[mJ_m)u>h3	C*kfY^";|c!C2bpܩ(qGL]/3U4:ޒwZ^/RSNۯR,_}VmJu]^Rvc,P["\abK-^19إmNGW^})ú!?(;fٲP,1ǠqN+űhXs 5F(FCBCEIQQQSAtl$QN,Ҕ Fz _"a_X/_% ,q۟i*wwjn;̫zt[Y]ou4VR[KnY .|}V5qoeL1͝25.۲kp,JC4u?.'5c:VVlp b1@+߯( _e?W}:x~}bmߍe]Kˢmmkmm{iZ}
~/\&vRG$ʗҴ#/}ִy:Yjֿwu?. ]у=v7I~TIhpo]5=ȵ|Զq*ԭi}JRP"+Vt.;P.K=`Q?P?ӛ[Is@7wh:~ ?9dgW?+rno펥7%_= #'ŝQ2Ԏ\w"Z
*lӥnҁ`-XY:<+cNYg!us5YK1Ǧ}Fj&zT8~3d9!8='~.P ]r               Ӭ2/ TS;,k\NbM֠Ѣ޻4եc 3~y"S}LvTb&fv<;s+7XUU~hUSM1jWke90U+O3\֍g&ҔoB1ݽkZ>
 4(=GSb(1>ekom6znLw\ڧyf#clU>߃Uʣߊ"{jn-dIaR>Wʱq6.$&$XՄlk(n,ֵ-c1L	sE&bh5U33(	6X+uݮ)bjM13>Ok Gox
ٻEd⿣Chy&.u*U;+sFz?q.ѶkV*gŸv]qEލ
NySEެGpQ>1rz{f                                                                                              ϭ$ \pZeo qD@~ 3q    =)v2[O/2oBҸSƪ5=ε[R[5OS=f'<1\Gl-Is(ʹ&h>mv۝AH"     
ĺ?Kt ]*/l+ KE    i~dRg#|[]}ט,   0 o/zt=34	A+Sxx~A'ݭ;;kZiKaΟ;oe1-bi>!_<-c&-<jf>osH          :w~ؙ|?sŬ٭^iZU6*Izi|fVtڕ[zOcVyLvapEɉYDϴ+E~?֝u]XydOn&M{8vU]>_O{η}eۿ/dֹd*RD,RvX.*w^ڝyzIm}jfuf⻹qȨm%gL\ɽsgǫdGoU1=ͧS:weN#91W"=_#-[iuDJ&        >Kˌ[piϨ0fʹhf˳0xIQՄK5z'zm
]S, 9u>YgPse%f싖nb9ͽ%bd,$/gܽ%˩+J@ MŽ.scEP$s<c݈O_u)n|+E-/[hUճw}Ɯ	7={RGc|bY%u^*KN^9-QW#['
:{55Y	ͱgFӱxrm.VEKoAފ^pgdӗ}@4vɷVkf= Y7cPj0߸skޯJ(TR
{֚;{ڿͶ>pF&WI7JK_ȻM:]}'g{}J@<Q]Qc;g&״7b˻
imML|eT5-bYp/  HI%wYON=du~GzVs^b
$ڧr&$1<i`+mnU>K-m;i&`ng
s~w/e)9SxCdp8FX2FIHJ^Uc{}QwhX1qԒ[;lI<R}b73{/K%%V4_ƒADi7e[jxLA<E?ջ?+љK/QZ[Z~"- 2"EZ,s7޹d@\Uay0w3G*r{cN2vpp2O}S%X&V|rIѢoH]x[,V=6mmo+ݭ
97ޢ8 6,ṚKm]2+UGo^eؔ!S）R]JRr`Ј/X]ݐxI\ڶҖF"em;>mYI,FwR*VOܒ.L'QrMP}%`lܚ)m)eնV ǜtcr\+9Dތڵ]n%'UdVVN2sW
V8 6 :1s{q%.>Bۗ@0ɰm"r~V~Ə/AzѲC9Oe>OTk i>X} /=IFL?`V&UH&>|^~jxenMTu+JրTytJz]of,rVo۫+yF:g'u.EKߺ1?me0[TUW$ro?r٬ޘ24Y4õRj>:
5K<r`]Dfإܢihu[gf/b\q7fy&'3w-dRMN>Ҳ} p|66>yfq8=e 'D3k?|6*3Tu[7nM;,-z |鈦S2ix1bVeZ;KOoSܾ^qPon0hnY6(؊ґSɐ̫볕dͮJYP
qgt68'XsQ5ck~m]ad|%]Da\z&Qʖzup_ZbuM Գ W`4ep*뮥.ܪ,սEURz)}խVk^ځ}'~ޚ_ r   oF8Mkjb:cpw'&v3 ˢX8>.!*V"Tֵ:YJ]pG 7 R #^рmBJr;'V%e|lNCvo"㔹;a-NdѲI%->  I/_j}3: mm<^/=2uiJ%gݶIpUvkm%.-!sяfc2q2Uc#z{RˬHWSK<ℂ/TZFFŨ{SK*sʬù,
iNNTP4<	3~W&NbwR?pZHdnG{)cg,'5A5ze$cb&rR,2l;fl)*ZEVܝ-RˬmT~$_Mm3l]0لuc86C#d^=&5Y:mҕ-̮y3r2{ð*Z_#
^i"füQēÆ9)m'r-4<>,w6饽g[?i\dpOL7;Sj,^*IX\:broZnl5hM
Ӻy]F>Vq]OGLU{jE	N~)e_ԼnAE9U43dbc!u4k"ɩe.iZ(Nuʾ[cpz[qk=b=q98k,vBix.({j_Z~,
ώ㱍A짌sva9N.^Y8Z"m$iubꫧe[7N/#xs=g[M+	i[ERڻH\	vqh߳Y5R<uտ.-]guҜrʢ1(QZBS5#U/DT\_zw־	U|2Vu-&{rw6OތȳFi+OO@Z|]jO(`$R'&X/oGwC+&߯( /Qw RǎK֞*<޷3?P
 R,@ƭYh? .@:Czu<ISyЯl+kVug(Eo#1chʧcXUqED |z/fQy=lbF?3&k]12qY+q~UE+gluUUnY#Srf=Vbdd4fѲV٫Vb-7Fl-[JR(
~+fm5=k0- l
gƦXL-jǐpQ_ClL$mT[3BRVdװ+(ѳ8mŧ2u0=O˛EJ㲗Y)ʲg*%J+쾔v7]Fj9ֹ&Ȥw98l;.]KV~EoKukP,y7y{\N6~s_kc5tZb8^6y<n)\%FV^Զm
*ߛo - uic k5b05çLNc$r(Rҷwb+'Y,U;RnS9åE|JlR!{/={ں7Ե9A+cgxw(6b֩e/f1&q`$MN?u33'r2UAlk,YoTU캗R|_+ӚHwIcGdaq%(sld~C#TcRJJtM;@[ ~GuSWۼ[ֲXu!ڵiKokndPovP"^ztS7SNyf5\e׫
 1wYvwrqUY/ K)N1}4gvB٬cG0pZgU'	W&BƌN>
!eL;~Y=Q5&+#*c9޸Rq{ȷS6k}JdÄY((ѭ/Sru%w_sOw3
ƚ_]CnUVSjN[E18j/S}	~Ǿ Vl*'ssw?.h=?mO2ޞR윌 6 !%soSTMԠY'j~zkpCt|mCU//FWαHi<ə5kޭV<%ir*)mLwPN%n3Z:sv4j?l`>t$mZܕnv,݉:nV]Ceze`Nb9#86(bfbl7ZQR_u
Q[/6;MiX+=!{[nM>&
&jM<^UnVI;nqzE
eM?
 ˮ              Żt.=k,pn70$)Nǵ9su4h{M;kuiC2ߪ3{9GfFgEzE4U;"+;g9le)UU_"=5UTSLmb"@ꁳzed>rN~5UJmL5e.m'ɶ)[ЌBoZ֫ϴH206s؊#FχZMgޛ-46i٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv0a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                              V[jl1/rxvV5ʡ7_z;ZQJRh"VW)ٲ2tzvn==OgZVRum8z6vWvOd    ~lg9UNYc;VZgSfq/#qY a([0;Ȩz)#btXer u\Anc`j\3ȏfUQ?&sJb]UaULEw"&3Qr橎͵zbR9р    	ԏrs+{[[V}K|zn}綌\Vۼ'M^춿p}:})z(ɳ\fX\ͻ
]DUOz=TU}jre={ڙuieo8-FW3LkMQ=ʢ&=jϕ^pnctg\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw`+Ţߥ> =CM_8ƭܥzᬝi޲뭯gm+Z}үhz]5L?*V뵃jlMbcLS>Kј  8+Scb6 kՏ Ԟű$Ih9;\Uݗ)c
euj&M]ԗbuQ]}˗;hU4ڢQL홈By]tOًO~uU"*UGorڻ{"&eqU*8|13wLw kX> uYÎǘ;;<ծS`Agʿ8{_ctgVNqU*8|yўscc-Z;=V|ㇵ7Fy kX> uYÎǘ;;<ծS`Agʿ8{_ctgVNqU*8|yўscc-Z;=V|ㇵ7Fy kX>!Zt(-6+}-ǻ7-k
S ~QDNo5L{{n#34Vj)+b}a6G"Yo
D)Td]wwV⹊KvR+m_u뙇U8c1gb)o\>
DOu1L01Zsl;=~jŅ3{Z_sgPRvyg+#m{mrw !g
ɊKLOŹ36_Hy?n&7v=]T{.񳣇O04d^Gx75ٓ9ozje2<u2!.ܿz]771
n8X4Tϵɦ&Ι};jQ軉o^LST{**튨L@l,m)mJ[mNmvR)(D33})R#gdz          rf42<;%b9@9jպOGblQ7l(ݕ{.Musrh/9Q3f2agwTE:(W[:oE5RMKn㿅Ǯb
\lz>[
se<3"w	 	۹PFX5[btKJ'oBlGuؘ&Ȱ2[ĎG#`7;?4b%6(lqc/x-].@OTޕkà.{ѓw.T;du twT'U6҈"mQ<lGLy;ǹVk&j9_chc;G6kcQmv"i;v_rh-^MЋ rLG$-ws{]q`d\LwFhɴR/F7^4NܵI`'Ï:^.#9;hJ++BINZe)-nnYVw\͓vW(@!mPtrq#+ᆁe:d M)>Dq(FK1V nO}ZRqg&xy\g=q[kThO?ܓ15}%/=Jx2x~ЫK.MKm;]e]Ju[u+mm{+J
:'Yn顛kvu< ՙ)깒c36pCgk{HJGigcե_LAac驂i㉶7q6FXic')eqtC(XP5UFE7(WZ6 
N{w,}OrKWVSik|aaPpNri|jتz;}}.)}ZG3 << P@twOk3O)k=
vf̳'91:O5ًݿer.eS4nk[j_hYlo>[ 'w
̎[ 6\NH
| à>l}tZ*"Ծ9A.=u ?7y˦.7s퉺`Rr+c4~6X5$<u2zog[Ł7^|ٖ޺z?qab2Wm/a&Ŷ8d`46U%MKB-&ȧsCylZY;U{l6xIO4z~-M:uU] fIuȃdIOK
`,IW1Ŋ#m{U;Wݺ Ǯw cӷwJsTܣ҂ƾ|m$ޗd:1ͱޓa2gi{jj%zɯQwsaטqqK#_|[s&u
ND
'b Vx+U,R5_LAkw0<Vq#Z<8<s8g	Ѳ#ex1+(g1?'K,wR+m
}M1}s؅s4g=1K(ލ#%PRMt-UY+U;/ ญs
~.27PܲJn69>MXK5~ĵ;\]mp)V:c<Fw!kl@Qf8Rj FUJKӭ^3]Jڳ@iMnGt눉,W6Ƶ˲GJ>ѱKYڢN)pY   8mנcf&1:@b\b$1vx[3QU/hc%}mm 	qOr*震|s3i[Y#p2O#zS.-i3 << P@?Ǯ.=u ?9״m_Yi_il\_+,˧~FwA/F?ǢhJ)uT-;   >r$7vR;cn9=g3i9X,
z鍧0N|ez6nGj]=[+Jw ]#?3\z  7T3~{8Yj2+ng,t孵4̓dڒnSAUU/m[`Kޖ<gE#/={**	9٧cXvnm-.ېP=|[^~1ED&zoZi<&H֗)k[}r&`4%UJ-L#mtd.Ι{l7]%|ڋ+ėl^R{d}FѩRR@Ëԯ|6}g6
ǬV9ICf<[Tq~~AQUR)}\'Ǯsm~0y=kT2̹m) ]㚓 V)17k[۪mIYQN/iXq@c?55NSzlpEIU4ɲǮ$$]V(*]mY[l8ObY+2P.1dI8sL)Y3kmf|\ZϝV[° >>H1q؍ۙk~Dhȼmk~kWeM+|UnYC 
 @|p먫>R󛏭ûU?jhklgM6Vn--s*H$nа\u68<oK틋9e7H-h[iVd؅](r=EoYw[OWCV˾ҼRm"˴t_K]Ko4Q޸I,A-7 ƨEn~]#?3>.E[՜z
89vS[85Uc#*kcʨ4J)K ˞&ڋa>Gz1ۘ˩gA2v(z:UwwߢUN/ .=u ?>twI)7ѮֿN=pvc/In,  X8TQ+Z"7UmuTO$x-Ci6g3Wx~B݃LXjoJ/96c¿y\*!^9g䏠Eo1-Yu{څ{t1(O<ǠzCV15J4˶d^eJm[m+ZJ?_LA%㣏Q\;wsיr
qdK#`Z&k
NO|.&ʫE/NìcKJpT0l_ҝƾ|m8$&;K1q>fmj<һ%riza?qg&xy
 \عDb_;I|Zsr%Z#Qk e; IH,&[9'Cf(ǭbDg!{ĮR]jkҚGQWaWEk_Vj!#aDBܳ^J,pUWQE. uEK̬t'*i=ѐ^W'1d~ͥ)m$iG}e׶ւRTU\(&g-QfߌoYWd:խQ
9*+
X-/G?1o=o8T![:yN$iuIyHF+6dREe.څ+Qc<Z{Davw1
-Q[ġRĔJw]J]weկݯ__VS<tu
bӇ0ϕ\b:;]
7v2?'pNb^"U+ָa<r[>NiN!/ӌ^<q68[lw축e  ˾qS" )5tq͌U389;Oa\gu|tV*(Q"@  q|g#7!=rmW.
ĚR)%Q7گ5{Q&E,<h߅
%vl9-ĤȢפih+<(7AzYu(v_m]#?3x]{|h
kuӟ\+6ǒ[??Gd9V%#%0w T~JD!Ku}Ng]_dz#sF2
fդEU8)2MG4YWeVB}u9%QjFIfck&c{1{ mTڊ;UhUt:75LR(n~e񅶬Sb[2<}| :"K*񍱭uҏtlE/RuESJ\(Wcz;bϐxDvԛJXd.Q/'q2MFB"l$.eW?8fg'5=߭N"H3u˸b(=n?#'el^JqT+dwvܘrk\z  _LA Fg;Nhݥ~3{F o>@^.Rԧ['PoYo]cr3wgdϖqLfd;+lF"Emrv_Km7F ӫ:p 0ٮr/{Q:Mc0ёe}f¿iuh7fo5[
Y|ecc8wg3$4`߻M?uSE>zqg&xy_OGOߗ<h%N042^?!uDWzkfy	=YѲ~e[uRx9nIUycf<s&w]捑VBۺ2C]jV7I7\eP yߗ6HSUozޅmOuՄj<F9gk6}kUܛ
[uE]=y{ӣ=2u;m?3gdj}#t̞<j9e3*͔m^+/{[G,8N)e(^=]m o             [wNֲ7#pRJnnINR챬|{[)s977ZF[zWӶV= 7vkfxQO窩SM1US)+̮sަ]bUU#UUOe4٪f"!^_T7nͭVK$XzOeT<FsZ6RykJR/vj,H4(l1M?l}ڦ}1ޫMsj暍lT~kwgeW*~(񪫙-g$AJ^O*`ظqcVأoR,kZ֤a2%~>pVh뮹iclTdDGḷ&`wv)vE4v!=l7fa'%\b|FmԪRV]2+s\u8FٯMX˗#{m۟Uu{Mz7l59yMzSTvD&eˑ뢉s|                                                                                               
za7aOQQ1ۭ_Yb܊r]}NNk뭥/0vv\ڟr1Qrj?>F1cE?
TU? 5   c\}1D뼏eg%2CcpMTZ,Afhiz𺏩+:k	QٟLSE1ET쇳wVAhDz;;)]sM1c=~]E~C<s6>"V3ME-Juh6w&жZ;d	2v8]Da3UD6ӯ'k֓F?5#
nG(צ;T[6m#5jً-fɓ4jћFZf[!ml-,m)JRW.WvvfLٙٙ홙홟KhtEqۦ"""6DDvDDGdDG}                                                                                            a>I|7}\KZ5k*&a>C%ձK)'6K}9];-뮥
/w6̷;bH-J땻2| fOQU,F%<;ku{v[=xiw9[Q|<߶mV.cnt4'Ҫ1cV^ۭmօΠ                                                4_;S.l-cWٮC3MW<;
8s<#:  {غ Y r+0{TK9  |E{FPۿ1{f-ڝ2L 1Tmɲ)iU.E-@W?	cqr,^6UYcYOϜvҀ^Ɲ`㎀ڍ='6;ڮ@Z҈܍֖Vwkogg6             bӺuY7Y\jSsrJvRecKI4Brdo#^#3Wݢ=UOiڪLDǕy_New62{)6S1
u@ٽCvmlX_p'?F{*i6kѲ6]ZRF!}[kUqgAFeglEF#gm3MɎ_kTO4ldwt튧X{[;*T{DOvU\űl8 :
W'yV0x;Ĕē`;xe[Zֵ%f3	a.c(D]uSMf{"";fea0~&n4QLMUUUS)#fg	t a7cY<Wy(}-$ߺ[7w;nRJenhGy[8A?Uvz6~jUL\n;hѼ7Ca3h՗hUN'7&;.\]Owl㜓                                                                                                w7
HZmg5:Ev^-}.޽cTJ]m;kJR8GJ/GE"=]=S̸ʽRFq8*O&~Sܴ ۯm]uimJ뮭{)mmkZֿrf"6Ϡ:z߼eV:~CI3;Yt7&f,[wvBm*G9AZ-o2jw-]%2yPӶ&[5ӹLު?ص=LUv:=i"n Bb3mLCW}ioz:Xs,n[7.^o']KUvA;$mIlN	γ^6l]N+)[~%qt?Vڦf{k:K;.pnɪcGƹ\uLvSj                                                                                             <u_.z;&/sM3Nm<kd)qhuV#"bvLS9%DZ75'IޥS¼!=S ~@å;otʹ!9탷?z If'^dٻI9l]k+Y;XKnU8D\q0                                                 kgȽh-=#jx9[)q̂S2ǡޤJ2~CemYh`pȯľ	'3LoUĲ5ƫ^xƈ#omTR-[D	tU8k\{ZO2Mv|PkѲ6fI+7MF1%^<ֈ7U;YQJ            Ӭ2/ TS;,k\NbM֠Ѣ޻4եc 3~y"S}LvTb&fv<;s+7XUU~hUSM1jWke90U+O3\֍g&ҔoB1ݽkZ>
 4(=GSb(1>ekom6znLw\ڧyf#clU>߃Uʣߊ"{jn-dIaR>Wʱq6.$&$XՄlk(n,ֵ-c1L	sE&bh5U33(	6X+uݮ)bjM13>Ok Gox
ٻEd⿣Chy&.u*U;+sFz?q.ѶkV*gŸv]qEލ
NySEެGpQ>1rz{f                                                                                                 G1]ͫե[],+8y6RLj
ܱ&]u;)[W)jkl[= zTC?ls>6Nv.}ew?3e<;O&ϙИ8.mi떄ָBj
ޮIt6-ZI].jZhu=#xz^v(]6[;6sMʫњy]jzٵ ^;{W&;iSqC$N?ʚ6܈icwtb?7JRԷW\핶'*+u^Vާ V0uN]manݧ .ɯonDUMsLVm:hb1GN)KU[Nr]랙] T                                                                                                                                                                   -;YqYepe^Ʃ%77$e)JvX>=̜ěAD-w+ji[JAfQ;53<E}(T)LyYwW{9oSc.Oz骪cl3/T
7f+%sa='V#jf)si<Mե)Jބbջzֵ]w}AiQ{Qb6|>mS>ܘUiOTMF6GzNت}GDiU[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                                                  1>XSIS0YE,,!jR)ZӺ!:owm+bu+J҇ә+P`X<Mǹ3EQWv}UDM5~Xn1y3 Mjfz陊o)ѻGݙ'çfv3&V7~rO/udlZ^L[ST\QdΟ߷o#nUQMb)鍓'U5gzrlܯ8ڢST4M13Vُ;a&d[W\,o19j'#wv~cǛ.~Ţլv{-e 57ɴژ)Jg&p ^c.stT9/=mMSWԉMs(R_j2]70|i`lV)4<zRњiأ޲][QK뮯fgcf[krߟr=""#cܯ.ɰVܪŬ>;)nz=ll{8                                                                                                                                                                   [wNֲ7#pRJnnINR챬|{[)s977ZF[zWӶV= 7vkfxQO窩SM1US)+̮sަ]bUU#UUOe4٪f"!^_T7nͭVK$XzOeT<FsZ6RykJR/vj,H4(l1M?l}ڦ}1ޫMsj暍lT~kwgeW*~(񪫙-g$AJ^O*`ظqcVأoR,kZ֤a2%~>pVh뮹iclTdDGḷ&`wv)vE4v!=l7fa'%\b|FmԪRV]2+s\u8FٯMX˗#{m۟Uu{Mz7l59yMzSTvD&eˑ뢉s|                                                                                                   q6|;p缀Ƶ^jqf-(VEFf!mp6Iڲj1}Wx
8e$6w[j{=}&ibǅ霃:FynUM1ݎ4{Tڢg}                                                                                                                                                                   Ӭ2/ TS;,k\NbM֠Ѣ޻4եc 3~y"S}LvTb&fv<;s+7XUU~hUSM1jWke90U+O3\֍g&ҔoB1ݽkZ>
 4(=GSb(1>ekom6znLw\ڧyf#clU>߃Uʣߊ"{jn-dIaR>Wʱq6.$&$XՄlk(n,ֵ-c1L	sE&bh5U33(	6X+uݮ)bjM13>Ok Gox
ٻEd⿣Chy&.u*U;+sFz?q.ѶkV*gŸv]qEލ
NySEެGpQ>1rz{f                                                                                                                                                                                                                                                                          teǭen
Fxܒ)cXR2snnܯ}mn({AFog#׈hUS覚cdS33gyWә]9M=ꪫDGiTDBP6oPݛ[,.IцʩZxlͤ96V+z_VZuYiQFb:D+[{iLrcWŦ=S54;b6ʮUQݧUW3ql[$2H,;U;q%151$Ƭ#cX5G;pYeֵIkeK},5]sE4٪ȈٙFL&'[.qMSUUUTi홙B{]?|#n+'VOJKC7w۩Ti[4eV/Pqut O]_US=.G-۷>v,Fo
js.e=USMɎ˗#E5x$                                                                                                                                                                                                                                                                          Żt.=k,pn70$)Nǵ9su4h{M;kuiC2ߪ3{9GfFgEzE4U;"+;g9le)UU_"=5UTSLmb"@ꁳzed>rN~5UJmL5e.m'ɶ)[ЌBoZ֫ϴH206s؊#FχZMgޛ-46i٦XOvvUr∞?b&qAatO`v
)'5a8vۅ-,jKXf.\Qgf똦)6ULDDv0a18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                                                                                                                                                                                                         -;YqYepe^Ʃ%77$e)JvX>=̜ěAD-w+ji[JAfQ;53<E}(T)LyYwW{9oSc.Oz骪cl3/T
7f+%sa='V#jf)si<Mե)Jބbջzֵ]w}AiQ{Qb6|>mS>ܘUiOTMF6GzNت}GDiU[3àr|'cl\ILMLI8
lQ÷)mYekRZc0v?r8+4Mu\4M1jg"#fQ	mV뻋\SEUUU;"b;ff}Gv0UGM1|]ž#wycU)idZvV.g:]]?Wgl리UTeˑq=Ϫݦѽt6<YvUTᩪ;h}rcDv}9>                                                                                                     }Zz=xa
`##Q͸(<2&q#b`5M/Elẋ:z*LZ)G+˱׮Xɰ}*)TUM5W33ު)ɝW81;T^ͱ7kܦbLUU4Dwi{b6-׳#ʵQx'(ݢf^Zvҫ]N K?vZMWUXdUW{oLG׿
XvnQnia&GzU[{dFy6_ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uϚQp@<h&IsmÞ>j=G <{q'ͷ\{d˖mĞ>6p|9=.Z3ɷwx\uUP~b6/ذ82PP)cx>ITAI7p#%oMptRĮ/ۗHiB븎o_v;{U*M3TLFOիMTEV4٢5U&b&qAatO`v
)'5a8vۅ-,jnxf.\Qgf똦)6ULDDvRa18M
wqwkhdSLGlϢ  6vnY?*xPZIu/n,vJ-,kNѥޏ,5\qz~mtՊr=1n'ݹW\w`:7xnSgw.ꪜ55GmOnLv\(ٯ9'                                                                                                      V/zq'rhl?kkƹsnIO!<{9	8ƎWқ7p.!Zz}j.ulUe~6{Jb*DU4UTLLwjj'b(9Qrsl5kf*is5SMQ1=bf*ɍ}t">7G6lSFb'vhdc,)Z8h̆*ֽPS{;;{#mSr֫uvV5S助U1q V-ݛteܦ'q8H}q޿M_'>Uxqўscgr>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|A _ׇ=13wLwx\zϕ^p<911r>Uxq<tpǀZw{:Wknj)ް|CNK݊{JeNSG>g 2jN|W){vgrQFO7lۣ5o~Z[Dz8i=vRMѫB]'NNJY$KGjẾ)w ^)4ь)Tnf4dD/dPA*s@mw5&6MEHTOb.*ت rf R5WLLwꪪΨ]i?lګX&;;dgTWƻ4TM1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          GIF89a - w  !     ,     -   
      '  /  8  @  F  K  Q  W  ]  b  h  jh n  t  uh y  zh ~|   h h   | h   |       h |   h  |  h   h    |  h    |       | h       h  |   h |           |  h     h Ú ç ý ŧ Ž   ǧ ǲ Ȍ  h | ʚ   | ˧ ˲ ̚ ̲   β Ϛ ϧ    h | Ч в  ҽ ӽ    ՚ է ս | ֧ ֲ     ا ڧ ڲ     ی ۚ  ܲ ܽ      ߲                                                                                                                                                                                              {	H*\ȰÇ#Jŋ3jȱǏ CIɓ?\ɲ˗0cʜI͛8s)ϟ@
JѣH*]ʴӧFIJիXjʵׯ`ÊٳhӪ]˶۷pʝKݻn˷߿LÈ+^,ǐ#KL˘3k̹ϖMӨS^ͺװc˞Z۸sͻNU(_μУKNʷiߎܽCAyoV,R<{Vy>'_W/g`|	נD(gvPHa\^6$J4"%8z.(0RXh2<xF6>HZ2EMP^TV<bYe\veM˗&xdDp^tI_i|nnWVݟ&gz&^Vbj)v)v:i5)}*묜6s%Nx"nG믴*6Κ6Nb$2+,emuX(*0z+B,z̚v\Gv5f$Xp)la'3܅5g5WH<zlrt2x4lތz4#5:-=DLܬ%)8aM\wM^_1[^i lǽ1aҵ=x&
wwl `aX׈BG.9䍧n5i05i\.@X^邫W@/λo<}zļ&1SÄGM!`(1[zۯ>&h?C` c@
 ZH`,	n0t0h 
Qh#OA8a5ZH@bph!G8X!6QCE 'X<'"/.ьE.Qڢz8-`arczи31 P_@d(D:RE
$$	H(dzA+LO";D.L,V
r,g),XT*uIKUҗAe!#;(a%Xe0wTh4IXؤ
,lRS
8iaS=ӼEz0jl33xf>	~@
PWX :3@PSAC
Zt
hz*:R!}h?'ҖtzL_jEFhLmR205M|2*L3SN/U~x`̀JVQeMkX(Bȭ^UOYU&O*׼H2U=dCd'Q0

j$̖6,isR$lgK%A%Җ0o$٪Ǖ-q4ζ
HQoY@ZvK]0HPK"E"iCUvk]h\H/uk87ܽLXN0ᐊcH<XF,
[X2i,Åo	`,<ڐ0"
8vX7Fp*IL"HN&;PL*[Xβ.{`L2cH6pL:xγ|>πMBЈNF;Ї'MJ[Ҙδ7N{Ӡ3MRԨNWVհgMZۺըȵw^MbN]f;ЎMj[ζn{ ;             (                                                                     JFIF        		

	


 "" $(4,$&1'-=-157:::#+?D?8C49:7




7%%7777777777777778712720,574787674777248444,4774,444                       + 	        1!"AQt2                '          !1AQBq"#   ? \.4qR<	F 4P[\nQ|+8m<葍I\Ql=
(#Z
5Tr!XzaRO/SZDjFcc%,99֘v؋m0
è2Nyw{ҵMtj#t,$9W8 CDl:ٲCdpb0{uX<y`[Db-sNvW64YʥxWk]4
W'ΣZy"0դOi-,w:"I`N07Lҕ7h>W$fgG.[&?gxѰz>s4~E2۾8-GTP˝xIk鄞v.uy}Ӥ.A[
CHIrcocc s1M|^qMm*"q"U`r%
d!0b!   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                  v
           WINDOWS _RAA0XAPGQ 611472568.      U  ?      T  -  S  :            %  H2                       COMMENT RESERVED                                                                                           WINDOWS _RAW0CGP55 611472578
      n  
      l(        9%          
  
              
  z
           WINDOWS _RAA0XAPGQ 551465824[      F                                                             COMMENT RESERVED                        
      
                                                           WINDOWS _RAW0CICX6 6114725865      n  A      d1      P/  -            +  ,                       WINDOWS _RBR16NBF4 611472586,      t,  f,  N,  +                                                           WINDOWS _RBR16NBIK 611472586+      +  +  +  /+                                                           WINDOWS _RBR16NBLY 611472586"+      +  +  *  *                                                           WINDOWS _RBR16NBPF 611472586r*      e*  W*  ?*  )                                                           WINDOWS _RBR16NBTO 611472586)      _(  Q(  9(  R)                                                           WINDOWS _RBR16NBX8 611472586,(      (  (  '  '                                                           WINDOWS _RBR16NC0N 611472586}'      p'  b'  J'  &                                                           WINDOWS _RBR16NC4D 611472586&      &  +%  %  Q&                                                           WINDOWS _RBR16NC83 611472586%      $  $  $  c$                                                           WINDOWS _RBR16NCC4 611472586V$      I$  :$  "$  #                                                           WINDOWS _RBR16NCFH 611472586#      #  #  p#  "                                                           WINDOWS _RBR16NCJH 611472586"      "  "  "  O"                                                           WINDOWS _RBR16NCN7 611472586B"      5"  &"  "  !                                                           WINDOWS _RBR16NCQT 611472586!      !  t!  \!                                                              WINDOWS _RBR16NCUD 611472586                9                                                            WINDOWS _RBR16NCY4 611472586,                                                                          WINDOWS _RBR16ND2L 611472586}      p  a  I                                                             WINDOWS _RBR16ND62 611472586            @                                                           WINDOWS _RBR16ND9J 611472586        |  d                                                             WINDOWS _RBR16NDD4 611472586          .  Y                                                           WINDOWS _RBR16NDGM 611472586!            |                                                           WINDOWS _RAW0D4BHE 611472586o      m
  _  G                                                             WINDOWS _RAW0D720X 552114932^
      O
  ?
  '
          p                                               WINDOWS _RAW0D4BMO 552114932a
      L
  >
  &
  	        ;                                               WINDOWS _RAW0D4BRC 552114769&            ^      (  Y                                               COMMENT RESERVED                              f                                                            n                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      
wzapplication      ccaption
cicon
clasticon
clastcaption
saveenvironment
restoreenvironment
beforereadevents
resetformscollection
Init
Destroy
      Pixels      GApplication class used as a framework for the Application Wizard (5.0).      Class      1      	container      
wzapplication      Width = 108
Height = 34
Visible = .F.
BackColor = 0,0,255
cstartupform = 
cstartupmenu = 
ccaption = 
cicon = 
clasticon = 
clastcaption = 
nformcount = 0
npixeloffset = 22
lcascadeforms = .T.
lreadevents = .T.
Name = "wzapplication"
      	container      !Arial, 0, 8, 5, 14, 11, 20, 3, 0
      wzquickstartform      Pixels      aQuick start form class used as a start up form in the framework for the Application Wizard (5.0).      Class      26      form      wzquickstartform                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            .PROCEDURE Click
thisform.Release

ENDPROC
      Top = 211
Left = 285
Height = 27
Width = 84
FontSize = 8
Caption = "\<Close"
Default = .T.
TabIndex = 4
Name = "cmdClose"
      wzquickstartform      cmdClose      
commandbutton      
commandbutton     \    C  C                        9O   %                          U  M     T        %    F  T      U 	 LLENABLED THIS PARENT LSTFORMS	 LISTINDEX ENABLED      T       %  
6  B  T C      %C b  B 
    &lcCommand

  	  U
  LNLISTINDEX	 LCCOMMAND THIS PARENT LSTFORMS	 LISTINDEX THISFORM	 ACOMMANDS HIDE RELEASE Refresh,      Click     1 q AA 3  bA A Q A A    2                                     
    )   C                        Top = 181
Left = 285
Height = 27
Width = 84
FontSize = 8
Caption = "\<Run"
Enabled = .F.
TabIndex = 3
Name = "cmdRun"
      wzquickstartform      cmdRun      
commandbutton      
commandbutton      +Application Wizard framework class library.      !Arial, 0, 8, 5, 14, 11, 20, 3, 0
      
wzaboutdialog      Pixels      Class     PROCEDURE Refresh
LOCAL llEnabled

llEnabled=(this.parent.lstForms.ListIndex>0)
IF this.Enabled#llEnabled
	this.Enabled=llEnabled
ENDIF

ENDPROC
PROCEDURE Click
LOCAL lnListIndex,lcCommand

lnListIndex=this.parent.lstForms.ListIndex
IF lnListIndex<1
	RETURN
ENDIF
lcCommand=thisform.aCommands[lnListIndex]
IF EMPTY(lcCommand)
	RETURN
ENDIF
thisform.Hide
&lcCommand
thisform.Release

ENDPROC
      uFontSize = 8
Height = 215
Left = 10
TabIndex = 2
Top = 25
Width = 266
IntegralHeight = .T.
Name = "lstForms"
      wzquickstartform      lstForms      listbox      listbox      label      [About form class used as an About dialog in the framework for the Application Wizard (5.0).      2      form      
wzaboutdialog                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            .PROCEDURE Click
thisform.Release

ENDPROC
      mTop = 215
Left = 285
Height = 27
Width = 84
FontSize = 8
Caption = "OK"
Default = .T.
Name = "cmdOK"
      
wzaboutdialog      cmdOK      FontSize = 8
Caption = "\<Select a form to run."
Height = 17
Left = 10
Top = 10
Width = 111
TabIndex = 1
BackColor = 192,192,192
Name = "lblForms"
      wzquickstartform      lblForms      label      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = -23
Top = 224
Width = 52
Name = "Image29"
      wzquickstartform      Image29      image      image      wzquickstartform      
commandbutton      
commandbutton         s  s                        u   %   J        2               U          U  THIS PARENT CMDRUN CLICK      " %C goAppb O C 9  B  T     %C  `  B  T  CC  @ T C .   %    T     .mnx    T  CC   = .mnx  %C  0
  B  F   Q    %C _menu
# B  T     	 ) ~CC
 @ forms
 C g 	? T CC  T CC
 K %C  C  CC @ launcher CC @
 \<quick start .  C     T      	    T 	      Q  %   o T         U 
 LCMENUFILE LCPROMPT	 LCCOMMAND LNATPOS GOAPP CSTARTUPMENU _MENU THISFORM
 NFILECOUNT	 ACOMMANDS	 LEVELNAME ITEMNUM PROMPT COMMAND THIS ADDITEM	 LISTCOUNT	 LISTINDEX PARENT CMDRUN REFRESH        U  THIS PARENT CMDRUN REFRESH        
    U  NBUTTON NSHIFT NXCOORD NYCOORD THIS INTERACTIVECHANGE DblClick,      Init`      InteractiveChange     MouseUp    1 3 1"A A  A A 1Q A A A  QA A AAA A q1A  AA 3 3 1 2                       .         I        -       3   /     B  7    )   s                       MPROCEDURE DblClick
this.parent.cmdRun.Click

ENDPROC
PROCEDURE Init
LOCAL lcMenuFile,lcPrompt,lcCommand,lnAtPos

IF TYPE("goApp")#"O" OR ISNULL(goApp)
	RETURn
ENDIF
lcMenuFile=goApp.cStartupMenu
IF EMPTY(lcMenuFile)
	RETURN
ENDIF
lcMenuFile=LOWER(FULLPATH(lcMenuFile))
lnAtPos=AT(".",lcMenuFile)
IF lnAtPos=0
	lcMenuFile=lcMenuFile+".mnx"
ELSE
	lcMenuFile=ALLTRIM(LEFT(lcMenuFile,lnAtPos-1))+".mnx"
ENDIF
IF NOT FILE(lcMenuFile)
	RETURN
ENDIF
SELECT 0
USE (lcMenuFile) AGAIN SHARED ALIAS _menu
IF NOT USED("_menu")
	RETURN
ENDIF
thisform.nFileCount=0
DIMENSION thisform.aCommands[1]
SCAN ALL FOR LOWER(ALLTRIM(LevelName))=="forms" AND VAL(ItemNum)>0
	lcPrompt=ALLTRIM(MLINE(Prompt,1))
	lcCommand=ALLTRIM(MLINE(Command,1))
	IF EMPTY(lcPrompt) OR EMPTY(lcCommand) OR LOWER(ALLTRIM(lcPrompt))=="launcher" OR ;
			LOWER(ALLTRIM(lcPrompt))=="\<quick start"
		LOOP
	ENDIF
	this.AddItem(lcPrompt)
	thisform.nFileCount=thisform.nFileCount+1
	DIMENSION thisform.aCommands[thisform.nFileCount]
	thisform.aCommands[thisform.nFileCount]=lcCommand
ENDSCAN
USE IN _menu
IF this.ListCount>0
	this.ListIndex=1
ENDIF
this.parent.cmdRun.Refresh

ENDPROC
PROCEDURE InteractiveChange
this.parent.cmdRun.Refresh

ENDPROC
PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord

this.InteractiveChange

ENDPROC
      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = -23
Top = -28
Width = 52
Name = "Image28"
      Image28      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = -23
Top = 140
Width = 52
Name = "Image27"
      wzquickstartform      Image27      image      image      wzquickstartform      {PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode=23 OR nKeyCode=27
	this.Release
ENDIF

ENDPROC
      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = -23
Top = 56
Width = 52
Name = "Image26"
      Image26      image      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 38
Top = 260
Width = 52
Name = "Image25"
      wzquickstartform      Image25      image      image      fPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 38
Top = 8
Width = 52
Name = "Image24"
      wzquickstartform      Image24      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 102
Top = 224
Width = 52
Name = "Image21"
      wzquickstartform      Image21      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 102
Top = -28
Width = 52
Name = "Image20"
      wzquickstartform      Image20      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 164
Top = 261
Width = 52
Name = "Image17"
      wzquickstartform      Image17      image      image      gPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 164
Top = 9
Width = 52
Name = "Image16"
      wzquickstartform      Image16      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 224
Top = 224
Width = 52
Name = "Image13"
      wzquickstartform      Image13      image      image      iPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 226
Top = -28
Width = 52
Name = "Image12"
      wzquickstartform      Image12      image      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 288
Top = 266
Width = 52
Name = "Image9"
      wzquickstartform      Image9      image      image      wzquickstartform      Image8                                        %                             U  8      %     1 
     U  NKEYCODE
 NSHIFTALTCTRL THIS RELEASE KeyPress,     1   A 2                       p       )                            gPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 288
Top = 14
Width = 52
Name = "Image8"
      image      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 288
Top = 182
Width = 52
Name = "Image5"
      wzquickstartform      Image5      image      image      gPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 288
Top = 98
Width = 52
Name = "Image3"
      wzquickstartform      Image3      image      image      wzquickstartform      Image1      image      Height = 250
Width = 375
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "About"
FontSize = 8
MaxButton = .F.
MinButton = .F.
KeyPreview = .T.
WindowType = 1
AlwaysOnTop = .T.
Name = "wzaboutdialog"
      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 347
Top = 224
Width = 52
Name = "Image1"
      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 347
Top = -28
Width = 52
Name = "Image7"
      wzquickstartform      Image7      image      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 257
Top = 304
Width = 52
Name = "Image6"
      wzquickstartform      Image6      image      image      hPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 347
Top = 140
Width = 52
Name = "Image4"
      wzquickstartform      Image4      image      image      gPicture = foxqstrt.bmp
BackStyle = 0
Height = 58
Left = 347
Top = 56
Width = 52
Name = "Image2"
      wzquickstartform      Image2      image      image      nfilecount Number of files in the form file list.
^acommands[1,0] Array of commands executed for each item in the forms list.
     2                              x   %   &           l            U    t& G&( U    t& G&( U  n  G2 G Gk( MACHINE GA G	  G
(	 G G G$(  G_  G;( . G. G^ U  8      %     1 
     U  NKEYCODE
 NSHIFTALTCTRL THIS RELEASE
 Deactivate,      Activate>      LoadP      KeyPress     1 Q a 3 Q a 3 a a !a a  a a  a  a a 3   A 2                       7         V   w                            )                          PROCEDURE Deactivate
ACTIVATE SCREEN
SET MESSAGE TO

ENDPROC
PROCEDURE Activate
ACTIVATE SCREEN
SET MESSAGE TO

ENDPROC
PROCEDURE Load
SET TALK OFF
SET ESCAPE OFF
SET COLLATE TO 'MACHINE'
SET COMPATIBLE OFF
SET CONFIRM ON
SET DECIMALS TO 9
SET EXACT OFF
SET EXCLUSIVE OFF
SET MEMOWIDTH TO 1024
SET MULTILOCKS ON
SET POINT TO '.'
SET SAFETY OFF
SET UDFPARMS TO VALUE

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode=23 OR nKeyCode=27
	this.Release
ENDIF

ENDPROC
      DataSession = 2
Height = 250
Width = 375
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Quick Start"
FontSize = 8
KeyPreview = .T.
BackColor = 192,192,192
nfilecount = 0
Name = "wzquickstartform"
     cstartupform Form (SCX) which is executed when the application object is shown.
cstartupmenu Menu (MPR) which is executed when the application object is shown.
ccaption Caption of the application object.
cicon Icon of the application object.
clasticon Last icon setting of _screen before application object was intantiated.
clastcaption Last caption setting of _screen before application object was intantiated.
nformcount Forms collection count for application object.
npixeloffset Number of pixels which offset multiple instances of the same form.
lcascadeforms Specifies whether forms are cascaded if multiple instances of the same form are opened in the same top and left positions of the desktop.
lreadevents Enable READ EVENTS within ReadEvents method.
*show Displays the application.
*release Releases the application from memory.
*doform Executes an SCX form.
*doreport Executes an FRX report.
*dolabel Executes an LBX label
*domenu Executes an MPR menu.
*clearevents Clears any pending read events.
*readevents Starts read events mode.
*doprogram Executes a PRG, APP, or EXE program.
*setcaption Sets the caption of the application.
*seticon Sets the icon of the application.
*saveenvironment Saves environment settings.
*restoreenvironment Restores environment settings.
^aforms[1,0] Forms collection for application object.
*filenotfoundmsgbox Displays a File Not Found messagebox.
*getcaption Returns the caption of the application.
*geticon Returns the icon of the application.
*beforereadevents Method executed before READ EVENTS is executed when ReadEvents is called.
*onshutdown Occurs when the user attempts to exit Visual FoxPro.
*releaseforms Release all application forms from memory.
*releaseform Release specifc or active form from memory.
^aformnames[1,0] Form name collection for application object.
*resetformscollection Reset arrays and counters of forms collection.
*refreshformscollection Refresh forms collection arrays and counters.
                                   T   %   ^      5    3            U  :     C     C    
    U  NSTYLE THIS DOMENU CSTARTUPMENU DOFORM CSTARTUPFORM
 READEVENTS1  %C   
  B- 
     <   U  THIS RELEASEFORMS CLEAREVENTS      #      	 
    
  T C   %C f  B- - T CC tcClassb C
 CC @   6 T CC @ % . 
 ) T  CC 
  .scx  .vcx6  %C 0
 C     B- & T CC      , 6
 %  	 (  M %C 	     C this.aForms[lnCount]b O	 CC 	   
	   	   B-   
    T    #          T      %C 

 G~(  T    C NL % 
' C this.aForms[this.nFormCount]b O	 CC    
	          J      T
   
   < %     
 	 CC     @ form	 T C     T
    T    T    %C    	 	 (  v T C 	   # %C oForm2b O C  . 8 %    C C  	 C C  	r T
 
    T       %  
  T  
   %    T       % 
        U 
 TCFILENAME TCCLASS TLNOMULTIPLEINSTANCES TLNOSHOW
 LCFILENAME LCCLASS OFORM OFORM2 LCNAME LNCOUNT LNTOP LNLEFT
 LCFORMNAME LNFORMCOUNT THIS FILENOTFOUNDMSGBOX
 NFORMCOUNT
 AFORMNAMES AFORMS SHOW REFRESHFORMSCOLLECTION
 LCASCADEFORMS	 BASECLASS TOP LEFT NAME WINDOWSTATE NPIXELOFFSET        T C   %C 7  B-  T CC @ % . 
t  T   .frx  %C 0
  C     B- 
 %   ? (!"   ?   U 
 TCFILENAME TLPRINT
 LCFILENAME THIS FILENOTFOUNDMSGBOX        T C   %C 7  B-  T CC @ % . 
t  T   .lbx  %C 0
  C     B- 
 %   * (!"   *   U 
 TCFILENAME TLPRINT
 LCFILENAME THIS FILENOTFOUNDMSGBOX       T C   %C 3  B-  T CC @ % . 
p  T   .mpr # %C 0
 CC @ mpr	  T C  mpx  %C 0
  C     B- 
   U 
 TCFILENAME
 LCFILENAME THIS FILENOTFOUNDMSGBOX   U  & 
     %     9  U  THIS BEFOREREADEVENTS LREADEVENTS       T C   %C 3  B-  T CC @ % . 
p  T   .prg # %C 0
 CC @ prg	  T C  fxp  %C 0
  C     B- 
   U 
 TCFILENAME
 LCFILENAME THIS FILENOTFOUNDMSGBOXQ     %C	 tcCaptionb C+  B-  T     T9    U 	 TCCAPTION THIS CCAPTION CAPTIONN     %C tcIconb C(  B-  T     T9    U  TCICON THIS CICON ICON'  T   9  T   9  U  THIS CLASTCAPTION CAPTION	 CLASTICON ICONw $ %C   
 9    
	6  T9     $ %C   
 9    
	p  T9      U  THIS CLASTCAPTION CAPTION	 CLASTICON ICON8    . BC File "   " not found.9 x U 
 TCFILENAME CAPTION  B    U  THIS CCAPTION  B    U  THIS CICONE : %C Are you sure you want to exit?$9  x>  8  U  CAPTIONs    
    +   l  T    + %CC       
     h  B-   U  LNFORMCOUNT THIS REFRESHFORMSCOLLECTION
 NFORMCOUNT RELEASEFORM AFORMS     %C _ 1 %C _screen.ActiveFormb O C9 O  B-  9    # %C toFormb O C    B- 
     
    U  TOFORM
 ACTIVEFORM RELEASE THIS REFRESHFORMSCOLLECTIONN  T            T    T      U  THIS
 NFORMCOUNT AFORMS
 AFORMNAMES    
 T   +    m: %C this.aForms[lnCount]b O CC     
	|  T     .     (  ! T   C    T   ! T   C    T       T     %   F ! #           %   
     U  LNCOUNT LNCOUNT2 THIS
 NFORMCOUNT AFORMS
 AFORMNAMES RESETFORMSCOLLECTION 
    
     U  THIS SAVEENVIRONMENT RESETFORMSCOLLECTION  
     U  THIS RESTOREENVIRONMENT show,      release      doform     doreport8     dolabelQ     domenuj	     clearevents
    
 readevents
    	 doprogram
    
 setcaption     seticon~     saveenvironment     restoreenvironmentD
     filenotfoundmsgbox
    
 getcaption>     geticona    
 onshutdown     releaseforms     releaseform     resetformscollection     refreshformscollection     Init     Destroy.    1 q 21 3 !q A  q 3 11   q A 1A q A a 1q A A A  q1 aA  A  qQ1A A AAA A AA AA A A  aA 3  q   q A 1QA q A     A 3  q   q A 1QA q A     A 3 q q   q A 1QA 1aA q A  3 Q 3  Q A 3 q q   q A 1QA 1aA q A  3 q q A  3 q q A  3 !!3 A!A A!A 3 q 3  3  3 A A 3 q  Qq A A 3 q q A   1q A  A  3  3   QA A A qAA A 1A A A 3   3 Q  2                       w               	        	     P   	  j  ]   d     %
  t   x   B
                    @            N        o            q                               l                              d          c                   1       ^             7     =  d  <   )                          oPROCEDURE show
LPARAMETERS nStyle

this.DoMenu(this.cStartupMenu)
this.DoForm(this.cStartupForm)
this.ReadEvents

ENDPROC
PROCEDURE release
IF NOT this.ReleaseForms()
	RETURN .F.
ENDIF
this.ClearEvents
RELEASE this

ENDPROC
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount

lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
	RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
	lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
	this.FileNotFoundMsgBox(lcFileName)
	RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
	FOR lnCount = 1 TO this.nFormCount
		IF this.aFormNames[lnCount]==lcFormName AND ;
				TYPE("this.aForms[lnCount]")=="O" AND ;
				NOT ISNULL(this.aForms[lnCount])
			this.aForms[lnCount].Show
			RETURN .F.
		ENDIF
	ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
	SET CLASSLIB TO (lcFileName) ADDITIVE
	this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
	IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
			NOT ISNULL(this.aForms[this.nFormCount])
		this.aForms[this.nFormCount].Show
	ENDIF
ELSE
	DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount AND ;
		LOWER(this.aForms[this.nFormCount].BaseClass)=="form"
	oForm=this.aForms[this.nFormCount]
	lnTop=oForm.Top
	lnLeft=oForm.Left
	lcName=oForm.Name
	IF WEXIST(lcName) AND oForm.WindowState#2
		FOR lnCount = 1 TO (this.nFormCount-1)
			oForm2=this.aForms[lnCount]
			IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
				LOOP
			ENDIF
			IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
					WLCOL(lcName)=WLCOL(oForm2.Name)
				lnTop=lnTop+this.nPixelOffset
				lnLeft=lnLeft+this.nPixelOffset
			ENDIF
		ENDFOR
		IF oForm.Top#lnTop
			oForm.Top=lnTop
		ENDIF
		IF oForm.Left#lnLeft
			oForm.Left=lnLeft
		ENDIF
	ENDIF
ENDIF
IF NOT tlNoShow
	this.aForms[this.nFormCount].Show
ENDIF

ENDPROC
PROCEDURE doreport
LPARAMETERS tcFileName,tlPrint
LOCAL lcFileName

lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
	RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
	lcFileName=lcFileName+".frx"
ENDIF
IF NOT FILE(lcFileName)
	this.FileNotFoundMsgBox(lcFileName)
	RETURN .F.
ENDIF
IF tlPrint
	REPORT FORM (lcFileName) TO PRINTER PROMPT
ELSE
	REPORT FORM (lcFileName) PREVIEW
ENDIF

ENDPROC
PROCEDURE dolabel
LPARAMETERS tcFileName,tlPrint
LOCAL lcFileName

lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
	RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
	lcFileName=lcFileName+".lbx"
ENDIF
IF NOT FILE(lcFileName)
	this.FileNotFoundMsgBox(lcFileName)
	RETURN .F.
ENDIF
IF tlPrint
	LABEL FORM (lcFileName) TO PRINTER PROMPT
ELSE
	LABEL FORM (lcFileName) PREVIEW
ENDIF

ENDPROC
PROCEDURE domenu
LPARAMETERS tcFileName
LOCAL lcFileName

lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
	RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
	lcFileName=lcFileName+".mpr"
ENDIF
IF NOT FILE(lcFileName) AND LOWER(JUSTEXT(lcFileName))=="mpr"
	lcFileName=FORCEEXT(lcFileName,"mpx")
ENDIF
IF NOT FILE(lcFileName)
	this.FileNotFoundMsgBox(lcFileName)
	RETURN .F.
ENDIF
DO (lcFileName)

ENDPROC
PROCEDURE clearevents
CLEAR EVENTS

ENDPROC
PROCEDURE readevents
this.BeforeReadEvents
IF this.lReadEvents
	READ EVENTS
ENDIF

ENDPROC
PROCEDURE doprogram
LPARAMETERS tcFileName
LOCAL lcFileName

lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
	RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
	lcFileName=lcFileName+".prg"
ENDIF
IF NOT FILE(lcFileName) AND LOWER(JUSTEXT(lcFileName))=="prg"
	lcFileName=FORCEEXT(lcFileName,"fxp")
ENDIF
IF NOT FILE(lcFileName)
	this.FileNotFoundMsgBox(lcFileName)
	RETURN .F.
ENDIF
DO (lcFileName)

ENDPROC
PROCEDURE setcaption
LPARAMETERS tcCaption

IF TYPE("tcCaption")#"C"
	RETURN .F.
ENDIF
this.cCaption=tcCaption
_screen.Caption=tcCaption

ENDPROC
PROCEDURE seticon
LPARAMETERS tcIcon

IF TYPE("tcIcon")#"C"
	RETURN .F.
ENDIF
this.cIcon=tcIcon
_screen.Icon=tcIcon

ENDPROC
PROCEDURE saveenvironment
this.cLastCaption=_screen.Caption
this.cLastIcon=_screen.Icon

ENDPROC
PROCEDURE restoreenvironment
IF NOT EMPTY(this.cLastCaption) AND NOT _screen.Caption==this.cLastCaption
	_screen.Caption=this.cLastCaption
ENDIF
IF NOT EMPTY(this.cLastIcon) AND NOT _screen.Icon==this.cLastIcon
	_screen.Icon=this.cLastIcon
ENDIF

ENDPROC
PROCEDURE filenotfoundmsgbox
LPARAMETERS tcFileName

RETURN MESSAGEBOX([File "]+tcFileName+[" not found.],16,_screen.Caption)

ENDPROC
PROCEDURE getcaption
RETURN this.cCaption

ENDPROC
PROCEDURE geticon
RETURN this.cIcon

ENDPROC
PROCEDURE onshutdown
#DEFINE EXIT_LOC	"Are you sure you want to exit?"
IF MESSAGEBOX(EXIT_LOC,36,_screen.Caption)=6
	QUIT
ENDIF

ENDPROC
PROCEDURE releaseforms
LOCAL lnFormCount

this.RefreshFormsCollection
DO WHILE this.nFormCount>0
	lnFormCount=this.nFormCount
	IF NOT this.ReleaseForm(this.aForms[lnFormCount]) OR this.nFormCount=lnFormCount
		RETURN .F.
	ENDIF
ENDDO

ENDPROC
PROCEDURE releaseform
LPARAMETERS toForm

IF PARAMETERS()=0
	IF TYPE("_screen.ActiveForm")#"O" OR ISNULL(_screen.ActiveForm)
		RETURN .F.
	ENDIF
	_screen.ActiveForm.Release
ELSE
	IF TYPE("toForm")#"O" OR ISNULL(toForm)
		RETURN .F.
	ENDIF
	toForm.Release
ENDIF
this.RefreshFormsCollection

ENDPROC
PROCEDURE resetformscollection
this.nFormCount=0
DIMENSION this.aForms[1],this.aFormNames[1]
this.aForms=.NULL.
this.aFormNames=""

ENDPROC
PROCEDURE refreshformscollection
LOCAL lnCount,lnCount2

lnCount=1
DO WHILE lnCount<=this.nFormCount
	IF TYPE("this.aForms[lnCount]")=="O" AND NOT ISNULL(this.aForms[lnCount])
		lnCount=lnCount+1
		LOOP
	ENDIF
	FOR lnCount2 = lnCount TO (this.nFormCount-1)
		this.aForms[lnCount2]=this.aForms[lnCount2+1]
		this.aForms[lnCount2+1]=.NULL.
		this.aFormNames[lnCount2]=this.aFormNames[lnCount2+1]
		this.aFormNames[lnCount2+1]=""
	ENDFOR
	this.nFormCount=this.nFormCount-1
	IF this.nFormCount=0
		EXIT
	ENDIF
	DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
ENDDO
IF this.nFormCount=0
	this.ResetFormsCollection
ENDIF

ENDPROC
PROCEDURE Init
this.SaveEnvironment
this.ResetFormsCollection

ENDPROC
PROCEDURE Destroy
CLEAR EVENTS
this.RestoreEnvironment

ENDPROC
      form      formGIF89a    p  ,             3  f       +  +3 +f + + + U  U3 Uf U U U   3 f      3 f      3 f ՙ     3 f   3  3 33 f3 3 3 3+ 3+33+f3+3+3+3U 3U33Uf3U3U3U3 333f3333 333f3333 333f3ՙ333 333f333f  f 3f ff f f f+ f+3f+ff+f+f+fU fU3fUffUfUfUf f3ffffff f3ffffff f3fffՙfff f3fffff   3 f  ̙ + +3+f++̙+U U3UfUU̙U 3f̙ 3f̙ 3fՙ̙ 3f̙   3 f   + +3+f+++U U3UfUUÙ ̀3̀f̪̀̀̀ ̪3̪f̪̪̪ 3fՙ 3f   3 f   + +3+f+++U U3UfUUU 3f 3f 3fՙ 3f             	HP\82!G>eܨDiNxÁ@^R:
eK(3Ҧϋ1\&ϟ/4z&Н;A6
TԩT_ŚuVG^VUhӪ]	ڷhe.[tW޽REsͪ
'uI+FLU\9{J2էD.
کB3;,uHuX"BY69s*uB¡ ;                (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                          ?    ?BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                  hh      hhh                                           BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                hh    hhh                         BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                hh    hhh                                           BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                hh    hhh                                                             BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                hh    hhh                                                                               BM^      6  (               (                  1       c  +   +U  +  +  +  +  U   UU  U  U  U  U     U             U             U  Հ  ժ         U         U   U U U  U  U  U  U+  U+U U+ U+ U+ U+ UU  UUU UU UU UU UU U  UU U U U U U  UU U U U U U  UU UՀ Uժ U U U  UU U U U U     U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U         U         +  +U + + + + U  UU U U U U Հ  ՀU Հ Հ Հ Հ ժ  ժU ժ ժ ժ ժ   U Հ ժ     U         U         +  +U + + + + U  UU U U U U   U       U       U Հ ժ     U    ??? kkk                                                                                                                hh        hhh                                                                               (       @                                                                wwwwwwwwwwww           w𿿿w     w𿿿w     w𿿿w          ww𿿿ww       ww𿿿ww     ww𿿿ww           ww𿿿w      w𿿿w    w𿿿w          ww𿿿ww     ww𿿿ww      www                                                                                                                                                           (       @                                                                                                        p          wpwpw p wp|p w||  w  p|  wp  w|   p   p   |p                      p         D     D     DIDDD     DDDDDD     DDDDDDI     DIDDI                          ?                                          ?   ?                                               (       @                                  /  P  p       &  , = 1W Qq q          /  -P  ?p  Q  c  v    1 Q q          ,/  KP  hp          1 Q q          /!  P7  pL  c  y  Ϗ    1 Q q          /  P  p"  ,  6  @  J [ 1q Q q         /  P  p    
        =1 [Q yq         /  "P  0p  =  L  Y  g  x 1 Q q         &/  @P  Zp  t         1 Q q         /&  PA  p[  t    ϩ     1 Q q         /  P"  p0  >  M  [  i  y 1 Q q  ұ       /  P  p  	  
        >1 \Q zq         /  P  p !  +  6  @  I Z 1p Q q         /   P 6 p L  b  x      1 Q q         , / K P i p          1 Q q          / - P ? p R  c  v     1 Q q ϑ ܱ        /  P  p   !  &  ,  > X1 qQ q     WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW          WWWWW           WWWWWW          WWWWW           WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                          WWWWWW                       WWWWW                      WWWW                     WWWW                     WWWW                     WWWWW                       WWWWWW                         WWWWWW                          WWWWWW                          WWWWWW                         WWWWWW                         WWWWWW                         WWWWWW                         WWWWWW                          WWWWWW          WWWWW           WWWWWW          WWWWW      WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW            ??  ??                             (       @                                                                                                                                                                 \\\\\\\\\\\\\\ fffffffffffffe f       l fe fhl fffffffffffffe f      l fe fhl fffffffffffffe f      l fe fhl fffffffffffffe fffffl fffffe fffffl f       ffffe                                                                                                                                                                                               (       @                                                                                                                                                                                                                   "     ",     ,,     ",      "",     """,     """"    """",    //"     "",      ,"""","       """",      ""","",        """/         ,                                                                    ?  ?  ?  ?  ?  ?  ?                           (       @                                /  P  p       &  , = 1W Qq q             /  -P  ?p  Q  c  v    1 Q q          ,/  KP  hp          1 Q q          /!  P7  pL  c  y  Ϗ    1 Q q          /  P  p"  ,  6  @  J [ 1q Q q         /  P  p    
        =1 [Q yq         /  "P  0p  =  L  Y  g  x 1 Q q         &/  @P  Zp  t         1 Q q         /&  PA  p[  t    ϩ     1 Q q         /  P"  p0  >  M  [  i  y 1 Q q  ұ       /  P  p  	  
        >1 \Q zq         /  P  p !  +  6  @  I Z 1p Q q         /   P 6 p L  b  x      1 Q q         , / K P i p          1 Q q          / - P ? p R  c  v     1 Q q ϑ ܱ        /  P  p   !  &  ,  > X1 qQ q                                                                                                         WWWWW     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWWRRRRRRRRRRRRRRRRRR     WWWWW     WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW                                                                                                                                         (     (                                                                         {p                    p www                    wwwp               ;                                               (     (                                                                                   /  /  ""/  /  /    /  "  ""/  "  /                                               BM      v   (      !           #.  #.                                                                """"""""""""""".""""""""" """"."""" "" """."""" 1 1"""."""" 3131""".""""30  3""".""""0DD@""".""""@  @""".""   @  " " DD   0@111111 "31333@30 "3333311@30 " 0@333333 " 0@CC333311 "" @3333333 " "" @CC333311 " " @3433333 " @43333311 "33C3333@3 "3C333330@3  30@343C4331 " 0DCC3C@D0  ""   @3C0  " """"@  @""".""""0DD@""".""""30  3"""."""" 3131"""."""" 1 1"""."""" "" """.""""""""" """".""""""""""""""".""""""""""""""".BMv      v   (                                                                                                                	   	      	   	   	   	    	   	   	   	   	   	   	   	   	   	   	   	     	     	     	     	     	     	     	GIF89a                                                                                                        3  f       3  33 3f 3 3 3 f  f3 ff f f f   3 f      3 f ̙     3 f   3  3 33 f3 3 3 33 33333f3333333f 3f33ff3f3f3f3 333f3333 333f3̙333 333f333f  f 3f ff f f f3 f33f3ff3f3f3ff ff3ffffffffff f3ffffff f3fff̙fff f3fffff   3 f  ̙ 3 333f33̙3f f3ffff̙f 3f̙ 3f̙̙ 3f̙   3 f   3 333f333f f3fffff̙ ̙3̙f̙̙̙ 3f̙ 3f   3 f   3 333f333f f3fffff 3f 3f̙ 3f!   ,          	H 
*\( 7nJ4E'.txcD9vQH(?&<%ƌ+y1"͛#_̟@

bўG%]iaSH}>]
U)UQʴZ֩[vK6fNU5mگmѮ۹wF}˖+]o^}	V<:y,&.}>, ; JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? 7 
|##,t}@RneHdghx
/,M.gi3:M;O4y
I. B
$lnOr/OGk_^Yx{IMNK(avK٦{bK6Kph |vR)g|q۩/<<+3Pϧڗ=ė3`: _6 l/*|A&yw7KoPlV6}:!*f8/2
 R  ?ۏ?<$,Būx-Cfḕ4n4m\'~%h>>pͥnf",K2&
l	o	_ߴO>iڪ@3?ؼcuC
eMP>{ 7?g[
K?|ڏuھ42>1n0@`qYʜ%%9%u꯽\._	 _oxwEtU<Q
՝[pd.Ӣ;E(o L?N?sâgK+ȵ6U9F*wSYֶ[G10HE
`  ڳ:K)uq4n%F.9T|1TʜHRi$.wK[K4wOK;c                (       @                                                                                                                                                                                                                                                                                                 wwwwwwwwwwwwpwwwwwwwwwwww wwwwwwwwwww  wwwwwwwwww   wwwwwwwwww    wwwwwwwww     wwwwwwww      wwwwwww       wwwwww        wwwww         wwwww          wwww           www            ww             w                             ?  ?      ?          ?                  ?         ?     ? ?              (       @                                                                                                                                                                                                                                     (       @                                                                                                                                                                                                                                      (       @                                                                                                                                                                                                                                              (       @                                                                                                                                                                                                                                %   )*  /  3    10  ERl  K  G+( wwDotNetBridge G+( wwUtils G+( wwAPI G+( wwSmtp U  WWDOTNETBRIDGE WWUTILS WWAPI WWSMTP3     %C   N,  T      U 
 LNMAILMODE THIS	 NMAILMODE     %C  .  T  C      %C   ) T  C Westwind.wwSmtp    %C          U  LCDOTNETVERSION THIS OBRIDGE GETWWDOTNETBRIDGE OSMTP CREATEINSTANCE	 CERRORMSGF  %C   
#  C      T    T    U  THIS OSMTP DISPOSE OBRIDGE 
 C    U  THIS DISPOSEv      %C  
    CLEAR:  T     o - T       :  C
 C
   U  LCHEADER LCVALUE THIS
 CEXTRAHEADERS     %  , 
 BC   
 C  
 C   T  C  ` T  C  C
 C
     Q WESTWIND.wwSmtp T  	  T 
 C  ` T   
  T     T     T  C  ` T  C  ` T     T  C  ` T  C  ` T     T     T      T !  "  T #  $  T %  &  T '  (  T )  *  T +  ,  C .  -  T /  0  T 1  2  T 3  4  % 5 v
 C 6  T a  T C 7  % 
 C 8      T .   	 B  U9 	 LCSUBJECT LLRESULT THIS	 NMAILMODE SENDMAILCLASSIC CREATEWWSMTP SETERROR CSUBJECT LOSMTP OSMTP
 MAILSERVER CMAILSERVER
 SERVERPORT NSERVERPORT USESSL LUSESSL TIMEOUT NTIMEOUT USERNAME	 CUSERNAME PASSWORD	 CPASSWORD SUBJECT MESSAGE CMESSAGE CONTENTTYPE CCONTENTTYPE
 ALTERNATETEXT CALTERNATETEXT ALTERNATETEXTCONTENTTYPE CALTERNATECONTENTTYPE SENDEREMAIL CSENDEREMAIL
 SENDERNAME CSENDERNAME ATTACHMENTS CATTACHMENT	 USERAGENT
 CUSERAGENT
 RETURNRECEIPT LRETURNRECEIPT REPLYTO CREPLYTO PRIORITY	 CPRIORITY ADDHEADERSFROMSTRING
 CEXTRAHEADERS	 RECIPIENT
 CRECIPIENT CC CCCLIST BCC CBCCLIST LASYNC
 SENDMAILASYNC SENDMAIL ERRORMESSAGEc  T   a %   A 
 C    T   - B 
 C    T   - U  THIS LASYNC	 NMAILMODE SENDMAILASYNCCLASSIC SENDMAIL       
 C   T  C  ` T  C  C
 C
     0 T # NextPart_000_0025_01BDBAA5.86C80EB01 %C 	 
 C Importance: 
 
	   C
 Importance 	    5 %  " C Return-Receipt-To: 
 
	m' C Return-Receipt-To 
   1 C Disposition-Notification-To 
     %C  
 C Reply-To      %C  
 C x-mailer      %C  
s T  -- C
 C
  Content-Type: C  `C
 C
 C
 C
 C  `C
 C
 C
 C
 g T   -- C
 C
  Content-Type:   C
 C
 C
 C
   C
 C
 9 T    multipart/alternative;boundary="  " T     T CXA | SendMail
 wwipstuff.dll, T CC  
 CC  `
   6, T CC  
 CC  `
   6 T CCC 
 `C  `C  `C  `C  `   C  `C  `C  ` C  `    
     C ! `  a -6 % 
q T " CC C    `  T "     T 
   	 B  U# 	 LCSUBJECT
 LCUSERNAME
 LCPASSWORD LCERROR LLRESULT THIS SETERROR CSUBJECT LCCONTENTBOUNDARY	 CPRIORITY
 CEXTRAHEADERS	 ADDHEADER LRETURNRECEIPT CSENDEREMAIL CREPLYTO
 CUSERAGENT CALTERNATETEXT	 LCMESSAGE CCONTENTTYPE CMESSAGE CALTERNATECONTENTTYPE SENDMAIL	 WWIPSTUFF DLL	 CUSERNAME	 CPASSWORD CSENDERNAME
 CRECIPIENT CCCLIST CBCCLIST CATTACHMENT CMAILSERVER NSERVERPORT CLOGFILE	 CERRORMSG   & T  CC   C      6 T  C  C
 C
   1 %C  
 C Importance:  
	   C
 Importance     5 %  " C Return-Receipt-To:  
	 ' C Return-Receipt-To      %C  
1 C Reply-To      %C 	 
f C x-mailer 	     
 0 T
 # NextPart_000_0025_01BDBAA5.86C80EB0 %C  
o T  --
 C
 C
  Content-Type:  
 C
 C
 C
 C
   C
 C
 C
 C
 j T    --
 C
 C
  Content-Type:   C
 C
 C
 C
   C
 C
 6 T   multipart/alternative;boundary="
  " A |
 SendMailAsync
 wwipstuff.dll* T CC  
 C  
   6* T CC  
 C  
   6j CC  `C  `C  `C  `C  `     C  `C  `C 
 `    C `C `  Ba U 	 LCSUBJECT THIS CSUBJECT	 CPRIORITY
 CEXTRAHEADERS	 ADDHEADER LRETURNRECEIPT CSENDEREMAIL CREPLYTO
 CUSERAGENT LCCONTENTBOUNDARY CALTERNATETEXT	 LCMESSAGE CCONTENTTYPE CMESSAGE CALTERNATECONTENTTYPE
 LCCONTENTTYPE
 SENDMAILASYNC	 WWIPSTUFF DLL
 LCUSERNAME	 CUSERNAME
 LCPASSWORD	 CPASSWORD CSENDERNAME
 CRECIPIENT CCCLIST CBCCLIST CATTACHMENT CMAILSERVER NSERVERPORT           5  T C]C" T C MSMAPI.MAPISessionN %C 	 
  T 
  	  T      T 
   

 C   %   # T C MSMAPI.MAPIMessagesN T     @$ T   MAPI Logon failed...
   B- 
 C  
 T   %C  

   T C    ,  (  T   T    T   T  C      %C  

   T C    ,  (  T   T    T   T  C      %C  
R
   T C    ,  ( N T   T    T   T  C      %C  

   T C    ,  (  T    T    T  CC    T  C      T     T    !  T C wwEvalN& C loMessages.SEND( .F. ) " 
  
 C #  % $  T   %  B-  Ba U& 
 LLDONTSEND	 LOSESSION	 LCOLDPATH Y LNRECIPS X LOEVAL
 LOMESSAGES THIS	 CUSERNAME USERNAME PASSWORD	 CPASSWORD DOWNLOADMAIL SIGNON	 SESSIONID	 CERRORMSG COMPOSE
 CRECIPIENT LARECIPS
 RECIPINDEX	 RECIPTYPE RECIPDISPLAYNAME CCCLIST CBCCLIST CATTACHMENT ATTACHMENTINDEX ATTACHMENTPOSITION ATTACHMENTNAME ATTACHMENTPATHNAME
 MSGSUBJECT CSUBJECT MSGNOTETEXT CMESSAGE EVALUATE SIGNOFF LERROR
 CERRORMESSAGE 
 C     Q WESTWIND.wwSmtp T     T  C   ` T      T    	  T 
     T  C  
 ` T  C   `
 BC   U  THIS CREATEWWSMTP LOSMTP OSMTP
 MAILSERVER CMAILSERVER
 SERVERPORT NSERVERPORT USESSL LUSESSL TIMEOUT NTIMEOUT USERNAME	 CUSERNAME PASSWORD	 CPASSWORD CONNECT^    Q WESTWIND.wwSmtp T     %C  
G 
 C     T     U  LOSMTP THIS OSMTP CLOSE
 CEXTRAHEADERS        
 C  . T CC	 lcSubjectb C     6 T C C
 C
     Q WESTWIND.wwSmtp T  	  T 
 C  ` T   
  T     T  C  ` T  C  `! T  C C
 C
    T  C  ` T  C  ` T     T     T     T  C   ` T ! C " ` %C  
 T #     %C 
 T $    %C 
 T %    T  C  ` T &  '  T (  )  T *  +  C -  ,   Q WESTWIND.wwSmtp T  	 # T C /  0  1  .  % 
 C 2    	 B  U3  LCRECIPIENT LCCC LCBCC LLRESULT	 LCSUBJECT THIS SETERROR CSUBJECT LOSMTP OSMTP
 MAILSERVER CMAILSERVER
 SERVERPORT NSERVERPORT USESSL LUSESSL USERNAME	 CUSERNAME PASSWORD	 CPASSWORD SUBJECT MESSAGE CMESSAGE CONTENTTYPE CCONTENTTYPE
 ALTERNATETEXT CALTERNATETEXT ALTERNATETEXTCONTENTTYPE CALTERNATECONTENTTYPE ATTACHMENTS CATTACHMENT SENDEREMAIL CSENDEREMAIL
 SENDERNAME CSENDERNAME	 RECIPIENT CC BCC
 RETURNRECEIPT LRETURNRECEIPT REPLYTO CREPLYTO PRIORITY	 CPRIORITY ADDHEADERSFROMSTRING
 CEXTRAHEADERS SENDMESSAGE
 CRECIPIENT CCCLIST CBCCLIST ERRORMESSAGE       %C  & 	 B  
   T C    , 
 (  = T C
 rcpt to: <C 
   >C
 C
     %  250  B
   	 B  U  LCRECIPLIST X LARECIPS LNCOUNT LCRESULT THIS OIP SENDRECEIVE}       %  p  %C  
Q  T     ,  T       B 
 C    Q WWDOTNETBRIDGE T    T C   %  O ' C 
 
 AddAttachment    	  B  T  CC  @ %C 
G+ C 
 
 AddAttachment      	  v' C 
 
 AddAttachment    	   U 
 LCFILENAME
 LCCONTENTTYPE LCTYPE THIS	 NMAILMODE CATTACHMENT CREATEWWSMTP LOBRIDGE OBRIDGE INVOKEMETHOD OSMTPX  %   (  T      B ) C    ClearAttachments     U  THIS	 NMAILMODE CATTACHMENT OBRIDGE INVOKEMETHOD OSMTP   
 C    Q WWDOTNETBRIDGE T   *  Q WESTWIND.WebConnection.ComArray2 T C System.Net.Mail.LinkedResource    (   	   CC       
  6 C 
  AddAlternateView           B U  LOALTERNATEVIEW THIS CREATEWWSMTP LOBRIDGE OBRIDGE LORESOURCES CREATEARRAY LNX OLINKEDRESOURCES COUNT ADDITEM ITEM INVOKEMETHOD OSMTP CTEXT CCONTENTTYPE      %C ' 
 T    %C  h  T  - T     T      T  a T     T     U  LCERROR LNERROR THIS LERROR	 CERRORMSG NERROR   T   C
 CollectionN U  THIS OLINKEDRESOURCES       T C wwDotNetBridgeN: T C System.Net.Mail.LinkedResource       ! C  	 ContentId     C    	  U
 
 LCFILENAME
 LCCONTENTTYPE LCID LOBRIDGE
 LORESOURCE CREATEINSTANCE SETPROPERTY THIS OLINKEDRESOURCES ADD Init       CreatewwSmtp       Dispose      DestroyK     	 AddHeadern      SendMail     
 SendMailAsync      SendMailClassic*	      SendMailAsyncClassicu      SendMapiMail      Connect1      Close      SendMessage2      SendRecipients"     
 AddAttachment#      ClearAttachments%      AddAlternateView>&      SetError'      Init(     AddLinkedResource)    ] T   T 
 T  
 T   
 T  T -
 T   
 T   
 T    T	 -
 T
   T -
 T 

 T
   
 T    T 
 text/plain
 T    T 
 text/plain
 T   
 T   
 T   
 T   
 T    T  Normal
 T    T  West Wind SMTP 5.0 T -
 T   
 T   
 T   
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
      U  OBRIDGE OSMTP	 NMAILMODE CMAILSERVER NSERVERPORT LUSESSL	 CUSERNAME	 CPASSWORD	 CERRORMSG LERROR NERROR LASYNC NTIMEOUT CSUBJECT CMESSAGE CCONTENTTYPE CALTERNATETEXT CALTERNATECONTENTTYPE
 CRECIPIENT CSENDEREMAIL CSENDERNAME CCCLIST CBCCLIST	 CPRIORITY CREPLYTO
 CUSERAGENT LRETURNRECEIPT CLOGFILE CATTACHMENT
 CEXTRAHEADERSF 
 T     T 
 text/plain T 
     
      U  CTEXT CCONTENTTYPE OLINKEDRESOURCES wwSMTP Custom+     wwSmtpAlternateView Custom/     p
1 q ZA ? q "QA "! A A < 2A   8  >   A ?  B A   "R111RQQQA121213113211    1A A  :  B  A A   = q "t A QqA 1A 1A 24uA     A  < q bA QqA 1A 1A t 3bA r = q q ""311A  Q21 A q A   3 rAQB A 2 rBQA A 2 sBQB A 3 rBAQA A 21da  1q A r ?  R11RQ <  A ?    R11RQRQ112RQA A A R31132 1A  < q q   A  A A A  <  q B1A qA A  !tA A  qA = BA A > q  !A bB `1    A     A 1 ?  B7                s s     3       p   @ ` p  `   @ p   P  1  q    ;                      1                                             %      '    Q   ;'  '  [  Z   F)  4  s     '6  `?       @  IK  3     M  iN       P  P       tR  X    $  Y  [  %  3  \\  O_  A  K  `  a  m  Q  Ec  i    ^  k   l    m   o  Ro    o  q  r    u     l       l  r    B  %   g\  Zf  n    f  Z%T    G+( wwDotnetBridge U  WWDOTNETBRIDGE      %C  O  %C  >  T   V4  7 & T C wwDotNetBridge     N %C  O  B  	 B  U 	 LCVERSION LLUSECOM __DOTNETBRIDGE       BC       U 	 LCVERSION LLUSECOM GETWWDOTNETBRIDGE  B     U  THIS
 ODOTNETBRIDGE
 LASTEXCEPTIOND     T     %C  
=  T       U  LLVALUE THIS
 LTHROWONERROR
 ODOTNETBRIDGE ISTHROWONERRORENABLED      %C  
    T C  f
 H>     V4h  T  
 v4.0.30319   V2  T  
 v2.0.50727  T      T    %CC       B-  U 	 LCVERSION LLUSECOM
 LCSHORTVER THIS CCLRVERSION LUSECOM LOAD	 CERRORMSG        %C   O C     % 	 | * T  C Westwind.wwDotNetBridgeN  |
 DeleteFile WIN32API5 CC wwDotNetBridge.dll :Zone.Identifier
 5 CC Newtosoft.Json.dll :Zone.Identifier
 . CC Markdig.dll :Zone.Identifier
 3 CC Renci.SshNet.dll :Zone.Identifier
 7 | ClrCreateInstanceFrom
 wwipstuff.dll T  C X
 T  U T CC wwDotNetBridge.dll% Westwind.WebConnection.wwDotNetBridge     % 
A T  C   = C Unable to load Clr Instance.   C
 e Most likely wwDotnetBridge.dll is blocked or you don't have network permissions to load the assembly.C
 V Search for: 'Unable to load CLR Instance' at: https://webconnection.west-wind.com/docs   B  T  C ] C  ] %C  ? C/ COM Load Error: Can't access CLR COM reference.   B   C System    T       B   U  LCERROR LNSIZE LNDISPHANDLE LCPATH LCCMD THIS
 ODOTNETBRIDGE
 SETCLRVERSION CCLRVERSION LUSECOM
 DELETEFILE WIN32API CLRCREATEINSTANCEFROM	 WWIPSTUFF DLL SETERROR LOADASSEMBLY ISTHROWONERRORENABLED
 LTHROWONERRORS    ; |
 SetClrVersion
 wwipstuff.dllQ SetClrVersionApi C     U 	 LCVERSION
 SETCLRVERSION	 WWIPSTUFF DLL SETCLRVERSIONAPIY  %C    OR  T   " |	 ClrUnload
 wwipstuff.dll
 C   U  THIS
 ODOTNETBRIDGE	 CLRUNLOAD	 WWIPSTUFF DLL  T    a U  THIS
 ODOTNETBRIDGE ISTHROWONERRORENABLED            	 
 
 C   T  
  %C e  B 
 T
 Ct
 H  
   T	 C      
   T	 C        
  T	 C          
 3! T	 C            
 i% T	 C              
 ) T	 C                2 T	 C       %C	     C     B 	 B	  U  LCCLASS LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LNDISPHANDLE LNSIZE LOBRIDGE LOOBJECT LNPARMCOUNT THIS SETERROR
 ODOTNETBRIDGE CREATEINSTANCE CREATEINSTANCE_ONEPARM CREATEINSTANCE_TWOPARMS CREATEINSTANCE_THREEPARMS CREATEINSTANCE_FOURPARMS CREATEINSTANCE_FIVEPARMS ERROR ERRORMESSAGE#            	 
   
 C
   T
 
   %C
 m  B 
 T Ct
 H    ! T C         
     % T C           
    -) T C             
    k- T C               
    1 T C                 
   2 T C       
    %C  
  	 C
  
   B-  Ba U 
 LOINSTANCE
 LCPROPERTY LCCLASS LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LNDISPHANDLE LNSIZE LOBRIDGE LOOBJECT LNPARMCOUNT THIS SETERROR
 ODOTNETBRIDGE CREATEINSTANCEONTYPE_ONEPARM CREATEINSTANCEONTYPE_TWOPARMS CREATEINSTANCEONTYPE_THREEPARMS CREATEINSTANCEONTYPE_FOURPARMS CREATEINSTANCEONTYPE_FIVEPARMS CREATEINSTANCEONTYPE ERROR ERRORMESSAGE>       
 C   T    %C J  B  T  C  
 T	 Ct
 Hw . 	   T
 C          	  ! T
 C            	 
% T
 C            
  2. T
 C        	 B
  U  LCASSEMBLYFILENAME
 LCTYPENAME LVPARM1 LVPARM2 LVPARM3 THIS SETERROR LOBRIDGE
 ODOTNETBRIDGE LNPARMCOUNT LOOBJECT& CREATEASSEMBLYINSTANCEFROMFILE_ONEPARM' CREATEASSEMBLYINSTANCEFROMFILE_TWOPARMS) CREATEASSEMBLYINSTANCEFROMFILE_THREEPARMS CREATEASSEMBLYINSTANCEFROMFILEik           	 
   
                 
 C   T   
 T Ct T 
 H $    T C           T C        !   F! T C          "   |% T C            #   ) T C              $   - T C                %   61 T C                  &   	|5 T C                    '   
9 T C                    	  (   = T C                    	  
  )   fA T C                    	  
    *  2$* + Q WESTWIND.WebConnection.ComArray! T+ C
 System.Object ,  -  . (  T- C lvParmC. _ C - + /   BC      +  0   % 1 Y T 2  3  T 4 a 	 B  U5  LOOBJECT LCMETHOD LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LVPARM9 LVPARM10 LVPARM11 LVPARM12 LVPARM13 LVPARM14 LVPARM15 LVPARM16 LVPARM17 LVPARM18 LVPARM19 LVPARM20 LVPARM21 LVPARM22 LVPARM23 LVPARM24 LOBRIDGE LNPARMS LORESULT THIS SETERROR
 ODOTNETBRIDGE INVOKEMETHOD INVOKEMETHOD_ONEPARM INVOKEMETHOD_TWOPARMS INVOKEMETHOD_THREEPARMS INVOKEMETHOD_FOURPARMS INVOKEMETHOD_FIVEPARMS INVOKEMETHOD_SIXPARMS INVOKEMETHOD_SEVENPARMS INVOKEMETHOD_EIGHTPARMS INVOKEMETHOD_NINEPARMS INVOKEMETHOD_TENPARMS LOARRAY CREATEARRAY LVPARM LNX ADDITEM INVOKEMETHOD_PARAMETERARRAY ERROR	 CERRORMSG ERRORMESSAGE LERROR          %-6 
   
 C  "  Q WESTWIND.wwDotNetBridge T   * 	 Q WESTWIND.WebConnection.ComArray! T	 C
 System.Object 
 
 H $ C laParms.Instanceb U
 T	  ! C
 ALEN(laParms)b Nc T C   ( _ CC   	   ! C
 laParms.Countb N  ( 
  CC   	     T C      	    %  	 T     T  a 	 B  U  LOOBJECT LCMETHOD LAPARMS LOBRIDGE LORESULT LNX THIS SETERROR
 ODOTNETBRIDGE LOARRAY CREATEARRAY LNSIZE ADDITEM COUNT INVOKEMETHOD_PARAMETERARRAY ERROR	 CERRORMSG ERRORMESSAGE LERROR27           	 
    
 
 T
 Ct  Q WWDOTNETBRIDGE T   
 H + 
   C          
   C            
 ! C              
 A% C                
 {) C                  
 - C                    
 	1 C                      
 
A5 C                    	    
 9 C                    	  
    
 = C                    	  
      
 
+A C                    	  
         U  LOCALLBACKEVENTS
 LOINSTANCE LCMETHOD LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LVPARM9 LVPARM10 LNPARMS LOBRIDGE THIS
 ODOTNETBRIDGE INVOKEMETHODASYNC+7           	 
   
 T
 Ct  Q WWDOTNETBRIDGE T   
 Hz $ 
   C          
   C            
 ! C              
 :% C                
 t) C                  
 - C                    
 	1 C                      
 
:5 C                    	    
 9 C                    	  
    
 = C                    	  
      
 
$A C                    	  
         U  LOCALLBACKEVENTS
 LOINSTANCE LCMETHOD LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LVPARM9 LVPARM10 LNPARMS LOBRIDGE THIS
 ODOTNETBRIDGE INVOKETASKMETHODASYNC/7           	 
    
  Q WWDOTNETBRIDGE
 T
 Ct T   
 H~ ( 
   C          
   C            
 ! C              
 >% C                
 x) C                  
 - C                    
 	1 C                      
 
>5 C                    	    
 9 C                    	  
    
 = C                    	  
      
 
(A C                    	  
         U  LOCALLBACKEVENTS
 LCTYPENAME LCMETHOD LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LVPARM9 LVPARM10 LNPARMS LOBRIDGE THIS
 ODOTNETBRIDGE INVOKESTATICMETHODASYNC&      BC         U 
 LOINSTANCE
 LCPROPERTY THIS
 ODOTNETBRIDGE GETPROPERTY&      BC         U 
 LOINSTANCE LNINDEX THIS
 ODOTNETBRIDGE GETINDEXEDPROPERTY.       C           U 
 LOINSTANCE
 LCPROPERTY LVVALUE THIS
 ODOTNETBRIDGE SETPROPERTYj3           	 
    
  
 C   T   
 T
 Ct T 
 H % 
   T C          
  ! T C            
 % T C              
 T) T C                
 - T C                  
 1 T C                    
 	5 T C                      
 
d9 T C                    	    
 = T C                    	  
    
 A T C                    	  
      2% T C         %  Z T     T   a 	 B  U! 
 LCTYPENAME LCMETHOD LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LVPARM9 LVPARM10 LOBRIDGE LNPARMS LORESULT THIS SETERROR
 ODOTNETBRIDGE INVOKESTATICMETHOD_ONEPARM INVOKESTATICMETHOD_TWOPARMS INVOKESTATICMETHOD_THREEPARMS INVOKESTATICMETHOD_FOURPARMS INVOKESTATICMETHOD_FIVEPARMS INVOKESTATICMETHOD_SIXPARMS INVOKESTATICMETHOD_SEVENPARMS INVOKESTATICMETHOD_EIGHTPARMS INVOKESTATICMETHOD_NINEPARMS INVOKESTATICMETHOD_TENPARMS INVOKESTATICMETHOD ERROR	 CERRORMSG ERRORMESSAGE LERROR        
 C   T    T C        %  v  C 	    B 	 B  U
  LCTYPE
 LCPROPERTY LOBRIDGE LVRESULT THIS SETERROR
 ODOTNETBRIDGE GETSTATICPROPERTY ERROR ERRORMESSAGE      %C 
0  BC         T C .   % 
_  B  T C   \ T  C   \ BC        U  LCTYPE
 LCPROPERTY THIS GETSTATICPROPERTY LNATj        T C         %C Z  C      B 	 B  U  LCENUMTYPENAME LVENUMVALUE LCVALUE THIS
 ODOTNETBRIDGE
 GETENUMSTRING SETERROR ERRORMESSAGEp          T    %C         
b  C 	    B-  Ba U
  LCTYPE
 LCPROPERTY LCVALUE LOBRIDGE LVRESULT THIS
 ODOTNETBRIDGE SETSTATICPROPERTY SETERROR ERRORMESSAGEL       T C  
 H/    X C   6 T C Westwind.WebConnection.ComArray      C  T C         O  T C       20 ' Invalid parameter passed to CreateArray  %C < C  	    B 	 B  U
 " LVARRAYINSTANCEORELEMENTTYPESTRING
 LOCOMARRAY LCTYPE THIS
 ODOTNETBRIDGE CREATEINSTANCE CREATEARRAY CREATEARRAYFROMINSTANCE SETERROR ERRORMESSAGEt      3 T C Westwind.WebConnection.ComValue   %Ctd  C      	 B  U  LVVALUE LOVAL THIS CREATEINSTANCE SETVALUE       %C  Nm ! %C          
b  C      B-  Ba ! %C          
  C      B-  Ba U	 
 LOBASETYPE LCTYPE LNSIZE THIS
 ODOTNETBRIDGE CREATEARRAYONINSTANCEWITHOBJECT SETERROR ERRORMESSAGE CREATEARRAYONINSTANCE{      ! %C          
m 6 C Couldn't add item to array:       B-  Ba U 
 LOBASETYPE LCARRAYPROPERTY LOVALUE THIS
 ODOTNETBRIDGE ADDARRAYITEM SETERROR ERRORMESSAGE.       BC           U 
 LOBASETYPE LCARRAYPROPERTY LNINDEX THIS
 ODOTNETBRIDGE GETARRAYITEM6         BC             U 
 LOBASETYPE LCARRAYPROPERTY LNINDEX LVVALUE THIS
 ODOTNETBRIDGE SETARRAYITEM      ! %C          
r ; C! Couldn't remove item from array:       B-  Ba U 
 LOBASETYPE LCARRAYPROPERTY LNINDEX THIS
 ODOTNETBRIDGE REMOVEARRAYITEM SETERROR ERRORMESSAGE+    ! BC   GetType      U  LVVALUE THIS INVOKEMETHOD
 ODOTNETBRIDGE;     T C      BC   ToString   U  LVVALUE LOTYPE THIS GETTYPE INVOKEMETHOD3    ) BC   GetTypeFromName      U 
 LCTYPENAME THIS INVOKEMETHOD
 ODOTNETBRIDGE       %C -  T  On   ! T C EventSubscriptionN C           	 B  U  LOSOURCE	 LOHANDLER LCPREFIX LOSUBSCRIPTION SETUP THIS      1 T C   DataSetToXmlString   a   %C U  B   Q
 XMLADAPTER T C
 XmlAdapterN C  -a  	 B  U  LODS LCXML THIS INVOKEMETHOD
 ODOTNETBRIDGE	 LOADAPTER LOADXMLJ     T C      %C 2  B-  BC     U  LODS	 LOADAPTER THIS DATASETTOXMLADAPTER XMLADAPTERTOCURSORSb       T C       %C R  C      B 	 B  U  LCXML	 LODATASET THIS
 ODOTNETBRIDGE XMLSTRINGTODATASET SETERROR ERRORMESSAGE       %C  (  B   Q
 XMLADAPTER T C
 XmlAdapterN
   T C    ,  (   CC   a   
 T    C lcXml   %C   B  BC   	  U
  LCALIASLIST LNX LCXML	 LOADAPTER	 LACURSORS LNCOUNT ADDTABLESCHEMA TOXML THIS XMLSTRINGTODATASET     %C   OD ! C No Adapter passed   B-  %    
 ' C No tables on XmlAdapter   B-        QC  W C-      Ba U 	 LOADAPTER THIS SETERROR TABLES COUNT LOTABLE ALIAS TOCURSORB        %C f  %     S  T C     b  B-   T  %C  N  T C        T C @       % C  @ 
 T   !    %C  B-  QC  W C-     Ba U 	 LOADAPTER LVCURSOR LOTABLE LOTBL TABLES COUNT ALIAS TOCURSOR     
 C   T C   %C B  B  %C  0f  T  CC  @ * %C :\    C \\     %C     
  C     B-   %C     
  C     B-   Ba U 
 LCASSEMBLY LOBRIDGE THIS SETERROR LOAD LOADASSEMBLYFROM ERRORMESSAGE LOADASSEMBLYk       7 T C# Westwind.WebConnection.ThreadRunner   C  C    	 B  U 
 LCPRGFILENAME LOEVENTS LOTHREAD THIS CREATEINSTANCE	 RUNTHREAD     T C @8 %C & C  int16 int64 byte dbnull +  Q  WESTWIND.WebConnnection.ComValue3 T C Westwind.WebConnection.ComValue    %C  	 B  
 H 	   int16 C        int64+ C        byteQ C        charw C        dbnull
 C 	    decimal BC  ~(   binary   byte[] BC   W 2		 B   	 B  U
 
 LVFOXVALUE LCTYPE LOVAL THIS CREATEINSTANCE SETINT16 SETINT64 SETBYTE SETCHAR	 SETDBNULL|       %C  & 	 B    %C  \ OLEO 	 B    T C :    BC   \ U  LCMSG LNAT  BC     U  THIS
 ODOTNETBRIDGE GETVERSIONINFO]     %C  8  T  - T     B  T  a T     U 	 LCMESSAGE THIS LERROR	 CERRORMSG&     BC    ToString   U  LODOTNETOBJECT THIS INVOKEMETHOD\      T C         %C L  C      	 B  U  LODOTNETOBJECT LLFORMATTED LCRESULT THIS
 ODOTNETBRIDGE TOJSON SETERROR ERRORMESSAGE     
 T   %C  CB  T C      T C         %C   C  	    B 	 B  U
  LCJSON LVTYPE LOTYPE THIS GETTYPEFROMNAME LCRESULT
 ODOTNETBRIDGE FROMJSON SETERROR ERRORMESSAGEX      T C       %C H  C      	 B  U  LODOTNETOBJECT LLFORMATTED LCRESULT THIS
 ODOTNETBRIDGE TOXML SETERROR ERRORMESSAGE     
 T   %C  CB  T C      T C         %C   C  	    B 	 B  U
  LCXML LVTYPE LOTYPE THIS GETTYPEFROMNAME LCRESULT
 ODOTNETBRIDGE FROMXML SETERROR ERRORMESSAGE&      BC         U 
 LOINSTANCE
 LCPROPERTY THIS
 ODOTNETBRIDGE
 GETPROPERTYEX.       C           U 
 LOINSTANCE
 LCPROPERTY LVVALUE THIS
 ODOTNETBRIDGE
 SETPROPERTYEX      U  LVRESULT LCMETHOD       U 	 LCMESSAGE LOEXCEPTION LCMETHOD     
 T    T C X+ | GetWindowsDirectory Win32API T C    %    T C  \ \   T C `  T ) T   Microsoft.NET\Framework\# T C   v?.*.* D % 
" B     ( T C     T C   %C 
 regasm.exe0 T C  !  	 B  U	  X LCFRAMEWORKPATH	 LCVERSION GETWINDOWSDIRECTORY WIN32API LNSIZE LNCOUNT	 LANETDIRS LCTPATH        T     T    T   A T  C& Westwind.WebConnection.EventSubscriber    	 
 C 
  U  LOBRIDGE LOSOURCE	 LOHANDLER LCPREFIX THIS OBRIDGE OHANDLER OPREFIX OSUBSCRIBER CREATEINSTANCE HANDLENEXTEVENT*  %C   
#  C      U  THIS OSUBSCRIBER DISPOSE, ) C       WaitForEvent     U  THIS OBRIDGE INVOKEMETHODASYNC OSUBSCRIBERC         %C  -  B  T C EMPTYN
 T    %C   
 
 T         T   C  PCC Z 
$ T   ,loParams.PCC Z   %C   O<: C this.oHandler. 	   
  (C \ )
 C    U  LVRESULT LCMETHOD LOPARAMS
 LPARAMTEXT LCOUNT PARAMS LPARAM THIS OHANDLER OPREFIX NAME HANDLENEXTEVENTX     %C  
'  T      %CC  Q     B-  U  LCRUNTIMEFOLDER THIS CRUNTIMEFOLDER LOAD	 CERRORMSG        %C   O %  i * T  C Westwind.wwDotNetBridgeN f |
 DeleteFile WIN32API5 CC wwDotNetBridge.dll :Zone.Identifier 5 CC Newtosoft.Json.dll :Zone.Identifier . CC Markdig.dll :Zone.Identifier 3 CC Renci.SshNet.dll :Zone.Identifier 
 
    
 
 T   ) T C
 C wwDotnetBridge.dll %  T C
   T
 C     %C
 
85 C Couldn't locate .NET Runtime:      B ; | CoreClrCreateInstanceFrom
 wwipstuff.dll T  C X T C  > T C 
        % 
 T  C   = C Unable to load Clr Instance.   C
 e Most likely wwDotnetBridge.dll is blocked or you don't have network permissions to load the assembly.C
 V Search for: 'Unable to load CLR Instance' at: https://webconnection.west-wind.com/docs   B  T  C ] C  ] %C  b? C/ COM Load Error: Can't access CLR COM reference.   B   T       B   U  LCERROR LNSIZE LNDISPHANDLE LCPATH LCCMD THIS
 ODOTNETBRIDGE LUSECOM
 DELETEFILE WIN32API	 LAVERSION LNINFOS	 LCVERSION
 LCRUNTIMEPATH GETDOTNETCORERUNTIMEFOLDER CRUNTIMEFOLDER SETERROR CORECLRCREATEINSTANCEFROM	 WWIPSTUFF DLL ISTHROWONERRORENABLED
 LTHROWONERROR]  %C    OV  T   & |
 CoreClrUnload
 wwipstuff.dll
 C   U  THIS
 ODOTNETBRIDGE
 CORECLRUNLOAD	 WWIPSTUFF DLL         %C  
 C  	@  BC   0 | SHGetFolderPath Shell32.dll
 T & T	 CC   Q! T
 CC     	   %
    T	 C	 C     \  
 T	    5 T 	 $ dotnet\shared\Microsoft.NETCore.App\ %C  
 %C  ^ BC   %C    B    \  
 
   T C
   *.* D % 
	 B    C
 C
   %C  
K T C
    %  G B C  
  \   T  CCC
 
  B    \ U 	 LCVERSION LCFOLDER LCFOLDERNAME LNX LNINDEX SHGETFOLDERPATH SHELL32 DLL
 LNFOLDERID LCOUTPUT LNRESULT HWND
 LCBASEPATH	 LAFOLDERS	 LNFOLDERS GetwwDotNetBridgeT      InitializeDotnetVersion     oLastException_Accessh      lThrowOnError_Assign      Init.      Loadg     
 SetClrVersion]      Unload      EnableThrowOnError}	      CreateInstance	      CreateInstanceOnType      CreateInstanceFromFile      InvokeMethod      InvokeMethod_ParameterArray      InvokeMethodAsync      InvokeTaskMethodAsync       InvokeStaticMethodAsync$      GetProperty(      GetIndexedProperty)      SetProperty|)      InvokeStaticMethod)      GetStaticPropertyr/      GetEnumValuek0     
 GetEnumStringL1      SetStaticProperty2      CreateArray3      CreateComValue4      CreateArrayOnInstance5      AddArrayItem6      GetArrayItem7      SetArrayItem18      RemoveArrayItem8      GetType9      GetTypeName :      GetTypeFromNamem:      SubscribeToEvents:      DataSetToXmlAdapter;      DataSetToCursors<      XmlStringToDataSet=      CursorToDataSet=      XmlAdapterToCursors>?      XmlAdapterGetCursorZ@      LoadAssemblyA     	 RunThreadUC      ConvertToDotnetValueD      FixComErrorMessageF      GetDotNetVersionG      SetErrorPG      ToStringG      ToJson#H      FromJsonH      ToXmlI      FromXmlJ     
 GetPropertyExK     
 SetPropertyExL      OnCompletedL     OnErrorL     GetHighestDotnetVersionL     Setup O     UnSubscribeP     HandleNextEvent[P     OnCompletedP     InitsR     LoadS     UnloadX     GetDotnetCoreRuntimeFolderJY    p T  
 T    T - T 
      T 
 v4.0.30319 T - T -
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      
  !   
  "   
  #   
  $   
  %   
  &   
  '   
  (   
  )   
  *   
  +   
  ,   
  -   
  .   
  /   
  0   
  1   
  2   
  3   
  4   
  5   
  6   
  7    U 
 ODOTNETBRIDGE	 CERRORMSG LERROR OLASTEXCEPTION CCLRVERSION LUSECOM
 LTHROWONERROR 
  8   
  9    U  j        T   T  T  T 
  ;   
  <   
  =   
  >    U  OBRIDGE OHANDLER OSUBSCRIBER OPREFIX8 
 T    
  ?   
  @   
  A   
  B    U  CRUNTIMEFOLDER wwDotNetBridge Customb     AsyncCallbackEvents Custom\e     EventSubscription AsyncCallbackEventswe     wwDotnetCoreBridge wwDotnetBridgef    P1  Q  A r aQq A A  ?  !p1  9 q 11A 01  q   1q1qA A 3 q A ? q1 QS1t R!q A c#"q A A aA  > q  >  ! A 4 = q  q A   QQ QA 1q A  = 1q  q A   Q A 1q A r  1 q  q A    Q A   1      QQ r A A 1 A  =     A  " A qQA QA A 1 A  ? qq   QQA > q  QQA  1 q  QQA ?  =  <  > 2     QQ A 1 A  <    1q A  =  QA 3q A bR=  q  aq A  <   1q A r ? q   a!! A  aq A  < q q 1"A  >  Raq A q A aq A r <  aq A r <  < 1>  q A r > q = q Q< q >    A q  = q q  q A R1 = q R q A > q q  aq A  = q   q A R uaA  Q q A < q Rq A qqq A ! AA r <    rq q A A  RQ  !a A A A A  q A  Bq > q q   q A  A b1q A  b1q A A r =  q qa p1   1A   A  baQQq    A  > q q   A  A B!= < q   A A  > q >   aA  =   QQA  aq A  <   aA  =   QQA  aq A   1  <  1  <   1   a  A  1q A QAA A A  1 1 8 1A 4 9    A A S 1 !AA A  A 01 q A 3 q A > q QS1   !A rQq A  !q A c#"q A A cA  >  a A  1 q 1 A  Q  A R A B!A B   A q!qA A "5      v             p  `       @   @   @      @    0  @ ` p        `  0  0   7 `  4 5        1   p  @ p1                      :  &        D  A      I  s  k      )    t             /   n       O          S      5!    Y   m!  !    [   #  (  "  y   <*  /  P     1  5       6  ?       A  E       ;H  `O      P  W  J  2  Z  a  x  O  Tc  c    R  Be  e    U  
g  g    X  h  p    |  q  s      t  
v      w  x  ;    "z  "{  P    |    i    
        Q         c  b        :        T              B                         ȕ  ʖ  (      ,  <     Ț  r  V    :    k    ɟ      #  _  ɤ    2        N  n      e    ]    l  Ӵ  J  J            :  d        ;        9      p  C      i                  +        f  .      T  ;        n       Q  z                      9      g                P  =  4        M  E        L        r    z  H       i  H    C        C  
  
    %         
    R  #  G+( wwAPI G+( wwUtils U  WWAPI WWUTILS0 4        T  CC        6  T CC 	 C    6 %C  m  B-  T a   %C 
  Q       
 F  Q       T -  % 
 Q       
 F  	 B  U  LCTABLE LCALIAS
 LCOLDERROR LLRETVAL LOEVAL        T C  

 % E  T C
 F    %CC[  B 
 %C+
t  #CO   #)
 %C+
  #CO   %  C 
	 
 F   U  LCALIAS
 LCOLDALIAS LLALIASSPECIFIED           T  CC        6 %C  C 
 T    y  T C     # %C  C C C    T CC \ 	 B   T CC      6 %  T C 	  % 
q T C   % M B-  C   C  Ba    T -  C     T a 
 %  B-  Ba  	 B  U	 
 TCFILENAME TCSTRING
 LLSHAREDWRITE LLWRITEUTF8 LCRETVAL LNHANDLE LNSIZE
 STARTSWITH LLFAILEDR    # %C   C C C  B  T  CC  \ 	 B   U  LCSTRING
 STARTSWITH8     * BCCC_  -   C
 C
     U  LCOUTPUT
 LCFILENAME APPENDTOFILE>       %C   %C  CD 
 T    %C { $ T C] \__LogString.txt   T C  %  C 0
	  T C   %  T C  %   B   C   C    C  C  U  LCOUTPUT
 LCFILENAME LHFILE	 __LOGPATH    -        	 
  %C VT L ,activecontrol,classlibrary,baseclass,comment,controls,objects,controlcount,6 parentalias,parentclass,helpcontextid,whatsthishelpid,D tag,onetomany,childalias,childorder,relationalexpr,timestamp_column,0 class,name,parent,width,height,top,left,picture, ! %C
 loInput.Classb C T C   N  T C EMPTYN  T C   b  (  T CC   @% %C ,  , '   .  T C loInput. b
 HD* C
 ALEN(loInput.  )b N! %C	 loObject. b U C   [1]
 % lnLength = ALEN(loInput.&lcField)
) DIMENSION loObject.&lcField[lnLength]
 	 (
 ' %C loInput.  [z]b OL loObject.&lcField[z] =  CopyObject(EVAL( "loInput." +  lcField + "[z]"))
 6 loObject.&lcField[z] = EVAL("loInput." +  lcField)
     OJ! %C	 loObject. b U	 C  
 = loObject.&lcField =  CopyObject(EVAL("loInput."+lcField))
 2! %C	 loObject. b U C  
 2 loObject.&lcField = EVAL("loInput." + lcField)
  	 B  U  LOINPUT LCPROPERTYEXCLUSIONLIST LOOBJECT LAFIELDS LNX LCFIELD LCTYPE LLCLASS LNCOUNT Z LNLENGTH CLASS            	 
 
   %C [ 
 T   %C  CT L ,activecontrol,classlibrary,baseclass,comment,controls,objects,controlcount,6 parentalias,parentclass,helpcontextid,whatsthishelpid,D tag,onetomany,childalias,childorder,relationalexpr,timestamp_column,0 class,name,parent,width,height,top,left,picture,  %C   T  B  T
 -9 %C
 loInput.Classb C    
 Collection	 
    T
     %C  O; T C
 CollectionN   (
 | T C      C     	 B
   %  T C   b  T C  b   (  T CC   @* %C ,  , ,  , - .  T	 C loInput. b % 	 	  O	i .  %	  U . * %C
 ALEN(loInput.  )b Ns% lnLength = ALEN(loInput.&lcField)
) DIMENSION loObject.&lcField[lnLength]
  ( kU loObject.&lcField[lnZ] = EVAL("loInput." + lcField + "[" + TRANSFORM(lnZ) + "]") 
  .  % ! %C	 loObject. b U .   %	  Oc    T C	 loObject. b
 H6   O! C loInput.  .Classb C	O loObject.&lcField = CREATEOBJECT(EVALUATE("loInput." + lcField + ".Class"))
   O5 loObject.&lcField = CREATEOBJECT("EMPTY")		      
  CopyObjectProperties(EVALUATE("loInput." + lcField),loObject.&lcfield, lnObjectStructureObject,llDontParseObjects,lcPropertyExclusionList)      
 .  2 loObject.&lcField = EVAL("loInput." + lcField)
  T
 a  	 B
  U  LOINPUT LOOBJECT LNOBJECTSTRUCTUREOBJECT LLDONTPARSEOBJECTS LCPROPERTYEXCLUSIONLIST LNX LNZ LNCOUNT LCFIELD LCTYPE LLERROR LAFIELDS CLASS LNROWS LOCOL LVITEM COUNT ITEM ADD LNLENGTH LCFIELDTYPE LOVALUE         %Ct
2  T    %   =
 C  >
_ 	 B    %C   BCC  \  T -
 T     T CC  \   T a 	 B  U  LCEXPRESSION LVFAILVALUE LLERROR LVRESULTY  %C   OI  7   T  C VBScript.RegExpN T   a 	 B   U  __REGEX GLOBALs  %C   Oc  7     T  wwRegEx.prg T  C wwRegEx  T   a 	 B   U 	 __WWREGEX LCREGEX GLOBALe     %C  OU  7 " T C msxml2.domdocumentN T     	 B  U  LLASYNC __XMLDOM ASYNC         %C  
@  T C  N   T C EMPTYN C  nCount 
 C  aRows(1)
 
 T   (  %    B      ~  T   ^J     T   	 B  U 	 LCOBJNAME LNX LALITEMS LNSIZE LOROW LORESULT AROWS NCOUNT                T C   %C V 
 T    %   T  wwCollection   T 
 Collection  T C N  (   CC       	 B  U  LAARRAY LNMODE LNX LNCOUNT LCCLASS LOCOL ADD         %-. 
     %C  O] 
   	 B   T   
      (   T   C    	 B  U  LAARRAY LOCOLLECTION LNCOUNT LNX COUNTY           
 T    %C  
Y  T C
 F    %C y 
 T    %   T  wwCollection   T 
 Collection  T C N ~+ T  %C 

 T C N 	 ^J  C      %C 
I
 F  	 B  U	  LCALIAS LNMODE LCITEMCLASS LORESULT LOROW LCCLASS
 LCOLDALIAS LOITEM ADD         %C 1  T C  %C 
L  B- 
 F       %C 
 " LOCATE FOR &lcSearchExpression

 %C4
       	 _J   Ba U  LOCOLLECTION LCALIAS LCSEARCHEXPRESSION ITEM          T C %C wwFileCacheK  F   3 h wwFileCache  Cx	  T
  M &     T  C  @ %C  9# %    	 C 
	% T C    
 % 
 T C    >
  	 C  T  
   T C    
 % r T C   4 r wwFileCache 	 
   C   %C 

 F  	 B  U
 
 LCFILENAME LNREFRESHSECONDS LLMERGETEXT LCOUTPUT LNHANDLE __LOEVAL LCALIAS WWFILECACHE FILENAME TIMEREAD CONTENT FILE2VAR	 MERGETEXT  4   5  T C
 F  T C & %C  M  Q    Q      Q 
 F   B U 	 PCNEWNAME
 LCOLDALIAS LCDBF     
 % K  T C lvValueb %  AG  Ba   T C   %  X	   U  Ba 4 %C  C M N Y D T L C  	  Ba  B- U  LVVALUE LLCHECKARRAY LCTYPE /           	 
     T C  (  3 T  C   {C _ }CC ParmC __ 	 B   U
  LCFORMAT PARM1 PARM2 PARM3 PARM4 PARM5 PARM6 PARM7 PARM8 PARM9 PARM10 LNPARMCOUNT LNX 4           	 
    T C  C % 
 < BC    C    6C    6 " T CC >   ,  6$ T CC > 	  z!x  6 T C 
	  z!x  6 T C    % 
.	 B   
 % 
 T
    T C 
  %   BC
   C > \  T C 
  %   BC
  C > \ 
 % 	 B
    T  C > T
 C   \ T C 
  %  Q BC
  \  T C 
  %   BC
  \ 
 %  BC
 \  	 B   U  LCSTRING LCDELIM1 LCDELIM2 LCDELIM3 LLENDOK LLINCLUDEDELIMS LNX
 LNLOCATION LCRETVAL LCCHAR LNNEWSTRING LNEND
 LLISDELIM3 LCNEWSTRING            
 	  T C
 CollectionN %C m 
 T    %C  
 T   %C  
 T      T  ,  < lnCount = ALINES(laLines, lcString,lnFlags &lcParseChar)
  (  T
 CC  	 > %
   T C	 MEMOWIDTHv G$(  T CC  	   (  CCC  	      G$(   CC  	     	 B  U  LCSTRING	 LNLINELEN LNFLAGS LCPARSECHAR LOCOL LNOLDMEMOWIDTH LNCOUNT LNX LNY LALINES LNLENGTH ADD         T C  =   %  K 	 B    T C   C >\ %  "  T C "  %   	 B    BC  \  %  '% T C '  %  	 B    BC  \  T C    T C >  %     
	 BC  \  BC  \ U  LCELEMENTXML LCATTRIBUTE LNAT LNAT2 LCSUBS        T C       -a ! BC         U  LCSOURCE LCSTART LCEND	 LCREPLACE	 LCEXTRACT EXTRACT        
 %    
 T    +a  T C           %    
 T    ! 
 T    	 B    T C       a  %C  
 T    BC       U	  LCSOURCE LCSTART LCEND	 LCREPLACE LLALL	 LCNEWTEXT REPLACETEXTANDDELIMITERS	 LCEXTRACT EXTRACT        %C B ! BC     C
 C
 C	 `  %C u   T   C
 C
 C	     C  >(  %CC   \ 
  BC   \  	 B   U  LCSTRING LCCHARS LNX+    ! BC     C
 C
 C	  U  LCSTRING       %C > C  %C  8  Ba  B-  % 
x  %C  C >= t  Ba    %CC  @C >=C @  Ba   B- U  LCSOURCESTRING	 LCCOMPARE LLCASEINSENSITIVE       %C > C  %C  8  Ba  B-  % 
x  %C  C >R t  Ba    %CC  @C >RC @  Ba   B- U  LCSOURCESTRING	 LCCOMPARE LLCASEINSENSITIVE    7 | WideCharToMultiByte kernel32      T C  > T CC   Q T C  >- T C               %   	 B    BC  \ U  LCUNICODEINPUTSTRING WIDECHARTOMULTIBYTE KERNEL32	 LNNEWSIZE LCBUFFER
 LNANSISIZE	 LNOLDSIZE 4      %C  C7  T  ADD  %C  N  B  T  CCC  `@ %  ADD  %C  
 
 G)(   BC PATHv   T CC PATHv@ %  ADDN %C   C  
 	 B   * %C ;   ; ;  ; 4	 B    T   ;   * %C ;   ; ;  ;
	 B   % T C  ; ;   ; ; T C C >\  SET PATH TO &lcOldPath
	 B  U  PCPATH PCMETHOD	 LCOLDPATHp     ) T CCC  @ // /    /   % 
[  T C  www.    BC 2 U  LCURL LLNOSTRIPWWW LCTEXT EXTRACT         %C 6 
 T   T C    b
 T     ( $ T C	 loObject.C   b %C  UO D$ T C	 loObject.C    %  C
 C >P	 T C P= 9 T  C
 C
 CC   @  = CC   _ f T  C
 C
 CC   @  = CC	 loObject.C   b O  Object  NULL6  	 B  U  LOOBJECT LNMODE LNX LNCOUNT LCOUTPUT LAFIELDS LCTYPE LVVALUEU          
 T  +aE T C <pre    T C /pre>    %       !  T C     \, T C  <p>C
 C
 C
 C
 ' T C  <br>C
 C
 C
 ! T C  <br>C
 C
  T  C     T   	 B   U  LCHTML
 LNCOLWIDTH LCPRE LCFIXED
 LCPRECOUNT LNAT1 LNAT2
 LNPRECOUNT     BC     U  LCHTML
 ENCODEHTML    ' lcHTML = STRTRAN(lcHTML,"<","&lt;")
' lcHTML = STRTRAN(lcHTML,">","&gt;")
) lcHTML = STRTRAN(lcHTML,["],"&quot;")
* lcHTML = STRTRAN(lcHTML,[& ],"&amp; ")
	 B   U  LCHTML     BC     U  LCHTML
 ENCODEHTML    ' lcHTML = STRTRAN(lcHTML,"&lt;","<")
' lcHTML = STRTRAN(lcHTML,"&gt;",">")
) lcHTML = STRTRAN(lcHTML,"&quot;",["])
( lcHTML = STRTRAN(lcHTML,"&amp;",[&])
	 B   U  LCHTML     BC     U  LCHTML
 DECODEHTML        %C M , T  script|iframe|object|embed|form  %C  i 	 B   " T C GetwwDotnetBridge()I BC" Westwind.WebConnection.StringUtils SanitizeHtml        U  LCHTML LCHTMLTAGBLACKLIST LOBRIDGE INVOKESTATICMETHODy     T  C  C
 C
 C
  T  C  C
 C
   T  C  C
 C
  <p> BC  C
  <br> U  LCHTML_      %C  > ' 	 B    T  C   = BC  C    = ... U  LCTEXT LNLENGTH        %C  , 
 B  %C P  T  OPEN  %C s  T C] = | ShellExecute SHELL32.dllQ ShellExec_1 %C  
 T    " BC9            U	  TCURL TCACTION TCDIRECTORY TCPARMS SHELLEXECUTE SHELL32 DLL SHELLEXEC_1 HWND0        BC           U  TCURL TCACTION TCDIRECTORY TCPARMS SHELLEXECUTE         %C ;  T C]C 
 T   
 T    T C "   %    T C "    %    T C   \ T CC   \   T C   "    j T C   "   T C     % f T C   \ T CC   \   T C  "   C   OPEN      U 
 LCCOMMANDLINE LCFOLDER LCEXE LCPARMS LNAT GOURL       T  CC        64 T CC  C] \ww_HTMLView.htm  6 C        %C loWebBrowserb O  C       C     B U  LCHTML LCFILE LOWEBBROWSER FILE2VAR NAVIGATE GOURLy       %C R 4 T CC  C] \ww_HTMLView.xml  6 
    BC         U  LCHTML LCFILE LOWEBBROWSER SHOWHTML       %C R 4 T CC  C] \ww_HTMLView.txt  6 $ %C  C   MODI	  C       /  B  BC         U  LCHTML LCFILE LOWEBBROWSER FILE2VAR SHOWHTML+      T CC   <  6 T CC   >  6 %C    j 	 B   ' T  C    BR C
 C
 2 T  C    P C
 C
 C
 C
 ' T  C    br C
 C
 2 T  C    p C
 C
 C
 C
 1 lcHTMLText = STRTRAN(lcHTMLText,"&nbsp;"," ")
 T  x +C 
 T C     %C  !  T  C        / lcHTMLText = STRTRAN(lcHTMLText,"&lt;","<")
/ lcHTMLText = STRTRAN(lcHTMLText,"&gt;",">")
	 B   U 
 LCHTMLTEXT LCLTAG LCRTAG	 LCEXTRACTN     T CC   @0_R+ B #C \C \C = U 
 LNRGBCOLOR LCCOLOR       %C + 
 T     %C 
p 1 B	 <a href="   "   >  </a> ( B	 <a href="   ">  </a> U  LCURL LCTEXT LCATTRIBUTES_            	 
  T C] T C @   % 
o 	 B    %C  
 T     %C  
 T     T  C  ` T C ` T C   = T	 C   \? T
  <a href="javascript:  ('  ','	  ' %C 
x, T
 
  ,'CCC `  +   '  %C 
, T
 
  ,'CCC `  +   '  T
 
  );"   > %C 
 T
 
    T
 
   ;lcOutput = lcOutput + [</a>] + [<script> function ] + lcFunc + [(eValue,Text,Subject,Body) { ] +  [var c1 = 'ma'; var c2 = 'ilto:'; var Link = c1 + c2 + eValue + '@' + Text;] + [if (Subject) { Link = Link + '?Subject=' + Subject; } if (Body) { Link = Link + '&Body=' + Body; } ] + [window.open(Link);}</script>]
	 B
  U  LCEMAIL LCTEXT	 LCSUBJECT	 LCMESSAGE LCATTRIBUTES LCIMAGE LCFUNC LNAT LCEMAIL1 LCEMAIL2 LCOUTPUT	 URLENCODE         %C 6 
 T P  %C  
d  T CCC    @ y 
 T     %C  
 T     6 lcDefaultImage = "&d=" + UrlEncode(lcDefaultImage)
  %C   T  pg v lcUrl = "//www.gravatar.com/avatar/" + lcHash + "?" + "s=" + TRANSFORM(lnSize) + "&r=" + lcRating + lcDefaultImage
	 B  U  LCEMAIL LNSIZE LCDEFAULTIMAGE LCRATING LCHASH HASHMD5 LCURLY      T  C  @
 H* I C *htm*  }W  T 	 text/html0    xml    rtf    css  T  text/      pdf  T  application/pdf    fdf  T  application/vnd.fdf"    doc    dotB T  application/msword    ppt* T  application/vnd.ms-powerpoint"    xls    iqy% T  application/vnd.ms-excel    xslx*N T A application/vnd.openxmlformats-officedocument.spreadsheetml.sheet>    txt    asc    sdf    prg T 
 text/plain?    file    exe    dll    bin% T  application/octet-stream C wp*  }' T  application/wordperfect5.1 C vs?  }V" T  application/vnd.visio    js% T  application/x-javascript    json T  application/json    zip T  application/zip C jp*g  } T 
 image/jpeg C tif*  }J T 
 image/tiff0    gif    bmp    tng T  image/   C svg*  } T 
 image/svg-xml 2I T C wwAPIN3 T C        .   Content Type   %C E% T  application/octet-stream  	 B  U  LCEXTENSION
 LCCONTENTTYPE LOAPI READREGISTRYSTRINGw       
 T    (C  >g / T  CC   \  	 B  U  TCWORD I LNWORD-       BC     U  LCSTRING LCSOURCE	 LCREPLACE            	  %C   NP 
 T    %  
r 
 T    %   
 T    %C  
 T    j T = abcdefghijkmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890C  
 !@#$%&*+-?   6  T	 C  Q 7
  %
 
x# | CoCreateGuid	 Ole32.dll T
 a  C	  
 T     (   T CCC	  \C >G T  C  \ 	 B  U  LNLENGTH LLINCLUDESYMBOLS LCADDITIONALCHARS LCCHARS LCGUID LCID LNX LCHEX LNHEX LCGUIDBINARY __COCREATEGUIDAPI COCREATEGUID OLE32 DLL     T C   %C  N I Y F=  Ba  %  CZ  B- & %CCC  
 01234567890.,    Ba  B- U  LCNUMBER LCTYPE     
 % j  %C  2  B '' 4 B 'CC   @R 9999-99-99 99:99:99_ '  %C    B {^} 5 B {^CC   @R 9999-99-99 99:99:99_ } U  LTTIME LLSQL1     %C   	 B    BC  * U  LDDATE         %C  2 	 B    T C   %  DT  T C  2 T C
 {0}. {1}, {2}CC  !=C  %C  i   	 B    %  D 	 B   %C DATEv AMERICAN T C   T  am % > T   T  pm  %  o
 T  T  am 9 T  C  {0}:{1}{2}C  CC   0    2 T  C  {0}:{1}C  CC   0  	 B  U  LTTIME LCTIMESTAMP LNHOUR LCAM LCTYPE STRINGFORMAT       %C . 
 T    %C  J 	 B   ! T CC  !=  CC  %_ %   T    - C    	 B   %    T   , CC  i_  %  T     C     	 B  U  LTDATE LNMODE LCTIME LCDATE	 SHORTTIMEV       %C  & 	 B    T C   BCC   [@ U  LTTIME LCTIME         %C  <  T      ƞBA  %C   C ; %C  >	 C  \ -	 C  \ -	  T  C       T  C    %C    T      ƞBA   % 
1 %C   D T  C    T  C      T C   % 
h T   Z  % 	 B   T C C T \	 B  U  LDDATE
 LLINCLUDETIME LLNOUTC LOENV LCDATE FROMISODATESTRING
 GETUTCTIME       # T C wwEnv DATE ANSIN T C   %C ] 	 B   %C  R Z  T C    	 B  U  LCDATE LOENV LDDATE FROMUTCTIME          T C wwEnv HOURSN %C TDC  ٭
W 	 B    T C   T C C   \ % 
  T C = 	 B  U  LTTIME LLINCLUDESECONDS LOENV LCTIME          T C
 CollectionN& T C     C
 C
   (   T CC    %C   .  T C  .,:!?   C     	 B  U  LCTEXT LOWORDS LNCOUNT LNX LCWORD LAWORDS ADD       
 T C %C   DH  T  C    T     T  ?
 T   
 H   <
  T  just now  ;  x
	  T  a minute ago  x	  
	-% T CC <8_  minutes ago  	   
	c T  an hour ago     Q 
	 T C 87 T C _  hourC   s   6  ago"  Q   
  
	$ T CC Q 8_  day ago"  Q    ' 
	[% T CC Q 8_	  days ago"   '    
	 T C  ' 88 T C _  monthC   s   6  ago 2" T C   
 MMMM dd, yyyy  	 B  U  LTDATE LNVAL	 LTCURRENT LTDIFF LCTEXT FORMATVALUE        %C  . 
 B null  %C    T C   %  T	   D  T     lBA  " T C GetwwDotnetBridge() %C   %C   C 	 B    BC    ToString     BC    ToString     U  LVVALUE LCFORMATSTRING LOBRIDGE LCTYPE INVOKEMETHOD/           	 
    
 T Ct" T C GetwwDotnetBridge()
 Hv    . BC
 System.String Format      
    2 BC
 System.String Format        
   ?6 BC
 System.String Format          
   : BC
 System.String Format            
   > BC
 System.String Format              
   ,B BC
 System.String Format                
   F BC
 System.String Format                  
   	J BC
 System.String Format                    
   
=N BC
 System.String Format                    	  
   N BC
 System.String Format                    
  
  2- $ Too many parameters for FormatString  U  LCFORMAT LV1 LV2 LV3 LV4 LV5 LV6 LV7 LV8 LV9 LV10 LNPARMS LOBRIDGE INVOKESTATICMETHODc      %C   C  
- 	 B    %C S  T    lBA 	 B  U  LTDATETIMEVALUE
 LTDATETIMEE    #        	 1 T $ JanFebMarAprMayJunJulAugSepOctNovDec" T  SunMonTueWedThuFriSat %C   CU 
 Q DATETIME -
   T C        % 
  B         % %CCCC V ,   
H  C  C  ! T CCC  _Q T CCC gC gCC gCCC =gCCC \gCCC Rg % 
	 B   T C
 < T CC gd T	    T
  	  H T
          	 B
  > %C   D T  C    T C
 < %C  
 T  C 
 %  T       T C  ) %  		 B   " T  SunMonTueWedThuFriSat6 T C  \ , CC  %_  u T  C C  H\  CC  i_  CC   0 :CC   0 :CC   0
 %  B   GMT :: B C     -   +6CCC _ 0 00   U 
 LVDATETIME LLGMT LCDAYS LCMONTHS LNCOUNT LCMONTH LTTIME LNOFFSET LNOFF LNDIFF LTRESULT LAPARTS APARSESTRING GETTIMEZONE LNDAY LCMIMEC     %C    " 	 B    BC  C
 C
    U  LCSQL
 ISNULLOREMPTY     7  % 
T - | JsonEncodeString
 wwipstuff.dll T a    T C  C  >Q T C      BC   U  LCVALUE __JSONENCODESTRINGAPI JSONENCODESTRING	 WWIPSTUFF DLL LCOUTPUT	 LNPOINTER WINAPI_NULLSTRING         %C   D;  T  C    %C  a  T      ƞBA " T C GetwwDotnetBridge() BC         U  LVVALUE LLASSUMEUTCDATE LCDATE LOBRIDGE
 ODOTNETBRIDGE
 TOJSONUTCDATE*      BC  
  true  false6 U  LLVALUE
 H
   CC  9  T CC  C   _  T C]C C .APPC ]   T CC ] 2  T CC ] %C	 PROCEDURE    T C C : \   BC  U 	 STARTMODE LCPATH
 SERVERNAME    + | GetShortPathName Win32API
 T     T CX T C > T C       %   	 B    BC  = U  LCPATH GETSHORTPATHNAME WIN32API LCSHORTNAME LNLENGTH LNRESULT        ) | GetLongPathName WIN32API T CX T CC    %C  
 %  	 B   
 BCC  @  T C     %   
 %  	 B   
 BCC  @  BC  = U 
 LCFILENAME LLCHECKFILEEXISTS LCFILE LCSHORTFILENAME LNRESULT GETLONGPATHNAME WIN32API	 SHORTPATH`     " T C GetwwDotnetBridge()0 BC System.IO.Path GetFullPath      U  LCFILE LLCHECKFILEEXISTS LOBRIDGE INVOKESTATICMETHOD\    " T C GetwwDotnetBridge()0 BC System.IO.Path GetFileName      U 
 LCFILENAME LOBRIDGE INVOKESTATICMETHODa    " T C GetwwDotnetBridge()5 BC System.IO.Path GetDirectoryName      U 
 LCFILENAME LOBRIDGE INVOKESTATICMETHOD      %C ,  T C]C " T C GetwwDotnetBridge()J BC  Westwind.WebConnection.FileUtils GetRelativePath        U  LCPATH
 LCBASEPATH LOBRIDGE INVOKESTATICMETHOD        " T C GetwwDotnetBridge()Y T C  Westwind.WebConnection.FileUtils SaveFileDialog              %C  	 B   	 B  U  LCFOLDER LCTITLE LCDEFAULTEXTENSION LCEXTENSIONS LLPROMPTFOROVERWRITE LOBRIDGE LCRESULT INVOKESTATICMETHOD       " T C GetwwDotnetBridge()U T C  Westwind.WebConnection.FileUtils OpenFileDialog            %C  	 B   	 B  U  LCFOLDER LCTITLE LCEXTENSIONS LLCHECKFILEEXISTS LOBRIDGE LCRESULT INVOKESTATICMETHOD     " T C GetwwDotnetBridge() %C I 
 T    O T C  Westwind.WebConnection.FileUtils OpenFolderDialog        %C  	 B   	 B  U 
 LCSTARTFOLDER
 LCDESCRIPTION LOBRIDGE LCRESULT INVOKESTATICMETHOD^ 4         T CC  ,  6 T C    7  % 
  |
 DeleteFile WIN32API T a   ( Pm T
 CCC   iCC   HCC   %CCC   =gCCC   \gCCC   Rg %
  C
L CCC  C       Ba U 
 LCFILESPEC	 LNTIMEOUT LNX LNFILES LOAPI LOEVAL LAFILES __DELETEFILEAPI
 DELETEFILE WIN32API LDTIMEG    
   %C    DH
9  B-  Ba U  LCPATH LATEMP       
   T C    %  T  B          T C D BC {^CC i_ -CC H_ -CC %_  C  } U 
 LCFILENAME LNFILE LDDATE LAFILEe       
   T C    %  N 	 B    BC  U 
 LCFILENAME LNFILE LDDATE LAFILEp        T C    % @ 
 B  T C   C 	 B  U 
 LCFILENAME LH LNSIZE     + T CC lcStyleb C C f   6 %  WEBa  T  C   \ /   T  C   / \ 	 B   U  LCPATH LCSTYLEG    (3  %CC  ]/  !  
 B   U  LNX&       BC     U  LARESULT LCSTRING LCDELIMITER           %C =  T  #@#  T C
 CollectionN
 T  +a  T C     %C   !  C     T  C    C _  T   	 B  U  LCSOURCE LCSTART LCEND LCDELIMITER LOTOKENS	 LCEXTRACT LNX ADD         Q
 COLLECTION %C G  T  #@#  +a  T CC    g % 
  ! ' T  C   C _ C     	 B   U  LCSTRING LOTOKENS LCDELIMITER LNID ITEM            %C  > 7  % 
 1 |	 URLDecode	 WWIPSTUFFQ
 API_URLDecode T a  T C    %    T  C   \  
 T     
 %   BC   	 B    T  C   +  
 T   
 T  +a T C %  " % C  >  
 T     !  T C   \ T   T C 0x    % ^( T  C   =CC 0x   %C  > N T  C   \ Z !   T  C   \ T  C   \  
 %  BC  	 B  U  LCTEXT LLUTF8DECODE LNSIZE LNLOC LCHEX LNHEX LCRETVAL LOEVAL __URLDECODEAPI	 URLDECODE	 WWIPSTUFF
 API_URLDECODE   ' lcText = STRTRAN(lcText,"&lt;","<")
' lcText = STRTRAN(lcText,"&gt;",">")
) lcText = STRTRAN(lcText,"&nbsp;"," ")
) lcText = STRTRAN(lcText,"&quot;",["])
( lcText = STRTRAN(lcText,"&amp;",[&])

 T    +a T C &#  " % C  >  
3 T     !  T C   \" T  C   =CC   %C  >  T  C   \  !  	 B  U  LCTEXT LCRETVAL LNLOC LCHEX            " T CC       &  6 %C d 	 B    T C    + T - T	 C &  =  %	 
  T	 C ?  =  T a  %	 
  	 B  % 
:' T C  &  = & i' T C  ?  = &  %C 	 B    BC  
  U  TCURLSTRING LCKEY LLNULLIFNOTFOUND LNLOC C2 CSTR LCURLSTRING LCRETVAL LLQ LNAT	 URLDECODE
            % T C wwNameValueCollectionN %C k 
 T     T	  &   T C & 	  %   	 B   T	 C	  \ +   T C =	  %   T C & 	  .  T C	  \ T	 C	  \ T C & 	  %  
 T 	   T C	   =  T C  
  T C  
  C       T	 C	  \ 	 B  U  LCVARS LCPREFIX LOVARS LNX LNAT LCPOINT LNEQUAL LCKEY LCVALUE	 LCPOINTER	 URLDECODE ADD{         %C  2 	 B    T - T C  = %C  ? &
  T   &   T a ' T C   &  = & %C ' T C   ?  = & %C 
 T  C    ?  ;  T  C   &  =   %  C  = &	k BC  \ 	 B   U  LCQUERY LCKEY LCVAL LLSTARTADDED LCLEFT            
 T    T	 - T C  = %C  ? &
  T   &   T	 a T  &  T C  
  T C &  =   % 
 T C ?  =   %   T  ?  / T  &  %   T C   \ T C &  %  T C >  T C  =
 %	  T  C  \  BC      =   T C  R
 Hl C  + T   ?   ?	   &V
 T    2l T  & 
 %	  T  C  \  B     =  U
  LCQUERY LCKEY LCVALUE LCFULLVALUE LNLOC LNLEFT LCLEFT LCRIGHT	 LLSTARTED LLSTARTADDED	 URLENCODE LCREST LNLENGTH         %C  >   T C  > T  C    7  % 
 % | VFPURLEncode	 WWIPSTUFF T a  T C      %    BCC  ` \ 	 B   
 T     (C  > T C   \
 H/> C ( ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-._~ ~ T        T   %20 2$ T   %CCC  @0_R  	 B  U  TCVALUE LCRESULT LCCHAR LNSIZE LNX __VFPURLENCODEAPI VFPURLENCODE	 WWIPSTUFF         -  T C   (  
 HF  , C  C   ERRORMESSAGE	  T    2 
 T    	 B  U  LCEVALSTRING
 LVERRORRESULT LVRESULT LOEXCEPTION MESSAGE        
 T    9  &lcCommand
 (   %C a 
 T    
 Hr     ERRORMESSAGE  T  Error:    2 
 T    	 B  U 	 LCCOMMAND
 LCERRORRESULT LCRESULT LOEXCEPTION MESSAGEi        %C  OE  7  T C wwEvalN  BC           U  TCSTRING TCDELIMITER TCDELIMITER2
 LLNOASPSYNTAX __GOEVAL	 MERGETEXTj        
 % E ! BCC              BCC            U  TCFILE TLCACHETEMPLATE TCDELIMITER TCDELIMITER2
 LLNOASPSYNTAX	 MERGETEXT	 CACHEFILE FILE2VAR@         %C 6 
 T  
 % T 
 T   T C wwScriptingN
 %  ' T   wwScriptingHttpResponse 
 H 0    BC       
 T  a BC       0 BC        	 B   U	 
 LCTEMPLATE LNMODE
 LLISSTRING LLUSEHTTPRESPONSE LOSCRIPT CSCRIPTRESPONSECLASS RENDERASPSCRIPT LNOVERSIONCHECK
 EXECSCRIPT     T C wwAPINW T C  , SOFTWARE\Microsoft\Windows NT\CurrentVersion CurrentVersion   %  
  %C   B-   Ba   %C  
 B  BC g U  LLRETURNVERSIONNUMBER LOAPI	 LCVERSION READREGISTRYSTRING       T  C X+ | GetWindowsDirectory Win32API T C     %    T  C   \ \   T  C  `  T 
 v2.0.50727) T     Microsoft.NET\Framework\# T C    v?.*.* D % 
>
 T   
 T     B-    ( T C    T C    %C 
 regasm.exe0 T  C  !   Ba U	  LCFRAMEWORKPATH	 LCVERSION X GETWINDOWSDIRECTORY WIN32API LNSIZE LNCOUNT	 LANETDIRS LCTPATH    Z T  CC Program Files 64Bit   (x86)  $ dotnet\shared\Microsoft.NETCore.App\ %C    
 F T C
 Program Files $ dotnet\shared\Microsoft.NETCore.App\  %C    
  B- " T C    ?.*.* D % 
4
 T   
 T     B-    ( T C    T C    %C  coreclr.dll0 T  C  !   Ba U	  LCFRAMEWORKPATH	 LCVERSION GETSPECIALFOLDER ISDIR LCPROGFILES LNCOUNT	 LANETDIRS X LCTPATH       %C  )  B-  T C wwAPIN, T C          \CLSID     %C  
 T   
 T    B-  %C  C # T C               %C  
 T      %C  Cq> T C        CLSID\  \LocalServer32     %C m
 T      Ba U  LCPROGID	 LCCLASSID LCCLASSDESCRIPT LCSERVERPATH LOAPI READREGISTRYSTRING LCCLASSDESCRIPTION|       %C  & 	 B    %C  \ OLEO 	 B    T C :    BC   \ U  LCMSG LNAT          %C  0
5  B-  T - % 
8 T C]C T C  
    | DllRegisterServer   %C    % 
 & R,:    has been registered...  T a */ R,    could not be registered... 
   " | DllUnregisterServer   %C   % 
( R,:    has been unregistered...  T a  	 B  U  LCSERVERPATH LLUNREGISTER LLSILENT LLRETVAL LCPATH	 LCOLDPATH DLLREGISTERSERVER DLLUNREGISTERSERVER-   Q STRING Q STRING Q STRING    % 
 UNREGISTERk  T a
 T    ~  T -  %C 
	 C   	 
 T    Ba 
 T   
 T    %C  
(> T 1 DotNet Framework not installed or path not found. B- " T CC 
 regasm.exe	  %C A T  Couldn't find RegAsm.exe at:C
  
 regasm.exe B- 
 % . T    "CC  	 
 " /unregister , T    "CC  	  " /codebase ^ R,: Hang on. Trying to register C    ...C
  This may take a few seconds...  %C >s RUN /n &lcRun
 C7  RUN &lcRun
  (
  -
    R %C  Ba  T C    % 
T  Registration of C    failed.C
 C
 
 Command Line:C
  RUN /n  C
 C
  Full deduced RegAsm Path:C
  
 regasm.exeC
 C
 = You can manually register your assembly by running REGASM.EXEC
 B from the framework BIN directory with the following command line: C
 9 <.Net framework bin path>\RegAsm /codebase <yourassembly>C
 C
 N The command line to register the component has been pasted into your ClipBoard 	 B  U
  LCDOTNETDLL LCPROGID LCERROR LCFRAMEWORKPATH	 LCVERSION LLUNREGISTER ISCOMOBJECT ISDOTNET LCRUN	 SHORTPATH OEXCEPT MESSAGE LLRESULT       %C  N5 
 T    %C  U 
 T      %C u 
 T Q  %C  C  T C g  %C   T  / 
 T    %C  
  B-  %  ( T C  webDev.WebServer.exe %C  R \X T  C  C  >\ J BC   /port:C _  /path:"  
 " /vpath:"  "C    % O[ T CC console.exe: \visualStudio\InternalWebServer\WebConnectionWebServer.exe9 BC   "   " "C _ " "  "C   < T C
 Program Files  IIS Express\iisexpress.exe %C 0
q %C IIS Express is not installed.C
 C
 ' Do you want to download and install it?$ Launch IIS ExpressxiJ C= http://www.microsoft.com/en-us/download/details.aspx?id=34679   B < T	  /port:C _  /path:"   " /systray:true= T
 C. VisualStudio\IISExpress\applicationhost.config %C
 0
 T  
 T  
 T
    T CC
  D T C]0 \IISExpress_WebConnection_ApplicationHost.config C  7 T	 	 /config:"  " /siteid:1 /systray:true  T C   	 C    U 
 LCPHYSICAL LNPORT	 LCVIRTUAL LNTYPE LCPATH ISDOTNET CREATEPROCESSEX GETSPECIALFOLDER GOURL	 LCCMDLINE LCCONFIGFILE	 PCVIRTUAL PNPORT PCPHYSICALPATH LCMERGEDCONFIG	 MERGETEXT LCOUTCONFIG LLRESULT           ) T CC lcRunAsb C     6* T  CC lcProgIdb C      6 T CC      6 T C wwAPIN, T C          \CLSID    & T C                %C  C 3 R,: Invalid Class Id... B K R,:  Configuring server security for C
 C
   C
 C
  - T C   AppId\  RunAs-   %C 
 %C  C  C    SYSTEM  # %C dcompermissions.exe0
M4 R,$ Couldn't find dcompermissions.exe... B " T	 C dcompermissions.exe T	 C 	 
 F T  RUN 	   -runas          > dcom.txt
 &lcCMD
 T C DCOM.TXT   DCOM.TXT& %C 
 C ERROR:  	rI C  C
 	 Account:  C
 C
  0 DCOM Permissionsx B-  %C       
I C  C
 	 Account:  C
 C
  0 DCOM Permissionsx B-  $C %C   SOFTWARE\Classes\CLSID\  AppId  a  
]) R,: Unable to write AppID value... B 5 %C        AppID\ C  C  a  
' R,: Unable to write AppID key... B - C        AppID\     a  2 C        AppID\  RunAs  a    %C R T  Launching User - R,: DCOM security context set to:   B U  LCPROGID LCRUNAS
 LCPASSWORD LOAPI	 LCCLASSID LCSERVERNAME READREGISTRYSTRING
 LCAPPIDKEY DCOMCNFGSERVER LCPATH	 SHORTPATH LCCMD LCRESULT DCOM TXT DCOMLAUNCHPERMISSIONS WRITEREGISTRYSTRING      %C  
u 
 T    T C      %C q  R, Invalid Prog ID B-   
 T    " T C dcompermissions.exe T C    %C $G T  RUN    -da    set "  " permit > dcom.txt T  G T  RUN    -aa    set "  " permit > dcom.txt T  
 &lcCMD
 T	 C DCOM.TXT   DCOM.TXT& %C	 
 C ERROR:	  	*I C  C
 	 Account:  C
 C
 	 0 DCOM Permissionsx B-  %C G T  RUN    -dl    set "  " permit > dcom.txt T  G T  RUN    -al    set "  " permit > dcom.txt T  
 &lcCMD
 T	 C DCOM.TXT   DCOM.TXT& %C	 
 C ERROR:	  	I C  C
 	 Account:  C
 C
 	 0 DCOM Permissionsx B-  B U  LCPROGID
 LCUSERNAME
 LCERRORMSG	 LCCLASSID LLRESULT ISCOMOBJECT LCPATH	 SHORTPATH LCCMD LCRESULT DCOM TXTL            %C <  Ba  %C  V  Ba  T  C   T  C   \` T  "C     "
 %   T    /T   % 
  T    /E  " T    /P   :  T	 C]
 \cacls.txt %C
 wwipstuff.dll0 
  T
 C wwAPIN, CC
  	 cacls.exeC a 	    T  RUN Cacls.exe 0 T       > "	 
 "cacls.txt &lcCommand
 
 T    %C	 0$ T C	 
  	   %C > B-  Ba U
  LCPATH LCUSER LCACCESS	 LLINHERIT	 LLREPLACE	 LCCOMMAND LCFILE LCPARMS	 SHORTPATH LCOUTPUTFILE OAPI CREATEPROCESSEX GETSYSTEMDIR            T CC   T C  T C   T C F   h TDirs
  C % 
  CC       r TDirs
     T C wwAPIN ~ %C C
 `
  C
 `  %CC C
 ` ]= . 
   
 % T
 C  C
 `     (
  T C   ' C C
 `  C
 `      Q %C 
 C 	
 F   B U  LCSOURCE LCTARGET
 LLNORECURSION X LCSOURCEPATH LCTARGETPATH
 LCSOURCEFILES LOAPI LCALIAS TDIRS PATH GETDIRS LAFILES LNFILES LNX LCFILE COPYFILEV      5       %C H  T  *.*  T C   T - T C]C T C h TDirs
  C CC     & 
 
 < % 
  B-  ~E T  C
 `     % 
	 C  
 	A 5
   =   
 B 
 U  LCSOURCE
 LCFILESPEC LLNOREMOVEEMPTYFOLDERS LCSOURCEPATH LLERROR LOEVAL LCCODE LCALIAS	 LCCURPATH TDIRS PATH GETDIRS LCPATH ISDIR~         %C < 
 T     T  C  @ T C @ %C TDirs
  F   h TDirs  C - r TDirs C     & T C C   *.* D  ( wI %C DC     CC    CC   \ .S .   CC  C        U  LCPATH LCBASE X LNFILES LADIRS TDIRS PATH GETDIRSK            
 T X
 T Z T # | GetActiveWindow win32api# | GetActiveWindow win32api | GetDC win32api$ |
 GetDeviceCaps win32api T C	  T C    T C      T C      T     T    B U
 	 LNXFACTOR	 LNYFACTOR LN_X_PIXELS LN_Y_PIXELS LN_TWIPS LN_PARTIAL_X LN_PARTIAL_Y LN_HWND LN_HDC GETACTIVEWINDOW WIN32API GETDC
 GETDEVICECAPS       |
 IsUserAnAdmin Shell32 A  T C  V 
 T   %  r  B-  Ba U  LOAPI LCVAL
 ISUSERANADMIN SHELL32 LNRESULT#      C        U 	 TCSETTING
 TVNEWVALUE THIS SET      T     T  C  v4 %C
 tvNewValueb C CC f ON OFF	  SET &tcSetting &tvNewValue
  % SET &tcSetting TO (tvNewValue)   
  U 	 TCSETTING
 TVNEWVALUE THIS CSETTING	 VOLDVALUE      T     T   1 %C lvValueb C CC f ON OFF	w  SET &lcSetting &lvValue
  " SET &lcSetting TO (lvValue)   
  U 	 LCSETTING LVVALUE THIS CSETTING	 VOLDVALUE.   ! T C wwAPI	 wwapi.prg %  
 b T C HKLM5 SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon DefaultPassword   b T C HKLM5 SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon DefaultUserName    %C 	 B   	 B  U 
 LLUSERNAME LOAPI LCPASS READREGISTRYSTRING      %C  A ' T   Please enter your password  %C c  T CX 0 BC      Password Entry PASSWORD  U 	 LCMESSAGE LCDEFAULTPASSWORD	 INPUTFORMc          5    %CtK 
 T	   ^  T	   T  CC        6) T CC   Please enter  6 T CC  9
   6 T CC  ,  6! T CC 
    6 T CC   @K  6 T C 
 T    T C frmInputN T    T 
   T 
   T    T    %  PASSWORD T   @K T    Symbol T    * 
 C   %C pcResultb C> T  C ` S
 T    	 B   U  LCVALUE	 LCMESSAGE	 LCCAPTION LNFORMWIDTH LNFIELDWIDTH LCFORMAT
 LCCANCELVALUE PCRESULT O
 PCCANCELVALUE CAPTION LCTYPE WIDTH NFIELDWIDTH CMESSAGE CFORMAT TXTINPUT FONTNAME PASSWORDCHAR SHOW T   a T   9  T        T     T      	  T  
    U T  
     %C   
  %C @      T          T           T   - U  THIS ALWAYSONTOP ICON TXTINPUT WIDTH NFIELDWIDTH	 MAXLENGTH
 LBLMESSAGE CAPTION CMESSAGE	 CMDCANCEL LEFT THISFORM CMDOK CFORMAT FORMAT	 INPUTMASK
  <   U  THISFORM     %C   T  C pcResultb
 H:      CMZ 
 T       NIBY  T 	
    DT  T             L  T -   
 T    <  U  LCTYPE
 PCCANCELVALUE PCRESULT THISFORM 4          	 
   
                   + 5  ! " # $ % & ' ( )  T  C %  
 	 B    %C pnLeftb N
 T* + 
 T, -  , T, C T* C 
 T.   T/ C %C/ 
u s0 , * CW  s0 , * W 
 "   " %   C ,   	 T) C"     , ! ()  s! 0 "C ! "    ! (   T#  pcArgC! _ T% C#  T" ! %  s! 0 "%   $ 10  DEACTIVATE POPUP QK_MENU t0  <0  T( Cl %(  	 B    BCC ( "  \<   U1  PCARG1 PCARG2 PCARG3 PCARG4 PCARG5 PCARG6 PCARG7 PCARG8 PCARG9 PCARG10 PCARG11 PCARG12 PCARG13 PCARG14 PCARG15 PCARG16 PCARG17 PCARG18 PCARG19 PCARG20 PCARG21 PCARG22 PCARG23 PCARG24 PCARG25 PCARG26 PCARG27 PCARG28 PCARG29 PCARG30 PCARG31 PCARG32 LNPARMS X A_PARMS LCPROMPT	 LCCOMMAND LCPROMPTVAL LCCOMMANDVAL LCOLDRMOUSE LNBARNO LNCOUNT LNCOL PNLEFT LNROW PNTOP LNMAXLEN LCWINDOW QK_MENU
 OpenExclusive\      ForceTableRefresh     File2Var     StripUtf8Bom    	 LogStringq     AppendToFile    
 CopyObject<     CopyObjectProperties~     EvalExpression*     GetRegExObject9     GetwwRegexObject     GetXmlDomObject:     CursorToObjectArray     ArrayToCollection"     CollectionToArrayM     CursorToCollection:     CollectionToCursor    	 CacheFile     WrCursord    
 IsNullOrEmpty
      StringFormat      Extract	"     SplitString_%     GetAttribute'     ReplaceText)     ReplaceTextAndDelimiters*     TrimWhiteSpace+     AllTrimWhiteSpacey,    
 StartsWith,     EndsWith-    
 UnicodeToUtf8.     Path/    
 DomainName1     PropertyDump2    
 FixPreTags4     FixHTMLForDisplay36    
 EncodeHtmlc6    
 HtmlEncode#7    
 DecodeHtmlS7    
 HtmlDecode8     SanitizeHtmlA8     DisplayMemoZ9     TextAbstract9     ShellExecuteT:     GoUrl;     ExecuteCommandLine<     ShowHTML=     ShowXML>     ShowText?    	 StripHTML@    	 HTMLColorB     HRef?C     MailLinkC     GravatarLinkG     ContentTypeFromExtensionI    	 CharToBin1O     StrTranCO     GetUniqueIdP     IsNumberR    
 TimeToCStrictOS     DateToC'T     TimeToCdT    	 ShortDateV    	 ShortTimeW     ToIsoDateStringGX     FromIsoDateStringKZ     To24HourTimeString
[     GetWords[    
 HumanizedDate]     FormatValueB`     FormatStringa     NoEmptyDatee     MimeDateTimecf    
 FlattenSqlAk    
 JsonStringk     JsonDatel     JsonBoolm     GetAppStartPathm    	 ShortPathn     LongPatho     GetFullPath\q     GetFilenameq     GetDirectoryNamer     GetRelativePaths     SaveFileDialogs     OpenFileDialogu     OpenFolderDialog*v     DeleteFiles8w     IsDiry     FileTimeay     FileAttributes<z     FileSizez     SlashU{    	 ProgLevel{     AParseStringJ|     TokenizeString|     DetokenizeString}    	 URLDecode~    
 HtmlDecode     GetURLEncodedKey     GetUrlEncodedValues     RemoveUrlEncodedKeyc     SetUrlEncodedKey    	 URLEncode?     SafeEval{     SafeCommandg    	 MergeTextx     MergeTextFromFile.     RenderAspScript     IsWinntĔ     IsDotNetޕ     IsDotNetCore     IsCOMObject:     FixComErrorMessage      RegisterOleServer     RegisterDotNetComponent     LaunchVsWebServer     DCOMCnfgServerP     DCOMLaunchPermissions     SetACL     CopyTree    
 DeleteTreeE     GetDirs-     TwipsFactor     IsAdminп     Init      Set      Destroy      GetSystemPassword     GetPassword    	 InputForm     Show     cmdOk.Click     cmdCancel.Click     QK_Menu    ,     
  ~   
     
      U  CSETTING	 VOLDVALUE
 T   T 
 Please enter:
 T   
 T  
 T  
 T Z T , T - T  frmInput
 T	  T
 a
 T 
 T  T
 -
 T  T - T a . Q  a 
 Message Text:    Q 
 lblMessage  Tahoma { . Q   pcResult    u  txtInput  Tahoma a  . Q  7     F  OK a  Tahoma  -  cmdOK . Q  7   K  F  \<Cancel  Tahoma  a 	 cmdCancel
     
     
      U   NFIELDWIDTH CMESSAGE CFORMAT TOP LEFT HEIGHT WIDTH
 CONTROLBOX NAME
 WINDOWTYPE
 AUTOCENTER
 SHOWWINDOW BORDERSTYLE	 MINBUTTON	 MAXBUTTON DESKTOP
 LBLMESSAGE LABEL AUTOSIZE CAPTION FONT FONTSIZE TXTINPUT TEXTBOX
 CONTROLSOURCE DEFAULT CMDOK
 COMMANDBUTTON THISFORM FONTNAME CANCEL	 CMDCANCEL wwEnv Custom      frminput formE     :    q A   q  !A   A  b  A  ; q     A  A A    Q   A A r A 6 ; R   A 3A    1A   !q A   q  q      A  q A q A A  ; q 2A  5  5  r Q A  AA A " A !!!A A A    >   A 2 RA SqATA A  aA Tqq bA A # A   A #A A  ? r   A RA   A A   QA rQA  A Q QA sAA A A A "A A SrSB A A A A A "  a!QA B	A A  !  A A  >    A  A  A    A  A  < Rq  B  ; Rq q  B  : q Rq !A  4 |  VB   q A  !A  =  q   A  qA qQA  =     A R  A  qA  ?  q   A   A  qA   A  A  A   1  q   A q A  ! Q A  Q A  A r 5    q  4 A   3# !A sA  " !A CA  A  5 } q      A r  B ;   a!q A A q A Bq A r =  r3A  5 R A #A" A   "A &A   A  1#"QA &QA   A A  1 1q   A   A    !A qA BqA   QA A  5   r A !a A QA !a A QA 31QA R1 1< q q    A A  A  A   A =  q  A  A A A  = q  1  2 q A q A  q A  q A A r >  2 q A q A  q A  q A A r < q z61A1 A 5  q RA  A A BC  A A SB A  A a  A QA  5   A  4     A  qAA!A  aA A  5  q  A A qRA  4 0q  ; q rq 4 q  ; q rq 4 q  ;  q  A   A "5 v r4  9 A "1 1  A  A  A   A $5 `1 1    !A   1"A aA  a1!AA A b6  A"  A B 4   AA  a3   AA B! A A b4  b A s!q!  A A A  3 w 4    A A 3 q2 A   A   A   aaA A  A  P1 1q   A   A    aA   A e 5 v q   raaBA!A!QQqQQqQ!1QQAbqaqqa Q1 QA A  5 w   A  3   1  R A  A  A   A 1r  3 A   qA  = q q A "q A bq A r 6     A BA   A R4 w   A  6 x 1  A 2!  A " A   A   A  !A  ;  q   A   A  A A A  = q q   A 2c=    1A R! A  1A A  QA !A 2 !A   A  < q  1  A s!A  =    A  !A  = q 1aqA A A A  : q   QA   QQAq!A!Q!a !A  =  q   A  1A A " Q A A >   " !a!a A 1   A  1A  <  7!R1   A RrA  A !qq 2A   QA "  A  rA   A "bU  A A  1 q ! A > q r   A r a  1   RA  1A #> q 6  !C!Q QA A  5 w    A  3    4   A  A   A  A  ;  "1 q !< q !Q 1   !A # 1 q#  A  = 1#S  A  =  #  A   A  5  1Rr   A rRB A r 5 w  q A q 3 q   Q A AC4 q   Q A 5 v  "! A R  5  Aq qA  6 vAA A A  4  A01 1  A    A A A  >   A  A A qA  6  3q   A "Q  A   A  A t   2#A A   Q A $sa A A  aA A   A  = q rq  B#A A $sa A A A  5  "  A q  A q A  q qA   A  ?  R  A "r A b"2qA A bs  A "!RbA  <     A  !! A s rbA  A  A  >    !!  A " A   A !a2A a !A A "      A  !A 6 x 1D ar  T A b1A  A  Q !A BA A  1         A A  =         A    A A  5 `1Qq aA ; q A @1 1q   A   A  rA   QA  6 u Rs  q  q A A   A  <  q a  A s1  q A QAA A A r ?  1aA 1q A "  q A QAA A A r 4 ; q A R   q A R3  A A R  A A r ; q q   A  A B!6   q A   ! " aA   A   "" A  A A   1      A  q A   2q A " q A   A  2   A  A R  q A " B  5 8R A   A   A Q A   A  1q A qA A A A A A     AA qA 5  1RbA A qA 2AA A "!c  bq A q A  3A A TqA A &A  A A ?   a q A   A "! s  r A   bq A  r  r A   bq A B 1 q  q A  q A  1 QA  QA !q Q  A    A  q A r 6  q2   A A R qA A A  q SqQrA E B  A B :  q 1 A  " C q A  1    A A A  5  U  A   R A cqA A A <     21A !baA ;      A q A r `1  Q7  "C QA 8   !A  1 q  ! !A   A  <   qA   A 6 q q    A  !AA     A  `1  !a1a1a aA A A  2 q 2 q  q 1 Q11! A   A q 1 7  A      A    dA  "qA  s 2BA A B    A 5       1        Q        +   01                    Z  m	        o	  ]  L   2     8  n   \   :       b   D       e   6       ~   R  +'        -'  T3  Z     %5  6      8  v:       :  !=      #=  ,>  (  #  L>  C  5  9  sE  
G  o  K  H  J    [  M  O    y  oR  *T      T  Z\      \  a  J    a  b  v    kd  e      7f  r      r  u  
    *v  |  4  <  |  }  m  @  t  l  ~  T  1      c        g  '      y    2      g          ޗ  4      d  k    }    }    &          I      K        .  d        w        Ȫ      	  x    
    	  !        0      
  ~  (  o      -    p    H        S        Z        e      5  |    	  b        s      z      M        $            4    2    G        r         )      5      ;   
   [  
 $ 	  p   C D	  x  s U [	      	    A  	      	     # 	    {% t' 
    ( b. 3
    e0 H1 b
    2 ; x
  Q  > |> 
  W  *@ A 
  c  ZD oF   n  G G %  q  TH L -    L lO Q    O rU h    tU W     
Y Y     Z {[     ] ^     a Bc     1e f     g i     j n 4    n p [    p s i    s t }    cu ;w     Mw y     y ]{     v{          +  ؄ R 
  9  Ն  "
  l  2  
    @  
      
           M O    ͪ    $   U   2  W ̻   D  H    L    T  S   A m  j      y               w     y F H      [        "   $    U    q :     4     M l      8( 2   	  :( * y  	  8+ d.   0	  . "3   A	  83 4   N	  ^7 7   Q	  ?8 <9   Z	  9 : -  d	  < 5> K  p	  |? @ d  y	  A ;H s  	  QM O   	  O O   	  O Q   	  BU \ 5  	  4 :   	  \H Q   t  %   w  J    o    R    G+( wwAPI U  WWAPI 7   %  
7 | GetPrivateProfileString WIN32API7 | GetPrivateProfileSectionNames WIN32API4 | WritePrivateProfileString WIN32API$ | GetCurrentThread WIN32API& | GetThreadPriority WIN32API( | SetThreadPriority WIN32API$ |
 RegOpenKey Win32API& | RegCreateKey Win32API  | RegCloseKey Win32API# | CoCreateGuid	 Ole32.dll* | StringFromGUID2	 Ole32.dll/ | GetTempPath WIN32APIQ GetTPath, | GetModuleFileName WIN32API# | CopyFile WIN32API6 | GetUserName WIN32APIQ GetUserNameApi T  a  U  __WWAPIDECLARATIONSAPI GETPRIVATEPROFILESTRING WIN32API GETPRIVATEPROFILESECTIONNAMES WRITEPRIVATEPROFILESTRING GETCURRENTTHREAD GETTHREADPRIORITY SETTHREADPRIORITY
 REGOPENKEY REGCREATEKEY REGCLOSEKEY COCREATEGUID OLE32 DLL STRINGFROMGUID2 GETTEMPPATH GETTPATH GETMODULEFILENAME COPYFILE GETUSERNAME GETUSERNAMEAPI            	  %C K  T    %C  n  T      %C   C!
 H     HKLM  T        HKCU  T        HKCR T          2
 T     
 T   T C      
  %  d B  % 
1 | RegQueryValueEx Win32API T C X T C >
 T
 % T C     
     @ | RegQueryValueEx Win32APIQ RegQueryInt
 T  
 T 
 T
 % T C     
     %  	 B  
 B   C    %   B  % 
	 B    BC  \ U  TNHKEY TCSUBKEY TCENTRY	 TLINTEGER TNMAXSTRINGSIZE LNREGHANDLE LNRESULT LNSIZE LCDATABUFFER TNTYPE
 REGOPENKEY REGQUERYVALUEEX WIN32API LNTYPE REGQUERYINT REGCLOSEKEY            	  %C  M  T      %C   C 
 Hs      HKLM  T        HKCU  T        HKCR  T          2 
 T     
 T   T C      
  %   % 
Q B-  T C        %   B-    %C 
 %C  N- |
 RegSetValueEx Win32API# T C        , |
 RegSetValueEx Win32API T C > %  o T C   $ T C            % | RegDeleteValue Win32API T C       C    %   B-  Ba U  TNHKEY TCSUBKEY TCENTRY TCVALUE TLCREATE LNREGHANDLE LNRESULT LNSIZE LCDATABUFFER TNTYPE
 REGOPENKEY REGCREATEKEY
 REGSETVALUEEX WIN32API REGDELETEVALUE REGCLOSEKEY	          
 T   T C        %  a  B & |
 RegEnumKey WIN32API T C X T   T C       	  C    %    B  BCC C    ` U
  TNHKEY TCSUBKEY TNINDEX LCSUBKEY LCRETURN LNRESULT LCDATABUFFER LNREGHANDLE
 REGOPENKEY
 REGENUMKEY WIN32API LNSIZE REGCLOSEKEY          & T CCC  N    6X, T C     *None* C >      %C  N   	  T CC C  C
 `   T C  \  %  *None*  T  	 B  U 
 PCFILENAME	 PCSECTION PCENTRY PNBUFFERSIZE
 LCINIVALUE LNRESULT GETPRIVATEPROFILESTRING            T CC  d@  6 T C X T C > T C       % 
 	 B   T C  C `C    T   %   
     	 B  U	 
 LASECTIONS	 LCINIFILE	 LNBUFSIZE LCBUFFER LNSIZE LNRESULT LNCOUNT GETPRIVATEPROFILESECTIONNAMES APARSESTRINGW        T C           % I  Ba  B- U 
 PCFILENAME	 PCSECTION PCENTRY PCVALUE LNRETVAL WRITEPRIVATEPROFILESTRING      T  C X T C  > T C      %  ^ 
 T     {  T  C   \ 	 B   U  LCPATH LNRESULT LNSIZE GETTPATHC    + | MessageBeep WIN32APIQ MsgBeep C     U  LNSOUND MESSAGEBEEP WIN32API MSGBEEP       %C -  T C   * | WNetAddConnection WIN32API T C         %    T  C     B-  Ba U	 	 LCNETPATH LCSHARENAME
 LCPASSWORD WNETADDCONNECTION WIN32API LNERROR THIS	 CERRORMSG GETSYSTEMERRORMSG      + | WNetCancelConnection Win32API T C     %  ~  T  C     B-  Ba U  LCSHARENAME LNERROR WNETCANCELCONNECTION WIN32API THIS	 CERRORMSG GETSYSTEMERRORMSG  T  C X
 T  C      T CC     % p  T  C   \  
 T     	 B   U 
 LCFILENAME LNBYTES GETMODULEFILENAMEm        # T CC  N    6 T C       BC   - a6 U  LCSOURCE LCTARGET NFLAG LNRETVAL COPYFILEk     T  CPX
 T P C     % 
O 	 B    BC   \ U 
 LCUSERNAME LNSIZE GETUSERNAMEAPI ( | GetComputerName WIN32API T CPX
 T P C     % 
p 	 B    BC  \ U  GETCOMPUTERNAME WIN32API
 LCCOMPUTER LNSIZEQ          %C  4  B-  %C T 
 T     %C u  T  .  %C  N  T a ) |	 LogonUser WIN32API
 T  $ T C           % 
3  | CloseHandle WIN32API C     BC  a -6 U	 
 LCUSERNAME
 LCPASSWORD LCSERVER LNTOKEN LNRESULT
 LLTOKENPASSED	 LOGONUSER WIN32API CLOSEHANDLE        
 T   %C     -   
I  B- , | ImpersonateLoggedOnUser WIN32API T C     | CloseHandle WIN32API C    BC  a -6 U	 
 LCUSERNAME
 LCPASSWORD LNTOKEN LNRESULT THIS	 LOGONUSER IMPERSONATELOGGEDONUSER WIN32API CLOSEHANDLE;   | RevertToSelf Win32API BCC   a -6 U  REVERTTOSELF WIN32API        T C X %  
p * | GetSystemDirectory Win32API T C     + | GetWindowsDirectory Win32API T C     %    BC  \ \ 	 B   U  LLWINDOWSDIR LCPATH LNSIZE GETSYSTEMDIRECTORY WIN32API GETWINDOWSDIRECTORY
 
 BC   U  GETCURRENTTHREAD     BC     U  TNTHREADHANDLE GETTHREADPRIORITY       BC       U  TNTHREADHANDLE
 TNPRIORITY SETTHREADPRIORITY        , T CC
 pnPlayTypeb N   6 T -# |	 PlaySound	 WINMM.dll %C         T a 	 B  U 
 PCWAVEFILE
 PNPLAYTYPE	 LHPLAYSND LLRETVAL	 PLAYSOUND WINMM DLL         T C  Q T C  PQ T C > %C   n 	 B   
 %   	 B   %C        	 B    BCC L= U  LLRAW LCSTRUC_GUID LCGUID LNSIZE COCREATEGUID STRINGFROMGUID2^    - T  CC lnMillisecsb N     6 | Sleep WIN32API C     U  LNMILLISECS SLEEP WIN32API-   | GetLastError Win32API
 BC   U  GETLASTERROR WIN32API         %C  N=  T  C    T CX/ |
 FormatMessage WIN32API( T C       C >   %C >  T C  \  
 T    	 B  U	 	 LNERRORNO LCDLL SZMSGBUFFER LNSIZE LNERROR THIS GETLASTERROR
 FORMATMESSAGE WIN32API    %C   C[
 H) W%    Program Files Common[ 
 T  +   
 Program Files 
 T  &$    Program Files 64Bit 
 T  *!    Documents Common 
 T  .J   	 Documents    Documents User    My Documents<
 T      Send Toa
 T  	    My Computer
 T      Desktop
 T   !    Application Data
 T  (    Application Data Common
 T  #'    Local Application DataF
 T   2W	 B    0 | SHGetFolderPath Shell32.dll T CC   Q! T CC         %   T C C     \ 
 T    	 B  U  LNFOLDER SHGETFOLDERPATH SHELL32 DLL LCOUTPUT LNRESULT HWNDB         %C
 wscript.Shell 
A  B-  T - T C
 wscript.ShellN T	 C    
  T	    T	    %C 
  T	 
    %C 
  T	     %C  T	  C  $ T	    
 C	  
 B 
 U 
 LCSHORTCUT
 LCDESCRIPTION LCTARGET LCARGUMENTS
 LCSTARTFOLDER LCICON ISCOMOBJECT LLERROR LOSCRIPT LOSC CREATESHORTCUT DESCRIPTION
 TARGETPATH	 ARGUMENTS ICONLOCATION WORKINGDIRECTORY SAVE       %C  * 
 T  C " T C GetwwDotnetBridge()E BC$ Westwind.WebConnection.FoxProHelpers
 GetUtcTime      U  LTTIME LOBRIDGE INVOKESTATICMETHOD        %C  . 
 T  C  %C N 
 T   " T C GetwwDotnetBridge()N BC$ Westwind.WebConnection.FoxProHelpers FromUtcTime      < U  LTTIME LNOFFSETMINUTES LOBRIDGE INVOKESTATICMETHOD  7   %C   N% 	 B    7  % 
u , | GetTimeZoneInformation Win32API T a  T C X T C   T CC \a  %   T  < 
 T   	 B  U 
 __TIMEZONE __GETTIMEZONEINFORMATIONAPI GETTIMEZONEINFORMATION WIN32API LCTZ LNDAYLIGHTSAVINGS LNOFFSET	 CHARTOBIN     
 
  
 T   
 (C  >s 3 T  CC  
 \
    %   
       A	  T  
   A 	 B  U  LCBINSTRING LLSIGNED I LNWORD    
   %   
>  T    
       A  T C   G T CC   G T CC   G T CC   G- BCC  CC  CC  CC   U  LNVALUE BYTE,    " BCC
   G CC
   8  U  LNVALUEL    1 |
 FindWindow WIN32APIQ __FindWindow BC      U  LCTITLE
 FINDWINDOW WIN32API __FINDWINDOW           
 T  
 T   T C  > T CC  Q T C >0 | GetLastError win32apiQ GetLastErrorI | CryptAcquireContextA WIN32APIQ CryptAcquireContext& T C   
       A  %  ,
 C  @ | CryptCreateHash WIN32APIQ CryptCreateHash1 T C  CCC
      %  
 C  : |
 CryptHashData WIN32APIQ
 CryptHashData T C        
  %  2
 C  E | CryptGetHashParam WIN32APIQ CryptGetHashParam  T C       %  
 C  9 | CryptDestroyHash WIN32APIQ CryptDestroyHash T C    %   
 C  A | CryptReleaseContext WIN32APIQ CryptReleaseContext T C     %  
 C  	 B  U  TCDATA LNSTATUS LNERR LHPROV LHHASHOBJECT
 LNDATASIZE LCHASHVALUE
 LNHASHSIZE GETLASTERROR WIN32API CRYPTACQUIRECONTEXTA CRYPTACQUIRECONTEXT CRYPTCREATEHASH
 CRYPTHASHDATA CRYPTGETHASHPARAM CRYPTDESTROYHASH CRYPTRELEASECONTEXT         %C 4  T   % d	  
c  T  = | ResizeImage
 wwImaging.dllQ _ResizeImageI BCCCC  C  CCC @C          a -6 U	  LCSOURCE LCTARGET LNWIDTH LNHEIGHT
 LNCOMPRESSION RESIZEIMAGE	 WWIMAGING DLL _RESIZEIMAGE     %CC @ gif = | SaveImageToGif
 wwImaging.dllQ _SaveImageAsGif; BCCCC  C  CC C    a -6 5 | CopyImageEx
 wwImaging.dllQ
 _CopyImage= BCCCC  C  CCC @C    a -6  U  LCSOURCE LCTARGET SAVEIMAGETOGIF	 WWIMAGING DLL _SAVEIMAGEASGIF COPYIMAGEEX
 _COPYIMAGE       C | CreateThumbnail
 wwImaging.dllQ _CreateThumbnailC BCCCC  C  CC C        a -6 U  LCSOURCE LCTARGET LNWIDTH LNHEIGHT CREATETHUMBNAIL	 WWIMAGING DLL _CREATETHUMBNAIL       @ | GetImageInfo
 wwImaging.dllQ
 _GetImageInfo
 T  
 T  
 T  5 BCCCC  C       a -6 U  LCIMAGE LNWIDTH LNHEIGHT LNRESOLUTION GETIMAGEINFO	 WWIMAGING DLL
 _GETIMAGEINFOr     7 | RotateImage
 wwImaging.dllQ _RotateImage- BCCCC  C     a -6 U  LCIMAGE
 LNFLIPTYPE ROTATEIMAGE	 WWIMAGING DLL _ROTATEIMAGE        ; |
 WriteImage
 wwImaging.dllQ _WriteImageS BCCCC  C  CC C      C    6  a -6 U	  LCSOURCE LCINSERT LNLEFT LNTOP LLNONOPAQUE
 WRITEIMAGE	 WWIMAGING DLL _WRITEIMAGE         ; |	 ReadImage
 wwImaging.dllQ
 _ReadImageJ BCCCC  C  CC C          	  a -6 U
  LCSOURCE LCTARGET LNLEFT LNTOP LNWIDTH LNHEIGHT	 READIMAGE	 WWIMAGING DLL
 _READIMAGE       %C 4  T  Arial  %C T 
 T  C | GetCaptchaImage
 wwImaging.dllQ _GetCaptchaImage T  C  C   T C C   T C C  ( BCC           a -6 U  LCTEXT LCOUTPUTFILE LCFONT
 LNFONTSIZE GETCAPTCHAIMAGE	 WWIMAGING DLL _GETCAPTCHAIMAGE
       %C  R :<  T     : ) T  net use     "  "  %C 
 ( T  " 	 " /USER:"  "  
 T    ! T    /persistent:yes T    RUN &lcRun 
 BC   U  LCDRIVE LCSHAREPATH
 LCUSERNAME
 LCPASSWORD LCRUN           G | wwCreateProcess
 wwIPStuff.DLLQ _wwCreateProcess %C   T   %C   T   %C 
  T  "   "    
 T    
 % 
 T  
 T    %C  NC
 T  & T C               BC  a -6 U  LCEXE
 LCCOMMANDLINE LCSTARTDIRECTORY LNSHOWWINDOW LLWAITFORCOMPLETION LCSTDOUTPUTFILENAME LNWAIT LNRESULT WWCREATEPROCESS	 WWIPSTUFF DLL _WWCREATEPROCESS\            G |
 CreateProcess kernel32Q _CreateProcess T CC  Q T C    %C 
  T  "   "   T    
 T    5 T
 C         C]C     T CC \ 
 % . | WaitForSingleObject kernel32.DLL %C  T  \&  T C +a %C  d 
 !   %C   
 T
   !    $ | CloseHandle kernel32.DLL C    BC
  a -6 U  LCEXE
 LCCOMMANDLINE LNSHOWWINDOW LLWAITFORCOMPLETION LNTIMEOUTMS HPROCESS CPROCESSINFO CSTARTUPINFO LNSTARTSECONDS
 CREATEPROCESS KERNEL32 _CREATEPROCESS GETSTARTUPINFO LNRESULT	 LHPROCESS	 CHARTOBIN WAITFORSINGLEOBJECT DLL CLOSEHANDLE       %C   N0 
 T   
 T  BCP C  C  C  C  C  C  C  C  C  C  C   C    C  C  C  C  C  CC  Q U  LNSHOWWINDOW LNFLAGS	 BINTOCHAR
 BINTOWORDCHAR        T -  3 | GetCORSystemDirectory MSCorEE.dll T  C X T C  > T C       %   	 B      
 %  	 B    BCC   = U  LCSTRING LNSIZE LNRESULT LLERROR GETCORSYSTEMDIRECTORY MSCOREE DLL     T  C wwAPIN[ T C HKLM2 SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full Releasea    %C   ] T C HKLM4 SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client Releasea    %C   
 B
 4.0 Client 	 B   
 H.   
N B 4.0   n B 4.5   
 B 4.51    B 4.6"      
 B 4.61"  2   6 

 B 4.62"      ; B 4.7"  	   	 j
 B 4.71   
  B
 4.72 or later 	 B   U  LOAPI LNVALUE READREGISTRYSTRING
 ISNULLOREMPTY        - T  CC lnMillisecsb N     6 | Sleep WIN32API % 
   
  C     B  T   d  (  
 Cd    U  LNMILLISECS LLWITHDOEVENTS LNX LNBLOCKS SLEEP WIN32API        T C X= | GetEnvironmentVariable WIN32APIQ	 GetEnvVar T C    C >  % 
 	 B    BC  \ U 	 LCVARNAME LCRESULT LNRESULT GETENVIRONMENTVARIABLE WIN32API	 GETENVVAR       % | PathFindOnPath Shlwapi, | GetFullPathName WIN32API T C X T C   C >   % 
 	 B    BC  \ U  LCFILE LCBUFFER LNRESULT PATHFINDONPATH SHLWAPI GETFULLPATHNAME WIN32API    # |
 GetWindowRect user32 T CC  Q C      T C EMPTYN" C  LeftCC \ 
! C  TopCC \ 
# C  RightCC 	\ 
$ C  BottomCC 
\ 
	 B  U  LNHWND
 GETWINDOWRECT USER32 CBUFFER LORECT	 CHARTOBIN     + | GetModuleFileName WIN32API T  C X T C   C  >  % 
z 	 B    BC     U  LCEXE LNRESULT GETMODULEFILENAME WIN32API WINAPI_NULLSTRING^     T CC     %  N  T  C   \	 B   	 B   U  LCINPUT LNATr         # |
 GetSystemTime win32api T C(X C   T  CC \ RS2 T CC \ RS2 T CC \ RS2 T CC 	\ RS2 T CC \ RS2 T CC 
\ RS2Q T	  {^C  _ -C _ -C _  C _ :C _ :C _ } BC	  U
  LNYEAR LNMONTH LNDAY LNHOUR LNMINUTE LNSECOND LCBUFFER
 GETSYSTEMTIME WIN32API LCTIME  BCCJ .CJg U        %C   Cw  %C < 
 T   ! |
 FindWindow WIN32API T C        
 T    ( | SetForegroundWindow WIN32API C    B U  LCTITLE LNPARENTHANDLE
 FINDWINDOW WIN32API LNHANDLE SETFOREGROUNDWINDOWI    ) | SHAutoComplete shlwapi.dll C       U 
 LOEDITCONTROL SHAUTOCOMPLETE HWNDI    ) | SHAutoComplete shlwapi.dll C       U 
 LOEDITCONTROL SHAUTOCOMPLETE HWND;        %C  )" T   Xerox PS Class Driver
 HT %" CJ 6 CJ 2	 " T   Xerox PS Class Driver" CJ 6 CJ 1	 ! T   Xerox Phaser 6120 PS" CJ 6 CJ 1	%( T   Xerox PS Color Class Driver   %C I
 T    
   T C   (  %C @CC   @ Ba   T  Windows 2000 or XP" %CJ 6 CJ 0	 T 
 Windows XP " %CJ 6 CJ 0	N! T  Type 2 - Kernel Mode  T C wwAPIN! T C 	  rundll32.exer T
 ! printui.dll,PrintUIEntry /if /b "  " /f "Ca 	   inf\ntprint.inf" /r "lpt1:" /m "   " T C   
 a  % 
- B-  Ba U  LCDRIVERNAME
 LCPRINTERNAME LCOS LLRESULT
 LAPRINTERS LNCOUNT LNX LOAPI LCEXE GETSYSTEMDIR	 LCCMDLINE
 CREATEPROCESSa      %C  J ! T   Xerox Phaser 1235 PS  T C   (   T C   
 H  )   Apple C R  PS	 	 B )   Xerox C  PS  	 	 B     ( Q T C    %C R  PSM	 B   	 B   U 	 LCDEFAULT
 LAPRINTERS
 LNPRINTERS LNX	 LCPRINTER      E | GetClipboardText
 wwipstuff.dllQ _GetClipboardText T CL  X T C > %C        %    T C X %C        B    B   BC  = U  LCFORMAT LCDOC LNSIZE GETCLIPBOARDTEXT	 WWIPSTUFF DLL _GETCLIPBOARDTEXTV       & | SendMessage WIN32API BC           U  LNHWND LNMSG LNWPARAM LNLPARAM SENDMESSAGE WIN32API        %C -  T   %C K  T   %C k 
 T   ' | FindWindowEx Win32API BC           U  LNPARENTHWND LNHWNDLASTCHILD LCCLASS LCTITLE FINDWINDOWEX WIN32APIa        ) |
 MoveWindow WIN32API BC             U  LNHANDLE LNX LNY LNWIDTH LNHEIGHT
 MOVEWINDOW WIN32API    & | GetClassName Win32API
 T  T C X T C        %    BC  = 	 B   U  LNHWND GETCLASSNAME WIN32API LNBUFFER LCBUFFERc        + | CallWindowProc Win32API BC            U 
 LPLASTWINPROC LNHWND LNMSG LNWPARAM LNLPARAM CALLWINDOWPROC WIN32API
 LHLASTWINPROCk     $ |
 GetWindowLong Win32API %C  NR  T   BC       U  LNHWND LNINDEX
 GETWINDOWLONG WIN32APID    & | InvalidateRect WIN32API C      U  LOFORM INVALIDATERECT WIN32API HWND^    - T  CC lnMillisecsb N     6 | Sleep WIN32API C     U  LNMILLISECS SLEEP WIN32APIY  T  C wwAPIN T Ca    %C  SysWOW64 K  Ba  B- U  LOAPI LCWIN GETSYSTEMDIR ISDIR # | GetSystemMetrics user32 T C EMPTYN C  MonitorsCP  
" C  VirtualWidthCN  
# C 
 VirtualHeightCO  
" C  ScreenHeightC  
! C  ScreenWidthC  
	 B  U  GETSYSTEMMETRICS USER32	 LOMONITORY        T C  %C G  T   
  %C n  T   
  %     
  T     %     2  T     %  	   
 T  	  
 T     %  
   
R T  
  
 T     U  LOFORM LNWIDTH LNHEIGHT	 LOMONITOR GETMONITORSTATISTICS VIRTUALWIDTH
 VIRTUALHEIGHT LEFT TOP WIDTH HEIGHT      / T CC
 lcFileSpecb C    *.*64 T CC
 lcDestinationb C   C]C6# | UnZip
 wwipstuff.dll BC         U 	 LCZIPFILE
 LCDESTINATION
 LCFILESPEC UNZIP	 WWIPSTUFF DLL}       " T C GetwwDotnetBridge()F BC  Westwind.WebConnection.FileUtils UnzipFolder        U 	 LCZIPFILE LCFOLDER LOBRIDGE INVOKESTATICMETHOD        " T C GetwwDotnetBridge()H BC  Westwind.WebConnection.FileUtils	 ZipFolder          U 	 LCZIPFILE LCFOLDER LLFAST LOBRIDGE INVOKESTATICMETHOD        / T CC
 lnCompressionb N   	6% | Zip
 wwipstuff.dll8 BC       C    6C    6  U 	 LCZIPFILE
 LCFILELIST
 LNCOMPRESSION	 LLRECURSE
 LLADDITIVE ZIP	 WWIPSTUFF DLL    #          %C  >i
H  B-  T C  i\ T CC  (\` T CC  .
\g T CC  `
\g T CC    C f6 %  wwDBF  B- 
 T   
 T    %  D T C  j \ %C > 
@ B-   %   T C  j  \ T	 C > %C > 
 B-   C    
  %C 
! CC  .DBF .FPT  
   Ba U  LCBUFFER LCDBF LNSEPARATOR LCHEADER LCFNAME LNSIZE1 LNSIZE2 LCFILE1 LCFILE2 LNSIZEX FILE2VARd            % T  CC   C C  f   6 %C j  T C    %C  0
 	 B    T C    & T  wwDBFC (CC >
Z % 
  T  C2X
 B    T CC  @ .dbf .fpt T C   * T  CC  fpt(CC >
Z B    U  LCDBF	 LLHASMEMO
 LCENCODEDNAME	 LCBUFFER1	 LCBUFFER2 LCHEADER LCFPT FILE2VAR     BC     B U  LCFILE	 ENCODEDBF     BC    U  LCBUFFER	 DECODEDBF      D | GetDomainFromIp
 wwIPstuff.dllQ GetDomainFromIp_API %C r 
 T    
 T   T CX T C        %CC     T C     
 T    	 B  U	  LCIPADDRESS LLV6 LCDOMAIN GETDOMAINFROMIP	 WWIPSTUFF DLL GETDOMAINFROMIP_API LNVALUE WINAPI_NULLSTRING    B | GetIpFromDomain
 wwipstuff.dllQ GetIpFromDomain_API T C8X T C      %CC      T C CC   \  
 T    	 B  U  LCDOMAIN GETIPFROMDOMAIN	 WWIPSTUFF DLL GETIPFROMDOMAIN_API LCIPADDRESS LNVALUE       T C    . | GetRTTAndHopCount Iphlpapi |	 inet_addr ws2_32 	 
   T	 C    J (   T C 	  d   %    Ba  B- U
  LCDOMAIN LNHOPS LNTIME LCIP GETIPFROMDOMAIN GETRTTANDHOPCOUNT IPHLPAPI	 INET_ADDR WS2_32 NDST NHOP NRTT LNRESULT          %C ;  T  ) T CC]C]CC _ .gz T   .in %C      
 	 B    %C  L
 
 C	   < T C   wb
  %  
 	 B    C       C     C  >  C  
  h % d C  
    T C 
   
   	 B  U  LCSTRING LNCOMPRESSIONLEVEL LCOUTPUT	 LCOUTFILE LCINFILE LNHANDLE	 PROCESSID FILE2VAR _GZIPLOADED
 GZIPLIBRARIES GZOPEN GZSETPARAMS GZWRITE GZCLOSE        
 % 4 
 T    w ) T CC]C]CC _ .gz C        %C  L
 
 C  
 T    c T C   rb	  % 
 	 B   
 T    +a_ T
 C  X T C  
 C
 >  % 
E !  T  C
  =  k  %   C  
  
    	 B  U  LCCOMPRESSED LLISFILE LCINFILE LCOUTPUT LNHANDLE	 PROCESSID FILE2VAR _GZIPLOADED
 GZIPLIBRARIES GZOPEN LCBUFFER LNRESULT GZREAD GZCLOSE  7   T  a  | gzopen	 zlib1.dll" | gzwrite	 zlib1.dll% | gzsetparams	 zlib1.DLL! | gzread	 zlib1.dll | gzclose	 zlib1.dll B U  _GZIPLOADED GZOPEN ZLIB1 DLL GZWRITE GZSETPARAMS GZREAD GZCLOSEl     T  C wwAPIN( T  C] \C    .txt T  C   T    U  LOAPI THIS	 CFILENAME
 CREATEGUID NHANDLE NLENGTH 
 C    U  THIS DISPOSEk  %    D  8  C        @    T     T     U  THIS NHANDLE	 CFILENAME NLENGTHZ     %  
) 
 C    C     T    C  > U 	 LCCONTENT THIS NHANDLE INIT NLENGTH3     C      CC
 C
    U 	 LCCONTENT THIS WRITE,     T  C   CC     U 
 LCFILENAME THIS WRITE     %   i  C   T  C   T  C   C    ~ 
 T     	 B   U  LCOUTPUT THIS NHANDLE	 CFILENAME  BCC    W U  THIS TOSTRING 
 C    U  THIS DISPOSE  BC   > U  THIS COUTPUT 
 C    U  THIS DISPOSE#  T      T     U  THIS COUTPUT NLENGTH  T      U  THIS COUTPUT!     T       U 	 LCCONTENT THIS COUTPUT     C      U 	 LCCONTENT THIS WRITE CLRF     CCC     U 
 LCFILENAME THIS WRITE  B    U  THIS COUTPUT  B     U  THIS OSB LENGTH[ % T   C GetwwDotnetBridge()3 T   C System.Text.StringBuilder     U  THIS OBRIDGE OSB CREATEINSTANCE 
 C    U  THIS DISPOSE 
 C    U  THIS CLEAR  C     U  THIS OSB CLEAR-    # C   Append       U 	 LCCONTENT THIS OBRIDGE INVOKEMETHOD OSB1    ' C  
 AppendLine       U 	 LCCONTENT THIS OBRIDGE INVOKEMETHOD OSB1    ' C   AppendCC      U 
 LCFILENAME THIS OBRIDGE INVOKEMETHOD OSB  BC     U  THIS OSB TOSTRING InitB       ReadRegistryString<      WriteRegistryString      EnumKey      GetProfileStringy
      aProfileSections      WriteProfileStringA      GetTempPath      MessageBeep      MapDrive
      DisconnectDrive2     
 GetEXEFile      CopyFile      GetUserName}      GetComputerName     	 LogonUser      ImpersonateUser      RevertToSelf      GetSystemDir       GetCurrentThreadi      GetThreadPriority      SetThreadPriority      PlayWave     
 CreateGUID      Sleep$      GetLastError      GetSystemErrorMsg      GetSpecialFolderG      CreateShortcut#    
 GetUtcTime%     FromUtcTimev&     GetTimeZonev'    	 CharToBin(    	 BinToChar)    
 BinToWordChar*    
 FindWindow+     HashMD5+     ResizeImage0    	 CopyImageq1     CreateThumbNail2     GetImageInfo3     RotateImage4    
 WriteImage5    	 ReadImage6     GetCaptchaImage7     MapNetworkDrive(9     CreateProcessExk:    
 CreateProcess<     GetStartupInfo?     GetDotNetFrameworkPathA     GetDotnetVersionQB     WinApi_Sleep,E     WinApi_GetEnvironmentVariable<F     WinApi_GetFullPath<G     WinApi_GetWindowRectQH     WinApi_GetStartupModuleFilenameI     WinApi_NullString_J     WinApi_GetSystemTimeJ     WindowsVersionL     ActivateWindowL      ActivateFileSystemAutoCompletionM     ActivateUrlAutoCompletionUN     InstallPrinterDriverN     FindPostScriptPrinterR     GetClipboardTextT     WinApi_SendMessageuU     WinApi_FindWindowEx	V     WinApi_MoveWindow	W     WinApi_GetClassNameW     WinApi_CallWindowProcyX     WinApi_GetWindowLong;Y     WinApi_RepaintFormY     SleepDZ     Is64BitZ     GetMonitorStatisticsD[     FixMonitorPositionW\    
 UnZipFiles'^     UnzipFolder_    	 ZipFolder_     ZipFiles`    	 DecodeDBFa    	 EncodeDBFc    
 EncodeFilee    
 DecodeFilee     GetDomainFromIp
f     GetIpFromDomaing     Pingh     GZipCompressStringj     GZipUncompressStringEl    
 GzipLibrariesn     Inito     Destroy=p     Dispose`p     Writep    	 WriteLineyq    	 WriteFileq     ToStringr     ToBlobr     Clearr     nLength_Accesss     Destroy:s     Dispose]s     Clears     Writes    	 WriteLinet    	 WriteFileAt     ToString}t     nLength_Accesst     Initt     DestroyKu     Disposenu     Clearu     Writeu    	 WriteLinev    	 WriteFilexv     ToStringv    +
 T   
 T   
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
      U 
 NLASTERROR	 CERRORMSG 
 T   
 T   
 T  
  [   
  \   
  ]   
  ^   
  _   
  `   
  a   
  b   
  c    U  NHANDLE	 CFILENAME NLENGTHm 
 T    
 T  
  d   
  e   
  f   
  g   
  h   
  i   
  j   
  k    U  COUTPUT NLENGTH  T   T 
 T  
  l   
  m   
  n   
  o   
  p   
  q   
  r   
  s   
  t    U  OBRIDGE OSB NLENGTH wwAPI CustomA     wwFileStream Custom     wwMemoryStream Custom,     wwStringBuilderStream Custom     01 x  xvECdGg46e A 6 |q  A  A Q QQQQ  A A  r A     S    R   A A  r A  A S01 qq A Q QQQQ  A A   q  q A A A Q2   A CA  UcA  q A r 4  1 r A g  r A R5 ? c RA s A  =  q   A  A  > 1q A r 4  	 b  QA  5 x  5    A q A r 5 w q Rq A r 5  RB  A  @1  q 3r< q   # A R5   " A 5 <  q A   A   A R A  B  A r=    q A " r> 4 x   a aA aA  6  ; q  4  !5    4 A  5 |  411a A   A  A C3 q  <  ;   bA 2  A  1 q S R  A        q   A A R  A  < q A  QA A  1 A   = q q   A #R01  q   A   A #? u S A r   A "A   4    1A A  4 q  A 4 q &8 q > q    A c A  A  A Y A # A S A  9 q  A  A 3   RA 4 1943 1	   T6   q= q5= < 1 !A   A 4? 1r!A   A    1  t  A   A   A     A Q A br> q1|C!   A S  A   A  A  A A A A A D r; q q T A  )
< 1  2  A  B   A >  R!11A  A  A A A A ! ! ! ! AaA  >    A A  A A = q   A = q  S A < q 4B!R!1A ?   A  < q B A  = 2    : <  R  A b  A  B p1 q a= q a 1    " "!""A A   A  "qq A A !qA !A S" q A r < q 1 A "q!   A A s! A A  = q  S"  q A  q A A  = 1e; 1  A   A   A s; q< q c  !A  ; q;  BR A "= q bA= q  < R!q A r ? ;R!1!  1  q   AA  AA A A AA AA  1  A6b<  q !a>  q !> qX:  12q A Rqqqbq A   Q1q A A  qq A A "A r 01  qR A  A "b 1 A "3 q  A 1 q  1  q F    A  !  A  < q % b  A  ?  " !q A r ;  1  A As A b A  q! A Sr  ! A A    <      "A b A   q! A   !A A aA    A  A  ; r  &VB 1 q QQ=  < B    A A < q R A = q < q  1< q R 1A  A  = Q=  01  ;  < < < q q< q A< q Q<  p1  ; R1=  <  = < q 1< q q< q q< 5    0 `   0        p  P       @      @   1 p       P 0     5 p          5              5                                  ~   L     "        ,#  (  N     \(  N.  }     v0  F2       4  P5       5  _8       8  `:       :  =       >  @  ,     M@  UC  D     K  mL       M  jN       N  P       
Q  FW      }X  Z    !  [  [  3  $  5\  _  9  3  _  ,a  ^  5  b  c  p  8  \c  2f  v  ;  if  l    F  l  q    V  q  +s    [  ht  t    ^  cv  x    n  z    5    !    n    -                c          m      o          y  #    {    1    ݙ  ˤ  A    ;      !        *    X    .  Z      5  Z  `    :    K  (  >    )  >  B      S  O      t  _  T      x  X  -      /        ?    H      2  m                                                '    w  I  =  "  f    g  $  
    s  3      7  B    <      c   t 	  z    -	    n b M	      _	    @ L y	      	    ! ?" 	    o# r$ 	    & & 	    M( ( 	    c* - 	    9- / 
    2 6 ,
    I8 I; ]
    K; < t
    = p> 
    r@ PC 
    fC 6G 
     EJ L 
  4  L 3M   8  5M qM   <  \P *R "  M  S CU G  X  6W X g  e  =Z Z_     \_ c     d f     k kl J    m m ]    n o j    p Gq     kr r     s Lt     u v     x -x     by py     { {     } -} 

    e~ ~ 
      %
     / 1
    S  >
      K
    A T Y
      
    ȉ ? 
    t  
     ، 
       
    <  
     
 
    2  
    ޓ  
  
     x  
   B  f y   T  z o   `    c
  %  %   +          IQ    G+(
 wwCollections U 
 WWCOLLECTIONS     %  \  T C      %  X  T      B   T          T       U  LVVALUE THIS REQUIREUNIQUEITEMS LNINDEX GETINDEX AITEMS COUNT        %    T C     %    T C     T     C           %C      T      T      U 
 LNPOSITION LVVALUE LNINDEX THIS REQUIREUNIQUEITEMS GETINDEX AITEMS COUNTR     ( % 
   
     	:  B  BC      U  LNINDEX LLTHROWERROR THIS COUNT AITEMS     BC      U  LNINDEX THIS AITEMSE     T C      %  >  C       U  LVVALUE LNINDEX THIS GETINDEX ADD       %   )  B   (  u  %C      q  BC       B U  LVITEM LNINDEX THIS COUNT LNX AITEMS       %   + 	 B   T C   C
 % `  T  C  @   (    %   %CC    @   	 B     %C       	 B    	 B  U  LVITEM LLSTRING THIS COUNT LNX AITEMS       
 % M  T  C      %   I  B   %       
t  B  T     C     U  LNINDEX LLREMOVEBYVALUE LNROW THIS GETINDEX COUNT AITEMS=      %      B  T      U  LNINDEX LVVALUE THIS AITEMS  T    U  THIS AITEMS  T    U  THIS AITEMS      
 %  M   (  I  T      T    T  - T   U 
 LLCOMPLETE LNX THIS COUNT AITEMS  C   C    U  THIS AITEMS ITEMS     C    
 U  LALIST THIS AITEMS      T     %CtR 
 T    T  C  _       T       T      U  LVKEY LVVALUE THIS COUNT AITEMS        T C      %  M  C          T      T      U  LVKEY LVVALUE LNINDEX THIS GETINDEX FASTADD AITEMS       %C> 
 T   T C  _       %C      T      T      T      U  POSITION LVKEY LVVALUE THIS COUNT AITEMS        %C   Ng  G  T C      Z  T  	 B  % T C       %    B  BC    U  LVKEY	 LNELEMENT LVVALUE THIS AITEMS COUNT     T C EmptyN C  Key  
 C  Value  
 T  C      T  C      %C    B 	 B  U  LVKEY LORES KEY THIS GETKEY VALUE ITEM     BC      U  LNINDEX THIS AITEMS]      % T C       %  M 	 B  	 B  U  LVKEY LNROW THIS AITEMS COUNT       %   )  B % T C       %  k  B  BC     U  LVITEM LNINDEX THIS COUNT AITEMS       %C   NO  T    - C         T C      %    B  C     T     U  LVKEY LNROW THIS AITEMS GETINDEX COUNT      %C   N<  T          T C      %  x  B-  T      U  LVKEY LVVALUE THIS AITEMS LNROW GETINDEX      
 %  S   (  O  T      T    T  - T   U 
 LLCOMPLETE LNX THIS COUNT AITEMS       
 T    %C  <  T       (   < T  C     ="CC    _ "   	 B  U  LCSEPARATOR LNX LCOUTPUT THIS COUNT AITEMS  T    U  THIS AITEMS  T    U  THIS AITEMS     C      U  LVVALUE THIS ADD\     %  
"  B  T  C     C    	 B   U  LVVALUE THIS COUNT AITEMS REMOVEI     %  
"  B  T  C    	 B   U  LVVALUE THIS COUNT AITEMS    
 C    U  LVVALUE    
 C    U  LNINDEX       ! T C wwValidationErrorN T C   %  LY  B  %  O  C      B  T     %C 
  T     C     U 	 LCMESSAGE LCFIELD LOERROR LCTYPE THIS ADD CMESSAGE COBJECTNAMEY         (   R  T C      C      U  LOERRORS LNX LOERROR COUNT AITEMS THIS ADDERROR     
 T      (    %   
n ( T    C     C
 C
    T    C       	 B   U  LCOUTPUT LNX THIS COUNT AITEMS CMESSAGE;    T  <ul>C
 C
   (  	 T C      T  > <li><a href="javascript:{}" onclick="document.getElementById(' 
 ').focus();">C     C     for CC  _     6	 </a></li>C
 C
  " T   </ul>C
 C
 	 B  U	 	 LLADDNAME LCOUTPUT LNX THIS COUNT LCOBJECTNAME AITEMS COBJECTNAME CMESSAGE AddR       InsertAtA      Item      Get      SetB      Find      GetIndexd      Remove     
 UpdateItemr      Dispose      Destroy      Clear      Sort      ToArray      FastAdd1     Add
	     InsertAt	     Item
     Get     GetKey     GetIndex     Finde
     Remove    
 UpdateItem     Clear     ToAttributeString     Dispose_     Destroy     Push     Pop     Peek^     Add     Remove     AddError    	 AddErrors,     ToString     ToHtml     
   
 T   T -
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
      U  AITEMS COUNT REQUIREUNIQUEITEMS    
 T  
     
     
     
     
     
     
     
     
     
     
     
     
     
      U  AITEMS COUNTB 
 T   
     
     
     
      
  !    U 
 NSTACKPOINTER 
 T    
 T    U  CMESSAGE COBJECTNAME+ 
  "   
  #   
  $   
  %    U   wwCollection Relation~     wwNameValueCollection RELATIONY     wwStack wwCollection     wwValidationError Customp     wwValidationErrors wwCollection    s1 q Q!aA A A r1 1  q RQq!A A raqA =  q A < q ? q RA = q q Bq A A A r = q q B A R  A   A   A A A  <  q  QA A A A A r!;  A A a4  3  ; q q  AA A   = < q A1  r !A =  q RQ A @1   !A qA = q  R   A  A Rq A B< q RQq"q A  = q A; q q Q A  ; q q Bq A R!q A B< q q Q! q QA A !A q;  R q Qq A A = q q  A A   > q     A A  5  3  1 q < q Bq A r1 < q Bq A r 5 q  4 q  1  q !A A "A A A = q  QA >   A A A  ; q 4A " 4             @     p  6 8  p        p p p     4    P   4   2     0 ` 1                    *  C          l  ;       
  
  Y   &       l   )       |   /          ;   F       Q     c     _          e   4  D     g   c  s     i     R    t         v   r    &  z   #!  %"  D     #  $  \     u'  (  {     l*  +       --  ".       u/  /       0  1       2  3       4  +6       ^7  H8       9  :  1     1<  R=  J     =  =  \     =  =  `    CA  lA      C  C    
  E  vE      E  E      E  2F      ,K  L    ,  aN  N    3  zP  Q  &  >  R  T  <  G          b  a  =  1  ~  d>  =F  g    F  H       I  T                    (       @                                                                 033033      330  330x330x    330xwwp330xwwp330x0wwp330x3wwp00x0wwp0x3wp0x    0wp00x33333p330x𻻻0p330x0p330x𻻻p330x    0wp330xwp330x0wwp330xwwp330x0www30xwwwp30xwwww0xwwwwp0xwwwww                                                                                                                                                     &        (    (       @                                                                                                                                                       p              p              wp             w              wp             w  wwww       wp             w              wp             w              wp                             p                             p                       p                             p                             p                                                                                                         ?                    (                                                                                                  pp      p     p wwp         p                                                                                               0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4AN15I8141180932796      /  F      ]                                                       WINDOWS _4AN15I8151402763024                      	                                               WINDOWS _4AN15I8161254447461                  5  +                                               WINDOWS _4AN15I8141253079641    	    %  9                                                           WINDOWS _4AN19VQN21180936972                                                                   COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      BLANDAUSWAHL      BorderStyle = 3
Height = 407
Width = 251
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Bundesland auswhlen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "BLANDAUSWAHL"
     PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
PARAMETERS xxx
IF PCOUNT()=0
	xxx=0
ENDIF
 
thisform.optiongroup1.option1.Caption = zt2(1) &&Baden-Wrttemberg
thisform.optiongroup1.option2.Caption = zt2(2) && Bayern
thisform.optiongroup1.option3.Caption = zt2(3) && Berlin
thisform.optiongroup1.option4.Caption = zt2(4) &&Bundesgebiet (Bundesbeamte)
thisform.optiongroup1.option5.Caption = zt2(5) && Brandenburg
thisform.optiongroup1.option6.Caption = zt2(6) &&Bremen
thisform.optiongroup1.option7.Caption = zt2(7) &&Hamburg
thisform.optiongroup1.option8.Caption = zt2(8) &&Hessen
thisform.optiongroup1.option9.Caption = zt2(9) &&Mecklenburg-Vorpommern
thisform.optiongroup1.option10.Caption = zt2(10) &&Niedersachsen
thisform.optiongroup1.option11.Caption = zt2(11) &&Nordrhein-Westfalen
thisform.optiongroup1.option12.Caption = zt2(12) &&Rheinland-Pfalz
thisform.optiongroup1.option13.Caption = zt2(13) &&Saarland
thisform.optiongroup1.option14.Caption = zt2(14) &&Sachen
thisform.optiongroup1.option15.Caption = zt2(15) &&Sachen-Anhalt
thisform.optiongroup1.option16.Caption = zt2(16) &&Schleswig-Holstein
thisform.optiongroup1.option17.Caption = zt2(17) &&Thringen
thisform.optiongroup1.value=xxx+1
thisform.sizer.saveformsize
thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h
thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                      %         a  !               U    B    U  THISFORM TAGP 4   %Ct % 
 T     T    C  T    C  T    C  T    C  T  	  C  T  
  C  T    C  T    C  T  
  C	  T    C
  T    C  T    C  T    C
  T    C  T    C  T    C  T    C  T     
     T      T     
    T  a U  XXX THISFORM OPTIONGROUP1 OPTION1 CAPTION ZT2 OPTION2 OPTION3 OPTION4 OPTION5 OPTION6 OPTION7 OPTION8 OPTION9 OPTION10 OPTION11 OPTION12 OPTION13 OPTION14 OPTION15 OPTION16 OPTION17 VALUE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Unload,      InitN      Resize    1  2 q  A q qq  2 1                       %         @               "    )                           optiongroup      optiongroup      Optiongroup1      BLANDAUSWAHL     	PButtonCount = 17
Value = 0
Height = 333
Left = 19
Top = 11
Width = 213
Name = "Optiongroup1"
Option1.Caption = ""
Option1.Value = 0
Option1.ControlSource = ""
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 198
Option1.Name = "Option1"
Option2.Caption = ""
Option2.ControlSource = ""
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 198
Option2.Name = "Option2"
Option3.Caption = ""
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 198
Option3.Name = "Option3"
Option4.Caption = ""
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 198
Option4.Name = "Option4"
Option5.Caption = ""
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 198
Option5.Name = "Option5"
Option6.Caption = ""
Option6.Height = 17
Option6.Left = 5
Option6.Top = 100
Option6.Width = 198
Option6.Name = "Option6"
Option7.Caption = ""
Option7.Height = 17
Option7.Left = 5
Option7.Top = 119
Option7.Width = 198
Option7.Name = "Option7"
Option8.Caption = ""
Option8.Height = 17
Option8.Left = 5
Option8.Top = 138
Option8.Width = 198
Option8.Name = "Option8"
Option9.Caption = ""
Option9.Height = 17
Option9.Left = 5
Option9.Top = 157
Option9.Width = 198
Option9.Name = "Option9"
Option10.Caption = ""
Option10.Height = 17
Option10.Left = 5
Option10.Top = 176
Option10.Width = 198
Option10.Name = "Option10"
Option11.Caption = ""
Option11.Height = 17
Option11.Left = 5
Option11.Top = 195
Option11.Width = 198
Option11.Name = "Option11"
Option12.Caption = ""
Option12.Height = 17
Option12.Left = 5
Option12.Top = 214
Option12.Width = 198
Option12.Name = "Option12"
Option13.Caption = ""
Option13.Height = 17
Option13.Left = 5
Option13.Top = 233
Option13.Width = 198
Option13.Name = "Option13"
Option14.Caption = ""
Option14.Height = 17
Option14.Left = 5
Option14.Top = 252
Option14.Width = 198
Option14.Name = "Option14"
Option15.Caption = ""
Option15.Height = 17
Option15.Left = 5
Option15.Top = 271
Option15.Width = 198
Option15.Name = "Option15"
Option16.Caption = ""
Option16.Height = 17
Option16.Left = 5
Option16.Top = 290
Option16.Width = 198
Option16.Name = "Option16"
Option17.Caption = ""
Option17.Height = 17
Option17.Left = 5
Option17.Top = 309
Option17.Width = 198
Option17.Name = "Option17"
      PROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
PROCEDURE InteractiveChange
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
                                      %          4     &            U  7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE Click,      InteractiveChange     1  2  1                       f                   )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      BLANDAUSWAHL      Top = 378
Left = 225
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      BLANDAUSWAHL      Top = 354
Left = 101
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      CPROCEDURE Click
thisform.optiongroup1.interactivechange
ENDPROC
                                      N   %   k             z             U   
      U  THISFORM OPTIONGROUP1 INTERACTIVECHANGE Click,     1  1                       8       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4AN15I8141180932796      /  F      ]                                                       WINDOWS _4AN15I8151402756722                      j                                               WINDOWS _4AN15I8161356220696                  	                                                 WINDOWS _4AN15I8171364169510                                                                     WINDOWS _4AN19VQN21364169510                                                                   COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      
DIENSTAUSWAHL      BorderStyle = 3
Height = 616
Width = 265
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Dienstverhltnis auswhlen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "DIENSTAUSWAHL"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS xxx
IF PCOUNT()=0
	xxx=0
endif
thisform.optiongroup1.value=xxx+1


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
     X    ?  ?                        jC   %                          U    C     U  THISFORM SIZER	 FRMRESIZE  4   %Ct % 
 T     T     
     T      T     
  	  T 
 a U  XXX THISFORM OPTIONGROUP1 VALUE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  B    U  THISFORM TAG Resize,      Init_      Unloadf    1 2 q  A q rq  2  1                       ,         G   O        l        )   ?                        optiongroup      optiongroup      Optiongroup1      
DIENSTAUSWAHL     ButtonCount = 28
Value = 0
Height = 538
Left = 13
Top = 11
Width = 238
Name = "Optiongroup1"
Option1.Caption = "Besoldungsordnung A"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 224
Option1.Name = "Option1"
Option2.Caption = "Besoldungsordnung B"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 224
Option2.Name = "Option2"
Option3.Caption = "Besoldungsordnung C"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 224
Option3.Name = "Option3"
Option4.Caption = "Besoldungsordnung W"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 224
Option4.Name = "Option4"
Option5.Caption = "Besoldungsordnung R"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 224
Option5.Name = "Option5"
Option6.Caption = "Beamtenanwrter(in) A"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 100
Option6.Width = 224
Option6.Name = "Option6"
Option7.Caption = "AOK Dienstverhltnis"
Option7.Enabled = .T.
Option7.Height = 17
Option7.Left = 5
Option7.TabStop = .T.
Option7.Top = 119
Option7.Visible = .T.
Option7.Width = 224
Option7.Name = "Option7"
Option8.Caption = "reserviert"
Option8.Enabled = .F.
Option8.Height = 17
Option8.Left = 5
Option8.TabStop = .T.
Option8.Top = 138
Option8.Visible = .F.
Option8.Width = 224
Option8.Name = "Option8"
Option9.Caption = "TV-L/H Pflege"
Option9.Enabled = .T.
Option9.Height = 17
Option9.Left = 5
Option9.TabStop = .T.
Option9.Top = 157
Option9.Visible = .T.
Option9.Width = 224
Option9.Name = "Option9"
Option10.Caption = "TV-L/H Sozial und Erziehungsdienst"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 176
Option10.Width = 224
Option10.Name = "Option10"
Option11.Caption = "TVD (Bund)"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 195
Option11.Width = 224
Option11.Name = "Option11"
Option12.Caption = "TV-Lnder / TV-Hessen"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 214
Option12.Width = 224
Option12.Name = "Option12"
Option13.Caption = "TVD-Gemeinden"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 233
Option13.Width = 224
Option13.Name = "Option13"
Option14.Caption = "TVD-Pflege"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 252
Option14.Width = 224
Option14.Name = "Option14"
Option15.Caption = "TVD Sozial- und Erziehungsdienst"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 271
Option15.Width = 224
Option15.Name = "Option15"
Option16.Caption = "Arzt / rztin"
Option16.Height = 17
Option16.Left = 5
Option16.Top = 290
Option16.Width = 224
Option16.Name = "Option16"
Option17.Caption = "TVD Krankenhuser"
Option17.Height = 17
Option17.Left = 5
Option17.Top = 309
Option17.Width = 224
Option17.Name = "Option17"
Option18.Caption = "TV-L Krankenhuser"
Option18.Height = 17
Option18.Left = 5
Option18.Top = 328
Option18.Width = 224
Option18.Name = "Option18"
Option19.Caption = "Kraftfahrer TV-Bund"
Option19.Height = 17
Option19.Left = 5
Option19.Top = 347
Option19.Width = 224
Option19.Name = "Option19"
Option20.Caption = "PKW-Fahrer-TV-L"
Option20.Height = 17
Option20.Left = 5
Option20.Top = 366
Option20.Width = 224
Option20.Name = "Option20"
Option21.Caption = "TVAD / TV-L - Auszubildende(r)"
Option21.Height = 17
Option21.Left = 5
Option21.Top = 385
Option21.Width = 224
Option21.Name = "Option21"
Option22.Caption = "TVPD-Praktikanten"
Option22.Height = 17
Option22.Left = 5
Option22.Top = 404
Option22.Width = 224
Option22.Name = "Option22"
Option23.Caption = "TV Komm. Versorgungsbetriebe"
Option23.Height = 17
Option23.Left = 5
Option23.Top = 423
Option23.Width = 224
Option23.Name = "Option23"
Option24.Caption = "TV Komm. Verkehrsbetriebe"
Option24.Height = 17
Option24.Left = 5
Option24.Top = 442
Option24.Width = 224
Option24.Name = "Option24"
Option25.Caption = "Dienstverhltnis mit bes. Tabelle"
Option25.Height = 17
Option25.Left = 5
Option25.Top = 461
Option25.Width = 224
Option25.Name = "Option25"
Option26.Caption = "Beschftigter mit Gehalt n. Vereinb."
Option26.Height = 17
Option26.Left = 5
Option26.Top = 480
Option26.Width = 224
Option26.Name = "Option26"
Option27.Caption = "Geringfgig Beschftigte(r)"
Option27.Height = 17
Option27.Left = 5
Option27.Top = 499
Option27.Width = 224
Option27.Name = "Option27"
Option28.Caption = "Ohne Gehalt"
Option28.Height = 17
Option28.Left = 5
Option28.Top = 518
Option28.Width = 224
Option28.Name = "Option28"
      PROCEDURE InteractiveChange
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
PROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
                                      %          4     &            U  7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE InteractiveChange,      Click     1  2  1                       r                   )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      
DIENSTAUSWAHL      Top = 593
Left = 237
Width = 22
Height = 16
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      
DIENSTAUSWAHL      Top = 563
Left = 108
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      CPROCEDURE Click
thisform.optiongroup1.interactivechange
ENDPROC
                                      N   %   k             z             U   
      U  THISFORM OPTIONGROUP1 INTERACTIVECHANGE Click,     1  1                       8       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4AN15I8141180932796      /  F      ]                                                       WINDOWS _4AN15I8151411802479                                                                     WINDOWS _4AN15I8161411802442	        /  C  `      >  A                                                WINDOWS _4AN15I8171357532643,  ,  ,  ,  ,  -                                                           WINDOWS _4AN19VQN21254575657-      -  -  -  .      .   /                                               WINDOWS _68G0R9UDU1411802479/      /  0  0  70                                                           COMMENT RESERVED                                0                                                            0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      ENTGELTGRUPPENAUSWAHL      BorderStyle = 3
Height = 522
Width = 265
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Entgeltgruppe auswhlen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "ENTGELTGRUPPENAUSWAHL"
     PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
PARAMETERS xxx
IF PCOUNT()=0
	xxx=0
endif
thisform.optiongroup1.value=xxx+1

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
*optiongroup wird gefllt mit function gruppen()

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     X    ?  ?                        jC   %                          U    B    U  THISFORM TAG  4   %Ct % 
 T     T     
     T      T     
  	  T 
 a U  XXX THISFORM OPTIONGROUP1 VALUE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Unload,      InitN      ResizeU    1  2 q  A q rq  4 1                       %         @   z                )   ?                        optiongroup      optiongroup      Optiongroup1      ENTGELTGRUPPENAUSWAHL     ButtonCount = 27
Value = 0
Height = 442
Left = 13
Top = 11
Width = 238
Name = "Optiongroup1"
Option1.Caption = "zt5(1)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 224
Option1.Name = "Option1"
Option2.Caption = "zt5(2)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 21
Option2.Width = 224
Option2.Name = "Option2"
Option3.Caption = "zt5(3)"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 37
Option3.Width = 224
Option3.Name = "Option3"
Option4.Caption = "zt5(4)"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 53
Option4.Width = 224
Option4.Name = "Option4"
Option5.Caption = "zt5(5)"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 69
Option5.Width = 224
Option5.Name = "Option5"
Option6.Caption = "zt5(6)"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 85
Option6.Width = 224
Option6.Name = "Option6"
Option7.Caption = "zt5(7)"
Option7.Enabled = .T.
Option7.Height = 17
Option7.Left = 5
Option7.TabStop = .T.
Option7.Top = 101
Option7.Visible = .T.
Option7.Width = 224
Option7.Name = "Option7"
Option8.Caption = "zt5(8)"
Option8.Enabled = .T.
Option8.Height = 17
Option8.Left = 5
Option8.TabStop = .T.
Option8.Top = 117
Option8.Visible = .T.
Option8.Width = 224
Option8.Name = "Option8"
Option9.Caption = "zt5(9)"
Option9.Enabled = .T.
Option9.Height = 17
Option9.Left = 5
Option9.TabStop = .T.
Option9.Top = 133
Option9.Visible = .T.
Option9.Width = 224
Option9.Name = "Option9"
Option10.Caption = "zt5(10)"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 149
Option10.Width = 224
Option10.Name = "Option10"
Option11.Caption = "zt5(11)"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 165
Option11.Width = 224
Option11.Name = "Option11"
Option12.Caption = "zt5(12)"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 180
Option12.Width = 224
Option12.Name = "Option12"
Option13.Caption = "zt5(13)"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 195
Option13.Width = 224
Option13.Name = "Option13"
Option14.Caption = "zt5(14)"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 211
Option14.Width = 224
Option14.Name = "Option14"
Option15.Caption = "zt5(15)"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 227
Option15.Width = 224
Option15.Name = "Option15"
Option16.Caption = "zt5(16)"
Option16.Height = 17
Option16.Left = 5
Option16.Top = 243
Option16.Width = 224
Option16.Name = "Option16"
Option17.Caption = "zt5(17)"
Option17.Height = 17
Option17.Left = 5
Option17.Top = 259
Option17.Width = 224
Option17.Name = "Option17"
Option18.Caption = "zt5(18)"
Option18.Height = 17
Option18.Left = 5
Option18.Top = 275
Option18.Width = 224
Option18.Name = "Option18"
Option19.Caption = "zt5(19)"
Option19.Height = 17
Option19.Left = 5
Option19.Top = 291
Option19.Width = 224
Option19.Name = "Option19"
Option20.Caption = "zt5(20)"
Option20.Height = 17
Option20.Left = 5
Option20.Top = 307
Option20.Width = 224
Option20.Name = "Option20"
Option21.Caption = "zt5(21)"
Option21.Height = 17
Option21.Left = 5
Option21.Top = 323
Option21.Width = 224
Option21.Name = "Option21"
Option22.Caption = "zt5(22)"
Option22.Height = 17
Option22.Left = 5
Option22.Top = 339
Option22.Width = 224
Option22.Name = "Option22"
Option23.Caption = "zt5(23)"
Option23.Height = 17
Option23.Left = 5
Option23.Top = 355
Option23.Width = 224
Option23.Name = "Option23"
Option24.Caption = "zt5(24)"
Option24.Height = 17
Option24.Left = 5
Option24.Top = 371
Option24.Width = 224
Option24.Name = "Option24"
Option25.Caption = "zt5(25)"
Option25.Height = 17
Option25.Left = 5
Option25.Top = 387
Option25.Width = 224
Option25.Name = "Option25"
Option26.Caption = "zt5(26)"
Option26.Height = 17
Option26.Left = 5
Option26.Top = 403
Option26.Width = 224
Option26.Name = "Option26"
Option27.Caption = "zt5(27)"
Option27.Height = 17
Option27.Left = 5
Option27.Top = 419
Option27.Width = 224
Option27.Name = "Option27"
     PROCEDURE Init
thisform.hsatreffer.value = 0
FOR hsa = 1 TO 27
	
	IF EMPTY(zt5(hsa))
		xhsa=ALLTRIM(STR(hsa,2,0))
		thisform.optiongroup1.option&xhsa..enabled=.f.
		thisform.optiongroup1.option&xhsa..visible=.f.
	ELSE
		thisform.hsatreffer.value = thisform.hsatreffer.value + 1
	ENDIF
NEXT

ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
IF thisform.hsatreffer.value = 0
	thisform.Tag="I:-2"
else
	thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
endif
thisform.release
ENDPROC
PROCEDURE Option1.Init
this.Caption=zt5(1)

ENDPROC
PROCEDURE Option2.Init
this.Caption=zt5(2)
ENDPROC
PROCEDURE Option3.Init
this.Caption=zt5(3)
ENDPROC
PROCEDURE Option4.Init
this.Caption=zt5(4)
ENDPROC
PROCEDURE Option5.Init
this.Caption=zt5(5)
ENDPROC
PROCEDURE Option6.Init
this.Caption=zt5(6)
ENDPROC
PROCEDURE Option7.Init
this.Caption=zt5(7)
ENDPROC
PROCEDURE Option8.Init
this.Caption=zt5(8)
ENDPROC
PROCEDURE Option9.Init
this.Caption=zt5(9)
ENDPROC
PROCEDURE Option10.Init
this.Caption=zt5(10)
ENDPROC
PROCEDURE Option11.Init
this.Caption=zt5(11)
ENDPROC
PROCEDURE Option12.Init
this.Caption=zt5(12)
ENDPROC
PROCEDURE Option13.Init
this.Caption=zt5(13)
ENDPROC
PROCEDURE Option14.Init
this.Caption=zt5(14)
ENDPROC
PROCEDURE Option15.Init
this.Caption=zt5(15)
ENDPROC
PROCEDURE Option16.Init
this.Caption=zt5(16)
ENDPROC
PROCEDURE Option17.Init
this.Caption=zt5(17)
ENDPROC
PROCEDURE Option18.Init
this.Caption=zt5(18)
ENDPROC
PROCEDURE Option19.Init
this.Caption=zt5(19)
ENDPROC
PROCEDURE Option20.Init
this.Caption=zt5(20)
ENDPROC
PROCEDURE Option21.Init
this.Caption=zt5(21)
ENDPROC
PROCEDURE Option22.Init
this.Caption=zt5(22)
ENDPROC
PROCEDURE Option23.Init
this.Caption=zt5(23)
ENDPROC
PROCEDURE Option24.Init
this.Caption=zt5(24)
ENDPROC
PROCEDURE Option25.Init
 this.Caption=zt5(25)
ENDPROC
PROCEDURE Option26.Init
this.Caption=zt5(26)
ENDPROC
PROCEDURE Option27.Init
this.Caption=zt5(27)
ENDPROC
     h    O  O                           %         6
  K   	            U    T       (  %CC     T CC  Z2 thisform.optiongroup1.option&xhsa..enabled=.f.
2 thisform.optiongroup1.option&xhsa..visible=.f.
   T           U  THISFORM
 HSATREFFER VALUE HSA ZT5 XHSA
 
     U  THIS CLICKn  %     +  T    I:-2 ] * T    I:CC     Z 
     U  THISFORM
 HSATREFFER VALUE TAG OPTIONGROUP1 RELEASE  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C	  U  THIS CAPTION ZT5  T   C
  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C
  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5 Init,      InteractiveChangeF     Clickd     Option1.Init     Option2.Init>     Option3.Initm     Option4.Init     Option5.Init     Option6.Init     Option7.Init)     Option8.InitX     Option9.Init    
 Option10.Init    
 Option11.Init    
 Option12.Init    
 Option13.InitC    
 Option14.Initr    
 Option15.Init    
 Option16.Init    
 Option17.Init    
 Option18.Init.    
 Option19.Init]    
 Option20.Init    
 Option21.Init    
 Option22.Init    
 Option23.Init    
 Option24.InitH    
 Option25.Initw    
 Option26.Init    
 Option27.Init    1 1qBq!! A A 3  2 qA A  2 A3 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A1                       .        V  `        |          :  O        r              !          $        '  '      J  ]  *   !       -   #       0   %       3   '   #  7  6   )   [  o  9   +       <   -       ?   /       B   1   ;  O  E   3   s    H   5       K   7       N   9     /  Q   ;   S  g  T   =       W   ?       Z   A       ]   C   3  G  `   E   k    c   G       f   I       i    )   O                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      ENTGELTGRUPPENAUSWAHL      Top = 504
Left = 237
Width = 22
Height = 16
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      ENTGELTGRUPPENAUSWAHL      Top = 465
Left = 108
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      CPROCEDURE Click
thisform.optiongroup1.interactivechange
ENDPROC
                                      N   %   k             z             U   
      U  THISFORM OPTIONGROUP1 INTERACTIVECHANGE Click,     1  1                       8       )                            textbox      textbox      
hsatreffer      ENTGELTGRUPPENAUSWAHL      bEnabled = .F.
Height = 19
Left = 24
Top = 465
Visible = .F.
Width = 70
Name = "hsatreffer"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %         	  Y   8	  MS    G+(	 ShellExec B U 	 SHELLEXEC       %C  , 
 B  %C P  T  OPEN  %C s  T C]  %C  
 T    . | ShellExecute SHELL32.dll! |
 FindWindow WIN32API) BCC 9	             U
  TCURL TCACTION TCDIRECTORY TCPARMS SHELLEXECUTE SHELL32 DLL
 FINDWINDOW WIN32API CAPTION       T  CC        64 T CC  C] \ww_HTMLView.htm  6 C     %C loWebBrowserb O  C      BC    U  LCHTML LCFILE LOWEBBROWSER NAVIGATE GOURLy       %C R 4 T CC  C] \ww_HTMLView.xml  6 
    BC         U  LCXML LCFILE LOWEBBROWSER SHOWHTML       %C R 4 T CC  C] \ww_HTMLView.txt  6 $ %C  C   MODI	  C    /  B  BC         U  LCHTML LCFILE LOWEBBROWSER SHOWHTMLd     V RETURN GoUrl("http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=" + lcSearch)
 U  LCSEARCH LCSITE        %C  3 
 T      %C S 
 T     %C s 
 T     %C   T  US  %C  
 T     GoUrl("http://www.mapquest.com/maps/map.adp?country=" +  lcCountry + "&addtohistory=&address=" + UrlEncode(lcStreet) +  "&city=" + UrlEncode(lcCity) + "&state=" + UrlEncode(lcState) +  "&zipcode=" + UrlEncode(lcZip) + "&homesubmit=Get+Map&size=big")
 U  LCSTREET LCCITY LCSTATE LCZIP	 LCCOUNTRY       RETURN GoUrl("mailto:" + lcRecipient +  "&Subject=" + STRTRAN(UrlEncode(lcSubject),"+"," ") + "&Body=" + STRTRAN(UrlEncode(lcBody),"+"," "))
 U  LCRECIPIENT	 LCSUBJECT LCBODY         
 T     (C  > T C   \: %C $ ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789   T    .  %     
	  T   + . $ T   %CCC  @0_R 	 B  U  TCVALUE LLNOPLUS LCRESULT LCCHAR LNSIZE LNX GoUrlN      ShowHTML     ShowXML     ShowTextR     SearchGoogle3     ShowMap    	 ShowEmail    	 URLEncode]    2A 3 `1  A  A  A   A 5  A A  4   AA  a4   AA B  A A b3  b4 y  A   A   A   A   A 4  	5  1 QA A !A A BA  1                    w           
  
  @      
  
  Z   %   
    n   0          3          E          H   0           %           ɓ    5  @K[  KW 7   T  - 7  T  11 7  7 
 T   7 
 T   7  T  neu 7  7 	 7 
 T   7	 
 T	   7
  T
 a 7 
 T   7  7
 
 T
    7  7  7 
 T   7  T          7  7  7  7  T - 7 
 T   7 
 T   7 
 T   7 
 T   7  7  7  7  7  7  7   7!  7"  T" - 7#  T# - 7$  7% 0 T% # FONT "Century Gothic", 20 Style "B" 7&  T&  XXXX 7'  7(  7) 
 T)   7*  7+  T*  T+  7,  7-  7.  7/  T/ - 70 
 T0    71 Q INTEGER 72 Q STRING 73 Q STRING 74 Q STRING 75 Q STRING 76 Q INTEGER 77 Q INTEGER 78 Q INTEGER 79 Q INTEGER 7: 	Q INTEGER 7; Q STRING 7< Q STRING 7= Q INTEGER 7> Q INTEGER 7? Q INTEGER 7@ Q STRING 7A Q STRING 7B Q INTEGER 7C Q INTEGER 7D Q INTEGER 7E Q INTEGER 7F Q INTEGER 7G Q INTEGER 7H Q INTEGER 7I Q INTEGER 7J Q STRING 7K Q STRING 7L Q STRING 7M Q STRING 7N Q INTEGER 7O Q INTEGER 7P Q INTEGER 7Q Q INTEGER 7R Q INTEGER 7S Q INTEGER 7T Q STRING 7U Q STRING 7V  7W  TW - 7X 
 TX   
 7Y  J        (Y  7Z  7[  T[ - 7\  7]  7^  7_  7`  7a 
 Ta    7b 
 Tb    7c 
 Tc    7d  7e  7f  7g  7h 
 Th    7i  7j  7k  7l  7m  7n  7N  7Q  7O  7P  71  7o 
 7p  7q  7@  7;  7r  7s  7<  7A  7B  7C  7D  7?  7>  7=  7t  7u  7E  7F  7G  7H  7I  7J  7K  7L  7v  7w  7x  7y Q INTEGER 7z Q INTEGER 7{ Q INTEGER 7| Q INTEGER 7} Q SINGLE 7~ Q INTEGER 7 Q INTEGER 7 Q SINGLE 7 Q INTEGER 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q INTEGER 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7 
Q SINGLE 7 Q SINGLE 7 Q SINGLE 7  7  7  7   T C
 C
  T C
 C
  7  7 
 T  
 T  7 G 7                 M J  (                  7 
Q STRING 7 Q STRING 7 Q STRING 7 Q STRING 7 Q STRING 7 Q STRING 7 Q SINGLE 7 Q SINGLE 7 Q STRING 7 Q INTEGER 7 Q INTEGER 7 Q INTEGER 7 Q INTEGER 7 Q SINGLE 7 Q SINGLE 7 Q SINGLE 7  7 
 T    7 
 T   7 
 T  7 
 T  7 
 T  7 %Q STRING 7 Q INTEGER 7 Q CURRENCY
 J ( 
 J (  J        (  7 
 T  7 
 T   7 
 T  7 
 T   7 Q INTEGER 7 Q INTEGER 7 Q STRING 7 Q BOOLEAN 7 Q STRING 7 Q INTEGER 7 Q INTEGER 7 Q INTEGER 7 Q INTEGER 7 
 T  7 
 T   7 
 T   7  7  7  7  7  7  7  7  7  7  7  7  7l  7  7 
 T    7 
 T  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7O  7P  71  7Q  7n  7@  7  7;  7  7  7<  7A  7B  7C  7D  7?  7>  7=  7t  7u  7E  7F  7G  7H  7I  7J  7K  7L  7v  7  7  7  T a T - 7  7  7 
 T 
 T 7 7  7 7 
 T  
 T
 T
 T  7 7 7 7 7 7	 7
 7 T T T	 T
 T 7
 TCC Z T
CC Z TCC	 Z TCC
 Z TCC Z 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
 7 
 7!

 7"

 7#

 7$

 7%

 7&

 7'

 7(
 7)
 7*7 7+
 7,
 7-= 7. 7/ 70 71 72 73 74 75 76 77 78 79 7: 7; 7< 7= 7> 7? 7@ 7A 7B 7C 7D 7E 7F 7G 7H 7I 7J 7K 7L 7M 7N 7O 7P
 7Q 7R 7S 7T 7U 7V 7W 7X 7Y 7Z 7[ 7\ 7] 7^ 7_ 7` 7a 7b 7c 7d 7e
 7f 7g 7h 7i 7j
 7k 7l 7m 7n 7o 7p 7q 7r 7s 7t 7u 7v 7w 7x 7y 7z 7{ 7| 7} 7~ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
 7 7 7 7 7 7 7 7 7
 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7,
 7, 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7  7 7
 7 7 7 7 7 7 7	 7
 7 7 7
 7 7 7 7 7 7 7 7
 7 7
 7 7 7 7 7 7
 7  7 7  7! 7" 7# 7$ 7% 7& 7  7' 7( 7)
 7*
 7+ 7, 7- 7. 7/ 70 71 72 73 74 75 76 77 78 79 7:
 7;
 7<
 7=
 7>
 7?'
 7@
 7AG
 7B
 7C
 7D
 7E
 7F 7G  7H  7I 
 7J
 7K
 7L
 7M	
 7N

 7O

 7P
 7Q	
 7R
 7S
 7T3
 7U
 7Vz
 7W
 7X
 7Y 7Z
 7[
 7\7
 7]
 7^
 7_	 7` 
 7a
 7b
 7c 7d 
 7e1
 7f1
 7g1
 7h
 7i$
 7j
 7k)
 7l
 7m

 7n
 7o?
 7p 7q 7r 7s 7t 7u 7v 7w 7x
 7y 7z 7{ 7| 7} 7~ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
 7= 7 7
 7# 7$ 7$ 7$ 7$ 7$ 7 7
 7
 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7&
 7
 7
 7
 7
 7
 7 7 7 7 7 7 7 7 7 7 7 7
 7
 7
 7 7 7 7 7 7 7 7 7 7 7 7  7 7 7 7 7 7 7 7 7	 7
 7 7 7
 7 7 7 7
 7
 7
 7 7 7
 7 7 7 7 7 7 7 7 7 7  7! 7" 7# 7$ 7% 7& 7' 7( 7) 7* 7+ 7, 7- 7. 7/ 70 71 72 73 74 75 76
 77
 78
 79
 7:
 7; 7< 7= 7> 7? 7@ 7A 7B 7C 7D 7E 7F
 7G
 7H 7I 7J 7K 7L
 7M0
 7N
 7O 7P 7Q 7R 7S 7T 7U 7V 7W 7X 7Y 7Z 7[ 7\ 7] 7^ 7_ 7` 7a 7b
 7c- 7d 7e 7f 7g 7h 7i 7j 7k 7l 7m 7n 7o 7p 7q 7r 7s 7t
 7u 7v 7w 7x 7y 7z 7{ 7| 7} 7~ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
 78
 7
 7 7
 7 7
 7
 7
 7
 7
 7
 7
 7
 7
 7
 7+ 7 7!Q INTEGER
 7  7 7 7 7 7 7 7 7 7 7 7 7 7 7? 7
 7
 7
 7
 7 7 7 7 7 7
 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7  7 7 7
 7B
 7
 7
 74
 7*
 7D
 7B 7 7 7 7 7 7 7 7 7 7 7 7 7 7  7 7 7 7 7 7 7 7 7	 7
 7 7 7
 7 7 7 7 7 7 7 7
 78
 J ( 7 7 7 7 7 7
 73
 73
 73
 7 3
 7!3
 7"3
 7#3
 7$3
 7%3 7& 7' 7( 7)
 7* 7+ 7,
 T^ 
 T 
 Tn  
 TN  
 TQ  
 TO  
 TP  
 T1  
 To  
 J  (p 
 Tq  
 T@   
 T;   
 Tr   
 Ts   
 T<   
 TA   
 TB  
 TC  
 TD  
 T?  
 T>  
 T=  
 Tt  
 Tu  
 TE  
 TF  
 TG  
 TH  
 TI  
 TJ   
 TK   
 TL   
 Tv    Ta
 T  J        (
 J  ( 
 J  (!
 J  ("
 J  (#
 J  ($
 J  (%
 J  (&
 J ('
 J  ((
 T)  
 J  (*
 T+  J (, J (-=
 T.  T/-
 T0 
 T1  
 T2   J        (3
 T4  T5- T6- T7         T8        
 T9  
 T:  
 T; 
 T<  
 T= 
 T> 
 T?   T@- TA- TB-
 TC  
 TD   TE-
 TF  TG        
 TH 
 TI 
 TJ 
 TK 
 TL  TM-
 TN  TO-
 TP 
 J (Q
 TR 
 TS  
 TT  
 TU 
 TV 
 TW 
 TX 
 TY 
 TZ 
 T[ 
 T\  T]-
 T^ 
 T_ 
 T` 
 Ta 
 Tb 
 Tc  
 Td  Te-
 J  (f
 Tg 
 Th  
 Ti 
 Tj 
 J (k
 Tl  
 Tm   Tn-
 To 
 Tp 
 Tq 
 Tr 
 Ts 
 Tt 
 Tu 
 Tv 
 Tw  Tx-
 Ty 
 Tz  T{-
 T| 
 T} 
 T~ 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  T-
 T 
 T 
 T  T-
 T 
 T 
 J (
 T  
 T 
 T 
 T 
 T 
 J (
 T 
 T 
 J ( T- T-
 T  T-
 T  T-
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 J (
 J  ( T-
 T  T         T         T        
 T 
 T 
 T 
 T   T-
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 T 
 T  T- T- T- T- T-
 T 
 T 
 T  T         T         T         T         T         T        
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 J (
 T 
 T 
 T 
 T 
 T 
 T	 
 T
 
 T 
 T 
 T
  Ta
 T 
 T 
 T 
 T 
 T-  T-
 J (
 J (
 J (
 J ( T-
 T 
 T 
 J ( J-(
 J ( T- T - T!        
 T"   T#-
 T$  
 T%  T&-
 T  
 T' 
 T( 
 T) 
 J (*
 J (+ T,- T--
 T. 
 T/  
 T0 
 T1 
 T2 
 T3 
 T4 
 T5 
 T6 
 T7 
 T8 
 T9 
 T: 
 J  (;
 J  (<
 J  (=
 J  (>
 J  (?
 J  (@
 J  (A
 J  (B
 J  (C
 J  (D
 J  (E
 J  (F
 J  (G
 J  (H
 J  (I
 J  (J
 J  (K
 J  (L
 J  (M
 J  (N
 J  (O
 J  (P
 J  (Q
 J  (R
 J  (S
 J  (T
 J  (U
 J  (V
 J  (W
 J  (X
 J  (Y
 J  (Z
 J  ([
 J  (\
 J  (]
 J  (^
 J  (_
 J  (`
 J  (a
 J  (b
 J  (c
 J  (d
 J  (e
 J  (f
 J  (g
 J  (h
 J  (i
 J  (j
 J  (k
 J  (l
 J  (m
 J  (n
 J  (o
 J (p Tq-
 Tr 
 Ts 
 Tt 
 Tu 
 Tv 
 Tw 
 Tx 
 J (y
 Tz  T{a T|-
 T} 
 T~ 
 T 
 T 
 T  
 T 
 T 
 T 
 T  T-
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 T 
 T 
 T 
 T 
 T  T-
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 J (
 T 
 T 
 J  ( J        ( J        ( J        ( J        ( J        (
 T 
 T 
 J (
 J (
 T 
 T  T         T         T        
 T  T        
 T  T         T        
 T 
 T  T         T        
 T 
 T 
 T 
 T 
 T  T         T         T         T        
 T  T         T         T        
 T 
 T   J        ( J        ( J        ( J        ( J        ( J        ( J        ( T- T         T         T         T         T         T         T- T         T         T        
 J ( J-( J-(
 T 
 T 
 T 
 T 
 T  
 T 
 T  
 T  
 T  
 T  
 T   
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T	 
 T
 
 T 
 T 
 T
 
 T 
 T 
 T  
 T 
 J (
 J (
 J (
 T 
 T 
 J (
 T 
 T 
 T 
 T  
 T  
 T  T         T         T          T!        
 T" 
 T# 
 T$ 
 T% 
 T& 
 T' 
 T( 
 T) 
 T* 
 T+ 
 T, 
 T- 
 T. 
 T/ 
 T0 
 T1 
 T2 
 T3  
 T4 
 T5 
 T6 
 J (7
 J (8
 J (9
 J (:
 J (; T<         T=         T>         T?         T@         TA         TB        
 TC 
 TD 
 TE 
 TF 
 J  (G J-(H
 TI 
 TJ 
 TK 
 TL 
 J (M
 J  (N
 J (O
 TP 
 TQ 
 TR 
 TS 
 TT 
 TU 
 TV 
 TW  
 TX 
 TY 
 TZ 
 T[ 
 T\ 
 T] 
 T. 
 T_ 
 T` 
 Ta 
 Tb 
 J (c Td        
 Te 
 Tf 
 Tg 
 Th  
 Ti  
 Tj  
 Tk  
 Tl  
 Tm  
 Tn  
 To  
 Tp  
 Tq  
 Tr 
 Ts 
 Tt 
 J (u
 Tv 
 Tw 
 Tx 
 Ty 
 Tz 
 T{ 
 T|  
 T}  T~         T         T         T        
 T 
 T 
 T  T         T         T         T        
 T 
 T 
 T 
 T 
 T 
 T  T-
 T 
 T 
 T 
 T 
 T 
 T  
 T  
 T 
 T 
 T  
 T 
 T 
 T  
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 J (
 J (
 J (
 T 
 J  (
 T  J        ( J        ( J        ( J-( J-( J-( J-( J-( J-(
 J (
 T 
 J (
 J (
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  J        (
 J (
 J  (
 T 
 J (
 J  (
 T 
 T 
 T 
 T 
 T 
 J ( T        
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 T 
 J (
 J (
 T  J        ( J        (
 J (
 J (
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  T-
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T	 
 T
 
 T 
 T 
 T
 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  T8 
 T  
 T 
 T 
 T 
 T 
 T 
 J ( J        (
 J (
 J ( 
 J (!
 J ("
 J (#
 J ($
 J (%
 J (& T'-
 T( 
 T+ 
 T,  U/
 KUG_ACTIVE
 KKVORGABEN
 PERSCOPYMODUS MYBWLAUFZEIT MYLASTBWLAUFZEIT BYVERGLEICH BYFAMZU
 BYERHHUNG	 MYPVKIANZ LASTPVKIANZ	 INTCHANGE AUSDRUCKOLD HSQUIT MYGROSSBUCHSTABEN MYDIFFERENZA	 STARTLAUF
 MYKINDERPV GESAN MYSONDERZAHLUNG_ANDERE MYKVPFL MYLSTAUSGLEICH HSSTEUERALT MYSONDERZUSCHLAG LASTSONDERZUSCHLAG
 MYMIETSTUFEZ8
 LASTMIETSTUFE MYKONVERTIERUNG MYFREISCHALT MYLUPE34 MYLUPE39 MYERSTATTUNG MYATZWINDOW MYATZA
 MYATZMASKE HSNEUERSATZ
 HSSERIENDRUCK MYVDZ
 MYMENUVAR1 UPDATEX MYWEIHNACHTENANZEIGEN MYSONDERZ_BEAMTE
 ACTIVE_COL_NR MSCREENHOHE_ORG MSCREENBREITE_ORG MSCREENHOHE
 MSCREENBREITE MYNETTOBERECHNUNG DIREKTZUMDRUCKER MYRECHTSGRUNDLAGETEXT FEBRUARTAGE ZBEAMTER
 ZVORZEITEN ZVON ZBIS ZPROZENT
 ZVORMONATE ZJAHRE ZTAGE ZNORMAL
 FRHERESDATUM
 SPTERESDATUM DIFFERENZJAHRE DIFFERENZMONATE
 DIFFERENZTAGE
 BERSCHRITTEN	 MONATPLUS LFDMONAT	 ENDEMONAT LFDJAHR STAG SMONAT SJAHR
 MONATBERTRAG JAHRESBERTRAG DATUMSTRING	 TAGSTRING MONATSTRING HS_D DATINDEX FRHERERTAG SPTERERTAG EG	 STARTJAHR
 STARTMONAT	 ZBEGINNEN ZBEENDEN HSXXBDADATUM
 HSZVKSTART HSXPRINT
 FIELDBOXES MYSTUFENLAUFZEIT HSBEIHILFEAKTIV VBL_ERHOEHUNG_U VBL_ERHOEHUNG_K VBL_ERHOEHUNG_FAKTOR
 MYFALLGRUPPEN MYDIENSTFHIGKEIT MYHSBEIHILFE
 MYBEIHILFE MYHSZUSCHLAG
 MYKRANKENGELD	 MYZULAGEN MYFORM2
 MYATZGRID_TAG OLDZ0 VORGABEWERT
 MYARBEITSZEIT	 HSMONTHNR
 MYPROGRESS	 MYBDAFORM DI DRUCKERTEXT
 DRUCKDATUM EINGANGSAMTINDEX FRHERESDATUM35 FRHERESDATUM40 DIFFERENZJAHRE35 DIFFERENZJAHRE40 D	 HSBEENDEN
 HSGELAUFEN	 URLGRUPPE
 URLORDNUNG URLALTER
 URLTAGENORMAL AUFSTOCKUNG JAHRESURLAUB ZUSATZURLAUB JAHRUMGERECHNET	 ENDURLAUB KRZUNG1 KRZUNG2 KRZUNG3 ZWLFTEL ZWISCHENURLAUB ZWLFTELURLAUB BURLG BURLG12 URLJ	 URLJUGEND URLJUGEND12 URLSGB URLSGB12 URLENDSUMME
 URLVORJAHR
 URLVORJAHRVON URLREST URLBASIS URLEFFEKTIV URLABGELTUNG	 BASISZAHL MYEXPORT MYURLAUBSBER MYHHERGRUPPIERUNG CRLF CRL
 SSCBUNCHECKED SSCBCHECKED
 MYSTRUKTUR ENUMMER0 ENUMMER1 ENUMMER2 ENUMMER3 ENUMMER4 ENUMMER5 ENUMMER6 ENUMMER7 ENUMMER8 ENUMMER9	 ENUMMER10	 ENUMMER11	 ENUMMER12	 ENUMMER13	 ENUMMER14	 ENUMMER15	 ENUMMER16 LSTUFE START1 SOLANGE BETRAG1 DANACH BETRAG2 OST1 OST2
 STRUKTURLISTE LISTEANFANG	 LISTEENDE STRUKAB
 STRUKJAHRE STRUKBETRAG1 STRUKDANACH STRUKBETRAG2 MYBEMERKUNG BSP FLEXSCROLLBARNONE FLEXSCROLLBARHORIZONTAL FLEXSCROLLBARVERTICAL FLEXSCROLLBARBOTH	 LSTSOZZVK HH_VBL HH_VBL2
 FLEXMERGEFREE FLEXMERGENEVER FLEXMERGERESTRICTROWS MYCALC GECLICKT
 LASTRECORD FILENAME SCROLLEN DIENSTBEZEICHNUNG STARTNUMMER
 ENDENUMMER DATEIANZAHL ZZZ
 SW_SHOWNORMAL VJAHR HSYN NRWAUFSCHLAG SCROLLWERT1 SCROLLWERT2 SCROLLWERT3 DIENSTALTERSSTUFEALT	 DRUCKTEXT DRUCKTEXTZEILE MYFORM1 MYFORM3 MYFORM7	 MYTABLETT MYSV SAVEMODE VBDIRECTORY MYJDA
 RUHESTANDI
 RUHEMONATI	 RUHEMONAT MONATEVORAUS OPTINDEX	 INTDATUM1	 INTDATUM2
 INTEINGABE	 INTZHLER INTBOX INTTAG INTMONAT INTJAHR INTDAT1DIFF INTDAT2DIFF	 RUHESTAND
 GEBURTSTAG BEGINNDATUM GESAMTDATUM J TRUE FALSE HSNEUDURCHRECHNEN HS_J_OLD SSHAND SSARROW FLEXSCROLLBARVERSTICAL FLEXSCROLLBARHORIZANTAL AOK_VERSION GLEITOBERGRENZE HARALD JAHR1 JAHR2 JAHR3 JAHR4 JAHR5 XJAHR1 XJAHR2 XJAHR3 XJAHR4 XJAHR5 X1 X2 X3 X4 X5 X6 X7 X8 X9 X10
 VKAPDFCODE VKAPDFSEITE HSENDANZAHL ZVKZU ZUSATZUMLAGEAB BGRUPPE BSTUFE BOZ BEHE BVOLL BTAGE BKASSE BBEITRAGSATZ BKOST KKKURZ VORSPANN DRATIO SP ZL Y GLEITALT LSCHL LASTSCHL LASTTEXT JAE ATZAUFSTOCKUNG ATZSOLI	 ATZKIRCHE KVPROZ PVPROZ
 BASISDATUM FLIPFLOP HPARENT
 A_PSZHELPFILE UCOMMAND DWDATA TVLNDER BWORKING NR63
 TEXTKORREKTUR TAIL DC TEIZOLD BRUZOLD ATZNETTO Z7 Z8 Z9 JZWINDEX SOLDATO SOLDATI WIZARDJA ERSTERSTART
 INSOLVENZGELD VSPWERT PASSWORT	 EIGDATFIX EIGDAT INDEXM SAAR ZI31FIX ZI4FIX ZI5FIX	 RHEINLAND	 STEUERIND
 AGZUSCHUSS NETTOENTGELT
 ZHLKINDER VORPAUSCHLST
 VORPAUSCHSOLI VORPAUSCHKISTR MYLINK INET	 USERSTART PENSIONSFLOP INTLINK RENTEAB
 BDATEXTALT ZI7ALT ZI9ALT PENSIONSSATZ STARTDIR	 ATVSTUMPF STUNDENSATZOFFEN NOTKURZ SONDERTARIF SEPTEMBERKINDER TASTE0 TASTE1 TASTE2 TASTE3 TASTE4 TASTE5	 TASTEFLOP TASTENUMMER
 ARBEITERSTUFE TVDTRANSFER	 GEBIETIND
 EGRUPPEIND
 VGRUPPEIND ZUSCHLAGIND	 KINDERIND ORTSZUSCHLAGIND	 DIENSTIND STUFEIND AUFSTIEGIND
 HALBIERIND ENDSTUF	 TVDSTART	 ENTGELTGR
 GRUPPEPLUS QUALI ZWANG1 BERLEITUNGSINDEX STRUKTURGELADEN DAUER STRUKTURFLOP AUFSTIEGMONATAB AUFSTIEGJAHRAB AUFSTIEGSSPANNE FENSTEROFFEN TVFARBE
 LOTSEINDEX VKA LSTPFD SEPTEMBERSTUFE OSTANPASSUNG JULI2005 DBB
 STARTSTUFE TVD STEINLFDPLUS STEINEINPLUS SVEINLFDPLUS SVEINEINPLUS ZVKUEINLFDPLUS ZVKUEINEINPLUS ZVKBEINLFDPLUS ZVKBEINEINPLUS
 STSACHLFDPLUS
 STSACHEINPLUS
 SVSACHLFDPLUS
 SVSACHEINPLUS ZVKUSACHLFDPLUS ZVKUSACHEINPLUS ZVKBSACHLFDPLUS ZVKBSACHEINPLUS
 STEINLFDMINUS
 STEINEINMINUS
 SVEINLFDMINUS
 SVEINEINMINUS ZVKUEINLFDMINUS ZVKUEINEINMINUS ZVKBEINLFDMINUS ZVKBEINEINMINUS STSACHLFDMINUS STSACHEINMINUS SVSACHLFDMINUS SVSACHEINMINUS ZVKUSACHLFDMINUS ZVKUSACHEINMINUS ZVKBSACHLFDMINUS ZVKBSACHEINMINUS P15AG P20AG P25AG P15AN P20AN P25AN AGLFD AGEIN	 SCHLSSEL SCHLSSE
 SRVORGABEN GLEICHERSATZ JRE5 JRE6 JRE7 SZTEILER
 WECHSELANFANG WECHSELENDE ORDNER BDAEXTRA PROGRAMMVERSION AUSDRUCK OP1 OP2 OP3 DECIMALFLAG NUMOPS	 LASTINPUT OPFLAG TEMPREADOUT ANPASSUNGSFAKTOR READOUT KVGLEITKRZUNG RVMITGLEITKRZUNG	 SZLAUFEND SZJULI SZDEZ
 SZDEZ_ANH1
 SZDEZ_ANH2 SZMONAT SZJAHR SZI LASTBDATEXT LASTZ LASTZ52 LASTZ38 LASTT LASTLST LASTSOZ LASTZVK LASTWEI LASTTEI LASTBRU FM	 LASTCLICK ZONENBEITRAG
 ANRESTBEITRAG VOLLENTGELT TEILENTGELT HALBERVOLLBEITRAG GANZERKURZBEITRAG VERGLAMODUS VERGLAMONAT
 VERGLAJAHR VERGLBMODUS VERGLBMONAT
 VERGLBJAHR
 VERGLSICHT	 VERGLEICH LEISTUNG APPID HFILE
 GRUPPENANZAHL VORHER NACHHER REGBLATT	 BILDINDEX	 KATEGORIE SATZZAHL	 EINMAL300 STARTNOW ALLESEKUNDEN ZEITSEKUNDEN ZEITMINUTEN ZEITSTUNDEN MYINDEXE EINAUSZ UMLAGE1Z
 UMLAGE1ABZ UMLAGE2Z
 UMLAGE2ABZ NRWZ	 WEIHMONAT
 WEIHKINDER PROZENTE PFEILE	 DATUMDIFF
 KEINSPEICHERN WEIHATZ1 KIZU	 JAHRBREIT
 IMMERFOLGE SACHBEZ USERNR UMGERECHNET	 ZWLFTELB
 TAGE_IM_MONAT TAGE_DES_MONATS
 KINDERGELD KIMIN	 LINKEMAUS
 TEXTSCHUTZ NETZWERK MUSER ATZTEIL
 ATZTEILOLD INDEXI	 TEXTINDEX DRUCKENABLED	 ALTESLAND
 WEIHFAKTOR DASTUFEN	 ANLEITUNG SPIN1 ZTI ZT0 ZT1 ZT2 ZT3 ZT4 ZT5 ZT6 ZT7 ZT8 ZT9 ZT10 ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 ZT20 ZT21 ZT22 ZT23 ZT24 ZT25 ZT26 ZT27 ZT28 ZT29 ZT30 ZT31 ZT32 ZT33 ZT34 ZT35 ZT36 ZT37 ZT38 ZT39 ZT40 ZT41 ZT42 ZT43 ZT44 ZT45 ZT46 ZT47 ZT48 ZT50 ZT51 ZT52 ZT53
 BEAMTENZULAGE DIMLEER ZEILENBEGINN ATZFLOP ALTERSPROZENTA ALTERSPROZENTB SCHLEIFENZHLER ZI18ALT ZIALT	 FARBENRGB RETVAL	 STARTFLAG
 VOMRECHNER WESTOST KNOPF
 STELLDATEI	 SCHALTER1	 SCHALTER2	 SCHALTER3 NR NRALT AUSWAHL STELLESTART	 SPALTEALT REIHE SPALTE ZEILE ZEILEALT TESTZEIT
 PRIVATZEIT	 STARTZEIT	 JETZTZEIT WEIHNACHTSBASIS WEIHNACHTSGEHALT KINDERZUSCHLAG SOLIZUSCHLAG DMNETTO	 DMSTEUERN	 DMSOZVERS AREV
 POPUPHILFE
 UEBERSTUNDENA
 UEBERSTUNDENB
 EINMALIGEZAHL BDANEU NEUESBDA TATSACHE ALTESZ
 DA_MANUELL OSTZULAGE97 OSTZULAGE98
 WEIHBETRAG URLAUBBETRAG GEHALTNETTO	 GEHALTMIT
 GEHALTOHNE	 GEHALTALT	 GEHALTNEU
 ZULAGEANFANGS
 GEHALTMEHR GEHALTMEHR97 GEHALTMEHR98 GEHALTMEHR99 GEHALTMEHR00 BDASTUFEALT BDASTUFENEU
 JETZTMONAT DIENSTMONATE BDATEXT MODUSALT MODUS EFFZAHL RVGRENZEEFFEKTIV KVGRENZEEFFEKTIV KRANKENKASSE
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5 ZUSATZKV ZUSATZPV ZVKSATZ ZVKBEMG
 ZVKUMLZAHL
 ZVKFREIBETRAG	 ZVKUMLAGE ZVKHALB ZVKAG ZVKSTART	 SANIERUNG ZVKAREV AGSTEUER ZVKKISTR
 ZVKKAPITAL ZVKKAPITALAN ZVKUMLAGEFIX ZVKUMLAGEAG ZVKJA ZVKHOCH ZVKSOZ
 ZVKPFLICHT	 ZVKPAUSCH ZVKUMLAGEBAK
 ZVKHALBBAK ZVKAGBAK ZVKSTARTBAK
 ZVKAREVBAK ZVKKISTRBAK SANIERUNGBAK AGSTEUERBAK TZSONDER TEILZEITFAK WEIHNACHTSGELD
 WEIHVZVOLL
 WEIHTZVOLL
 WEIHBZVOLL	 WEIHVZENG	 WEIHTZENG	 WEIHBZENG
 NACHSEPTEMBER WEIHVZ12 WEIHTZ12 WEIHBZ12 WEIHVZQ WEIHTZQ WEIHBZQ WEIHATZ WEIHVZBASIS WEIHTZBASIS WEIHBZBASIS FEHLTAGE WEIHGELB	 WEIHGELBB WELCHESJAHROLD WELCHESJAHRTARIF
 SATZANZAHLOLD MAXDIMENSOLD MSG MSGLEN MSG1 MSG2 MSG3 MSG4 MSG5 MSG6 MSG7 MSG8 MSG9 MSG10 MSG11 MSG12 MSG13 INDEX1 INDEX2 INDEX3 TEILZEITFAKTOR TEILZEITFAKTORZ BRUCHTEILFAKTOR BRUCHTEILFAKTORALT BRUCHTEILFAK
 Z_GECLICKT BRUTTO TEILZEIT	 TEILZEITZ
 LSTPFLICHT
 SOZPFLICHT WEIHPFLICHT
 T_GECLICKT COUNTE ZIFFER EINGABE
 VORZEICHEN
 TABLETTBREITE	 FORM1OBEN
 FORM1LINKS	 FORM1HOCH
 FORM1BREIT
 RESIZEFLAG TRGERANZAHL KOSTENANZAHL
 WORTANFANG WORTENDE	 STARTBUNT LIZENZ VWLLIMIT KEINEFOLGEMONATE ABZUEGE FARBENEINLESENNR REGISTRIERT
 FILENUMMER ABMONAT	 RVBEITRAG	 AVBEITRAG WELCHESJAHR WELCHESJAHRC
 WELCHERMONATA
 WELCHERMONATB
 ZEILENWECHSEL KVGRENZE PVGRENZE RVGRENZE AVGRENZE GERING KVOREIN PVOREIN RVOREIN AVOREIN ZVOREIN MULTIPLIKATORA MULTIPLIKATORB
 TABLETTTOP TABLETTLEFT
 TABLETTHEIGHT TABLETTWIDTH	 KOMMENTAR BDADATA OZTV DIENSTALTERSSTUFE IZUWERT IZU	 COMBOZAHL	 COMBOTEXT GEFUNDEN WEIHJA URLAUBJA ZULAGENINDEX
 NICHTNAMEN SOZVERSPFLICHTIG OSTSOZ ZWISCHENRAUM	 TEXTREIHE IIII
 JAHRWEICHE RXZ1	 ZULAGE2JA BDREI LANG MYINDEX	 AUSGLEICH MYID COUNTER1 NETTOJA NETTO	 NOCHFREI0
 NOCHFREIZ1	 MYVERSION NOCHFREIZ17 DITEXT1 DITEXT2 DITEXT3 DITEXT4 DITEXT5 DITEXT6 DITEXT7 DITEXT8 DITEXT9 DISTEUERNUMMER ARTIKEL BEITRAGWORT
 SCROLLWERT GRUNDBETRAG
 MYPOSITION PFLEGESATZNORMAL PFLEGESATZHALB PFLEGESATZSACHSEN	 COMBOSATZ	 AGAUFWAND
 AGAUFWANDWORT REGISTERLST AMTOBEN AMTLINKS AMTHOCH AMTBREIT JAHROBEN	 JAHRLINKS JAHRHOCH WELJAHR	 CALCLINKS LSTROBEN	 LSTRLINKS IZUWERT1 IZUWERT2 IZUWERT3 MAXIMAL GELADEN	 DIFFERENZ EINMALMIT_BERECHNUNG
 JAHRZEIGEN VONGRID RECHNER REGISTER REGIST FORM1ZEIGEN KOSTENST COUNTER SCHONDA KOSTENSTELLE OHNEEINMALZAHL
 EINMALZAHL SUCHTEXT
 FENSTERTAB FENSTERTAB1 FENSTERTAB2 MITMULTI	 OHNEMULTI XTOP YLEFT
 MONATSTART MONTHNUM SERIAL SUMMEU BRUTTOSVORIG LAENGE ORDINAL
 SATZANZAHLNEU
 SATZANZAHL JAHRESDRUCK	 JAHRESTAB SICH BEDIENST BRUZ CALC ZTEXT RESPONSE	 TARIFEALT TEILZAHL	 BRUCHZAHL WEIZ LSTZ LEIZ SOZZ ZVKZ TEIZ LSTRZ IJ VBLZ SOZVERSZ HINTERGRUND STAAT SOZIAL RESTGELD	 FARBEOBEN
 FARBEUNTEN ZEILE1HILFE JAHRESSPERRE FOLGEMONATE MERKER	 BUNT13ALT	 BUNT14ALT
 NAMENSFILE SICHT SICHTS SUMONATTEXT K COLON SPAL KVDIFF RVDIFF MONATE REIHEN SOVIEL SPALT	 KISTRSATZ STEUERLAST1 STEUERLAST2 STEUER11 LSTR11 SOLI11 KISTR11 STEUER12 LSTR12 SOLI12 KISTR12 A I III MONAT MONATNEU MONATALT WERT WERTOLD WERTEINMAL17 INTERIM	 ATZTRESOR JAHR BETRAG
 STFREINBEHALT
 SVFREINBEHALT STFREIEINMAL P20AGEINBEHALT P20ANEINBEHALT P25AGEINBEHALT P15AGEINBEHALT EINMALVORHANDEN OHNE_Z_CLICK GT GTN OZ OZN BRUTTOSV SPITZE SUMMELFD PFLZ PFL KV RV AV KVD RVD KV1 KVU KVW RV1 RVU RVW G Z20 L M KI KISTR ZI WER NUMBR FLAG FILENEU
 FILENEUALT ZWISCHENSPEICHERWVW ATVAGBIS	 ATVSTEUER ATVSTART ATVAREV	 ATVUMLAGE ATVUMLAGEAN ATVSANIERUNG
 ATVKAPITAL ATVKAPITALAN ATVKISTR ATVCHECK RC BESETZ REIHEALT
 SSTEXTLEFT SSLEFTMIDDLE XINDEXE MINDEX}  r  r r  r  r 21r  q  r  r  r r  r r s  r Qr r r r  r  r  r  r  r r r q r r r r r  r  r r r r r r  r q   r q r r  r  "qqq!!!!!!!!!!!!!!!!s r  r   Qr r  r q q r r r  r  r  r r r r r  r r s r r r q q r q q q  q q q q q r q q q q q q q q q q q q q q q q q q s q #!!!!!!!qqqr q q  QQr q   r qrq!!!!r r  r  q  q  q  !1  Qr  q  q  z  "!!q!!!!s  r  r  r r r q q q q q r q q q q q q  r  s r q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q s q   r q    q q q q     r r r q q q q q      rqqqqqr q q q q q q q q q r q r r 1         q  r   r q q q q 1q q q q q q q q q q q q q q q q q q q q q q q q q q q q q  q q q q q q q q q q q q q q q q q q q q  q q q q  q q q q q q q q q q q q q q q q q q q q q q q q q q q q q r q q q q  q q q q q 1q r  q q q q q r r q r q r q r q r q r q r q r q r q r q r q r q r q r q r q r q s q q q q q r q 2 q q q q q q q q q q q r q q q r q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q  q q q q q q q q q r q q q q q q q 1 1 q q q 11 q q q q q q q q q q q q   q q s q q q q q q q q q q q q                                a                      q q q q q r q q  r q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q  q q  11111q q   q q q q q q q q q q s q q q r q q q q s q q q q q q q r q 1      q q q q q q q q q q q    q q q q q q q q q q q q q q q q q q q q q q q q q q q q    q q  q q q q q q q q q q q r q q q q q q q q q q q q q q q q q q q      q q q q q q q q q q q   q q q q    q q q q t q q q q q q q q q q q q r r  s r q q q q q q q q q q q q q q q  q q q q q q q q q q q q r q q s q q q q q q s q q q q q s q q q r q q q q q r r q q q q q q q q q q q q q q q q q    r  q           q  q q q q q q q q q q t q q 11 r   q q q q q  q q q q q q q q q q q q q q q r q q   q     q q q q q q q q r q q q q q q q q q q q q q q q q q q q q r q q q q q   q q q q q r          1q q 2q r q                                     Q            11     Q   QQ              Q                                                                                                                                  QQQ                                      QQQQQQ                                      Q                                                                                                                                                          QQQQQ      QQQ Q QQ  QQ     SQQQ QQQ  QQQQQQQ QQQQQQ QQQ                                           QQQQ                          QQQQQQQ                                 S                         QQQQ   SQQQ                                            QQQ                       Q           Q                    QQ                                     1       Q            2                    %   v     ؜   x #T[    U  
 T     T  116
 H*    ;   ^  T  Index   
 T  T  Index C 
 T 
 H  C  
 H  C   T  A2 C ' T  A3 C K T  A4 C o T  A5 C  T  A6 C  T  A5 C  T  A6 C  T  A7 C # T  A8 C 	G T  A9 C 
l T  A10 C  T  A9 C  T  A10 C 
 T  A11 C  T  A12 C $ T  A13 C I T  A13 C n T  A13 C  T  A14 C  T  A15 C  T  A16  C $ T  BCCC 
 Z C S$ T  CCCC 
 Z C $ T  WCCC 
 Z C $ T  RCCC 
 Z C   T  59-Anwaerterbezuege  C T
 H P C  N T  27-Bemessung C " T  BesoldungsordnungenAG C  T  BesoldungsordnungW C  T  BesoldungsordnungW C  T  38-Bemessung C P  T  59-Anwaerterbezuege  C  T 	 40-Stufen  	
 T  T  27  
 T  1-Geltungsbereich  - T 3 T & Bundesleistungsbesoldungsverordnung.de C 
 T  128
 Hb C   { C  
 T t T  44-Lehrkraefte C   T  2 C  
 T  4 C  2 T  4a CC  ] T  5- C   C  	 T  5a- C   C  	 T  6 C   T  6a- C   C  (	7	 T  7- C  ) C  +	r	 T  8- C  , C  2		 T  8a- C  3 C  8		 T  8b CC  9:
 T  9- C  ; C  ?	Q
 T  9a CC  @A}
 T  10 C  B
 T  11 C  C
 T  12 C  D
 T  13a- C  E C  J	3 T  13c- C  K C  Q	p T  13d C  R T  19 C  S T  21 C  T T  25 CC  UV T  26- C  W C  Y	P T  30  CC  Z[\ T  A2
 H C   T  A2 C  T  A3 C  T  A4  C  ]$
 T  A3 CC  ^_
 T  A4
 H]

 C 
 T  A4 CC 
 T  A5  C  `B T  A5
 H
>% C  C 	 T  A5 CC > T  A6  C  aj T  A7 C  b T  A8 C  c T  A9 C  d T  A12 C  e T  A13 C  f T  A13
 HB CC n T  A13 C  T  A14 C  T  A15  C  g T  A13 C  h T  B10 C  i7 T  RV4 C  j T  R1
 Hl C   T  R1 C  T  R2 C  T  R3  C  k T  R8   K
 T t% T  48-Mehrarbeitsverguetung  % T  48-Mehrarbeitsverguetung   T  51-andere-Zulagen   T  51-andere-Zulagen   T  51-andere-Zulagen  D% T  3-Anspruch-auf-Besoldung  z% T  6-Teilzeitbeschaeftigung   %C 
 T 
 9-Fernbleiben  T ,1 T $ Altersteilzeitzuschlagsverordnung.de   "
 H#% C#   C# 	d
 T  T  72 CC# 	 T ,1 T $ Altersteilzeitzuschlagsverordnung.de     U  MSG1 INET MYINDEXE MSG ZI INSINTERNET:
 T  
 T  119 T CC  Z
 HA "   n  Do Beamte&xxwelchesjahr 
     Do Beamte&xxwelchesjahr 
     Do Beamte&xxwelchesjahr 
     Do Beamte&xxwelchesjahr 
   " Do Beamte&xxwelchesjahr 
  T	 
 	  U  INDEXI INET
 XXWELCHESJAHR WELCHESJAHR JAHR1 JAHR2 JAHR3 JAHR4 JAHR5 MSG MSG3[
 T  
 H T C  >  T  A2 C b  T  A3 C   T  A4 CC   T  A5 CC   T  A6 C   T  A7 C  T  A8 CC 	F T  A9 CC 
o T  A10 C 
 T  A11 C  T  A12 CC  T  A13 C 
 T  A14 C / T  A15 C T T  A16  U  INET ZI MSG
 T  
 H  C  >  T  B1 C b  T  B2 C   T  B3 C   T  B4 C   T  B5 C   T  B6 C  T  B7 C : T  B8 C ^ T  B9 C 	 T  B10 C 
 T  B11  U  INET ZI MSG
 T  
 H  C  >  T  R1 C b  T  R2 C   T  R3 C   T  R4 C   T  R5 C   T  R6 C  T  R7 C : T  R8 C ^ T  R9 C 	 T  R10  U  INET ZI MSG 
 T  
 H   C  >  T  W1 C b  T  W2 C   T  W3  U  INET ZI MSG  %C   
 T   T  000l T _ verwaltungsportal.hessen.de/themen/information/tarifvertr%C3%A4ge-allgemeine-verwaltung-entgelt  U  ZI MYLINK INET MSG., tail = "&psml=bsbawueprod.psml&max=true"

 T     T  063
 HV     g    
 T      T 	 %C2%A7+41   
 H  C    T  Anlage+1  C * T  Anlage+2  C o0 T  3.+Landesbesoldungsordnung+C+kw  C  T  Anlage+4  C  T  Anlage+3  C  T 	 %C2%A7+79   C E
 H A C    T   Besoldungsgruppe+A+
 Hb C  T    5  C  T    6  C  T    7  C  T    8  C 	9 T    9  C 
e T    10  C  T    9  C  T    10  C 
 T    11  C  T    12  CC G T    13  C s T    14  C  T    15  C  T    16   C : T  Besoldungsgruppe+B+CCC 
 Z  C tA T  Besoldungsgruppe+C+CCC 
 Z +kw  C : T  Besoldungsgruppe+W+CCC 
 Z  C : T  Besoldungsgruppe+R+CCC 
 Z  C A T 	 %C2%A7+79   C 
 Hg C   T 	 %C2%A7+31  C  T 	 %C2%A7+28  C 
0 T  3.+Landesbesoldungsordnung+C+kw  C 9 T 	 %C2%A7+37  C h T 	 %C2%A7+35  C  T 	 %C2%A7+79     T 	 %C2%A7+41   	 T 	 %C2%A7+46   
 T 	 %C2%A7+85   D

 H:
 C  	
 H\S C   C 
	 C  C  C 	 T 	 %C2%A7+76  CC  T 	 %C2%A7+23   CC 9	 T 	 %C2%A7+76  C 	 %C  }	 T 	 %C2%A7+23  	 T 	 %C2%A7+38   C 
 %C  	 T 	 %C2%A7+23  	
 T 	 %C2%A7+76    %C @
 T 	 %C2%A7+23   C 

 Hi
- C   C  	
 T 	 %C2%A7+48 - C   C  	
 T 	 %C2%A7+49  CC  . T 	 %C2%A7+50  C  a T 	 %C2%A7+51  CC  	 T 	 %C2%A7+52  CC  
 T 	 %C2%A7+53 - C   C  	 T 	 %C2%A7+54 - C   C  	] T 	 %C2%A7+56 - C   C  #	 T 	 %C2%A7+57  C  $ T 	 %C2%A7+44  CC  %&
 T 	 %C2%A7+45 - C  & C  5	U
 T 	 %C2%A7+55  CC  67
 T    11  CC  89
 T    12 - C  : C  >	 T    13  CC  ?@5 T    14 - C  A C  G	y T    15 - C  H C  J	 T    5  C  K T    6  C  L T    8 - C  M C  P	] T    9 - C  M C  P	 T    9 - C  M C  P	 T    9 - C  M C  P	& T    9  C  QV T    10  CC  RS T    13  C  T T    15 - C  U C  Y	 T 	 %C2%A7+58  CC  Z[C% T  Besoldungsgruppe+R+1  CC  \]% T  Besoldungsgruppe+R+2  C  ^% T  Besoldungsgruppe+R+3  CC  _` T 	 %C2%A7+62  C  b;( T  Besoldungsgruppe+A+5+kw  C  c|( T  Besoldungsgruppe+A+9+kw  C  d) T  Besoldungsgruppe+A+13+kw  CC  ef) T  Besoldungsgruppe+A+14+kw - C  g C  j	Z) T  Besoldungsgruppe+A+15+kw  C  k( T  Besoldungsgruppe+B+3+kw     T 	 Anlage+15    T 	 %C2%A7+63     T 	 %C2%A7+71   K T 	 %C2%A7+76   v T 	 %C2%A7+76    T  %C2%A7+5    T  %C2%A7+8    T 	 %C2%A7+11   "  T 	 %C2%A7+69     U  MSG1 INET MYINDEXE MSG TAIL ZI INSINTERNET* tail = "&psml=bssahprod.psml&max=true"

 T     T  063
 HT    e    
 T      T 	 %C2%A7+38   
 H  C    T  Anlage+1  C ( T  Anlage+1  CC e$ T  Besoldungsordnung+W  C  T  Anlage+3  C  T 	 %C2%A7+51   C 8
 H4 C  !$ T   Besoldungsordnung+A  C Z$ T  Besoldungsordnung+B  C $ T  Besoldungsordnung+W  C $ T  Besoldungsordnung+W  C $ T  Besoldungsordnung+R  C 4 T 	 %C2%A7+51   C 
 HZ C   T 	 %C2%A7+23  C  T 	 %C2%A7+19  C 0 T  3.+Landesbesoldungsordnung+C+kw  C , T 	 %C2%A7+27  C [ T 	 %C2%A7+36  C  T 	 %C2%A7+51     T 	 %C2%A7+38   	 T 	 %C2%A7+40   
 T 	 %C2%A7+57   I
 H-E C  \ T 	 %C2%A7+43  CC  T 	 %C2%A7+43  C  %C   T 	 %C2%A7+28   T 	 %C2%A7+29   C E T 	 %C2%A7+37  T 	 %C2%A7+76   C 
{ T 	 %C2%A7+40    T 	 %C2%A7+45    T 	 %C2%A7+44    T 	 %C2%A7+43   ' T 	 %C2%A7+56   R T 	 %C2%A7+56   } T 	 %C2%A7+17    T  %C2%A7+6    T  %C2%A7+9     U  MSG1 INET MYINDEXE MSG TAIL ZI INSINTERNETl T   063
 H     .   ]  T  IVZ T  1    T  Art35 T  13    T  Anlage1 T  3m C 

 H 
 C  
 H C  D T  Anlage1a-G21 T  3o C  T  Anlage1a-G21 T  3o C  T  Anlage1a-G22 T  3p C  T  Anlage1a-G23 T  3q C 8 T  Anlage1a-G24 T  3r C u T  Anlage1a-G23 T  3q C  T  Anlage1a-G24 T  3r C  T  Anlage1a-G25 T  3s C , T  Anlage1a-G26 T  3t C 	i T  Anlage1a-G27 T  3u C 
 T  Anlage1a-G28 T  3v C  T  Anlage1a-G27 T  3u C   T  Anlage1a-G28 T  3v C 
] T  Anlage1a-G29 T  3w C  T  Anlage1a-G30 T  3x C  T  Anlage1a-G31 T  3y C  T  Anlage1a-G31 T  3y C Q T  Anlage1a-G31 T  3y C  T  Anlage1a-G32 T  3z C  T  Anlage1a-G33 T  40 C  T  Anlage1a-G34 T  41  C 
 H. C  k T  Anlage1b-G35 T  43 C  T  Anlage1b-G35 T  43 C  T  Anlage1b-G36 T  44 C " T  Anlage1b-G37 T  45 C _ T  Anlage1b-G38 T  46 C  T  Anlage1b-G39 T  47 C  T  Anlage1b-G40 T  48 C  T  Anlage1b-G41 T  49 C S T  Anlage1b-G42 T  4a C 	 T  Anlage1b-G43 T  4b C 	 T  Anlage1b-G44 T  4c  C 	
 H	 C  0	 T  Anlage1e-G79 T  5e C m	 T  Anlage1e-G80 T  5f C 	 T  Anlage1e-G81 T  5g C 	 T  Anlage1e-G82 T  5h  C 

 H

 C  J
 T  Anlage1c-G45 T  4e C 
 T  Anlage1c-G46 T  4f C 
 T  Anlage1c-G47 T  4g  C 

 H

 C  ' T  Anlage1b-G48 T  4i C d T  Anlage1b-G49 T  4j C  T  Anlage1b-G50 T  4k C  T  Anlage1b-G51 T  4l C  T  Anlage1b-G52 T  4m C X T  Anlage1b-G53 T  4n C  T  Anlage1b-G54 T  4o C  T  Anlage1b-G55 T  4p C 
 T  Anlage1b-G56 T  4q   C k
 H9
g C  n
 T  Art30 T  y C 
 T  Art22 T  q C 

 T    C 
 T  Art42 T  1b C 1 T  Art47 T  1h C g T  Art75 T  2i    T  Art36 T  14  	 T  Art33 T  11  
 T  Art89 T  2y  
 H CC  Y T  Art66 T  27 CC  T  70 T  2c C 
 T     C 

 H% C   C 	! T  Art51 T  1o CC [ T  Art57 T  1u C  T  Art56 T  1t    T  Art61 T  20   T  Art55 T  1s  + T  Art82 T  2q  ] T  Art82 T  2q   T  Art91 T  31   T  Art18 T  k   T  Art6 T  8    T  Art9 T  b > Msg = msg1 + "&showdoccase=1&doc.id=jlr-BesGBY2010p" + Msg
   U  INET MYINDEXE MSG MSG1 ZI INSINTERNET+ tail = "&psml=bsthueprod.psml&max=true"
  T   Besoldungsgruppe+A+ T  063
 Hh    y    
 T      T 	 %C2%A7+38  C  
 H  CC  && T  TH+II.+Stellenzulagen  C k0 T  3.+Landesbesoldungsordnung+C+kw  C  T  TH+Anlage+2  C  T  TH+Anlage+3  C  T 	 %C2%A7+50   C 3
 H"/ C  Q T 	 %C2%A7+24  C  T 	 %C2%A7+18  C 
 T    C  T 	 %C2%A7+26  C   T 	 %C2%A7+36  C / T 	 %C2%A7+50    ^ T 	 %C2%A7+38   	 T 	 %C2%A7+40   
 T 	 %C2%A7+56   
 H C   T 	 %C2%A7+47  CC 7 T 	 %C2%A7+47  C f T 	 %C2%A7+28  C  T 	 %C2%A7+47   C 

 H- C    C  	& T  TH+II.+Stellenzulagen - C   C  #	X T 	 %C2%A7+40 - C  $ C  5	 T 	 %C2%A7+40 - C  6 C  G	& T  TH+II.+Stellenzulagen - C  H C  Y	E& T  TH+II.+Stellenzulagen - C  Z C  k	& T  TH+II.+Stellenzulagen     T 	 %C2%A7+44    T 	 %C2%A7+43    T 	 %C2%A7+42   H T 	 %C2%A7+48   s T 	 %C2%A7+48    T  %C2%A7+3    T  %C2%A7+6    T  %C2%A7+8     U  MSG1 INET MYINDEXE MSG TAIL ZI INSINTERNETb %C  
4 %C  &
 H7 " C   ^  T  A0808 C    T  B0808 C    T  C0808 C    T  W0808 C    T  R0808 C  " T  An0808  0
 H;, C   c T  A0808W C   T  B0808W C   T  C0808W C   T  W0808W C   T  R0808W C  , T  An0808W   [ %C  M
 H^I C    T  A0309 C   T  B0309 C   T  C0309 C   T  W0309 C  ! T  R0309 C  I T  An0309  W
 HbS C    T  A0309W C   T  B0309W C   T  C0309W C   T  W0309W C  * T  R0309W C  S T  An0309W    U  ZI LEIZ MSG 4   T CC  g8
 H%  C   + %    
	 C 
	p    B / % " C 
	 C# 	    B  C "
 H ?     	    	  "   B  C 
 HD?     	    	  "   B  C  C 
 H?     	    	  "   B  C 
 H9?     	    	  "   B  
 T   
 T	   
 T
  
 H    %  C; Fr das Jahresgehalt stehen nur die Tabellen zur Verfgung,C
 E die unterhalb der Zeile mit AG-Sicht bzw. AN-Sicht aufgerufen werden. ' Export der Tabelle fr das Jahresgehaltx B 
 T   Export B  x
 T z
 Ht4 C   C  C 	$ %C  C t
 T t T  27-Bemessung 
 T  T  Index  C 
 T  C 
 T  C 

 T  T  A16_Bund CC P
 T  T  A17 C  T  131 T  V16 C 
 T  131 T  P16 C  T  131 T  P12_2 C 
 H% C   C 	^
 T  T  TV-Aerzte-16% C  C 	
 T  T  K_MB% C  C 	
 T  T  B41-11% C  C 	(
 T  T  A16% C  C 	l
 T  T  K12_1 C 
 T  T  P12_1  C 
 T  T  A16 C 
 T  T  TVKBv032014 C N	 T  187
 HBJ	 C   C 	 C  C  C  C 
 C  C  T  PKWTabelle-West C 
	 T 
 PKWTabelle-HH" CC 
J	 T  PKWTabelle-Ost  C 

 Hp	
 C  	 T  131 T 	 TVABBiG-8 C 	
 T  T  TVA-BBiG/TVA-LB8 C %
 T  131 T 	 TVABBiG-8 C ^
 T  131 T  TVAPf_8 C 

 T  T  TVA-Pflege/TVA-LP8  C  %C 



 T  T  TVP8 
 T  T  TV-P-L8  C J T  149
 T  C _ C t   _
 H[D C   C 	 C  C 	  T  014 T 	 index.htm C [
 T t T  Index' T  P/Postnachfolgeunternehmen   
 H}% C   C 	
 T t T 	 40-Stufen C 
 T  131 T  A17 CC 0

 T  T  A17 C e
 T  131 T  V17 C 

 T  131 T  P17 C 
 T  131 T  P17 C 
 C  T  131 T  A17 C Y
 T  T  TVUe-L/Titelblatt C n C 
 T  T  TVUe-L/Titelblatt C  C  C 
 T  149
 T + C  C 4% C  C 	v T  134
 T , CC !" T  150
 T - C # T  150
 T . C    
 H C  
 T  T  IndexA %C  T  063 T  43768.de  C 
 T  T  IndexB C 
 T  T  IndexC C '
 T  T  IndexW C \
 T  T  IndexR C 
 T  T  Index C 
 T  131 T  A1 C ,
 T  T  A1 %C ( T  000 T   C ]
 T  T  V0 C 

 T  T  P0 C  T  131 T  P12_2 C g
 HV% C   C 	1
 T  T  TV-Aerzte-0% C  C 	V% C  C 	
 T  T  B41-1% C  C 	
 T  T  B42-1% C  C 	"
 T  T  K12_1 C V
 T  T  P12_1 
 T < C  T  131 T  K0 C  T  192 T  B43-1 C  T  131 T  TVKBInh C E T  187 T  PKWTitel C 
 Hg C   T  131 T  TVABBiGZ C 
 T  T  TVA-LB0 C  T  131 T  TVABBiGZ C J T  131 T  TVAPf_Z C 
 T  T  TVA-LP0  C  %C 


 T  T  TVPZ 
 T  T  TV-P-L0  C + T  149
 T B C @ C U C j C  T  152
 T C C     
 H  C     C    C R T h$ T  Landesbesoldungsordnung C n   C    C  T  000
 T N C 

 T  T  A12_Bund C E
 T  T  A12 %C A    C w
 T  T  V12 C 

 T  T  P12 C    C [
 HW% C   C 	2
 T  T  TV-Aerzte-12% C  C 	W% C  C 	
 T  T  B41-7% C  C 	
 T  T  B42-1% C  C 	#
 T  T  K12_1 C W
 T  T  P12_1  C 
 T  T  K12 C 
 T  T 
 4-01-01-15 C  T  131 T  TVKB5 C 0
 T  T  PKW5 C o
 HRk C   T  131 T  TVABBiGZ C 
 T  T  TVA-LB8 C  T  131 T  TVABBiGZ C 5 T  131 T  TVAPf_Z C k
 T  T  TVA-LP8  C  %C 


 T  T  TVPZ 
 T  T  TV-P-L8  C Y  T  149 T  Entgeltgruppe-
 H1D  C  U T  15 C y T  14 C  T  13 C  T  12 C  T  11 C 	 T  10 C , T  9 C O T  8 C r T  7 C 	 T  6 C 
 T  5 C  T  4 C  T  3 C 
!  T  2 C D  T  1  T    C n  C     *
 H *% C   C 	O!
 H K! C      C !   CC /!   C K!    C 
! %C  `  !
 T  T 
 1-00-00-15 !
 T   T C    -15  C n"
 T  %C   >
+" T C   
 J" T 
 1-00-00-15  %C j"    C "
 T  T  V12 C 
"
 T  T  P12 C "   C $
 H#$% C   C 	[#
 T  T  TV-Aerzte-12% C  C 	#% C  C 	#
 T  T  B41-7% C  C 	$
 T  T  B42-1% C  C 	L$
 T  T  K12_1 C $
 T  T  P12_1  C $
 T  T  K0 C % % Z%
 T  
 T   %C   \ (7%! T C   \ 15 V% T 
 4-01-01-15  % T  132
 T ]  C % T  131 T  TVKB5 C %
 T  T  PKW5 C ,'
 H&(' C  I& T  131 T  TVABBiGZ C &
 T  T  TVA-LB8 C & T  131 T  TVABBiGZ C & T  131 T  TVAPf_Z C ('
 T  T  TVA-LP8  C ' %C 

t'
 T  T  TVPZ '
 T  T  TV-P-L8  C * T  149 T  Entgeltgruppe-
 H'* C  ( T  15 C 6( T  14 C Z( T  13 C ~( T  12 C ( T  11 C ( T  10 C ( T  9 C ) T  8 C /) T  7 C 	R) T  6 C 
u) T  5 C ) T  4 C ) T  3 C 
) T  2 C * T  1  T    C +* C * %C *
 T n' T  B/Bundesfreiwilligendienst    x1
 H*t14 C   C  C 	+
 T t
 H*+D C   C 	 C  C 	^+ T  27-Bemessung-alt CC + T  27-Bemessung  C + T  122
 T e C + T  121
 T f C 
2, T  131 T  A16_Bund CC ,
 T  T  A16 %C ,    C , T  131 T  V16 C 
, T  131 T  P16 C )- T  131 T  P12_2 C .
 HK-.% C   C 	-
 T  T  TV-Aerzte-16% C  C 	-
 T  T  B41% C  C 	.
 T  T  B42% C  C 	^.
 T  T  K12_1 C .
 T  T  P12_1  C .
 T  T  K15 C .
 T  T  A16 C 1/ T  131 T  TVKB4 C d/
 T  T  PKW5 C 0
 H/0 C  / T  131 T  TVABBiG8 C /
 T  T  TVA-LB8 C 00 T  131 T  TVABBiG8 C i0 T  131 T  TVAPf_8 C 0
 T  T  TVA-LP8  C 1 %C 

0
 T  T  TVP8 1
 T  T  TV-P-L8  C J1 T  149
 T s C _1 C t1   4
 H14% C   C 	1 T  116 T 	 40-Stufen C 
2
 T  T  Tue11 CC r2
 T  T  TVUe-11 %C n2   4 C  C 
 C 	2 T  055
 T  C 
2 T  055
 T  C 
3 C 3 C 43 C I3 C |3
 T  T  Tue6 C 3 C 3 C 3 C 3 C 3 C 3% C  C 	94
 T 
 T % C ! C #	x4
 T 
 T  C  4   	7
 H47% C   C 		5 T 6' T  A/Allgemeine-Stellenzulage C 
<5
 T  T  Tue6 CC 6
 T  T  TVUe-6 %C 6
 T   T  000l T _ verwaltungsportal.hessen.de/themen/information/tarifvertr%C3%A4ge-allgemeine-verwaltung-entgelt  CC 
P6 T  055
 T  C 6 T  010; T . Sozial-und-Erziehungsdienst/TVUE-VKA-3.htm#(4) C 6
 T    C 6
 T    C 7
 T    C 87
 T    C Z7
 T    C |7
 T    C 7
 T    C 7
 T      
=
 H7=% C   C 	,8 T h T 
 VWL-Gesetz C 
a8 T  131 T  A23 CC 8
 T  T  A23 %C 8    C 8 T  131 T  V23 C 
$9 T  131 T  P23 C Y9 T  131 T  P23 C :
 H{9:% C   C 	9
 T  T  TV-Aerzte-23% C  C 	9% C  C 	-:
 T  T  A23% C  C 	o:
 T  T  A23% C  C 	:
 T  T  K23 C :
 T  T  P23  C ;
 T  T  K23 C K;
 T  T  A23 C ; T  131 T  A23 C <
 H;< C  ; T  131 T  TVA13 C <
 T  T  TVA-LB15 C G< T  131 T  TVA13 C ~< T  131 T  TVA13 C <
 T  T  TVA-LP15  C 0= %C 

=
 T  T  TVP13 ,=
 T  T  TV-P-L13  C b= T  149
 T  C =
 T   % C  C 	= T  060 T S   E
 H=E% C   C 	G> T  000) T  Leistungsstufenverordnung.de C 
> T  131 T  A18_Bund %C > T  A17  CC ? %C >   ?
 H>? C 
)?
 T  T  A18 C [?
 T  T  A17 C ?
 T  T  A18   C ? T  131 T  V18 %C ? T  A17  C 
Q@ T  131 T  P18 %C M@ T  K17  C @ T  131 T  P18 %C @ T  P17  C oB
 H@kB% C   C 	A
 T  T  TV-Aerzte-18% C  C 	AA% C  C 	A T  131 T  A18_VKA %C A T  A17 % C  C 	A
 T  T  B41-1% C  C 	9B
 T  T  K18 C kB
 T  T  P18  C B T  131 T  K18 %C B T  K17  C +C T  181 T  A18 %C 'C T  A17  C C T  131 T  A18_Bund %C C T  A17  C C T  181 T  A18 %C C T  A17  C !E
 HDE C  DD T  131 T  TVAZ C zD
 T  T  TVA-LB0 C D T  131 T  TVAZ C D T  131 T  TVA13 C E
 T  T  TVA-LP0  C E %C 

iE
 T  T  TVPZ E
 T  T  TV-P-L0  C E T  149
 T  C E     	L
 HFL% C   C 	RF
 T w T  Z   C 
;H T  131% T  Entgeltordnung-Bund/tveo
 HF7H- C    C  	F T   17 CC  
G T   15 C  EG T   16 CC  qG T  A8- C   C  	G T   18 C  G T 
 4-25-00-15 C  H T 
 4-26-00-15 C  7H
 T     CC H
 T $ T  F/Entgeltgruppenzulagen C H
 T  T  V8 C 
H
 T  T  P8 C I
 T  T  P8 C J
 H=IJ% C   C 	I
 T  T  TV-Aerzte-8% C  C 	I% C  C 	J T  131 T  A18_VKA %C J T  A17 % C  C 	bJ
 T  T  B41-1% C  C 	J
 T  T  K12_1 C J
 T  T  P12_1  C <K T  131 T  K18 %C 8K T  K17  C K T  181 T  A18 %C K T  A17  C K
 T    C K
 T    C L
 T  T   C ]R
 H4LYR% C   C 	L T  000/ T " Mehrarbeitsvergtungsverordnung.de C 
L T  131 T  A8 CC $M
 T  T  A8 %C  M    C XM T  131 T  V8 C 
M T  131 T  P8 C M T  131 T  P8 C O
 HMO% C   C 	,N
 T  T  TV-Aerzte-9% C  C 	QN% C  C 	N
 T  T  B41-5% C  C 	N
 T  T  B42-6% C  C 	HO
 T  % +O T  K8 DO T  K8_1  C O
 T  % O T  P8 O T  P8_1   C O
 T  T  K8_1 C P
 T  T  A8 C FP T  131 T  TVKB5 C {Q
 HhPwQ C  P T  131 T  TVAZ C P
 T  T  TVA-LB0 C 
Q T  131 T  TVAZ C AQ T  131 T  TVA13 C wQ
 T  T  TVA-LP0  C Q %C 

Q
 T  T  TVPZ Q
 T  T  TV-P-L0  C "R T  149
 T  C 7R C YR
 T      BX
 H{R>X% C   C 	R    B C 
R T  131 T  A23 CC 9S
 T  T  A26 %C 5S    C nS T  131 T  V23 C 
S
 T  T  P23 C S
 T  T  P23 C cU
 HS_U% C   C 	>T
 T  T  TV-Aerzte-0% C  C 	cT% C  C 	T
 T  T  B41-1% C  C 	T
 T  T  B42-1% C  C 	-U
 T  T  K23 C _U
 T  T  P23  C U
 T  T  K23 C U
 T  T  A26 C U T  131 T  A23 C .V
 T  T  A26 C cW
 HPV_W C  V T  131 T  TVAZ C V
 T  T  TVA-LB0 C V T  131 T  TVAZ C )W T  131 T  TVA13 C _W
 T  T  TVA-LP0  C W %C 

W
 T  T  TVPZ W
 T  T  TV-P-L0  C W
 T    C X
 T    C >X
 T      ^ T! C 
 HqX^% C   C 	X    B CC 	X
 T  T  3/C-II CC 
Y
 T  T  A20 CC iY
 T  T  A20 %C eY    C Y
 T  T  V20 C 
Y
 T  T  P20 C Y
 T  T  P20 C [
 H!Z[% C   C 	lZ
 T  T  TV-Aerzte-20% C  C 	Z% C  C 	Z
 T  T  B41-1% C  C 	[
 T  T  B42-1% C  C 	[[
 T  T  K20 C [
 T  T  P20  C [
 T  T  K20 C [
 T  T  B43-1 C )\
 T  T  A20 C [\
 T  T  A20 C ]
 H}\] C  \ T  131 T  TVBBiG14 C \
 T  T  TVA-LB16 C )] T  131 T 	 TVABBiG14 C c] T  131 T  TVAPf_14 C ]
 T  T  TVA-LP16  C ^ %C 

]
 T  T  TVP14 ^
 T  T  TV-P-L14  C D^
 T 
 T  C f^
 T    C ^
 T      ud
 H^qd C 
'_ %C _ T  310* T  Tarifvertrag/LeistungsTV-Bund #_
 T     C 
^_
 T  T  A18_Bund C _
 T  T  A18 %C _    C _
 T  T  V18 C 
`
 T  T  P18 C F`
 T  T  P18 C a
 Hh`a% C   C 	`
 T  T  TV-Aerzte-23% C  C 	`% C  C 	a
 T  T  B41-1% C  C 	`a
 T  T  B42-1% C  C 	a
 T  T  K18 C a
 T  T  P18  C 
b
 T  T  K18 C <b
 T  T  A18 C sb
 T  T  A18_Bund C b
 T  T  A22 C c
 Hbc C  b T  131 T  TVAZ C 3c
 T  T  TVA-LB0 C ic T  131 T  TVAZ C c T  131 T  TVA13 C c
 T  T  TVA-LP0  C Od %C 

"d
 T  T  TVPZ Kd
 T  T  TV-P-L0  C qd
 T      ^j
 HdZj% C   C 	d T  116% T  3-Anspruch-auf-Besoldung C 
"e T  131 T  A24 C Te
 T  T  A24 C e T  131 T  V24 C 
e T  131 T  P24 C e T  131 T  P24 C g
 Hfg% C   C 	`f
 T  T  TV-Aerzte-24% C  C 	f% C  C 	f
 T  T  B41-1% C  C 	
g
 T  T  B42-1% C  C 	Og
 T  T  K24 C g
 T  T  P24  C g T  131 T  K24 C g
 T  T  A24 C !h T  131 T  A24 C Sh
 T  T  A24 C i
 Huhi C  h T  131 T  TVBBiG8 C h
 T  T  TVA-LB8 C i T  131 T  TVABBiG8 C Wi T  131 T  TVAPf_8 C i
 T  T  TVA-LP8  C j %C 

i
 T  T  TVP8 j
 T  T  TV-PL8  C 8j T  149 T  C Zj
 T      p
 H|jp% C   C 	.k
 Hj*k% C   C 	k T  116% T  6-Teilzeitbeschaeftigung C *k
 T     C 
ck T  131 T  A11 C k
 T  T  A11 C k T  131 T  V11 C 
k T  131 T  P11 C 4l T  131 T  P11 C m
 HVlm% C   C 	l
 T  T  TV-Aerzte-11% C  C 	l% C  C 	
m
 T  T  B41-1% C  C 	Nm
 T  T  B42-1% C  C 	m
 T  T  K11 C m
 T  T  P11  C m T  131 T  K11 C -n
 T  T  A11 C bn T  131 T  A24 C n
 T  T  A11 C o
 Hno C  n T  131 T  TVBBiG7 C %o
 T  T  TVA-LB7 C _o T  131 T  TVABBiG7 C o T  131 T  TVAPf_7 C o
 T  T  TVA-LP7  C Gp %C 

p
 T  T  TVP7 Cp
 T  T  TV-P-L7  C ip
 T    C p T  149 T    .x
 Hp*x CC  v
 Hpv% C   C 	q
 Hqq C +q% C   C 	q T  116% T  3-Anspruch-auf-Besoldung  C 
q T  131 T  A22 CC q
 T  T  A22 C ,r T  131 T  V22 C 
ar T  131 T  P22 C 
r T  131 T  P22 C (t
 Hr$t% C   C 	s
 T  T  TV-Aerzte-22% C  C 	(s% C  C 	ls
 T  T  B41-1% C  C 	s
 T  T  B42-1% C  C 	s
 T  T  K11 C $t
 T  T  P11  C ]t T  131 T  K22 C rt C t T  131 T  A24 C t
 T  T  A11 C v
 Htv C  4u T  131 T  TVBBiG7 C ju
 T  T  TVA-LB7 C u T  131 T  TVABBiG7 C u T  131 T  TVAPf_7 C v
 T  T  TVA-LP7  C v %C 

_v
 T  T  TVP7 v
 T  T  TV-P-L7   CC w
 Hvw% C   C 	)w T  0001 T $ Altersteilzeitzuschlagsverordnung.de
 T"    CC gw T  191 T  ATV-T% C 
 C 	w T  146 T )  C w
 T  T  TV-FlexAZ/Index C *x
 T  T  TV-FALTER/Index   x %C 
tx T  194 T  39a x T  096 T  19.htm#R19.8  C /1{
 T 
 Hx-{ C   y T  111 T  20211 C  Sy T  095 T 
 4.htm#4.10 C  y T  096 T  3.htm#R3.59 C  y T  099 T  #_2 C  z T  096 T  39b.htm#R39b.2 C  Pz T  093 T  3.htm#62- C   C  	z T  199 T  Index- C  
 C  	z T  096 T  3.htm#R3.26 C  -{ T  194 T  39a   |
 HO{|% C   C 	{
 T   Z T M portal.versorgungskammer.de/portal/page/portal/aka/beamte/ueberblick-bv_0.pdf CC 	|
 T  T 7% C 
 C 	O|
 T    T 8 C | T  000 T 9   |
 T   1 T $ de.wikipedia.org/wiki/Kostenrechnung T =  }
 T    T >  K} T  096 T  39b.htm#R39b.7  |} T  194 T  42b  } T  093( T  Einkunftsarten/24.htm#_24a   }
 T     !O~ %C #~
 T   
 T    K~ T  194 T  38b   "
 Hm~% C#   C# 	~
 T  T  72% C#  C# 
	
 H~% C   C 	D T 1 T $ Altersteilzeitzuschlagsverordnung.de C Y C 	n C 	 T  146 T G    # T  110
 T"   $ T  S/Solidaritaetszuschlag  $= T # T  Kirchensteuergesetz.de  %l T  P00 T I  & T  T K  '߀ T  160% T  Beitragssatzgesetz/Index  ( T  280 T M   T 
 H: CC  n T  sgb_5/__249 C  T O   )
 H% C   C 	
 T    CC 	
 T  T P C 
 C 	 C  C  C  C  C " C #
 T  T Q C  C 	 C  C  C  C 	 C  C !	 C % C %m
 T  T R C 
 Hބ% C   C 	
 T 2 T % TVLAE25-Betriebliche-Altersversorgung% C  C 	K
 T & T  TVKAE-26-Altersversorgung% C  C 	
 T - T   25-Betriebliche-Altersversorgung CC ބ
 T  T R    *  ,	

 H C   K T  111 T  20210 C   T  060 T S C  ͅ T  093 T  3.htm#63
 T"    C   T  093 T  3.htm#63
 T"    C  c T  093 T  3.htm#63
 T"    C   T  194 T  40b
 T"    C   T  194 T  40b
 T"    C  
 T    C  L T  160 T Y C  	 T  160 T Z C  

 T   
 T    C  
 T   
 T    C    T  160 T [ C  
W T  110 T \ C   T  000 T ] C  ň T  000 T ^ C  
 T   
 T    C  / T  000 T _ C  f T  000 T ` C   T  000 T a
 T"    C   T  172 T b C   T  172 T c C  O T  000 T d C  
 T   
 T    C  
 T   
 T    C   T  160 T e C  # T  360 T f C  c T  096 T 
 9.htm#R9.5 C   T  099 T 
 Index.htm#_2 C  ݋ T  000 T i C   T  000 T j C  K T  000 T k C    T  000 T l C  ! T  000 T m C  " T  079 T n C  #' T  000 T o C  $e T  093 T  3.htm#50 C  % T  093 T  3.htm#12- C  & C  (	 T  194 T  40 T s T t C  )B T  060 T D- C  * C  +	
 T   
 T    CC  ,- %C- ,
Վ
 T   
 T     T  193 T  Tarif/34    -s
 H(o C 
k T  116 T  17a-Zahlungsweise C  C 	R C 
 C  C  C 	 C  T  132 T w CC < T  135 T x C 
o T  136 T y   .
 H C/ !̐ T  T  sgb_5/__2574 C/   C/  	 C/ # T  000 T z C/ " T  000B T 5 minijob-zentrale.de/DE/0__Home/navNode.html__nnn=true   1
 T   
 T     #  U$  MYXX MYINDEXE ZI
 LBESGBAWUE LBESGBAYERN BBESG LBESGANHALT LBESGTHRINGEN MSG MSG1 MYID INDEXM REGISTER EXPORT INET MYLINK BUNDA BUNDB BUNDW BUNDR HESSENTARIF SOZDIENSTGRUPPEN MSG5 WVW ENTGELTCODE MYFORM1 TVD CAPTION WELCHESJAHR Z6 MSG3 BEAMTENZULAGEN SONDERZAHLUNGSHILFE I MSG2 INSINTERNET  U  	 4  
 T   
 H!    ? 
 T #  
 H]  C r  C 	 % C 
 C 	 
 T {D C   C 		 C  C %	 T N   -
 T   
 HK C ` C 	u% C 
 C 	
 T {D C   C 		 C  C %	
 T    
 T %  
 H8% C   C 	k T N C  C 	% C 
 C 	 T ND C  C 	 C ! C %	
 T ) C  . C Q T O CC x T N C  C 
 T     T uN  
 T n! T  G/Grundentgelt/Index   B  
 H:% C   C 	m T O C  C 	% C 
 C 	
 T z C  T O% C  C 
	 C & C ; C P C e C z C 
 T  C    	
 H% C   C 	 T fN C  C 	0% C 
 C 	b
 T y% C  C 	 T fN% C  C %	 T fN   

 T   
 H% C   C 	:
 T  C O C 	d% C 
 C 	
 T |% C  C 	
 T % C  C %	
 T      	!	
 H(	% C   C 	[ T (P C p C 	% C 
 C 	
 T }% C  C 	 T (P% C  C %		 T (P  C 9

 HC	5
% C   C 	u	
 T  C 	 C 		% C 
 C 		
 T ~% C  C 	

 T % C  C %	5

 T    P
 HW
L% C   C 	
 T O C 
 C 	
% C 
 C 	

 T % C  C 	 T O% C  C %	L T O   g
 Hnc% C   C 	 T P C  C 	% C 
 C 	
 T % C  C 	0 T P% C  C %	c T P    T N   T N  2

 H.
 CC   T O C 

 T  C .

 T l   
 HP
 C  s
 T N C 

 T  CC 

 T n# T  A/Altersteilzeit/Index   B C 
 T k   [ %C 
B
 T 	 W
 T q   y
 T f   %C 
 T V   T 3P  %C $ %C  C 
 T     5
 T t  T T LO  u T     T eO  
 T +  
 T    
 T   !
 T `O  ", T 8O  #y
 T n$ T  S/Solidaritaetszuschlag   B  $ T BO  % T VO  & T O  ' T O  ( T N  ) %C #G
 T  
 T n! T  Z/Zusatzversicherung   B   *  ,	Z T N
 HV C    C   C   C  ( C  A C  Z C  
 T o- C   C  	 C   C   C   C   C  * C  C C  \ C   u C  ! C  " C  #- C  $ C  +	 CC  ,-V % ,R T 6 T  Abfindungsrechner   B    -y T O  . T VO  /
 T 
  1
 T j  T CC 
 Z T  111   U  MYXX MYINDEXE MYID ZI INET MSG INSINTERNET09 4   T - %   T -
 H; >  
 T a
 He |
      T  http} s://www.aok.de/fk/bw/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  httpف s://www.aok.de/fk/bayern/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  httpق s://www.aok.de/fk/nordost/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    K T  httpق s://www.aok.de/fk/nordost/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  httpق s://www.aok.de/fk/nordost/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  httpف s://www.aok.de/fk/bremen/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    w T  http~ s://www.aok.de/fk/rh//tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    1 T  httpف s://www.aok.de/fk/hessen/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  httpق s://www.aok.de/fk/nordost/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    	 T  httpو s://www.aok.de/fk/niedersachsen/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    
i T  httpك s://www.aok.de/fk/nordwest/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     	 T  http~ s://www.aok.de/fk/rps/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    	 T  http~ s://www.aok.de/fk/rps/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    

 T  http s://www.aok.de/fk/plus/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    Q T  httpى s://www.aok.de/fk/sachsen-anhalt/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    
 T  httل ps://www.aok.de/fk/nordwest/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /     T  http s://www.aok.de/fk/plus/tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /    |
 T  http~ s://www.aok.de/fk/rh//tools/weitere-inhalte/beitraege-und-rechengroessen-der-sozialversicherung/beitragssaetze/beitragssaetze-  /   { T  httpf s://www.barmer.de/firmenkunden/versicherung-beitraege/infothek/personalbegleiter/beitragssaetze-252088 T a   T  httpt s://www.dak.de/dak/versicherung-beitraege-und-umlagen/arbeitgeberanteil-mit-beitragstabelle-berechnen-2086484.html#/ T a  $I T  http4 s://www.kkh.de/firmenkunden/beitraege/beitragssaetze T a   T  httpْ s://www.tk.de/techniker/leistungen-und-mitgliedschaft/informationen-versicherte/beitraege-beitragssaetze/tk-beitragssatz-und-zusatzbeitrag-2021472 T a  pk T  httpV s://www.krankenkassen.de/gesetzliche-krankenkassen/krankenkasse-beitrag/zusatzbeitrag/ T a  > msg = "http"+"s://www.kbs.de/SharedDocs/Downloads/DE/VersicherungsrechtBeitraegeMeldungen/GroessenVBR/GroessenVersicherungsBeitragsrechtJan21.pdf?__blob=publicationFile&v=9"
 T a  % aQ  C #39 $ C
  \Links' woerter	  % l T _ verwaltungsportal.hessen.de/themen/information/tarifvertr%C3%A4ge-allgemeine-verwaltung-entgelt  C'   woerter  T C 
  % ?t" T  bmf-steuerrechner.de/  % H T  dbb.de  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
  %C R # T C > C'  woerter  T C  C 
             %   CA Die gewnschte Information befindet sich auf einer Internetseite.C
 : Der Aufruf von Internetseiten ist im Programm deaktiviert.C
 E Aktivierung in der Menzeile unter Start / Daten ber den Arbeitgeber 5 Alle Hilfetexte und Vorschriften nur noch im Internetx B  %C  CP T CC  Z  %  nnn C 
 C. Sorry, die Internetseite ist noch nicht fertigC
 3 oder dieser Zeilenhinalt bedarf keiner Erluterung.  Bitte noch etwas Geduld.x B  % -8
 T    %  ?I
 T    _ T  ? 
 Hp5 C \ 01. T ! pc-gehalt.de/TVoed/!SSL!/WebHelp/ CC \g 
 T    CC \g
 T 
 pc-gehalt.de/ CC \gR! T  PC-Gehalt.de/manual/ CC \g+ T  pc-gehalt.de/Fachwortsammlung/ CC \g
. T ! pc-gehalt.de/Landesbeamtengesetze
 T    CC \g<& T  Landesbesoldungsgesetz.de
 T    CC \g. T ! pc-Gehalt.de/Bundesbeamtengesetz/ CC \g1 T $ pc-Gehalt.de/Bundesbesoldungsgesetz/ CC \g
 H C  - T  Baden-Wuerttemberg C Y T 
 Thueringen4 C  C 	 C  T CCC   * T  pc-Gehalt.de/Amtszulagen/ 
 T    CC \g
 H C  ? T  Baden-Wuerttemberg C k T 
 Thueringen4 C  C 	 C  T CCC   / T  pc-Gehalt.de/Leistungszulagen/ 
 T    CC \g
 H" C  ( T  Baden-Wuerttemberg/    T 
 besoldung.de/ 
 T    C  T  Bund/    T 
 besoldung.de/ 
 T    C @ T  Thueringen/  T 
 besoldung.de/ 
 T   % C  C 	$ T CCC   /  T 
 besoldung.de/ 
 T    C  T > T 1 bundesrecht.juris.de/bbesg_bes_gbek/BJNR164600009  CC \gJ T 	 besoldung CC \gr
 T    CC \g
 T    CC \g
 T    CC \g
 T    CC \g 
 T    CC \g: 
 T    CC \g 0 T # pc-gehalt.de/Besoldungsdienstalter/ CC \g 2 T % pc-gehalt.de/Bundesbesoldungsordnung/ CC \gF!Y T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-L-Entgeltordnung/ CC \g!' T  pc-gehalt.de/Tarifvertrag/ CC \g!A T + pc-gehalt.de/TVoed/!SSL!/WebHelp/index.htm?  # CC \g 7"8 T + pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/ CC \g!"U T + pc-gehalt.de/TVoed/!SSL!/WebHelp/index.htm?  #Entgeltordnung-Bund/ CC \g""
 T    CC \g##2 T % pc-gehalt.de/Tarifvertrag/TV-Laender/ CC \g$f#/ T " pc-gehalt.de/Tarifvertrag/TVoeD-K/ CC \g%#+ T  pc-gehalt.de/Tarifvertrag/ATV/ CC \g&#- T   pc-gehalt.de/Tarifvertrag/ATV-K/ CC \g'I$: T - pc-gehalt.de/Tarifvertrag/KraftfahrerTV-Bund/ CC \g($5 T ( pc-gehalt.de/Tarifvertrag/PKW-Fahrer-TV/ CC \g)$9 T , pc-gehalt.de/Tarifvertrag/Strukturausgleich/ CC \g*=%5 T ( pc-gehalt.de/Tarifvertrag/Tariftabellen/ CC \g+%1 T $ pc-gehalt.de/Tarifvertrag/TV-Aerzte/ CC \g,%5 T ( pc-gehalt.de/Tarifvertrag/TV-Aerzte-VKA/ CC \g-"&. T ! pc-gehalt.de/Tarifvertrag/TVAoeD/ CC \g.k&. T ! pc-gehalt.de/Tarifvertrag/TV-ATZ/ CC \g/&/ T " pc-gehalt.de/Tarifvertrag/TVoeD-B/ CC \g0&/ T " pc-gehalt.de/Tarifvertrag/TVoeD-V/ CC \g1X'> T 1 pc-gehalt.de/Tarifvertrag/TV-Versorgungsbetriebe/ CC \g2'6 T ) pc-gehalt.de/Tarifvertrag/Arbeiterloehne/ CC \g4'* T  pc-gehalt.de/Geringverdiener/ CC \g5:(1 T $ pc-gehalt.de/Tarifvertrag/TVue-Bund/ CC \g6(4 T ' pc-gehalt.de/Tarifvertrag/TVue-Laender/ CC \g7(0 T # pc-gehalt.de/Tarifvertrag/TVue-VKA/ CC \g8). T ! pc-gehalt.de/Tarifvertrag/AOK-TV/ CC \g9_)' T  pc-gehalt.de/Tarifvertrag/ CC \g:)$ T  pc-gehalt.de/Gleitzone/ CC \g;)$ T  pc-gehalt.de/Pfaendung/ CC \g<*" T  pc-gehalt.de/Gesetze/ CC \g=l*7 T * pc-gehalt.de/Gesetze/Sonderzahlungsgesetz/ CC \g>*6 T ) pc-gehalt.de/Gesetze/Sozialgesetzbuecher/ CC \g?,
 H*, C  =+C msg1 = "landesrecht-bw.de/jportal/?quelle=jlink&query=BesG+BW+"
 C +F T 9 gesetze-bayern.de/jportal/portal/page/bsbayprod.psml?nid= C +P T C bravors.brandenburg.de/sixcms/detail/php?gsid=land_bb_bravors_01.c. C a,O msg1 = "landesrecht.sachsen-anhalt.de/jportal/?quelle=jlink&query=BesG+ST+"
 C ,K msg1 = "landesrecht.thueringen.de/jportal/?quelle=jlink&query=BesG+TH+"
  CC \gF-/ T " pc-gehalt.de/Arbeitszeit-Designer/ CC \gG7-
 T    CC \gHv-$ T  pc-gehalt.de/Pfaendung/ CC \gI-
 T    CC \gJ-. T ! pc-gehalt.de/Tarifvertrag/TVPoeD/ CC \gO$." T  bundesrecht.juris.de/ CC \gPc.$ T  gesetze-im-Internet.de/ CC \gQ.[ T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-L-Allgemeiner-Teil/ CC \gRO/[ T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-L-Sonderregelungen/ CC \gS/Y T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-L-Entgeltordnung/ CC \gT80Z T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-L-Entgelttabellen/ CC \gU0L T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TVUe-L/ CC \gV	1O T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-Aerzte/ CC \gWw1S T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-PKW-Fahrer/ CC \gX1N T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm? 
 #TVA-BBiG/ CC \gYK2P T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TVA-Pflege/ CC \gZ2U T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-Praktikanten/ CC \g[/3Y T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  #TV-Altersversorgung/ CC \g\3E T / pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm?  # CC \g]3; T . pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/ CC \g^F4F T 9 pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/Lohnsteuer/ CC \g_4A T 4 pc-gehalt.de/Lohnsteuer/Einkommensteuer-Richtlinien/ CC \g`4< T / pc-gehalt.de/Lohnsteuer/Lohnsteuer-Richtlinien/ CC \gad5P T C pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/Altersvorsorgezulage/ CC \gb5
 T    CC \gc5G T : pc-gehalt.de/Gesetze/Sozialversicherungsentgeltverordnung/  T   
 H6i8 C  -96 T    < C  0 C  P C  x6 T  www.  C  16 T  www.  .htm C  26 T  www.  .html C  307# T  www. 
 /Index.htm C  4l7$ T  www.  /Index.html C  57# T  www. 
 /index.htm C  67 T   .htm C  78 T   .html C  858 T  
 /Index.htm C  9i8 T   /Index.html  T  https://  T C ( T C (R . | ShellExecute shell32.dll) T C   Open         
 T   
 T   
 T   U  XSXSX JUMP MYLINK MYKV COMBO1	 LISTINDEX MSG WELCHESJAHRC MYCLOSE MYOPEN	 EIGDATFIX MYGET WOERTER TEXTEE I DIMEN DIMPW1 INET MSG1 FLIPFLOP ZI ZT2 MSG2 SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL}  T  C  T  000
 H. o        	o $ T  Sonderzahlungsgesetz.de    U  I ZI INET MSG INSINTERNET  T   031 T 	 P_Anl.htm %C   T   0107 T * Sozial-und-Erziehungsdienst/TVUE-VKA-3.htm  U  INET MSG ZI
 H
  C   3  T  0114 C  Y  T  0114 C    T  0813 C    T  0315 C    T  0714 C    T  0714 C   T  0114 C  = T  0414 C  c T  0114 C  	 T  0614 C  
 T  0114 C   T  0114 C   T  0114 C  
! T  0414 C  G T  0714 C  m T  1014 C   T  0814  U  ZI MSG
 H
  C   3  T  0114 C  Y  T  0114 C    T  0813 C    T  0315 C    T  0714 C    T  0714 C   T  0114 C  = T  0414 C  c T  0114 C  	 T  0614 C  
 T  0114 C   T  0114 C   T  0114 C  
! T  0414 C  G T  0714 C  m T  1014 C   T  0814  U  ZI MSG
 H
  C   3  T  0114 C  Y  T  0114 C    T  0813 C    T  0315 C    T  0714 C    T  0714 C   T  0114 C  = T  0414 C  c T  0114 C  	 T  0614 C  
 T  0114 C   T  0114 C   T  0114 C  
! T  0414 C  G T  0714 C  m T  1014 C   T  0814  U  ZI MSG
 H
  C   3  T  0114 C  Y  T  0114 C    T  0813 C    T  0315 C    T  0714 C    T  0714 C   T  0114 C  = T  0414 C  c T  0114 C  	 T  0614 C  
 T  0114 C   T  0114 C   T  0114 C  
! T  0414 C  G T  0714 C  m T  1014 C   T  0814  U  ZI MSG
 H
  C   3  T  0114 C  Y  T  0114 C    T  0813 C    T  0315 C    T  0714 C    T  0714 C   T  0114 C  = T  0414 C  c T  0114 C  	 T  0614 C  
 T  0114 C   T  0114 C   T  0114 C  
! T  0414 C  G T  0714 C  m T  1014 C   T  0814  U  ZI MSG
 H
 9 % C    C  	9    
 HJ  C  
 
 T  %C  
  T 	 20143Bund   T 	 20153Bund  C  
 T  T  B/2011 %C  
    C  {
 T  %C  
Z T  20143VKA w T  20153VKA  CC  

 T  %C  
 T   20143KR  T   20153KR  C  c
 T  %C  
@ T 
 20143SundE _ T 
 20153SundE  C  .
 H*% C    C  	
 T  T  TV-Aerzte-A2014-2% C   C  	
 T  T  K_MB% C   C  	]
 T  T  D/2014% C   C  	
 T  T  B/2011 %C      CC  
 T  T  K_C C  *
 T  T  P_C  C  c
 T  T  C/2014 C  H
 T  %C  
 %C    T  TVKBv032014  T  TVKBv032014  D %C     T  TVKBv032015 @ T  TVKBv032015   C  +
 T 
 Hw'( CC   	
 T  PKWTabelle-West C   T 
 PKWTabelle-HH" CC  
' T  PKWTabelle-Ost  C  .
 HM* CC   
 T  T  TVABBiG8 C  
 T  T  TVA-LB8 C  
 T  T  TVAPf_8 C  *
 T  T  TVA-LP8  C  
 HP% C    C  		
 T  T  TVP8 C  	
 T  T  TV-P-L8  C   
 T  T  2011 C  ' T  20415R C   C   C   C  	 C       U  ZI BEAMTENZULAGEN INET MSG HESSENTARIF MSG1
 KEINETABELLEN
 H
 9 % C    C  	9    
 HJ  C  
 
 T  %C  
  T 	 20143Bund   T 	 20153Bund  C  
 T  T  B/2011 %C  
    C  {
 T  %C  
Z T  20143VKA w T  20153VKA  CC  

 T  %C  
 T   20143KR  T   20153KR  C  c
 T  %C  
@ T 
 20143SundE _ T 
 20153SundE  C  .
 H*% C    C  	
 T  T  TV-Aerzte-A2014-2% C   C  	
 T  T  K_MB% C   C  	]
 T  T  D/2014% C   C  	
 T  T  B/2011 %C      CC  
 T  T  K_C C  *
 T  T  P_C  C  c
 T  T  C/2014 C  H
 T  %C  
 %C    T  TVKBv032014  T  TVKBv032014  D %C     T  TVKBv032015 @ T  TVKBv032015   C  +
 T 
 Hw'( CC   	
 T  PKWTabelle-West C   T 
 PKWTabelle-HH" CC  
' T  PKWTabelle-Ost  C  .
 HM* CC   
 T  T  TVABBiG8 C  
 T  T  TVA-LB8 C  
 T  T  TVAPf_8 C  *
 T  T  TVA-LP8  C  
 HP% C    C  		
 T  T  TVP8 C  	
 T  T  TV-P-L8  C   
 T  T  2011 C  ' T  20415R C   C   C   C  	 C       U  ZI BEAMTENZULAGEN INET MSG HESSENTARIF MSG1
 KEINETABELLEN
 H
 9 % C    C  	9    
 HJ  C  
 
 T  %C  
  T 	 20143Bund   T 	 20153Bund  C  
 T  T  B/2011 %C  
    C  {
 T  %C  
Z T  20143VKA w T  20153VKA  CC  

 T  %C  
 T   20143KR  T   20153KR  C  c
 T  %C  
@ T 
 20143SundE _ T 
 20153SundE  C  .
 H*% C    C  	
 T  T  TV-Aerzte-A2014-2% C   C  	
 T  T  K_MB% C   C  	]
 T  T  D/2014% C   C  	
 T  T  B/2011 %C      CC  
 T  T  K_C C  *
 T  T  P_C  C  c
 T  T  C/2014 C  H
 T  %C  
 %C    T  TVKBv032014  T  TVKBv032014  D %C     T  TVKBv032015 @ T  TVKBv032015   C  +
 T 
 Hw'( CC   	
 T  PKWTabelle-West C   T 
 PKWTabelle-HH" CC  
' T  PKWTabelle-Ost  C  .
 HM* CC   
 T  T  TVABBiG8 C  
 T  T  TVA-LB8 C  
 T  T  TVAPf_8 C  *
 T  T  TVA-LP8  C  
 HP% C    C  		
 T  T  TVP8 C  	
 T  T  TV-P-L8  C   
 T  T  2011 C  ' T  20415R C   C   C   C  	 C       U  ZI BEAMTENZULAGEN INET MSG HESSENTARIF MSG1
 KEINETABELLEN
 H
 9 % C    C  	9    
 HJ  C  
 
 T  %C  
  T 	 20143Bund   T 	 20153Bund  C  
 T  T  B/2011 %C  
    C  {
 T  %C  
Z T  20143VKA w T  20153VKA  CC  

 T  %C  
 T   20143KR  T   20153KR  C  c
 T  %C  
@ T 
 20143SundE _ T 
 20153SundE  C  .
 H*% C    C  	
 T  T  TV-Aerzte-A2014-2% C   C  	
 T  T  K_MB% C   C  	]
 T  T  D/2014% C   C  	
 T  T  B/2011 %C      CC  
 T  T  K_C C  *
 T  T  P_C  C  c
 T  T  C/2014 C  H
 T  %C  
 %C    T  TVKBv032014  T  TVKBv032014  D %C     T  TVKBv032015 @ T  TVKBv032015   C  +
 T 
 Hw'( CC   	
 T  PKWTabelle-West C   T 
 PKWTabelle-HH" CC  
' T  PKWTabelle-Ost  C  .
 HM* CC   
 T  T  TVABBiG8 C  
 T  T  TVA-LB8 C  
 T  T  TVAPf_8 C  *
 T  T  TVA-LP8  C  
 HP% C    C  		
 T  T  TVP8 C  	
 T  T  TV-P-L8  C   
 T  T  2011 C  ' T  20415R C   C   C   C  	 C       U  ZI BEAMTENZULAGEN INET MSG HESSENTARIF MSG1
 KEINETABELLEN
 H
 9 % C    C  	9    
 HJ  C  
 
 T  %C  
  T 	 20143Bund   T 	 20153Bund  C  
 T  T  B/2011 %C  
    C  {
 T  %C  
Z T  20143VKA w T  20153VKA  CC  

 T  %C  
 T   20143KR  T   20153KR  C  c
 T  %C  
@ T 
 20143SundE _ T 
 20153SundE  C  .
 H*% C    C  	
 T  T  TV-Aerzte-A2014-2% C   C  	
 T  T  K_MB% C   C  	]
 T  T  D/2014% C   C  	
 T  T  B/2011 %C      CC  
 T  T  K_C C  *
 T  T  P_C  C  c
 T  T  C/2014 C  H
 T  %C  
 %C    T  TVKBv032014  T  TVKBv032014  D %C     T  TVKBv032015 @ T  TVKBv032015   C  +
 T 
 Hw'( CC   	
 T  PKWTabelle-West C   T 
 PKWTabelle-HH" CC  
' T  PKWTabelle-Ost  C  .
 HM* CC   
 T  T  TVABBiG8 C  
 T  T  TVA-LB8 C  
 T  T  TVAPf_8 C  *
 T  T  TVA-LP8  C  
 HP% C    C  		
 T  T  TVP8 C  	
 T  T  TV-P-L8  C   
 T  T  2011 C  ' T  20415R C   C   C   C  	 C       U  ZI BEAMTENZULAGEN INET MSG HESSENTARIF MSG1
 KEINETABELLEN bbesg,      beamtenzulagen*     bundA     BundB.     bundR     bundW     hessentarif-    
 lbesGbaWue     lbesGAnhaltQ2     lbesGBayernf:     lbesGThringenM     OstWest20097U     paraktivY    	 paraktiv1    
 comaktivieren     insinternet    sonderzahlungshilfe<    sozdienstgruppen<   
 Beamte2023X=   
 Beamte2024?   
 Beamte2025B   
 Beamte2026ME   
 Beamte2027G    tabellen2023J    tabellen2024gS    tabellen20253\    tabellen2026d    tabellen2027m   4   ! !Q  Q Q Q Q Q Q Q Q Q Q Q QQ QQQQQQQQQA QAQAQAQAQA Q QQ!QQQQA Qa   1                         Q Q Q A    Q  A   Q  A     QQA   Q Q Q A  A  QQQQQ  A  Q   A A q 4  r A 3   Q Q Q   Q Q  QQQQQA 4   Q Q Q Q Q Q Q Q Q QQA 4   Q Q Q Q Q Q Q Q Q QA 4   Q Q Q A 4 Q A 6     QQQQQQA Q Q QaQaQaQaQaQqQaQqQqQqqQqQqQqA QQQQQA Q QQQQQQA  Q 1A QQ A QQ A A QA  qqqqqaaaaaaaqqqQQQA A q 3     QQAQQA Q QAQAQAQAQAQA Q QQQQQQA  QQQ A QB A q 4   ! A Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A Q Q Q Q Q Q Q Q Q Q Q Q A Q Q Q Q Q A Q Q Q Q A Q Q Q Q Q Q Q Q Q Q A A Q Q! Q! Q Q! Q! Q! A ! ! !  !   Q A  Q! ! Q! A ! ! ! ! ! !   A r 3    aQQQQA Q QQQ QQQA  QQQA  aaaaA A q 3 QR Q!Q!Q!Q!Q!Q1A   Q1Q1Q1Q1Q1QAA A  Q Q!Q!Q!Q!Q!Q1A   Q1Q1Q1Q1Q1QAA A B 4 q  Rr A A r A A S q A A Q q A A QS q A A Q q A A A     2A A   A   AA   !A Q U R Q QQQ!Q Q Q Q 1Q Q !Q !A U Q Q Q!A Q QaQ QaQAQ A SQ   AA Q QQA  AaQ !sA  Q aQ QQQQQQ QQ QQQ QQQ  R QA  Q 1QQA Q 1Q 1Q 1Q 1Q !Q Q  Q A Q  Q  Q!Q Q QR !Q !Q !Q !A  Q Q!RAQQQ QQQ AQQQAQ AA QQ   AA Q QQQQ QA  Qv Rv R AQv Sv S Q QQ Rq A R R Rq Q Q QR !Q !Q !Q !A Q S qQ!Q Q QQQ AQQQAQ AA QQ   AA Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A RQA  Q Qq Qq q Qq A Rb q  D R  qA Qq A R R Qq Q Q QR !Q !Q !Q !A S  R!   qA   A R!Q Q QQQ AQQQAQ AA QQ   AA Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A QQQ qA A  A  AA Q R QQ Rq A SQQ!Q Q Q Q Q !Q !A R Q Q!Q Q QQQ AQQQAQ AA QQ   AA Q QQA  QaR ! AQq A D Q QQQQQ QQQQQQQ  S  QA  Q qQ  1Q A  TT Q Q Q Q Q Q R A  Q qQ Qq A SRQQ Q QR Q Q Q A R R QQ Q!Q QQ!Q!Q QA QQ !  QA Q Q Q A  QQQQA Qr   Q Q Q A A RQA RQA RQA R Q QRAQA R !Q Q A QQA RQA RQQA RQA R QQ AQQ!Q AA QQ   AA Q QA  Q  q QQ 111 1qq A  AR  Q  Q  R Q QQAQA R !Q !Q !A QQA RQA T Q Q  A S QQ   Qq A S Q Q Q Q QR !Q !Q   A Q   A A Q R  Q!Q QQ AQQ!Q AA QQ   AA Q QQ B  Qr A Q Qq A SQ Q Q Q QR !Q !Q Q A Q Q QQ Q QQ AQQ!Q AA QQ   AA Q Q Q C  Rq A  1  Uq A S Q Q Q Q QR !Q !Q Q A Q Q !Q Q Q QQQ QQaQQQ QA QQ !  QA Q  Q Q A  QQ  A Q QQ Qq A S Q Q Q Q QR !Q !Q Q A Q Q Q QQ Q QQ AQQ!Q AA QQ   AA S A  QQQQ QQQQ Q QR !Q !Q Q A RQ QQ Q QAQ AQQQAQ AA QQ   1A Q Q A  Q QQQ A QQ QQQQ Q QR !Q !Q Q A RQ QQ Q QAQ AQQQAQ AA QQ   AA R Q A   Q QQQA Q RQQQ Q QR !Q !Q Q A QQQQ Q QAQ AQQQAQ AA QQ   AA A  Q !Q A Q Q B Q A R  !qQ!A  Q   Q  Q A      Q   A  Q  Q Q QRR A A  A 1   Q   Q A  Q     	  Q Q !Q aR   B A  ! Q Q Q                             q       QQ      Q   QB A  QQR"  Q A  Q A Q!A   A q 3 ; q     QRR A A   QRR A A   Q QRR A QR  QR A   q A  Q QRR Q QQRRQRQ QB  Q QRR Q Q A   Q QRR Q Q A  Q QRR Q Q A S Q QRR Q Q A  Q QRR Q Q A  Q QRR Q Q A     Q Q A  Q Q  1q A R A Q   A  R  A QB A B          Aq A      S   q A A     q A A A     B qq 3 q    !  		


			
a

			q

		A " ! ! !q
 ! ! A   A" !"!A "1A q2r2q2q2q2q2q2q2A A A A A A A A A A A CA A RqA Q	A A   !   A    a  QQqAA   QQqAA   Q Q Q QA Q B a      !qQ !QQQaAqAA!qa Q1QaQRQA  A !A1QQa qA  Q1A1QaA 1!A    3  AA q 3 aQqA  1  QQQQRQQQQQQQQQQQQA 3  QQQQRQQQQQQQQQQQQA 3  QQQQRQQQQQQQQQQQQA 3  QQQQRQQQQQQQQQQQQA 3  QQQQRQQQQQQQQQQQQA 0	1  Qq A  Q Qb aA Q 1Qq A R QR QA  Q A Q Qr qA R Q Q Q 1Q 1Qq A  Q A R 1Q QR A  Q A B Q  Q!A Q  QQ AQ AQ AA R Q Q AA R Q!!q A 3  Qq A  Q Qb aA Q 1Qq A R QR QA  Q A Q Qr qA R Q Q Q 1Q 1Qq A  Q A R 1Q QR A  Q A B Q  Q!A Q  QQ AQ AQ AA R Q Q AA R Q!!q A 3  Qq A  Q Qb aA Q 1Qq A R QR QA  Q A Q Qr qA R Q Q Q 1Q 1Qq A  Q A R 1Q QR A  Q A B Q  Q!A Q  QQ AQ AQ AA R Q Q AA R Q!!q A 3  Qq A  Q Qb aA Q 1Qq A R QR QA  Q A Q Qr qA R Q Q Q 1Q 1Qq A  Q A R 1Q QR A  Q A B Q  Q!A Q  QQ AQ AQ AA R Q Q AA R Q!!q A 3  Qq A  Q Qb aA Q 1Qq A R QR QA  Q A Q Qr qA R Q Q Q 1Q 1Qq A  Q A R 1Q QR A  Q A B Q  Q!A Q  QQ AQ AQ AA R Q Q AA R Q!!q A 1                    3                   <      -       =  G     8"  Z  _  V"  "  u  i  #  #    o  #  ?    H  ?  S  r    S  {k  0    k  u  4    v  {    @  {  n   '  %n 3n 
  (  Yn  
  F
    \                9  @       l  &      K      p        ?        <    A    
   + Z    C+ 6   0^   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4FX0TLFR01193897487      /  F      ]                                                       WINDOWS _4FX0TLFR11534164346                       u	                                               WINDOWS _4FX0TLFR01531536051            !        I                                               WINDOWS _4FX0TLFR31361347571D      Y  n            A                                                WINDOWS _4FX0TLFR413613475712!      G!  \!  n!  x!      !  ~"                                               WINDOWS _4FX0TLFR51394102553#      #  #   $  
$      $  (                                               WINDOWS _4FX0TLFR61361347571K+      X+  e+  s+  }+                                                           WINDOWS _4FX0TLFR81361347571),      6,  C,  Q,  [,                                                           WINDOWS _4FX0TLFR91361347571,      -  -  -  &-                                                           WINDOWS _4FX0TLFRA1361347571-      -  -  -  -                                                           WINDOWS _4FX0TLFRB1512655892.      .  .  .  .                                                           WINDOWS _4FX0TLFRC1361347571f/      s/  /  /  /                                                           WINDOWS _4FX0TLFRD1361347571J0      W0  d0  r0  |0                                                           WINDOWS _4FX0TLFRE1361347571(1      51  B1  P1  Z1                                                           WINDOWS _4FX0TLFRF13613475711       2  
2  2  %2                                                           WINDOWS _4FX0TLFRG13613475712      2  2  2  2                                                           WINDOWS _4FX0TLFRH13613475713      3  3  3  3                                                           WINDOWS _4FX0TLFRI1361347571W4      d4  q4  4  4                                                           WINDOWS _4FX0TLFRJ1361347571"5      /5  <5  K5  U5                                                           WINDOWS _4FX0TLFRK13613475715      5  6  6  !6                                                           WINDOWS _4FX0TLFRL13613475716      6  6  6  6                                                           WINDOWS _4FX0TLFRM13613475717      7  7  7  7                                                           WINDOWS _4FX0TLFRN1361347571Y8      f8  s8  8  8                                                           WINDOWS _4FX0TLFRO1361347571(9      59  B9  Q9  [9                                                           WINDOWS _4FX0TLFRP13613475719      :  :  !:  +:                                                           WINDOWS _4FX0TLFRQ1390182692:      :  :  :  :      ;  7<                                               WINDOWS _4FX0TLFRR1390182692H=      W=  f=  s=  }=      M>  >                                               WINDOWS _4FX0TLFRS1390182692?      ?  ?  ?  ?      @  9A                                               WINDOWS _4FX0TLFRT1361347571JB      YB  hB  uB  B      NC  C                                               WINDOWS _4FX0TLFRU1361347571D      D  D  D  D      E  5F                                               WINDOWS _4FX0TLFRV1361347571FG      UG  dG  qG  {G      JH  H                                               WINDOWS _4FX0TLFRW1361347571I      I  I  I  I      J  2K                                               WINDOWS _4FX0TLFRX1380090276CL      RL  aL  nL  xL      HM  M                                               WINDOWS _4FX0TLFRY1361347571N      N  N  N  N      O  /P                                               WINDOWS _4FX0TLFRZ1361347571@Q      OQ  ^Q  lQ  vQ      FR  R                                               WINDOWS _4FX0TLFS01361347571S      S  S  S  S      T  /U                                               WINDOWS _4FX0TLFS11361347571@V      OV  ^V  lV  vV      GW  W                                               WINDOWS _4FX0TLFS21380090276X      X  X  X  X      Y  1Z                                               WINDOWS _4FX0TLFS31361347571B[      Q[  `[  n[  x[      H\  \                                               WINDOWS _4FX0TLFS41361347571]      ]  ]  ]  ]      ^  1_                                               WINDOWS _4FX0TLFS51361347571B`      Q`  ``  n`  x`      Ha  a                                               WINDOWS _4FX0TLFS61361347571b      b  b  b  b      c  2d                                               WINDOWS _4FX0TLFS71380090276Ce      Re  ae  oe  ye      Jf  f                                               WINDOWS _4FX0TLFS81361347571g      g  g  g  g      h  3i                                               WINDOWS _4FX0TLFS91361347571Dj      Sj  bj  pj  zj      Jk  k                                               WINDOWS _4FX0TLFSA1361347571l      l  l  l  l      m  3n                                               WINDOWS _4FX0TLFSB1361347571Do      So  bo  po  zo      Kp  p                                               WINDOWS _4FX0TLFSC1380090276q      q  q  q  q      r  5s                                               WINDOWS _4FX0TLFSD1361347571Ft      Ut  dt  rt  |t      Lu  u                                               WINDOWS _4FX0TLFSE1361347571v      v  v  v  v      w  5x                                               WINDOWS _4FX0TLFSF1361347571Fy      Uy  dy  ry  |y      Lz  z                                               WINDOWS _4FX0TLFSG1361347571{      {  {  {  {      |  6}                                               WINDOWS _4FX0TLFSH1380090276G~      V~  e~  s~  }~      N                                                 WINDOWS _4FX0TLFSI1361347571Ȁ      ׀            ΁  7                                               WINDOWS _4FX0TLFSJ1361347571H      W  f  t  ~      N                                                 WINDOWS _4FX0TLFSK1361347571ȅ      ׅ            Ά  7                                               WINDOWS _4FX0TLFSL1361347571H      W  f  t  ~      O                                                 WINDOWS _4FX0TLFSM1380090276Ɋ      ؊            Ћ  9                                               WINDOWS _4FX0TLFSN1361347571J      Y  h  v        P                                                 WINDOWS _4FX0TLFSO1361347571ʏ      ُ             А  9                                               WINDOWS _4FX0TLFSP1361347571J      Y  h  v        P                                                 WINDOWS _4FX0TLFSQ1361347571ʔ      ٔ             ѕ  :                                               WINDOWS _4FX0TLFSR1380090276K      Z  i  w        R                                                 WINDOWS _4FX0TLFSS1361347571̙      ۙ            Қ  ;                                               WINDOWS _4FX0TLFST1361347571L      [  j  x        R                                                 WINDOWS _4FX0TLFSU1361347571̞      ۞            ҟ  ;                                               WINDOWS _4FX0TLFSV1361347571L      [  j  x        S                                                 WINDOWS _4FX0TLFSW1380090276ͣ      ܣ            Ԥ  =                                               WINDOWS _4FX0TLFSX1361347571N      ]  l  z        T                                                 WINDOWS _4FX0TLFSY1361347571Ψ      ݨ            ԩ  =                                               WINDOWS _4FX0TLFSZ1361347571N      ]  l  z        U                                                 WINDOWS _4FX0TLFT01361347571ϭ      ޭ            ׮  @                                               WINDOWS _4FX0TLFT11380090276Q      `  o  }        Y  ±                                               WINDOWS _4FX0TLFT21361347571Ӳ            	      ڳ  C                                               WINDOWS _4FX0TLFT31361347571T      c  r          [  Ķ                                               WINDOWS _4FX0TLFT41361347571շ                  ܸ  E                                               WINDOWS _4FX0TLFT51361347571V      e  t          ^  ǻ                                               WINDOWS _4FX0TLFT61380090276ؼ                    I                                               WINDOWS _4FX0TLFT71361347571Z      i  x          a                                                 WINDOWS _4FX0TLFT81361347571                    K                                               WINDOWS _4FX0TLFT91361347571\      k  z          c                                                 WINDOWS _4FX0TLFTA1361347571          	          N                                               WINDOWS _4FX0TLFTB1380090276_      n  }          g                                                 WINDOWS _4FX0TLFTC1361347571          
          Q                                               WINDOWS _4FX0TLFR01361347571b      q            i                                                 WINDOWS _4FX0TLFR01361347571                                                                       WINDOWS _4FX0TLFTF1361347571                                                                     WINDOWS _4FX0U2NFK1361347571                                                                       WINDOWS _4FX0U2NFL1531536051W      f  u          "                                                 WINDOWS _4FX0U2NFM1361347571                  @                                                 WINDOWS _4FY0W9U2U1361347571                                                                       WINDOWS _5US0XJNSN1534164346a      q              O                                               COMMENT RESERVED                                "                                                            l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      KV     &BorderStyle = 3
Height = 577
Width = 631
ShowWindow = 1
DoCreate = .T.
ShowTips = .F.
AutoCenter = .T.
Caption = "KV-Beitrge und Umlagen"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "KV"
     MPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS p1
IF PCOUNT() = 0 
	p1 = 1
ENDIF
IF p1 = 0
	p1 = 1
ENDIF
IF thisform.Top < 0
	thisform.Top = 0
endif
mykv=thisform

PUBLIC ARRAY kvzahl(12)
PUBLIC ARRAY kvzahle(12)
PUBLIC ARRAY zusatz(12)
PUBLIC ARRAY u1zahl(12)
PUBLIC ARRAY u2zahl(12)
PUBLIC umlagesatz

STORE 0.00 to kvzahl
STORE 0.00 to kvzahle
STORE 0.00 to zusatz
STORE 0.00 to u1zahl
STORE 0.00 to u2zahl
umlagesatz=0.0000

PUBLIC zwang1

thisform.combo1.listindex=p1

thisform.Label22.Caption = ALLTRIM(STR(welchesjahr,4,0))

For i = 1 To 35   &&Krankenversicherung
    thisform.Combo1.AddItem(ALLTRIM(zt46(i)) + "  (Text " + ALLTRIM(STR(4920 + i,5,0)) + ")")
NEXT

If zi(1+46) < 36 Then
   thisform.Combo1.ListIndex = zi(1+46) + 1 &&vorher ohne + 1
Else
   thisform.Combo1.ListIndex = 32
EndIf
thisform.Combo1.Click
Umlagesatz = insolvenzgeld / 1000 &&vorher  Format(insolvenzgeld / 1000, "0.000")

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     ^    E  E                        ig   %   j        2               U    C     U  THISFORM SIZER	 FRMRESIZE 4   %Ct % 
 T    %   G 
 T    %   
o  T    
 T  
 7 
 7 
 7 
 7 
 7  7	  J        (  J        (  J        (  J        (  J        (  T	          7
  T      T 
  CC  Z  (#> CCC      (Text CC8  Z )     %C/ $
 T   C/  ! T     
     T	   %    z T C    T 
 T  
     T       T      
    T  a U  P1 THISFORM TOP MYKV KVZAHL KVZAHLE ZUSATZ U1ZAHL U2ZAHL
 UMLAGESATZ ZWANG1 COMBO1	 LISTINDEX LABEL22 CAPTION WELCHESJAHR I ADDITEM ZT46 ZI CLICK
 INSOLVENZGELD HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 q  A  A AA       q RQQQQQr 2rA R 1A  !  A    2                       ,         G   B      )   E                        
commandbutton      
commandbutton      
SSCommand6      KV      fTop = 1
Left = 6
Height = 33
Width = 205
Caption = "Vorgaben"
TabIndex = 1
Name = "SSCommand6"
     	PROCEDURE Click
zwang1 = True
&&Jahreswechsel done2021
xxwelchesjahr = ALLTRIM(STR(welchesjahr,4,0))
kkvorgaben = "nix"
DO FORM kkvorgabenwahl
IF kkvorgaben = "nix"
	hinweis("Vorgang wurde abgerochen!")
	RETURN
ENDIF

do Case &&welchesjahr
Case welchesjahr = Jahr1 
     DO kassen&xxwelchesjahr &&2018 &&Jahreswechsel done2021
Case welchesjahr = Jahr2 
     DO kassen&xxwelchesjahr &&2019 &&Jahreswechsel done2021
Case welchesjahr = Jahr3 
     DO kassen&xxwelchesjahr &&2020 &&Jahreswechsel done2021
Case welchesjahr = jahr4 
     DO kassen&xxwelchesjahr &&2021 &&Jahreswechsel done2021
Case welchesjahr = jahr5 
     DO kassen&xxwelchesjahr &&2022 &&Jahreswechsel done2021
Endcase
For i = 1 To 12
    kvzahl(i) = kvbeitrag1(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    u1zahl(i) = kvbeitrag2(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    u2zahl(i) = kvbeitrag3(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    kvzahle(i) = kvbeitrag4(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    zusatz(i) = kvbeitrag5(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
NEXT


Do Case &&welchesjahr
	Case welchesjahr >= 2014 .Or. welchesjahr <= 2015
		insolvenzgeld = 150
	Case welchesjahr = 2016
		insolvenzgeld = 120 &&jahreswechsel done2021
	Case welchesjahr = 2017
		insolvenzgeld = 90 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr,2018, 2019, 2020) &&jahreswechsel done2021
		insolvenzgeld = 60 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr, 2021) &&jahreswechsel done2021
		insolvenzgeld = 120 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr, 2022) &&jahreswechsel done2021
		insolvenzgeld = 90 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr, 2023) &&jahreswechsel done2021
		insolvenzgeld = 60 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr, 2024) &&jahreswechsel done2024
		insolvenzgeld = 60 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016
	Case Inlist(welchesjahr, 2025) &&jahreswechsel done2024
		insolvenzgeld = 150 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016		
	Case Inlist(welchesjahr, 2026, 2027) &&jahreswechsel done2024
		insolvenzgeld = 150 &&jahreswechsel Bundesgestzblatt S. 2211 nr. 47 vom 04.10.2016	
Endcase

DO voreinstaus

thisform.refresh
ENDPROC
                                      %           5   '            U  
 T    T CC  Z T  nix  kkvorgabenwahl %  nix & C Vorgang wurde abgerochen!  B 
 H z     DO kassen&xxwelchesjahr 
     DO kassen&xxwelchesjahr 
  	   DO kassen&xxwelchesjahr 
  
 M DO kassen&xxwelchesjahr 
   z DO kassen&xxwelchesjahr 
   (N% T
  C      d% T  C      d% T  C      d% T  C      d% T  C      d 
 H_  	  
 T   
 T x  
 T Z C 
 T < C 
 T x C 0
 T Z C P
 T < C p
 T < C 
 T  C 
 T    
    U  ZWANG1 TRUE
 XXWELCHESJAHR WELCHESJAHR
 KKVORGABEN KKVORGABENWAHL HINWEIS JAHR1 JAHR2 JAHR3 JAHR4 JAHR5 I KVZAHL
 KVBEITRAG1 THISFORM COMBO1	 LISTINDEX U1ZAHL
 KVBEITRAG2 U2ZAHL
 KVBEITRAG3 KVZAHLE
 KVBEITRAG4 ZUSATZ
 KVBEITRAG5
 INSOLVENZGELD VOREINSTAUS REFRESH Click,     1  raAaA A  A qQQQQQA   ! !  1 1 1 1 1 q A r  1                       	      )                           
commandbutton      
commandbutton      
SSCommand4      KV      eTop = 1
Left = 213
Height = 33
Width = 205
Caption = "Hilfe"
TabIndex = 3
Name = "SSCommand4"
      BPROCEDURE Click
inet = 111
Msg = "50"
DO insinternet
ENDPROC
                                         %   n             }             U  & 
 T  o T  50   U  INET MSG INSINTERNET Click,     1   q 1                       7       )                            
commandbutton      
commandbutton      
SSCommand5      KV      wTop = 1
Left = 420
Height = 33
Width = 205
Cancel = .T.
Caption = "Schlieen"
TabIndex = 4
Name = "SSCommand5"
      PROCEDURE Click
tasteflop = True
tastenummer = 0
If zwang1 = true 
 	do neudurchrechnen
EndIf
thisform.release
ENDPROC
     >    %  %                        A   %                             U  C 
 T   
 T   %  2    
    U 	 TASTEFLOP TRUE TASTENUMMER ZWANG1 NEUDURCHRECHNEN THISFORM RELEASE Click,     1   q A  1                       t       )   %                        
commandbutton      
commandbutton      
SSCommand1      KV      |Top = 35
Left = 6
Height = 33
Width = 620
Caption = "Ihre Krankenkasse im Internet"
TabIndex = 5
Name = "SSCommand1"
     ePROCEDURE Click
inet = "000"
lindex=thisform.Combo1.ListIndex - 1 &&vorher ohne - 1
do Case 
Case lindex >= 0 .and. lindex <= 17 &&vorher 18
     mylink = 680  &&Msg = "aok.de/bawue/rd/2371.htm"
Case lindex = 18 &&Barmer
     mylink = 713  &&Msg = "barmer.de/barmer/web/Portale/Versichertenportal/Leistungen_20und_20Beitr_C3_A4ge/Beitr_C3_A4ge_20_26_20Beitragsrechner/Beitragss_C3_A4tze_20und_20Beitragsklassen/Beitragss_C3_A4tze/Beitrags-_C3_9CbersichtCID__2416.html"
Case lindex = 19 &&DAK
     mylink = 720  &&Msg = "dak.de/content/daktarife/beitragssaetze.html"
Case lindex = 20 &&KKH
     mylink = 722  &&Msg = "kkh.de/detail.cfm?pageid=183"
Case lindex = 21 &&Techniker
     mylink = 723  &&Msg = "tk-online.de/centaurus/generator/tk-online.de/dossiers/beitraege/010__tk__beitraege/01__beitragssatz/beitragssatz__nav.html"
Case (lindex >= 22 .and. lindex <= 33) .or. lindex > 34
     mylink = 688  &&Msg = allgemeine GKVs &&vorher 680
Case lindex = 34 &&Bundesknappschaft
     mylink = 728  &&Msg = "minijob-zentrale.de/lang_de/DE/0__Home/navNode.html__nnn=true"
ENDCASE

DO insinternet

ENDPROC
     H    /  /                        ;j   %                          U  = T   000 T    
 H4 /     	^  T   }  T     T     T     T (    !	  " T   "/ T     U  INET LINDEX THISFORM COMBO1	 LISTINDEX MYLINK INSINTERNET Click,     1 q        A r 2                       Z      )   /                        label      label      Label1      KV      FontBold = .T.
FontSize = 18
Caption = "Beitrags- und Umlagestze der Krankenkasse"
Height = 32
Left = 6
Top = 69
Width = 620
TabIndex = 6
Name = "Label1"
      label      label      Label2      KV      FontBold = .T.
FontSize = 18
Caption = "Krankenversicherung"
Height = 29
Left = 129
Top = 135
Width = 261
TabIndex = 21
Name = "Label2"
      label      label      Label3      KV      WordWrap = .T.
Alignment = 2
Caption = "Allgmeiner Beitragssatz 50 : 50"
Height = 51
Left = 130
Top = 168
Width = 78
TabIndex = 22
Name = "Label3"
      label      label      Label4      KV      WordWrap = .T.
Alignment = 2
Caption = "ermigter*) Beitragssatz 50 : 50"
Height = 51
Left = 218
Top = 168
Width = 78
TabIndex = 36
Name = "Label4"
      label      label      Label5      KV      WordWrap = .T.
Alignment = 2
Caption = "Zusatzbeitrag"
Height = 51
Left = 304
Top = 168
Width = 78
TabIndex = 49
Name = "Label5"
      label      label      Label6      KV      WordWrap = .T.
Alignment = 2
Caption = "%-Satz der Umlage fr die Entgeltfortzahlung"
Height = 51
Left = 401
Top = 168
Width = 105
TabIndex = 62
Name = "Label6"
      label      label      Label7      KV      WordWrap = .T.
Alignment = 2
Caption = "%-Satz der Umlage fr den Mutterschutz"
Height = 51
Left = 509
Top = 168
Width = 105
TabIndex = 75
Name = "Label7"
      label      label      Label8      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Januar"
Height = 21
Left = 24
Top = 223
Width = 87
TabIndex = 7
Name = "Label8"
      label      label      Label9      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Februar"
Height = 21
Left = 24
Top = 246
Width = 87
TabIndex = 8
Name = "Label9"
      label      label      Label10      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Mrz"
Height = 21
Left = 24
Top = 269
Width = 87
TabIndex = 9
Name = "Label10"
      label      label      Label11      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "April"
Height = 21
Left = 24
Top = 292
Width = 87
TabIndex = 10
Name = "Label11"
      label      label      Label12      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Mai"
Height = 21
Left = 24
Top = 315
Width = 87
TabIndex = 11
Name = "Label12"
      label      label      Label13      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Juni"
Height = 21
Left = 24
Top = 338
Width = 87
TabIndex = 12
Name = "Label13"
      label      label      Label14      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Juli"
Height = 21
Left = 24
Top = 361
Width = 87
TabIndex = 13
Name = "Label14"
      label      label      Label15      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "August"
Height = 21
Left = 24
Top = 384
Width = 87
TabIndex = 14
Name = "Label15"
      label      label      Label16      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "September"
Height = 21
Left = 24
Top = 407
Width = 87
TabIndex = 15
Name = "Label16"
      label      label      Label17      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Oktober"
Height = 21
Left = 24
Top = 430
Width = 87
TabIndex = 16
Name = "Label17"
      label      label      Label18      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "November"
Height = 21
Left = 24
Top = 453
Width = 87
TabIndex = 17
Name = "Label18"
      label      label      Label19      KV      FontSize = 12
Alignment = 0
BorderStyle = 1
Caption = "Dezember"
Height = 21
Left = 24
Top = 476
Width = 87
TabIndex = 18
Name = "Label19"
      textbox      textbox      Text1      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(1)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 23
Top = 222
Width = 79
Name = "Text1"
      cPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)

thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       X       )                            textbox      textbox      Text2      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(1)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 37
Top = 222
Width = 79
Name = "Text2"
      cPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)

thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       X       )                            textbox      textbox      Text3      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(1)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 50
Top = 222
Width = 79
Name = "Text3"
      cPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)

thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       X       )                            textbox      textbox      Text4      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(1)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 63
Top = 222
Width = 79
Name = "Text4"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text5      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(1)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 76
Top = 222
Width = 79
Name = "Text5"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text6      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(2)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 24
Top = 245
Width = 79
Name = "Text6"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text7      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(3)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 38
Top = 245
Width = 79
Name = "Text7"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text8      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(2)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 51
Top = 245
Width = 79
Name = "Text8"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text9      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(2)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 64
Top = 245
Width = 79
Name = "Text9"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text10      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(2)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 77
Top = 245
Width = 79
Name = "Text10"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text11      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(3)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 25
Top = 268
Width = 79
Name = "Text11"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text12      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(3)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 39
Top = 268
Width = 79
Name = "Text12"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text13      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(3)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 52
Top = 268
Width = 79
Name = "Text13"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text14      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(3)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 65
Top = 268
Width = 79
Name = "Text14"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text15      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(3)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 78
Top = 268
Width = 79
Name = "Text15"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text16      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(4)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 26
Top = 291
Width = 79
Name = "Text16"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text17      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(4)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 40
Top = 291
Width = 79
Name = "Text17"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text18      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(4)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 53
Top = 291
Width = 79
Name = "Text18"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text19      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(4)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 66
Top = 291
Width = 79
Name = "Text19"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text20      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(4)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 79
Top = 291
Width = 79
Name = "Text20"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text21      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(5)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 27
Top = 314
Width = 79
Name = "Text21"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text22      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(5)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 41
Top = 314
Width = 79
Name = "Text22"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text23      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(5)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 54
Top = 314
Width = 79
Name = "Text23"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text24      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(5)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 67
Top = 314
Width = 79
Name = "Text24"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text25      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(5)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 80
Top = 314
Width = 79
Name = "Text25"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text26      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(6)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 28
Top = 337
Width = 79
Name = "Text26"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text27      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(6)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 42
Top = 337
Width = 79
Name = "Text27"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text28      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(6)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 55
Top = 337
Width = 79
Name = "Text28"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text29      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(6)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 68
Top = 337
Width = 79
Name = "Text29"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text30      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(6)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 81
Top = 337
Width = 79
Name = "Text30"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text31      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(7)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 29
Top = 360
Width = 79
Name = "Text31"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text32      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(7)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 43
Top = 360
Width = 79
Name = "Text32"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text33      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(7)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 56
Top = 360
Width = 79
Name = "Text33"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text34      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(7)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 69
Top = 360
Width = 79
Name = "Text34"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text35      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(7)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 82
Top = 360
Width = 79
Name = "Text35"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text36      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(8)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 30
Top = 383
Width = 79
Name = "Text36"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text37      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(8)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 44
Top = 383
Width = 79
Name = "Text37"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text38      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(8)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 57
Top = 383
Width = 79
Name = "Text38"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text39      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(8)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 70
Top = 383
Width = 79
Name = "Text39"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text40      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(8)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 83
Top = 383
Width = 79
Name = "Text40"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text41      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(9)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 31
Top = 406
Width = 79
Name = "Text41"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text42      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(9)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 45
Top = 406
Width = 79
Name = "Text42"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text43      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(9)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 58
Top = 406
Width = 79
Name = "Text43"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text44      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(9)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 71
Top = 406
Width = 79
Name = "Text44"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text45      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(9)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 84
Top = 406
Width = 79
Name = "Text45"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text46      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(10)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 32
Top = 429
Width = 79
Name = "Text46"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text47      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(10)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 46
Top = 429
Width = 79
Name = "Text47"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text48      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(10)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 59
Top = 429
Width = 79
Name = "Text48"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text49      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(10)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 72
Top = 429
Width = 79
Name = "Text49"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text50      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(10)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 85
Top = 429
Width = 79
Name = "Text50"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text51      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(11)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 33
Top = 452
Width = 79
Name = "Text51"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text52      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(11)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 47
Top = 452
Width = 79
Name = "Text52"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text53      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(11)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 60
Top = 452
Width = 79
Name = "Text53"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text54      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(11)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 73
Top = 452
Width = 79
Name = "Text54"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text55      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(11)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 86
Top = 452
Width = 79
Name = "Text55"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text56      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahl(12)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 130
SelectOnEntry = .T.
TabIndex = 34
Top = 475
Width = 79
Name = "Text56"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text57      KV      Alignment = 3
Value = 0.00
ControlSource = "kvzahle(12)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 218
SelectOnEntry = .T.
TabIndex = 48
Top = 475
Width = 79
Name = "Text57"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text58      KV      Alignment = 3
Value = 0.00
ControlSource = "zusatz(12)"
Format = "999.999"
Height = 22
InputMask = "999.99"
Left = 304
SelectOnEntry = .T.
TabIndex = 61
Top = 475
Width = 79
Name = "Text58"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text59      KV      Alignment = 3
Value = 0.00
ControlSource = "u1zahl(12)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 414
SelectOnEntry = .T.
TabIndex = 74
Top = 475
Width = 79
Name = "Text59"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            textbox      textbox      Text60      KV      Alignment = 3
Value = 0.00
ControlSource = "u2zahl(12)"
Format = "999.99"
Height = 22
InputMask = "999.99"
Left = 522
SelectOnEntry = .T.
TabIndex = 87
Top = 475
Width = 79
Name = "Text60"
      aPROCEDURE Valid
kv_eingabe(LASTKEY(),this.controlsource,this.value)
thisform.refresh
ENDPROC
     	                                    %                             U  %  CC|      
    U 
 KV_EINGABE THIS
 CONTROLSOURCE VALUE THISFORM REFRESH Valid,     1  1                       V       )                            label      label      Label20      KV      wCaption = "Insolvenzgeldumlage in %"
Height = 18
Left = 25
Top = 537
Width = 150
TabIndex = 20
Name = "Label20"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      KV      Top = 546
Left = 597
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label21      KV      Caption = "*) z.B. bei Altersteilzeit in der Freistellungsphase"
Height = 18
Left = 132
Top = 500
Width = 430
TabIndex = 35
Name = "Label21"
      textbox      textbox      Text61      KV      FontBold = .T.
ControlSource = "umlagesatz"
Enabled = .F.
Height = 22
Left = 178
TabIndex = 88
Top = 534
Width = 79
Name = "Text61"
      hPROCEDURE Valid
insolvenzgeld = Umlagesatz &&thisform.text61.value
DO voreinstaus
Return 1
ENDPROC
                                      4S   %   x                          U    
 T     	 B U 
 INSOLVENZGELD
 UMLAGESATZ VOREINSTAUS Valid,     1  q  1                       ]       )                            
commandbutton      
commandbutton      
SSCommand3      KV      eTop = 534
Left = 268
Height = 21
Width = 63
Caption = "Info"
TabIndex = 2
Name = "SSCommand3"
      UPROCEDURE Click
inet = 310
Msg = "I/Insolvenzgeldumlage"
DO insinternet
ENDPROC
                                      
   %                             U  :  T  6" T  I/Insolvenzgeldumlage   U  INET MSG INSINTERNET Click,     1  !q 1                       J       )                            label      label      Label22      KV      FontBold = .T.
FontSize = 18
Caption = "Label22"
Height = 27
Left = 21
Top = 177
Width = 96
TabIndex = 89
Name = "Label22"
      combobox      combobox      Combo1      KV      jHeight = 27
Left = 8
Style = 2
TabIndex = 90
Top = 104
Width = 620
ReadOnly = .F.
Name = "Combo1"
     <PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
thisform.refresh
For i = 1 To 12
    kvzahl(i) = kvbeitrag1(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    u1zahl(i) = kvbeitrag2(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    u2zahl(i) = kvbeitrag3(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    kvzahle(i) = kvbeitrag4(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
    zusatz(i) = kvbeitrag5(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
Next
thisform.refresh
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                      %         I     +            U  
 
     U  THIS CLICK 
      ( % T  C       d% T  C       d% T	  C      
 d% T  C       d% T
  C       d 
     U  THISFORM REFRESH I KVZAHL
 KVBEITRAG1 COMBO1	 LISTINDEX U1ZAHL
 KVBEITRAG2 U2ZAHL
 KVBEITRAG3 KVZAHLE
 KVBEITRAG4 ZUSATZ
 KVBEITRAG5
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChange    1  2  qQQQQQA  2  1                       '         C        
   '  1      )                           BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
   %        1 
  s N{[    U  H
   A
 T   T  T   T   T  T  T   T   T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T & T  T ( T   T	   T
  Cy  ATV  T   T   T   T w T   T  T   T	   T
   Cy  ATV  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy	  ATV  T   T   T   T X T ( T   T   T	   T
  Cy
  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy  ATV  Cy  ATV  T   T   T   T  T A T   T   T	   T
  Cy  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy
  ATV  Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
  Cy  ATV  T   T   T   T  T   T   T   T	   T
 , Cy  ATV  T   T   T   T D T  T @ T   T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T N T   T   T   T	   T
 E Cy  ATV  T   T   T   T  T K T   T   T	   T
  Cy  ATV  T   T   T   T x T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T  T   T   T  T  T   T   T	   T
  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T   T   T 0 T  T	   T
   Cy  ATV  T   T   T   T   T   T  T ( T	   T
   Cy   ATV  T   T   T   T   T   T  T   T	   T
   Cy!  ATV  T   T   T   T   T   T  T   T	   T
  Cy"  ATV  T   T   T   T   T   T  T  T	   T
   Cy#  ATV  T   T   T   T d T   T  T  T	   T
   Cy$  ATV  T   T   T   T d T   T  T  T	   T
   Cy%  ATV  T   T   T   T d T   T  T  T	   T
   Cy&  ATV  T   T   T   T   T   T  T   T	   T
   Cy'  ATV  T   T   T   T   T   T  T   T	   T
   Cy(  ATV  T   T   T   T   T   T   T   T	   T
   Cy)  ATV  T   T   T   T   T   T   T   T	   T
   Cy*  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy,  ATV  T   T   T   T   T   T   T   T	   T
   Cy-  ATV  T   T   T   T   T   T   T   T	   T
   Cy.  ATV  T   T   T   T   T   T   T   T	   T
   Cy/  ATV  T   T   T   T   T   T   T   T	   T
   Cy0  ATV  T   T   T   T   T   T   T   T	   T
   Cy1  ATV  T   T   T   T   T   T   T   T	   T
   Cy2  ATV 
 T 2 T  T   T   T  T  T   T   T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T & T  T ( T   T	   T
  Cy  ATV  T   T   T   T w T   T  T   T	   T
   Cy  ATV  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy	  ATV  T   T   T   T X T ( T   T   T	   T
  Cy
  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy  ATV  Cy  ATV  T   T   T   T  T A T   T   T	   T
  Cy  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy
  ATV  Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
  Cy  ATV  T   T   T   T  T   T   T   T	   T
 , Cy  ATV  T   T   T   T D T  T @ T   T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T N T   T   T   T	   T
 E Cy  ATV  T   T   T   T  T K T   T   T	   T
  Cy  ATV  T   T   T   T x T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T  T   T   T  T  T   T   T	   T
  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T d T   T  T  T	   T
   Cy  ATV  T   T   T   T   T   T 0 T  T	   T
   Cy  ATV  T   T   T   T   T   T  T ( T	   T
   Cy   ATV  T   T   T   T   T   T  T   T	   T
   Cy!  ATV  T   T   T   T   T   T  T   T	   T
  Cy"  ATV  T   T   T   T   T   T  T  T	   T
   Cy#  ATV  T   T   T   T d T   T  T  T	   T
   Cy$  ATV  T   T   T   T d T   T  T  T	   T
   Cy%  ATV  T   T   T   T d T   T  T  T	   T
   Cy&  ATV  T   T   T   T   T   T  T   T	   T
   Cy'  ATV  T   T   T   T   T   T  T   T	   T
   Cy(  ATV  T   T   T   T   T   T   T   T	   T
   Cy)  ATV  T   T   T   T   T   T   T   T	   T
   Cy*  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy,  ATV  T   T   T   T   T   T   T   T	   T
   Cy-  ATV  T   T   T   T   T   T   T   T	   T
   Cy.  ATV  T   T   T   T   T   T   T   T	   T
   Cy/  ATV  T   T   T   T   T   T   T   T	   T
   Cy0  ATV  T   T   T   T   T   T   T   T	   T
   Cy1  ATV  T   T   T   T   T   T   T   T	   T
   Cy2  ATV 
 T d T  T   T   T  T  T   T   T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T & T  T ( T   T	   T
  Cy  ATV  T   T   T   T w T   T  T   T	   T
   Cy  ATV  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy	  ATV  T   T   T   T X T ( T   T   T	   T
  Cy
  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy  ATV  Cy  ATV  T   T   T   T  T A T   T   T	   T
  Cy  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy
  ATV  Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
  Cy  ATV  T   T   T   T  T   T   T   T	   T
 , Cy  ATV  T   T   T   T D T  T @ T   T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T N T   T   T   T	   T
 E Cy  ATV  T   T   T   T  T K T   T   T	   T
  Cy  ATV  T   T   T   T x T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T  T   T   T  T  T   T   T	   T
  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T   T   T 0 T  T	   T
   Cy  ATV  T   T   T   T   T   T  T ( T	   T
   Cy   ATV  T   T   T   T   T   T  T   T	   T
   Cy!  ATV  T   T   T   T   T   T  T   T	   T
  Cy"  ATV  T   T   T   T   T   T  T  T	   T
   Cy#  ATV  T   T   T   T j T   T q T  T	   T
   Cy$  ATV  T   T   T   T j T   T q T  T	   T
   Cy%  ATV  T   T   T   T d T   T  T  T	   T
   Cy&  ATV  T   T   T   T   T   T  T   T	   T
   Cy'  ATV  T   T   T   T   T   T  T   T	   T
   Cy(  ATV  T   T   T   T   T   T   T   T	   T
   Cy)  ATV  T   T   T   T   T   T   T   T	   T
   Cy*  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy,  ATV  T   T   T   T   T   T   T   T	   T
   Cy-  ATV  T   T   T   T   T   T   T   T	   T
   Cy.  ATV  T   T   T   T   T   T   T   T	   T
   Cy/  ATV  T   T   T   T   T   T   T   T	   T
   Cy0  ATV  T   T   T   T   T   T   T   T	   T
   Cy1  ATV  T   T   T   T   T   T   T   T	   T
   Cy2  ATV 
 T  T  T   T   T  T  T   T   T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T & T  T ( T   T	   T
  Cy  ATV  T   T   T   T w T   T  T   T	   T
   Cy  ATV  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy	  ATV  T   T   T   T X T ( T   T   T	   T
  Cy
  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy  ATV  Cy  ATV  T   T   T   T  T A T   T   T	   T
  Cy  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy
  ATV  Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
  Cy  ATV  T   T   T   T  T   T   T   T	   T
 , Cy  ATV  T   T   T   T D T  T @ T   T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T N T   T   T   T	   T
 E Cy  ATV  T   T   T   T  T K T   T   T	   T
  Cy  ATV  T   T   T   T x T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T  T   T   T  T  T   T   T	   T
  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T   T   T 0 T  T	   T
   Cy  ATV  T   T   T   T   T   T  T ( T	   T
   Cy   ATV  T   T   T   T   T   T  T   T	   T
   Cy!  ATV  T   T   T   T   T   T  T   T	   T
  Cy"  ATV  T   T   T   T   T   T  T  T	   T
   Cy#  ATV  T   T   T   T j T   T q T  T	   T
   Cy$  ATV  T   T   T   T j T   T q T  T	   T
   Cy%  ATV  T   T   T   T d T   T  T  T	   T
   Cy&  ATV  T   T   T   T   T   T  T   T	   T
   Cy'  ATV  T   T   T   T   T   T  T   T	   T
   Cy(  ATV  T   T   T   T   T   T   T   T	   T
   Cy)  ATV  T   T   T   T   T   T   T   T	   T
   Cy*  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy,  ATV  T   T   T   T   T   T   T   T	   T
   Cy-  ATV  T   T   T   T   T   T   T   T	   T
   Cy.  ATV  T   T   T   T   T   T   T   T	   T
   Cy/  ATV  T   T   T   T   T   T   T   T	   T
   Cy0  ATV  T   T   T   T   T   T   T   T	   T
   Cy1  ATV  T   T   T   T   T   T   T   T	   T
   Cy2  ATV 
 T  T  T   T   T  T  T   T   T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T & T  T ( T   T	   T
  Cy  ATV  T   T   T   T w T   T  T   T	   T
   Cy  ATV  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy	  ATV  T   T   T   T X T ( T   T   T	   T
  Cy
  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy  ATV  Cy  ATV  T   T   T   T  T A T   T   T	   T
  Cy  ATV  T   T   T   T l T 2 T   T   T	   T
  Cy
  ATV  Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
  Cy  ATV  T   T   T   T  T   T   T   T	   T
 , Cy  ATV  T   T   T   T D T  T @ T   T	   T
   Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T  T   T   T   T	   T
 ^ Cy  ATV  T   T   T   T N T   T   T   T	   T
 E Cy  ATV  T   T   T   T  T K T   T   T	   T
  Cy  ATV  T   T   T   T x T   T  T  T	   T
   Cy  ATV  T   T   T   T  T   T  T  T	   T
   Cy  ATV  T  T   T   T  T  T   T   T	   T
  Cy  ATV  T   T   T   T n T   T  T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T j T   T q T  T	   T
   Cy  ATV  T   T   T   T   T   T 0 T  T	   T
   Cy  ATV  T   T   T   T   T   T  T ( T	   T
   Cy   ATV  T   T   T   T   T   T  T   T	   T
   Cy!  ATV  T   T   T   T   T   T  T   T	   T
  Cy"  ATV  T   T   T   T   T   T  T  T	   T
   Cy#  ATV  T   T   T   T j T   T q T  T	   T
   Cy$  ATV  T   T   T   T j T   T q T  T	   T
   Cy%  ATV  T   T   T   T d T   T  T  T	   T
   Cy&  ATV  T   T   T   T   T   T  T   T	   T
   Cy'  ATV  T   T   T   T   T   T  T   T	   T
   Cy(  ATV  T   T   T   T   T   T   T   T	   T
   Cy)  ATV  T   T   T   T   T   T   T   T	   T
   Cy*  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy+  ATV  T   T   T   T   T   T   T   T	   T
   Cy,  ATV  T   T   T   T   T   T   T   T	   T
   Cy-  ATV  T   T   T   T   T   T   T   T	   T
   Cy.  ATV  T   T   T   T   T   T   T   T	   T
   Cy/  ATV  T   T   T   T   T   T   T   T	   T
   Cy0  ATV  T   T   T   T   T   T   T   T	   T
   Cy1  ATV  T   T   T   T   T   T   T   T	   T
   Cy2  ATV   U  ATV I	 DATVAGBIS	 DATVSTART DATVAREV
 DATVUMLAGE DATVUMLAGEAN DATVKAPITAL
 DATVKAPITALAN
 DATVSTEUER
 DATVSANIERUNG MYPUT T    2 C 121 % C   \atvveey ATV  %Cy  g    
 	  
 ('] Cy  
  ATV  T 
 
  T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
    T (  T (  T (  T (  T (  T (  T (  T (  T (  
 )(2 Cy  
  ATV  T 
 
  T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
     U  J WELCHESJAHR JAHR1 MYCLOSE MYOPEN EIGDAT MUSER LOF ATVUMLAGEANLEGEN ATV I MYGET ATVAGBIS	 DATVAGBIS ATVSTART	 DATVSTART ATVAREV DATVAREV	 ATVUMLAGE
 DATVUMLAGE ATVUMLAGEAN DATVUMLAGEAN ATVSANIERUNG
 DATVSANIERUNG
 ATVKAPITAL DATVKAPITAL ATVKAPITALAN
 DATVKAPITALAN	 ATVSTEUER
 DATVSTEUER  U  
 H
    d T ffffff? T "@ T ? T >  T >  T #  T #  T     T >  T >  T p
  T p
  T     T	 ? T
 ffffff?    T 333333? T "@ T ? T |  T |  T 8  T 8  T (   T |  T |  T (^  T (^  T (   T	 333333? T
 333333?    T ? T "@ T ? T Ri  T Ri  T H  T H  T 0   T Ri  T Ri  T H  T H  T 0   T	       @ T
 333333?   i T ? T "@ T ? T   T   T   T   T    T   T   T   T   T    T	 333333@ T
 333333?    T ? T "@ T ? T   T   T   T   T    T   T   T   T   T    T	 333333@ T
 333333?  U  WELCHESJAHR PVOREIN RVOREIN AVOREIN KVGRENZE PVGRENZE RVGRENZE AVGRENZE GERING ZUSATZKV ZUSATZPVf C #200  9 C  \gehaltC \ sr	 userdaten  Cf	 userdaten  T CC  g T  000CC  g T	  \userC R %	  \user001
N
 T
  
 T   
 T
 
  J   T     T     T          C #200   U  MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 MYGET USERNR	 USERDATEN PASS MSG MUSER MYINDEXE REGISTER LADEN FENSTEROFFEN	 MYTABLETT
 ADMINSICHTBAR EINGABE1 VALUE EINGABE2 EINGABE3 SETFOCUS 8 T   Geburtsjahrgang nach C A Z   (  ? T    Geburtsjahrgang C A  Z C T    Geburtsjahrgang vor C A  Z U  ZT31 WELCHESJAHR I-
 T   
 T     
 H. 7   c  T  C
  T        T 	 C
  T  	   
   T  C
  T       T 
 C
  T  
    7 T  C
  T           ( C  woerter  T CC  Z7 myform1.Modi&xxx..caption = Alltrim(woerter.textee)
   (*& C   woerter ! T  C     ( C   woerter ! T  C   %    	; T   TVAd/TV-L/AOK Auszubildende(r)  %  T C      T 	
 TV-L/H Pflege5 T 
" TV-L/H Sozial und Erziehungsdienst    E(L C   woerter ! T  EC   : %  &   C 		  	X1 T  Verm.wirks.Leistung 13,00 Euro1 T  Verm.wirks.Leistung 20,00 Euro 2 T  Mehrarbeitsverg. lt. Berechnung, T  Mehrarbeitsverg. pauschal* T  Betrag nach  11 MuSchG3 T   Gehalt nach Stundensatz lt. Anl.5 T  " Steuerfr. Zuschlge lt. Berechnung/ T   Steuerfr. Zuschlge pauschal  h(q C   woerter ! T!  hC   + T!  sonst. Bezug lt. Eingabe" T!  Leistungsprmie1 T!  Entschdigung  24 Abs. 1 EStG# T"  WoStd. v. normal# T"  Teile von normal$ T"  Prozent v. normal %C % T"  % Ruhegehalt von %  T"    " T#  Tage von normal' T#  Krzung auf ...% von
 Hk
% C   C 	% T#  % ATZ Arbeitsphase& T#  % ATZ Freizeitphase T#    T#    T#    CC 
( T#  % TV-ATZ Arbeitsphase) T#  % TV-ATZ Freizeitphase' T#  % AltTZG Blockmodell* T#  % TV-Falter Blockmodell+ T#  % TV-Falter Freist.Phase4 C  C 	 C 	( T#  % TV-ATZ Arbeitsphase) T#  % TV-ATZ Freizeitphase' T#  % AltTZG Blockmodell* T#  % TV-FlexAZ Blockmodell+ T#  % TV-FlexAZ Freist.Phase CC 	
( T#  % TV-ATZ Arbeitsphase) T#  % TV-ATZ Freizeitphase' T#  % AltTZG Blockmodell T#    T#    , T$  Monatl. Steuerfreibetrag / T$  Monatl. Hinzurechnungsbetrag* T$  davon Versorgungsbezge  ( C   woerter ' T%   + C   2 T%  - Abzugsfrei n.  3 Nr. 26 EStG  (- C   woerter ' T%   - C   ( T%  + Krankengeldzuschuss   ( T&  C %    T({ C   woerter ! T'  TC   + T'  Versorgungsrcklage in %6 T' # Versorgungsaufwand in % lt. Eingabe6 T' # Versorgungsaufwand in Euro lt.Eing.' T'  VBL-Abr.-Verband OST2 T' 
 ZVK f. Gemeinden in Brandenburg1 T'  ZVK f. Gdn. in Mecklenb.-Vorp.- T'  ZVK f.Gemeinden in Sachsen/ T'  ZVK f.Gdn. in Sachsen-Anhalt1 T'  ZVK fr Gemeinden in Thringen! T'  VBL-OST Lnder T'  VBL-OST VKA T' % VBL-OST Bund! T' & VBL-OST Lnder T' ' VBL-OST VKA! T' ( VBL-Extra West+ T' ) Keine Zusatzversicherung  A(J C   woerter % T'  A)C     (5 C   woerter ! T(  C   4 T( CC(   C *  0.000)  %4 T( CC(   C +  0.000)  %R T(  Zusatzbeitr.KV=C *  0.000)  %, PV=C +  0.00)  %8 T( % Zusatzbeitr. PV nur als Steuermerkmal ,   
(
 C   woerter ! T-  
C      (" C9  woerter " T.  CC   4 T. $! KV-Beitragssatz lt.Eing. in Z. 37. T/  SV-pfl.Entgelt b.anderem AG, T/  AG trgt alle SV-Beitrge. T0  Mit LSt.J.Ausgl.d.AG i.Dez./ T0  Ohne LSt.J.Ausgl.d.AG i.Dez.  (' C   woerter ! T1  C     
( C   woerter ! T2  
C   / T2 4 Lohnsteuersteuer lt. Eingabe1 T2 5 Nichtveranlagungsbescheinigung. T2 6 Pauschalsteuer AG=2%, AN=0%. T2 7 Pauschalsteuer AG=0%, AN=2%  ,(7 C   woerter ! T3  ,C   . T3 	 Pauschalsteuer AG=2%, AN=0%6 T3 
# Lohnsteuerklassenrechner (Internet)   (A- T4  C  0.0)   KFB   (% C   woerter ! T5  C   ) T5  Kindergeld lt. Eingabe %C# e- T5 	 ATZ-Aufstock. Arbeitsphase. T5 
 ATZ-Aufstock. Freizeitphase. T5  ATZ-Aufstockung lt. Eingabe - T5 	 ATZ-Aufstock. Arbeitsphase. T5 
 ATZ-Aufstock. Freizeitphase. T5  ATZ-Aufstockung lt. Eingabe 4 T5 ! Kindergeld f. Zhlkinder Zeile 10  &(( C   woerter ! T6  &C   0 T6  Soli.Z. in Pauschalstr. enth.  )(0 C   woerter ! T7  )C   0 T7 	 Ki.Str. in Pauschalstr. enth.   (	X T8   KV-Beitrag           CC0@ 

Z  % / 2U T8   KV-AG-Zuschu CC0@ 

Z  % / 2   
(<P T8   KV-Beitrag           CC
 

Z  % / 2M T8   KV-AG-Zuschu CC
 

Z  % / 2 $ T8 { KV. AN=0%, AG=10%- T8 | Befreit von der KV-Pflicht* T8 } KV-Beitrag laut Eingabe- T8 ~ KV-AG-Zuschu laut Eingabe$ T8  KV. AN=0%, AG=13%$ T8   KV. AN=0%, AG=0% % +5 T8  ! KV-bergangsb.einzige Beschftig.4 T8    KV-bergangsb. lt.bes.Berechnung 8 T8  $ KV-Gleitzone - einzige Beschftigung4 T8    KV-Gleitzone lt. bes. Berechnung  T9 
 KV-Beitrag% T9  AG-Zusch. priv. KV %  ) T9  KV-Beitrag bergangsb. O' T9  KV-Gleitzonenbeitrag - T9  Befreit von der KV-Pflicht$ T9  KV. AN=0%, AG=10%$ T9  KV. AN=0%, AG=13%# T9  KV. AN=0%, AG=0%* T9  KV-Beitrag laut Eingabe- T9 	 KV-AG-Zuschu laut Eingabe % 1 T9 
 KV-Beitrag bergangsb.lt.Eing. 1 T9 
 KV-Gleitzonenbeitrag lt. Eing. # T9  Erm.KV-Beitrag% T9  Erm.KV-AG-Zusch.( T9 
 AG-Zusch.freiw.ges.KV   (	; T:  CC0@ 

Z  % / 2   
(<3 T:  CC
 

Z  % / 2  ; 5 T< " Kein Beitrag zur ATV-Betriebsrente T=  ATV-Betriebsrente  %CC< L T< C<  ATV-Betriebsrente CCC* d 0.00)   % 5 T< " Umlage ATV-Betriebsrente lt. Eing.6 T< # Beitrag ATV-Betriebsrente lt. Eing./ T<  RG-Beitrag lt. HmbZVG 1,25 %
 H;     = T<  RG-Beitrag lt. HmbZVG CC> Z  % * T?  - Einbehalt lt. Eingabe- T?  - Vermgenswirksame Anlage2 T?  - Sparrate mit Riesterfrderung3 T?   - ESt  3 Gehaltsumw. lfd.Gehalt6 T? # - ESt  3 Gehaltsumw. Einmalzahlung4 T? ! - ESt 40b Gehaltsumw. lfd.Gehalt7 T? $ - ESt 40b Gehaltsumw. Einmalzahlung( T?  - Untersttzungskasse+ T? 	 - Freiw. Beihilfebeitrag5 T? 
" - Gesamt-SV-Beitrag (Firmenzahler)2 T?  - Gesamt-SV-Beitrag lt. Eingabe  ( # C   woerter ' T?  u - C    T? 
 + Beihilfe* T?  + Reisekostenerstattung3 T?   + Zuschu fr Fahrten zur Arbeit3 T?   + Zuschu f.auswrtige Verpfleg.3 T?   + Zuschu f.doppelte Haushaltsf.! T?  + Sitzungsgeld  T?  
 + Kleidergeld1 T? ! + Zuschu z. Mutterschaftsgeld- T? " + Kindererziehungszuschlag, T? # + Zuschlag zum Ruhegehalt* T? $ + Umzugskostenvergtung  (4% C   woerter ' T?  j + C      (0% T@  C ?  TA  C ?   % &4 TA -! Versorgungsabfindung f.mehrere J.4 TA .! Vergtung fr mehrjhrige Ttigk. . %  CC 

	(+ %CC  & TB  10%
 TC 
 & TB  25%
 TC  5 T? / 1 Std. freiw. Mehrarbeit TVD B 5 T? 0 2 Std. freiw. Mehrarbeit TVD B 5 T? 1 3 Std. freiw. Mehrarbeit TVD B 5 T@ / 1 Std. freiw. Mehrarbeit TVD B 5 T@ 0 2 Std. freiw. Mehrarbeit TVD B 5 T@ 1 3 Std. freiw. Mehrarbeit TVD B 5 TA / 1 Std. freiw. Mehrarbeit TVD B 5 TA 0 2 Std. freiw. Mehrarbeit TVD B 5 TA 1 3 Std. freiw. Mehrarbeit TVD B  & TD  A U S Z A H L U N G) TD  N E T T O G E H A L T  TE  100  TE  99,00 TE  98,75 TE  98,00 TE  97,50 TE  97,00 TE  96,25 TE  96,00 TE 	 95,00 TE 
 94,00 TE  93,75 TE  93,00 TE 
 92,50 TE  92,00 TE  91,25 TE  91,00 TE  90,00 TE  89,00 TE  88,75 TE  88,00 TE  87,50 TE  87,00 TE  86,25 TE  86,00 TE  85,00 TE  84,00 TE  83,75 TE  83,00 TE  82,50 TE  82,00 TE  81,25 TE   81,00 TE ! 80,00 TE " 79,00 TE # 78,75 TE $ 78,00 TE % 77,50 TE & 77,00 TE ' 76,25 TE ( 76,00 TE ) 75,00   ((-C TE  CC E  %    des normalen Tarifgehalts  F  UG  WELCHESJAHROLD WELCHESJAHR	 DATEIOPEN JAHR1 DIMEN DIMSATZANZAHLJ1 LOF
 SATZANZAHL JAHR2 DIMSATZANZAHLJ2 JAHR3 DIMSATZANZAHLJ3 JAHR4 DIMSATZANZAHLJ4 JAHR5 DIMSATZANZAHLJ5 NAMENINCOMBO KOSTENSTELLENINCOMBO I MYGET XXX ZT2 WOERTER TEXTEE ZT4 AOK_VERSION TRUE TVLNDER BDAEINSTELLUNGEN ZT10 ZI ZT15 ZT16 ZT19 ZT21 ZT22 ZT23 ZT47 ZT24 ZT25 ZT26 MYFORMAT ZUSATZKV ZUSATZPV VORGELAGERTEBESTEUERUNG ZT28 ZT46 ZT29 ZT30 ZT32 ZT33 ZT50 ZT51 ZT34 ZT35 ZT36 ZT37 ZT52 ZT53
 SOZVERSZEILEN ZT41	 ATVSTUMPF ZVKKAPITALAN ZT42 ZT43 ZT44 HSZUSATZMEHRARBEIT MEHRARBPROZ ZT45 ZT48
 MODUSKNOPF
 J  (  
 H   CC  . T   Leistungszulage lt. Eingabe %C 
 ' T   Keine Leistungsstufe  ( 8 T    Leistungsstufe CC  Z  D C  C 		 C 
 C 	I. T   Leistungszulage lt. Eingabe3 T    Leistungszulage Besitzstand dyn.2 T   Leistungszulage Besitzstand fix- T   Leistungszulage auslaufend5 T  " Teilzeitkrzung Vh.zuschlag zurck0 T   % Leistungszulage aus Stufe 23 T    % Leistungszulage aus "W"-Zeilen5 T  	" % Leist.Zulage aus Grundentgelt(8)5 T  
" % Leist.Zul. aus Grundentgelt(8+9)4 T  ! % Grundentgelt u. KiZuschl.(8,10)4 T  ! % Grundentgelt u. KiZuschl.(8-10)
 HsER C 
 C  C 	 C  C 2 T   Garantiebetrag  17 Abs. 4 TVD CC E2 T   Garantiebetrag  17 Abs. 4 TV-L C C   C 	 C  C    :(D C   woerter ! T   :C    C9 woerter  T  C   %C 
6 T  	# 8 % Absenkung Grundgehalt (Zeile 8)6 T  
# 4 % Absenkung Grundgehalt (Zeile 8)2 T   8 % Absenkung der Zeile 8 und 92 T   4 % Absenkung der Zeile 8 und 9% T  
 Ballungsraumzulage0 T   % Grundgehalt als Leist.Bezug4 T  ! % Grundgehalt(8) u.Zulagen(13-15)! %C 
	  	6 T  # % a.(Z8+Amtszulage)-(0,5% Z8bisZ20)  T        U  ZT11 ZI I MYGET WOERTER TEXTEE WELCHESJAHR
 H
 +     T     @6@ T     z@ T q=
ףp@
 T  T )\(@
 T    % T     @ T     U@ T 333333@
 T  T (\@
 T      T     n@ T     @0@ T 333333@
 T  T (\@
 T     / T N T N T 333333@
 T  T (\@
 T      T R T R T 333333@
 T  T (\@
 T     + T R T R T 333333@
 T  T (\@
 T   
 T  
 T 
 T  
 T	   T
 C  %
      U
  WELCHESJAHR ZVKBEMG	 ZVKUMLAGE ZVKAG ZVKHALB	 SANIERUNG AGSTEUER ZVKKISTR ZVKSTART ZVKAREV J ZI ATVUMSETZENI; %C   \gehaltC \ vaa.dbf   n    CF wvw  CG wnw   C #70 8 C   \gehaltC \ vaaF wvw  CF wvw  T	 C
  d C #71 8 C   \gehaltC \ vbbG wnw  CG wnw  U  MYFSIZE EIGDAT MUSER XJAHR4
 GRUNDSTELLUNG MYPUT MYCLOSE MYOPEN MYGET ZVKUMLAGEFIX WVW TNAM"
 T  d
 T   
 T  + T C]C] \testumgebung.txt IF FILE("&hsxdat") ) T C]C] \CC  Z   T C]C]  C   
 T   %	   
 T	  
 T
  
 T 
 T
   
 T   T C  Z
 T  
 T  
 C  6 %C  \gehaltC \ sr.dbf  	9 C  \gehaltC \ sr	 userdaten 
  	
 T     (x C  	 userdaten 
 T     (	o* T  CCC	 pc-gehalt \2   T   T  
 H  ( T  User001 (immer ffentlich)   T  User002  ! T  User003  G T  User004  m T  User005   T  User006   T  User007 C 	" T  User00CC  Z  
"! T  User0CC  Z  N T 
 Amtsleiter 10  z T 
 Amtsleiter 11   T 
 Amtsleiter 20  ) T 
 Amtsleiter 60  3 T 
 Amtsleiter 32  =* T 
 Amtsleiter 50  GV T 
 Amtsleiter 40  Q T 
 Amtsleiter 14  [ T 
 Amtsleiter 17    c	! T  User0CC  Z  d T  User100  eT T 
 Schutz aus T  Dezernenten  f T  1 T  10 Hauptamt  g T 
 11Personalamt  h T  20 Stadtkmmerei  i$ T  32 Ordnungsamt T  0  j^ T  40 Kulturamt T  0  k T  50 Sozialamt T  0  l" T  60 Bauverwaltungsamt T  0  m & T  14 Rechnungssprfungsamt T  0  nM T  17 Personalrat  o  x	 T  0X T " Bitte Programmverzeichnis auf dem CC n Z . Server eintragen  C  	 userdaten  
 T    C 200  * T   \gehaltC \ sr( myopen("&hsxdat" , 200 ,"userdaten")
 C 	 	 userdaten  T C   C    Ce	 userdaten   %C  
 Schutz ein	
 T    

 T     Cg	 userdaten  T! C  L %CC! \ 877444334126  CC! \ 172153393843

 T   

 T    Ck	 userdaten  CCC  g8 %"   T"  0  T"  1  
 H. 	  	 		m" T#  \user00CC	  Z 	 
 	 c	! T#  \user0CC	  Z 	 d T#  \user100  T$  # , If .Not. Dir("&hsxdir",vbdirectory) -
 T%  #  Mkdir "&mydir"
% T&  #  \neueansicht.pcg! T'  Bitte nicht lschen! G.+ STRTOFILE(hsdpiinhalt,"&hsdpifilename")
 G. # T&  #  \maxscreen.pcg! T'  Bitte nicht lschen! G.+ STRTOFILE(hsdpiinhalt,"&hsdpifilename")
 G.   T$  #  \Images, If .Not. Dir("&hsxdir",vbdirectory) 
 T%  #  \Images Mkdir "&mydir"
  %( F
 B 
 C  
 T)   %C* +  N T * +    T C* + g 
 H1 	  	 		k T  00CC	  Z 	 
 	 c	 T  0CC	  Z 	 d T CC	  Z  T#  \user 8 C #  \gehaltC \ vaaF wvw  C 70 7 %C #  \gehaltC \ vaa  8 C #  \gehaltC \ vaaF wvw 8 C #  \gehaltC \ vbbG wnw 
 T   T CC  Z 7,  Q STRING
 J  (,  7-  Q INTEGER
 J (- 
 T.  /  CF wvw  CG wnw   C 18 : C #  \gehaltC \ dim dimen  0  %1  
 T2 3 
 T1   
 T4 5  T6  7  T8 : T9 	 :  C 122 - C #  \kipauschveez Pausch  %Cz;   <  =  >  ?  @  ! Cz 7  Pausch 
 A U   (Q   (M1 TB   C  C     %D 

 TD  TE    G.% TF  #  \lohntabelle.dbf! IF .not. FILE("&hstable")CREATE table "&hstable" free (PERSNR N(10,2), NRDESTAG C(8), TAGESNAME C(10), von1 C(5), bis1 C(5), Dauer1 C(5), von2 C(5), bis2 C(5), Dauer2 C(5), von3 C(5), bis3 C(5), Dauer3 C(5), von4 C(5), bis4 C(5), Dauer4 C(5), Dauer1min N(10,0), Dauer2min N(10,0), Dauer3min N(10,0), Dauer4min N(10,0), Tage N(1,0), Stunden C(5), Verdienst N(10,2), Satz1 N(10,2), Satz2 N(10,2), Satz3 N(10,2), Satz4 N(10,2), Summen L(1),Jahrmon C(6), Ausblenden L(1),Anspruch N(10,0), Vorgabe N(10,2))
 FG  Q , TF  #  \lohntabelle_summen.dbf! IF .not. FILE("&hstable")CREATE table "&hstable" free (PERSNR N(10,2), NRDESTAG C(8), TAGESNAME C(10), von1 C(5), bis1 C(5), Dauer1 C(5), von2 C(5), bis2 C(5), Dauer2 C(5), von3 C(5), bis3 C(5), Dauer3 C(5), von4 C(5), bis4 C(5), Dauer4 C(5), Dauer1min N(10,0), Dauer2min N(10,0), Dauer3min N(10,0), Dauer4min N(10,0), Tage N(1,0), Stunden C(5), Verdienst N(10,2), Satz1 N(10,2), Satz2 N(10,2), Satz3 N(10,2), Satz4 N(10,2), Summen L(1),Jahrmon C(6), Ausblenden L(1))
 FH  Q 
 TF    G.  I  J  C{	 sonderzah 
 TK   T CC  Z L 
 T K  T CC  Z M  N  O 
 TP  
 TQ  
 TR  ' T  	 \Tarife\t  1.ttt  If File("&hsxdat") = .T. TS -  TS a  T  U  V  C| woerter  %CW X  defj
 TY   
 TY  
 TR  & %C 
 \noupdate.txtZ   T* [    %* [  T\ t  T] ^   V  T] _ `  U1-U3 Ua  WIZARDJA FLIPFLOP BWORKING FALSE HSXDAT EIGDAT JAHR4 VERZEICHNISPRFEN	 EIGDATFIX USERNR PROGRAMMVERSION TRUE AUSDRUCK ORDNER WELCHESJAHR WELCHESJAHRC
 IMMERFOLGE
 TEXTKORREKTUR MYCLOSE MYFSIZE XJAHR4 MYOPEN	 USERDATEN MSG I MYGET J PASS PFAD USERNAME MYPUT AOK_VERSION
 TEXTSCHUTZ ZTEXT PASSWORT MUSER HSXDIR MYDIR
 HSDPIFILENAME HSDPIINHALT REGISTER TASTE0 DIMEN DIMTEXT2 ZT0 BEDIENST
 SATZANZAHL
 GRUNDSTELLUNG	 DIMENSEIN ERSTERSTART	 USERSTART NETZWERK
 FILENUMMER FILENEU INDEXI JAHR1	 EINMAL300 KIZU ATVVORGABENHOLEN LOF PAUSCHANLEGEN2023 PAUSCHANLEGEN2024 PAUSCHANLEGEN2025 PAUSCHANLEGEN2026 PAUSCHANLEGEN2027 PAUSCH ATVKISTR	 DATVKISTR MONAT ZI HSTABLE LOHNTABELLE LOHNTABELLE_SUMMEN	 DATEIOPEN TEXTEEIN WELCHESJAHROLD VOREINSTEIN
 VORGABEEIN FARBENZUWEISEN
 JAHRESBUTTONS OHNE_Z_CLICK
 MONATSTART	 STARTBUNT NETTOENTGELT NAMENINCOMBO	 NEUERNAME TITELLEISTE WOERTER TEXTEE DRUCKENABLED	 FILEEXIST DIMPW6 III MYFORM1 VISIBLE EXTRA32 CAPTIONp %C        T C
   7  
 J  (  7  
 J (  F
   (  	 # 
 %C'
  C
   wnw   T  C     C
 	  wnw  %C
  0 T
    %C
  
i T
  
 T   U  LOF	 NEUERSATZ
 SATZANZAHL ZT0 BEDIENST I MYGET WNW PERSONALFALL FILENEU ZI| % T   Keine Kostenstelle  (xu  C  woerter  T       U  ZT27 I MYGET WOERTER TEXTEE 4   %Ct % 
 C   >  C      
 HO       %C
 G  I13  B     %C
 G  P13  B     %C
 G  R13  B  
 H6    %C
 G  I138   (8 C   \G  ICC  Z   wvw  + C   \G  I13
 wnw    | %C
 G  P13 x  (I8 C   \G  PCC  Z   wvw  + C   \G  P13
 wnw    6 %C
 G  R13 2  (8 C   \G  RCC  Z   wvw  + C   \G  R13
 wnw   ' T  	 \Tarife\t  1.ttt  If file("&hsxdat") = .t.  (F C 	 \Tarife\t CC  Z .ttt(  employee   4 C 
 \Texte\MyTextC R woerter : C   \gehaltC	 \ dim dimen ; C   \gehaltC	 \ vee vorein 8 C   \gehaltC	 \ vaaF wvw 8 C   \gehaltC	 \ vbbG wnw 7 C 
 \Texte\MyTextC
 \ woerter 7 C 
 \Texte\MyTextC \ woerter 7 C 
 \Texte\MyTextC \  woerter 7 C 
 \Texte\MyTextC	 \! woerter 7 C 
 \Texte\MyTextC
 \" woerter 0 C  \Texte\Korrekturen# woerter % C   \atvveey ATV  F  %CN
 Q& C   \atvveey ATVa  F  G. S G.    F  Q% C   \atvveey ATV  - C   \kipauschveez Pausch 5 C   \sonderzahlungvee{	 sonderzah ) C  
 \Jasozavee} Soza . C  
 \persflle	 persflle . C  
 \dienstunf	 dienstunf , C  	 \beihilfe beihilfe    U 	 AUS_NAHME MYCLOSE MODUS WELCHESJAHRC NR MYOPEN EIGDAT MUSER HSXDAT XJAHR4 XJAHR1 XJAHR2 XJAHR3 XJAHR5 ATVVEE ATVUMLAGEANLEGEN ZUSATZUMLAGEBERECHNENO 
   H    (D   T  C     U  VOREIN I VORFARBENRGB	 FARBENRGB
 +a
 %C   
  ' T  Download von PC-Gehalt.de' T  Download von PC-Gehalt.de+ T  Nur fr den privaten Gebrauch+ T  S T A D T   N E C K A R T A L  T  - Personalstelle - T   J T < Die Berechnung dient der Information und ergeht ohne Gewhr. T	  Uferstrasse 10 T
  73000 Neckartal T    T   T
   T   T   T  & %C 
 \noupdate.txt   T    %  -
 T    T   T  T  T   T  T  T  T  T  T   T!  T"  T#  T$  T%  T&  T'  T(  T)  T*  T+  T,  T-  T.  T/  T   T
   T0 r$ T1 + T2   T3   T4 95  T6 97  T8   T9   T: 95  T; 97  T<   T=   T> 95  T? 97  T@  TA   C dimenB  . 
 C dimenC 
  
 TD   TE   TF   TG   TH   TI   TJ   TK 	  TL 
  TM N  TO   TP   T   TQ C  Z % R 

 T R  TQ C  Z  TS T U    TS V U    TS W U    TS X U    TS Y U   
 HT
  R y TS T U  1  Z  TS V U  1  [  TS W U  1    TS X U  1  \ 
 TS Y U  1  % n T+ &  T, '  T- (  T. )  T/ *  
 T] 
 H'  R  T] +   Z  T] ,   [  T] -     T] .   \ ' T] /   T^   T_   T` _  TS a U    TS b U    TS c U    TS d U    TS e U    TS f U    TS g U    TS h U    TS i U    TS j U    TS k U    TS l U    TS m U    Tn CCC`  Z myform1.mon&xxx..tag = "1"
 To   TS p U    TS q U    TS r U    Tn CCo  Z myform1.modi&xxx..tag = "1"
 Ts   Tt 
  Tu 0  Tv 1  Tw 2  Tx 3  Ty 4  Tz 6  T{ 8  T| 9  T} :  T~ ;  T <  T =  T A    ! 
 S   U  LOF DIMEN DIMTEXT1 DIMTEXT2 DIMTEXT3 DIMTEXT4 DIMTEXT5 DIMTEXT6 DIMTEXT7
 DIMSTRASSE DIMSITZ	 DIMTEXT10 DIMFORM1OBEN
 DIMFORM1LINKS
 DIMVERSION
 DIMARTIKEL DIMPW1	 FILEEXIST EIGDAT TRUE DIMPW6 WELCHESJAHR JAHR4 DIMWELCHESJAHR
 DIMFILENEU DIMMONAT DIMMODUS DIMSATZANZAHL07 DIMSATZANZAHL08 DIMSATZANZAHL09 DIMSATZANZAHL10 DIMSATZANZAHL11 DIMSATZANZAHL12 DIMSATZANZAHL13 DIMSATZANZAHL14 DIMSATZANZAHL15 DIMSATZANZAHL16 DIMSATZANZAHL17 DIMSATZANZAHL18 DIMSATZANZAHL19 DIMSATZANZAHL20 DIMSATZANZAHL21 DIMSATZANZAHL22 DIMSATZANZAHLJ1 DIMSATZANZAHLJ2 DIMSATZANZAHLJ3 DIMSATZANZAHLJ4 DIMSATZANZAHLJ5 DIMFORM1HOCH
 DIMFORM1BREIT
 DIMAMTOBEN DIMAMTLINKS
 DIMAMTHOCH HEIGHT DIMAMTBREIT WIDTH DIMJAHROBEN DIMJAHRLINKS DIMJAHRHOCH DIMJAHRBREIT DIMLSTROBEN DIMLSTRLINKS DIMLSTRHOCH DIMLSTRBREIT DIMPOPUPHELP DIMNETZWERK MYPUT MYGET DITEXT1 DITEXT2 DITEXT3 DITEXT4 DITEXT5 DITEXT6 DITEXT7 DITEXT8 DITEXT9 DISTEUERNUMMER DIMSTEUERNUMMER	 MYVERSION ARTIKEL WELCHESJAHRC JAHR1 MYFORM1 YEAR0 TAG YEAR1 YEAR2 YEAR3 YEAR4 JAHR2 JAHR3 JAHR5
 SATZANZAHL FILENEU MONAT ZI MON0 MON1 MON2 MON3 MON4 MON5 MON6 MON7 MON8 MON9 MON10 MON11 MON12 XXX MODUS MODI0 MODI1 MODI2	 FORM1OBEN
 FORM1LINKS	 FORM1HOCH
 FORM1BREIT AMTOBEN AMTLINKS AMTHOCH AMTBREIT JAHROBEN	 JAHRLINKS JAHRHOCH	 JAHRBREIT LSTROBEN	 LSTRLINKS NETZWERK REFRESH;  T  C    T  C    U  ZI CINT FILENEU MONAT T    T    T    T    T    T    T    T   ! T  	q=
ף`S@! T  
q=
ף`S@! T  )\T@! T  )\T@! T  
)\T@! T  )\T@! T  )\T@! T  )\T@! T  )\T@! T  )\T@! T  )\T@! T  )\T@ T  _ T  d! T  )\T@! T  )\T@ T  d T  d T  d T   ! T  )\T@! T  )\T@! T  )\T@! T   )\T@ T  !d! T  ")\T@! T  #)\T@! T  $)\T@! T  %T@ T  &d T    T    T    T    T    T    T    T   ! T  	N@! T  
N@! T  N@! T  N@! T  
N@! T  N@! T  N@! T  N@! T  N@! T  N@! T  N@! T  N@! T       Q@! T  N@! T  N@! T  N@ T  d T  d T  d T   ! T  N@! T  N@! T  N@! T   N@ T  !d! T  "N@! T  #N@! T  $N@! T  %Gz4O@! T  &N@ U  WEIHNACHTSGELD atvumlageanlegen,      atvvorgabenholen     pensionaufbauen.     sozvorgaben5     userstartenl     vorgelagerteBesteuerung    
 seiteladen     leistungszulagenzeile/     zvkvorgabenl    
 vorgabeeinz     zumprogramm.     namenincomboU     kostenstellenincombo    	 dateiopen    
 buntvorein    	 dimensein    	 startbildy
    weihnachtsvorgaben
   3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   A 3 cQQq A  qAAAAAAAAAA 111111111qAAAAAAAAAA A 4 9  p!QQQbaaaabaaaaRQ"QQQbaaaabaaaaRQ"QQQbaaaabaaaaRQ"QQQbaaaabaaaaRQ"QQQbaaaabaaaaRQA 4 A  q   |  D A 4 A 16   r  AAAAAA s q tqqA A A !!A B Q q A A $1RA !21AQQ 1A #q QQa111qAqq11A qA !qA rA A aar!QA A BA!r A t!A BA A A dqA A Q A AA A tQA rA AAA!QA AA Q! qA AA1! A 1QrA r1A r R1A Qa +A !1aAqQ!qA 211qA rA !AAA    A QQQRQQRQQA brr1A  q 8   aqqA A B1!Q1QQAA !!!B 2A Qaa!!QAa 1A A E 3  !Q Q !Q Q !Q Q !AAQ Q !AAQ Q !AAQ Q A     q A 5 r aaB aa3     aA    A 0    Q   d  r qA    QQQQQQQ!Q    ! a  A A  B  "    A    A !   A A  !QA !Qa a 1a a A !A A A    !A  qA b s q   r baA  r   A    r R{ q q q q D  qqA A A  1A c Qq A A q A A  a r r  qr  qr r q    q   A 0q q q    A  bA B A s 4 Vr A Q Q  q  qA A rqA R1 A 3 TrA 1 q   A  A A A A A A A   qA A  qA A  qA A A qqaA A BsqqqqRr A aq a A a q q A QA Qr 3  qA A 4  Q qq       e A  A                                      J L                Q QA 21111 AAAAAA #     A        A   q2111111111111 211r               L A A A  3 `1 2                    ;   f         +  	    S  U  !
        *
  /	  >  w  
  D	      
  J	  C  / 
  
  / 9 
  
  9 J \
  +  J  M 
  8  $M a 
  [      t      {    [    ڭ K     o k   
      
  f _      %   >             IT&    U  `  %   
 
 T    3 
 T     T C  
Z T    U  NUMBR
 VORZEICHEN EINGABE WER
    T CC  Z
 H1 `(       	f- .T&xxx..value = Fix(wert(1+counte) / 100)
 %CC  dG 
^ %CC  dG

H .T&xxx..value = Alltrim(.T&xxx..value + ",0" + wert(1+counte) % 100)
 ZG .T&xxx..value = Alltrim(.T&xxx..value + "," + wert(1+counte) % 100)
   B  ? %C  - .T&xxx..value = Fix(wert(1+counte) / 100)
 %CC  dG 
 %CC  dG

>H .T&xxx..value = Alltrim(.T&xxx..value + ",0" + wert(1+counte) % 100)
 G .T&xxx..value = Alltrim(.T&xxx..value + "," + wert(1+counte) % 100)
   B ;. .T&xxx..value = Fix(wert(1+counte) / 1000)
  %CC  G 
3 %CC  GcVH .T&xxx..value = Alltrim(.T&xxx..value + "," + wert(1+counte) % 1000)
  %CC  Gd
I .T&xxx..value = Alltrim(.T&xxx..value + ",0" + wert(1+counte) % 1000)
  %CC  G

/J .T&xxx..value = Alltrim(.T&xxx..value + ",00" + wert(1+counte) % 1000)
   B      	` B 
 Hq C   
 T  - C    T  + C    T    T CC  Z T C > T C  \
 H6   \ T  0,00    T  0,0    T  0,   ! T C  ,C R  	! T C  ,C R  ;! T C  ,C R  ~2 T C  .C \ ,C R  2 T C  .C \ ,C R  2 T C  .C \ ,C R 
 H, T CC  Z4    	  !  -	( .T&xxx..value = Eingabe + vorzeichen
4     	     	 .T&xxx..value = Eingabe
   U  MYFORM1 XXX COUNTE WERT ZI
 VORZEICHEN EINGABE ZIFFERP
 T    (47  T      (B  T    T    T     T C  T D   (
 T      (B
 H    	    1	  4  6  7  8  :  ;  =  A	! T  C   C      T CCC C	  T DCD C	   T C  T	 CC  T	 CD  
 (B
 He 
  
 	 
  
 1	 
 4 
 6 
 7 
 8 
 : 
 ; 
 = 
 A	 T 
 C 
        
 T    T
 
 T  U  JAHRESSPERRE J INTERIM BETRAG WERT JAHR III MONAT WVWIN EFFZAHL COUNTE
 ZAHLINTEXT ANZEIGE ZIy %C.  rF %C*  000000
 C+  000000	 C,  000000	n CN Ein Betrag in den Zeilen 44 bis 46 wirkt sich auf die gesetzlichen Abzge aus.C
 _ In diesem Fall ist es nicht korrekt, das Nettogehalt in Zeile 47 ohne diesen Betrag anzuzeigen. 
 Sorry ....x T  . & T    A U S Z A H L U N G     U  ZI SCHLSSE MYFORM1 Z45 CAPTION ANZEIGE zahlintextnumbr,     
 zahlintext      Jahresgehalt     keinnettogehalt    3    A Q3  q  qA A A Q qA A A  A A A A A A A A     A r1Q QA1!!!A  qAAA A 3  q4A q111A 11q r r A A A rqqr q A A r  2 4 Qa1
1aq A A 1                    ,   (     	   K       [     `  p        :     0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4GJ16I1VQ1195482680      /  F      ]                                                       WINDOWS _4GJ16I1VR1430476404                                                                     WINDOWS _4GJ16I1VS1195482680          -  :                                                           WINDOWS _4GJ16I1VT1195482680                                                                       WINDOWS _4GJ16I1VU1195482680^      k  x                                                               WINDOWS _4GJ16I1VV1430476404O      \  i  w                                                             WINDOWS _4GJ18C80A11954856904	      A	  N	  \	  i	      	  
                                               WINDOWS _4GJ18C80B1430476404                  \                                                 COMMENT RESERVED                                n
                                                            
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 229
Width = 399
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "splash"
TitleBar = 0
AlwaysOnTop = .T.
Name = "FORM1"
      PROCEDURE Init
*thisform.Caption = "PC-Gehalt " + xjahr4
thisform.label2.Caption = "PC-Gehalt " + xjahr4
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Unload
register = 97
ENDPROC
PROCEDURE Resize
*THISFORM.sizer.frmresize()
ENDPROC
     t    [  [                        gj   %                             U  2 ! T    
 PC-Gehalt   T   a U  THISFORM LABEL2 CAPTION XJAHR4
 AUTOCENTER 
 T  a U  REGISTER  U   Init,      Unload      Resize     1  2  2 2                                                  	    )   [                        shape      shape      Shape1      FORM1      sTop = 0
Left = 0
Height = 229
Width = 399
BackColor = 255,255,255
BorderColor = 255,255,255
Name = "Shape1"
      image      image      Image1      FORM1      lPicture = icons\getriebe.bmp
Stretch = 1
Height = 156
Left = 99
Top = 36
Width = 201
Name = "Image1"
      label      label      Label1      FORM1      FontSize = 16
Caption = "Ihr Gehalt mit wenigen Klicks ganz im Blick"
Height = 28
Left = 0
Top = 0
Width = 399
ForeColor = 0,128,0
BackColor = 149,255,130
Name = "Label1"
      label      label      Label2      FORM1      FontSize = 18
Alignment = 2
Caption = "PC-Gehalt 2023"
Height = 28
Left = 0
Top = 201
Width = 399
ForeColor = 0,128,0
BackColor = 149,255,130
Name = "Label2"
      timer      timer      Timer1      FORM1      ^Top = 33
Left = 9
Height = 27
Width = 27
Enabled = .T.
Interval = 1000
Name = "Timer1"
      PROCEDURE Timer
thisform.timer1.Enabled=.f.
thisform.timer1.interval=0
*If register = 333 

*return
*endif
*If splashout = True 

*splashout = False
thisform.release
*DO zumprogramm
*endif
ENDPROC
     
                                   %                             U  1  T    - T     
     U  THISFORM TIMER1 ENABLED INTERVAL RELEASE Timer,     1 1 3                              )                            image      image      Image2      FORM1      cPicture = prgicons\haupticon.ico
Height = 32
Left = 356
Top = 159
Width = 32
Name = "Image2"
      ;PROCEDURE Click
*SET STEP ON 
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       0       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
    %           H  )     MSq  + 7          	 # 7
   
      7       # 7          7!  T  C	 PersonaltN T C PersonN T C personnamenN T C dimensN T C PersonenN T C VoreinstellungN T C textesN T C bdaaN T C
 BelehrungtextN T	 C jdaaN T
 C ZuschlN T C zonN T C dimatvN T
 C	 dimpauschN T C SoVerN T C sonderzN T C userdatN T C urlaN T C impoN T C struktN T C TVLstN T C BundstN T C TVoeDSZN T C ktrN T C GUpN T C MNEN T C MNE2N T C TaglN T C TMN T C EDZeitN T C KalendeN T C	 personbakN T  C vkastN! T! C VoreinstellungbakN "  U#  WVWALT WVW WNW DIMEN EMPLOYEE VOREIN WOERTER BDA	 BELEHRTXT JDADAT ZUSCHLAG ZONE ATV PAUSCH SOZVERS	 SONDERZAH	 USERDATEN URLAUBSBLATT
 IMPORTFILE STRUK	 TVLSTRING
 BUNDSTRING SOZA KOMMTAR GUPDATE MNET MNET2 LHNER	 TMERKMALE EDZ KALENDER WVWBAK	 VKASTRING	 VOREINBAK
 ARRAYINITS11q aaaAAa1aQqqAAaQaq111AA!aqQr 2                    %   3-      61    -  Jn[    U  V %    %   . %   C 			    " % ɯ       	z              B   T    T	 C ddG %	 1  T C  
   T C  
   T C	  T #C	 C 
 H_n  8 
 T
  #  A    8 	
 H C  6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd@ T #
Gzr@>W[?C# dd C  6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C  O6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C  6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C  6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd  %
  

 T
   j T	 C
 ddG %	 1L T
 C 
 
  f T
 C 
 
    %C  
 T    T	 CC ddG %	 1 T CC 
   T CC 
    %C#  
; T #   T	 CC# ddG %	 1 T #CC# 
   T #CC# 
     A  
n
 Hj   J T
  QI&?# T C QI&?# T #C# QI&?    T
  K46?# T C K46?# T #C# K46? (	 T
  QI&?# T C QI&?# T #C# QI&? C  	 T
  o_?# T C o_?# T #C# o_? C  
 T
  o_?# T C o_?# T #C# o_? C  
 T
  o_?# T C o_?# T #C# o_? C  
 T
  o_?# T C o_?# T #C# o_? C  j T
  o_?# T C o_?# T #C# o_?   %C(  T C	  T #C	 C   T 
   T	 C ddG %	 1 T C  
  - T C  
   T   T    U  WELCHESJAHR GLEITALT FALSE ZI VOLLENTGELT
 GLEITZONE2013
 GLEITZONE2022 HALBERVOLLBEITRAG ZONENBEITRAG HS_REST FIX EFFZAHL SOZVERSZ TEILENTGELT GANZERKURZBEITRAG
 ANRESTBEITRAG T     T C  ddG % 1R  T  C     l  T  C      T C	  T #C	 C  %   T L    T   
 H   C	  
 T
  0  C	 ɯ    C	  	

 HT"	 C  T   C	  T  C	 d6 T
 
Gzu@m'? d " T C C C	  T C C	 d< T 
Gzu@m'? d  %C#  " T C# C# C	  T C# C	 d< T #
Gzu@m'? d   C t T   C	  T  C	 d6 T
 
Gzu@m'? d " T C C C	  T C C	 d< T 
Gzu@m'? d  %C#  p" T C# C# C	  T C# C	 d< T #
Gzu@m'? d   C  T   C	  T  C	 d6 T
 
Gzu@m'? d " T C C C	  T C C	 d< T 
Gzu@m'? d  %C#  " T C# C# C	  T C# C	 d< T #
Gzu@m'? d   C  T   C	  T  C	 d6 T
 
Gzu@m'? d " T C C C	  T C C	 d< T 
Gzu@m'? d  %C#  " T C# C# C	  T C# C	 d< T #
Gzu@m'? d   C "	 T   C	  T  C	 d6 T
 
Gzu@m'? d " T C C C	  T C C	 d< T 
Gzu@m'? d  %C#  	" T C# C# C	  T C# C	 d< T #
Gzu@m'? d    %
  
D	
 T
   	 T C
 ddG % 1	 T
 C 
   	 T
 C 
     %C  
	 T   L
 T CC ddG % 1%
 T CC   H
 T CC     %C#  
x
 T #  
 T CC# ddG % 1
 T #CC#   
 T #CC#      C	 ɯ  

 H C 6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C 6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C }
6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C F6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd C 6 T
 
(\r@HP? dd@ T 
(\r@HP?C dd@ T #
(\r@HP?C# dd   %C(
 f T C	  T #C	 C   T 
   T C ddG % 1 T C     T C     T   T     T          U  HALBERVOLLBEITRAG VOLLENTGELT ZONENBEITRAG HS_REST FIX EFFZAHL SOZVERSZ WELCHESJAHR GLEITOBERGRENZE WERT TEILENTGELT OP1 ARBEITSENTGELT ZI GANZERKURZBEITRAG
 ANRESTBEITRAG GESAN 4   %Ct -  T            T C	  T #C	 C  G
(
 H z  
  T  q  T @ T !   T  T Y8m?  	  Q T @
  T  T !   T  T QI&?   T @
  T  T )   T  T cZB>?   T @
  T  T 1   T , T mV}b?  z T @
  T  T    T [ T H.? 
 HK 	 C
  
 T 	 - 	 C
   	 C
  	E
 H# C  T 	 	 C
  T
 	 C
 d; T          
   T  d " T C C C
 A T          
   T C d  %C#  " T C# C# C
 A T #         
   T #C# d    %  

 T     %C  
 T   
  %C#  
9 T #  A  	 C
 ɯ  
K
 HnG# C G6 T 
Gzu@HP?	 dd@ T 
Gzu@HP?C dd@ T #
Gzu@HP?C# dd   %C(  T C	  T #C	 C   T      T  % T    	 d  T  d( %C 
  ffffff@	J# T  333333 @  d m T      
 T   T    G
( U 
 HSPVKINDER EFFZAHL SOZVERSZ WELCHESJAHR GLEITOBERGRENZE GOBER GLEITUNTERGRENZE GUNTER	 HSFAKTORF VOLLENTGELT WERT TEILENTGELT OP1 ARBEITSENTGELT ZI GANZERKURZBEITRAG ZONENBEITRAG GESAN ANHALBERVOLLBEITRAG
 ANRESTBEITRAG HALBERVOLLBEITRAGX 4  
 H H   :  T 0@   `  T 3333330@     T L0@     T ffffff0@     T      0@     T 0@    T 333330@   D T 0@   j T fffff0@    T       1@    T 1@    T 3333331@    T L1@   ( T ffffff1@   N T      1@   t T 1@    T 333331@    T 1@    T fffff1@    T       2@   2 T 2@   X T 3333332@   ~ T L2@    T ffffff2@    T      2@    T 2@    T 333332@   < T 2@   b T fffff2@    T       3@    T 3@    T 3333333@    T L3@     T ffffff3@   F T      3@   l T 3@    T 333333@    T 3@    T fffff3@   
 T    " T 4@   H T 3333334@ 	 B  U 
 HSKENNWERT	 HSRETWERT gleitzonenberechnung,     
 gleitzone2013D
    
 gleitzone2022    	 getkvproz&    4 #!q  q A  q A A A A Raa !A r A 1 ~a1a2a1aqaA   aa !A A R1  A A R1  A A D !11!11 11q11111111111q11A A QqA Raa !A 3 Qaa !A r# A    qa"R!A 2a"R!A 2a"R!A 1a"R!A qa"R!A A   aa !A A R1  A A R1  A A  {a2a2a1aqaA A RqA Raa !A Q3 q QA r  !  Q  Q!  Q!  Q!  QA     1Q#Q!A A   G R1 G R1 G  2aA A RqA S1 A   3 q  QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ QQA  1                    A             H       H  `    y  `  h  &     %   Z      _  x  o  Rt[    7  Q INTEGER U  HH_VBL T  
 H  C   K 
 T   T   C   
 T 
 T   %    T   C   
 H   u
 H q C    T   C   T   C  A T   C  d T   C   T   C   T   C   T   C   T   C  	 T   C  
6 T   C  Y T   C  | T   C  
 T   C   T   C   T   C   T   C  + T   C  N T   C  q T     T
 HP C   T   C   T   C   T   C    T   C  C T   C  f T   C   T   C   T   C  	 T   C  
 T   C   T   C  8 T   C  
[ T   C  ~ T   C   T   C   T   C   T   C  
 T   C  - T   C  P T     V	
 HsR	 C   T   C   T   C   T   C   T   C  " T   C  E T   C  h T   C   T   C  	 T   C  
 T   C   T   C   T   C  
: T   C  ] T   C   T   C   T   C   T   C   T   C  	 T   C  /	 T   C  R	 T     {
 Hu	w C  	 T   C  	 T   C  	 T   C  
 T   C  $
 T   C  G
 T   C  j
 T   C  
 T   C  	
 T   C  

 T   C  
 T   C   T   C  
< T   C  _ T   C   T   C   T   C   T   C   T   C   T   C  1 T   C  T T   C  w T     
 H C   T   C   T   C  
 T   C  &
 T   C  I
 T   C  l
 T   C  
 T   C  
 T   C  	
 T   C  

 T   C   T   C  > T   C  
a T   C   T   C   T   C   T   C   T   C   T   C  3 T   C  V T   C  y T   C   T   C   T       U  AJAHR ZI ALTER1 HARALD FALSE TRUE WELCHESJAHR " T  CC  " T  CC   %     T    T     U  KIMIN ATVKISTR ZI ATZFLOP %C%    B 
 H*  C   R  T  %  C  z  T  %  C    T  % C    T  % C    T  % C   T  % C  B T  % C  j T  % C   T  % C  	 T  % C  
 T  % C  
 T  % C  2 T  % C  
Z T  % C   T  % C   T  % C   T  %  U  ZI T  + 
 T  
 T  
 T  
 T  
 T  
 T    (C  C   
  wvw	 " T  C  C  
 H M C 
   T  CC   T  +  C 
 M T  CC   T  +   %C 
  T  CC   T  +    CC  
  wvw	  U  LSTRZ WFUNDF HINZUR JHINZU JFREIB LZZFREIB LZZHINZU IJ ZI MYGET FILENEU WVW TNAM ZNAM
 H
 ]% C"    C"  	? 
 T % C"  	 C"  	q 
 T % C"   C"  !	 
 T % C"  " C"  .	 
 T  C"  / 
 T  C"  0
 T  C"  1;
 T  C"  2]
 T  $ %C"  "
 C"  . T $ T : T :  U  ZI STKL EFFZAHL WERT BETRAG %C%  
   %   w  %C%  O 
 T   s  T CC        %CC   
   T CC   
   T CC     ) T    P CC Z  % 	  U
  ZI PAUSCH	 DATVCHECK TRUE ZVKKISTR ATVKISTR MYFORM1 EXTRA51 CAPTION	 KIRCHEMIN
 H
 p" CC"   "/0< 
 T   CC"  	#p  T       ? CC"  
$ 
 T  CC"  %  T       ? CC"  & 
 T  CC"  
'0 T       @ CC"  (\
 T  CC"  ) T       @ CC"  *
 T  CC"  + T       @ CC"  ,
 T  CC"   -G T       @ CC"  !.p
 T  
 H C%    T {Gz? C%   T 
ףp=
? C%  
 T   C%  
 T   C%  C T Q? C%  m T Q? C%   T ? C%   T {Gz?  %C  
 T   T %   U  ZI ZKF	 KISTRSATZ BETRAGN$ %C&  | C&  };  T &C&  
 HL |  CC'  |  T 'C'     (  T     T   T C   (0 %C    ,# T C C     %C C  
i T C c  T   T  	  T    (; %C   
 # T C C    %C   
 7# T C C    # T C  
  ' T C      %C   T    %C  
 T    %C  ) T C
 C C c %C  G T    %C C c
} T C c   T    %  T   T    T C 
 H.& C*  

 C*   %   % G  % 
  T C C*     C*   C*   %   % 
   T C C*    C*  .  %C    
 	* % O &
 T }
 Hq  
 T  ! T *C c ' T CC* 

G %  T *CC*   " T *CC*       T  O T C C C C C C C C  %C  
 T    %C  ) T C    T! C  "  %C  % T C   | %C   T C    T! C  "  %C   T C   x %#  T C   $  T! C  " $  %C   T C $   t T C    T! C  "  %C  p T C $      %   
' T C C C  T   T  ! T%  C  T CC % G % 
o	6 T%  CC %   
 % 
	; T%  CC %   
; T%  CC %     % 
$ %C % C  " i
% T%  C  "   T! C %  4 T%  !C % ?  %C  
 T    T C   %C ! 4 T 	!  S T 	C   T 
  T  2 %        T& -  T& a 
 %&  % 
h

 Hd
$ C   C  d
 %C   + T' ( ) C) ' * + T' + ) C) ' , - T 
 C C) ' ( - T ! C	 C) ' +  `
9 T 
 C C) C  ' ( 9 T ! C	 C) C  ' +     %C  
+ %C C - C
 
 T C
  
) T C C -   %C  
  T   + %C C - C f T C  ) T C C -   %C  
 T     $ %C   C  Q %    M T C C  T C    T C C  T C   %C  
4 T' ( ) C  C
 C   .  % 1 T   T/   T/    %   
	 T   T   T/   T/   
 H#$ C&  z
 C&   % 
 T0 0  B %C5   C5   C5   C5  6 d T ;  T <   %    %C %   T    T C %    %C&  
%/ T1 0@CC&   
  %C&  h T2 CC&  3  T1 2  ' T1 
CC&   
  
 H;$ C    C  
$ %C'  	 C'  
	 T1 1 4 d  CC  ; T1 1 4 d  T &C 1  T CC& ddG % 1 T &CC&    T &CC&   
 H CC   T &C& C/  $ T &CC& dTd %CC&  G  T/ C&  T &C&  %C5   T &C&    %C/  !C %C2   T 2C&   %C2 C& 
? T &C2    %C&   T/ C&  T &C&  T &C&  T &C&   T/ C&   %C5   T &C&    % K! T%  &C&   % 	 %C	5 } T &CC& c   % } %C5  0
 H  71 T &C 1 C Mb?) T6 7 8  AG-Zusch.Priv.KV+0,80%  1 T &C 1 C  rh?) T6 7 8  AG-Zusch.Priv.KV+0,85%  1 T &C 1 C ?) T6 7 8  AG-Zusch.Priv.KV+1,25%  {1 T &C 1 C V-?) T6 7 8  AG-Zusch.Priv.KV+1,45%  1 T &C 1 C V-?) T6 7 8  AG-Zusch.Priv.KV+1,45%  T &C&  T/ C&  T &C&   %C5  y
 HV0  % T &C& C/ 6 T6 7 8  AG-Zu.freiw.GKV+CC4 Z %  0% T &C& C/ 6 T6 7 8  AG-Zu.freiw.GKV+CC4 Z %  T &C&  T/ C&  T &C&    %C5  
 H}  % T &C& C/ 6 T9 7 8  AG-Zu.freiw.GKV+CC4 Z %  }% T &C& C/ 6 T9 7 8  AG-Zu.freiw.GKV+CC4 Z %  T &C&  T/ C&  T &C&   % $ %C5   C;  	 %C& C;  T &C;  T CC& ddG % 1 T &CC&    T &CC&    T/ C&  T &C&  T &C&     C&  zP T &  T &  T/ CB 
 C&  { T/   T &  T &  C&  | T &C&  T/ C&  C&  } % C %C5   C5   C5   C;  	1 T: CC/  <  ; d4 d T= CC :  T %= C;  T &C;   T &=   T> CC& ddG %> 19 T &CC&   \ T &CC&    T/ C&  T &C&  T &C&    C&  ~  T/ C 
d T & 
 H   C"  5D  T/ C 2 T &  C"  6  T "C c2 T "C"   C&  z! T/   T & 
 H v! C"  5! T/ C 2 T &  C"  6v! T "C c2 T "C"  T/    C&  ## T? CC/  <  ; d T@ C   %C C ɯ  
" % 
! A  ". %  C  			  "" %@ ɯ   @    	[" A  "" %@ ɯ   @    	" A  " B    " A    ?#. %  C  			  ,#" %@ ɯ   @    	# A  (# B   ;# A    T &C c T/ D  T E  .  C&  # T &C&   T C 
 H#$3 C    C   C  $
 TF G  C  l$ %C5  O$
 TF G  h$ TF G H   C  $ TF G H  
 H$2 CC'   % TI G  T/ C F d T CC/ ddG % 13% T/ CC/   V% T/ CC/   
 Hg%% CC  % %C5  % T/ C/  % T/ C/ C/    T 'C/ $ C'   C'  	' TI G  T/ C G d T 'C/  % '4 %C'   C'  	 C<  	' %C' C< ' T 'C<  T CC' ddG % 1%' T 'CC'   H' T 'CC'    T/ C'  T 'C'  T 'C'  ' T 'C<  T 'C'  T 'C'     C'  d( TI G  T 'CC I  ( T/ C G  C'  ( TI G  T/ C I  T 'C/  C'  U) %   	)  T 'C cG d Q)
 TI   T '  T/    C'  ) T/ C'  T 'C/  C'  ) T/ C'  T 'C/  C'  2 %C  
1. %  C  			  * T? G  T@ C C " %@ ɯ   @    	* A  * B ffffff?  T E  T 'C c T/ D  1 % + TJ L  #+ TJ    T? ffffff? T@ C  TD @ ? d T CD ddG % 1+ TD C D   + TD C D   
 H+0 @ J +
 TE @   @ ɯ   @ J 	/
 H,N/  ,6 TE 
Gzu@m'?@ dd TK @ @ C C TE 
Gzu@m'?@ C ddK   _-6 TE 
Gzu@m'?@ dd TK @ @ C C TE 
Gzu@m'?@ C ddK   .6 TE 
Gzu@m'?@ dd TK @ @ C C TE 
Gzu@m'?@ C ddK   .6 TE 
Gzu@m'?@ dd TK @ @ C C TE 
Gzu@m'?@ C ddK   N/6 TE 
Gzu@m'?@ dd TK @ @ C C TE 
Gzu@m'?@ C ddK   %E  
p/
 TE   / T CE ddG % 1/ TE C E   / TE C E     @ y@
0
 H/0  (0 TE @ QI&?  S0 TE @ cZB>?  ~0 TE @ mV}b?  0 TE @ H.?  0 TE @ H.?   TL E G H d T CL ddG % 181 TL C L   R1 TL C L    TC L D  T 'C c T/ D  .   2 T? G  T@ C C   %C C ȯ  
1 M  w2. %  C  			  d2" %@ ɯ   @    	Q2 A  `2 B   s2 A    T E  T 'C c T/ D  .   C'  2 T 'C'   %C'  5 G
( % 4
 H/34  3 TJ      @@ TN  TO Gz@@ TP  TQ QI&?  	4 TJ      @@ TN  TO GzЀ@ TP  TQ cZB>?  v4 TJ      @@ TN  TO Gz`@ TP , TQ mV}b?  4 TJ      @@ TN  TO Gz؂@ TP [ TQ H.?  J5 TJ       @ TN @ TO Gz@@ TP  TQ Y8m?  T@ C N %  C  			   C'   C'  		5) TR N N P @ dP d 5
 TR @   6 TR C   TS          %T  7
 H?66 T o6 TS R d      ? T 6 TS R d      ? T 6 TS R d      ? T 6 TS R d      ?  9 T 'CC' S CC'    6 T 'C'  T 'C'  T CC' ddG % 17 T 'CC'   7 T 'CC'    T CC/ ddG % 1)8 T/ CC/   L8 T/ CC/   
 H]8: C'   8 %C'  8 T 'C'   C'  9 %C'  
9 T 'C'  T 'C'  T 'C'   C'  i9 %C'  e9 T 'C'   C'  ~9 C'  9 C'  9 %C'  
9 T/ C/   C'  ': %C'  
#: T/ C/   C'  q: %C'  m: T 'C'   C'  	: %C'  
: T 'C'  T 'C'  T 'C'    % ;! T%  'C'   % 	;$ %C
5  C
5 ; %C'  ; T 'C' c    T C  T C	 C  T/ C	  T/ #C  %C  
><4 T' + ) C  C C   T C ' %C   C	%  	<" T C C	% " T C C	%  
 H<D CC(   = T (C U  T CC( dG % 1O= T (CC(  2  T (C(  %C(  
= T/ C(  = T/ C(   C(  = T/   T (  C(  > T (  T/ C  T CC/ dG % 1> T/ CC/  2 > T/ CC/    T/ C/ d C(  RA% T (C cU  T/ C  T CC/ dG % 1d? T/ CC/  2  T (C( d T/ C/ d % 
{@ %C <
w@( T (<U C/ d T CC( dG % 14@ T (CC(  2 W@ T (CC(    T (C( cd  NA %C \D
JA( T (\DU C/ d T CC( dG % 1A T (CC(  2 *A T (CC(    T (C( cd   C(  A T (C(  %C(  
A T/ C(  A T/ C(   C(  ~B T (C U  T CC( dG % 1HB T (CC(  2  T (C( d T/ C(  C(  &C T (  T/ C U  T CC/ dG % 1C T/ CC/  2  T/ C/ d C(  lD T? U  T@ C   %C C ȯ  
C M  .D % 
C M  *D. %  C  			  D" %@ ɯ   @    	D A  D B   &D A     T (C c T/ D  T E  CC(  	
D T (C( % C(   C(  
	D T (  T (  T (   T C  T  C	 C  T >C  
 HXE`I C)   F T CCC  V  dG % 1E' T/ CC  V 2 d E# T/ CC  V  d  T )C/  C)  WF T )C)  T/ C)  C)  F T/   T )  C)  G T? V  T@ C C   %C C ȯ  
F M  G % 
G M  G. %  C  			  G" %@ ɯ   @    	xG A  G B   G A     T  E  T )C c T/ D  C)  H T )C)  C)  H T )  T/ C  V  T CC/ dG % 1H T/ CC/  2  T/ C/ d C)  `I T )  T/ C  V  T CC/ dG % 1AI T/ CC/  2  T/ C/ d  %C' W 
J$ %C/  # C/  !I4 T% C/ 'C!C  ;  J8 T% C/ 'CC/  C  ;   T CC% 

G % cJ" T/ CC%   J T/ CC%    J T%   T/    %C' X 
K$ %C/  # C/  !0K4 T% C/ 'C!C  ;  pK8 T% C/ 'CC/  C  ;   T CC% 

G % K" T/ CC%   K T/ CC%    "L T%   T/    %C' Y 
L" T/ *C#/ Z   T CC*/ G % L' T/ *CC*/  {Gz? L T/ *CC*/    L T/ *   T C  C
 \  wnw[  %C  N+ T/ C/ CC& CC/ + T/ C/ CC' CC/ ! T/ C/ CC( ! T/ C/ CC)  T &  T '  T (  T )  T   T   T &  T '  T (  T )  T   T/   T/   %C  N T/     U]  ZI INTERIM BETRAG IJ SOZVERSZ SOZZ FALSE SVEINLFDPLUS SVSACHLFDMINUS
 SVEINLFDMINUS TRUE ZVKZ
 SVSACHEINPLUS SVSACHEINMINUS SVEINEINPLUS ZVKUSACHEINPLUS ZVKUSACHEINMINUS ZVKUEINEINPLUS ZVKUEINEINMINUS VBLZ NETTOJA ZVKKAPITALAN ATZFLOP NR63 WERT HH_VBL WELCHESJAHR HS_REST FIX
 SVSACHLFDPLUS KVGRENZEEFFEKTIV KVGRENZE	 ALTESLAND RVGRENZEEFFEKTIV RVGRENZE NOTKURZ BRUCHTEILFAKTOR SICHT HSKEINELCKEATZ WNW LUCKKV MODUS KORRKV LUCKRV KORRRV
 SVEINEINMINUS ZUSATZBEITRGEBERECHNEN EFFZAHL I KVPROZ
 XBBEITRAGSATZ	 GETKVPROZ ZUSATZKV	 ATZTRESOR MYFORM1 Z52 CAPTION FORM1
 KVPROZTEMP GETKVBEITRAG MONAT
 MAXKVZUSCHUSS REST ZONENBEITRAG VOLLENTGELT
 GLEITZONE2013
 GLEITZONE2022
 ANRESTBEITRAG HALBERVOLLBEITRAG TEILENTGELT PVPROZ PVOREIN ZUSATZPV PFLEGESATZNORMAL GLEITOBERGRENZE OP1 GANZERKURZBEITRAG GLEITZONENBERECHNUNG GOBER GLEITUNTERGRENZE GUNTER	 HSFAKTORF HSGESAN	 ANPVABZUG	 MYPVKIANZ RVOREIN AVOREIN ZUMLAGE1 ZUMLAGE2 ZUMLAGE3
 INSOLVENZGELD MYPUT FILENEU
 T   
 T  
 T  
 T  
 T  
 T  
 T  
 T    (K C   
  wvw	  T    C   %C 
    T    C     T    C    T  C"   T  C$   T  C%    T C % T   C	 C C 
 T 
 T     T "   T $   T %C   ! T %C%  - %C%  CC  y+ T % CC    T "C"  T $C$  T %C%  U  STEUER11 LSTR11 SOLI11 KISTR11 STEUER12 LSTR12 SOLI12 KISTR12 MONAT MYGET FILENEU WVW TNAM ZNAM ZI LSTRZ LZZ RE4 STEUER WERT LSTLZZ SOLZLZZ FIX BK	 KISTRSATZ ATVKISTR INTERIM&    T      %C 
@ 
 T  U 
 T   %C% { 
 T    
 T   %    
 T   	  
 
 T  
 T   
 ($ T 
   
 T  
 T  
 T  
 HO&% C   C 	y&% %C: 
 C:  	
 T  T C:  
 T  
 T   % 
 HS C(   C(  C( 	 C(  C( 	a
 T   CC( 

 T   
 H|S C(   C(  C( 	 C(  C( 	@ %  
 T   <  T C    6  CC( 
|  T C   6  
 T  
 H CC5  T C;  C5  T C&  
 Hc CC' 9 T  C<  C' c T  C'   % 5 %CC5  CC' 		 T C& C'   T           
 H( CC5  	
.
 T   CC5 T
 T  CC5 }
 T  C5 
 T   4 %C'  C'  C 

 T  
 T   
 H
s CC  3
 T  3 C  C  C s
 T  
 T   % 
? T   333333?! ?"       ?' T  CC )\(?#  %C% 
0 T !C $ d K T !  E T "% 333333?& ?'       ?' T #CC" )\(?#  %$   T $C" $ d  T $   T C c T C  c T C! c T( +  ! "  T( ,  T( -  T( .  %)   T   	$ %C  C \	
 HX	 C  #	 T C*  C 	X	 T C*   {	 T C*    + (	 %C + , - 	 T  C+ *  	# T C C+ *    %)  

 T   P
 %C  D

 T   L
   T   %C 
! %CC  .  j + ( %C + , - 
 T  C+ *  # T C C+ *     + ( %C + , -   %+  C 	k  T  C+ *    %C # T C C+ *       + ( %C + , - . T  C+ *  Y# T C C+ *  % %C 
 C + / - 	# T C C+ *     T C   %C0   1  	t
) T C
0 C0 C c %  :
 T    %C C0 c
p
 T C0 c  
 T    T  2 3 4 5  T  
 H
 C   T6 C*  T C*  C T T7 C*  T C*  C 
 T8  
 T9   T    % 
 T9  
 T8   T    %C  T6 C* c  %C" 0; T C
0 C!0  Z T C0   T C0 c %C* 
 H C*    %C" 0 T %C0 C!0   T %C0    T &2 :  T '3 ; ! T (% & ' ! T )  ! "  T *< 4 = 5  %C 	 % >   
 H1& C* 

 C* o %?  k % + g %@ - c T *C* C*     C*  C*  %   %@ -  T *C* C*    C* 1  %C  @ - 	- % 3 )
 TA }
 HUt  t
 TA  ! T* *C0 cA ' TB CC*C 

G %B  TC *CC*C #   TC *CC*C #   T *C* C**    O T C C C% C& C' C( C) C*  %C  
 T   / T 	C C C C  %C	  
 T 	   %C   %)   %D ^ T 
C	 )  } T 
C	    T 
    T 
C	   TE C
 C  %    TE C F 
 TG    H  %C  o %D  T CJ ) I  T CK ) I # T 
CCL M ) # I  F T C J I  T C K I  T 
CCL M # I  %   B' T 
CCL {Gz?# I   
 HWk C  l C C C  C 	 C  C ! %C
 E Q? T 
E Q?  CC 	
k! %C
 E Q?g T 
E Q?   
 T C J I  T C K I  T 
CCL M # I  %   	' T 
CCL {Gz?# I   2 %       N TN a a TN -  %N -k O   T E C  %CQ  P   T P Q   C
 S  wnwR  . T C C CQ  P  T  C  T C C 
 Hd0 C  % T6 6 cCC C 
 TT   C $ T7 7 CC C 
 TT   C 0 %C 
, TT C    %C n% T6 6 cCC C  
 T  TE C  TU C  H  T J  %   ' T 
CCL {Gz?# I   T  C  TE E   H  T J  %   ' T 
CCL {Gz?# I   T C C  %  %K   T CC  #  ' T CC )\(?#   L' T CC )\(?#   T C M  ' T C C C ' T C C C  ' T C
 C C!  T* "C  T* $C  T* %C   T* "CC"* I   T* $CC$* I   T* %CC%* I  %C%  T* %C%C   %C%  T* %  $ %C  C  	 V   %C" 3@ T* "C"C   %C$ p T* $C$C   %    T* %C
 c  E$ T 8  T C*  + (2 %C + , W .# T C C+ *    T  
 HV C   T C*  C  T C*  C  T    %C   T C0  &  T    T C* 7 T C C C C C  %C  
  T    T C  d %C" 3  T C"C   T 	C  T 
C ' T CC )\(?# 
 HU!" C%  !# T 
C {Gz? C% !# T 
C 
ףp=
? C% ! T 
C%C  C% " T 
  C% Q"# T 
C Q? C% "# T 
C Q? C% "# T 
C ? C% "# T 
C {Gz?  %   <## T 
C {Gz?  T* "C  T* $C  T* %C
   T* "CC"* I   T* $CC$* I   T* %CC%* I  %C$ $ T* $C$C   %C% A$ T* %C%C   $ %C  C  	m$ u& %C% 
q&
 H$A&% C"   C" .	r%
 H$n% CC  % %C%* CX c% T* %CX c)   CC n% %C%* CX cj% T* %CX c   CC" /0A&
 H%=& CC  % %C%* CX c% T* %CX c)   CC =& %C%* CX c9& T* %CX c    %C"*  m& T* %     C & Y   UZ  LOHNSTEUERVARIABLEN VBEZM WNW VERSORGUNGSBEZUG
 AJAHRHOLEN ZI LZZ R ATZFLOP STEUERKLASSEHOLEN
 VORGABENHOLEN OHNEEINMALZAHL
 EINMALZAHL I LSTRZ VORPAUSCHLST
 VORPAUSCHSOLI VORPAUSCHKISTR WERT AF F WELCHESJAHR KRV	 ALTESLAND PKPV PKPVAGZ PKV PVS PVZ PVA	 MYPVKIANZ STKL P15AN P20AN P25AN FIX ZVKKISTR P15AG P20AG P25AG EFFZAHL BRUCHTEILFAKTOR INTERIM IJ LSTZ TRUE
 BUNDESBEAMTER ZVKZ VBLZ ZVKUMLAGEAG
 STSACHEINPLUS STEINEINPLUS STSACHEINMINUS
 STEINEINMINUS LZZFREIB LZZHINZU JHINZU JFREIB
 STSACHLFDPLUS STEINLFDPLUS STSACHLFDMINUS
 STEINLFDMINUS BESJA ZVKKAPITALAN NR63 HH_VBL HS_REST BETRAG NOTKURZ RE4 SICHT ZKF STEUER CLNG LSTLZZ SOLZLZZ BK	 KISTRSATZ HSKEINEVORMONATE STEUERVORMONATE KORRLST MODUS MYPUT FILENEU VBEZ JRE4 JAHRESAUSGLEICH FALSE KIMIN JAHRESGEHALT %  9 %   % 	   	k  T ffffff? T ffffff?   %  	     T 333333? T 333333?  %    T 333333? T ?   5 T ffffff? T ffffff?  V T       ? 
 Hg{ C   T   T   T   C 
 H CC' Z. %   C 			    T  	  %  >
 HT:    T
  T     T
  T     T
  T ,    T
  T [   : T
  T [  b T
 @ T  * T 
 
  
 d d T C 	 8 T C d Td T   V! %   C5 	.0 T  	 C# 	  R T  	   $ C' 
 C'   T C 	  % T CC dTd T C  T C  T   C  %CC' . %   C 			    T    T C d Td T   
 %C5   T C   	 T      9  T C   % T CC dTd T C  T   T C  C +
 H CC' C
. %   C 			   	 T  	  %  ,
 HB(   p T
  T     T
  T     T
  T ,    T
  T [   ( T
  T [  P T
 @ T  * T 
 
  
 d d T C 	 8 T C d Td T  % T CC dTd T    T    T C d Td T  % T CC dTd T C C  ?
0 T  	 C 	  T   % T CC dTd% T CC dTd T C C  $ C' 
 C'   T C 	   T C  % T CC dTd% T CC dTd T C C   T C  C  T C  T C  T   C  T C  T   T C  C - T C  T C  T   C { T   T   T    U  WELCHESJAHR MONAT ZUSATZPV PVOREIN ZI INTERIM EFFZAHL GANZERKURZBEITRAG TEILENTGELT ZUSATZKV GOBER GUNTER GESAN VOLLENTGELT ANHALBERVOLLBEITRAG WERT SOZVERSZ BETRAG
 ajahrholenF     	 kircheminQ     kirchensteuerland      steuervormonate     steuerklasseholen	     kirchensteuerauswahl    
 vorgabenholeno    
 sozverszahlen     jahresausgleichp     steuerberechnen-t     zusatzbeitrgeberechnen    #2   Q  Q    ! Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A ! Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A ! Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A ! Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A ! Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A A A A 4 #!11A 3 QA A  Q2Q1R1R1R1R1R1R1R1R1R1R1R1R1R1R1R1B 3 2      ! 11A 1A A 4  Q Q Q Q Q Q Q Q A AAAAA 3 RB BQ  A   A A r 4  ! Q Q Q Q Q Q A  QQQQQ Q QQQQQQQQA R 1A 3 BqA  qA vqA 2qra1A A A 2r3ra1A a1A A 2qR1B Q1A RQ1A A  1A 11A r a A A A aa A A a   ! A  A B A A 2Q1A RRQQA  QQQQA  !QQA  QQQQA B A A q11a ! A A AQA A AA R1 rA Q1 qA 21#   A  " AQ A A A Rq A Q1A q A Q1A A E B qA  qA QAA t 111A 1111A  A A ! 11A 1 A A R QQ qB A  AAQA QA  A  A CqQA  QQrA A A Rqqq qA RA B A QA A #R !!!!!A qqqA R !Qa!QaA qqqA A Q !Qa!QaA qqqA #A A qqqA A A R11R111RrR!1 1A  A qqqA A R1 Q1QqA Q11 Q1Qq1A Q2!r  "q  !q  q A A  q A A  !q  q A  q A A B11r RqB r 1 QQ  A QA  a A  Qq A A qAq"A A qqq qqA A A RRqR  11A QqqQqqQR#q  QA 2A1 ! A RRaa !A    @!b1!b1!b1!b1!b1B   aa !A A  `!!!!!A A aa !A A1q A  q  "q  q A  q A A 1A1r A RqB T ! !Q Q Q!Q Q Q!Q Q Q!Q Q QA  Q Q QA   A  A R A A qq A  A  QQA QQqqA QQA QQQQA QQA QQA QQqqA A A AQA A A sqqQAA rr!!A  aA Q qA R11Q1a A QQbA "aa A A  aa A A A TqQ qA RaA qR1aA Qq  !q  !q  q A  q A A A B11qS111A tq Qq 1A RqQ11Qq  !q  !q  q A  q A A A 1A1QqQ1aA Q1aA A 2CA A ! A  1A 3CA A ! A  1A 3!!q A  1A rrR1111111111111Q1B A 3         r A A QQ  q A rqq4 s r R   A R   A  A r q   rqA     QQ a   A ! 1  A   1  A A A   RA  SQQB !Q QA A     Q A A   A   1 A  qb 1A Rq 1A !!!1111 A qqA  qA A ra 1A A   Q  A A 2Rqa 1A A  qa A  Q1A A A A  qa 1A Q1A A A 1A A  1A  QQqQ  1A   1A R!A R qA b aC  Q qA A qqQAB A  a A A A aa A A a   ! A  A A A A Q1A Q1A R! qA  1A  qA  A r R!1 qA A  QR2A A A  qA A "   A  r qA  QQ RA RQB A QQA  v 2qA Rr 2qA $ qA  qA D rqqqqqRqA R1A Bq A RqA RqA A  1qra1A A 2 QQqQ1A Rq 1A rrQ1A QqA rqq Q1Q1QqQ1Q1Q1Q1Q1A 1A rqqRqA RqA A C Q Q A A A  A A A A R1A A A Qr B 3 "!QQ QQA !QQA A  QQA  QA  Q111R q! !  !  !  !  !  A    A 1  A A AA Qqq1R! Q A A  A Qq1qR s! !  !  !  !  !  A    A 1Q$#Q RQA AQQA tQqq1Qq1qQqq1Q111A 3                    T   N        p  &  '     P  $  2  #  $  ,'  n  <  V'  )    T  )  +    f  +  0      0  T      |          " (    	# 8: 	  	   %         B    ܢ  ^][    U  $ %C    C  	G # T CC    $ %C   C  	 # T CC    
 H  C    %C    T C   CC  1 %C  - T C   CC  z %C  v T C  % C   C  	 %C   T C   CC   %C   T C    U  ZI WERT GRUNDBETRAG BETRAG 
 H
   C
   9  T 
C  C
    %C  
z  T 
C   %C    T 
   C
    T 
C
   U  ZI WERT GRUNDBETRAG BETRAG
 T   
 T  
 T  
 H4  % C   C 	`   % C  C 	  B  %C ' %C  %C   T  C   T  C   # T  C   ] %C 
Y T  C   $ %C  C 		 T  
  %C .
 H*  
 %C 
 T    s %C A %C =
 T   o %C k
 T      %C  %C 
 T    %C 
 T     * %C &
 T    
 H?> C &   C 		  	$ %C  C 
	 T  C   T  C  I C  C 	"    		  	w %C Q T f
 s T  C   2 T  C   T C )
 T	   
 ( , %C
   C
   F  - 
    	
 %C+
 T 
   # T 
 C
    T 
 C
    T 
         # T 
 C
    T 
 C
    B   
 (:0 %  C 
	 C 	
 HX C
   ~
 T	  - C
   C
  	
 T	  - C
   C
  5	
 T	 - C
  6 C
  P	,
 T	 - C
  Q C
  k	f
 T	 - C
  l C
  	
 T	 - C
   C
  	
 T	   y	
 Hu	 C
   
 T	  - C
   C
  	S
 T	  - C
   C
  #	
 T	 - C
  $ C
  5	
 T	 - C
  6 C
  G		
 T	 - C
  H C
  Y	;	
 T	 - C
  Z C
  k	u	
 T	   
 H	\
 C 
	 T	 	 d CC 
	 T	 	 n CC 
 T	 	 xD C  C 	 C  C 	\
 T	 	   %	  50 %  C 
	 C 	
 H
{ C
   C
  &	$ C
  ( C
  V	$ C
  X C
  	) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
  f C
  W C
  '$ C
   C
  	 C
  
) C  	 C  employee    T 
C
   T 
C
  T C   T C  T C   T C ! %C 
	  	
) C  	 C  employee   ' T 
 CC
   # T 
 C
    T 
 C
    C
  ) C  	 C  employee ) C  	C  employee   0 T 
 CC  C  T 
 C
    C    employee   # T 
 C
    T 
 C
    1
 H-{ C
   C
  	$ C
   C
  	$ C
   C
  Y	) C  	 C  employee  %C
  ?W) C  	C  employee   0 T 
 CC  C  T 
 C
    C    employee      , T 
 CCC
  G  # T 
 C
    T 
 C
  ? C
   C
   C
  Y-
 H$H C   % 
) C  	 C  employee    T 
C
   T 
C
  T C   T C  T C   T C  ) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
    CC r) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
  R C  C  C  C 	 C H) C  	 C  employee    T 
C
   T 
C
  T C   T C  T C   T C ! %C 
	  	D) C  	 C  employee   ' T 
 CC
   # T 
 C
    T 
 C
     % )
 Hk% CC %) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
       
 T  
 HS CC  %C 

 T   %  
 H{ C
   C
  	$ C
   C
  	$ C
   C
  Y	) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
  ? C
   C
   C
  Y   T 
C
   T 
C
  T C   T C  T C   T C    C ! %  C 	 %C 
) C  	 C  employee   , T 
 CCC
  G # T 
 C
    T 
 C
     
 H6 C 
 % 
 %C
  M T 
 C 
    %C
   I T 
     %C
   T 
 C 
    %C
    T 
     % C  C 	 %C
  \ T 
 C 
    %C
   X T 
     %C
   T 
 C 
    %C
    T 
    D C   C 		 C  C 	6 T 
 C
     C     employee   . %  CC 

	!H %CC+ ./0 CC, ./0 CC- ./0!+ %CC   T ? 5 T       ? 
 HF3 C+ . C, . C- .
 T 3 C+ / C, / C- /
 T 3 C+ 0 C, 0 C- 0
 T  9 T CC dC  1Zd@T T C 1Zd@T T C  T T   d
 H!  o
 Hk C+ . T +  T +  C, .0 T ,  T ,  C- .k T -  T -    B 
 H>  C+ / T +  T +  C, /  T ,  T ,  C- />  T -  T -    !
 H` ! C+ 0  T +  T +  C, 0  T ,  T ,  C- 0! T -  T -     M %  C 		   C  	 C 
	u!    > %  C 	 C 
	 !  neu	" "  %# $  " T          T          T          T          T          T          T           M %  C 		   C 	 C 
	" %  M %  C 		   C 
	 C 
	C# &  0 %  C 	 C 
	~# '  0 %  C 	 C 
	# (  0 %  C 	 C 
	# )  M %  C 		   C 	 C 
	L$ *  M %  C 		   C 	 C 
	$ +  ! %  C 		$ ,  M %  C 		   C 	 C 
	(% -  
 H9%C% C   C 	' %C . % T C 
 T   ' T CC   %C &! %  C 	% /   % & /    %C 
' %C & % & %C & T C     %C  	' %C & T C   %C ' T C      C ' %C6  R' T 5  '/ T 5CC  CC8    T CC   C C( %C6  ' T 5   (/ T 5CC  CC8    T CC   C 	( %C6  ( T 5  (/ T 5CC  CC8    T CC   C S) %C () T C 
 T   O) T CC    C ) %C ) T C 
 T   ) T CC    C 
- T CC   %C6  (* T 5  _*/ T 5CC  CC8    % 
+
 H*+4 C   C 	 C + %C + T C  T 5 
 T   % C  C 	{+ %C w+ T C  T 5 
 T    C + T C  T 5 
 T    
-
 H+- C E, %C A, T C  T 5 
 T   % C   C 	, %C , T C  T 5 
 T    C - T C  T 5 
 T    R C  C  C  C  C 	. %C6  - T 5  -/ T 5CC  CC8    %C 
- T CC   I. T C 
 T   T 5  T 6   %C .! %  C 	. T C  T 5 
 T     C 6 %C6  . T 5  6// T 5CC  CC8    T CC  
 Hf/6 C  {0
 H/w0  
/ %C /
 T     ?0 %C 

0 %C 	0
 T    ;0 %C 70
 T      w0 %C s0
 T     C 0 % 
0 %C 0
 T    0 %C 0
 T     CC }1 % 
K1 %C G1
 T    y1 %C u1
 T     C 1! % 
 C 	1
 T   ! %  C 	1
 T    C o2! % 
 C 	92
 T   ! %  C 	k2
 T    C 2! % 
 C 	2
 T   ! %  C 	2
 T    C a3! % 
 C 	+3
 T   ! %  C 	]3
 T    CC 3 %C 3
 T   % C 	 C 	3 %C 3
 T    C h4 C   employee    T CC   %C d4
 T    C 
4 C   employee    T CC   %C 4
 T    C b5 C   employee    T CC   %C ^5
 T    C 5 C   employee    T CC   %C 5
 T    C 6 %C 6
 T    C U6 %C Q6
 T    C 6 %C  6
 T     %  6 T C 
 T   T 5  T 6   C 
8 %C6  07 T 5  g7/ T 5CC  CC8   
 Hx78% C   C 	'8 %C 
7 T CC   #8 T C 
 T   T 5  T 6   C 8 T C 
 T   T 5  T 6   C < %C6  8 T 5  8/ T 5CC  CC8   
 H9<4 C   C 	 C 9 %C 
w9 T CC   9 T C 
 T   T 5  T 6   C l: %C 
: T CC   h: T C 
 T   T 5  T 6   C ; %C 
: T CC   ; T C 
 T   T 5  T 6  % C  C 	; %C 
d; T CC   ; T C 
 T   T 5  T 6   C < T C 
 T   T 5  T 6   C AAK %  C 	 # 0  L	 C# 1 	\ 09-03	<# T CC   < T CC    %C6  < T 5  *=/ T 5CC  CC8    % 
>
 HM=>D C  C 	 C  C 	= %C = T C  T 5 
 T   4 C   C 	 C e> %C a> T C  T 5 
 T    C > T C  T 5 
 T    @: %C "    		  	G? %C C? T C  T 5 
 T    @
 H\?@4 C   C 	 C ? %C ? T C  T 5 
 T    C E@ %C A@ T C  T 5 
 T    C @ T C  T 5 
 T   C @ %C @ T C  T 5 
 T       %C6  =A T 5  T 6   CC aB
 HgA]B C  A %C 
A# T CC   A T C 
 T    C ]B %C 
-B T CC   YB T C 
 T     C C %C  B %C 	B T C  B T CC    C T C 
 T    
 H#CI C 
	D % 
zC %C vC T C   D. % 
   C 
	C %C C T C   D %C C    C ND %C JD T C   C D % 
D %C D T C   D %C D T C    C 
&E %C "E T C   C F
 HHEF  
E %C E T C    F %C E %C E T C   F %C F T C     F %C tF %C pF T C   F %C F T C     F %C F T C    C ;G %C 7G T C   C G %C |G T C   C G %C G T C   C 
H %C 
H T C   C H %C dH %C 
`H T C   H %C H T C    C H %C 
H T C   C *I %C &I T C   C oI %C kI T C   C I %C I T C   C I %C I T C    %2 3 J B 
 H#JZ4 C  C 	 C K
 HdJK C	  J T 	C	 
 T  C	 J T 	  T 	  C	 K T 	CC	    C K
 H2KK CCC4 Rg8K %CCC4 \g8

K T 	C  K T 	   CCC4 Rg8K %C	 
K T 	    C L
 H
LL C	  FL T 	C	 
 T  C	 L  C    employee . T 	CCC 6 7 5 C  %C	  
L T 	   C     employee    b C   C 	 C  C  C  C 	Z$ %C  C 
	M T   $ %C  C 
	M T   > %  C 	 C 
	 !  neu	O
 H NO C	  PN T 	         CC	 N T 	C  CC	 N T 	C  CC	 	N T 	C  CC	 
O T 	C  CC	 @O T 	C  CC	 pO T 	C  CC	 
O T 	C   AY
 HO=Y C	  O T 	C  C	 P %C  .P T 	C C  P$ T8 CCCCCC 8
 ZRg8
 HgPP C8 	P T C  # T 	C C  % C	  C	 	Q %C  $Q T 	C C  Q$ T8 CCCCCC 8
 ZRg8
 H]QQ C8 	Q T C  # T 	C C  + T 	C	 CC	  % C	  C	 
	<R+ T 	C CC	 	  C	 U
 H^RU CC  R
 HRR% C   C 	R T 	C % C  C 	R T 	  % C  C 	4S T 	 % C  C 	T
 HfST% C   C 	S T 	 % C  C 
	S T 	C % C  C 	T T 	C   CC T
 H@TT% C   C 	xT T 	 % C  C 	T T 	C % C 	 C 	T T 	C   CC 	U
 HUU C 
BU T 	 % C  C 	~U T 	C % C   C 	U T 	C  % C ! C #	U T 	  % C	  C	 	BV# T 	CC	   C	 =Y$ %CCC9 
 Z\ 2LW %C  V T 	C C  HW$ T8 CCCCCC 8
 ZRg8
 HV!W C8 	!W T C  # T 	C C   gW T 	  $ %CCC9 
 Z\ 1W T 	C	 C  $ %CCC9 
 Z\ 2W' T 	C	 C C  $ %CCC9 
 Z\ 3LX' T 	C	 C C  $ %CCC9 
 Z\ 4X' T 	C	 C C  $ %CCC9 
 Z\ 5X' T 	C	 C C  $ %CCC9 
 Z\ 69Y' T 	C	 C C    $ %C  C 	Z % Z
 HYZ C	  Y T 	C	 
 T  C	 Y T 	  T 	 % C	  C	 	EZ$ T 	C C	 % C	  C	 	Z T 	C
C	      
 HZ^[% C   C 	[ %C	 [ T 	C	 
 T   CC 	^[ %C	 Z[ T 	C	 
 T   
 Ho[n^% C   C 	]
 H[] CC \\
 H[X\ C
  [ T 
C  CC
 0\ T 
C
 
 T  C
 X\ T 
  a C   C  C  C 
	 C  C \ :  C Q] :  %C  M]$ %C  C I] %C
 E] T 
C     C ] %C ] %C
 
] T 
   ] :    %C
 ] T 
  T 
  4 C 
 C 	 C 2^% C 
 C 	n^ T 
C
  
 H^B|% C  C 	r_
 H^I_ C  ^ T C  C _ T  % C  C 	I_ T CC   % T CC dTd C 
b %C   _ T C   
 H_a C _ ;  C ` <  C p`% T C C= ' %C = l` T C >   C 	`. T C C
 C= ' %C = ` T C >   C 
^a. T C C	 C= ' %C = Za T C >   C a6 T C C
 C	 C= ' %C = a T C >   % T CC dTd T C  CC 	^e %C   b T C  
 H{bb CC b
 Hbb  b %C b# T C x&1?    
 Hce C 'c ;  C Cc <  C c% T C C= ' %C = c T C >   C 	(d. T C C
 C= ' %C = $d T C >   C 
d. T C C	 C= ' %C = d T C >   C e6 T C C
 C	 C= ' %C = e T C >   % T CC dTd T C D C  C 	 C  C 	8h %C   e T C   
 Heg C f ;  C f <  C f% T C C= ' %C = f T C >   C 	g. T C C
 C= ' %C = f T C >   C 
yg. T C C	 C= ' %C = ug T C >   C g6 T C C
 C	 C= ' %C = g T C >   % T CC dTd T C % C   C 	B|  (h T?    
 Hh{ C  h C i %C 
?i8 T CC  CC   %C  
;i T    Zi T    %C 	i% T CC dTd T C  i% T CC dTd T C   C j %C 
j3 T CC  CC   %C  
j T    j T   % T CC dTd T C  C l %C 
lk3 T? CC  CC   %C?  
hk T?    k T?    %C 
l< T? CC  CC   %C?  
l T?    'l T?    T C? C? % T CC dTd T C  C nm %C 
m3 T CC  CC   %C  
m T    .m T   % T CC dTd T C  C n %C  Kn3 T CC  CC   %C  
m T    %CC G,n T C   T C  fn T   % T CC dTd T C  T C  C o %C  Ko3 T CC  CC   %C  
Go T    fo T   % T CC dTd T C  T C  C q %C  Kp3 T? CC  CC   %C?  
Gp T?    fp T?    %C 6q7 T? CC  CC   %C?  
p T?    %CC? Gq T? C?   T? C?  Qq T?    T C? C? % T CC dTd T C  T C  C s %C Ur3 T CC  CC   %C  
Qr T    pr T   % T CC dTd T C  T C  %C 
s# T C {Gz T C   C 	@v %C  s3 T? CC  CC   %C?  
s T?    s T?    %C ?t7 T? CC  CC   %C?  
;t T?    Zt T?    %C *u7 T? CC  CC   %C?  
t T?    %CC? Gu T? C?   T? C?  Eu T?   ' T C? C? C? % T CC dTd T C  T C  %C 
<v# T C {Gz% T CC dTd T C   C 
w %C v3 T CC  CC   %C  
v T    v T   % T CC dTd T C  T C  %C 
w, T C C
 {Gz% T CC dTd T C   C Wx %C 
Sx, T C C
 {Gz% T CC dTd T C   C 
y %C 
y% T C C= ' %C = x T C >  % T CC dTd T C   C y %C 
y> T C C
 C C C= ' %C = y T C >  % T CC dTd T C   C { %C 
{j T@ C C	 C
 C C
 C C C C C C C  TA C CC
 6 C
 Y	
 C
   6CC 6 C Y	
 C   6CC 6 C Y	
 C   68 T A C= '@       I@' %C = { T C >  % T CC dTd T C    %C  | T C   % T CC dTd T C   %> 
~
 He|~% C   C 	~ %C = ~ B  %. C 
| T C >   %C	 
} T 	C	 >   %C
 
?} T 
C
 >   %C 
~ %> ףp=
?~ %C 
} T C >   %C  } T C >   %C
  	~ T 
C
 >   %C  =~ T C >   %C  q~ T C >   %C  ~ T C >        %C 
'
 H~#% C  C 	# %C D  B 
 T	  
 H7Y C 
r %C n
 T	 o  C  %C 
 T	 o  C  %C 
 T	 o  C 
# %C 
 T	 o  C ^ %C Z
 T	 o  C  %C 
 T	 o  C Ԁ %C Ѐ
 T	 o  C  %C 
 T	 o  C J %C 
F
 T	 o  C ́ %C  %C 

 T	 o  ȁ %C ā
 T	 o   C  %C 

 T	 o  C B %C >
 T	 o  C } %C y
 T	 o  C  %C 
 T	 o  C  %C 
 T	 o  C 
 T	 o C 7
 T	 o C Y
 T	 o  %	 o
 %. C 
 T C C ' %C CC 8      ? T CC 8   
 T	  
 H
S C   C 	 C 	 C  C 	 %C  
 T	 o 4 C 
 C 	 C  %C	  ݄
 T	 o  C 
 T	 o CC   %	 o
 T 	C	 C ' %C	 CC	 8      ? T 	CC	 8  
 T	  
 H% C   C 	Ɇ
 Hņ CC 5
 H1 CC
  1
 T	 o D C   C 	 C  C 	ņ3 %C
  C
  C
  
 T	 o   C 
 T	 o  %	 o T 
C
 C      %   W T C    %   %C	 
 T 	C	     %   %C
 
 T 
C
     UE  Z7 Z8 Z9 ZI
 POSITIONHOLEN
 MYPOSITION WELCHESJAHR MONAT
 FILENUMMER J K	 DIENSTUNF PCG_F2 FILENEU PCG_F3 WERT PCG_F6 ANPASSUNGSFAKTOR BETRAG MYGET	 GETVALUES GRUNDBETRAG KNOEPFEKURZ I WNW	 TVDZEILE	 HSARBPROZ HSMEHRARBSTD HSSTDENTGELD HSANZMONARBSTD HSENTDGELTMALPROZ HSMEHRARBZUSCHLAG BWFAMZU_2022 BYVERGLEICH BYFAMZU_2023 WVW RESERVE7 BERLINFAMZU_2024
 NRWFAMZU_2022
 RLPFAMZU_2022 HHFAMZU_2022 SHFAMZU_2022
 BRDFAMZU_2022 BREMENFAMZU_2022 NSFAMZU_2023 MVFAMZU_2022 DASTUFEN ANHALTGRUNDBETRAG SPARTE ENTGELTCODE STUNDENSATZOFFEN TRUE BDATEXT CCUR EMPLOYEE FELD OP1
 ZHLKINDER
 STELLEBUND STUFE220 TVDLEISTUNG
 WELCHERMONATB MULTIPLIKATORB LEISTUNG
 HSBETRAGALLES HSBETRAGTEIL STUFENANZAHLERMITTELN MULTIPLIKATORA
 WELCHERMONATA/
   (   (H $ T  CC     %C $
 Hn   CC     ( ' T  C  C   C     (' T  C  C      U  EMPLOYEE I GRUNDBETRAG CCUR FELD ZI` ) T  C C= '  %C  Y  T  C     U  BETRAG GRUNDBETRAG WERT ANPASSUNGSFAKTOR ZI
 WELCHERMONATA MULTIPLIKATORA
 H
  CC  
  %C  
  	T T A Das Programm nimmt im November allgemein einen Stufenaufstieg vorC
 e T  N Die Stufenbegrenzung nach Anlage 2A zum TV-L wird dabei nicht bercksichtigt.C
 $ %C   C  fF T  / In EG 9 gilt fr bergeleitete Beschftigte ausC
  T    C
 L T  5 - BAT Va und BAT V b, jeweils ohne Aufstieg nach IVb C
 : T  #    und BAT Vb nach Aufstieg aus Vc:C
 = T  &       Stufe 3 nach 5 Jahren in Stufe 2C
 A T  *       Stufe 4 nach 9 Jahren in der Stufe 3C
 1 T         keine Stufen 5 und 6C
  T    C
 & T   - Lohngruppe 9:C
 = T  &       Stufe 4 nach 7 Jahren in Stufe 3C
 1 T         keine Stufen 5 und 6C
   %C  F T  / In EG 3 gilt fr bergeleitete Beschftigte ausC
  T    C
 " T   - BAT VIII:C
 * T         keine Stufe 6C
  T    C
 A T  * - Lohngruppe 3 nach Aufstieg aus 2 und 2a:C
 * T         keine Stufe 6C
  T    C
 ; T  $ - Lohngruppe 2a nach Aufstieg aus 2:C
 * T         keine Stufe 6C
  T    C
 H T  1 - Lohngruppe 2 mit ausst. Aufstieg nach 2a und 3:C
 * T         keine Stufe 6C
   %C  
SF T  / In EG 2 gilt fr bergeleitete Beschftigte ausC
  T    C
 5 T   - BAT IXb nach Aufstieg aus X:C
 * T         keine Stufe 6C
  T    C
   T  	 - BAT X: C
 * T         keine Stufe 6C
  T    C
 - T   - Lohngruppe 1 und 1a:C
 * T         keine Stufe 6C
   T    C
 N T  7 In diesen Fllen ist der Stufenanstieg im November 2008C
 3 T   manuell rckgngig zu machenC
 Q T  : und die individuelle Zwischenstufen ist wieder einzusetzenC
 H T  7 und zwar mit "07 fixe Zwischenstufenerhhung lt. Eing."F C  4 V O R S I C H T  bei Stufenaufstieg im November 2008x   U  ZI ZTI MSGk T    %C  G  T  C  C   %C    T  C  C	   %C	    T  C  C
   %C
    T  C  C   %C  ' T  C  C
   %C
  _ T  C  C   %C   T  C  C   %C   T  C  C   %C   T  C  C  ) T  C  C= '  %C  d T  C     U  BETRAG WEIZ TRUE WERT ANPASSUNGSFAKTOR ZI
 WELCHERMONATA MULTIPLIKATORA[
 T  
 H T C  < 
 T   C ^ 
 T   C  
 T  # C  
 T  1 C  
 T  ' C  
 T  4 C 
 T  < C *
 T  P C 	L
 T   C 
n
 T   C 
 T   C 
 T   C 

 T   C 
 T   C  T   C < T   C _ T  , C  T  @ C  T  T C  T  h C  T  r C  T  | C 1 T   C T T    U 
 MYPOSITION ZI'   )(4  C    employee 4 T   )C  L7A`? C    employee 4 T   )C  T㥛 ?  % %, T C ?, T C ?  % 
k, T C ? , T C       ?  % 
, T C x$(~? , T C ?     U  M MYGET ZUSATZUMLAGEAB EMPLOYEE FELD WELCHESJAHR ZVKVORGABEN anhaltgrundbetrag,     
 stellebundn     grundbetragholenn    	 getvaluesv     stufe220ӏ    
 TVLWarnung     tvdleistungr    
 positionholen0     zusatzumlageberechnen    3 A1A B1A  QQqA QqA QqA RQqA QqA A 3  QqQQqA R1A RqA 3     Qq QA A RQQ QA  QA  QQA A BA R !Q A "QQ A  Q A A !QQ A  Q A A !Q A A A  A A Q  A  A R rq  1 1A A A A q        A          A A  QAA  q 1aq qqqq q1A q q 1A   q q  q A 1 Q!q qqq q 1A q 1!q qqqq q1A A ! q 1A A A A A   Q A   q 1q qqqA A RQq 1A A A  Q!qA A qA A A QqA A qA A AA A r Q QA  1 1 1 A qa  Q11Q11Q11A  Q11Q11Q11A  Q11Q11Q11A A A A q A q AA A q A q A q A q A q A q A q A q A q A  QQq  Qq A !q A B QR!QqA A A QQqA RqA B A A QQ1 A QQ1 A QQ1 A RQq  A RQq  A QQ1 A ! AQq1 A QQq1 A Qq1 A   QQq1 A QQq1 A Qq1 A A "Q1 A Q q 11A Qq1 A A QQ1 A  Q !Q A !QQ A  Q A A !Q A A Q!Q A  Q A A !Q A  Q A A R A  A R A  A R A  A R A  A Q A RQ A Rq Q A Rq Q A Rq Q A Rq Q A RQ A RQ A RQ A B q 11A RQ1 A  QQ q 11A Qq 11A QQ1 A  AQ q 11A QQ q 11A QQ q 11A QQ q 11A Qq 11A R1 A Q1 A ! AQq1 A AQq1 A Qq1 A  Qq1 A   AQq1 A QQq1 A Qq1 QQr1 A A A A Q11A  QQ1 q A QQ q A A QQQq A  q A B  Q!QqA  QqA  QB B A QQqA R!QqA  QqA A QQqA Q !QqA "QQqA  QqA A !QQqA  QqA A !QqA A RQqA RQqA RQqA RQqA RQQqA  QqA B QQqA RQqA RQqA RQqA RQqA A A A  A Qq Q11QA Q q 1A Q1A A R Qq QQ1A q A "B1A B1A  QqqqqqqqA   QqQQ A A 1A QQ A A 1A QQ  QqQ1A Q1Q Q1QqQqA  Q1QqQqA  Q1QqQqA R1A Q1QBQ A A 1A  1A BA BqA BqA BqA BqA BqA B A B! Qq Q11QAQA A A A  QQq A Qq A A  Q  Qqq Q1A q Qq QAQqA A A QQa1A  q A A R11A BQqA  Q QqQ1QA QQA  Qq Qq QQQA RQA RQA RaQA A Qq  !Q1A A A A  Qq Qq QQQA RQA RQA RaQA B QqBA  Qq Qq QQQA QQA RQA RaQA A QqRq1A  QQQ1A  1A QQq QqA Q1Q1A  1A QqR1Q1A  1A Q1A  1A QqR1Q1A  1A QqRQ1Q1A A  1A QqRQ1Q1A  1A QqRQ1Q1A  1A RqQ1A A  1A QqRQ1Q1A  1A QqQ1qA RQ1Q1A  1A RqQ1A  1A RqQ1A A  1A qQqQ1QqA RQ1Q1A  1A QqQQqA RQQqA QQQQA QqA QQQA QqA QQ	QA QqA B RA QqB # QQq aA RA RA RQA RA RA RA RA RA B A B A A # QQq   QQ A RQ A RQ A RQ A RQ A RQ A RQ A RQ A RQ A RQQ A  Q A B QQ A RQ A RQ A RQ A RQ A R Q Q A !aqA A A   1 A BQ A R B !qA A   Q   A A1  A A Q A A B A A A QA A QA A 5  qAA R qqA QqqA A A A 3 QA 3  AQAaqqaA Rbq!qqqA QbqQqqA q1aA A 4 1QA RA RA RA RA RA RA RA RA QA 3   Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A 4 rAAA # " A ! A A q 2                    ?               (   ,   ?    :                         
  G  ?    F  h    J  r    x         %   R            V][    U  
 H
 C C   C  	 C  
 C  	6 T # Individuelle Erhh. d. Entgeltstufe1 T  Individuelle Endstufenerhhung6 T # Erhhung der Entgeltstufe lt. Eing.$ T  Strukturausgleich0 T  Strukturausgleich lt. Eingabe3 %C   C   C  	6 T #  17,4 TV-L soweit nicht in Zeile 8 6 T #  17,4 TVD soweit nicht in Zeile 8 3 T   Fixe Entgeltstufenerhh.lt.Eing.4 C   C  	 C    6
(8
 C   woerter  T  6
   1 T  Keine Allgemeine Stellenzulage CC   

 H
S C   C   C  		 C   C  	  6
(8
 C   woerter  T  6
    C  
 % 
)  6
(8
% C   woerter  T  6
    ! T  Strukturzulage! T  Strukturzulage- T  Strukturzulage lt. Eingabe' T  Keine Strukturzulage  CC    % 
M  6
(8
I C   woerter  T  6
    ! T  Strukturzulage0 T  Strukturzulage A5 Pol.Vollz.D- T  Strukturzulage lt. Eingabe' T  Keine Strukturzulage  CC  

 H$5
  6 T # Allg.Stellenzul. (in Zeile 8 enth.)6 T # Mehrbetrag (wg.bish.Leistungsstufe)7 T $ Ergnzung des Grundgehalts lt. Eing.   %C  
6 T # Allg.Stellenzul. (in Zeile 8 enth.)6 T # Mehrbetrag (wg.bish.Leistungsstufe)7 T $ Ergnzung des Grundgehalts lt. Eing. 6 T # Allg.Stellenzul. (in Zeile 8 enth.)
 Ht CC  2+ T  Erhhung im mittl.Dienst CC  t) T  Erhhung im geh.Dienst 6 T # Mehrbetrag (wg.bish.Leistungsstufe)7 T $ Ergnzung des Grundgehalts lt. Eing.   5
6 T # Allg.Stellenzul. (in Zeile 8 enth.)
 H>		 CC  	+ T  Erhhung im mittl.Dienst CC  	) T  Erhhung im geh.Dienst 6 T # Mehrbetrag (wg.bish.Leistungsstufe)7 T $ Ergnzung des Grundgehalts lt. Eing. $ %C   C   	]
 
1 T  Keine Allgemeine Stellenzulage   CC  8+ T  Allgemeine Stellenzulage! T  Strukturzulage5 T " Individ. Erhhung der Entgeltstufe C  
 HZ C   t
 H|p CC     ( C   woerter  T      C   C  p  (l C   woerter  T       C   T      U  ZI ZT9 I MYGET WOERTER TEXTEE WELCHESJAHR$ %C   (  T   %C   T  T   %C	     T 	  %C
     T 
 ' T C C C	 
 T  
 T  
 H  C  C  C 	 C 
 C 	 C  C  C 

 T   (a T    C   	  wvw  
 
 ]  (. %C   
 *" T  C   C      %C    Y T      T    ( %C   
   T C C       % 
  C 	 T C	  '! T C C C	   % 
  %C
  u T C
  T 

   T C   T 
   . %C  T    %C ?
> %C > : %C  F& T  \C Q>@   % 
  C 	{
 T    T      % 
  C 	 T   T   T 	
  6 T 
  T 
  T 	
    * T   T   T 	  %C   T C  T 
  & %C   T C  T 
  " %C  : T C  T 
   %C  { T C  T 
   %C   T C  T 
   %C   T C  T 
  
 T           %C E %  T C  T   T   T 	  T 
  T 
  A T C
  T   T   T 	  T 

  T     T   
 Hk#	S C  C  C 
	 C  C 	( T  CC   d C #	( T  CC   d  %C  \	
 T   T     % 
  C 		 T     	 T   1 %     	      	
" %CC 


 %C 

 T!    A T"  d    1Zd@       T ! " dP T # $  Jahressonderzahlung - CC   Z  Tag(e) Umwandlung    C  T C%   U& 	 WEIHTZENG FEHLTAGE WEIHBZ12 WEIHBZQ ZI	 ZWLFTELB I	 WEIHBZENG MYGET FILENEU WVW J WEI TRUE TBNAM WEIZ	 BRUCHZAHL AOK_VERSION WEIHBZBASIS
 NACHSEPTEMBER	 WEIHGELBB FALSE WELCHESJAHR WEIHNACHTSGELD
 WEIHFAKTOR
 WEIHKINDER SEPTEMBERKINDER KIZU WNW TVDSOZAMINUSTAGE MYFORM1 T1 VALUE
 HSZWIJASOSUMM
 MINUSTAGEWERT Z18 CAPTION TEILZAHL 
 H
  % C    C  	K  T F% C   C  
	  T <% C   C  	  T 2  U  ZI WEIHNACHTSGELDR* T  7 A4 Fn2 (JHptWachtmstr.), T  8 A5 Fn1 (1.JHptWachtmstr.)/ T  9 A6 Fn2 (im JWachtmstrDienst)4 T  :! A6 Fn3 (ltd.Funkt.im JWachtmstD.)4 T  ;! A9 Fn1 (herausgeh.Funkt. im m.D.)3 T  <  A13 Fn1 (Amtsanwalt, Herausheb.)4 T  =! A13 Fn2 (Rechtspfleger, Heraush.)3 T  >  A13 Fn3 (techn.Dienst, Heraush.)4 T  ?! A13 Fn5 (Kon-/Rektor, Herausheb.)2 T  @ A14 Fn1 (Kon-/Rektor, Heraush.)2 T  A A14 Fn2 (Konrektor, Herausheb.)2 T  B A15 Fn3 (Schuldir., Herausheb.)) T  C A16 Fn2 (Ltd.Direktor)2 T  D R2 Fn 3,4,5,7,8 (Leit.Funktion)/ T  E R3 Fn 3,4 (Leitungsfunktion)0 T  F C2 Fn 1 (Oberarzt Uni-Klinik)1 T  G A6 Fn 1 (Funkt.im JWachtmstD.) T  H   U  ZT12 T   
 H   C  C  C 	 C 
 C 	 C  C  C 
 J (   (
; C     wvw  
  7 %C   ! T  C   C	   %C  [! T  C   C	   %C	  ! T  C   C		   %C
  ! T  C   C
	   %C  ! T  C   C	   %C  G! T  C   C	   %C
  ! T  C   C
	   %C  ! T  C   C	   %C  ! T  C   C	   %C  3! T  C   C	     T    ( %C  
    T C C        %   C 	 T C	  ! T C C C	   %
   %C
  O T C
  T 
  { T C  T    U	 %  e
 T    %   C 	 %C	  T    u %C  T    %C G T    %C	 q T     T     %   C 	 T   T   T 	  $ T   T   T 	   %C a % $ T C C    6 T   T   T 	  T 
  T   ]$ T C C
    6 T   T   T 	  T 
  T     Q	 T   T   T 	  %C   T C  T   M	 %C    T C  T   I	 %C  a T C  T   E	 %C   T C  T   A	 %C   T C  T   =	 %C  $	 T C  T   9	
 T           T   
 H{	3
S C  C  C 
	 C  C &		( T  CC   d C 3
( T  CC   d  %C  l

 T   T     %   C 	
 T      
 T    1 %     	     	" %CC 

 %C 
 T    A T   d   1Zd@      T     dP T ! "  Jahressonderzahlung - CC   Z  Tag(e) Umwandlung    C   (
 C     wvw  
   %C  ! T  C   C	   %C  ! T  C   C	   %C	   
! T  C   C		   %C
  ;
! T  C   C
	   %C  v
! T  C   C	   %C  
! T  C   C	   %C
  
! T  C   C
	   %C  '! T  C   C	   %C  b! T  C   C	   %C  ! T  C   C	     T    (
 %C  
  	  T C C      ! T C C C	  %C
  k T C
  T 
   T C  T    T   ( T  CC   d T     U#  TEILZAHL ZI	 WEIHTZENG I MYGET FILENEU WVW WEI TRUE TZNAM WEIZ AOK_VERSION WEIHTZBASIS
 NACHSEPTEMBER WEIHGELB J FALSE WELCHESJAHR WEIHTZ12 ZWLFTEL WEIHTZQ WEIHNACHTSGELD
 WEIHFAKTOR
 WEIHKINDER SEPTEMBERKINDER KIZU WNW TVDSOZAMINUSTAGE MYFORM1 T1 VALUE
 HSZWIJASOSUMM
 MINUSTAGEWERT Z18 CAPTIONH
   (A
 % Z 
 H6 V  CC V  B  
 Hk =
 C    % 

 H ^% C   C 	I %C
 

0 T   C C
 RQ? E0 T   C C
 RQ?  C ^  T   C     C   Z %C 
 T   C  ' T   C ?  C   [} %C 
J T   C  y' T   C )\(?  C   \ %C 
 T   C  ' T   C Q?  C   ]u %C 
B T   C  q' T   C p=
ף?  C   ^ %C 
 T   C  ' T   C Q?  C   _m %C 
: T   C  i' T   C 333333?  C   ` %C 
 T   C  ' T   C {Gz?  C   ae %C 
2 T   C  a' T   C 
ףp=
?  C   b %C 
 T   C	  ' T   C RQ?  C   c] %C 
* T   C
  Y' T   C ?  C   d %C 
 T   C  ' T   C 
ףp=
?  C   eU %C 
" T   C  Q' T   C ?  C   f %C 
 T   C
  ' T   C Q?  C   gM %C 
 T   C  I' T   C p=
ף?  C   h %C 
 T   C  ' T   C Q?  C   iE	 %C 
	 T   C  A	' T   C {Gz?  C   j	 %C 
	 T   C  	' T   C 
ףp=
?  C   k=
 %C 


 T   C  9
' T   C ?    U  I WELCHESJAHR ZI OP1 BETRAG WERT
 BEAMTENZULAGE GRUNDBETRAG#   weihnachten_anzeigen B U  WEIHNACHTEN_ANZEIGENG' %CCC   
 Z\ 2D  T  Verh.Z + KiZ f.  f  T 
 Zuschlag fr  $ %CCC 
 Z\ 1  T   1. $ %CCC 
 Z\ 2  T   2. $ %CCC 
 Z\ 3 T   3. $ %CCC 
 Z\ 4R T   4. $ %CCC 
 Z\ 5 T   5. ' %CCC   
 Z\ 6 T   6.  T    Kind %C >
" T  Verheiratetenzuschlag  T   T     U  WVW ZHLKIND MSG
 ZHLKINDER ZT8 MYFORM1 Z8 CAPTION-   (  C    woerter  T      T      T         !(z& C    woerter  T      T      T       U  I MYGET ZT12 WOERTER TEXTEE ZT13 ZT14+1 T   begr. Dienstfhiskeitszuschlag T  C   T C   T C   T C   T C  
 T  0 %C 
	  	 C 	 
 T 	 
 H  C  ^ %C 
Z
 H6V C  V   B   CC  %C 
   B  C  %C 	
! %  C 	   B  %    B   C  %C 	
! %  C 	p 	  B  %  	  B    C woerter
   (+ %C 
&$ %C  C   ( C   woerter
  T   
   T  
   T  
     %C O  Q(bK C   woerter
  T   Q
   T  Q
   T  Q
    0 %C 
	  	 C 	`
% T   Zulage lt. Eingabe6 T  # 49-51 Pol,Feu,Just ab 2.Jahr b. A66 T  # 49-51 Pol,Feu,Just ab 2.J. A7+8+AW6 T  # 49-51 Pol,Feu,Just ab 2.Jahr ab A96 T  # 49-51 Pol,Feu,Just ab 3.Jahr b. A66 T  # 49-51 Pol,Feu,Just ab 3.J. A7+8+AW6 T  # 49-51 Pol,Feu,Just ab 3.Jahr ab A96 T  # 52 Steuerfahnd., LBG1, 2.EA, b. A66 T  	# 52 Steuerfahnd., LBG1, 2.EA, A7+A86 T  
# 52 Steuerfahnd., LBG1, 2.EA, ab A9/ T   52 Steuerfahnd., LBG2, 1.EA6 T  # 53 Flugzeugfhrer Abs.1 Nr.1 bisA66 T  
# 53 Flugzeugfhrer Abs.1 Nr.1 A7+A86 T  # 53 Flugzeugfhrer Abs.1 Nr.1 ab A94 T  ! 53 Flieg. Pers. Abs.1 Nr.2 b. A64 T  ! 53 Flieg. Pers. Abs.1 Nr.2 A7+A84 T  ! 53 Flieg. Pers. Abs.1 Nr.2 ab A96 T  # 55 Lehrer a. Fachleiter Abs.1 voll5 T  " 55 Lehrer a. Fachleiter Abs.1 2/36 T  # 55 Fachleit. Bez. Fortb.Abs.1 Nr.27 T  $ 55 Studienr+Prf.sozialp.Abs.1 Nr.36 T  # 55 Integrat.Z Fachkraft Abs.1 Nr.43 T    55 Integrat.Z Leiter Abs.1 Nr.40 T   56 Nr.1 Verfassungsschutz A63 T    56 Nr.1 Verfassungsschutz A7+A80 T   56 Nr.1 Verfassungsschutz A94 T  ! 56 Nr.1 Verfassungsschutz ab A10   (\
 T  C    T  C     
  (
 C   woerter
  T   
   T  
   T  
      0 %C 
	  	 C 	* T   Nr. 8b BSI-Zulage A1-A5* T   Nr. 8b BSI-Zulage A6-A9, T   Nr. 8b BSI-Zulage A10-A131 T   Nr. 8b BSI-Zulage A14 u. hher1 T    Nr. 8a Aufklrungszulage A1-A51 T  ! Nr. 8a Aufklrungszulage A6-A93 T  "  Nr. 8a Aufklrungszulage A10-A134 T  #! Nr. 8a Aufklrungszulage A14 u.h.0 T  $ Nr. 8 Sicherheitszulage A1-A50 T  % Nr. 8 Sicherheitszulage A6-A92 T  & Nr. 8 Sicherheitszulage A10-A133 T  '  Nr. 8 Sicherheitszulage A14 u.h.6 T  (# Bundesbankzulage 19% Grundg+AllgStZ T  *   T  +   T  ,   T  -   T  .   T  /   T  0   T  1   T  2   T  3   T  4   T  5   T  6    (5 T  C    T  C    ) T  7 Nr. 7 Min-Zulage A1-A5) T  8 Nr. 7 Min-Zulage A6-A9+ T  9 Nr. 7 Min-Zulage A10-A13. T  : Nr. 7 Min-Zulage A14,A15,B1. T  ; Nr. 7 Min-Zulage A16, B2-B4) T  < Nr. 7 Min-Zulage B5-B7* T  = Nr. 7 Min-Zulage B8-B10' T  > Nr. 7 Min-Zulage B11& T  ? Nr. 7 Min-Zulage C2* T  @ Nr. 7 Min-Zulage C3, C46 T  A# Nr. 7 Min-Zulage R1 ohne Richteramt& T  B Nr. 7 Min-Zulage R1) T  C Nr. 7 Min-Zulage R2-R4) T  D Nr. 7 Min-Zulage R5-R7* T  E Nr. 7 Min-Zulage R8-R10% T  F Amtszulage A7 Fn 2% T  G Amtszulage A8 Fn 23 T  H  Zul. Direktor u. Professor(B2/3) T  I   T  J   T  K   T  L   T  M   T  N   T  O   T  P   T  Q    6(P T  C    T  C     ,  ( C   woerter
  T   
   T  
   T  
     (( C   woerter
  T   
   T  
   T  
    
 H=[D C   C 	 C  C 	0 %C 
	  	 C 	>4 T  R! 56 Nr.2 Meister/Techniker bis A63 T  S  56 Nr.2 Meister/Techniker A7+A83 T  T  56 Nr.2 Meister/Techniker ab A95 T  U" 56 Nr.3 Richter Vize VerfassungsG- T  V 63 LBesG Junior Professor6 T  W# 64 LBesG Professsor als Richter R16 T  X# 64 LBesG Professsor als Richter R2. T  Y 67 LBesG Sitzungsvergtung  T  Z
 LBesO A5 Fn 1" T  [ LBesO A5 Fn 3+4  T  \
 LBesO A6 Fn 2  T  ]
 LBesO A7 Fn 2- T  ^ LBesO A9kw Fn 1, A9 Fn 1+4! T  _ LBesO A12 Fn 5! T  ` LBesO A13 Fn 4! T  a LBesO A13 Fn 5' T  b LBesO A13 Fn 8+10+11" T  c LBesO A13 Fn 12/ T  d LBesO A14kw Fn 5, A14 Fn 3+4! T  e LBesO A14 Fn 9" T  f LBesO A14 Fn 10# T  g LBesO A15kw Fn 1' T  h LBesO A15 Fn 3+4+6+8" T  i LBesO A15 Fn 11! T  j LBesO A16 Fn 2" T  k LBesO R1 Fn 1+2" T  l LBesO R2 Fn 3-8  Q(k: T  C    T  C       ( C   woerter
  T   
   T  
   T  
    %C   ( C   woerter
  T   
   T  
   T  
     %C      CC [  (W C   woerter
  T   
   T  
   T  
     T C 
 H!S C   C 	 C  C 	 C  0 %C 
	  	 C 	  T  m
 LBesO R2 Fn 9  T  n
 LBesO R3 Fn 30 T  o LBesO 46 Leiter gr. Behrden# T  p LBesO A12kw Fn 4% T  q LBesO A13kw Fn 2+7# T  r LBesO A13kw Fn 6# T  s LBesO A13kw Fn 9# T  t LBesO A14kw Fn 4  T  u
 LBesO C2 Fn 10 T  v LBesO A14 Fn 1(ruhegehaltsf.)  T  w
 LBesO B2 Fn 2  T  x
 LBesO B3 Fn 1! T  y Strukturzulage$ T  z 91a A12 nach A13  z(- T        l( T  C    T  C         ( I C   woerter
 + T   C 
  + T  C 
  + T  C 
    %C   ( C   woerter
  T   
   T  
   T  
    ! %C 	  	   (  C   woerter
  T   =
   T  =
   T  =
      C !! %  C 	     % !    CC !  (! C   woerter
  T   
   T  
   T  
    0 %C 
	  	 C 	&/ T    12,5 % der Endstufe von A 5/ T    12,5 % der Endstufe von A 90 T    12,5 % der Endstufe von A 130 T    12,5 % der Endstufe von A 15" T    12,5 % von B 3" T    12,5 % von B 6" T    12,5 % von B 9/ T    12,5 % der Endstufe von R 1" T    12,5 % von R 3" T    12,5 % von R 6" T    12,5 % von R 90 T    13,5 % der Endstufe von A 150 T    13,5 % der Endstufe von A 16/ T    13,5 % der Endstufe von B 3/ T    13,5 % der Endstufe von B 4/ T    13,5 % der Endstufe von B 5/ T    13,5 % der Endstufe von B 6/ T    13,5 % der Endstufe von B 7/ T    50,0 % der Endstufe von A 8/ T     8,0 % der Endstufe von A 9  (% T      T     T       (& T  C    T  C     &  (& C   woerter
  T   
   T  
   T  
     +  ;
(
N' C   woerter
  T   ;

   T  ;

   T  ;

   1 T   Besitzstandszulage (dynamisch)1 T  Besitzstandszulage (dynamisch)1 T  Besitzstandszulage (dynamisch)+ T   Besitzstandszulage (fix)+ T  Besitzstandszulage (fix)+ T  Besitzstandszulage (fix) % +
 H(+ C 
E) % A)  (=) C   woerter
  T   
   T  
   T  
     CC +  P(X) C  woerter
  T   
   T  
   T  
     Z(jm* C m woerter
  T   
   T  
   T  
     (* C  woerter
  T   
   T  
   T  
     ( }+ C  woerter
  T   
   T  
   T  
        U  ZT12 ZT13 ZT14 NRWAUFSCHLAG ZI WELCHESJAHR ZULAGENLADENBW ZULAGENLADENBUND
 ZULAGENHESSEN ZULAGENLADENANHALT MYGET J I WOERTER TEXTEE HHBESORDNUNG ZULAGENSCHLESWIG    (  C    woerter  T      T      T       U  I MYGET ZT12 WOERTER TEXTEE ZT13 ZT14   _(  C    woerter  T   _   T   _   T   _   ! %  C 	W   (S C    woerter # T   Z  # T   Z  # T   Z     %    (
 C    woerter # T   Z  # T   Z  # T   Z     U	  I MYGET ZT12 WOERTER TEXTEE ZT13 ZT14 WELCHESJAHR ZI    (  C    woerter  T      T      T       U  I MYGET ZT12 WOERTER TEXTEE ZT13 ZT14    ("  C    woerter  T      T      T       U  I MYGET ZT12 WOERTER TEXTEE ZT13 ZT14# C %C   C  	 C   C  	 
 HP   C  ~  T   Z C  	  T   _ C    T     C}   Soza    %   C  	8 T    $ %C   C  	 %C   T     T     - T   C  
   C}   Soza   T	   
 
 T   %C  ]
 T   %C  3 %C   C   C  
 T     %C  3 %C   C   C  
 T   
 H( C  g %C  
c T
 C    C  $ %C   C  	 %C  
 T
 C    
 T
   b C   C  	 C  
 C  	 C   C  	R
 T
  4 C    C  	 C   %C  
 T
 C     % a C  	 z  (v T    T    T    T    T    T    T     
 T  
 T  
 H  C   C   C  	 C  
 C  	 C   C   C  n  ( C     wvw 
  e T     ( %C    % T  C   C     % 	a T C   %  

 T    % ; T    % ]
 T      % 	H	* %C   C  
	 C}   Soza < %C   C  	 C  	:B T C   CC       > T C   CC        	  %   C  		 C}   Soza > T C   CC         %C   /	
 T!   D	
 T!    % 

 %!  |
* %C   C  
	x
 C}   Soza < %C   C  	 C  	.
B T C   CC       t
> T C   CC          %C   

 T!   

 T!    %  %!  * %C   C  
	 C}   Soza < %C   C  	 C  	B T C   CC       > T C   CC            T   %C"  E T C C	   %C"  } T C C		   %C	"   T C C
	   %C
"   T C C	   %C"  %
 T C C	   %C"  ]
 T C C
	   %C
"  
 T C C	   %C"  
 T C C	   %C"   T C C	   %C"  = T C C	  ' T# C	 C	    %   C  	 T$ C	  " T$ C C C	   %%  [ %C
   T$ C
  T 
 
 T& 
 W T$ C  T  
 T&    %$  $
 T    %   C  	 %C	  T    Q %C  T    %C # T    %C	 M T     T$ $    %   C  	 T   T   T 	    T   T   T 	   %C    %  T' C  T   T   T 	  T 
  T  
 T&   T   T   T 	  T 
  T  
 T& 
    T   T   T 	  %C   T$ C  T    %C   T$ C  T    %C    T$ C  T    %C  a T$ C  T     %C   T$ C  T    %C   T$ C  T   
 T$           T $ ( 
 T)  
 T*   ! %  C  	
 T+  
 T, -  C	   wvw A %C  & C   CC  	F
 T*    . (B C .    wvw , T* * CC    x  -6  
 T- ,  C -    wvw  T+ C x*  T)        @+  ! %  C  	W
 T+  
 T, -  C   wvw A %C  & C   CC  	2 . C	   wvw A %C  & C   CC  	
 T*    . ( C .    wvw , T* * CC    x  -6   T+ C x*  T) @+  
 T- ,  C -    wvw  $ T C ) ( T  CC    d %C   
 T
   T      %   C  	) T/ 	 T	  / 
  D T	     %  0 1  	j" %CC  

f %C  
b T2  / 
 A T3 $ d4 5 6 1Zd@4 5 6 0 1  T	 2 3 dP T4 7 8  Jahressonderzahlung - CC0 1  Z  Tag(e) Umwandlung    C  ) % > T C   CC         (
, C     wvw  % T  C  C	    T C	 C		  T$ C  T $ ( ( T  CC    d %C     T	 C9   T   T	   T: C	  T; C	  C     (
< C     wvw  
  8 T     ( %C    % T  C   C     % 	 T C    %  
4
 T      T   %C"   T C C	   %C"   T C C		   %C	"   T C C
	   %C
"  / T C C	   %C"  g T C C	   %C"   T C C
	   %C
"   T C C	   %C"   T C C	   %C"  G T C C	   %C"   T C C	  " T$ C C C	   ( T    T<     %C
  , T$ C
  T 
 
 T& 
 e T$ C  T  
 T&  ( C}  
 Soza ; T C   CC       T $ ( ( T  CC    d T	    U=  ZI JZWINDEX WELCHESJAHR JAHR1 MYGET AOK_VERSION TRUE WVW ZNAM WERT IZUWERTHOLEN
 WEIHFAKTOR	 ALTESLAND
 WEIHKINDER I
 WEIHVZVOLL	 WEIHVZENG	 WEIHBZENG
 WEIHBZVOLL	 WEIHTZENG
 WEIHTZVOLL WEIHGELB FALSE WEIHVZ12 WEIHVZQ FILENEU J WEI TNAM SEPTEMBERKINDER WEIHNACHTSGELD SOZA VORSOZA ZWISCHENRAUM WEIZ FEHLTAGE WEIHVZBASIS
 NACHSEPTEMBER	 WEIHMONAT WEIHNACHTSBASIS ZWLFTEL HSPLUSPROZENTEE8 HSE8TVH
 HSE8ANZAHL
 HSOLDMONAT MONAT
 HSWEIHNACHT24 KIZU WNW TVDSOZAMINUSTAGE
 HSZWIJASOSUMM
 MINUSTAGEWERT MYFORM1 T1 VALUE Z18 CAPTION BETRAG	 BRUCHZAHL TEILZAHL	 WEIHGELBB
 T    %C / 
 T    T  
 HY   CC v  B C   T C  B  %C 
  C   wvw    (	G %C  	 C3 T C C 
    ; T C CC    d, T C 
 C  U 
 WEIHFAKTOR	 ALTESLAND ZI SICHT WERT MYGET FILENEU I WEIZ TRUE WVW EFFZ WEIHNACHTSGELD KIZU
 T    %C / 
 T    T  
 HY   CC v  B C   T C  B  %C 
  C   wvw    (	C %C  	 ?/ T C C 
    ; T C CC    d, T C 
 C  U 
 WEIHFAKTOR	 ALTESLAND ZI SICHT WERT MYGET FILENEU I WEIZ TRUE WVW TZNAM WEIHNACHTSGELD KIZU %C  
" 
 T  7 
 T 
 
    T    T  C   T     T	  
 T
      
    T       T   T  T  T # T 
 T  
 HE% C    C  		' T  Jhrliche Sonderzuwendung% C  
 C  	! T  Jahressonderzahlung 1 T       fr CC    T   
      T 2 T  T ( T x T   T  Gehalt T      " T 2 T ^ T ( T x T   T  Teilzeit T    T   Januar T   Februar T   Mrz T   April T    Mai T!   Juni T"   Juli T#   August T$  	 September T%   Oktober T&   November T'   Dezember T(   Belegte Monate  T)   Basis-Gehalt *)> T*   davon CCCC  , + 
Z  %) T-   + .   Kinderzuschl. T/   Summe T     T0    
 H$% C    C  		9 T1  ( *) in Spalte "W" angekreuzte Betrge des6 T2  %    magebenden, oben gekennzeichneten T3  
    Monats.% C  
 C  	> T1  - *) Durchschnittsbetrag der 3 gekennzeichneten9 T2  (    Monate mit Auffllung von Fehltagen. < T3  +    (nur Gehaltsteile mit "x" in Spalte "W".  T4   
 T   5 ( C 5  7  wvw6  T8 C9 :  ;  T< C< C< > T= CC5  Z .Kasten&kkk..Caption = wer
 %8   T     5 (2

 H	C C   C  	 C   C  	w C 5  7  wvw6  T8 C 5 >  ;  %5 

s$ T?  zeileCC5  Z .&zzz..Caption = ""
 % C  
 C  		 T8 C 5 >  ;  %5 


	$ T?  zeileCC5  Z  .&zzz..Caption = fehltage(i)
   T< C< C< >! T=  kastenCC5  Z .&kkk..Caption = wer
 %5 

.
$ T?  zeileCC5  Z" .&zzz..Top = .zeile(i + 1).Top
 .&zzz..Left = 350
 .&zzz..Height = 30
 .&zzz..Width = 30
 .&zzz..FontBold = True
 .&zzz..Visible = True
  2 T@   davon CCA 
 Z	  Zwlftel T8 A d ;  T< C< C< > TB  < 
 T8 C  ;  T< C< C< > TD  < 
 T8 E  ;  T< C< C< > TF  < 
 T8 G  ;  T< C< C< > TH  <  %C  
	 %C  
 T8 I .  $ %C   C   T8 I C    T8 I C     
 T8    ;  T< C< C< > TJ  <  T8 G I .  ;  T< C< C< > TK  <   5 (
  T?  zeileCC5  Z% mytablett.&zzz..Top = 55 + i * 25
 mytablett.&zzz..Left = 10
 %5 F
 mytablett.&zzz..Width = 450
 m
 mytablett.&zzz..Width = 290
  mytablett.&zzz..Height = 25
" mytablett.&zzz..Visible = True
  5 (! T=  kastenCC5  Z& mytablett.&kkk..Top = 55 + i * 25 
 mytablett.&kkk..Left = 200
 mytablett.&kkk..Width = 120
 mytablett.&kkk..Height = 25
+ mytablett.&kkk..BackColor = QBColor(15)
" mytablett.&kkk..Visible = True
  %L 
 M 
   5 ( C 5  7  wvw6  T8 C9 :  ;  T< C< C< >% T=  kastenCC5  Z .&kkk..Caption = wer
 %8   T     5 (6 T8 C 5 N  ;  T< C< C< >% T=  kastenCC5  Z .&kkk..Caption = wer
  T8 A d ;  T< C< C< > TO  < 
 T8 P  ;  T< C< C< > TQ  < 
 T8 R  ;  T< C< C< > TS  < 
 T8 T  ;  T< C< C< > TU  <  %C  
d T8 I C  V  y
 T8    ;  T< C< C< > TW  <  T8 T I . V  ;  T< C< C< > TX  <  5 ($% T=  kastenCC5  Z, mytablett.&kkk.Top = 55 + (i - 18) * 25 
 mytablett.&kkk.Left = 400
 mytablett.&kkk.Width = 120
 mytablett.&kkk.Height = 25
* mytablett.&kkk.BackColor = QBColor(15)
! mytablett.&kkk.Visible = True
   
 HP C  
d T Y Z  [ Z  T \ Z  [ Z % C  
 C  	 5 (	! T=  kastenCC5  Z, mytablett.&kkk..BackColor = QBColor(14) 
  %C   5 (	x! T=  kastenCC5  Z+ mytablett.&kkk..BackColor = QBColor(15)
 T] 5    %C
]   T ^ Z C_   T ` Z C_    C  P) T=  kastenCC	a 	 Z, mytablett.&kkk..BackColor = QBColor(14) 
 T b Z C_   T5   <  c  T  Drucken T G T  T 5  T ( T 
 T     d e T  Hilfe T G T 5  T 5  T ( T 
 T     e  T 	 Schlieen T G T 5 ( T 5  T ( T 
 T    Uf  ZI J MYFORM1 KCOMBO VISIBLE FALSE Z20 CAPTION ZT20 MONAT ZTI	 NEUERNAME DIMENAUS IZUWERTHOLEN	 ZUWENDUNG TRUE	 MYTABLETT ZEILE0 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD WELCHESJAHRC ZT0 ZEILE22 ZEILE24 ZEILE1 ZEILE ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE9 ZEILE10 ZEILE11 ZEILE12 ZEILE13 ZEILE14 ZEILE16 WEIHNACHTSGELD
 WEIHFAKTOR ZEILE17
 WEIHKINDER ZEILE18 ZEILE23 ZEILE19 ZEILE20 ZEILE21 KASTEN0 I MYGET FILENEU NUMBR WVW TNAM ZAHLINTEXTNUMBR WER KKK	 WEIHVZENG ZZZ ZEILE15 ZWLFTEL KASTEN13 WEIHVZBASIS KASTEN14 WEIHVZ12 KASTEN15 WEIHVZQ KASTEN16 KIZU KASTEN17 KASTEN18 TEILZEITFAKTORZ
 TEILZUWENDUNG TEILZAHL KASTEN31 WEIHTZBASIS KASTEN32 WEIHTZ12 KASTEN33 WEIHTZQ KASTEN34 TEILZEITFAKTOR KASTEN35 KASTEN36 KASTEN12	 BACKCOLOR Z18 KASTEN22 FEHLTAGE KASTEN10 QBCOLOR KASTEN11	 WEIHMONAT KASTEN19
 SSCOMMAND3
 SSCOMMAND1
 SSCOMMAND2
   
 H     T  T  T  T  T  T   8 T  T  T  T  T  T    T  T  T  T  T  T   V T  T  T  T  T  T    T  T  T 	 T  T  T    U  VOREIN WELCHESJAHR
 VORKINDERGELDH
   (C 0  T      
 HA S4 C   C 	 C   T - T 8$ C  C ( T  Kein Familienzuschlag. T  Familienzuschlag fr 1 Kind  (gE T   Familienzuschlag fr CC  Z  Kinder / T  Familienzuschlag lt. Eingabe %C   T   CC	   Bq C  C 	 C 
 C 	 C  C 	 C l7 T $ Besitzstandszuschl.f.Kinder lt.Eing.3 T   Kein Besitzstandszuschl.f.Kinder2 T  Besitzstandszuschlag fr 1 Kind  (GM T   Besitzstandszuschlag fr CC  Z  Kinder  %C d
 Hm` CC `( T  Kinderzulage lt.Eing.% T  Keine Kinderzulage* T  Kinderzulage fr 1 Kind  (\E T   Kinderzulage fr CC  Z  Kinder    B C  %C   T - T 8  T  T   C  T  T  C "
 H- C  
 HO CC   T  T  C  T 	 T 	 C  T  T   C  T 	 T 	  C S T  T     (  C   woerter	  T   
   
 HA
% C   C 		3 T 
  Zuschlag fr 5 Kinder  ( - / 5 )3 T   Zuschlag fr 6 Kinder  ( - / 6 )! %C 	  	. T  Fam.Zuschlag Stufe V (vh/0). T  Fam.Zuschlag Stufe 1 (vh/1). T  Fam.Zuschlag Stufe 2 (vh/2). T  Fam.Zuschlag Stufe 3 (vh/3). T  Fam.Zuschlag Stufe 4 (vh/4). T  Fam.Zuschlag Stufe 5 (vh/5). T  Fam.Zuschlag Stufe 6 (vh/6)1 T  Fam.Zuschlag Stufe L (Ledig/0) 	2 T  Anrechnungsbetrag f. Unterkunft / T  Familienzuschlag lt. Eingabe( %
    
  A 
		 T 
     	3 T   Familienzuschlag mit Zhlkindern  C A
6 T # Zul. f. hherw. Ttigk. lt. Eingabe4 T ! Zulage fr hherwertige Ttigkeit  U  HSA ZT8 ZI
 WORTANFANG WORTENDE I MYFORM1 Z8 CAPTION MYGET WOERTER TEXTEE WELCHESJAHR WVW ZHLKIND
 ZHLKINDER ZKINDERANZEIGEN %C  (  T     %C   k  T   T    %C    T M T M  %C  : %  &   C  		  	X T  T 1 T  Verm.wirks.Leistung 13,00 Euro  T  T 0 T  Verm.wirks.Leistung 6,65 Euro  T  	 C 
   
   %C  : %  &   C  		  	 T  T 1 T  Verm.wirks.Leistung 20,00 Euro  T 1 T 11 T  Verm.wirks.Leistung 13,29 Euro  T  	 C 
   
   %C  V T  T   %C   T c
 T c
  %C   T  T    U  ZI WERT BETRAG AOK_VERSION TRUE WELCHESJAHR ZT10 MYFORM1 Z10 CAPTION REFRESH
 T   
 H  C  T  c
 HJ   C    %C 	
  T  ҁ    C   %C 
  T  c  C  
 T    $ %C  C 	
 T    F % B T  c   %C m T  c  %C 
 T     C   wvw  %C.   
 T     %C  T  C  D C   C 	 C  C 	 %C  g
 T     T  C    T    %C  T C   %C  T   T    %C  T   %C ^ T C  } T C    U	  SUMMEU ZI	 ALTESLAND MYGET FILENEU WVW TNAM BETRAG WERT
 T   
 T  
 T    (	n %  \ 
 T   C     wvw * %C    C 	  	  T     - T
  C  C    %C   	
 T    % 	j %C  
f %C  C  
b
 T       %
   |
 T  T
     L  
(H C     wvw * %C    C 	  	 T   - T
  C  C     
 T   %C   T    T     U  IZUWERT1 IZUWERT2
 NACHSEPTEMBER TRUE IZU FILENEU MYGET WVW TNAM WEI FEHLTAGE FALSE ZNAM WNW WEIFLAG ZWLFTEL WERT %C  S > T C   CC      ' %C   C   	 > T C   CC      
 H   =
 H 9 CC   @- T C   9#J?@ CC  - T C   F@" CC  - T C   X9vR@1 CC  	

9- T C   HzgU@   
 H\ CC   - T C   9#J?@ CC  - T C   F@" CC  C- T C   X9vR@1 CC  	

- T C   HzgU@     U	  ZI WEIHNACHTSGELD
 WEIHFAKTOR SOZA VORSOZA WVW ZNAM	 ALTESLAND WELCHESJAHR
 Allgemeine,      bruchzuwendung
     diakonischezuwendung     HHbesordnung    
 teilzuwendung     vergtungsgruppenzulagen/     weihnachten9     zkinderanzeigen9    
 zulagenhessenj<     zulagenladen=     zulagenladenanhaltj     zulagenladenbundj     zulagenladenBW4m     zulagenschleswigm    	 zuwendungn     zuwendung_ATZteilM     zuwendung_ATZvolln     weihnachtenalt     kindergeldvorgaben(     ortszuA     vwl     UrlaubZ     izuwertholen&     sozatvl1922H    4  1aaA1a aA 1AA  1A Q!A  qA !A  qA  !aaq!Qaaq a A aqA !a A aqA B A A QQ Q A QSA B Q2A A 3 Q1A R1A R1A R1A r    r1 qq!A A aA A A 3qaA A  A Q1 1A  Q1A RQ Qa   A A 111 111A A  111Q1 Q1 Q1 Q1 Q1 Q1  A A A A A A A A R!11111 11111A A R 1QB R 1A  1A !QaA A A RqA 4  QQQA 3 AA1A1A!!!!13 2  r aA bA bA bA bA bA bA bA bA bA B A 2qaA A  A Q1 1A   QA  QA RA RA A 111 111A Q!A11111 A11111A A  111Q1 Q1 Q1 Q1 Q1 Q1  A A A A A A A A R 1QA R 1A  1A !QaA A A Rr aA bA bA bA bA bA bA bA bA bA B A 2qaA A R1 1A R1B 3 r! A A A  ! QQ A QA A Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA Q qA A A 3 A 3 r A A1A B1A B1A B1A B1A r1A b1!A 213 A A 3 qqqqq  A  QQ Qq A A A Qq A A QQq A A !q A A A RQq A A !q A A A A rQAA  QA  RaaaaaaaaaaaaAAAaQaqa11AqA  A A A A 1A!1a1111111111111rA qaaaQQ1111111111qA  A A A  AB11Qaa!q!!1q!!!qA  A QA A Qq A A A A  11Q111AqqA qA  A QA A A A A Rq A "q A A A !!!!!!qqqqA qA  A A  A " Q!A A qA qA qA qA A A A A 4 A 3 A 111A A !111A A 3 A 3 A 3 1 QQQA  R AR A  A A A 2q  Q A S1 A A Q1 A A  QQA RARA   A ! AQA B  q1111111A A    r 1qqQA B  A A  A B C " B  A A    A A " C A A    A A " B A A A B 3QA RA RA RA RA RA RA RA RA RA r !A Q1  1 A   QA  QA RA RA B 111 111A R!11111  11111 A A  111R1 Q1 Q1 Q1 Q1 Q1  A A A A A A A A R    q qA A  1A   q q qA A 1A  A AR 1A   1A !QaA A A R"A rQA QQ qA 11qqSq 1qqQA B A  A J A 3QA RA RA RA RA RA RA RA RA RA "s11A R1  1 A Q1C 4  Q A  A QA A RqA t1A B 3  Q A  A QA A RqA rA B 3 S   A  1A  r q q q        QqQA  A       A A      a A rQaAQQqa QaQA  rAq qA A r 1!q AqA R!q AA A A!QaQA A "q  q  q  q RQ A QA A   A q Tq A rR A !B rb!B q  qAq QA A r!q QB q  q  q  q R  A r r qQB A A  QQqA q1A Rq qA A RqA Q      A 1 !    A q a    A 3    !AQQQQQ"AQQQQQ!AQQQQQ!AQQQQQ!QQQQQQA A 3 1A  A  AqQA QB A q1!qA Q QqQA A A B QQ     A Q  T Q   Q  Q  A Q  A Q  A rA  Q11 !A q  1A RaAA 4 R1 Q11A QAAA QAA AAA q A RAA AAA q A QAAA QAAA QAAA A 3   Q  QQA RQ A R A B   A B R A R A s A RA BQ  A A 2RqA R11A R2Qq qA A 3    q A A  A  A A A A R  qA A A  QA 3 Q q  ! !A ! !A A A A 1                    ;        r   3  |%  ~     %  &  =    &  *  H  /  6*  YF  ]    F  6S  j    ZS  S      S  V      V  X  0    @X    @  O  ;      V  	  y    m    E    t  o  #    {  E  l  (  *    .  L  A  X    m  X    R      }  !
     @
  a	      	  E  	  % 

    % * X
    * 05 
     %   p     ' o  I Jn[A    U  
 H
 %       	E  T  %      <	}  T %   =   `	  T %   a   	  T %      	% T %      	] T &   
   	 T      U  DIENSTMONATE ZI
 H
      . 
 T     O 
 T 0    p 
 T H     
 T `     
 T x     
 T      
 T     
 T     6
 T     	W
 T     
x
 T     
 T    %C  %C   `  
_ T  T C m       %C 
 T    B  T  	   T
    T     }
 Htf  

 T    <

 T   `

 T   

 T   


 T   
(
 T   
G
 T   f
 T   T     U
  WNW BESJA I ZI TVDAUFSTIEG BDATEXT DATEADD MYFORM1	 BDABEGINN VALUE WVW BDA DIENSTMONATEV    ( % T   C   % T   C    %C      %C    % T   C   % T   C       T 	C  T 	C  %C r T 	C  T 	C   T 
C  T 
C  %C  T 
C  T 
C      
(% T   C   % T   C   % T   C       
( %C     %C   
) T   C        %	  O T C*   U
  I SICHT	 BRUCHZAHL TEILZAHL SOZZ TRUE BRUZ	 SCHLSSEL WERT NR63*
 H
 # C   
 H/      	_  T       	  T      #	  T    $  /	  T    / T    C  
 H9     #	i T     $  G	 T    H  w	 T    w T   % C   C  	 % 

 H5     #	e T     $  G	 T    G T    
 H     #	 T     $  G	2 T    H  	b T     T     C   % 

 H     	 T       	" T      )	R T    *  ;	 T    ; T    
 H     	 T       	 T      #	O T    $  /	 T    0  ;	 T    ; T     C  ( % 

 H     #	? T     $  ;	o T    <  w	 T    x  	 T     T    $
 H      #	< T     $  G	l T    H  k	 T    l  w	 T    x  	 T      T     C  U	 % 

 H\     #	 T     # T    Q	
 HM	     #	 T     $  G	)	 T    GM	 T     C   
 % 
	 T    	
 H		     #		 T     $	 T     C  

 H"
     	R
 T       	
 T      )	
 T    *  ;	
 T    ; T   % C  	 C  	
 H<     #	l T     $  G	 T    G T   % C   C  	?
 %C  
;

 H7
   T  $ %C  
 C   %C  
{ T      w T    G T    # T    
 T    
7
 T      C  I
 Ha
E     	
 T       #	
 T    $  ;	
 T    <  k	! T    kE T    C  #
 Hk     /	 T     0  _	 T    `  	 T     T     U  ZI DIENSTMONATE WELCHESJAHR %C  

 T  
 T  
 T   T   T     %   
 T   %C  W 	 	(  %C 	 
     T C C 	     %C
  , T C C  ' T C C    d  	 	( %C 	 
  # T C C	 
    %C 	 
   T C C
  ' T C C    d  %C  b/ T C C C    d  T C C
   %C  3 T C C    C  d / T C C    C  d  %C  Z/ T C C    d  ' T C C    d   %C   T C
    T C
   
 H C   C  ' C   %C  
E %C  ' T C    d   T C    d  %C  
7 T C C    C  d  A/ T C C    C  d   %C   T C
    T C
    C   %C  
x %C  R	 T   T   %C   	 	(y %C 	 
  u  T C C 	     %C
   T C C  ' T C C    d  	 	(8 %C 	 
  4# T C C	 
    %C
  p T C C
  ' T C C    d  %C   T C   T C	
  ' T C C    d T C C  T   %C	  / T C C    d  + T C C    d  %C
  	7 T C C    C  d  N	/ T C C    C  d   %C  g T   T   	 (= %CC    C   C  C  	 C 	    wvw  %C   %C    R
" T C C !   %C    
" T C C	 !   %C	    
" T C C
 !   %C
    " T C C !   %C    J" T C C !   %C    " T C C
 !   %C
    " T C C !   %C    " T C C !   %C    B" T C C !   %C    " T C C !    %C    " T C C "   %C    
" T C C	 "   %C	    B
" T C C
 "   %C
    
" T C C "   %C    
" T C C "   %C    
" T C C
 "   %C
    :" T C C "   %C    x" T C C "   %C    " T C C "   %C    " T C C "     T     %C   %C    n T C C   %C     T C C   %C	     T C C	   %C
     T C C
   %C    Z T C C   %C     T C C   %C
     T C C
   %C     T C C   %C    F T C C   %C     T C C    %C     T C C
   %C     T C C	
   %C	    : T C C

   %C
    u T C C
   %C     T C C
   %C     T C C

   %C
    & T C C
   %C    a T C C
   %C     T C C
   %C     T C C
   ' T C C    d' T C C    d T C C  T   %C	  0 T C C      ( T C C      %C
  +8 T C# C    C    c0 T C C    C    * %C    C   	t %C	  / T C C    d  ' T C C    d  %C
  ^7 T C# C    dC    
 Hsc C    C  	 C  
 C  
	 C   C  	/ T C C    dC   C  	 %C  
^/ T C C    dC   + T C C    d+ T C @  C    C   %C  + T C D  C     $ %C   C  	p+ T C D  C      %C   T C
    T C
     U$  ZI	 SZLAUFEND SZJULI SZDEZ	 BRUCHZAHL ATZBRANDENBURG SZI	 SONDERZAH SZTZ I WEIZ TRUE SZ1LFD WERT SZ2FZ SZ3KI SZ4FB TEILZEITFAKTOR TEIZ SZ6JL SZ7JLKI SZMASS SZ9DEZVH SZ12DEZFZVH	 SZ10DEZFB	 SZ11DEZKI WNW
 BUNDESBEAMTER WVW ZNAM MYGET FILENEU WEI EFFZ TNAM TEILZAHL>
 H
 %       	E  T  %      <	}  T %   =   `	  T %   a   	  T %      	% T %      	] T &   
   	 T     T   %C 

 H%      	 T %      	U T %      	 T     T    %C 
7
 HU%      3	 T %   4   W	J T %   X   	 T %      	 T %      	 T '    
   ;	, T    ;U T   %C 3
 H{/%       $	 T  %   %   K	 T %   L   {	# T %   |   	[ T %      	 T &   
   /	 T '   0
   k	 T    k/ T     U  DIENSTMONATE ZI SOLDATI
   
 H   C 
T  T   T   x C   %C   T    T   ? T  Rentenvers.  CC	 
Z  % / 2 
 H C% C   C 	% T
  % ATZ Arbeitsphase& T
  % ATZ Freizeitphase T
    T
    T
    CC 
( T
  % TV-ATZ Arbeitsphase) T
  % TV-ATZ Freizeitphase' T
  % AltTZG Blockmodell* T
  % TV-Falter Blockmodell+ T
  % TV-Falter Freist.Phase4 C  C 	 C ( T
  % TV-ATZ Arbeitsphase) T
  % TV-ATZ Freizeitphase' T
  % AltTZG Blockmodell* T
  % TV-FlexAZ Blockmodell+ T
  % TV-FlexAZ Freist.Phase CC 	C( T
  % TV-ATZ Arbeitsphase) T
  % TV-ATZ Freizeitphase' T
  % AltTZG Blockmodell T
    T
      ( T  sozCC  Z %C  
   .&sss..Caption = "x"
  .&sss..Caption = "-"
        U  MYFORM1 ZI ZVKZ TRUE ZVK17 CAPTION COM46 VISIBLE ZT39 RVOREIN ZT22 I SSS SOZZ ZULAGENLADEN LEIAUFBAUEN T  C 
 H % C   C 	
 HP  %     	  T  %    0	  T %  1  H	  T %  I  `	0 T %  a  	h T %    	 T %    	 T     T   C 
 H&%     	^ T  %    <	 T %  =  b	 T %  c  	 T %    	> T %    	v T %    	 T    T   C 
 H%     	4 T  %    <	l T %  =  b	 T %  c  	 T %    	 T %    	L T &  
  	 T    T    U  J ZI DIENSTMONATE T  C  T C 
 T     (v   (.x  T       T  
 T  
 H  	 d 	 	 T 	 d
  % 
 T 
 
 T    % }:
 T   
 HK 	 ec   	 f{   	 g   	 h   	 i   	 j   	 k   	 l   	 m#   	 o` %C \ T   	 pq 	 q 	 r 	 s %C  T    T    	 tC %C $ T   ? T    	 u
 HaD C   C 	 C  C 	    	 v
 HD C   C 	 C  C 	    	 wA T   	 yY   	 zq    	 { 	 } !  	  "  	  #  	  $  	  %C& A T ' T ( T )  %  T 5&  T ''  %C5 
; %CC& G  %C 
 T '  T '   7 %C 
 T ' 3 T '    %C& g T '  %C&  T '   	  %C*   T( *   	  %C*)  T( +   	 T %C+) P T( ,   	  %C,)  T( -   	  *  	  +  	  ,   	  	 	 	  	 	 	  	  	 	 	  	 	 	  	 	; %	 ' C- .  Zeitzuschlge SV-pflichtig	 T C(   T( 	 /  T 	 /   	  	 	k	 T( /  T /  T0 1 2  T3 1 4  T5 1 6  	 	 %C  	 T C(  	 T /   	 #
 %C  
 T C(  
 T /   	 d
 %C `
 T C(   	 
 %C 
 T C(   	 
 T C(  	 
 	 9 %C()  T   5 T /   	  %C)) u T 0   T 0/   C	  %C	 )  T 	    T 	 /   	  %C- +D T -C-(   %C	 )  T 	    T 	 /    	  T( 4/  	  T( 6/  7  	 "
 T( :/  	 G
 T ;/  	 l
 T </  	 
 T( =/  	 3	 	 ?	
 T8 	 ,9  	 	 	 	
 T: 	 ;  	 	 	 	6 T 	 <  	 _	 	 k	m T 	 X=  	 	 	 	 T> 	 ?  	 '	 	 3	 T@ 	  A  	 
 TB C  7  	  %CD i T  T CD  T( C   %C	D  T  T C
D  T( C   	 L T CD  T CD  T( C  T C	D  T( C  	 k
 TE /  	 
 TF /  	 
 TG /  
 HF 	 g TH I  	 j TJ I  	 p& TK I  	 qJ TL I  	 rn TM I  	 w TN I  	 | TO I  	  TP I  	  TQ I  	 " TR I  	 F TS I  
 HW T { TU (V  T / TU )V  T * TU *V  T + TU +V  T , TU ,V   %C(  Q T(  T(  W  , %C( C(  C  	 W    %C $ %C  C 
	 X    %C ! TY C  Z  TY C  [   %C& z
z$ %C/ !
 C/ "v$ %C5 
 C5 ` %C& CC/ C \ , C& CC/ C \  # %CC/ C \  $ %CC/ C \ @/ T &CC/ C \ J %C5  T &C&   3 T &CC/ C \    T &    r` %C& CC/ C  \ , C& CC/ C  \ ^ n# %CC/ C  \  O$ %CC/ C  \ @/ T &CC/ C  \ J %C5  T &C&   K3 T &CC/ C  \   j T &      $ %C  C  T] C    %^ 
 TE  
 TE    %C k$ %C   C g % c T- _ C  T- ` B     a   %b 
 T    T C    c  d  %C  TY C  [   a  e  
 Tf   Ug  MERKER ZI MONAT FM I BETRAG WVWIN	 MYPVKIANZ LASTPVKIANZ	 LASTCLICK LASTZ ZTI
 MYMIETSTUFEZ8
 LASTMIETSTUFE MYSONDERZUSCHLAG LASTSONDERZUSCHLAG ZGRID1 ZGRID2 ZGRID3 ZGRID4 ZGRID5 ZGRID6 ZGRID7 ZGRID8 ZGRID9 WEIZ TRUE FALSE ZGRID17 ZGRID18 ZVKZ ZGRID21 ZGRID22 ZGRID25 ZGRID28 ZGRID33 ZGRID34 ZGRID37 LASTZ52 LASTZ38 WERT	 SCHLSSEL ZGRID46 ZGRID47 ZGRID146 WNW ZTEXT18 LASTT ALTERSPROZENTB WVW DIMATZAUFSTOCKUNG ATZSOLI
 DIMATZSOLI	 ATZKIRCHE DIMATZKIRCHE DASTUFEBERECHNEN LSTZ LASTLST SOZZ LASTSOZ LASTZVK LASTWEI TEIZ LASTTEI BRUZ LASTBRU BDATEXT LASTBDATEXT	 COMBOZAHL SOLDATI NR63 GLEITALT ZT3 LASTTEXT ZT6 ZT12 ZT13 ZT14 ZT19 ZT24 ZT42 ZT43 ZT44 ZT47 LSCHL SCHLSSE LASTSCHL	 MONAT3031 JULIVERSORGUNG J ATVVORGABENHOLEN ATVUMSETZEN GETKVBEITRAG ATZTEIL SOLDATO BESJA TVDAUFSTIEG
 BERECHNUNG REGISTER GRUPPE STUFE ANZEIGE PENSIONSFLOP T    %C 
  (|  %C    x # T  C  C     
 H  C  3
 H /% C   C 	 # T  C  ? C /# T  C  333333? % C  C 	{# T  C  333333? C # T  C  ?   T  C   U  WERT ZI I WEIZ TRUE BETRAG
 H
 %       	E  T  %      <	}  T %   =   `	  T %   a   	  T %      	% T %      	] T &   
   	 T      U  DIENSTMONATE ZI  4  
 T    % d
7  T   ; %C G ! C dG  C G 	 
 T    
 T    U  JJHR JAHR ISSCHALTJAHR TRUE FALSE
 H
 ( CC   	  T `M/  T `M/  T `M/  T `M/  CC  
 T -  T -  T -  T -  C   %C    T  @,  T  @,  T  @,  T  @,   T *  T *  T *  T *    U  ZI BETRAG WERT ISSCHALTJAHR WELCHESJAHRw 
 H
 p '   Q
   	G  T 
   p  T   U  DIENSTMONATE ZI! T  C C C 
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T	  
 T
  
 T  
 T  
 T
  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   
 T!  
 T"  
 T#  
 T$  
 T%  
 T&  
 T'  
 T(  
 T)   * (	 %* k
 T+ 
 T, (  %* 
 T+ /
 T, ) / %C+ -   C , .  000000	 	
 H	 C , /  K
 Hp C , / < T  CC+ -  C , / p T
 
 CC+ -  
 H C , /  T  CC+ -  C , /  T  CC+ -  
 H C , / . T  CC+ -  C , / b T    CC+ -  C , /  T  CC+ -  C , /  T  CC+ -  
 H C , /  T" " CC+ -  C , / C T# # CC+ -  C , / w T$ $ CC+ -  C , /  T% % CC+ -  C , /  T& & CC+ -  C , /  T' ' CC+ -   %C , / G T( CC+ -   C , / 	
 Hq C , /  T  CC+ -  C , /  T  CC+ -  
 HR C , /  T  CC+ -  C , / R T
 
 CC+ -  
 Hc3 C , /  T  CC+ -  C , /  T! ! CC+ -  C , /  T  CC+ -  C , / 3 T  CC+ -  
 HD|	 C , / x T" " CC+ -  C , /  T# # CC+ -  C , /  T$ $ CC+ -  C , / 	 T% % CC+ -  C , / H	 T& & CC+ -  C , / |	 T' ' CC+ -   %C , / 	 T( CC+ -      + *(,
 T0  
 T1  / %C+ -   C + .  000000 %C+ 2 	 T- +  
 H]

 CC52 
, T- + C+ - C&- c 
 H

 CC'2 	
, T- + C+ - C'- c 
 HP C(2 P, T- + C+ - C(- c $ %C52  C2 	 T- + C+ -    
 H| C + /  
 HS
 C + / + %C+ -  
' T  CC+ -   C + / S
 %+ ,

 Hb
% C-2   C-2 *	 %C+ -   T  CC+ -   C-2 , T0 C--  C-2 -
 T1 C--   O
 %C+ -  K
 T  CC+ -    
 Hd

 C + / 
 T  CC+ -  C + / 
 T  CC+ -  
 H
 C + /  T  CC+ -  C + / E T  CC+ -  C + / y T  CC+ -  C + /  T  CC+ -  
 H C + /  T" " CC+ -  C + / & T# # CC+ -  C + / Z T$ $ CC+ -  C + /  T% % CC+ -  C + /  T& & CC+ -  C + /  T' ' CC+ -  , %C + /   C + / & n %C+ -  
G j T  CC+ -    %C + /  T( CC+ -   C + / |
 H C + / , %C + /   C + /  %C+ 2 
d T  CC+ -  T  CC+ -   T  CC+ -    C + / , %C + /   C + /  T  CC+ -   
 Hl C + / 8 T  CC+ -  C + / l T  CC+ -  
 H}M C + /  T  CC+ -  C + /  T  CC+ -  C + /  T  CC+ -  C + / M T	 	 CC+ -  
 H^ C + /  T" " CC+ -  C + /  T# # CC+ -  C + /  T$ $ CC+ -  C + / . T% % CC+ -  C + / b T& & CC+ -  C + /  T' ' CC+ -  , %C + /   C + /  D %C+ -  
 T  CC+ -  T  CC+ -  @ T  CC+ -    %C + / x T( CC+ -      %3   
  U4  EINMALVORHANDEN	 BRUCHZAHL STEINLFDPLUS STEINEINPLUS SVEINLFDPLUS SVEINEINPLUS ZVKUEINLFDPLUS ZVKUEINEINPLUS ZVKBEINLFDPLUS ZVKBEINEINPLUS
 STSACHLFDPLUS
 STSACHEINPLUS
 SVSACHLFDPLUS
 SVSACHEINPLUS ZVKUSACHLFDPLUS ZVKUSACHEINPLUS ZVKBSACHLFDPLUS ZVKBSACHEINPLUS
 STEINLFDMINUS
 STEINEINMINUS
 SVEINLFDMINUS
 SVEINEINMINUS ZVKUEINLFDMINUS ZVKUEINEINMINUS ZVKBEINLFDMINUS ZVKBEINEINMINUS STSACHLFDMINUS STSACHEINMINUS SVSACHLFDMINUS SVSACHEINMINUS ZVKUSACHLFDMINUS ZVKUSACHEINMINUS ZVKBSACHLFDMINUS ZVKBSACHEINMINUS P15AG P20AG P25AG P15AN P20AN P25AN AGLFD AGEIN J I K WERT SCHLSSE	 SCHLSSEL VKAPA VMT ZI STFREIEINMAL %C  
t
 T  
 T  
 T   T   T    	(  %C     # T C C     T C C ! T C C 
  	 d% T  C	 C 
   d% T  C 
   C  d T  C 
  
 d T    T C   T  
 HA C  S T C 
   ! T  C 
   C   T  d %  O   T  C   C  A
 T  
 T  
 T   %C  3 T   %C   T  C    	(2 %C    . T  C     %C   T  C 
   d T  C 
   d %  T C 
   d %  

 T   
 T     T  C 
   d   T  C 
   d %C  o% T  C	 C 
   d % T  C 
   C  d % T  C 
   C  d T    
 H C  
 T C    T   
 T   %C  =	 T   T  
 T  
 T   T  ! C   T  ! C   C #  $  wvw"    %   9	 C $  wvw%  T  C  !  T  C  !  &  T' C C   	( %C    3 T C C  C 
   d T  C   (    %C  V/ T C C C 
   d T  C  (   T  C  %C  / T C C	 C 
   d T  C	  (   %C  
 T  C    T  C  T  C 
   d! T  C 
    d( %C )  j C  	 T    % C+ *  T C+ *   T    rh? 	 %C  
	
 T     T   T     %  h	 T   * %C    C   	= T C 
   d   T C  
 H	9c C    C  	 C  
 C  
	 C   C  	z
/ T C C 
   dC   C  	~ %C  

/ T C C 
   dC   z+ T C C 
   d % 
C+ T C @  C   v+ T C P  C     C  9 %C  
/ T C C 
   dC   5+ T C C 
   d+ T C @  C       %C  
* %C   C   T     T C  T C  U,  ZI	 SZLAUFEND SZJULI SZDEZ WERT I WEIZ TRUE	 SONDERZAH SZ1LFD SZI SZ2FZ SZ3KI SZ4FB BETRAG SZ6JL SZ7JLKI WNW BESJA DEZEMBERDURCHLAUF
 SZDEZ_ANH1
 SZDEZ_ANH2 SZMASS SZ9DEZVH WELCHESJAHR	 SZ10DEZFB SZ12DEZFZVH	 SZ11DEZKI IZUWERTHOLEN ZWLFTEL TASTE0 RENTEAB WVW ZNAM MYPUT MONAT FILENEU MYGET
 SZI_BESTIMMEN OP3 TNAM
 BUNDESBEAMTER KVGRENZE	 ALTESLAND# T  C  T C  T  
 T    ( %    	x  = %CC   C   C	 
 C 	 C     wvw ! %CC    j * C{
  
 sonderzah   ]5 C{C	 
 
  
 sonderzah    T C	 
  T C	 
    T C	  C	   %C	   ( T  C	  C    d  %C	   I2 T C C		  C    d  %C		   ( T  C
	  C    d  %C
	   ( T  C	  C    d  %C	   ( T  C	  C    d  %C	   Y( T  C
	  C    d  %C
	   ( T  C	  C    d  %C	   ( T  C	  C    d  %C	   %( T  C	  C    d  %C	   i( T  C	  C    d  %C	 
 
 T  C	 
   T  C    d ( T  C	  C    d    T    T   U  ZI4FIX ZI ZI5FIX WERT SAAR I WNW BESJA
 BUNDESBEAMTER WVW ZNAM MYGET FILENEU WELCHESJAHR JAHR1
 SZI_BESTIMMEN OP3 TNAM WEI TRUE SZDEZ	 SONDERZAH SZ9DEZVH SZI SZ12DEZFZVH TASTE0	 SZ10DEZFB~  %C  > ) C{  	 sonderzah  w 1 C{C    	 sonderzah   U  ZI MYGET WELCHESJAHR JAHR1
 H
 &	D C    C  
	 C   C  	 %C  

 Hs   5 T  $ %C  
 C  1 % 
  %C  
  T    - %C  
) T       wY T    G} T    # T     T    
 T      C  
 H  7 T    [ T    _ T    / T    0
 T    C  }
 Hy C   %C  

 H$  /H T    #l T     T     T    
 T     C C  
 C   C   C  	y %C  
u
 HEq   T  $ %C  
 C   %C  
 T      w T    G T    #) T    M T    
q T      % C   C  	&	
 H"	 C  ! %  C  	 %C  

 H  + T    O T    ws T    S T    / T    0
 T       %C  

 H}  S5 T    /Y T    0
} T      C C  
 C   C   C  	"	 %C  
	
 H	  f T  $ %C  
 C  b %C  
^ T      w T    G T    # T     T    
	 T        % y
  	  (	 %C   ,	 T     
 H	u CC  u- %  C  	\ 09-03	
 T  < 
  q %C  m
 H6
i>  C C C C C V % 

0 %   L C  	\ 09-03	
 T   
 T    R0 %   L C  	\ 09-03	3 T   N T    5  C C C C  T  ,  C C C  T  #  C C  T    C @ T    C 
i T         U  ZI DIENSTMONATE WELCHESJAHR WVW I ZEST ENTGELTCODE SPARTE
 H
 &	D C    C  
	 C   C  	 %C  

 Hs   5 T  $ %C  
 C  1 % 
  %C  
  T    - %C  
) T       wY T    G} T    # T     T    
 T      C  
 H  7 T    [ T    _ T    / T    0
 T    C  }
 Hy C   %C  

 H$  /H T    #l T     T     T    
 T     C C  
 C   C   C  	y %C  
u
 HEq   T  $ %C  
 C   %C  
 T      w T    G T    #) T    M T    
q T      % C   C  	&	
 H"	 C  ! %  C  	 %C  

 H  + T    O T    ws T    S T    / T    0
 T       %C  

 H}  S5 T    /Y T    0
} T      C C  
 C   C   C  	"	 %C  
	
 H	  f T  $ %C  
 C  b %C  
^ T      w T    G T    # T     T    
	 T        % y
  	  (	 %C   ,	 T     
 H	u CC  u- %  C  	\ 09-03	
 T  < 
  q %C  m
 H6
i>  C C C C C V % 

0 %   L C  	\ 09-03	
 T   
 T    R0 %   L C  	\ 09-03	3 T   N T    5  C C C C  T  ,  C C C  T  #  C C  T    C @ T    C 
i T         U  ZI DIENSTMONATE WELCHESJAHR WVW I ZEST ENTGELTCODE SPARTEH %C  
A. %  C  
		  
F$ %C  	 C  
Q
 Ht M  7  T      T    _  T    / T    ) T    
M T     B
 Hf>   T     T    _ T    / T     T    
> T      =
 H[3   T     T    _ T    / T     T    
3 T     %C  
6
 HY2  7~ T     T    _ T    / T     T    
2 T      %C  9
 H\5   T     T    _ T    / T     T    
5 T        U  ZI WELCHESJAHR DIENSTMONATE$ %C    C   	t  T   T   T   T   B    %C 

 T  
 T  
 T   T   T   %C 	  
 	(J %C 
   F  T C C 
     %C   T C C  ' T C C   
 d m 
 	(	 %C 
   # T C C
      %C 
   B T C C   ' T C C   
 d  %C 	 / T C C C    d  T C C	    %C 	 .3 T C C    C d  e/ T C C    C d  %C 	 + T C C    d  ' T C C    d  : %C   T C    6 T C    
 HK C  %C 
a %C 	 # T C    d   T C    d  %C 	 &3 T C C    C d  ]/ T C C    C d   %C   T C     T C     C  %C 
J %C  ^	 T   T   %C 	  
 	( %C 
     T C C 
     %C   T C C  ' T C C    d  
 	(P %C 
   L# T C C
      %C   T C C   ' T C C   
 d  %C 	  T C   T C	   ' T C C    d T C C  T   %C	 	 + T C C    d  ' T C C    d  %C
 	 #	3 T C C    C d  Z	/ T C C    C d   %C   T   T   T   T  
 T   
 (= %CC   C   C  C 	  C 
  !  wvw  ! %CC    j
* C{" # 
 sonderzah    
5 C{C  " # 
 sonderzah     T C   T C   $  %C 	 r %C %  2 T C C & C    d T  C &   %C %  2 T C C & C    d T  C &   %C	 %  L2 T C C	 & C    d T  C	 &   %C
 %  2 T C C
 & C    d  %C %  2 T C C & C    d  %C %  6
2 T C C & C    d  %C
 %  
2 T C C
 & C    d  %C %  
2 T C C & C    d  %C %   2 T C C & C    d  %C %  n2 T C C & C    d   %C %  2 T C C ' C    d  %C %  2 T C C	 ' C    d  %C	 %  `2 T C C
 ' C    d  %C
 %  2 T C C ' C    d  %C %  2 T C C ' C    d  %C %  J2 T C C
 ' C    d  %C
 %  2 T C C ' C    d  %C %  2 T C C ' C    d  %C %  42 T C C ' C    d  %C %  2 T C C ' C    d   %C	 	 + T C C    d  ' T C C    d   T    C !  wvw   T C   T C   $  %C 	  %C %  / T C C C    d T  C &   %C %  O/ T C C C    d T  C &   %C	 %  / T C C	 C    d T  C	 &   %C
 %  / T C C
 C    d  %C %  H/ T C C C    d  %C %  / T C C C    d  %C
 %  / T C C
 C    d  %C %  )/ T C C C    d  %C %  t/ T C C C    d  %C %  / T C C C    d   %C %  / T C C  C    d  %C %  ]/ T C C	  C    d  %C	 %  / T C C
  C    d  %C
 %  / T C C  C    d  %C %  >/ T C C  C    d  %C %  / T C C
  C    d  %C
 %  / T C C  C    d  %C %  / T C C  C    d  %C %  j/ T C C  C    d  %C %  / T C C  C    d   T C C  T   %C	 	 2+ T C C    d  a' T C C    d  %C
 	 4 T C C    C   0 T C C    C  ( %C   j C 	 T  C  % C) ( ` T C) (   T    rh?  %C 

 T     T C  T C   * %C    C   	F %C	 	 W+ T C C    d  ' T C C    d  %C
 	 >3 T C C    dC   %" :$ %C  C 	6+ T C @  C    B
 HS>c C   C 	 C 
 C 
	 C  C 	/ T C C    dC  C 	 %C 
>/ T C C    dC  + T C C    d+ T C @  C   C >/ T C C    dC  %" : %C 6+ T C D  C        %C   T C     T C      U*  WERT TEILZAHL	 BRUCHZAHL ATZBRANDENBURG ZI	 SZLAUFEND SZJULI SZDEZ	 SONDERZAH SZTZ I WEIZ TRUE SZ1LFD SZI SZ2FZ SZ3KI TEILZEITFAKTOR SZ4FB TEIZ SZ6JL SZ7JLKI SZMASS SZ9DEZVH SZ12DEZFZVH	 SZ10DEZFB	 SZ11DEZKI RENTEAB WNW
 BUNDESBEAMTER WVW ZNAM MYGET FILENEU WELCHESJAHR JAHR1
 SZI_BESTIMMEN WEI TBNAM TNAM KVGRENZE	 ALTESLAND|    (S    (O ! T        %C s    $ %C 
 C      T C
  T C
  T C  T C    
(_& T   C      %C*   %C*  T C+    %C+  	 %C+  T C,    %C,  ^ %C, Z T C-    % 	  T C*     T C
  %C  T C
      (\   (X; T  C  C        T  
  \tvflex.pcg! If file("&hsxdat") = .t. & T #C       ? & T #C ?  T    T C - T C  ?+ T C C , T C ? %C C 
  T C    T C   T %C , T C  d T &C  T C 7 T C  C C A T C C C C  %C C T+ T 	C C  u T 	   U  I J SICHT ZI ARBEITSPHASE	 BRUCHZAHL	 SCHLSSEL WERT NR63 TRUE VBLZ HSXDAT EIGDAT MUSER EFFZAHL RVGRENZE	 ALTESLAND RVOREIN T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  	C	  T  
C
  T  C  T  C  T  
C
  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T   C   T  !C!  T  "C"  T  #C#  T  $C$  T  %C%  T  &C&  T  'C'  T  (C(  T  )C)  T  *C*  T  +C+  T  ,C,  T  -C-  T  .C.  U  BETRAG WERTU
 H
   C     (  % J    T    T    T    T       %  ' T CC/  C   d # T CC/  C   d  T C  T C  T C  T C  T C  T C  T	 C  T C  T C  T "C"  T $C$  T %C% $ T &CC& dTd T &C&  T 'C'  T (C(  T )C)  T *C*  T +C+  T ,C,  T -C-  T /C/  T 0C0  T ;C;  T <C<  %C   T :   %C   T -   T
 C C  T C C  %C  
 T    %
  :
 T    %
 
 T
  T @
  T @
  T   T    % 
 T  T   T @B   % " T
 - 5 T
 a  %
 a^;
 HUf% C    C  	' T  	 \Tarife\t  1.ttt If file("&hsxdat")     T   T 	  T 
  % C   C  	f T   T 	  T 
   %      T C  T C $ %C  ! C  	 T C   %C  d T C  T 	C	  T 
C
  T C   T C  T C  T C  T C   %C   T C  $ %C    C  3 T C  
 HD C
   p T 
C
  C
   %C   T 
   C
  Y T 
C
  
 H	 C   	 T C  C  [	 %C  W	 T    C  Y	 T C  
 H	1
 C   	 T C  C  
 %C  
 T    C  Y1
 T C    / %   C  	 C  	
 T C  
  %C    	
 
 T   T    
 H
Z4 C    C  	 C  
 H. C    %C  o T C   T   T   % C   C  	* %C  
       & T C  T C   C  ? C   %C   T C   T   T    C C   C   C  	 C  
 %C  

 %C  b
 %C  O
 T C  ^
    
 %C  
 T C  
     
 %C  
 T C    C   T C  C  Z % ; V T    
 Hk  
 H C  
 H CC  $ %C   C   	 T     C   %C   v %C  r %C  
n T      %C   %C   %C  
 T        % 
 H CC  	 %C  l %C   Y T C  h     %C    T C    C   T C % C    C  	) %C   % T C  C C  
 C  	 C   C   %C   T C    / %   C  	 C  	e
 HJ C    T C  C   %C   % 
d T 
    @:@  T 
     v@   T    C  J %C  + % 
 T 
    @@ ' T 
     @@  F T     T C   %   
 T     %   
 T     %    
 T      % !  
 T !    % "  
A T "   ! %  C  	  %C  
 HD C    C  	 C   C  	 %C   T       %C   % 
 H8$ C   C  	 %C  
 H~}  # " T   Q?  $ " T   Q?  % " T    Q?  & J" T  ! Q?  ' }" T  " Q?  %C  
 H% C   C  	 T     %C   T       
 H, C    %C    ( T    T    T    T       %C(   T C 
   T C  " %CCC 
) 
Ga T CC )   T CC )  
 T*   %C(  .
 H*D C    C  	 C   C  		$ %C	    C	  
	% %C  O T C	 
  #
 Hd C    T C	 
  C  + T C	 C+ C+ 
 
 T*  C  n %
 B?G+ T C	 C+ C+ 
 
 T*  j T C	 
   C   %
 9? T C	 
   T C	 
 
 T*   CC   T C	 
    %C  ! %C  
 % 
 T,  $ %C	   C	  
	 T, "C	   $ %C	   C	  
	 T, "C	   # T C , , 
      %C(  ] T C	 
  | T C	   S C   C  	 C  	 C  ! C  %	* %C(   T C	 
  & T C	     T C	  %C   % s  T     " %CCC 
) 
G T CC )   T CC )   - 	(u %C - (  N T - C-  
  q T - C-    " %CCC	 
) 
G T 	CC	 )   T 	CC	 )  
 H% C    C  	f %C
(  C T 
C 
  b T 
C  % C   C  	 %C
(   T 
C 
   T 
C   " %CCC
 
) 
G#  T 
CC
 )  F  T 
CC
 )   T C  T C  T C  T C  T   %C    %     T    ! T   
 H*!%4 C    C  	 C  " %
 ! T C  T C  "   .   %/   C  
	" %C0 1 " T / 
    %C  r" %C(  O" T C 
  n" T C    %C  " %C(  " T C 
  " T C    C C   C   C  	 C  $ %C(  Y# T C 
  x# T C   %C  
$ %C  !$ %C  $ %C(  # T C 
  
$ T C   $ 2   $ %C  $ %C(  n$ T C 
  $ T C   $ 2     C  g% %C(  $ T C 
  % T C   %C(  D% T C 
  c% T C   C  % % % % T     %C  & %C(  % T C 
  & T C   " %CCC 
) 
G]& T CC )  & T CC )  $ %C   C  & &  %C(  & T C 
  ' T C  
 T3  
 T4 4 
 T5 5  T  C    (T($ T6 C   CC   ) 
 T3 3 6  %6  3 	'  T  CC   )  T3 3 
 P( %3 ((  T  CC   )  T3 3 
 L( T  CC   )     T   - ((* T C CC-  7   %
 
G) %
  () T   - ($)' T C CC -  7   C) T    f) T C   - ()# T8 *- CC -  7   %C  ) % ) ) T     9 (N* %CC 9 :  LJ*( T: 9 CC 9 : a   6  $ %C   C  5% %C  

 C  
	0 %C: * T C   * T C  $ %C	    C	  
	],
 H+Y, C   O+ T C   C  ++ T C C+ C+  
 T*  C  ), %
 B?,+ T C C+ C+  
 T*  %, T C    C  Y, T C    , T C    - 	(, %C - : , T - C -    , T - C -     T C  %C: @- T C   _- T C   %C  - %C(  - T C  - T C   -  %CC: . T C  $. T C   %C  a/ %C  . %C(  . T C $ %C   C  	. T C  T C   . T C   ]/  
 T; ;  <   %/   C  
	Y/ T C     0 %C  '0 %C(  0 T C $ %C   C  	 0 T C  T C   #0 T C   0  
 T; ;  <   %/   C  
	0 T C      %C: 0 T C   0 T C   5 %C: 
1 T C  ;1 T C  $ %C	    C	  
	r3
 Hp1n3 C   1 T C   C  )2 %
 
1 T C   %2/ T C C+ 
 C+  
 T*   C  2
 HK22 
 
2< T C C+ 
 
  C+ 
  
 T*  
 2+ T C C+ C+   C  n3 %
 
&3 T C   j3/ T C C+ 
 C+  
 T*    3 T C    - 	(4 %C - : 
3 T - C -   4 T - C -     %C  
4 %C  4 %C: h4 T C 
   4 T C   4 =   4 T    %C: 
4 T C  5 T C    8 - (5 %C - : e5 T - C -    5 T - C -    
 H5d84 C    C  	 C  \6 %C  5 T C  X6 %C - : 46 T - C -    T6 T - C -    4 C   C  	 C  7 %C  
$7 %C  7 %C: 6 T C 
   
7 T C    7 =   7 %C  
T7 T   \7  %C:  7 T C  7 T C     C  8 %C: 7 T C   8 T C   C  d8 % E8 `8 T     %C: 8 T C   8 T C   
 T3    (9 T6 CC   

G T3 3 6  %6  3 	\9  T  CC   )  T3 3 
 9 %3 9  T  CC   )  T3 3 
 9 T  CC   )     T   - ( :  T C C -    T / 
 HD:#;% C    C  	#; %C  ;  (: T    T    T    T      (; T        (Z; T	  C     
 T>  
 T?  
 T@   % < T C  T C 
  T C   T C  T	 C    (O< T	  C    T	 C	 C0 $ %C  

 C  < T CC  < T CC c ' %C  
 C(A 	= TA ( ' %C   C(A 	Y= TA (  %C0  

= T 0CC0  = T 0CC0 c ' %C0  
 C)A 	= TA ) ' %C0   C)A 	5> TA )   *(,S@ %C   >! T  CC   > %C    >" T  CC  c   %C   
? %C  A  ? TA    %C  A V? TA    %C  A ? TA     %C   O@ %C  A ? TA    %C  A @ TA    %C  A K@ TA      B  T8   T8   T8  
 H@C C  
A   ( @ TC      (A T8    
 T@  
 TD   E  T	 !  T   T   T   T    T ! 4 C   C  '	 C  (A F  C  (C   ( .B TC     T8   T8   T8  
 T@  
 TD    (B T8     T	 !  T   T	   T   T	   T   T	   T    T	    T !  T	 !  
 TG   H 
 HCD C"  4C T	 "  T	 $  T	 %  C"  5lD T	 "  T	 $  T	 % # T8 CI {Gz? C"  6D$ T	 "CI c{Gz? T	 $  T	 %  T8    %C  7E
 HE3E( CC  

3E J    K  L  T CI M N  T BCO  T CO  T >C O  T CC  % E F   (F TP  C 8    T C	  T  C 	  T !C!	  T "C"	  T $C$	  T %C%	  T &C&	  T 'C'	  T (C(	  T )C)	  T *C*	  % 9H %C  
G TQ  TQ  TQ L TQ - TQ  TQ  5H TQ  TQ  TQ j TQ U TQ @ TQ +  
 HJHIK C#   rH T # % C#   C#  	H T #CC#  Q  T #C# d CC#  
I T #C#  C#  IK T # ' %CCCCCR 
 Z\> `I TR   $ %CCCR 
 Z\ 1I T #CQ  $ %CCCR 
 Z\ 2I' T #C# CQ CQ  $ %CCCR 
 Z\ 3=J' T #C# CQ CQ  $ %CCCR 
 Z\ 4J' T #C# CQ CQ  $ %CCCR 
 Z\ 5J' T #C# CQ CQ  $ %CCCR 
 Z\ 6*K' T #C# CQ CQ   T #C# d 
 HZK3M CC  L
 HKL4 C  
 C   C  	K S  T  C  K C  L U  T8 CP   (@L T8  C P   T "CV   #()L& T  C V   %C#  

L T #CV " T .C. CV    CC  3M" T8 C8 CV   T .   !(,M# T .C. C   D T .C C. C C7 C8 C9 d T .CC.  T %C  O  (2_N % %N [N T    T        (#N % N N T8       (O % N O T    T       %  O
 H2OO W QO X  Y  W wO Z  [  0 W O \  ]  0 W #O ^   ' T8 C8 _ ?4 T8 C8 _ ?)\(?0 T8 C8 _ ?` d' T8 C8 a       ?4 T8 C8 a       ?)\(?0 T8 C8 a       ?` d' T8 C8 b 333333?4 T8 C8 b 333333?)\(?0 T8 C8 b 333333?` d$ %C   C  	}S
 HQyS  # Q %C
  
Q T  C C	  Q T  C    $ SR %C
  
3R T  C C	  OR T  C    % R %C
  
R T   C C	  R T   C    & S %C
  
R T ! C C	  S T ! C    ' yS %C
  
YS T " C C	  uS T " C     %C  U
 HSU% C   C  	U
 HSU  # 7T %C
  
T T  C C	  3T T  C    $ T %C
  
yT T  C C	  T T  C    % T %C
  
T T   C C	  T T   C    & ]U %C
  
=U T ! C C	  YU T ! C    ' U %C
  
U T " C C	  U T " C      %c     	U d   Ue  ZI I WERT BETRAG TEILZAHL	 BRUCHZAHL WELCHESJAHR ZUSATZKV GETKVBEITRAG INTERIM TEILZEITFAKTOR BRUCHTEILFAKTOR NETTOJA
 HSMITNETTO HSXDAT EIGDAT WELCHESJAHRC GRUNDBETRAGHOLEN FOLGEMONATE	 JAHRESTAB VWL AOK_VERSION TRUE	 LASTCLICK
 SZI_BESTIMMEN SONDERZAHLUNGPRGEN SONDERZAHLUNGBERECHNEN	 ZUWENDUNG URLAUB WNW LEISTUNG2007 LEISTUNG2008 LEISTUNG2009 LEISTUNG2010 LEISTUNG2011 JAHR1 JAHR2 JAHR3 JAHR4 JAHR5 TEIZ FIX TZSONDER GRUNDBETRAG	 RHEINLAND IJ TEILZEITSONDERZAHLUNG WERTEINMAL17	 SONDERZAH SZTZ
 TEILZUWENDUNG J FILENEU MODUS HS_REST
 MYROUND100 EFFZAHL HSBRUZ BRUZ SZI ATZSONDERZAHLUNG BRUCHZUWENDUNG
 LSTPFLICHT
 SOZPFLICHT
 ZVKPFLICHT	 SCHLSSEL SACHBEZGEUNDEINBEHALTE VBLZ ZVKUMLAGEAG PENSIONSZAHLEN
 VBLZAHLEN2008 ATZFLOP STEUERBERECHNEN LSTRZ TV_FLEX
 SOZVERSZAHLEN AN_ZVK
 STFREINBEHALT STFREIEINMAL SOZVERSZ	 ATZTRESOR
 KINDERGELD
 ZHLKINDER
 ALTERRECHNENB ALTERUEBERTRAG ALTERRECHNENGANZ SICHT REGISTER LOHNSTRAUFBAUEN LOHNSTRINSTRING SOZVERSAUFBAUEN SOZVERSZINSTRING VBLAUFBAUEN VBLINSTRING	 MTEILZEIT P20AG ZVKKISTR P25AG P15AG
 MONATSTART WVWOUTXm %C    B $ %C   C   	E  B 
 HV a C    %C    B 
 H  C    %C    B  CC    %C    B  C  / %C  + B  C  
 HQ  $ %C   C  	 B    %C   B    C  
 T  %C   T     B CC  8 B C   % 
 Hl CC   %C   
 T     C  ; %C   T   
 T  B 7
 H3 CC  3 B   C  a
 T  B  %C x B  %C  __ B  %C \ .
 B  %C \ .  . B / %CCC Rg8  CCC Rg8
 B 
 T  
 H6z C   z %CCC Rg8 v
 T    B   %C  	
9 T C m   01.0CCC  ZR .   	5 T C m   01.CCC  Z .     %  
 C  	1 B [ %  
W
 T    
 Hll C   r*
 Hn*b C   C   C  	 C   C  
	 C  
 H%     	5 T   %    0	m T  %  1  H	 T  %  I  `	 T  %  a  	 T  %    	M T  %    	 T  %    	 T  &  
   	 T  '  !
  P	0 T  	'  Q
  	j T  
   T    %C   	  ! %C  	  	 
   C    ) %C 
 C #C
 30.11.2022#	X
 H.	T%     $	f	 T   %  %  H		 T  %  I  l		 T  %  m  	
 T  %    	F
 T  %    	~
 T  &  
  	
 T  '  	
  8	
 T  '  9
  h	+ T    iT T  	  S. %  C  		   A
 H9%     	 T   %    0	 T  %  1  H	K T  %  I  `	 T  %  a  	 T  %    	 T  %    	+
 T  %    	c
 T  &  
   	
 T  '  !
  P	
 T  	'  Q
  	 T  
  9 T    B 
 T  # T C m  
 01.11.2022   %  
 C  	 B  %  

 T    
 T
  
 H/%     	
 T
  %    0	E
 T
 %  1  H	w
 T
 %  I  `	
 T
 %  a  	
 T
 %    	

 T
 %    	?
 T
 %    	q
 T
 &  
   	
 T
 '  !
  P	
 T
 	'  Q
  	
 T
 
  /
 T
   T 
  %  
b
 T   
 Hs 
  
 T   
 
 T  
 
 T 1 
 
 T I 
 	
 T a 
 '
 T  
 E
 T  
 c
 T  
 
 T  
 	 T ! 
 
 T Q 
  T   T   . %  C  		   %C  	
xB T C m
 01.12.2022 01.0CCC  ZR .   > T C m
 01.12.2022 01.CCC  Z .     %  
 C  	 B  %  

 T    
 H!P   ?
 T    ]
 T %  {
 T I  
 T m  
 T   
 T   
 T    T 	  1 T 9  	P T i  T   
 Hr%     $	 T   %  %  H	 T  %  I  l	 T  %  m  	R T  %    	 T  %    	 T  &  
  	 T  '  	
  8	5 T  '  9
  h	o T    i T  	  O
 HG%     	 T   %    0	! T  %  1  H	Y T  %  I  `	 T  %  a  	 T  %    	 T  %    	9 T  %    	q T  &  
   	 T  '  !
  P	 T  	'  Q
  	 T  
  G T    B   %C   
 Hyc%     	 T   %    0	 T  %  1  H	! T  %  I  l	Y T  %  m  	 T  %    	 T  %    	 T  &  
  	: T    c T   
 Ht % C   C  	

 H	'  	
  8	 T    8	 T  	  C  

 H/  
W T  '  	
  8	 T  '  9
  h	 T  	  h T  
  C  
 H  1
B T  '  	
  8	| T  '  9
  h	 T  	  h T  
 % C   C  	
 H  I
= T  '  	
  8	w T  '  9
  h	 T  	  h T  
 % C   C  	 
 H    m
8  T  '  	
  8	r  T  '  9
  h	  T  	  h  T  
    C  $ T C   %C   #
 H)!#%     	a! T   %    0	! T  %  1  H	! T  %  I  `		" T  %  a  	A" T  %    	y" T  %    	" T  %    	" T  &  
   	"# T  '  !
  P	\# T  	'  Q
  	# T  
  # T    ! %  C  	#    % $    C  ?' T C   %C   &
 HX$&%     	$ T   %    0	$ T  %  1  H	 % T  %  I  `	8% T  %  a  	p% T  %    	% T  %    	% T  %    	& T  &  
   	Q& T  '  !
  P	& T  	'  Q
  	& T  
  & T    ! %  C  	'    % ;'    C  n* T C   %C  
j*
 H'*%     	' T   %    0	' T  %  1  H	/( T  %  I  `	g( T  %  a  	( T  %    	( T  %    	) T  %    	G) T  &  
   	) T  '  !
  P	) T  	'  Q
  	) T  
  * T   ! %  C  	I*    % f*      C  * T  C   C  , T    % +
 H*+ C  p+ %C   l+
 H +h+  D+ T    <h+ T     C  + %C   +
 H++  + T    T+ T       %C  
,! %  C  	, %C   ,
 HW,,  {, T    w, T    ;, T    <
, T        C  - T  C   %C  -! %  C  	d-    % -     C  / %  
-
 T   
 H-/     0	- T     1  `	+. T    a  	Z. T      	. T      	. T      	. T    / T    C  / T   
 HD//  h/ T    w/ T    ;/ T    C  	1 T    %C  
0
 H/0  "0 T    F0 T    `j0 T    00 T    0 T    
0 T     1
 H01  	1 T    81 T    `\1 T    01 T    1 T    
1 T     4 C  
 C  	 C  ;   %C  ; T  C6 
 HB2;D C    C  
	 C   C  	5 %C  
5
 H25  83M %  C  	    L	 C  	  09-03	3 T   43 T     y4 T  $ %C  
 C  3 % 
3 %C  
3 T    3 %C  
3 T     M %  C  	    L	 C  	  09-03	Z4 T   u4 T     w4 T    G-5M %  C  	    L	 C  	  09-03	5 T   )5 T     #Q5 T    u5 T    
5 T      C  {6
 H5w6  5 T    6 T    _/6 T    /S6 T    0
w6 T    C  -9
 H6)9 C  7 %C  
7
 H67  /6 T    #7 T    @7 T    d7 T    
7 T     C C  
 C   C   C  	)9 %C  
%9
 H7!9  m8 T  $ %C  
 C  i8 %C  
e8 T      w8 T    G8 T    #8 T    8 T    
!9 T      4 C   C  	 C  ;
 Hn9; C  : %C  
:
 H9:  S9 T    /9 T    0
: T     C C  
 C   C   C  	; %C  
;
 H~:;  : T  $ %C  
 C  : %C  
: T      w; T    G>; T    #b; T    ; T    
; T         %C  ;     CC  
NR
 H<F C   = %C  
=
 H;<=  _< T    _< T    ;< T    #< T    < T    
= T      C  2> %C  
.>
 HR=*>  v= T    w= T    G= T    #= T    > T    
*> T      C  %? %C  
!?
 Hi>?  w> T    ;> T    #> T    > T    
? T      C  @ %C  
@
 H\?@  _? T    ;? T    #? T    ? T    
@ T      C  A %C  
A
 HO@A  ks@ T    S@ T    #@ T    @ T    
A T     % C   C  	:B %C  
6B
 HRA2B  A T   %C  
A T     _A T    #A T    B T    
2B T     % C   C  	C %C  
C
 HBC  B T   %C  
B T     wB T    GC T    #=C T    aC T    
C T      C  D %C  
|D
 HCxD  ;C T    )D T    0D T    TD T    
xD T      C  sE %C  
oE
 HDkE  wD T    _D T    G#E T    #GE T    $
kE T      C  E %C  
E
 HEE  #E T    $
E T      C  "F T   C  F
 HDFF  hF T    F T    _F T    /F T    0
F T     T  8C   %C  JR T  C6 
 HNGFR C   eH %C  
aH
 HG]H  G T    _G T    ;G T    #H T    9H T    
]H T      C  |I %C  
xI
 HHtI  H T    wH T    GI T    #,I T    PI T    
tI T      C  oJ %C  
kJ
 HIgJ  wI T    ;I T    #J T    CJ T    
gJ T      C  bK %C  
^K
 HJZK  _J T    ;J T    #K T    6K T    
ZK T      C  UL %C  
QL
 HKML  kK T    SK T    #L T    )L T    
ML T     % C   C  	M %C  
M
 HL|M  L T   %C  
L T     _M T    #4M T    XM T    
|M T     % C   C  	N %C  
N
 HMN  N T   %C  
N T     w?N T    GcN T    #N T    N T    
N T      C  O %C  
O
 HOO  ;2O T    )VO T    zO T    O T    
O T      C  P %C  
P
 HPP  w%P T    _IP T    GmP T    #P T    $
P T      C  DQ %C  
@Q
 HP<Q  #Q T    $
<Q T      C  lQ T   C  FR
 HQBR  Q T    Q T    _Q T    /R T    0
BR T      C  R    T  8C   C  R !  T  8C   T  C6  !  C  f
 HRv\ C   S %C  
S
 H)SS  wMS T    ;qS T    S T    
S T     C  lT %C  
hT
 HSdT  kT T    /@T T    0
dT T     C  CU %C  
?U
 HT;U  ST T   %C  
T T     U T    
;U T     C  V %C  
V
 HzUV  ;U T   %C  
U T     U T    
V T     C  V %C  
V
 HQVV  GV T   %C  
V T     /V T    0
V T    % C   C  	W %C  
W
 H8WW  wW T   %C  
W T     ;W T    <
W T    % C   C  	+Y %C  
'Y
 HX#Y  oX T   %C  
kX T     wX T    GX T    #X T    X T    
#Y T      C  Z %C  
Z
 HbYZ  ;Y T    )Y T    Y T    Y T    
Z T      C  Z %C  
Z
 HUZZ  yZ T    wZ T    GZ T    $
Z T      C  t[ %C  
p[
 H$[l[  #H[ T    $
l[ T      C  [ T   C  v\
 H[r\  [ T    \ T    _*\ T    /N\ T    0
r\ T     T  8C   %C  |f T  C6 
 H\Lf C   ] %C  
]
 H\]  w#] T    ;G] T    k] T    
] T     C  B^ %C  
>^
 H]:^  k] T    /^ T    0
:^ T     C  _ %C  
_
 Hy^_  S^ T   %C  
^ T     ^ T    
_ T     C  _ %C  
_
 HP__  ;_ T   %C  
_ T     _ T    
_ T     C  ` %C  
`
 H'``  Gw` T   %C  
s` T     /` T    0
` T    % C   C  	a %C  
a
 Haa  w^a T   %C  
Za T     ;a T    <
a T    % C   C  	c %C  
b
 Hab  Eb T   %C  
Ab T     wib T    Gb T    #b T    b T    
b T      C  c %C  
c
 H8cc  ;\c T    )c T    c T    c T    
c T      C  d %C  
d
 H+dd  Od T    wsd T    Gd T    $
d T      C  Je %C  
Fe
 HdBe  #e T    $
Be T      C  re T   C  Lf
 HeHf  e T    e T    _ f T    /$f T    0
Hf T     %C  
xf T     C  h
 Hfh C   qg %C  
mg
 Hfig  f T    _!g T    /Eg T    0
ig T      C  h
 Hgg  g T    wg T    x
g T      C   j
 H)hj C   qi %C  

i %C  
	i
 Huhi  h T    _h T    /h T    0
i T      mi T   % 
ii
 T    T "    T# $ %      C  j %C  
j
 Hij  i T    wi T    x
j T       C  Pj T  C   C  j %C  	j % 

j T    j T     CC  l
 Hj}k C   j% C   C  	:k T  C  % C   C  	}k T  C    %  
k
 T   
 Hkl%     	k T   %    0	 l T  %  1  T	Xl T  %  I  	l T  %  a  	l T    l T     &  % 
m
 T   %C   Qm T     U'  ZI WELCHESJAHR DASTUFEN BDATEXT JAHR5 FILENEU DIENSTMONATE DATEDIFF WELCHESJAHRC BBESGNEU RHEINPFALZSTUFEN BWDIENSTMONATEGES DIENSTMONATE11_2022 TEMPZI7
 TEMPZI7NEU ALTELAUFZEIT VERBRACHTINALTERSTUFE DIENSTMONATEAB12_2022 ALTELAUFZEITNEU DIENSTMONATEAB12_2022_NEU J BERLINERSTUFENNEU HESSENSTUFENNEU ANHALTSTUFENNEU FIX ANHALTSTUFENRICHTER
 STUFEN10BIS16 WERT WVW SPARTE MID ENTGELTCODE STUFEN14SOZ
 ARZTSTUFEN BDA MYFORM1	 BDABEGINN VALUE STUFENANZAHLERMITTELNE	 %     B  % *  
 T  T C  T C  T C
 
 T 	  T
 C
  T C  T
 C  T C  T C  T C  T C  T C 
 T   %C  K T   T    %C   T   T    +a+ T C  % ]  c
	
 H   DH T   CC  Z  Info CCC  Z  fertig
      H T   CC  Z  Plan CCC  Z  fertig
      I T   CC  Z  Real  CCC  Z  fertig
        %  C  	@    % Y !  T   T   T   T   T   T   %C $ %C  C 
	     %C& z
9$ %C/ !
 C/ "-` %C& CC/ C    , C& CC/ C     )# %CC/ C     
/ T &CC/ C     % T &    5  
 HJv% C   C 		v !   %C  T" C  #  T" C  $  $ %C  C  T% C    &  %C 
# .  !  T     T   T 
 
 T	   T   T  
 T  
 T   T 

  T 

  T   T   T   T   T   T   T 
  T 
  T   T  
 H% C   C 		 !   %C& z
$ %C/ !
 C/ "` %C& CC/ C    , C& CC/ C    v # %CC/ C     / T &CC/ C      T &     $ %C  C 7	 T% C    &  U' 
 IMMERFOLGE FALSE
 Z_GECLICKT FOLGEMONATE MERKER ZI ZI7ALT ZI9ALT
 BDATEXTALT BDATEXT OP1 WERT
 UEBERSTUNDENA
 UEBERSTUNDENB
 EINMALIGEZAHL URLAUBBETRAG
 WEIHBETRAG
 TAGE_IM_MONAT TAGE_DES_MONATS BRUCHTEILFAKTORALT BRUCHTEILFAKTOR BETRAG REGISTER MODUS MYFORM1 TIP CAPTION FILENEU REFRESH	 MONAT3031 MONAT JULIVERSORGUNG GETKVBEITRAG DASTUFEBERECHNEN J ATVVORGABENHOLEN ATVUMSETZEN ATZTEIL
 BERECHNUNGT     
 T    %C 
   	3 % 
Z 
 T   %  + %    	 
  	 # %	 
   C 	      %  %C            C
 
  wnw  
 T  
 T   U 
 BERECHNUNG ANZEIGE	 AUSGLEICH ZI NETTOJA
 Z_GECLICKT
 IMMERFOLGE TRUE	 LASTCLICK WNW ATZALT
 FOLGEMONATNEU MYPUT FILENEU EINMALMIT_BERECHNUNG FALSE OHNE_Z_CLICK    (.  T        (`  T      T   T   T    T !  T   %C   B 
 H  CC   T CC     (v %C     r  T C C      % T 	C C ' T  C	  C \   ( %C       T C C      % T 	C C ' T  C	  C  T 	C	  T  C	  C  T CC   
   T  C   U  I EFFZAHL WERT VBLZ ZI PENSIONSSATZ ZVKZ TRUE	 BRUCHZAHL BETRAG JULIVERSORGUNG INTERIM $ %C   C  	~ $ %C   C  
	z  T C  T C    U  ZI TEIZ TRUE TEILZAHL WERT	 BRUCHZAHL anhaltstufenneu,      anhaltstufenrichter     arbeitsphase    
 arztstufen	     atzsonderzahlung     BBesGneu2    
 beamtenstatus@9     berlinerstufenneu>    
 folgemonatneutD    
 hessen2007:a     hessenstufenneu<c    
 IsSchaltjahr2e    	 monat3031e     rheinpfalzstufeng     sachbezgeundeinbehalte{h     Sonderzahlungberechnen     dezemberdurchlauf     sonderzahlungprgen    
 stufen10bis16     stufen10bis16_2018r     stufen14soz8     teilzeitsonderzahlung     TV_Flex    
 wertintext    
 Berechnung     DAStufeberechnen:   
 folgemonata    berechnungauslsenY    pensionszahlen^    ATZBrandenburg   4  Q1Q1Q1Q1Q1Q1a1aA 4  A A A A A A A A A A A A A Rr2R A A 2        ! ! A 1A A 8 qQQQQA A C RA R C rQQRB rE  A A A 3  Q 11111A Q 1111A R! 111A   1111A A Q! 11111A   111111A A Q! 11111A   111111A A R! 11A   111A A Q!1  11A A Q 11111A Q 111A QQ 1AQ1A A 11111A A Q 11111A Q 1111A A 3 R   11r  A qaA A QA q qa1A A bA rA  A 1 A  qA  Q qA A  QQQQq A q A  Q qA A RQ21qaA A RA r qa1A A RA rA q qA q1 A q A A 21q!A !A !A !A !A !A !A !A !A !A  !A !A !A !A !A !A !A !A !A !A A  1A A A A A A A A A A A A  A A A A A A A A A A B rq1 A  A A  qA q  1QQ A RQA A A AA A  Q qA A A 3  Q1Q1Q1Q1Q1Q1a1a1A R Q1Q1Q1Q1A A  Q1Q1Q1Q1Q1q1a1A R Q1Q1Q1Q1Q1a1q1a1A A A 3   Q1!QQ1A A  QQa111qAqq11A ra A A A r q 4  Q Q1Q1Q1Q1Q1Q1Q1Q1A R Q1Q1Q1Q1Q1Q1Q1Q1A R Q1Q1Q1Q1Q1Q1a1a1A A 3 Q rqqA r r    A ! A  q q q q q q q q q Q1A Q1 1A Q1 1A  Aq A  Aq A 1q q q q q r Q111A q 11QQ1 1A  Q1 1A A A R1A R1A Q1A 1A 1A 1A q q q A Aq A 11Qq 1A Qq 1A QqA QqA q1 1A 1 1A Q A Qq  A A 11q !1!1!1!1! q !Q1qqA Q1qqA !qqqqq! ! ! A  11111111111A  11111A R11q  q A A RAq A B Xq q A SAA 1AQA  1A  1A A   1AQA  1A  1A A A A A BA    A RAAA A A r B "1Qr q q Rq A r q B  4 1Qqa1A A  Q Q1Q1A Q1Q1A  qA 4  Q1Q1Q1Q1Q1Q1a1aA 3 q  !A    A 4  aaaaaaaaQ!aaaa aaaaA A 3  q1a1A 4                                         r  A   A    A  A  A  A qA  A  A  A  A qA A A A r  r A  A  QA AA A    A  QA QQA  A A A  A  A  A   A A qA   A A A A  A  A  A   A A qA A A A bD 3 R   11ra1A A QQ1 qA 2 QQqBq A R   1QQA qaA A Q!   A  A  QQA QA R1q  QA 2A  11  r C qq qa1A A QA QTA RQA SA  b A A 11A A A1A r  1QQ ! A A QQ A A A A R1A A rq4 1 r  QA r A !A A A A A A A A A A  B A A 113 Q A 4  AQ 1A"R1A  Q1A B A 11111A A Q 11111A R QQ 11111A A 1Q 1AR1A B 11111A A A R QR 111111A A  Q 111A A A 1Q 1AR1A B 11111A A A B ! qQA B A  bA  a !2 1A  2 1A A Q11111a1A A A B C 4  AQ 1A!Q1A  Q1A A A 11111A A Q 11111A R QQ 11111A A 1Q 1AQ1A A 11111A A A R QQ 111111A A  Q 111A A A 1Q 1AQ1A A 11111A A A A ! qQA A A  aA  a !1 1A  1 1A A Q11111a1A A A A A 3 QA !111111A   111111A A   111111A Q !111111A A Q !111111A A A A 3 A1111A A r R   11qaA A RA r qa1A A bA rA  A 1 A  qA  Q qA A  QQ1 A 1 A  Q qA A RQ21qaA A RA r ra1A A RA rA q qA r1 qA 1 A B 2111 q QA r !A !A !A !A !A !A !A !A !A !A  !A !A !A !A !A !A !A !A !A !A B  qA  1A A sr A A A A A A A A A A  A A A A A A A A A A B 1 qA A A QA  a A A rA  qA 1!AA A   1QQ A Q!QA A A A A  Q qA A A 3 yqA A Rr  Bq  raB A A A A A A A A A QA tqA A a aA 2 A qq A 3 rqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq3  Qq qq11A A A "r 1A qqrqqqqqqsqqBqqqqqqqrqqqqRaA SaA R A  A  aaaaA  aaA    A   Qqq  111A Q111A rqBqA RrqqqA rqqqA RqA BqA  QqQQ1A RqA  QqQQ1A RqA  QqQQ1A RqA x r  11A A  A QQq 11A QQq q q  qqA Q_Qq 11A A 2_QQq q A  Qq q A A  QqA A QqQ 1A A  p! Q A1A B QQQQ1A B A QQQ1A B A A B ! QQq q A  QqA A QqQQqA 1QqA A A  QqQQ! A  1A QQ! A  1A A qA A A A A A Q AQ1A A A B S! AT !!!!!A R Q1A A Q1A A A B A  QQqqq11A A A T qA " A  R BAR  QQ Q  A Q  A A A SQ! AA AA 1A A A  Q qA A 3Q qA A  qQ 1A A B ! A ra A A ! A  QQ qA RQ qA A ! A rqrq4Q 1A  1A  Aqq r q qA A RQ qA A RQ qA A A 2Q qA RQQQ qA  q A  QQ qA  q A A A QQ qA R qA Q 1A A RQ qA A # A C B T qA    qrA  A A A 3rA %1qqA  1A  qA r1A R 1A A sA A ARR qA C QQ Q  A QE  A ra A A R qA RQ qA  A 2q A RQQAqqA  qA  r  r A A  QQAqqA  qA  r  r A A A R qA  Q qA B QQ  A Q  B Q  A A  A ra A B RQQ qA  q A  1A R qA A  qa A A  AQq a A A AQQQ qA  q A  Q1 A Rq A A QQ qA Q 1A A Q qA A  q  A A A 3qA 5 QQqqq11A qqA A A rA C    qrrC rA F A rA rA R A rA rA r !A A A A A A A A A A A r 211 QqqA rqA   r 211111Kq QqqA 111  qqA 11111111111A  r  Q111Q1111QA111A R q A A r q qqqq qA A qqqqrqqqqqq$Q2AAAAA 1AAAAAA A  Q1QqQ1qA BqA BqA BqA BqA BqA BqA A   Ar q RRr rqA qaA R!A A !A 2r1A BRr qqA A r qA A r 11A A A  q q q  q  q A A uArArAG Q AA Q AA Q AA Q AA Q AA A B T R Q AA Q AA Q AA Q AA Q AA B A A q A 3 RA A BA A  QQA A  QQA A QA A RQA A R !AA A "QA A A A Q Q1A A A Q! Q A A A RQ1 A   A A A Q B A  A A A A A A A A A A   Q A A A T QA A   A A  Q ! Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A Rq A q A R Q1Q1Q1Q1Q1Q1a1q1q1a1E    Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A A A  2A   A A   Q Q Q Q Q Q Q Q a q q a A  A              B R! A A   A A            H  Q1Q1Q1Q1Q1Q1a1q1q1a1E   Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A A A A T Q1Q1Q1Q1Q1Q1Q1a1a1A  Q q1a1A Q Q1q1q1a1A Q Q1q1q1a1A Q Q1q1q1a1A Q Q1q1q1a1A A A QQ Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A A q A "q A RQ Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A A q A "q A QQ Q1Q1Q1Q1Q1Q1Q1Q1a1q1q1a1A q A "q A A A RQ1! QQ 11A A QQ 11A A A A QQ 1111A A A A RQq A "q A A R A  1111111A Q1 111A R1Q 111111A   !111111A A Bq SQ AQ 1 1A 1A!Q1A  Q1A A A 1 1A 41 1A 111A A Q 11111A R QQ 11111A A 1Q 1AQ1A A 11111A A A A QQ 111A A 1Q 1AQ1A A 11111A A A A A Qr A  QQ 111111A A QQ 111111A A QQ 11111A A QQ 11111A A QQ 11111A A QQ 1Q1A 1111A A RQ 1Q1A 11111A A RQ 11111A A QQ 11111A A QQ 11A A Q1Q 11111A A qSQ QQ 111111A A QQ 111111A A QQ 11111A A QQ 11111A A QQ 11111A A QQ 1Q1A 1111A A RQ 1Q1A 11111A A RQ 11111A A QQ 11111A A QQ 11A A Q1Q 11111A A B Rq qRq qQq R QQ 1111A A QQ 111A A QQ 1Q1A 11A A QQ 1Q1A 11A A QQ 1Q1A 11A A QQ 1Q1A 11A A RQ 1Q1A 11111A A RQ 11111A A QQ 1111A A QQ 11A A Q1Q 11111A A qSQ QQ 1111A A QQ 111A A QQ 1Q1A 11A A QQ 1Q1A 11A A QQ 1Q1A 11A A QQ 1Q1A 11A A RQ 1Q1A 11111A A RQ 11111A A QQ 1111A A QQ 11A A Q1Q 11111A A Q1A A R QQ 1111A A R 111A D Q QQR 1111A A  1 1A A QQ 111A A A RRQ1 1A A  QQQA  A  Q1Q1Q1Q1Q1Q1A A r  A qA 3 A A B    R11A R11A      A A q A B A 211111RAq A A SA 1 1A A  A A  Qq A Rq q A BA r RB A A A 2r 21 11  211121212121 Qq A RA 1 1A A A A BA u 8 s q  ! A 1q A  Qq A  q B A A qA   5 rqA rqA 21111RA A  qaA A QqQqaA A QqQqqQq A r5 AAqA A 1                    =             r     O       b   w     b$     E  $  cM  q  z  M  V      #W  ]  B    1]  e  |  .  e         C  k  q            )         "        ؙ          ,      \    +      P      |  w  F        O      -
 )	  t  Q
  	    4 J >
  (
  %J T   s
  T nY j  
  Y g+   }  +  E        $  ; @   ?  g t   h   :      %   -     B 
  . RhVh        U      C T  0 Besoldungsneuregelung Sachsen-Anhalt ab 1.4.2011C
 @ T    ) Die Stufen wurden von 12 auf 8 reduziert.C
 M T    6 Die Stufen 1 bis 8 auf den Zeilen 01 bis 08 gelten frC
 > T    ' nach dem 31.3.2011 eingestellte Beamte.C
 R T    ; Die Stufen ab der Zeile 09 gelten fr bergeleitete Beamte.C
 P T    9 bergeleitete Beamte verbleiben in der berleitungsstufe C
  H    7   C     M T    6 bis zum Aufstiegszeitpunkt nach altem Recht (Zeile 6).C
 S T    < "Dann" steigen sie in die unten speziell genannte Stufe auf.C
 C T    2 * = hier nicht dargestellte Aufstiegs-Besonderheit C  7  C T    , bis zum Aufstiegszeitpunkt nach altem Recht.C
 J T    3 Die berleitungsstufen werden als Grundlage benutztC
 L T    5 fr Regelungen, mit denen anschlieend ein gleitenderC
 B T    + bergang von 12 auf 8 Stufen erreicht wird.C
 J T    9 * = nur fr Zahlung, fr Fristenrechnung 1 Stufe niederer  T      T   C  T   d T   	 
 T     U
  MSG ZI MYFORM1 ANLEITUNGSTEXT CAPTION	 FORECOLOR QBCOLOR LEFT VISIBLE TRUE    ; T  ( Besoldungsneuregelung HESSEN ab 1.3.2014C
 ? T    ( Die Stufen wurden von 12 auf 8 reduziertC
 A T    * und die Stufenlaufzeiten wurden verndert.C
 L T    5 Die Stufenzuordnung erfolgt i.d.R. zu der Stufe oder C
 T T    = berleitungsstufe, die dem bisherigen Grundgehalt entspricht.C
 F T    / In Programmzeile 6 ist das Datum fr den BeginnC
 B T    + der Stufe 1 erforderlichenfalls anzupassen.C
 K T    4 Fr bergeleitete Beamte ist Programmzeile 6 nur mitC
 ? T    " "Nchster Stufenaufstieg" nutzbar.C
 C
 M T    < Alle Zulagen mssen im Programm auch neu eingestellt werden. T      T   C  T   d T    
 T     U	  MSG MYFORM1 ANLEITUNGSTEXT CAPTION	 FORECOLOR QBCOLOR LEFT VISIBLE TRUE  M  D T  1 Besoldungsneuregelung   H E S S E N   ab 1.3.2014C
 O T    8 Die Stufen von R1 und R2 wurden von 15 auf 12 reduziert.C
 S T    < Deshalb ist im Programm im Mrz 2014 die bei der berleitungC
 < T    % erreichte Stufe manuell einzustellen.C
 F T    / In Programmzeile 6 ist das Datum fr den BeginnC
 F T    / der Stufe 1 in jedem Fall nach der im Zuge der C
 E T    . berleitung erreichten Stufe neu zu bestimmen.C
 K T    4 Die Stufenlaufzeit beginnt knftig bei neu ernanntenC
 B T    + Richtern nicht mehr mit dem 21. Geburtstag,C
 8 T    ! sondern mit der ersten Ernennung.C
 5 T    $ Wie bisher luft jede Stufe 2 Jahre. T      T   C  T   d T    
 T     U	  MSG MYFORM1 ANLEITUNGSTEXT CAPTION	 FORECOLOR QBCOLOR LEFT VISIBLE TRUE    0 %  
    C 
	    H A    }   C   e   
 T  C     
 T 
 C     
 T  C     
 T 
 C     
 T  C    
 T  C  =  
 T  C  a  
 T  C    
 T  C 	   
 T  C 
   
 T 	 C    
 T  C    
 T  C 
 9  
 T  C  ]  
 T  C    
 T  C    
 T  C    
 T  C    
 T  C    
 T  C  5  
 T  C  Y  
 T  C  }  
 T  
      H       C     
 T  C    
 T  C    
 T  C  ,  
 T  C  P  
 T  C  t  
 T  C    
 T  C    
 T  C    
 T  C 	   
 T  C 
 (  
 T  C  L  
 T  C  p  
 T  C 
   
 T  C    
 T  C    
 T  C     
 T  C  $  
 T  C  H  
 T  C  l  
 T  C    
 T  C    
 T  C    
 T  C    
 T    U  WELCHESJAHR ZI I  a   H     /   CC  
 l   @ T - Nach  12 TV-Bund erhalten aus dem BAT ber-C
  CC      B T / Nach  12 TV-Lnder erhalten aus dem BAT ber-C
 ' C   C  	 /  ? T , Nach  12 TV-VKA erhalten aus dem BAT ber-C
  K T  4 geleitete Beschftigte in bestimmten Fllen fr eineC
 F T  / bestimmte Dauer einen Strukturausgleich. Er istC
 0 T   - n i c h t    dynamisch,C
 D T  - - wird bei einer Hhergruppierung aufgezehrt,C
 > T  ' - unterliegt ggfl. der Teilzeitkrzung,C
 D T  - - zhlt nicht zur Basis fr Leistungsentgelt,C
 H T  + - kann einzelvertraglich abgefunden werden.C
 C
 & %C   C   m  E T  . Ab 2009 kann der Betrag des StrukturausgleichsC
 
    E T  . Ab 2008 kann der Betrag des StrukturausgleichsC
  D T  - in den Stammdaten hinterlegt werden und wird C
 A T  $ dann in den Folgejahren fortgefhrt.C
 C
 C T  , Wenn neben einem Strukturausgleich auch eineC
 I T  2 individuelle Endstufe zusteht, ist die Zeile 9 frC
 E T  . die individuelle Entstufe zu verwenden und derC
 H T  7 Strukturausgleich ist in einer Zulagenzeile einzugeben. U  ZI MSG  
  %  7    T   a T   a T    a T    a      %C 
    & %C  C 
	     T  	 0
      T  	 - 
      T  	 -  %  7 A  , T  
   Nachweis anzeigen fr 
    M T  
  7 Ein Klick auf diese Freiflche schliet die Auswahlbox.  H         
   0    T  zCC   Z1 myform1.&hszn..BackColor = myform1.backcolor 
5      /	   2   3    T  zCC   Z1 myform1.&hszn..BackColor = myform1.backcolor 
        T
  T	  H    m  6      /	   2   7	 1   T 	 T    
   0 m   T  T   H         
   0    T          T          V   T    T    333333? H 1   ~     
   0 ]   T 6    ~   T   T   H      , C   *+,.57    T    H    C     
   0    T       C   T     T   
 T Z T   	   T       T       T              
 T  H           	   T
 
 T   T     (  :   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C "  % C     T# C$ 
  6   T# C%    T . T&  1. Personalfall neu anlegenC
 C T& & ,      auf den letzten Namen der Liste klickenC
 Q T& & :      oder Icon "Doppelkopf" und "10 neue Flle" anklicken.C
 , T& &  2. Bezeichnung ndernC
 R T& & ;      r e c h t e r   Mausklick auf Namen in Programmzeile 1C
 5 T& &  3. Personalflle durchbltternC
 Q T& & :      Schaltflchen AUF und AB in Programmzeile 1 anklickenC
 I T& & 2 4. Personalfall suchen Icon "Fernglas" in Zeile 1.C
 N T& & = "5. Personalflle sortieren: Icon "grne Pfeile" in Menzeile T    &  T   	         T
  ' 
  ( 
  H 
   U   C   ;
  
 T 6 C  C  C 	 ~
  
 T c C  C  C  C 	 C  C 	 
  
 T  C    
 T 6 C  C 
 C 	 U  
 T   T     (  k   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C )  % C  K   T# C$ 
  g   T# C%    H    x   CC   X   T& ف Normalerweise erreicht der Beamte nach einer bestimmten Erfahrungszeit in einer Grundgehaltsstufe die nchste Grundgehaltsstufe.  T& & r Das Programm bentigt das Datum des Beginns der Stufe 1 als Rechengre, damit es anhand der bekannten Laufzeiten w T& & Z der einzelnen Stufen die Zeitpunkte fr alle nachfolgenden Stufenaufstiege berechnen kann.C
 C
  T& &  Wenn Ihnen nur das Datum des letzten Stufenaufstiegs bekannt ist, berechnet das Programm den Beginn der Stufe 1 nach einem Klick auf das Icon "DA".C
 C
 T& &  Die Option "Diensteintritt" hat im Programm die gleiche Funktion wie "Beginn der Stufe 1". Sie knnen "Diensteintritt" whlen, wenn dem Diensteintritt keine anrechenbaren Vordienstzeiten vorausgehen und der Diensteintritt in Stufe 1 erfolgte.C
 C
  T& &  Mit der Option "Nchster Stufenaufstieg" knnen Sie im Programm ein Datum fr den nchsten Stufenaufstieg augenfllig hinterlegen. Nehmen Sie den Stufenaufstieg dann zu gegebener Zeit in Zeile 8 manuell vor.C
 C
  T& & y Bei der Option "Ohne Bezge beurlaubt bis" werden alle Betrge auf Null gesetzt. Das Datum dient hier nur als Merkposten.T C  C  C  C  C 	   h T& [ Das Datum dient lediglich der Information und hat keine Funktion bei der Gehaltsberechnung. C    o T& b Das Datum dient ab R 3 lediglich der Information und hat keine Funktion bei der Gehaltsberechnung.' C 
 C 	 x   T& ٬ Das Programm berechnet nach dem Einstellungsdatum die Entgeltstufe in Zeile 8 und bercksichtigt dabei die in Zeile 7 eingestellten Stufenverkrzungen bzw. -verlngerungen.C
 C
  T& & ٪ Wenn wegen der Bercksichtigung von einschlgiger Berufserfahrung nicht in Entgeltstufe 1 eingestellt worden ist, ist ein fiktives Einstellungsdatum einzutragen, von dem  T& & p ausgehend die Zeitpunkte fr folgende Stufenaufstiege berechnet werden knnen. Klicken Sie dazu auf das Icon DA.C
 C
  T& & ٴ Bitte lassen Sie das Feld fr das Einstellungsdatum leer, wenn kein magebliches Einstellungsdatum bekannt ist. In diesem Fall ist die Entgeltstufe in Zeile 8 manuell einzustellen.C
 C
 0 T& &  Achtung bei Zeile 3 und 4C
 ^ T& & G Wenn fr die Optionen in den Zeile 03 und 04 ein Datum eingegeben wird,C
 K T& & : hat dies keine Funktion, sondern dient nur als Merkposten.  T    &     ~   T
  * 
  + 
 
 T  T     (  ~   T   T,    T    % 	
 _  ! T!  0CC  Z
     T! CC  Z  T   %    2 T-   Bundesgebiet (Bundesbeamte)  T! C -  % C     T# C$ 
  ;   T# C%   %  z  ( .CellBackColor = hex2rgb("&HB0FFFF")
  N T& ; Diese Einstellung wirkt auf Tariftabellen, Sonderzahlungen,C
 J T& & 3 Weihnachtsgeldquote, Krankenkasse, KV-Beitragssatz,C
 N T& & 1 Beitragsbemessungsgrenzen und Kirchensteuersatz. C
 C
  T    &     &   T
  ' 
  . 
  H    %  E C   C 	 C  C 	   
 T  T&   C
 > T& & ' Beamte erhalten einen Familienzuschlag,C
 : T& & # der aus Grundbetrag, Verheirateten-C
 = T& & & zuschlag und Kinderzuschlgen besteht.C
 P T& & 9 Ist auch der Ehegatte im ffentlichen Dienst beschftigt,C
 J T& & 3 wird der Verheiratetenzuschlag auf beide zur HlfteC
 S T& & < aufgeteilt. Teilzeitarbeit ndert daran nichts, es sei denn,C
 A T& & * beide zusammen arbeiten weniger als 100 %;C
 E T& & . dann unterliegen alle Zuschlge bei beiden derC
 ' T& &  Teilzeitkrzung.C
 K T& & 4 Der Kinderzuschlag steht ganz demjenigen zu, der dasC
 * T& &  Kindergeld bezieht.C
  T& & C
 2 T& &  N E U   durch TVD und TV-LC
 ? T& & ( ----------------------------------------C
 F T& & / Im TVD und TV-L werden keine familienbezogenenC
 A T& & * Zuschlge gezahlt. Ein Beamter erhlt alsoC
 B T& & + den vollen Verheiratetenzuschlag, wenn der C
 P T& & 9 Ehegatte in einem TVD- oder TV-L-Dienstverhltnis steht.C
 K T& & 4 Der Verheiratetenzuschlag unterliegt dann allerdingsC
 * T& &  auch der Teilzeitkrzung. T    & F C 
 C 	 C  C 	 #  
 T  T&  Diese Funktion wurde vorbergehend deaktiviert, bis die berschneidungen mit Vernderungen des Beginns der Stufenlaufzeit in Zeile 6 behoben sind. Sie knnen nach Stufenbewegungen den neuen Beginn der Stufenlaufzeit mit dem I T& & , DA-Rechner (Icon "DA" in Zeile 6) berechnen.C
 C
  T& & < Die Beschreibung der bisherigen Funktion der Zeile 7 lauteteC
 C
 ~ Wenn in Zeile 6 ein Datum fr den Dienstantritt vorhanden ist, berechnet das Programm die Entgeltstufe in Zeile 8 automatisch.C
  T& & ٝ Ab der Entgeltstufe 3 wird dabei die Anzahl der Monate bercksichtigt, die in Zeile 7 als Stufenverkrzung (-) oder als Stufenverlngerung (+) angegeben ist.C
  T& & و Die Wirkung der Stufenverkrzung/verlngerung im laufenden Monat wird im rechten Zahlenfeld der Zeile 7 nachrichtlich in Euro angezeigt.C
  T& & ٮ berdurchschnittliche Leistungen knnen durch eine Verkrzung der Stufenlaufzeit honoriert werden. Bei unterdurchschnittlichen Leistungen knnen die Stufen verlngert werden. T    &  T      e C  C 		 C  C 	 C  C 	 %  
 T  T    x Die Bezeichnungen der Dienststellen dienen nur der Information und knnen in der Menzeile unter TEXTE gendert werden.  T        g Die Bezeichnung auf Position 01 kann individuell fr den eingestellten Personalfall eingegeben werden. u T        R Klicken Sie dazu mit der rechten Maustaste auf die Auswahlbox der Programmzeile 7.  T     (  &   T   T    % 	
 7&  ! T!  0CC  Z
  ]&   T! CC  Z  T   T! C /  % C  &   T# C$ 
  &   T# C%       <,  ' T0 1 	 \Tarife\t2  1.ttt" If File("&hsxdat") = .T. ;'  
 T3 4 
  R'  
 T3 5   T
  * 
 h
 T  T6 C  T   T  	     (  +   T   %  (   T,   
  (   T,     T    % 	
 e(  ! T!  0CC  Z
  (   T! CC  Z  T   T! C 7  % C  (   T# C$ 
  +   %3 5  *   H 
)   *       	 Q)  ( .CellBackColor = hex2rgb("&HB0FFFF")
 C  z)   T# C%  C 	 )  ( .CellBackColor = hex2rgb("&HC0FFC0")
M  
  	    	    	 .*  ( .CellBackColor = hex2rgb("&HC0FFC0")
 C 
 m*  ( .CellBackColor = hex2rgb("&HC0EEC0")
    	 *  ( .CellBackColor = hex2rgb("&HFFFFC0")
    	 *  ( .CellBackColor = hex2rgb("&HFFC0FF")
 
  +   H +   +       	 a+  ( .CellBackColor = hex2rgb("&HFFFFFF")
    	 +  ( .CellBackColor = hex2rgb("&HFFC0FF")
     %C  +  ) T 8 9  LBGr. = Laufbahngruppe
  ,   T 8 9    
 T   T   	      6   T
  ' 
  : 
 
 T  H ,   43   C   ,  
 T  %C  ,  
 T   C  ,  
 T  C  -  
 T  C  w-  
 T # %C 	 ; 	 s-  
 T   C  -  
 T 
 %C   -  
 T   C  -  
 T  C  .  
 T  C  /.  
 T 
 C 	 S.  
 T  C 
 A/   H {.   =/   ; 
 .  
 T   ; 	 ; 	 .  
 T  ;  /   %C 
 /  
 T 
  /  
 T   ;  =/  
 T   C  /   %; 
 y/  
 T 
  /  
 T   C 
 /   %; 
 /  
 T 
  /  
 T   C  0   H 0   0   ; 
 00  
 T  ;  0   %C  h0  
 T 
  0  
 T   ;  0   %C  0  
 T 
  0  
 T   ;  0  
 T   C  N1   %; 
 31  
 T 
  J1  
 T   C  r1  
 T  C  1  
 T  C  1  
 T  C  1  
 T  C  42   %C  2  
 T 
  02  
 T   C  X2  
 T  C  |2  
 T  CC  2  
 T  C  2  
 T  C  2  
 T  C  3  
 T  C  43  
 T   T     (  J4   T   T    % 	
 3  ! T!  0CC  Z
  3   T! CC  Z  T   T! C <  % C  *4   T# C$ 
  F4   T# C%   & %C   C  	 4   =  ( 4   T, =    & %C   C 	 4   T,     H 4    6   C 
 5   T     Diese Einstellung wirkt auf Grundgehalt(8), Familienzuschlag(9), Allg.Stellenzulage(10), Stundenvergtung(17), Urlaubsgeld(18).F C  C 	 C 
 C 	  6   T        H 6   6  U C   C 
	 C  C 	 C  }6   T  C  6   %C  6  
  6   T       dJ  
 T  H 7   =C   C   !:   H )7   :   C   M7  
 T 
 C  q7  
 T  C  7  
 T  C  7  
 T  C  7  
 T  C  8  
 T  C  %8  
 T  C  I8  
 T  C  m8  
 T  C 	 8  
 T  C 
 8  
 T 
 C  8  
 T  C  8  
 T  C 
 !9  
 T  C  E9  
 T  C  i9  
 T ( C  9  
 T ( C  9  
 T 
 C  9  
 T ( C  9  
 T ( C  :  
 T (  C  ;   H I:   ;   C   m:  
 T 
 C  :  
 T  C  :  
 T ( C  :  
 T ( C  :  
 T  C  !;  
 T F C  E;  
 T ( C  i;  
 T  C  ;  
 T  C 	 ;  
 T 
 C 
 ;  
 T 
  C  ;  
 T 
 C  s=   %C   8<  
 T 
  O<  
 T 
  %C  o=   %;  k=   H <   g=   C   <  
 T  C  <  
 T  C  <  
 T  C  =  
 T  C  C=  
 T  C  g=  
 T     C  +?   H =   '?   C   =  
 T  C  =  
 T ( C  >  
 T  C  +>  
 T  C  O>  
 T  C  s>  
 T  C  >  
 T 
 C  >  
 T  C  >  
 T 
 C 	 ?  
 T  C 
 '?  
 T   C  /@   H S?   +@   C   w?  
 T  C  ?  
 T  C  ?  
 T  C  ?  
 T  C  @  
 T  C  +@  
 T   CC 
 Z@  
 T 
 C  
A   H @   	A  F C   C 	 C  C 	 @  
 T 
' C  C 	 	A  
 T (  CC 
 A   H <A   A  E C   C 	 C  C  A  
 T 
' C  C 	 A  
 T (  C  A  
 T 	 >  CC  B  
 T  C  =B  
 T  C  aB  
 T ( C  B  
 T  CC  B  
 T  C  B  
 T  C  B  
 T  C  C  
 T  C  =C  
 T  & %C  C  gC  
  C   T    T     (  D   T   T    % 	
 D  ! T!  0CC  Z
  'D   T! CC  Z  T   T! C ?  % C  xD   T# C$ 
  D   T# C%    %  D   T
  * 
 
  E   T  zCC   Z5 .Top = myform1.Abereich1.Top + myform1.&hszn..Top
 XT    ] Die Auswahl einer Dienstbezeichnung ist derzeit noch nicht mit weiteren Funktionen verbunden.C
  Wenn keine der angebotenen Dienstbezeichnungen zutrifft, knnen Sie auf Position 1 eine Dienstbezeichnung frei eingeben. Klicken Sie dazu mit der rechten Maustaste auf Position 1 der Auswahlbox oder auf Programmzeile 5. T    5  H F   `J   CC  `J  F T& 3 Besonderheit bei   L E H R E R N / D O Z E N T E N C
  %C  cG  J T& & 3 Nach  20 TV-L ist bei Lehrern das TabellenentgeltC
   %C  G  L T& & 5 Nach  19 TV-VKA ist bei Lehrern das TabellenentgeltC
  @ T& & ) der Entgeltgruppen 5 bis 8 um 64 Euro undC
 L T& & 5 der Entgeltgruppen 9 bis 13 um 72 Euro zu vermindern.C
 H T& & 1 Das Programm nimmt diese Krzung vor, wenn in derC
 I T& & 2 obenstehenden Auswahlbox die Dienstbezeichnung aufC
 / T& &  Position 5 gewhlt wird.C
  %C  I  O T& & 8 Fr neue Bundeslnder 92,5 % 59,20 Euro bzw. 66,60 Euro.C
 
  I  M T& & 6 Fr neue Bundeslnder 97 % 62,08 Euro bzw. 69,64 Euro.C
  < T& & % Die Betrge werden bei jeder linearenC
 3 T& & " Gehaltserhhung um 10 % reduziert. T    &      _U   @ 2 %;  C  	 C 	 J  
 T   T  zCC   Z5 .Top = myform1.Abereich2.Top + myform1.&hszn..Top
 H #K   [K  ' C   C 	 [K   T   & %C  C 	 K  
 T   T     (  L   T   T    % 	
 L  ! T!  0CC  Z
  7L   T! CC  Z  T   T! C A  % C  L   T# C$ 
  L   T# C%    %C 
 OR   % B !   
 KR   T s T& f Das Programm hat die Dienstaltersstufe bereits aufgrund des in Zeile 6 eingegebenen Datums berechnet.  T& &  Wenn Sie jetzt die Stufe manuell ndern, wird das Datum in Zeile 6 gelscht und die automatische Berechnung wird abgeschaltet. } T& & f Spter kann durch Eingabe eines Datums in Zeile 6 die automatische Berechnung wieder aktiviert werden.C
  %C   GR   H N   CR  ' C   C 	 O  [ T& N Sie knnen die Gehaltsstufe durch den Assistenten in Zeile 6 berechnen lassen.F C 
 C 	 C  C 	 P  H T& 5 Bei durchschnittlicher Leistung (also in der MehrzahlC
 K T& & 4 der Flle) richtet sich der Stufenaufstieg nach der C
 G T& & 0 regelmigen Stufenlaufzeit. Wenn Sie in Zeile 6C
 K T& & 4 das Eintrittsdatum eingeben, berechnet das Programm C
 8 T& & ! davon ausgehend die Entgeltstufe.C
  C  3Q  c T& V Die Entgeltstufen werden bei rzten nicht nach dem Datum in Programmzeile 6 berechnet. CC  R  r T& e Die Bezeichnungen der Entgeltstufen knnen in der Menzeile unter TEXTE angepasst werden (Datenstze  %C  Q   T& &  6051 - 6065)
  R   T& &  6066 - 6080)  C  CR  
 T&      
  <T   T& 0 zu 1. Brutto = Netto; AG zahlt 10% KV und 12% RVC
  zu 2. Beide Jobs wie 1.C
 6 zu 3. Alle gf. Beschftigungen sind voll SV-pflichtig.C
  T& & = zu 4. Die zuerst aufgen. Beschftigung ist versicherungsfrei.C
 " zu 5. voll versicherungspflichtig.C
  T& &  berprfen Sie die Einstellungen in den Programmzeilen 37 bis 41 anhand der Hilfetexte fr Geringverdiener und mit dem Assistenten SV (Icon "4 rote Sulen" in der Menzeile). & %C  C  	 T  # %;  C 	 T   C   %;  T   C   & %C  C  	 T   %;  T   D   & %C  C 	 EU   %;  AU   E    T    &     {[  
 T  T  zCC   Z5 .Top = myform1.Abereich2.Top + myform1.&hszn..Top
 H U   W  6 C   C 	 C  $V  
 T & C  C  WV  
 T  C  {V  
 T T C  C 	 C 
 C 	 C  V  
 T  C   W  
 T  C  $W  
 T  C  HW  
 T 
 C  lW  
 T  C  W  
 T  C  W  
 T ' C  C 	 W  
 T 
  T     (  X   T   T    % 	
 gX  ! T!  0CC  Z
  X   T! CC  Z  T   T! C F  % C	  X   T# C$ 
  X   T# C%    H Y   w[  6 C   C 	 C  Z   T    و Die Einstellung wirkt auf diese Zeile (10) und zustzlich auf die Kinderzahl bei der Jahressonderzahlung (19) und der Steuerklasse (35).C
 # Fr Zhlkinder whlen Sie Zeile 17.' C  C 	 NZ   T      C  w[  T     Geringfgig Beschftigte sind von KV-Beitrgen befreit. Jedoch mu der Arbeitgeber einen pauschalen KV-Beitrag in Hhe von 11 % entrichten. Dieser AG-Anteil entfllt, wenn der Beschftigte nicht gesetzlich krankenversichert ist. Siehe Programmzeile 37.    	 #a   T  zCC   Z5 .Top = myform1.Abereich2.Top + myform1.&hszn..Top

 T  H [   ]  ' C   C 	 1\  
 T  C  U\  
 T  CC  }\  
 T T C  C 	 C 
 C  C 	 \  
 T  C  ]  
 T  C  &]  
 T  C  ]   %C  ]  
 T  %C  ]  
 T     T     (  ^   T   T    % 	
 ^  ! T!  0CC  Z
  2^   T! CC  Z  T   T! C G  % C
  ^   T# C$ 
  ^   T# C%    H ^   	a  U C   C 	 C 	 C  C 	 #_   T      ' C  C 	 W_  
 T&   6 C 
 C  C 	 _   H  CC  _   H ' C  C 	 #`   H _   	`   CC 
 	`    T    &  C  	a   T&  Bei einem Verzicht auf Befreiung von der RV-Pflicht mu der Beschftigte den Differenzbetrag zum vollen RV-Beitrag in Hhe von 7,5 % selbst tragen; dieser AN-Anteil wird in Zeile 39 ausgewiesen.  T    &    
 b   T
  I 
 
 T  T     (  ib   T   T    % 	
 a  ! T!  0CC  Z
  a   T! CC  Z  T   T! C J  % C  Ib   T# C$ 
  eb   T# C%   G T    1 Diese Einstellung wirkt nur auf diese Zeile (12).    h   T  zCC   Z5 .Top = myform1.Abereich2.Top + myform1.&hszn..Top

 T  H 6c   d  T C   C 	 C  C 	 C  c  
 T  %C 
 c  
 T   C  c  
 T  C  d  
 T  CC  /d  
 T E C 
 C 	 C  C  d  
 T  C  d  
 T  C  d   B  T     (  e   T   T    % 	
 ?e  ! T!  0CC  Z
  ee   T! CC  Z  T   T! C K  % C  e   T# C$ 
  e   T# C%    H e   h   C   g  # %;  C 	 g  H T& 5 Bundesbeamten kann fr den Zeitraum bis zum ErreichenC
 K T& & 4 der nchsten Stufe das Grundgehalt der nchsthherenC
 ? T& & ( Stufe gezahlt werden, wenn sie dauerhaftC
 : T& & # herausragende Leistungen erbringen.C
 3 T& &  (Leistungsstufe nach  3 derC
 5 T& & $ Bundesleistungsbesoldungsverordnung) T    &  ' C 
 C 	 h   T& N Bei 07 bis 12 kann ein Prozenzsatz fr eine Leistungszulage eingegeben werden.C
 D Im brigen dienen die Bezeichnungen nur der Erluterung des Betrags. T    & 6 C   C 		 C  h   T        C  
 i  
 TL    M  B    pl   T  zCC   Z5 .Top = myform1.Abereich3.Top + myform1.&hszn..Top

 T  T     (  j   T   T    % 	
 j  ! T!  0CC  Z
  -j   T! CC  Z  T   T! C N  % C  ~j   T# C$ 
  j   T# C%    T     Pos. 1 = Der Eingabewert gilt nur fr den aktuellen Monat. Bei der Berechnung helfen die Assistenten A und B. Jeder Assistent bedient die Zeilen 16 und 17 gleichzeitig. T         Unter "Daten/Zuschlagsassistent" knnen fr die einzelnen Zuschlagsassistenten unterschiedliche Vorgabewerte eingegeben werden.C
 h T        E Pos.2 = Die Pauschale wird automatisch in die Folgemonate bertragen.    o   T  zCC   Z5 .Top = myform1.Abereich3.Top + myform1.&hszn..Top

 T  T     (  m   T   T    % 	
 \m  ! T!  0CC  Z
  m   T! CC  Z  T   T! C O  % C  m   T# C$ 
  m   T# C%    T     Pos. 1 = Der Eingabewert gilt nur fr den aktuellen Monat. Bei der Berechnung helfen die Assistenten A und B. Jeder Assistent bedient die Zeilen 16 und 17 gleichzeitig.  T         Unter "Daten/Zuschlagsassistent" knnen fr die einzelnen Zuschlagsassistenten unterschiedliche Vorgabewerte eingegeben werden.C
 h T        E Pos.2 = Die Pauschale wird automatisch in die Folgemonate bertragen.    	t   %C  o   B " %C  P 4 	 'p  
 T 
  pp   %C 
 Up  
 T 
  lp  
 T    T     (  q   T   T    % 	
 p  ! T!  0CC  Z
  q   T! CC  Z  T   T! C Q  % C  fq   T# C$ 
  q   T# C%    %C 
 q   T
  I 
  R 
 
  r   T  zCC   Z5 .Top = myform1.Abereich4.Top + myform1.&hszn..Top
  H /r   s  ' C   C 		 r  p T& c Das Urlaubsgeld kann bei "lt. Eingabe" auch fr einen anderen Monat als den Juli eingegeben werden.' C 
 C 	 s  A T& . Pos. 1 die tariflichen Einmalzahlungen werden C
 @ T& & ) automatisch im richtigen Monat angezeigt.C
 M T& & < Pos. 2 Die Einmalzahlungen knnen manuell eingegeben werden.' C  C 	 s  
 T&     T    &     w   T
  I 
  R 
  %C  Ut   B 
 T  H wt   t  F C   C 	 C  C 	 t  
 T  C  t  
 T   T     (  v   T   T    % 	
 mu  ! T!  0CC  Z
  u   T! CC  Z  T   T! C S  % C  u   T# C$ 
   v   T# C%   
 T&    H &v   v  ' C 
 C 	 v    T& 
 A C H T U N GC
 H T& & 1 Im TVD und TV-L sind fr die JahressonderzahlungC
 2 T& & ! keine Kinderzuschlge vorgesehen.  T    &     x   T
  I 
  R 
 
 T 
 T     (  Qx   T   T    % 	
 w  ! T!  0CC  Z
  w   T! CC  Z  T   T! C T  % C  1x   T# C$ 
  Mx   T# C%    T    t Einmalige Zahlungen werden nicht auf Folgemonate bertragen. Die Steuern und SV-Beitrge werden gesondert berechnet.    x   B     {   T
  U 
  %C 

 Ay  
 T 
  Xy  
 T   T     (  nz   T   T    % 	
 y  ! T!  0CC  Z
  y   T! CC  Z  T   T! C V  % C  Nz   T# C$ 
  jz   T# C%    T X T    j Das Teizeitgehalt steht im gleichen Verhltnis zum Vollzeitgehalt wie der linke Betrag zum rechten Betrag.    
   T
  I 
  W 
 
 T  H O{   {  ' C   C 	 {  
 T  C  {  
 T ! CC 	 {  
 T   T     (  |   T   T    % 	
 T|  ! T!  0CC  Z
  z|   T! CC  Z  T   T! C X  % C  |   T# C$ 
  |   T# C%    T T     Beim Bruchteilsgehalt (Pos. 1 und 2) werden die Abzge vom Betrag in Zeile 22 berechnet und nach dem Verhltnis in Zeile 23 angesetzt. Bei den brigen Einstellungen werden die Abzge aus dem Betrag in Zeile 23 berechnet und voll angesetzt. & %C   C 
	   9 T& & Bei B A D E N - W  R T T E M B E R G C
 E T& & . Die ATZ-Aufstockung betrgt bei Altfllen 83 %C
 ? T& & ( und bei Neufllen ab 2011 nur noch 80 %.C
 H T& & 1 Wenn es sich um einen Altfall handelt, ist in denC
 ? T& & ( Stammdaten (Icon Broklammer in Zeile 1)C
 9 T& & ( die entsprechende Checkbox zu markieren.
    < T& ) A C H T U N G   bei A T Z - FreizeitphaseC
 E T& & . Nach  243 SGB V ist der KV-Beitrag zu krzen,C
 B T& & + wenn kein Anspruch auf Krankengeld besteht.C
 > T& & ' Dies ist in der Freizeitphase der Fall.C
 B T& & 1 Die Krzung wird in Programmzeile 37 vorgenommen.  T    &       
 T  T
  * 
  Y 
  T     (  ]   T   T    % 	
 Ɓ  ! T!  0CC  Z
     T! CC  Z  T   T! C Z  % C  =   T# C$ 
  Y   T# C%    T& r Sowohl der Freibetrag als auch der Hinzurechnungsbetrag sind ohne Vorzeichen (also als positive Werte) einzugeben.H T& & C
 C
 + Versorgungsbezge bentigen Zusatzangaben ! T& & C
 ل Bitte klicken Sie auf das blaue Fragezeichen in Programmzeile 24 und machen Sie dort Angaben zum Versorgungsbezug im Erstbezugsjahr.C
  T& & C
  Wenn die Eingabemglichkeit in Programmzeile 24 fr Versorgungsbezge verbraucht worden ist und noch ein Steuerfreibetrag zu bercksichtigen ist,  T& &  dann kann der Steuerfreibetrag in Programmzeile 25 eingegeben werden, wenn in der Auswahlbox 25 die Option "16 - Steuerfreibetrag" gewhlt worden ist. Z T& & I Der Steuerfreibetrag ist dann allerdings als negativer Betrag einzugeben. T    &        T  zCC   Z5 .Top = myform1.Abereich6.Top + myform1.&hszn..Top

 T  T     (  
   T   T    % 	
 v  ! T!  0CC  Z
     T! CC  Z  T   T! C [  % C     T# C$ 
  	   T# C%    T     Die Sachbezge zhlen zu den Arbeitgeberaufwendungen. Als solche werden sie folgendermaen in die Berechnung der Abzge einbezogen Pos.1 Steuern, SV und ATV, Pos. 2 Steuern und SV, Pos 3 bis 9 nur Steuern.       H       C 
 ^   T
   T  	 0
 T  C     T
  \ 
  % ]  4     T  	 3
  Ԉ   T  	 2 
 T )  T     (     T   T    % 	
 d  ! T!  0CC  Z
     T! CC  Z  T  " % 
 C 	 (   %     / T! ! Anderweitig mit Versorgungszusage
  $   T!  nicht belegt 
  H   T! C ^   % C  u   T# C$ 
     T# C%    %C 
   < T& ) Die Umlagestze fr die VersorgungskassenC
 4 T& &  knnen in der Menzeile unterC
 < T& & % "Vorgaben / Pensionsumlage" fr jedesC
 ; T& & $ Land und den Bund festgelegt werden.C
 C T& & , Die dort als Vorgabewerte hinterlegten WerteC
 K T& & 4 sind nicht korrekt und mssen noch angepasst werden.C
 A T& & * Das Programm nimmt nur eine MultiplikationC
 E T& & . der in der Spalte "Z" markierten BruttobetrgeC
 I T& & 2 mit dem Umlagesatz vor ohne spezielle Berechnungs-C
 J T& & 3 vorschriften zu beachten. Das Ergebnis kann deshalbC
 = T& & & nur fr eine grobe Kalkulation dienen.C
 B T& & + Bitte beachten Sie deshalb die Satzung IhreC
 C T& & , Versorgungskasse (Internetlink siehe unten).C
  T& &   C
 # T& &  Zu Zeile 05 C
 ; T& & $ Ab 2008 lautet die BerechnungsformelC
 3 T& & " ((Endst. + St.Z) * 0,984 + FZ) * % T    & 9 T& & Der hier berechnete VersorgungsaufwandC
 M T& & 6 hat Auswirkungen   n u r   auf den Arbeitgeberaufwand,C
 O T& & 8 der in der AG-Sicht (Schalter unter Zeile 47) und in derC
 I T& & 8 Kostenstellenbersicht (Icon Zeile 28) dargestellt wird. T    & 
     T              T
  _ 
  ` 
 
 T  T     (     T   T    % 	
 ϐ  ! T!  0CC  Z
     T! CC  Z  T   T! C a  % C  F   T# C$ 
  b   T# C%   %C5     %       
     T, b     $ T&  01 bis 31.12.2004C
 > T& & ' 02 ab 1.7.2005 fr alle KV-VersichertenC
 B T& & + 03 ab 1.1.2005 fr Kinderlose ber 23 JahreC
 , T& &  04 02 und 03 zusammenC
 0 T& &  05 fr Korrekturen von 02C
 0 T& &  06 fr Korrekturen von 03C
 0 T& &  07 fr Korrekturen von 04C
 X T& & A 08 nur wenn PV-Zusatzbeitrag auerhalb von PC-Gehalt gezahlt wirdC
  T    &       
 T y T
 < T     (  Ӕ   T   T    % 	
 <  ! T!  0CC  Z
  b   T! CC  Z  T   T! C c  % C     T# C$ 
  ϔ   T# C%    T     Sie knnen die Personalkosten Ihres Amtes mit dem Icon in Zeile 28 nach Kostenstellen und Kostenarten gliedern, wenn Sie hier jeden Bediensteten mit einer Kostenstelle kennzeichnen.  T         Nheres in der "Bedienungsanleitung". Die Kostenstellen knnen in der Menzeile unter "Texte" in den Datenstzen 4801 bis 4920 umbenannt werden. g T        D Dort knnen die Bezeichnungen auch auf Folgejahre bertragen werden.       T  zCC   Z5 .Top = myform1.Abereich6.Top + myform1.&hszn..Top

 T  T     (  A   T   T    % 	
   ! T!  0CC  Z
  З   T! CC  Z  T   T! C d  % C  !   T# C$ 
  =   T# C%   } T    g Diese Angabe wird fr den ausdruckbaren Lohnsteuernachweises bentigt und hat keine anderen Wirkungen.        T  zCC   Z5 .Top = myform1.Abereich6.Top + myform1.&hszn..Top

 T  T     (  E   T   T    % 	
   ! T!  0CC  Z
  ԙ   T! CC  Z  T   T! C e  % C  %   T# C$ 
  A   T# C%   P T& C
 7 Das SV-pflichtige Entgelt bei einem anderen ArbeitgeberC
 ; T& &  wird vom Programm bentigt frC
 C
 Q T& & 4 - die Berechnung der SV-Beitrge im bergangsbereichC
 C
 T T& & 7 - die Prfung der KV-Pflicht (Schaltflche in Zeile 37)C
 C
 R T& & ; - die Feststellung, ob es sich um das erste Beschftigungs-C
 C T& & ,    verhltnis handelt. Dies wird angenommen,C
 P T& & 9    wenn der in Zeile 24 eingegebene Betrag niedriger ist C
 5 T& &     als der Betrag in Zeile 23.C
 H T& & 1    Nur fr das 1. Beschftigungsverhltnis steht C
 A T& & *    der Freibetrag nach  3 Nr. 56 EStG zu C
 D T& & !    (siehe Lupe-Icon in Zeile 28).C
 C
 C
 0 T& &  AG trgt alle SV-BeitrgeC
 C T& & , Bei Auszubildenden trgt der Arbeitgeber dieC
 : T& & # Sozialversicherungsbeitrge allein,C
 B T& & + wenn die Geringverdienergrenze von 325 EuroC
 * T& &  nicht berschritten wird. T    &        T  zCC   Z5 .Top = myform1.Abereich6.Top + myform1.&hszn..Top

 T  T     (     T   T    % 	
 {  ! T!  0CC  Z
     T! CC  Z  T   T! C f  % C     T# C$ 
     T# C%    T    ْ Ein LSt-Jahres-Ausgl. d. AG setzt voraus, da alle Vormonate richtig eingestellt sind. Andernfalls ergeben sich unzutreffende Steuern im Dezember.       T ;  T  zCC   Z6 .Top = myform1.Abereich6.Top + myform1.&hszn.).Top
 T     (  G   T   T    % 	
   ! T!  0CC  Z
  ֡   T! CC  Z  T   T! C g  % C   '   T# C$ 
  C   T# C%   } T    g Von der Vollendung des 64. Lebensjahres bzw. vom Jahr des Versorgungsbeginns hngt der Prozentsatz ab, v T        S mit dem der Altersentlastungsbetrag bzw. der Versorgungsfreibetrag berechnet wird.  T        a Beide Betrge werden im Zuge der Umstellung auf die nachgelagerte Besteuerung der Altersvorsorge  T        b in der Zeit ab 2005 bis 2040 auf Null abgeschmolzen. Je spter also eine Person nach 1941 geboren l T        I ist, desto niedriger sind die Freibetrge und folglich hher die Steuern.     Ƥ     ! ٤     "    T
  h 
  %C	  $  
 T 
  ;  
 T   T     (  Q   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C i  % C#  1   T# C$ 
  M   T# C%    %C     =  (    T, =    T, 
 
     = (
    T, =    T    ٦ Das Kindergeld wird im ffentlichen Dienst vom Dienstherrn zusammen mit dem Gehalt ausgezahlt, zhlt aber nicht zu den Personalausgaben und unterliegt keinen Abzgen.    #    T  zCC   Z5 .Top = myform1.Abereich7.Top + myform1.&hszn..Top

 T  T     (  /   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C j  % C$     T# C$ 
  +   T# C%   = T& * Aufgrund des SolidarittszuschlagsgesetzesC
 G T& & 0 wird seit 1991 ein Solidarittszuschlag erhoben.C
 D T& & - Die Hhe betrgt derzeit 5,5 % der Einkommen-C
 B T& & % steuer und damit auch der Lohnsteuer.C
 C
 A T& & * Der Solidarittszuschlag wurde eingefhrt,C
 = T& & & um die Kosten der Wiedervereinigung zuC
 D T& & - finanzieren und insbesondere eine AngleichungC
 A T& & * der neuen Bundeslnder an das Wirtschafts-C
 A T& & * niveau der alten Bundeslnder zu schaffen.C
 ? T& & ( Er wird aber sowohl in West- als auch inC
 D T& & - Ostdeutschland erhoben. Das Aufkommen betrgtC
 - T& &  jhrlich rund 10 Mrd. Euro.  T    & > T& + Bei der Berechnung ist die Lohnsteuer unterC
 = T& & & Bercksichtigung der KinderfreibetrgeC
 ? T& & ( zugrunde zu legen. Da fr Kinder primr C
 A T& & * whrend des Jahres Kindergeld gezahlt wirdC
 > T& & ' und die Kinderfreibetrge erst bei der C
 A T& & * Steuerveranlagung im Rahmen der Gnstiger-C
 > T& & ' prfung eine Rolle spielen, ist fr dieC
 A T& & * Berechnung des Solidarittszuschlags extraC
 @ T& & ) in einer Nebenrechnung die Lohnsteuer mitC
 7 T& &   Kinderfreibetrgen zu berechnen.C
 A T& & * Dies erklrt, warum bei einer nderung derC
 B T& & + Anzahl der Kinderfreibetrge sich die Lohn-C
 N T& & 1 steuer nicht ndert, wohl aber der Soli-Zuschlag.C
 C
  T    &    $ ζ   T  zCC   Z5 .Top = myform1.Abereich7.Top + myform1.&hszn..Top

 T 	 T     (  !   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C k  % C%     T# C$ 
     T# C%   ? T& , Bemessungsgrundlage ist die Lohnsteuer unterC
 > T& & ' Bercksichtigung der Kinderfreibetrge.C
 B T& & + Da die Kinderfreibetrge bei der LohnsteuerC
 ? T& & ( erst bei der Veranlagung im ZusammenhangC
 B T& & + mit der Kindergeld-Gnstigerprfung wirken,C
 D T& & - hat die Anzahl der Kinderfreibetrge zunchstC
 F T& & / keine Auswirkung auf die Lohnsteuer sondern nurC
 E T& & . auf die Kirchensteuer (und den Soli-Zuschlag).C
 C T& & , Der Kirchensteuersatz betrgt in Ba.-W. undC
 F T& & / Bayern 8 %, in allen anderen Bundeslndern 9 %.C
 B T& & + Bei hohen Einkommen und entsprechend hoher C
 C T& & , Steuerprogression ist die Kirchensteuer auf C
 ? T& & ( einen Prozentsatz des st.pfl. EinkommensC
 C T& & , begrenzt (Kappungsatz 3 - 4 %). Die Kappung C
 E T& & . wird nicht bei der Lohnsteuer, sondern nur beiC
 : T& & # der Einkommensteuer bercksichtigt.C
  T    & E T& 2 Fr die Pauschalversteuerung (z.B. der ZVK-Umlage)C
 J T& & 3 gilt ein besonderer Steuersatz, der auf der kleinenC
 @ T& & ) Schaltflche in Zeile 36 angezeigt wird. C
 D T& & - Klicken Sie auf diese Schaltflche, um diesenC
 L T& & 5 Prozenzsatz anzupassen oder mehr darber zu erfahren.C
  T    &    %      &    T
  _ 
  l 
 
 T 
 T     (  1   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C m  % C'     T# C$ 
  -   T# C%   8 T& % 01 bei Versicherungspflicht in der KVC
 : T& & # 02 bei privater KrankenversicherungC
 M T& & 6 03 Sonderfall Sachsen wg. Beibehaltung Bu- und BettagC
 M T& & 6 04 Sonderfall Sachsen wg. Beibehaltung Bu- und BettagC
 * T& &  05 bei Beamten u..C
 ) T& &  06 fr KorrekturenC
 ) T& &  07 fr KorrekturenC
 = T& & & 08 bei einzigem Entgelt unter 800 EuroC
 F T& & 5 09 bei mehreren Entgelten mit zusammen unter 800 Euro T    & G T    1 Zusatzbeitrag von Kinderlosen in Programmzeile 42 T    C%    '    T
  _ 
  n 
 
 T  T     (     T   T    % 	
 p  ! T!  0CC  Z
     T! CC  Z  T   T! C o  % C(     T# C$ 
     T# C%   8 T& % 01 bei Versicherungspflicht in der RVC
 % T& &  02 Beamte u..C
 . T& &  03 Minijob bis 400 EuroC
 ; T& & $ 04 Minijob, AN stockt RV-Beitrag aufC
 ) T& &  05 fr KorrekturenC
 3 T& &  06 bei VersicherungsfreiheitC
 8 T& & ! 07 bei Altersrentnern unter 65 J.C
 T T& & = 08 einziges Entgelt und im bergangsbereich (450 - 1300 Euro)C
 : T& & # 09 wie 08, AN stockt RV-Beitrag aufC
 R T& & ; 10 bei mehreren Entgelten in der Gleitzone/bergangsbereichC
 : T& & # 11 wie 10, AN stockt RV-Beitrag aufC
  T& & 
 12 geplant T    &    (    T
  _ 
  p 
 
 T  T     (      T   T    % 	
 i  ! T!  0CC  Z
     T! CC  Z  T   T! C q  % C)     T# C$ 
     T# C%   8 T& % 01 bei Versicherungspflicht in der AVC
 ) T& &  02 fr KorrekturenC
 : T& & # 03 Beamte, Praktikanten, MinijobberC
 S T& & < 04 einziges Entgelt und im bergangsbereich(450 - 1300 Euro)C
 R T& & ; 05 bei mehreren Entgelten in der Gleitzone/bergangsbereichC
 : T& & # 06 wenn AG den vollen Beitrag trgtC
 1 T& &   07 bei Altersrentnern ber 65 J. T    &    )    T
  h 
 
 T  T     (     T   T    % 	
 t  ! T!  0CC  Z
     T! CC  Z  T   T! C r  % C*     T# C$ 
     T# C%    T   T ' T! s Cu v  0.00t   %D T& 1 Nach dem TV Altersversorgung (ATV) haben sich dieC
 J T& & 3 Beschftigten mit einem bestimmten Prozentsatz des C
 J T& & 3 ZVK-pflichtigen Entgelts an der Umlage oder/und desC
 / T& &  Beitrags zu beteiligen. C
 J T& & 3 Bei Auswahl der obigen Zeile 2 wird der ProzentsatzC
 B T& & + verwendet, der fr die in Programmzeile 28 C
 E T& & . eingestellte Versorgungskasse hinterlegt ist. C
 M T& & 6 "U" = Beteiligung an Umlage (vorgelagerte Besteuerung)C
 J T& & 9 "K" = Beteiligung am Kapitalbeitrag (nachgelagerte Best.) T    & % T   	 w 	 ?   * b   T
  
 T . T   T  	 2   (  P   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C x  % C+  0   T# C$ 
  L   T# C%    T     + X   T
  
 T . T   T  	 2   (     T   % 	
   ! T!  0CC  Z
  7   T! CC  Z  T   T! C y  % C,     T# C$ 
     T# C%    T   T    ٓ Sie knnen die Bezeichnung des Einbehalts auf Pos. 1 der Liste fr den Bediensteten individuell mit Wirkung einheitlich fr alle 12 Monate ndern.  T        r Klicken Sie dazu eine Zeile mit der rechten Maustaste an. Allgemeine nderungen der Bezeichnungen auf den brigen ` T        = Positionen der Liste knnen unter "Texte" vorgenommen werden.   ,    T
  
 T . T   T  	 7   (     T   T    % 	
   ! T!  0CC  Z
  ;   T! CC  Z  T   T! C z  % C-     T# C$ 
     T# C%    T   %  *    T - Tx  Aufstockung Altersteilzeit T! Cx   T    ٓ Sie knnen die Bezeichnung des Einbehalts auf Pos. 1 der Liste fr den Bediensteten individuell mit Wirkung einheitlich fr alle 12 Monate ndern.  T        r Klicken Sie dazu eine Zeile mit der rechten Maustaste an. Allgemeine nderungen der Bezeichnungen auf den brigen ` T        = Positionen der Liste knnen unter "Texte" vorgenommen werden.   - .   T
  _ 
 
 T  T     (     T   T    % 	
 o  ! T!  0CC  Z
     T! CC  Z  T   T! C {  % C.     T# C$ 
     T# C%    T X T         .    T
  
 T $ T     (     T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C |  % C/  a   T# C$  T / 
  }   T# C%    T     Durch Einstellung eines Bundeslandes in Zeile 2 wird die zugehrige AOK in Zeile 33 mit dem KV-Beitragssatz in Zeile 37 voreingestellt.  T        _ Mit der Auswahl einer anderen Kasse in Zeile 33 wird auch der KV-Beitrag in Zeile 37 gendert.  T        f Krankenkassen-Namen und zugeordnete Beitragsstze knnen unter "Vorgaben/KV-Beitrge" angepat werden.C
 C
  T         Nur wenn "36. KV-Beitrag lt. Eing." gewhlt ist, kann in Zeile 37 der KV-Beitragssatz losgelst von Zeile 33 eingestellt werden.   / z   T  zCC   Z5 .Top = myform1.Abereich6.Top + myform1.&hszn..Top

 T  T     (  `   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C }  % C0  @   T# C$ 
  \   T# C%    T         0    T
 <
 T ) T     (     T   T    % 	
 #  ! T!  0CC  Z
  I   T! CC  Z  T   T! C ~  % C1     T# C$  T 1 
     T# C%   T     Auf den eingestellten Prozentsatz werden die dem Programm hinterlegten Tabellenwerte gekrzt. Damit knnen die in den Tarifvertrgen zur sozialen Absicherung fr die einzelnen Vergtungsgruppen unterschiedlich festgelegten Krzungen eingegeben werden.   2   
 T 
 T   T
  h 
   
    (  E   T   T    % 	
   ! T!  0CC  Z
     T! CC  Z  T   T! C   % C3  %   T# C$  T 3 
  A   T# C%    T  T# C%  T&  E I N SC
 - T& &  - Ledige, Geschiedene,C
 A T& & * - Verheiratete, die dauernd getrennt lebenC
 ? T& & ( - Verwitwete, sofern nicht in Klasse IIIC
  T& &  Z W E IC
 L T& & ; Personen, denen ein Entlastungsbetrag fr Alleinerziehende / T& &  nach  24b EStG zusteht.C
  T& &  D R E IC
 5 T& &  - Verheiratete AlleinverdienerC
 > T& & ' - Verheiratete mit Ehegatte in Klasse VC
 C T& & , - Verwitwete im Jahr nach dem Tod des GattenC
  T& &  V I E RC
 E T& & . - Nicht dauernd getrennt lebende Verheiratete.C
 D T& & - Die gemeinsamen Freibetrge werden gespittet.C
 E T& & . Gnstig, wenn jeder etwa gleich viel verdient.C
  T    &  T&  F  N FC
 E T& & . - Nicht dauernd getrennt lebende Verheiratete.C
 F T& & / Die gemeinsamen Freibetrge zhlen beim Gatten.C
 8 T& & ! Gnstig bei geringem Arbeitslohn.C
   T& & 	 S E C H SC
 D T& & - - Fr zweites und weiteres Arbeitsverhltnis,C
 ( T& &  daher keine Freibetrge T    &    3    %C3   U  
 T 	
  l  
 T 
  T   T
  h 
   
    (     T   T,    T    % 	
   ! T!  0CC  Z
  C   T! CC  Z  T   T! C   % C4     T# C$  T 4 
     T# C%   > T& + Die Betreuung, Erziehung und Ausbildung vonC
 A T& & * Kindern wird durch Kindergeld   o d e r   C
 3 T& &  Steuerfreibetrge gefrdert.C
 7 T& &   Primr wird Kindergeld gezahlt. C
 A T& & * Bei der Steuerveranlagung findet dann eineC
 . T& &  Gnstigerprfung statt.C
 S T& & < Die Freibetrge fr Kinder (KFB) sind in  32 EStG geregelt.C
 I T& & 2 Beiden Ehegatten stehen fr ein Kind steuerfrei zuC
 E T& & . - 4.368 Euro fr das schliche ExistenzminimumC
 K T& & 4 - 2.640 Euro fr Betreuung, Erziehung und AusbildungC
 I T& & 2 Die Aufteilung des Gesamtfreibetrags von 7008 EuroC
 G T& & 0 auf die Steuerpflichtigen wird durch die Steuer-C
 8 T& & ' klassen und Kinderfreibetrge geregelt. T   & 9 T& C
  K F B  = KinderfreibetrgeC
 C
 R T& & ; Die Kinderfreibetrge wirken sich zunchst nur auf die HheC
 K T& & 4 des Solidarittszuschlags und der Kirchensteuer aus.C
 I T& & 2 Die Wirkung auf die Lohnsteuer ergibt sich erst imC
 4 T& & # Veranlagungsverfahren (siehe oben). T    &    4    T
  _ 
   
 
 T 
 T     (     T   T    % 	
 L  ! T!  0CC  Z
  r   T! CC  Z  T   T! C   % C5     T# C$ 
     T# C%   8 T& % 01 bei Versicherungspflicht in der KVC
 : T& & # 02 bei privater KrankenversicherungC
 D T& & - 03 einziges Entgelt zwischen 400 und 800 EuroC
 % T& &  04 Beamte u..C
 / T& &  05 bis 2003 bei MinijobsC
 ; T& & $ 06 ab 2004 bei Minijobs bis 400 EuroC
 ? T& & (        (bis 30.6.2006 11 %, danach 13 %)C
 : T& & # 07 Beamter mit Minijob bis 400 EuroC
 A T& & * 08 fr Korrekturen (AN-Anteil = AG-Anteil)C
 A T& & * 09 fr Korrekturen (AN-Anteil = AG-Anteil)C
 L T& & 5 10 bei mehreren Entgelten mit zusammen unter 800 EuroC
 Q T& & :        (Nicht korrigierbarer Fehler AN-Anteil = AG-Anteil)C
 G T& & 0 11/12 wenn kein Anspruch auf Krankengeld bestehtC
 : T& & )             z.B. in der ATZ-Freizeitphase T    & H T    2 Zusatzbeitrag zur Krankenvers. in Programmzeile 42 T    C%    5 ~   T  	 4 T
  
 T = T     (     T   T    % 	
 z  ! T!  0CC  Z
     T! CC  Z  T   T! C   % C6     T# C$ 
  
   T# C%   ~ T    h Die Einstellung in Zeile 2 bestimmt die AOK in Zeile 34 und dies bestimmt den Beitragssatz in Zeile 39.  T        a In Zeile 39 kann der Beitragssatz nur dann dauerhaft gendert werden, wenn zuvor in Zeile 34 die g T        D Einstellung >KV-Beitrag lt. Eingabe in Zeile 39< gewhlt worden ist.   7     nachweislistezumdrucken B   T  
 T   T        y   T     (  u   T   T    T  T   T   ' %   	   
 d   ! T   	   
 d   T   	   	 
 H    &       x  " %   	  U 
  K   T   	  U 
 
  t   T   	    5         	   0   3 %   	    
    
  
  - T   	   
     
      C   T   	       p   T   	  V            %	   )   /   1 B  = %   	    
   U 
  U 	  >  ; T   	  U 
  U 	    
  d        %C 
   3 %   	    
    
    - T   	   
     
  
     T   	   	   C  234 6   T   	      . h   T   	    C  *+,    T   
  ( T   	   	 q=
ףp?       T   	      5 &  ! T   	   	     
  T  4  T      < T      < T     # T  	  	   
  T      < T      < T     - % 	   	   
 
 Z   T  
    %      . T  	  	   	   
   H              T  	     2   T   
  T    d T    4        T   
 X T    d T    4     H   H    D  ' C 
 C 	 D  9 T& & EGr. 1 bis 5 bitte   m a n u e l l   !C
 I T& & 2 Der eingespeiste Tabellenwert ist bei den Entgelt-C
 C T& & , gruppen 1 bis 5 zu gering, wenn zuvor in derC
 B T& & + BAT-Verg.Gr. X bis VIII bzw. KR I und KR IIC
 D T& & - Aufschlge zu den Kinderzuschlgen zustanden.C
 = T& & & Diese Aufschlge sind deshalb in einerC
 4 T& & # Zulagenzeile zustzlich einzugeben. T    &  %C 

    T    C %  T    5 
  &   T    C%  T    4   T  
  ' 
      u   T  
  _ 
  C  .*+,    T   
 X T    d T   	   	 # T         T    4 # C  #$23 _   T 
     T  
        T  
   
    4    T  
   
  C  &'    T  
   
    (    T  
  h 
    ) N  $ T  
  h 
   
    5 a  M       	   $   -	   /   1	   & T  
   
   	 3 T  	  	   	   
 d  H       C  23 _   T  
  
  T   4    #     T  
 _ 
 l 
  T   4    $    T  
  
  T   4    & H  ' T  
   
  	 d T  	  T   4    4     T  
  
  
  T  	  T   4 L       -	   /   1	   3   5   & T  
   
   	     (    T CC  Z1 myform1.kcombo.zgridwww&hsin..Visible = False
J myform1.kcombo.zgridwww&hsin..Width = myform1.Kcombo.zgrid.Width - 100
F myform1.kcombo.zgridwww&hsin..BackColor = myform1.Kcombo.BackColor
  %             T 4  T
   
   
 & T  Ausfhrliche Erluterung8 T % http://www.pc-gehalt.de/manual/51.htm   %              T 4  T
  T  T     8 T * Hinweis zum Schutz personenbezogener Daten9 T & http://www.pc-gehalt.de/manual/163.htm   %C 
 	  H    	     	  T        g  T    H 1     C     1 T # Kommunaler Versorgungsverband Ba-WH T 5 http://www.kvbw.de/servlet/PB/menu/1097846/index.html C  `  , T  Bayerischer Versorgungsverband\ T I http://www.versorgungskammer.de/pls/portal/docs/PAGE/BVK/bayvv/index.html C    = T / Kommunaler Versorgungsverband Baden-Wrttemberg C    = T / Kommunaler Versorgungsverband Baden-Wrttemberg C  }  7 T ) Kommunaler Versorgungsverband Brandenburg' T  http://www.kvbbg.de/ C     T    C     T    C  H < T . Versorgungskasse fr die Beamten der Gemeinden. T  http://www.vk-darmstadt.de/ C   8 T * Kommunaler Versorgungsverband Meckl.-Vorp. C 	  / T ! Niederschsische Versorgungskasse% T  http://www.nvk.de/ C 
 v * T  Rheinische Versorgungskassen3 T   http://www.versorgungskassen.de/ C   ( T  Pflzische Pensionsanstalt* T  http://www.ppa-duew.de/ C  H ' T  Ruhegehaltskasse Saarland+ T  http://www.rzvk-saar.de/ C 
  3 T % Kommunaler Versorgungsverband Sachsen, T  http://www.kv-sachsen.de/ C  W 7 T ) Pensionsfonds-ZufhrungsVO Sachsen-AnhaltK T 8 http://www.pc-gehalt.de/Pensionsfondsgesetz/PZVO-SA.htm/ C   ; T - Versorgungsausgleichskasse Schleswig-Holstein C   5 T ' Kommunaler Versorgungsverband Thringen) T  http://www.kvt-zvk.de/   T
   	 333333? T      T 4   T          T    H   }  C  I 7 T ) Beamtenversorgungskasse Kurhessen-Waldeck; T ( http://www.kvk-kassel.de/bvk/default.htm T 4  C 	  ( T  Versorgungskasse Oldenburg: T ' http://www.bezirksverband-oldenburg.de/ T 4  C 
 f 4 T & Westflisch-Lippische Versorgungskasse= T * http://www.kvw-muenster.de/kvw/Portalseite T 4  C  }    T
   	 ? T       T        	  T    H   b	 F C   C 	 C  C 	  2 T $ Versorgungsrcklagegesetz des Bundes: T ' http://www.Versorgungsrcklagegesetz.de T 4  C  b	 5 T ' Kommunalbeamten-Versorgungskasse NassauE T 2 http://www.zvk-wi.de/kdz/htdocs_2118/bvk/index.jsp T 4    T
   	 ffffff? T       T        	  T       H 	  
 *       	   0 /
  T  d      /	 
  %  d 
  T    d T 
  
  
  T 	  	  T    
  
  T  d    U  ZTI MYFORM1 KCOMBO ENABLED VISIBLE ZGRID SETFOCUS ZI K HEIGHT LABEL1 CAPTION HSZN TOP LEFT WIDTH	 BACKCOLOR TOPROW
 SCROLLBARS FLEXSCROLLBARNONE FLEXSCROLLBARVERTICAL BACKCOLORFIXED BACKCOLORBKG	 ANLEITUNG ANLEITUNGSTEXT ANLEITUNGSTEXT1	 FORECOLOR I
 SATZANZAHL ROWS MYID ROW COL TEXT ZT0
 CELLBACKCOLOR	 FARBENRGB QBCOLOR MSG	 ABEREICH1 Z1 ZT1	 ABEREICH0 Z2	 ROWHEIGHT ZT2 Z3 ZT3 HSXDAT EIGDAT WELCHESJAHRC NETTOENTGELT TRUE FALSE M ZT4 Z5 TOOLTIPTEXT ZZTI WELCHESJAHR ZT5 J SOZIALDIENSTTITELZAHL ZT6 STUFENANZAHLERMITTELN ZT7	 BDABEGINN
 ANHALTMELDUNG
 HESSENMELDUNG HESSENRICHTERMELDUNG ZT8 ZT9 STRUKTURTEXT	 ABEREICH3 ZT10 ZT11 MYINDEXE EXTRAAKTIVIEREN ZT15 ZT16 AOK_VERSION ZT17 Z13 ZT18 ZT19	 ABEREICH4 ZT21 Z22 ZT22 Z0 ZT23 ZT24	 ABEREICH6 MEN10 ZT25	 ABEREICH8 Z26 ZT26 ID ZT27 ZT28 ZT29 ZT30 ZT31	 ABEREICH7 ZT34 ZT35 ZT36 Z38 ZT38 Z39 ZT39 Z40 ZT40 ZT41	 ATVSTUMPF MYFORMAT ZVKHALB ZVKKAPITALAN	 MYTABLETT ZT42 ZT43 ZT44 ZT45 ZT46 ZT47 ZT48 Z50 ZT50 ZT51 Z52 ZT52 ZT53 NACHWEISLISTEZUMDRUCKEN III
 CELLALIGNMENT SSPANEL2 SSPANEL1 TIP	 ABEREICH2 Z27 Z31 Z35	 ABEREICH9 Z44 HSIN	 ZGRIDWWW0 Z11 INTLINK	 ZGRIDWWW1	 ZGRIDWWW2	 ZGRIDWWW3 SSPANEL4    H T  5 Hat sich bei der berleitung vom BAT in den TVD/TV-LC
 M T    6 eine individuelle Zwischenstufe oder eine individuelleC
 K T    4 Endstufe ergeben, wird dieser Betrag als BesitzstandC
 . T     weitergezahlt und zwar C
  H       CC    F T    / - die individuelle Zwischenstufe bis 30.10.2008C
 6 C 
 C  C 	   F T    / - die individuelle Zwischenstufe bis 30.09.2007C
  C T    , - die individuelle Endstufe bis zur nchstenC
 1 T        Hhergruppierung.C
 C
 J T    3 Damit dieser Betrag fr knftige Berechnungen immerC
 K T    4 bereitsteht, ist er in den Stammdaten zu hinterlegenC
 I T    2 (Icon Broklammer in Programmzeile 1) und zwar in C
 I T    , seiner   u r s p r  n g l i c h e n   Hhe.C
 C
 I T    2 So kann der Besitzstandsbetrag bei linearen Tarif-C
 J T    3 erhhungen vom Programm entsprechend erhht werden.C
 H T    1 Auch bei den weiteren Schritten der WestanpassungC
 I T    2 der Ostgehlter werden die Besitzstandsbetrge vomC
 1 T      Programm entsprechend angepasst. U  MSG ZI
 anhaltmeldung0     
 hessenmeldung'     hessenrichtermeldung     sozialdiensttitelzahl>     strukturtexta     zaktivieren     zwischenstufentext(   4 1!q11q1!A 2q11 4 Aa!2q11 4 A1aaQ!Q2q11 5 q q q q q q q q q q q q q q q q q q q q q q q A  q q q q q q q q q q q q q q q q q q q q q q q q A A 3 !qA aAAbQ QA B1Q3 2AAqaA AA  AA 1 A QA "  a    A 1A A R  1 A   A 1A  A  aaaA Q 1     1 A  aq! !A A  2"Qba1q a 1 q a A    1 A  aq! !A A 1qAqqQ
A a2   A 1 A  1!A aq! !A 1A A a2Q 11Qq1!a!bb A	baR QA    1 A  aq! !A A 2q!   A   A 1A AA  1 A  av! 1q!qqA  A A A A r 1A  b2 q q A q q q 1 A r q A r q q q qA  Aq   A A A sA   A qA   A qA Aq   A Aq   A A A qA   A q q q q qq   A q q  q q q q A    1 A  aq! !A A gAA A aAA qQ	aaA Q1qq 1A A 2 qq q q q q q q q q q q q q q q q q q q q q A rq q q q q q q q q q q A r qq   A qAq q q q q q A A A qq q q q q q q q q q q A qq q q q q q A  qa q A Q q A r q  q q q  q q q q A c A    1 A  aq! !A A 1A QA aarA rA q A 1bA 2q ! A QqA a A    1 A  aq! !A A  1	qqaqq1!q A q A A A  A
A a1q A Aq A A bAq A A bAq A A c2 Qa a q A q q q q q q q A    1 A  aq! !A B aq1q!A 3Q q q  I q q qq q A A A    1 A  aq! !A A Qaq aq q qA brA a3A    1 A  aq! !A A r3Q A q A q q  Q q qA A    1 A  aq! !A A q11QaA q
aaaA  q A 3Q    1 A  aq! !A B 
3Q    1 A  aq! !A B 
3qA A "  q   A A    1 A  aq! !A A q QA qqq A c2qA A  a q A    1 A  aq! !A A  q!A f2    1 A  aq! !A A 3A 2Aq   A    1 A  aq! !A A  3 q q  A    1 A  aq! !A A  abQ Q!!A a2    1 A  aq! !A A 


a3Q    1 A  bq! !A B 23q A qAA AA  A    1 A  "1 A  aA q! !A A tA1Q!1q11aa aA 2    1 A  aq! !A q AA A A A!a2     1 A  aq! !A A Aq3Q    1 A  aq! !A A 3Q    1 A  aq! !A A A!1QA2!b4Q    1 A  aq! !A A 
3!a   1 A  aq! !A A aAQ325Aq   A    1 A  aq! !A B qAA A AA A 5Q    1 A  aq! !A A qA!AAaq!a5Q    1 A  aq! !A A !!AaQ1a!11QaRAa15    1 A  aq! !A A abq2    1 A  aq! !A A Q1A!a2    1 A  aq! !A A 1!a2B    1 A  aq! !A A   qB!QaQ1   A  1 A  aq! !A A  4   A 2 A  aq! !A A  
Q	3   A  1 A  aq! !A A  1 !A 
Q	3A    1 A  aq! !A A  a3     1 A  aq!1 !A A 	!Q	1
3Q    1 A  bq! !A A b3     1 A  aq!1 !A A 3    1 A  aq!1 !A B  !Q1QAQaQaAa2q   A   A 1 A  aq!1 !A B 1q1Rq1!Aa4    1 A  aq! !A A AQqb2A     1 A  aq! !A A Aq3A A A  QR      A A rA 1! A Q1A 22bA 2q1A  A 1a11A  1AA 2A 1Q1qaa2qaa2q1!AAaqa aA A 1qa1a1AA11q11A1a1A qA1A1A1qQA1QAaA qaA 1Q aA A 2Q   A A r11Q qrrrrqqr r rrrQr1rrqr1rqrrQB q A 1Q qq r qA qD qA 1Q a! rQQ B qA 1Q F A A qQ A A B 3 aaaA 13                    :   j          "	  !   )   O	  
  6   :   E
  S  M      x  A        e  ɟ    	   D      %   {      
  w     [i%U    U       T C W h dummy  C F   [ F  #)" ?
 ATZ_druck2(!"9 F  Q
 F  U  PROGRESSION	 OLDSELECT DUMMY FELD
 ATZ_DRUCK2     T C W h dummy  C F   [ F  #)" ?
 atz_druck3(!"9 F  Q
 F  U  PROGRESSION	 OLDSELECT DUMMY FELD
 ATZ_DRUCK3  U    U  w
 %C  n$ T 
C d  T C
!   T "C"  T CC ddG % 1 - T CC  d ( T CC  d   T C
#  T CC ddG % 1- T CC  d ( T CC  d + T 
C C % T C + T C
 C
 
 T  T C d  " T C   d/ T C C d% T CC T/ T C
 C d T CC ddG % 1b1 T CC d d , T CC d d + T C C % T C cd, T C )\(?% T CC T+ T C C % T C cd$ T C 	 + T C C 6 T C C C / T C$ dC / T C  dC  p
! T 
C
 d  T C
!  T CC ddG % 1- T CC  d B( T CC  d   T C
#  T CC ddG % 1- T CC  d ( T CC  d   T 
C % T C + T C
 C 
 T  T C d  " T C   d/ T C C d% T CC T/ T C
 C d T CC ddG % 11 T CC d d , T CC d d + T C C ! T C c, T C )\(?+ T C C ! T C c$ T C 	 + T C C 6 T C C C + T C C / T C dC   U  ZI SICHT HS_REST FIX LZZ RE4 STEUER CLNG LSTLZZ	 KISTRSATZ WERT	 ATZanlage,      progressdrucken      atzdruckenb    
 atzdruckenneu     progression    3 q  q Q A r Q "r A  4 q  q Q A r Q "r A  4 @1  1 TC A  A R q "Q A SQTAc  A  A R q !Q A AcB 6                    6   #        M  K        o    -          B          U      %         D     
  MS    U    U    U    U    U   T  C
 C
 ) T   Stufe CC  Z    T   ab C    T     T C d, T  CCC 
Z  EURO  
 H  C  
 H     	4% T C yyyyC 	     	v% T C yyyyC 	   % T C yyyyC 	   CC % T C yyyyC 	   U
  CRLF AN_STUFE IIII AN_DATUM BDADATA ZI GRUNDBETRAGHOLEN WERT	 AN_BETRAG DATEADD
 bdadrucken,      bdareihe3      bdastufendrucken:      dienstalterbl3A      bdastufendruckH     4  1 7 1 @1 Rqq  Q QQQA QA 4                    9   :        [            %        %  2  >     2  7       %                MU    U  
 %   $  T    
  
 T    T    T C  T	 
   T   T    T 
      (/ T  parCC  Z .&hspn..Visible = False

 H         	            	    !	  '  (	  *  .	  T  extraCC  Z .&hsen..Visible = False
    /(2W  T  extraCC  Z .&hsen..Visible = False
  T  C  T  C  T  C  T  C  T  C  T  C  T    T    T    T    T    T      ( T  menCC  Z .&hsmn..Visible = False
  T    T    T     T!  "  T# 
 C$  T% 
 C& 
 H
 '   ' 	 T( 
 
 fr den Monat )  T* + 
( T* 
 CCC- ,   .  '  T( 
  fr das Jahr T* + / T* 
  2 0 C. \  C. R  %CC/ >  T0 
 C1  : T0 
 C/   2  T3 4  T3 5 6  T3 5 4  T3 7 6  T3 6  T3 8 9  T3 : ;  T5 6   T< 6  & T5 4 = 6 C> 4  T< 4 5 4  T8 9 ? ; 8 ; ! T: ; ? ; 8 ;  %@   T4 5 4   T7      (/ TA CC  Z
 Hm     	    	    	    !  /	 .dem&xxx..Visible = False
   TB    T7  C  T " 
  C D 
   E  T  $ .BackColor = hex2rgb("&HC0FFFF")
 T5 6 F 4  T< 6 F 4  T  "  T  "  T  "  T   "  T!    T  "  T  "    (/+
 T  parCC  Z .&hspn..Visible = True

 H2	'
         	            	    !	  '  (	  *  .	'
  T  extraCC  Z .&hsen..Visible = True
    /(2
  T  extraCC  Z .&hsen..Visible = True
  T  <   T  <   T  <   T  <   T  <   T  <   T  "  T  "  T  "  T  "    ( T  menCC  Z .&hsmn..Visible = True
  T  "    (/ TG  demCC  Z
 H     	    	    	    !  +	  -  /	 .&hsdn..Visible = True
   T7 
    %@   T4 C3   T5 6 C3  T5 4 C3  T< 6 C3  T< 4 C3  T8 9 C3  T: ; C3  T7  "  T  "  T "  T	 
 "   UH  PRINTER ORIENTATION MYFORM1 COOLBAR1 VISIBLE FALSE HHER	 BACKCOLOR QBCOLOR
 SSRESIZER1 ENABLED READOUT TASTENSTAND CAPTION I HSPN HSEN LABEL11 LEI11 LEI12 LEI13 LEI14 LEI19 SSPANEL7 EXTRA52
 TDBNUMBER1 TVD NICHTKRZEN SOLDAT HSMN
 CONTAINER1
 ABEREICH11
 ABEREICH12
 ABEREICH13 TRUE LABEL24 DITEXT4 LABEL25 DITEXT5 INDEXM LABEL27
 MONATLADEN LABEL28 FONTSIZE SUMONATTEXT ZI WELCHESJAHRC DITEXT6 LABEL30 DATE	 KOPFDRUCK SICHT HEIGHT SSPANEL1 TOP TIP	 BDABEGINN LEFT Z1 WIDTH SSPANEL2	 ABEREICH5 ABEREICH	 ABEREICH1 WINDOWSTATE XXX	 KVPFLICHT	 PRINTFORM CLICK ENDDOC MEN0 HSDN 
 T     %C    4  T   x N  T     -  %C    }  T     x   T     -  %C      T     x   T     -  U  MSG	 SCHLSSEL J   
   T      ( {  T  zCC  Z# .&hszn..BackColor = QBColor(15)
   "($  T  zCC  Z# .&hszn..BackColor = QBColor(15)
   &(// T  zCC  Z# .&hszn..BackColor = QBColor(15)
   2(5 T  zCC  Z# .&hszn..BackColor = QBColor(15)
    (/ T CC  Z& .com&hscn..BackColor = QBColor(15)
   ( T CC  Z' .lst&hscn.).BackColor = QBColor(15)
& .soz&hscn..BackColor = QBColor(15)
& .zvk&hscn..BackColor = QBColor(15)
& .Wei&hscn..BackColor = QBColor(15)
& .tei&hscn..BackColor = QBColor(15)
& .bru&hscn..BackColor = QBColor(15)
  T 	 C
  T 	 C
  T 	 C
  
 
 HO   m
 C     
 C    
 C    
 C    
 C       T       (k T CC  Z1 myform1.Abereich&hscn..ForeColor = QBColor(4)
  T   C
  U  FARBENSW MYFORM1
 TDBNUMBER1 VISIBLE FALSE I HSZN HSCN SSPANEL1	 BACKCOLOR QBCOLOR SSPANEL2 EXTRA51 GRAPHIKDRUCKEN WELCHESJAHR JAHR1 FARBEN_ALLE JAHR2 JAHR3 JAHR4 JAHR5 FARBENZUWEISEN	 STARTBILD TRUE LABEL1	 FORECOLOR     (2  T   C   T  
       (
  T CC   Z T  C    U  I	 FARBENRGB QBCOLOR MYFORM1 HSCN	 BACKCOLOR  U   graphikdrucken,      schlsselauswertenP    	 swdruckenN     farbensw     besGrermitteln    5 DA  ! q A E rA QRQQQQ qA 11 q A R1 1A r bQ#qA rq A A R    Bq A A rA RQQQQQrA r AA A "QA  A 7    !A ! !A ! !A 3 r  q1A q1A r1A r1A rqaA rqqaaaaaA RQQr       A r q K rqA q5 rA 1 qqCB A 2 1                    B   
        ;  4        V  Z%        }%  &  q     &  ,       %   c           {  nWWT    U    T  C    (#  T     (   C      wvw  %C.    # T  C      T "C# 
 T	 7 
  U  MONATE ZI I JAHR M
 SATZANZAHL MYGET WVW ZNAM ZTI ZAKTIVIEREN beitragdrucken,     4 Xqq1A B A r q 9                    ?           %   S      [  %  sU  BZ;    U    B U    4   B U  HX_I  B U  [ 7     7    7    7	  7
    7
    7  J  (     J  (    J  (   
 J  (	  J  (
    J  (
   
 J  (  7  T C
 C
 
 T E
 T  
 T   T  C   ! T  fr CC  = T 0 hier: Berechnung der Sozialversicherungsbeitrge  ( %C     T  zCC  Z5 an1_sp1 = an1_sp1 + myform1.&hszn..Caption + crlf
( T  CCC   d
Z  %C    u' T   soz.vers.pflichtig  - T   nicht soz.vers.pflichtig    
    ( T  CC  Z
 H  
A2 an2_sp1 = an2_sp1 + .zeile&xxx..caption + crlf
  
s! an3_sp1 = .zeile&xxx..caption
  
2 an4_sp1 = an4_sp1 + .zeile&xxx..caption + crlf
  %   
  T  CC  Z
 H  
F3 an2_sp2 = an2_sp2 + .Kasten&xxx..Caption + crlf
  
y" an3_sp1 = .Kasten&xxx..Caption
  
3 an4_sp2 = an4_sp2 + .Kasten&xxx..Caption + crlf
     (\ T  CC  Z2 an5_sp1 = an5_sp1 + .zeile&xxx..caption + crlf
3 an5_sp2 = an5_sp2 + .kasten&xxx..caption + crlf
 C T  Die Beitrge werden an die C !    abgefhrt.  T" C W h dummy$  C F#   [ F#  #) %C%  i %& a6& ? sozvers_drucken(!9 e' ? sozvers_drucken(!"9   ( )  T( 
 V( 3 T* C MyInWindowFixer preview_fixer.prg
 ( [ T 
 Druckvorschau T+ a T,  T-  T. /  T0 1  T2   T3   T4 a  C * ( 5  T) C ReportListener T) 6  T) 7 ( * ? sozvers_drucken9.)  <)  <(   F#  Q
 F"  <     <    <    <	  <
    <
    <  U8  1 2 3 AN1_SP1 AN1_SP2 AN1_SP3 AN2_SP1 AN2_SP2 AN2_SP3 AN3_SP1 AN4_SP1 AN4_SP2 AN4_SP3 AN5_SP1 AN5_SP2 AN5_SP3 AN6_SP1 CRLF J A MYINDEX MYFORM1 Z20 CAPTION ZT0 ZI I	 BRUCHZAHL HSZN SOZZ TRUE MYLUPE39 XXX Z46	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK SOZVERS_DRUCKEN LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER  B U   T  C  T      T    +a %CC  >  T C    $  %   # T      C
   
 T     !  - T      C
 C    T  C  C  > R   !   B U 	 DRUCKTEXT DITEXT7 MYFORM1 LABEL29 CAPTION FONTSIZE I ISINSTR~, T           J  A  N  U  A  R , T         F  E  B  R  U  A  R) T               M    R  Z, T               A  P  R  I  L) T                  M  A  I* T                J  U  N  I* T                J  U  L  I, T            A  U  G  U  S  T, T  	 S  E  P  T  E  M  B  E  R+ T  
      O  K  T  O  B  E  R+ T     N  O  V  E  M  B  E  R+ T     D  E  Z  E  M  B  E  R+ T  
  J A H R E S G E H A L T   w     (s CC       U  SUMONATTEXT MYFORM1 LABEL8 CLEAR I ADDITEM  U  + 7          	 1 J  (          	 + 7
   
       1 J  (
   
        7     J  (     7     J  (     7     J  (     7  ! " #  J  (  ! " #  7$ % & '  J  ($ % & '  7( ) * +  J  (( ) * +  7, - . /  J  (, - . /  70 1 2 3  J  (0 1 2 3  74 5 6 7  J  (4 5 6 7  78 9 : ;  J  (8 9 : ;  7< = > ?  J  (< = > ?  7@ A B C  J  (@ A B C  7D E F G  J  (D E F G  7H I J K  J  (H I J K  7L M N O  J  (L M N O  7P Q R S  J  (P Q R S  7T U V W  J  (T U V W  7X Y Z [  J  (X Y Z [  7\ ] ^ _  J  (\ ] ^ _  7` a b c  J  (` a b c  7d e f g  J  (d e f g 3 7h i j k l m n o p q r s 9 J  (h i j k l m n o p q r s 
 Tt  
 Tu  
 H v w  a	
 Tx    v w  b0 Tx  Herrn v w  cV Tx  Frau v w  d Tx  Frulein  %CCv y >    %CCv y >    Fz  { (s	 #{  T| C/ T} CC{  Z %{ n %C { ~ aP mark&rrr = "*"
 j mark&rrr = " "
   mark&rrr = " "
  T CC{  Z   (o T|  fCC  Z %   T  an  _text @ T CC  Z T  an  _sp  + &varname = ALLTRIM(szanzeigen.&hsfeld) 
   { ( T CC{  Z T CC{  Z T  an  _text_x  %  19
   21 %  19M< &varname ="1) Die mit * markierten Monate enthalten nur"
 < &varname = "2) Durchschnittsbetrag der mit * markierten"
  7 &varname = myweihnachtenanzeigen.zeile&xxx..Caption
   T C W h dummy  C F   [ F  #) %C  U	 ? jasoza1(!"9 
    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  G
 T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T   " ? jasoza19.  <  <   F  Q
 F + <          	 + <
   
        <     <     <     <  ! " #  <$ % & '  <( ) * +  <, - . /  <0 1 2 3  <4 5 6 7  <8 9 : ;  << = > ?  <@ A B C  <D E F G  <H I J K  <L M N O  <P Q R S  <T U V W  <X Y Z [  <\ ] ^ _ 3 <h i j k l m n o p q r s  U  AN1_TEXT AN2_TEXT AN3_TEXT AN4_TEXT AN5_TEXT AN6_TEXT AN7_TEXT AN8_TEXT AN9_TEXT	 AN10_TEXT	 AN11_TEXT	 AN12_TEXT	 AN13_TEXT	 AN14_TEXT	 AN15_TEXT	 AN16_TEXT	 AN17_TEXT	 AN18_TEXT AN19_TEXT_X AN20_TEXT_X AN21_TEXT_X AN22_TEXT_X AN23_TEXT_X AN24_TEXT_X AN1_SP1 AN1_SP2 AN1_SP3 AN1_SP4 AN2_SP1 AN2_SP2 AN2_SP3 AN2_SP4 AN3_SP1 AN3_SP2 AN3_SP3 AN3_SP4 AN4_SP1 AN4_SP2 AN4_SP3 AN4_SP4 AN5_SP1 AN5_SP2 AN5_SP3 AN5_SP4 AN6_SP1 AN6_SP2 AN6_SP3 AN6_SP4 AN7_SP1 AN7_SP2 AN7_SP3 AN7_SP4 AN8_SP1 AN8_SP2 AN8_SP3 AN8_SP4 AN9_SP1 AN9_SP2 AN9_SP3 AN9_SP4 AN10_SP1 AN10_SP2 AN10_SP3 AN10_SP4 AN11_SP1 AN11_SP2 AN11_SP3 AN11_SP4 AN12_SP1 AN12_SP2 AN12_SP3 AN12_SP4 AN13_SP1 AN13_SP2 AN13_SP3 AN13_SP4 AN14_SP1 AN14_SP2 AN14_SP3 AN14_SP4 AN15_SP1 AN15_SP2 AN15_SP3 AN15_SP4 AN16_SP1 AN16_SP2 AN16_SP3 AN16_SP4 AN17_SP1 AN17_SP2 AN17_SP3 AN17_SP4 AN18_SP1 AN18_SP2 AN18_SP3 AN18_SP4 AN19_SP1 AN19_SP2 AN19_SP3 AN19_SP4 AN20_SP1 AN20_SP2 AN20_SP3 AN20_SP4 MARK1 MARK2 MARK3 MARK4 MARK5 MARK6 MARK7 MARK8 MARK9 MARK10 MARK11 MARK12 A MYINDEX WNW ANREDE
 DITEXT_ANREDE ZTEXT7
 SZANZEIGEN I HSFELD RRR WEIHGELB XXX J VARNAME YYY	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE JASOZA1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER	 AN19_TEXT	 AN20_TEXT	 AN21_TEXT	 AN22_TEXT	 AN23_TEXT	 AN24_TEXT 7     7      7 	 
    7
      7      J  (     J  (      J  ( 	 
    J  (
      J  (      T C
 C
 
 T E
 T  
 T   T  C   ! T  fr CC  . T ! hier: Berechnung der Steuerabzge %    ! ( %C ! "   T#  zCC!  Z5 an1_sp1 = an1_sp1 + myform1.&hszn..Caption + crlf
( T  CCC ! " d
Z  %C ! $ % $ T   steuerpflichtig   T  
 steuerfrei   T    T      " T   V E R G  T U N G' T  CCC& d
Z  %C$ % d$ T   steuerpflichtig   T  
 steuerfrei   T    T     F' 	 # T  ' (    T	 	 C' ) Z  %a_ T
 
  Lohnst.  T   Soli.Z.  T  
 Kirchenst.   T    T	 	   T
 
   T    T     ! ( T* CC!  Z	 #!  T  ' (  
 H !  ! 	  T	 	 C' ) Z  T
 
   T    T    C! 
  T
 
 C' ) Z  T	 	   T    T    C! b  T  C' ) Z  T	 	   T
 
   T    C!   T  C' ) Z  T	 	   T    T
 
     %C+  
O		 # T
 
 ' (   T    T    T    T    ! (!K		 #!  T* CC!  Z T
 
 ' (  
 HG	 !  ! 	  T  C' ) Z  T    T    T    !   T  C' ) Z  T    T    T    !    T  C' ) Z  T    T    T    ! !G	  T  C' ) Z  T    T    T       T   Summen ( T  CCC"& 
Z ( T  CCC$& 
Z ( T  CCC%& 
Z  T    T, C W h dummy.  C F-   [ F-  #) %C/ % 
 %0 a
$ ?
 steuerdrucken(!9 
% ?
 steuerdrucken(!"9  0 2 3  T2 
 V2 3 T4 C MyInWindowFixer preview_fixer.prg
 2  T 
 Druckvorschau T5 a T6  T7  T8 9  T: ;  T<   T=   T> a  C 4 2 ?  T3 C ReportListener T3 @  T3 A 2 ( ?
 steuerdrucken9.3  <3  <2   F-  Q
 F,  <     <      < 	 
    <
      <      UB  1 2 3 AN1_SP1 AN1_SP2 AN1_SP3 AN1_SP4 AN1_SP5 AN2_SP1 AN2_SP2 AN2_SP3 AN2_SP4 AN2_SP5 AN3_SP1 AN3_SP2 AN3_SP3 AN3_SP4 AN3_SP5 AN4_SP1 AN4_SP2 AN4_SP3 AN4_SP4 AN4_SP5 CRLF J A MYINDEX MYFORM1 Z20 CAPTION ZT0 ZI NETTOJA I	 BRUCHZAHL HSZN LSTZ TRUE WERT LUPE34 SP1 SP2 XXX LSTRZ	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK
 STEUERDRUCKEN LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER	' 7          - J  (           7	 
   
  ! J  (	 
   
   7      ! J  (       7      ! J  (       7       ! J  (        7!  T! C
 C
 
 T" Z
 T#  
 T$  L T  ; A N L A G E   zur Gehaltsabrechnung fr den Monat Dezember % ! T  fr CC' & G T ! hier: Lohnsteuer-Jahresausgleich %   des Arbeitgebers T 
  M O N A T T 
 E N T G E L T T  +/- lt.Str.Karte T 
 LOHNSTEUER T  SOLI-Z. T 
 KIRCHENST. ( (	 #(  ) (% T*  an1_spCC)  Z T+  fCC)  Z %) 7 &varn = &varn + lstausgleich.&hsxfeld + crlf + crlf
 A &varn = &varn + STR(lstausgleich.&hsxfeld,10,2) + crlf + crlf
    ( 
(	 #(  )  (% T*  an2_spCC)  Z T+  fCC)  Z %) 7 &varn = &varn + lstausgleich.&hsxfeld + crlf + crlf
 A &varn = &varn + STR(lstausgleich.&hsxfeld,10,2) + crlf + crlf
    ( (	 #(  ) (% T*  an3_spCC)  Z T+  fCC)  Z %) 7 &varn = &varn + lstausgleich.&hsxfeld + crlf + crlf
 A &varn = &varn + STR(lstausgleich.&hsxfeld,10,2) + crlf + crlf
    ( (	 #(  ) (% T*  an4_spCC)  Z T+  fCC)  Z %) 7 &varn = &varn + lstausgleich.&hsxfeld + crlf + crlf
 A &varn = &varn + STR(lstausgleich.&hsxfeld,10,2) + crlf + crlf
    T, C W h dummy.  C F-   [ F-  #) %C/ 0 + ? lohnsteuerausgleich(!"9 %	 2 3  T2 
 V2 3 T4 C MyInWindowFixer preview_fixer.prg
 2  T5 
 Druckvorschau T6 a T7  T8  T9 :  T; <  T=   T>   T? a  C 4 2 @  T3 C ReportListener T3 A  T3 B 2 . ? lohnsteuerausgleich9.3  <3  <2   F-  Q
 F, ' <           <	 
   
   <       <       <        UC  1 2 3 4 5 6 7 8 9 AN1_SP1 AN1_SP2 AN1_SP3 AN1_SP4 AN1_SP5 AN1_SP6 AN2_SP1 AN2_SP2 AN2_SP3 AN2_SP4 AN2_SP5 AN2_SP6 AN3_SP1 AN3_SP2 AN3_SP3 AN3_SP4 AN3_SP5 AN3_SP6 AN4_SP1 AN4_SP2 AN4_SP3 AN4_SP4 AN4_SP5 AN4_SP6 CRLF K A MYINDEX WELCHESJAHRC ZT0 ZI I RR VARN HSXFELD	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE LOHNSTEUERAUSGLEICH LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINERh 7    # 7      	 
  7  
  J  (    ) J  (      	 
  J  (  
  T   T     T C 
 H U CC      (     C U  (Q     T   T C C $ T CC d
Z  EURO! T C C C $ T CC d
Z  EURO! T C C C $ T CC d
Z  EURO! T C C C $ T CC d
Z  EURO! T C C C $ T CC d
Z  EURO! T C C C $ T CC d
Z  EURO T C   T	 CC 
Z  EURO T $ T
 CC d
Z  EURO
 T   
 T   
 T
   
 T    %C    jj %C 	
O T B 4. Sonderzahlung im Dezember von 5 % der Monatsgehlter + 100 Euro fD T 7 4. Sonderzahlung im Dezember von 5 % der Monatsgehlter  
 H C  N T A 4. Landesanteil Besoldung (ab 2008 in die Tabellwerte integriert) C  %C 
ZN T A 4. Sonderzahlung im Dezember in Hhe von 70 % des Dezembergehalts N T A 4. Sonderzahlung im Dezember in Hhe von 65 % des Dezembergehalts  CC  S T F 4. Sonderzahlung im Dezember in Hhe von 640 Euro + 25,26 Euro je Kind CC R T E 4. Sonderzahlung im Dezember in Hhe von 40 - 45 % der Dezemberbezge C R T E 4. Sonderzahlung im Dezember in Hhe von 60 - 70 % der Dezemberbezge C 
 H% C   C 	C T 6 4. Sonderzahlungen im Juli in Hhe von 332,24 Euro und? T 2    im Dezember in Hhe von 66 % der Dezemberbezge% C 	 C 	-M T @ 4. Sonderzahlung im Dezember in Hhe von 66 % der Dezemberbezge% C  C 	M T @ 4. Sonderzahlung im Dezember in Hhe von 60 % der Dezemberbezge  C i	> T 1 4. Laufende Sonderzahlung 5 % + je Kind 2,13 Euro
 H	e	% C   C 	e	= T
 0 5. Sonderzahlung im Juli in Hhe von 161,17 Euro  C 	
- T   4. Laufende Sonderzahlung 4,17 %
 H	
% C   C 	(
K T
 > 5. Sonderzahlung im Juli in Hhe 120 Euro + 25,56 Euro je Kind C 
D T
 7 5. Sonderzahlung im Juli in Hhe von 25,56 Euro je Kind  C 

 H
 C 
T T G 4. SZ im Dez. in Hhe von 84,29 % des Dez.-Gehalts + 25,56 Euro je Kind CC zQ T D 4. SZ im Dez. in Hhe von 70 % des Dez.-Gehalts + 25,56 Euro je Kind C Q T D 4. SZ im Dez. in Hhe von 50 % des Dez.-Gehalts + 25,56 Euro je Kind  C 	
< T / 4. Laufende Sonderzahlung 4,17 % + 2,13 je Kind
 HB
% C   C 	H T
 ; 5. Sonderzahlung im Juli in Hhe 200 Euro + 40 Euro je Kind C 
A T
 4 5. Sonderzahlung im Juli in Hhe von 40 Euro je Kind  C 
 H+
 C 

Q T D 4. SZ im Dez. in Hhe von 70 % des Dez.-Gehalts + 25,56 Euro je Kind% C  C 	Q T D 4. SZ im Dez. in Hhe von 66 % des Dez.-Gehalts + 25,56 Euro je Kind% C 
 C 	}Q T D 4. SZ im Dez. in Hhe von 62 % des Dez.-Gehalts + 25,56 Euro je Kind% C  C 	Q T D 4. SZ im Dez. in Hhe von 58 % des Dez.-Gehalts + 25,56 Euro je Kind  C 
)
 H% C 
m? T 2 4. Sonderzahlung im Dezember in Hhe von 1025 Euro% C 
 C 	? T 2 4. Sonderzahlung im Dezember in Hhe von 1200 Euro C %? T 2 4. Sonderzahlung im Dezember in Hhe von 1500 Euro  C x
 HKt C 	
H T ; 4. SZ im Dezember in Hhe von 950 Euro + 25,56 Euro je Kind% C 	 C 	I T < 4. SZ im Dezember in Hhe von 1250 Euro + 25,56 Euro je Kind C tI T < 4. SZ im Dezember in Hhe von 1500 Euro + 25,56 Euro je Kind  C #
 H C 
 Q T D 4. SZ im Dez. in Hhe von 70 % des Dez.-Gehalts + 25,56 Euro je Kind4 C  C 		 C Q T D 4. SZ im Dez. in Hhe von 67 % des Dez.-Gehalts + 25,56 Euro je Kind4 C 
 C  C 	
Q T D 4. SZ im Dez. in Hhe von 64 % des Dez.-Gehalts + 25,56 Euro je Kind C   C V T I 4. Laufende Sonderzahlung (3,75 %, jedoch FZ 8,4 % und 2,13 Euro je Kind)  
 T  T C W h dummy   C F   [ F  #)! ?	 bdastufen(!"9 F  Q
 T   <    # <      	 
  <  
  U"  AN_STUFE AN_DATUM	 AN_BETRAG AN_VH1 AN_VH2 AN_VH3 AN_VH4 AN_VH5 AN_VH6 AN_VH7 AN_VH8 AN_ZEILE4_1 AN_ZEILE4_2 AN_ZEILE5_1 K BDADATA	 MYBDAFORM DATUM19 VALUE DIENSTALTERSSTUFEALT ZI STUFENANZAHLERMITTELN IIII I BDASTUFENDRUCK NUMBR GRUNDBETRAG AN_ZEILE5_2 WNW
 BUNDESBEAMTER	 OLDSELECT DUMMY FELD	 BDASTUFEN 
     T C  T    T    T     	 $ .BackColor = hex2rgb("&HE0E0E0")
 T  
  T  
  T  
   U 	 MYTABLETT	 BACKCOLOR QBCOLOR
 SSCOMMAND1 VISIBLE FALSE
 SSCOMMAND2
 SSCOMMAND3	 PRINTFORM CLICK TRUE  B U   kontrolledrucken,      kontrollzeiledrucken7      rotfettdruckenO      sozversdruckenZ     
 druckschleife
    	 kopfdruck
     monateladen,     berweisungslistedrucken     weihnachtendruckenalt     steuerberDrucken!     lstrausgleichdrucken0     grundgehlterdrucken=     weihnachtendruckenR     stufenbewegungendruckenS    0E1 A 1 q A  1 A  1    q   q QQQ QQ q Q   Q|aRcr A A A  qq !!A  q 1!1A A A rq$4A 6A  q Q A r Q " a qA     2         A r q A r A     q   q 3 A 4  11 Qa1 A  A  A A A A 4  qaA A 4 	1 1111111111111111111111   Q Q!QQQA  A  A t q  rA! !A  !A rr qA A A rq1 A  qA A  q Q A r Q "    2         A #r q A r A  111111111111111111113  qqqqQQ   PQqaRcB A A A  #tSB A A y    A rq  A D T t q A C A  q Q A r Q " A QA     2         A r q A r A   qqqq3 qq Q   s}sCsv qQq A A A q qQq A A A q qQq A A A q qQq A A A  q Q A r Q "    2         A r q A r A  r3  1 QQ  q qq A Qqq A A 2DDDDDD D    Q BA   QQQ A 2"Q"Q Q2QQA Q QA Q QQBA Q QBQA Q QQA Q QQQQA Q QQQA Q QQQA Q QAAQB QbA A   q Q A r Q r A   1 4  ! BA 3 A 1                       W  T       !  w  	   H         Ք         9         <                  ݶ  z             Q  @  %
 K    R
 J4   r  w4 #o 	    No wp B  #  p p R     %   x      L      :Ln[`    U  2
   
 H >  
 %  MbP?
a  T  MbP?  %  MbP?
  T  MbP?  %  MbP?
  T  MbP?  T    - T    -9 %    	 	 	  WoStd
  	" %CC 

x T    a T    a  T    - T    -  
 H" C  0 %C
  D  T
  D   %C
  z , T
  z   C  %C
  -1s T
  -1  %C
  -1 T
  -1  C " %C
   T
    %C
  -1 T
    $ %C  C  %    %C 
 T  < T [ 
 T <  T  2 T @KL    T      %C    > %C# :   %    {! % ,
    	w   T   T C      % +$ %C  C
  	' %   #
 T   versorgungsfreibetrag    U  MYFORM1
 T_GECLICKT T0 VALUE T1 T2 TVDMEHRSTDHILFE ENABLED VISIBLE WELCHESJAHR Z21 CAPTION ZI WERT WNW ATZALT TRUE T3 BETRAG ATZTEIL Z0	 LASTCLICK LASTT BERECHNUNGAUSLSEN VERSORGUNGSBEZUG MYINDEXE VERSORGUNGSFREIBETRAG  U  E"
   >" %C  
5  T    T  CC   T  CC   T  CC   T	  CC 
  T  CC   %C 8 %C  T   TV-H Pflege 4 T   TV-L Pflege   %C 	 %C . T   TV-H Soz. u. Erziehungsdienst . T   TV-L Soz. u. Erziehungsdienst   %C = %C  T  	 TV-Hessen 9 T  
 TV- Lnder   T
  CC   T  CC   T  CC   T  CC	  
     
 H$ C  C 
	i % % T        ꕲq? T    a T    a T    a T    a T    - T    -
 T  
 T    e T         T    - T    - T    - T    - T    - T    -
 T!  
 T"  
 T  
 T    $ C  C 
	n* %  # 		  % T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + EFZ1 T       $        $  j T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C  C 
	i % y% T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + FSZ1 T       $        $   % 
e T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C  C 
	d
 % t	% T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + FEZ1 T       $        $   % 
`
 T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C  C 
	_ % o% T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + BEZ1 T       $        $   % 
[ T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C  C 
	Z % j
% T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + FEZ1 T       $        $   % 
V T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C 	 C 
	7 % " CC 		% T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + FEZ1 T       $        $  > % ) CC 

	  	 T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T    $ C 
 C 
	]/ %    C 	% T        ꕲq? T    a T    a T    a T    a T    - T    -
 T  
 T    Y T         T    - T    - T    - T    - T    - T    -
 T!  
 T"  
 T  
 T    $ C  C 
	 % 4 % 0% T        q=
ףp? T    a T    a T    a T    a T    a T    a   T         T    - T    - T    - T    - T    - T    -
 T!  
 T"  
 T  
 T    $ C  C 
	 % % T        q=
ףp? T    - T    - T    - T    - T    a T    a T      + FEZ1 T       $        $   % 
 T         T    - T    - T    - T    - T    - T    -# T       $    $ 
 T!  
 T"  
 T  
 T     2 T         T    - T    - T    - T    - T    - T    -' T       $    $ 
 T!  
 T"  
 T  
 T     T  CC
 %  T&  CC '  T(  CC )  T*  CC
 +  T,  CC -  T.  CC /  T0  CC 1  T2  CC 3  T4  CC 5  T6  CC 7  T8  CC 9   %  : ;  	" %CC 

 %C 
P T  6   Jahressonderzahlung - CC: ;  Z  Tag(e) Umwandlung   & T  6   Jahressonderzahlung  T<  CC =  T>  CC ?  T@  CC A  TB  CC C  TD  CC E  %C S %C 2 TF  ! Anderweitig mit Versorgungszusage4 TG ! Anderweitig mit Versorgungszusage O2 TF  ! Vers.Aufw.=Juli(Endst.+FZ1+StZ)*%  z TF  CCC G   TH  CC I  TJ  CC K 1 TL   Rel.Bekenntnis: CC M  TN  CC O  TP  CC Q  TR  CC  S  TT  CC# U  TV  CC$ W  TX  CC% Y  TZ  CC' [  T\  CC( ]  T^  CC) _ 
 H C*  C3 T`  " Kein Beitrag zur ATV-BetriebsrenteE C* 
 C* 	
 C*  C (B T`   ATV-Betriebsrente CCC* d 0.00a   %D Tb  ATV-Betriebsrente CCC* d 0.00a   % C* W3 T`  " Umlage ATV-Betriebsrente lt. Eing. C* 4 T`  # Beitrag ATV-Betriebsrente lt. Eing. C* - T`   RG-Beitrag lt. HmbZVG 1,25 %
 H  >; T`   RG-Beitrag lt. HmbZVG CCc Z  %  ; T`   RG-Beitrag lt. HmbZVG CCc Z  %   %CCb D Tb  ATV-Betriebsrente CCC* d 0.00a   %  Td  CC+ e  Tf  CC, g  Th  CC- i  Tj  CC. k  Tl  CC/ m  Tn  CC0 o  Tp  CC3 q  %C4  T 4   Tr  CC4 s  %C5  
 H  % Tt &C&u Cv 6 Tw x   AG-Zu.freiw.GKV+CCy Z %    Tx  CC5 z   %C&  - T{  CCCC& | 
Z  % / 2 ! T{  CC6 }   %C c!
 H9!_! CC 
_! ~    T    - T    -? %        	  	  WoStd  >  	:"" %CC 

" T    a T    a 6" T    - T    -    U  MYFORM1 ZI Z0 CAPTION ZT0 Z1 ZT1 Z2 ZT2 Z3 ZT3 Z4 ZT4 Z5 ZT5 Z6 ZT6 Z7 ZT7 Z8 ZT8	 PVKIABZUG REFRESH WELCHESJAHR WIDTH Z9 MIETSTUFEZ8 ENABLED VISIBLE GEMEINDEAUSWAHL SONDERZUSCHLAG MYSONDERZUSCHLAG LASTSONDERZUSCHLAG
 MYMIETSTUFEZ8
 LASTMIETSTUFE MONAT LEFT ZT9 Z10 ZT10 Z11 ZT11 Z12 ZT12 Z13 ZT13 Z14 ZT14 Z15 ZT15 Z16 ZT16 Z17 ZT17 Z18 ZT18 Z19 ZT19 WNW TVDSOZAMINUSTAGE Z20 ZT20 Z21 ZT21 Z22 ZT22 Z23 ZT23 Z24 ZT24 Z25 ZT25 Z26 ZT26 Z27 ZT27 Z28 ZT28 Z29 ZT29 Z30 ZT30 Z31 ZT31 Z34 ZT34 Z35 ZT35 Z36 ZT36 Z38 ZT38 Z39 ZT39 Z40 ZT40 Z41 MYFORMAT ZT41 ZVKKAPITALAN Z42 ZT42 Z43 ZT43 Z44 ZT44 Z45 ZT45 Z46 ZT46 Z47 ZT47 Z50 ZT50 Z51 ZT51 BETRAG INTERIM EFFZAHL FORM1 Z52 ZUSATZKV ZT52 Z53	 GETKVPROZ ZT53 FREISTELLUNGSZEILEN TVDMEHRSTDHILFE T1 VALUE T0
   ) T   Regelarbeitsentgelt dyn.( T   Regelarbeitsentgelt fix* T   Sonst.Arbeitsentgelt dyn.) T   Sonst.Arbeitsentgelt fix* T   Steuerfreies Entgelt dyn.) T   Steuerfreies Entgelt fix  U  MYFORM1 Z10 CAPTION Z12 Z13 Z14 Z15 Z16
    T  C  T  C  T  C  T  C  T  C  T  C  T	  C  
 (  T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+2)
  
 (V T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+3)
  
 ( T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+4)
  
 ( T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+5)
  
 (m T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+6)
  
 (  T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+6)
  T  C  
 "($< T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+7)
  T
  C  T  C  
 &() T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+8)
  T  C	  T  C	  T  C	  
 *(,_ T  zCC
  Z& .&hszn..BackColor = farbenrgb(1+9)
  T  C
  T  C  T  C   U  MYFORM1 Z0	 BACKCOLOR	 FARBENRGB Z3 Z2 Z1 Z4 Z5 Z6 I HSZN Z46 Z50 Z51 Z52 Z53 Z26 Z34 Z45 Z47 T   a
   ' T   Berechnung der Steuern! T   1.  BRUTTOGEHALT* T   2.   -   davon steuerfrei4 T  # 3.  +   steuerpflichtige ATV-Umlage6 T  % 4.  -    davon versteuert AG pauschal8 T  ' 5.  +   steuerpflichtige Sachleistungen8 T	  ' 6.  +   steuerpflichtige Geldleistungen0 T
   7.   -   AG versteuert pauschal0 T   8.   -   AN versteuert pauschal9 T  ( 9.   -   str.freie Betrge  3, 40 EStG) T
   10. = STEUERPFL. ENTGELT3 T  " 11. +/- Betrag lt. Lohnsteuerkarte& T   12.  -  Einmalzahlung3 T  " 13.  -  Anteil d.Einmalzahl.an 3-46 T  % 14. =  zu versteuern vom lfd. Entgelt+ %C    
	  
	 % > T CCC '
Z  * CCC '
Zf T  
 15. Nr. 14 / CCC '
Z  * CCC '
Z  = voller Monat x> T CCC '
Z  * CCC '
Zf T  
 15. Nr. 14 / CCC '
Z  * CCC '
Z  = voller Monat 1 T   16. Lohnsteuer aus Nr. 15 /  2 T   17. Kirchenstr. aus Nr. 15 /  2 T   18. Solizuschl. aus Nr. 15 /   * T   15. Nr. 14 = voller Monat* T   16. Lohnsteuer aus Nr. 15+ T   17. Solizuschl. aus Nr. 15+ T   18. Kirchenstr. aus Nr. 15 3 T  " 19. Pauschale Lohnsteuer aus Nr. 83 T  " 20.  5,5 % Solizuschlag aus Nr. 19 %C% x6 T  % 21.  0,0 %   Kirchensteuer aus Nr. 19 G T   21.  CC  Z ,0 %   Kirchensteuer aus Nr. 19 7 T   & Steuerberechnung aus der Einmalzahlung4 T!  # 22. Str.pfl.Entgelt i.d. VormonatenP T"   23. + CCC  Z  restliche Monate ohne Einmalz.4 T#  # 24. = vorauss. Jahresentgelt "ohne"4 T$  # 25. + Einmalzahlung (Nr.12 + Nr.13)3 T%  " 26. = vorauss. Jahresentgelt "mit": T&  ) 27. jeweils +/- Jahresbetrge lt.LStKarte1 T'    28. Lohnsteuer aus Nr. 24 mit 271 T(    29. Lohnsteuer aus Nr. 26 mit 27/ T)   30. mehr (Nr. 29 minus Nr. 28)3 T*  " 31. 5,5 % Soli-Zuschlag aus Nr. 30I T+   32. CC, d
Z     % Kirchensteuer aus Nr. 30 T- - %. )	 T- a  %- -
 T/   0  (!h T1 CC0  Z .zeile&xxx..Left = 20
" .zeile&xxx..Top = i * 15 + 10 
 .zeile&xxx..Height = 15 
 .zeile&xxx..Width = 600
# .Kasten&xxx..Top = i * 15 + 10 
 .Kasten&xxx..Height = 15 
 .Kasten&xxx..Width = 150
- .Kasten&xxx..Left = myTablett.Width - 160
) .Kasten&xxx..BackColor = qbcolor(15) 
' .Kasten&xxx..ForeColor = QBColor(0)
! .Kasten&xxx..borderstyle = 1 
 .Kasten&xxx..alignment = 1 
  T   2 3   T 4  T 5  T 6  T 7  T 8 9  T  6  T  8 9  0 (!+
 T1 CC0  Z
 H6'
 C0 w) .Kasten&xxx..BackColor = qbcolor(16) 
 C0  ( .Kasten&xxx..BackColor = qbcolor(6) 
 C0 !( .Kasten&xxx..BackColor = qbcolor(17)
 2'
( .Kasten&xxx..BackColor = qbcolor(15)
   T0   6 (   : 
 T  Drucken" T4   ; 4   ; 5  T< 
 T6 0  T5  T7 
 T= 9  T> C^    ?  T 	 Schlieen" T4   ; 4   ; 5  T< 0  T6 0  T5  T7 
 T= 9  T> C^    U@ 	 MYTABLETT
 AUTOCENTER ZEILE0 CAPTION ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE9 ZEILE10 ZEILE11 ZEILE12 ZEILE13 ZEILE14 ZI BRUCHTEILFAKTOR STKL NOTKURZ MSG WERT ZEILE15 ZEILE16 ZEILE17 ZEILE18 ZEILE19 ZEILE20 ZEILE21 ZVKKISTR ZEILE22 ZEILE23 ZEILE24 ZEILE25 ZEILE26 ZEILE27 ZEILE28 ZEILE29 ZEILE30 ZEILE31 ZEILE32 ZEILE33	 KISTRSATZ HSLSTSPRUNG REGISTERLST ZWISCHENRAUM I XXX MYFORM1 Z0 TOP HEIGHT WIDTH FONTSIZE FONTBOLD TRUE
 SSCOMMAND1 KASTEN33 LEFT VISIBLE	 BACKCOLOR
 SSCOMMAND2 T  C d   T         T  C d   T         T  C d   T         T  C d   T 	        T  C& d   T 
        T  C' d   T         T  C( d   T         T  C) d   T 
        T  C* d   T         T  C d   T         T  C d   T         T  C d   T         T  C d   T         T  C	 d   T         T  C
 d   T         T  C d   T         T  C d   T         T  C
 d   T         T  C d   T         %C  * T     T  C  d   T         T  C! d   T         %C     T     C
   wnw  % T  C   C d   T         1 T  C
 dC dC!    T "       C T  C
 C C! C   C d   T #        T  C d   T $       K T  C
 C C! C   C C d   T %       0 T  C+ dC dC!    T &        ' ( %' = %C  9 T '            T  C'  d T  C  T   T( CC' 

 Z0 mytablett.Kasten&xxx..Caption = wer + "   " 
  T ) * C+  T , * C+  T - * C+  .  (! T( CC.  Z' mytablett.zeile&xxx..Visible = True
( mytablett.Kasten&xxx..Visible = True
  T / 0 1  T 2 0 1  U3  NUMBR LSTRZ ZAHLINTEXTNUMBR	 MYTABLETT KASTEN1 CAPTION WER KASTEN2 KASTEN3 KASTEN4 KASTEN5 KASTEN6 KASTEN7 KASTEN8 KASTEN9 KASTEN10 KASTEN11 KASTEN12 KASTEN13 KASTEN14 KASTEN15 KASTEN16 KASTEN17 KASTEN18 KASTEN19 KASTEN20 KASTEN21 WNW KORRLST MODUS MYPUT FILENEU KASTEN23 ZI KASTEN24 KASTEN25 KASTEN26 KASTEN27 KASTEN28 COUNTER XXX KASTEN31	 FORECOLOR QBCOLOR KASTEN32 KASTEN33 I KASTEN0 VISIBLE FALSE KASTEN22q T   -
  4 T  a T  a T  - T  q   (  T CC  Z C  woerter ( .zeile&xxx..Caption = woerter.textee
 ) T	 
  8.  -  Anteil von 7 an 3  	(
m T CC  Z C  woerter ( .zeile&xxx..Caption = woerter.textee
 & T 
 C 
   C 
  T 
   . T
 
  -  in der Krankenversicherung0 T 
     Ausgleich d.Einmalz. (Nr.7+87 T 
 &    somit krankenversicherungspflichtig. T 
  -  in der Rentenversicherung 6 T 
 %    somit rentenversicherungspflichtig( T 
      -  verwendet werden T 
  
   < T 
 C 
   CCC   .   %C5 
P T 
 C   
   C   
   aus CC d
 ###,##0.00   T 
 C   
   % 
B %C' 
E T 
 CCC'    aus CC d
 ###,##0.00  > T 
 CCC'    
 HW     
	 %C' 
E T 
 CCC'    aus CC d
 ###,##0.00   T 
 CCC'        	 %!  ~ T 
  PV CC" Z % /2  minus CC!       ?Z %  aus CC d
 ###,##0.00  E T 
 CCC'    aus CC d
 ###,##0.00     %!  ~ T 
  PV CC" Z % /2  minus CC!       ?Z %  aus CC d
 ###,##0.00  E T 
 CCC'    aus CC d
 ###,##0.00     %C( 
KE T# 
 CCC( $   aus CC d
 ###,##0.00  r T# 
 CCC( $   %C) 
E T% 
 CCC) &   aus CC  d
 ###,##0.00   T% 
 CCC) &   T' 
 CCC ( 1 T) 
 CC&* 
 ###,##0.00    1 T+ 
 CC'* 
 ###,##0.00    1 T, 
 CC(* 
 ###,##0.00    1 T- 
 CC)* 
 ###,##0.00    1 T. 
 CC* 
 ###,##0.00      (	 T CC  Z
 HJ		4    
	    		 .zeile&xxx..AutoSize = .t.
   T/ - %0 )	 T/ a  %/ -0
 T1    (4 T CC  Z .zeile&xxx..Visible = True
 .zeile&xxx..Left = 10
0 .zeile&xxx..Top = i * 20 + zwischenraum + 35
 .zeile&xxx..Height = 20
/ .zeile&xxx..backcolor = mytablett.backcolor
 %  
 T  2 @ $ myTablett.zeile&xxx..Width = 300
 / .Kasten&xxx..Top = myTablett.zeile&xxx..Top
 .Kasten&xxx..Height = 20
. .Kasten&xxx..BackColor = RGB(255,255,255) 
' .Kasten&xxx..ForeColor = QBColor(0)
 .Kasten&xxx..Left = 260 
 .Kasten&xxx..Width = 120
 .kasten&xxx..alignment = 1
 .Kasten&xxx..Visible = True
 
 T3    
( T CC  Z .zeile&xxx..Visible = True
 .zeile&xxx..Left = 400
/ .zeile&xxx..backcolor = mytablett.backcolor
, .zeile&xxx..Top = (i - 12) * 20 + j + 35
 %   
	L
* .zeile&xxx..Top = .zeile&xxx..Top + 20
  .zeile&xxx..Height = 20
 .zeile&xxx..Width = 410
/ .Kasten&xxx..Top = myTablett.zeile&xxx..Top
 %   
	
( .Kasten&xxx..Top = .Kasten&xxx..Top 
  .Kasten&xxx..Height = 20
. .Kasten&xxx..BackColor = RGB(255,255,255) 
' .Kasten&xxx..ForeColor = QBColor(0)
 .Kasten&xxx..Left = 670
 .Kasten&xxx..Width = 120
 .kasten&xxx..alignment = 1
 .Kasten&xxx..visible = .t.
 % 
 T3    T4  - T5  - T 2 X  ( T CC  Z  .Kasten&xxx..FontBold = True
( .Kasten&xxx..ForeColor = QBColor(12)
   ( T CC  Z .zeile&xxx..Caption = ""
 .Kasten&xxx..Caption = ""
  T 6 * T 7 8  T 9  T 2  T  2 (  :  T
  Drucken T6  T; 
 T2   T  T9 
 T<  <  T 8    =  T
  Hilfe T6  T;   T2   T  T9 
 T<  <  T 8    > , T
 	 Schlieen T6  T;   T2   T  T9 
 T<  <  T 8     %? M B  %? 
j @   UA  MYFORM1 VISIBLE	 MYTABLETT ALWAYSONTOP
 AUTOCENTER HEIGHT I XXX MYGET ZEILE8 CAPTION ZEILE13 ZEILE12 ZEILE14 ZEILE15 ZEILE16 ZEILE17 ZEILE19 ZEILE18
 MONATLADEN ZEILE0 SUMONATTEXT ZI WELCHESJAHRC ZEILE20 Z52 Z53 MYFORMAT SOZVERSZ WELCHESJAHR ZEILE21 ZT38 MONAT	 MYPVKIANZ PVOREIN ZEILE22 ZT39 ZEILE23 ZT40 ZEILE24 ZT26 KASTEN20 WERT KASTEN21 KASTEN22 KASTEN23 KASTEN24 HSSOZSPRUNG REGISTERLST ZWISCHENRAUM WIDTH J KASTEN0 KASTEN13 TOP FONTBOLD TRUE FONTSIZE
 SSCOMMAND1 LEFT	 BACKCOLOR
 SSCOMMAND3
 SSCOMMAND2 REGISTER
 SOZTABELLE 4  
  * T C C   100 d 6   T      * T C C   100 d 6   T      * T C C   100 d 6   T	      * T C C   100 d 6   T
      * T C C   100 d 6   T      * T C C   100 d 6   T      * T C C   100 d 6   T
      * T C C   100 d 6   T      * T C C   100 d 6   T      * T C C   100 d 6  - .Kasten10.BackColor = hex2rgb("&H80FF80")
 T      * T C C   100 d 6  - .Kasten11.BackColor = hex2rgb("&HFFFF80")
 T        (2 T C  C   100 d 6   T CC  Z% .Kasten&xxx..Caption = wer + "  "
 - .Kasten14.BackColor = hex2rgb("&HC0FFFF")
- .Kasten15.BackColor = hex2rgb("&H80FF80")
- .Kasten16.BackColor = hex2rgb("&H80FF80")
- .Kasten17.BackColor = hex2rgb("&HC0FFFF")
- .Kasten18.BackColor = hex2rgb("&HFFFF80")
- .Kasten19.BackColor = hex2rgb("&HFFFF80")
- .Kasten20.BackColor = hex2rgb("&H80FF80")
- .Kasten21.BackColor = hex2rgb("&HC0FFC0")
- .Kasten22.BackColor = hex2rgb("&HFFFF80")
- .Kasten23.BackColor = hex2rgb("&HFFFFC0")
   ( T CC  Z .zeile&xxx..Visible = True

 H54    	    	 .Kasten&xxx..Visible = True
! .Kasten&xxx..borderstyle = 1 
 C    .Kasten&xxx..Visible = False
    U  HSXMOD	 MYTABLETT NUMBR SOZVERSZ ZAHLINTEXTNUMBR KASTEN1 CAPTION WER KASTEN2 KASTEN3 KASTEN4 KASTEN5 KASTEN6 KASTEN7 KASTEN8 KASTEN9 KASTEN10 KASTEN11 COUNTER XXX I
   d T    T    T    T    T    T    T 	       @ T
    T    T    T
    T    T    T    T    T    T    T    T    T
    T    T    T
    T    T    T    T    T    T    T   2 .SSCommand1.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand2.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand3.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand4.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand5.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand6.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand7.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand8.BackColor = hex2rgb("&H8000000F") 
2 .SSCommand9.BackColor = hex2rgb("&H8000000F") 
1 .Command10.BackColor = hex2rgb("&H8000000F") 
1 .Command11.BackColor = hex2rgb("&H8000000F") 
2 .HSCommand1.BackColor = hex2rgb("&H8000000F") 
 T   	    (O T CC  Z .Text&xxx..Visible = False
 .Text&xxx..FontSize = 8.25
% .Text&xxx..ForeColor = QBColor(0)
* .Text&xxx..BackColor = farbenrgb(1+14)
 .Text&xxx..Enabled = True
    ( T CC  Z .Combo&xxx..Visible = False
& .Combo&xxx..ForeColor = QBColor(0)
 .Combo&xxx..FontSize = j
  T      (O T CC  Z* .optiongroup1.Opt&xxx..Visible = False
  T       ("3 T CC  Z) mytablett.zeile&xxx..FontBold = False
& mytablett.zeile&xxx..FontSize = 10
( mytablett.zeile&xxx..Visible = False
/ mytablett.zeile&xxx..ForeColor = QBColor(0)
$ mytablett.zeile&xxx..Height = 30
1 mytablett.zeile&xxx..BackColor = QBColor(15) 
( mytablett.zeile&xxx..BorderStyle = 0
( mytablett.zeile&xxx..Visible = False
, mytablett.zeile&xxx..FontName = "arial" 
& mytablett.zeile&xxx..Alignment = 0
    ($	 T CC  Z< mytablett.Kasten&xxx..BackColor = hex2rgb("&H8000000F") 
& mytablett.Kasten&xxx..Caption = ""
+ mytablett.Kasten&xxx..FontBold = False 
' mytablett.Kasten&xxx..FontSize = 10
' mytablett.Kasten&xxx..Alignment = 0
0 mytablett.Kasten&xxx..ForeColor = QBColor(0)
% mytablett.Kasten&xxx..Width = 110
) mytablett.Kasten&xxx..Visible = False
( mytablett.Kasten&xxx..enabled = true
  T      T      T       T  !      (	
 T CC  Z( myTablett.Check&xxx..Visible = False
  T  "    T  #      ( T CC  Z, myTablett.tdbnumber&xxx..Visible = False
    (i T CC  Z' myTablett.Dezi&xxx..Visible = False
    ( T CC  Z- myTablett.Datumsfeld&xxx..Visible = False
  T  $    T  %    T  &    '  U( 	 MYTABLETT CAPTION EDIT1 VISIBLE FALSE EDIT2 EDIT3
 ADMINMODUS
 SSCOMMAND1 FONTSIZE
 SSCOMMAND2
 SSCOMMAND3
 SSCOMMAND4
 SSCOMMAND5
 SSCOMMAND6
 SSCOMMAND7
 SSCOMMAND8
 SSCOMMAND9	 COMMAND10	 COMMAND11
 HSCOMMAND1 ENABLED TRUE J MYFORM1 Z0 I XXX TEXT8 OPTIONGROUP1 DYN	 SSSCROLL1	 SSSCROLL2	 SSSCROLL3 TEXT4 LABEL_1 DRIVE1 DIR1 BLATT ADMINUNSICHTBAR Cp woerter  9 T C    CC 
Z  % / 2 Cq woerter  H T  AG-Zuschuss priv. PV  CC 
Z  % / 2 Cr woerter  ; T C  
  2,025 % von CC 
Z Cs woerter  X T C    CC 333333 @
Z  % von CC 
Z Ct woerter   T C   Cu woerter   T C   Cv woerter   T C   % ) T  PV-Beitrag bergangsb.2 T 	 PV-Beitrag bergangsb. lt.Eing. ' T  PV-Gleitzonenbeitrag0 T 	 PV-Gleitzonenbeitrag lt.Eing. J T 
 AG-Zusch.freiw.ges.PV   CC 
Z  % / 2 Cw woerter  9 T C    CC 
Z  % / 2 Cx woerter   T C   Cz woerter  $ T  RV. AN=0%, AG=15%? T C  CC 
Z
  %, AG = 15 % C{ woerter   T C  F T  Rentenvers. AG-Zuschu CC 
Z  % / 2E T  Rentenvers. AN=0 / AG=CC 
Z  % / 2 % ) T  RV-Beitrag bergangsb.5 T 	" RV-Beitrag bergangsb. aufgestockt3 T 
  RV-Beitrag bergangsb. lt. Eing.7 T $ RV-Gleitz.-Beitrag aufgestockt lt.E. ' T  RV-Gleitzonenbeitrag3 T 	  RV-Gleitzonenbeitrag aufgestockt1 T 
 RV-Gleitzonenbeitrag lt. Eing.7 T $ RV-Gleitz.-Beitrag aufgestockt lt.E. + T  Haushaltsscheckverfahren5 T 
" freiw.versichert gesetzl. Rentenv.5 T " freiw.vers. berufsstnd.Vers.Einr. C} woerter   T C   C~ woerter   T C   % ) T  AV-Beitrag bergangsb.1 T  AV-Beitrag bergangsb.lt.Eing. g' T  AV-Gleitzonenbeitrag3 T   AV-Gleitzonenbeitrag lt. Eingabe : T  AV, AN = 0 %, AG = CC	 
Z  % 
  U  MYGET ZT38 WOERTER TEXTEE PVOREIN WELCHESJAHR ZT39 RVOREIN ZT40 AVOREIN AVBEITRAGSNDERUNG A T   Arbeitslosenvers. CC 
Z  % / 2> T   AV, AN = 0 %, AG = CC 
Z  % U  ZT40 AVOREIN betragseingabe,     
 soztabelleX     zeileninhalt_     Freistellungszeilen,     zlschenY-     lohnstraufbauenw2     lohnstrinstringWC     sozversaufbauenM     sozverszinstringb    
 tafelloeschenBj    
 sozverszeilenw     AVBeitragsnderung    5   A A A ! A A  QaA aA RaA aA RaA aA B AAQa  aA  A A QB QD A BB A Qr B AA A A A 	1 1  Q1A QQ A A RQ A A RQ A A   A!Q       A BQ 1    A B!QA !1    A B!QA !1    A B!QA !1    A B!QA !1    A CqQA 1    A BQ       A B!!QA      A B!QA !1    A  q    A !QA A  aA RQ!A !A  A  Q1Q!Aa1aAa /!A A 1AA R1A Q UaA  A Q A R q A A ! A A A 3  A 3  QQQRQQQraA qaA qaA qaA qaA qaA RqaA QQraA QQQraA RQQA 4   qAa1a1a!a aA !! A 31Ra qA wAAA11  A   rq!4qA c!"rq  A A Q!     qA q!!    qA A A 4 Tq Sq Sq Sq Sq Tq Sq Sq Sq Sq Sq Sq Sq Sq Sq Sq Sq Sq Sq S1A Qq Sq qA Sq q 3q Sq q q rQA A !q A rqqrqqA 113      qqA sqA bqbRr R A "QQ A   QQ A  QA ! QA A A RQ A RQ A rq AA A   A   qqA AA qA  rqA A q A B   !rqA rqA !Q      A 1 !    A q a    A A A A A "q A 3 q  q qq qq qq qq qq qq qq qq qq qr qr!q QA rq AQA A A 3 P  "!!!!!!!!!2qqQA rqaA rqB A rqaAaB qqaqqTB 2311qqA 21rqA qqqA qqA 311s 7 "! qA `AaQ!Q1q q1qA QQ! q1A q 3  
1                    >   
     U     A    W   AA  N  U    z    %        0  6    
  q    2  Z        2      [  2    !  X                a '      %   u          xx  Z;Y    U  V    (
@ ) farbenrgb(1+i) = hex2rgb("&HDDFFEE") 
 * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+13) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+15) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T   U  I	 FARBENRGBw( farbenrgb(1+0) = hex2rgb("&HC0FFFF")
( farbenrgb(1+1) = hex2rgb("&HC0FFFF")
( farbenrgb(1+2) = hex2rgb("&HC0FFFF")
( farbenrgb(1+3) = hex2rgb("&HC0FFFF")
( farbenrgb(1+4) = hex2rgb("&HC0FFFF")
( farbenrgb(1+5) = hex2rgb("&HC0FFFF")
( farbenrgb(1+6) = hex2rgb("&HC0FFFF")
( farbenrgb(1+7) = hex2rgb("&HC0FFFF")
( farbenrgb(1+8) = hex2rgb("&HC0FFFF")
( farbenrgb(1+9) = hex2rgb("&HC0FFFF")
) farbenrgb(1+10) = hex2rgb("&HC0FFFF")
* farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T    U 	 FARBENRGB( farbenrgb(1+0) = hex2rgb("&HFFFFFF")
( farbenrgb(1+1) = hex2rgb("&HECFFEC")
( farbenrgb(1+2) = hex2rgb("&HE6FFE1")
( farbenrgb(1+3) = hex2rgb("&HDEFFDE")
( farbenrgb(1+4) = hex2rgb("&HCDFFC8")
( farbenrgb(1+5) = hex2rgb("&HB7FFB4")
( farbenrgb(1+6) = hex2rgb("&HFFFFFF")
( farbenrgb(1+7) = hex2rgb("&HFFFFF3")
( farbenrgb(1+8) = hex2rgb("&HFFFFDD")
( farbenrgb(1+9) = hex2rgb("&HF7F7D5")
) farbenrgb(1+10) = hex2rgb("&HECECCA")
* farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+13) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+15) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T   U 	 FARBENRGB  B                    	  
      
          U 	 COLLABEL0	 COLLABEL1	 COLLABEL2	 COLLABEL3	 COLLABEL4	 COLLABEL5	 COLLABEL6	 COLLABEL7	 COLLABEL8	 COLLABEL9
 COLLABEL10
 COLLABEL11
 COLLABEL12
 COLLABEL13
 COLLABEL14
 COLLABEL15
 COLLABEL16
 COLLABEL17 
     T  C  T  C  T  C  T  C  T  C  T  C  T	  C  T
  C  T  C  T  C   U
  MYFORM1	 ABEREICH0	 BACKCOLOR	 FARBENRGB Z0 COM0 PAR0 EXTRA0 EXTRA4 EXTRA6 Z2 COM2 PAR2
    T  C   ( T  zCC  Z T  comCC  Z T  parCC  Z& .&hszn..BackColor = farbenrgb(1+1)
& .&hscn..BackColor = farbenrgb(1+1)
& .&hspn..BackColor = farbenrgb(1+1)
  T  C  T	  C  T
  C  T  C  T  C  T
  C  T  C  T  C   U  MYFORM1	 ABEREICH1	 BACKCOLOR	 FARBENRGB I HSZN HSCN HSPN Z1 COM1 PAR1 EXTRA1 EXTRA5 BBGLBG EXTRA3 SOLDAT2
   + T  C $ %C  C F  N   T  C  T  C  T  C   (	. T	 CC  Z' .z&hsin..BackColor = farbenrgb(1+2)
) .com&hsin..BackColor = farbenrgb(1+2)
) .par&hsin..BackColor = farbenrgb(1+2)
) .zvk&hsin..BackColor = farbenrgb(1+2)
) .Wei&hsin..BackColor = farbenrgb(1+2)
) .lst&hsin..BackColor = farbenrgb(1+2)
) .soz&hsin..BackColor = farbenrgb(1+2)
) .tei&hsin..BackColor = farbenrgb(1+2)
) .bru&hsin..BackColor = farbenrgb(1+2)
  T
  C  T  C  T  C  T
  C  T  C  T  C  T  C  T  C  T  C  T  C  %C	 ; T  c T    %C
 v T  c T    %C  T  c T    %C   T  c T    %C ' T  c T     U  MYFORM1	 ABEREICH2	 BACKCOLOR	 FARBENRGB ZI EXTRA8 EXTRA11	 INPROZENT I HSIN Z11 COM11 PAR11 ZVK11 WEI11 LST11 SOZ11 TEI11 BRU11 LEI11 DEM8 MOUSEPOINTER T8 DEM9 T9 DEM10 T10 DEM11 T11&
    T  C  T  C  T  C  T  C  T  C  T  C  T	  C  T
  C  T  C  T  C  T
  C  T  C  T  C  T  C   ( T CC  Z' .z&hsin..BackColor = farbenrgb(1+3)
) .com&hsin..BackColor = farbenrgb(1+3)
) .par&hsin..BackColor = farbenrgb(1+3)
) .zvk&hsin..BackColor = farbenrgb(1+3)
) .Wei&hsin..BackColor = farbenrgb(1+3)
) .lst&hsin..BackColor = farbenrgb(1+3)
) .soz&hsin..BackColor = farbenrgb(1+3)
) .tei&hsin..BackColor = farbenrgb(1+3)
) .bru&hsin..BackColor = farbenrgb(1+3)
  T  C  T  C  %C
  5 T  c T    %C  p T  c T    %C   T  c T     ( T CC  Z) .lei&hsin..BackColor = farbenrgb(1+3)
  T  C   U  MYFORM1	 ABEREICH3	 BACKCOLOR	 FARBENRGB EXTRA7 EXTRA9 EXTRA10 EXTRA17 Z10 COM10 PAR10 ZVK10 WEI10 LST10 SOZ10 TEI10 BRU10 I HSIN EXTRA15 EXTRA16 ZI DEM12 MOUSEPOINTER T12 DEM13 T13 DEM14 T14
 MINITRGER7
   0 T  C  T  C  T  C   ( T CC  Z' .z&hsin..BackColor = farbenrgb(1+4)
) .com&hsin..BackColor = farbenrgb(1+4)
) .par&hsin..BackColor = farbenrgb(1+4)
) .zvk&hsin..BackColor = farbenrgb(1+4)
) .Wei&hsin..BackColor = farbenrgb(1+4)
) .lst&hsin..BackColor = farbenrgb(1+4)
) .soz&hsin..BackColor = farbenrgb(1+4)
) .tei&hsin..BackColor = farbenrgb(1+4)
) .bru&hsin..BackColor = farbenrgb(1+4)
  %C 
Z %C 9 T	 
 c T 
  V T	  C
    %C   T	 
 c T 
   T	  C
    %C  T 
 c T 
   T 
 c T 
  T  C   U  MYFORM1	 ABEREICH4	 BACKCOLOR	 FARBENRGB EXTRA18 EXTRA52 I HSIN ZI DEM17 MOUSEPOINTER T17 DISABLEDBACKCOLOR QBCOLOR DEM18 T18 DEM19 T19 LEI19h
   a T  C  T  C   (	 T CC  Z' .z&hsin..BackColor = farbenrgb(1+5)
) .com&hsin..BackColor = farbenrgb(1+5)
) .par&hsin..BackColor = farbenrgb(1+5)
+ .extra&hsin..BackColor = farbenrgb(1+5)
  T  C  T  C  T	  C  T
  C   U  MYFORM1	 ABEREICH5	 BACKCOLOR	 FARBENRGB LABEL1 I HSIN EXTRA24 COM49 PAR49 Z49%
    T  C  T  C   (  T CC  Z+ .extra&hsin..BackColor = farbenrgb(1+6)
  T  C  T  C   ( T CC  Z' .z&hsin..BackColor = farbenrgb(1+6)
) .com&hsin..BackColor = farbenrgb(1+6)
) .par&hsin..BackColor = farbenrgb(1+6)
  .dem&hsin..MousePointer = 99
 .T&hsin..MousePointer = 3
   ( M T	 CC  Z' .z&hsin..BackColor = farbenrgb(1+6)
) .com&hsin..BackColor = farbenrgb(1+6)
) .par&hsin..BackColor = farbenrgb(1+6)
   .(/ T CC  Z' .z&hsin..BackColor = farbenrgb(1+6)
) .com&hsin..BackColor = farbenrgb(1+6)
) .par&hsin..BackColor = farbenrgb(1+6)
  T
  c T    U
  MYFORM1	 ABEREICH6	 BACKCOLOR	 FARBENRGB SSPANEL3 I HSIN EXTRA23 EXTRA30 HSZIN DEM47 MOUSEPOINTER T47
    T  C  T  C  T  C  T  C  T	  C  T
  C  T  C   #($G T
 CC  Z' .z&hsin..BackColor = farbenrgb(1+7)
) .com&hsin..BackColor = farbenrgb(1+7)
) .par&hsin..BackColor = farbenrgb(1+7)
  T  C  %C" 3 T  c T    %C$  T  c T    %C% 
 T  c T     U  MYFORM1	 ABEREICH7	 BACKCOLOR	 FARBENRGB COM33 PAR33 DEM33 DISABLEDBACKCOLOR QBCOLOR EXTRA33 Z50 Z51 I HSIN EXTRA51 ZI MOUSEPOINTER T33 DEM35 T35 DEM36 T36v
   o T  C	  T  C	   %()  T CC  Z) .com&hsin..BackColor = farbenrgb(1+8)
) .par&hsin..BackColor = farbenrgb(1+8)
   '(( T CC  Z+ .extra&hsin..BackColor = farbenrgb(1+8)
   &()m T CC  Z' .z&hsin..BackColor = farbenrgb(1+8)
  T  C	  T  C	  T	  C	  T
  C	 $ %C& | C& } T 
 c T 
  $ %C'  C' U T 
 c T 
   %C(  T 
 c T 
   %C)  T 
 c T 
  & %C* 
 C*  T 
 c T 
   T  C	  T  C	  T  C	  T  C	   U  MYFORM1	 ABEREICH8	 BACKCOLOR	 FARBENRGB	 CHECKNR63 I HSIN Z52 Z53 EXTRA42 EXTRA31 ZI DEM37 MOUSEPOINTER T37 DEM38 T38 DEM39 T39 DEM40 T40 DEM41 T41 Z26 COM26 PAR26	 KVPFLICHT
    T  C
   *(, T CC  Z' .z&hszn..BackColor = farbenrgb(1+9)
) .com&hszn..BackColor = farbenrgb(1+9)
) .par&hszn..BackColor = farbenrgb(1+9)
  .dem&hszn..MousePointer = 99
 .T&hszn..MousePointer = 3
  T  C
  T  C
  T  C
  T	  C
  T
  C
  T  C
  T 
  T 
  %C#  T 
 c T 
    U  MYFORM1	 ABEREICH9	 BACKCOLOR	 FARBENRGB I HSZN EXTRA41 EXTRA43 EXTRA44 Z34 COM34 PAR34 DEM34 MOUSEPOINTER T34 ZI 
     T  C  T  C  T  C  T  C   -(2  T CC  Z, .extra&hscn..BackColor = farbenrgb(1+10)
   U	  MYFORM1
 ABEREICH10	 BACKCOLOR	 FARBENRGB Z45 COM45 PAR45 I HSCN) 
   "  T  C   U  MYFORM1
 ABEREICH11	 BACKCOLOR	 FARBENRGB 
   
   U  MYFORM1  U    U    T    C  U  MYFORM1 KCOMBO	 BACKCOLOR	 FARBENRGB  T    C  U  MYFORM1 KCOMBO	 BACKCOLOR	 FARBENRGB  U      (.  T       (`  T       (  T   
    (  T       (   T       !($( T       %()Z T   
    *(, T      T . U  I	 FARBENRGB<!
 H
 Z I                   	Z  B 
  5!
 Hx 1!       	         %   C 	 
 T    
 T      
 H% C   C 	d %C  Q   `    C  %C       % C  C 	   C 
 % 

 H4 C   C 	 C k %C X   g   % C  C 	 %C        C     
 H4 C   C 	 C W %C D   S   % C  C 	 %C        C    C  %C          C +
 H5'4 C   C 	 C  %C       D C  C 	 C  C 	 %C        C '    C  %C \    %C         C 
 %C     %C         C o %C 4   k %C X   g     C 
 H C  
 H  
 %C          %C 
J %C 7   F     %C n   }       %C         C  %C    
   
 H  
\ %C I   X      %C 
      %C         C *	( %C C 
  6	   &	    C n	 %C [	   j	    C 	 % 
	 %C 	   	    	 %C 	   	     C 
 % 
U
 %C B
   Q
    
 %C y
   
     C ! % 

 %C 
   
     %C 
        C  % 
w %C d   s     %C         C  %C        C 	: %C '   6    C 
~ %C k   z    C  %C        C 
 %C    
    C 
J
 %C 7
   F
    C 
 %C {
   
    C 
 %C 
   
    C  %C        C Z %C G   V    C  %C        C     C * %C    & %C    "     C  %C [    %C         C R %C 
   N %C   %C         J %C 7   F      C  %C # %C 
    %C   %C         %C           %C G    %C   %C         %C           C B %C 
   > %C +   :     C  %C s    %C         CC  %C     %C         C  %C O    %C s        C       
 HS C   C 	 C 	 C  C 	N %C   ;   J   4 C 
 C 	 C  %C	         C    CC       	
 H% C   C 	@
 HA< CC 
 Hg CC
     CC
    D C   C 	 C  C 	<3 %C
  C
  C
 )   8    4 C 
 C 	 C {  % C  C 	 C    C       
  %C   
       C  <     u
 HZq% C 
 C 	 %C	 
         %C    % C   C 		q
 HmC C  C 	 C 
 C M   CC  m     C  

 H% C   C 	 %C           C     C  
 H4|% C   C 	`   C |      
 H% C   C 		J %C 
 %C          F %C    3   B    D C 
 C 	 C  C 	$ %C   C        C       
 H
4 C   C 	 C q %C   ^   m    C  %C             
 H C   % C 
 C 	K %C 8   G   D C   C 		 C 
 C %	                    	          T %C   A   P      l     ! %C   3         "', %C    C   
       %C #      #k %C   X   g      $ %C            %? %C   | C   } C            &; %C    C'  C   l   {      '? %C    C   	 C   
         (@ , %C    C   -    <       ) . %C    C              *   ,	  %C   	           -!     .!     /1!     U  I MYFORM1	 DEMFARBIG TVD TRUE ZI DASTUFEN DEMNICHTFARBIG WELCHESJAHR WNW	 TVDZEILE
    %C Y T 
  T   T   T   T   T   T 
  T   T   T   T   T   T  C  T  c T	 
    (	Y T
 CC  Z .T&hsin..Visible = False
 .dem&hsin..Visible = False
 .lst&hsin..Visible = False
 .soz&hsin..Visible = False
 .zvk&hsin..Visible = False
 .Wei&hsin..Visible = False
 .bru&hsin..Visible = False
 .tei&hsin..Visible = False
  T    T    T    T    T    T    T     (f T
 CC  Z .T&hsin..Visible = False
 .com&hsin..Visible = False
 .par&hsin..Visible = False
 .z&hsin..Visible = False
 .dem&hsin..Visible = False
 .lst&hsin..Visible = False
 .soz&hsin..Visible = False
 .zvk&hsin..Visible = False
 .Wei&hsin..Visible = False
 .bru&hsin..Visible = False
 .tei&hsin..Visible = False
 .lei&hsin..Visible = False
   ( T
 CC  Z .T&hsin..Visible = False
 .com&hsin..Visible = False
 .par&hsin..Visible = False
 .z&hsin..Visible = False
 .dem&hsin..Visible = False
 .lst&hsin..Visible = False
 .soz&hsin..Visible = False
 .zvk&hsin..Visible = False
 .Wei&hsin..Visible = False
 .bru&hsin..Visible = False
 .tei&hsin..Visible = False
   (	0 T
 CC  Z  .extra&hsin..Visible = False
   ( T
 CC  Z .lst&hsin..Visible = False
 .soz&hsin..Visible = False
 .Wei&hsin..Visible = False
 .bru&hsin..Visible = False
 .tei&hsin..Visible = False
  T    T    T     (	 T
 CC  Z .z&hsin..Visible = True
 .par&hsin..Visible = True
 .com&hsin..Visible = True
  %C U  (	Q T CC  Z .z&hsin..Visible = False
 .par&hsin..Visible = False
 .com&hsin..Visible = False
    %C 	v *

 H	 CC   T  C 4 C  C 	 C 
	 T  C  $ %C 	 C 
		 %C   W	 T  C  t	 T  C   %C 	 T  C    T   %C 	 T 
 T  C   T  CC   T	 
    T     %!  a
 T"     %#   # d
	
 T"      (	 T
 CC  Z .T&hsin..Visible = True
 .dem&hsin..Visible = True
 .lst&hsin..Visible = True
 .soz&hsin..Visible = True
 .zvk&hsin..Visible = True
 .Wei&hsin..Visible = True
 .bru&hsin..Visible = True
 .tei&hsin..Visible = True
  T    T    %C 
 T    T    T     T    %C 

  (
 T
 CC  Z .T&hsin..Visible = True
 .com&hsin..Visible = True
 .par&hsin..Visible = True
 .z&hsin..Visible = True
 .dem&hsin..Visible = True
 .lst&hsin..Visible = True
 .soz&hsin..Visible = True
 .zvk&hsin..Visible = True
 .Wei&hsin..Visible = True
 .bru&hsin..Visible = True
 .tei&hsin..Visible = True
 .lei&hsin..Visible = True
    (; T
 CC  Z .T&hsin..Visible = True
 .com&hsin..Visible = True
 .par&hsin..Visible = True
 .z&hsin..Visible = True
 .dem&hsin..Visible = True
 .lst&hsin..Visible = True
 .soz&hsin..Visible = True
 .zvk&hsin..Visible = True
 .Wei&hsin..Visible = True
 .bru&hsin..Visible = True
 .tei&hsin..Visible = True
  T$    T    T    %C 
K  (G T
 CC  Z .lst&hsin..Visible = True
 .soz&hsin..Visible = True
 .Wei&hsin..Visible = True
 .bru&hsin..Visible = True
 .tei&hsin..Visible = True
    (	 T
 CC  Z .z&hsin..Visible = True
 .par&hsin..Visible = True
 .com&hsin..Visible = True
    U%  MYFORM1 ZI LSTZ TRUE SOZZ DEM11 DISABLEDBACKCOLOR	 FARBENRGB MOUSEPOINTER T11 READONLY FALSE I HSIN LST10 VISIBLE SOZ10 WEI10 BRU10 TEI10 LEI7 LEI11 EXTRA11 EXTRA18 EXTRA1 HSZN QBCOLOR WNW	 TVDZEILE Z11 CAPTION ZT11 T51
 LOTSEINDEX	 ABEREICH3 WIZARDJA EXTRA7
    T CC  Z. .dem&hsin..disabledBackColor = QBcolor(8) 
  .dem&hsin..MousePointer = 99
 .T&hsin..readonly = False
 .T&hsin..MousePointer = 3
k .T&hsin..ToolTipText = "ber Strg+Plus/Minus lsst sich ein Betrag schnell addieren bzw. subtrahieren."
  U  MYFORM1 HSIN I 
     T CC  Z/ .dem&hsin..disabledBackColor = QBColor(15) 
 .dem&hsin..MousePointer = 2
 .T&hsin..readonly = False
 .T&hsin..MousePointer = 12 
 .T&hsin..ToolTipText = ""
  U  MYFORM1 HSIN I &ffentlicher Dienst
 T  C   T  C   T  C   T  C   T  C   T  C   T  C   T  C   T  	C   T  
C   T  C   T  C   T  
C   T  C   T  C   T  C   T  C   T  C   U 	 FARBENRGB DEC2RGB
 T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  	C  T  
C  T  C * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
) farbenrgb(1+12) = hex2rgb("&HE5E5E5")
) farbenrgb(1+13) = hex2rgb("&HE0E0E0")
) farbenrgb(1+14) = hex2rgb("&HE0E0E0")
) farbenrgb(1+15) = hex2rgb("&HE0E0E0")
) farbenrgb(1+16) = hex2rgb("&HE0E0E0")
 T    U 	 FARBENRGB QBCOLOR
 T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  	C  T  
C  T  C * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
) farbenrgb(1+12) = hex2rgb("&HE5E5E5")
) farbenrgb(1+13) = hex2rgb("&HE0E0E0")
) farbenrgb(1+14) = hex2rgb("&HE0E0E0")
) farbenrgb(1+15) = hex2rgb("&HE0E0E0")
) farbenrgb(1+16) = hex2rgb("&HE0E0E0")
 T    U 	 FARBENRGB QBCOLOR
 T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  C  T  	C  T  
C  T  C * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
) farbenrgb(1+12) = hex2rgb("&HE5E5E5")
) farbenrgb(1+13) = hex2rgb("&HE0E0E0")
) farbenrgb(1+14) = hex2rgb("&HE0E0E0")
) farbenrgb(1+15) = hex2rgb("&HE0E0E0")
) farbenrgb(1+16) = hex2rgb("&HE0E0E0")
 T    U 	 FARBENRGB QBCOLOR- 4  
 H     ( farbenrgb(1+0) = hex2rgb("&HFFFFFF")
( farbenrgb(1+1) = hex2rgb("&HECFFEC")
( farbenrgb(1+2) = hex2rgb("&HE6FFE1")
( farbenrgb(1+3) = hex2rgb("&HDEFFDE")
( farbenrgb(1+4) = hex2rgb("&HCDFFC8")
( farbenrgb(1+5) = hex2rgb("&HB7FFB4")
( farbenrgb(1+6) = hex2rgb("&HFFFFFF")
( farbenrgb(1+7) = hex2rgb("&HFFFFF3")
( farbenrgb(1+8) = hex2rgb("&HFFFFDD")
( farbenrgb(1+9) = hex2rgb("&HF7F7D5")
) farbenrgb(1+10) = hex2rgb("&HECECCA")
* farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+13) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+15) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T    Q   (
>) farbenrgb(1+i) = hex2rgb("&HDDFFEE") 
 * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+13) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+15) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T     )( farbenrgb(1+0) = hex2rgb("&HC0FFFF")
( farbenrgb(1+1) = hex2rgb("&HC0FFFF")
( farbenrgb(1+2) = hex2rgb("&HC0FFFF")
( farbenrgb(1+3) = hex2rgb("&HC0FFFF")
( farbenrgb(1+4) = hex2rgb("&HC0FFFF")
( farbenrgb(1+5) = hex2rgb("&HC0FFFF")
( farbenrgb(1+6) = hex2rgb("&HC0FFFF")
( farbenrgb(1+7) = hex2rgb("&HC0FFFF")
( farbenrgb(1+8) = hex2rgb("&HC0FFFF")
( farbenrgb(1+9) = hex2rgb("&HC0FFFF")
) farbenrgb(1+10) = hex2rgb("&HC0FFFF")
* farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
* farbenrgb(1+12) = hex2rgb("&HE5E5E5") 
) farbenrgb(1+13) = hex2rgb("&HE0E0E0")
* farbenrgb(1+14) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+15) = hex2rgb("&HE0E0E0") 
* farbenrgb(1+16) = hex2rgb("&HE0E0E0") 
 T     	 T C   T C   T C   T C   T C   T C   T C   T C   T 	C   T 
C   T C   T C   T 
C   T C   T C   T C   T C   T      T C  T C  T C  T C  T C  T C  T C  T C  T 	C  T 
C  T C * farbenrgb(1+11) = hex2rgb("&HE5E5E5") 
) farbenrgb(1+12) = hex2rgb("&HE5E5E5")
) farbenrgb(1+13) = hex2rgb("&HE0E0E0")
) farbenrgb(1+14) = hex2rgb("&HE0E0E0")
) farbenrgb(1+15) = hex2rgb("&HE0E0E0")
) farbenrgb(1+16) = hex2rgb("&HE0E0E0")
 T    Ba U  INDEX2	 FARBENRGB I DEC2RGB QBCOLOR
 farben2014,     
 farben2015    
 farben2013     farbenzuweisen    	 collabel0K    	 collabel1	    	 collabel2    	 collabel3    	 collabel4    	 collabel5    	 collabel6{    	 collabel7    	 collabel8!    	 collabel9&    
 collabel10(    
 collabel11)    
 collabel12)    
 collabel13*    
 collabel14*    
 collabel15&*    
 collabel16k*    
 collabel17*     farbenselbst*    	 demfarbeno,    
 geringchecken
N    	 demfarbig`     demnichtfarbigKa    
 farben20163b    
 farben20177d    
 farben2018Yf    
 farben2019{h     farben_allej    4 rA 14 13 15 A r q q q q q q q q q q q q q q q q q 3  QRQQQQQRQQA 3  QqaaaA QQQQQRQQA 4  QG B RRQsqqB RQQQQQQQQSRA RA RA RA RA A 3  QRQQQRQQQQQQQQsqqB TQQA RA RA rqA RA 3  QSRqqqA RR QA  Q QA A RA QB 3  QQqqqA QWQQB 3  QQrqA RQsqqA rqqA rqqA B 3  QTQQQQQrqqC QRA RA RA A 3  QRqqB rqA rqqA RQWRBA BA RA RA bA RQQRB 3  QqqqA RQQQQQRA A 3  QRQQrqA A 3  QF 3  M 3 5 5 q3 r3 1 rqA rqA rqA rqA rqA rqA rqA rqA 24  A A   q  q  A  QQq  q A RQq  q A Rq Q! AQq  q A QQq  q A Qq A   AQq  q A QQq  q A Qq QQq  q A A A Q AQq  q A AQq  q A Qq A QQq  Qq  q A A QQq  Qq  q A A QQq  Qq  q A A Q Q !Qq  q A !QRq  q A  Qq  q A A !Qq  q A A QQq  q A  !Qq  q A !Qq A "Qq  q A A Qq  q A QQq  q A Q!Rq  q A  Qq  q A A Q!Rq  q A  Qq  q A A Q!Rq  q A  Qq  q A A Q!Rq  q A  Qq  q A A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A QQq  q A Qq A QQq  Qq  q A A RQr  Qq  q A A RQq  QRq  q A  Qq  q A A A QQQq  QQq  q A  Qq  q A A A  Qr  QRq  q A  Qq  q A A A A QQq  Qq  q A A QQr  Qq  q A A Qq  Qq  q A A QQq  Qq  q A A Rq A  1q  q A AQq  q A Qq q A  Q  q q A B1q  q A A Aq RRq Qq A q  q A Qq  Qq  q A Qq A R 1q q A A  Qq  q A Qq A Q Qq Qq A  QQq  q A  q  q A A AAq  q A Qq A  Aq  q A Qq  q A A  Qq QQq  q A Aq A q q t q  q A q q  q A q  q A Rq A q  q A q  q A q  q A q  q A q  q A q  q A q  q A q  q A q q q A A 3  Q211111211111RrqA rqA rqA uqA rqA yqA VqqA A  Q  QAQA CQ QA RQA A R1QA A A A rqB bA aqqB A qqA aqqB A qqA A A 3  qA 3  qA 3 q3 rqqqqqqqqqq13 rqqqqqqqqqq13 rqqqqqqqqqq14 q  1rA 111sqqqqqqqqqq1A q 1                    6                     7    ,   0   %	  e  G   D     +
  ^   Q   M
    p   e                         i%       %  (  S    >(  ,  m  "  ,  1    ?  ?1  !8    m  C8  ;      ;  5=  1    X=  \>  A    >  B@  M    e@  @  _    @  A  d    7A  bA  i    A  A  m    A  D  r    D  pF      F      N  ڇ          u            (        <  ݧ  a    O        b  +      u    !  *     %         *  >     z+T    U  3 %   ,C T 6 Die Tariftabellen und die Textdateien sind geschtzt. W T  F Der Schutz kann nur mit dem Administrator-Passwort aufgehoben werden. 0 T   Wollen Sie den Schutz aufheben? T C  Schutzx %  B (
 T      U 
 TEXTSCHUTZ TRUE MSG RESPONSE REGISTER LADEN 4      % $ %C  C L  B " %     	 
 	  T   x   T   d  T 
 	  
 T   %  
 H 3 C  
*+,/ %  9 C  \gehaltC \ sr	 userdaten  Ck	 userdaten  T C   C 200  %     %  C  	V| C. Die 1. Position der Liste (Keine Kostenstelle)C
  kann nicht verndert werden.  Geschtzter Datensatz  B 
 T    T      T 
 	 
 
 T   T CC  Z? Do FORM eingabefeldeditieren WITH myform1.z&hssax..caption 

 T 
   
 H1 CC $% T 
 	 
 
 T   T CC  Z? Do FORM eingabefeldeditieren WITH myform1.z&hssax..caption 

 T 
       U  HSBUTTON HSSHIFT HSX HSY MYINDEX ZI ZTI MYFORM1 KCOMBO VISIBLE TRUE SSPANEL4 LEFT EINGABEFELD FALSE MYOPEN	 EIGDATFIX XJAHR4 MYGET MSG	 USERDATEN PFAD MYCLOSE REGISTRIERT MSGBOX LASTTEXT TEXT1 TEXT	 TEXTINDEX HSSAX	 LINKEMAUS schutznachricht,      z_MouseDown    3 1qA   q A A 3 1AA A !1 1A 2  1!E A A A  11 q  1 q A B  B A 1                    9           #  	        %   RJ      Q    K  tuX    U  F
 T  
 H    " T  W A R N U N G !C
 g T  4 Bei Auswahl von  O K  werden   a l l e  bisher fr      eingegebenen NamenC
 q T  Z und die dazu gehrenden Personaldaten einschlielich der Kostenstellen   g e l  s c h t .C
 S T  B nderungen in den Tarifdateien und der Textdatei bleiben erhalten.5 T C  Personaldaten  	  lschen?x %  B   
 H   C٫ Vielen Dank fr eine erneute Chance fr mein Programm. Sie drfen Ihre frheren Daten zunchst behalten. Sie werden erst beim Updaten auf eine aktuellere Version gelscht.  Personaldaten lschenx B  
  
 C  * C 	  \G  i1Z wvw  %CZN a C #90 # C 	  \G  i*.*
   C #90 * C 	  \G  p1Z wvw  %CZN  C #90 # C 	  \G  p*.*
   C #90 * C 	  \G  r1Z wvw  %CZN i C #90 # C 	  \G  r*.*
   C #90 3 T  	  \gehaltC \ vaa.dbf Delete File "&hsxdat" 
3 T  	  \gehaltC \ vaa.fpt Delete File "&hsxdat" 
3 T  	  \gehaltC \ vbb.dbf Delete File "&hsxdat" 
3 T  	  \gehaltC \ vbb.fpt Delete File "&hsxdat" 
+ C 	  \bdaC RZ BDA  %CZN S C #90 * C 	  \bdaC R .dbf
 * C 	  \bdaC R .fpt
   C #90 . C 	  \jdaC RZ jdadat  %CZN  C #90 * C 	  \jdaC R .dbf
 * C 	  \jdaC R .fpt
   C #90 7 C 	  \ZuschlgeAC RZ zuschlag  %CZN  C #90 1 C 	  \ZuschlgeAC R .dbf
 1 C 	  \ZuschlgeAC R .fpt
   C #90 7 C 	  \ZuschlgeBC RZ zuschlag  %CZN  C #90 1 C 	  \ZuschlgeBC R .dbf
 1 C 	  \ZuschlgeBC R .fpt
   C #90 7 C 	  \UrlaubC RZ urlaubsblatt  %CZN t	 C #90 - C 	  \UrlaubC R .dbf
 - C 	  \UrlaubC R .fpt
   C #90 . C 	  \SVC RZ Sozvers  %CZN +
 C #90 ) C 	  \SVC R .dbf
 ) C 	  \SVC R .fpt
   C #90 8 C 	  \gehaltC \ vaaF wvw 8 C 	  \gehaltC \ vbbG wnw  
  CF wvw  CG wnw 
 C   %    
 T 
 T 
 T  T  
 T  T  a       T   C 
 T    T ! " 
 T # 
 T$   %  &  '  T  - ?
 T   T CC  Z
 T  
 T     
 T #   U(  REGISTER III MSG WELCHESJAHRC RESPONSE VERSION MYCLOSE MYOPEN EIGDAT MUSER MYKILL HSXDAT XJAHR4
 GRUNDSTELLUNG MYPUT WELCHESJAHR WELCHESJAHROLD	 DATEIOPEN
 SATZANZAHL FILENEU SPIN1 ZI MONAT MYFORM1
 LOCKSCREEN	 NEUERSATZ DIMENAUS NAMENINCOMBO Z0 CAPTION ZT0	 STARTFLAG TRUE
 TDBNUMBER1 VALUE FALSE MYINDEXE
 MONAKTIVIEREN BERECHNUNGAUSLSEN
 FOLGEMONAT C #18  : C   \gehaltC \ dim dimen 
   T   T 	  T
   T 
  T   T   T   T   T   T   T   T   T   T  !  T" #  T$ %  T& CC  Z
 H`  '  T( )   *  T+ )   ,  T- )   .  T/ )   0  T1 )   %2  
 T2    %3  
@
 T3    %2  
b
 T2    %4 5 
 T2 4 6  T3 4 7  T8 4 9  T: 4 ;   T< 2  %3 
 T3    T= 3  T> 8  T? :  T@ A  TB C  TD E  TF G  TH I  TJ K  TL M  TN O  TP Q  TR S  TT U   C dimenV  UW  MYCLOSE MYOPEN EIGDAT MUSER XJAHR4 DIMEN DIMTEXT1 DITEXT1 DIMTEXT2 DITEXT2 DIMTEXT3 DITEXT3 DIMTEXT4 DITEXT4 DIMTEXT5 DITEXT5 DIMTEXT6 DITEXT6 DIMTEXT7 DITEXT7
 DIMSTRASSE DITEXT8 DIMSITZ DITEXT9 DIMSTEUERNUMMER DISTEUERNUMMER
 DIMVERSION	 MYVERSION
 DIMARTIKEL ARTIKEL DIMWELCHESJAHR WELCHESJAHR
 DIMFILENEU FILENEU DIMMONAT MONAT DIMMODUS MODUS
 XXWELCHESJAHR JAHR1 DIMSATZANZAHLJ1
 SATZANZAHL JAHR2 DIMSATZANZAHLJ2 JAHR3 DIMSATZANZAHLJ3 JAHR4 DIMSATZANZAHLJ4 JAHR5 DIMSATZANZAHLJ5	 FORM1OBEN
 FORM1LINKS MYFORM1 WINDOWSTATE TOP LEFT	 FORM1HOCH HEIGHT
 FORM1BREIT WIDTH DIMFORM1OBEN
 DIMFORM1LINKS DIMFORM1HOCH
 DIMFORM1BREIT
 DIMAMTOBEN AMTOBEN DIMAMTLINKS AMTLINKS
 DIMAMTHOCH AMTHOCH DIMAMTBREIT AMTBREIT DIMJAHROBEN JAHROBEN DIMJAHRLINKS	 JAHRLINKS DIMJAHRHOCH JAHRHOCH DIMJAHRBREIT	 JAHRBREIT DIMLSTROBEN LSTROBEN DIMLSTRLINKS	 LSTRLINKS DIMNETZWERK NETZWERK MYPUT
 T    
  
  (<  T    % j  T   % /  T .   T     T  T  T   T   T 	 T 
 T  T  T   T ( T  T  T  	 T %\ T ) T :  T :  T `M/  T `M/  T :  T :  T `M/  T `M/  T :  T :  T `M/  T `M/   (A T     T 4d  (q T    T	     T
   T
   T
 	  T
 
  T
   T
   T
 
  T
   T
   T
   T
   T
   T
   T
   T
   T
 	  T
 
  T
   T
   T
 
  T
   T
   T
   T
   T
   T
   T   T   T 	  T 
  T   T   T 
  T   T   T   T   T   T   T   T   T 	  T 
  T   T   T 
  T   T   T   T   T   T   T   T   T 	  T 
  T   T   T 
  T   T   T   T   T   T   T  T  T 	 T 
 T  T  T 
 T  T   T   T  T   T   T   T   T   T   T 
  T   T   T    T   T   T   T   T   T   T   T   T   T   T   T   T    T!   T"   T#   T$   T%    (O T&    T'    T( 
              ) T)  Dienstbezeichnung ...$ T)  Dienststelle ...& T)  Zulage lt. Eingabe& T)  Zulage lt. Eingabe& T)  Zulage lt. Eingabe, T)  Sonst. Bezug lt. Eingabe) T)  Sachbezug lt. Eingabe) T)  Einbehalt lt. Eingabe) T) 	 Einbehalt lt. Eingabe) T) 
 Einbehalt lt. Eingabe) T)  Sachbezug lt. Eingabe T)  Reserve T) 
 Reserve  ((,
 T*   000000  
 +  T, C
  -  T. C
  -  T/ C
  -  T0 C  -  T1 C  -  T2 C  -  T3 4  T5 C  -  T6 C  -  T7 C  -  T8 C  -  T9 C  -  T: C  -  T; C
  -  T< C(  -  T=    T> C  -  T?  a T@  | TA /    ( TB    TC    TD    E  (" TF  E  " TG  E     TH C0  -  TI C0  -  TJ C/  -  TK C2  -  TL { TM Cd  -  TN C_  -  TO   TO 	  TO 
  TO   TO   TO 
  TO   TP    TQ   TR   TS   TT   TU   TV   TW   ) TX 
 Personalfall CC4  Z1 TY #                                     TZ 
 Einmalzahlung& T[  Dienststelle lt. Eingabe T\   T]   T^   T_   T`   Ta   Tb   Tc   Td   Te   Tf   Tg  Th  Ti   Tj   Tk    Tl     ( Tm    Tn    To    Tp     Tq ( Tr ˡE}@ Ts    ( T&    Tt    Tu   T     120120120120- Tv C C C$ C0 C< Cx  Tw v v v v & Tx  stC	     w w " T C st9    w w >  Uy  MSG WVW I ZNAM EFFZ TNAM BETRAG WERT TZNAM TBNAM LST TRUE FALSE SOZ ZVK WEI TEI BRU LEI BDA NOCHFREI Z55	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR ZHLKIND SOLDATEN ZNR63 DIMATZAUFSTOCKUNG
 DIMATZSOLI DIMATZKIRCHE GLEITZONEALT RESERVE2 RESERVE3 RESERVE4 RESERVE5 RESERVE6 RESERVE7 ZEST SPARTE ENTGELTCODE ZULAGEN SCHLSS WNW ZTEXT0 MYSTRING ZTEXT1 ZTEXT2 ZTEXT3	 SVNUMMER1	 SVNUMMER2 ZTEXT27
 SATZANZAHL ZTEXT5 ZTEXT6 KONTO BLZ ZIBAN ZBIC ZPERSNR ZTEXT7 ZFLAG ZTEXT8 ANREDE WEIFLAG ZI KORRLST KORRKV KORRRV J LUCKKV LUCKRV ZTEXT10 ZTEXT11 ZTEXT12 ZTEXT13 ATZAA ZTEXT14 ZTEXT15	 TVDZEILE TVDAUFSTIEG TVDAUFSTIEGMONAT TVDAUFSTIEGJAHR TVDAUFSTIEGDAUER TVDAUFRUNDUNG SEPTEMBERKINDER TVLVERHZ ZTEXT29 PERSONALFALL STRUKTUR ZTEXT32 ZTEXT33 ZUMLAGE1 ZUMLAGE2 ZUMLAGE3	 ZATZNETTO ATZALT LEISTUNG2007 LEISTUNG2008 LEISTUNG2009 LEISTUNG2010 LEISTUNG2011 KINDERBESITZSTAND VERSORGUNGSBEGINN VERSORGUNGSMONATE VERSORGUNGSBEZUG
 VERSORGUNGSSZ STRUKTURREST ZSGRUPPE ZSSTUFE ZSBETRAG ZSOPTION ZSINDIV ZSWOSTD	 ZSWOMONAT	 ZSBENUTZT ZTEXT38 BESJA MSG1 MSG2
 STUFENRECHNEN
 T     ( 
 T     C     wvw 
 T    T  C   C     wvw  
 T     C
   wnw    (;. T	 
  C 	 
 . T	   C 	    T	  C	   T	 
 C	 
  T	  C	  
 T    C
   wnw 
 T      U  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU WVW ZNAM MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV
 T     ( 
 T     C     wvw 
 T    T  C   C     wvw  
 T     C
   wnw    (;. T	 
  C 	 
 . T	   C 	    T	  C	   T	 
 C	 
  T	  C	  
 T    C
   wnw 
 T      U  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU WVW ZNAM MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV
 T     (| 
 T    C     wvw 
 T     C     wvw  
 T    C
   wnw    (. T   C   . T 	  C  	   T 
 C 
  T  C   T  C  
 T     C
   wnw 
 T      U
  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV
 T     (| 
 T    C     wvw 
 T     C     wvw  
 T    C
   wnw    (. T   C   . T 	  C  	   T 
 C 
  T  C   T  C  
 T     C
   wnw 
 T      U
  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV
 T     (| 
 T    C     wvw 
 T    C     wvw  
 T    C
   wnw    (. T   C   . T 	  C  	   T 
 C 
  T  C   T  C  
 T    C
   wnw 
 T      U
  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV
 T     (| 
 T    C     wvw 
 T    C     wvw  
 T    C
   wnw    (. T   C   . T 	  C  	   T 
 C 
  T  C   T  C  
 T    C
   wnw 
 T      U
  MODUSALT MODUS HI	 DATEIOPEN MYGET FILENEU MYPUT WNW LUCKKV LUCKRV KORRLST KORRKV KORRRV T   a % 
, 
 T  
 T     (y T C
 importfile  %            %CF    	  CF wvw
  CG wnw
   CF wvw  T 
    T C   CG wnw  T     T     T   - T  
 Personalfall CCC 
 Z C
   wnw
  T CC  8 T CC  8 T CC  8 T CC  8  (S C     wvw
  
 T        
 T   T C
 importfile  %          T C    T   - U  MYFORM1
 LOCKSCREEN
 SATZANZAHL MODUSALT MODUS HSIMPORTFILENR
 GIVESELECT	 DATEIOPEN LOF
 GRUNDSTELLUNG MYPUT MYGET WVW BDA BETRAG TNAM WNW	 SVNUMMER1	 SVNUMMER2 ZTEXT27 PERSONALFALL I MONAT WVWIN
 BERECHNUNG
 FOLGEMONATNEU ZI DIMENAUS  U    U  = : C Eine Anleitung ist in Arbeit  Bitte Geduldx U  ' 
 T  o T  119   U  INET MSG INSINTERNET  U    %C  
 $ %C   C     C  (o  T    j  C
   wnw     C  (  T    n  C
   wnw    U  ZI I WNW
 BUNDESBEAMTER MYPUT FILENEU C 200  < C  \gehaltC \ sr.* 	 \tempsr.*    (	9 C  \gehaltC \ sr	 userdaten   Co 	 userdaten  T C 	  T
 C   C 200   %C
  C T
 CC
 g8  %
 . T   \gehaltC \ sr.dbf  If File("&hsxdat") = .T., %C  Bitte
$ C Das Verzeichnis   \gehaltC \. sr ist kein Programmverzeichnis von PC-GEHALT.  Bitte anschlieend korrigieren!x  B , T   \gehaltC \ sr.* DELETE file "&hsxdat" 
< C 	 \tempsr.*  \gehaltC \ sr.*    T  	 \tempsr.* Delete File "&hsxdat"
 U
  MYCLOSE FILECOPY	 EIGDATFIX XJAHR4 I MYOPEN MYGET MSG	 USERDATEN PFAD J USERNAME HSXDAT. %  Q0  T    17551519210  %CC   >
 Z C> Ihre Eingabe entspricht nicht einem gltigen Netzwerk-Pawort. 
 Sorry ... x T      'B %C    1755151 C    2755151
  J T  9 Bitte oben User auswhlen und dann im Textfeld editieren. T     T   + T   Noch kein User ausgewhlt.8 T	  ' Ausgewhlte User-Bezeichnung umbenennen T
    T  
  T    T    T    T  J T     C  T       (
 T CC  Z .Text&xxx..Enabled = True
& .Text&xxx..BackColor = QBColor(15)
    (	 T CC  Z T CC  Z .check&xxx..caption = ""
 .Check&xxx..Visible = True
 .Zeile&xx2..Visible = True
  T     T  6 T    T    T    T   
 T    #   U  REGISTER	 MYTABLETT TEXT0 VALUE ZEILE11 CAPTION ZEILE22 VISIBLE TRUE ZEILE2
 SSCOMMAND1 ENABLED
 SSCOMMAND2 FALSE
 SSCOMMAND3
 SSCOMMAND5
 SSCOMMAND8
 ADMINMODUS TOP LEFT COMBO1 ZORDER ADMINISTRATORUNSICHTBAR I XXX XX2 LABEL9 ZEILE3 ZEILE4 ZEILE33 personalloeschen,      dimenaus
    
 grundstellungz    	 Info_Plan.    	 Info_Real$1    	 Plan_Infop3    	 Real_Info5    	 Plan_Real7    	 Real_Plan9    	 neuersatz <     voreinstellungaufbauen@    
 wievielreihen@     umstieghilfeholen@     strukturhilfeholenS@     mglicherweiselschen@     bundesbeamte@     SRverteilenA     adminanlegenE    3   !q1QA A  !
A B A  11A 11A 11A 22222A 1A r1A r1A r1A 1A q aa q    1  q q q r 1  r q q    q  q  A 3                        A # A  A  A SA  ! A               J 3   qAAA AA A CAABAAAAAAAAAAAqqqqbaaaaaaarA BrAAA BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA                   qQA  AaaaqA A  aaaaaa aaaaaaaa a  1rq!!A A baaa aaOAAAAAA        a                 rA  a rQA   a!B 3  r q  q A  q qqA  q q q 3  r q  q A  q qqA  q q q 3  r q  q A  r rqA  q q q 3  r q  q A  q qqA  q q q 3  r q  q A  q qqA  q q q 3  r q  q A  q qqA  q q q 3   A  q  q A Qq aaA aarqA  r r q A    q A Qr  3 1 < 6  q 3 1 QAA q A qA A 3 q!!QA A B A B A 4 !A 1 ! !Q r rqaA qqA R! A  A A 1                    ;        |     !         G   =      @=  ?  D    ?  B  e    B  3E      UE  G    1  G  kJ    J  J  M    c  (M  R      JR  Z  B    Z  [      [  &\      Q\  z\      \  ^k      k  n  '    n  4s  H    Ys  y  j     %   e     V   \g d[    U   T     T     T     T     T     T     T     T     T     T   T   T   U  WVW TNAM TZNAM TBNAM WERT%
 T    T    T C  Z
   T    C #75	 * C   \G  I1K wvw
 
 H      T
  CK  T 
      T
  CK  T 
     7 T
  CK  T 
     l T
  CK  T 
      T
  CK  T 
    %  
 T    %  
 T   T   C  %   B     U  WELCHESJAHROLD WELCHESJAHR INDEXI JAHR1 WELCHESJAHRC MYFORM1 KCOMBO VISIBLE FALSE MYCLOSE MYOPEN EIGDAT MUSER DIMEN DIMSATZANZAHLJ1 LOF
 SATZANZAHL JAHR2 DIMSATZANZAHLJ2 JAHR3 DIMSATZANZAHLJ3 JAHR4 DIMSATZANZAHLJ4 JAHR5 DIMSATZANZAHLJ5 SPIN1
 TDBNUMBER1 VALUE	 STARTFLAG TRUE NACHJAHRWECHSELN 
       (e  T CC  Z* .Year&xxx..BackColor = farbenrgb(1+12)
  T CC  Z T CC  Z/ .Year&xxx..BackColor = .Modi&mmm..BackColor
  U  MYFORM1 I XXX INDEXI MMM MODUS)
 H
     C 
 T  
 T         y 
 T  
 T          
 T  
 T          
 T  
 T         
 T  
 T       	  U
  WELCHESJAHR JAHR1 TEMPJAHR WELCHESJAHROLD WECHSELNACH JAHR2 JAHR3 JAHR4 JAHR5
 JAHRESBUTTONS   Tarife   U  TARIFE SCHUTZNACHRICHT
 T   
 T  
 T   T    C dimen	  
 
 T   T C  Z T 
  
 T   T   T    
 T     
 H      T       T      @ T      a T       T     T C
  %  
 T   
 T   %  
 T 
 T 
 T     %  '
 T    T   
 T  
 T   
 T! 1 " ! Cz   Pausch# 
 $    ( %  (1 T&  % C % '     (  )  *  +  ,  %- . /  C 0  ^ T- . /   $ %C  C  1   2   3  4  5  6  U7  MODUSALT MODUS MONATALT MONAT
 FILENEUALT FILENEU DIMEN DIMWELCHESJAHR WELCHESJAHROLD MYPUT	 DIMENSEIN WELCHESJAHR WELCHESJAHRC DIMMONAT ZI DIMMODUS	 DATEIOPEN JAHR1 I DIMSATZANZAHLJ1 JAHR2 DIMSATZANZAHLJ2 JAHR3 DIMSATZANZAHLJ3 JAHR4 DIMSATZANZAHLJ4 JAHR5 DIMSATZANZAHLJ5 LOF
 SATZANZAHL	 NEUERSATZ
 DIMFILENEU SPIN1 REGISTER VOREINSTEIN MYGET PAUSCH J ATVKISTR	 DATVKISTR TITELLEISTE
 SEITELADEN NAMENINCOMBO KOSTENSTELLENINCOMBO ATVVORGABENHOLEN MYFORM1
 TDBNUMBER1 VALUE	 NEUERNAME ALTEREINSTELLENJAHR ATZRCK VORGELAGERTEBESTEUERUNG FARBENZUWEISEN	 STARTBILD
 MODUSKNOPF    (  T    T    T   E T   x T        (Y T    T   , T   ? T   x T        ( T    T    T   K T   x T        ( T    T    T   K T   x T        (f T    T    T   K T   x T        ( T    T   | T   < T   x T        ( T    T   + T   7 T   x T        (s T    T   T T   < T   x T        (" T 	   T 	   T 	  K T 	  x T 	       ( T 
   T 
   T 
  2 T 
  x T 
       ( T    T   @ T   B T   x T        (/ T    T   " T   ; T   x T        ( T 
   T 
  " T 
  ; T 
  x T 
       (	 T    T    T   a T   x T        (;
 T    T    T   ? T   x T   d     (
 T    T   @ T   B T   x T        ( T    T    T   a T   x T        (G T    T   + T   7 T   x T        ( T    T    T   6 T   x T        (
 T    T   " T   4 T   x T        (T T    T   , T   , T   x T        ( T    T    T   : T   x T   x  %C \ 1    ( T    T    T    T   x T        (y T    T    T    T   x T        (' T    T    T    T   x T        ( T    T    T    T   x T        ( T    T    T    T   x T        (1 T    T    T    T   x T        ( T    T    T    T   x T      %C \ 1    ( T    T    T    T   x T        (Y T    T    T    T   x T        ( T     T     T     T    x T         ( T !   T !   T !   T !  x T !        (g T "   T "   T "   T "  x T "       ( T #   T #  n T #   T #  x T #    U  III
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5
 KKVORGABEN^    (  T    T    T   ; T   x T        (Z T    T   h T   ' T   x T        (
 T    T    T   A T   x T        ( T    T    T   A T   x T        (j T    T    T   A T   x T        ( T    T   | T   2 T   x T        ( T    T   + T   7 T   x T        (w T    T   | T   / T   x T        (' T 	   T 	   T 	  A T 	  x T 	       ( T 
   T 
  | T 
  2 T 
  x T 
       ( T    T    T   2 T   x T        (4 T    T    T   ; T   x T        ( T 
   T 
   T 
  ; T 
  x T 
       (	 T    T   ' T   E T   x T        (A
 T    T   J T   0 T   x T        (
 T    T    T   2 T   x T        ( T    T   ' T   @ T   x T        (N T    T   + T   7 T   x T        ( T    T    T   6 T   x T        (
 T    T   " T   4 T   x T        ( T    T    T   " T   x %  l T     T   H      (E T    T   T T   , T   x T   x  %C \ 1%    (
 T    T    T    T   x T        ( T    T    T    T   x T        (i T    T    T    T   x T        ( T    T    T    T   x T        ( T    T    T    T   x T        (s T    T    T    T   x T        (! T    T    T    T   x T      %C \ 1    ( T    T    T    T   x T        ( T    T    T    T   x T        (I T     T     T     T    x T         ( T !   T !   T !   T !  x T !        ( T "   T "   T "   T "  x T "       (W T #   T #  n T #   T #  x T #    U  III
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5
 KKVORGABEN/    (  T    T    T   , T   x T        (\ T    T   | T   * T   x T   
     ( T    T    T   2 T   x T   ^     ( T    T    T   A T   x T        (l T    T    T   2 T   x T   ^     ( T    T   ^ T   - T   x T        ( T    T   ! T   - T   x T   +     (z T    T    T   + T   x T        (* T 	   T 	   T 	  2 T 	  x T 	  ^     ( T 
   T 
  | T 
  2 T 
  x T 
       ( T    T    T   , T   x T        (9 T    T    T   1 T   x T        ( T 
   T 
   T 
  1 T 
  x T 
       (	 T    T   ' T   , T   x T   6     (G
 T    T   J T   ( T   x T        (
 T    T    T   , T   x T        ( T    T   ' T   , T   x T   6     (W T    T   ! T   - T   x T   +     (
 T    T    T   " T   x T   I     (
 T    T    T    T   x T        (g T    T    T   ! T   x T   z     ( T    T    T   , T   x T     %C \ 1    ( T    T    T    T   x T        ( T    T    T    T   x T        (9 T    T    T    T   x T        ( T    T    T    T   x T        ( T    T    T    T   x T        (C T    T    T    T   x T        ( T    T    T    T   x T      %C \ 1    ( T    T    T    T   x T        (k T    T    T    T   x T        ( T     T     T     T    x T         ( T !   T !   T !   T !  x T !        (y T "   T "   T "   T "  x T "       (( T #   T #  n T #   T #  x T #    U  III
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5
 KKVORGABEN<    (  T    T    T   , T   x T   +     (\ T    T   | T   * T   x T   
     ( T    T    T   / T   x T   ^     ( T    T    T   / T   x T   ^     (i T    T    T   / T   x T   ^     ( T    T   ^ T   2 T   x T   H     ( T    T   ! T   - T   x T   I     (y T    T   J T   + T   x T   *     (( T 	   T 	   T 	  / T 	  x T 	  ^     ( T 
   T 
  , T 
  2 T 
  x T 
  *     ( T    T    T   , T   x T   +     (7 T    T    T   ; T   x T        ( T 
   T 
   T 
  ; T 
  x T 
       (	 T    T   ' T   , T   x T   6     (F
 T    T    T   + T   x T   !     (
 T    T    T   , T   x T   +     ( T    T   ' T   , T   x T   6     (V T    T   ! T   - T   x T   I     (
 T    T    T   * T   x T   I     (
 T    T    T   ' T   x T   @     (f T    T    T   , T   x T   z     ( T    T   @ T   , T   x T   
  %C \ 1    ( T    T    T    T   x T   "     ( T    T    T    T   x T   "     (= T    T    T    T   x T   "     ( T    T    T    T   x T   "     ( T    T    T    T   x T   "     (J T    T    T    T   x T   "     ( T    T    T    T   x T   "   %C \ 1    ( T    T    T    T   x T   "     (u T    T    T    T   x T   "     ($ T     T     T     T    x T    "     ( T !   T !   T !   T !  x T !  "      ( T "   T "   T "   T "  x T "  "     (5 T #   T #  P T #   T #  x T #    U  III
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5
 KKVORGABEN<    (  T    T    T   , T   x T   +     (\ T    T   | T   * T   x T   
     ( T    T    T   / T   x T   ^     ( T    T    T   / T   x T   ^     (i T    T    T   / T   x T   ^     ( T    T   ^ T   2 T   x T   H     ( T    T   ! T   - T   x T   I     (y T    T   J T   + T   x T   *     (( T 	   T 	   T 	  / T 	  x T 	  ^     ( T 
   T 
  , T 
  2 T 
  x T 
  *     ( T    T    T   , T   x T   +     (7 T    T    T   ; T   x T        ( T 
   T 
   T 
  ; T 
  x T 
       (	 T    T   ' T   , T   x T   6     (F
 T    T    T   + T   x T   !     (
 T    T    T   , T   x T   +     ( T    T   ' T   , T   x T   6     (V T    T   ! T   - T   x T   I     (
 T    T    T   * T   x T   I     (
 T    T    T   ' T   x T   @     (f T    T    T   , T   x T   z     ( T    T   @ T   , T   x T   
  %C \ 1    ( T    T    T    T   x T   "     ( T    T    T    T   x T   "     (= T    T    T    T   x T   "     ( T    T    T    T   x T   "     ( T    T    T    T   x T   "     (J T    T    T    T   x T   "     ( T    T    T    T   x T   "   %C \ 1    ( T    T    T    T   x T   "     (u T    T    T    T   x T   "     ($ T     T     T     T    x T    "     ( T !   T !   T !   T !  x T !  "      ( T "   T "   T "   T "  x T "  "     (5 T #   T #  P T #   T #  x T #    U  III
 KVBEITRAG1
 KVBEITRAG2
 KVBEITRAG3
 KVBEITRAG4
 KVBEITRAG5
 KKVORGABENz$ %C/  !
 C/  "  %C5  

l 3 T  &CC/       3 T  &CC/        
 H  C5    %CC&  G T  &C&    C5  ` %CC&  G \ T  &C&    C5   T  & C5   T  &{ C5   T  &z C5    T  &~ C5  ( T  & C5  P T  &| C5  x T  &} C5  	 T  &  %C  s
 Ho C   G
 H CC    T  &z  %C	  C T  &{  C  o T  &{   U  ZI GETKVBEITRAG MONAT   
   T  C  T  C  T   A T   T  	  T 
 c  (= T CC  Z .bru&xxx..FontBold = True 
$ %C
  C
 
 H  C    1 .bru&xxx..Caption = "A"
 C   b .bru&xxx..Caption = "B"
 C    .bru&xxx..Caption = "C"
 C    .bru&xxx..Caption = "D"
 C    .bru&xxx..Caption = "E"
 C   & .bru&xxx..Caption = "F"
 C   W .bru&xxx..Caption = "a"
 C    .bru&xxx..Caption = "a"
 C    .bru&xxx..Caption = "b"
 C    .bru&xxx..Caption = "c"
 C   	 .bru&xxx..Caption = "d"
 C   
L .bru&xxx..Caption = "e"
 C   } .bru&xxx..Caption = "f"
 C    .bru&xxx..Caption = "g"
   T    .bru&xxx..Caption = 0
 
 H9$ C 

 C 	9   T  T   f T  T   f T  T   a T  C  T  C  T  C  T  C  T  C  T  C  T  C  T 
  T 
  T 
  T 
  T 
  T 
  %C
  T
 #  %C
  T
 #	   U  ALTERUEBERTRAG MYFORM1
 SSCOMMAND2	 BACKCOLOR QBCOLOR	 FORECOLOR CAPTION WIDTH FONTBOLD TRUE MOUSEPOINTER I XXX ZI BRUZ BRU15 BRU16 BRU19 BRU11 BRU12 BRU13 BRU14 BRU7 BRU8 BRU9 BRU10 BRU17@	 4    T CC   Z T CC  Z T   T   T  
 T   %   
      
 C 	 + C   \G  I12P wvw
 + C   \G  p12Q wvw
 + C   \G  r12R wvw
 * C   \G  I1S wvw
 * C   \G  p1T wvw
 * C   \G  r1U wvw
 7 C 
 \texte\MytextC \^ woerter
 7 C 
 \texte\MytextC \_ woerter
  %
  E
 T  
 T   9
 T 
 Hg     T  j1     T  j2     T  j3     T  j4     T  j5 . wechselende = Dimen.dimsatzanzahl&jextent 
 > C   \G  i13.*   \G  i13.* > C   \G  p13.*   \G  p13.* > C   \G  r13.*   \G  r13.* + C   \G  i13V wnw
 + C   \G  p13W wnw
 + C   \G  r13X wnw
    (  CP   wvw    %C   ! T  C    CS   wvw  CV   wnw  CV   wnw  CQ   wvw    %C   ! T  C    CT   wvw  CW   wnw  CW   wnw  CR   wvw    %C   &! T  C    CU   wvw  CX   wnw  CX   wnw  C^  woerter  C_  woerter  T     
 C 	 
 T  
 T   T  CC  Z !  "  #  (    (Y ! 
 T #  T$  
 T%  &  C
   wnw 
   '  (7  T ' C' (   
 H- C   - T `M/  T `M/   T$   )  *  +  I T, - .  Satz CC# 
 Z  von CC 
 Z  Stzen.
 T    %
  

 T   T$  
 T% 
 T  
 T/   0  1 
 T2  3  4  U5  HSWVON HSWNACH HSXVONC HSXNACHC BETRAG MODUSALT MODUS WELCHESJAHR WECHSELNACH MYCLOSE MYOPEN EIGDAT MUSER MYINDEXE
 WECHSELANFANG FILENEU WECHSELENDE JAHR1 JEXTENT JAHR2 JAHR3 JAHR4 JAHR5 FILECOPY I MYGET
 BETRAGNULL WVW ZNAM MYPUT WOERTER TEXTEE WELCHESJAHRC	 DATEIOPEN VOREINSTEIN IIII ZI MONAT WVWIN TASTE0 TNAM
 KV_BEITRAG
 BERECHNUNG
 FOLGEMONAT MYFORM1 TIP CAPTION WELCHESJAHROLD DIMENAUS JAHRWECHSELN INDEXI
 JAHRESBUTTONS NEUDURCHRECHNENU 4  
 H      4  T  j1    T  T  j2    t  T  j3      T  j4      T  j5 3 If satzanzahl > Dimen.dimsatzanzahl&jextent, satzanzahl = Dimen.dimsatzanzahl&jextent
    T :
 T	    T
 	   U  HSWNACHJAHR JAHR1 JEXTENT JAHR2 JAHR3 JAHR4 JAHR5 DIMENAUS	 EINMAL300 WELCHESJAHROLD KIZU JAHRWECHSELN %C	     B  %  C 
	 %C	   
 H[  C	    
 T  
 T   C	   
 T   C	   
 T  C	   
 T  C	  
 T  C	  4
 T  C	  V
 T  C	  x
 T  C	  
 T 
 T   C	  	
 T 
 T   C	  

 T 
 T   C	  4
 T 
 T   C	  c
 T 
 T   C	  

 T 
 T   C	  
 T   C	  
 T   C	  
 T   
 H	  H5 <    J        (  % ! T      0@! T      0@! T      0@! T      |@! T      r@! T      Y@! T         ! T         ! T      }@! T      }@! T      }@! T      v@! T      h@! T         ! T         ! T         ! T      x@! T      x@! T      x@! T       q@! T      @W@! T         ! T         ! T         ! T      pt@! T      pt@! T      pt@! T      `g@! T         ! T         ! T         ! T         ! T       p@! T       p@! T       p@! T      X@! T         ! T         ! T         ! T         ! T      g@! T      g@! T      g@! T       (@! T         ! T         ! T         ! T         ! T      ]@! T      ]@! T      ]@! T         ! T         ! T         ! T         ! T         ! T      V@! T      V@! T      V@! T         ! T         ! T         ! T         ! T           % ! T      H@! T      H@! T      H@! T      p@! T      Ј@! T      @! T      @x@! T         ! T      @! T      (@! T      (@! T      @! T      @! T      `~@! T       n@! T         ! T      ȋ@! T      ȋ@! T      ȋ@! T      @! T      H@! T      w@! T       W@! T         ! T      @! T      @! T      @! T      8@! T       ~@! T      p@! T         ! T         ! T      p@! T      p@! T      p@! T      @! T      `w@! T       c@! T         ! T         ! T      @@! T      @@! T      @@! T      @! T      Pq@! T      E@! T         ! T         ! T      @! T      @! T      @! T      `z@! T      `f@! T         ! T         ! T         ! T      8@! T      8@! T      8@! T      v@! T      V@! T         ! T         ! T           % E! T      8@! T      8@! T      8@! T      @! T      x@! T      @@! T      s@! T         ! T      Ћ@! T      Ћ@! T      Ћ@! T      X@! T      0@! T      y@! T      d@! T         ! T      p@! T      p@! T      p@! T      @! T      @! T      r@! T       1@! T         ! T      @@! T      @@! T      @@! T      @! T      Py@! T      g@! T         ! T         ! T      @! T      @! T      @! T      (@! T      r@! T      @S@! T         ! T         ! T      @! T      @! T      @! T      z@! T      @i@! T         ! T         ! T         ! T      @! T      @! T      @! T      u@! T       Z@! T         ! T         ! T         ! T      @! T      @! T      @! T       r@! T       0@! T         ! T         ! T           % $! T      @! T      @! T      @! T      h@! T      Ȅ@! T       }@! T      0p@! T         ! T       @! T       @! T       @! T      @! T      @! T      @v@! T      [@! T         ! T      @! T      @! T      @! T      @! T      |@! T      n@! T         ! T         ! T      @! T      @! T      @! T      0@! T      u@! T      `@! T         ! T         ! T      h@! T      h@! T      h@! T      |@! T      n@! T       7@! T         ! T         ! T      8@! T      8@! T      8@! T      pw@! T      `b@! T         ! T         ! T         ! T       ~@! T       ~@! T       ~@! T      Pr@! T       I@! T         ! T         ! T         ! T      `|@! T      `|@! T      `|@! T       m@! T         ! T         ! T         ! T           % ,! T      ؊@! T      ؊@! T      ؊@! T      @! T      @! T      y@! T      i@! T         ! T      p@! T      p@! T      p@! T      @! T      @! T      r@! T       L@! T         ! T      @! T      @! T      @! T      8@! T       y@! T       h@! T         ! T         ! T      @! T      @! T      @! T       @! T      r@! T      @T@! T         ! T         ! T      @! T      @! T      @! T      y@! T      g@! T         ! T         ! T         ! T      @! T      @! T      @! T      t@! T      @W@! T         ! T         ! T         ! T      z@! T      z@! T      z@! T      m@! T         ! T         ! T         ! T         ! T      x@! T      x@! T      x@! T      `f@! T         ! T         ! T         ! T           % D5! T      p@! T      p@! T      p@! T      P@! T      @! T      x@! T       h@! T         ! T      @! T      @! T      @! T      @! T      ~@! T       r@! T       F@! T         ! T      @! T      @! T      @! T      ؁@! T      `x@! T      f@! T         ! T         ! T      @! T      @! T      @! T      @~@! T      q@! T       Q@! T         ! T         ! T      P@! T      P@! T      P@! T      x@! T      `f@! T         ! T         ! T         ! T      P~@! T      P~@! T      P~@! T      @s@! T      @T@! T         ! T         ! T         ! T      y@! T      y@! T      y@! T      @l@! T         ! T         ! T         ! T         ! T      0x@! T      0x@! T      0x@! T      d@! T         ! T         ! T         ! T            y <    J        (  % @! T      @r@! T      `p@! T      q@! T      `l@! T      `@! T      @c@! T      A@! T         ! T 	        ! T 
        ! T         ! T      l@! T      h@! T      i@! T      b@! T       L@! T       X@! T         ! T         ! T 	        ! T 
        ! T         ! T      @e@! T      `@! T      ``@! T      R@! T         ! T        @! T         ! T         ! T 	        ! T 
        ! T         ! T      [@! T      @Q@! T      N@! T       @! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T       L@! T       @! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T       7@! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T           % >L! T      p@! T      @! T      Њ@! T      @! T       @! T      @! T      @! T      Pz@! T 	     @X@! T 
     y@! T      `i@! T      @! T      @! T      h@! T      @! T      @! T      @! T      @! T      ps@! T 	        ! T 
     r@! T      K@! T      @! T      @! T      @! T      @@! T      X@! T      8@! T       y@! T      @i@! T 	        ! T 
      h@! T         ! T      @! T      @! T      @! T      @! T      P~@! T       @! T      r@! T      V@! T 	        ! T 
      T@! T         ! T      @! T      @! T      @! T      @! T       z@! T      y@! T      @h@! T         ! T 	        ! T 
        ! T         ! T      @! T      0@! T      @! T      {@! T       t@! T      @W@! T         ! T 	        ! T 
        ! T         ! T      H@! T      }@! T      z@! T       w@! T      Pq@! T      m@! T         ! T         ! T 	        ! T 
        ! T         ! T      0@! T      |@! T      x@! T      `u@! T       o@! T      `f@! T         ! T         ! T 	        ! T 
        ! T           % W! T      @! T      @! T      @! T      Ї@! T      @! T      p@! T      Ё@! T      w@! T 	     L@! T 
     0w@! T      d@! T      @! T      @! T      (@! T      h@! T      x@! T      @! T       }@! T       q@! T 	        ! T 
     Pp@! T       0@! T      @! T      @! T      Ȅ@! T      @! T      @! T      @! T      v@! T      @d@! T 	        ! T 
      c@! T         ! T      @! T      @! T      @! T      ؀@! T      {@! T      |@! T      p@! T       I@! T 	        ! T 
      D@! T         ! T      0@! T      @! T      x@! T      `}@! T      w@! T       w@! T      b@! T         ! T 	        ! T 
        ! T         ! T       @! T      {@! T      |@! T       y@! T       s@! T      q@! T      J@! T         ! T 	        ! T 
        ! T         ! T      ~@! T      0z@! T      @x@! T      t@! T      m@! T      h@! T         ! T         ! T 	        ! T 
        ! T         ! T      ~@! T      py@! T      pv@! T      r@! T       j@! T      `a@! T         ! T         ! T 	        ! T 
        ! T           % c! T      @! T      @! T      @! T      ؄@! T      @! T      x@! T      }@! T      q@! T 	        ! T 
     @q@! T      @Q@! T      @! T      x@! T      0@! T      p@! T       @! T      @! T      0w@! T       f@! T 	        ! T 
     d@! T         ! T      (@! T      x@! T      Ё@! T      @! T      @z@! T       |@! T      p@! T      P@! T 	        ! T 
     L@! T         ! T      ~@! T      |@! T      P@! T      {@! T      u@! T      v@! T      @d@! T         ! T 	        ! T 
        ! T         ! T       {@! T      x@! T       {@! T      pw@! T      q@! T      q@! T       L@! T         ! T 	        ! T 
        ! T         ! T      y@! T      t@! T      v@! T      s@! T      `j@! T      @g@! T         ! T         ! T 	        ! T 
        ! T         ! T      w@! T      @s@! T      Pr@! T      m@! T      a@! T       Z@! T         ! T         ! T 	        ! T 
        ! T         ! T      `w@! T      r@! T      p@! T       j@! T      \@! T       F@! T         ! T         ! T 	        ! T 
        ! T           % n! T      @! T      `@! T       @! T      8@! T      |@! T      @! T      pv@! T      @e@! T 	        ! T 
      d@! T         ! T      }@! T      |@! T      @! T      }@! T      w@! T      @z@! T      o@! T      N@! T 	        ! T 
     I@! T         ! T      y@! T      x@! T      p|@! T      x@! T       s@! T      t@! T      b@! T         ! T 	        ! T 
        ! T         ! T       v@! T      t@! T      x@! T      t@! T      `m@! T      n@! T       G@! T         ! T 	        ! T 
        ! T         ! T      r@! T      p@! T      s@! T      0p@! T      d@! T      c@! T         ! T         ! T 	        ! T 
        ! T         ! T      p@! T      `i@! T      n@! T      g@! T       X@! T      Q@! T         ! T         ! T 	        ! T 
        ! T         ! T       n@! T       f@! T       f@! T       ^@! T       :@! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T      m@! T      d@! T      b@! T       W@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T           % y! T      p{@! T      0{@! T      @! T      }@! T      w@! T      {@! T      q@! T       X@! T 	        ! T 
     U@! T         ! T      w@! T       w@! T      |@! T       y@! T       s@! T      u@! T      f@! T         ! T 	        ! T 
        ! T         ! T      s@! T       s@! T      w@! T      @t@! T      l@! T       p@! T      @S@! T         ! T 	        ! T 
        ! T         ! T      p@! T      @n@! T      ps@! T      o@! T       d@! T      `e@! T         ! T         ! T 	        ! T 
        ! T         ! T      `i@! T      @f@! T      @n@! T       g@! T      V@! T      T@! T         ! T         ! T 	        ! T 
        ! T         ! T      @e@! T      @\@! T      e@! T      \@! T       5@! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T      `b@! T       V@! T      Y@! T       G@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T      a@! T       S@! T      R@! T       2@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T             <    J        (  % ! T      m@! T      Y@! T      w@! T      n@! T      @d@! T       q@! T      @]@! T         ! T 	        ! T 
        ! T         ! T      e@! T      A@! T      r@! T      d@! T       T@! T      f@! T       @! T         ! T 	        ! T 
        ! T         ! T      [@! T         ! T       k@! T       U@! T       ?! T       V@! T         ! T         ! T 	        ! T 
        ! T         ! T      G@! T         ! T       b@! T       &@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T      Q@! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T           % 
! T      @! T      ؄@! T      @! T      ȉ@! T      (@! T      @! T      @! T      ~@! T 	      n@! T 
     @~@! T      p@! T      @! T      @! T      `@! T      @@! T      @! T      @! T      X@! T      w@! T 	     @_@! T 
     w@! T      [@! T      @! T      @! T      @! T       P@! T       @! T      @! T      }@! T      p@! T 	      $@! T 
     o@! T         ! T      @! T       }@! T      @! T      x@! T      @! T       @! T      v@! T      `b@! T 	        ! T 
      a@! T         ! T      (@! T      x@! T      X@! T      0@! T       {@! T      @~@! T       p@! T       >@! T 	        ! T 
      3@! T         ! T      @! T      t@! T      @! T      {@! T      v@! T      x@! T       c@! T         ! T 	        ! T 
        ! T         ! T      ~@! T      r@! T      @! T      @w@! T       r@! T       s@! T       I@! T         ! T 	        ! T 
        ! T         ! T      `~@! T       r@! T      }@! T      `u@! T      0p@! T      n@! T         ! T         ! T 	        ! T 
        ! T           % z! T      X@! T      p@! T       @! T      ؈@! T      8@! T      @! T      ؄@! T      }@! T 	     @j@! T 
     `|@! T      m@! T      X@! T      P@! T      x@! T      P@! T      @! T      ؆@! T      h@! T      u@! T 	      X@! T 
     0u@! T      @T@! T      `@! T      p~@! T      @! T      Ѓ@! T      8@! T      @! T       |@! T      `m@! T 	        ! T 
      l@! T         ! T      `@! T      0z@! T      @! T      @! T      }@! T      @! T      u@! T      ]@! T 	        ! T 
     Z@! T         ! T      0@! T      u@! T      h@! T      ~@! T      Py@! T      p|@! T      @l@! T         ! T 	        ! T 
        ! T         ! T       }@! T      q@! T       @! T      y@! T      t@! T      v@! T       _@! T         ! T 	        ! T 
        ! T         ! T      {@! T      p@! T      }@! T      `u@! T      0p@! T      @q@! T       5@! T         ! T 	        ! T 
        ! T         ! T      @{@! T      n@! T      {@! T      s@! T      l@! T      j@! T         ! T         ! T 	        ! T 
        ! T           % ! T      @! T      @! T      @! T      Ѕ@! T      8@! T      @! T      Ё@! T       w@! T 	     \@! T 
     Pv@! T      a@! T      @! T      {@! T      p@! T      H@! T      @! T      Ѓ@! T      |@! T      o@! T 	        ! T 
     @n@! T         ! T      `@! T      pw@! T      @! T      Ȁ@! T      `|@! T      @! T      u@! T      `a@! T 	        ! T 
      `@! T         ! T      p{@! T      0s@! T      @! T       }@! T      w@! T       |@! T       n@! T       5@! T 	        ! T 
      $@! T         ! T      w@! T      m@! T      `@! T      x@! T      @s@! T      `v@! T      @`@! T         ! T 	        ! T 
        ! T         ! T      u@! T      e@! T      0|@! T      s@! T      `m@! T      p@! T       ;@! T         ! T 	        ! T 
        ! T         ! T       t@! T       b@! T      w@! T      n@! T      @d@! T      f@! T         ! T         ! T 	        ! T 
        ! T         ! T      s@! T      `@! T      u@! T       k@! T      `@! T      @]@! T         ! T         ! T 	        ! T 
        ! T           % M! T       @! T      x@! T      @! T      Ђ@! T      0@! T      @! T      }@! T       q@! T 	      1@! T 
     Pp@! T      E@! T      |@! T      t@! T      h@! T      H@! T      P{@! T      Ȁ@! T      v@! T      c@! T 	        ! T 
     @b@! T         ! T      x@! T      pp@! T      @! T      {@! T      Pv@! T      {@! T      o@! T       E@! T 	        ! T 
      ?@! T         ! T       t@! T      `h@! T      @@! T       w@! T      q@! T      0v@! T       b@! T         ! T 	        ! T 
        ! T         ! T      p@! T      _@! T      z@! T      pr@! T      `j@! T      Pp@! T      @@! T         ! T 	        ! T 
        ! T         ! T      l@! T       N@! T       v@! T      k@! T      @a@! T       e@! T         ! T         ! T 	        ! T 
        ! T         ! T      i@! T      @@! T      q@! T      b@! T      @P@! T      T@! T         ! T         ! T 	        ! T 
        ! T         ! T      @i@! T       5@! T      o@! T      ]@ T ! T       4@! T         ! T         ! T 	        ! T 
        ! T           % ! T      P{@! T      pt@! T      8@! T      @! T      |@! T      @! T       z@! T       k@! T 	        ! T 
     i@! T         ! T      Pw@! T      @p@! T      @! T       }@! T      w@! T       ~@! T      Ps@! T      Y@! T 	        ! T 
     V@! T         ! T      `s@! T       h@! T      0@! T       x@! T      r@! T      `x@! T       i@! T         ! T 	        ! T 
        ! T         ! T      n@! T      @_@! T      {@! T      s@! T      l@! T      r@! T      @V@! T         ! T 	        ! T 
        ! T         ! T      g@! T      L@! T      Pw@! T       n@! T      c@! T      i@! T         ! T         ! T 	        ! T 
        ! T         ! T      @c@! T         ! T      r@! T      d@! T      T@! T      \@! T         ! T         ! T 	        ! T 
        ! T         ! T      @`@! T         ! T      @l@! T      W@! T       $@! T       <@! T         ! T         ! T 	        ! T 
        ! T         ! T      _@! T         ! T      h@! T       P@! T         ! T         ! T         ! T         ! T 	        ! T 
        ! T            % }
 T  
 Hy C  
 T  C  2
 T  C  T
 T  C  v
 T  C  
 T  C  
 T  C  ܿ
 T  C  	
 T  C  
 
 T  C  B
 T  C  d
 T  2y
 T    
 T  
 H C  
 T $ C   C  
 T $ C   C  
 H#B CC
  8F
 CC  8F
	 CC  8F
	r
 T 3 C
  F C  F C  F
 T 3 C
  8 C  8 C  8
 T   C  
 T  C  :
 T  C  	6 %C
  :

 C  :
	
 C  :
	
 T  
 T 	  C  
 T 
 C  
 T  2
 T    
 T 
 H&6 C   H
 T  C  j
 T  C  
 T  C  
 T  C  
 T  C  
 T  C  
 T  C  6
 T    %C     	t T C     d  T           
 H   T	 C	     T	 C	    * T	 C	    V T	 C	     T	 C	     T	 C	    <   U
  ZI WELCHESJAHR MYSONDERZUSCHLAG HSKIANZ HSVHZU HHFAM HHSPALTE HHZEILE HHFAMZUSATZ GRUNDBETRAG
 betragnull,     	 jahraktivQ    
 jahresbuttons     nachjahrwechseln     tarifeeditierenD     jahrwechselny    
 kassen2023
    
 kassen2024&    
 kassen2025>    
 kassen2026BW    
 kassen2027o    
 KV_Beitrag\     altereinstellenjahr     wechsel_von_nachԒ     wechselnach     hhfamzu_2022ϟ    4 aaabaabaa2114  Q  AAAAAA  A  A RA A r A 3  qqB quA 3                 A r 4  r 3    r  Q q r  A  A     q A  A    r  qqA A A q r q q q rq  1A Bq  q A r q q q 1 sA sA sA sA sA sA sA sA sA sA sA tA sA sA sA sA tA sA sA sA sA sA rA sA sA sA sA sA sA A rA sA sA sA A sA sA 4 sA sA sA sA sA sA sA sA sA sA sA tA sA sA sA sA tA sA sA sA s A A sA rA sA sA sA sA sA sA A rA sA sA sA A sA sA 4 sA sA sA sA sA sA sA sA sA sA sA tA sA sA sA sA tA sA sA sA sA sA rA sA sA sA sA sA sA A rA sA sA sA A sA sA 4 sA sA sA sA sA sA sA sA sA sA sA tA sA sA sA sA tA sA sA sA sA sA rA sA sA sA sA sA sA A rA sA sA sA A sA sA 4 sA sA sA sA sA sA sA sA sA sA sA tA sA sA sA sA tA sA sA sA sA sA rA sA sA sA sA sA sA A rA sA sA sA A sA sA 4 CR1 1A  B  QA QA Q1Q1Q1Q1Q1Q1Q1Q1A R Q 1A Q1A S1A A 4 r  QQ!rqG aaaaaaaaaaaaaaA  1A  AB A 2!2!2!VSSSQRSU1A R1A A 6  rq211 " B  sq          A B tqq A rrqsq A rrqtq A rrq1B    qr r rqq  1 q q qA A  aaD 3r r q A  A ! A 2   q q  q r 3 q       A 2A r    r 3 QA A Q Q  Q Q Q Q Q Q Q Q  Q  Q  Q  Q  Q  Q R R A  0!q 1QA A A A A A "q 1QA A A A A A "q 1QA A A A A A B !  Q Q Q Q Q Q Q Q Q Q Q   A    Q A A ! 1 1 A Q Q Qa   A Q Q   A A   Q Q Q Q Q Q Q Q A  QA C  A q A 2                    5   %        G       3   &    G   =   B    \   U       x   X   8  +        7  U  ,    U  t  q    1t        /  	      ,    D    )                    A	  }  %  /  	    T   
     %   -     gI   '0  On[    U  
     % 900 
 T   B   %   C p  T  C    T  T   T     %C    T   	  T 
  T   U  MYFORM3 I BRUCH VALUE WERT MOUSEPOINTER VISIBLE FALSE WERTOLD
 SPALTENFLLEN TRUES 
   L  % '/  T    H  T      U  MYFORM3 REGISTER
 SSCOMMAND7 VISIBLE FALSE TRUE
 T    (
`   (\ ! T        ( C     wvw 
   % $ %C5	  * T
 C C 
 d  ' T
 C C   D T
 C   T
 C  T
 C  T
 C  T
 C  T
 C  T
 C  T
 C  T
 	C	  T
 
C
  T
 C  T
 C  T
 
C
  T
 C  T
 C  T
 C  T
 C  T
 C  T
 C  T
 C ( T
 
CC%  
 T
 C  %C"   T
 C#   T
    %C 

 T
 C   %C/ 

 T
 C0   T
  * T
  C  C C ! T
 !C! C  T
 "C"  %C"  
 T
 #C#   T
 #   T
 $C$  T
 %C%  T
 &C&  T
 'C'  T
 (C(  T
 )C)  T
 *C* * T
 +C+ C, C-  T
 ,C   T
 -C   T
 .C   T
 /  T
 0  %CC(  R 1 %C  

f" T
 /C/
 C    %C/  

" T
 0C0
 C      %CC)  R 1V %C/  

" T
 /C/
 C0   R %C/  

N" T
 0C0
 C0       *(, %CC    R 1& T
 /C/
 C      %   k% T
 1C#     T CC1
 G % D T
 1CC1
   g T
 1CC1
     T
 1  5 T
 0C0
 C  C  C1
  T  C  P T  C  C
 C	
 C

 C
 C
 H T  C  C
 C
 C
 C
 H T  C  C
 C
 C
 C
 0 T  C  C
 @ T  C  C"
 C$
 C%
 ` T  C  C&
 C'
 C(
 C)
 C*
 C-
 C.
 8 T  C 	 C#
 C
 0 T  	C 	 C+
 $ %C5	  C	 	} T  
C 
 C  C  C  C  C 	 CC.
  s T  
C 
 C  C  C  C  C 	  8 T  C  C
 C
 0 T  C  C
 H T  
C 
 C
 C
 C
 C
 0 T  C  C 
 P T  C  C
 C
 C
 C!
 C,
 d T  C  C  C 
 C  C  0 T  C  C
 0 T  C  C/
 0 T  C  C0
 d T  C  C  C  C  C   % %    Monate einzeln  (
{  (w % >7 T  C  C    % 7 T  C  C    % 7 T  C  C    % "7 T  C  C    % n7 T  C  C    % 7 T  C  C    % 7 T 	 C	  C    % 	R7 T 
 C
  C	    % 
7 T  C  C
    % 7 T  C  C    % 67 T 
 C
  C    % 
s( T  C
        (  (; T  C  C      
 T    U 	 JAHRESTAB I J SICHT MONATE MYGET
 NAMENSFILE WVW WELCHESJAHR ZI SICH EFFZ EFFZAHL ZUSATZKV FIX ZNAM TNAM SCHLSS WNW ZUMLAGE3 TRUE
 INSOLVENZGELD HS_REST COLON MYFORM3
 SSCOMMAND4 CAPTION9 4   %Ct % 
 T     
 T   (
   (* ! T        (7  T   T      (J C   	  wvw 
 
 F %C'
  G T      T
  C

    T  C
    T  C
    T  C
    T  C
    T  C
    T  C
    T  C
 ) T  CCCC
   R  (7" %C  C  
  
 T  C  
   T     & T  C d& T  C	 d& T  C
 d& T  C d& T  C d& T  C
 d& T  C d& T  C d& T  	C d& T  
C d& T  C d& T  C d& T  
C d& T  C  d& T  C  d %C
  

S& T  C  d & T  C  d& T  C  d& T  CB  d& T  C  d, T  C"  ! d, T  C$  " d, T  C%  # d& T  C&  d& T  C'  d& T  C(  d& T  C)  d& T  C*  d& T  C#  d& T  C+  d& T  C,  d& T   C-  d$ %C5$  C$ 	?' T  !C.  d+ T  "C  d & T  !C.  d0 T  "C C d  %C/
  

& T  'C0  d  %C
 % /	4 T  (C5  C  C    %C
 % |	1 T  (C ( C&   %C
 % 	1 T  (C ( C&   %C
 % 
1 T  (C ( C
&   %C
 % c
1 T  (C ' C&   %C
 % 
1 T  (C ( C&  , T  (C ( d" T  )! d" T  *" d" T  +# d   T
 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
  %C  Y %C'  OU% %' ( )  Monate einzeln<
 T* +  Q
 T* ,     %* + 8
  (   (*L T   C   CC   T     (*4
- T  CC
  T  
   (*
 T     (
@ T  C  CC   T   
 T    (72
 H. C  4 T-     C  ! %C$ C   T-   ab Feb.   T-      C  ! %C$ C   T-   ab Mrz   T-      C  ! %C$ C  q T-   ab Apr.   T-      C  ! %C$ C   T-   ab Mai   T-      C  w! %C$ C  X T-   ab Juni  s T-      C  ! %C$ C   T-   ab Juli   T-      C  _! %C$ C  @ T-   ab Aug.  [ T-      C  	! %C$ C   T-   ab Sep.   T-      C  
G! %C$ C  ( T-   ab Okt.  C T-      C  ! %C$ C   T-   ab Nov.  T-      C  .! %C$ C   T-   ab Dez.  * T-        U.  HSXMODUS	 JAHRESTAB I J SICHT JAHR SICH MONATE MYGET
 NAMENSFILE WVW ZNAM VERGGRUPPEHOLEN BGRUPPE ALTERSSTUFEHOLEN BSTUFE OZSTUFEHOLEN BOZ
 EHEGATTEHOLEN BEHE
 VOLLZEITHOLEN BVOLL	 TAGEHOLEN BTAGE KASSENHOLEN BKASSE KVBEITRAGHOLEN BBEITRAGSATZ BKOST ZT27 K EFFZ TNAM	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR ZI LEI TBNAM MYFORM3
 SSCOMMAND4 CAPTION DBB FALSE TRUE VORSPANNX
 T    (
`   (*\ ! T        (4  T   T      (5 T    C     wvw 
 	 1 %C'	 
 ; T      T  C
  
  T  C
    T  C
    T  C
    T  C
    T  C
    T  C
    T  C
 ) T  CCCC	 
  R  (4" %C  C  	 
 
 T  C  	 
  T     & T  C d& T  C	 d& T  C
 d& T  C d& T  C d& T  C
 d& T  C d& T  C d& T  	C d& T  
C d& T  C d& T  C d& T  
C d& T  C d& T  C d %C	 
 

G& T  C d & T  C d& T  C d& T  CB d& %C
 
 C
 	& T  C d 7& T  C d  %   %C5! ' T  C d ' T  C d  & T  C d & T  C d& T  C d& T  C d& T  C  d0 T  C! C d- T  CC  T& T  C d- T  CC  T %C#! q& T  C# d  T     %C	 
 
 %CC(	 " R 1" T  C    %C/	 
 
e	 %CC)	 " R 1a	1 T  C  C0   , T  C  d %CC*	 " R 1	" T  C+   %CC+	 " R 1(
1 T  C  C,   %CC,	 " R 1{
1 T  C  C-  , T  C  d& T  C d& T   C d- T   CC   T9 T  !C C C d& T  "C d& T  #C d& T  $C d %# $ % / T  )C#	  &  # T' CC ) G %' < T  )CC ) ( d{Gz? 0 T  )CC ) ( d   T  )  & T  'C0 d %  0 %C5! 
* %    
		   
P T  *C  d) CC* ddd 
< T  *C  d) dd  ,- T  *C d   %C	 + 4 T  (C5 C C   %C	 + 1 T  (C ( C,   %C	 + 1 T  (C ( C,   %C
	 + g1 T  (C ( C
,   %C	 + 1 T  (C ( C,   %C	 + 1 T  (C ( C,  , T  (C ( d   T 
   T 
   T 
   T 
   T 
   T 
   %- .   (:   ()6L T   C   CC   T     ()- T  CC
  T  !   () T     (@ T  C  CC   T     (
T T  %   (@ T  %C % CC   T < T  %C % CC * Td T  %C % CC " TCC ! TCC   T   (
 T  &C  C  C  C % C # C $ C )  
 T     (4Q
 H&M C  R T/     C  ! %C! C   T/   ab Feb.   T/      C  :! %C! C   T/   ab Mrz  6 T/      C  ! %C! C   T/   ab Apr.   T/      C  !! %C! C   T/   ab Mai   T/      C  ! %C! C  v T/   ab Juni   T/      C  	! %C! C   T/   ab Juli   T/      C  }! %C! C  ^ T/   ab Aug.  y T/      C  	! %C! C   T/   ab Sep.   T/      C  
e! %C! C  F T/   ab Okt.  a T/      C  ! %C! C   T/   ab Nov.   T/      C  M! %C! C  . T/   ab Dez.  I T/        U0 	 JAHRESTAB I J SICHT JAHR SICH MONATE MYGET
 NAMENSFILE WVW ZNAM VERGGRUPPEHOLEN BGRUPPE ALTERSSTUFEHOLEN BSTUFE OZSTUFEHOLEN BOZ
 EHEGATTEHOLEN BEHE
 VOLLZEITHOLEN BVOLL	 TAGEHOLEN BTAGE KASSENHOLEN BKASSE KVBEITRAGHOLEN BBEITRAGSATZ BKOST ZT27 K EFFZ TNAM WELCHESJAHR ZI SCHLSS WNW ZUMLAGE3 TRUE
 INSOLVENZGELD HS_REST FIX ZUSATZKV EFFZAHL LEI TBNAM DBB FALSE VORSPANN[
 H
 0 C    3  T  I C   Z  T  Ia C     T  Ib C     T  IIa C     T  IIb C     T  III C   ! T  IVa C   I T  IVb C   p T  Va C   	 T  Vb gD C   
 T  Vb mD C    T  Vc C    T  VIa C   
; T  VIb C   c T  VII C    T  VIII mD C    T  VIII eD C    T  IXa C   
 T  IX C   0 T  X $ T 
CC
   C  U  WVW ZNAM MSG1 BGRUPPE
 H
   C!   	
?  T CC!   Z C!   
v  T CC!   Z C!   "
  T CC!   Z C!   !  T CC!   "Z 
 H + C!     C!   	= T 
 I / C + C!   	 C!   	 T 
 II / C + C!    C!   !	 T 
 III / C + C!   " C!   .	 T 
 IV / C  C!   /E T 
 V C!   0r T 
 VI C!   1 T 
 P 20 % C!   2 T 
 P 25 % C!   5 T 
 2% / 0 % C!   6; T 
	 0 % / 2 % C!   4h T 
 NV C!   3 T 
 lt.Eing.  U  WVW ZNAM MSG BEHE  U    U    U    U    U  
 H
 b C     C   	" C    C    	 C   $
 H|  C      T 
 ledig C     T 
 verh. C   
 T 
 vh. 1K C   > T 
 vh. 2K C   o T 
 vh. 3K C    T 
 vh. 4K C    T 
 vh. 5K C    T 
 vh. 6K C   3 T 
 ld. 1K C   	d T 
 ld. 2K C   
 T 
 ld. U C    T 
 lt.Eing. C    T 
 OZ 1K C   
' T 
 OZ 2K C   W T 
 OZ 3K C    T 
 OZ 4K C    T 
 OZ 5K C    T 
 OZ 6K C    T 
 k.D. + C    C   		
 HR C     T 
 ohne C    T 
 1 K. C    T 
 2 K. C    T 
 3 K. C   = T 
 4 K. C   l T 
 5 K. C    T 
 6 K. + C   
 C   	
 H C    
 T 
 lt.Eing. C   : T 
 keine C   i T 
 1 K. C    T 
 2 K. C    T 
 3 K. C    T 
 4 K. C   % T 
 5 K. C   T T 
 6 K. C    T 
 k.A. + C   ! C   #	( T 
 SZ C     Kia C    C   " C    C   	 C   $R T 
 kein C   % %C     T 
 led  T 

 Vh.Zuschl.   T C
  U  WVW ZNAM BOZ MSG3 
 H
   C    q L T 
CCC     Z /CCC     Z C    / T 
CCC   C    Z CC     T 
 ATZ  U  WVW ZNAM BTAGE TNAM7,
 H
 , C    U T 
 A
 HF 1 CC     7 T 
CC
   CCC    Z C    $ T 
CC
    5e C   $ T 
CC
    6e C   P$ T 
CC
    5m+ C    C   	3 T 
CC
   CCC    Z C   	$ T 
CC
    9m C   
'% T 
CC
    10m C   c$ T 
CC
    9g C   % T 
CC
    10g C   
$ T 
CC
    11 C   $ T 
CC
    12 C   U% T 
CC
    13g C   % T 
CC
    13h C   % T 
CC
    13h+ C    C   	17 T 
CC
   CCC    Z  %C Q    C   . T 
 B CCC    Z C   . T 
 C CCC    Z C   '. T 
 W CCC    Z C   m. T 
 R CCC    Z C    T 
 Anw. 
 Ha C     T  e.D. C    T  m.D. C   % T  g.D.+ C    C   	a T  h.D. $ T 
CC
   C + C    C   	. T 
 F CCC    Z C   

 H+ C     C   	b0 T 
 EG. CCC    Z C    T 
 EG. 9b C    T 
 EG. 9a+ C    C   	0 T 
 EG. CCC    Z C   P T 
 EG. 2 C    T 
 EG. 15 C    T 
 a.t.   C   `

 H\
+ C     C   	6	0 T 
 EG. CCC    Z C   g	 T 
 EG. 2 C   	 T 
 EG. 15 C   	 T 
 EG. 9c C   	 T 
 EG. 9b C   ,
 T 
 EG. 9a C   \
 T 
 a.t.  O C    C   " C    C   	
 H
+ C     C   	0 T 
 EG. CCC    Z C   H T 
 EG. 2 C   z T 
 EG. 15 C    T 
 a.t.   C   

 H
+ C     C   	 % 
@0 T 
 EG. CCC    Z  %C   y T 
 EG. 9a 0 T 
 EG. CCC    Z   C    T 
 a.t. C   
 T 
 EG.15 C   J
 T 
 EG.13 C   {
 T 
 EG. 2 C   
 T 
 EG. 9b  C   

 H
 C     T 
 P 16 C   3 T 
 P 15 C   b T 
 P 14 C    T 
 P 13 C    T 
 P 12 C    T 
 P 11 C    T 
 P 10 C   L T 
 P 9 C   z T 
 P 8 C   	 T 
 P 7 C   
 T 
 P 7X C    T 
 P 7x C   4 T 
 P 6 C   
c T 
 P 6X C    T 
 P 5  CC   
 H C     T 
 EG.12a C     T 
 EG.11b C   Q T 
 EG.11a C    T 
 EG.10a C    T 
 EG.9d  C    T 
 EG.9c C    T 
 EG.9b C   C T 
 EG.9a C   t T 
 EG.8a  C   	 T 
 EG.7a C   
 T 
 EG.7a C    T 
 EG.7a C   5 T 
 EG.4b  C   
e T 
 EG.4a C    T 
 EG.3a C    T 
 EG.A I C    T 
 EG.A II C   + T 
 EG.A III C   ] T 
 EG.A IV C    T 
 EG.1 C    T 
 a.t.  C   m
 Hi+ C     C   	?0 T 
 EG SCCC    Z C   q T 
 EG S16 C    T 
 EG S13 C    T 
 EG S12 C    T 
 EG S11 C   8 T 
 EG S8b C   i T 
 EG S8a  C    T 
 KR 
 H C     T  17 C    T  16 C    T  15 C   D T  14 C   k T  13 C    T  12 C    T  11 C    T  10 C    T  9 C   	, T  8 C   
R T  7 C   x T  6 C    T  5 $ T 
CC
   C  C   	 T 
 EG S
 H C    ) T  18 C   P T  17 C   w T  16 C    T  15 C    T  14 C    T  13 C    T  12 C   ; T  11b C   c T  11a C   	 T  9 C   
 T  8b C    T  8a C    T  7 C   
# T  4 C   I T  3 C   o T  2 C    T  13 $ T 
CC
   C  C   F
 HB CC     T 
  1 CC   	N T 
  2 CC   
 T 
  3 CC    T 
  4 C    T 
 Arzt C   
 T 
 Facharzt C   M T 
 Oberarzt C   ~ T 
 Stv.CA C    T 
 EG I C    T 
 EG II C    T 
 Chefarzt C   B T 
 stv. CA  CC    T 
 B/L    C    T 
 VKA    C   g! T 
 KR 
 H?! C     T  I C   > T  II C   f T  III C    T  IV C    T  V C    T  Va C     T  VI C   )  T  VII C   R  T  VIII C   	y  T  IX C   
  T  X C     T  XI C     T  XII C   
! T  XIII C   ?! T  XIV $ T 
CC
   C  C   !Y$ T 
 LG. 
 H!1$ C    ! T  1 C   ! T  1a C   " T  2 C   =" T  2a C   c" T  3 C   " T  3a C   " T  4 C   " T  4a C   " T  5 C   	$# T  5a C   
J# T  6 C   q# T  6a C   # T  7 C   
# T  7a C   # T  8 C   $ T  8a C   1$ T  9 $ T 
CC
   C  C   "% T 
 LGr.F 
 H$}%+ C     C   	$ T  4+ C    C   		
% T  4a+ C   
 C   
	C% T  5+ C    C   	}% T  5a  T 
CC
 C  C   #y& T 
 LGr.F 
 H%Q&+ C     C   	& T  4+ C    C   		Q& T  4a $ T 
CC
   C  C    &0 T 
 AOK CCC    Z CC   $( T 
 Azubi 
 H'( C    ,' T  Bund C   U' T  Land C   ~' T  Gde. C   ' T  Pflege C   ' T  Arb. C   ' T  Kir C   "( T  Car C   L( T  KR(C) C   t( T  AWO C   	( T  DRK $ T 
CC
   C  C   X)
 H(T) C    ) T 
 Geringf.B.  C   T) T 

 kurzfr.B.   C   )3 T 
 VB EGr.CCC    Z C   ) T 
 ohne C   * T 
	 Vereinb.  CC   %,
 H/*, C    b* T 
 Soz.Arb. C   * T 
 Soz.Pd. C   * T 
 Heil.P. C   * T 
 PTA C   '+ T 
 Erzieh. C   Y+ T 
 K.Gymn. C   + T 
 K.Pfl. C   + T 
 Mass. C   + T 
 Rett.A. C   	, T 
 Arzt   T	 C
  U
  WVW ZNAM BGRUPPE ZI BREMENGRUPPEHOLEN MSG1 WELCHESJAHR BUNDLAND VKAHOLEN MSG3
 H
  C    3  T  I C   Z  T  Ia C     T  Ib C     T  II C     T  III C     T  IVa C     T  IVb C   J T  Vb gD C   t T  Vb mD C   	 T  Vc C   
 T  VIb C    T  VII C    T  VIII mD C   
C T  VIII eD C   k T  IXa C    T  IX C    T  X $ T 
CC
   C  U  WVW ZNAM MSG1 BGRUPPE
 H
 s C     C   " C    C    	 C    C   	 2 T 
 Stufe CCC    Z CC   	; T 
 ab CC    Z . Lj. C   8 T 
 fest C    %C   
: T 
 ab CC    Z  Lj.  T 
 fest  C   < %C     T 

 vor 26.Lj. 8 T 
 nach 26.Lj.  C   : T 
 ab CC    Z  Lj.+ C    C   	
 H C     T 
	 unt. 6 J. C   , T 
 ab 6 J. C   _ T 
 ab 11 J. C    T 
 ab 21 J. C    T 
 lt.Eing.  C   
z
 Hv= C     C   	 C    %C   y2 T 
 Stufe CCC    Z  T 
	 lt. Eing. + C    C   	B %C   2 T 
 Stufe CCC    Z > T 
	 lt. Eing.  C   v T 
	 lt. Eing.  C   
 HP C     C   	" C    C   	"3 T 
 Stufe CCC    Z C   U T 
 Stufe 2 C    T 
	 Stufe 15 C    T 
	 auerh.TV = C   " C    C   	
 H+ C     C   	i3 T 
 Stufe CCC    Z C    T 
 Stufe 2 C    T 
	 Stufe 15 C    T 
	 auerh.TV  C   
 H-P C     C   	" C    C   	2 T 
 Stufe CCC    Z C   


 H
 C    	 T 
 im 1. J. C   :	 T 
 im 2. J. C   m	 T 
 im 3. J. C   	 T 
 im 4. J. C   	 T 
 ab 5. J. C   
 T 
 lt.Eing. + C    C   	
 HB
 C    u
 T 
 ab 1. J. C   
 T 
 ab 4. J. C   
 T 
 ab 7. J. C    T 
 lt.Eing.   C   
x
 H;tP C     C   	" C    C   	2 T 
 Stufe CCC    Z C   

 H

 C     T 
 M 1-12 C   E T 
 M 13-24 C   w T 
 M 25-42 C    T 
 M 43-60 C    T 
 M > 60 C   

 T 
 lt.Eing. + C    C   	t
 HI
p C    y
 T 
 J 1-3 C   
 T 
 J 4-6 C   
 T 
 J 7-10 C    T 
 J 11-15 C   = T 
 J > 15 C   p T 
 lt.Eing.   C   1
 H-+ C     C   	2 T 
 Stufe CCC    Z C   - T 
 lt.Eing.  CC   
 HZP C     C   	" C    C   	2 T 
 Stufe CCC    Z C   &2 T 
 Stufe CCC    Z+ C    C   	2 T 
 Stufe CCC    Z  C   !2 T 
 Stufe CCC    Z+ C   " C   #	
 H	 C    ; T 
 1.-8.J. C   n T 
 9.-12.J. C    T 
 ab 13.J.  C   $' T 
C    .Jahr C   
 H	 C    ; T 
 einzige C   n T 
 < 450,01 C    T 
 < 450,01 CC    T 
 zustzl.  C    T 
 vereinb. C   : T 
   C   % %C   	 %C     T 
 1.Jahr  T 
 2.Jahr   T 
 fest   T C
  U  WVW ZNAM BSTUFE MSG3X
 T      C
   wnw    F  G. S G.   (*i   [ M T  C	 
      - Monatsgehlter    und Arbeitgeberaufwand# %    akkumulieren
0 T      (Monate einzeln) in EURO B- T      (akkumuliert) in EURO 	 # > 
  Jan [	 # > 
  Feb [	 # > 
  Mrz [	 # > 
  April [	 # > 
  Mai [	 # > 
  Juni [	 # > 
  Juli [	 # > 
  Aug [	 #	 > 
  Sept [	 #
 > 
  Okt [	 # > 
  Nov [	 # > 
  Dez [	 # > 
   [  ( T C /  (
 #  % 
U	 # O replace ansicht2.&hsfeld WITH myformat(sicht(1+j,1+ i) / 100, "###,##0.00")
 [    ({ T C /  (
w #  % 
 	 # O replace ansicht2.&hsfeld WITH myformat(sicht(1+j,1+ i) / 100, "###,##0.00")
 [   T C
/  (
' #  % 
	 # O replace ansicht2.&hsfeld WITH myformat(sicht(1+j,1+ 9) / 100, "###,##0.00")
 [  T C/  (
 #  % 
|	 # P replace ansicht2.&hsfeld WITH myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")
 [  T  texte	 #' replace ansicht2.&hsfeld WITH "Jan"
 [	 #' replace ansicht2.&hsfeld WITH "Feb"
 [	 #( replace ansicht2.&hsfeld WITH "Mrz"
 [	 #) replace ansicht2.&hsfeld WITH "April"
 [	 #' replace ansicht2.&hsfeld WITH "Mai"
 [	 #( replace ansicht2.&hsfeld WITH "Juni"
 [	 #( replace ansicht2.&hsfeld WITH "Juli"
 [	 #' replace ansicht2.&hsfeld WITH "Aug"
 [	 #( replace ansicht2.&hsfeld WITH "Sept"
 [	 #' replace ansicht2.&hsfeld WITH "Okt"
 [	 # ' replace ansicht2.&hsfeld WITH "Nov"
 [	 #!' replace ansicht2.&hsfeld WITH "Dez"
 [	 ##. replace ansicht2.&hsfeld WITH welchesjahrc
 [ T C/	 #, replace ansicht2.&hsfeld WITH "BRUTTO- "
 [	 #+ replace ansicht2.&hsfeld WITH "GEHALT "
 [ T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #/ replace ansicht2.&hsfeld WITH "AG-Anteile "
 [	 #/ replace ansicht2.&hsfeld WITH "KV, Pfl.V. "
 [	 #. replace ansicht2.&hsfeld WITH "RV und AV "
 [ % a
	 #1 replace ansicht2.&hsfeld WITH "+KV-Zus./2 AG"
 [ 
 Hr
R$ C   C  T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #* replace ansicht2.&hsfeld WITH "ATV - "
 [	 #+ replace ansicht2.&hsfeld WITH "Umlage "
 [	 #+ replace ansicht2.&hsfeld WITH "Beitrag"
 [	 #, replace ansicht2.&hsfeld WITH "San.Geld"
 [ C  T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #+ replace ansicht2.&hsfeld WITH "Umlage "
 [	 #( replace ansicht2.&hsfeld WITH "fr "
 [	 #- replace ansicht2.&hsfeld WITH "Pensions-"
 [	 #) replace ansicht2.&hsfeld WITH "fonds"
 [ C  T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #, replace ansicht2.&hsfeld WITH"Pensions-"
 [	 #) replace ansicht2.&hsfeld WITH "rck-"
 [	 #, replace ansicht2.&hsfeld WITH "stellung"
 [	 #$ replace ansicht2.&hsfeld WITH ""
 [ CC R T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #0 replace ansicht2.&hsfeld WITH "Versorgungs-"
 [	 #+ replace ansicht2.&hsfeld WITH "aufwand"
 [	 #$ replace ansicht2.&hsfeld WITH ""
 [	 #$ replace ansicht2.&hsfeld WITH ""
 [  T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #+ replace ansicht2.&hsfeld WITH "Vom AG "
 [	 #- replace ansicht2.&hsfeld WITH "bernom. "
 [	 #, replace ansicht2.&hsfeld WITH "Steuern "
 [	 #/ replace ansicht2.&hsfeld WITH "(ATV u.a.) "
 [ T C/	 #' replace ansicht2.&hsfeld WITH "=  "
 [	 #. replace ansicht2.&hsfeld WITH "PERSONAL- "
 [	 #+ replace ansicht2.&hsfeld WITH "KOSTEN "
 [	 #. replace ansicht2.&hsfeld WITH "i.e.Sinne "
 [ T C/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #( replace ansicht2.&hsfeld WITH "ATZ-"
 [	 #- replace ansicht2.&hsfeld WITH "Aufstock."
 [ T C/	 #& replace ansicht2.&hsfeld WITH "+ "
 [	 #, replace ansicht2.&hsfeld WITH "Sonstige"
 [	 #- replace ansicht2.&hsfeld WITH "Geld- und"
 [	 #) replace ansicht2.&hsfeld WITH "Sach-"
 [	 #. replace ansicht2.&hsfeld WITH "leistungen"
 [ T C	/	 #' replace ansicht2.&hsfeld WITH "+  "
 [	 #, replace ansicht2.&hsfeld WITH "Umlagen "
 [	 #$ replace ansicht2.&hsfeld WITH ""
 [
 T    %	   ' T  U1   %	   S T   U2   %	    T   U3  ' replace ansicht2.&hsfeld WITH xtext
 [	 #( replace ansicht2.&hsfeld WITH "u.a."
 [	 #$ replace ansicht2.&hsfeld WITH ""
 [ T C
/	 #' replace ansicht2.&hsfeld WITH "=  "
 [	 #, replace ansicht2.&hsfeld WITH "GESAMT- "
 [	 #+ replace ansicht2.&hsfeld WITH "KOSTEN "
 [	 #( replace ansicht2.&hsfeld WITH "der "
 [	 #+ replace ansicht2.&hsfeld WITH "Stelle "
 [ T C/	 #2 replace ansicht2.&hsfeld WITH "Kostenstellen-"
 [	 #. replace ansicht2.&hsfeld WITH "zuordnung "
 [  (	 T C /  (
 #  % 
*	 ## T replace ansicht2.&hsfeld WITH myformat(sicht(1+j,1+ i + 10) / 100, "###,##0.00")
 [   T C/  ( # 4 replace ansicht2.&hsfeld WITH zt27(1+colon(1+i))
 [  F 	 #$ 	 #% 	 #&  #) T   a T    U  FILENEU
 NAMENSFILE JAHRESBERSICHT MYGET FORM3_SCHALTFLCHEN ANSICHT2 HSCA MYFORM3 CAPTION WNW PERSONALFALL WELCHESJAHRC
 SSCOMMAND4 TEXTE I HSFELD J WELCHESJAHR ZI XTEXT ZUMLAGE1 TRUE ZUMLAGE2 ZUMLAGE3 GRDANSICHT2 VISIBLER    F  G. S G.   (*>   [ 
 T     C
   wnw 2 T  C	 
      - Monatsgehlter  # %    akkumulieren 0 T      (Monate einzeln) in EURO '- T      (akkumuliert) in EURO  T 
      F 	 #: >  CC C    , CCC   [	 #T >  CC `CC	  CC 
  MS CC   Z   6 [	 #& >  CC	 `CC
   [	 #& >  CC
 `CC  	 #
 HkX C 	
 %C  %C 2j T C C	 C
 C C
 C C C C C C C  T C CC
 6 C
 Y	
 C
   6CC 6 C Y	
 C   6CC 6 C Y	
 C   6 T CC d
Z T CC d
ZO >  CC `CCC= d
Z % v.  
  - 0.5% v.    F >  CC `CC= d ##0.00!   CCC " `  & >  CC `CC "   C X %C &F >  CC `CC= d ##0.00!   CCC " ` T& >  CC `CC "    [	 #& >  CC `CC
 #  [	 #& >  CC
 `CC $  [	 #& >  CC `CC %  [	 #	& >  CC `CC &  [	 #
& >  CC `CC '  [	 #& >  CC `CC (  [	 #& >  CC `CC )  [	 #
& >  CC `CC *  [	 #( >   B R U T T O G E H A L T  [	 #& >   davon Leistungsentgelt [
  + , 	 #& >  CC! `CC" -  [	 #& >  CC# `CC$ .  [	 #& >  CC$ `CC% /  [	 #$ >   Pauschale Lohnsteuer [	 #( >   Pauschaler Soli-Zuschlag [	 #' >   Pauschale Kirchensteuer [	 # %0 \
 %C5 	
 H	 0 	0 >  CC4 ` AG-Zusch.Priv.KV+0,65% 0 	 0 	m	0 >  CC4 ` AG-Zusch.Priv.KV+0,65% 0 	0 >  CC4 ` AG-Zusch.Priv.KV+0,65%  X
 %C5 &
V >  CC4 `CCC5 1 `  + KV-Zus./2 AG (= C 2  #0.00!  %) T
& >  CC4 `CC5 1    
& >  CC4 `CC5 1   [	 #  %0  %0 _ >  CC& `CC' 3 C 4  &    ab Juli minus max. 1% Ki. Abzug   6 }W >  CC& `CC' 3 C 4     minus max. 1% Ki. Abzug   6  & >  CC& `CC' 3   [	 #!& >  CC' `CC( 5  [	 #"& >  CC( `CC) 6  [	 ## %7  |E >  CC) ` ATV-AN-Umlagebeitrag (CC7 
Z  %)  %8  F >  CC) ` ATV-AN-Kapitalbeitrag (CC8 
Z  %)  %7   8  	/
8 >  CC) ` Kein Beitrag zur Betriebsrente  [	 #$$ %C5  C 	
: >  CC 
 Zusatzb. PV. CC9 Z % 
& >  CC CC :   [	 #%& >  CC" CC# ;  [	 #&& >  CC* CC+ <  [	 #'& >  CC+ CC, =  [	 #(& >  CC, CC- >  [	 #*$ >   A U S Z A H L U N G  [ ? (
/ T@ C? / %? 

$ C ?    wvw   F 	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 0), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 1), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 2), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 3), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 4), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 5), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 6), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 7), "###,##0.00")
 [	 #	H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 8), "###,##0.00")
 [	 #
H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 9), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 10), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 11), "###,##0.00")
 [	 #
I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 12), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 13), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 39), "###,##0.00")
 [# % A   Mittelteil A_
  B ,  t
  C ,  	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 20), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 21), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 22), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 40), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 41), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 42), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 23), "###,##0.00")
 [	 # I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 24), "###,##0.00")
 [	 #!I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 25), "###,##0.00")
 [	 #"I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 26), "###,##0.00")
 [	 ##I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 27), "###,##0.00")
 [	 #$J replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 33), "###,##0.00") 
 [	 #%I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 28), "###,##0.00")
 [	 #&I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 29), "###,##0.00")
 [	 #'I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 30), "###,##0.00")
 [	 #(I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 31), "###,##0.00")
 [	 #*I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 32), "###,##0.00")
 [  F  #) T D E  UF  FORM3_SCHALTFLCHEN ANSICHT HSCA FILENEU
 NAMENSFILE JAHRESBERSICHT1 MYGET MYFORM3 CAPTION WNW PERSONALFALL WELCHESJAHRC
 SSCOMMAND4
 GRDANSICHT COLUMN14 HEADER1 TEXTE VORSPANN MYFORM1 Z5 ZT7 ZI ZT8 WVW RESERVE7 ZT9 ZT10
 HSBETRAGALLES WERT HSBETRAGTEIL
 HSZ7PLUSAMTSZ HS05PROZ CRLF MYFORMAT ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 MITTELTEILA CLICK ZT33 ZT35 ZT36 WELCHESJAHR ZT52 ZUSATZKV ZT38 RESERVE5 ZT39 ZT40 ZVKHALB ZVKKAPITALAN ZUSATZPV ZT26 ZT34 ZT42 ZT43 ZT44 I HSFELD
 SSCOMMAND7 MITTELTEILZEILENA MITTELTEILZEILENB VISIBLE TRUE    T    
 T     C
   wnw K T 	 C
  .     -   A R B E I T G E B E R A U F W A N D    # % 
 	  akkumulieren 0 T 	  	   (Monate einzeln) in EURO - T 	  	   (akkumuliert) in EURO  T    	   F  F  G. S G.   (/s  [ 	 #: >  CC C  	  , CCC   [	 #T >  CC CC	  CC 
  MS CC   Z   6 [	 #& >  CC	 CC
   [	 #& >  CC
 CC   [	 #
 H C 	
 %C  %C bj T C C	 C
 C C
 C C C C C C C  T  C CC
 6 C
 Y	
 C
   6CC 6 C Y	
 C   6CC 6 C Y	
 C   6 T! CC  d
Z T" CC d
ZO >  CC `CCC= d
Z % v. ! 
  - 0.5% v." #  F >  CC CC= d ##0.00$   CCC %   & >  CC CC %   C  %C VF >  CC CC= d ##0.00$   CCC %  & >  CC CC %    [	 #& >  CC CC
 &  [	 #& >  CC
 CC '  [	 #& >  CC CC (  [	 #	& >  CC CC )  [	 #
& >  CC CC *  [	 #& >  CC CC +  [	 #& >  CC CC ,  [	 #
& >  CC CC -  [	 #+ >   P E R S O N A L K O S T E N [	 #& >   davon Leistungsentgelt [
  . / 	 # %C  >   Krankenkasse  >   Krankenkasse  [	 # %0 H
 %C5 	
 HC	 0 0 >  CC4 ` AG-Zusch.Priv.KV+0,45% 0 0 >  CC4 ` AG-Zusch.Priv.KV+0,55% 0 		0 >  CC4 ` AG-Zusch.Priv.KV+0,65% 0 	 0 	W	0 >  CC4 ` AG-Zusch.Priv.KV+0,65% 0 	0 >  CC4 ` AG-Zusch.Priv.KV+0,65%  D
 %C5 
V >  CC4 `CCC5 1 `  + KV-Zus./2 AG (= C 2  #0.00$  %) @
( >  CC4 `CCC5 1 `   v
& >  CC4 CC5 1   [	 # %C 

0 >  CC&  Pflegevers. AG-Anteil  
& >  CC& CC' 3   [	 #& >  CC' CC( 4  [	 #& >  CC( CC) 5  [	 #
 H~ C  K >  CC  Versorgungsumlage CCC 6 d
Z  % C @M >  CC  Versorgungsrcklage CCC 6 d
Z  % C M >  CC  Versorgungsaufwand  CCC 6 d
Z  % C 7 >  CC  Versorgungsaufwand lt Eingabe C 
 %C 
o
W >  CC  Vers.Aufw.=Juli(Endst.+FZ+StZ)*CCC 6 d
Z % 
; >  CC ! Anderweitig mit Versorgungszusage  C H >  CC  ATV-AG-Umlageanteil (CC7 8 
Z  %)  [	 #J >  CC)  ATV-AG-Kapitalbeitrag (CC9 : 
Z  %) [	 #0 >    Lohnst.+Sol.Z. fr ATV-AG-Anteil [	 # / >   Kirchensteuer fr ATV-AG-Anteil [	 #!= >   AG-Sanierungszuschu ATV CC; Z  % [	 #" >   ATZ-Aufstockung [	 ## >  	 Sonstiges [	 #$* >   Vom AG bernommene Steuern [	 #%B >    AG KV-Zusatzbeitrag /2 (= C 2  #0.00$  %) [	 #&% >   N E B E N K O S T E N [	 #(, >   Sonst. Zahlungen Zeile 25-26 [	 #), >   Sonst. Zahlungen Zeile 44-46 [	 #*) >   U1 fr Entgeltfortzahlung [	 #+# >   U2 fr Mutterschutz [	 #,@ >   U3 fr Insolvenzgeld C<  0.000$   % [	 #.' >   G E S A M T K O S T E N [ = (
 T> C= /	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 0), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 1), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 2), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 3), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 4), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 5), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 6), "###,##0.00")
 [	 #H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 7), "###,##0.00")
 [	 #	H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 8), "###,##0.00")
 [	 #
H replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 9), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 10), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 11), "###,##0.00")
 [	 #
I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 12), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 13), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 39), "###,##0.00")
 [# %  	  Mittelteil A
  ? /  
  @ /  	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 20), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 21), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 22), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 23), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 24), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 33), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 25), "###,##0.00")
 [	 # I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 26), "###,##0.00")
 [	 #!I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 31), "###,##0.00")
 [	 #"I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 27), "###,##0.00")
 [	 ##: replace ansicht.&hsfeld WITH myformat(0, "###,##0.00")
 [	 #$I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 32), "###,##0.00")
 [	 #%I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 41), "###,##0.00")
 [	 #&I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 36), "###,##0.00")
 [	 #(I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 28), "###,##0.00")
 [	 #)I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 29), "###,##0.00")
 [	 #*I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 34), "###,##0.00")
 [	 #+I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 35), "###,##0.00")
 [	 #,I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 40), "###,##0.00")
 [	 #.I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 37), "###,##0.00")
 [  F  #) T   a T    UA  FORM3_SCHALTFLCHEN MYFORM3
 SSCOMMAND7 VISIBLE TRUE FILENEU
 NAMENSFILE JAHRESBERSICHT2 MYGET CAPTION WNW PERSONALFALL WELCHESJAHRC
 SSCOMMAND4
 GRDANSICHT COLUMN14 HEADER1 ANSICHT HSCA TEXTE VORSPANN MYFORM1 Z5 ZT7 ZI ZT8 WVW RESERVE7 ZT9 ZT10
 HSBETRAGALLES WERT HSBETRAGTEIL
 HSZ7PLUSAMTSZ HS05PROZ CRLF MYFORMAT ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 MITTELTEILA CLICK WELCHESJAHR ZT52 ZUSATZKV ZT38 ZT39 ZT40 TNAM	 ZVKUMLAGE ZVKHALB
 ZVKKAPITAL ZVKKAPITALAN	 SANIERUNG
 INSOLVENZGELD I HSFELD MITTELTEILZEILENA MITTELTEILZEILENB+ T       T      T      T      T     
 T	 
    C
 
  wnw  F
  G. S G.   (%   [  F
  #)B T   C  %     -   Kontrolle der Einstellungen    T C/	 #: replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO(),2,0))
 [	 #: replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO(),2,0))
 [	 #: replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO(),2,0))
 [	 #: replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO(),2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #	< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #
< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #
< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+3,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+3,2,0))
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #' replace ansicht.&hsfeld WITH "8-20"
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-2,2,0))
 [	 #< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()-1,2,0))
 [	 # : replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO(),2,0))
 [	 #!< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+1,2,0))
 [	 #"< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 ##< replace ansicht.&hsfeld WITH ALLTRIM(STR(RECNO()+2,2,0))
 [	 #$% replace ansicht.&hsfeld WITH "42"
 [	 #%% replace ansicht.&hsfeld WITH "43"
 [ T C/	 #- replace ansicht.&hsfeld WITH "Bundesland"
 [	 #2 replace ansicht.&hsfeld WITH "Ehegatte i..D."
 [	 #3 replace ansicht.&hsfeld WITH "Dienstverhltnis"
 [	 #) replace ansicht.&hsfeld WITH "Gruppe"
 [	 #( replace ansicht.&hsfeld WITH "Stufe"
 [	 #+ replace ansicht.&hsfeld WITH "Zuschlag"
 [	 #. replace ansicht.&hsfeld WITH "Allg.Zulage"
 [	 #	9 replace ansicht.&hsfeld WITH "Vermgensw. Leistungen"
 [	 #
3 replace ansicht.&hsfeld WITH "Leistungszulagen"
 [	 #+ replace ansicht.&hsfeld WITH "Zulage 1"
 [	 #+ replace ansicht.&hsfeld WITH "Zulage 2"
 [	 #
+ replace ansicht.&hsfeld WITH "Zulage 3"
 [	 #7 replace ansicht.&hsfeld WITH "Mehrarbeitsvergtung"
 [	 #< replace ansicht.&hsfeld WITH "steuerfreie Zeitzuschlge"
 [	 #, replace ansicht.&hsfeld WITH "Zuwendung"
 [	 #4 replace ansicht.&hsfeld WITH "Einmalige Zahlung"
 [	 #4 replace ansicht.&hsfeld WITH "Steuerpfl. Zeilen"
 [	 #2 replace ansicht.&hsfeld WITH "Soz.pfl. Zeilen"
 [	 #2 replace ansicht.&hsfeld WITH "ATV-pfl. Zeilen"
 [	 #5 replace ansicht.&hsfeld WITH "Zeilen fr Zuwend."
 [	 #6 replace ansicht.&hsfeld WITH "Zeilen fr Teilzeit"
 [	 #7 replace ansicht.&hsfeld WITH "Zeilen fr Bruchteil"
 [	 #1 replace ansicht.&hsfeld WITH "Teilzeitfaktor"
 [	 #2 replace ansicht.&hsfeld WITH "Bruchteilfaktor"
 [	 #- replace ansicht.&hsfeld WITH "Freibetrag"
 [	 #- replace ansicht.&hsfeld WITH "Sachbezge"
 [	 #/ replace ansicht.&hsfeld WITH "Gemeinkosten"
 [	 #6 replace ansicht.&hsfeld WITH "ATV-Umlagesatz in %"
 [	 #3 replace ansicht.&hsfeld WITH "Kostenstelle Nr."
 [	 #4 replace ansicht.&hsfeld WITH "Lohnsteuertabelle"
 [	 # - replace ansicht.&hsfeld WITH "Lebensjahr"
 [	 #!/ replace ansicht.&hsfeld WITH "Steuerklasse"
 [	 #"0 replace ansicht.&hsfeld WITH "Kirchensteuer"
 [	 ##2 replace ansicht.&hsfeld WITH "KV-Beitragssatz"
 [	 #$6 replace ansicht.&hsfeld WITH "ATV-AN-Beitragssatz"
 [	 #%- replace ansicht.&hsfeld WITH "Kindergeld"
 [  (
 T C /	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 0), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 1), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 2), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 3), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 4), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 5), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 6), "###,##0")
 [	 #	I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 7), "###,##0")
 [	 #
I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 8), "###,##0")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 9), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 10), "###,##0")
 [	 #
J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 11), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 12), "###,##0")
 [	 #M replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 13), "###,##0.00")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 14), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 15), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 16), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 17), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 18), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 19), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 20), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 21), "###,##0")
 [	 #P replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 22), "###,##0.00000")
 [	 #P replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 23), "###,##0.00000")
 [	 #M replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 24), "###,##0.00")
 [	 #M replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 25), "###,##0.00")
 [	 #M replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 27), "###,##0.00")
 [	 #M replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 26), "###,##0.00")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 28), "###,##0")
 [	 #J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 29), "###,##0")
 [	 # J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 30), "###,##0")
 [	 #!J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 31), "###,##0")
 [	 #"J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 32), "###,##0")
 [	 ##J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 33), "###,##0")
 [	 #$J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 34), "###,##0")
 [	 #%J replace ansicht.&hsfeld WITH myformat(sicht(1+i - 1,1+ 35), "###,##0")
 [   (%`+	 #  T C/ Msg = ansicht.&hsfeld 
  (
\+ T C / T C /& IF .not. ansicht.&hsfeld = Msg ( replace ansicht.&hsgelbfeld WITH "Y"
  ( replace ansicht.&hsgelbfeld WITH "N"
  [ Msg = ansicht.&hsfeld 

 H-!X+  !% If Val(ansicht.&hsfeld) = 12 !0 %C % C % 
!( replace ansicht.&hsgelbfeld WITH "Y"
 !( replace ansicht.&hsgelbfeld WITH "N"
  [   "# If Val(ansicht.&hsfeld) = 3"0 %C & C & 
"( replace ansicht.&hsgelbfeld WITH "Y"
 "( replace ansicht.&hsgelbfeld WITH "N"
  [   	`#0 %C ' C ' 
(#( replace ansicht.&hsgelbfeld WITH "Y"
 X#( replace ansicht.&hsgelbfeld WITH "N"
  [  
($# If Val(ansicht.&hsfeld) = 7$$0 %C ( C ( 
#( replace ansicht.&hsgelbfeld WITH "Y"
 $( replace ansicht.&hsgelbfeld WITH "N"
  [   $# If Val(ansicht.&hsfeld) = 1$0 %C ) C ) 
$( replace ansicht.&hsgelbfeld WITH "Y"
 $( replace ansicht.&hsgelbfeld WITH "N"
  [   %# If Val(ansicht.&hsfeld) = 1%0 %C * C * 
|%( replace ansicht.&hsgelbfeld WITH "Y"
 %( replace ansicht.&hsgelbfeld WITH "N"
  [   
&# If Val(ansicht.&hsfeld) = 1|&0 %C + C + 
D&( replace ansicht.&hsgelbfeld WITH "Y"
 t&( replace ansicht.&hsgelbfeld WITH "N"
  [   H'# If Val(ansicht.&hsfeld) = 8D'0 %C , C , 
'( replace ansicht.&hsgelbfeld WITH "Y"
 <'( replace ansicht.&hsgelbfeld WITH "N"
  [   !($ If Val(ansicht.&hsfeld) = 52
(0 %C - C - 
'( replace ansicht.&hsgelbfeld WITH "Y"
 (( replace ansicht.&hsgelbfeld WITH "N"
  [   "(# If Val(ansicht.&hsfeld) = 3(0 %C . C . 
( T C ( replace ansicht.&hsgelbfeld WITH "Y"
 ( T C ( replace ansicht.&hsgelbfeld WITH "N"
  [   #)% If Val(ansicht.&hsfeld) > 123)0 %C / C / 
)( replace ansicht.&hsgelbfeld WITH "Y"
 )( replace ansicht.&hsgelbfeld WITH "N"
  [   $*$ If Val(ansicht.&hsfeld) = 53*0 %C 0 C 0 
T*( replace ansicht.&hsgelbfeld WITH "Y"
 *( replace ansicht.&hsgelbfeld WITH "N"
  [   %X+# If Val(ansicht.&hsfeld) = 8T+0 %C 1 C 1 
+( replace ansicht.&hsgelbfeld WITH "Y"
 L+( replace ansicht.&hsgelbfeld WITH "N"
  [     F
  #) T    a T     U  MYFORM3 WINDOWSTATE FORM3_SCHALTFLCHEN
 SSCOMMAND2 VISIBLE FALSE
 SSCOMMAND7
 SSCOMMAND4
 SSCOMMAND6 FILENEU
 NAMENSFILE JAHRESBERSICHT3 MYGET ANSICHT HSCA CAPTION WNW PERSONALFALL WELCHESJAHRC HSFELD I J
 HSGELBFELD SICHT
 CELLBACKCOLOR QBCOLOR
 GRDANSICHT TRUE  T    T    & %    C  Y  T       T         T   	  T    U
  MYFORM3 MOUSEPOINTER VISIBLE FALSE EFFEKTIV VALUE WERT WERTOLD
 SPALTENFLLEN TRUEc	
 T    (
`   (/\ ! T        (O	 C     wvw 
  K	& T  C & T  C & T  C & T  C & T  C & T  C & T  C	 & T  C
 & T  	C & T  
C & T  C
 & T  C & T  
C & T  C & T  C	 d  ( %C  
  4, T  C    %C    {, T  C    %C  
  , T  C    %C    	, T  C    %C    P, T  C    %C    , T  C     %C	   T	  T	  + T  C	 C	  %C	  J T	  T	  + T  C	 C	 & T  C	 d %C  
& T  C	 d & T  C	 d& T  C0	 d& T  C & T  C & T  C & T   C! & T  !C$ & T  "C% & T  #C) & T  $C" & T  %C		 d& T  &C
	 d& T  'C	 d& T  (C	 d& T  )C
	 d& T  *C	 d& T  +C	 d& T  ,C	 d& T  -C"	 d& T  .C%	 d& T  /C&	 d& T  0C*	 d& T  1C#	 d  
 T    U 	 JAHRESTAB I J SICHT MONATE MYGET
 NAMENSFILE WVW ZNAM TNAM LST TRUE SOZ ZVK WEI TEI BRU 
 H
   CC    u L T 
CCC    Z /CCC    Z CC    : T 
CCC   C   dZ  %  U  WVW ZNAM BVOLL TNAM+ ( T  
CCC.   
 U  BKASSE ZT46 WVW ZNAM$ %C  (  T 

  %C%  f  T 
CC%    
 H{  C%  z
 * T 

CC%   
 C%  z  T 

 C%  { T 
  C%  |> T 
  C%  }i T 
  C%  ~ T 

 C%   T 
  C%   T 
  C%   T 
     U  ZI BBEITRAGSATZ WVW ZNAM	 GETKVPROZ FIXR T  
 A
 H! K+ C    C  	y - T  
CC
    C  + C   C  	 - T  
CC
    C   C  
! T  
CC
    12a C  K) T  
CC
    C    U  BGRUPPE WVW ZNAM
 bruchstart,      form3_schaltflchen     jahresbersicht     jahresbersicht1      jahresbersicht2*     bundlandE    
 ehegatteholenEI     mittelteilAM     mittelteilBM     mittelteilumschaltenM     mittelteilzeilenAM     mittelteilzeilenBM     OZstufeholen$M    	 TageholenV     verggruppeholen$W     vkaholen     altersstufeholen     uebersichtladenК     uebersichtladen1$     uebersichtladen2     uebersichtladen3    
 effektivstart    jahresbersicht3   
 Vollzeitholen(    kassenholen)    kvbeitragholen)    bremengruppeholen3,   5  ! A A A   Q1A t   A 3   A A 4  rqA A r !Q qA  A  1A bA bA 3 1A 11! !A A A ! !A A A raA A BQ! A  1A RB A 1A AAB SrqqA qA qA qA qA qA qA qA qA qA qA A B A  rqA A B  3 q  A  qqA A rqqA r A r qr qr qr qr qr qr qr qr!qA A baaaaaaaaaaaaaaaA baaaaaaaaaaaaBr aA aA AA A A A A A !!!B A 21111111  QQ   A C C rqA A qA  rqA A A  r 1 1A  1A  1A  1A  1A  1A  1A  1A  1A  1A  1A A A 4  rqA A rqqA r A r qr qr qr qr qr qr qr qr!qA A baaaaaaaaaaaaaaaA baaba aA "Qr qA  aA baaaaRa A !A A A A !A A A aaaaaB1! A  A b"Q A  A A AA A A A A A A A 211111rqA A qA  rqA A A tqA AA s!A  r 1 1A  1A  1A  1A  1A  1A  1A  1A  1A  1A  1A A A 3      !! AA  A A3  A  AQQA 3 `1 p1 1 1 `1  ! qA  qqqqqqqA  qqqqqqqA qa A A 3  aA 3  A qAAA1AQAQAAQQQqA Rq A  A A A  A  A  !  A A qA  qqqqqqqaaaqqaqaA  qqA  A a              A Aq               A A aaaaqqA qq qq a          A Aq                  A A     A    A A 1!A A A 1q aqA A 4      !! AA  A A4  1!q qA  A  A  ! A ! A A  1A  1A  ! A  A A  ! A  A A  !A  !!!O ! A q A 1 A  qA A 3  q qw r a A a qQ A A `2 A   2A  2A  BA  RA  2A  BA  BA  2A  BA  2A  2A  2A  A r2q A A C A r2q A A H A  q A A C  q A A C $ rA  rA  A  A  rA  A  A  rA  A  rA  rA  rA  A   A  A   rA  A  A  A " A A  A  rA  A  A  A  A R  rA  A  A  A  A S  rA  A  A  A  BA   rA  A  A  BA  BA A   rA  A  A  A  A   rA  A  A  A   rA  A  A   bA  A  A  A  A   rA  A  BA  AA BAA BAA qA  A  BA   rA  A  A  A  A   "A  A r2q A CA C A  rBA B q  A  A  A Q 3 x t a A a qQ A A  r r!2 A q  A  BA  bA  b  QQR	 aA  bA QQb bA A A  bA  bA  bA  bA  bA  bA  bA  bA  A  bA   bA  bA  bA  BA  A  rA  !Q '!A  Qa bA A  bA A  "! qA  aA A  bA  bA  RA bA A A  A bA A  bA  bA  bA  bA  BA r2A q  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 2   A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A B q Q 4 t 2 r r2 A r q a A a qQ A A  A  BA  bA  bA   QQQ	 bA  bA QQb bA A A  bA  bA  bA  bA  bA  bA  bA  bA  A  bA   Q A A  #Q !!!!A  Sa A A  bA A  Q bA A  bA  bA   QQQQrQQr A QA A  A  A  A  A  A  A  A  "A  RA  A  A  A  2A  A  rA r2 A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 2   A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A B q Q 3 u 1111 r rr a A a qQ A A q Q  !  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  rA  rA  rA  rA  rA  rA  A  A  A  A  A  A  A  A  A  A  A  A  RA  RA   A  "A  2A  A  A  A  A  A  2A  A  A  A  rA  A  A  BA  BA  "A  "A  RA  bA  rA  A  "A  A  A  A  bA  2A  BA  A  A  A  "A  bA  A r2 A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A A r  r2b B A  Q A A A 1 A A A  A A 1 A A A 1 A A A 1 A A A 1 A A A 1 A A A A A A A 1! !A A A Q A A A A A A A 1 A A A A A A q Q 3 a1A q 4  rqA A v aaaaaaaaaaaaabaqqA rA rA rA rA rA B aAAA aAAA aaA caaaaaaaaabaaaaaaaaaaaaA A  4  B 3 3 Q2   11111111A A A 3 A A 2                    P               '      *  #  \      #  @  C    @  f  `    f  j      j  Kq      oq  xs      s  ]z  /    z  J}  g    t}        C  Y      ~  x    u        ~        g  $  ]  0      o  Z  Q    6 O    6 w      R   #
  { T6 #    z6 7     7 4I   n  ZI J (  u  J J 5  w  K N 9    -N O Y     %              O  buV<  "  7  #Q CURRENCY U  KVBEITRAGBAK      (   % C 
 T    (   (   T   % &
 H "% CC $%&" T	 C 
 T
   T C  
 
 T
  
 T	    
 T    %C5 

+$ %C/ !
 C/ "/ T &CC/     
 H' C5  T &C&  C5  T & C5 7 T &{ C5 _ T &z C5  T &~ C5  T & C5  T &| C5  T &} C5 	' T &  $ %C/ !
 C/ "/ T &CC/             U  VOREINSTEIN MODUS	 DATEIOPEN
 SATZANZAHL FILENEU MONAT	 WVWINJAHR ZI	 ALTESLAND J HSNEUDURCHRECHNEN TRUE HS_J_OLD
 ATVEINSPEISEN FALSE DASTUFEN DASTUFEBERECHNEN GETKVBEITRAG
 BERECHNUNG WVWOUT   (#X   (T & T    CC         
     (#  (  (
 H    ' T    C          +' T	    C          c' T
    C          ' T    C            ! C
   vorein   U  I J
 KVBEITRAG1 CINT KVBEITRAGBAK VOREIN K
 VORKASSEN2 GETKVBEITRAG
 VORKASSEN3
 VORKASSEN4
 VORKASSEN5 MYPUT WELCHESJAHR JAHR1 4   %Ct #  T  - 
 H4     V  T  INFO  x  T  PLAN    T  REAL | T 9 Das Neuberechnen   a l l e r   Personalflle bezieht sichC
 & nach den derzeitigen Einstellungen aufC
 [ T   -  C
 
 - das Jahr C
  - die Arbeitsebene   .C
 H T  1 Der Vorgang kann nicht rckgngig gemacht werden!C
 @ T  / Der Fortschritt wird in der Fuzeile angezeigt. %  -_: T C $ Mchten Sie neu durchrechnen lassen?x % [ B  G R,:" Die Lohnsteuer wird neu berechnet.C
  Bitte warten....  %    	x Cل Da die Arbeitsebene REAL derzeit gesperrt ist, wirkt sich die nderung der Vorgabewerte nicht auf die bestehenden Flle in REAL aus. 
 REAL gesperrtx B  	 
 H 
   T  C

  T    
   T  C

  T    
  / T  C

  T    
  d T  C

  T    
   T  C

  T     % 
 T    ( x  (t     T  " T   
 \monatrep.pcg IF FILE("&hsmonatrep") %C  
 Ht( CC  	& T  `M/  T  `M/  T  `M/  T! `M/  T  `M/  T! `M/  CC 
 T  -  T  -  T  -  T! -  T  -  T! -  C  %C 
 "  T   @,  T   @,  T   @,  T!  @,  T   @,  T!  @,   T  *  T  *  T  *  T! *  T  *  T! *      %# 
 H@% CC $%& T$ C 
 T% &  T' C  ( 
 T% ) 
 T$ '   
 T*  +  %C5 


$ %C/ !
 C/ "9	/ T &CC/   ,  
 HJ	
 C5 z	 T &C&  C5 	 T & C5 	 T &{ C5 	 T &z C5 
 T &~ C5 B
 T & C5 j
 T &| C5 
 T &} C5 	
 T &  $ %C/ !
 C/ "/ T &CC/  ,    - L T. / 0 
 Personalfall CC  Z  CC  Z . Monat   R
 T 
 T  1 
 T2   3  U4  MUSTRUN MODUS MSG MSGX MUSER WELCHESJAHRC RESPONSE DIMEN DIMPW3 VOREINSTEIN WELCHESJAHR JAHR1 DIMSATZANZAHLJ1 LOF
 SATZANZAHL JAHR2 DIMSATZANZAHLJ2 JAHR3 DIMSATZANZAHLJ3 JAHR4 DIMSATZANZAHLJ4 JAHR5 DIMSATZANZAHLJ5 FILENEU MONAT
 GRUNDSTELLUNG WVWIN ZI
 HSMONATREP EIGDAT WVW TNAM BETRAG WERT ISSCHALTJAHR	 ALTESLAND J HSNEUDURCHRECHNEN TRUE HS_J_OLD
 ATVEINSPEISEN FALSE DASTUFEN DASTUFEBERECHNEN GETKVBEITRAG
 BERECHNUNG MYFORM1 TIP CAPTION SPIN_UP_DOWN MYINDEXE
 MONAKTIVIEREN JahrneudurchrechnenY      kassenausgeben     neudurchrechnen8    1 q qq  A sqq 1 Q q   A A  r RAA  QQ1Q1Q1Q1Q1Q1Q1Q1A  AA B r q B A A 3 qqaA A  qqq qqqqA A A A A 3 q  A  A  A A  qA 1
A A r  AAAAAA  A sqq q q"Q aaaaaaaaQ!aaaa aaaaA A A A  Q q   A A  q QAA  QQ1Q1Q1Q1Q1Q1Q1Q1A  AA B r A A R   r  r 7                    _  
  M   =          V     #        %              &  NTi    U      Q INTEGER % '  B 
 T   
 T    %C   %C . 
 T     U  XINDEX INDEXM
 T_GECLICKT MYINDEX ZI PENSIONSFLOP TRUEM T   JANUAR T   FEBRUAR T   MRZ T   APRIL T   MAI T   JUNI T   JULI T   AUGUST T  		 SEPTEMBER T  
 OKTOBER T   NOVEMBER T   DEZEMBER T  
 JAHRESGEHALT U  SUMONATTEXT	   (2 T CC   Z% mytablett.zeile&xxx..Top = 50 * i
" mytablett.zeile&xxx..Left = 20
$ mytablett.zeile&xxx..Height = 30
$ mytablett.zeile&xxx..Width = 400
& mytablett.zeile&xxx..FontSize = 12
( mytablett.zeile&xxx..FontBold = True
' mytablett.zeile&xxx..Visible = True
 
  x   (- T CC   Z+ myTablett.zeile&xxx..Top = i * 28 + 100
" myTablett.zeile&xxx..Left = 20
$ myTablett.zeile&xxx..Height = 30
$ myTablett.zeile&xxx..Width = 600
' myTablett.zeile&xxx..Visible = True
 . T   Speicherung der Personaldaten( T   von User002 bis User100E T  # Der derzeit verwendete User-Ordner  	  befindet8 T  ' sich in folgendem bergeordneten Ordner %  \user0011 T	   
  { %   ^ T	   
  w T	      T	 
  T	    T	  C  T     T    %  \user001'; T  * Der Userordner User001 wird unvernderlich6 T  % in diesem Programmordner gespeichert.< T  + Wenn Sie Ihre Daten in einem anderen Ordner; T  * speichern mchten, dann wechseln Sie bitte< T  + in Ihren persnlichen Ordner (User002 usw.) T    1 T    Sie knnen nebenan einen anderen1 T    bergeordneten Ordner festlegen. T     T     T     T     T    ( T   T   T 
 X T   0 T   Ordnerauswahl durch Doppelklick T         T  T X T     
  T d T  T X T     !  T  T  T  T
   T  " T  Ausgewhlter Ordner:   "  T  T  T < T
  
  T   T   T C  T        T  T  T
  T ( T# 
 T 
 bernehmen   $ 		 T  T  T
  T ( T# 
 T 	 Schlieen T    U%  I XXX	 MYTABLETT ZEILE1 CAPTION ZEILE2 ZEILE3 MUSER ZEILE4 ZEILE5 DIR1 EIGDAT ORDNER WIDTH FONTBOLD TRUE	 FORECOLOR QBCOLOR ZEILE6
 SSCOMMAND2 VISIBLE ZEILE7 ZEILE8 ZEILE9 ZEILE10 ZEILE11 ENABLED FALSE ZEILE15 TOP LEFT HEIGHT DRIVE1 ZEILE13 ZEILE12 FONTSIZE
 SSCOMMAND3
 T  
 H      ?  T     s 
 T   T  A20 C     T       T       T      T     3 T     g
 T   T  A20     T     	
 T   T  A20    
 T     
 T   T     < T     
a T      T   030
 T        T   135
 T   T  A20    U  INET MYSONDERZAHLUNG_ANDERE COMBO0	 LISTINDEX MYLINK MSG INSINTERNET t_click,     
 monatladen     
 speichernuX     tvoedsonderzahlung    1 !A A   Q A A 6 qaqq3 qqR!AAaqB  qq!AAqA QA A A A !Qa A !A    A     A      !A    Q  ! A      A      q A 4   q q  q q q q q r q r q  r q q q A q 7                        (        c  :        	  K      4  y     0   %   ol     C   Op FM[    U  
 T   T 
 
 H- % C   C 	  T 
 T 

 T  
 T   T  T * R C  C  C 	 C 
 C 	 %  *
 T   ?
 T   $ %C  C 	t
 T  #  %C  T 
	   % 
 H CC 	

 T   C 

 T   C /
 T   C Q
 T   C "s
 T   C #
 T    C %C + C  C 	 C 	
 T  #  %
 a

 T      % C  C 	
 HJ C  l
 T   C 
 T   C 
 T   C 
 T   C 
 T  	 C 
 T   C z %C a
 T  # T * v
 T    C 
 T  
 C 
 T   C 	
 T   C 

 T   C $
 T   C F
 T   C 
h
 T   C 
 T   C 
 T   C 
 T    %
 a
 T       $ %C  C 
 H.D C   C 	 C  C 	 %  
 T   
 T     %
 a
 T        U
  J ZVKZ FALSE ZI BETRAG WERT	 ZVKUMLAGE ZVKHALB	 ALTESLAND TRUE HSNEUDURCHRECHNEN HS_J_OLD ATVUMSETZENF
 T     
 T   $ %C ( C l 
 T  
 T  
 T     T C    T C    T C  	  
 T
  
 T  
 T  %C 
 H  
 

 T
   
 5
 T
   
  %C 
i
 T
   ~
 T
   
  %C 

 T
  
 T
 (  
 
 T
 (   %C  C 	 C  C  C  C < C  C 	 C  C 	    #	
 H 
 

 T   
  % #8 %C 	

 T   4
 T   { %C 
b
 T
   w
 T
    
  % #
 T   %C 

 T
  
 T
    
  % #&
 T (  %
 { %C 
b
 T
  w
 T
 (   %C 

 T
 ( 
 T
 (     N %C 
 C  C  C   	
 H)| 
 
H
 T
   
  %C 
|
 T
   
 T
   
  %C 

 T
  
 T
   
 / %C 

 T
  +
 T
 (  
 | %C 
c
 T
 ( x
 T
 (   Z %C 
 C  C  C     $	B
 H> 
 


 T   
 W %C 
>
 T   S
 T K  
  %C 

 T K 
 T   
  %C 

 T  
 T   
 > %C 
%
 T  :
 T     %C  C 
 C  C  C  C  C  C   	4

 H0
 
 

 T
   
 I	 %C 
0	
 T
   E	
 T
   
 	 %C 
}	
 T
  	
 T
   
 	 %C 
	
 T
  	
 T
 (  
 0
 %C 


 T
 ( ,

 T
 (    %C  C 
 C  C  C  C  C  C     	2
 H
. 
 


 T
   
 G %C 
.
 T
   C
 T
   
  %C 
{
 T
  
 T
   
  %C 

 T
  
 T
 (  
 . %C 

 T
 ( *
 T
 (    %C  C 
 C  C  C  C  C  C       &	;
 H7 
 


 T   
 P
 %C 
7

 T   L

 T K  
 
 %C 


 T K 

 T   
 
 %C 


 T  

 T   
 7 %C 

 T  3
 T     %C  C 
 C  C  C  C  C  C     
	
 H 
 

 T
   
  % _ %C 	
F
 T
   [
 T
    %C 

 T
   
 T
    
  %C 

 T
  
 T
   
 @ %C 
'
 T
  <
 T
 (  
  %C 
t
 T
 ( 
 T
 (   % 

 T    %C  C 
 C  C  C  C  C  C   	
 HN 
 
z
 T  
 T
   
  %C 

 T
  
 T   
 T
 
 T   
 H %C 
"
 T
 
 T  D
 T
 
 T   
  %C 

 T
 
 T  
 T
 (
 T   
  %C 

 T
 (
 T  
 T
 (
 T     %C  C 
 C  C  C  C  C  C   	    	
 H 
 

 T  
 T   
 _ %C 
9
 T  
 T   [
 T 
 T   
  %C 

 T 
 T  
 T 
 T   
 - %C 

 T 
 T  )
 T (
 T   
  %C 
n
 T (
 T  
 T (
 T    3 %C  C  C 	s %       %  &3 C # C   /Th.vbl  Th.vbl	
 HO 
 
n
 T   
  %C 

 T   
 T K  
  %C 

 T K 
 T   
 U %C 
<
 T  Q
 T   
  %C 

 T  
 T   
  %C 

 T  
 T     : %   C 	 C 	  	
 HB 
 
a
 T
   
  %C 

 T
   
 T
   
  %C 

 T
  
 T
   
 H %C 
/
 T
  D
 T
 (  
  %C 
|
 T
 ( 
 T
 (    % (  
 T
  
 T    %    T C   
  d T C   
 d T    % ([
 T   y T C   d  T C    T  d T C , % # C 		 
 	 T  } T  } ! T  C     d T! C    d> %"  C 	 C 	 C 
	
 T  
 T!    T   %
  ! T C   
   
 H C*   %# H T * ! d c T *  ) % ! d  C (
	 T * ! d 6 C* 
 C* 	
 C*  T * ! d C*   %C #E T *  %C ' T * 5 T$ % & " Kein Beitrag zur ATV-Betriebsrente $ %C ( C ? T *  T' (   T)  5 T$ % & " Kein Beitrag zur ATV-Betriebsrente  U* 	 HS_XOLD_J J ATVVORGABENHOLEN ZI ZVKAG ZVKSTART ZVKAREV ATVAGBIS ATVSTART ATVAREV VBL_ERHOEHUNG_U VBL_ERHOEHUNG_K VBL_ERHOEHUNG_FAKTOR WELCHESJAHR DIR EIGDAT MUSER AOK_VERSION TRUE	 ZVKUMLAGE	 ATVUMLAGE ZVKHALB ATVUMLAGEAN ZVKUMLAGEAG	 SANIERUNG ATVSANIERUNG AGSTEUER	 ATVSTEUER WERT BETRAG
 ATVKAPITAL ATVKAPITALAN
 ZVKKAPITAL ZVKKAPITALAN	 ALTESLAND ZTI MYFORM1 Z41 CAPTION WVW EFFZ EFFZAHL	$ %C  ( C  K 
 T  
 T  
 T     T C    T C    T C    
 T  
 T	  
 T
  %C  $
 H    	  	
 T (   
 T     %C   C   C   C  < C   C  	 C   C  	    #	q
 Hm  	  	$ % #
 T	 (  
 T (   m % #T
 T	   i
 T     N %C  
 C   C   C    	
 H  	  	
 T (  
 T    Z %C  
 C   C   C      $	
 H  	  	
 T	   
 T	     %C   C  
 C   C   C   C   C   C    	
 Hr   %C  

 T  
 T (   
 T (   %C   C  
 C   C   C   C   C   C      	
 H  	  	
 T (  
 T     %C   C  
 C   C   C   C   C   C        &	
 H  	  	
 T	   
 T	    %C   C  
 C   C   C   C   C   C      
	
 H~   %C  

 T  
 T (   
 T (  % 

 T
    %C   C  
 C   C   C   C   C   C    	B	
 H>	  	 %C  

 T 
 T
  	
 T (
 T
    >	
 T (
 T
    %C   C  
 C   C   C   C   C   C    	    	

 H	
  [
 %C  
5

 T	 
 T
  W

 T	 (
 T
    

 T	 (
 T
   3 %C   C   C  	j %       %  &* C   C
   \Th.vbl a	
 H9   %C  
m
 T	  
 T	    
 T	    : %   C  	 C  	  	F
 HB  	  	#
 T (  B
 T     % (  
 T  
 T	  
 T
   %  n  T C    
 d T C    d T    % (
 T          ;
 T C   d  T C    T  d T C , % # C  		  	
 T  } T  } ! T C   	 
 d T C   	 d> %   C  	 C  	 C  
	j
 T  
 T    T    %  ! T C    
  
 H C*    %! 
 T  *  d % T *  9 %  d  C  (
 C  (	~ T  *  d 6 C*  
 C*  	
 C*   T  *  d C*    %C  # T  *  %C  'x T  * 5 T" # $ " Kein Beitrag zur ATV-Betriebsrente  %C  ( T  *  T% &   T'  5 T" # $ " Kein Beitrag zur ATV-Betriebsrente  U(  ZI ZVKAG ZVKSTART ZVKAREV ATVAGBIS J ATVSTART ATVAREV VBL_ERHOEHUNG_U VBL_ERHOEHUNG_K VBL_ERHOEHUNG_FAKTOR WELCHESJAHR	 FILEEXIST EIGDAT MUSER AOK_VERSION TRUE	 ZVKUMLAGE	 ATVUMLAGE ZVKHALB ATVUMLAGEAN ZVKUMLAGEAG	 SANIERUNG ATVSANIERUNG AGSTEUER	 ATVSTEUER WERT BETRAG
 ATVKAPITAL ATVKAPITALAN
 ZVKKAPITAL ZVKKAPITALAN	 ALTESLAND ZTI MYFORM1 Z41 CAPTION WVW EFFZ EFFZAHL %C    
 H"   C  >    C  Z    C  v    C   ! %  C  	     %       ' %     
 C  
	e T R Das Programm berechnet die Grundgehaltsstufe in Zeile 8 nach dem Datum in Zeile 6.C
 H T  1 Wenn Sie die Grundgehaltsstufe in Zeile 8 ndern,C
 [ T  D wird die automatische Berechnung der Grundgehaltsstufe ausgeschaltetC
 Q T  ' und das Datum in Zeile 6 wird gelscht.C
  Wollen Sie das?D T C . Berechnung der Grundgehaltsstufen ausschalten?x %  T  	   C
   wnw
  T      T    
 T
    T  d T  d T     T 5  T 6  C
   wnw  T 
 T       B    U  ZI BERLEITUNGSZULAGEN WELCHESJAHR MYFORM1	 BDABEGINN VALUE MSGX RESPONSE FILENEU
 TDBNUMBER1 MYGET WVW BDA BDATEXT WNW ZUMTV7 ZUMTV5 ZTEXT2 WERT MYPUT	 LASTCLICK LASTBDATEXT BERECHNUNGAUSLSEN 
 H
   CC   3 
 T  C  U 
 T  C  w 
 T 	 C   
 T 
 CC   
 T  C   
 T   U  ZI I
   ~ %C k
 H/ g4 C  C 	 C  T    T     
(
 T CC  Z .tei&aaa..Visible = False
 .bru&aaa..Visible = False
 .Wei&aaa..Visible = False
  T    T	    T
    T    T
     ( T CC  Z .com&aaa..Visible = False
 .par&aaa..Visible = False
 .extra&aaa..Visible = False
  T    T    T    T    T    T    T    T    T    T    T    T    T    T    T    T    T   Q C 	 C 
 C  C  C g    z     U   MYFORM1 ZI	 ABEREICH2 VISIBLE FALSE	 ABEREICH4 I AAA LEI12 LEI13 LEI14 LABEL20 TRUE LABEL18BIS20 Z21 T20 T21 T0 T1 DEM20 DEM21 DEM0 DEM1 DEM5 LABEL1 EXTRA9 EXTRA15 EXTRA16 EXTRA17 EXTRA22 EXTRA24 KEINEFREISTELLUNG
    T    T    T    T     
(  T	 CC  Z .tei&aaa..Visible = True
 .bru&aaa..Visible = True
 .Wei&aaa..Visible = True
  T
    T    T     ( T	 CC  Z .com&aaa..Visible = True
 .par&aaa..Visible = True
 .extra&aaa..Visible = True
  T
    T    T    T    T    T    T    T    T    T    T    T    T    T    T    T    T     U  MYFORM1 LABEL20 VISIBLE FALSE LABEL18BIS20	 ABEREICH2 TRUE	 ABEREICH4 I AAA LEI12 LEI13 LEI14 Z21 T20 T21 T0 T1 DEM20 DEM21 DEM0 DEM1 DEM5 LABEL1 EXTRA9 EXTRA15 EXTRA16 EXTRA17 EXTRA22 EXTRA24$ %C   C  	
	 %C \ .

 HL 
 CC Rg
x  T   CC Rg  %CC \g

  T     T    CC Rg
 T      U  ZI BDATEXT 
 H
   C   / 
 T % C   C  	a 
 T 
% C   C  	 
 T  C   
 T   U  ZI I! %   C 	
 H.  C } 
 HP y  CC 	
y 
 T   C  
 H   CC 
 
 T   C !
 H % C 
 C 	
 T   C m
 HCi CC 
i
 T   C 
 H% C  C 	
 T   C 
 H
 CC 


 T   C i
 H3e% C  C 	e
 T   C 
 H% C  C 	
 T   C 	
 H% C  C 	
 T   C e
 H;a CC 
a
 T   C 
 H CC 
 T   C 
 
 H CC 
 T   C L
 H"H CC 
H
 T   C 
 Hn CC 
 T   C 
 H% C  C 	
 T   C K
 HG% C  C 	G
 T   C 
 Hm% C  C 	
 T   C 
 H% C  C 	
 T     U  WELCHESJAHR ZI SOLDATI $ %C   C  
	  T   
            T  
           
     \ {ENTER} T   T   C	 
 T
   
 T
      B  U
  ZI MYFORM1	 BDABEGINN VALUE WVW BDA SETFOCUS Z1 CAPTION ZT1 ZTI ZGRIDAKTIVIEREN BERECHNUNGAUSLSEN  C5 Hier endet die Hilfe beim Anlegen eines neuen Falles.C
 @ Bitte bearbeiten Sie die folgenden Zeilen strikt der Reihe nach.C
 = Klicken Sie auf Zeile 13, damit sich deren Auswahlbox ffnet.  Viel Erfolg ...x U    U   %C   
 H" p C  
\ % T CC     C  
 % T CC     CC  	 % T CC     C  % T CC     C  
K% T CC     C  % T CC     C  m
 HiD C    C  	 C   C  	% T CC    4 C   C  	 C  i% T CC  	    CC  % T CC     CC  % T CC  
  b C   C   C   C  	 C   C  	p% T CC      T C   T    % & T C     U  ZI BETRAG VOREIN VORWOCHENSTUNDEN OP2 OP1 
  zkind U  ZKINDs T  C  T  C  T  C  T  C  T &C  T 'C  T (C  T )C  T &C  T 'C  T (C  T )C  T &C	  T 'C
  T (C  T )C  U  EFFZAHL	 ATZTRESOR BETRAG WERT ZI 
 H
  % C    C  	2  C  g  %C  
c    % C   C   	   U  ZI DASTUFEBERECHNEN  T  C   U  ZI  T  C   U  ZI
 H
 b C    C  	 C   C  	 C  
 C  	
 H|  : CC   	
 
 T  ( CC  
 
 T  $ %C   C   %C   T    T   T   T    T  	  T  
      %CC   
  T CC   
  T CC      $ %C/  
 C  	] T  /C    % 
 T   %C  / T  &CC           	  %C  = %C  1 T
   T 
   x 9     %C   %C  
 T  '  T  '      %C   %   T    T     U  ZI	 ALTESLAND ATVKISTR ZVKKISTR EINMALZAHLUNGEN MONAT GETKVBEITRAG ZGRID46 KIRCHENSTEUERAUSWAHL KIRCHENSTEUERLAND ZVKZ TRUE MYFORM1 ZVK15 CAPTION
 ATVEINSPEISEN WOCHENARBEITSZEITHOLEN
 T   T  
 H-  C     T C  T C   T C  T     %C   T   T   T    T 2  C  %C  -1T T  -1  T  C  T C  %C  T   T   T    T 2  C  T   T   T  C  T C  T     T   T   T   T 2  %C  
 T     U 
 T_GECLICKT ZI WOCHENARBEITSZEITHOLEN WERT BETRAG TEILZEITFAKTOR	 MONAT3031
 H
  C        %C5  
U  T  5   %C5    T  5  C   U T   T   T   T     %C5  
% T  5   %C5  Q T  5   CC   
 T 2 %C5   
 T   
 T   %C  
 H$ C/  !
 C/  "$ %CC/     
I" T	 C/    $ %CC/     @/ T  &CC/     J / T  &CC/      
 H CC5   
F T  6CC&  
  T  5  T  '  CC5  # T  6CC&  
  T  5 T  '  CC/  !#  $ %C   C  	F T  5
 T  ' 
 H$B$ C/  !
 C/  ")$ %CC/    
" T C/    / T  &CC/     %CC&  G  T  6CC&  
  %# T  6CC&  
   CC/  !#B  
 HW C  
   
    CC   C  
 H CC   
    C    C    C    %C   T  5
 T  ' 
 H}$ C/  !
 C/  "$ %CC/    
" T C/    / T  &CC/     %CC&  G S T  6CC&  
  ~# T  6CC&  
   CC/  !#    U  ZI ZTI ATZRCK WERT BETRAG ATZTEIL
 AGZUSCHUSS GETKVBEITRAG MONAT
 KVBEITRAG1 FIX
 KVBEITRAG4
 SZI_BESTIMMEN ALTEREINSTELLEN
 ALTERRECHNENB T  C 
 H  C  :    CC (  T   T   T *  T *  T *  C ) T   T   T *  T *  T *  C   ({ T    T     T    T  T /# T *  C  T   T  C 
 T	   
   U  J ZI ZVKZEILENSTATUS BETRAG WERT I SOZZ FALSE ZVKZ NR63 ATVUMSETZEN>  %C  (  T  % 7     U  ZI KIRCHENSTEUERAUSWAHL  %C   j  T  5 / T  &CC/      T  '    T  &{ T  5 T  '  U  ZI GETKVBEITRAG MONAT'
 H
  % C  
 C  	  %C     T   { CQ Eine Stufenkrzung oder -verlngerung bentigt ein Bezugsdatum in Programmzeile 6  Einstellungsdatum fehltx   % C   C  	% C    C  		 
 H5 C   J C   %C	    T  	 
 H% C"    C"  	 T  "C"  "% C"  	 C"  	 T  "C"      U  ZI BDATEXT DASTUFEBERECHNEN
 H
 c  C3   "  C3  c  %C4   _  T  4  $ %C"  1 C"  2  T  $ T  %  %C"  1
  T  $  %C%  
      U  ZI KIRCHENSTEUERAUSWAHL
 H
  C&   [  T  '  T  (  T  )  C&  z
 %CC&  G  T    
 H  C5   
 %C  
  T  '  T  '   C5  f %C  
G T  ' b T  '  C5   T  ' C5   T  ' CC5   C5   T  ' C5  " T  ' C5  	J T  ' C5  
_ C5   T  '	  C&  { T  ' C&  | T  ' C&  }4 %CC&  G T     T  ' C&   T  ' T  ( T  ) C&   T  ' T  (	 T  )  U  ZI
$ %C  
 C  _  %  [  T N
 T     B   T  	  $ %C  
 C  	 
 T
  $ %C   C  	  T    T     T   
  T 6  T 5    %C   T   T   T   T   T    T    T  	  T  
  T    T      T  	   T   T    T   T   T    T  ' T  ( T  ) T   T    (" T    T     % 
 HE
  m T       T (     T 0     T     
 T     / T ȯ   $ %C"  5 C"  6W r T  "5  T  $ T  % T  &~ T  /"   
  ( T          
 H"% C   C  	 T   T     T      T      %C   T   T     *$ %C   C   	 T   & T     
 H;c4 C    C  	 C  ]  ( T     T   T  &{ T  5 T  ' T  ( T  ) T  *  T  /# T 
 T 
C C   C   C  	 C  c %C  	 T  	    T   $ %C/  # C/  !:	 T  /C   %C5  

q T  5 / T  &CC/      / T  &CC/      %CC&  G  T  5  T  6CC&     6	 T  5# T  6CC&      
 T  /C  / T  &CC/      %CC&  G 	 T  5  T  6CC&     
 T  5# T  6CC&       %C  
B
 T  ' ]
 T  '   %C  
 T   
 T     T  (  T  )  T  * T    ( T     T    (_ T      T   $ %C    C   	 T    % T$ %C   C  5 %C !   T    1 T    P T    o T    %C   T    $ %C   C   T     %C  
 T   
 T     %C  I
 T  
  %C  u
 T   
 T   "  #  $  %  &  '  (  )  T*    
 T   %C    T    T    T  	  T  
  T    T    T  
  T    T    T    T   T   + ( T +   T +    
 H1D C    C  	 C  
 C  	 T, -  D C   C  		 C   C  	 %  T, -    T, -     %C  c %
  D T   _ T     .  /  %C  $ T  	   0  T C 
 H~% C    C  	 T, 1   T, 2  % C  
 C  	 T, 1   T, 2  $ %C   C   T    T3   T 4 5  xC C   C  	 C   C  	B T, 1   T, 2   T3   T 4 5  - C  ~ T3   T 4 5  -  %C   T    %C   T     (A T    T6    T7    T      *(, T    T      %C   %C   %  T8   T8      9  U:  ZI NETTOENTGELT TRUE REGISTER OHNE_Z_CLICK FALSE LADEN MYFORM1 Z10 VISIBLE	 ALTESLAND Z3 MOUSEPOINTER SSARROW WERT FAMILIE BETRAG	 BDABEGINN VALUE T51 I WELCHESJAHR GERING7_2003 KIRCHENSTEUERAUSWAHL
 GERINGCHECKEN WVW BDA SSHAND SOZZ TVD GETKVBEITRAG MONAT FIX ZEST GRUPPE BDAEINSTELLUNGEN TITEL STUFE ORTSZU
 ALLGEMEINE EINMALZAHLUNGEN
 BEAMTENSTATUS BDATEXT J WNW ZUMLAGE3 PRAKTIKANTENVWL
 ATVEINSPEISEN WOCHENARBEITSZEITHOLEN ZUMLAGE1 ZUMLAGE2 ZVKZ ZVK17 CAPTION TEILZAHL	 BRUCHZAHL WEIZ VOREINSTAUSu, %C    C   	_
 T 2
 HF [D C    C  	 C   C  	  %C#    T     T        C    B C  [ %C#  5 T   P T       n    U  ZI ZTI ATZTEIL ALTERUEBERTRAG
 ALTERRECHNENB ALTEREINSTELLEN ATZRCKh %C  {$ %CC/    
[ " T C/    $ %CC/     @ / T  &CC/    J  / T  &CC/      %CC&  G 9 T  5
 T  6CC&    w T  5# T  6CC&     $ %CC/     
" T C/    $ %CC/     @ / T  &CC/     J W/ T  &CC/       %CC&  G  T  5  T  6CC&     T  5# T  6CC&      %C/  !a T  5 T  ' %CC&  G ] T  &C&     U  ZI GETKVBEITRAG MONAT
 KVBEITRAG4 FIX
 KVBEITRAG1  T  "C  T  $C  T  %C  T  &C  T  'C  T  (C  T  )C  U  ZI GEFUNDEN$ %C   C  	7  T    %C   $ %C   C  
	  T      $ %C   C  	  T     T    $ %C    C  	# T        %C  Q    %C       %C   $ %C"  5 C"  6  T  "   T  &z T  ' T  ( T  )  T  "  T  &{ T  5 T  ' T  ( T  )    $ %C   C  	 T    %C        %C   
 H) C   %C  f T  
   T  
  T	 
   C   %C   T  
   T  
  T	 
   C  v %C  D T  
  r T  
  T	 
   C   %C   T  
   T  
  T	 
   C  T %C  " T  
  P T  
  T	 
   C   %C   T  
   T  
  T	 
    3 %C   C  	 C  	T T    T   T
      T
    
 T     %  % 
 H% C   C  	$ %C  (
 C  (       U  ZI BDAEINSTELLUNGEN TITEL STUFE ORTSZU
 ALLGEMEINE
 GERINGCHECKEN WOCHENARBEITSZEITHOLEN
 ATVEINSPEISEN BETRAG MYFORM1	 BDABEGINN VALUE WVW BDA BDATEXT WELCHESJAHR	 ALTESLAND
 H
  C   P
 H/ L C     %C  l  T  
    T  
  T 
   %  
 T   
 T    C  q T  
  T 
 
 Hm C  E T  
  C  m T  
X  C  
 T  
  T 
 
 H	 C   T  
  C  	 T  
Y  C   T  
  T 
 
 HU C  } T  
  C   T  
  C  . % * %C   T  
> & T  
  T 
    C   T  
  T 
 
 Hv C   T  
   C   T  
  T 
 
 H C   T  
   C   T  
  T 
 
 H^ C   T  
  CC   T  
3  C  4 T  
  T 
 
 H0 CC  0 T  
4  C  	 T  
  T 
 
 H| CC   T  
!  C   %C   T  
  T  
   C  L
 H*H C  x T  
 T  
  T 
  CC  
 T  
 T  
#R C    C  	 C   C  	 C  
H T  
  T  
  T 
    C  l   C  $ %C   C  	 T    T       U  ZI BETRAG SOLDATO SOLDATI WELCHESJAHR STUFE T    
 H  CC  o
 HC k CC  
 Hi      %C   T    T  C      T    T  C   C k! %  C 	g %C c T       C  	   U
  WNW ZTEXT2 BDATEXT ZI WELCHESJAHR WVW BDA ZNAM ANHALTSTUFENNEU GERING7_2003g& %C  

 H"  CC	   N  T    CC	  z  T   CC	  	  T   CC	  
  T   CC	    T   CC	  * T   CC	  
V T   CC	   T    C	   T     
 H#&% C    C  	&
 Hv$ C   C  
	: % % T      ꕲq? T 	 
 a T 	  a T  
 a T   a T 
 
 - T 
  - 6 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  - $ C   C  
	?* %   		  ]% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + EFZ1 T 
         
   ; T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C   C  
	: % J% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + FSZ1 T 
         
    % 
6 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C   C  
	5	 % E% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + FEZ1 T 
         
    % 
1	 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C   C  
	0 % @
% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + BEZ1 T 
         
    % 
, T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C   C  
	+
 % ;% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + FEZ1 T 
         
    % 
'
 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C  	 C  
	}= % ( CC  		a% T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + FEZ1 T 
         
   > % ) CC  

	  	y T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T   $ C  
 C  
	 % >% T      ꕲq? T 	 
 a T 	  a T  
 a T   a T 
 
 - T 
  -  % 
 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -
 T  
 T  
 T  
 T   $ C   C  
	 % % T      q=
ףp? T 	 
 a T 	  a T  
 a T   a T 
 
 a T 
  a  % 
 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -
 T  
 T  
 T  
 T   $ C   C  
	 % % T      q=
ףp? T 	 
 - T 	  - T  
 - T   - T 
 
 a T 
  a T 
    + FEZ1 T 
         
    % 
 T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -# T 
      
  
 T  
 T  
 T  
 T    2v T       T 	 
 - T 	  - T  
 - T   - T 
 
 - T 
  -' T 
      
  
 T  
 T  
 T  
 T   
 H% C	   1 %C  
 T     T    T    T   
 H% C"    C"  	F T  " % C"  	 C"  	~ T  "% C"   C"  !	 T  "% C"  " C"  .	 T  ""  %C  
 T  3   T  #  C	   %C  
n T    
 H_% C"    C"  	 T  "% C"  	 C"  	 T  " % C"   C"  !	' T  "% C"  " C"  .	_ T  ""  T  4  T  #  C	  $ %C  
 C  
	 T    T  
 H% C"    C"  	1 T  "% C"  	 C"  	i T  "
% C"   C"  !	 T  "% C"  " C"  .	 T  "$  T  # C	  W$ %C  
 C  
	< T    T  
 H`@% C"    C"  	 T  "% C"  	 C"  	 T  "% C"   C"  !	 T  "% C"  " C"  .	@ T  "&  T  # C	  $ %C  
 C  
	 T    T  
 H% C"    C"  	 T  "% C"  	 C"  	7 T  "% C"   C"  !	o T  "% C"  " C"  .	 T  "(  T  # C	  %$ %C  
 C  
	
 T    T  
 H.% C"    C"  	f T  "% C"  	 C"  	 T  "% C"   C"  !	 T  "% C"  " C"  .	 T  "*  T  # C	  $ %C  
 C  
	q T    T  
 Hu% C"    C"  	 T  "% C"  	 C"  	 T  "% C"   C"  !	= T  "% C"  " C"  .	u T  ",  T  # C	   $ %C  
 C  
	 T    T  
 H % C"    C"  	4  T  "!% C"  	 C"  	l  T  "% C"   C"  !	  T  "!% C"  " C"  .	  T  ".  T  # C	  !$ %C  
 C  
	?! T    T   T  "
 T    T  # C	  	+"$ %C  
 C  
	! T    T   T    T  " T  # C	  
"$ %C  
 C  
	w" T    T   T  " T    T  # C	  c#$ %C  
 C  
	# T    T   T    T  " T  # C	  #$ %C  
 C  
	# T    T   T  " T    T  # C	  
$$ %C  
 C  
	K$ T    T   T    T  " T  # C	  P%$ %C  
 C  
	$ T     %C  
% T     T    T  "  T  #  C	  %$ %C  
 C  
	% T     C	  % T  # $ %C   C  	& T  #   C  #&    %C4  C#  
`& T  4C#    U  ZI WVW ZHLKIND
 ZHLKINDER WELCHESJAHR MYFORM1 Z8 WIDTH Z9 MIETSTUFEZ8 ENABLED VISIBLE GEMEINDEAUSWAHL SONDERZUSCHLAG MONAT CAPTION LEFT
 MYMIETSTUFEZ8
 LASTMIETSTUFE MYSONDERZUSCHLAG LASTSONDERZUSCHLAG GERING8_2003#  %C       U  ZI GERING9_2003 %C  (  T   $ %C   C  
	 %C  
 T  
 T  
 T   T C d T	 C 
 T
  
 T 
  %
   
  
	 T 
  
  
 T   
 T  
 T  
 T   T  *  d %C*   T  *  
 T  
 T
  
 T   T  *    T  *  T C d  U  ZI WERT ZVKAG ZVKAGBAK ZVKSTART ZVKSTARTBAK ZVKAREV
 ZVKAREVBAK	 ZVKUMLAGE BETRAG ZVKHALB
 ZVKHALBBAK	 SANIERUNG SANIERUNGBAK ZVKUMLAGEAG
 ZVKKAPITAL AGSTEUER AGSTEUERBAK ZVKKAPITALAN	
   	
 H  C   3 T   Beginn der Stufe 1 (Rechengre)! T  Diensteintritt5 T " Nchster Stufenaufstieg (nur Info), T  Ohne Bezge beurlaubt bis4 C  C  C 	9! T  Beginn des BDA C ~ %C 
! T  21. Geb.tag am* T  Nchster Stufenaufstieg & T  Datum der Ernennung T C  
 Hz CC   %C 
- T  Beginn des Stufenaufstiegs& T  Datum der Ernennung  C 7! %  C 	, T  Beginn der Stufenlaufzeit  % 3, T  Beginn der Stufenlaufzeit  C  %  %C 
- T  Beginn des Stufenaufstiegs& T  Datum der Ernennung   CC z! %  C 	4, T  Beginn der Stufenlaufzeit  % v, T  Beginn der Stufenlaufzeit  % C  C 	U, T  Beginn der Stufenlaufzeit$ T  Einstellungsdatum5 T " Nchster Stufenaufstieg (nur Info)- T  Ohne Entgelt beurlaubt bis CC ' T  Ausbildungsbeginn am CC ) T  Betriebszugehrig seitR C  C  C  C  C 	  Y([~ C   woerter ! T  YC     T 
 Befristet bis, T  Ohne Gehalt beurlaubt bis T 	 
   %CC  >

 T     * %C   C  \   J T
     	 %C 
5 %CCC  Rg
 CCC  Rg  T  CC      %CC   .! T   01.CC  R C Das BDA des CC  Zٯ . Personalfalles wurde zur Korrektur eines Formatierungsfehlers korrigiert und entspricht damit nicht mehr Ihren Vorgaben. Bitte berprfen Sie also das Besoldungsdienstalter.  Achtungx  T
       U  MYFORM1 ZI ZT1 WELCHESJAHR I MYGET WOERTER TEXTEE EXTRA1 VISIBLE FALSE WVW BDA	 BDABEGINN VALUE JAHR5 XJAHR5 FILENEU     
 H  CC  N T 	  T 
  T "  T &z T ' T ( T )
  J  (	F T CC  Z .z&aaa..Visible = True
 .par&aaa..Visible = True
 .com&aaa..Visible = True
   C v T  / T &CC/     T '  T (  T ) 
  r  (	n T CC  Z .z&aaa..Visible = False
 .par&aaa..Visible = False
 .com&aaa..Visible = False
   C  T 	  T 
  T "0/ T &CC/     T '  T (  T )
    (	 T CC  Z .z&aaa..Visible = True
 .par&aaa..Visible = True
 .com&aaa..Visible = True
   C  T 	 T 
  T "0 T &{ T ' T ( T )
    (	 T CC  Z .z&aaa..Visible = True
 .par&aaa..Visible = True
 .com&aaa..Visible = True
    U  ORTSZU
 ALLGEMEINE ZI MYFORM1 I AAA GETKVBEITRAG MONAT     
 H  CC   T 	  T 
  T   T /" T   T "  T %    T $  T 3  T 4  T &~ T 5 T ' % 
W T ( r T (  T )
    (	 T CC  Z .z&aaa..Visible = True
 .par&aaa..Visible = True
 .com&aaa..Visible = True
   C  T 	  T 
  T   T /C  T "  T $  T %    T 3  T 4  T & T 5	 T ' T (	 T ) T 
    (	 T CC  Z .z&aaa..Visible = False
 .par&aaa..Visible = False
 .com&aaa..Visible = False
   C  T 	  T 
  T   T /C  T   T "6 T 3	 T 4  T $ T % T &{ T 5 T ' T ( T )
    (	 T CC  Z .z&aaa..Visible = False
 .par&aaa..Visible = False
 .com&aaa..Visible = False
   C  T 	  T 
  T   T /C  T "6 T 3	 T 4  T $ T %/ T &CC/ 	    %CC& G  T 6CC& 
  # T 6CC& 
   T 5  T '  T (  T )  T 
    (	 T CC  Z .z&aaa..Visible = False
 .par&aaa..Visible = False
 .com&aaa..Visible = False
    U  ORTSZU
 ALLGEMEINE ZI KIRCHENSTEUERLAND WELCHESJAHR MYFORM1 I AAA GETKVBEITRAG MONAT FIX
 H
  CC     %C	   a  T  &z T  '   T  &{ T  '  C  1 %C	    / T  &CC/      T  '  - T  &{ T  '  C   %C	    T  &z T  '  T  &{ T  '   U  ZI GETKVBEITRAG MONAT 
 H
   CC     %C	   a  T  &~ T  5   T  & T  5   U  ZI
 H
  CC    
 H6   C
   ^  T  ( C
    T  (  C   %C
     T  ' T  (  T  ' T  (  C  
 H. C
   V T  ( C
  ~ T  ( C
   T  (   U  ZI{ h CL Derzeit sind fr dieses Dienstverhltnis noch keine Tariftabellen verfgbar. 
 Sorry ... x T   nnn U  INET
 H
  C   

 H/  C   Q 
 T  C  s 
 T  C   
 T  C   
 T  C   
 T 	 C   
 T  C  
 T 	 C  ?
 T 
 C  a
 T  C  	
 T  C  

 T  C  
 T  C  
 T  C  

 T  C  -
 T  C  O
 T  C  q
 T  C  
 T  C  
 T  C  
 T  C  
 T  
 H

 C   . %  C  		  X T a k T - 
 H|
 C   
 T  C  
 T  C  
 T  C  
 T  C  &
 T 	 C  H
 T  C  j
 T 	 C   T C   
6 C   T C  	 6 C  	 T C  	 6 C  
* T C  	 6 C  Z T C  	 6 C   T C  	 6 C  
 T C  
 6 C   T C  
 6 C   T C  
 6 C  J T C  
 6 C  z T C  
 6 C   T C  
 6 C   T C  
 6 C  
 T C  
 6  C  
 H0% C    C  	b
 T 	% C   C  	
 T 
% C  
 C  	
 T   C  4! %  C  	

 T   % 0
 T   CC  Z
 T  C  v   C  
 T  C  	! %  C  	
 T   % 
 T   C  
	. %  C  		  	$ %C   C  v	
 T 
 $ %C   C  	
 T 
   C  
 % 	 %C  	     % 
    C  
! %  C  	^

 T   % 

 T    C  

 T  C  Y
 H
U C   

 T  C  
 T  C  3
 T  C  U
 T   C  E

 T  % A

 H=
 CC   %C   
 T   C  ; % 7
 H
3 CC  3
 T    C  
=
! %  C  	
 H~ C   
 T  CC  
 T    % 9

 H5
 C   

 T  CC  5

 T      C  )
 Hg
% CC   
 T 
 H
 C   

 T  C  

 T  C  H! %  C  	!
 T   % D
 T   C  j
 T  C  ! %  C  	
 T   % 
 T   C   % 
 T   C  v! %  C  	O
 T   % r
 T   C   %  %C  

 T  
 T    % 
 T    C  %
 T   C  y %C   `
 T  u
 T   C  
 T  C  
 T  C  	
 T  C  
 % 

 HC C    C  	 C   C  c
 T % C   C  	
 T   . %  C  	  	G
 HC CC  
 T 4 C    C  	 C  C
 T   
 H\C C    C  	 C   C  
 T % C   C  	
 T     C  U % 

 HC C    C  	 C   C  n
 T C C   C  	 C   C  
 T   Q
 T  %C  
 T   %C  M* %   		  I
 T     C  w
 T  C  

 T  C  
 T $ %C   C  	
 T   C  G
 HC C   
 H4  
S
 T    %C  

 T  
 T    
 T   C   % 

 T  
 T   C  U
 T  % Q
 T   C  w
 T  C   % 

 T  
 T   C   % 

 T  

 T   C  ^ % 
E
 T  Z
 T   C   % 

 T  
 T   C  
 T  C  	
 T  C  

 T  C  3
 T  C  U
 T  C  
w
 T  C  
 T  C  
 T  C  
 T  C  
 T  C  !
 T  C  C
 T   C  i
 T  C   % 

 T  
 H CC   
 T % C   C  	

 T C C   C  	 C   C  Z
 T  C  |
 T % C   C  	
 T  C  
 T    C  
 T  C   %C  _ %C   F
 T  [
 T    %C   
 T  
 T    C  
 T  C   %C  	
 T  
 T   CC  >
 T  CC  d
 T  C  
 T  C  
 T  
 T   U  ZI I WELCHESJAHR BWNEU BREMENI	 RLDPF2012 MONAT DASTUFENMU T  - %   %  $ %C  C  
 H_   C    (  T     T 	 C
   T     T       % $ %C 
 C 
 H3 C   (y T     T 	 C
   T     T       
 H!  4$ %C5  C5 	$ %  C
 ɯ  
	n CL Die Entgeltuntergrenze fr die Gleitzone/bergangsbereich ist unterschritten  Bitte neu whlenx B    &{$ %C'  C' w$ %  C
 ɯ  
	sn CL Die Entgeltuntergrenze fr die Gleitzone/bergangsbereich ist unterschritten  Bitte neu whlenx B    'N$ %C(  C( J$ %  C
 ɯ  
	Fn CL Die Entgeltuntergrenze fr die Gleitzone/bergangsbereich ist unterschritten  Bitte neu whlenx B    (!$ %C)  C) $ %  C
 ɯ  
	n CL Die Entgeltuntergrenze fr die Gleitzone/bergangsbereich ist unterschritten  Bitte neu whlenx B   
 H2S    T C 
 T   T   C       
 T  
 T   B        %CC  
2< T    P CCCC  

Z  % r8 T    P CCCC  
Z  %    T &
 T   %      !  "    #   
 T$ %  T$ %  T     %C   ( T    T&    T
      %C  T 
 T '  C(   %C 
	 %) 	T* q Bitte nehmen Sie die Besoldungsabsenkung in Sachsen auf 99,5 % ( 3a BBesG) in der Menzeile unter Tarife/Tarife +  /Tarifstruktur + w  selbst vor. Schieben Sie die Laufleiste der Auswahlbox Beamtengehlter weiter zurck ber Beamtengehlter x 1 zu .995    %C 
]	 %,  Y	 T - .    x	 T - .    %C 	 T  T /    
$ %C  C  		 T  
 T     T0  1   %    p
  (l
 T      2    %C 
 %C 
 % 
 T 3   - T 4   -    5  6 
  7   $ %C  C 	i
 T8 o T*  34150 9  B 
 T i T     :  ;   
$ %C   C 	C Das Programm bercksichtigt nicht, da die Dienstaltersstufen bei Brgermeistern nach  21 Abs. 2 Nr. 2 BBesG abweichend festgesetzt werden (jhrliche Steigerung). Bitte geben Sie die Dienstaltersstufen deshalb manuell ein.   Sonderregelung  21 Abs. 2 BBesGx  <  T     =  >    %C 

 H:
 C  
 H\
b C   C 	 C  C 
	 C  C 
 ?  CC 
 ?  C 
 H  
  ?    %C 
N ?  ~ %C 
r ?  z     %C 
 ?    ! %  C 	 %C  T  @    D C  C 	 C  C 	 %A B t  ?     T /  1   C
   wnwC   D   
  9 TE CC  Z %C  
2 .dem&vzti..disabledBackColor = farbenrgb(1+15)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 5. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
   %C	  % &
p F  B 
 T   T G  CH    I   	
   TE CC  Z %C  2 .dem&vzti..disabledBackColor = farbenrgb(1+15)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 . .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
   T* ; Die individuellen Zwischenstufen wurden nach  6 Abs. 1 TVC
 7 bereits ab 1.10.2007 durch einen Stufenanstieg ersetzt. TJ ; Die individuellen Zwischenstufen wurden nach  6 Abs. 1 TVC
 7 bereits ab 1.11.2008 durch einen Stufenanstieg ersetzt. %C
   T
   T& 
 
 HwR C 
 C  C 
 C  C 	 C*   berholtx C + %C 

' C*   berholtx  CC  %C Y { CJ   berholtx    K   
 %C  T    %C  B   L %C H T  TE CC  Z
  D. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
 T4 .   TL .   TM .   TN .   TO .   TP .   TQ .     C 
d  
 H CC  T$ %  T R   x C   T$   T R   - C  T$ %  TS %  TT %  TU %  TV   T W   - TX   T Y   -   1 %C  T$ %  T Z   x - T$   T Z   -   
   TE CC  Z  %C  [ % 	 %C  * .dem&vzti..BackColor = farbenrgb(1+15)
  .dem&vzti..MousePointer = 99
 .T&vzti..ReadOnly = False
 .T&vzti..MousePointer = 3
 & .dem&vzti..BackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..ReadOnly = True
 .T&vzti..Mousepointer = 12 
   %C   X2 .dem&vzti..DisabledBackColor = farbenrgb(1+15)
  .dem&vzti..MousePointer = 99
 .T&vzti..ReadOnly = False
 .T&vzti..MousePointer = 3
 . .dem&vzti..DisabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..ReadOnly = True
 .T&vzti..Mousepointer = 12 
     
  ` TE CC  Z %C  2 .dem&vzti..disabledBackColor = farbenrgb(1+15)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 \. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..MousePointer = 3
  
 HqD C   C 	 C  C 	 \    I T] CCC 	   Sonst. Bezug lt. Eingabe
 C 	 6 TU %  T ^   x %C } TX %  T _   x  TX   T _   -    B `   ! a  T b c  d c 
 H
! C    e H T C
     f  %C
  
 T   T C
     T g . %  C X   e   T C
     f .  T C
    T g .   T& 2  C 	!  e   Th   T C
     f   Th   T C
    T g .   T& 2  C ! T e  C
   T f  C
   T g .   T b c  i c    ,
 H!* CC #
 H!(# CC5 (#>CZ Bitte beachten Sie, dass bei ATZ die Jahresarbeitsentgeltgrenze i.d.R. unterschritten wirdC
 M und dann nach  6 Abs. 1 Nr. 1 SGB V sofort KV-Versicherungspflicht eintritt.C
 C Ausnahmen fr ber 55-Jhrige sind in  6 Abs. 3a SGB V geregelt.   . Programmzeile 37 ist ggfl. manuell anzupassen!x 
 H9## C #3 C Keine Altersteilzeitarbeit  zu jungx B  C I$ CL Die Berechnung nach dem Altersteilzeitgesesetz ohne ergnzenden TarifvertragC
 ' ist derzeit mit PC-Gehalt nicht mglich  Sorryx T j .   B C B%    C (% C     wvwk  T l   T l @KL  m ($ T n m   C     wvwC   T #
 T " o  C *  
 Hk%* CC 
a&  C (6& C     wvwk  T l   T l @KL  m (& T n m   C     wvwC   T #
 T " o C C 	 C  C 	 C *  C (N) C     wvwk  T p  T p   T p 	  T p   T p 
 T p   T p 
  T p   T p   T p   T p  T p  T p   m (( T m   T
 m   T l m   T q m   T r m   T n m   TV m   T& m    T s 
%  T t   T u   T s   T p "	 C     wvwC   CC    wvwk  T  T  T 
  T   T   T   T   T  T  TS   TT   TU   TU 
%  T v   - T w   - T x   - T #	 T y  CC# z    6  %C 
+ T { . %  (+ T { .    %C5  + T 6CC& |  T 5  T '   %C5 + T 6CC& |  T 5 T '  T }  CC5 ~     , %C ,  (h, T (    T  .   , T  . %    >/  
  :/
 H,t. CC - T   % T . %  C D- T    T .   C L. %C H.  (- T CC  Z .soz&aaa..Caption = "-"
 .zvk&aaa..Caption = "-"
  T
    T
   T&   T  T /# T *   C t. T   & %C* 
 C* . T  C  T  c T h   T   6/ T  C  T   T h %  T      V/    g/  u0$ %C
   C  	/ q0 C3 Ein Lohnsteuerjahresausgleich ist nicht zugelassen,C
 I wenn ein Freibetrag oder ein Hinzurechnungsbetrag zu bercksichtigen ist. " Kein Lohnsteuerjahresausgleich .. x T    0  !0  "K5
  2 TE CC  Z %C  q12 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 2. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
  
 H2G5% C#   C# 	3 %C c2 T #  %C 2 T #	 $ %C  C 3 C0 Wenn in Zeile 23 Altersteilzeit eingestellt ist,C
 @ tragen Sie Kindergeld bitte manuell in den Zeilen 44 bis 46 ein.C
 & Die Betrge werden durch Anklicken desC
 ! -Zeichens in Zeile 43 angezeigt.  ATZ in Zeile 23x  %C# 3 T& #  T
 #   CC# 	4
 H44 CC  /4 C W4 T # C 4 T #	  C# 
G5
 H4C5 C 4 %C# 
4 T #  C '5 %C# 
#5 T #	  CC  C5    #6
  6 TE CC  Z %C  %62 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 6. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
    $/8
  +8 TE CC  Z %C  72 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 '8. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
    %@8  &9
  9 TE CC  Z( %C   C' )92 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 9. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
    '3;
  /; TE CC  Z %C  :2 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 +;. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
    (<
  < TE CC  Z %C  
<2 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 <. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly= True
 .T&vzti..Mousepointer = 12 
    )>
  > TE CC  Z
 H<= C*  < C* = C* 9= T * C* b= T * C* = T * * %C  
 C* E>2 .dem&vzti..disabledBackColor = farbenrgb(1+16)
  .dem&vzti..MousePointer = 99
 .T&vzti..readonly = False
 .T&vzti..MousePointer = 3
 >. .dem&vzti..disabledBackColor = QBColor(15)
 .dem&vzti..MousePointer = 2
 .T&vzti..readonly = True
 .T&vzti..Mousepointer = 12 
  3    *  ,	  /A
 T  
 H*?A  ?" T (CC    T   C(   (?- T ( CCCC(  \g8  T  (C(  T C(   /@" T )CC0    T   C)   (u@- T ) CCCC)  \g8  T  )C)  T C)   *  ,	A& T  CC     T CC  Z- myform1.SR&srzti..Caption = Schlsse(zti)
  (pA. T   CCCC    \g8  T   C    T C      .A    2 E T   CC3  
 HAFD C3  *B T " C4  C3 B %C4  sB T "	C4  B T "	  C3 B T "C4  C3 C T ""C4  T
 : C3 .C T "/ C3 VC T "0 C3 ~C T "1 C3 C T "2 C3 C T "5 C3 	C T "6 C3 
D T "4 C3 FD T "3 
  E %C3 D T  C  T  c T h   T   E T  C  T   T h %  T    
 T !    3G T   CC3  
 H]EG C3  E T " C4  C3 E %C4  E T 4  T "	C4  C3 F T "C4  C3 MF T ""C4  C3 uF T "/ C3 F T "0 C3 F T "1 C3 F T "2 C3 G T "5 C3 	=G T "6 C3 
eG T "4 C3 G T "3 
 T !    4Q
  tH %C5  H T  C  T  c T h   T   pH T  C  T   T h %  T     T }  CC5 ~  %C5 JI$ %C  C I %C I T  T  a  FI %C  BI T   T  a   
 H[IQ CC5  "L
 HIJ$ C/ !
 C/ "J$ %CC/    
I" T C/   $ %CC/    @CJ- T &CC/    J xJ- T &CC/      %CC& G J T 6CC& |  J# T 6CC& |   CC/ !#J 
  K T  C  T   T h %  T   T  C  T   T h %  T   T  C  T   T h %  T    %C5 L T &C6   C5 JL T & C5 rL T &{ C5 L T &z C5 L T &~ C5 L T & C5 M C9 Bitte geben Sie in Zeile 37 nur den hlftig vom AN und AGC
 4 getragenen Beitragsteil ein, weil das Programm einenC
 , gleich hohen Betrag als AG-Aufwand ausweist. , 0,9 % Zusatzbeitrag des AN extra in Zeile 42x T &| C5 %N T &} C5 	6O T &
  2O T  C  T  c T h   T   T  C  T  c T h   T   T  C  T  c T h   T    CC5 
Q
 H\OzP$ C/ !
 C/ "aP$ %CC/   
O" T C/   / T &CC/    %CC& G 2P T 6CC& |  ]P# T 6CC& |   CC/ !#zP 
  cQ T  C  T   T h %  T   T  C  T   T h %  T   T  C  T   T h %  T    %C5 Q T &C6    %C5 Q T '	 
 T %    5R T }  CC5 ~ 
 H RR C5  PR T &C6  C5 R T &C6  C5 R  T   
 T %    7S %m !R   R    B  % NS B 
 T  
 T %  T  c d
 T %  T d  T C   T C5  T C'        % }S   
 T  
 T %  T     
 T  
 T   % T  (9 T, %CC  9  f NETTOBERECHNUNGT T9    
    B    %  aFU C% Der Wert in Zeile 42 wurde angepasst.C
 J  Bitte whlen Sie nachfolgend fr die Zeile 42 die enprechende Option aus! 
      U  WERT42ANPASSEN PENSIONSFLOP FALSE WELCHESJAHR ZI ZTI I WVW ZEST ZULAGEN ZT6 SPARTE ENTGELTCODE WERT FILENEU SPIN1 MYFORM1
 TDBNUMBER1 VALUE ATZRCK	 NEUERNAME DIMENAUS	 LASTCLICK LASTZ ZGRID1 ATVKISTR EXTRA51 CAPTION BUNDESBEAMTE OP2 OP1 TEILZEITFAKTOR ZULAGENLADEN ZGRID2 STUFE ZGRID3 WEIZ TRUE BETRAG Z11 ZT11 MULTIPLIKATORB MSG WELCHESJAHRC
 LOTSEINDEX BBGLBG VISIBLE BDA BDATEXT	 BDABEGINN LEISTUNGSZULAGENZEILE WEI8 WEI11 ZGRID4 FREISTELLUNGSPHASE REFRESH INET INSINTERNET ZGRID5
 ALLGEMEINE SOLDATENAUSWHLEN ZGRID6 TITEL BDAZURCKSETZEN ANHALTSTUFENNEU WNW BESJA MYPUT ZGRID7 VZTI ZHLKINDERZEIGEN Z8 ZT8 ZGRID8 MSG1 ZGRID9 LST11 TEI11 SOZ11 ZVK11 BRU11 EXTRA11 WEI15 LSTZ SOZZ ZVKZ BRUZ BRU15 TEIZ TEI15 WEI16 AOK_VERSION ZGRID18 ZT19 ZVK19 TEI19 JAHRESGEHALT ZGRID21 TIP LEFT SSPANEL2 T0 T1 DEM5 READONLY SSPANEL1 KCOMBO MYGET TNAM J BRU	 DEMFARBIG ZNAM WEI TEI ZVK LST SOZ LST15 SOZ15 ZVK15 Z34 ZT34 EXTRA42 FIX Z52 ZT52 ZGRID22	 SCHLSSEL SR24 ZGRID25 DEM25 EXTRA25 AAA DEM41 DISABLEDBACKCOLOR	 FARBENRGB MOUSEPOINTER T41 QBCOLOR ZGRID28 LSCHL SCHLSSE VOREIN VORSACHBEZUG SCHLSS LASTSCHL SR47 VOREINBEHALT SRZTI ZGRID46 Z50 ZT50 DEM33	 BACKCOLOR T33 ZGRID33 DEM37 T37 GETKVBEITRAG MONAT
 KVBEITRAG1 DEM38 T38 DEM39 T39 DEM40 T40
 KVBEITRAG4 ZGRID37 T53 BUNDESKNAPPSCHAFTVORSPANN KASSEDRUCKENVORSPANN REGISTER OHNE_Z_CLICK SSPANEL4 LASTZ52 LASTZ38 DASTUFEBERECHNEN ZEILENINHALT BERECHNUNGAUSLSEN TASTENUMMER	 TASTEFLOP TASTENSTAND NETTOJA X	 FORMCOUNT FORMS WINDOWSTATE MYNETTOBERECHNUNG ACTIVATE HINWEIS Z26 CLICKn
/ %    C 	 C 	* T  Urlaubsgeld lt. Eingabe3 T   Urlaubsgeld Vergtungsgruppe 1-64 T ! Urlaubsgeld Vergtungsgruppe 7-16  g(n C   woerter ! T  gC    g

 H.c
 C 

 HP] C     (7 T    Sonderzahlung in Besold. integr.  %	 % T  Einmalzahlung 2011 , T  Sonderzahlung lt. Eingabe% CC 	
 %	 
   ($ T  
 Einmalzahlung     ($ T  
 Einmalzahlung  , T  Einmalzahlung lt. Eingabe C  %	 
14 T ! Landesanteil Besoldung (0 Kinder)2 T  Landesanteil Besoldung (1 Kind)  (I T   Landesanteil Besoldung (CC  Z  Kinder) 5 T " Landesanteil Besoldung lt. Eingabe    (7 T    Sonderzahlung in Besold. integr. , T  Sonderzahlung lt. Eingabe  C ;   ($ T  
 Einmalzahlung , T  Einmalzahlung lt. Eingabe C % T  Einmalzahlung 
   (# T   nicht belegt , T  Einmalzahlung lt. Eingabe% C  C 	]  _(fY C   woerter ! T  _C    1 %C  C 
	 	 	   (7 T    Sonderzahlung in Besold. integr. , T  Sonderzahlung lt. Eingabe   g(n C   woerter ! T  gC  - %C 	 	 		  n
	3 T  g Jhrliche Sonderzahlung   b C  C 	 C 
 C 	 C  C 		+ T  Tarifliche Einmalzahlung, T  Einmalzahlung lt. Eingabe %C 	1 T  40 Euro Einmalzahlung im April & T  Jahressonderzahlung& T  Jahressonderzahlung  (i	* T   Jahressonderzahlung 2 T  Jahressonderzahlung lt. Eingabe C c
+ T  Tarifliche Einmalzahlung, T  Einmalzahlung lt. Eingabe& T  Jahressonderzahlung2 T  Jahressonderzahlung lt. Eingabe   U  AOK_VERSION TRUE ZI ZT17 I MYGET ZT18 WOERTER TEXTEE WELCHESJAHR WELCHESJAHRC
 atveinspeisen,      atvumsetzen_alt|     atvumsetzenq'     bdazurcksetzen:     bremeni>     freistellungsphase?     keineFreistellungD     praktikantenvwlG    	 rldpf2012H     soldatenauswhlenI     berleitungszulagenO    
 wizardmeldungQ     wizfarbeR     wochenarbeitszeitholenR     zhlkinderzeigen0V     zgrid146KV     zgrid1W     zgrid17X     zgrid18X     zgrid2X     zgrid21]     zgrid22a     zgrid25Pi     zgrid28k     zgrid29l     zgrid3l     zgrid337o     zgrid37Yp     zgrid48t     zgrid34p     zgrid464     zgrid47֏     zgrid5     zgrid67     zgrid7J     zgrid86     zgrid9     zvkumsetzen     bdaeinstellungen     gering7_20025     gering7_2003n     gering8_2002     gering8_2003     gering9_2003h    
 keinetabellen!     stufenanzahlermitteln     zgridaktivieren    Einmalzahlungena   6  1 QAA  11"   A A A R1A   Q Q Q Q Q A A 2 A   A q R Q Q Q Q Q Q QQ A  A Q Q Q Q Q Q Q Q Q Q A   A q A A A   A A   A q A 3  q  A    !!!A    S ! ! !Q   A !Q   A ! A A  ! !R   A  Q   A A !  Q   A B !  !R   A  Q   A A C A A  ! !Q   A !Q   A !Q   A !Q   A A A  ! !Q   A !Q   A !Q   A !Q   A B B  ! !Q   A !Q   A !Q   A !Q   A A A b	 ! !Q   A !Q   A !Q   A !Q   A A A 
 ! !Q   A !Q   A !Q   A !Q   A A A b	 ! !R   A  Q   A A !Q   A !Q   A !Q   A A  A A  !  !Q     A !Q     A !Q     A !Q     A A B 
 !  !Q     A !Q     A !Q     A !Q     A A B 22 ! !Q   A !Q   A !Q   A !Q   A !Q   A A A A  ! !Q   A !Q   A !Q   A !Q   A A A   A    aA "rq21A   A A 2C  Q 1A A baB RAA R2QA A2a1QA 9 A    !!!A    T  ! A A 	    A !   A B A   ! A A   ! A A  !Q   A ! A A b	  ! A A 
  ! A A b	 !Q   A ! A  A A  !Q     A !  A A 
 !Q     A !  A A 2 !Q   A ! A A A   ! A A    A  Q aA !rq21A   A A 1A  Q 1A A aaA RAA R1QA Q1a1QA 3 R Qq Qq Qq Qq A !q A A A rQA1q1 11r  r  B A  A 3   Q Q Q  Q A 3  Q AqqA rqA q A  q A A 3  qqA rqA A 3 A 11 1A 1A A A 3  Q Q Q Q A 3  Q  A Q  A Q Q A Q  A Q Q A Q  A Q Q A Q Q A Q Q A Q  A Q  A Q  A Q  A Q  A Q Q A Q Q A Q Q A Q Q A A A 3 A 2q q  q q A B 3 q3  1 T QQQQQQQQQQQQ AQAQA QQ!QA  aA ! B 3  3 qqqqrqqqrqqqrqqq4  QQQq A QA 3 q3 q3  !   A BQ111111A A A  A s BqA  A RA r q q RR2A B A s QQ1 1A A r T1 1A A 3  1 Qx rq1r R111A 2RaA qQ111A 1Raaq1r 2111aA A 3  r R1A R1A aaaar R1A R1A  Q   A R AA!A B A  11111A B A B11 AA!A  1A B A  Qq q q R q A A Q11 AA!A  1A B A B 4  Qq 11111R11111Rq11A 1111Q1 r B 3 Q1 q A 3 Q11 111A 5  Q11A r RR QQQ1A  QQA A A 3  QRQ1A A A11A R1Qq A A 3  Q111R1A  QQ1 1A RQ1 1A R1Q1R1Q1Q1QQ1A R1Q1Q1A 2Q111Q111A 3 A  r F A A 2B A B11A 221r R211122111111111111121qqqA $ !a!a!a!a!aA  aA C 1A 2111r  qqA q A r  Q111A R1 A1 1A A  Aq1A 11111111AA1Q1A 2AqQ1 A 1 11A  q1 11A A R1 1A X1 1A 3111r1A 2r1A A 2B1A "A1 1A  1A  1A R1A B1A R2 1A R1A R1A  r q q q q q r q 2 R211111111111rqqA A  AA! A A R1 1A A r s R1A s r QQA1A 1A11AQ1AA Q1A R1qq11qA qqqA A SQ!11A A A r 4   AQ1 1A r q RA QQ1 1A r B  q A 3 TA!A B A 1 11A  A!A B A 1 11A A R11A A 3 qqrrqqq4 A1A RB1A A r B1 1A B1A r q Rq A Rq q RA 1A 1111 111111A B r B1A Rq q A R QQ1 11A QQ1 11A QQ1 11A QQ1 11A QQ1 11A QQ1 11A A A 2112 A " QAq A A A A 3  Q QQ1 11A    A Q11 Q1Q1A Q11 Q1Q1A Q11 Q1Q1A Q!Q1 11A A Q11 Q1A Q11 Q1A Q11 Q11A Q11 1A Q11 1A QQ1 1A Q Q11111!111A A Rq QA11A r A 4    !QA !A QQ1q A A A Qq A 4 R 11111111QA A  Q A!Q A BQ 1    A B!QA !1    A B!QA !1    A B!QA !1    A B!QA !1    A CQA 1    A B!QA !    A B!QA !    A B!QA !1    A  q    A  QQ1A 211 Q1Q1Q1Q1A R1A 2QQ1A  Q1Q1Q1Q1A 21RA1A 2 Q1Q1Q1Q1A 2QA1A 2 Q1Q1Q1Q1A 2QA1A 2 Q1Q1Q1Q1A 2QA1A 2 Q1Q1Q1Q1A 2QA1A 2 Q1Q1Q1Q1A 1QA1A 2 Q1Q1Q1Q1A 1QA1A 2111QA1A 2111QA1A 2111QA1A 2111QA1A 2111QA1A 2111RA1A R1A 211QA1A U1A A1A Rq A A 4 Qq A 4 Q2A BQ   Qq    A    bAA     1A  2QD 3   Q1QAQQ aqA  QaA QA "A R!QaA A A "A A QAQq"A C A  aQA A qA AA F 3 q q  1121111 qqA A R1111 qqA A R111111 qqA A R1111111 qqA A A 3 q q  1111511r 211311"1 1A 2 qqA A R111q212r 21211111 qqA A R111q11111111111 qqA A R111q11111 1A 21111 qqA A A 4  Q11 11A RQ1 11A RQ11 11A A 3  Q11 11A A 4   Q1Q1A RQ21 21A R Q1Q1Q1A A 3 3  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A  Q   A  Q Q Q Q Q Q Q QQQQQQQQQQQQQQA R Q Q Q A Q A " A  Qq Q Q A " A RB A B A B Q!Qq A A !q A R B ! B A Q Q Q Q Q Q A Q ! Q A R!  A A Q Q  A A ! Q  A A A A Q   Q Q Q A " A R Q A " A R! A R A " A R!Q   A A " A A Q A QQ   A Q Q Q Q! 1 Q A    A A   1 Q A A B Q" 1 1 A   Q A Q A A I Q Q Q A A R Q ! !Q   A ! A Q!   A Q ! A Q Q!   A Q!   A Q!   A Q!   A Q Q Q Q Q Q Q Q Q Q Q Q A R Q!    Q 1 Q Q Q A A Q QQR   A  Q   A A Q QQ   A   Q Q A  4  !A qqA A A A !A qqA A A A A  AAB A A AAB A A AAB A A AAB A A A  Q Qr q u   A q  A s   !q A r q q <1RrqqqA A R1qA WAA A R1A  1A R1 A1 1A A 2QqqA A r q SQ!AAA A A r q  C !q B A  r q AA r q q Q Q !q q Q !q !Qq  Qq  A A !Qq  A A Q1q A A A BA q A A  aqA r  q! A A R1q A   qA A q  q! A A R11 !QQA Q A A A q Q1A RB A Q1q A A   1AQ1AQ11111A1AA Q1A 1AA  qQ aA  ! A A A  q! A A  Aq A 1AQ1A 1AA B q q  QB   A A 1RA A 21R A  A 21R1A   A  Q1B A WA	1B Rq qaA A 1 q Qq  qaA A 1 q 2aaaaaaaaaaaaaqqqaaa1qA aaaaaA 1111111111111AAA1A A r R2 2A R11A Q11A r QqA 1 1A r   !Q!QQqqA 111111A Q1A bQ QA A q A 1A  q! A A  QQ1A R1A BaA R11A  R1Q1A Q QQ1A RQ1A C A  q! A A  q! A A  q! A A  q! A A  q! A A  q QQQAQAQAA ! A A 3  !qqA !qqA aqqA !A q  QQQ 1A QQAQ1Q1Q1Q1Q1Q1Q1Q1A  QQ QA A  q  QQQ1A QQQ1Q1Q1Q1Q1Q1Q1Q1A  q  QQ QA A RAQ1 A  Q1 A A A   AA!A B A  1A B  QRRA QA S1Q1Q1Q1Q1Q1Q1Q1 QRRA  AA!A  1A B  QRRA QA C Q1A  q  QQQA 1 q q  q A A A "B A   1 Qr q q q A   1   A A A A  a A 3 1AA   Q QqqA !QA Q!qAA  qAA A R!A!qA Q qqA A RqAB RQq1A RA A qqA  1A A A "QA baqA !Rb!A A 1                    D   
     l   
  jE  x   N  E  Pg      xg  Km    J  km  Xn    Y  n  8t      bt  Tx  W    |x  !z      Cz  {      E{      +  %      :        <  ц      >  +    0  c    "  \  e  C  3  `  v  R    w    2  F      f  z        N      n  W      w      S        s    
    y  *                   [      {        ź    Z      	    '  *      P    p  %	  X      2	      z  	  B      4
  ]  >  ? R
  J
  @ F@ x  N
  j@ C   q
  C ZP   
  P V 
    V ` _
  v  a ,c 
    Qc c     &d ef     f g 5    5g  :  z
  6  0      , \     %   n>      C  T  >  QOT    U  
    %  "  B # T  C    6' T  C    6  (W T CC  ZF .zeile&xxx..Caption = ALLTRIM(STR(.SSScroll1.Value - 10 + i,10,0))
0 .zeile&xxx..BackColor = myform1.z0.BackColor
1 .Kasten&xxx..BackColor = myform1.z0.BackColor
8 %  
     
   
	." C
  
  wnw  % 
> .Kasten&xxx..Caption = CHR(13) + ALLTRIM(wnw.personalfall)
 *4 .Kasten&xxx..Caption = ALLTRIM(wnw.personalfall)
  S .Kasten&xxx..Caption = ""
    ( T CC  Z %  
 
0 .zeile&xxx..BackColor = mytablett.backcolor 
1 .Kasten&xxx..BackColor = mytablett.backcolor 
 % %  
   0 .zeile&xxx..BackColor = mytablett.backcolor 
1 .Kasten&xxx..BackColor = mytablett.backcolor 
   T	 
 C  T 
 C   U
 	 MYTABLETT I	 SSSCROLL1 MAX
 SATZANZAHL MIN XXX VALUE MYGET ZEILE10	 BACKCOLOR QBCOLOR KASTEN10 T   a T   a T   a T   -
    T   T   T   T   T 	 
 T
    ( T CC  Z .zeile&xxx..Visible = True
 % = T
 C  5 .zeile&xxx..Top = sicht(1+1,1+ 4) / 25 * i + iii 
- .zeile&xxx..Left = sicht(1+1,1+ 3) * 0.01
. .zeile&xxx..Width = sicht(1+1,1+ 3) * 0.08
 % 
 T
 C  .kasten&xxx..wordwrap = .t.
 1 .zeile&xxx..Height = sicht(1+1,1+ 4) / 22 + j
 .zeile&xxx..Alignment = 2
 .zeile&xxx..FontSize = 12
/ .zeile&xxx..backcolor = mytablett.backcolor
 .zeile&xxx..Visible = True
 .Kasten&xxx..Visible = True
5 .Kasten&xxx..Top = sicht(1+1,1+ 4) / 25 * i + iii
- .Kasten&xxx..Left = sicht(1+1,1+ 3) * 0.1
. .Kasten&xxx..Width = sicht(1+1,1+ 3) * 0.5
2 .Kasten&xxx..Height = sicht(1+1,1+ 4) / 22 + j

 T
  ! .Kasten&xxx..borderstyle = 1 
 .Kasten&xxx..Alignment = 2 
 .Kasten&xxx..FontSize = 12
/ .Kasten&xxx..Caption = ALLTRIM(STR(i,10,0))
0 .kasten&xxx..backcolor = mytablett.backcolor
 .Kasten&xxx..Visible = True
  T        T C ! T C Q?! T C RQ? T C  T  T 	  T 	 N A M E N T C  T 	      p T C ! T C Q?! T C RQ? T C  T  T 	  T  O R D N E N T C  T 	  1 T     Klicken Sie auf den Datensatz,/ T     den Sie verschieben mchten.7 T    $ Sie knnen ihn dann auf die Position6 T    # des darber- oder darunterliegenden+ T     Datensatzes verschieben.  (	 T CC  Zc mytablett.zeile&xxx..Top = mytablett.Kasten22.Top + mytablett.Kasten22.Height + ((i - 23) * 25)
7 mytablett.zeile&xxx..Left = mytablett.Kasten22.Left
$ mytablett.zeile&xxx..Width = 600
$ mytablett.zeile&xxx..Height = 25
& mytablett.zeile&xxx..FontSize = 12
8 mytablett.zeile&xxx..backcolor = mytablett.backcolor
' mytablett.zeile&xxx..Visible = True
     	 T C 
! T C Q?! T C RQ? T C  T     T 	 nach oben T 	  T 	      
 T C ! T C Q?! T C RQ? T C  T 
 nach unten T     T 	      | T C ! T C Q?! T C RQ? T C / T ! Gelb markierten Datensatz lschen T     T 	  T 	       f T C ! T C Q?! T C RQ? T C 1 T # Alle Datenstze alphabetisch ordnen T     T 	  T 	     ! ,
 T C ! T C Q?! T C RQ? T C  T 	 Schlieen T     T 	     " 
 T C ! T C Q?! T C RQ? T C  T  Hilfe T     T 	     #  T C ! T C Q?! T C RQ? T C 
 T   T 	  T$   T% C&  T' (  
 T  )  U* 	 MYTABLETT VISIBLE ALWAYSONTOP
 AUTOCENTER SICHT TOP LEFT HEIGHT WIDTH TRUE III I XXX J ZEILE10	 ALIGNMENT KASTEN21 FONTSIZE FONTBOLD CAPTION	 BACKCOLOR QBCOLOR KASTEN22 ZEILE24 ZEILE25 ZEILE26 ZEILE27 ZEILE28
 SSCOMMAND1 ENABLED
 SSCOMMAND2
 SSCOMMAND5
 SSCOMMAND6
 SSCOMMAND3
 SSCOMMAND4	 SSSCROLL1 MIN MAX LOF VALUE FILENEU
 NAMENWECHSELN
 H
 z    " C   \GI1e wvw " C   \GI2f wvw " C   \GI3g wvw " C   \GI4h wvw " C   \GI5i wvw " C   \GI6j wvw " C   \GI7k wvw " C   \GI8l wvw " C   \GI9m wvw # C   \GI10n wvw # C   \GI11o wvw # C   \GI12p wvw # C   \GI13q wnw    " C   \GP1e wvw " C   \GP2f wvw " C   \GP3g wvw " C   \GP4h wvw " C   \GP5i wvw " C   \GP6j wvw " C   \GP7k wvw " C   \GP8l wvw " C   \GP9m wvw # C   \GP10n wvw # C   \GP11o wvw # C   \GP12p wvw # C   \GP13q wnw    z" C   \GR1e wvw " C   \GR2f wvw " C   \GR3g wvw " C   \GR4h wvw " C   \GR5i wvw " C   \GR6j wvw " C   \GR7k wvw " C   \GR8l wvw " C   \GR9m wvw # C   \GR10n wvw # C   \GR11o wvw # C   \GR12p wvw # C   \GR13q wnw   U  MODUS MYOPEN EIGDAT MUSER+ C   \bdaC RZ BDA  . C   \jdaC R[ jdadat  7 C   \ZuschlgeAC R\ zuschlag  7 C   \ZuschlgeBC R] zuschlag  7 C   \UrlaubC R^ urlaubsblatt  . C   \SVC R_ Sozvers  5 C  	 \KalenderC R` Kalender  & C   \bdaTempx BDA  ) C   \jdaTempy jdadat  2 C   \ZuschlgeATempz zuschlag  2 C   \ZuschlgeBTemp{ zuschlag  2 C   \UrlaubTemp| urlaubsblatt  ) C   \SVTemp} Sozvers  0 C  
 \KalenderTemp~ Kalender   U  MYOPEN EIGDAT MUSER WELCHESJAHRC=
 T   . T    Sortiere Personalflle ....
 7    (   T   - T  CC  ) T  CC  f  +a
 T	 
   (  T C   T C   %  
 T
   T    T  
  T C    T  C   T   
 T	    
 %	  !  
 C     (P
 H!   P T  i T  \GI   T  p T  \GP   T  r T  \GR   (- T    \G  CC  Z# T    CC  Z myopen("&msg3" , 1 ,"wvw")
 myopen("&msg4" , 2 ,"wvw")
  (  CC    wvw  C   wvw  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
 
 C  % T    \G   13 T     13 myopen("&msg3" , 1 ,"wnw")
 myopen("&msg4" , 2 ,"wnw")
  (  CC    wnw  C   wnw  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
 1 T    Sortiere BDA-Berechnungen ....+ C   \bdaC R
 BDA & C   \bdaTemp BDA " T    \bdaC R T    \bdaTemp  ( ^ C
C    BDA  C   BDA  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
1 T    Sortiere JDA-Berechnungen ..... C   \jdaC R jdadat ) C   \jdaTemp jdadat " T    \jdaC R T    \jdaTemp  (  CC    jdadat  C   jdadat  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
, T    Sortiere Zuschlge A ....7 C   \ZuschlgeAC R zuschlag 2 C   \ZuschlgeATemp zuschlag ) T    \ZuschlgeAC R$ T    \ZuschlgeATemp  ( 	  CC    zuschlag  C   zuschlag  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
, T    Sortiere Zuschlge B ....7 C   \ZuschlgeBC R
 zuschlag 2 C   \ZuschlgeBTemp zuschlag ) T    \ZuschlgeBC R$ T    \ZuschlgeBTemp  ( (  C
C    zuschlag  C   zuschlag  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
/ T    Sortiere Urlaubsbltter ....7 C   \UrlaubC R
 urlaubsblatt 2 C   \Urlaubtemp urlaubsblatt % T    \UrlaubC R  T    \UrlaubTemp  ( $ C
C    urlaubsblatt   C   urlaubsblatt  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
+ T    Sortiere SV-Pflicht ..... C   \SVC R
 Sozvers ) C   \SVtemp Sozvers ! T    \SVC R T    \SVTemp  ( L C
C    Sozvers  C   Sozvers  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
) T    Sortiere Kalender ....5 C  	 \KalenderC R
 Kalender 0 C  
 \Kalendertemp Kalender ' T   	 \KalenderC R" T   
 \KalenderTemp  (   C
C    Kalender  C   Kalender  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
A T   . Sortiere Erfahrungszeitbeginn fr Bundesbeamte$ C   \EDZ_D
 EDZ & C   \EDZtemp EDZ  T    \EDZ_D T    \EDZtemp  ( ^ C
C    EDZ  C   EDZ  
 C   T   .* DELETE file "&msg3x"
 T   .* Rename "&msg4x" To "&msg3x"
, T    Sortierung abgeschlossen.
 T   
 T    T       !  U"  MODUSALT MODUS	 MYTABLETT
 SSCOMMAND6 CAPTION SORTIERFOLGE
 SATZANZAHL I ZT0 ZWANG1 TRUE MSG1 MSG2 MSG J FALSE MYCLOSE III MSG3 EIGDAT MUSER WELCHESJAHRC MSG4 MYGET MYPUT MSG3X MSG4X MYOPEN FILENEU	 DATEIOPEN	 SSSCROLL1 VALUE NAMENINCOMBO
 NAMENWECHSELN T     
 T  
 C     (     T      	 (    
 (  C 
  	  wvw  C
 d 	  wvw   C
 	  wnw  Cq 	  wnw   	   (
  
 (h C 
  	  wvw  C
 d	  wvw   C
 	  wnw  Cq	  wnw    T
 
  %
 

 T
   % 
 
 T 
  
 C     (h
 H+   Z T  i T  \GI   T  p T  \GP   T  r T  \GR  
 (
d3 T    \G  CC
  Z .*) T    CC
  Z .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3" 
     %   	 (   CZ 	  BDA  Cx 	  BDA   	 (    C[ 	  jdadat  Cy 	  jdadat   	 (  w C\ 	  zuschlag  Cz 	  zuschlag   	 (   C] 	  zuschlag  C{ 	  zuschlag   	 (  -  C^ 	  urlaubsblatt   C| 	  urlaubsblatt   	 (   C_ 	  Sozvers  C} 	  Sozvers   	 (   C` 	  Kalender  C~ 	  Kalender    	   (
 - CZ 	  BDA  Cx	  BDA   	   (
  C[ 	  jdadat  Cy	  jdadat   	   (
  C\ 	  zuschlag  Cz	  zuschlag   	   (
 7 C] 	  zuschlag  C{	  zuschlag   	   (
   C^ 	  urlaubsblatt # C|	  urlaubsblatt   	   (
  C_ 	  Sozvers  C}	  Sozvers   	   (
 K C` 	  Kalender  C~	  Kalender  
 C  ( T    \bdaC R .*# T    \bdaTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
( T    \jdaC R .*# T    \jdaTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
/ T    \ZuschlgeAC R .** T    \ZuschlgeATemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
/ T    \ZuschlgeBC R .** T    \ZuschlgeBTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
+ T    \UrlaubC R .*& T    \UrlaubTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
' T    \SVC R .*" T    \SVTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
- T   	 \KalenderC R .*( T   
 \KalenderTemp .* DELETE file "&msg3"
 Rename "&msg4" To "&msg3"
 T      %  
0
 T   
 T    
 T      T C    %    T        %    T        U  J	 MYTABLETT	 SSSCROLL1 VALUE MODUSALT MODUS MYCLOSE	 DATEIOPEN DATEIOPENERSATZ K III MYGET MYPUT
 SATZANZAHL FILENEU I MSG1 MSG2 MSG3 EIGDAT MUSER WELCHESJAHRC MSG4 ZUSATZDATEIENFFNEN SPIN1 NAMENINCOMBO MONAT ZI DIMENAUS MAX
 namenwechseln,      namenordnenc     dateiopenersatz     zusatzdateienffnen\     alphabetisch'     satzlschen0    3  A A 1qqqa" AA  A A rqA RA A QQA 3        qqA QA Q! A A   q! A   ! A qarq2qAAaqB q  A  A   A   A q A 1 A    ! A  r 5  !!!!!!!!!1111!!!!!!!!!1111!!!!!!!!!1111A 3 qqqQb!!!3   r1A   Q q!q A A  A A A  r    A q1rqA  22A  RrqA  22A a"rqA  22"rA  22r!ArA  22r!ArA  22r!RrAA  22rA  22Rr!rA  22BarqA  45  r 2r q 3 2  qq q 2qA qqA qA qA A  A  A  r    A r1qA A r qqA A A A A A A A qA A A A 1A A A  1r1rrrarr!rr2 A  r  r Rr rA rA 4                    :   d     &       0                    $       $  ZA  #    ~A  JR  O     %   U      ^    V  UZ    U   
     T CC  Z .extra41.Top = .z&xxx..Top
5 .extra41.Left = .SR&xxx..Left - .extra&xxx..Width
0 .z&xxx..Width = .extra41.Left - .z&xxx..Left
 T     U  MYFORM1 XXX I EXTRA41 VISIBLE TRUE 
 T   
    (  T CC  Z %CC   
 " myform1.wei&ww2..Caption = "x"
  " myform1.wei&ww2..Caption = "-"
   %C   
( T CC  Z .wei&ww2..Visible = False
    U  OHNE_Z_CLICK TRUE MYFORM1 I WW2 WEIZ ZI
    T    T    T    T    T    T    T	    T
    T    T    T
     ( T CC  Z .lst&xxx..Visible = False
 .soz&xxx..Visible = False
 .zvk&xxx..Visible = False
 .wei&xxx..Visible = False
 .tei&xxx..Visible = False
 .bru&xxx..Visible = False
   U  MYFORM1	 ABEREICH0 VISIBLE TRUE	 ABEREICH1	 ABEREICH2	 ABEREICH3
 ABEREICH11
 ABEREICH12 Z12 PAR12 COM12 T12 DEM12 I XXX  U   
 T     (  T CC  Z %CC   
r " myform1.soz&xxx..Caption = "x"
  " myform1.soz&xxx..Caption = "-"
  
 T    U  OHNE_Z_CLICK TRUE I XXX SOZZ FALSE
 T   
    (  T CC  Z %CC   
x  .tei&xxx..Caption = "x"
   .tei&xxx..Caption = "-"
   %C   
( T CC  Z .tei&xxx..Visible = False
    U  OHNE_Z_CLICK TRUE MYFORM1 I XXX TEIZ ZI 
 T   
     (  T CC  Z %CC   
x  .lst&xxx..Caption = "x"
   .lst&xxx..Caption = "-"
    U  OHNE_Z_CLICK TRUE MYFORM1 I XXX LSTZ(
 T   
  !  (  T CC  Z
 HU  ! C 
  %CC   
  .lei&xxx..Caption = "L"
   .lei&xxx..Caption = "N"
    %C  T  	  T
  	  T  	    U  OHNE_Z_CLICK TRUE MYFORM1 I XXX LEIZ ZI LEI12 VISIBLE FALSE LEI13 LEI14R
   >3 %C  C 
	 C 		  (b T CC  Z
 H{ ) C      .bru&xxx..Caption = "A"
 C     .bru&xxx..Caption = "B"
 C    .bru&xxx..Caption = "C"
 C   ? .bru&xxx..Caption = "D"
 C   p .bru&xxx..Caption = "E"
 C    .bru&xxx..Caption = "F"
 C    .bru&xxx..Caption = "a"
 C    .bru&xxx..Caption = "a"
 C   4 .bru&xxx..Caption = "b"
 C   e .bru&xxx..Caption = "c"
 C   	 .bru&xxx..Caption = "d"
 C   
 .bru&xxx..Caption = "e"
 C    .bru&xxx..Caption = "f"
 C   ) .bru&xxx..Caption = "g"
  .bru&xxx..Width = 14
 .bru&xxx..FontBold = True
  T  C  T  C  T	  C  T
  C  T  C  T  C  T
  C  T  C  T   T   T   T   T  C  T  C  T   A T   T    T  c : T   B T   T  C   T  C  T    T     ( T CC  Z %CC   
 .bru&xxx..Caption = "x"
  .bru&xxx..Caption = "-"
   %C %  
(! T CC  Z .bru&xxx..Visible = False
   T    
 T   U  MYFORM1 ZI I XXX BRUZ BRU10	 FORECOLOR QBCOLOR BRU11 BRU12 BRU13 BRU14 BRU15 BRU16 BRU19 BRU7 MOUSEPOINTER BRU8 BRU9 BRU17
 SSCOMMAND2	 BACKCOLOR CAPTION WIDTH FONTBOLD TRUE	 FARBENRGB FALSE OHNE_Z_CLICK  U  i7 T   a
   l6 T     (  T CC  Z %C      .zvk&xxx..Caption = "x"
   .zvk&xxx..Caption = "-"
  
 H 0 C	 < %C
 2 T
  -1  %C
 28 T
  -1  C	   %C
 [  T
 @KL   %C
 {  T
  z   C	 0 %C
  , T C
 C
  T
   T
 C
     %C
 
\ T
   %C
 
 T
     (6 T CC  Z T
 C
  %C 
  -1 T
   -1 + .T&xxx..Value = wert(1+counte) / 100000
   ( T CC  Z3 .T&xxx..Value = CDbl(Fix(wert(1+counte)) / 100)
  %C
   T
   ! T  CCC
  d $ %C	 
 C	 3 T  CC
  d X T  CC
  d   ( T CC  Z- .T&xxx..Value = Fix(wert(1+counte)) / 100
   ( T CC  Z- .T&xxx..Value = Fix(wert(1+counte)) / 100
   !(+u T CC  Z- .T&xxx..Value = Fix(wert(1+counte)) / 100
  T  CC-
  d %C.	  C %C.
 	      B $ %C5	  C	 	 T  CC.
  d ? T  CC.
  d  = T  CC.
 C#
 C+
 C,
 C-
  d  T  CC/
  d T  CC0
  d T  CC2
  d T  CC5
  d T  CC6
   T  CC;
  d T  CC<
  d
 H`/D C	 
 C	 	 C	  C	 	/
 H+ C6
 
' T   Mon.(Stufenverkrzung) C6
  +) T   Mon.(Stufenverlngerung)  
 T   T  - %C
  
 T!  
 T"   T  a  %  -
0 T! C"
 C$
 C%
 C
  T# CC! ' dG %# 2	% T! C! d d{Gz? ;	 T! C! d d  %!  
]	
 T!    %! 	
 T!  O T" CC&
 CC'
 CC(
 CC)
 CC*
 CC
 C
  T# CC" ' dG %# 2$
% T" C" d d{Gz? E
 T" C" d d  %"  
g

 T"    %" 

 T"    T$ ! "  %$ 

 T$   %$  


 T$     T% &   ' & !   T( &   ' & "   T) &   ' & $  T% * ' *  T( * % *   % &  T) * ( *   ( & / T%   Steuer CC! d
 Z %/ T(   Soz.V. CC" d
 Z %0 T)   Netto   CC$ d
 Z %> T  ) +  Steuer: CC! d
 Z %C
 C
 H T  ) +   ) +  Soz.V.: CC" d
 Z %C
 C
 ; T  ) +   ) +  Netto: CC$ d
 Z % T  % +   ) +  T  ( +   ) +  %C	 
Y
 T,    T,    
 T,    T,  -  
 H
P& C*	 

 C*	 
 %.  
 T/   K 
 T/   U  C*	 # T/   U CC*	 P T/   K  %C	 
 %C	 
! %CC	 0 1  j T2   B B G  T2   L B G    T2     3 ((, T4 3     (! %CC 3  5  N4 T4 3 CC 3 4 CCC 3  5  Z , T4 3 CC 3 4 CC 3  5    T6 7 3 C 3 4  $ %C	 
 C	 	& T  8 9   : 9  A T  8 9 	  T;  C4
 d T<  C=
 d T=  C(4  T>  C)4   *(, T CC  Z" .SR&xxx..Caption = Schlsse(i)
 $ %C	  C	  !  %? K T@    X  g T@    -   TA B a TC B -
 HF% C	  C	 	 %C	  TD     TD     TE    TF    %C	 
G TG     TH    %C	 
 TI    % C	  C	 	 TJ    TD    TE    TF    TG    TH   " CC	  TK    TD    TJ    TE    TF    TH    TL    TI    C	  TD    TE   % C	   C	 	F TA B - TC B a$ %C	   C	 k TD     TD     %C	 6
 H2 C	 2 %M .! %M  C	 	 TD     %M * TD        TF    TG    TH    %C	 
 TI     TN  CC	 O   %C	    
	 TE     TE     %C	 ) TP    B TP      TQ R S R  %C	 
 TT     TT    TQ R U R   TV    TW    T3 X R  TV 9 3  TV R 3 * TW 9 V 9 V 9 V R  TW R 3 ffffff@
 T   %C6 Y \ -
 T   %C6 Y \ - T    %C6 Y \ - T   $ %6 Z  B C	 
	4 T   $ %6 Z  L C	 	m T   $ %6 Z  L C	 	 T   $ %6 Z  V C	 	 T   $ %6 Z  V C	 	 T    %  TW  6 Y  TV   EGO TV R 3  TV    TW     TV 9 3 V R 
 H C	 
 TV  
 EGO TVD-Bund TV    CC	 A TV   EGO TV-L TV    CC	  TV   EGO TVD-VKA TV   Q C	 	 C	 
 C	  C	  C	  TV   EntgeltO TV     
 HJ CC	 J$ %C	 
 C	 F
 HbB C	 B %C[  J T\  Lehrer (Tab.-Entgelt - CC[ d ##0.00]   ) )K T\  Lehrer (Tab.-Entgelt + CC[  ##0.00]   )  T^  C\     %C3	 
 T_ R ` 9 _ 9   T_ R a R  $ %C5	 
 C5	 	 Tb R c 9 b 9  Tc    ! Tb R d R  Tc     %C	 O Te  Cf   %C	 !! Tg R h R ffffff?& Tg  CCi d ##0.00] & Tj  CCi d ##0.00]  Tg k Cl  Tj m  Tj k Cl  Tj    O Tg R h R  Tj    
 H`D C	   C	 		 C	  C	 	 Tn   % C	 
 C	 	) Tn  CCC5
 d ###0.00]  Tn       (/6 o  2 Tp  PV CCq 
Z  % / 2B Tp  AG-Zusch. priv. PV CCq 
Z  % / 2^ Tp  PV Sachsen CCq 
Z  von CCq 
Z  %^ Tp  PV Sach.AG-Zu. CCq 
Z  von CCq 
Z  % Tr  CC'	 p  %C/	 !  Ts      Ts     %C	 " %t " %M 
" %C	 (8!! T  U  CCC	 u  "
 HM!"S C	   C	 	 C	  C	 	 C	 ! T  U  C&u 4 C	  C	 	 C	 " T  U  Cu       %v  |" Tw    TG    Tx    TH    TW    " %C	 
" Tw    " Tw     Tx    TH    
 H"#% C	 
 C	 	b# %C
	 E# TL    ^# TL    D C	   C	 		 C	  C	 	# TL    TI    
 H#s$ C	 s$
 H#o$% C	   C	 	=$ Ty   Bundesbeamte C	 o$ Ty   Bundesgebiet   %C	 $ %C	 $ TN   TV-H Pflege $ TN   TV-L Pflege   %C	 	{% %C	 A%. TN   TV-H Soz. u. Erziehungsdienst w%. TN   TV-L Soz. u. Erziehungsdienst   %C	 % %C	 % TN  	 TV-Hessen % TN  
 TV- Lnder   %C7
  X& Tz    T{    T|    T}    T~    l' %   B  ' Tz  C7
  Tz    T{  C8
  T{    T|  C9
  T|    T}    T~    h' Tz    T{    T|    T}    T~      %M )$ %C"	 ! C"	 /
	'% T   Faktor fr StKl. IV: T    T  C:
  (! %M  C	 
	U( T   % T   Steuern m.GFB 8130  ( T    T   Steuern   T   B %C5	  C5	  C5	  C5	 ) T    T    ) T    B %C'	  C'	  C'	  C'	 ) %C	 ) T    ) T    T     ) T        1* T    T   Steuern T    T      (,* T CC  Z %C 
  
*# .T&xxx..ForeColor = QBColor(12)
 *" .T&xxx..ForeColor = QBColor(0)
    6(8i+ T CC  Z %C 
  
;+# .T&xxx..ForeColor = QBColor(12)
 e+" .T&xxx..ForeColor = QBColor(0)
   %C	 	
,
 H+}, CC	 
+ T<    T 9 < 9 < R  T R  R < R D C	   C	 	 C	  C	 	}, T<    T 9  9  T R  R H R   q-
 H,m-4 C	   C	 	 C	 
- T<    T 9  9  T R  R H R  C	 m- T<    T 9 < 9 < R  T R  R < R    TK   
 H-.& C*	 

 C*	 7. %.  . T    %  - T    . T    3. T     C*	 ^. T    CC*	 . T    %  . T    . T     T   
 H./ CC	 
V/$ %C	   C	 
	9/ T    R/ T     C	 /D %C	   C	 
	 C	  C	 	/ T    / T     X %M   	7 M  C	  	 C	   C	 	H0 T  - _0 T  -  %C	 	0 T    0 T     %C	  0 T    T    1 T    T     T    %M 	 M 
	1I %C	  C
 C
 ȯ  
	 C
 C
 @  	1 T    1 T     + T   Tabellen-Faktor: 100,000 % T    T k C   ^ %C	 	
2 % 
2 %C	  2: T   Tabellen-Faktor: CC d
Z  % T    T k C  ^   R3 % 
N3 %C	  J3< T   Tabellen-Faktor: * CC d
Z  % T    T k C  ^   $ %C+	  C,	 4 %C+	 3
 T * 3
 T +    % *3 T R  9  9  4 T R  9  9   U4 T R  9  9  T R  9  9   %M 
|4 T    4 T     %M 5G T  Zusatzbeitrag Krankenvers. CC   #0.000]  %F T  Zusatzbeitrag Pflegevers. CC   #0.000]  %\ T  Zusatzbeitrag KV=CC   #0.000]  %, PV= CC   #0.000]  % +6G T  Zusatzbeitrag Krankenvers. CC   #0.000]  %H T  Zusatzbeitrag KV=CC   #0.000]  %, PV= 0,25%  T  CC	    T  CC   #0.00]     T   - T   B - T    -? %        	 M 	  WoStd    	X7" %CC	 

*7 T   B a T    a T7 T   B - T    -  
     U  MYFORM1
 LOCKSCREEN SOLDAT VISIBLE FALSE I XXX ZVKZ TRUE ZI WERT TEILZEITFAKTOR COUNTE BETRAG T24 VALUE CDBL FIX T25 T44
 GRUNDSTELLUNG	 MELDUNG45 T45 T46 T47 T49 T52 T53 T58 T59 Z3 CAPTION XOHNESTEUERN	 DMSTEUERN	 DMSOZVERS HS_REST DMNETTO	 SSPANEL10 HEIGHT SSPANEL3	 SSPANEL11	 SSPANEL12 TOP TOOLTIPTEXT T50
 ZVKKAPITAL ZVKKAPITALAN DEM50 WNW
 BUNDESBEAMTER BBGLBG J SCHLSSE	 SCHLSSEL WVW SCHLSS TIP LEFT SSPANEL1 T51 T60 SR24 SR47 NOTKURZ NICHTKRZEN KGBERECHNUNG ENABLED
 DIENSTUNFHIG EXTRA1 EXTRA3 EXTRA8 EXTRA9 EXTRA11 EXTRA17 EXTRA5	 BDABEGINN EXTRA10 WELCHESJAHR Z4 ZT4 EXTRA25 Z23 WIDTH Z28 EXTRA23 Z25 EGO TVD	 ABEREICH1 ENTGELTCODE SPARTE GRUNDBETRAG ZT6 MYFORMAT Z6 Z50 Z51 Z35 Z52 Z53 Z39 Z19 ZT19 T26 T39 EFFZAHL T61	 FORECOLOR QBCOLOR	 ALIGNMENT STUFENBEWEGUNG	 DEMFARBEN ZT38 PVOREIN Z38 TRGER49	 ALTESLAND ZT25 NETTOENTGELT EXTRA7 EXTRA18 Z2 T54 T55 T56 ABFINDUNGSLABEL EXTRA51
 TDBNUMBER1 LABEL15 T57 EIGENBEITRAG REFRESH Z11 Z10 BDATEXT	 CHECKNR63 NR63 HHER MONAT BUTTBWLAUFZEIT	 KVPFLICHT T29 DEM29
 MINITRGER	 INPROZENT MULTIPLIKATORB
 WELCHERMONATB MULTIPLIKATORA
 WELCHERMONATA PFNDUNGZEIGEN Z43 SR43 Z42 SR42 MEN23 ZT26 ZUSATZKV ZUSATZPV Z26 DEM25	 SANIERUNG JAEBERECHNEN TVDMEHRSTDHILFE T1 T0 Z21  Cq Der Wertebereich des Programms wurde berschritten. Alle Werte ab Zeile 45 knnen deshalb nicht berechnet werden. 
 Eingabefehlerx U  
   
 H    

O $ T  \user00CCC  Z  d
 # T  \user0CCC  Z  
 " T  \userCCC  Z  C #200 9 C  \gehaltC \ sr	 userdaten  Ci	 userdaten " %C userdaten.Pfadb CY T CCC	 
 g8 s T C	 
 8 
 T   
 HR C   T  Frau  C  T  Herrn  C  T  den  C , T  die  C 	R T  das   %  \user001
 C  	 userdaten 9 T  geschtzter Bereich fr 	 
         Ck	 userdaten " %C userdaten.Pfadb C" T CCC	 
 g8 < T C	 
 8  Ch	 userdaten  T 	 
 
 Hy  
 T    PC-Gehalt  h : Bitte geben Sie unter "Start/Freischalten" Ihren Lizenzschlssel ein, damit das Programm nutzbar wird.  '

 T  % Testversion R T 
 PC-GEHALT    fr C   zur privaten Nutzung.         V T 
 PC-GEHALT    fr  C   zur privaten Nutzung.          '	  :	
 T Z T 
 PC-GEHALT    fr  C   zur dienstlichen Nutzung.         %  
 T   
 T  ' %CC  287771842549
 T     C 200  U  MYFORM1 USERNR MUSER MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 MYGET ARTIKEL	 USERDATEN PFAD MSG CAPTION USERNAME PASSWORT MSG1 REGISTRIERT ZTEXT - R,:" Vorgang luft! Bitte warten ......
 C    T C]C] CD "&msg1"
 T   \*.* T   \*.* G.$ COPY FILE "&msg1_c" TO "&msg2_c"
 G.  R CD "&HSolddir"
 B U  MYCLOSE HSOLDDIR MSG1_C MSG1 MSG2_C MSG2 pfndungzeigen,      weiaufbauen    
 zulagenzeilenk     zvkaufbauen     sozaufbauen     teiaufbauen     lstaufbauen     leiaufbauen     bruaufbauen'	     popuphilfeclickb     anzeigei    	 meldung451M     titelleisteM     dateienumschichten}T    4  qQA 3   qqQ! !A A QqqA A A 4  rqA A 3 9  rqQ! !A A  4   qqQ A A QqqA A A 3   qqQ A A A 3   wq Q A A A QA A 3  1rq aaaaaaaaaaaaaaA A RQQQQQQQRQ! !QQrqQ A B QqqA A A A  4 p1   tqa A A  QaA aA RaA aA RaA A R1A R1A rqqA A uq1A aA B A rqA tqA rqA Rq q A A A A  A  A QqQA A   R   A  Q A  A  A Q A  A  A A S A  A V A  a! !A a!!A RQa aA A  A r1qA A A A E 1A QQrq!A B B "A AA    QR A aA bA R"RR  B A R Q!A "A A A A bA  A R A A RQ QA Q  A A A BA CA BA BA BA AAQ  QA A  A QQ A QA A A R QA A QA XQA TcaQQ QF  AQA rq A "!@R A R!Q  1qAqA A A A A  Q A A  QQ A AA  Q QQA A RQ A A RQ A A RQ A A R qRQQ A A "AR R A A ! A !Q A  A   A rq1 !A A rq1 !A A R AQA   AQQA A  a A  A b A A  A A QA A A    A R A R A  A A R!QA A  !QA A A BQ   A r  A  A " A "ra qA A u  ! A A  3 	3   A1!!A "a !A   Q!Q1QQQA  #a !A  !! ! aA  A    A r A A A 3  b RQb Aa R "A 8                    ?        	   3            t  &   3     O  Q   4   s  n
  Z   ?   
    l   Q          ]     L     q   p  s          .       <.  p        '  ^    K  z  b             %   :       z      p   ST    U    U    U   bemerkungspeichern,      bemerkungen_code3     4 1 (1                    B   e	        	  N  B       %           0      ,   MS@    U   1                    %   <      V     z  CGM[o    U  x T     (
 % T   C  d %C    , T  C  C      ! T  C d! T  
C d %CC( \ 2#! T  C d  %CC) \ 2f! T  C0 d  %CC* \ 1! T  C+ d  %CC+ \ 1! T  C, d  %CC, \ 1/! T  C- d  T    T   T     ( T     %C
  T  	  T  	   T  
  T   D %C  C 	 C  C 	 T 	 
  C}   Soza & T CC    
  % <  Z       %   C 	C T 	 
  $ %C  C 	& T 	 
 
 - T 	 
 C  
   C}   Soza   3 %C  C 	 C 	\: T  CC    
 d 6 T  CC    
 d  T  
   ( T      (d T   , %C   C  ` T       (- T   C    C     - T  CC  d d  (
= %C   9, T  C  C       %CC( \ 2+ T  C  C    %CC) \ 2+ T  C  C    %CC* \ 1$+ T  C  C    %CC+ \ 1q+ T  C  C    %CC, \ 1+ T  C  C   $ T  C   T   , T 
CC  C   $ %C+  C+ f	 T C+  $ %C,  C, 	 T C C,  $ %C-  C- 	 T C C-   T C C  %	 
>
 T {Gz? 
 %	 
m
 T Q? 
 T {Gz?   %	 

# T C  C  3 %	 
# T C  C  /# T C  C    %C  
_ T    T C
 C  %C  
 T    % C C
 
 T   1 T C
 C  %C  
- T     T C C  %C" 0 T   T   T C
  T   T C
   %C C '
 T 
' -
 T 
C C   T C
 C
  %C  
x
 T    T C
 C  %  
& T CC  d  
 T   " T CC    T  ' T C C C  %C  
u T   % T  C d     %C&  
 %C    T  ! " C#   T  ! "   $ "   q %C   L T  ! " C#  m T  ! "   $ "    U%  JAE I	 BRUCHZAHL WEIZ TRUE SCHLSSE WERT ZI JZWINDEX WELCHESJAHR JAHR1 MYGET SOZA VORSOZA WVW ZNAM	 ALTESLAND JASOHESSENANLEGEN AOK_VERSION FIX ZVKZ ZVKUMLAGEAG VBLZ
 MYROUND100 VBLFREIPROZENT RVGRENZE	 ZVKPAUSCH EFFZAHL AREV
 ZVKFREIBETRAG
 VBLZAHLEN2008 JAEWECHSELN MYFORM1	 KVPFLICHT	 BACKCOLOR QBCOLOR Z38 T     (\ , T  C  C     6 %C   C  	 C   	 % T  C d + T  C  C  * %C mytablett.Check1.Valueb U7# T CC      6 L
 T    % 
 Hn   T       T       T      & T  f   T T  v    T  v   
 H   T  ^     T  (   % T     S T  H     T  X.    T  X.   + T  C  C   U	  JAE I ZI WERT MYTABLETTCHECKWERT	 MYTABLETT CHECK1 VALUE WELCHESJAHR  B U   JAEBerechnen,      jaewechseln    	 oZuschlag1    4 qQA A A A A A A rA R A Ca q B  Q Aa A A A 2 aA rA rA A rA rA A A A A A A BBqA BA BA "Q !Q QA A !1 !1 1A A R1A R1A 1 Q1A A R11q1qA A A R1A a 1A "1qR1A Rr q Rq A  q A A 1 qA aRA 1  A  +!!!!!A   +!!!!!A A 6 A 5                    8   q          $  #     $  $  o     %         !  y     zU    U   T   a T   -      T  T  T  T  T  T 	   T
  U S E R  auswhlen T 	     (	 T
 CC  Z% mytablett.Combo&xxx..FontSize = 8
+ mytablett.Combo&xxx..Top = 60 + i * 25 
" mytablett.Combo&xxx..Left = 20
$ mytablett.Combo&xxx..Width = 250
' mytablett.Combo&xxx..Visible = True
  T    	  C 200 9 C  \gehaltC \ sr	 userdaten    (	 T
 CC  Z mytablett.Combo&xxx..Clear
  (
$ C  
	 userdaten [ mytablett.Combo&xxx..AddItem(Alltrim(Str(j + i * 10,10,0)) + ". " + userdaten.username)
     (	; T
 CC  Z& mytablett.Combo&xxx..ListIndex = 1
 
 T       T h T  T  T  T  T 	   T
  U S E R  verwalten T     T 	       T | T  T  T  T 9 T
 + PC-Gehalt.de-Administrator-Pawort eingeben T     T 	      R T P T S T J T  T  T 	  T    & T
  Programm-Verzeichnis auf T        T i T S T J T  T  T 	  T    # T
  den einzelnen Servern T        T 
 T  T  T  T  T C  T     T 	     ! , T  T , T  T  T 
 T   T"  T     T 	  T
 #     $  T  T  T  T  T  T    # T
  Passwort zurcksetzen T 	  T      %  T  T , T  T  T 
 T   T 	  T& 	  T     T
    T"     ' ?	 T 
 T  T  T  T - T
   S c h u t z  (nur bei User001) T 	  T     T      ( 
 T  T , T  T  T 
 T   T 	  T&   T     Ce	 userdaten   %C) * 
 Schutz ein?
- T
   E  I  N   fr Texte und Tarife r
+ T
   A U S   fr Texte und Tarife  T"     + ) T 
 T  T  T  T  T
  Speichern unter T     T   T      ,  T 
 T : T  T  T 5 T
  Userdaten aus Vers. -   bernehmen T 	  T     T      .  T  T , T P T  T 
 T   T 	  T&   T     T
 ) /  T"     0 =
 T 
 T      T , T  T  T
  Hilfe C 1  T     T 	     2 
 T 
 T  T , T  T  T
  Hilfe T     T 	     3 [ T  T  T D T  T ( T
 	 Schlieen T     T 	    (
 T
 CC  Z T4 CC  Z7 mytablett.Text&xxx..Top = mytablett.Combo&yyy..top 
" mytablett.Text&xxx..Left = 300
< mytablett.Text&xxx..Height = mytablett.Combo&yyy..height
# mytablett.Text&xxx..Width = 250
% mytablett.Text&xxx..FontSize = 10
( mytablett.Text&xxx..FontBold = False
& mytablett.Text&xxx..Visible = True
7 mytablett.Text&xxx..BackColor = mytablett.BackColor
  Cd 	 userdaten 2 mytablett.Text&xxx..value = userdaten.username
' mytablett.Text&xxx..Enabled = False
    5 8 T  T S T  T J T  T    : T
 , Zum ndern bitte aktivieren und draufklicken T      (	1 T
 CC  Z  C o	 userdaten + mytablett.Check&xxx..Top = 150 + i * 45
# mytablett.Check&xxx..Left = 580
# mytablett.Check&xxx..Width = 10
( mytablett.Check&xxx..Visible = False
8 mytablett.Check&xxx..BackColor = mytablett.BackColor
 %C) 6 ` 1, mytablett.Check&xxx..Value = ssCBChecked
 / mytablett.Check&xxx..Value = ssCBUnchecked 
  T7 CC  Z+ mytablett.zeile&xx2..Top = 150 + i * 45
# mytablett.zeile&xx2..Left = 595
$ mytablett.zeile&xx2..Height = 43
$ mytablett.zeile&xx2..Width = 330
& mytablett.zeile&xx2..FontSize = 10
1 mytablett.zeile&xx2..Caption = userdaten.Pfad
( mytablett.zeile&xx2..BorderStyle = 1
( mytablett.zeile&xx2..Visible = False
  C #200 
 T8  T   - T  9 a T   a U: 	 MYTABLETT ALWAYSONTOP ZEILE0 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE CAPTION VISIBLE I XXX COMBO0 ENABLED MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 J MYGET USERNR	 USERSTART ZEILE1	 BACKCOLOR ZEILE2 ZEILE3 FALSE ZEILE4 TEXT0 QBCOLOR VALUE ZEILE22 BORDERSTYLE MUSER
 SSCOMMAND5 ZEILE23 WORDWRAP
 SSCOMMAND1 ZEILE24	 USERDATEN PASS
 SSCOMMAND2
 SSCOMMAND3 XJAHR3 ZEILE25 PFAD
 SSCOMMAND6 ZORDER
 SSCOMMAND9
 SSCOMMAND7 YYY ZEILE33 USERNAME XX2 REGISTER
 AUTOCENTER  U   T   a T   a T   - T     T    
   x      T 
 T 
 T   T	  T
  Hilfe T  T     T
        T 
 T   T   T	  T
 	 Schlieen T  T     T
    T     + T 
  Suche eines Personalfalles
 T   (	 T CC  Z C  woerter 1 .zeile&xxx..Caption = Alltrim(woerter.textee)
# C  woerter M .zeile&xxx..Caption = .zeile&xxx..Caption + " " + Alltrim(woerter.textee)
 T   
 T F   ( T CC  Z .zeile&xxx..Left = 10
 % O T    % u T  2 0 .zeile&xxx..Top = i * 25 + zwischenraum - 15
 .zeile&xxx..Width = 600
 .zeile&xxx..Height = 25
 .zeile&xxx..FontSize = 10
/ .zeile&xxx..BackColor = mytablett.backcolor
 % 
Z .zeile&xxx..Visible = True
  .zeile&xxx..Visible = False
      J T C  T 
 T ^ T  T	  T 
 T C 7 T
 ) Geben Sie einen lngeren Suchbegriff ein. T
    T        +@ T 	 2     5 T " T         
 T	  T , T  T C  T C  T
   T    T
        T + T         
, T	  T  T  T C  T C  T
   T    T
    T  
  
      U 	 MYTABLETT ALWAYSONTOP
 AUTOCENTER K WIDTH M
 SSCOMMAND1 TOP LEFT HEIGHT CAPTION FONTSIZE	 BACKCOLOR VISIBLE TRUE
 SSCOMMAND2 ZEILE0 J I XXX MYGET ZWISCHENRAUM ZEILE32	 FORECOLOR QBCOLOR FALSE TEXT1 VALUE TEXT2 SETFOCUS	 User_prog,      wwwladen     namensuchen    P1          A rqR!AqB 1qqqAA A qqaA         A       A       a A       1 A      !  B          A      1  A           A        A          A  A        A      Q  A          A  A   1  A      1 A      q A rqr!1Qaq!qB       A rq11q A 1AAaB     3 1    A     1  B  !  q  B A q1A  rqA A  A A !     !q A A  !   !!   A     !!   A  2                    )  
G      +G  V      V  Ab  q     %         e  8     B%U    U    U    U  
    T  (* T   K R A N K E N K A S S E N T   T  
 T   T    T 	 ( T 
  C T  2 Unter Menpunkt "Drucken" knnen BeitragsnachweiseE T  4 fr einzelne Krankenkassen erstellt werden. Wenn vonB T
  1 dieser Mglichkeit Gebrauch gemacht werden soll, @ T  / ist fr jeden Bediensteten anzugeben, an welche@ T  / Kasse die Sozialversicherungsbeitrge abgefhrtB T  1 werden. Im folgenden knnen Sie die KrankenkassenF T  5 auf den Listenpositionen 19 bis 35 Ihren Bedrfnissen T  	 anpassen.  (	W T CC  Z! .zeile&xxx..Top = i * 25 + 50
 .zeile&xxx..Left = 20
 .zeile&xxx..Width = 400
 .zeile&xxx..Height = 25
 .zeile&xxx..Visible = True
   (# T CC  Z* .Kasten&xxx..Top = 300 + (i - 18) * 25
 .Kasten&xxx..Left = 20
 .Kasten&xxx..Width = 30
 .Kasten&xxx..Caption = i
, .Kasten&xxx..BackColor = farbenrgb(1+15)
 .Kasten&xxx..Visible = True
( .Text&xxx..Top = 300 + (i - 18) * 25
 .Text&xxx..Left = 60
# .Text&xxx..Text = zt46(1+i - 1)
 .Text&xxx..Width = 350
& .Text&xxx..BackColor = QBColor(15)
 .Text&xxx..Visible = True
       T 	 Schlieen T   T  T  T	 ( T C  T    U 	 MYTABLETT ZEILE1 TOP CAPTION FONTSIZE LEFT WIDTH VISIBLE TRUE HEIGHT FONTBOLD ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE9 I XXX
 SSCOMMAND1	 BACKCOLOR	 FARBENRGB sozVorgabenaufbauen,      sozverstexte3      krankenkassenaufbauen:     4 @1 1  !2Q!!arqA r1aA A q    ! A 7                    @   %        J            %  #     %   g          	      D%U    U    U     lstausgleich B U  LSTAUSGLEICH  U   solizu,      LstAusgleich3     
 kierklren`     4  1 BA `1 1                    7             B2        e2  '?        %           0      ,   {U
	    U  	1                    %   SB      H    B  Q#T8	    U  z T   a T   a T   - T       T       T       T       T       T  	     T   
 T T C 	Z % 
  T  0,C \  %C >	 T C 	 + T    T E I L Z E I T G E H A L T   
 ) T  T E I L Z E I T G E H A L T T 
 T  T
 
 T  T  T   T  T     T    %C 
 %C  u( T    C   x C    T C	   ' T     1,000 x C    T C	    %  %C  I T    6 Berechnung des Ortszuschlags nach  29 (5) u. (6) BAT:- T     Ortszuschlag bei Vollzeit + T     - Grundbetrag fr Ledige5 T     +     Grundbetrag fr Ledige8 T     = Ortszuschlag bei  
   Teilzeit T C	  T C  T C  ' T C C C  T C   (` T  CC  Z' mytablett.zeile&xxx..Visible = True
( mytablett.zeile&xxx..FontSize = 8.25
" mytablett.zeile&xxx..Left = 15
+ mytablett.zeile&xxx..Top = 30 + i * 20 
% mytablett.zeile&xxx..Height = 20 
 % $ mytablett.zeile&xxx..Width = 450
 $ mytablett.zeile&xxx..Width = 400
 ( mytablett.zeile&xxx..AutoSize = True
) mytablett.zeile&xxx..WordWrap = False
8 mytablett.zeile&xxx..backcolor = mytablett.backcolor
   ( T  CC  Z( mytablett.Kasten&xxx..Visible = True
* mytablett.Kasten&xxx..borderstyle = 1 
% mytablett.Kasten&xxx..Width = 150
, mytablett.Kasten&xxx..Top = 30 + i * 20 
% mytablett.Kasten&xxx..Height = 20
6 mytablett.Kasten&xxx..Left = mytablett.Width - 160
 T! C   d " ' mytablett.Kasten&xxx..Caption = wer
 4 T    ! Ortszuschlag lt.obiger Berechnung  T       T       T       T       T       T    - T    - T    - T    - T    -  /
 %C  4	0 T    CC 
Z  x C    T C	   z	' T     1,000 x C    T C	  
   +
  ('
 T  CC  Z .zeile&xxx..Visible = False
/ .zeile&xxx..backcolor = mytablett.backcolor
  .Kasten&xxx..Visible = False
    %C  p
( T  #  C   x C $   
& T  #   1,0000 C $   
   ( %C  
& T#  C   x C $   & T  #   1,0000 C $    %C	  W& T  C   x C %   & T  &   1,0000 C %    %C  & T&  C   x C    & T     1,0000 C     %C  1& T'  C   x C (   _& T  )   1,0000 C (    %C
  & T)  C   x C *   & T  '   1,0000 C *     ( %C    
 T+  zCC  Z T  CC  ZX .zeile&xxx..Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.&hszn..Caption)
  T+  zCC  Z T  CC  ZN mytablett.zeile&xxx..Caption = "1,0000 " + Alltrim(myform1.&hszn..Caption)
  / %C    
	 C	  	n& T,  	 s.Ber.   C -   
 H% C   C 		 %C
  & T)  C   x C *   ' T  )   1,000 x C *   % C 
 C 	 %C
  r& T)  C   x C *   % T)   1,000 x C *     %C  & T.  C   x C /   ' T  .   1,000 x C /   & T0   TEILZEITGEHALT BRUTTO T0  a T1  a  ($
 H}     	  T  CC  ZI mytablett.zeile&xxx..Caption = alltrim(mytablett.zeile&xxx..Caption) 
& mytablett.zeile&xxx..visible = .t.
   " T2  ( 
  $ 
   ( T  CC  ZP mytablett.zeile&xxx..top = (mytablett.zeile5.top + 20 + 50) + ((i - 6) * 20)
7 mytablett.zeile&xxx..FontSize = myform1.z7.FontSize
" mytablett.zeile&xxx..Left = 15
% mytablett.zeile&xxx..Height = 20 
% mytablett.zeile&xxx..Width = 200 
( mytablett.zeile&xxx..AutoSize = True
) mytablett.zeile&xxx..WordWrap = False
8 mytablett.zeile&xxx..backcolor = mytablett.backcolor
' mytablett.zeile&xxx..Visible = True
    3  T 
 T   T  Spalte T T
    
  T  T  T  T4   T5 6  T     T    T C   ( T  CC  Z( mytablett.Kasten&xxx..Visible = True
7 mytablett.Kasten&xxx..BackColor = RGB(255,255,255) 
0 mytablett.Kasten&xxx..ForeColor = QBColor(0)
8 mytablett.Kasten&xxx..Top = mytablett.zeile&xxx..Top
' mytablett.Kasten&xxx..Alignment = 1
& mytablett.Kasten&xxx..Height = 20 
% mytablett.Kasten&xxx..Left = 260 
* mytablett.Kasten&xxx..borderstyle = 1 
% mytablett.Kasten&xxx..Width = 100

 H   T! C7    T! C	7   	* T! C7   
L T! C7   n T! C
7     	 T! C  7   T! ! d " ' mytablett.Kasten&xxx..Caption = wer
  T  8  6    1  T   T9  T C^ T d T:  T
   0 
  T  T  T! C d "  T ;   T  <  6    = s T
   0 
 ( T  T     T  T 	 Schlieen T   T 
 T     T    U> 	 MYTABLETT ALWAYSONTOP
 AUTOCENTER ZEILE1 CAPTION ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 TOP TEILZEITFAK TEILZEITFAKTOR ZEILE0 FONTSIZE LEFT HEIGHT WIDTH FONTBOLD TRUE	 BACKCOLOR VISIBLE ZI TEIZ ZEILE8 MYFORM1 Z8	 TEILZEITZ WERT TZSONDER GRUNDBETRAG I XXX NUMBR ZAHLINTEXTNUMBR ZEILE7 Z7 Z9 ZEILE9 ZEILE10 Z11 ZEILE11 Z10 HSZN ZEILE18 Z18 ZEILE17 Z17 ZEILE21 KASTEN21 J ZEILE22 AUTOSIZE WORDWRAP FALSE TEILZAHL KASTEN20	 ALIGNMENT BORDERSTYLE WER ZEILE20
 SSCOMMAND1 T      T C Z % 
N  T  0,C \  %C >	x  T C 	       T 
 T F T  T  T	  T
   T     T
        T 
 T , T  T  T	  T
   T     T
   
 H C  6 T    # Teilzeitgehalt             lt.Sp. B" T     Bruchteilgehalt CC y6 T    # Ruhegehalt voll            lt.Sp. B# T     gekrztes Gehalt CC 6 T    # Normales Gehalt            lt.Sp. A' T     Altersteilzeitgehalt 
   

 H

 CC   %C X T     x    } T     x  1,0000   %C  T     x     T     x  1,0000   %C	  T     x    - T     x  1,0000   %C
 ` T     x     T     x  1,0000   %C  T     x     T     x  1,0000    ( T CC  Z %C   U0 .zeile&xxx..Caption = "  x  " + bruchteilfak
 ( .zeile&xxx..Caption = "  x  1,0000 "
   C  %C 
 T  
   x   0,5000   T  
    x  1,0000   %C 
2 T  
   x   0,5000  X T  
    x  1,0000   %C	 
 T  
   x   0,5000   T  
    x  1,0000   %C
 
 T  
   x   0,5000   T  
    x  1,0000   %C 
I T  
   x   0,5000  o T  
    x  1,0000    ( T CC  Z %C   
) .zeile&xxx..Caption = "  x   0,5000 "
 ) .zeile&xxx..Caption = "   x  1,0000 "
   C 
 %C 
a T  
   x   0,5000   T  
    x  0,0000   %C 
 T  
   x   0,5000   T  
    x  0,0000   %C	 
	 T  
   x   0,5000  A	 T  
    x  0,0000   %C
 
x	 T  
   x   0,5000  	 T  
    x  0,0000   %C 
	 T  
   x   0,5000  	 T  
    x  0,0000    (
 T CC  Z %C   
l
) .zeile&xxx..Caption = "  x   0,5000 "
 
) .zeile&xxx..Caption = "   x  0,0000 "
   / %C	   C  	  
	
 T   bes.Ber.    ( T CC  Z' myTablett.zeile&xxx..FontSize = 12 
# myTablett.zeile&xxx..Left = 200
 T  zCC  Z% myTablett.zeile&xxx..Height = 25 
# myTablett.zeile&xxx..Width = 80
( myTablett.zeile&xxx..AutoSize = True
) myTablett.zeile&xxx..WordWrap = False
8 myTablett.zeile&xxx..backcolor = mytablett.backcolor
' myTablett.zeile&xxx..Visible = True
 
    T  F T  _ T  x T   T   T   T   T   T   T  1 T  J T   c T!  | T"   T#   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T  
   T! 
   T" 
   T# 
     (m T CC  Z T$ CC  Z( myTablett.Kasten&xxx..Visible = True
7 myTablett.Kasten&xxx..BackColor = RGB(255,255,255) 
0 myTablett.Kasten&xxx..ForeColor = QBColor(0)
8 myTablett.Kasten&xxx..Top = myTablett.zeile&xx2..Top
& myTablett.Kasten&xxx..Height = 25 
# myTablett.Kasten&xxx..Left = 70
' myTablett.Kasten&xxx..alignment = 1
% myTablett.Kasten&xxx..Width = 100

 HQ*  s T% C&    T% C	&   	 T% C&   
 T% C&    T% C
&     	* T% C  &   T% % d ' ' myTablett.Kasten&xxx..Caption = wer
   ( T CC  Z T$ CC  Z( myTablett.Kasten&xxx..Visible = True
7 myTablett.Kasten&xxx..BackColor = RGB(255,255,255) 
0 myTablett.Kasten&xxx..ForeColor = QBColor(0)
8 myTablett.Kasten&xxx..Top = myTablett.zeile&xx2..Top
$ myTablett.Kasten&xxx..Left = 300
' myTablett.Kasten&xxx..alignment = 1
& myTablett.Kasten&xxx..Height = 25 
% myTablett.Kasten&xxx..Width = 100

 H$>  F T% C(   h T% C	(   	$ %C  C 
	 T% C	)   T% C(    
 T% C(    T% C
(     	> T% C  (   T% % d ' ' myTablett.Kasten&xxx..Caption = wer
   (9 T CC  Z T$ CC  Z( myTablett.Kasten&xx2..Visible = True
7 myTablett.Kasten&xx2..BackColor = RGB(255,255,255) 
0 myTablett.Kasten&xx2..ForeColor = QBColor(0)
9 myTablett.Kasten&xx2..Top = myTablett.zeile&xxx..top 
& myTablett.Kasten&xx2..Height = 25 
% myTablett.Kasten&xx2..Width = 100
 T% C *  T% % d ' ' myTablett.Kasten&xx2..Caption = wer
  T  +       T  ,       T  -       T  .       T  /       T  0       T  1       T  2       T  3       T  4       T  5       T  6        T  7    !   T  8    9   T  :    ;   T  +  
 T  ,  
 T  -  
 T  .  
 T  /  
 T  0  
 T  1  
 T  2  
 T  3  
 T  4  
 T  5  
 T  6  
 T  7  
 T  8  
 T  :  
 T  + 	 2 T  , 	 2 T  - 	 2 T  . 	 2 T  / 	 2 T  0 	 2 T  1 	 2 T  2 	 2 T  3 	 2 T  4 	 2 T  5 	 2 T  6 	 2 T  7 	 2 T  8 	 2 T  : 	 2 T  +   Zeile 08 T  ,   Zeile 09 T  -   Zeile 10 T  .   Zeile 11 T  /   Zeile 12 T  0   Zeile 13 T  1   Zeile 14 T  2   Zeile 15 T  3   Zeile 16 T  4   Zeile 17 T  5   Zeile 18 T  6   Zeile 19 T  7   Zeile 20 T  8   Zeile 22 T  :   Zeile 23 T  + 
   T  , 
   T  - 
   T  . 
   T  / 
   T  0 
   T  1 
   T  2 
   T  3 
   T  4 
   T  5 
   T  6 
   T  7 
   T  8 
   T  : 
   T  +      T  ,      T  -      T  .      T  /      T  0      T  1      T  2      T  3      T  4      T  5      T  6      T  7      T  8      T  :      T  8    <   T  :    =   T  <  F T  =  ,   >  T   #  ( T 
 T	  T  T 	 Schlieen T
   T 
 T     T
    U? 	 MYTABLETT TOP MYFORM1 BRUCHTEILFAK BRUCHTEILFAKTOR ZEILE0 FONTSIZE LEFT HEIGHT WIDTH FONTBOLD TRUE	 BACKCOLOR VISIBLE ZEILE1 ZI CAPTION BRUZ ZEILE7 ZEILE9 ZEILE8 ZEILE11 ZEILE10 I XXX HSZN ZEILE12 ZEILE13 ZEILE14 ZEILE15 ZEILE16 ZEILE17 ZEILE18 ZEILE19 ZEILE21 ZEILE22 XX2 NUMBR TEILZAHL ZAHLINTEXTNUMBR	 BRUCHZAHL INTERIM WERT ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE23 ZEILE24 ZEILE25 ZEILE26 ZEILE29 ZEILE30 ZEILE31 ZEILE32 ZEILE33 ZEILE27 ZEILE34 ZEILE28 KASTEN27 KASTEN28
 SSCOMMAND1      T  T  T  T  T  T   T	   	  T
  1 T     Einzelne Personalflle lschen = T    * Sie knnen einzelne Personalflle lschen.: T  
  ' Whlen Sie unten aus, welcher DatensatzF T    3 gelscht werden soll. Mit dem Anklicken der Schalt-A T    . flche "Datensatz lschen" wird der angezeigteF T    3 Datensatz in INFO, PLAN und REAL des eingestellten # T     Jahres gelscht.  ( T CC  Z% myTablett.zeile&xxx..Top = i * 30
! myTablett.zeile&xxx..Left = 5
$ myTablett.zeile&xxx..Width = 480
$ myTablett.zeile&xxx..Height = 30
& myTablett.zeile&xxx..FontSize = 10
) myTablett.zeile&xxx..FontBold = False
8 myTablett.zeile&xxx..backcolor = mytablett.backcolor
' myTablett.zeile&xxx..Visible = True
     N T  T  T  T 
 T   T
     ( <. CCC  Z . C     T       , T  Personalfall endgltig lschen T , T  T  T # T 
 T	   	  T
        T 	 Schlieen T ^ T  T  T  T 
 T	   	  T
    T  
   U 	 MYTABLETT ZEILE1 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE	 BACKCOLOR VISIBLE CAPTION ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 I XXX COMBO1 FALSE
 SATZANZAHL ADDITEM ZT0	 LISTINDEX
 SSCOMMAND3
 SSCOMMAND4	 MTeilzeit,     
 Mbruchzeit     stzekappen;    4    2111111SA 21A         A RQ qqA B QQqqqrqr!RA AA B rqQQabq qB A 11111A  Q qqA  qqA A A U aA  Qa aA Qa bA Qa aA Qa aA Qa aA raq qA B aA  QQa qA QRa QA B Ra qA b  q qaA A A "sqq!RQqB @  a      A rrqqqaQQ !A r rB 2  q  A  Qr  A 2 Q q   A 3 2 A 21A        A        A  Qa!a1aqA   Q A R A R A R A R A rqa A A RQ A R A R A R A Q A rqa A A RQ A R A R A R A R A rqa A A A A A rqr1Q1qB  !!"!!!!A tqqa1qR !A r rB rqqAqaR A A !A r qB rqqaRr qB 211111111111111211111111111111211111111111111baaaaaaaaaaaaaa2A   q   A 3        A aa1rqRAAaqB       A  A       A q      A 5                    ;   ,       %,  (_  \    L_  pf        %           .      ,   NSg	    U  6                     %           .      ,   NS	    U  6                    %   T      *]    U   aJV	    U  
 H
    A        
(
{  C   woerter  C    : C, AG versteuert Umlage bis ..... (lt. Eingabe)    	    %
 f= C/ Verteilmodell (mtl. 1/12 des Steuerfreibetrags) B C4 Aufzehrmodell (Steuerfreibetr. baldigst aufbrauchen)  1 C# ATV-Versteuerung zu 1/12 des Limits 7 C) ATV-Verst.anfangs voll bis Limit erreicht      r  : C, 1 Abs.1 Satz 3 SvEV erfllt (75 % und mehr) B C4 1 Abs.1 Satz 3 SvEV   n i c h t   erfllt (< 75 %).        ? C1 Hier Vorgabewerte fr die Felder darunter whlen:   (2 CCC 
      U  REGISTER	 MYTABLETT COMBO1 CLEAR I MYGET ADDITEM WOERTER TEXTEE COMBO2 WELCHESJAHR COMBO3 COMBO0 ZT25z                     	  
      
        U  SZBAW SZBAY SZBERLIN
 SZBUNDWEST SZBRAND SZBREMEN SZHAMB SZHESSEN	 SZMECKLEN SZNIEDER SZNRW SZRHEINL SZSAAR	 SZSACHSEN SZANHALT SZSCHLESWIG SZTHR
    T    ("  T    T    T    T    T    T    T	    T
    T    T      (
= T
   T     T
   T
   T
 	  T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1V
   O T   ("{ T    T    T    T    % 	
  T      T     T   
 H     	" T	   UUUUUU@    	\ T	   @    	 T	   UUUUUU@    "	 T	   UUUUUU@ 
 Hb4    	    "	1 T
  )\ @  	  	b T
     T  
ףp=
@
 Hw    	 T  Y%@    	 T  Y%@    	= T  Y%@    "	w T  Y%@    (
 T
    T   T  T
   T
   T
 	 T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   (" T    T    T    T    T    T    T	    %
 
  T    %
 F % 	% T   B T      % 	t T    T      T  (\9@ T
      (" T     (
? T   T     T   T   T 	 T 
 ) C{
  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH WELCHESJAHR	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T   (" T    T    T    T    T    T    T	    T
  P T  p=
ף7@ T      ("2 T
     (
u T
   T     T
   T
   T
 	 T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1H
   A T   ("Y T    T    T    T    T    T    T	   
 H -     	  T
       "	- T
     T    T      (
 T
   T     T   T   T
   T
   T
 	 T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   (" T    T    T    T    T    T   
 H v3    	      T	   (  	  	  : T	   (  
  	   v T	     %
 
z
 HZ3    	     T  H(  	  	   T  (  
  	   Z T     T  (\9@ 
 H(    	   T       p@(    	   T       @  	  O T        @  
  	 T       0@(  
  	    T     T  )\s@ 
 H3    	    < T
   (  	  	  x T
   (  
  	    T
       (
 T   T     T  T   T   T   T 	  T 
 ) C{
  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH WELCHESJAHR	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T   ("+ T    T    T    T   
 H +    	  % 
  T  =
ףpt@   T      	  "	+ T     T	   
 HPO?    	      "	 % 
 T
  B  T
    4  
  	    	O % 
/ T
  < K T
      %  % 
 T    T  ,   T     % 
 T  (\9@  T  , 
 H('?    	      "	 % 
 T
  B  T
    4  
  	    	' % 
 T
  < # T
        (
n T   T     T  T   T   T   T 	 T 
 * C{  
 sonderzah    U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB WELCHESJAHR SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T   ("; T   T   T  
ףp=
@ T    % 	
  T  =
ףp%d@   T     T    T	    T
    T    T      (
~ T
   T     T
   T
  T
   T
 	  T
 
 * C{  
 sonderzah    U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   (" T    T    T    T    T    T   
 H  	 
 H 4    		    "	& T
  h|?UC@(  
  	  j T
  7A`@@4  
  	    	 T
  L7A`=@  T    T  (\9@
 H4    		    "	K T
  h|?UC@(  
  	   T
  7A`@@4  
  	    	 T
  L7A`=@  	 
 H4    		    "	R T
  㥛  C@(  
  	   T
  fffff@@4  
  	    	 T
  oa=@  T    T  (\9@
 H'4    		    "	w T
  㥛  C@(  
  	   T
  fffff@@4  
  	    	 T
  oa=@     (
V T   T     T  T   T   T   T 	  T 
 ) C{		  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI WELCHESJAHR SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1%
    T 	  ("^ T    T    T    T    % 	
  T      T     T    T	   
 H   	
 %
 
4 T    %
 c T    T      	  	 %
 
 T     %
  T  ,  T        "	 %
 
` T     %
  T    T     2 T     %
 
 T  x F %
 & T   B T     T
      (
 T   T     T   T   T 	 T 
 ) C{

  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH WELCHESJAHR	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T 
  (" T    T    T    T    T    T    %	 
 H     	  T
       	) T
     	  	Y T
     ~ T
      T
       "	 T
     
 H    	 T
  <    	L T
  -  	  	| T
     T
  -   T
  -    "	 T
  -   T    %	 S T   
 HEO    	u T
       	 T
     	  	 T
      T
      T
       "	O T
      T  (\9@
 H    	 T
  <    	 T
  -  	  	 T
    9 T
  -  ^ T
  -    "	 T
  -    %	   (
 T    T   :  (
" T    T   T   T   T   T 	  T 
 ) C{	  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI WELCHESJAHR SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T  % 
  (" T  Gz@ T  Gz@ T  
ףp=
@ T   
 H     	  T    	  "	 T     T	  ( T
    T    T    T
       (" T    T    T    T   
 He    	4 T     	  "	e T     T	    T
    T    T    T
       (
 T   T     T   T   T   T 	  T 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI WELCHESJAHR I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1

    T   ("2 T    T    T    T    % 	
  T     T     T    T	   
 H     	. T
      
	` T
      	 T
       	 T
      T
       	 T
     B T
    h T
     T
      T
    T   T    %
 . T
    T    T       (a T    T  T   T   T   T 	  T 
 ) C{

  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH WELCHESJAHR SZTZ SZMASS MYPUT JAHR1&
    T 
  ("_ T    T    T    T    T    T    T	   
 H     		  T
    
  
	/ T
      	a T
     T
     T
   C  T
     T
    # T
    I T
      	{ T
     T
     T
     T
      "	 T
  ^  T    T    T
      ( T
   T     T
   T
   T
 	 T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   (" T    T    T    T    T    T    T	   
 H     	C %
 
 T  x ? T	   T  X   	  "	 %
 
 T     T	   T     T  (\9@ T
     %
 H  ( D T	    T      ( T   T    T   T   T 	 T 
 ) C{
  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH WELCHESJAHR	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1
    T   (" T    T    T    T    T    T   
 H 4    
	     	= T	    T
    T   T      	 T	    T
    T    T      ( T
    T  T   T
   T
   T
 	  T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH SZ12DEZFZVH	 SZ10DEZFB	 SZ11DEZKI SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   ("P
 H?     	x  T        @    		  T  HzG@  
  
	  T        ?    	# T  ?  P T  zG?  } T        ?    	 T  ?   T  zG?   T        ?    	I T  ?  v T  zG? C  T  ?   T  zG?   T        @  . T  HzG@  [ T        ?    T  ?  T   @ T  
ףp=
@ T    T    T    T	    T
    T    T      ( T
   T     T
   T
   T
 	  T
 
 ) C{  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT WELCHESJAHR JAHR1
    T   (" T    T    T    T    T    T    %	   T
      T
        @ 
 H    	p %	 H T    l T  r.U$@   	  "	 T     T    %	  T
     T
        @    (6 T    T   T  T   T   T 	  T 
 ) C{	  	 sonderzah   U 	 SONDERZAH SZZI I SZ1LFD SZ2FZ SZ3KI SZ4FB SZ6JL SZ7JLKI WELCHESJAHR SZ9DEZVH	 SZ10DEZFB	 SZ11DEZKI SZ12DEZFZVH SZTZ SZMASS MYPUT JAHR1 voreinstellungenladen,      sonderzahlunganlegen     szbaw     szbay*     szberlin     szberloy     szBrand
     szBremen     szHamb2     szHessen     	 szMecklen#     sznieder7*     szNRW.     szRheinld6     szSaar:    	 szSachsenS?     szanhaltD     szSchleswigG     szThrJ    
 szbundwestP    5   A A  !! qA B  !A  qA A A 3 q q q q q q q q q q q q q q q q q 4   qAAAAAAAAAAA qAAA AAAAA 3   qAAAAA AA A A  AAA  A A qAA AAAAAAA 3   qAAAAAAA!Q !Q QA  Q QA A A AA qAA qAAA AAAAA 3   qAAAAAAAQAA qAA qAAA AAAAA 3   qAAAAAAA AAA AAA qAAA AAAAAAA 3   qAAAAAA 1AAAA ! 1QQAA   AA A  1AAAA B qAAA AAAAAAA 3   qAAAA ! AA AA A !A AA A!A AA B #Q QA  AA " QA  "A AA A"A AA A A qAAA AAAAAAA 3   qAAA AA AAAAAA qAAA AAAAAA 3   qAAAAAA " AAA A AAA ! AAA A AAA A B qAAA AAAAAAA 3   qAAAAA AA AA !Q !Q QA A !A !Q QA A !A !A AA A  AA !A !A AA A AA qAAA AAAAA 3   qAAAABA! AAAAAAA   AAAAAAA A A"A AAAAAAA   AAAAAAA A B !qAA A qAA AA BAAAAA 3   !qA AAA AAAAAA  qAAAA AAA AAAAAA A rAAA AAAAAA 3   qAAAAA AA BA QQQQQQQQQQA AA"AAAA A rAA BABAAAA 3   qAAAAAAA QQQQQQQQQQQQQQQA AAAA rAAA BAAAA 3   qAAAAAAA !A AQA !A AQA A AA !qAAA A qAAA AAAAA 3   qAAAAAA AAAQQAAAQB A qAA AAAAAAA 3   q QA AAAAAAAA rAAA BAAAA 3   qAAAAAA"A A  !A A AA A!A A A rAA BAAAAAA 2                    D        $   
    W   6   
    l   O                                   t  
       *%  /  ,  I%  ,  s  v  =,  U.      w.  6      $6  ;  *    ;  D  s  w  %D  'H      FH  L  
    M  Q  N    Q  V    G  V  Y    i  Y  _      >_  b  #     %         }      K,\	    U  3
   
 H   	  r" T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T xT@" T 	xT@" T 
xT@" T xT@" T xT@" T 
xT@" T xT@" T xT@ T  " T RK@" T RK@" T xT@" T RK@" T RK@" T RK@" T xT@ T   T    	  	" T \(|K@" T \(|K@" T \(|K@" T \(|K@" T \(|K@" T \(|K@" T \(|K@" T 
ףp=T@" T 	
ףp=T@" T 

ףp=T@" T 
ףp=T@" T )\hT@" T 
)\hT@" T )\hT@" T )\hT@ T  " T \(|K@" T \(|K@" T )\hT@" T \(|K@" T \(|K@" T \(|K@" T xT@ T   T    
" T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T  " T       N@" T       N@" T      V@" T       N@" T       N@" T       N@" T      V@ T   T    b
" T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T  " T       N@" T       N@" T      V@" T       N@" T       N@" T       N@" T      V@ T   T    " T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T       N@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T  " T       N@" T       N@" T      V@" T       N@" T       N@" T       N@" T      V@ T   T   " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  ( C}   Soza  U  SOZA WELCHESJAHR VORSOZA MYPUT JAHR1  U    U    U    U   T        (E  T     
 HV LR   

   
   
   
   
	 %  

  ( C   woerter  T     # T  Entgeltgruppe 9b# T  Entgeltgruppe 9a  ( C   woerter # T        ( C   woerter  T      
 H%   

# T  Entgeltgruppe 2$ T  Entgeltgruppe 15 C woerter  T      
# T  Entgeltgruppe 2$ T  Entgeltgruppe 15 C woerter  T   ! %  
	 	 	# T  Entgeltgruppe 9c# T  Entgeltgruppe 9b# T  Entgeltgruppe 9a C woerter  T       
 C woerter  T   $ T  Entgeltgruppe 15$ T  Entgeltgruppe 13# T  Entgeltgruppe 2 %	 # T  Entgeltgruppe 9a# T  Entgeltgruppe 9b     
   (t9 T   Entgeltgruppe S CC  Z ' T  Entgeltgruppe S 16 ' T  Entgeltgruppe S 13 ' T  Entgeltgruppe S 12 ' T  Entgeltgruppe S 11 % T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a& T  Entgeltgruppe S 11a C  

	% T  Entgeltgruppe P 16% T  Entgeltgruppe P 15% T  Entgeltgruppe P 14% T  Entgeltgruppe P 13% T  Entgeltgruppe P 12% T  Entgeltgruppe P 11% T  Entgeltgruppe P 10$ T  Entgeltgruppe P 9$ T 	 Entgeltgruppe P 8$ T 
 Entgeltgruppe P 71 T  Entgeltgruppe P 7 (don't use!)1 T  Entgeltgruppe P 7 (don't use!)$ T 
 Entgeltgruppe P 61 T  Entgeltgruppe P 6 (don't use!)$ T  Entgeltgruppe P 5* T  Arzt in Entgeltgruppe I/ T  Facharzt in Entgeltgruppe II0 T  Oberarzt in Entgeltgruppe III5 T " Vertreter des ltd.Arztes in EG. IV" T  Entgeltgruppe 1 C  
1 T  E4, Pauschalgr. I   (>185 Std)1 T  E4, Pauschalgr. II  (>196 Std)1 T  E4, Pauschalgr. III (>221 Std)0 T  E4, Pauschalgr. IV (>244 Std)& T  E4, Chefkraftfahrer1 T  E5, Pauschalgr. I   (>185 Std)1 T  E5, Pauschalgr. II  (>196 Std)1 T  E5, Pauschalgr. III (>221 Std)0 T 	 E5, Pauschalgr. IV (>244 Std)& T 
 E5, Chefkraftfahrer   
  m(v C   woerter  T  m    %
  $ T  AOK Azubi SOFA/FI) T  AOK Azubi Bromanagem.$ T  AOK Azubildende/r  %	 2 T 
 Auszubildender Gesundheitswesen    
X
  (T
 C   woerter  T     %   
   
	  (
 C   woerter  T      C woerter  T   $ T  Entgeltgruppe 15$ T  Entgeltgruppe 13# T  Entgeltgruppe 2 %	 # T  Entgeltgruppe 9a# T  Entgeltgruppe 9b # T  Entgeltgruppe 16   
@ %
  <# T  Entgeldgruppe 16# T  Entgeldgruppe 15# T  Entgeldgruppe 14# T  Entgeldgruppe 13# T  Entgeldgruppe 12# T  Entgeldgruppe 11# T  Entgeldgruppe 10" T  Entgeldgruppe 9" T 	 Entgeldgruppe 8" T 
 Entgeldgruppe 7" T  Entgeldgruppe 6" T  Entgeldgruppe 5" T 
 Entgeldgruppe 4" T  Entgeldgruppe 3" T  Entgeldgruppe 2" T  Entgeldgruppe 1    
>& T  Entgeldgruppe KR 17& T  Entgeldgruppe KR 16& T  Entgeldgruppe KR 15& T  Entgeldgruppe KR 14& T  Entgeldgruppe KR 13& T  Entgeldgruppe KR 12& T  Entgeldgruppe KR 11& T  Entgeldgruppe KR 10% T 	 Entgeldgruppe KR 9% T 
 Entgeldgruppe KR 8% T  Entgeldgruppe KR 7% T  Entgeldgruppe KR 6% T 
 Entgeldgruppe KR 5   
% T  Entgeldgruppe S 18% T  Entgeldgruppe S 17% T  Entgeldgruppe S 16% T  Entgeldgruppe S 15% T  Entgeldgruppe S 14% T  Entgeldgruppe S 13% T  Entgeldgruppe S 12& T  Entgeldgruppe S 11b& T 	 Entgeldgruppe S 11a$ T 
 Entgeldgruppe S 9% T  Entgeldgruppe S 8b% T  Entgeldgruppe S 8a$ T 
 Entgeldgruppe S 7$ T  Entgeldgruppe S 4$ T  Entgeldgruppe S 3$ T  Entgeldgruppe S 2& T  Entgeldgruppe S 13   
& T  Entgeldgruppe KR 17& T  Entgeldgruppe KR 16& T  Entgeldgruppe KR 15& T  Entgeldgruppe KR 14& T  Entgeldgruppe KR 13& T  Entgeldgruppe KR 12& T  Entgeldgruppe KR 11& T  Entgeldgruppe KR 10% T 	 Entgeldgruppe KR 9% T 
 Entgeldgruppe KR 8% T  Entgeldgruppe KR 7% T  Entgeldgruppe KR 6% T 
 Entgeldgruppe KR 5   
L% T  Entgeldgruppe S 18% T  Entgeldgruppe S 17% T  Entgeldgruppe S 16% T  Entgeldgruppe S 15% T  Entgeldgruppe S 14% T  Entgeldgruppe S 13% T  Entgeldgruppe S 12& T  Entgeldgruppe S 11b& T 	 Entgeldgruppe S 11a$ T 
 Entgeldgruppe S 9% T  Entgeldgruppe S 8b% T  Entgeldgruppe S 8a$ T 
 Entgeldgruppe S 7$ T  Entgeldgruppe S 4$ T  Entgeldgruppe S 3$ T  Entgeldgruppe S 2& T  Entgeldgruppe S 13   %
     
	 C}	   Soza  $ %  
   
	
 H   
 # C}	   Soza    
<' C}	   Soza    
t# C}	  Z Soza    
# C}	  _ Soza   , C}	     Soza    F
    (3
 #  >
  C   [    (
 # - >
  CC    ##0.0000  [    (
 # - >
  CC    ##0.0000  [  #)
     U  J MYSONDERZAHLUNG_ANDERE COMBO0	 LISTINDEX I ZT5 MYGET WOERTER TEXTEE WELCHESJAHR AOK_VERSION TRUE JAHR1 SOZA_ANDERE HSA F0 F1 MYFORMAT SOZA VORSOZA F2 GRDSOZA_ANDERE REFRESH
   
 H    
 T < T < T < T P T P T P T P T P T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T Z T < T < T Z T   T   T   T   T  
 H
  	  	j T < T < T < T P T P T P T P T P T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T Z T < T < T Z T   T   T   T   T P  
 T K T K T K T Z T Z T Z T Z T Z T 	_ T 
_ T _ T _ T 
_ T _ T _ T _ T _ T K T K T K T   T   T   T   T Z T K T K T K T Z T Z T Z T Z T Z T 	_ T 
_ T _ T _ T 
_ T _ T _ T _ T _ T K T K T K T   T   T   T   T Z ) C}   Soza    
 H
  " T p=
C@@" T p=
C@@" T \(<G@" T \(<G@" T fffffR@" T fffffR@" T fffffR@" T )\V@" T 	)\V@" T 
)\V@" T )\V@" T QU@" T 
QU@" T QU@" T QU@" T p=
C@@" T p=
C@@" T \(<G@" T QU@" T fffffR@ T   T   T   T   T   
 H(  " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  ( C}   Soza   2
 H\2  T" T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T   T   T  " T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T  " T RQ@ T    " T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T   T   T  " T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T  " T RQ@ T    P%" T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T   T   T  " T p=
I@" T p=
I@" T p=
I@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
I@" T RQ@" T RQ@" T RQ@" T p=
I@ T   T  " T RQ@ T    +" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     @U@" T 
     @U@" T      @U@" T      @U@" T 
     @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@ T   T  " T      @U@ T  " T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     @U@" T 
     @U@" T      @U@" T      @U@" T 
     @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@ T   T  " T      @U@ T    \2" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     @U@" T 
     @U@" T      @U@" T      @U@" T 
     @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@ T   T  " T      @U@ T  " T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     @U@" T 
     @U@" T      @U@" T      @U@" T 
     @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@ T   T  " T      @U@ T   ) C}   Soza    zQ
 H2MQ  8" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T   T Z T   T   T   T   T  " T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T  " T      P@ T   T   T   T   T    >" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T   T Z T   T   T   T   T  " T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T  " T      P@ T   T   T   T   T    E" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T QQ@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T   T Z T   T   T   T   T  " T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T =
ףpR@" T 	q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@ T   T   T   T  " T      P@ T   T   T   T   T    'K" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T   T   T   T  " T      V@ T   T   T   T   T  " T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T   T   T   T  " T      V@ T   T   T   T   T    MQ" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T   T   T   T  " T      V@ T   T   T   T   T  " T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T      @U@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@ T   T   T   T  " T      V@ T   T   T   T   T   ) C}   Soza    r
 HQr  .X" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T 	RQ@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T q=
ף U@ T   T  " T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T 	p=
׃P@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T q=
ף U@" T q=
ף U@ T   T    ^" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T 	RQ@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T q=
ף U@ T   T  " T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T 	p=
׃P@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T q=
ף U@" T q=
ף U@ T   T    Ze" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T RQ@" T 	RQ@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T RQ@" T RQ@" T RQ@" T RQ@" T q=
ף U@" T q=
ף U@ T   T  " T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T 	p=
׃P@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T 
q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T q=
ף U@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T p=
׃P@" T q=
ף U@" T q=
ף U@ T   T    k" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@ T   T  " T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@ T   T    r" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@ T   T  " T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T 	     V@" T 
     V@" T      V@" T      V@" T 
     V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@" T      V@ T   T   ) C}   Soza    Ds   (s T    T    ) C}   Soza    x T < T < T < T P T P T P T P T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T < T < T   T   T   T   T   T   T  
 Hux  x T < T < T < T P T P T P T P T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T < T < T   T   T   T   T   T   T   ) C}   Soza    s} T 2 T P T P T P T P T P T P T P T 	_ T 
_ T _ T _ T 
_ T _ T _ T   T   T   T   T _ T   T - T < T < T < T < T < T < T <" T 	     Q@" T 
     Q@" T      Q@" T      Q@" T 
     Q@" T      Q@" T      Q@ T   T   T   T  " T      Q@ T  ) C}   Soza    	I T Z T Z T Z T Z T Z T Z T Z T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T Z T Z T   T   T   T   T   T   T     (f
 H2b  b T  Z   T   T   T   T   T   T   T  ) C}  	 Soza    
' T Z T Z T Z T Z T Z T Z T Z T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T Z T Z T   T   T   T   T   T   T  " T      P@" T      P@" T      P@" T      P@" T      P@" T      P@" T      P@" T      P@" T 	     P@" T 
     P@" T      P@" T      P@" T 
     P@" T      P@" T      P@" T      P@" T      P@" T      P@ T   T   T   T   T   T   T  ) C}  
 Soza     T Z T _
 Hy  " T      V@  T Z T Z %  g
 Hc  c T d T d T d   T Z T Z T Z  T 	Z %  T 
_ ) T 
Z 
 H:f  f T Z 
 Hw   T _ 
 H  " T      V@ 
 H   T Z T Z T Z T Z T Z T 	Z T 
Z ) C}   Soza       (& T  )\T@
 HI  & T  )\T@  ) C}   Soza    
  T d T d T d T d T d T d T d T d T 	d T 
d T d T d T 
d T d T d T d T d T d T   T   T   T   T   T   T   T d T d T d T d T d T d T d T d T 	d T 
d T d T d T 
d T d T d T d T d T d T   T   T   T   T   T   T  ) C}  
 Soza    q T < T < T < T P T P T P T P T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T < T Z T   T   T   T   T   T   T  
 HD  D T < T < T < T P T P T P T P T Z T 	Z T 
Z T Z T Z T 
Z T Z T Z T Z T < T < T   T   T   T   T   T   T   ) C}   Soza     	   
 H|  | T d T d T d T d T d T d T d T d T 	d T 
d T d T d T 
d T d T d T d T   T   T   T   T   T   T   T   T     (x T       C}   Soza     
   Й          
    U  SOZA III VORSOZA WELCHESJAHR MYPUT JAHR1 M AOK_VERSION TRUE JASOHESSENANLEGEN JASOZA_TVL_PFLEGE JASOZA_TVL_SUE JASOZA_TVH_PFLEGE JASOZA_TVH_SUE
   
 H   " T ʡEC@@" T ʡEC@@" T ʡEC@@" T ʡEC@@" T ?5^I<G@" T ?5^I<G@" T ;OR@" T ;OR@" T 	;OR@" T 
{GV@" T {GV@" T {GV@" T 
{GV@ T   T   T   T   T   T   T   T   T   T   T   T   
 H/  " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  $ C}   Soza    U  SOZA WELCHESJAHR VORSOZA MYPUT JAHR1
   
 H >  >" T \(<G@" T fffffR@" T fffffR@" T fffffR@" T fffffR@" T fffffR@" T fffffR@" T fffffR@" T 	fffffR@" T 
fffffR@" T )\V@" T )\V@" T 
)\V@" T )\V@" T QU@" T QU@" T \(<G@ T   T   T   T   T   T   T   T   
 HO  " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  ( C}   Soza    U  SOZA WELCHESJAHR VORSOZA MYPUT JAHR1
   
 H f  f" T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T xT@" T 	xT@" T 
xT@" T xT@" T xT@" T 
xT@" T xT@" T xT@ T  " T RK@" T RK@" T xT@" T RK@" T RK@" T RK@" T xT@ T   T   " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  $ C}  Z Soza   U  SOZA WELCHESJAHR VORSOZA MYPUT JAHR12
   
 H   
e    (a  T      " T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T RK@" T xT@" T 	xT@" T 
xT@" T xT@" T xT@" T 
xT@" T xT@" T xT@ T  " T RK@" T RK@" T xT@" T RK@" T RK@" T RK@" T xT@ T   T   " T C " T C " T C " T C " T C " T C " T C " T C " T 	C	 " T 
C
 " T C " T C " T 
C
 " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C " T C  $ C}  _ Soza   U  SOZA WELCHESJAHR M VORSOZA MYPUT JAHR1 jasohessenanlegen,      weihnachtenaufbauen     kindergeldaufbauen     weihnachtstexte     jahressonderzahlung     jasozafllen     jahressonderzahlunganlegenp2     jasoza_TVL_Pflege     jasoza_TVL_SuE
     jasoza_TVH_Pflege!     jasoza_TVH_SuE6    4   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!A #!!!!!!!!!!!!!!!!!!!!!!!!B 4 	1 01 1 @1 rqqA  !QA 111A  A A  Q1AaQ1Aa111aA QaAA1!11A A RqA qqqqQQaUQQQQQQAAAAAQ!aaRA AAA !!A RA RA aAA1!11A 1Q1111111!!!!!!!!!A QaaaaaaaaQQQQQRQQQQQQQaaAQQAAAAaRaaaaaaaaQQQQQRQQQQQQQaaAQQAAAAaA  A Q1QqQ1Q1A  A A r q A A r A A r A A Q  1    "A  "!!!!!!!!!!!!!!!!!!!!A  "!!!!!!!!!!!!!!!!!!!!!!!!!B  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A  p!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!A rA  "A !!!!!!!!q +A A  !!!!!!!!!!!!!!!!!! "!A  "A  A ! A  "A  "A  "!A  "A ra "aA A  "A q  "rA A s r r r A A 4   "!!!!!!!!!!!!!A  "!!!!!!!!!!!!!!!!!!!!!!!!!B AA 3   "!!!!!!!!!!!!!!!!!A  $!!!!!!!!!!!!!!!!!!!!!!!!!A A 3   "!!!!!!!!!!!!!!!!!!!!!!A #!!!!!!!!!!!!!!!!!!!!!!!!B A5   "qA #!!!!!!!!!!!!!!!!!!!!!!A #!!!!!!!!!!!!!!!!!!!!!!!!B A2                    ^   &        '  65        a5  `G       G  K  X     L  /^       U^  0  7    c  p l    +p Lz _
  +  sz  
  g     
    E  %     %   9      B?  {  L:  rZ	    U  *
   )
 T  
 H'   C  b  %C 
^ 
 T   CC  
 T  C  ! %  C 	 
 T   %  
 T    % B
 H> CC >
 T    %  % y T   
 T     %  T   
 T    0 %  C 
	 C 	
 H    T     C	  T   
  C	  T     C	  T     C	  T   
  C	  T     C	  T     C	  T     C	  T     C		  T     C
	  T     C	  T     C	  T     C
	  T     C	  T     C	  T     C	  T     C	  T     C	  T     C	  T     C	  T     C	  T     C	  T     C	  T      C	  T   !  C	  T   "  C	  T   #  C	    T     C	  T   
  C	  T     C	  T     C	  T   
  C 	  T     C!	  T     C"	  T     C#	  T     C$	  T     C%	  T     C&	  T     C'	  T     C(	  T     C*	  T     C+	  T     C,	  T     C-	  T     C.	  T     C/	  T     C0	  T     C1	  T     C2	  T     C3	  T      C4	  T   !  C5	  T   "  C6	  T   #      
 T     C7	  T   
  C8	  T     C9	  T     C:	  T   
  C;	  T     C<	  T     C=	  T     C>	  T     C?	  T     C@	  T     CA	  T     CB	  T     CC	  T     CD	  T     CE	  T     CF	  T     CG	  T     CH	  T     CI	  T     CJ	  T     CK	  T     CL	  T     CM	  T      CN	  T   !  CO	  T   "  CP	  T   #  CQ	   N
 T     CR	  T   
  CS	  T     CT	  T     CU	  T   
  CV	  T     CW	  T     CX	  T     CY	  T     CZ	  T     C[	  T     C\	  T     C]	  T     C^	  T     C_	  T     C`	  T     Ca	  T     Cb	  T     Cc	  T     Cd	  T     Ce	  T     Cf	  T     Cg	  T     Ch	  T      Ci	  T   !  Cj	  T   "  Ck	  T   #  Cl	    T     Cm	  T   
  Cn	  T     Co	  T     Cp	  T   
  Cq	  T     Cr	  T     Cs	  T     Ct	  T     Cu	  T     Cv	  T     Cw	  T     Cx	  T     Cy	  T        T        T        T        T        T        T        T        T        T        T         T   !     T   "     T   #       T     C 	  T   
  C 	  T     C 	  T     C 	  T   
  C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T     C 	  T        T        T        T         T   !     T   "     T   #      g# $  (   T% CC$  Z. .optiongroup1.Opt&xxx..Caption = zt12(1+i)
  %    c# T   C( 
& '     %C 
  	2 T    Besitzstandszulage (dynamisch)8 T   $ Besitzstandszulage (nicht dynamisch)  %C 
 % 
2 T    Besitzstandszulage (dynamisch)8 T   $ Besitzstandszulage (nicht dynamisch)  
 H*)4     	    
	
 H% C   C 	
 T$ d CC 
8
 T$ h CC a
 T$ rD C  C 	 C  C 	
 T$ | - C * C  $  employee)  +  $  (Z T% CC$  Z T, C$ - . d
 HD& CC  $   %$   T, C( /    0  .zeile&xxx..Caption = wer
 %$  %    % 
   C *  1  employee) 1 T, C2 C
2 C3 4 RQ?$ %C  C 
 T,    0  T5  6     %  $ 		V % 
R % 
N  C * 1  employee) ) T, CC 3 4 C2  0  T7  6      %     T8   manuell   $
 H$  X C *  employee)  +  $  (T T% CC$  Z T, C$ - .  0  .zeile&xxx..Caption = wer
    C * i	 employee )  +  $  ( T% CC$  Z T, C$ - .  0  .zeile&xxx..Caption = wer
    C * } employee)  +  $  ( T% CC$  Z T, C$ - .  0  .zeile&xxx..Caption = wer
   C C * q employee)  +  $  (? T% CC$  Z T, C$ - .  0  .zeile&xxx..Caption = wer
   
$) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T8  6 ) C * C 
 employee)  + ! T, C
-       ?.  T9 ,  0  T:  6 ) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T;  6 ) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T<  6 ) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T=  6 ) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T>  6 ) C * C  employee)  + ! T, C-       ?.  T9 ,  0  T?  6 ) C * C ( employee)  + ! T, C-       ?.  T9 ,  0  T@  6 ) C * C * employee)  + ! T, C-       ?.  T9 	,  0  TA  6 ) C * C - employee)  + ! T, C-       ?.  T9 
,  0  T7  6 ) C * C 0 employee)  + ! T, C-       ?.  T9 ,  0  TB  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TC  6 ) C * C  employee)  + ! T, C- HzG?.  T9 
,  0  T5  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TD  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TE  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TF  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TG  6 ) C * C  employee)  + ! T, C- HzG?.  T9 ,  0  TH  6    *) C *  1  employee)  + ! T, C- ?.  0  T8  6 ! T, C- )\(?.  0  T:  6 ! T, C- Q?.  0  T;  6 ! T, C- p=
ף?.  0  T<  6 ! T, C- Q?.  0  T=  6 ! T, C- 333333?.  0  T>  6 ! T, C- {Gz?.  0  T?  6 ! T, C- 
ףp=
?.  0  T@  6 ! T, C- RQ?.  0  TA  6 ! T, C- ?.  0  T7  6 ! T, C- 
ףp=
?.  0  TB  6 ! T, C- ?.  0  TC  6 ! T, C- Q?.  0  T5  6 ! T, C- p=
ף?.  0  TD  6 ! T, C- Q?.  0  TE  6 ! T, C- {Gz?.  0  TF  6 ! T, C- 
ףp=
?.  0  TG  6 ! T, C- ?.  0  TH  6  % &)
 Hf(") CC ")* C * C }	 employee )  +  $  () T% CC$  Z T, C$ - .  0  .zeile&xxx..Caption = wer
     I ( ) TJ CCI  Z9 IF EMPTY(mytablett.optiongroup1.opt&rrr..caption))3 mytablett.optiongroup1.opt&rrr..visible = false
( mytablett.zeile&rrr..visible = false
    UK 	 MYTABLETT OP1 ZI WELCHESJAHR KNOPF J OPTIONGROUP1 OPT0 CAPTION ZT12 OPT1 OPT2 OPT3 OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 OPT10 OPT11 OPT12 OPT13 OPT14 OPT15 OPT16 OPT17 OPT18 OPT19 OPT20 OPT21 OPT22 OPT23 OPT24 OPT25 OPT26 I XXX WVW ZULAGEN ZTI MYGET
 FILENUMMER	 GETVALUES NUMBR GRUNDBETRAG ANPASSUNGSFAKTOR BETRAG ZAHLINTEXTNUMBR
 MYPOSITION WERT EMPLOYEE FELD ZEILE12 WER ZEILE9 ZEILE0
 BEAMTENZULAGE ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE10 ZEILE11 ZEILE13 ZEILE14 ZEILE15 ZEILE16 ZEILE17 ARA RRRy

 H
 r
% C    C  		0	
 H? ,	 C   L C     employee    %C
  
 8 T  CC   C RQ? 	8 T  CC   C
 RQ? $ %C   C  	H T     C   Z) C  C   employee   ' T  C       ? C   [,) C  C  
 employee   ' T  C       ? C   \) C  C   employee   ' T  C       ? C   ]) C  C   employee   ' T  C       ? C   ^|) C  C   employee   ' T  C       ? C   _) C  C   employee   ' T  C       ? C   `\) C  C   employee   ' T  C       ? C   a) C  C  ( employee   ' T  C       ? C   b<) C  C  * employee   ' T  C       ? C   c) C  C  - employee   ' T  C       ? C   d) C  C  0 employee   ' T  C       ? C   e) C  C   employee   ' T  C HzG? C   f) C  C   employee   ' T  C HzG? C   gl) C  C   employee   ' T  C HzG? C   h) C  C   employee   ' T  C HzG? C   iL) C  C   employee   ' T  C HzG? C   j) C  C   employee   ' T  C HzG? C   k,	) C  C   employee   ' T  C HzG?  C  
	 % 
	 T     T    S C   C  	 C   C   C  	

 T     T    CC  r
 % 
f
 T     T    n
   U	  ZI K MYGET
 FILENUMMER
 MYPOSITION	 GETVALUES BETRAG GRUNDBETRAG WELCHESJAHR*    (] T CC   Z+ mytablett.zeile&xxx..Top = 58 + 19 * i 
" mytablett.zeile&xxx..Left = 10
# mytablett.zeile&xxx..Width = 60
$ mytablett.zeile&xxx..Height = 17
( mytablett.zeile&xxx..BorderStyle = 0
& mytablett.zeile&xxx..Alignment = 1
& mytablett.zeile&xxx..FontSize = 10
' mytablett.zeile&xxx..Visible = True
  T   K    ( T CC   Z, With mytablett.optiongroup1.Opt&xxx. T  T    T     T  	   T     U
  I XXX	 MYTABLETT OPTIONGROUP1 LEFT WIDTH CAPTION VISIBLE TRUE VALUE  U    U   Knoepfe,      knoepfekurz,     zulagenaufbauenQ7     leistungszulage9     stufenbewegungen9    4    QQ A  Q A " A A !  A A   A    A A  aaaaaaaaaaaaaaaaaaaaaaA  1qA 1A A "A Q!!A A  A Q   A A q rq aQA A r A A q A A A !!r A A A B A  q qqq A q qqq A q qqq A q qqq A q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r B q q q q q q q q q q q q q q q q q q q " q qqq A A A A q1A A A 3  Q q Q A AqA q qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qL Q!qqA 1qq!qq A A 3 sq!1AaarB 2qq   A A 213 4 3                    8   \       ]  9m  q  b  am  q    y  Dq  Dq    z  mq  mq    	   %   
X      _    X  Q][(
    U  	 4  
  	* T C C   100 d 6   T   * T C C   100 d 6   T   + T C cC   100 d 6   T	   * T C C   100 d 6   T
   * T C C   100 d 6   T   * T C  C   100 d 6   T   * T C C   100 d 6   T
   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C	 C   100 d 6   T    T C   %  

 T      T   * T C C   100 d 6   T   * T C
 C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T   * T C C   100 d 6   T    T     * T C C   100 d 6   T!   * T C C   100 d 6   T"    %C#   T          * T C C   100 d 6   T$   * T C C   100 d 6   T%   * T C& C   100 d 6   T'   * T C( C   100 d 6   T)   * T C C   100 d 6   T*   + T C*( cC   100 d 6   T+    %, + T C& cC   100 d 6   T-      U.  HSXMOD	 MYTABLETT NUMBR VBLZ ZAHLINTEXTNUMBR KASTEN1 CAPTION WER KASTEN2 KASTEN3 KASTEN4 KASTEN5 KASTEN6 KASTEN7 KASTEN8 KASTEN9 KASTEN10 KASTEN11
 ZVKUMLZAHL KASTEN12 KASTEN13 KASTEN14 KASTEN15 KASTEN16 KASTEN17 KASTEN18 KASTEN19 KASTEN20 KASTEN21 KASTEN22 KASTEN23 KASTEN24 KASTEN25 KASTEN26 KASTEN27 LSTRZ KASTEN28 KASTEN29 EFFZAHL KASTEN30 WERT KASTEN31 KASTEN32 KASTEN33 WELCHESJAHR KASTEN34  B U          (!  T CC  Z4 LStSozZVK(1+i, 1) = mytablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 2) = mytablett.Kasten&xxx..Caption
      100   (W T CC  Z4 LStSozZVK(1+i, 3) = mytablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 4) = mytablett.Kasten&xxx..Caption
   (, T  C  , T  C     (K, T  C  , T  C    T    T    T    T        100 %	 w   ("s T CC  Z4 LStSozZVK(1+i, 5) = myTablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 6) = myTablett.Kasten&xxx..Caption
     (! T CC  Z4 LStSozZVK(1+i, 5) = mytablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 6) = mytablett.Kasten&xxx..Caption
  , T  S  T  E  U  E  R  N T   < T # S O Z I A L V E R S I C H E R U N G T   : T ! A T V - B E T R I E B S R E N T E U
  LOHNSTRAUFBAUEN LOHNSTRINSTRING I XXX SOZVERSAUFBAUEN SOZVERSZINSTRING	 LSTSOZZVK VBLAUFBAUEN VBLINSTRING WELCHESJAHR  U  $   
 T   %C R % N$ %C (
 C (J
 Hk FS C   C 	 C  C 	 C   T % T   C& 4 C  C 	 C F T  T   C      %C 
r    T	 
    T ?) %C   C
  '
	 T C
 '  % 	 d
 T 	 d    ( ? T     %C /
 He    T "   T #   T 1   T 9  
 T    
 T    T 2 i % 
 HVc    T "C C    T #C C    T 1C C    T 9C C   4
 T    c T  C C   T 2C C  e
 HS    T "   T #   T 1   T 9  5
 T    S
 T    T 2  ( %C" 0 C C 
 T    T C
   (D %C     T  C 
   %C    @# T C C 
    % l T    T    T    T     ! " ? T C C C C C C   %C  
$ T   $ %C  C g T C #  , T C # C C   T C d %C 
' T C C
 C   %C C * T C  I T C  ' %$  $  $  T C  
# %% &   C 	z
 T C   (v
 % 	$ %C   C 	 %C* 
	& %C    
 C  ' 
		, T C C  ( ?   	& %C    
 C  ' 
		9 T C C  ( C) ?   r
 %C* 
n
& %C    
 C  ' 
	j
, T C C  ( ?     
 T C   
 T*  
 T+  
 H
Sa C  C 	 C 
 C  C  C 	{ T+ CC , $ %C 
 C  	} T+ C,   %% -  
 T*  T+ CC , $ %C 
 C  	 T+ C,    %% .  w
 T* 	 T+ CC , $ %C 
 C  	s T+ C,   % CC 

 T+ CC , $ %C 
 C  	 T+ C,   %% .  

 T* 	 Q C  C  C  C  C S T+ CC , $ %C 
 C  	
 T+ C,  " %% -   % .  	M T+ CC , $ %C 
 C  	< T+ C,  
 T*  O %% -  
 T*  T+ CC , $ %C 
 C  	 T+ C,    %% .  K
 T* 	 T+ CC , $ %C 
 C  	G T+ C,     $ %C  C {  T+ + C C  4 %C   C 
	 C ( T/  
 T	   T     T 	C 	 d T/ C 0 d  T C 1 2  T3 CC dG %3 1# T CC d4   T CC d4   %C z %5  8 T C6  T 	C6  v T C6 d5  T 	C6    %C 
 T7 } %C* 
 H 8 
 T7    
 T7   %C* :! T6 *C c7 '  %C
   %C +  T C +  T C * d T/ C  T/ C +   T   T/   T/    ] %1  F T    T 	   T 
C	 C  T
 C  T
  C
 
 H0" 9  "
 HS C   C 	 C  C '	 C ($ %C+  C+ g T C+  $ %C,  C,  T C C,  $ %C-  C-  T C C-   T C C  %8 
? T: {Gz?  %8 
n T: Q?  T: {Gz?   %8 
# T C; : C  4 %8 
# T C; : C  0# T C; : C    %C  
` T    T C
 C  %C  
 T    % C C
 
 T   2 T C
 C  %C  
. T     T C C ( %C" 0 C C  T   T/   T C
  T   T C
   %C C ' T 
' A T 
C C   T C
 C
  %C  
 T    T C
 C  %	   T C 	 d  T    T C   T  ' T C C C  %C  
{ T    CC  T< C    %<  

 T<    %C =  T    T C
    9 0"
 H@,"S C   C 	 C  C '	 C (! T   >  (C  %C  " C> C  wvw? * %C*@ A  C*@ A H" T C C+@ B  * %C+@ A  C+@ A " T C C,@ B  * %C,@ A  C,@ A " T C C-@ B  - T C C@ B C @ B   $ %C+  C+ d T C C+  $ %C,  C,  T C C,  $ %C-  C-  T C C-   T C C ( %C" 0 C C P T   l %8 
 T: {Gz?  %8 
 T: Q?  T: {Gz?   %8 
 T C; :  h %8 
= T C; :  d T C; :     %C C c
 T C c  T C C  %C  
 T    T C
 C  %C  
8 T    % C C
 
l T    T C
 C  %C  
 T     T C C  T C C  %C C
 1  T C
   %C '{  T C
 ' T '   T C
 C   T 
C  %	    T C 	 d ! T    T C   T  ' T C C C  %C  
! T    CC ," T< C    %<  
!
 T<    %C = 	" T   (" T C
     T/ C  T/ (C  T/ )C  T/ /C  %C " T   T C  T C   T C
 # T C ? T C D d T C ' T CC )\(?4  T/ C ? T C C C C C/ C  T
 !C  %2  $  T C 2  6$ T   ( %C" 0 C C $% T !C 1 2 d T C C!   T/ 0C  UE  KIRCHENSTEUERAUSWAHL
 ZVKPFLICHT ZI	 ALTESLAND MYFORM1 Z25 CAPTION ZT25 ZVKUMLAGESATZENTWICKELN ZVKUMLAGEAG	 ZVKUMLAGE ZVKHALB AREV INTERIM I VBLZ ZVKAG	 ZVKPAUSCH AGSTEUER
 ZVKFREIBETRAG NOTKURZ WERT IJ ZVKZ TRUE FALSE NETTOJA ZVKUSACHLFDPLUS ZVKUSACHEINPLUS ZVKUEINLFDPLUS ZVKUEINEINPLUS ZVKUSACHLFDMINUS ZVKUSACHEINMINUS ZVKUEINLFDMINUS ZVKUEINEINMINUS ZVKBEMG ATZFLOP WNW ATZALT BRUZ	 BRUCHZAHL GRUNDBETRAG ZVKZU
 ZVKUMLZAHL ZUSATZUMLAGEAB	 ZVKZUSATZ
 ZVKZUSATZ9 EFFZAHL	 SANIERUNG
 ZVKKAPITAL ZVKKAPITALAN HS_REST FIX ZVKUMLAGEFIX BETRAG HH_VBL WELCHESJAHR ZVKSTART VBLFREIPROZENT RVGRENZE ZVKSOZ ZVKHOCH III MYGET WVW ZNAM TNAM ZVKAREV ZVKKISTR9
 H
 2 C*   [  T *  T *  T * 6 C*  
 C*  	
 C*  $ %C   C*     T *  T *  D$ T *C C*  '% T *CC* dTd T *C* c  %     	 T  *  T *  T *  T  *   CC*   T *C*  C*  2 %C  ^ T ?
 H3Z  Z T L7A`?  s
 T   T C  T *C   T	 CC* ddG %	 1 T *CC* 
   T *CC* 
   T *C* c  U  ZI INTERIM BETRAG WERT ZVKHALB ZVKKAPITALAN HH_VBL2 WELCHESJAHR VBLZ HS_REST FIX+
   	, T   U M L A G E   F  R   D I E2 T  ! B E A M T E N V E R S O R G U N G   (c T CC  Z .zeile&xxx..FontSize = 10
 .zeile&xxx..Left = 15
! .zeile&xxx..Top = i * 30 + 15
 .zeile&xxx..Height = 30
 .zeile&xxx..Width = 400
 .zeile&xxx..FontBold = True
 .zeile&xxx..Visible = True
   ( T CC  Z %C    *) T  C  	 C
 'V .zeile&xxx..Caption = wert(1+25) / 10000 + " x " + Alltrim(myform1.z&xxx..Caption)
  T   F .zeile&xxx..Caption = "0,000 x " + Alltrim(myform1.z&xxx..Caption)
   T   GESAMTUMLAGE  (a T CC  Z  .zeile&xxx..WordWrap = False
 .zeile&xxx..AutoSize = True
@ .zeile&xxx..Caption = Alltrim(mytablett.zeile&xxx..Caption) 
   (; T CC  Z .zeile&xxx..FontSize = 10
 .zeile&xxx..Left = 15
 .zeile&xxx..FontSize = 10
 .zeile&xxx..Height = 30 
 .zeile&xxx..Width = 400
 .zeile&xxx..Visible = True
  T    T 
 
 T  % T        ( T   T   T     (M T CC  Z .Kasten&xxx..Visible = True
3 .Kasten&xxx..BackColor = hex2rgb("&H80000005") 
' .Kasten&xxx..ForeColor = QBColor(0)
 .Kasten&xxx..Font.Size = 10
 .Kasten&xxx..Height = 300 
. .Kasten&xxx..Left = mytablett.Width - 1350
! .Kasten&xxx..borderstyle = 1 
 .Kasten&xxx..Width = 1150
 T C     .Kasten&xxx. = wer
 ! T        ! T        ! T        ! T        ! T        ! T         ! T!      "  ! T#      "  ! T$   %   &  ! T'   %   &    (L T CC  ZB .Kasten&xxx..Top = myform1.Abereich3.Top + myform1.z&xxx..Top 
A .zeile&xxx..Top = myform1.Abereich3.Top + myform1.z&xxx..Top 
   (	 T CC  ZB .Kasten&xxx..Top = myform1.Abereich4.Top + myform1.z&xxx..Top 
A .zeile&xxx..Top = myform1.Abereich4.Top + myform1.z&xxx..Top 
  T(   0 .Kasten22.BackColor = hex2rgb("&H80000005") 
 T( ) C *  T( + , 
% T(        ( T(   T(     F T(  s T C 
    T( -     . 

 T/  T  Hilfe T        T  T    < T ( T      0 $ T 	 Schlieen T        T (    T    < T ( T    U1 	 MYTABLETT ZEILE0 CAPTION ZEILE1 I XXX ZVKZ TRUE VBLZ	 BRUCHZAHL WERT ZEILE22 VISIBLE FONTSIZE LEFT TOP MYFORM1	 ABEREICH5 Z21 HEIGHT WIDTH NUMBR ZAHLINTEXTNUMBR KASTEN7	 ABEREICH2 Z7 ZEILE7 KASTEN9 Z9 ZEILE9 KASTEN8 Z8 ZEILE8 KASTEN11 Z11 ZEILE11 KASTEN10	 ABEREICH3 Z10 ZEILE10 KASTEN22	 FORECOLOR QBCOLOR FONT SIZE WER
 SSCOMMAND3 REGISTER
 SSCOMMAND2

   
2 T  ! A T V - B E T R I E B S R E N T E  T   1. BRUTTOGEHALT' T   2. - davon umlagefreie3 T  " 3. - umlagefr.Anteil i.d.Zuwendung1 T    4. + umlagepflichtige Sachbezge5 T  $ 5. + umlagepflichtige Geldleistungen) T   6. - umlagefreie Betrge T	  
 7. = Summe* T
   8. Umlagebemessungsgrenze- T   9. Umlagepflichtiges Entgelt4 T  # 10. * 1,8 bei ATZ vereinb.ab 1.1.03C T
   11. Umlage des AG aus Nr.10 (CC Z  %)) T   12. zustzl.beitragspfl.A T   .     ergibt Zusatzumlage (CC Z  %)/ T   13. Gesamtumlage (Nr. 11 + 12) %  T % 
 T -C6*? R % 
1 T a2U0*3? N T -C6:?   % 
q T  
 14. Str.frei CC -C6? ###0.00   - 3Entg.Umw(CC d ###0.00  ) P % 
\i T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  ) Li T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  ) % Hi T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  )     % 
 T -C6*?  % 
 T a2U0*3?  T -C6:?   % 
^u T  
 14. Str.frei CC -C6? ###0.00   - 3Entg.Umw(CC d ###0.00  )  % 
m T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  ) m T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  ) % m T  
 14. Str.frei CC   ###0.00   - 3Entg.Umw(CC d ###0.00  )    ( %C" 0 C C M< T  + 14. Steuerfreibetrag nur im 1. Arb.Verhlt. 6 T  % 15. Rest zu versteuern ( Nr. 13 - 14)2 T  ! 16. lt.ATV versteuert AG pauschal0 T   17. Rest zu versteuern durch AN6 T  % 18. AN verbeitragt voll Nr.13 - Nr.196 T   % 19. Erm.Verbeitr.Nr14+Nr16, max.100K T!   20. entspricht Entgelt bei CC Z
  % Umlagesatz3 T"  " 21. davon sind 2,5 zu verbeitragen! T#   22. - Freibetrag %C" 0?
6 T$  % 23. Insgesamt zu verbeitragen (18+29) 
9 T$  ( 23. Insgesamt zu verbeitragen (18+21-22) 2 T%  ! A U F W E N D U N G E N  des  A G& T&   24. Umlage lt. Nr. 13/ T'   25. 20 % Lohnsteuer aus Nr. 163 T(  " 26. 5,5 % Soli-Zuschlag aus Nr. 25B T)   27. CC* Z  % Kirchensteuer aus Nr. 25B T+   28. CC, Z  % Sanierungszusch.aus Nr.9C T-   29. CC. / Z  % Kapitalbeitrag des AG* T0   30. S U M M E  AG-AUFWAND
 H<b
& C* 

 C* C T1   31. CCC* d
Z  % v.Nr.10 AN-Anteil CC* - T1   31. 0,00 % v.Nr.10 AN-Anteil C* b

 H
^
  ^
< T1   31. CC/ Z  % RG-Beitrag Hamburg   % 
F T2   32. C3  #0.00   % /2 Zusatzbeitrag KV AG   U4 	 MYTABLETT ZEILE0 CAPTION ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE9 ZEILE10 ZEILE11 ZVKUMLAGEAG ZEILE12 ZEILE13 ZVKZU ZEILE14 ZVKSTART WELCHESJAHR VBLFREIPROZENT ZEILE15 MYFORMAT RVGRENZE VBLZ ZI WERT ZEILE16 ZEILE17 ZEILE18 ZEILE19 ZEILE20 ZEILE21 ZEILE22 ZEILE23 ZEILE24 ZEILE25 ZEILE26 ZEILE27 ZEILE28 ZEILE29 ZVKKISTR ZEILE30	 SANIERUNG ZEILE31
 ZVKKAPITAL ZVKKAPITALAN ZEILE32 ZEILE33 ZEILE34 ZUSATZKV  U   vblinstring,      anlagedrucken2
     anlagegemeinsam
     anlageaufbauent    
 vblzahlen2008{     an_zvk8     pensionenaufbauen;     vblaufbauen\H    
 atvanaufbauenX    @1 q  q q q q q q q q q q q R A r q q q q q q q q q q q q q q SA q q q q q q #q A A 3 B 3 s q rqAQA r qqAQA A A r "qqAQA  qqAQA A 3 1 q  QA 11qA1qA A A A Rq  A RaA RA rqA R       A   !  A         A  A A  A rraA b1A A 1A rqQ1A B A RqA q qA sq 1qqAqaA A  aA A  qaA A A A  qA A    BAA B AAA A B AAA A QAAA B A BAA "AAA   A AAA A A AAA A A A A A B2 1A b1 A Rqq qA A R a + A A   A bA RSq 111A  1A 1A sq  1HqA BA BA "Q !Q QA A #1 !1 1A A R1A R1A 1 Q1A A 11q1qA A A Q1A  1A 1qR1A  A R1 qA A  12Q!!A !A !A A A CA BA BA 1 &Q !Q QA A ! ! A A A A R1A R1A 1 Q1A A qA bA A r 1A 1qR1A  A R1 qA A A rqqq1qqA r1qqqq 1A RA r3  Q111aA11 AQA 1111A qaQR +QA   A q A A 3  !rqA sqaa qaA A rqA rqA Q!rq1qQq aA rq!A qq!A QAQq  A  1   A q  A 3  !q1QA1"Q !Q QA A ! " !A A A  "Q !Q QA A !Q " !A A A A A b!aa1Qa A !a1!!1 a1a -A B !aA A 3 2                    3(  8    r   8  9  E  t   B9  B@  J     j@  Z       Z  ʫ          j          '    $  (    J  J       %         A    
  WOM[M
  C  7   7  7  7  7  7  T C HS_opsN U  HS_SCHULDNER	 HS_ANREDE HS_NAME
 HS_GEBUEHR	 HS_KUNDNR
 HS_OPLISTE
    T a T a T a T -    T  T X T  T 2 T	 	 Schlieen T
   
  T     y T P T X T  T  T
  %   C T	    T   g T	    T    T      T x T X T  T  T
   
  %  <S T E Jetzt werden nach jedem Beenden ber "Start/Beenden" Kopien angelegt. x T j Nach dem Deaktivieren werden keine weiteren Kopien angelegt. Die bisherigen Kopien bleiben aber verfgbar.  T      T  T  T  T 
 H& C m T	  Wiederherstellen T   C   T	  L e e r   ! ! ! T    T
   
  T      T  T  T  T  T X T	  Jngeste Kopie vom CC   \Backup1\gehaltC \ dim.dbfX* T
   
  T      T  T  T  T 
 H C E T	  Wiederherstellen T   C   T	  L e e r   ! ! ! T    T
   
  T     ~ T  T  T  T  T X T	  Mittlere Kopie vom CC   \Backup2\gehaltC \ dim.dbfX* T
   
  T      T ! T  T  T 
 Hc C  T	  Wiederherstellen T   C  c T	  L e e r   ! ! ! T    T
   
  T      U T & T  T  T  T W T	  lteste Kopie vom CC   \Backup3\gehaltC \ dim.dbfX* T
   
  T    !  T  T  T  T 2 T"  2 T	 $ Auf einen frhren Stand zurcksetzen T
   
  T    # 
 T d T  T  T  T$ r Bei jedem Beenden des Programms ber "Start/Beenden" werden Ihre Userdaten in ein besonderes Verzeichnis kopiert, x T$ $ g damit Sie darauf zurckgreifen knnen, wenn die zwischenzeitlichen nderungen verworfen werden sollen. ` T$ $ O Die Dateien mit den Tariftabellen und Programmtexten werden nicht so gesichert. T $  T
   
  T    %  T  T  T  T  T$ َ Da die Kopien auf dem gleichen Datentrger gespeichert werden wie die Originaldateien, nutzt diese Funktion bei einem Defekt des Datentrgers  T$ $ o  n i c h t s .  Fr diesen Extremfall sollten Sie die Userdaten in Ihre allgemeine Backup-Routine einbeziehen. a T$ $ P Es handelt sich um die Verzeichnisse User001 bis User??? im Programmverzeichnis. T $  T
   
  T     U& 	 MYTABLETT VISIBLE ALWAYSONTOP
 AUTOCENTER
 SSCOMMAND4 TOP LEFT WIDTH HEIGHT CAPTION	 BACKCOLOR TRUE CHECK0 FONTSIZE DIMEN DIMPW5 VALUE
 SSCBUNCHECKED SSCBCHECKED EDIT1
 SSCOMMAND1 SAAR ENABLED FALSE KASTEN1	 ALIGNMENT EIGDAT MUSER XJAHR4
 SSCOMMAND2 KASTEN2
 SSCOMMAND3 KASTEN3 ZEILE1 FONTBOLD EDIT2 MSGX EDIT3 4    7  7  7  % 	L  T  C 
8
 
 T   
 T   + C  >
  T   T   T CC   \( T    C 8 T  C  
 T    U  CRYPT1 CRYPT2 CRYPT3 CRYPT4 CRYPT5 ISCRYPT
    T 	 aktiviert    T P T  T  T 2 T  T 	  T
   
  T  Updatesuche .... T 	    y T d T  T  T 2K T = Die Suche nach einem neuen Update bei jedem Programmstart ist T
   
  T 	   
 W T d" T         
 T  T  T  T
   
  T 	 aktiviert T 	  %  = T   S T    
 T    T  T   T x T 2 T 	  T 
 Hauptmodul T
   
  T 	     T  T   T x T ( T 	 ' T  Tarifdatei CC  Z T
   
  T 	    > T  T   T x T ( T 	 ' T  Tarifdatei CC  Z T
   
  T 	     T  T   T x T ( T 	 ' T  Tarifdatei CC  Z T
   
  T 	    m T  T  T , T (" T  Ihre Version ist vom T
   
  T 	     T  T   T x T  T  T C	  T
   
  T 	     T  T   T x T  T  T C	  T
   
  T 	      T  T   T x T  T  T C	  T
   
  T 	   !  T  T   T x T  T  T C	  T
   
  T 	   " 6 T  T  T  T (' T  Das letzte Update ist vom T
   
  T 	   #  T  T   T x T  T  T C	  T
   
  T 	   $ R	 T  T   T x T  T  T C	  T
   
  T 	   % 	 T  T   T x T  T  T C	  T
   
  T 	   & n
 T  T   T x T  T  T C	  T
   
  T 	   ' 
 T  T  T  T  T  Gre in kB T
   
  T 	   ( ~ T  T   T x T  T  T C	  T
   
  T 	   )  T  T   T x T  T  T C	  T
   
  T 	   *  T  T   T x T  T  T C	  T
   
  T 	   + (
 T  T   T x T  T  T C	  T
   
  T 	   , 
 T @ T   T x T 2 T  Updaten T
   
  T 	   - 0 T @ T   T x T 2 T  Updaten T
   
  T 	   .  T @ T   T x T 2 T  Updaten T
   
  T 	   / 8 T @ T   T x T 2 T  Updaten T
   
  T 	   0  T  T   T x T 2 T  Was ist neu? T
   
  T 	   1 J T  T   T x T 2 T  Was ist neu? T
   
  T 	   2  T  T   T x T 2 T  Was ist neu? T
   
  T 	   3 \ T  T   T x T 2 T  Was ist neu? T
   
  T 	   T4     5  T   T   T 4  T < T  Hilfe T
   
  T 	   6 l T   T 4  T 4  T < T 	 Schlieen T
   
  T 	   7 , T  T   T X T P T B Upzudaten ist, wenn das letzte Update jnger als Ihre Version ist. T
   
  T 	   8  T  T   T  T U T G Mit "Was ist neu?" knnen Sie nachschauen, ob es Zwischen-Updates gibt. T
   
  T 	   9  T  T   T  T E T 7 Mit "Updaten" erhalten Sie immer das aktuellste Update. T
   
  T 	   :   T  ; a T  < a T   	  T  < - U= 	 MYTABLETT CAPTION ZEILE1 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE	 BACKCOLOR VISIBLE ZEILE2 CHECK0 DIMEN DIMPW6 VALUE SSCBCHECKED
 SSCBUNCHECKED HSMINUS ZEILE3 ZEILE4 JAHR3 ZEILE5 JAHR4 ZEILE6 JAHR5 ZEILE7 KASTEN1	 FORECOLOR QBCOLOR KASTEN2 KASTEN3 KASTEN4 ZEILE8 KASTEN5 KASTEN6 KASTEN7 KASTEN8 ZEILE9 KASTEN9 KASTEN10 KASTEN11 KASTEN12
 SSCOMMAND1
 SSCOMMAND2
 SSCOMMAND3
 SSCOMMAND4
 SSCOMMAND6
 SSCOMMAND7
 SSCOMMAND8
 SSCOMMAND9 I
 HSCOMMAND1
 SSCOMMAND5 ZEILE10 ZEILE11 ZEILE12 UPDATEANZEIGEN
 AUTOCENTER ALWAYSONTOP+  %    	$     U  REGISTER III LADEN1 T  
  * T       T F T  T  T 2 T  T	 
  T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
 C 
 Z T 
 C  
 Z T! 
 C" 
 Z T# 
 C$ 
 Z
 T%   %  

 T%    %  

 T%    %  

 T%    %  
9
 T%  A  %%  ; T 
 * Sie benutzen bereits die neuestes Updates. &
 H"   y %%  K T 
 : Ein Update steht auf dem Server Ihrer Dienststelle bereit: uY T 
 H Mglicherweise steht auf dem Server der Dienststelle ein Update bereit.     " %%  5 T 
 $ Ein Update steht im Internet bereit: E T 
 4 Mglicherweise steht im Internet ein Update bereit.      U&  REGISTER	 MYTABLETT WINDOWSTATE ZEILE1 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE VISIBLE KASTEN1 CAPTION MSG1 KASTEN2 MSG2 KASTEN3 MSG3 KASTEN4 MSG4 KASTEN5 MSG5 KASTEN6 MSG7 KASTEN7 MSG9 KASTEN8 MSG11 KASTEN9 MSG6 KASTEN10 MSG8 KASTEN11 MSG10 KASTEN12 MSG12 M T      (^ T CC  Z& mytablett.zeile&xxx..FontSize = 14
' mytablett.zeile&xxx..Left = m * 0.1
( mytablett.zeile&xxx..Width = m * 0.8
' mytablett.zeile&xxx..Visible = True
$ mytablett.zeile&xxx..Height = 40
( mytablett.zeile&xxx..FontBold = True
8 mytablett.zeile&xxx..backcolor = mytablett.backcolor
 
   T  
 T  2) T   Zustzliche Angaben zur 6 T  % Berechnung des Versorgungsfreibetrags 
  	 
   	 >	< C. Beginn der Versorgung im Jahr 2005 oder vorher  % 0 C" Beginn der Versorgung im Jahr 2006   % 0 C" Beginn der Versorgung im Jahr 2007   % 0 C" Beginn der Versorgung im Jahr 2008   % a0 C" Beginn der Versorgung im Jahr 2009   % 0 C" Beginn der Versorgung im Jahr 2010   % 0 C" Beginn der Versorgung im Jahr 2011   % 30 C" Beginn der Versorgung im Jahr 2012   % y0 C" Beginn der Versorgung im Jahr 2013   % 0 C" Beginn der Versorgung im Jahr 2014   % 0 C" Beginn der Versorgung im Jahr 2015   % K0 C" Beginn der Versorgung im Jahr 2016   % 0 C" Beginn der Versorgung im Jahr 2017   % 0 C" Beginn der Versorgung im Jahr 2018   % 0 C" Beginn der Versorgung im Jahr 2019   % c0 C" Beginn der Versorgung im Jahr 2020   % 0 C" Beginn der Versorgung im Jahr 2021   % 0 C" Beginn der Versorgung im Jahr 2022   % 50 C" Beginn der Versorgung im Jahr 2023   % {0 C" Beginn der Versorgung im Jahr 2024   % 0 C" Beginn der Versorgung im Jahr 2025   % 0 C" Beginn der Versorgung im Jahr 2026   % M0 C" Beginn der Versorgung im Jahr 2027    %C
   
    T
    T 
   %   T   T d T   ? T   ? T 
 T   T   T     	 T  T 
 T   ? T   ? T   T , T   T       d
 T  T   RQ? T   333333? T 
  d T   T     
 T  T   ? T   ? T   T , T    T      ! | T  T   RQ? T   333333? T 
 " d T   T    # ! T  Hilfe T  T   ? T   ffffff? T ( T 
 T    T     $  T 	 Schlieen T  T         ? T   ? T ( T 
 T    T     %  T @ T 
 T   ? T   333333?v T& i Ab 2005 wird die Besteuerung der Renten und Pensionen schrittweise angeglichen, d.h. es wird durchgngig  T& & : zu einem System der nachgelagerten Besteuerung bergangen.C
 C
 $ Nachgelagerte Besteuerung bedeutet,  T& &  dass Alterseinknfte (gesetzliche Renten, Pensionen, Betriebsrenten, private Leibrenten, Riesterprodukte) erst dann versteuert ` T& & O werden, wenn diese an den Steuerpflichtigen ausgezahlt werden - also im Alter.  T& & w Um eine Doppelbesteuerung zu vermeiden mssen im Gegenzug die Beitrge zur Altersversorgung in der Erwerbsttigenphase q T& & C bis zu einem jhrlichen Hchstbetrag von der Steuer befreit werden.C
 C
 
 Der bergang  T& & q erfolgt schrittweise und zwar bei der nachgelagerten Besteueung bis zum Jahr 2058 und bei der Steuerfreistellung  T& & | der Altersvorsorgeaufwendungen bis zum Jahr 2025. Dementsprechend wird auch der Versorgungs- freibetrag in Abhngigkeit vom b T& & Q Beginn und der ursprnglichen Hhe der Versorgung schrittweise bis 2058 abgebaut. T &  T   T  T    T    U'  M	 MYTABLETT WIDTH I XXX ZEILE1 TOP ZEILE2 CAPTION COMBO0 CLEAR ADDITEM WELCHESJAHR WNW VERSORGUNGSBEGINN JAHR4	 LISTINDEX LEFT FONTSIZE ENABLED TRUE VISIBLE MOUSEPOINTER ZEILE3 HEIGHT FONTBOLD FALSE	 BACKCOLOR
 TDBNUMBER1 VALUE VERSORGUNGSBEZUG ZEILE4 WORDWRAP
 TDBNUMBER2
 VERSORGUNGSSZ
 SSCOMMAND3
 SSCOMMAND1 EDIT1 MSGX  U    U    U  
; 7          	 
   
 ; 7              ; 7      ! " # $ % & ' ( ) ; 7* + , - . / 0 1 2 3 4 5 6 7 ; 78 9 : ; < = > ? @ A B C D E ; 7F G H I J K L M N O P Q R S ; 7T U V W X Y Z [ \ ] ^ _ ` a ; 7b c d e f g h i j k l m n o ; 7p q r s t u v w x y z { | } ; 7~              A J  (          	 
   
 A J  (              A J  (      ! " # $ % & ' ( ) A J  (* + , - . / 0 1 2 3 4 5 6 7 A J  (8 9 : ; < = > ? @ A B C D E A J  (F G H I J K L M N O P Q R S A J  (T U V W X Y Z [ \ ] ^ _ ` a A J  (b c d e f g h i j k l m n o A J  (p q r s t u v w x y z { | } A J  (~               F  #)  (
 T  zCC  Z	 #    (	 T  spCC  Z T    &hsvarxx = szdrucken.&hsfxx
  	 # T  z15   (	
 T  spCC  Z T     &hsvarxx = szdrucken.&hsfxx	
  %C   T C W h dummy  C F   [ F  #) % a  ?	 szdrucken(!9 ! ?	 szdrucken(!"9      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T    T C W h dummy  C F   [ F  #)$ ?	 szdrucken9.  <  <  ; <          	 
   
 ; <              ; <      ! " # $ % & ' ( ) ; <* + , - . / 0 1 2 3 4 5 6 7 ; <8 9 : ; < = > ? @ A B C D E ; <F G H I J K L M N O P Q R S ; <T U V W X Y Z [ \ ] ^ _ ` a ; <b c d e f g h i j k l m n o ; <p q r s t u v w x y z { | } ; <~               F  Q
 F  U  SP0Z1 SP0Z2 SP0Z3 SP0Z4 SP0Z5 SP0Z6 SP0Z7 SP0Z8 SP0Z9 SP0Z10 SP0Z11 SP0Z12 SP0Z15 SP0Z13 SP1Z1 SP1Z2 SP1Z3 SP1Z4 SP1Z5 SP1Z6 SP1Z7 SP1Z8 SP1Z9 SP1Z10 SP1Z11 SP1Z12 SP1Z15 SP1Z13 SP2Z1 SP2Z2 SP2Z3 SP2Z4 SP2Z5 SP2Z6 SP2Z7 SP2Z8 SP2Z9 SP2Z10 SP2Z11 SP2Z12 SP2Z15 SP2Z13 SP3Z1 SP3Z2 SP3Z3 SP3Z4 SP3Z5 SP3Z6 SP3Z7 SP3Z8 SP3Z9 SP3Z10 SP3Z11 SP3Z12 SP3Z15 SP3Z13 SP4Z1 SP4Z2 SP4Z3 SP4Z4 SP4Z5 SP4Z6 SP4Z7 SP4Z8 SP4Z9 SP4Z10 SP4Z11 SP4Z12 SP4Z15 SP4Z13 SP5Z1 SP5Z2 SP5Z3 SP5Z4 SP5Z5 SP5Z6 SP5Z7 SP5Z8 SP5Z9 SP5Z10 SP5Z11 SP5Z12 SP5Z15 SP5Z13 SP6Z1 SP6Z2 SP6Z3 SP6Z4 SP6Z5 SP6Z6 SP6Z7 SP6Z8 SP6Z9 SP6Z10 SP6Z11 SP6Z12 SP6Z15 SP6Z13 SP7Z1 SP7Z2 SP7Z3 SP7Z4 SP7Z5 SP7Z6 SP7Z7 SP7Z8 SP7Z9 SP7Z10 SP7Z11 SP7Z12 SP7Z15 SP7Z13 SP8Z1 SP8Z2 SP8Z3 SP8Z4 SP8Z5 SP8Z6 SP8Z7 SP8Z8 SP8Z9 SP8Z10 SP8Z11 SP8Z12 SP8Z15 SP8Z13 SP9Z1 SP9Z2 SP9Z3 SP9Z4 SP9Z5 SP9Z6 SP9Z7 SP9Z8 SP9Z9 SP9Z10 SP9Z11 SP9Z12 SP9Z15 SP9Z13	 SZDRUCKEN HSCXX HSEXX HSDXX HSFXX HSVARXX DIREKTZUMDRUCKERQ TRUE	 OLDSELECT DUMMY FELD
 HSSERIENDRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER  U    U    U    U    U    U  z
 H
        		L " T  \user00CC   Z   
   c	 ! T  \user0CC   Z   d  T  \user100  T   $ If .Not. directory("&tfile")  Mkdir "&tfile"
  C #200 * T   \gehaltC \ sr( myopen("&hsxdat" , 200 ,"userdaten")
 C   	 userdaten  T C	 
  C #200  C #18 : C   \gehaltC \ dim dimen 
 T   T
 C  Z   T            T          T    U  USERNR MUSER TFILE EIGDAT MYCLOSE HSXDAT	 EIGDATFIX XJAHR4 MYGET	 USERDATEN PFAD MYOPEN WELCHESJAHR WELCHESJAHRC	 DIMENSEIN MYFORM1 VISIBLE FALSE	 DATEIOPEN VOREINSTEIN FARBENZUWEISEN NAMENINCOMBO INDEXI JAHR1	 JAHRAKTIV TITELLEISTE	 NEUERNAME TRUE  U   %  N
     T   < T    
   T	  
 	  T   T     T
    
 H G C  	#,/lpqvrNXYZT T     T	  
 	  T    T     T
       a T    T	    T    C  o2 T     	 F T	  	   	 x T    T     T
        T    < T	  	 < T      T    
 HA    T  -             y
 Hu C 1   C 
u %C 
b   q       	          
      #     &   *  Stufenlaufzeit   /%   16   =G   >X   ?i   @z   A   D   H   M     N   R   S   T	   U   [R
    T  
    !    \c   _t   `   a
 T" # 
 T$ %  & " $    b
 T$ % 
 T' (  & $ '    c )    en
 H/j% C   C 		j  Stufenlaufzeit    l *    o + $ C  pqrXYZ2
  ' ,  T-   T- 	  T-    F T- 
 . T- . 
 H?   px( T- /  Zulagenassistent Nr. 1B   q( T- /  Zulagenassistent Nr. 2B   r( T- /  Zulagenassistent Nr. 3B   X$( T- /  Zulagenassistent Nr. 1A   Y^( T- /  Zulagenassistent Nr. 2A   Z( T- /  Zulagenassistent Nr. 3A  T- 0  T1   T2   T3   T4   T5   T6   T1 	   T2 	    T3 	    T4 	   T5 	    T6 	    T1     T2     T3     T4     T5     T6     T1 
  T2 
  T3 
  T4 
  T5 
  T6 
  T1 . 
 T2 . 
 T3 . 
 T4 . 
 T5 . 
 T6 . 
 T1 7   T2 7   T3 7   T4 7   T5 7   T6 7   T1 0  T2 0  T3 0  T4 0  T5 0  T6 0  T1 8  T2 8  T3 8  T4 8  T5 8  T6 8 
 H8 9  ^ T1 : C;  9  T1 : C
;  9 , .Kasten0.BackColor = hex2rgb("&HEEFF44")
  T2 : C
<  T3 : C
<  T4 : C
<  T5 : C
<  T6 : C
<  T- : C
< 
 HP
% C   C 	v T1 / 	 Allgemein T2 /  Behrden T3 /  Ministerien T4 / 
 LBesO. Teil 1 T5 / 
 LBesO. Teil 2 T6 / 	 %-Zulagen
 H'r C    T1 /   48 - 56 LBesG T2 / 
  57 LBesG$ T3 /   44 LBesG,MinZul.  T4 /  LBesO A Lehrer T5 /  LBesO sonst.! T6 /  LBesO R, kw-Zul. CC $ T1 /  Anl.IX Nr. 1 bis 5a" T2 /  Anl.IX Nr. 5a - 7$ T3 /  Anl.IX Nr. 7 bis 8b$ T4 /  Anl.IX Nr. 8b - 13c& T5 /  Anl.IX Nr. 13c bis 30# T6 /  Anl.IX Amtszulagen C b! %=  C 	( T2 /  Lehrer (Hess.Bes.Ordn.)% T4 /  Hess.Bes.Ordn. Vorb.! T5 /  Hess.Bes.Ordn. A' T6 /  Hess.Bes.Ordn, B,C,W,R  %= ^( T2 /  Lehrer (Hess.Bes.Ordn.)% T4 /  Hess.Bes.Ordn. Vorb.! T5 /  Hess.Bes.Ordn. A' T6 /  Hess.Bes.Ordn. B,C,W,R  C r! %=  C 	" T1 /  Vorbem. Bes.Ordn. T2 /  Amtszulagen" T3 /  Ministerialzulage  %= n" T1 /  Vorbem. Bes.Ordn. T2 /  Amtszulagen" T3 /  Ministerialzulage  r C  C 		 C  C 	 C  C  C 	 T1 / 	 Allgemein T2 /  Behrden T3 /  Ministerien T4 / 
 TV zu  33 T5 /  Schichtzul.! T6 /  Verg.Gr.-Zulagen C 
 %= 
] T1 / 	 Allgemein T2 /  Behrden T3 /  Ministerien T4 / 
 TV zu  33 T5 /  Schichtzul.! T6 /  Verg.Gr.-Zulagen & T1 /  Entgeltgruppenzulagen T2 / 
 Pflegezulagen T3 /  Ministerien T4 / 
 TV zu  33 T5 /  nicht belegt T6 /  nicht belegt  CC  %= 
 T1 / 	 Allgemein T2 /  Behrden T3 /  Ministerien T4 / 
 TV zu  33 T5 /  Schichtzul.! T6 /  Verg.Gr.-Zulagen  T1 / 	 Allgemein! T2 /  Funktionszulagen T3 /  Ministerien T4 / 
 TV zu  33$ T5 /  Pflegedienstzulagen& T6 /  Entgeltgruppenzulagen   >  ( T? CC>  Z .Kasten&xxx..Visible = True
 $ %C 

 C E T6     %= 
 Hh CC  T6     $ %C  C 
	! %=  C 	4 > (0 T? CC>  Z  .Kasten&xxx..Visible = False
   %=  > ( T? CC>  Z  .Kasten&xxx..Visible = False
    T @  4 T @  E0 %=  C 
	 C 	 TA /  Hilfe TA  
 TA 	  TA   TA 
 ( TA . 
 TA    TB / 	 Schlieen TB  
 TB 	  TB   TB 
 ( TB . 
 TB    # TA /  Hilfe% TA   @   @ 
  TA 	  TA  s TA 
  TA . 
 TA    TB / 	 Schlieen% TB   @   @ 
  TB 	  TB  s TB 
  TB . 
 TB      C    uJ D    v% %C 

 C 
	 T   E   F  T 

  G !  B    {    H        I    /   @   Q    %J   T K /  West  T K /  O s t  L           M         N    )   W  versorgungsfreibetrag   i   ,{   
  KVPfl    %C  T    E    +   
 Q    # R  C  A S   %  >   Ha  T T   T    T T    %  U
  A U   UV  REGISTER
 TAFELLOESCHEN
 TABLETTBREITE MYFORM1 WIDTH SSPANEL1 VISIBLE FALSE	 MYTABLETT LEFT MEN24 TOP MEN20 HEIGHT TIP WEI7 SSPANEL2 TRUE LOHNSTRAUFBAUEN LOHNSTRINSTRING ZI ANLAGEAUFBAUEN PENSIONENAUFBAUEN NAMENSUCHEN BEMERKUNGEN_CODE HIDE	 MTEILZEIT STUFENLAUFZEIT KRANKENKASSENAUFBAUEN EBV PRINTER ORIENTATION
 SSCOMMAND1 CLICK	 TEMPJAHR1 JAHR1	 TEMPJAHR2 JAHR2 WECHSEL_VON_NACH	 TEMPJAHR3 JAHR3 WWWLADEN	 OZUSCHLAG LEISTUNGSZULAGE ZULAGENBACKCOLOR KASTEN6 FONTSIZE CAPTION	 ALIGNMENT KASTEN0 KASTEN1 KASTEN2 KASTEN3 KASTEN4 KASTEN5 FONTBOLD MOUSEPOINTER MODUS	 BACKCOLOR QBCOLOR	 FARBENRGB WELCHESJAHR I XXX OPTIONGROUP1
 SSCOMMAND3
 SSCOMMAND2 ZULAGENAUFBAUEN JAHRESSONDERZAHLUNG
 SONDERZAHLUNG WEIHNACHTEN MON10 LSTAUSGLEICH
 MBRUCHZEIT	 ALTESLAND
 SSCOMMAND4
 DYNAMISIERUNG	 USER_PROG STZEKAPPEN VERSORGUNGSFREIBETRAG KVPFL
 SPEICHERNU TRESOR UPDATEAUFBAUEN ALWAYSONTOP SETFOCUS  U  n^
 T    V T   Import aus GEHALT C
   am CC$*  um C^  Uhr:;C
 C
 
 Hp ]  	1 T     ;    ;   C
 D T     ;    ;;    ;;;; 	  C
 r T     ; 
   ;;    ;    ; 
   ;;    ;;;;   C
  T     ;    ;;    ;    ;    ;;    ;    ;;;    ;   C
  T     ;    ;;    ;    ;    ;;    ;    ;    ;;    ;     ; !  C
  T     ; "   ;; #   ; $   ; %   ;; &   ; '   ; (   ;; )   ; *   ; +  C
  T     ; ,   ;;; -   ;;; .   ; /   ; 0   ;; 1   ; 2   ; 3  C
  F4  #) 5 (
	 #5  T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
  	 # T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
  5 (^
 #5  T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
   5 ( <
 #5  T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
  	 #$ T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
  5 "($
 #5  T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
  	 #* T    4 6  ;4 7  ;4 8  ;4 9  ;4 :  ;4 ;  ;4 <  ;4 =  ;4 >  ;4 ?  ;4 @  ;4 A  ;4 B  ;4 C C
   
E T    ( Monatsgehlter - Gesamtzusammenstellung C
 C
  T    w Nr.;Name;Beamten-;Angest.-;Arbeiter-;Versorg.;Soz.Vers.;Soz.Vers.;ATV;Steuern;Summe;Sachbezge;Sonstiges;Gesamt-;davon;C
  T    ف ;;bezge;verg.;lhne;Beamte;Angestellte;Arbeiter;Uml.+Zusch.;des AG.;Personalkosten;ATZ-Aufst.;(u.a.Umlagen);summe;Leist.entgelt;C
 C
 C
  FD  E (	 #E ) T    CD 7  ;CD 8  ; F (
 TG  spCCF  Z8 Msg = Msg + Alltrim(STR(kstgrid.&hsfeld,12,2)) + ";"
 I T     =summe(cCCE 	 Z :JCCE 	 Z );# T    CCD B Z ;_ T    CCD C Z ; =summe(kCCE 	 Z :MCCE 	 Z );. T    CCD H Z ; ;C
   T    C
 	 #
) T    CD 7  ;CD 8  ; %I J K $ T     =summe(c10:c21);=summe(D10:D21);=summe(E10:E21);=summe(F10:F21);=summe(G10:G21);=summe(H10:H21);=summe(I10:I21);=summe(J10:J21);=summe(K10:K21);=summe(L10:L21);=summe(M10:M21);=summe(N10:N21);=summe(O10:O21);C
  X T    A =c21;=d21;=e21;=f21;=g21;=h21;=i21;=j21;=k21;=l21;=m21;=n21;=O21;C
   T    C
  T     davonC
  T    C
  FL  #) E (CN	 #E . T      CL 7  ;CL 8  ; F (
 TG  spCCF  Z9 Msg = Msg + Alltrim(STR(kstgrid2.&hsfeld,12,2)) + ";"
 I T     =summe(cCCE  Z :JCCE  Z );# T    CCL B Z ;_ T    CCL C Z ; =summe(kCCE  Z :MCCE  Z );) T    CCL H Z ;C
  F TM N O  \CP Q K CP R K 
  .txt  .csv6# STRTOFILE(msg,"&hsexpfilename")
 FL  #) FD  #)  1- T    CCCT S   frC
 ~ %CCCT U  - CCCT U  + CCCT U  * CCCT U  /- T     & &CCT U C
  !# T    CCT U C
  # T    CCT V C
 # T    CCT W C
 # T    CCT X C
 # T    CCT Y C
 # T    CCT Z C
 # T    CC/T [ C
 5 T    CCCT \  : ] C
 C
 
 H9b CCT G T     B R U T T O! ;Vollzeit;Teilzeit;A T Z;LSZ WTA;C
  CCT  K T     B R U T T O% ;Vollzeit;Teilzeit;Teilmonat;LSZ WTB;C
  CT bP T     B R U T T O* ;Vollzeit;VollPens.;Angep.Pension;LSZ WTB;C
  G T     ; 100 %;C^ Z ;C_ Z ;C
 C
  T    CCT `  ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d e  d f  d g     d h  d i  d j   ;C
  T    CC	T k  ;CC	a d
 Z ;CCb d
Z ;CCc d
Z ;d l  d m  d n     d o  d p  d q   ;C
  T    CC
T r  ;CC
a d
 Z ;CC	b d
Z ;CC	c 

Z ;d s  d t  d u     d v  d w  d x   ;C
  T    CCT y  ;CCa d
 Z ;CC
b d
Z ;CC
c d
Z ;d z  d {  d |     d }  d ~  d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CC
T   ;CC
a d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CC
b d
Z ;CC
c d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
  T    CCT   ;CCa d
 Z ;CCb d
Z ;CCc d
Z ;d   d   d      d   d   d    ;C
 C
 X T    CCT S 1 ;=summe(B17:B30);=summe(c17:c30);=summe(d17:d30);C
  %CT  G T      - CCT    ;;;CCa 
 ZC
  'F T      + CCT    ;;;CCa d
 ZC
  V T      CCT    ;;;CCa d
 Z ; SC( C
 V T      CC0T    ;;;CC0a d
 Z ; SC) C
 T T    !  + steuerpflichtig aus ATV-Umlage  ;;;CC d
ZC
 ] T    $  + soz.vers.pflichtig aus ATV-Umlage  ;;;CC d
ZC
 C
 # T    CCT  C
 # T    CCT  C
 # T    CCT  C
 # T    CCT  C
 # T    CCT  C
 # T    CC T  C
  T    C
 " T     A B Z  G EC
 e T    CC"T   ;; aus CCa d
 Z  =  ;CC"a d
 ZC
 e T    CC$T   ;; aus CCa d
 Z  =  ;CC$a d
 ZC
 e T    CC%T   ;; aus CCa d
 Z  =  ;CC%a d
 ZC
 e T    CC&T   ;; aus CCa d
 Z  =  ;CC&a d
 ZC
 e T    CC'T   ;; aus CC>a d
 Z  =  ;CC'a d
 ZC
 e T    CC(T   ;; aus CCBa d
 Z  =  ;CC(a d
 ZC
 e T    CC)T   ;; aus CCBa d
 Z  =  ;CC)a d
 ZC
 
 H_$%& C*T 

 C*T $c T    
 ATV-Umlage ;; aus CCa d
 Z  =  ;CC*a d
 ZC
  CC*T H%E T     ATV-Umlage lt.Eing. ;;;CC*a d
 ZC
  C*T %] T    C  ;; aus CCa d
 Z  =  ;CC*a d
 ZC
  e T    CCT   ;; aus CCa d
 Z  =  ;CCa d
 ZC
 > T    CC#T   ;;;CC#a d
 ZC
 U T      CC+T   ;;;CC+a d
 Z ; SC* C
 U T      CC,T   ;;;CC,a d
 Z ; SC+ C
 [ T      CC-T   ;;;CC-a d
 Z ; SC, C
 C
 I T    CC.T   ;;; =d31 + summe(d45:d59)C
 C
 ) T     ARBEITGEBERAUFWANDC
 : T     Bruttogehalt;;;CCa d
 ZC
 N T    #  + AG-Anteil Krankenversicherung;;;CC d
 ZC
 M T    "  + AG-Anteil Pflegeversicherung;;;CC d
 ZC
 M T    "  + AG-Anteil Rentenversicherung;;;CC d
 ZC
 L T    !  + AG-Anteil Arbeitslosenvers.;;;CC d
 ZC
 Z T      + AG-Anteil ATV-Umlage CC 
Z  %;;;CC a d
 ZC
 _ T      + AG-Anteil ATV-Beitrag CC  
Z  %;;;CCa d
 ZC
 b T       + AG-Anteil ATV-Sanierungsgeld CC 
Z  %;;;CC d
 ZC
 y T      + bernommene Steuern;;;CC!a d
 ZCC C C C Ca d
 ZC
 1 T       + Aufstockung Altersteilzeit;;;$ %CT  CT h+ %C#T d+ T    C#a dC
   + T     0C
  Q T    &  + Umlage U1 fr Entgeltfortzahlung;;;CC d
 ZC
 K T       + Umlage U2 fr Mutterschaft;;;CC d
 ZC
 + T C#     T CC G % ,4 T CC  d{Gz? ,( T CC  d M T    !  + Umlage U3 fr Insolvenzgeld;;;CCC 
ZC
 ) T      CCT   ;;; %C( -9 T    CCa d
 Z ; SC( C
  -* T     0 ; SC( C
  ) T      CC0T   ;;; %C) c.9 T    CC0a d
 Z ; SC) C
  .* T     0 ; SC) C
  ) T      CC+T   ;;; %C* /9 T    CC+a d
 Z ; SC* C
  E/* T     0 ; SC* C
  ) T      CC,T   ;;; %C+ /9 T    CC,a d
 Z ; SC+ C
  /* T     0 ; SC+ C
  ) T      CC-T   ;;; %C, s09 T    CC-a d
 Z ; SC, C
  00 T     0 ; SC, C
 C
   T    C
 @ T    / ARBEITGEBERAUFWAND INSGESAMT;;;= summe(d62:d80)  '?  T      C
 C
  F  E  (*?
 H^1? E   E 	5 T  ;
 H14 E  $2} T      Grundgehalt  +   +    =   -   -   +   +/-   =   +  E 2 T      Ortszuschlag  sonstige  berstd.  Brutto- 
 Lohnsteuer  Sozial- 
 ATZ Aufst.  Auszahlungen  N E T T O - 
 Sachbezge E 3 T      Allg-ST.Zul.  laufende 	 Einmalige  gehalt 
 Solidaritts- 	 versich.- 
 Kindergeld 
 Einbehalte  G E H A L T       E e4 T      Verm.wirks.L  Zulagen 	 Zahlungen   zuschlag  und ATV-                   E 4 T     
 Leist.Zul.          
 Ki.-Steuer  beitrge                 T    C
  E  E 	7
 #E  TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C/J T    	 ;=summe(BCCE 
 Z :DCCE 
 Z ); TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C	/J T    	 ;=summe(ECCE 
 Z :ICCE 
 Z ); TG C/9 msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";" + Chr(13)
 E 7 T    C
  E R9
 #E  TG C/* msg = msg + ALLTRIM(ansicht2.&hsfeld) 
# %    akkumulieren8 T    ١ ;=summe(b11:b22);=summe(C11:C22);=summe(D11:D22);=summe(E11:E22);=summe(F11:F22);=summe(G11:G22);=summe(H11:H22);=summe(I11:I22);=summe(J11:J22);=summe(k11:k22);C
  N9J T    3 ;=b22;=c22;=d22;=e22;=f22;=g22;=h22;=i22;=j22;=k22;C
   E  E 	9 T    C
 C
  E  E 	:
 #E  F  (C.: TG CF /- IF LEN(ALLTRIM(ansicht2.&hsfeld)) = 1H:< msg = msg + " " + ALLTRIM(ansicht2.&hsfeld) + " " +  ";"
 :/ msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
   T    C
  E  E %	z=
 #E  TG C/S Msg = Msg + Alltrim(ansicht2.&hsfeld) + ";=E" + ALLTRIM(STR(i - 15,10,0)) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C/{ msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";=summe(B" + ALLTRIM(STR(i + 8,10,0)) + ":E" + ALLTRIM(STR(i + 8,10,0)) + ");"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C// msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";"
 TG C	/{ msg = msg + alltrim(ansicht2.&hsfeld) + ";=summe(F" + ALLTRIM(STR(i + 8,10,0)) + ":I" + ALLTRIM(STR(i + 8,10,0)) + ");"
 TG C/9 msg = msg + ALLTRIM(ansicht2.&hsfeld) + ";" + Chr(13)
 E '= T    C
  E (?
 #E  TG C/) msg = msg + ALLTRIM(ansicht2.&hsfeld)
# %    akkumulieren> T    ّ ;=summe(b34:b45);=summe(C34:C45);=summe(D34:D45);=summe(E34:E45);=summe(F34:F45);=summe(G34:G45);=summe(H34:H45);=summe(I34:I45);=summe(J34:J45);C
  ?E T    . ;=b45;=c45;=d45;=e45;=f45;=g45;=h45;=i45;=j45;C
      (}J F  T      ? %  Mittelteil A?
     E (
? TG CE /
         T      C
 C
  F  (g@ T CCF  ZW Msg = Msg + " " + Alltrim(myform3.grdansicht.column&hscolnr..header1.caption) + ";"
  T    C
  E (A	 #E  F  (@ TG CF /4 Msg = Msg + " " + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenrAO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  A0 T     =MCCE 
 Z ;C
   %E A T    C
   
     E (
B TG CE /
      F  (
B T CCF  ZQ Msg = Msg + Alltrim(myform3.grdansicht.column&hscolnr..header1.caption) + ";"
  T    C
  E (*iJ	 #E 
 HBeJ E  E 	D F  (^C TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenCO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  D0 T     =MCCE 
 Z ;C
   E E T    C   ;=summe(B17:B29);=summe(C17:C29);=summe(D17:D29);=summe(E17:E29);=summe(F17:F29);=summe(G17:G29);=summe(H17:H29);=summe(I17:I29);=summe(J17:J29);=summe(K17:K29);=summe(L17:L29);=summe(M17:M29);=summe(N17:N29)C
  E ?F F  (zE TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenEO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  (F0 T     =MCCE 
 Z ;C
   T    C
  E  E 	G F  (F TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulieren*GO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  bG0 T     =MCCE 
 Z ;C
   %E G T    C
   E  E (	H F  (H TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenyHO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  H0 T     =MCCE 
 Z ;C
   E )eJ TG C/ T    C
 	 #*r T e ;=B31+summe(B42:B58);=C31+summe(C42:C58);=D31+summe(D42:D58);=E31+summe(E42:E58);=F31+summe(F42:F58); T x =G31+summe(G42:G58);=H31+summe(H42:H58);=I31+summe(I42:I58);=J31+summe(J42:J58);=K31+summe(K42:K58);=L31+summe(L42:L58);4 T ' =M31+summe(M42:M58);=N31+summe(N42:N58)I Msg = Msg + Alltrim(ansicht.&hsfeld) + msgx1 + msgx2 + msg3 + chr(13)
   T     )@X T      K %  Mittelteil AK
     E (
K TG CE /
         T      C
 C
  F  (K T CCF  ZW Msg = Msg + " " + Alltrim(myform3.grdansicht.column&hscolnr..header1.caption) + ";"
  T    C
  E (4M	 #E  F  (ZL TG CF /4 Msg = Msg + " " + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenLO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  M0 T     =MCCE 
 Z ;C
   %E 0M T    C
   
     E (
|M TG CE /
      F  (
N T CCF  ZQ Msg = Msg + Alltrim(myform3.grdansicht.column&hscolnr..header1.caption) + ";"
  T    C
  E (.,X	 #E 
 HGN(X E  XN E  E 
	O F  (N TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenCOO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  {O0 T     =MCCE 
 Z ;C
   E O T    C
  E P T    C   ;=summe(B17:B29);=summe(C17:C29);=summe(D17:D29);=summe(E17:E29);=summe(F17:F29);=summe(G17:G29);=summe(H17:H29);=summe(I17:I29);=summe(J17:J29);=summe(K17:K29);=summe(L17:L29);=summe(M17:M29);=summe(N17:N29)C
  E Q F  (
Q TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenQO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  Q0 T     =MCCE 
 Z ;C
   T    C
  E  E 	'S F  (MR TG CF /4 Msg = Msg + " " + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenRO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  R0 T     =MCCE 
 Z ;C
   %E #S T    C
   E  E %	vT F  (S TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenTO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  JT0 T     =MCCE 
 Z ;C
   %E %rT T    C
   E &U T    C   ;=summe(B43:B55);=summe(C43:C55);=summe(D43:D55);=summe(E43:E55);=summe(F43:F55);=summe(G43:G55);=summe(H43:H55);=summe(I43:I55);=summe(J43:J55);=summe(K43:K55);=summe(L43:L55);=summe(M43:M55);=summe(N43:N55)C
  T    C
  E ( E ,	V F  (U TG CF /. Msg = Msg + Alltrim(ansicht.&hsfeld) + ";"
 # %    akkumulierenuVO T     =summe(BCCE 
 Z :MCCE 
 Z );C
  V0 T     =MCCE 
 Z ;C
   E .(X T    C
 q T d ;=B31+summe(B57:B63);=C31+summe(C57:C63);=D31+summe(D57:D63);=E31+summe(E57:E63);=F31+summe(F57:F63) T x ;=G31+summe(G57:G63);=H31+summe(H57:H63);=I31+summe(I57:I63);=J31+summe(J57:J63);=K31+summe(K57:K63);=L31+summe(L57:L63)5 T ( ;=M31+summe(M57:M63);=N31+summe(N57:N63)( T    C     C
    T     -QX  bX  ,] F 0 T    C
 C       C
 7 T    & G E H A L T S V E R G L E I C H   aus + T    C     C
 C
 W T     ;C       ;C     ;	 DifferenzC
 E T     ;C     ;C    C
 K T     ;C     ;C    C
 C
  F (Z	 #F   (wZ T spCC Z/ Msg = Msg + Alltrim(vergliste.&hsaxx) + ";"
  T    C
   F (
,[	 #F  ([ T spCC Z/ Msg = Msg + Alltrim(vergliste.&hsaxx) + ";"
  T    C
   T    C
  F (\	 #F   ([ T spCC Z/ Msg = Msg + Alltrim(vergliste.&hsaxx) + ";"
 H T     =BCCF 
 Z -CCCF 
 Z ;C
   T    C
  F (\	 #F   (\ T spCC Z/ Msg = Msg + Alltrim(vergliste.&hsaxx) + ";"
 H T     =BCCF 
 Z -CCCF 
 Z ;C
   T    C
  F (]	 #F  (] T spCC Z/ Msg = Msg + Alltrim(vergliste.&hsaxx) + ";"
 H T     =BCCF (
 Z -CCCF (
 Z ;C
    T    C
 H TCN O  \CP Q K CP R K 
  .txt  .csv6 C  C   C U	 MSG WELCHESJAHRC REGISTER MYATZA PERSONALFALL CAPTION ATZTITEL
 ENTGELTGRUPPE LABEL3 LABEL4 STEUERKLASSE LABEL7 LABEL14 LABEL12 LABEL16 LABEL17
 KIRCHENSTEUER LABEL8 LABEL15 LABEL13 LABEL18 LABEL19 LABEL9 LABEL20	 KVBEITRAG LABEL22 LABEL23 LABEL21 LABEL33 LABEL6 LABEL39 LABEL42 LABEL45 LABEL48 AGATV LABEL26 LABEL27 LABEL2 LABEL5 LABEL37 LABEL40 LABEL43 LABEL46 LABEL10 ANATV LABEL31 LABEL35 LABEL38 LABEL41 LABEL44 LABEL47 LABEL50 ATZAGRID HSA SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 KSTGRID I J HSFELD SP14 MYFORM2 AKKUMOPT VALUE KSTGRID2
 HSEXPFILENAME EIGDAT MUSER MYEXPORT TEXT1 DATEIENDUNG ZT20 ZI ZT0 ZT3 ZT2 ZT4 ZT5 ZT6 ZT46 ZT1 BDATEXT TEILZEITFAKTOR BRUCHTEILFAKTOR ZT7 WERT TEILZAHL	 BRUCHZAHL MYFORM1 LST7 SOZ7 ZVK7 WEI7 TEI7 BRU7 ZT8 LST8 SOZ8 ZVK8 WEI8 TEI8 BRU8 ZT9 LST9 SOZ9 ZVK9 WEI9 TEI9 BRU9 ZT10 LST10 SOZ10 ZVK10 WEI10 TEI10 BRU10 ZT11 LST11 SOZ11 ZVK11 WEI11 TEI11 BRU11 ZT12 LST12 SOZ12 ZVK12 WEI12 TEI12 BRU12 ZT13 LST13 SOZ13 ZVK13 WEI13 TEI13 BRU13 ZT14 LST14 SOZ14 ZVK14 WEI14 TEI14 BRU14 ZT15 LST15 SOZ15 ZVK15 WEI15 TEI15 BRU15 ZT16 LST16 SOZ16 ZVK16 WEI16 TEI16 BRU16 ZT17 LST17 SOZ17 ZVK17 WEI17 TEI17 BRU17 ZT18 LST18 SOZ18 ZVK18 WEI18 TEI18 BRU18 ZT19 LST19 SOZ19 ZVK19 WEI19 TEI19 BRU19 ZT23 ZT24 SCHLSSE ZT47 VBLZ ZT25 ZT27 ZT28 ZT29 ZT30 ZT31 ZT33 ZT35 ZT36 ZT37 ZT38 ZT39 ZT40 ZT41 ZT26 ZT34 ZT42 ZT43 ZT44 ZT45 EFFZAHL ZVKUMLAGEAG
 ZVKKAPITAL ZVKKAPITALAN	 SANIERUNG SICHT WVW EFFZ
 INSOLVENZGELD HS_REST FIX	 SCHLSSEL MYFORM3 ANSICHT2 TR
 SSCOMMAND4 ANSICHT VISIBLE FALSE
 SSCOMMAND7 MITTELTEILB CLICK MITTELTEILZEILENB HSCOLNR MITTELTEILA MITTELTEILZEILENA TEXTE MSGX1 MSGX2 MSGX3 TRUE	 VERGLISTE MYDIFFERENZA GRDVERGLISTE COLUMN1 HEADER1 COLUMN6	 MYTABLETT COMBO0 LIST	 LISTINDEX COMBO3 COMBO1 COMBO4 COMBO2 COMBO5 III HSAXX HANDLE  U    B
     T C    (  T CC  Z6 .optiongroup1.opt&xxx..BackColor = farbenrgb(1+13)
   U 	 MYTABLETT	 BACKCOLOR	 FARBENRGB I XXX  U   tresor      iscrypt     Updateaufbauen     updatesuchenG'     Updateanzeigen'     Versorgungsfreibetrag,     sonderzahlunganzeigen#@     sonderzahlungabspeichern*@     szberechnung1@    	 szdrucken8@     szergebnisanzeigenlP     szfllensP    
 szteilzeitzP    
 szvollzeitP     szzeileP     tarifeumstellenP     useropenP    
 administrator#T     Laden*T     tarifbersichtv     Exportierenv     berweisungsliste     zulagenbackcolor&    
 sonderzahlung    s q q q q q g2           q A       A     A  A      A1 A  A         A  A        A         A  A        A         A  A       q A       ! A        A      	  A A 3  r q q A   B!q1 A 3  q        A       A   !   q A   A A    1    A   1   q A   1   q A   1   q A      ! A   1   ! A   1   ! A   1   ! A   1   ! A      q A   1   ! A   1   ! A   1   ! A   1   ! A       A   1   ! A   1   ! A   1   ! A   1   ! A   1  Q A   1  Q A   1  Q A   1  Q A   1   A   1   A   1   A   1   A BP     5 A      q A   1   A   1  Q A   1  Q A @
q B    3 q A 1           A  !  B "  B "  B !  B   ! A !Q QA A A B 4 rqbqqAB  aA  !A "A "A "A "A "A "A "A "A "A "A "A "A "A !A "A !A !A !A !A !A !A A " A      A      A  Q  A     A  Q  A 1    A q    A   a	!!    A 5 1 1 1 r Q q qA A  qA # q Q A r Q   A     2         A  q Q A r Q Br q A r A  4 @1 1 p1 1 4 1  !QA A!A !P Qr s q r r r q t 3 1 2B x B4 A A qAAAAQQARAQA C 2  q q  Qs QQq  q A A r q  q bq         q  QbA q q B q  """A   QQA RQQQQQ R QAA!AAa1QQqA !QqA R!!A !!!A A "R! aA ! AaA A rqA AA " A A BrqA A !qqA A A 1Ab aQQA A r q Q q  q 1 A A q q q A q q q !## "Q1A r "#q "q uq A  A  A 6  1  a A!

	s Q q aA  ar aA r aA  ar aA  aRA
q q qA 1A 2 rq A 21t Q a qA 1A b1r Q r Q  1A 111111Q qQA qQq aA aaA1111111"QQQQQQQ a1QaA RQQ!BQA  A !A A  A  A  A  A  A 1q q    Q	A 2          1  2 A  2 A A 1  2       1  1
 QA A A q  r2 A A A tqA 1r q2BA 1 A 1A A  r2 A rA 1r  q2A 1 A q2A 2 A 1q2A 2 A 1A q2A 2 A  1 !QAA A  q1 A A A tqA 1r q2AA 1 A 1A A  q1 A rA 1t  q2A 2 A 1q2A 2 A 1q2AA 1 A 1A q2A 1 A 1A 1r2A 2 A 1QQA A P!q qqQr qA 1A q qA 1A 2r qA A 1r qA A 1r qA A B 2  8 
1 B  !qqaA A 3 1                    w  v          A        h  H       +H  QL      xL  VT  D  X  T  k    	  l  s  n    s  1}    
  X}  r  (          o  ?  J  (  q  k  ]  -  s        u      $	  w    g  ^	  x     b	  z    	     a! A
    ! td 
  5  d Rt   7  wt # V
    $ p8     8 a9     9 a   !   %         B  1    [mTz
    U  	
   	
 H h    
 H8   C  g 
 T 
 T     T    
 T     
 T 
 T   |
 H x   
 T 
 T   ; T   Y
 T   x T    O % 5
 H1    T   
 T   
 T   1
 T 
 T   K T    
 Hm   
 T   
 T   
 T   
 T  % 
 T     )
 T   
 HG   e
 T   
 T   
 T   
 T    
 T   {
 Hw   
 T   ;
 T   Y
 T   w
 T    	
 T   
3
 H/   
 T   
 T   
 T   /
 T    Q
 T   
 Ho   
 T   
 T   
 T   
 T    
	
 T   
 H'   E
 T   c
 T   
 T   
 T    
 T   h
 T 
 Hd   

 T 	  (
 T 	  F
 T 	  d
 T 	   % 	 T   T  T  T  T  T  i T   T  T  T  T  T    (	 T CC  Z
 H	 C   ( .Entgelt&xxx..Caption = i + ".  xxx"
 C    /	2 .Entgelt&xxx..Caption = i + ".  Eingangsstufe"
 C   u	0 .Entgelt&xxx..Caption = i + ".  nach 1 Jahr"
 C    	Y .Entgelt&xxx..Caption = i + ".  nach " + ALLTRIM(STR(dauer(i),3,0)) + " weit. Jahren"
    U	  TVDUMSTIEG
 VGRUPPEIND QUALI ENDSTUF	 ENTGELTGR	 DIENSTIND DAUER I XXX T    T   T   T   T   T  
   T   
 H A   +
 H ' C   
 T 
 T   	 T   '
 T    V
 T 
 T   ` %	 
 H C   T   
 T 
 T   
 T   \
 H
X C  - T   X
 T 
 T      %	 
 H C   T   
 T    T    P
 HL C  .
 T   L
 T    n
 T   
 H C  
 T   
 T    
 T   P
 HL C  .
 T   L
 T    	n
 T   

 H C  
 T   
 T    
 T   P
 HL C  .
 T   L
 T    
n
 T   
 T   
 T   A
 T  T  
 T 	 %	 
 T
   T    =
 T
   T       (
 Hi~ C    ! T
     .  xxx C     + T
     .  Eingangsstufe C    !) T
     .  nach 1 Jahr C     ~G T
     .  nach CCC     Z
  weit. Jahren    U  DAUER TVDUMSTIEG ZWINGEND VISIBLE FALSE
 VGRUPPEIND QUALI ENDSTUF	 ENTGELTGR	 DIENSTIND ZWANG1 TRUE I ENTGELT CAPTION  B U  
    T   T  T  T  T  T 
 H r   )
 T 
 T  T   T  T  T  T  T   G
 T   
 He   
 T   
 T 
 T  
 T   T	 
  
 T  
 T    
 T 
  f
 H&b   D
 T   b
 T    
 T 
 H   
 T 
  
 T   
 T 
   Z
 T 
 HV   8
 T 	  V
 T 
  C 
 H|   
 T  T 	
 T 	  
 T 	  
 T 
   	
 T   
6
 T   T
 T  C 

 T 
 T   
 H   
 T   
 T   
 T    
 T   r % 
Y
 T 
 T  n
 T    T   % 
 T   
 (
 H C 
  ! T 
  
  .  xxx C 
   G+ T 
  
  .  Eingangsstufe C 
  ) T 
  
  .  nach 1 Jahr C 
   G T 
  
  .  nach CCC 
   Z
  weit. Jahren    U  TVDUMSTIEG DAUER
 VGRUPPEIND	 ENTGELTGR ENDSTUF QUALI ZWANG1 TRUE	 TVDSTART ZWINGEND VISIBLE FALSE
 GRUPPEPLUS I ENTGELT CAPTION2
   +
 H    8 
 T   V 
 T   t 
 T    
 H      
 T 
   
 T 
   [
 H W   
 T   9
 T 
 T   W
 T 
   y
 T   
 H   
 T   
 T    5
 H1   
 T   1
 T    S
 T   	q
 T   

 T   
 T   
 T    

 T   
 H	    T  T  T   T  T  T    T  T  T  T   T  T    T  T  T   T  T 
 T    T  T  T   T  T 
 T    T  T  T   T  T 
 T    T  T  T   T  T 
 T    T  T  T   T  T 
 T    T  T  T   T  T 
 T    T   T  T  T  T  T  %   T    %     	 T     T   T  T  T  T  T   %    	 T    %    	
 T    
V	 T   T  T  T  T  T   	 T   T  T  T  T  T  
 T   	 ('
 H
# C 	  F
! T
 	  	  .  xxx C 	   
+ T
 	  	  .  Eingangsstufe C 	  
) T
 	  	  .  nach 1 Jahr C 	   #G T
 	  	  .  nach CCC 	   Z
  weit. Jahren    U  TVDUMSTIEG
 VGRUPPEIND	 ENTGELTGR QUALI ENDSTUF DAUER COMBO1	 LISTINDEX
 GRUPPEPLUS I ENTGELT CAPTION'

    
 T   T  T  T  T  T 
 H    )
 T 
 T  T   T  T  T  T  T   
 T 
 HT   r
 T   
 T   
 T    ;
 T 
 H7   
 T   
 T   7
 T    a
 T 
 Hf]   
 T 
  !
 T 
 T  T   T   T  T  T  T   ?
 T   ]
 T    
 T 
 H   
 T 
  
 T 
  
 T 
   s
 T 
 Ho   3
 T   Q
 T   o
 T    
 T 
 H   
 T 
  
 T   
 T 
   
 T 
 H'   E
 T 	  c
 T 
  
 T 	   
 H   
 T 
 T 	 T  T 	  
 T 
 T 	  0  
 T 
 T 

 T  
 T  
 T 	   C 	
y
 Hu   
 T  T  T 	
 T 	  $
 T 
 T 	  u
 T  T  T 	
 T 	   
 H   
 T   
 T   
 T    q
 Hm   1
 T   O
 T   m
 T    

 H   
 T   
 T   
 T    i	
 H	e	   )	
 T   G	
 T   e	
 T   C 	
 T 
 H		   	
 T   	
 T   	
 T    r

 H
n
   2

 T   P

 T   n

 T    

 H

  

 T   

 T 
 T    

 T    
 T 
 H&   D
 T   b
 T   
 T    T
   %
 
 T
   %
 
 T
    (

 H
 C   ;! T  
   .  xxx C    |+ T  
   .  Eingangsstufe C   ) T  
   .  nach 1 Jahr C    
G T  
   .  nach CCC    Z
  weit. Jahren    U  TVDUMSTIEG DAUER
 VGRUPPEIND	 ENTGELTGR ENDSTUF QUALI ZWANG1 TRUE	 TVDSTART FALSE
 GRUPPEPLUS I ENTGELT CAPTION	
   	 T   T  T  T  T  T 
 T   T   
 H Z   G
 T 
 T  T   T  T  T  T  T   
 T 
 T	 
 
 T	  
 T   
 T 
 H   
 T   
 T   
 T    
 T 
 H@   ^
 T 
  |
 T 
  
 T 
   '
 T 
 H#   
 T 
  
 T 
  #
 T 
   
 T 
 HR   p
 T   
 T    
 T 
 H   
 T 
  
 T   
 T 
   
 T 
 HF   d
 T 	  
 T 
   
 H   
 T  T  T 	
 T 	
 T	 
 
 T	    T
 T 
 T 	
 T	 
 
 T	    
 T 

 T 
 T	 
 
 T	    C 	

 H   *
 T  T  T 	
 T 	
 T	 
 
 T	    o
 T 
 T 	
 T	 
 
 T	    
 T  T  T 	
 T 	   
 T    
 T   

 T   <
 T  C k
 T 
 T   
 H   
 T   
 T   
 T    
 T   Z % 
A
 T 
 T  V
 T    T   % 
 T   
 (	
 H	 C 
  ! T 
  
  .  xxx C 
   /	+ T 
  
  .  Eingangsstufe C 
  n	) T 
  
  .  nach 1 Jahr C 
   	G T 
  
  .  nach CCC 
   Z
  weit. Jahren    U  TVDUMSTIEG DAUER ZWANG1 FALSE ZWINGEND VISIBLE
 VGRUPPEIND	 ENTGELTGR ENDSTUF	 TVDSTART TRUE QUALI
 GRUPPEPLUS I ENTGELT CAPTION
    T   T  T  T  T  T 
 T 
 H 3    
 T    
 T    
 T   
 T 
  /
 T   M
 T 
  k
 T 	   T   T  T 	
 T 
 T 	  
 T 
 T   	
 T   
~
 H6z C  X
 T 
 C z
 T    
 H   
 T   
 T    X
 HT   
 T   6
 T   T
 T    

 Hv   
 T 
  
 T   
 T 
   P
 HL   
 T 	  .
 T 
  L
 T 	   
 T 	
 H{ C   T   T  T 	
 T    
 T 
 T   3
 T 
 T   T   % g
 T    (
 H C   ! T  	   .  xxx C    + T  	   .  Eingangsstufe C   G) T  	   .  nach 1 Jahr C    G T  	   .  nach CCC    Z
  weit. Jahren    U
  TVDUMSTIEG DAUER ENDSTUF
 VGRUPPEIND	 ENTGELTGR QUALI
 GRUPPEPLUS I ENTGELT CAPTION
   # T   Ohne Aufstieg nach/ T   Mit ausstehendem Aufstieg nach" T   Nach Aufstieg aus6 T  % In den ersten 6 Mon. d. Berufsausb., T    T    T     T    T	    T	     T    T  
  T    T  
  T    5 T  $ wenn danach  IVb mit Aufstieg n. IVa T 
 	 Verg.Gr.  T	 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T   
 H-B   O T  
   q T  
    T   Ia T	   Ia T   IIa   T   Ib* T	   Ib nach 11 oder 15 Jahren/ T   mit ausstehendem Aufstieg nach( T   Ib nach 5 oder 6 Jahren" T   Nach Aufstieg aus T   III T    T      T  
   ( T   IIa T	   IIa T   IVa  u T   III T	   III T   IVb   T   IVa T	   IVa T  
 Va oder Vb  W T   IVb T	   IVb T  
  T  
  T    T 
    T    C 	
 T   IVb T	   IVb T   Vc   T   Vb T	   Vb T   VIb   T  
   
_ T   Vc T	   Vc T   VII   T   VIb T	   VIb T   VIII   T   VII T	   VII T   IXb  G T   VII T	   VII T   IXb  i T  
     T  
  T	   IXa T   X8 T  ' Mit ausstehendem Aufstieg nach Verg.Gr. T   VIII T    T     B T  
   T   
    T	  	 
 	   T   
    T   
     U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE QUALGRUPPE0 QUALGRUPPE1 FALSE QUALGRUPPE2 QUALGRUPPE3 TAG BATFRAME
 VGRUPPEIND
   # T   Ohne Aufstieg nach/ T   Mit ausstehendem Aufstieg nach" T   Nach Aufstieg aus6 T  % In den ersten 6 Mon. d. Berufsausb., T    T    T     T    T	    T	     T    T  
  T    T  
  T    5 T  $ wenn danach  IVb mit Aufstieg n. IVa T 
 	 Verg.Gr.  T	 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T   
 H-j     	[ T  
   	" T   nach Aufstieg aus T   IIa T  
  T  
  T	  
  T  
   
 T   Ib T	   Ib T   III" T   nach Aufstieg aus T   IIb T    T      T   IIa T	   IIa T  
  T  
   1 T   IIa T	   IIa T   IVa  
~ T   III T	   III T   IVb   T   IVa T	   IVa T   Vb  n T   IVb T	   IVb T   Vc" T   nach Aufstieg aus T   VIb T    T      T  
 ohne Aufstieg T  
  T	   Vb T   VIb  j T  
 ohne Aufstieg T  
  T	   Vc/ T   mit ausstehendem Aufstieg nach T   Vb  T   
    T	  	 
 	   T   
    T   
     U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE QUALGRUPPE0 QUALGRUPPE1 FALSE QUALGRUPPE2 QUALGRUPPE3 TAG BATFRAME
 VGRUPPEIND
   # T   Ohne Aufstieg nach" T   Mit Aufstieg nach T    T    T     T    T    T     T    T	  
  T    T  
  T     T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T   
 Hy     	 T  
   	 T  
   
 T  
   F T   IIa T   IIa T  
  T  
    T   IIa T   IIa T  
  T  
   
 T   III T   III T  
  T  
   W T   IVa T   IVa T  
  T  
    T   IVb T   IVb T  
  T  
  T	  
  T  
    T  
    T  
   T   
    T   
    T   
    T   
     U  TVDUMSTIEG QUAL0 CAPTION QUAL1 VISIBLE TRUE QUALGRUPPE0 QUALGRUPPE1 QUAL2 QUAL3 FALSE QUALGRUPPE2 QUALGRUPPE3 TAG BATFRAME
 VGRUPPEINDq T   st  %  4  T  017 N  T  0   T C R T     
 T   T     
 T   T      T  0  T C R T      T  0  T C R T      T  0  T C R T     
 T 	  T      U
  MSG BERLEITUNGSINDEX
 EGRUPPEIND MSG1 ZUSCHLAGIND	 DIENSTIND
 VGRUPPEIND AUFSTIEGIND STUFEIND	 GEBIETINDb T   st  %  4  T  017 o " T C 0C  \R T       T C  \ T     
 T   T      T C  \ T      T C  
\ T      T  0  T C R T     
 T   T      U	  MSG BERLEITUNGSINDEX
 EGRUPPEIND MSG1 WNW STRUKTUR	 DIENSTIND STUFEIND	 GEBIETIND
   " T   Mit Aufstieg nach" T   Mit Aufstieg nach T    T    T	    T
    T    T    T    T    T
    T   Lohngruppe  T	   Lohngruppe  T
   Lohngruppe  T   Lohngruppe 
 Hg    T	   1a T
   2 und 2a, T
   Mit einfachsten Ttigkeiten T
      T      %  T	   2a T
   2a und 3 T   2a, 3 und 3a T
    T     T	   2a T
  	 2a und 3a   ] % @# T   Ohne Aufstieg nach T	   3 und 3a T
   3 und 3a Y T       T	   3a T
   4 und 4a   T      T	   4a T
   5 und 5a   T     X T	   5a T
   6 und 6a  	z T     
 T	   6a T
   7 und 7a   T      T	   7a T
   8 und 8a  
8 T     Z T     | T      T     T       T	  	  	   T
  
  
   T        U  TVDUMSTIEG QUAL1 CAPTION QUAL2 BATFRAME VISIBLE TRUE QUALGRUPPE0 FALSE QUALGRUPPE1 QUALGRUPPE2 QUALGRUPPE3 QUAL0 QUAL3 TAG
 VGRUPPEIND	 DIENSTIND
   # T   Ohne Aufstieg nach/ T   Mit ausstehendem Aufstieg nach" T   Nach Aufstieg aus6 T  % In den ersten 6 Mon. d. Berufsausb., T    T    T     T    T	    T	     T    T  
  T    T  
  T    5 T  $ wenn danach  IVb mit Aufstieg n. IVa T 
 	 Verg.Gr.  T	 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T   
 H-   O T  
   q T  
    T   Ia T	   Ia T   IIa   T   Ib T	   Ib T   III  ) T  
   v T   IIa T	   IIa T   IVa   T   III T	   III T   IVb   T   IVa T	   IVa T  
 Va oder Vb   T   IVb T	   IVb T  
  T  
  T    T 
    T    C 	
 T   IVb T	   IVb T   Vc  @ T   Vb T	   Vb T   VIb  b T  
   
 T   Vc T	   Vc T   VII   T   VIb T	   VIb T   VIII  H T   VII T	   VII T   IXb   T   VII T	   VII T   IXb   T  
   n T  
  T	   IXa T   X8 T  ' Mit ausstehendem Aufstieg nach Verg.Gr. T   VIII T    T      T  
   T   
    T	  	 
 	   T   
    T   
     U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE QUALGRUPPE0 QUALGRUPPE1 FALSE QUALGRUPPE2 QUALGRUPPE3 TAG BATFRAME
 VGRUPPEIND
   	# T   Ohne Aufstieg nach" T   Mit Aufstieg nach" T   Mit Aufstieg nach5 T  $ In den ersten 6. Mon. d.Berufsausb. T    T    T    T	     T   1 T
    wenn danach IVb .Aufstieg n. IVa T
    T    T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T	 
    T
 
   
 H    T      T     / T   Ia T   Ia  f T   Ib T   Ib   T      T   IIa T   IIa   T   III T   III  3 T   IVa T   IVa   T   IVb T   IVb T
    T
    T     	 T   IVb T   IVb  
 T   IVb T   IVb  H T   Vb T   Vb  j T     
 T   Vc T   Vc   T   VIb T   VIb   T   VII T   VII  L T   VII T   VII  n T      T  C   T    T   VIII T    T	   IXa   T  C   T    T   IXb9 T  ( Beschftigte mit einfachsten Ttigkeiten T    T
     T   
    T   
    T	  	 
 	   T
  
 
 
    U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE FALSE QUALGRUPPE2 QUALGRUPPE3 BATFRAME QUALGRUPPE0 TAG QUALGRUPPE1
 VGRUPPEIND
   # T   Ohne Aufstieg nach" T   Mit Aufstieg nach" T   Mit Aufstieg nach5 T  $ In den ersten 6. Mon. d.Berufsausb. T    T    T    T	     T   1 T
    wenn danach IVb .Aufstieg n. IVa T
    T    T 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T	 
    T
 
   
 H_    T      T     / T   Ia T   Ia  47 T  & Beschftigte mit Ttigkeiten, die eine T 
   4 T  # abgeschl.wiss.Hochsch.bildg vorauss2 T  ! Beschftigte, die nach BAT-Verg.O T 
   5 T  $ unmittelbar in IIa eingruppiert sind  V T      T   IIa T   IIa   T   III T   III   T   IVa T   IVa  m T   IVb T   IVb T
    T
    T     	 T   IVb T   IVb  
 T   IVb T   IVb   T   Vb T   Vb  8 T     
o T   Vc T   Vc   T   VIb T   VIb   T   VII T   VII   T   VII T   VII  < T      T  C   T    T   VIII T    T	   IXa  _ T  C   T    T   IXb9 T  ( Beschftigte mit einfachsten Ttigkeiten T    T
     T   
    T   
    T	  	 
 	   T
  
 
 
    U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE FALSE QUALGRUPPE2 QUALGRUPPE3 BATFRAME QUALGRUPPE0 TAG QUALGRUPPE1
 VGRUPPEIND  U  
   # T   Ohne Aufstieg nach" T   Mit Aufstieg nach" T   Mit Aufstieg nach6 T  % In den ersten 6 Mon. d. Berufsausb., T    T    T    T    T	    3 T
  " wenn danach IVb m. Aufstieg n. IVa T  	 Verg.Gr.  T
  	 Verg.Gr.  T	  	 Verg.Gr.  T    T
    T	    T
    T   
 H    T     & T     ] T   Ia T
   Ia   T   Ib T
   Ib   T   IIa T
   IIa   T   III T
   III  ? T   IVa T
   IVa C  T   IVb T
   IVb T	   Vc T
    T     	 T   Vb T
   Vb  
 T   Vc T
   Vc  X T   VIb T
   VIb   T   VII T
   VII  
 T   VII T
   VII   T     t T  C   T    T
   VIII T    T	   IXa T	      T  C   T    T
   IXb8 T  ' Beschftigte m. einfachsten Ttigkeiten T
    T     T       T
  
  
   T	  	  	   T
  
  
    U  TVDUMSTIEG QUAL0 CAPTION QUAL1 QUAL2 QUAL3 VISIBLE TRUE FALSE QUALGRUPPE2 QUALGRUPPE3 QUALGRUPPE0 TAG QUALGRUPPE1 BATFRAME
 VGRUPPEIND~  T      T  0  T C R T      T  0  T C R T      U  MSG ZUSCHLAGIND MSG1
 VGRUPPEIND AUFSTIEGIND  U  	
   	# T   Ohne Aufstieg nach T    T   / T   Mit ausstehendem Aufstieg nach/ T   Mit ausstehendem Aufstieg nach" T   Nach Aufstieg aus T	  
  T  
  T  
  T  
  T  
  T 
  Lohngruppe  T 
  Lohngruppe  T 
  Lohngruppe  T 
  Lohngruppe 
 Hv	    T   1a T   2 und 2a T    T     % T	      % t/ T   mit ausstehendem Aufstieg nach T  
  T   2a, 3 und 3a T  
 / T   mit ausstehendem Aufstieg nach T   2a und 3/ T   mit ausstehendem Aufstieg nach T   2a# T   nach Aufstieg aus  T   1  T    T     T   3 und 3a T   2a T   1    %  T   direkt T  
 8 T  ' nach Aufstieg aus 2 mit ausst. Aufst.n. T   3 und 3a. T   mit ausstehendem Aufstieg aus T   3 und 3a# T   nach Aufstieg aus  T   2  T	       % k/ T   mit ausstehendem Aufstieg nach T  
  T   4 und 4a T  
 / T   mit ausstehendem Aufstieg nach T   3a: T  ) n.Aufstieg aus 2 u. 2a mit aust. Aufst.n. T   3a# T   nach Aufstieg aus  T   2 und 2a  T   3a T   4 und 4a T   2    T	     & T   4a T   5 und 5a T   3  H T	      T   5a T   6 und 6a T   4  	 T	     
 T   6a T   7 und 7a T   5  * T	     y T   7a T   8 und 8a T   6  
 T	     2	 T   8a T    T    % 	 T	    	 T	  
   T   7  T	 T	     v	 T	     T   
    T   
    T   
    T   
     U  TVDUMSTIEG QUAL0 CAPTION VISIBLE FALSE QUALGRUPPE0 QUAL1 QUAL2 QUAL3 BATFRAME TRUE QUALGRUPPE2 QUALGRUPPE3 TAG QUALGRUPPE1
 VGRUPPEIND	 DIENSTINDx
   q# T   Ohne Aufstieg nach T   / T   Mit ausstehendem Aufstieg nach T   " T   Nach Aufstieg aus T   6 T  % In den ersten 6 Mon. d. Berufsausb., T    T	 
 	 Verg.Gr.  T 
 	 Verg.Gr.  T 
 	 Verg.Gr. 3 T
  " wenn danach IVb m. Aufstieg n. IVa T	    T    T    T
    T   
 H     T     " T     l T	   Ia T   Ia T   II   T	   Ib T   Ib T   III   T	   II T   II T   IVa  O T	   III T   III T   IVb   T	   IVa T   IVa T   Vb  E T	   IVb T   IVb- T   Vc, Lehrkrfte Aufst.aus VIb T    T
    T
 
    T      T	   IVb T   IVb T   Vc T
    T
 
    T     	 T	   Vb T   Vb T   VIb  
n T	   Vc' T   Vc, Lehrkrfte nach Vb T   VII   T	   VIb T   VIb T   VIII  	 T	   VII T   VII T   IXa  
V T	   VII T   VII T   IXa  x T      T	  
 IXa oder VIII T  
 IXa oder VIII T   X   T     T	  	 
 	   T   
    T   
    T
  
 
 
    U  TVDUMSTIEG QUAL0 CAPTION VISIBLE TRUE QUAL1 QUAL2 QUAL3 FALSE QUALGRUPPE0 TAG QUALGRUPPE1 QUALGRUPPE2 QUALGRUPPE3 BATFRAME
 VGRUPPEIND %   G  T   ausstehendem  T   ausstehenden  ]  T    
  
 T   " T   Mit Aufstieg nach T    T	  
 Ohne Aufstieg T	  
  T     T  
  T     T  
  T
     T    T  
  T  
  T
  
 
 H	    T   Kr. II  # T   Kr. III und Kr. IV   T   Kr. IV  ! T   Kr. V und Kr. Va T	   " T	   mit Aufstieg nach T   Kr. V T     " T   Kr. Va und Kr. VI T	   " T	   mit Aufstieg nach T   Kr. VI T    T   " T   mit Aufstieg nach T   Kr. Va T      T   Kr. VI   T   Kr. VII T	      T   Kr. VIII T	     E T   Kr. IX  	l T   Kr. X  
 T   Kr. XI   T   Kr. XII   T   Kr. XIII  
	 T  
    U  BERLEITUNGSINDEX MSG MSG1 TVDUMSTIEG BATFRAME VISIBLE TRUE QUAL0 CAPTION QUAL1 FALSE QUAL2 QUAL3 QUALGRUPPE3 QUALGRUPPE0 QUALGRUPPE1 QUALGRUPPE2
 VGRUPPEIND

 T   
     % 
 H?    ] 
 T    { 
 T  C 	 
 T  C 
 
 T    
 T  C  
 T  C 
!
 T  C C
 T  C 
h
 T 	 C 
 T   
 T 
  T     T    
 T 
 Hr      $ 	   < 
   T    l   C 	r 
  %  
 T   % 
 T   % 
 T   %  

 T   T    %  
@
 T    % 	  	n
 T    
 T   % 
  ( T CC  Z
 H C   ( .Entgelt&xxx..Caption = i + ".  xxx"
 C    W2 .Entgelt&xxx..Caption = i + ".  Eingangsstufe"
 C   0 .Entgelt&xxx..Caption = i + ".  nach 1 Jahr"
 C    Y .Entgelt&xxx..Caption = i + ".  nach " + ALLTRIM(STR(dauer(i),4,0)) + " weit. Jahren"
     (u T CC  Z/ .Entg&xxx..Top = .Entgelt&xxx..Height * 0.4
  T     % 
 H  " T   Entgeltgruppe 12a
 T    (" T   Entgeltgruppe 11b
 T   h" T   Entgeltgruppe 11a
 T   " T   Entgeltgruppe 10a
 T   ! T   Entgeltgruppe 9d
 T   &! T   Entgeltgruppe 9c
 T   e! T   Entgeltgruppe 9b
 T   ! T   Entgeltgruppe 8a
 T   	! T   Entgeltgruppe 8a
 T   
"! T   Entgeltgruppe 7a
 T 	  a! T   Entgeltgruppe 4a
 T 
  ! T   Entgeltgruppe 3a
 T   

 H	  " T   Entgeltgruppe 2   !	# T   Entgeltgruppe 15   U	# T   Entgeltgruppe 13    	# T   Entgeltgruppe   
 H	
     		 T    
 % 	
 T  

 T       T   C % C)C    employee     ( T CC  ZK .Entg&xxx..Caption = myFormat(grundbetrag(1+i - 1) / 100, "###,##0.00")
) T  C    T  T 	C  %   	( T   4a) nach 4 weit. Jahren( T   4b) nach 3 weit. Jahren' T   5. nach 3 weit. Jahren T      T  !   T"     T#     T$     T%  !  T  !  T  ! 
 Hy   T     T       T     + T 
C C	   U& 
 GRUPPEPLUS TVDUMSTIEG BATPOSITIONHOLEN	 DIENSTIND
 VGRUPPEIND I
 MYPOSITION ENDSTUF LEHRERSORTIEREN BUNDSORTIERENNEU LANDSORTIERENNEU GEMEINDENSORTIERENNEU KRSORTIEREN ARBEITERSORTIERENNEU	 ENTGELTGR
 EGRUPPEIND XXX DAUER MELDUNG CAPTION
 ENTGELTGRUPPE TVDPOSITIONHOLEN ZI MYGET	 GETVALUES SICHT GRUNDBETRAG ENTGELT4 ENTGELT5 ENTGELT6 ENTGELT1 VISIBLE FALSE TRUE	 ENDSTUFE4	 ENDSTUFE5	 ENDSTUFE6 ENDSTUFEENDSTUF	
 T  
  	
 H' d    
 HE     c 
 T    
 T  
 T     T    
 T     
 T 
 T    
 H   6
 T   a
 T 
 T     T    T    K
 HG    T   
 T   
 T   G
 T 
 T     
 Hi   
 T   
 T   
 T   
 T  % 
 T      %
 T   
 HC   a
 T   
 T   
 T   
 T    
 T   w
 Hs   
 T   7
 T   U
 T   s
 T    	
 T   
/
 H+   
 T   
 T   

 T   +
 T    M
 T   
 Hk   
 T   
 T   
 T   
 T    

 T   
 H#   A
 T   _
 T   }
 T   
 T    
 T   d
 T  
 H`   
 T 	  $
 T 	  B
 T 	  `
 T 	   % 	 T   T  T  T  T  T  e T   T  T  T  T  T    (	 T CC  Z
 H	 C   ( .Entgelt&xxx..Caption = i + ".  xxx"
 C    +	2 .Entgelt&xxx..Caption = i + ".  Eingangsstufe"
 C   q	0 .Entgelt&xxx..Caption = i + ".  nach 1 Jahr"
 C    	G .Entgelt&xxx..Caption = i + ".  nach " + dauer(i) + " weit. Jahren"
    U	  ENDSTUF TVDUMSTIEG
 VGRUPPEIND QUALI	 ENTGELTGR	 DIENSTIND DAUER I XXX

   
 T   T  T  T  T  T 
 H 
   )
 T 
 T  T   T  T  T  T  T   
 HG   e
 T   
 T   
 T    .
 H*   
 T   
 T 
 T   *
 T    
 HL   j
 T 
  
 T   
 T    &
 H"   
 T   
 T   "
 T    
 HD   b
 T 
  
 T   
 T 
   
 H   
 T 	  
 T 
  
 T 	   T
 H<?   z T 	
 T 
 T 	  
 T 	  
 T 
 T 	 T 	  ?
 T 

 T  
 T   T	 
  
 T   T 	  T 
    
 Hru   
 T  T 	
 T 	  
 T 	  
 T 
 T 	 T 	  u
 T 

 T  
 T   T	 
  
 T   T 	  T 
    	
 H   
 T   
 T   
 T    

 H$~   B
 T   `
 T   ~
 T    
 H   
 T   
 T   
 T    z
 Hv   :
 T   X
 T   v
 T    

 H   
 T   
 T   
 T    r	
 H	n	   2	
 T   P	
 T   n	
 T    	
 H		   	
 T   	
 T   	
 T 
 T    

 T 
 H&

   D

 T   b

 T   

 T    T
   %
 

 T
    U  TVDUMSTIEG DAUER
 VGRUPPEIND	 ENTGELTGR ENDSTUF QUALI ZWANG1 TRUE	 TVDSTART ZWINGEND VISIBLE FALSE ENTG5
 GRUPPEPLUS
    T   T  T  T  T  T 
 H 
   )
 T 
 T  T   T  T  T  T  T   
 T 
 HT   r
 T   
 T   
 T    ;
 T 
 H7   
 T   
 T   7
 T    
 T 
 Hf   
 T 
  
 T   
 T    M
 T 
 HI   

 T 
  +
 T 
  I
 T 
   
 T 
 Hx   
 T   
 T   
 T    _
 T 
 H[   
 T 
  =
 T   [
 T 
   
 T 
 H   
 T 	  
 T 
  
 T 	   
 H   W
 T 
 T 	 T  T 	  
 T 
 T 	    
 T 
 T 

 T  
 T   T	 
  
 T    C 	

 H   m
 T  T  T 	
 T 	  
 T 
 T 	  
 T  T  T 	
 T 	   i
 He   )
 T   G
 T   e
 T    
 H   
 T   
 T   
 T    
a
 H]   !
 T   ?
 T   ]
 T    
 H   
 T   
 T   
 T   C j	
 T 
 H	f	   *	
 T   H	
 T   f	
 T    	
 H		   	
 T   	
 T   	
 T    o

 H
k
  "

 T   M

 T 
 T    k

 T    

 T 
 H

   

 T   

 T   

 T    T   % ,
 T   
 ( T CC
  Z
 Hk C 
  ( .Entgelt&xxx..Caption = i + ".  xxx"
 C 
   2 .Entgelt&xxx..Caption = i + ".  Eingangsstufe"
 C 
  80 .Entgelt&xxx..Caption = i + ".  nach 1 Jahr"
 C 
   Y .Entgelt&xxx..Caption = i + ".  nach " + ALLTRIM(STR(dauer(i),4,0)) + " weit. Jahren"
    U  TVDUMSTIEG DAUER
 VGRUPPEIND	 ENTGELTGR ENDSTUF QUALI ZWANG1 TRUE	 TVDSTART ZWINGEND VISIBLE FALSE
 GRUPPEPLUS I XXX
    T   T  T  T  T  T 
 H @
   )
 T 
 T  T   T  T  T  T  T   
 T 
 T  
 T   T 	  
 T 
 
 T   M
 T 
 T  
 T   T 	  
 T 
 
 HI   

 T   +
 T   I
 T    
 T 
 T  
 T   T 	  
 T 
 
 H
   
 T 
  
 T 
  

 T 
   
 T 
 T  
 T   T 	  
 T 
 
 Hq   
 T 
  
 T 
  
 T 
   r
 T 
 T  
 T   T 	  
 T 
 
 H2n   P
 T   n
 T    3
 T 
 T  
 T   T 	  
 T 
 
 H/   
 T 
  
 T   /
 T 
   
 T 
 T  
 T   T 	  
 T 
 
 H   
 T 	  
 T 
   G
 HC   }
 T  T  T 	
 T 	
 T  
 T   T 	  
 T 
   
 T 
 T 	
 T  
 T   T 	  
 T 
   C
 T 

 T 
 T  
 T   T 	  
 T 
   C 	

 Hi   
 T  T  T 	
 T 	
 T  
 T   T 	  
 T 
   U
 T 
 T 	
 T  
 T   T 	  
 T 
   
 T  T  T 	
 T 	   
 T   
 T   
	
 T   "	
 T  C Q	
 T 
 T   	
 Ho		   	
 T   	
 T   	
 T    	
 T   @
 % 
'

 T 
 T  <

 T    T   % t

 T   
 ( T CC
  Z
 H
 C 
  
( .Entgelt&xxx..Caption = i + ".  xxx"
 C 
   :2 .Entgelt&xxx..Caption = i + ".  Eingangsstufe"
 C 
  0 .Entgelt&xxx..Caption = i + ".  nach 1 Jahr"
 C 
   Y .Entgelt&xxx..Caption = i + ".  nach " + ALLTRIM(STR(dauer(i),4,0)) + " weit. Jahren"
    U  TVDUMSTIEG DAUER
 VGRUPPEIND	 ENTGELTGR ENDSTUF ZWANG1 TRUE	 TVDSTART ZWINGEND VISIBLE FALSE QUALI
 GRUPPEPLUS I XXX 
 H
     ,  T  C  O  T    n  T      T  C  	  T !  U 	 DIENSTIND
 MYPOSITION 
 H
     + 
 T  C  M 
 T    k 
 T     
 T     
 T  %  
 T     	 
 T   U 	 DIENSTIND
 MYPOSITION
 GRUPPEPLUS  B U    U   arbeitersortieren,      arbeitersortierenneuq
    	 einfrben     gemeindensortierenneu     KRsortieren    
 landsortieren%     landsortierenneua3     lehrersortieren=     qualgruppelandD     qualgruppelehrer=N     qualgruppelehrerneuU    
 satzbildenZ     satzzumspeichern\     qualgruppearbeiterneu^     qualgruppebundZe     qualgruppebundneun     qualgruppelandneuu     qualgruppeKRneu(~     qualgruppegemeindenneu/~     struktursatzh     stufenaufbauen     qualgruppearbeiter"     qualgruppegemeinden     qualgruppeKRИ     TVDBerechnung     arbeiterlandsortierenZ     gemeindensortieren    
 bundsortieren     bundsortierenneu
     BATPositionholen     tvdpositionholenc     strukturdruckenx     umstiegschlieen    4    Q    A         A       A   A       A A       A       A       A       A       A        A A 111111 111111A qq qa!aaA A A 3 111111   Q    A    Q    A   Q   A A  Q  A   A  Q  A   Q  A   Q  A   Q  A   Q  A     1    A C r qaaaqA A A 3 A 3  111111   111111        A     A      A     A Q  1   A    Q      A      A A " A r qaaaqA A A 3         A      A     A    A       A  AA1111AAA111AA111 AA111 AA111 AA111 AA111 AA111 111111QAA AA 111111AA  A 111111111111A  r qaaaqA A A 3  111111   111111     A      A      111111  A      A      A      A      A    11       A Q  11    11 A     A     A     A     A Q     A     A      A      A A ! A ! A q qaaaqA A A 3  111111    111111         A      A      A     A      A     A   11           A Q  11        11 A     Q      A      A A ! A r qaaaqA A A 3  111111         111      Q Q A    A     A     A     A   111 A     A ! A q qaaaqA A A 3  1!aQ 11A1!AAAAAAAAAAAQAA111A11AAAQAAAAAAA!QD A 3  1!aQ !A11A!AAAAAAAAAAA1AA1!A1A11A A 3  1! AAAAAAAAAAF B 3 1 !A !  "!"!"! 4 1 !B  "! 4  !! 11 1A 1 A 11114A A 3  1!aQ 11A11AAAAAAAAAAAQAA111A11AAAQAAAAAAA!QD A 3  1!!Q 1111AAAAAAAAAAAA1111AAAAAAQAAA A 3  1!!Q 11qA!QAAAAAAAAAAAA1111AAAAAAQAAA A 3 3  1!!a1 1111AAAAAAQAA11111AAAAAAQAAA A 3 !!"!4 3  1! 111! 1!A q1! A 111 1!A 1!1!1!1"1 A !A B 3  1!a1 11111A11AAAAAA1AAAA111A1qAAAQAAAAAA!D B 3   A  ! q1q!a!!q!qqqaqA A 3   q    Q Q  Q Q Q  Q  A  A   q q q q q Qq  A ! A  A  A  A  A B  "qq qa!aaA A A rqA  ! ! ! !         A   !!111A     A A A r _q qqA q A  A A 3          A         A       A       A A       A       A       A       A       A        A A 111111 111111A qq qa!aaqA A A 3  111111   111111    A      A     A     A     A     A  1     1    1A   1    1    1A     A     A     A     A     A     A      A      A A ! A A 3  111111   111111     A      A      A      A      A      A      A    11       A Q  11    11 A     A     A     A     A Q     A     A      A      A A ! A rq qa!aaA A A 3  111111   111111             A         A         A        A         A        A   11              A Q  11          11 A     Q      A      A A ! A qq qa!aaA A A 3   Q   Q A 3   Q     A  A 3 A  1 7                    @   8        e       (      2  *  '  $  6    C$  Z2    D  2  yE  ]  '  E  S  C    T  ]    <  ]  Gn  ^    pn  "z      Nz    5  9    Q    Q  z      f  L          R      |      w  ñ  п          f    %    i  )  >      1        2  A          N  \    s      J    &
 	  	  R
  	  	  E 6( 
  j
  \( : P  C  : cL ,    L M     M %O 
  -  MO n 
  0  n <o      %           b     'NV[
    U  ^
 H
 Wa C     C    C   " C    C   !	  T C    CC     T  fest C     T 	 Grd.Betr.+ C   
 C   	$ T C    CC   k+ T  ab C    . J. CC   "#!
 H C     T  1.-8. J. C    T 	 9.-12. J. C    T 	 ab 13. J.  C   $
 HF C    r T  1. Jahr C    T  2. Jahr C    T  3. Jahr C    T  4. Jahr + C    C   	2
 T    C   %W
 T     U  WVW ZNAM MSG1
 H
 1 C    
 H2  C    X  T  1 C   ~  T  2 C     T  3 C     T  4 C     T  5 e.D. C     T  5 m.D. C   F T  6 C   l T  7 C    T  8 C   	 T  9 m.D. C   
 T  10 m.D. C    T  9 g.D. C   @ T  10 g.D. C   
g T  11 C    T  12 C    T  13 g.D. C    T  13 h.D. C    T  13 kl.Z. C   : T  14 C   a T  15 C    T  16  T  A   C   
 Hh C     T  1 C    T  2 C   6 T  3 C   \ T  4 C    T  5 C    T  6 C    T  7 C    T  8 C    T  9 C   	A T  10 C   
h T  11  T  B   C   H
 HD C     T  C 1 C    T  C 2 C    T  C 3 C   D T  C 4  C   
 Hm C     T  W 1 C    T  W 2 C    T  W 3  C   
 H C    4 T  1 C   Z T  2 C    T  3 C    T  4 C    T  5 C    T  6 C    T  7 C   > T  8 C   d T  9 C   	 T  10  T  R   C   	
 H	 C     T  einf.D. C    	 T  mittl.D. C   K	 T  geh.D. C   x	 T  h.D. A12 C   	 T  h.D. A13 C   	 T 	 h.D. A13Z + C    C   		&
$ T  FCCC  Z C   
"

 HK

 C    r
 T  15 C   
 T  14 C   
 T  13 C   
 T  12 C    T  11 C   5 T  10 C   [ T  9 C    T  8 C    T  7 C   	 T  6 C   
 T  5 C    T  4 C   ? T  3 C   
e T  2 C    T  1 C    T  2 C    T  15 C   
 T 	 Auertar.  T  EGr.   C   
 HG
 C    n
 T  15 C   
 T  14 C   
 T  13 C   
 T  12 C   
 T  11 C   1 T  10 C   W T  9 C   } T  8 C    T  7 C   	 T  6 C   
 T  5 C    T  4 C   ; T  3 C   
a T  2 C    T  1 C    T  1 C    T  2 C    T  3 C   # T  4 C   Q T 	 Auertar. C   y T  15 C    T  13 C    T  2  T  EGr.  = C   " C    C   	
 H, C    S T  15 C   z T  14 C    T  13 C    T  12 C    T  11 C    T  10 C   < T  9 C   b T  8 C    T  7 C   	 T  6 C   
 T  5 C    T  4 C     T  3 C   
F T  2 C   l T  1 C    T  2 C    T  15 C    T 	 Auertar.  T  EGr.   C   a
 H(G C    P T  12a C   x T  11b C    T  11a C    T  10a C    T  9d C    T  9c C   = T  9b C   d T  9a C    T  8a C   	 T  7c C   
 T  7b C     T  7a C   ' T  4b C   
N T  4a C   u T  3a C    T  A I C    T  A II C    T  A III C    T  A IV C   G T 	 Auertar.  T  EGr.   CC    9
 H C     T  16 C    T  15 C    T  14 C   & T  13 C   M T  12 C   t T  11 C    T  10 C    T  9 C    T  8 C   	
 T  7 C   
3 T  6 C   Y T  5 C    T  4 C   
 T  3 C    T  2 C    T  1 C    T 	 Auertar.  T  EGr.   CC   
 Hb
 C     T  E4 I C    T  E4 II C    T  E4 III C   
 T  E4 IV C   6 T  E4 Chef C   _ T  E5 I C    T  E5 II C    T  E5 III C    T  E5 IV C   	
 T  E5 Chef  C   
 H3 C    ^ T  Verw.B C    T  Verw.L C    T  Verw.G C    T  Krankenpfl. C    T  Entsorg C   ; T  Flugh. C   f T  Spark. C    T  AOK C    T  Versorg. C   	 T  Verkehr  CC    
 H  C    ; T  15 C   b T  14 C    T  13 C    T  12 C    T  11 C    T  10 C   $ T  9 C   J T  8 C   p T  7 C   	 T  6 C   
 T  5 C    T  4 C     T  3 C   
.  T  2 C   T  T  1 C     T 	 Auertar.  T  EGr.   CC   
$
 H # C      T  I C   ! T  Ia C   9! T  Ib C   a! T  IIa C   ! T  IIb C   ! T  III C   ! T  IVa C   " T  IVb C   (" T  Va C   	T" T  Vb g.D. C   
" T  Vb m.D. C   " T  Vc C   " T  VIa C   
" T  VIb C   # T  VII C   M# T 	 VIII m.D. C   {# T 	 VIII e.D. C   # T  IXa C   # T  IXb C   # T  X  T  BAT   C   &
 H/$& C    U$ T  I C   |$ T  Ia C   $ T  Ib C   $ T  II C   $ T  III C   % T  IVa C   B% T  IVb C   n% T  Vb g.D. C   % T  Vb m.D. C   	% T  Vc C   
% T  VIb C   & T  VII C   ?& T 	 VIII m.D. C   
m& T 	 VIII g.D. C   & T  IXa C   & T  IXb C   & T  X  T  BAT   C   _)
 H!'G) C    G' T  I C   n' T  II C   ' T  III C   ' T  IV C   ' T  V C   
( T  Va C   1( T  VI C   Y( T  VII C   ( T  VIII C   	( T  IX C   
( T  X C   ( T  XI C   ) T  XII C   
G) T  XIII  T  KR   C   !,,
 H), C    ) T  1 C   ) T  1a C   ) T  2 C   * T  2a C   D* T  3 C   k* T  3a C   * T  4 C   * T  4a C   * T  5 C   	+ T  5a C   
++ T  6 C   R+ T  6a C   x+ T  7 C   
+ T  7a C   + T  8 C   + T  8a C   , T  9  T  LGr.   C   	R-
 HQ,8-+ C     C   	, T  4 + C    C   		, T  4a+ C   
 C   	, T  5+ C    C   	8- T  5a  T  LGr.   C   
.
 Hw--+ C     C   	- T  4 + C    C   		- T  4a  T  LGr.   C   $W/
 H*.S/ C    R. T  B/L C   z. T  VKA C   . T  Pfleged. C   . T  Caritas C   . T  AVR KR C   +/ T  Arbeiter C   S/ T  AOK  C   |/
 T    C   /
 T    C   /
 T    CC   %1
 H/1 C    0 T  Soz.Arb. C   I0 T  Soz.Pd. C   v0 T  Heilpd. C   0 T  PTA C   0 T  Erzieher C   0 T  Kr.Gymn. C   &1 T 	 Ki.Pfleg. C   R1 T  Masseur C   ~1 T  Rett.D. C   	1 T  Arzt C   
1 T  Arzt   U  WVW ZNAM MSG ZI 
     T    T    T    T    T    T    T	    
  (	  T 
     
  (  T 
      U
  MYFORM1 AUSEIN VISIBLE TRUE READOUT DECIMAL CANCEL PERCENT CALCBERTRAG CALCEND I NUMBER OPERATOR 
     T    T    T    T    T    T    T	    
  (	  T 
     
  (  T 
      U
  MYFORM1 AUSEIN VISIBLE FALSE READOUT DECIMAL CANCEL PERCENT CALCBERTRAG CALCEND I NUMBER OPERATOR
 T      ('7  T    
 T   
 T   
 T    (u C   	  wvw  %C
   6 %C
    ' T C CC
  T 2 T
    $ T C CC T   %   		u T C
  C
  C	
  C

  CC
  CC+
  CC,
  CC-
  0 % ENERGIEPREISC f  EPP C f
 T   E  ) T C CC
    %C,
  ,z' T C CC-
  T  %C-
  -' T C CC.
  T 7 T C CC"
  C7
  dT  *(,a% %CCCC  
  \g8]) T C CCC,
  T  7 T C CC$
  C'
  dT  *(,% %CCCC  
  \g8) T C CCC-
  T  6 T C CC%
  C9
  dT  *(,% %CCCC  
  \g8) T C CCC.
  T   %C
  ' T C CC
  T  %C,
  ,.' T 	C	 CC-
  T  %C,
  -q' T 
C
 CC-
  T + T C CC7
  dT+ T C CC'
  dT
 H C
 
+ T 
C
 CC9
  dT% C
  C
 	/ T 
C
 CC9
  dT/ T C CC9
  dT  %C
   %C"
  ' T C CC#
  T    *(,] %C  
   Y+ T C CC 
  T    *(,$ %CC  
   00000 %C  
  + T C CC 
  T     *(,t% %CCCC  
  \g8 p %C  
  l+ T C CC 
  T     *(,$ %CC  
   00000 %C  
  + T C CC 
  T     *(,	$ %CC  
   00000	 %C  
  	+ T C CC 
  T   
 H	
P C'
    C'
  	" C'
   C'
  	
) T C CC
     %C'
  
W
' T "C" CC
  T + T C CCC(
   
 H
 C4
  
' T C CC
  T CC4
  ' T #C# CC
  T 
 H)r" CC&
  	r' T &C& CC'
  T 
 H% CC4
   	
6 T C CCC&
  CC
  T 
 H
" CC4
  
  *(,
: %C  
  	 CC 
  CC&
  	: T C CCC&
  CC
  T : %C  
  
 CC 
  CC&
  	
: T C CCC&
  CC
  T   
 H-
q% CC&
   q6 T C CCC'
  CC
  T  *(,m: %C  
  	 CC 
  CC'
  	) T C CCC'
  T : %C  
  
 CC 
  CC'
  	i) T C CCC'
  T   + T C CCC)
    %C
  	
\C %C;
  C<
    C;
  C<
  P  
	# T CC P  T X2 T C CC;
  C<
  T  2 T C CC;
  C<
  T  %C
  g %C
    %    T  0CCC  Z   %C
   c %   _ %C >[ T  0CCC  Z     %C#
 ' T !C! CC#
  T  T !   %C
   ' T $C$ CC
  T  %C
  H' T %C% CC
  T ) T 'C' CCC*
  T 
 H+ C
   C
  	  T CC T T CC T  %C  ,& T C    T G T    T C  T" T C R  - C R C   	  wvw  U  MYGROSSBUCHSTABEN I	 COMBOZAHL MSG3 MSG4 OP1 MONAT M MYGET FILENEU WVW TNAM ZNAM ZI	 MONAT3031 WERT WELCHESJAHR
 TESTAUFEPP ZULAGEN ZT19 ZT42 ZT43 ZT44
 MYROUND100 J SCHLSS EFFZ WNW VERSORGUNGSBEZUG
 VERSORGUNGSSZ VERSORGUNGSBEGINN
   
 H    6      R      n                      %C   	   $ %C ! C 	 	     
 H=% C   C 	 %C	  
      	 %C
       
 %C       8$ %C   C 4 
     m %C
  i      
 %C         %C                   %C 
Y %C U      %C          %C                      .     J     f     ! %C" 3      "$ %C#  C# 
      # %C$       $I %C% E      %~ %C& {z      &$ %C'  C'        ' %C(  !     (, %C) ( "     )r& %C* 
 C* n #     * $    + %    , &     U'  MYFORM1 MYINDEXE T0 SETFOCUS T1 T2 T3 T4 ZI T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 T17 T18 T19 T23 T24 T25 T26 T27 T33 T34 T35 T36 T37 T38 T39 T40 T41 T42 T43 T44 %C    B    C/   employee   $ %C   C    T       ?  
 T   ! %  C   	a T  C
 	 rh|?C	 C	 rh|?'CC      I T  C
 	 C	 C	 'CC      O T  C  C
 	 C	 C  
  @B C  > T  C  C	 C  
  @B C    T  C   U  ZI STUFENANZAHLERMITTELN MYGET
 MYPOSITION	 GETVALUES SZTEILER TEILZEITFAKTOR WELCHESJAHR BETRAG GRUNDBETRAG DASTUFEN PENSIONSSATZ
 SZI_BESTIMMEN	 SONDERZAH SZ1LFD SZI WERT SZ2FZ    %  E 
 T 	
 T  T  
 T 
  , %C 
M  
 H I C   ) T	 
  Monatl. Steuerfreibetrag C - T	 
  Monatl. Hinzurechnungsbetrag C I( T	 
  davon Versorgungsbezge  (  
 Hi$ C  ( T	 
  Jhrl. Steuerfreibetrag C , T	 
  Jhrl. Hinzurechnungsbetrag C $( T	 
  davon Versorgungsbezge      %
 p %
 : % 	 
 	 T ffffff? T ffffff? 6 %
 	 
  T 333333? T 333333?  %
 2 T 333333? T ?   l T ffffff? T ffffff?   T       ?    U  MONATSTAFEL SEPTEMBERSTUFE TRUE MONAT MYINDEXE ZI ZTI MYFORM1	 NEUERNAME Z23 CAPTION JAHRESGEHALT DIMENAUS WELCHESJAHR ZUSATZPV PVOREIN ANZEIGEB  T    C   T   T   U  MYFORM1 Z20 CAPTION ZT20 INDEXM ZI MONAT &
 T    
 T   
 T   
 T   
 T   
 HN %   s 
 T     
 H  C    %C    Stufenlaufzeit    Stufenlaufzeit  C  %C 
3  Stufenlaufzeit \ CP Keine Berechnung des Besoldungsdienstalters erforderlich, da festes Grundgehalt.x  C  %C 
 %C   Stufenlaufzeit   Stufenlaufzeit  \ CP Keine Berechnung des Besoldungsdienstalters erforderlich, da festes Grundgehalt.x T
 a B  CC 
\ CP Keine Berechnung des Besoldungsdienstalters erforderlich, da festes Grundgehalt.x T
 a B% C  C 	H  Stufenlaufzeit% C  C 	 % 
a CT Fr dieses Dienstverhltnis existiert kein Assistent fr die Dienstaltersberechnung x $ %C  C ma CT Fr dieses Dienstverhltnis existiert kein Assistent fr die Dienstaltersberechnung x   Stufenlaufzeit       
 T #    
 T CY Achtung! Bei Auswahl von  O K  wird der Personalfall vom aktuellen Monat an bis Dezember 
 %  auf die Grundstellung zurckgesetzt.# Auf die Grundstellung zurcksetzen?x %  B  CF wvw  %C   T  (  CG wnw     C (W	 T   T  CC 8 T  CC 8 T   
 H8	$ C  	P T  `M/  T  `M/  T `M/  T `M/  T `M/  T `M/  C 
 T  -  T  -  T -  T -  T -  T -   8	 %C    T   @,  T   @,  T  @,  T  @,  T  @,  T  @,  4	 T  *  T  *  T *  T *  T *  T *    C    wvw   T 6   6 T   
 Personalfall CCC 
 Z> T C 
 Personalfall CCC 
 Z C
   wnw 3 T   
 Personalfall CCC 
 Z T !   T " #  C
   wnw  $  T % & #   
  
  
 T' 

 H

% C   C 	
 H C  & T  A C I T  B C l T  C C  T  W C  T  R C  T  An  T(  119% C  C 	, T(  189
 T     C Q T(  192 C 	s
 T(  CC 
 T(  132 C  T(  135 C 
 T(  136 C 

 T(  C 0

 T(  CC Y
 T(  139 C ~
 T(  145 C 
 C 
 T(  149 C 

 T( o  T) CC  Z
 H  * 1 Do tabellen&xxwelchesjahr 
  + ` Do tabellen&xxwelchesjahr 
  ,  Do tabellen&xxwelchesjahr 
  -  DO tabellen&xxwelchesjahr 
  .  DO tabellen&xxwelchesjahr 
  /   T
 HP C +% C   C 	
 T l4 %C  C   C 		  ozuschlagby  	 ozuschlag % C 
 C 	Pj CD Fr dieses Dienstverhltnis entfallen Erluterungen zum Ortszuschlag  Keine Erluterungenx   	 T2 C   Struktur  

 T     4 %C 
0
 H,% C   C 
	,
 T o  leistungszulagen    E  
V  g   %5 T C= Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung  Sorryx B  %C VX C) Diese Funktion steht nicht zur Verfgung.  Kein Gehalt = keine Zuschlgex B 
 T  	 Zuschlge
 T7    %5 T C= Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung  Sorryx B  %C tX C) Diese Funktion steht nicht zur Verfgung.  Kein Gehalt = keine Zuschlgex B 
 T  	 Zuschlge
 T7   
 T     Z %C 
6! %  C  	2C= Das Land Baden-Wrttemberg hat den Landesanteil der BesoldungC
 . ab dem Jahr 2008 in das Grundgehalt eingefgt,C
 . weil nach der Fderalismusreform die BesoldungC
 ' insgesamt landesrechtlich geregelt ist. / B-W ab 2008 ohne landesrechtliche Sonderzahlungx B   %C 
 T + T 8  l Sie knnen die Gehaltberechnung eines Monats ffnen, wenn Sie auf die Zeile des betreffenden Monats klicken. T & - 	 szdrucken B 
 T v    %C 
A
 T7  V
 T7     k   %5 { C Die Darstellung der Teilzeitbetrge ist nur bei einzelnen Monaten mglich. Sie knnen jedoch die die monatlichen Teilzeitbetrge in der Jahresbersicht (aufzurufen mit JAHR) einsehen und ausdrucken0 Teilzeitx T
 a B 
 T #    
 T     
 T   versorgungsfreibetrag   % 
 Cg Die hier vorbereitete bersicht ist nicht fr das Jahresgehalt verfgbar sondern nur fr Monatsgehlter & Bitte stellen Sie ein Monatsgehalt einx T
 a B  %C u %;   <  	qj CI Bei einem Umlagesatz von 0 % erbrigen sich Erluterungen zur ATV-Umlage.  Fehlanzeige ...x T
 a B   =   
 T B     T & -
  Form2
 T7    C8 Assistent zur Anwendung der TVD / TV-L - EntgeltordnungC
 < Einstweilen verwenden Sie den Assistenten des Icons daneben. - Nach In-Kraft-Treten der neuen Entgeltordnungx    
 T      C Das Programm-Modul zur Berechnung der Entgeltpunkte fr die gesetzliche Rentenversicherung ist noch nicht fertiggestellt. Das Icon ist vorhanden, damit Sie sich ersparen knnen, ein solches Modul vorzuschlagen. 
 In Arbeit ...x   
  Umlagekassen  !/
 T     "@  #Q  $b  %
  SV
 T7   & T CA > T  A  \ATV-Rente.exe# If .not. File("&Msg") = .T.auC; Das Unterprogramm ATV-Rente.exe ist noch nicht installiert.C
 C Sie finden den Downloadlink auf der Internetseite www.ATV-Rente.de.C
 : Wenn Sie dieses Programm im Verzeichnis installiert haben,C
 A in dem sich das Programmverzeichnis des Gehaltsrechners befindet,C
 ( ist es vom Gehaltsrechner aus aufrufbar.  Noch zu installieren . . .x [ C6 Das Programm-Icon erscheint in der Windows-Tastleiste.  Taskleiste beachtenx RUN  /N &Msg
 B   'Zm CP Ein Unterprogramm fr die Berechnung der Rentenanwartschaft ist in Vorbereitung.  Geplant ...x  (k  )
 T(  T   Index /   *! %5  T C= Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung  Sorryx B  B 
 H4 !D C   C 	 C  C 	 
 T   atzmaske C !
 H ! CC  
 T  D  T & -  atzA C z!c CL Die Berechnung nach AltTZG wird in dieser Version noch nicht bereitgestellt.  Sorryx B CC ! F     +!  ,!  -% %5 E"[ CN Diese Funktion kann nur benutzt werden, wenn ein Monatsgehalt eingestellt ist.x B  G   (" T    TH    TI    TJ    
 TK 
  {%  ('# TL CC  Z  .extra&hsin..Visible = False
  TM & #  TN & #  TO & #   -(2# TL CC  Z  .extra&hsin..Visible = False
  TP & #  TQ & #    (	m$
 H#i$>     	      	i$ TR CC  Z .men&hsmn..Visible = False
   % S $ % T U $$ TV   + Umlagen U1 und U2 $ TV   + Umlage U1  O% % T U % TV   + Umlage U2 K%* TV     keine Umlagen U1 und U2   TV & U   nettoberechnung   .%  /%  0%  1%  2%  3%
 T U    UX  MSG MSG1 MSG2 MSG3 MSG4 MYINDEXE REGISTER LADEN ZI STUFENLAUFZEIT RETVAL WELCHESJAHR RESPONSE WELCHESJAHRC MYGET WVW ZNAM WOCHENARBEITSZEITHOLEN I MONAT TNAM BETRAG WERT ISSCHALTJAHR MYPUT FILENEU BDAEINSTELLUNGEN MYFORM1 Z0 CAPTION ZT0 WNW PERSONALFALL BESJA ATZALT FALSE	 NEUERNAME KCOMBO VISIBLE INDEXI INET
 XXWELCHESJAHR JAHR1 JAHR2 JAHR3 JAHR4 JAHR5 INSINTERNET OZUSCHLAGBY	 OZUSCHLAG
 FILENEUALT STRUKTUR LEISTUNGSZULAGEN INDEXM	 ZUSCHLGE FENSTEROFFEN TIP	 SZDRUCKEN VERSORGUNGSFREIBETRAG ZVKUMLAGEAG
 ZVKKAPITAL
 ANLAGEDRUCKEN FORM2 UMLAGEKASSEN SV EIGDAT
 TAFELLOESCHEN ATZMASKE ALTERRECHNENGANZ ATZA FLEXTV WVWOUT INTERIM TEILZAHL	 BRUCHZAHL NETTOJA HSIN EXTRA26 EXTRA27 EXTRA30 EXTRA43 EXTRA32 HSMN ZUMLAGE1 ZUMLAGE2 TRUE LABEL13 NETTOBERECHNUNG CC    wvw    
 H3    g %   Z C	 Das Jahr CC  Z   ist im Programm nicht angelegt. 	 Sorry ...x B 
 T   W T  Der Personalfall CCC  #  wird auf das Folgejahr bertragen.: T	 C 4 Von 
   nach CC  Zx %	 j B 
 H{c   
 T  
 T
     
    
 T
  
 T    
     )
 T  
 T         c
 T  
 T         
   %   T    T    T          
 T   %C  U. 7 
 T   %C N
 T     % q   
 T     T!  000! T  bmf-steuerrechner.de "   
 T   Seriendruck  2
 T =  voreinstellungen  [  JDA
 T    s &   	 '   

   T   T    T    T  T      ( a )  *  +  ,  T- C W h dummy/  C F.   [ F.  #) %C0   %1 a# ? abrechnung_2(!9 $ ? abrechnung_2(!"9  g 3 4  T3 
 V3 3 T5 C MyInWindowFixer preview_fixer.prg
 3  T6 
 Druckvorschau T7 a T8  T9  T: ;  T< =  T>   T?   T@ a  C 5 3 A  T4 C ReportListener T4 B  T4 C 3 ' ? abrechnung_29.4  <4  <3   F.  Q
 F-  ( -  $
 D a *  )  +  ,  E  T- C W h dummy/  C F.   [ F.  #) %C0   %1 aV# ? abrechnung_3(!9 $ ? abrechnung_3(!"9  	 3 4  T3 
 V3 3 T5 C MyInWindowFixer preview_fixer.prg
 3 x	 T6 
 Druckvorschau T7 a T8  T9  T: ;  T< =  T>   T?   T@ a  C 5 3 A  T4 C ReportListener T4 B  T4 C 3 ' ? abrechnung_39.4   F.  Q
 F-  <4  <3  D -  
<
 G   \ %CCH I R1 C: Fr die Urlaubsberechnung ist der Geburtstag erforderlich.C
 7 Bitte ergnzen Sie im folgenden Fenster die Stammdaten.  Geburtstag eingebenx
 T  
 Urlaubsber
 T   X 
 Urlaubsber
 T     m  
 K a *  )  +  E  T- C W h dummy/  C F.   [ F.  #) %C0  a %1 a1# ? abrechnung_1(!9 ]$ ? abrechnung_1(!"9  
 3 4  T3 
 V3 3 T5 C MyInWindowFixer preview_fixer.prg
 3 S
 T6 
 Druckvorschau T7 a T8  T9  T: ;  T< =  T>   T?   T@ a  C 5 3 A  T4 C ReportListener T4 B  T4 C 3 ' ? abrechnung_19.4  <4  <3   F.  Q
 F-  K -  $
 T R    L
  SV
 T    % % N    % O   T O    P   T N     !
 T 2 T Q 6  ins Memofeld P  T O    T N      ~ %   e
  Kalen
 T   B z
 T      ' %S q CD Die Entgeltbescheinigung steht nur fr Monatsgehlter zur Verfgung.  Nicht fr das Jahresgehaltx B  *  T    %   {  Arbeitszeit
 T   T  - B  T  a
 T       *  T   UV  MYPUT ZI FILENEU WVWOUT MYINDEXE WELCHESJAHR JAHR5 MSG ZT0 RESPONSE WELCHESJAHRC JAHR1	 TEMPJAHR1	 TEMPJAHR2 JAHR2 WECHSEL_VON_NACH	 TEMPJAHR3 JAHR3	 TEMPJAHR4 JAHR4	 TEMPJAHR5 MYFORM1 WINDOWSTATE MEN1 VISIBLE FALSE MEN10 TRUE SICHERORDNEN REGISTER LADEN ADMINUNSICHTBAR FENSTEROFFEN INET INSINTERNET SERIENDRUCK VOREINSTELLUNGEN JDA GRAPHIKDRUCKEN	 SWDRUCKEN ABRECHNUNG2_VARS COMBOZAHLEN KOPF BRUTTO ABZGE	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK ABRECHNUNG_2 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER ABRECHNUNG3_VARS	 AGAUFWAND ABRECHNUNG_3
 ANLAGEDRUCKEN WNW ZTEXT0
 URLAUBSBER ABRECHNUNG1_VARS ABRECHNUNG_1 SV
 CALCULATOR KALENDER CALCSICHTBAR CALCBERTRAG KALEN INDEXM
 ABRECHNUNG ARBEITSZEIT 
    C T  2 Es wurde kein gltiger Lizenzschlssel eingegeben. T    T    
 T  
 T    U	 
 FREISCHALTUNG HINWEIS CAPTION VISIBLE TRUE	 SCHLSSEL TEXT J K  U  )C %C   \Backup3\gehaltC \ dim.dbf   `C %C   \Backup3\gehaltC \ dim.dbf  @_ T L Das Verschieben und Sortieren von Personalfllen ist gefahrlos erst mglich,C
 L T 9 wenn bereits   d r e i   Sitzungen gesichert worden sind.C
 0 T  Dies ist noch nicht der Fall.C
 D T	 7 Wollen Sie das Sichern der Sitzungen jetzt aktivieren ?Y T
 C   	 7 Wollen Sie das Sichern von Sitzungen jetzt aktivieren ?x
 H< 
 '   B 
 < B  \
 T  
   "_ T L Das Verschieben und Sortieren von Personalfllen ist gefahrlos erst mglich,C
 L T 9 wenn bereits   d r e i   Sitzungen gesichert worden sind.C
 0 T  Dies ist noch nicht der Fall.C
 D T	 7 Wollen Sie das Sichern der Sitzungen jetzt aktivieren ?Y T
 C   	 7 Wollen Sie das Sichern von Sitzungen jetzt aktivieren ?x
 H 
 	   B 
  B   U 	 FILEEXIST EIGDAT MUSER XJAHR4 TRUE FILELEN2 MSGX1 MSGX2 MSGX3 MSGX4 RETVAL SITZUNGSWIEDERHERSTELLUNG REGISTER LADEN  U    U    U   alterstufeholen,     
 BesGrholen     calcsichtbar5     calcunsichtbar6     combolohnsteuerV8    
 demaktivieren L     JuliversorgungS    
 monaktivierenV     monatstafelZ     extraaktivieren5[    	 menaktiv~     falscherschlssel    
 differenzA͙     sicherordnenԙ     vergleichdrucken     vergleichen     VerglSichtholen    4  a QaaA  AAAAA   A 3       11   1A1A  AAQ   A 1            A 1 A  A            A 1 AQ1QQaA A                 aA a                    a A a                 aA a            !aA a                 aA a !1!A!1!AA  111A11QAA                 aA a     AA aa A Q     AA aa A Q          A A                  A a     A a   A a QA1QA     QQQQQaAAA A 3  qqA qqA A 3  qqA qqA A 3  r1A    qq qq AA A Q A A qA qA sqQA A sqQA A cqQA A qA qA qA  QQA qA A qA A tAA A A sQA B A rAA A A rAA A A  A qA  qqA  !qA  QaA  !qA A A A  QaqA A A A 11 !A  !A A A 1A A A A Qq 1A qA qA B  A Sa 1A "4        Q A B A  QQ A B Q A Q A A A Q A Q A Q A   QR A  Q A A Q A       Q A A A Q A Q A Q A A A Q A Q A a A    A A 3 QA A t q AQ  A  r A r3 s   1A   Qq  QQQA  q  QQQA A A r "!QQ QQA !QQA A  QQA  QA q 3  23        q  QQa dB QQb A QQQb bA   A A  A QaR! A aA B J  q A A caA br a Aaaaaaaaa!aaaa aaaaA A A 1r bq1rw 4  Q Q Q Q Q Q Q A Q QQ QQQ Q QQQQ A q A q  QQ B1 A QA Q q Q Q A A `P@AA A QA A   AA A QA A    q RA A A R  A   A q Q   A  
 A A  q  q  	 A A R A A A q  q     q ! A q    1R B A  !q AA A q  A W  q   S1A  q B A A A q qqq11A   zqA rqA q qA A AA A  A A A uA   q A 3 r  A A  qA A              A  ! A G q  Qq  A   A r q A  q  1   q q     F   q q q q  q Q A r Q " 1 AA     2         A sr q A r A    q q q q q  q Q A r Q " 1 AA     2         A sA r A  r q  q q
 "  ! A  q q q q  q Q A r Q ! 1 AA     2         A vr q A r A    q   q11q  1A   q 11A   A   A A A  q q 1  A    A r q A 3  1  A 3 1 21A q A A A   q A  A q A A A A 3 @1 01 1                    <        &     >  -     !?  j@      @  A      B  `      `  #k      Jk  o    ,  o  t    c  t  w    h  9w  b        	   1  	 
 	  9  
 1 	  ;  
2 7 x  \  7 q]   ^  ] ғ   `         %           	    Nd[
    U   
       (Z  T CC  Z .Label&lll..Visible = False
  T    T    T     U 	 MYTABLETT I LLL EINGABE1 VISIBLE FALSE EINGABE2 EINGABE3O* T   a T   a T   - T   a  
 T 
 T 

 T  T 
    *   	  T
 	 H i l f e T  T  T
  T $ T 
 T   T     T        T
 
 D r u c k e n T  T  T
  T $ T 
 T   T     T       d T
  S c h l i e  e n T  T ; T
  T $ T 
 T   T     T        T   T  
 T
 N T  T 
 T   T     T       - T
  Anpassung von BAT-Besitzstnden T  T   T 2 T 
 T
 , T     T       E1 T
  im Geltungsbereich des C  
  T 
 T   T P T 
 T
 , T     T        T 
* T
  Individ. Erhh. der Endstufe T n T 
 T
  T  T     T        %C
   . T  
   T C
  d T      T   T
 d T  T 
 T        D T 
% T
  Vergtungsgruppenzulage T  T 
 T
  T  T     T      !   %C    T     T C  d T       T   T
 d T  T 
 T      " F T 2 T  n
 T   
 T#  
 Hd* C$ 

 T# $ C$  C$ 
 T# 4 C$  C$  C$ 	* % 
  West
 T#  &
 T#    T%    T%   T% 
  T%  # ( C% &  T%  a '  (#  T( CC'  Z" .zeile&ddd..Top = nr + i * 25 
 .zeile&ddd..Left = 10 
 .zeile&ddd..height = 25
 .zeile&ddd..Width = 30 
 .zeile&ddd..FontSize = 10
  .zeile&ddd..FontBold = False
& .zeile&ddd..BackColor = .BackColor
 .zeile&ddd..Caption = "ab" 
 .zeile&ddd..Visible = True
' .datumsfeld&ddd..Top = nr + i * 25 
 .datumsfeld&ddd..Left = 50 
  .datumsfeld&ddd..Width = 100
  .datumsfeld&ddd..height = 25
# .datumsfeld&ddd..Visible = True
" .datumsfeld&ddd..visible = .t.
# .kasten&ddd..Top = nr + i * 25 
 .kasten&ddd..Left = 160 
 .kasten&ddd..Width = 10 
 .kasten&ddd..height = 25 
' .kasten&ddd..BackColor = .BackColor
 .kasten&ddd..Caption = "x"
 .kasten&ddd..Visible = True
! .dezi&ddd..Top = nr + i * 25 
 .dezi&ddd..Left = l + 24 
 .dezi&ddd..Width = 100 
 .dezi&ddd..height = 25 
 .dezi&ddd..value = 0.00
 .dezi&ddd..Visible = True
 T) CC'  Z, .kasten&eee..Top = .kasten&ddd..Top + 3 
3 .kasten&eee..Left = .dezi&ddd..left + 100 + 10 
 .kasten&eee..Width = 10 
 .kasten&eee..height = 25 
' .kasten&eee..BackColor = .BackColor
 .kasten&eee..Caption = "="
 .kasten&eee..Visible = True
& .tdbnumber&ddd..Top = nr + i * 25 
 .tdbnumber&ddd..Left = 310
 .tdbnumber&ddd..Width = 100
 .tdbnumber&ddd..height = 25
" .tdbnumber&ddd..Visible = True
- .optiongroup1.opt&ddd..Top = i * 25 + 10 
# .optiongroup1.opt&ddd..Left = 5
% .optiongroup1.opt&ddd..Width = 15
) .optiongroup1.opt&ddd..Visible = True
  T*    T*    T% +    T, 
  Basis- T,   2 T,   T, 
 d T,      T,    T- 
  betrag T-    T-   T- 
 d T-      T-   
 Hs( C$ 
 % 
  West T.  
 01.10.2005 T*   T/  
 01.01.2008 T0  "~? T1  
 01.01.2008 T2   T3  
 01.01.2009 T4   r? T5  
 01.01.2010 T6  x&1? T7  
 01.01.2011 T8  jt? T9  
 01.08.2011 T:  Gz? T;  
 01.03.2012 T<  (\? T=  
 01.01.2013 T>  MbX9? T?  
 01.08.2013 T@  MbX9? TA  
 01.03.2014 TB  {Gz? TC  
 01.03.2015 TD  Mb? TE  
 01.03.2016 TF  '1Z? TG  
 01.02.2017 TH  K7A`? TI  
 01.03.2018 TJ  ? TK  
 01.04.2019 TL  t$~? TM  
 01.02.2020 TN  fj+? TO  
 01.03.2021 TP  fj+?  T.  
 01.10.2005 T*   T/  
 01.01.2008 T0  "~?
 HC C$  C$ 	 C$  C$ m T1  
 01.01.2008 T2  K;5L?D C$   C$ 	 C$  C$ 	 T1  
 01.04.2008 T2  K;5L?  T3  
 01.01.2009 T4   r? T5  
 01.01.2010 T6  x&1? T7  
 01.01.2011 T8  jt? T9  
 01.08.2011 T:  Gz? T;  
 01.03.2012 T<  (\? T=  
 01.01.2013 T>  MbX9? T?  
 01.08.2013 T@  MbX9? TA  
 01.03.2014 TB  {Gz? TC  
 01.03.2015 TD  Mb? TE  
 01.03.2016 TD  '1Z? TG  
 01.02.2017 TD  K7A`? TI  
 01.03.2018 TD  ? TK  
 01.04.2019 TD  t$~? TM  
 01.03.2020 TD  fj+? TO  
 01.03.2021 TD  fj+?  CC$  % 
  West[ T.  
 01.11.2006 T*   T/  
 01.01.2008 T0  X9v? T1  
 01.01.2008 T2   T3  
 01.03.2009 T4  {Gz? T5  
 01.03.2010 T6  x&1? T7  
 01.04.2011 T8  =
ףp=? T9  
 01.01.2012 T:  M? T;  
 01.01.2013 T<  Cl? T=  
 01.01.2014 T>  Fx? T?  
 01.03.2015 T@  tV? TA  
 01.03.2016 TB  1Zd? TC  
 01.01.2017 TD  '1Z? TE  
 01.01.2018 TF  K7A`? TG  
 01.01.2019 TH  9#J{? TI  
 01.01.2020 TJ  ):? TK  
 01.03.2021 TL  a4?  T.  
 01.11.2006 T*   T/  
 01.05.2008 T0  X9v?
 H'C C$  C$ 	 C$  C$ { T1  
 01.05.2008 T2  K;5L? T3  
 01.03.2009 T4  {Gz?D C$   C$ 	 C$  C$ 	' T1  
 01.03.2009 T2  {Gz? T3  
 01.01.2010 T4  K;5L?  T5  
 01.03.2010 T6  x&1? T7  
 01.04.2011 T8  =
ףp=? T9  
 01.01.2012 T:  M? T;  
 01.01.2013 T<  Cl? T=  
 01.01.2014 T>  Fx? T?  
 01.03.2015 T@  tV? TA  
 01.03.2016 TB  1Zd? TC  
 01.01.2017 TD  '1Z? TE  
 01.01.2018 TF  K7A`? TG   01.031.2019 TH  9#J{? TI  
 01.01.2020 TJ  ):? TK  
 01.01.2021 TL  a4? 4 C$  C$  C$ 	s( % 
  WestY# T.  
 01.10.2005 T*   T/  
 01.01.2008 T0  "~? T1  
 01.01.2009 T2   r? T3  
 01.01.2010 T4  x&1? T5  
 01.01.2011 T6  jt? T7  
 01.08.2011 T8  Gz? T9  
 01.03.2012 T:  (\? T;  
 01.01.2013 T<  MbX9? T=  
 01.08.2013 T>  MbX9? T?  
 01.03.2014 T@  {Gz? TA  
 01.03.2015 TB  Mb? TC  
 01.03.2016 TD  Mb? TE  
 01.01.2017 TF  K7A`? TG  
 01.03.2018 TH  ? TI  
 01.04.2019 TJ  t$~? TK  
 01.03.2020 TL  fj+? TM  
 01.03.2021 TN  fj+? o( T.  
 01.10.2005 T*   T/  
 01.07.2006 T0  E_A? T1  
 01.07.2007 T2  ƅ!Y@?
 H$%4 C$   C$ 	 C$ $ T3  
 01.04.2008 T4  "~? T5  
 01.01.2009 T6   r? T7  
 01.01.2010 T8  qt~?% C$  C$ 	% T3  
 01.01.2008 T4  qt~? T5  
 01.04.2008 T6  "~? T7  
 01.01.2009 T8   r?  T9  
 01.01.2010 T:  x&1? T;  
 01.01.2011 T<  jt? T=  
 01.08.2011 T>  Gz? T?  
 01.03.2012 T@  (\? TA  
 01.01.2013 TB  MbX9? TC  
 01.08.2013 TD  MbX9? TE  
 01.03.2014 TF  {Gz? TG  
 01.03.2015 TH  Mb? TI  
 01.03.2016 TJ  Mb? TK  
 01.01.2017 TL  K7A`? TM  
 01.03.2018 TN  ? TO  
 01.04.2019 TP  t$~? TQ  
 01.03.2020 TR  fj+? TS  
 01.03.2021 TT  fj+?     U n) TV CC#  Z/ T
 ! bertrag in den Monat August 2011- .Top = myTablett.Datumsfeld&xrx..Top + 30
 T  T
  T ! T 
 T   TW  T     T    T   %C  
). TU 
  bertrag nach Zeile 9 ab X  )/ TU 
  bertrag nach Zeile 14 ab X   $ T  
        
 $ T     U    U   UY 	 MYTABLETT ALWAYSONTOP
 AUTOCENTER VISIBLE
 TAFELLOESCHEN NR K L M
 SSCOMMAND1 CAPTION TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE	 BACKCOLOR
 SSCOMMAND2
 SSCOMMAND3
 SSCOMMAND4 ZEILE32 ZEILE33 MYFORM1 Z4 FALSE CHECK1 TDBNUMBER13 WNW	 TVDZEILE VALUE CHECK2 TDBNUMBER14 DYN HSENDANZAHL ZI OPTIONGROUP1 ZORDER I DDD EEE DEZI0 OPT0 ZEILE30 ZEILE31 DATUMSFELD0 DATUMSFELD1 DEZI1 DATUMSFELD2 DEZI2 DATUMSFELD3 DEZI3 DATUMSFELD4 DEZI4 DATUMSFELD5 DEZI5 DATUMSFELD6 DEZI6 DATUMSFELD7 DEZI7 DATUMSFELD8 DEZI8 DATUMSFELD9 DEZI9 DATUMSFELD10 DEZI10 DATUMSFELD11 DEZI11 DATUMSFELD12 DEZI12 DATUMSFELD13 DEZI13 DATUMSFELD14 DEZI14 DATUMSFELD15 DEZI15 DATUMSFELD16 DEZI16 DATUMSFELD17 DEZI17 DATUMSFELD18 DEZI18 DATUMSFELD19 DEZI19
 SSCOMMAND5 XRX	 ALIGNMENT MSG
   
 T  
 T     (   T CC  Z5 If .not. EMPTY(.optiongroup1.opt&ooo..value)  
 T       ( V T CC  Z T CC  Z %    RM .tdbnumber&ttt..Value = ROUND(.tdbnumber&tt2..Value * .Dezi&ttt..Value,2)
   %  p   ( 7 T CC  Z .tdbnumber&ttt..Value = 0
# .tdbnumber&ttt..Visible = False
 .Dezi&ttt..Value = 0
 .Dezi&ttt..Visible = False
$ .Datumsfeld&ttt..Visible = False
  T	 CC  Z .Dezi&jjj..Visible = False
 
 T 
  %C 	
0 T  01.0CCC  Z .
  / T  01.CCC  Z .
   %C  
C. T   bertrag nach Zeile 9 ab   z/ T   bertrag nach Zeile 14 ab      (  T CC  Z+ .tdbnumber&ttt..BackColor = QBColor(15)
    (  T CC  Z/ If .Not. Empty(.Datumsfeld&ddd..Value) 9 If DateDiff("m", .Datumsfeld&ddd..Value, Msg) < 1+ .tdbnumber&ddd..BackColor = QBColor(14)

 T   !     U 	 MYTABLETT	 STARTFLAG TRUE J I HSENDANZAHL OOO TTT TT2 JJJ FALSE ZI MSG WELCHESJAHRC CHECK1 VALUE
 SSCOMMAND5 CAPTION DDD OP2B 7      J  (     
  ( T       (    ) 	  ( T
 CC	  Z) If Empty(.Datumsfeld&ddd..Value)  
 T 	  5 If .not. EMPTY(.optiongroup1.opt&ddd..Value) 
 T 	    T
 C
 C
  	  (  T CC	  Z %	  < T
 CC  Z T CC	  ZG an_sp1 = an_sp1 + "Basisbetrag am " + .Datumsfeld&ddd..Value + crlf
 T  
 O an_sp3 = an_sp3 + Alltrim(Str(.tdbnumber&ttt..Value,10,2)) + " Euro" + crlf
 5 T CC	  Z; an_sp1 = an_sp1 + "ab " + .Datumsfeld&ttt..Value + crlf
P an_sp2 = an_sp2 + " x " + Alltrim(Str(.Dezi&ttt..Value,10,2)) + " = " + crlf
O an_sp3 = an_sp3 + Alltrim(Str(.tdbnumber&ttt..Value,10,2)) + " Euro" + crlf
  %	  T CC	  Z$ If .tdbnumber&ttt..Value = 0 !   % T  
 
  PC-Gehalt.de  T C W h dummy  C F   [ F  #) %C   % aW, ? dynamisierung_drucken(!9 - ? dynamisierung_drucken(!"9      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T  T   T   T    T!   T" a  C   #  T C ReportListener T $  T %  0 ? dynamisierung_drucken9.  <  <   F  Q
 F  <      U&  1 AN_SP1 AN_SP2 AN_SP3	 MYTABLETT ZEILE33 CAPTION MYFORM1 Z2 I DDD J K CRLF TTT	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK DYNAMISIERUNG_DRUCKEN LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINERC2 Sie bentigen offenbar mehr als fnf Namenszeilen.C
 E Mit der Privatlizenz sind Berechnungen fr nur fnf Personen mglich.C
 Z Mit der Dienststellenversion lassen sich unbeschrnkt viele Gehaltsberechnungen verwalten.C
 : Unter Menpunkt Freischalten finden Sie den Bestellschein.C
 G Mit OK wird das Programm auf die vorherige Einstellung zurckgestellt.  ( Bentigen Sie eine Dienststellenversion?x U  & +a %CC  g
6 
 T     ! 0 %CC  \g
 CC  \g{ 
 T     ! + %CC  Rg  CC  Rg
 
 T     ! 
 H . CCC  \g
( %CC  g$
 T     !  CC  \g %CCC  RgG  %CC  g
 T     !   %CC  g
 T     !  % CCC  \g	 %CC  g
 T       !  U  DC JAHR5  U    U    U    U    U    U    U  #
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT#
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT#
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT#
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT#
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT#
    T  T  T 	 T 	 T 	 T 	 T 	 T 	 T 		 T 
	 T 	 T 	 T 
	 T 	 T 	 T 	 T 	 T 2 T F T 2 T 2 T 2 T F T ( T F T 	2 T 
< T F T F T 
F T 2 T 2 T < T 2 T   T   T   T   T   T   T  T  T 	 T 
  T   T   T 
  T  T  T  T  T # T   T  T  T  T # T  T ( T 	 T 
# T ( T ( T 
( T # T # T  T # T    Cz Pausch  U  PAUSCH	 DATVKISTR	 DATVCHECK TRUE MYPUT[
 H
 T% C    C  	2 % C   C  %	T T    T    T    T  d T C $ T  *C  d %C*   T  *  C٦ Der AN-Anteil zur ATV-Betriebsrente ist manuell einzustellen, weil die Einstellungen unter EINSTELLUNGEN / ATV unrealistisch sind. berprfen Sie diese Einstellungen.  AN-Anteil zur ATV-Betriebsrentex  %C*   
 T  *   %C  n T 
	  T
    x T   T    T 

  T
    - $ %C   C  P % 6 T d T d T  * 
 T  
 T 
 T   T  T  T  *
 T  T q=
ףp@ T )\(@  %C   T 	  T
    x T   T   E T 
  T
    -      U  ZI	 ZVKUMLAGE VOREIN VORZVKUMLAGE ZVKHALB
 VORZVKHALB BETRAG WERT ZVKZ TRUE MYFORM1 ZVK10 CAPTION FALSE	 ALTESLAND ZVKAG ZVK15 VOREINSTAUSp
   i   (G # T   Arbeitgeber  T   T   T   T   T   T  T	   T
   T   T   T
   T   T   T | T  T ( T  T   T   T   T   T  T   T   T   T   T    (g  (c T       T  T   T   T   T   T   T    T! + T!  T!  T!  T!  T!   %C" 
n T!   T!     (  ( T#       ( T$    T%       T% CC" &  T'   C= Sozvers(   U)  SOZVERS I AG HO HK SC HC HR HE KO KK REG UEB BER GK GR LO MO UR WE PRI FALSE STU LST J ERG TRAG RES1 RES2 RES3 RES4 RES5 RES6 ZO ZI SV JOB ARB ZT0 BER MYPUT7J 7  ' 7 '
 J  (  
 J ( 
 T    T     T    T	 
 C    C #117
  %C	 R .txt C 	 u
 importfile  Cu
 importfile 
 H #       		"    
   	v C Bei der Datei C
 	 C
   handelt es sich nicht um eine C
  Importdatei. 
 Falsche Dateix B  7v C Bei der Datei C
 	 C
   handelt es sich nicht um eine C
  Importdatei. 
 Falsche Dateix B  C #117
  C 	 u
 importfile  T Cu  T    
 T   T       C
   wnw  T     C
   wnw 
 T	   
 T    ( fI +aKI Cu  
 importfile 
  CI % C
 s !  % C   T a  T -  % C
 " CC  !    wvw  % 
 T" "   C
   wnw  T# C  !  $  % ? T  &       importierte Personalflle
   '  %(  B T   % ) 
 T)   
 T   *  $ ) C
 C   u
 importfile  T    
 T	   
 T+    
 T  
 T	   
 T+   
 T(   T    ?I %  ;	 +  ;	 T   T    %  ; T   T+  ; ;I
 T+    %  ,F T  . 
 HW7I    T(   T	 	   T( C	 g %( 
 T(  
 T,     3 % C  

 T,    " T, ,   T  ,  
 T	     L %(  f T    T	 	   T  ! C	 g
 T,    %C  ! Hy T  
 Datensatz CC 
 Z' , Dienstalter (Zeile 7) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     B
 T, ,   %C, >1
 %C, 9	 T  
 Datensatz CC 
 Z6 , Dienstalter (Datum in Zeile 7) Monat korrigiert von C  -   auf 01C
  T  -  01/01/C, R -
. %C, R 2006 C, R 1950


 T  
 Datensatz CC 
 Z5 , Dienstalter (Datum in Zeile 7) Jahr korrigiert von C  - R	  auf 2000C
  T  - 
 01/01/2000 )
 T  -  01/,    
 T	     4 T	 	   T  ! C	 g
 T,    %C  ! 0x T  
 Datensatz CC 
 Z& , Bundesland (Zeile 2) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     + T, ,   T  ! C, g
 T	    %C  ! '} T  
 Datensatz CC 
 Z+ , Ehegatte i..D. (Zeile 3) korrigiert von CCC  ! 
 Z  auf 0C
  T  !      T	 	   T  ! C	 g
 HsK C	 g  T  !   C	 g T  !  C	 g T  !  C	 g
 T  !  C	 g@
 T  !  C	 gi
 T  !  C	 g
 T  !  C	 g
 T  !  C	 g
 T  ! ! C	 g	
 T  ! " C	 g
6 T  ! # C	 g_ T  !   C	 g T  ! $ C	 g
 T  ! # C	 g T  ! # C	 g T  ! # C	 g, T  !  C	 gU T  !  C	 g~ T  !  C	 g T  !  C	 g T  ! # C	 g T  ! # C	 g" T  ! % C	 gK T  !  
 T,    %C  ! %~ T  
 Datensatz CC 
 Z, , Dienstverhltnis (Zeile 4) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     q T, ,  % %C  ! 
 C, g	j T  !   T  ! C, g
 T	   
 T.  
 H C  !   %C  ! 
 T.   C  ! / %C  ! 
+
 T.   C  ! p %C  ! l
 T.   C  !  %C  ! 
 T.   C  !  %C  ! 	
 T.   C  ! 3 %C  ! /
 T.   C  ! t %C  ! p
 T.   C  !  %C  ! 

 T.   C  !  %C  ! 
 T.   C  ! 	7 %C  ! 3
 T.   C  ! 
x %C  ! t
 T.   C  !  %C  ! 
 T.   C  !  %C  ! 
 T.   C  ! 
; %C  ! 7
 T.   C  ! | %C  ! x
 T.   C  !  %C  ! 
 T.   C  !  %C  ! 
 T.   C  ! ? %C  ! ;
 T.   C  !  %C  ! |
 T.   C  !  %C  ! 
 T.   C  !  %C  ! 
 T.   C  ! C %C  ! ?
 T.   C  !  %C  ! 

 T.   C  !  %C  ! 
 T.    %. m} T  
 Datensatz CC 
 Z+ , Vergtunggruppe (Zeile 5) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     j T	 	   T  ! C	 g
 T,    %C  ! f T  
 Datensatz CC 
 Z- , Dienstbezeichnung (Zeile 6) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     	 T, ,   T  ! C, g
 T	    T# C  !  T# C  !  /  %C  ! " y T  
 Datensatz CC 
 Z' , Altersstufe (Zeile 8) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     
 T	 	   T  0 C	 g
 T,      T, ,   T  ! C, g
 T	    %C  ! z T  
 Datensatz CC 
 Z( , Ortszuschlag (Zeile 9) korrigiert von CCC  ! 
 Z  auf 0C
  T  !      T	 	   T  0 	C	 g
 T,     
 T, ,   T  ! 	C, g
 T	    %C	  !  T  
 Datensatz CC 
 Z0 , Allg. Stellenzulage (Zeile 10) korrigiert von CCC	  ! 
 Z  auf 0C
  T  ! 	    ` T	 	   T  0 
C	 g
 T,     L T, ,   T  ! 
C, g
 T	    %C
  ! Hr T  
 Datensatz CC 
 Z  , VWL (Zeile 11) korrigiert von CCC
  ! 
 Z  auf 0C
  T  ! 
     T	 	   T  0 C	 g
 T,      T, ,   T  ! C, g
 T	    %C  ! 
~ T  
 Datensatz CC 
 Z, , Leistungszulage (Zeile 12) korrigiert von CCC  ! 
 Z  auf 0C
  T  !      T	 	   T  0 C	 g
 T,       T, ,   T  ! C, g
 T	    %C  ! x w T  
 Datensatz CC 
 Z% , Zulage 1 (Zeile 13) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     
! T	 	   T  0 
C	 g
 T,     ! T, ,   T  ! 
C, g
 T	    %C
  ! x!w T  
 Datensatz CC 
 Z% , Zulage 2 (Zeile 14) korrigiert von CCC
  ! 
 Z  auf 0C
  T  ! 
    F" T	 	   T  0 C	 g
 T,     7# T, ,   T  ! C, g
 T	    %C  ! x3#w T  
 Datensatz CC 
 Z% , Zulage 3 (Zeile 15) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     # T	 	   T  0 C	 g
 T,     x$ T, ,   T  ! C, g
 T	    %C  ! 
t$ T  
 Datensatz CC 
 Z- , Mehrarbeitsverg. (Zeile 16) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     $ T	 	   T  0 C	 g
 T,     % T, ,   T  ! C, g
 T	    %C  ! % T  
 Datensatz CC 
 Z0 , Str.freier Zuschlag (Zeile 17) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     & T	 	   T  0 C	 g
 T,     & T, ,   T  ! C, g
 T	    %C  ! & T  
 Datensatz CC 
 Z/ , Lfd. Sonderzahlung (Zeile 18) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     G' T	 	   T  0 C	 g
 T,     C( T, ,   T  ! C, g
 T	    %C  ! ?( T  
 Datensatz CC 
 Z0 , Einm. Sonderzahlung (Zeile 19) korrigiert von CCC  ! 
 Z  auf 0C
  T  !      ( T	 	   T  0 C	 g
 T,     !) T, ,   T  ! C, g
 T	    %C  ! 	)~ T  
 Datensatz CC 
 Z, , Sonstige Bezge (Zeile 20) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     ") T	 	   T  0 C	 g
 T,     #) T  ! (   $* T	 	   T  ! C	 g
 T,    %C  ! *w T  
 Datensatz CC 
 Z% , Teilzeit (Zeile 22) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     %+ T, ,   T  ! C, g
 T	    %C  ! +x T  
 Datensatz CC 
 Z& , Teilmonat (Zeile 23) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     &, T	 	   T  0 /C	 g
 T,     '- T	 	   T  ! C	 g
 T,    %C  ! - T  
 Datensatz CC 
 Z- , Steuerfreibetrag (Zeile 24) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     (^- T, ,   T  0 C, g
 T	     )Q. T	 	   T  ! C	 g
 T,    %C  ! M.y T  
 Datensatz CC 
 Z' , Sachbezge (Zeile 25) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     *. T, ,   T  0 C, g
 T	     +/ T	 	   T  ! /C	 g
 T,    %C/  ! /y T  
 Datensatz CC 
 Z' , Sachbezge (Zeile 26) korrigiert von CCC/  ! 
 Z  auf 0C
  T  ! /    ,/ T, ,   T  0 0C, g
 T	     -0 T	 	   T  ! C	 g
 T,    %C  ! '0 T  
 Datensatz CC 
 Z/ , Zusatzversicherung (Zeile 28) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     .1 T, ,   T  0 C, g
 T	     /_1 T	 	   T  0 C	 g
 T,     0U2 T, ,   T  ! C, g
 T	    %C  ! Q2| T  
 Datensatz CC 
 Z* , Zusatzbeitrag (Zeile 42) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     12 T	 	   T  0 C	 g
 T,     23 T, ,   T  ! C, g
 T	    %C  ! x3{ T  
 Datensatz CC 
 Z) , Kostenstelle (Zeile 29) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     34 T	 	   T  ! C	 g
 T,    %C  ! 4y T  
 Datensatz CC 
 Z' , Bekenntnis (Zeile 30) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     45 T, ,   T  ! C, g
 T	    %C  ! {5 T  
 Datensatz CC 
 Z. , Lohnsteuertabelle (Zeile 31) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     5|6 T	 	   T  ! C	 g
 T,    %C  ! x6 T  
 Datensatz CC 
 Z1 , AG-Lohnstr.Ausgleich (Zeile 32) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     6u7 T, ,   T  ! C, g
 T	    %C  ! q7 T  
 Datensatz CC 
 Z- , Altersentlastung (Zeile 33) korrigiert von CCC  ! 
 Z  auf 0C
  T  !     7T8 T	 	   T  ! .C	 g
 T,    %C	 g#P8j T  
 Datensatz CC 
 Z) , Krankenkasse (Zeile 34) korrigiert von 	   auf 0C
  T  ! .    8M9 T, ,   T  ! !C, g
 T	    %C!  ! 6I9 T  
 Datensatz CC 
 Z- , Lohnsteuerklasse (Zeile 35) korrigiert von CCC!  ! 
 Z  auf 0C
  T  ! !    9D: T	 	   T  ! "C	 g
 T,    %C"  ! @:} T  
 Datensatz CC 
 Z+ , Kindergeld/ATZ (Zeile 43) korrigiert von CCC"  ! 
 Z  auf 0C
  T  ! "    :: T, ,   T  0 #C, g
 T	     ;; T	 	   T  ! %C	 g
 T,    %C%  ! ;~ T  
 Datensatz CC 
 Z, , KV-Beitragssatz (Zeile 38) korrigiert von CCC%  ! 
 Z  auf 0C
  T  ! %    <; T, ,   T  0 &C, g
 T	     =< T	 	   T  ! #C	 g
 T,    %C#  ! < T  
 Datensatz CC 
 Z1 , Solidarittszuschlag (Zeile 36) korrigiert von CCC#  ! 
 Z  auf 0C
  T  ! #    >= T, ,   T  0 $C, g
 T	     ?> T	 	   T  ! $C	 g
 T,    %C$  ! >| T  
 Datensatz CC 
 Z* , Kirchensteuer (Zeile 37) korrigiert von CCC$  ! 
 Z  auf 0C
  T  ! $    @O> T, ,   T  0 %C, g
 T	     AJ? T	 	   T  ! &C	 g
 T,    %C&  ! F? T  
 Datensatz CC 
 Z/ , Pflegeversicherung (Zeile 39) korrigiert von CCC&  ! 
 Z  auf 0C
  T  ! &    B? T, ,   T  0 'C, g
 T	     C@ T	 	   T  ! 'C	 g
 T,    %C'  ! 
@ T  
 Datensatz CC 
 Z/ , Rentenversicherung (Zeile 40) korrigiert von CCC'  ! 
 Z  auf 0C
  T  ! '    D@ T, ,   T  0 (C, g
 T	     EA T	 	   T  ! (C	 g
 T,    %C(  ! A T  
 Datensatz CC 
 Z5 , Arbeitslosenversicherung (Zeile 41) korrigiert von CCC(  ! 
 Z  auf 0C
  T  ! (    FB T, ,   T  0 )C, g
 T	     GC T	 	   T  ! )C	 g
 T,    %C)  ! C| T  
 Datensatz CC 
 Z* , ATV-AN-Anteil (Zeile 42) korrigiert von CCC)  ! 
 Z  auf 0C
  T  ! )    H\C T, ,   T  0 *C, g
 T	     IPD T	 	   T  ! *C	 g
 T,    %C*  ! LDz T  
 Datensatz CC 
 Z( , Einbehalt 1 (Zeile 44) korrigiert von CCC*  ! 
 Z  auf 0C
  T  ! *    JD T, ,   T  0 +C, g
 T	     KE T	 	   T  ! +C	 g
 T,    %C+  ! Ez T  
 Datensatz CC 
 Z( , Einbehalt 2 (Zeile 45) korrigiert von CCC+  ! 
 Z  auf 0C
  T  ! +    LE T, ,   T  0 ,C, g
 T	     MF T	 	   T  ! ,C	 g
 T,    %C,  ! Fz T  
 Datensatz CC 
 Z( , Einbehalt 3 (Zeile 46) korrigiert von CCC,  ! 
 Z  auf 0C
  T  ! ,    NG T, ,   T  0 -C, g
 T	     OH T	 	   T  ! -C	 g
 T,    %C-  ! Gy T  
 Datensatz CC 
 Z' , Auszahlung (Zeile 47) korrigiert von CCC-  ! 
 Z  auf 0C
  T  ! -    PPH T, ,   T  0 C, g
 T	     QH T	 	   T  0 C	 g
 T,     RH T, ,   T  0 C, g
 T	     S7I T	 	   T  0 C	 g
 T,        !  % abI !   C #117
  T 1   
 T   *  2  T#     T C# 
 T3   T   C3  4  $  %C > 0J C    x  U5  ZT0 BEDIENST MSG3	 MYTABLETT ZEILE3 VISIBLE TRUE MYFORM1 FALSE MSG EIGDAT TEXT15 TEXT MYCLOSE MYOPEN MYGET
 IMPORTFILE	 IMPODATEI INDEX2 LOF ZEILE6
 FILENEUALT FILENEU
 TDBNUMBER1 VALUE
 GRUNDSTELLUNG WNW PERSONALFALL MYPUT INDEX1 MSGLEN EXITFOR WVW ZNAM I ZI	 NEUERNAME
 FOLGEMONAT CAPTION REFRESH GLEICHERSATZ
 SATZANZAHL	 NEUERSATZ MSG2 MSG1 BDA SZTEILER STUFENANZAHLERMITTELN TNAM ZEILE7 NAMENINCOMBO SPIN1 ATZRCKn
 T     T    T   (     T   T 
 T    T   T	  Hilfe T
   T  T
  
  T       T   T 
   T    T   T	 	 Schlieen T
   T  T
  
  T      < T        ? T 
 T    T   T  T
   T ' T	  Import von Personalfllen T       T   T 
 T   T    T	  Importdatei suchen T 
 T
  
  T      b T   T 
 T   T   T  T	  Datensatzaufbau T       T   T 
 T   T   T  T	  Importieren nach T      { T   T 
 T   T   T # T	  Einfgen ab Datensatz T       T   T   T   T   T  T
  
  T    T       T   T   T  - C HIS ab 2007 (mit TVD und TV-L)  T   
 H
    T   INFO   T   PLAN  
 T   REAL     T   T   T   T  ?  T	         T  T
 C   T  T!  T     " a T   T   T   T  ? T  T  T     # 	 T   T   T   T   T	  Importieren T  T   T
  
  T$ %    &  T   T   T   T   T , T	  Einstellung im Hauptbildschirm T     ' +	 T   T   T   T   T  T	    T %    ( 	 T   T   T   T   T  T	  Fertig T %    ) T
 T   T   T   T   T - T	  Import.dat (Aufbau siehe unten) T    T  *  U+  K	 MYTABLETT WIDTH J HEIGHT I
 SSCOMMAND1 TOP LEFT CAPTION FONTBOLD TRUE FONTSIZE	 BACKCOLOR VISIBLE
 SSCOMMAND2 ZEILE0	 ALIGNMENT
 SSCOMMAND3 ZEILE2 ZEILE3 ZEILE4 TEXT15 VALUE COMBO0 ADDITEM MODUS MSG ZEILE9 WELCHESJAHRC MUSER	 BACKSTYLE QBCOLOR BORDERSTYLE
 TDBNUMBER1
 SSCOMMAND4 ENABLED FALSE ZEILE10 ZEILE6 ZEILE7 ZEILE8	 LISTINDEXX  T  C %C    B M  T      T      B U  HSXX	 MYTABLETT TEXT15 VALUE
 SSCOMMAND4 ENABLED TRUEo T  C W
 T   T    \Backup1% If Directory("&hsxdir") = .F.m T    \Backup1 Mkdir "&hsxdir"
9 T    \Backup1\gehaltC \ dim_1+ CREATE dbf "&hsxdat" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup1\gehaltC \	 dim_1.dbf; T	    \Backup1\gehaltC \ dim.dbf$ RENAME "&hsxren1" TO "&hsxren2" 
= T    \Backup1\gehaltC \	 dim_1.fpt; T	    \Backup1\gehaltC \ dim.fpt$ RENAME "&hsxren1" TO "&hsxren2" 
  T    \Backup2% If Directory("&hsxdir") = .F. T    \Backup2 Mkdir "&hsxdir"
9 T    \Backup2\gehaltC \ dim_1+ CREATE dbf "&hsxdat" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup2\gehaltC \	 dim_1.dbf; T	    \Backup2\gehaltC \ dim.dbf$ RENAME "&hsxren1" TO "&hsxren2" 
= T    \Backup2\gehaltC \	 dim_1.fpt; T	    \Backup2\gehaltC \ dim.fpt$ RENAME "&hsxren1" TO "&hsxren2" 
  T    \Backup3% If Directory("&hsxdir") = .F. T    \Backup3 Mkdir "&hsxdir"
9 T    \Backup3\gehaltC \ dim_1+ CREATE dbf "&hsxdat" free (memofeld M) 
( T  gehaltC \ dim_1 SELECT &hsdimdatei 
 Q= T    \Backup3\gehaltC \	 dim_1.dbf; T	    \Backup3\gehaltC \ dim.dbf$ RENAME "&hsxren1" TO "&hsxren2" 
= T    \Backup3\gehaltC \	 dim_1.fpt; T	    \Backup3\gehaltC \ dim.fpt$ RENAME "&hsxren1" TO "&hsxren2" 
 ; T    \Backup1\gehaltC \ dim.dbf %C  
  } T   ; T    \Backup2\gehaltC \ dim.dbf %C  
   T   ; T    \Backup3\gehaltC \ dim.dbf %C  
  I T   
 F   T    U
 	 OLDSELECT SAAR HSXDIR EIGDAT MUSER HSXDAT XJAHR4
 HSDIMDATEI HSXREN1 HSXREN2 FILELEN2 REGISTER LADEN?  T  C  %C  !  B  T      B U  HSXX MYGETDIR	 MYTABLETT TEXT15 VALUE
    T        (  T CC  Z .Label&lll..Left = j
 .Label&lll..Visible = True
   (  T CC  Z .Label&lll..Left = j - 24
 .Label&lll..Visible = True
  T    T  	  T
     T     T
     T
  	  T  	  T
  	   U 	 MYTABLETT J TEXT1 LEFT WIDTH I LLL
 SONDERZEICHEN VISIBLE TRUE EINGABE1 LABEL0 EINGABE2 EINGABE3 
       (Z  T CC  Z .Label&lll..Visible = False
  T    T    T    T     U	 	 MYTABLETT I LLL EINGABE1 VISIBLE FALSE EINGABE2 EINGABE3
 SONDERZEICHEN administratorunsichtbar,     
 Dynamisierung	     Dynamisierungberechnen.     Dynamisierungdrucken3     mehralsfnf;    
 datumchecko=     ExportHISformat?    	 ExportHIS?     hisexportdatei?     hisimportdateitvoed?    	 ImportHIS?     importnormal?     pauschalkirchensteuer?     pauschanlegen2022?     pauschanlegen2023'G     pauschanlegen2024yN     pauschanlegen2025U     pauschanlegen2026]     pauschanlegen2027od     zvkzeilenstatusk     SVGrundstellungp     hisimportdateiu     Import     importdateisuchen     sitzungswiederherstellungz     exportdateibestimmen^    
 adminsichtbar     adminunsichtbar    3  qqA A 3     r      q       A        A        A  a     A       A       A       A aA A     A  Q     A aA A     A  a A   Q A A   A A R! rq!br1!2q1qb!1QB AqQ!ArQ!A Q  1BA C   1BB B A  ARB A A q       A A A B AA8    qqQ A B q A A q1AB qA  Q A A A rqA q A A A A A 3 1 tq A R A B Qqqqqq qA AA A A A RA  q Q A r Q !  A     2         A r q A r A  64 A3   A A  A A  A A   A A  A A   A A A Q A A A A 4 	1  
1 1 ?1 p1 
1 (1   A 4   A 4   A 4   A 4   A 4   A 4  QT1qqCa1q
A R1A R2A11 1AA C112    AA2 QQA Q2A21 1AA r B A 3  q1A              RAAAAAABAAAAAArqA A        CAAAAARA AA rqA A rAAA  B 3      1 1!aA A  aA A 1 1r rr  r  AD A A   A A! A qr q   A  q q        A   A 2   1 A   !  A  A  !A  A " aA !1q  qA A B  ! aA ! aA ! 1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1aA  aA !QaA     A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A B aA ! aA ! r aA ! ! aA ! ! !aA ! ! !aA ! ! aA ! ! qaA ! ! qaA ! ! qaA ! ! aA ! ! !aA ! ! aA ! ! !aA ! ! aA ! b! qaA ! aA ! ! aA ! ! aA ! ! aA ! ! aA ! ! ! aA ! ! aA ! aA ! aA ! 1aA ! aA ! 1aA ! aA ! aA ! ! aA ! ! 1aA ! ! aA ! ! aA ! ! aA ! ! qaA ! ! aA ! ! aA ! ! aA ! ! aA ! ! aA ! ! ! ! E A A A A A  A A A 2 s q Q Qr q 7!A ; CA  ! 1   A  a! q   A       q A !     A !     A !     A !    1 A !!!!   A !!  A  !!!A !!  !   A !!    A !!     A !a    A !a     A !a   A A !a    A 14   A  11A A 1   Q1qA AAD Q1qB AAD Q1qB AAE aA aA aA   q 5   A A 1A 1  qqA qqA ^QQA 3  qqA A 2                    B           .  &A       UA  WH      H  T    m  #U  V  T  o  W  Z  X    Z  dj      j  |       |  ޗ      
  p. c    .  W \	    EW g     g ~      N @    x #   6  M      "  6           w   Z   
 ,    
  |    E      ы 
 Z    7  $    ՞  V    L       .   
	  V >   
   %   p      S{    q  \X
    U    B U    U  
    T   B T  C   T  C  T    T 	   
 ( T CC
  Z T 
  .bru&xxx..Caption = "x"
 .bru&xxx..FontBold = False
$ .bru&xxx..ForeColor = QBColor(0)
 T	   %C
 $ %C
 
 C
  T   T   - T   T   -  > T   T   - T   T   - T   T   - T   T   - 
 HOq C
  k   C
  T   T   T   T   CC
  T
   C
 q T   T   T @KL  T @KL  $ %C#
  C#
 	 T
 # 
 T
 "   T #  T #    U  MYFORM1
 SSCOMMAND2 CAPTION	 FORECOLOR QBCOLOR	 BACKCOLOR	 FARBENRGB FONTBOLD FALSE MOUSEPOINTER I XXX BRUZ ZI BRU15 BRU16 BRU18 BRU19	 MONAT3031 BETRAG WERT	 DEMFARBIGZ  %C  
  S ! T CC   CC    T CC     U  ZI ZVKUMLAGEAG	 ATVUMLAGE ATVUMLAGEAN ZVKHALB/    (< % T   C     % n  T C      (3 %C     T   '   T    ( %C  C   	/ T      
 HD C 
}$ T C % C  C 	 %C   T C   T    C  %C X T   T    %C   T C    %C 
I
 HE% C 
 C 	E %C  $ T C 	  A  T C      T C  %C  T     %C    (
 H C   
%, T   C   - C    C   	z( T   C    C    T     T        %C    (
 H C   
W, T   C   @ C    C   		 C   ( T   C    CC   
 T        %C 
7 T C
  
 T      (! T CC  

G T      %    	0 T  CC  
  T    
  %  H0 T  CC  
  T    
 |, T  CC  
        (J
 HF# CC    	( T   C   2 CC   
F T          (O	
 HrK	  CC    ( T   C     CC   	( T   C   , CC   	
K	 T       %C 
	 %C 
	        (

 H	
  CC    	( T   C     CC   @
( T   C   , CC   	

 T          (S
 H
O) CC    	( T   C   , CC   
O T          (

 H{
@ C     C   	 C   ( T 	  C   @ C    C   	 C   
K( T 	  C   # CC   	 T 	    C   
 %C  T 	     %C 
( T 	  C       %C 
x
 %C 
T
     T 	C      (a
 H
]@ C     C   	 C   ( T 
  C   @ C    C   	 C   
p( T 
  C   # CC   	 T 
    C   ] %C  T 
     %C Y( T 	  C    T 
        (	(
 H$(      		$ T       ( ; T  C  C        U  J SICHT TEILZAHL NETTOJA WERT BRUZ ZI TEIZ TRUE BRUCHTEILFAKTOR	 BRUCHZAHL I HS_REST FIX ZUWENDUNG_ATZVOLL7  %C       B   atzA B U  ZI ALTTZG ATZA  T    T   %C m  T  @KL  T @KL    T     T C    U  BETRAG WERT ZI ATZTEILw
   i
 H  C $ %C  C  T  C  T  C  T   A T    T 	 c 
 ( T CC
  Z T 
   .bru&xxx..Caption = "A"
 .bru&xxx..FontBold = True

 H7' C
 

f .bru&xxx..ToolTipText = " Anklicken und die Kategorie fr den Altersteilzeitzuschlag einstellen. "
 C
 	   T
  C   T  C   T  C   T  C   T  C   T
 	  T 	  T 	  T 	  T 	  T  T   f T  T   f T  T   a T  C  T  C  T  C  T  C  T  C  T  C  T  C   C 
 T C    T   $ %C  C 6 T #
 T
 " ^ T #	
 T
 "       U  MYFORM1 ZI
 SSCOMMAND2	 BACKCOLOR QBCOLOR	 FORECOLOR CAPTION FONTBOLD TRUE MOUSEPOINTER I XXX BRUZ BRU7 BRU8 BRU9 BRU10 BRU17 BRU15 BRU16 BRU19 BRU11 BRU12 BRU13 BRU14 J ATZRCK DEMNICHTFARBIG ALTERUEBERTRAG  U    B U  " %    T C;  T C<  T ;  T < 
 T   
 T   T   T   T   T   T   T    (
b% T  C    T C ' %   C   	 T    T 
C / %   C	 	 C	 
	0 T C
  Q T    T 
  T   T    (( T  C   / %   C	 	 C	 
	 3 T    T 
  T  $ T C  $ %   C 2	 T   $ T 
C   T    (
Q/ T C C   
 T
  T C  T C  T   T 
  T   T   T  
 T  
 T
  
 T   %     (| T      T   d  T C   T C  T  C
 
 T 
 T 
 T  
 T 
 T    
 T 
 T     T  c %   T  c , T C )\(? + T C  {Gz? c' %C%	 
 C  
	o! %C C! cdk" T C! cd   %C" 
 T    %C	 %  ( T      (m
 C   $  wvw#  %C% &  _+ T C C% '   %C% &  + T 	C	 C	% '   %C	% &  + T 
C
 C
% '   T   %C% &  M	+ T C C% '   %C% &  	+ T 
C
 C
% '   %C
% &  	+ T C C% '   %C% &  "
+ T C C% '   %C% &  i
+ T C C% '     (	
 %C  (  
1 T  C  C       (9 %C  (  51 T  C  C       (/ T C C   
 T
  T C C 
 T 
 T 
 T  
 T 
 T     T  c %  @ T  c t, T C )\(? * T C  {Gz? c %C" 
 T    T  C 
 T 
 T 
 T  
 T 
 T     T  c %  q
 T  c 
, T C )\(? . T CC  {Gz? ) c %C" 
  T   6 T C C C 6 T C C C 6 T C C C ' %C%	 
 C  
	! %C C! cd" T C! cd  
 T
    (o/ T C C   + T C C / %C	 	   	  *  	 T + d %C 
 T     %   T ;C  T <C  T C; C<   T C  T C  T C  T
 C  T C / T C C d$ %C		   C		 
	
 HV C	  / T C dC  C	 - T C C,  T d C	 P- T C C,  T d C	 / T C C d   %C- / T C dC    T C    T. C   (
; T  C  C  d  T 
  %C	 
 /    %0   C	 
	 T. C 1  0 %C	 	   	 C	 	E T   j T C.  B %   C	 	 C	 
	 C   	 T    T 
C.  %C	  ! T C2  $ %C	  C	 	 %C3  ~! T 
C2    %C	  T 
C2  ( T C d4  T5 CC ddG %5 1;) T CC   g$ T CC     (
T! T5 CC  ddG %5 15 T  CC   d !0 T  CC   d / T C C   
 He C%	   T6 {Gz? C%	  T6 
ףp=
? C%	 
 T6  
 T   C%	 
 T6  
 T    T C d %C
 d7 k T  C
 d   
 T  
 T
  T C  8 
 T 
 T 
 T  
 T 
 T     T  cd T  cd* T CC  6  ) cd %C	  %   %C%	  T      %C	  T   ' %C%	 
 C  
	W! %C C! cdS" T C! cd   %C	 !  ( T      (( C   $  wvw#  %C% &  + T C C% 9   %C% &  a+ T 	C	 C	% 9   %C	% &  + T 
C
 C
% 9   T   %C% &  + T C C% 9   %C% &  O+ T 
C
 C
% 9   %C
% &  + T C C% 9   %C% &  + T C C% 9   %C% &  $+ T C C% 9     (	 %C  (  1 T  C  C  .     ( %C  (  1 T  C  C  .     (;, T C C     T C C 
 T
 
 T  
 T 
 T 
 T  
 T 
 T     T  c T  c& T CC  6  ) c T  C
 d
 T  
 T 
 T 
 T  
 T 
 T     T  c T  c& T CC  6  ) c; T C C C d; T C C C d; T C C C d' %C%	 
 C  
	!! %C C! cd !" T C! cd  
 T
   %C" 
B! T     (!/ T C C   + T C C / T C dC  %C  
" T    %C  b"+ T C C  "  T C   %C	 "$ T C   T #C d U:  WELCHESJAHR SICHT WERT PKPV ATZFLOP I TEILZAHL AOK_VERSION TRUE ZI LZZ INTERIM LZZFREIB LZZHINZU ZKF WNW	 ZATZNETTO RE4 KRV PKV PVS PVZ PVA	 MYPVKIANZ STEUERKLASSEHOLEN R ALTER1 STEUER LSTLZZ ATZSOLI SOLZLZZ FIX BK KIMIN	 ATZKIRCHE MYGET FILENEU WVW LST TNAM LSTZ CLNG ATZALT ATZNETTO GRUNDBETRAG BRUZ	 BRUCHZAHL ATZSONDERZAHLUNG WERTEINMAL17 BRUCHTEILFAKTOR BETRAG TEIZ ALTERSPROZENTB HS_REST	 KISTRSATZ	 EINMAL300
 AJAHRHOLEN EFFZO	! T   C ! T   C ! T   C ! T   C  ! T   C ! T   C ! T   C ! T   C 
 Hb>     	      	! T   &C ! T   C"   ! T   &C   b %C	  P 5! T   &C ! T   C"  ^! T   &C    %  T *    (- T    C   
 HH	>     	       T    C   C   C   C   C   C   C   C   C   C &     T    C   C   C   C   C   C   C   C   C &   %C    %C   P   T   P  1 T    CC    " CvC     MNET 
 HA CC3	  0 T    C
  ffffff? C3	 0 T    C
  ffffff? C3	 0 T    C
  ffffff? C3	 Y0 T    C
  ffffff? C3	 0 T    C
  ffffff?   T        H	 T    C   C   C   C   C   C   C   C   C &   %C   	1 T    CC    # CwC     MNET2 
 H	 CC3	  7$ T    C 
  C3	 p$ T    C 
  C3	 $ T    C 
  C3	 $ T    C 
  C3	 	$ T    C 
   D	 T        U  SICHT ATZFLOP INTERIM VBLZ LSTRZ SOZVERSZ J FIX MYGET ZI MNET MNE MNET2 MNE2# C #118   C #119  & C  \Texte\MNETv MNET ( C  \Texte\MNET2w MNET2 
 T  
 T   (	    (# ! T       	 
 T   (6* T
  C     T
 C   T
 C  T
 C C0    
       
 T   (* T
  C     T
 C   T
 C  T
 C C0    
        T 	C&  %C& z
 %CC& G T &C&    T &2  T 
C' 
 H" C' J T '  C' r T ' C'  T '   T C(  %C(   T (   T C  T BC  T C  T C 
 T   (* T
  C     T
 C   T
 C C0     ! T  C
 ! T  C ! T  C 
 ! T  C ! T  C ! T  C  T   1 T  C C C ( T  C  4 T  !C  ?! T  &C
 
 T   (* T
  C     T
 C   T
 C C0     ! T  C
 ! T  C ! T  C 
 ! T  C ! T  C ! T  C  T   1 T  C C C ! T  &C
 ( T  C   %C  4 T  !C  (\? 4 T  !C  ? 
 T   (<	* T
  C     T
 C   T
 C  T
 C C0    
      T
 *   
 T 	  (
* T
  C     T
 C   T
 C  T
 C C0    
       
 T   (
* T
  C     T
 C   T
   T
 C C0  T
 C       4 T  "C   ffffff?
 T   (* T
  C     T
 C   T
   T
 C C0  T
 /C
  T
     T
 C/
    T C   T    
  T      T   4 T  "C   ffffff?! T CC " ddG % 1~
0 T  "CC "   
, T  "CC "   0 T  #C " F ! T CC # ddG % 1H0 T  #CC #   |, T  #CC #     T !C! 6 T "C" C  C!  %C"  
 T "  6 T $C  C! C"   T !C!   T 
!C! 4 T 	#C	  (\? d T CC	# ddG % 1( T 	#CC	#   7$ T 	#CC	#   6 T 
#C	# C! C
   %C
#  
 T 
#   %C  * %C
  C
! C	  6 T 
#C	  C
  C
!   6 T 
$C
  C
! C
#  %C  T #    T #C
#   %C   T "C" 6 T $C  C! C"  \6 T $C  C! C#  + T C! C#  T CC 

G % ( T CC   
$ T CC      (
E T      
(/ T C C  / T C C    %C  
 T   T   $ T C d/ T 
C dC $ %C
 C  d% T 
C  d , T 
C
 ? T CC
 'dG % 1<1 T 
CC
 d d p, T 
CC
 d d 0 T C C d  T 
C + T 
C
 C
 / T C dC $ %C C  dg% T C  d  %C  $ T C d , T C ? T CC 'dG % 171 T CC d d k, T CC d d 0 T C C d, %C C  ;On?- T C  ;On? + T C C  T   T   T 	  T   %C    (C F C     wvw  %C   B, T C C  + T C C !      (C / T C C " #   ; C   wvw  %C   7 T   T   T   T     T  : T C dC C 1 T C C  d, T C ?: T C dC
 C
 $ T C d, T C ?+ T C C  %C  
 T   + T C C  %C  
5 T    %C C x  T 	C    T 	C    T C   T C : T C dC C + T C C  %C C   T C    T C   %C  
 T   + T C C - T 	CC $ T T CC 
G % 11 T CC d d , T CC d d   T C!  T CC ddG % 1T- T CC  d ( T CC  d % T CC T  T C"  T CC ddG % 1( - T CC  d X ( T CC  d ; T 	CC	 C C T0 T 
CC
 C	 T %C C	 !  T C	  1 T 
CC
 $ dT& T BCB C
 d T% CB @ T" # C C C C d T &C	  T 'C
  T (C   (:"& T
  C    T C  T C  T BC  T C  T  C  T
 C  T C  T& #C  %C# 

7# T #C  
 T      
   & T C% C
 d %C 
# '  # T( ) *   C 118   U+  MYCLOSE MYOPEN EIGDAT WELCHESJAHROLD WELCHESJAHR ATZFLOP I J SICHT ALTERRECHNENBRUTTO INTERIM WERT
 VBLZAHLEN2008 STEUERBERECHNEN
 SOZVERSZAHLEN AN_ZVK ALTERRECHNENNETTO	 ATZTRESOR ZI LSTRZ SOZVERSZ VBLZ ZI31FIX HS_REST FIX ALTERSPROZENTA	 EINMAL300 RVGRENZE	 ALTESLAND MYGET FILENEU WVW ZNAM EFFZ WNW ATZAAA RVOREIN EFFZAHL BETRAG ZVKUMLAGESATZENTWICKELN ZVKUMLAGEAG	 ZVKUMLAGE ZVKHALB AltTZG,      atzgrid7      atzrck>      zvkumlagesatzentwickeln     alterrechnenbrutto|     altersteilzeita(     alteruebertragu     altereinstellenA     atzsatz     altersteilzeitb    
 alterrechnenb     alterrechnennettoA     alterrechnenganz:K    4 C 21 `1  !RQrq1A A RA1!1!A  1!1!1!1!A  Qq Qaaaa1QaaaaA B1 q 11A B 3 R QA 3 tQA A s A A A  QAQQ A QQA QA A ] QQA A A  QA B Rr A A A Rr A A A SA  q  A A A s 1!A A s A A RQq A A s A A s A A s 1QA RA A A RQq A A s 1QA RA A A r qA A A 3 Rq A A  A p91 gaRba qA 4   QARQ!rq1 qaB A RQQQQ1!1!1!TRRRQRRA Qq 1A D1  1 A r B r 5 01 B %1 "11 A  rQA qA  A sA  A AAA BtA  11   AqA A A     r   s  A r!A B A RrA qA A A A A A A A B qaA B qaA B sA       s  A A S     r  A A daar!A B  A rA A A %A AAAC QQQQA  Q A A rA Rq A A  A !A QA CQA A RA  AA rQ A A  QQQQQ  Q  A A r   r      t Q"QA A A RA r!A A VrA rA A A A A A A A B raA A raA A rA        s a      s ar!A A  A A rA A  A RAA 5   A A 1A rA  

A " QQQQA  A 
1 AQAQAQAQAA  A A 3 a  rqA A r  rA qr s s q q  qA qr q q q q rQA  1A r Q1Q1Q1A rR1A rqqq rA r q A rA r q RB AA  rA qr q q q 2r  rA qr r q q q  rA 1qr q x C rA 1q1r rr 1s 3s B A  A aA bA AA cA RaA A bR A Ra aA  BA uA rA A BBQA  A BRA AA  A A RB A A  qA A BA A  A  A A  A  A Q A A bqsqqraA qqRA  r q q q cRq  A 5                    /   N        O  ]m  2     m  es  y  >   s  fu    D   u  Њ         ?      f    [	        p	  K    / 	  M  Y p> 
  P  > r     Ar    :   X g  0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4GR0NX4H11467054932      /  F      ]                      `      i                       WINDOWS _4GR0NX4H21500479794r      ~                                                               WINDOWS _4GR0NX4H11467054932^+      k+  x+  +  +                                                           WINDOWS _4GR0NX4H11467054932,      ,  +,  9,  F,                                                           WINDOWS _4GR0NX4H11467054932,      ,  ,  ,  ,                                                           WINDOWS _4GR0NX4H11467054932y-      -  -  -  -                                                           WINDOWS _4GR0NX4H11467054932-.      :.  G.  U.  b.                                                           WINDOWS _4GR0NX4H11467054932.      .  .  	/  /                                                           WINDOWS _4GR0NX4H11467054932/      /  /  /  /                                                           WINDOWS _4GR0NX4H11467054932I0      V0  c0  q0  ~0                                                           WINDOWS _4GR0NX4H114670549320      
1  1  %1  21                                                           WINDOWS _4GR0NX4H114670549321      1  1  1  1                                                           WINDOWS _4GR0NX4H11467054932g2      t2  2  2  2                                                           WINDOWS _6RE0WZ76F14670549323      *3  73  F3  S3                                                           WINDOWS _5ZF10UBQO13810753073      3  3  3  	4                                                           WINDOWS _4GR0NX4H314670549324      4  4  4  4      t5  9                                               WINDOWS _4GR0NX4H41467054932>      ->  B>  R>  _>      ?  ?                                               WINDOWS _4GR0NX4H51467054932l@      @  @  @  @      UA  J                                               WINDOWS _4GR0NX4H61467054932N      N  N  N  O      O  P                                               WINDOWS _4GR0NX4H71467054932Q      R  R  ,R  9R      R  S                                               WINDOWS _4GR0NX4H81467054932T      T  T  T  T      U  U                                               WINDOWS _4GR0NX4H91467054932V      W  W  -W  :W      W  X                                               WINDOWS _4GR0NX4H114670549325Z      JZ  _Z  mZ  zZ      Z  '^                                               WINDOWS _4GR0NX4H21467054932a      a  a  a  a      Yb  e                                               WINDOWS _4GR0NX4H31467054932i      i  2i  @i  Mi      i  l                                               WINDOWS _4GR0NX4H41467054932Pp      ep  zp  p  p      p  .t                                               WINDOWS _4GR0NX4H11500479794w      w  w  w  w      ;x  w{                                               WINDOWS _4GR0NX4H21467054932~      ~      )                                                       WINDOWS _4GR0NX4H31467054932.      C  X  f  s      ͆  
                                               WINDOWS _4GR0NX4H41467054932x                    Z                                               WINDOWS _4GR0OABBM1467054932ʔ      ߔ            j                                                 WINDOWS _4GR0OABBN1467054932!      6  K  Z  g                                                       WINDOWS _4GR0OABBO1467054932t                    W                                               WINDOWS _4GR0NX4H11467054932ɪ      ު            j                                                 WINDOWS _4GR0OABBP1467054932      3  H  W  d      ֲ                                                 WINDOWS _4GR0NX4H11381075307                                                                       WINDOWS _4GR0NX4H11399545619W      d  q                                                               WINDOWS _4GR0NX4H11399545619                                                                       WINDOWS _4GR0NX4H11399545619t                                                                       WINDOWS _4GR0NX4H11381075307        !  /  <                                                           WINDOWS _4GR0NX4H21381075307ݸ                                                                       WINDOWS _4GR0U4WGB1381075307        ͹  ۹                                                             WINDOWS _4GR0NX4H11381075307                                                                       WINDOWS _4GR0U4WGC1381075307_      l  y                                                               WINDOWS _4GR0NX4H11467054932B      Q  `  m  z        0                                               WINDOWS _4GR0NX4H11381075449ƿ      ӿ                                                                 WINDOWS _4GR0NX4H31467054932z                  D  h                                               WINDOWS _4GR0NX4H41381075449          '  4                                                           WINDOWS _4GR0VSS431467054932                  |                                                 WINDOWS _4GR0VSS4413810754496      C  P  _  l                                                           WINDOWS _4GR0VSS451467054932            "                                                       WINDOWS _4GR0NX4H11381075449n      {                                                                 WINDOWS _4X30WKQR31381194609"  2  R  a  n  {                                                           WINDOWS _4GR0NX4H11381075449
        $  3  @                                                           WINDOWS _5ZD10LEE71381075449                                                                       WINDOWS _5ZE0V6QPW1381075449`      m  z                                                               WINDOWS _4GR0NX4H21381075449
        $  3  @                                                           WINDOWS _5SM0O72IO1381075449                                                                       WINDOWS _5SM0O72IP1381075449a      n  {                                                               WINDOWS _5SM0O72IQ1381075449        )  8  E                                                           WINDOWS _5SM0RRQNH1467054932            	        J                                               WINDOWS _5SM0T0LTC1467054932        &  :  G                                                       WINDOWS _5T70POVY61467054932                  @                                                 WINDOWS _5ZD0O6GHY1381075307                                                                       WINDOWS _4GR0NX4H11381136666                                                                       WINDOWS _4GR0NX4H11381136899t                                                                       WINDOWS _5ZD10LEEM1381136666u                                                                       WINDOWS _4GR0NX4H11381075307                                                                       WINDOWS _4GR0NX4H21380944013                                                                       WINDOWS _4GR0NX4H31381073218	        '  4  X                                                           WINDOWS _4GR0NX4H41380944013            6                                                           WINDOWS _4GR0NX4H51381073218g      v                                                                 WINDOWS _4GR0NX4H61380944013E      S  a  p                                                             WINDOWS _4GR0NX4H71467054932                    J                                               WINDOWS _4GR0NX4H81380944013        -  <  `                                                           WINDOWS _4GR0NX4H91467054932                                                                  WINDOWS _4GR0NX4H11380944013                                                                  WINDOWS _4GR0NX4H21381073218?     N ] j                                                           WINDOWS _4GR0NX4H31380944013
     +
 9
 H
 l
                                                          WINDOWS _4GR0NX4H41467054932
     
 
 
 
                                                     WINDOWS _4GR0NX4H11380944013        6                                                          WINDOWS _4GR0NX4H21467054932b     q        l W                                              WINDOWS _4GR0NX4H31380944013$     $ $ $ $                                                          WINDOWS _4GR0NX4H41381073218%     $% 3% @% d%                                                          WINDOWS _4GR0OABBM1380944013%     & & & B&                                                          WINDOWS _4GR0OABBN1467054932n&     }& & & &     x' *                                              WINDOWS _4GR0OABBO1380944013.     . . . 
/                                                          WINDOWS _4GR0NX4H114670549329/     H/ W/ d/ /     D0 .7                                              WINDOWS _4GR0OABBP1380944013o=     }= = = =                                                          WINDOWS _4GR0NX4H11381073218=     = > > =>                                                          WINDOWS _4GR0NX4H11380944013>     > > > ?                                                          WINDOWS _4GR0NX4H11467054932H?     W? f? s? ?     S@ C                                              WINDOWS _4GR0NX4H11380944013G     G G G G                                                          WINDOWS _4GR0NX4H11467054932H     #H 2H ?H dH     I P                                              WINDOWS _4GR0NX4H11380944013W     W W X ,X                                                          WINDOWS _4GR0NX4H11381073218ZX     iX xX X X                                                          WINDOWS _4GR0NX4H213809440139Y     GY UY dY Y                                                          WINDOWS _4GR0NX4H31381125518Y     Y Y Y Z                                                          WINDOWS _4GR0NX4H41380944013Z     Z Z Z ![                                                          WINDOWS _4GR0U4WG21381125518P[     _[ n[ {[ [                                                          WINDOWS _4GR0U4WG31380944013t\     \ \ \ \                                                          WINDOWS _4GR0U4WG41381125518\     ] ]  ] E]                                                          WINDOWS _5ZE0XYQJ11381075307^     ^ *^ <^ I^                                                          WINDOWS _5SM0OVXFH1381075449^     _ _ _ +_                                                          WINDOWS _5SM0OVXFI1381075449_     _ _ _ _                                                          WINDOWS _4GR0NX4H11381075449M`     Z` g` v` `                                                          WINDOWS _5ZD10LEE71381075449`     a a  a -a                                                          WINDOWS _5ZE0V6QPW1381075449a     a a a a                                                          WINDOWS _4GR0NX4H21381075449Mb     Zb gb vb b                                                          WINDOWS _5SM0OVXFH1381075449b     c c "c /c                                                          WINDOWS _5SM0OVXFI1381075449c     c c c c                                                          WINDOWS _4GR0NX4H11381075449Qd     ^d kd zd d                                                          WINDOWS _5ZD10LEE71381075449d     e e $e 1e                                                          WINDOWS _5ZE0V6QPW1381075449e     e e e e                                                          WINDOWS _4GR0NX4H21381075449Qf     ^f kf zf f                                                          WINDOWS _5SM0OVXFH1381075449f     
g g &g 3g                                                          WINDOWS _5SM0OVXFI1381075449g     g g g g                                                          WINDOWS _5ZF10O5R81381075449Uh     bh oh ~h h                                                          WINDOWS _5ZF10O5R91381075449h     i i (i 5i                                                          WINDOWS _5ZF10O5RA1381075449i     i i i i                                                          WINDOWS _5ZF10O5RB1381075449Uj     bj oj ~j j                                                          WINDOWS _5ZF10O5RC1381075449k     k k *k 7k                                                          WINDOWS _5ZF10O5RD1381075449k     k k k k                                                          WINDOWS _5ZF10O5RE1399545619Yl     fl sl l l                                                          WINDOWS _5ZG0LIWOQ1399545619l     l 
m !m .m                                                          WINDOWS _4GR0NX4H11399545619m     m m m m                                                          WINDOWS _5ZD10LEE71399545619n     n n n n                                                          WINDOWS _5ZE0V6QPW1399545619o     o o o o                                                          WINDOWS _5ZG0KTSRS1399545619p     p p p p                                                          WINDOWS _4GR0NX4H21399545619q     q q q q                                                          WINDOWS _5ZF10UBQO1399545619r     r r r r                                                          WINDOWS _5SM0OVXFH1399545619s     s s s s                                                          WINDOWS _5SM0OVXFI1399545619t     t t t t                                                          WINDOWS _4GR0NX4H11399545619u     u u u u                                                          WINDOWS _4GR0NX4H11399545619v     v v v v                                                          WINDOWS _4GR0NX4H11399545619w     w w w w                                                          WINDOWS _4GR0NX4H11399545619x     x x x x                                                          WINDOWS _4GR0NX4H11399545619y     y y y y                                                          WINDOWS _5ZD10LEE71399545619z     z z z z                                                          WINDOWS _5ZE0V6QPW1399545619{     { { { {                                                          WINDOWS _5ZG0KTSRS1399545619|     | | | |                                                          WINDOWS _4GR0NX4H21399545619}     } } } }                                                          WINDOWS _5ZF10UBQO1399545619~     ~ ~ ~ ~                                                          WINDOWS _5SM0OVXFH1399545619                                                                  WINDOWS _5SM0OVXFI1399545619      ƀ Ԁ                                                           WINDOWS _4GR0NX4H11399545619       ́ ف                                                          WINDOWS _4GR0NX4H11399545619      ˂ ق                                                           WINDOWS _4GR0NX4H11399545619      ǃ Ճ                                                           WINDOWS _4GR0NX4H11399545619       ̈́ ڄ                                                          WINDOWS _5ZG0LIWOR1399545619      ̅ څ                                                           WINDOWS _5ZG0LIWOS1399545619      Ȇ ֆ                                                           WINDOWS _5ZG0LIWOT1399545619       · ۇ                                                          WINDOWS _5ZG0LIWOU1399545619      ͈ ۈ                                                           WINDOWS _5ZG0LIWOV1399545619      ɉ ׉                                                           WINDOWS _5ZG0LIWOW1399545619       ϊ ܊                                                          WINDOWS _5ZG0LIWOX1399545619      ΋ ܋                                                           WINDOWS _5ZG0LIWOY1399545619      ʌ ،                                                           WINDOWS _5ZG0LIWOZ1399545619       Ѝ ݍ                                                          WINDOWS _4GR0NX4H11399545619      ώ ݎ                                                           WINDOWS _5ZD10LEE71399545619      ˏ ُ                                                           WINDOWS _5ZE0V6QPW1399545619      Ð ѐ ސ                                                          WINDOWS _5ZG0LIWP01399545619      Б ޑ                                                           WINDOWS _5ZG0LIWP11399545619      Β ܒ                                                           WINDOWS _5ZG0LIWP21399545619      Ɠ ԓ                                                           WINDOWS _4GR0NX4H11467054932     ʔ ߔ       w                                               WINDOWS _5ZG0Q0KO81467054932             l                                               WINDOWS _4GR0NX4H11467054932             t                                               WINDOWS _4GR0NX4H21467054932             , h                                              WINDOWS _5ZF10UBQO1467054932C     S c q ~                                                     WINDOWS _4GR0NX4H31467054932       ) 6                                                    WINDOWS _4GR0NX4H11467054932             T                                               WINDOWS _4GR0NX4H21467054932k     {         H                                              WINDOWS _5ZF10UBQO1467054932#     3 C Q ^                                                     WINDOWS _4GR0NX4H31467054932       	      |                                               WINDOWS _66U0PLKID1467054932             4 p                                              WINDOWS _66U0PLKIE1467054932K     [ k z       *                                              WINDOWS _66U0PLKIF1467054932      % 4 A                                                    WINDOWS _66U0PLKIG1467054932             b                                               WINDOWS _66U0PLKIH1467054932y             A                                               WINDOWS _66U0PLKII13995456190     = J X e                                                          WINDOWS _5SM0OVXFH1399552328                                                                  WINDOWS _5SM0OVXFI1467054932r             % r                                              WINDOWS _4GR0NX4H11399545619]     j w                                                            WINDOWS _4GR0NX4H11399545619b     o |                                                            WINDOWS _4GR0NX4H11399545619                                                                  WINDOWS _4GR0NX4H11399545619                                                                  WINDOWS _4GR0NX4H11399545619        5                                                          WINDOWS _4GR0NX4H113995456192     ? L ] u                                                          WINDOWS _4GR0NX4H11399545619,     9 F W o                                                          WINDOWS _4GR0NX4H11399545619R     _ l }                                                           WINDOWS _4GR0NX4H11399545619y                                                                       WINDOWS _4GR0NX4H31399545619     $ 3 A Y                                                          WINDOWS _4GR0NX4H41399545619                                                                  WINDOWS _4GR0NX4H51399545619M     \ k y                                                           WINDOWS _4GR0NX4H61399545619        -                                                          WINDOWS _4GR0NX4H71399545619                                                                  WINDOWS _4GR0NX4H81399545619!     0 ? M e                                                          WINDOWS _5SM0Q0FKI1399545619                                                                  WINDOWS _5SM0Q0FKJ1399545619                                                                  WINDOWS _5SM0Q0FKK1399545619      / > M e                                                          WINDOWS _5SM0Q0FKL1399545619                                                                  WINDOWS _5SM0Q0FKM1399545619\     k z                                                            WINDOWS _5SM0Q0FKN1399545619     	  ' ?                                                          WINDOWS _5SM0Q0FKO1399545619                                                                  WINDOWS _4GR0NX4H11399545619v	     	 	 	 	                                                          WINDOWS _4GR0NX4H11399545619-
     <
 K
 Z
 r
                                                          WINDOWS _4GR0NX4H11399545619
     
   )                                                          WINDOWS _5SM0Q0FKP1467054932             R 
                                              WINDOWS _5SM0Q0FKQ1467054932o              m                                              WINDOWS _4GR0NX4H11399545619g     t                                                             WINDOWS _4GR0NX4H11399545619C     P ] l                                                           WINDOWS _4GR0NX4H11399545619       # ;                                                          WINDOWS _4GR0NX4H21399545619                                                                  WINDOWS _5SM0Q0FKR1399545619                                                                  WINDOWS _4GR0NX4H11399545619M     Z g v                                                           WINDOWS _4GR0NX4H11399545619       , D                                                          WINDOWS _4GR0NX4H11399545619                                                                  WINDOWS _4GR0NX4H11399545619                                                                  WINDOWS _4GR0NX4H11399545619x                                                                  WINDOWS _4GR0NX4H113995456193     @ M \ t                                                          WINDOWS _4GR0NX4H11399545619      ! 0 H                                                          WINDOWS _4GR0NX4H11399545619        
                                                          WINDOWS _4GR0NX4H11399545619                                                                  WINDOWS _4GR0NX4H11399545619N     [ h w                                                           WINDOWS _4GR0NX4H11399545619
      ' 6 N                                                          WINDOWS _4GR0NX4H11399545619                                                                   WINDOWS _4GR0NX4H11399545619                                                                       WINDOWS _5SM0Q0FKS13995523464!     A! N! ]! u!                                                          WINDOWS _4GR0NX4H11399545619:"     G" T" c" {"                                                          WINDOWS _4GR0NX4H11399545619"     # # !# 9#                                                          WINDOWS _5SM0QK0SS1399545619#     # # # #                                                          WINDOWS _5SM0QK0ST1399545619$     $ $ $ $                                                          WINDOWS _5SM0QK0SU1399545619^%     k% x% % %                                                          WINDOWS _5SM0QK0SV1399545619&     *& 7& F& ^&                                                          WINDOWS _5SM0QSIJL1399545619&     & & & '                                                          WINDOWS _4GR0NX4H11399545619'     ' ' ' '                                                          WINDOWS _4GR0NX4H11399545619@(     M( Z( i( (                                                          WINDOWS _4GR0NX4H11399545619(     ( ( ) #)                                                          WINDOWS _4GR0NX4H11399545619)     ) ) ) )                                                          WINDOWS _4GR0NX4H113995456191*     >* K* Z* r*                                                          WINDOWS _4GR0NX4H11399545619*     * * * +                                                          WINDOWS _4GR0NX4H11399545619e+     r+ + + +                                                          WINDOWS _4GR0NX4H11399545619+     , , (, @,                                                          WINDOWS _5ZK103D021399545619,     , , , ,                                                          WINDOWS _4GR0NX4H113995456193-     @- M- \- t-                                                          WINDOWS _5ZK103D031399545619-     - - - .                                                          WINDOWS _5ZK103D041399545619m.     z. . . .                                                          COMMENT RESERVED                                /                                                          /Y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 149
Left = 257
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
hslohndat = eigdat+muser+"\lohntabelle.dbf"

SELECT 0
USE "&hslohndat" SHARED
SELECT 0
USE "&hslohndat" again ALIAS lohntabelle1 SHARED
SELECT 0
USE "&hslohndat" again ALIAS lohntabelle2 SHARED
ENDPROC
                                   3   %   
      9  	   '            U   % T     \lohntabelle.dbf F   USE "&hslohndat" SHARED
 F  4 USE "&hslohndat" again ALIAS lohntabelle1 SHARED
 F  4 USE "&hslohndat" again ALIAS lohntabelle2 SHARED
 U 	 HSLOHNDAT EIGDAT MUSER BeforeOpenTables,     1 Q  A A1                              )                           1      1      form      form      FORM1     QHeight = 753
Width = 991
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Arbeitszeiterfassung fr unregelmig Beschftigte mit Berechnung des Urlaubsanspruchs (B E T A  V E R S I O N )"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Refresh
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..backcolor = IIF(thisform.monat&hsaxx..tag = "1",RGB(0,255,0),RGB(240,240,240))	
next	
ENDPROC
PROCEDURE Init
myarbeitszeit = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
FOR i = 24 TO 32
	thisform.teilurlaub.urlaubstage.AddItem(STR(i,2,0))
NEXT

thisform.LockScreen = .t.
PUBLIC xjahrmon

LOCATE for lohntabelle.persnr = fileneu .and. SUBSTR(lohntabelle.jahrmon,1,4) = welchesjahrc
 
IF .not. found()
	SELECT lohntabelle
	FOR hsbx = 1 TO 12 &&monate
		xjahrmon = welchesjahrc + IIF(hsbx < 10,"0"+ALLTRIM(STR(hsbx,2,0)), ALLTRIM(STR(hsbx,2,0)))
		monnr = IIF(hsbx < 10,"0"+STR(hsbx,1,0),STR(hsbx,2,0))

		FOR hsax = 1 TO 32 &&tage mit summensatz
			APPEND BLANK
			replace lohntabelle.persnr WITH fileneu
			replace lohntabelle.jahrmon WITH xjahrmon
			replace lohntabelle.nrdestag WITH ALLTRIM(STR(hsax,2,0))+". " + getmonatsnameshort(hsbx,1)
			hstagnr = IIF(hsax < 10,"0"+ALLTRIM(STR(hsax,2,0)),ALLTRIM(STR(hsax,2,0)))
			replace lohntabelle.tagesname WITH ntoCDOW(DOW(CTOD(hstagnr + "." + monnr + "." + welchesjahrc)))		
			IF hsax = 32
				replace lohntabelle.summen WITH .t.
			ELSE
				IF hsax > day(eom(CTOD("01."+monnr+"."+welchesjahrc)))
					replace lohntabelle.ausblenden WITH .t.
				endif			
			endif
			FLUSH
		NEXT
	NEXT
	APPEND BLANK
	replace lohntabelle.persnr WITH fileneu
	replace lohntabelle.jahrmon WITH welchesjahrc + "13"
	replace lohntabelle.anspruch WITH 1 &&erste auswahl = 24 Tage
	flush
ENDIF
SELECT lohntabelle
FLUSH

thisform.grdlohntabelle.SetAll("dynamicbackcolor","gridcolor_lohntabelle()","Column")
thisform.jahreszahl.Caption = welchesjahrc
thisform.aktivermonat.value = 0
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	IF asxx = zi(1+20) + 1 &&MONTH(DATE())
		thisform.monat&hsaxx..tag = "1"
		thisform.aktivermonat.value = asxx
		thisform.monatsname.Caption = getmonatsname(asxx,1)
	ELSE
		thisform.monat&hsaxx..tag = " "
	endif	
	IF asxx = MONTH(DATE())
		thisform.shape&hsaxx..visible = .t.
	ELSE
		thisform.shape&hsaxx..visible = .f.
	endif
next	
xjahrmon = welchesjahrc + IIF(thisform.aktivermonat.value < 10,"0"+ALLTRIM(STR(thisform.aktivermonat.value,2,0)), ALLTRIM(STR(thisform.aktivermonat.value,2,0)))

SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = myform1.tdbnumber1.value .and. lohntabelle2.jahrmon = welchesjahrc + "13"
anspruch =  lohntabelle2.Anspruch
vorgabewert = lohntabelle2.vorgabe
IF vorgabewert <= 0
	vorgabewert = 1
endif
thisform.teilurlaub.urlaubstage.Value = anspruch
thisform.teilurlaub.vorgabe.Value = vorgabewert 
FLUSH

SELECT lohntabelle1 && hier die summenstze
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top

thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle &&hier die einzeleintragungen
SET FILTER TO lohntabelle.persnr = myform1.tdbnumber1.value .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(lohntabelle.ausblenden)
GO top

thisform.rechnen.click
SELECT lohntabelle
thisform.rechnen2.click
thisform.refresh
thisform.LockScreen = .f.

SET CONFIRM off
 
IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.





ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.grdLohntabelle.column1.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column2.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column3.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column4.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column5.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column6.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column7.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column8.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column9.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column10.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column11.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column12.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column13.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column14.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column15.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column16.text1.FontSize = thisform.grdLohntabelle.column1.FontSize
thisform.grdLohntabelle.column17.text1.FontSize = thisform.grdLohntabelle.column1.FontSize


ENDPROC
     ?    &  &                           %   
        y   
            U      (  T CC   Zi thisform.monat&hsaxx..backcolor = IIF(thisform.monat&hsaxx..tag = "1",RGB(0,255,0),RGB(240,240,240))	
  U  ASXX HSAXX3
 T    %   
1  T      ( j  CC  Z      T  a 7 ' -	 
   C	  \
 	
 %C4
 F	   (}< T 
 C 

  0CC  Z
 CC  Z64 T C 

  0C  Z C  Z6  ( y  >	 
   >	   , >	  CC  Z . C   8 T C 

  0CC  Z
 CC  Z6* >	  CCC  .  .
 #)  %  . >	  a q) % CCC 01.  .
 # %m >	  a   [    >	 
   >	  
  13 >	   [  F	  [F C dynamicbackcolor gridcolor_lohntabelle() Column    T   
  T       (n T! CC   Z %  C" # thisform.monat&hsaxx..tag = "1"
 T      T #  C   $  # thisform.monat&hsaxx..tag = " "
  %  CC$H;' thisform.shape&hsaxx..visible = .t.
 j' thisform.shape&hsaxx..visible = .f.
  N T 
 C   

  0CC    Z CC    Z6 F% + -% 
 & '   %  
  13	 T %   T( % )  %(  0
 T(   T      T  )  (  [ F* 3 G(* 
 & '   *   	
 C*  
	 #) T +  * +  T ,  * ,  T -  * -  T .  * .  F	 > G(	 
 & '   	   		 C	  		 C	  	 #)
  / 0  F	 
  1 0 
  2  T  - G	 % 3 4 5  T6 C5  3 4 T 
 T6  
  7 8  T 3  3 4 6  T 9  9 4 6 
  :  T ; a U< 
 MYARBEITSZEIT THISFORM TOP I
 TEILURLAUB URLAUBSTAGE ADDITEM
 LOCKSCREEN XJAHRMON LOHNTABELLE PERSNR FILENEU JAHRMON WELCHESJAHRC HSBX MONNR HSAX NRDESTAG GETMONATSNAMESHORT HSTAGNR	 TAGESNAME NTOCDOW SUMMEN EOM
 AUSBLENDEN ANSPRUCH GRDLOHNTABELLE SETALL
 JAHRESZAHL CAPTION AKTIVERMONAT VALUE ASXX HSAXX ZI
 MONATSNAME
 GETMONATSNAME LOHNTABELLE2 MYFORM1
 TDBNUMBER1 VORGABEWERT VORGABE LOHNTABELLE1 SATZ1 SATZ2 SATZ3 SATZ4 RECHNEN CLICK RECHNEN2 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTERU C    " T           " T           " T           " T   	        " T   
        " T           " T           " T   
        " T           " T           " T           " T           " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDLOHNTABELLE COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 COLUMN14 COLUMN15 COLUMN16 COLUMN17 Refresh,      Init      Resizee
    1 qqA 2  AA qA  q r q qArQ    A A A A A Q aA A q A b11qq11 1A !q qA A r  A aaA r 1Q baaar Q  q    b   A    7 "!!!!!!!!!!!!!!!!3                                        f       {    )   &                        shape      shape      Shape1      FORM1      vTop = 30
Left = 91
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape1"
      shape      shape      Shape2      FORM1      wTop = 30
Left = 152
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape2"
      shape      shape      Shape3      FORM1      wTop = 30
Left = 214
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape3"
      shape      shape      Shape4      FORM1      wTop = 30
Left = 276
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape4"
      shape      shape      Shape5      FORM1      wTop = 30
Left = 337
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape5"
      shape      shape      Shape6      FORM1      wTop = 30
Left = 398
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape6"
      shape      shape      Shape7      FORM1      wTop = 30
Left = 460
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape7"
      shape      shape      Shape8      FORM1      wTop = 30
Left = 524
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape8"
      shape      shape      Shape9      FORM1      wTop = 30
Left = 587
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape9"
      shape      shape      Shape10      FORM1      xTop = 30
Left = 650
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape10"
      shape      shape      Shape11      FORM1      xTop = 30
Left = 712
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape11"
      shape      shape      Shape12      FORM1      xTop = 30
Left = 774
Height = 27
Width = 53
BorderWidth = 2
Visible = .F.
BorderColor = 255,0,0
Name = "Shape12"
      label      label      Label39      FORM1      xAlignment = 2
Caption = ""
Height = 86
Left = 10
Top = 147
Width = 159
BackColor = 255,255,255
Name = "Label39"
      
commandbutton      
commandbutton      leeren      FORM1      Top = 1
Left = 9
Height = 29
Width = 169
Picture = prgicons\cancel_klein_rot.png
Caption = "Monatstabelle leeren"
PicturePosition = 1
Name = "leeren"
     kPROCEDURE Click
response = MessageBox("Alle Eintrge fr den Monat " + getmonatsname(thisform.aktivermonat.value,1) + " werden gelscht.", 1, "U n w i d e r r u f l i c h !")
If response = 2 
	RETURN
endif
thisform.LockScreen = .t.
SELECT lohntabelle
GO top
DO WHILE .not. EOF()
	replace lohntabelle.von1 WITH ""
	replace lohntabelle.von2 WITH ""
	replace lohntabelle.von3 WITH ""
	replace lohntabelle.von4 WITH ""
	replace lohntabelle.bis1 WITH ""
	replace lohntabelle.bis2 WITH ""
	replace lohntabelle.bis3 WITH ""
	replace lohntabelle.bis4 WITH ""			
	replace lohntabelle.dauer1 WITH ""
	replace lohntabelle.dauer2 WITH ""
	replace lohntabelle.dauer3 WITH ""
	replace lohntabelle.dauer4 WITH ""		
	replace lohntabelle.dauer1min WITH 0
	replace lohntabelle.dauer2min WITH 0
	replace lohntabelle.dauer3min WITH 0
	replace lohntabelle.dauer4min WITH 0	
	replace lohntabelle.tage WITH 0
	replace lohntabelle.stunden WITH ""
	replace lohntabelle.verdienst WITH 0.00	
	FLUSH
	SKIP
ENDDO
GO top
thisform.rechnen.Click
thisform.rechnen2.click
thisform.Refresh

thisform.LockScreen = .f.
	
ENDPROC
     )                                 %   n        %   }            U  4u T  C Alle Eintrge fr den Monat C      werden gelscht. U n w i d e r r u f l i c h !x %    B  T  a F  #) +C+
 >     >     > 	    > 
    >     >     > 
    >     >     >     >     >     >    >    >    >    >    >     >           [ H  #)
    
    
    T  - U  RESPONSE
 GETMONATSNAME THISFORM AKTIVERMONAT VALUE
 LOCKSCREEN LOHNTABELLE VON1 VON2 VON3 VON4 BIS1 BIS2 BIS3 BIS4 DAUER1 DAUER2 DAUER3 DAUER4	 DAUER1MIN	 DAUER2MIN	 DAUER3MIN	 DAUER4MIN TAGE STUNDEN	 VERDIENST RECHNEN CLICK RECHNEN2 REFRESH Click,     1 QA A  q Q  A A A Q     2                       `      )                           
commandbutton      
commandbutton      Command1      FORM1      Top = 1
Left = 183
Height = 29
Width = 120
Picture = prgicons\drucker_klein.png
Caption = " Monats-Tabelle"
PicturePosition = 1
Name = "Command1"
      xPROCEDURE Click

DO zeiterfassung_druck &&Druckvorschau.Blatt, dRatio
SELECT lohntabelle
GO top





ENDPROC
                                      ez   %   h             w             U       F  #) U  ZEITERFASSUNG_DRUCK LOHNTABELLE Click,     1 r q Q 6                       m       )                            
commandbutton      
commandbutton      Command2      FORM1      Top = 1
Left = 306
Height = 29
Width = 120
Picture = prgicons\drucker_klein.png
Caption = " Jahres-Tabelle"
PicturePosition = 1
Name = "Command2"
     	PROCEDURE Click
IF direktzumdruckerQ() = true
	SELECT lohntabelle
	GO top
	REPORT FORM urlaubsanspruch RANGE 1,1 NOCONSOLE TO PRINTER prompt
else
	LOCAL loRepPreview, loRepListener
	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview

	SELECT lohntabelle
	GO top

	REPORT FORM urlaubsanspruch RANGE 1,1 NOCONSOLE OBJECT loRepListener
ENDIF

SELECT lohntabelle
GO top

RELEASE loRepListener
RELEASE loRepPreview
RETURN
	
*!*	     For i = 1 To 13
*!*	         JAE(i, 1) = yTage(i)
*!*	         JAE(i, 2) = yMinuten(i)
*!*	         JAE(i, 3) = (yEuro(i) * 100 + ycent(i)) / 100
*!*	     Next
*!*	     dauer(1) = erster
*!*	     dauer(2) = letzter
*!*	     dauer(3) = volle
*!*	     dauer(4) = arbeitstage
*!*	     dauer(5) = Anspruch
*!*	     dauer(6) = Mon
*!*	     thisform.Teilurlaub.Visible = False
*!*	     DO jahrestabellefllen
*!*	     BOZ(1) = thisform.Label7.value 
*!*	     BOZ(2) = thisform.Label8.value 
*!*	     BOZ(3) = thisform.Label9.value 
*!*	     BOZ(4) = thisform.Label10.value 
*!*	     BOZ(5) = thisform.Label11.value 
*!*	     BOZ(6) = thisform.Label12.value 
*!*	     BOZ(7) = thisform.Label13.value 
*!*	     BOZ(8) = thisform.Label14.value 
*!*	     BOZ(9) = thisform.Vorgabe.value 
*!*	     BOZ(10) = thisform.Label15.value 
*!*	     
*!*	     Unload Druckvorschau
*!*	     Printer.Orientation = 1
*!*	         With Druckvorschau
*!*	              .Top = Arbeitszeit.Top
*!*	              .Left = Arbeitszeit.Left
*!*	              .Width = Arbeitszeit.Width
*!*	              .Height = Arbeitszeit.Height
*!*	              .Visible = True
*!*	         End With
*!*	         dRatio = 1
*!*	         myindexe = 60
*!*	         DO arbeitszeitdruck &&Druckvorschau.Blatt, dRatio

*!*	         Druckvorschau.ssScroll1.VPosition = 400
*!*	         Druckvorschau.ssScroll1.HPosition = 0
ENDPROC
                                       %         p  $   (            U   %C   E  F  #)' ? urlaubsanspruch(!"9     T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  7 T 
 Druckvorschau T a T	  T
  T   T
   T   T   T a  C     T C ReportListener T   T    F  #)* ? urlaubsanspruch9.   F  #) <  <  B U  DIREKTZUMDRUCKERQ TRUE LOHNTABELLE URLAUBSANSPRUCH LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1 !q Q q    2         A r Q A r Q r q A 1                       	      )                           
commandbutton      
commandbutton      urlaub      FORM1      Top = 1
Left = 429
Height = 29
Width = 125
Picture = prgicons\kalender_klein.png
Caption = " Urlaubsanspruch"
PicturePosition = 1
Name = "urlaub"
      PROCEDURE Click
If thisform.Teilurlaub.Visible = False
   thisform.rechnen.Click
   thisform.rechnen2.click
   thisform.Teilurlaub.Visible = True
Else
   thisform.Teilurlaub.Visible = False
EndIf
ENDPROC
     _    F  F                        E   %             	                U  f  %     D 
     
      T      _  T       U  THISFORM
 TEILURLAUB VISIBLE FALSE RECHNEN CLICK RECHNEN2 TRUE Click,     1 q  1 1A 1                              )   F                        
commandbutton      
commandbutton      
urlaubsgesetz      FORM1      Top = 1
Left = 558
Height = 29
Width = 125
Picture = prgicons\buch_klein.png
Caption = " Urlaubsgesetz"
PicturePosition = 1
Name = "urlaubsgesetz"
      PROCEDURE Click
inet = 200 &&vorher 500
mylink = 0 &&vorher 654 'Msg = "bundesurlaubsgesetz.de"
Msg = "gesetze-im-internet.de/burlg/index"
DO insinternet
ENDPROC
                                    4   %                             U  S 
 T  
 T  / T " gesetze-im-internet.de/burlg/index   U  INET MYLINK MSG INSINTERNET Click,     1   q 1                              )                           
commandbutton      
commandbutton      hilfe      FORM1      Top = 1
Left = 687
Height = 29
Width = 111
Picture = prgicons\buch_chm_klein.png
Caption = " Hilfe"
PicturePosition = 1
Name = "hilfe"
      VPROCEDURE Click
inet = 310
Msg = "Arbeitszeiterfassung"
DO insinternet

ENDPROC
                                         %                             U  9  T  6! T  Arbeitszeiterfassung   U  INET MSG INSINTERNET Click,     1  q 2                       K       )                            
commandbutton      
commandbutton      
schliessen      FORM1      Top = 1
Left = 802
Height = 29
Width = 111
Picture = prgicons\exit_klein.jpg
Caption = " Schlieen"
PicturePosition = 1
Name = "schliessen"
      PROCEDURE Click
*!*	thisform.Timer1.Enabled = False
*!*	myclose("#19")
myform1.visible = .t.
fensteroffen = 0
SELECT lohntabelle
USE
SELECT lohntabelle1
USE
SELECT lohntabelle2
USE
SET CONFIRM on
thisform.release
ENDPROC
     d    K  K                        6C   %                            U  O  T   a
 T   F  Q F  Q F  Q G	 
    U  MYFORM1 VISIBLE FENSTEROFFEN LOHNTABELLE LOHNTABELLE1 LOHNTABELLE2 THISFORM RELEASE Click,     1   q A q A q A a  1                              )   K                        
commandbutton      
commandbutton      Monat1      FORM1      QTop = 32
Left = 93
Height = 23
Width = 49
Caption = "Jan."
Name = "Monat1"
     LPROCEDURE Click
thisform.LockScreen = .t.
SELECT lohntabelle
xjahrmon = welchesjahrc + "01"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 1
thisform.monatsname.Caption = "Januar"

thisform.refresh
thisform.LockScreen = .f.	
ENDPROC
     q    X  X                           %                          U   T   a F  T   01 F 3 G(    	   
  	
 C  
	 #) T   	    T  
 	  
  T   	    T   	    F 5 G(     
  		 C  	 C 	 #)  (Q T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T   	  T     Januar
     T   - U  THISFORM
 LOCKSCREEN LOHNTABELLE XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  q 1q 1Q aaaar QQ qq1A 1  1                       A      )   X                        
commandbutton      
commandbutton      Monat2      FORM1      lTop = 32
Left = 154
Height = 23
Width = 49
Caption = "Febr."
BackColor = 240,240,240
Name = "Monat2"
     6PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "02"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 2
thisform.monatsname.Caption = "Februar"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     i    P  P                        "   %                          U   T   a T   02 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Februar
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar QQ qq1A 1  1                       +      )   P                        
commandbutton      
commandbutton      Monat3      FORM1      RTop = 32
Left = 216
Height = 23
Width = 49
Caption = "Mrz"
Name = "Monat3"
     3PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "03"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 3
thisform.monatsname.Caption = "Mrz"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     f    M  M                           %                          U   T   a T   03 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Mrz
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar QQ qq1A 1q  1                       (      )   M                        
commandbutton      
commandbutton      Monat4      FORM1      STop = 32
Left = 278
Height = 23
Width = 49
Caption = "April"
Name = "Monat4"
     6PROCEDURE Click
thisform.LockScreen = .t.

xjahrmon = welchesjahrc + "04"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 4
thisform.monatsname.Caption = "April"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     g    N  N                        '   %                          U   T   a T   04 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     April
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  2q 1Q aaaar QQ qq1A 1  1                       +      )   N                        
commandbutton      
commandbutton      Monat5      FORM1      QTop = 32
Left = 339
Height = 23
Width = 49
Caption = "Mai"
Name = "Monat5"
     4PROCEDURE Click
thisform.LockScreen = .t.

xjahrmon = welchesjahrc + "05"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 5
thisform.monatsname.Caption = "Mai"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     e    L  L                        	   %                          U   T   a T   05 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Mai
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  2q 1Q aaaar QQ qq1A 1a  1                       )      )   L                        
commandbutton      
commandbutton      Monat6      FORM1      RTop = 32
Left = 400
Height = 23
Width = 49
Caption = "Juni"
Name = "Monat6"
     5PROCEDURE Click
thisform.LockScreen = .t.

xjahrmon = welchesjahrc + "06"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle
SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 6
thisform.monatsname.Caption = "Juni"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     f    M  M                           %                          U   T   a T   06 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Juni
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  2q 1Q aaaar QQ qq1A 1q  1                       *      )   M                        
commandbutton      
commandbutton      Monat7      FORM1      RTop = 32
Left = 462
Height = 23
Width = 49
Caption = "Juli"
Name = "Monat7"
     5PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "07"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 7
thisform.monatsname.Caption = "Juli"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     f    M  M                           %                          U   T   a T   07 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Juli
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar RQ qq1A 1q  1                       *      )   M                        
commandbutton      
commandbutton      Monat8      FORM1      TTop = 32
Left = 526
Height = 23
Width = 49
Caption = "August"
Name = "Monat8"
     9PROCEDURE Click
thisform.LockScreen = .t.

xjahrmon = welchesjahrc + "08"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 8
thisform.monatsname.Caption = "August"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     h    O  O                           %                          U   T   a T   08 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     August
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  2q 1Q aaaar RQ qq1A 1  1                       .      )   O                        
commandbutton      
commandbutton      Monat9      FORM1      STop = 32
Left = 589
Height = 23
Width = 49
Caption = "Sept."
Name = "Monat9"
     <PROCEDURE Click
thisform.LockScreen = .t.

xjahrmon = welchesjahrc + "09"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 9
thisform.monatsname.Caption = "September"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     k    R  R                           %         	                 U   T   a T   09 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T    	 T    	 September
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  2q 1Q aaaar RQ qq1A 1  1                       1      )   R                        
commandbutton      
commandbutton      Monat10      FORM1      STop = 32
Left = 652
Height = 23
Width = 49
Caption = "Okt."
Name = "Monat10"
     9PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "10"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 10
thisform.monatsname.Caption = "Oktober"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     i    P  P                        "   %                          U   T   a T   10 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T    
 T     Oktober
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar RQ qq1A 1  1                       .      )   P                        
commandbutton      
commandbutton      Monat11      FORM1      STop = 32
Left = 714
Height = 23
Width = 49
Caption = "Nov."
Name = "Monat11"
     :PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "11"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 11
thisform.monatsname.Caption = "November"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     j    Q  Q                        +1   %                          U   T   a T   11 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     November
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar RQ qq1A 1  1                       /      )   Q                        
commandbutton      
commandbutton      Monat12      FORM1      STop = 32
Left = 776
Height = 23
Width = 49
Caption = "Dez."
Name = "Monat12"
     :PROCEDURE Click
thisform.LockScreen = .t.
xjahrmon = welchesjahrc + "12"
SELECT lohntabelle1
SET FILTER TO lohntabelle1.persnr = myform1.tdbnumber1.value .and. lohntabelle1.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle1.summen)
GO top
thisform.satz1.Value = lohntabelle1.satz1
thisform.satz2.Value = lohntabelle1.satz2
thisform.satz3.Value = lohntabelle1.satz3
thisform.satz4.Value = lohntabelle1.satz4

SELECT lohntabelle

SET FILTER TO lohntabelle.persnr = fileneu .and. lohntabelle.jahrmon = xjahrmon .and. EMPTY(lohntabelle.summen) .and. EMPTY(ausblenden)
GO top
FOR asxx = 1 TO 12
	hsaxx = ALLTRIM(STR(asxx,2,0))
	thisform.monat&hsaxx..tag = " "
next		
this.Tag = "1"
thisform.aktivermonat.Value = 12
thisform.monatsname.Caption = "Dezember"
thisform.refresh
thisform.LockScreen = .f.
ENDPROC
     j    Q  Q                        +1   %                          U   T   a T   12 F 3 G(       	  	
 C 
 
	 #) T       T       T  
   
  T       F 5 G(     	  		 C 
 	 C 	 #)  (J T CC  Z# thisform.monat&hsaxx..tag = " "
  T   1 T     T     Dezember
     T   - U  THISFORM
 LOCKSCREEN XJAHRMON WELCHESJAHRC LOHNTABELLE1 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON SUMMEN SATZ1 SATZ2 SATZ3 SATZ4 LOHNTABELLE FILENEU
 AUSBLENDEN ASXX HSAXX THIS TAG AKTIVERMONAT
 MONATSNAME CAPTION REFRESH Click,     1  1q 1Q aaaar RQ qq1A 1  1                       /      )   Q                        
commandbutton      
commandbutton      Monat13      FORM1      jTop = 33
Left = 835
Height = 23
Width = 78
Caption = "Jahresgehalt"
Enabled = .F.
Name = "Monat13"
     8PROCEDURE Click
*Private Sub Monat_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
thisform.Teilurlaub.Visible = False
If myIndex = 13
	RETURN
endif
thisform.leeren.Caption = "Tabelle fr " + Mt(myIndex) + " lschen"
Mon = myIndex
*DO monataktivieren
ENDPROC
     j    Q  Q                           %                            U  p  T      % 
(  B 4 T     Tabelle fr C     lschen
 T   U	  THISFORM
 TEILURLAUB VISIBLE FALSE MYINDEX LEEREN CAPTION MT MON Click,     1 2A A A 2                       -      )   Q                        label      label      
Jahreszahl      FORM1      FontBold = .T.
FontSize = 20
Caption = "2015"
Height = 29
Left = 55
Top = 193
Width = 64
BackColor = 255,255,255
Name = "Jahreszahl"
      label      label      Label1      FORM1      PCaption = "Tage"
Height = 19
Left = 9
Top = 60
Width = 64
Name = "Label1"
      label      label      Label2      FORM1      SCaption = "Stunden"
Height = 19
Left = 9
Top = 81
Width = 64
Name = "Label2"
      label      label      Label3      FORM1      VCaption = "Lohn in "
Height = 19
Left = 9
Top = 101
Width = 64
Name = "Label3"
      label      label      Label5      FORM1      FontBold = .T.
Alignment = 2
Caption = "1. E i n s a t z "
Height = 86
Left = 172
Top = 148
Width = 147
BackColor = 255,255,255
Name = "Label5"
      label      label      Label6      FORM1      FontBold = .T.
Alignment = 2
Caption = "2. E i n s a t z "
Height = 87
Left = 323
Top = 148
Width = 147
BackColor = 255,255,255
Name = "Label6"
      label      label      Label7      FORM1      FontBold = .T.
Alignment = 2
Caption = "3. E i n s a t z "
Height = 86
Left = 473
Top = 148
Width = 148
BackColor = 255,255,255
Name = "Label7"
      label      label      Label8      FORM1      FontBold = .T.
Alignment = 2
Caption = "4. E i n s a t z "
Height = 87
Left = 624
Top = 148
Width = 145
BackColor = 255,255,255
Name = "Label8"
      label      label      Label9      FORM1      FontBold = .T.
Alignment = 2
Caption = "M O N  A T S V E R D I E N S T"
Height = 86
Left = 774
Top = 148
Width = 196
BackColor = 255,255,255
Name = "Label9"
      textbox      textbox      satz1      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 179
Top = 172
Width = 53
Name = "satz1"
     PROCEDURE Valid
SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle2.summen)
replace lohntabelle2.satz1 WITH thisform.satz1.value
FLUSH
SELECT lohntabelle
thisform.rechnen2.click
RETURN .t.
ENDPROC
         u  u                           %         ,  	               U  k  F  , -         	
 C   
	 >       [ F	 
  
   Ba U  LOHNTABELLE2 PERSNR FILENEU JAHRMON XJAHRMON SUMMEN SATZ1 THISFORM VALUE LOHNTABELLE RECHNEN2 CLICK Valid,     1 q aA q  q 1                             )   u                        label      label      Label10      FORM1      vCaption = " Stundenlohn"
Height = 18
Left = 236
Top = 174
Width = 79
BackColor = 255,255,255
Name = "Label10"
      textbox      textbox      satz2      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 332
Top = 172
Width = 53
Name = "satz2"
     PROCEDURE Valid
SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle2.summen)
replace lohntabelle2.satz2 WITH thisform.satz2.value
FLUSH
SELECT lohntabelle
thisform.rechnen2.click
RETURN .t.
ENDPROC
         u  u                           %         ,  	               U  k  F  , -         	
 C   
	 >       [ F	 
  
   Ba U  LOHNTABELLE2 PERSNR FILENEU JAHRMON XJAHRMON SUMMEN SATZ2 THISFORM VALUE LOHNTABELLE RECHNEN2 CLICK Valid,     1 q aA q  q 1                             )   u                        label      label      Label11      FORM1      vCaption = " Stundenlohn"
Height = 18
Left = 387
Top = 174
Width = 79
BackColor = 255,255,255
Name = "Label11"
      textbox      textbox      satz3      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 482
Top = 172
Width = 53
Name = "satz3"
     PROCEDURE Valid
SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle2.summen)
replace lohntabelle2.satz3 WITH thisform.satz3.value
FLUSH
SELECT lohntabelle
thisform.rechnen2.click
RETURN .t.
ENDPROC
         u  u                           %         ,  	               U  k  F  , -         	
 C   
	 >       [ F	 
  
   Ba U  LOHNTABELLE2 PERSNR FILENEU JAHRMON XJAHRMON SUMMEN SATZ3 THISFORM VALUE LOHNTABELLE RECHNEN2 CLICK Valid,     1 q aA q  q 1                             )   u                        label      label      Label12      FORM1      vCaption = " Stundenlohn"
Height = 18
Left = 538
Top = 174
Width = 79
BackColor = 255,255,255
Name = "Label12"
      textbox      textbox      satz4      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 631
Top = 172
Width = 53
Name = "satz4"
     PROCEDURE Valid
SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = xjahrmon .and. .not. EMPTY(lohntabelle2.summen)
replace lohntabelle2.satz4 WITH thisform.satz4.value
FLUSH
SELECT lohntabelle
thisform.rechnen2.click
RETURN .t.
ENDPROC
         u  u                           %         ,  	               U  k  F  , -         	
 C   
	 >       [ F	 
  
   Ba U  LOHNTABELLE2 PERSNR FILENEU JAHRMON XJAHRMON SUMMEN SATZ4 THISFORM VALUE LOHNTABELLE RECHNEN2 CLICK Valid,     1 q aA q  q 1                             )   u                        label      label      Label13      FORM1      vCaption = " Stundenlohn"
Height = 18
Left = 688
Top = 174
Width = 79
BackColor = 255,255,255
Name = "Label13"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 765
Left = 1019
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label14      FORM1      lCaption = "von"
Height = 15
Left = 184
Top = 203
Width = 23
BackColor = 255,255,255
Name = "Label14"
      label      label      Label15      FORM1      nCaption = "HH:MM"
Height = 15
Left = 176
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label15"
      label      label      Label17      FORM1      lCaption = "bis"
Height = 15
Left = 236
Top = 203
Width = 19
BackColor = 255,255,255
Name = "Label17"
      label      label      Label20      FORM1      nCaption = "Dauer"
Height = 15
Left = 276
Top = 203
Width = 37
BackColor = 255,255,255
Name = "Label20"
      label      label      Label42      FORM1      mCaption = "Tage"
Height = 15
Left = 787
Top = 217
Width = 29
BackColor = 255,255,255
Name = "Label42"
      label      label      Label43      FORM1      pCaption = "Stunden"
Height = 15
Left = 847
Top = 217
Width = 47
BackColor = 255,255,255
Name = "Label43"
      label      label      Label44      FORM1      rCaption = "Verdienst"
Height = 15
Left = 915
Top = 217
Width = 54
BackColor = 255,255,255
Name = "Label44"
      
commandbutton      
commandbutton      check_click      FORM1      }Top = 711
Left = 270
Height = 25
Width = 70
Caption = "check_click"
Enabled = .F.
Visible = .F.
Name = "check_click"
     PROCEDURE Click
*!*	If startflag = True
*!*		Return
*!*	Endif
*!*	erster = 0
*!*	For i = 1 To 12
*!*		xxx = Alltrim(Str(i,2,0))
*!*		If Thisform.Check&xxx..Value = 1
*!*			erster = i
*!*			Thisform.Check&xxx..BackColor = QBColor(10)
*!*			Exit
*!*		Endif
*!*	Next
*!*	letzter = 0
*!*	For i = 12 To 1 Step -1
*!*		xxx = Alltrim(Str(i,2,0))
*!*		If Thisform.Check&xxx..Value = 1
*!*			letzter = i
*!*			Thisform.Check&xxx..BackColor = QBColor(12)
*!*			Exit
*!*		Endif
*!*	Next

*!*	myGet(89, 385, "Lhner")
*!*	Lhner.vonbis(1) = erster
*!*	Lhner.vonbis(2) = letzter

*!*	If erster > 0 And letzter > 0
*!*		Lhner.vonbis(3) = letzter - erster + 1
*!*	Else
*!*		Lhner.vonbis(3) = 0
*!*	Endif

*!*	myPut(89, 385, "Lhner")


*!*	volle = letzter - erster + 1
*!*	If erster > 0
*!*		Thisform.teilurlaub.Label3.Caption = Mt(erster)
*!*	Else
*!*		Thisform.teilurlaub.Label3.Caption = "- - -"
*!*	Endif

*!*	If letzter > 0
*!*		Thisform.teilurlaub.Label4.Caption = Mt(letzter)
*!*	Else
*!*		Thisform.teilurlaub.Label4.Caption = Thisform.teilurlaub.Label3.Caption
*!*	Endif

*!*	Thisform.teilurlaub.Label5.Caption = volle

*!*	Do jahrestabellefllen
ENDPROC
                                      q^   %   3       H      B             U    U   Click,     1 01                             )                            
commandbutton      
commandbutton      std_keypress      FORM1      Top = 711
Left = 351
Height = 25
Width = 64
Caption = "std_keypress"
Enabled = .F.
Visible = .F.
Name = "std_keypress"
     PROCEDURE Click

*!*	*!*	IF xxxkeyascii <> 13
*!*	*!*		RETURN
*!*	*!*	ENDIF

*!*	xxx = Alltrim(Str(xxxindex,2,0))
*!*	If Inlist(xxxKeyAscii,48,49,50,51,52,53,54,55,56,57) &&zahlen 0-9
*!*		Y = Thisform.Std&xxx..Row
*!*		Thisform.Std&xxx..Text = Thisform.Std&xxx..Text + Chr(xxxKeyAscii)
*!*		Do Case &&xxxIndex
*!*			Case Inlist(xxxindex,1, 3, 5, 7, 9, 11, 13, 15)
*!*				If Val(Thisform.Std&xxx..Text) > 23
*!*					Thisform.Std&xxx..Text = "23"
*!*				Endif
*!*				If Len(Thisform.Std&xxx..Text) = 1 Then
*!*					If Val(Thisform.Std&xxx..Text) > 2 Then
*!*						xxxindex = xxxindex + 1
*!*						Thisform.Std&xxx..SetFocus
*!*						Thisform.Std&xxx..Row = Y
*!*					Endif
*!*				Endif

*!*				If Len(Thisform.Std&xxx..Text) = 2 Then
*!*					xxxindex = xxxindex + 1
*!*					Thisform.Std&xxx..SetFocus
*!*					Thisform.Std&xxx..Row = Y
*!*				Endif
*!*			Case Inlist(xxxindex, 2, 4, 6, 8, 10, 12, 14, 16)
*!*				If Val(Thisform.Std&xxx..Text) > 59
*!*					Thisform.Std&xxx..Text = "59"
*!*				Endif
*!*				If Len(Thisform.Std&xxx..Text) = 2
*!*					dip(Y, xxxindex / 2) = Val(Thisform.Std(xxxindex - 1)) * 60 + Val(Thisform.Std(xxxindex)) && = Minuten
*!*					For k = 1 To 8
*!*						Lhner.vonbis(k) = dip(Y, k)
*!*					Next
*!*					myPut(89, Y + (Mon - 1) * 32, "Lhner")
*!*					Do tabellerechnen
*!*					If xxxindex < 16
*!*						xxxindex = xxxindex + 1
*!*						Thisform.Std&xxx..SetFocus
*!*						Thisform.Std&xxx..Row = Y
*!*					Endif
*!*				Endif
*!*		Endcase
*!*	Endif

ENDPROC
                                      q^   %   3       H      B             U    U   Click,     1 1                             )                            
commandbutton      
commandbutton      bertrag      FORM1      jTop = 702
Left = 520
Height = 31
Width = 238
Caption = "bertrag in das Memofeld"
Name = "bertrag"
      jPROCEDURE Click
myform1.mencalc.value = thisform.gesverdienst.value
thisform.schliessen.click
ENDPROC
                                     s{   %                             U  )  T       
     U  MYFORM1 MENCALC VALUE THISFORM GESVERDIENST
 SCHLIESSEN CLICK Click,     1  1                       _       )                            label      label      
beschftigter      FORM1      pCaption = ""
Height = 18
Left = 776
Top = 174
Width = 191
BackColor = 255,255,255
Name = "beschftigter"
      textbox      textbox      anztage      FORM1      Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 778
Top = 703
Width = 41
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "anztage"
      textbox      textbox      
anzstunden      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 827
Top = 703
Width = 69
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "anzstunden"
      textbox      textbox      gesverdienst      FORM1      Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 901
Top = 703
Width = 70
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "gesverdienst"
      grid      grid      grdLohntabelle      FORM1     
ColumnCount = 17
AllowHeaderSizing = .F.
AllowRowSizing = .F.
DeleteMark = .F.
HeaderHeight = 0
Height = 467
Left = 9
Panel = 1
RecordSource = "lohntabelle"
RecordSourceType = 1
RowHeight = 15
ScrollBars = 0
Top = 234
Width = 966
Name = "grdLohntabelle"
Column1.ControlSource = "lohntabelle.nrdestag"
Column1.Enabled = .F.
Column1.Width = 75
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.ControlSource = "lohntabelle.tagesname"
Column2.Enabled = .F.
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.Name = "Column2"
Column3.ControlSource = "lohntabelle.von1"
Column3.Width = 49
Column3.Visible = .T.
Column3.Name = "Column3"
Column4.ControlSource = "lohntabelle.bis1"
Column4.Width = 49
Column4.Visible = .T.
Column4.Name = "Column4"
Column5.ControlSource = "lohntabelle.dauer1"
Column5.Enabled = .F.
Column5.Width = 49
Column5.ReadOnly = .T.
Column5.Visible = .T.
Column5.Name = "Column5"
Column6.ControlSource = "lohntabelle.von2"
Column6.Width = 49
Column6.Visible = .T.
Column6.Name = "Column6"
Column7.ControlSource = "lohntabelle.bis2"
Column7.Width = 49
Column7.Visible = .T.
Column7.Name = "Column7"
Column8.ControlSource = "lohntabelle.dauer2"
Column8.Enabled = .F.
Column8.Width = 49
Column8.ReadOnly = .T.
Column8.Visible = .T.
Column8.Name = "Column8"
Column9.ControlSource = "lohntabelle.von3"
Column9.Width = 49
Column9.Visible = .T.
Column9.Name = "Column9"
Column10.ControlSource = "lohntabelle.bis3"
Column10.Width = 49
Column10.Visible = .T.
Column10.Name = "Column10"
Column11.ControlSource = "lohntabelle.dauer3"
Column11.Enabled = .F.
Column11.Width = 49
Column11.ReadOnly = .T.
Column11.Visible = .T.
Column11.Name = "Column11"
Column12.ControlSource = "lohntabelle.von4"
Column12.Width = 49
Column12.Visible = .T.
Column12.Name = "Column12"
Column13.ControlSource = "lohntabelle.bis4"
Column13.Width = 49
Column13.Visible = .T.
Column13.Name = "Column13"
Column14.ControlSource = "lohntabelle.dauer4"
Column14.Enabled = .F.
Column14.Width = 49
Column14.ReadOnly = .T.
Column14.Visible = .T.
Column14.Name = "Column14"
Column15.Alignment = 1
Column15.ControlSource = "lohntabelle.tage"
Column15.Enabled = .F.
Column15.Width = 49
Column15.ReadOnly = .T.
Column15.Visible = .T.
Column15.Name = "Column15"
Column16.Alignment = 1
Column16.ControlSource = "lohntabelle.stunden"
Column16.Enabled = .F.
Column16.Width = 75
Column16.ReadOnly = .T.
Column16.Visible = .T.
Column16.Name = "Column16"
Column17.Alignment = 1
Column17.ControlSource = "lohntabelle.verdienst"
Column17.Enabled = .F.
Column17.Width = 75
Column17.ReadOnly = .T.
Column17.Visible = .T.
Column17.Name = "Column17"
      header      header      Header1      FORM1.grdLohntabelle.Column1      (Caption = "nrdestag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column1      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column2      )Caption = "tagesname"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column2      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column3      $Caption = "von1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column3      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     xPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1
ENDPROC
                                      %         M                 U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTm# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A b!Q A ! A ! A a! A  1                       C         _   m      )                           header      header      Header1      FORM1.grdLohntabelle.Column4      $Caption = "bis1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column4      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
ENDIF
 
hsminfulltemp = (timetominute(this.Value) - timetominute(lohntabelle.von1)) 
hsstdtemp = INT(hsminfulltemp / 60)
hsmintemp = hsminfulltemp - (hsstdtemp * 60)
replace lohntabelle.dauer1 with STR(hsstdtemp,2,0)+":" + IIF(hsmintemp < 10, "0"+ALLTRIM(STR(hsmintemp,2,0)),STR(hsmintemp,2,0))
replace lohntabelle.dauer1min WITH hsminfulltemp
hssummmin = lohntabelle.dauer1min + lohntabelle.dauer2min + lohntabelle.dauer3min + lohntabelle.dauer4min
IF hssummmin > 0
	replace lohntabelle.tage WITH 1
	hsmin2 = (hssummmin - (INT(hssummmin / 60) * 60))
	IF hsmin2 < 10
		hsmin2 = "0"+ALLTRIM(STR(hsmin2,2,0))
	ELSE
		hsmin2 = ALLTRIM(STR(hsmin2,2,0))
	endif
	replace lohntabelle.stunden WITH STR(INT(hssummmin / 60),2,0) + ":" + hsmin2
endif 	
*replace lohntabelle.verdienst with (thisform.satz1.Value / 60) * hssummmin
FLUSH
thisform.rechnen2.click
thisform.rechnen.click
RETURN 1

ENDPROC
     9                                ]   %   M        .   k            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,T" T   C   \ :00   T C    C    T C <8 T   <J >  C  Z :C 

  0CC  Z C  Z6 > 	  % T
  	      
  %
   >   T 
 C
 <8< % 

 T  0CC  Z  T CC  Z ' >  CC
 <8 Z :   [
    
    	 B U  THIS VALUE
 HSMINFULLTEMP TIMETOMINUTE LOHNTABELLE VON1	 HSSTDTEMP	 HSMINTEMP DAUER1	 DAUER1MIN	 HSSUMMMIN	 DAUER2MIN	 DAUER3MIN	 DAUER4MIN TAGE HSMIN2 STUNDEN THISFORM RECHNEN2 CLICK RECHNEN Click,      Validy     1 Q2 1 A a!Q A ! A ! A a!A 1aQ qA qA B    2                       C         _         )                            header      header      Header1      FORM1.grdLohntabelle.Column5      &Caption = "dauer1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column5      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column6      $Caption = "von2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column6      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     vPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1
ENDPROC
                                      %         M                 U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTm# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A a!Q A ! A ! A a! A  1                       C         _   k      )                           header      header      Header1      FORM1.grdLohntabelle.Column7      $Caption = "bis2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column7      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
ENDIF 
hsminfulltemp = (timetominute(this.Value) - timetominute(lohntabelle.von2)) 
hsstdtemp = INT(hsminfulltemp / 60)
hsmintemp = hsminfulltemp - (hsstdtemp * 60)
replace lohntabelle.dauer2 with STR(hsstdtemp,2,0)+":" + IIF(hsmintemp < 10, "0"+ALLTRIM(STR(hsmintemp,2,0)),STR(hsmintemp,2,0))
replace lohntabelle.dauer2min WITH hsminfulltemp
hssummmin = lohntabelle.dauer1min + lohntabelle.dauer2min + lohntabelle.dauer3min + lohntabelle.dauer4min
IF hssummmin > 0
	replace lohntabelle.tage WITH 1
	hsmin2 = (hssummmin - (INT(hssummmin / 60) * 60))
	IF hsmin2 < 10
		hsmin2 = "0"+ALLTRIM(STR(hsmin2,2,0))
	ELSE
		hsmin2 = ALLTRIM(STR(hsmin2,2,0))
	endif
	replace lohntabelle.stunden WITH STR(INT(hssummmin / 60),2,0) + ":" + hsmin2
*	replace lohntabelle.verdienst with (thisform.satz1.Value / 60) * hssummmin	
endif 	
FLUSH
thisform.rechnen2.click
thisform.rechnen.click
RETURN 1

ENDPROC
     9                                ]   %   M        .   k            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,T" T   C   \ :00   T C    C    T C <8 T   <J >  C  Z :C 

  0CC  Z C  Z6 > 	  % T
    	    
  %
   >   T 
 C
 <8< % 

 T  0CC  Z  T CC  Z ' >  CC
 <8 Z :   [
    
    	 B U  THIS VALUE
 HSMINFULLTEMP TIMETOMINUTE LOHNTABELLE VON2	 HSSTDTEMP	 HSMINTEMP DAUER2	 DAUER2MIN	 HSSUMMMIN	 DAUER1MIN	 DAUER3MIN	 DAUER4MIN TAGE HSMIN2 STUNDEN THISFORM RECHNEN2 CLICK RECHNEN Click,      Validy     1 Q2 1 A a!Q A ! A ! A a!A 1aQ qA qB A    2                       C         _         )                            header      header      Header1      FORM1.grdLohntabelle.Column8      &Caption = "dauer2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column8      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column9      $Caption = "von3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column9      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     vPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1
ENDPROC
                                      %         M                 U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTm# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A a!Q A ! A ! A a! A  1                       C         _   k      )                           header      header      Header1      FORM1.grdLohntabelle.Column10      $Caption = "bis3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column10      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
ENDIF
hsminfulltemp = (timetominute(this.Value) - timetominute(lohntabelle.von3)) 
hsstdtemp = INT(hsminfulltemp / 60)
hsmintemp = hsminfulltemp - (hsstdtemp * 60)
replace lohntabelle.dauer3 with STR(hsstdtemp,2,0)+":" + IIF(hsmintemp < 10, "0"+ALLTRIM(STR(hsmintemp,2,0)),STR(hsmintemp,2,0))
replace lohntabelle.dauer3min WITH hsminfulltemp
hssummmin = lohntabelle.dauer1min + lohntabelle.dauer2min + lohntabelle.dauer3min + lohntabelle.dauer4min
IF hssummmin > 0
	replace lohntabelle.tage WITH 1
	hsmin2 = (hssummmin - (INT(hssummmin / 60) * 60))
	IF hsmin2 < 10
		hsmin2 = "0"+ALLTRIM(STR(hsmin2,2,0))
	ELSE
		hsmin2 = ALLTRIM(STR(hsmin2,2,0))
	endif
	replace lohntabelle.stunden WITH STR(INT(hssummmin / 60),2,0) + ":" + hsmin2
*	replace lohntabelle.verdienst with (thisform.satz1.Value / 60) * hssummmin	
endif 	
FLUSH
thisform.rechnen2.click
thisform.rechnen.click
RETURN 1

ENDPROC
     9                                ]   %   M        .   k            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,T" T   C   \ :00   T C    C    T C <8 T   <J >  C  Z :C 

  0CC  Z C  Z6 > 	  % T
      	  
  %
   >   T 
 C
 <8< % 

 T  0CC  Z  T CC  Z ' >  CC
 <8 Z :   [
    
    	 B U  THIS VALUE
 HSMINFULLTEMP TIMETOMINUTE LOHNTABELLE VON3	 HSSTDTEMP	 HSMINTEMP DAUER3	 DAUER3MIN	 HSSUMMMIN	 DAUER1MIN	 DAUER2MIN	 DAUER4MIN TAGE HSMIN2 STUNDEN THISFORM RECHNEN2 CLICK RECHNEN Click,      Validy     1 Q2 1 A a!Q A ! A ! A a!A 1aQ qA qB A    2                       C         _         )                            header      header      Header1      FORM1.grdLohntabelle.Column11      &Caption = "dauer3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column11      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column12      $Caption = "von4"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column12      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     vPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1
ENDPROC
                                      %         M                 U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTm# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A a!Q A ! A ! A a! A  1                       C         _   k      )                           header      header      Header1      FORM1.grdLohntabelle.Column13      $Caption = "bis4"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column13      BorderStyle = 0
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
endif
IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:99" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
ENDIF
hsminfulltemp = (timetominute(this.Value) - timetominute(lohntabelle.von4)) 
hsstdtemp = INT(hsminfulltemp / 60)
hsmintemp = hsminfulltemp - (hsstdtemp * 60)
replace lohntabelle.dauer4 with STR(hsstdtemp,2,0)+":" + IIF(hsmintemp < 10, "0"+ALLTRIM(STR(hsmintemp,2,0)),STR(hsmintemp,2,0))
replace lohntabelle.dauer4min WITH hsminfulltemp
hssummmin = lohntabelle.dauer1min + lohntabelle.dauer2min + lohntabelle.dauer3min + lohntabelle.dauer4min
IF hssummmin > 0
	replace lohntabelle.tage WITH 1
	hsmin2 = (hssummmin - (INT(hssummmin / 60) * 60))
	IF hsmin2 < 10
		hsmin2 = "0"+ALLTRIM(STR(hsmin2,2,0))
	ELSE
		hsmin2 = ALLTRIM(STR(hsmin2,2,0))
	endif
	replace lohntabelle.stunden WITH STR(INT(hssummmin / 60),2,0) + ":" + hsmin2
*	replace lohntabelle.verdienst with (thisform.satz1.Value / 60) * hssummmin	
endif
FLUSH
thisform.rechnen2.click
thisform.rechnen.click
RETURN 1

ENDPROC
PROCEDURE LostFocus
thisform.grdlohntabelle.column3.text1.setfocus
SELECT lohntabelle
SKIP
thisform.LockScreen = .t.
thisform.grdlohntabelle.refresh
thisform.LockScreen = .f.
ENDPROC
                                      %           5   "            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:99 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,T" T   C   \ :00   T C    C    T C <8 T   <J >  C  Z :C 

  0CC  Z C  Z6 > 	  % T
      
  	  %
   >   T 
 C
 <8< % 

 T  0CC  Z  T CC  Z ' >  CC
 <8 Z :   [
    
    	 B U  THIS VALUE
 HSMINFULLTEMP TIMETOMINUTE LOHNTABELLE VON4	 HSSTDTEMP	 HSMINTEMP DAUER4	 DAUER4MIN	 HSSUMMMIN	 DAUER1MIN	 DAUER2MIN	 DAUER3MIN TAGE HSMIN2 STUNDEN THISFORM RECHNEN2 CLICK RECHNENJ         F  H T   a
      T   - U  THISFORM GRDLOHNTABELLE COLUMN3 TEXT1 SETFOCUS LOHNTABELLE
 LOCKSCREEN REFRESH Click,      Validy     	 LostFocusM    1 Q2 1 A a!Q A ! A ! A a!A 1aQ qA qB A    3 1q A    1                       C         _        .       2    )                           header      header      Header1      FORM1.grdLohntabelle.Column14      &Caption = "dauer4"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column14      BorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column15      $Caption = "tage"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column15      Alignment = 1
BorderStyle = 0
Enabled = .F.
Format = "9"
InputMask = "9"
Margin = 0
MaxLength = 1
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column16      'Caption = "stunden"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column16      Alignment = 1
BorderStyle = 0
Enabled = .F.
Format = "99:99"
InputMask = "99:99"
Margin = 0
MaxLength = 5
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLohntabelle.Column17      )Caption = "verdienst"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLohntabelle.Column17      Alignment = 1
BorderStyle = 0
Enabled = .F.
Format = "99999.99"
InputMask = "99999.99"
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      
monatsname      FORM1      FontBold = .T.
FontSize = 20
Alignment = 2
Caption = "Monatsname"
Height = 34
Left = 17
Top = 152
Width = 145
BackColor = 255,255,255
Name = "monatsname"
      label      label      Label16      FORM1      nCaption = "HH:MM"
Height = 15
Left = 226
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label16"
      label      label      Label18      FORM1      nCaption = "HH:MM"
Height = 15
Left = 276
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label18"
      label      label      Label19      FORM1      lCaption = "von"
Height = 15
Left = 335
Top = 203
Width = 23
BackColor = 255,255,255
Name = "Label19"
      label      label      Label21      FORM1      nCaption = "HH:MM"
Height = 15
Left = 326
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label21"
      label      label      Label22      FORM1      lCaption = "bis"
Height = 15
Left = 386
Top = 203
Width = 19
BackColor = 255,255,255
Name = "Label22"
      label      label      Label23      FORM1      nCaption = "Dauer"
Height = 15
Left = 426
Top = 203
Width = 37
BackColor = 255,255,255
Name = "Label23"
      label      label      Label24      FORM1      nCaption = "HH:MM"
Height = 15
Left = 376
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label24"
      label      label      Label25      FORM1      nCaption = "HH:MM"
Height = 15
Left = 426
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label25"
      label      label      Label26      FORM1      lCaption = "von"
Height = 15
Left = 484
Top = 203
Width = 23
BackColor = 255,255,255
Name = "Label26"
      label      label      Label27      FORM1      nCaption = "HH:MM"
Height = 15
Left = 476
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label27"
      label      label      Label28      FORM1      lCaption = "bis"
Height = 15
Left = 535
Top = 203
Width = 19
BackColor = 255,255,255
Name = "Label28"
      label      label      Label29      FORM1      nCaption = "Dauer"
Height = 15
Left = 576
Top = 203
Width = 37
BackColor = 255,255,255
Name = "Label29"
      label      label      Label30      FORM1      nCaption = "HH:MM"
Height = 15
Left = 526
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label30"
      label      label      Label31      FORM1      nCaption = "HH:MM"
Height = 15
Left = 576
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label31"
      label      label      Label32      FORM1      lCaption = "von"
Height = 15
Left = 635
Top = 203
Width = 23
BackColor = 255,255,255
Name = "Label32"
      label      label      Label33      FORM1      nCaption = "HH:MM"
Height = 15
Left = 626
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label33"
      label      label      Label34      FORM1      lCaption = "bis"
Height = 15
Left = 685
Top = 203
Width = 20
BackColor = 255,255,255
Name = "Label34"
      label      label      Label35      FORM1      nCaption = "Dauer"
Height = 15
Left = 726
Top = 203
Width = 37
BackColor = 255,255,255
Name = "Label35"
      label      label      Label36      FORM1      nCaption = "HH:MM"
Height = 15
Left = 676
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label36"
      label      label      Label37      FORM1      nCaption = "HH:MM"
Height = 15
Left = 726
Top = 217
Width = 41
BackColor = 255,255,255
Name = "Label37"
      label      label      Label38      FORM1      XCaption = "Zeitrahmen"
Height = 18
Left = 12
Top = 36
Width = 71
Name = "Label38"
      textbox      textbox      aktivermonat      FORM1      }Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 924
Top = 6
Visible = .F.
Width = 52
Name = "aktivermonat"
      textbox      textbox      Text5      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 90
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text5"
      textbox      textbox      Text6      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 90
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text6"
      textbox      textbox      Text7      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 90
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text7"
      textbox      textbox      Text8      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 153
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text8"
      textbox      textbox      Text9      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 153
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text9"
      textbox      textbox      Text10      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 153
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text10"
      textbox      textbox      Text11      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 214
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text11"
      textbox      textbox      Text12      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 214
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text12"
      textbox      textbox      Text13      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 214
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text13"
      textbox      textbox      Text14      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 277
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text14"
      textbox      textbox      Text15      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 277
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text15"
      textbox      textbox      Text16      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 277
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text16"
      textbox      textbox      Text17      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 336
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text17"
      textbox      textbox      Text18      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 336
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text18"
      textbox      textbox      Text19      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 336
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text19"
      textbox      textbox      Text20      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 399
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text20"
      textbox      textbox      Text21      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 399
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text21"
      textbox      textbox      Text22      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 399
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text22"
      textbox      textbox      Text23      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 460
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text23"
      textbox      textbox      Text24      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 460
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text24"
      textbox      textbox      Text25      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 460
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text25"
      textbox      textbox      Text26      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 523
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text26"
      textbox      textbox      Text27      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 523
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text27"
      textbox      textbox      Text28      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 523
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text28"
      textbox      textbox      Text29      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 588
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text29"
      textbox      textbox      Text30      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 588
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text30"
      textbox      textbox      Text31      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 588
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text31"
      textbox      textbox      Text32      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 651
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text32"
      textbox      textbox      Text33      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 651
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text33"
      textbox      textbox      Text34      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 651
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text34"
      textbox      textbox      Text35      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 712
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text35"
      textbox      textbox      Text36      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 712
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text36"
      textbox      textbox      Text37      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 712
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text37"
      textbox      textbox      Text38      FORM1      Alignment = 1
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 775
Top = 58
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text38"
      textbox      textbox      Text39      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 775
Top = 79
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text39"
      textbox      textbox      Text40      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 775
Top = 100
Width = 52
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text40"
      textbox      textbox      Text41      FORM1      Alignment = 1
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 840
Top = 58
Width = 71
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text41"
      textbox      textbox      Text42      FORM1      Alignment = 1
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 840
Top = 79
Width = 71
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text42"
      textbox      textbox      Text43      FORM1      Alignment = 1
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 840
Top = 100
Width = 71
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "Text43"
      
commandbutton      
commandbutton      rechnen      FORM1      tTop = 30
Left = 927
Height = 19
Width = 49
Caption = "rechnen"
Enabled = .F.
Visible = .F.
Name = "rechnen"
     BPROCEDURE Click
thisform.LockScreen = .t.
SELECT lohntabelle2

FOR hsax = 1 TO 13
	monnr = IIF(hsax < 10, "0"+STR(hsax,1,0),STR(hsax,2,0))
	IF hsax < 13
		SUM lohntabelle2.dauer1min, lohntabelle2.dauer2min, lohntabelle2.dauer3min, lohntabelle2.dauer4min, lohntabelle2.tage, lohntabelle2.verdienst FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = welchesjahrc + monnr TO dmin1, dmin2, dmin3, dmin4, dtage, dverdienst
	ELSE
		SUM lohntabelle2.dauer1min, lohntabelle2.dauer2min, lohntabelle2.dauer3min, lohntabelle2.dauer4min, lohntabelle2.tage, lohntabelle2.verdienst FOR lohntabelle2.persnr = fileneu .and. SUBSTR(lohntabelle2.jahrmon,1,4) = welchesjahrc TO dmin1, dmin2, dmin3, dmin4, dtage, dverdienst
	ENDIF

	dminges = dmin1+dmin2+dmin3+dmin4
	IF dminges < 60
		dmingeshours = "0"
	else
		dmingeshours = ALLTRIM(STR(INT(dminges / 60),4,0))
	endif
	dmingesminut = dminges - (INT(dminges/60) * 60)
	IF dmingesminut < 10
		dmingesminut = "0"+STR(dmingesminut,1,0)
	ELSE
		dmingesminut = STR(dmingesminut,2,0)
	endif	
	DO case
		CASE hsax = 1
			thisform.text5.Value = dtage
			thisform.text6.Value = dmingeshours+":"+dmingesminut
			thisform.text7.Value = dverdienst
		CASE hsax = 2
			thisform.text8.Value = dtage
			thisform.text9.Value = dmingeshours+":"+dmingesminut
			thisform.text10.Value = dverdienst
		CASE hsax = 3
			thisform.text11.Value = dtage
			thisform.text12.Value = dmingeshours+":"+dmingesminut
			thisform.text13.Value = dverdienst
		CASE hsax = 4
			thisform.text14.Value = dtage
			thisform.text15.Value = dmingeshours+":"+dmingesminut
			thisform.text16.Value = dverdienst
		CASE hsax = 5
			thisform.text17.Value = dtage
			thisform.text18.Value = dmingeshours+":"+dmingesminut
			thisform.text19.Value = dverdienst		
		CASE hsax = 6
			thisform.text20.Value = dtage
			thisform.text21.Value = dmingeshours+":"+dmingesminut
			thisform.text22.Value = dverdienst
		CASE hsax = 7
			thisform.text23.Value = dtage
			thisform.text24.Value = dmingeshours+":"+dmingesminut
			thisform.text25.Value = dverdienst		
		CASE hsax = 8
			thisform.text26.Value = dtage
			thisform.text27.Value = dmingeshours+":"+dmingesminut
			thisform.text28.Value = dverdienst		
		CASE hsax = 9
			thisform.text29.Value = dtage
			thisform.text30.Value = dmingeshours+":"+dmingesminut
			thisform.text31.Value = dverdienst	
		CASE hsax = 10
			thisform.text32.Value = dtage
			thisform.text33.Value = dmingeshours+":"+dmingesminut
			thisform.text34.Value = dverdienst	
		CASE hsax = 11		
			thisform.text35.Value = dtage
			thisform.text36.Value = dmingeshours+":"+dmingesminut
			thisform.text37.Value = dverdienst	
		CASE hsax = 12
			thisform.text38.Value = dtage
			thisform.text39.Value = dmingeshours+":"+dmingesminut
			thisform.text40.Value = dverdienst			
		CASE hsax = 13
			thisform.text41.Value = dtage
			thisform.text42.Value = dmingeshours+":"+dmingesminut
			thisform.text43.Value = dverdienst	
	ENDCASE
NEXT
thisform.teilurlaub.label1.Value = 312
thisform.teilurlaub.label3.Value = 0
thisform.teilurlaub.label4.Value = 0
thisform.teilurlaub.label5.Value = 0
thisform.teilurlaub.label6.Value = 0
thisform.teilurlaub.label7.Value = 0
thisform.teilurlaub.label8.Value = 0
thisform.teilurlaub.label9.Value = 0
thisform.teilurlaub.label10.Value = 0
thisform.teilurlaub.label11.Value = 0
thisform.teilurlaub.label12.Value = 0
thisform.teilurlaub.label13.Value = 0
thisform.teilurlaub.label14.Value = 0
thisform.teilurlaub.label15.Value = 0
thisform.teilurlaub.label16.Value = 0
thisform.teilurlaub.label17.Value = 0
thisform.teilurlaub.label18.Value = 0
thisform.teilurlaub.vorgabe.Value = 0
thisform.teilurlaub.istgleich.caption = "="

SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = fileneu .and. lohntabelle2.jahrmon = welchesjahrc + "13"
thisform.teilurlaub.vorgabe.Value = lohntabelle2.vorgabe

erster = 0
FOR hsax = 5 TO 38 STEP 3
	hsss = ALLTRIM(STR(hsax,2,0))
	IF .not. EMPTY(thisform.text&hsss..value)&& .and. EMPTY(thisform.teilurlaub.label3.Value)
		thisform.teilurlaub.label3.Value = getmonatsname(INT((hsax / 3)),1)
		erster = INT((hsax / 3))
		exit
	ENDIF
next	

letzter = 0
FOR hsax = 38 TO 5 STEP -3
	hsss = ALLTRIM(STR(hsax,2,0))
	IF .not. EMPTY(thisform.text&hsss..value) &&.and. EMPTY(thisform.teilurlaub.label4.Value)
		thisform.teilurlaub.label4.Value = getmonatsname(INT((hsax / 3)),1)
		letzter = INT((hsax / 3))
		exit
	ENDIF
next	

volle = 0
arbeitstage = 0
FOR hsax = 5 TO 38 STEP 3
	hsss = ALLTRIM(STR(hsax,2,0))
	IF .not. EMPTY(thisform.text&hsss..value)
		volle = volle + 1
		IF INT((hsax / 3)) >= erster .and. INT((hsax / 3)) <= letzter
			arbeitstage = arbeitstage + thisform.text&hsss..value
		endif
	ENDIF
next	
thisform.teilurlaub.label5.Value = volle
thisform.teilurlaub.label6.Value = arbeitstage
thisform.teilurlaub.label7.Value = arbeitstage/INT(thisform.teilurlaub.label1.Value) * 100
thisform.teilurlaub.label8.Value = (thisform.teilurlaub.urlaubstage.Value * thisform.teilurlaub.label7.Value) / 100
label9_temp = (thisform.teilurlaub.urlaubstage.Value * thisform.teilurlaub.label7.Value) / 100
IF label9_temp < 1 .and. label9_temp >= 0.5
	thisform.teilurlaub.label9.Value = 1
ELSE
	IF label9_temp - INT(label9_temp) >= 0.5
		thisform.teilurlaub.label9.Value = INT(label9_temp) + 1
	ELSE
		thisform.teilurlaub.label9.Value = label9_temp 
	ENDIF
ENDIF

Wartezeit = (24 + Anspruch - 1) * thisform.teilurlaub.label7.Value / 100

If volle > 5  
	thisform.teilurlaub.vollerUrlaub.Visible = True 
Else 
	thisform.teilurlaub.vollerUrlaub.Visible = False
ENDIF

thisform.teilurlaub.Label8.value = Wartezeit 

Rundung = Wartezeit - int(Wartezeit)
If Rundung > 0.499 Then 
	Rundung = int(Wartezeit) + 1 
Else 
	Rundung = Wartezeit
ENDIF

thisform.teilurlaub.Label9.value = Rundung

drittervorher = letzter - 2
If drittervorher < 1 
	drittervorher = 1
ENDIF

Lohn = 0
If erster > 0 
   For i = drittervorher To letzter
   		zieltext = ALLTRIM(STR(7 + (3 * (i-1)),2,0))
       Lohn = Lohn + thisform.text&zieltext..value
   Next
EndIf
myarbeitszeit.teilurlaub.Label10.value = Lohn

arbeitstage = 0
If erster > 0 
   For i = drittervorher To letzter
   		zieltext = ALLTRIM(STR(5 + (3 * (i-1)),2,0))
       arbeitstage = arbeitstage + thisform.text&zieltext..value
   Next
EndIf
myarbeitszeit.teilurlaub.Label11.value = arbeitstage

Arbeitsstunden = 0
If erster > 0 Then
   For i = drittervorher To letzter
	   	zieltext = ALLTRIM(STR(6 + (3 * (i-1)),2,0))
       Arbeitsstunden = Arbeitsstunden + timetominute(thisform.text&zieltext..value)
   Next
ENDIF

myarbeitszeit.teilurlaub.Label12.value = ALLTRIM(STR(int(Arbeitsstunden / 60),2,0)) + ":" + STR(Arbeitsstunden - (int(Arbeitsstunden / 60) * 60),2,0)

*Arbeitsstunden pro Tag
If arbeitstage > 0 
   stundenprotag = Arbeitsstunden / arbeitstage
Else
   stundenprotag = 0
EndIf
myarbeitszeit.teilurlaub.Label13.value = ALLTRIM(STR(int(stundenprotag / 60),2,0)) + ":" + STR(stundenprotag - (int(stundenprotag / 60) * 60),2,0)


*Stundenlohn
If Arbeitsstunden > 0 Then
   Stundenlohn = Lohn / Arbeitsstunden * 6000
   If Stundenlohn - int(Stundenlohn) > 0.49  
   		Stundenlohn = int(Stundenlohn) + 1 
   	Else 
   		Stundenlohn = int(Stundenlohn)
   	endif
Else
   Stundenlohn = 0
EndIf
myarbeitszeit.teilurlaub.Label14.value = Stundenlohn / 100

If vorgabewert = 0 Then
   vorgabewert = Stundenlohn
   myarbeitszeit.teilurlaub.Vorgabe.value = Stundenlohn / 100
EndIf

abfindung = ROUND(Rundung * stundenprotag / 60 * vorgabewert,2)
myarbeitszeit.teilurlaub.Label15.value = abfindung

myarbeitszeit.teilurlaub.Label16.value = myarbeitszeit.teilurlaub.Label9.value 
myarbeitszeit.teilurlaub.Label17.value = myarbeitszeit.teilurlaub.Label13.value 
myarbeitszeit.teilurlaub.Label18.value = vorgabewert

select lohntabelle
thisform.LockScreen = .f.
ENDPROC
                                   -   %         |                 U   T   a F   (
r4 T C 

  0C  Z C  Z6 % 

 p K     
   	(               	  
  ]t K    C 
 \ 	(               	  
   T      % <
 T  0  T CCC <8 Z  T  C <8< % 

	 T  0C  Z & T C  Z 
 H7n   T      T      :  T        T      T      :  T       0 T      T       :  T  !      T  "    T  #    :  T  $      T  %    T  &    :  T  '     ) T  (    T  )    :  T  *     | T  +    T  ,    :  T  -      T  .    T  /    :  T  0     	" T  1    T  2    :  T  3     
u T  4    T  5    :  T  6      T  7    T  8    :  T  9      T  :    T  ;    :  T  <     
n T  =    T  >    :  T  ?      T  @ A  8 T  @ B    T  @ C    T  @ D    T  @ E    T  @ F    T  @ G    T  @ H    T  @ I    T  @ J    T  @ K    T  @ L    T  @ M    T  @ N    T  @ O    T  @ P    T  @ Q    T  @ R    T  @ S T  = F % -     
   13	 T  @ R   R 
 TU    (&	 TV CC  Z1 IF .not. EMPTY(thisform.text&hsss..value)
	$ T  @ B  CC 8W  TU C 8 !  
 TX    &(	 TV CC  Z2 IF .not. EMPTY(thisform.text&hsss..value) 	$ T  @ C  CC 8W  TX C 8 !  
 TY  
 TZ    (&
 TV CC  Z1 IF .not. EMPTY(thisform.text&hsss..value)
 TY Y * %C 8U  C 8X 	
9 arbeitstage = arbeitstage + thisform.text&hsss..value
    T  @ D  Y  T  @ E  Z ) T  @ F  Z C  @ A  8d1 T  @ G    @ [    @ F  d( T\   @ [    @ F  d$ %\ 
 \       ?	 T  @ H    %\ C\ 8      ? T  @ H  C\ 8  T  @ H  \   ' T] ^   @ F  d %Y k T  @ _ ` a   T  @ _ ` b   T  @ G  ]  Tc ] C] 8 %c V-? Tc C] 8 
 Tc ]   T  @ H  c  Td X  %d 
@

 Td  
 Te   %U  
 f d (X 
% Tg CCf  Z/ Lohn = Lohn + thisform.text&zieltext..value
   Th @ I  e 
 TZ   %U   f d (X % Tg CCf  Z= arbeitstage = arbeitstage + thisform.text&zieltext..value
   Th @ J  Z 
 Ti   %U  O f d (X K% Tg CCf  ZQ Arbeitsstunden = Arbeitsstunden + timetominute(thisform.text&zieltext..value)
  F Th @ K  CCCi <8 Z :Ci Ci <8< Z %Z   Tj i Z  
 Tj   F Th @ L  CCCj <8 Z :Cj Cj <8< Z %i   Tk e i p %k Ck 8\(\?s Tk Ck 8  Tk Ck 8  
 Tk    Th @ M  k d %l  
 Tl k  Th @ R  k d  Tm Cc j <l T Th @ N  m  Th @ O  h @ H   Th @ P  h @ L   Th @ Q  l  Fn  T   - Uo  THISFORM
 LOCKSCREEN LOHNTABELLE2 HSAX MONNR	 DAUER1MIN	 DAUER2MIN	 DAUER3MIN	 DAUER4MIN TAGE	 VERDIENST PERSNR FILENEU JAHRMON WELCHESJAHRC DMIN1 DMIN2 DMIN3 DMIN4 DTAGE
 DVERDIENST DMINGES DMINGESHOURS DMINGESMINUT TEXT5 VALUE TEXT6 TEXT7 TEXT8 TEXT9 TEXT10 TEXT11 TEXT12 TEXT13 TEXT14 TEXT15 TEXT16 TEXT17 TEXT18 TEXT19 TEXT20 TEXT21 TEXT22 TEXT23 TEXT24 TEXT25 TEXT26 TEXT27 TEXT28 TEXT29 TEXT30 TEXT31 TEXT32 TEXT33 TEXT34 TEXT35 TEXT36 TEXT37 TEXT38 TEXT39 TEXT40 TEXT41 TEXT42 TEXT43
 TEILURLAUB LABEL1 LABEL3 LABEL4 LABEL5 LABEL6 LABEL7 LABEL8 LABEL9 LABEL10 LABEL11 LABEL12 LABEL13 LABEL14 LABEL15 LABEL16 LABEL17 LABEL18 VORGABE	 ISTGLEICH CAPTION ERSTER HSSS
 GETMONATSNAME LETZTER VOLLE ARBEITSTAGE URLAUBSTAGE LABEL9_TEMP	 WARTEZEIT ANSPRUCH VOLLERURLAUB VISIBLE TRUE FALSE RUNDUNG
 DRITTERVORHER LOHN I ZIELTEXT
 MYARBEITSZEIT ARBEITSSTUNDEN
 STUNDENPROTAG STUNDENLOHN VORGABEWERT	 ABFINDUNG LOHNTABELLE Click,     1  q rA AA   A  QA  11111111111111111111111111A A qaaaaaaaaaaaaaaaaaqr Q qAAA A A  q!AAA A A   qA A A aaAa  aA A ra aA b21  A b A  qQA A a qQA A a qQA A b  A aa1  A   A  A aar  1                       7      )                           
commandbutton      
commandbutton      rechnen2      FORM1      vTop = 51
Left = 927
Height = 19
Width = 49
Caption = "2rechnen"
Enabled = .F.
Visible = .F.
Name = "rechnen2"
     VPROCEDURE Click
thisform.lockscreen = .t.
SELECT lohntabelle
hsrecno = recno()
GO top
xgestage = 0
xgesmins = 0
xgesverdienst = 0
DO WHILE .not. EOF()
	replace lohntabelle.verdienst WITH (lohntabelle.dauer1min * (thisform.satz1.value/60)) + (lohntabelle.dauer2min  * (thisform.satz2.value/60)) + (lohntabelle.dauer3min  * (thisform.satz3.value/60)) + (lohntabelle.dauer4min  * (thisform.satz4.value/60))
	FLUSH
	xgestage = xgestage + lohntabelle.tage
	xgesmins = xgesmins + lohntabelle.dauer1min + lohntabelle.dauer2min + lohntabelle.dauer3min + lohntabelle.dauer4min
	xgesverdienst = xgesverdienst + lohntabelle.verdienst
	SKIP
ENDDO
thisform.anztage.value = xgestage
thisform.gesverdienst.Value = xgesverdienst

xstd = ALLTRIM(STR(INT(xgesmins / 60),4,0))
xmins = xgesmins - (INT(xgesmins / 60) * 60)
IF xmins < 10
	xmins = "0"+STR(xgesmins - (INT(xgesmins / 60) * 60),1,0)
ELSE
	xmins = STR(xgesmins - (INT(xgesmins / 60) * 60),2,0)
endif
thisform.anzstunden.value = xstd + ":" + xmins
select lohntabelle
GOTO hsrecno
thisform.rechnen.click
thisform.lockscreen = .f.
ENDPROC
                                   ^   %   R           a            U  3 T   a F  T CO #)
 T  
 T  
 T   +C+
h >      	 
 <     
 < 
    
 <     
 < [ T    ) T       
    T     H  T   
   T   
   T CCC <8 Z T  C <8< % 

) T  0C C <8< Z $ T C C <8< Z  T   
   :  F 	 # 
      T   - U  THISFORM
 LOCKSCREEN LOHNTABELLE HSRECNO XGESTAGE XGESMINS
 XGESVERDIENST	 VERDIENST	 DAUER1MIN SATZ1 VALUE	 DAUER2MIN SATZ2	 DAUER3MIN SATZ3	 DAUER4MIN SATZ4 TAGE ANZTAGE GESVERDIENST XSTD XMINS
 ANZSTUNDEN RECHNEN CLICK Click,     1  q  Q     A AAA A 11 AA q    1                       K      )                           checkbox      checkbox      Check1      FORM1      ^Top = 123
Left = 108
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check1"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check2      FORM1      ^Top = 123
Left = 171
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check2"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check3      FORM1      ^Top = 123
Left = 231
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check3"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check4      FORM1      ^Top = 123
Left = 294
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check4"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check5      FORM1      ^Top = 123
Left = 355
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check5"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check6      FORM1      ^Top = 123
Left = 418
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check6"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check7      FORM1      ^Top = 123
Left = 478
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check7"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check8      FORM1      ^Top = 123
Left = 541
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check8"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check9      FORM1      ^Top = 123
Left = 607
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check9"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check10      FORM1      _Top = 123
Left = 670
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check10"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check11      FORM1      _Top = 123
Left = 730
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check11"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            checkbox      checkbox      Check12      FORM1      _Top = 123
Left = 793
Height = 16
Width = 16
Alignment = 0
Caption = ""
Name = "Check12"
      4PROCEDURE Click
thisform.checkprog.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 CHECKPROG CLICK Click,     1  1                       )       )                            
commandbutton      
commandbutton      	checkprog      FORM1      xTop = 71
Left = 927
Height = 16
Width = 46
Caption = "checkprog"
Enabled = .F.
Visible = .F.
Name = "checkprog"
     LPROCEDURE Click
return
If startflag = True
	RETURN
endif
erster = 0
For i = 1 To 12
	hsxxx = ALLTRIM(STR(i,2,0))
    If .not. EMPTY(thisform.Check&hsxxx..Value)
       erster = i
       thisform.Check&hsxxx..forecolor = QBColor(10)
       Exit
    EndIf
Next
letzter = 0
For i = 12 To 1 Step -1
	hsxxx = ALLTRIM(STR(i,2,0))
	If .not. EMPTY(thisform.Check&hsxxx..Value)
	   letzter = i
	   thisform.Check&hsxxx..forecolor = QBColor(12)
	   Exit
	EndIf
Next
myGet(89, 385, "Lhner")
Lhner.vonbis(1) = erster
Lhner.vonbis(2) = letzter
If erster > 0 And letzter > 0 Then
   Lhner.vonbis(3) = letzter - erster + 1
Else
   Lhner.vonbis(3) = 0
EndIf
myPut(89, 385, "Lhner")


volle = letzter - erster + 1
If erster > 0 Then 
	thisform.Label5.Caption = Mt(erster) &&label3
Else 
	thisform.Label5.Caption = "- - -" &&label3
endif
If letzter > 0 Then 
	thisform.Label10.Caption = Mt(letzter) &&label4
Else 
	thisform.Label10.Caption = thisform.Label5.Caption &&label4 + label3
endif
thisform.Label11.Caption = volle &&label5
*DO jahrestabellefllen
ENDPROC
         z  z                           %         1  -               U   B %     B 
 T    (  T CC  Z3 If .not. EMPTY(thisform.Check&hsxxx..Value) 
 T  1 thisform.Check&hsxxx..forecolor = QBColor(10)
 !  
 T    ( T CC  Z3 If .not. EMPTY(thisform.Check&hsxxx..Value)
 T  1 thisform.Check&hsxxx..forecolor = QBColor(12)
 !   CY Lhner  T    T    %     	 T     2 T     CY Lhner	  T
    %   T  
 C     T  
  - - -  %   T  
 C     T  
   
   T  
 
  U 	 STARTFLAG TRUE ERSTER I HSXXX LETZTER MYGET LHNER VONBIS MYPUT VOLLE THISFORM LABEL5 CAPTION MT LABEL10 LABEL11 Click,     1 A A A  qq1 A A A  q1 A A A aa aA S A  A 12                       A      )   z                        label      label      Label4      FORM1      YCaption = "voller Monat"
Height = 19
Left = 9
Top = 121
Width = 64
Name = "Label4"
      	container      	container      
Teilurlaub      FORM1      cTop = 123
Left = 2
Width = 975
Height = 621
Enabled = .T.
Visible = .F.
Name = "Teilurlaub"
      
commandbutton      
commandbutton      Command3      FORM1.Teilurlaub      YTop = 6
Left = 860
Height = 28
Width = 109
Caption = "schlieen"
Name = "Command3"
      EPROCEDURE Click

thisform.Teilurlaub.Visible = False


ENDPROC
                                      ez   %   l             {             U    T      U  THISFORM
 TEILURLAUB VISIBLE FALSE Click,     1 23                       :       )                            label      label      	sevLabel8      FORM1.Teilurlaub      Caption = "Rechtsgrundlage fr die folgende Berechnung:   B U N D E S U R L A U B S G E S E T Z"
Height = 21
Left = 30
Top = 12
Width = 790
ForeColor = 0,0,255
Name = "sevLabel8"
      label      label      	sevLabel1      FORM1.Teilurlaub      Caption = " 3 Der Urlaub betrgt jhrlich mindestens 24 Werktage. Als Werktage gelten alle Kalendertage, die nicht Sonn- oder Feiertage sind."
Height = 21
Left = 30
Top = 29
Width = 790
ForeColor = 0,0,255
Name = "sevLabel1"
      label      label      	sevLabel2      FORM1.Teilurlaub      Caption = " 4 Der   v o l l e   Urlaubsanspruch wird erstmalig nach sechsmonatigem Bestehen des Arbeitsverhltnisses erworben."
Height = 21
Left = 30
Top = 46
Width = 790
ForeColor = 0,0,255
Name = "sevLabel2"
      label      label      	sevLabel3      FORM1.Teilurlaub      Caption = " 5 (1) Anspruch auf ein Zwlftel des Jahresurlaubs fr jeden vollen Monat des Bestehens des Arbeitsverhltnisses hat der Arbeitnehmer"
Height = 21
Left = 30
Top = 63
Width = 790
ForeColor = 0,0,255
Name = "sevLabel3"
      label      label      	sevLabel4      FORM1.Teilurlaub      Caption = "a) fr Zeiten eines Kalenderjahres, fr die er wegen Nichterfllung der Wartezeit in diesem Kalenderjahr keinen vollen Urlaubsanspruch erwirbt."
Height = 21
Left = 30
Top = 80
Width = 790
ForeColor = 0,0,255
Name = "sevLabel4"
      label      label      	sevLabel5      FORM1.Teilurlaub      Caption = "b) wenn er vor erfllter Wartezeit aus dem Arbeitsverhltnis ausscheidet,"
Height = 21
Left = 30
Top = 96
Width = 790
ForeColor = 0,0,255
Name = "sevLabel5"
      label      label      	sevLabel6      FORM1.Teilurlaub      Caption = "c) wenn er nach erfllter Wartezeit in der ersten Hlfte eines Kalenderjahres aus dem Arbeitsverhltnis ausscheidet."
Height = 21
Left = 30
Top = 113
Width = 790
ForeColor = 0,0,255
Name = "sevLabel6"
      label      label      	sevLabel7      FORM1.Teilurlaub      Caption = " 5 (2) Bruchteile von Urlaubstagen, die mindestens einen halben Tag ergeben, sind auf volle Urlaubstage aufzurunden."
Height = 21
Left = 30
Top = 130
Width = 790
ForeColor = 0,0,255
Name = "sevLabel7"
      textbox      textbox      label1      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 167
Width = 97
Name = "label1"
      textbox      textbox      label3      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 210
Width = 97
Name = "label3"
      textbox      textbox      label4      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 232
Width = 97
Name = "label4"
      textbox      textbox      label5      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 254
Width = 97
Name = "label5"
      textbox      textbox      label6      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 277
Width = 97
Name = "label6"
      textbox      textbox      label7      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 488
Top = 299
Width = 97
Name = "label7"
      textbox      textbox      label8      FORM1.Teilurlaub      PAlignment = 1
Height = 21
Left = 660
Top = 321
Width = 97
Name = "label8"
      textbox      textbox      label9      FORM1.Teilurlaub      yFontBold = .T.
Alignment = 1
Height = 21
Left = 660
Top = 343
Width = 97
BackColor = 255,255,128
Name = "label9"
      textbox      textbox      label10      FORM1.Teilurlaub      QAlignment = 1
Height = 21
Left = 488
Top = 426
Width = 97
Name = "label10"
      textbox      textbox      label11      FORM1.Teilurlaub      QAlignment = 1
Height = 21
Left = 488
Top = 382
Width = 97
Name = "label11"
      textbox      textbox      label12      FORM1.Teilurlaub      QAlignment = 1
Height = 21
Left = 488
Top = 404
Width = 97
Name = "label12"
      textbox      textbox      label13      FORM1.Teilurlaub      QAlignment = 1
Height = 21
Left = 488
Top = 447
Width = 97
Name = "label13"
      textbox      textbox      label14      FORM1.Teilurlaub      jAlignment = 1
Height = 21
Left = 488
Top = 469
Width = 97
BackColor = 128,255,255
Name = "label14"
      textbox      textbox      label15      FORM1.Teilurlaub      xFontBold = .T.
Alignment = 1
Height = 21
Left = 660
Top = 513
Width = 97
BackColor = 255,255,0
Name = "label15"
      textbox      textbox      label16      FORM1.Teilurlaub      jAlignment = 1
Height = 21
Left = 149
Top = 515
Width = 80
BackColor = 255,255,128
Name = "label16"
      textbox      textbox      label17      FORM1.Teilurlaub      jAlignment = 1
Height = 21
Left = 343
Top = 514
Width = 80
BackColor = 128,255,255
Name = "label17"
      textbox      textbox      label18      FORM1.Teilurlaub      jAlignment = 1
Height = 21
Left = 488
Top = 513
Width = 97
BackColor = 255,191,191
Name = "label18"
      textbox      textbox      Vorgabe      FORM1.Teilurlaub      jAlignment = 1
Height = 21
Left = 488
Top = 491
Width = 97
BackColor = 255,191,191
Name = "Vorgabe"
     ?PROCEDURE Valid
vorgabewert = this.value
SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = myform1.tdbnumber1.value .and. lohntabelle2.jahrmon = welchesjahrc + "13"
replace lohntabelle2.vorgabe WITH vorgabewert 
FLUSH

SELECT lohntabelle
thisform.rechnen.Click
thisform.rechnen2.click
RETURN .t.
ENDPROC
                                   2   %   G      l     V            U    T     F + -          13	 > 	    [ F
 
   
 
   
  Ba U  VORGABEWERT THIS VALUE LOHNTABELLE2 PERSNR MYFORM1
 TDBNUMBER1 JAHRMON WELCHESJAHRC VORGABE LOHNTABELLE THISFORM RECHNEN CLICK RECHNEN2 Valid,     1 q A r   q 1                       4      )                           combobox      combobox      Urlaubstage      FORM1.Teilurlaub      FHeight = 22
Left = 661
Top = 166
Width = 97
Name = "Urlaubstage"
     ]PROCEDURE InteractiveChange
Anspruch = thisform.teilurlaub.Urlaubstage.ListIndex

SELECT lohntabelle2
LOCATE FOR lohntabelle2.persnr = myform1.tdbnumber1.value .and. lohntabelle2.jahrmon = welchesjahrc + "13"
replace lohntabelle2.Anspruch WITH this.Value 
FLUSH

SELECT lohntabelle
thisform.rechnen.Click
thisform.rechnen2.click
ENDPROC
                                      %   a        
   |            U    T       F + -    	   
   13	 >    	  [ F
 
    
     U  ANSPRUCH THISFORM
 TEILURLAUB URLAUBSTAGE	 LISTINDEX LOHNTABELLE2 PERSNR MYFORM1
 TDBNUMBER1 VALUE JAHRMON WELCHESJAHRC THIS LOHNTABELLE RECHNEN CLICK RECHNEN2 InteractiveChange,     1 ar 1A r   1                       R      )                           label      label      Label19      FORM1.Teilurlaub      FontBold = .T.
Caption = "B E R E C H N U N G  eines  T E I L U R L A U B S :"
Height = 19
Left = 33
Top = 151
Width = 427
Name = "Label19"
      label      label      Label20      FORM1.Teilurlaub      nCaption = "  1. Werktage im Kalenderjahr "
Height = 19
Left = 33
Top = 168
Width = 427
Name = "Label20"
      label      label      Label21      FORM1.Teilurlaub      Caption = "  (52 Wochen zu je 6 WT oder 12 Monate zu je 26 WT)"
Height = 19
Left = 33
Top = 189
Width = 427
Name = "Label21"
      label      label      Label22      FORM1.Teilurlaub      zCaption = "  2. Erster voller Monat im Urlaubsjahr *)"
Height = 19
Left = 33
Top = 211
Width = 427
Name = "Label22"
      label      label      Label23      FORM1.Teilurlaub      {Caption = "  3. Letzter voller Monat im Urlaubsjahr *)"
Height = 19
Left = 33
Top = 233
Width = 427
Name = "Label23"
      label      label      Label24      FORM1.Teilurlaub      mCaption = "  4. Anzahl der vollen Monate"
Height = 19
Left = 33
Top = 255
Width = 427
Name = "Label24"
      label      label      Label25      FORM1.Teilurlaub      xCaption = "  5. Arbeitstage in diesem Zeitraum (4.)"
Height = 19
Left = 33
Top = 278
Width = 427
Name = "Label25"
      label      label      Label26      FORM1.Teilurlaub      Caption = "  6. Anteil der Arbeitstage (5.) an den Werktagen (1.) "
Height = 19
Left = 33
Top = 300
Width = 427
Name = "Label26"
      label      label      Label27      FORM1.Teilurlaub      Caption = "  7. Prozentualer Anteil nach Zeile 6 nun bezogen auf den Jahresurlaub (1.)"
Height = 19
Left = 33
Top = 322
Width = 427
Name = "Label27"
      label      label      Label28      FORM1.Teilurlaub      rCaption = "  8. Rundung nach  5 Abs. 2 BUrlG"
Height = 19
Left = 33
Top = 344
Width = 427
Name = "Label28"
      label      label      Label29      FORM1.Teilurlaub      FontBold = .T.
Caption = "Berechnung des Urlaubsentgelts ( 11 BUrlG)"
Height = 19
Left = 33
Top = 364
Width = 427
Name = "Label29"
      label      label      Label30      FORM1.Teilurlaub      |Caption = "  9. Arbeitstage in den drei letzten Monaten"
Height = 19
Left = 33
Top = 383
Width = 427
Name = "Label30"
      label      label      Label31      FORM1.Teilurlaub      ~Caption = "10. Arbeitsstunden in den letzten drei Monaten"
Height = 19
Left = 33
Top = 405
Width = 427
Name = "Label31"
      label      label      Label32      FORM1.Teilurlaub      rCaption = "11. Lohn in den drei letzten Monat"
Height = 19
Left = 33
Top = 427
Width = 427
Name = "Label32"
      label      label      Label33      FORM1.Teilurlaub      vCaption = "12. Arbeitsstunden pro Tag (11. / 10.)"
Height = 19
Left = 33
Top = 448
Width = 427
Name = "Label33"
      label      label      Label34      FORM1.Teilurlaub      }Caption = "13. Durchschnittlicher Stundenlohn (9. / 11.)"
Height = 19
Left = 33
Top = 470
Width = 427
Name = "Label34"
      label      label      Label35      FORM1.Teilurlaub      mCaption = "14. Massgeblicher Stundenlohn"
Height = 19
Left = 33
Top = 492
Width = 427
Name = "Label35"
      label      label      Label36      FORM1.Teilurlaub      bCaption = "15. Urlaubsentgelt"
Height = 19
Left = 33
Top = 516
Width = 111
Name = "Label36"
      label      label      Label37      FORM1.Teilurlaub      Caption = "*) Das BUrlG hindert den Arbeitgeber nicht daran, nicht volle Monate zu vollen Monaten grozgig aufzurunden."
Height = 19
Left = 33
Top = 582
Width = 604
Name = "Label37"
      label      label      Label38      FORM1.Teilurlaub      uCaption = "siehe frheste grne Markierung oben"
Height = 19
Left = 606
Top = 211
Width = 281
Name = "Label38"
      label      label      Label39      FORM1.Teilurlaub      tCaption = "siehe spteste rote Markierung oben"
Height = 19
Left = 606
Top = 233
Width = 281
Name = "Label39"
      label      label      VollerUrlaub      FORM1.Teilurlaub      Caption = "ACHTUNG: ab 6 vollen Monaten voller Urlaubsanspruch ! !"
Height = 19
Left = 605
Top = 254
Width = 321
ForeColor = 255,0,0
Name = "VollerUrlaub"
      label      label      Label45      FORM1.Teilurlaub      pFontBold = .T.
FontSize = 16
Caption = "X"
Height = 22
Left = 304
Top = 513
Width = 17
Name = "Label45"
      label      label      	istgleich      FORM1.Teilurlaub      tFontBold = .T.
FontSize = 16
Caption = '"="'
Height = 22
Left = 614
Top = 513
Width = 17
Name = "istgleich"
      label      label      Label46      FORM1.Teilurlaub      pFontBold = .T.
FontSize = 16
Caption = "X"
Height = 22
Left = 460
Top = 513
Width = 17
Name = "Label46"
      label      label      Label40      FORM1.Teilurlaub      Caption = "<--bitte nach  11 BUrlG anpassen"
Height = 19
Left = 618
Top = 493
Width = 200
ForeColor = 255,0,0
Name = "Label40"
      label      label      Label41      FORM1.Teilurlaub      QCaption = "%"
Height = 16
Left = 591
Top = 301
Width = 16
Name = "Label41"
      label      label      Label42      FORM1.Teilurlaub      YCaption = "Url. Tage"
Height = 17
Left = 762
Top = 323
Width = 51
Name = "Label42"
      label      label      Label43      FORM1.Teilurlaub      iFontBold = .T.
Caption = "Url. Tage"
Height = 17
Left = 762
Top = 344
Width = 51
Name = "Label43"
      label      label      Label44      FORM1.Teilurlaub      TCaption = "Std."
Height = 16
Left = 591
Top = 406
Width = 21
Name = "Label44"
      label      label      Label47      FORM1.Teilurlaub      QCaption = ""
Height = 16
Left = 591
Top = 428
Width = 12
Name = "Label47"
      label      label      Label48      FORM1.Teilurlaub      QCaption = ""
Height = 16
Left = 591
Top = 471
Width = 12
Name = "Label48"
      label      label      Label49      FORM1.Teilurlaub      QCaption = ""
Height = 16
Left = 591
Top = 493
Width = 12
Name = "Label49"
      label      label      Label50      FORM1.Teilurlaub      QCaption = ""
Height = 16
Left = 591
Top = 516
Width = 12
Name = "Label50"
      label      label      Label51      FORM1.Teilurlaub      QCaption = ""
Height = 16
Left = 763
Top = 515
Width = 12
Name = "Label51"
      label      label      Label52      FORM1.Teilurlaub      TCaption = "Std."
Height = 16
Left = 591
Top = 449
Width = 21
Name = "Label52"
      label      label      Label53      FORM1.Teilurlaub      TCaption = "Std."
Height = 16
Left = 428
Top = 516
Width = 21
Name = "Label53"
      label      label      Label54      FORM1.Teilurlaub      YCaption = "Url. Tage"
Height = 17
Left = 235
Top = 517
Width = 51
Name = "Label54"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 10   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4GR0XL2G61217696951      /  F      ]                                                       WINDOWS _4GR0XL2G71466464672                    !                                                 WINDOWS _4GR0XL2G81411687375
      
  
  ,
  9
                                                           WINDOWS _4GR0XL2G91411687375
      
  
  
  
                                                           WINDOWS _4GR0XL2GA1417445734                  >  }                                               WINDOWS _4GR0XL2GB1411687375Z      g  t                                                               WINDOWS _4GR0XL2GC1411687375b      o  |                                                               WINDOWS _4GR0XL2G61412065560j                  #  '                                               WINDOWS _4GR0XL2GE1466458703>      S  h  x          h                                               WINDOWS _4GR0XL2GF1466458703^      s                                                             WINDOWS _4GR0XL2GG1411687375~                  %  t                                               WINDOWS _4GU15F8OL1411687375^      s              R                                               WINDOWS _5T80L2QTX1413961867G  W  w                                                                 WINDOWS _4GR0XL2G61430476166.       ;   H   V   c                                                            WINDOWS _65A0MYJVV1430476166                !                                                           WINDOWS _68K0QYS6E1412064347k!      x!  !  !  !      !  X"                                               COMMENT RESERVED                                f#                                                            #                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     BorderStyle = 3
Height = 388
Width = 531
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Freischaltung von PC-Gehalt "
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     gPROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS mitbuttons
myfreischalt = thisform
thisform.timer1.Enabled = .f.
IF mitbuttons = "ohne"
	thisform.command5.visible = .t.
	thisform.command2.visible = .t.
	thisform.command3.visible = .f.		
	thisform.command5.enabled = .t.
	thisform.command2.enabled = .t.
	thisform.command3.enabled = .f.	
	thisform.command4.Caption = "PROGRAMM BEENDEN"
ENDIF
IF mitbuttons = "mit"
	thisform.command5.visible = .t.
	thisform.command2.visible = .t.
	thisform.command3.visible = .f.		
	thisform.command5.enabled = .t.
	thisform.command2.enabled = .t.
	thisform.command3.enabled = .f.	
	thisform.command4.Caption = "BEENDEN"
endif		

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
IF .not. EMPTY(hslizenzkey)
IF SUBSTR(hslizenzkey,1,7) = "silent:"
	thisform.text1.Value = ALLTRIM(SUBSTR(hslizenzkey,8))
	thisform.timer1.Enabled = .t.
ENDIF
endif
ENDPROC
     l    S  S                        'W   %   p        &               U    B    U  THISFORM TAG  C     U  THISFORM SIZER	 FRMRESIZE 4  
 T   T   - %   ohne  T   a T   a T   - T   a T   a T   -# T 	 
  PROGRAMM BEENDEN  %   mit[ T   a T   a T   - T   a T   a T   - T 	 
  BEENDEN 
     T 
  
   T     
    T  a %C 
  %C \ silent:
 T   CC \ T   a   U 
 MITBUTTONS MYFREISCHALT THISFORM TIMER1 ENABLED COMMAND5 VISIBLE COMMAND2 COMMAND3 COMMAND4 CAPTION SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER HSLIZENZKEY TEXT1 VALUE Unload,      ResizeN      Init     1  2 2 q  Q1A AA  rq  A A 1                       %         B   \         w   \      )   S                        shape      shape      Shape1      FORM1      mTop = 18
Left = 25
Height = 190
Width = 491
BackColor = 0,128,0
BorderColor = 0,128,0
Name = "Shape1"
      label      label      Label1      FORM1      FontBold = .T.
FontSize = 20
Caption = "F R E I S C H A L T U N G"
Height = 37
Left = 104
Top = 30
Width = 332
ForeColor = 255,255,255
BackColor = 0,128,0
Name = "Label1"
      textbox      textbox      Text1      FORM1      ^FontBold = .T.
FontSize = 12
Height = 30
Left = 36
Top = 97
Width = 469
Name = "Text1"
      7PROCEDURE RightClick
DO FORM freischaltmenu
ENDPROC
                                         %   Y       s      m             U     freischaltmenu U  FREISCHALTMENU
 RightClick,     1 a1                       ,       )                            label      label      Label2      FORM1      FontBold = .T.
FontSize = 9
Caption = "Bitte geben Sie hier Ihren Lizenzschlssel ein. "
Height = 20
Left = 137
Top = 70
Width = 266
ForeColor = 255,255,255
BackColor = 0,128,0
Name = "Label2"
      label      label      Label3      FORM1      FontBold = .T.
FontSize = 9
Caption = "Ohne Freischaltung ist PC-Gehalt nicht nutzbar."
Height = 20
Left = 134
Top = 183
Width = 273
ForeColor = 255,255,255
BackColor = 0,128,0
Name = "Label3"
      
commandbutton      
commandbutton      Command1      FORM1      jTop = 141
Left = 91
Height = 28
Width = 359
Caption = "Freischaltung durchfhren"
Name = "Command1"
     PROCEDURE Click

IF LEN(ALLTRIM(thisform.text1.Value)) > 45
	hinweis("Der Freischaltschlssel ist nicht korrekt!")
	RETURN 
endif

*!*	IF ALLTRIM(thisform.text1.Value)="demo"
*!*		xquitwert=""
*!*		thisform.Release
*!*	ENDIF


IF prfefreischaltung(ALLTRIM(thisform.text1.Value)) = false
	hinweis("Der Freischaltschlssel ist nicht korrekt!")
	return
endif

Do lizenzja WITH ALLTRIM(thisform.text1.Value) &&Do attached

thisform.Tag = "OK"

DO titelleiste

thisform.release
ENDPROC
                                      %                          U    %CC    >-V 7 C* Der Freischaltschlssel ist nicht korrekt!  B  %CC       7 C* Der Freischaltschlssel ist nicht korrekt!  B   C     T    OK  
   	  U
  THISFORM TEXT1 VALUE HINWEIS PRFEFREISCHALTUNG FALSE LIZENZJA TAG TITELLEISTE RELEASE Click,     1 qA A qA A R"r  1                             )                           
commandbutton      
commandbutton      Command2      FORM1      hTop = 263
Left = 24
Height = 34
Width = 491
Caption = "Lizenz online Bestellen"
Name = "Command2"
      kPROCEDURE Click
 inet = "110"
 mylink = 899 &&Msg = "lizenz-privatbestellung"
 DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   110 T    U  INET MYLINK INSINTERNET Click,     1  q 1                       `       )                            
commandbutton      
commandbutton      Command3      FORM1      lTop = 299
Left = 24
Height = 34
Width = 491
Caption = "Faxbestellschein ausdrucken"
Name = "Command3"
      gPROCEDURE Click
 inet = "110"
 mylink = 759 &&Msg = "lizenz-Faxausdrucken"
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   110 T    U  INET MYLINK INSINTERNET Click,     1  q 1                       \       )                            
commandbutton      
commandbutton      Command4      FORM1      XTop = 335
Left = 24
Height = 34
Width = 491
Caption = "BEENDEN"
Name = "Command4"
      GPROCEDURE Click
thisform.Tag = "quit"

thisform.Release

ENDPROC
                                      N   %   i             x             U  !  T    quit
     U  THISFORM TAG RELEASE Click,     1 A 2                       <       )                            
commandbutton      
commandbutton      Command5      FORM1      VTop = 227
Left = 24
Height = 34
Width = 491
Caption = "Hilfe"
Name = "Command5"
      GPROCEDURE Click
inet = "111"
Msg = "141"
DO insinternet

ENDPROC
                                         %   r                          U  *  T   111 T  141   U  INET MSG INSINTERNET Click,     1 q 2                       <       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 370
Left = 512
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      image      image      Image1      FORM1      aPicture = prgicons\haupticon.ico
Height = 32
Left = 36
Top = 29
Width = 32
Name = "Image1"
      image      image      Image2      FORM1      bPicture = prgicons\haupticon.ico
Height = 32
Left = 473
Top = 29
Width = 32
Name = "Image2"
      timer      timer      Timer1      FORM1      OTop = 204
Left = 9
Height = 25
Width = 22
Interval = 500
Name = "Timer1"
      YPROCEDURE Timer
thisform.command1.Click
this.Enabled = .f.
thisform.release
ENDPROC
                                     "R   %                             U  ( 
      T  -
     U  THISFORM COMMAND1 CLICK THIS ENABLED RELEASE Timer,     1    1                       N       )                            CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
   %   s      Ȭ      NM[V    U  B
   ; T  000000 T  000000 T  000000 T  011000 T  111000 T  000030 T  101030 T  000000 T 	 011000 T 
 000000 T  000000 T  000000 T 
 000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000001 T  000001 T  000001 T  000001 T  000001 T  000001 T   000001 T ! 000001 T " 020001 T # 020001 T $ 000001 T % 000001 T & 000001 T ' 000031 T ( 000031 T ) 000011 T * 000000 T + 000000 T , 000000 T - 020001 T . 020001 T / 000000 T 0 000000 T 1 000000 T 2 000000 T 3 000000  U  VOREIN VOREINBEHALT    %  
  B  %  5  B  T  C  DELETE FILE "&msg"
 T C  
 T CC  
\g T C  
\ T	 CC  
\g T
 C  )
\ T CC  3
\g T C  =
\ T
 CC  G
\g T C  Z T C  Z T C  Z+ T C]C] \testumgebung.txt IF FILE("&hsxdat")> T C]C] \  \gehaltC \ .exe- msg1 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
 5 T C]C] \gehaltC \ .exe- msg1 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f. T  01.01.  , msg2 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f.{ T  01.01.  , msg3 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 ( T  	 \tarife\t  12.ttt  If File("&hsxdat") = .f. T  01.01.  F, msg4 = Leftc(DTOC(Fdate("&hsxdat")), 10)
 
 T   
 T   %C d      
 T   %C d      
 T   %C d   
   
 T   %C d      
 T   %C   j % f T     !  B   T     !   U"  INTERNETZUGANG RETVAL III GUPDATE UPD MSG MSG5 MSG6 MSG7 MSG8 MSG9 MSG10 MSG11 MSG12 XJAHR3 JAHR3 XJAHR4 JAHR4 XJAHR5 JAHR5 HSXDAT EIGDAT MSG2 MSG3 MSG4 M DATEDIFF MSG1	 MYTABLETT CHECK0 VALUE REGISTER LADEN UPDATEANZEIGEN< T   http ://www.pc-gehalt.de/  /Update.txt T   \Update.txt G.5 Retval = URLDownloadToFile(0, msg9, "&Msg", 0, 0)
 G. 
 T  %  
$ %C 
 \noupdate.txt - %C6 Soll die automatische Updatesuche abgeschaltet werden?3 Kein Internetzugang. Ein Updaten ist nicht mglich. o T 	    CV Bitte schalten Sie Ihr Internet ein, sonst ist ein Update/Updateprfung nicht mglich!  Eine Aktion ist erforderlich..    CV Bitte schalten Sie Ihr Internet ein, sonst ist ein Update/Updateprfung nicht mglich!  Eine Aktion ist erforderlich..  
 T   B  U
  MSG9 XJAHR4 MSG EIGDAT III RETVAL	 FILEEXIST MSGBOX DIMEN DIMPW6 T   t T    T    T    T    T    T    T    T   	 T   
 T    T    T   
 T    T    T    T    T    U  VOREIN
 VORPENSION* T    T   T  	 T   T   T  	 T  4 T  
 T  	: T  
 T  	 T  
 T  
 T   T  @ T   T  \ T  ? T   T    T    T   T   T   T   T   T   T   T   T 	  T 
  T   T   T 
  T   T   T   T   T   T   T   T   U  PROZENTE PFEILE TRUE FALSE* T    T   T  	 T   T   T  	 T  4 T  
 T  	: T  
 T  	 T  
 T  
 T   T  @ T   T  \ T  ? T   T    T    T   T   T   T   T   T   T   T   T 	  T 
  T   T   T 
  T   T   T   T   T   T   T   T   U  PROZENTE PFEILE TRUE FALSE
    T  000000 T  000000 T  000000 T  000000 T  000000 T  000000 T  000001 T  000001 T 	 000000 T 
 000000 T  000000 T  000000 T 
 000000 T  011100 T  011100 T  010000  U  VOREIN VORSACHBEZUG1 T  6 T   \gehaltCCC  Z\ .exe- msg1 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
2 T  	 \tarife\tCC  Z 12.ttt- msg2 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
2 T  	 \tarife\tCC  Z 12.ttt- msg3 = Leftc(DTOC(Fdate("&hsxdat")), 10) 
 C 115 . T   GCC  Z
 Update.txt' myopen("&hsxdat" , 115 ,"GUpdate") 
 Cs GUpdate  T C 	  %C   9 T , Vollstndiger Pfad zum Update auf dem Server  T
    T %CCCC 	  gCC  Z up.exe@ gCC  Z up.exe; T
 CCCC 	  \gCC  Z up.exeX*
 
 T
   Z %CCCC 	  TarifeCC  Z .dbf@ tarifeCC  Z .dbfc> T CCCC 	  \TarifeCC  Z .dbfX*
 x
 T   Z %CCCC 	  TarifeCC  Z .dbf@ tarifeCC  Z .dbf> T CCCC 	  \TarifeCC  Z .dbfX*
 )
 T   
 T   % 
 
Y
 T d  %  
 T  
  %  
 T    Cs GUpdate  T 	   Cs GUpdate  C #115 
 T   
 T   
 T      U  REGISTER HSXDAT EIGDAT JAHR4 JAHR5 MYCLOSE MYGET MSG GUPDATE UPD	 MYTABLETT TEXT0 TEXT MSG4 MSG5 MSG6 M MSG1 MSG2 MSG3 MYPUT MSG7 MSG8 MSG9 UPDATEANZEIGEN(; T     \gehaltCC  Z\ vee.dbf IF lofc("&fff") = 0]     C 19 C C   \gehaltCC  Z\ vee vorein ! C 	  vorein 
 
 !   ("   ( 
  (
 H3} 
  u1 T   C    
 1 T   C    
 1 T   C    
 ;1 T   C    
 }1 T   C       
 Hl  
 T      
	 T ffffff?    	 T 333333?  E T 333333?  l T ?  T   T   T C   T! C"  T# C$  T% C&  T' C(  T) C*  T C   T! C"  T# C$  T% C&  T' C(  T) C*   %C zvkbemG(1+0)b C T' CC' g   %C zvkbemG(1+1)b C" T' CC' g  T+ ,  T- .    (  T/  C 0   T1  C 2    (1 T3   C  4 1 T5   C  6    T7 8  T9 :  T; <  T= >  T? @  TA B  TC D  TE F  TG H 
 H   %E ? TE ?    %E 
 TE    a %E ?] TE ?    %E ? TE ?    %E ? TE ?   - %E ?) TE ?   q %E ?m TE ?    %E 333333? TE 333333?    %E ? TE ?   %G #	 TG       ?  % 	 % 	 % 	  	}	 TG ffffff? 	 TG 333333?  	 TG ffffff?  	 TG       ?    (%C
   (?
1 TI   C  J      (
   (
1 TK   C  L 1 TM   C  N    TO P  TQ R  TS T  TU V  TW X F TY Z F T[ \    (  T]  C ^   T_    ( T_  C  `     (  Ta  C b   Ta Ca   Uc  FFF EIGDAT MUSER JAHR4 VOREINZUWEISEN MYCLOSE MYOPEN MYGET WELCHESJAHR JAHR1 VOREIN I J K
 KVBEITRAG1
 VORKASSEN1
 KVBEITRAG2
 VORKASSEN2
 KVBEITRAG3
 VORKASSEN3
 KVBEITRAG4
 VORKASSEN4
 KVBEITRAG5
 VORKASSEN5 PVOREIN VORPVVOREIN MONAT RVOREIN VORRVVOREIN AVOREIN VORAVVOREIN KVGRENZE VORKVGRENZE PVGRENZE VORPVGRENZE RVGRENZE VORRVGRENZE AVGRENZE VORAVGRENZE ZVKBEMG
 VORZVKBEMG GERING	 VORGERING EINAUSZ	 VOREINAUS NRWZ VORNRW
 UMLAGE1ABZ VORUMLAGE1AB
 UMLAGE2ABZ VORUMLAGE2AB UMLAGE1Z
 VORUMLAGE1 UMLAGE2Z
 VORUMLAGE2 ZVKUMLAGEBAK VORZVKUMLAGE
 ZVKHALBBAK
 VORZVKHALB ZVKAGBAK VORZVKAG ZVKSTARTBAK VORZVKSTART ZVKKISTRBAK VORZVKKISTR
 ZVKAREVBAK
 VORZVKAREV SANIERUNGBAK VORSANIERUNG ZUSATZKV VORZUSATZKV ZUSATZPV VORZUSATZPV WEIHNACHTSGELD VORWEIHNACHTSGELD PROZENTE VORPROZENTE PFEILE	 VORPFEILE MULTIPLIKATORB VORMULTIPLIKATORB
 WELCHERMONATB VORWELCHERMONATB MULTIPLIKATORA VORMULTIPLIKATORA
 WELCHERMONATA VORWELCHERMONATA ALTERSPROZENTA VORATZA ALTERSPROZENTB VORATZB
 INSOLVENZGELD VORINSOLVENZGELD	 FARBENRGB VORFARBENRGB
 KINDERGELD
 VORKINDERGELD PENSIONSSATZ
 VORPENSION) %   " C! woerter  %C   Ent
  ( C#   woerter  T    C!   woerter  T    C!   woerter  C"   woerter  T    C"   woerter    C! woerter  % %C  

 Amtszulage
  (6 C#   woerter   T    C!   woerter   T    C!   woerter  C"   woerter   T    C"   woerter    (
 C#   woerter   T    C!   woerter   T    C!   woerter  C"   woerter   T    C"   woerter   
 T     U	 
 TEXTKORREKTUR TRUE MYGET WOERTER TEXTEE J MSG MYPUT FALSE  U  
 T      (  T C  Z  
 T 
 T  
 T 
 T	  
 T
  
 T 
  T CC  Z
 H      DO kassen&xxwelchesjahr 

 C     & DO kassen&xxwelchesjahr 

 C    ` DO kassen&xxwelchesjahr 

 C     DO kassen&xxwelchesjahr 

 C     DO kassen&xxwelchesjahr 

 C            
 T S
 T S        
 H>  ]
 T Z  |
 T <  
 T <  
 T   
 T   
 T        ( M T C  Z T    !     (  T C  Z " ( #    T   
 T    T C  Z %  
   
 T   T C  Z  U$  WELCHESJAHROLD WELCHESJAHR JAHR1 JAHR5 WELCHESJAHRC SOZVORGABEN MULTIPLIKATORB
 WELCHERMONATB MULTIPLIKATORA
 WELCHERMONATA EINAUSZ FALSE NRWZ TRUE
 XXWELCHESJAHR FARBEN_ALLE JAHR2 JAHR3 JAHR4 WEIHNACHTSVORGABEN PROZENTVORGABENA PROZENTVORGABENB ZVKVORGABEN KINDERGELDVORGABEN ALTERSPROZENTA ALTERSPROZENTB SACHBEZUGVORGABEN EINBEHALTVORGABEN WOCHENSTUNDENANLEGEN PENSIONSVORGABENANLEGEN
 INSOLVENZGELD VOREINSTAUS ZI SONDERZAHLUNGANLEGEN III JAHRESSONDERZAHLUNGANLEGENO
      ("   (   (
 H_     1 T   C      1 T   C     %1 T   C  	   g1 T
   C     1 T   C  
      T   T   T   T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T  !  T" #  T$ %  T& '    (  T(  C )   T*  C +    (1 T,   C  - 1 T.   C  /    T0 1    (%   (1 T2   C  3      (   (1 T4   C  5 1 T6   C  7    T8 9  T: ;  T< =  T> ?  %@ E{ TA @ F  %B E TC B F    (  TD  C E   TF G  %H 
 TI Z  %H 1
 TI <  %H T
 TI <  %H w
 TI   %H 
 TI   %H 
 TI   TJ I  TK L   C 19M ; CO P  \gehaltCQ \ vee voreinN ! CH S  voreinR  UT  VOREIN I J K
 VORKASSEN1
 KVBEITRAG1
 VORKASSEN2
 KVBEITRAG2
 VORKASSEN3
 KVBEITRAG3
 VORKASSEN4
 KVBEITRAG4
 VORKASSEN5
 KVBEITRAG5 VORPVVOREIN PVOREIN VORRVVOREIN RVOREIN VORAVVOREIN AVOREIN VORKVGRENZE KVGRENZE VORPVGRENZE PVGRENZE VORRVGRENZE RVGRENZE VORAVGRENZE AVGRENZE
 VORZVKBEMG ZVKBEMG	 VORGERING GERING VORZUSATZKV ZUSATZKV VORZUSATZPV ZUSATZPV	 VOREINAUS EINAUSZ VORNRW NRWZ VORUMLAGE1AB
 UMLAGE1ABZ VORUMLAGE2AB
 UMLAGE2ABZ
 VORUMLAGE1 UMLAGE1Z
 VORUMLAGE2 UMLAGE2Z VORAGSTEUER AGSTEUER VORWEIHNACHTSGELD WEIHNACHTSGELD VORPROZENTE PROZENTE	 VORPFEILE PFEILE VORMULTIPLIKATORB MULTIPLIKATORB VORWELCHERMONATB
 WELCHERMONATB VORMULTIPLIKATORA MULTIPLIKATORA VORWELCHERMONATA
 WELCHERMONATA ALTERSPROZENTA VORATZA ALTERSPROZENTB VORATZB VORFARBENRGB	 FARBENRGB
 VORZVKAREV ZVKAREV WELCHESJAHR
 INSOLVENZGELD VORINSOLVENZGELD VORSANIERUNG	 SANIERUNG MYCLOSE MYOPEN EIGDAT MUSER XJAHR4 MYPUT JAHR1_!
   X! T  T < T n T < T 
 T n T < T h T 	 T 
< T 
 T  % 
~ T h  T   T < T  T < T 
 T n T < T h T 	 T 
< T 
 T  T  T < % 
1 T  T T <  T < T 
 T n T < T h T 	 T 
< T 
 T  T  T < T  T < T 
 T n T < T h T 	 T 
< T 
 T  T  T  T 
 Ht   T   G T n  t T <  T  T  T  T h
 H   T 	  K T 	n  x T 	<   T 	
 
 H=   T 
   T 
n  = T 
<  T 
 T  T  T < T P T < T 
 T n T < T h T 	 T 
< T 
 T  T  T < T < T < T 
 T n T < T h T 	 T 
< T 
 T  T h T < T  T < T 
 T n T < T h T 	 T 
< T 
 T  T 	 T 	< T 	
 H(
   T 	   T 	n  (
 T 	<  T 	 T 	 T 	 T 	h
 H
Y  
 T 		  
 T 		n  , T 		<  Y T 		
 
 Hj   T 	
   T 	
n   T 	
<  T 	
 T 	 T 
 T 
< T 
 T 
< T 

 T 
n T 
< T 
h T 
	 T 

< T 

 T 
 T  T < T  T < T 
 T n T < T h T 	 T 
< T 
 T  T  T < T < T < T 
 T n T < T h T 	 T 
< T 
 T  T 
 T 
< T 
n T 
< T 

 T 
n T 
< T 
h T 
	 T 

< T 

 T 
 T  T < T 
 H    T    T n    T <  T  T  T  T h
 HQ   T 	   T 	n  $ T 	<  Q T 	
 
 Hb   T 
   T 
n   T 
<  T 
 T  T  T < T 
 H   T    T n   T <  T  T  T < T h
 H9   T 	   T 	n   T 	<  9 T 	
 
 HJ  w T 
   T 
n   T 
<  T 
 T  T  T < T  T < T 
 T n T  T h T 	 T 
< T 
 T  % 
| T h  T   T < T 
 Hm   T   @ T n  m T <  T  T  T  T h
 H   T 	  D T 	n  q T 	<   T 	
 
 H6   T 
  	 T 
n  6 T 
<  T 
 T  T  T < T 
 HU   T   ( T n  U T <  T 
 T n T < T h
 H    T 	  ,  T 	n  Y  T 	<    T 	
 
 H !    T 
    T 
n  ! T 
<  T 
 T   U  VOREIN VORWOCHENSTUNDEN WELCHESJAHR! %    
 T    %  @ 
 T   %C  z 
 T 
 T     %C
    CG wnw  C
   wnw   +a! C      wvw  T  	 
 
    T
   
 
    T    %C w %C  Ns
 T   T     
 
   
    (59 % . T  C    5 T  CC    %C   
1 T      
 T   %C  T  
 T 3  %C  T  
 T 4  %C  T  
 T 5  %C &* T  
 T 6  %C c T  
 T 7  %C F T  
 T 8  %C  T  
 T 9  %C 
2 %  C 		  Y %C	 U T 	 
 T :   %C	  T 	 
 T :    %C	  T 	 
 T :   %C
  T 
 
 T ;  %C Q T  
 T <  %C  T  
 T =  %C
 l %C 
'2 %  C 		  # %C
 y T 
 
 T >   h %C
 ld T 
 
 T >    %C N %C 
	2 %  C 		   %C y T  
 T >   J %C lF T  
 T >    %C 0 %C 
2 %  C 		   %C y T  
 T >   , %C l( T  
 T >    %C i T  
 T A  %C  T  
 T B  %C  T  
 T C  %C 	 T  
 T D  %C 	M	 T  
 T E  %C 	 T  
 T F  %C 	 T  
 T G  %C 	 T  
 T H  %C 1
 T  
 T I  %C j
 T  
 T J  %C 2
 T  
 T K  %C 
 T  
 T L  %C y T  
 T M  %C N T  
 T N  %C  T  
 T O  %C  T  
 T P  %C    T   
 T Q  %C" 6< T " 
 T S  %C# u T # 
 T T  %C$  T $ 
 T U  %C%  T % 
 T V  %C&  
 T & 
 T W @ %C' C    		   
 	6
 T ' 
 T X  %C( 

 T ( 
 T Y  %C) 
 T ) 
 T Z  %C+ 0/ T + 
 T \  %C, 0h T , 
 T ]  %C- 0 T - 
 T ^  %C.  T . 
 T _  %C/ # T / 
 T `  %C0 L T 0 
 T a  %C1 2 T 1 
 T b  %C3  T 3 
 T d  %C4  T 4 
 T e  %C5 0 T 5 
 T f  %C6 >i T 6 
 T g  %C8  T 8 
 T 7  % 2H C (CC  Z= ) Der Personalfall wurde auf die Grundstellung zurckgesetzt,C
 & um einen Programmabsturz zu vermeiden. 	 Achtung (CC 
 Z )x    (@
 H$( C  	@ T `M/  T `M/  T `M/  T `M/  T `M/  T `M/  C 
 T -  T -  T -  T -  T -  T -   $ %C    T  @,  T  @,  T  @,  T  @,  T  @,  T  @,    T *  T *  T *  T *  T *  T *    C     wvw   .  T 5C8  T 8 $ %C8  C8  
 T 8   %C 
 T    %C  T    %C 
3 T    %C. _ T .  
 Hp7 CC  	

 T  % CC 

 T   %C  T    %C > T    %C j T    T    %C 2 T   %C$  T $   %C1  
 T 1     (Aa" T  CC  8 T  C    %C/ ' T /' T /'  %C4 
 T 4'  %C5 @B   T 5   %C6 - T 6   T CC4 8'$ %C  C  T  CC 8   %C  
 T      (<" T!  CC " 8   ( T#  CC  $ 8 T%  CC  & 8 T'  C  (  T)  C  *  T+  C  ,  T-  C  .  T/  C  0  T1  C  2  T3  C  4    ((,$ T5  C  6   %C3 P T3    %C7 \ / T7 C7  / .  %C7  _8   T7     T9 7  T: ;  T< =  %< >  < ?  
 T< ?   T@ A  TB C  %B d B 

c TB D E F 
 TF B  TG H  TI J  TK CL  TM CL  TN CL  TO CL  TP CL E TQ CCCL   Sonst. Bezug lt. Eingabe CL 6 TR CL  TS CL  TT C	L  TU C
L  TV CL   C
   wnw  %W X 
 TW X   %CW Y @
 R TW Y   C
   wnw  % %W Z   W Z  
 TW Z   C
   wnw   %CW [ !  " TW [  Neuer Personalfall- T\   Neuer Personalfall C
   wnw   (!
 HI ( C  	 T  `M/  T  `M/  T `M/  T `M/  T `M/  T `M/  C 
 T  -  T  -  T -  T -  T -  T -     %C   U  T   @,  T   @,  T  @,  T  @,  T  @,  T  @,    T  *  T  *  T *  T *  T *  T *    C     wvw   .  !  U]  MONAT FILENEU LOF
 SATZANZAHL	 NEUERSATZ MYGET MYPUT
 MYMIETSTUFEZ8 WVW RESERVE7 MYFORM1 MIETSTUFEZ8 REFRESH MYSONDERZUSCHLAG RESERVE6 SONDERZUSCHLAG	 MYPVKIANZ RESERVE5	 PVKIABZUG I ZI ZNAM WELCHESJAHR TNAM
 GRUNDSTELLUNG J BETRAG WERT ISSCHALTJAHR Z55	 ALTESLAND ANPASSUNGSFAKTOR ATZTEIL EFFZAHL EFFZ TEILZAHL TZNAM	 BRUCHZAHL TBNAM LSTZ LST SOZZ SOZ ZVKZ ZVK WEIZ WEI TEIZ TEI BRUZ BRU LEIZ LEI SCHLSSE SCHLSS BDA ISINSTR BDATEXT SOLDATI SOLDATEN NR63 ZNR63 FALSE TRUE GLEITALT GLEITZONEALT ATZAUFSTOCKUNG DIMATZAUFSTOCKUNG VOREIN VORATZB ALTERSPROZENTB ATZSOLI
 DIMATZSOLI	 ATZKIRCHE DIMATZKIRCHE ZT6 ZULAGEN ZT3 ZT12 ZT13 ZT14 ZT19 ZT24 ZT42 ZT43 ZT44 ZT47 WNW VERSORGUNGSBEGINN	 TVDZEILE	 ZATZNETTO PERSONALFALL ZT0 C     wvw  
  }  (/  T  CC    %C   
  T     & %C8 
 C8  
  T 8   T 5C8  T 8 
 H
7 CC  	
N
 T	  % CC 

 T	   T     (5  T
  C   T  C 
   T C4
 '$ %C  C G T
 C
      ("  T  C    T
 :C$  T
 ;C%  T
 <C&  T
 =C'  T ;C;
  T <C<
   ( T  C    T  C    T  C    T  C    T  C    T  C    T  C    T  C    T   C  !   T" #  T$ %  T& '  T( )  %( *  ( + d y
 T( +    U,  MYGET MONAT FILENEU WVW I ZI ZNAM TNAM Z55	 ALTESLAND WERT BETRAG ANPASSUNGSFAKTOR ATZTEIL EFFZAHL EFFZ TEILZAHL TZNAM	 BRUCHZAHL TBNAM LSTZ LST SOZZ SOZ ZVKZ ZVK WEIZ WEI TEIZ TEI BRUZ BRU LEIZ LEI BDATEXT BDA NOTKURZ NOCHFREI SOLDATI SOLDATEN NR63 ZNR63 FALSE TRUE %C    B  % 2  B 
  n   (A{ ! T  CC  8    (< ! T  CC  8   (  T  CC   8   (! T  CC   8  T C   (5p T	  C       (A  T  C   % T "C" C7 d% T $C$ C8 d% T %C% C9 d T 8C5   T 'C8  T
 C8    (W T  C    T  C    T
  C    T  C    T  C    T  C    T  C    T  C    T  C       (  T  C     ( T  C      (<  T  C    T   T   T  !  T" #  T$ %  T& '  T( )  T* +  T, -  T. /  T0 1  T2 C3  T2 C4  T2 C5  T2 C6  T2 C7 D T2 CCC8   Sonst. Bezug lt. Eingabe C8 6 T2 C9  T2 C:  T2 	C;  T2 
C<  T2 C=   ((, T>  C  ?   T@ A  TB C  %CD \ %CD  NX
 TD     TE D   TF C   C F  H  wvwG  C
 H  wnwG  UI  ZI INDEXM WVW I WERT EFFZAHL	 BRUCHZAHL TEILZAHL TNAM ZNAM Z55 TZNAM TBNAM LST LSTZ SOZ SOZZ ZVK ZVKZ WEI WEIZ TEI TEIZ BRU BRUZ LEI LEIZ EFFZ BDA BDATEXT	 PAUSCHLST VORPAUSCHLST
 PAUSCHSOLI
 VORPAUSCHSOLI PAUSCHKISTR VORPAUSCHKISTR ZHLKIND
 ZHLKINDER SOLDATEN SOLDATI ZNR63 NR63 GLEITZONEALT GLEITALT DIMATZAUFSTOCKUNG ALTERSPROZENTB
 DIMATZSOLI ATZSOLI DIMATZKIRCHE	 ATZKIRCHE ZULAGEN ZT6 ZT3 ZT12 ZT13 ZT14 ZT19 ZT24 ZT42 ZT43 ZT44 ZT47 SCHLSS SCHLSSE RESERVE7
 MYMIETSTUFEZ8 RESERVE6 MYSONDERZUSCHLAG	 MYPVKIANZ RESERVE5 MONAT MYPUT FILENEU %     B 
 T   T  
 T   %C   % 
  	  T	 a   T	 -  %	 - T  2 T
  
 Personalfall CCC Z
 T  
 T       
 T   % 
U
 T    ]  
      T      U 	 STARTFLAG TRUE FILENEU SPIN1 ZI MONATALT MONAT
 SATZANZAHL REGISTRIERT
 HSKEINSATZ ZT0	 NEUERSATZ ZEILENINHALT WVWIN ATZRCK	 NEUERNAME DIMEN
 DIMFILENEU DIMENAUS einbehaltvorgaben,      internetupdate     internetzugang!     pensionsvorgabenanlegen     prozentvorgabenB     prozentvorgabenA"     sachbezugvorgabeno     serverupdate=     voreinstein%!     texteein1    
 modusknopfD5     voreinzuweisenK5     voreinstausb;     wochenstundenanlegen}F     wvwinh    	 wvwinjahrO     wvwout     spin_up_down.    6  A 3 v A A A A 5bbRQQ QA q A q A q A    A  A  A  A R q q A A   q q A 4 a Qa  AA qA  qA  A A 3 rrrrrrrrrrrrrrrrrr3 3 3  A 3  a!!q!1A 2B  A   A   A  ! A "A "A    q 3 r B  2 qqq A A A A  ! QQ!Q!QA   A A   qqA A           !QA ! A !QA !QA !QA !QA !QA !QA !QA A QA "!Q QA  QA  QA sqA A rqA A     "! rA 2qA rA rA 3 A A QA A A  A 3 6  rQq       r      A q q q q q   q q q q  ! ! ! ! ! ! A r A qQ1q A qQqq A A 2 Q QA 5  qqq A A A A        qqA A  qqA A rqA A     !A !A sC  & A " A " A " A " A " A   B  4  # A ! A  !!!A  !!!!A  !!!A  !!!A  !!!!A  !!!A  !!!A  !!!!A  !!!A  !!!A  !!!!A  !!!A # A  !!!A  !!!!A  !!!A  !!!A  !!!!A  !!!A A 3  A  A R  q A QaqA     Q A A   q qA A A  Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q!Q1 A  Q1 A A  Q1 A A Q1 A Q1 A Q1 A QQ!Q1 A A  Q1 A A A QQ!Q1 A A  Q1 A A B QQ!Q1 A A  Q1 A A B Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A 1 A R1 A Q1 A Q1 A Q1 A Q1 A 1 A Q1 A Q1 A R1 A Q1 A Q1 A Q1 A Q1 A Q1 A Q1 A R1 A Q1 A Q1 A Q2 A aA A 
q q qqaaaaqqaaaaQ!qqaaaa qqaaaaA A A B A BA1A R1A R1A R1A R1A  q Q A R1A R1A R1A rQ1A R1A R1A r!A bAAA aAA 1A b1A BA R1A r!A rA rA R1A C  A      A   AA    0QA rRA aqA QqA "q !qq aaaaaaaaQ!aaaa aaaaA A A B A A A 3  qqA A bAA A q Q A rrA bBA rA qqrA       A A 3 RA A A A  rA rA rA rA qA rA QQQq!rA qA qA qA            AqA    Q A A  A Qr4 A A  q    A  !  r q C A   r  A q q q q 2                    a   3     7   Z    >                                        "       #  3%  L    Y%  -  a  B  -  \C      }C  UH  h    xH  H    
  H  _T    W  T  `      a    }  )      %  &    Z  n  `  y  e          &  0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4GX191RCS1397444939      /  F      ]        F              `      i                       WINDOWS _4GX191RCT1546408785r      ~              }  )                                               WINDOWS _4GX191RD41546408676U=      d=  s=  =  =                                                           WINDOWS _5U70NQQ391395483240]>      j>  w>  >  >                                                           WINDOWS _4GX191RCS1546408676>      >  >  ?  ?                                                           WINDOWS _4GX191RD31546408676?      ?  ?  ?  ?                                                           WINDOWS _4GX191RCS1546408676@      @  @  @  @      A  C                                               WINDOWS _4GX191RCT1546408676D      D  D  D  D      E  F                                               WINDOWS _4GX191RD41546408676H      H  H  H  H      I  J                                               WINDOWS _5U70NQQ391546408676cL      rL  L  L  L      iM  N                                               WINDOWS _4GX191RCS1546408676EP      TP  cP  pP  }P      KQ  R                                               WINDOWS _4GX191RD31546408676'T      6T  ET  RT  _T      -U  xV                                               WINDOWS _4GX191RCS1546408676	X      X  'X  4X  AX      Y  ZZ                                               WINDOWS _4GX191RCT1546408676[      [  	\  \  #\      \  <^                                               WINDOWS _4GX191RCU1546408676_      _  _  _  `      `  b                                               WINDOWS _4GX191RCV1546408676c      c  c  c  c      d  f                                               WINDOWS _4GX191RCW1546408676g      g  g  g  g      h  i                                               WINDOWS _4GX191RCX1546408676wk      k  k  k  k      l  m                                               WINDOWS _4GX191RCY1546408676\o      ko  zo  o  o      ep  q                                               WINDOWS _4GX191RCZ1546408676As      Ps  _s  ms  zs      Jt  u                                               WINDOWS _4GX191RCS1546408676&w      5w  Dw  Rw  _w      /x  zy                                               WINDOWS _4GX191RCZ1546408676{      {  ){  7{  D{      |  _}                                               WINDOWS _4GX1A9DWX1546408676~      ~      )        D                                               WINDOWS _4GX1A9DWY1546408676Ղ                  ރ  )                                               WINDOWS _4GX1A9DWZ1546408676      Ɇ  ؆          Ç                                                 WINDOWS _4GX1A9DX01546408676          ˊ  ؊                                                       WINDOWS _4GX1A9DX11546408676                    ؐ                                               WINDOWS _4GX191RCS1546408676i      x            r                                                 WINDOWS _4GX191RCT1546408676O      ^  m  {        X                                                 WINDOWS _4GX191RCU15464086764      C  R  `  m      =                                                 WINDOWS _4GX1A9DX21546408676      (  7  E  R      "  m                                               WINDOWS _4GX1A9DX31546408676      
    *  7        R                                               WINDOWS _4GX1A9DX41546408676                    7                                               WINDOWS _4GX191RCS1546408676ȩ      թ                                                                 WINDOWS _4GX1A9DX51546408676          Ϊ  ۪                                                           WINDOWS _4GX191RCS1546408676t                                                                       WINDOWS _4GX191RCT1546408676      "  /  =  J                                                           WINDOWS _4GX191RCU1546408676      ì  Ь  ެ                                                             WINDOWS _4GX191RCV1546408676W      d  q                                                               WINDOWS _4GX191RCW1546408676          !  .                                                           WINDOWS _4GX191RCX1546408676          î  Ю                                                           WINDOWS _4GX191RCY1546408676=      J  W  e  r                                                           WINDOWS _4GX191RCZ1546408676߯                                                                       WINDOWS _4GX191RCS1546408676                                                                       WINDOWS _4GX191RCT1546408676#      0  =  K  X                                                           WINDOWS _4GX191RCU1546408676ű      ұ  ߱                                                               WINDOWS _4GX191RCV1546408676i      v                                                                 WINDOWS _4GX191RCW1546408676
        '  6  C                                                           WINDOWS _4GX191RCX1546408676        ˳  ڳ                                                             WINDOWS _4GX191RCY1546408676U      b  o  ~                                                             WINDOWS _4GX191RCZ1546408676          "  /                                                           WINDOWS _4GX1A9DX61546408676          Ƶ  ӵ                                                           WINDOWS _4GX1A9DX71546408676A      N  [  j  w                                                           WINDOWS _4GX1A9DX81546408676                                                                       WINDOWS _4GX1A9DX91546408676                                                                       WINDOWS _4GX1A9DXA1546408676-      :  G  V  c                                                           WINDOWS _4GX191RCS1546408676Ѹ      ޸                                                                 WINDOWS _4GX191RCT1546408676u                                                                       WINDOWS _4GX191RCU1546408676      &  3  B  O                                                           WINDOWS _4GX1A9DXB1546408676      ʺ  ׺                                                               WINDOWS _4GX1A9DXC1546408676a      n  {                                                               WINDOWS _4GX1A9DXD1546408676          .  ;                                                           WINDOWS _4GX191RCS1546408676        ɼ  ܼ                                                         WINDOWS _4GY1A3JOS1546408676          (  5                                                           WINDOWS _4GX191RCU1546408676Ϳ      ޿                                                                 WINDOWS _4GX191RCV1400792033                  D                                                 WINDOWS _4GX191RCW1389981153                                                                       WINDOWS _4GX191RCX1389981153U      d  s                                                               WINDOWS _4GX191RCY1389981153          $  >                                                           WINDOWS _4GX191RCZ1389981153                                                                       WINDOWS _4GX191RD01196402723>      K  X  f                                                             WINDOWS _4GX191RCS1546408676
         3  G  T      k                                                 WINDOWS _4H111Z2611546408676F      Y  l          Z  `                                               WINDOWS _4X30WQQPU1546408676         -  :                                                           WINDOWS _4GX191RCS1546408676             
                                                           WINDOWS _4GX191RCT1546408785{                                                                       WINDOWS _4GX191RCS1546408785      +  8  G  T                                                           WINDOWS _4GX191RD31546408785                                                                       WINDOWS _4GX191RD41546408785b      o  |                                                               WINDOWS _4GX191RD51546408785          -  :                                                           WINDOWS _4GX191RCS1546408785                                                                       WINDOWS _4GX191RCT1546408676J      W  d  s                                                             WINDOWS _5QT0Y01D41546408676        
    (                                                           WINDOWS _4GX191RCT1546408676                                                                       WINDOWS _4GX191RCV1546408785                                                                       WINDOWS _4GX191RCW1546408785]      l  {                                                               WINDOWS _4GX191RCX1546408785      ,  ;  G  T                                                           WINDOWS _4GX191RCY1546408785                                                                       WINDOWS _4GX191RCS1546408785                                                                       WINDOWS _4GX191RCT1546408785]      l  {                                                               WINDOWS _5QT0Y01D51546408676      *  7  F  S                                                           WINDOWS _5QT0Y01D61546408676                                                                       WINDOWS _5QT0Y01DE1546408676_      l  y                                                               WINDOWS _5QT0Y01DF1546408676          +  8                                                           WINDOWS _5QT0Y01DG1546408785                                                                       WINDOWS _5QT0Y01DH1546408676K      X  e  t                                                             WINDOWS _5QT0Y01DI1546408676          !  .                                                           WINDOWS _5QT0Y01DJ1546408676                                                                       WINDOWS _5QT0Y01DK1546408676                                                                       WINDOWS _5QT0Y01DL1546408676R      a  p  |                                                             WINDOWS _5QT0Y01DM1546408676      !  0  <  I                                                           WINDOWS _5QT0Y01DN1546408676            	                                                           WINDOWS _5QT0Y01DO1546408676                                                                       WINDOWS _4GX191RCS1546408785R      g  |                                                           WINDOWS _5QT0Y01DP1546408676,      A  V  f  s                                                      WINDOWS _4GX191RCS1546408676
      ( 8 E                                                    WINDOWS _4GX191RCS1546408676     , A Q ^                                                    WINDOWS _4GX1ARXPF1546408676\     q                                                       WINDOWS _4GX191RCS1546408676`     u        &                                               WINDOWS _5U70NQQ3O1546408676                  _! "                                              WINDOWS _5U70NQQ3P1546408676F#     [# p# # #     $ $                                              WINDOWS _4GX191RCS1546408676%     & '& 7& D&     & '                                              WINDOWS _5UC0MQV5S1546408676
)     ") 7) H) U)     ) B*                                              WINDOWS _5VW0NJUA31546408676;+     J+ Y+ g+ t+                                                          WINDOWS _4GY0N2SR31546408676+     + , ", /,     < ~                                              WINDOWS _4GX191RD21546408676c     p }                                                            WINDOWS _67D0OVBZ41546408676:     O d u                                                     WINDOWS _69T14LJ0H1546408676   . ? L     ݺ                                               WINDOWS _6E20VE4PG1546408676     " 1 > K                                                          WINDOWS _4GX191RCS1546408676     ֽ        ~ {                                              WINDOWS _6E20VE4PH1546408676     	  / <                                                    WINDOWS _4GX191RCS1546408676b     q                                                       WINDOWS _4GX191RCT1546408676m     |                                                       WINDOWS _4GX191RD41546408676g     v                                                       WINDOWS _5U70NQQ391546408676b	     q	 	 	 	     
                                               WINDOWS _4GX191RCS1546408676^
     m
 |
 
 
     ~                                               WINDOWS _4GX191RD31546408676Z     i x       z                                               WINDOWS _4GX191RCS1546408676V     e t       v                                               WINDOWS _4GX191RCT1546408676R     a p       r                                               WINDOWS _4GX191RD41546408676N     ] l ~      n                                               WINDOWS _5U70NQQ391546408676J!     Y! h! z! !     j" #                                              WINDOWS _4GX191RCS1546408676F%     U% d% w% %     h& '                                              WINDOWS _4GX191RD31546408676D)     S) b) u) )     f* +                                              WINDOWS _4GX191RCS1546408676B-     Q- `- s- -     d. /                                              WINDOWS _6E20VE4PV1546408676@1     O1 ^1 q1 ~1     b2 3                                              WINDOWS _6E20VE4PW1546408676>5     M5 \5 o5 |5     `6 7                                              WINDOWS _6E20Z6BNH1546408676<9     K9 Z9 m9 z9     ]: ;                                              WINDOWS _6E20Z6BNI1546408676J=     Y= h= {= =     k> ?                                              WINDOWS _6E20Z6BNJ1546408676GA     VA eA xA A     iB C                                              WINDOWS _6E20Z6BNK1546408676EE     TE cE vE E     gF G                                              WINDOWS _6E20Z6BNL1546408676CI     RI aI tI I     eJ K                                              WINDOWS _6E20Z6BNM1546408676AM     PM _M rM M     cN O                                              WINDOWS _6E20Z6BNN1546408676?Q     NQ ]Q pQ }Q     aR S                                              WINDOWS _6E20Z6BNO1546408676=U     LU [U nU {U     _V W                                              WINDOWS _6E20Z6BNP1546408676;Y     JY YY lY yY     ]Z [                                              WINDOWS _6E20Z6BNQ15464086769]     H] W] j] w]     [^ _                                              WINDOWS _6E20Z6BNR15464086767a     Fa Ua ha ua     Yb c                                              WINDOWS _6E20Z6BNS15464086765e     De Se fe se     Wf g                                              WINDOWS _6LN0VJ4Y615464086763i     @i Mi \i ii                                                          WINDOWS _6LN0VJ4Y71546408676i     i i j j                                                          WINDOWS _7DE0M9CK61546408785j     j j j j                                                          COMMENT RESERVED                                qk                                                          k                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 207
Left = 244
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      xPROCEDURE BeforeOpenTables
SELECT 115
hsxdat = eigdat + "\Tarife\kommentar"
USE "&hsxdat" SHARED
GO top

ENDPROC
                                     /5   %                             U  J  Fs " T    \Tarife\kommentar USE "&hsxdat" SHARED
 #) U  HSXDAT EIGDAT BeforeOpenTables,     1  !Q 2                       m       )                            1      1      form      form      FORM1      Height = 604
Width = 949
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Tarife"
ControlBox = .T.
HalfHeightCaption = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     $EPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
ENDIF
geclickt = 0
PUBLIC stilldown
stilldown = .f.
thisform.LockScreen = .t.
PUBLIC mytarife
mytarife=thisform
checkfile = eigdat + "\intern.har"
IF .not. FILE("&checkfile")
	thisform.check1.Enabled = .f.
	thisform.check1.visible = .f.
	thisform.command5.Enabled = .f.
	thisform.command6.Enabled = .f.
	thisform.command9.Enabled = .f.
	thisform.command10.Enabled = .f.
*	thisform.command11.Enabled = .f.
	thisform.command5.visible = .f.
	thisform.command6.visible = .f.
	thisform.command9.visible = .f.
	thisform.command10.visible = .f.
*	thisform.command11.visible = .f.
	thisform.label27.visible = .f.
	thisform.label28.visible = .f.	
	thisform.label29.visible = .f.
	thisform.label30.visible = .f.
	thisform.label31.visible = .f.
	thisform.label32.visible = .f.
	thisform.label33.visible = .f.
	thisform.label34.visible = .f.
	thisform.label35.visible = .f.
	thisform.label36.visible = .f.
	thisform.label37.visible = .f.
	thisform.label38.visible = .f.
	thisform.label39.visible = .f.
	thisform.label40.visible = .f.	
	thisform.label41.visible = .f.	
	thisform.txtprozente.Visible = .f.
	thisform.ww16.Visible = .f.	
	thisform.ww17.Visible = .f.	
	thisform.ww18.Visible = .f.	
	thisform.ww19.Visible = .f.	
	thisform.ww20.Visible = .f.	
	thisform.ww21.Visible = .f.	
	thisform.ww22.Visible = .f.	
	thisform.ww23.Visible = .f.	
	thisform.ww24.Visible = .f.	
	thisform.ww25.Visible = .f.	
	thisform.ww26.Visible = .f.	
	thisform.txtbetrag.Visible = .f.
	thisform.txtsockelbetrag.Visible = .f.	
	thisform.txtzeilevon.Visible = .f.	
	thisform.txtzeilebis.Visible = .f.
	
	thisform.txtprozente.Enabled = .f.
	thisform.ww16.Enabled = .f.	
	thisform.ww17.Enabled = .f.	
	thisform.ww18.Enabled = .f.	
	thisform.ww19.Enabled = .f.	
	thisform.ww20.Enabled = .f.	
	thisform.ww21.Enabled = .f.	
	thisform.ww22.Enabled = .f.	
	thisform.ww23.Enabled = .f.	
	thisform.ww24.Enabled = .f.	
	thisform.ww25.Enabled = .f.	
	thisform.ww26.Enabled = .f.	
	thisform.txtbetrag.Enabled = .f.
	thisform.txtsockelbetrag.Enabled = .f.
	thisform.txtzeilevon.Enabled = .f.	
	thisform.txtzeilebis.Enabled = .f.
	
	thisform.text27.Visible = .f.

    thisform.holen.Visible = False
    thisform.holen.enabled = False
*!*	    thisform.verteilen.Visible = False
*!*	    thisform.zielboxes0.Visible = False
*!*	    thisform.zielboxes1.Visible = False
*!*	    thisform.zielboxes2.Visible = False
*!*	    thisform.zielboxes3.Visible = False
*!*	    thisform.zielboxes4.Visible = False
*!*	    thisform.zielboxes5.Visible = False
*!*	    thisform.zielboxes6.Visible = False
*!*	    thisform.zielboxes7.Visible = False
*!*	    thisform.zielboxes8.Visible = False
*!*	    thisform.zielboxes9.Visible = False
*!*	    thisform.zielboxes10.Visible = False
*!*	    thisform.zielboxes11.Visible = False
*!*	    thisform.zielboxes12.Visible = False
*!*	    thisform.zielboxes13.Visible = False
*!*	    thisform.zielboxes14.Visible = False
*!*	    
*!*	    thisform.zielboxes0.Enabled = False
*!*	    thisform.zielboxes1.Enabled = False
*!*	    thisform.zielboxes2.Enabled = False
*!*	    thisform.zielboxes3.Enabled = False
*!*	    thisform.zielboxes4.Enabled = False
*!*	    thisform.zielboxes5.Enabled = False
*!*	    thisform.zielboxes6.Enabled = False
*!*	    thisform.zielboxes7.Enabled = False
*!*	    thisform.zielboxes8.Enabled = False
*!*	    thisform.zielboxes9.Enabled = False
*!*	    thisform.zielboxes10.Enabled = False
*!*	    thisform.zielboxes11.Enabled = False
*!*	    thisform.zielboxes12.Enabled = False
*!*	    thisform.zielboxes13.Enabled = False
*!*	    thisform.zielboxes14.Enabled = False
ELSE
	thisform.check1.Enabled = .t.
	thisform.check1.visible = .t.
	thisform.command5.Enabled = .t.
	thisform.command6.Enabled = .t.
	thisform.command9.Enabled = .t.
	thisform.command10.Enabled = .t.
*	thisform.command11.Enabled = .t.
	thisform.command5.visible = .t.
	thisform.command6.visible = .t.
	thisform.command9.visible = .f.
	thisform.command10.visible = .f.
*	thisform.command11.visible = .t.
	thisform.label27.visible = .t.
	thisform.label28.visible = .t.	
	thisform.label29.visible = .t.
	thisform.label30.visible = .t.
	thisform.label31.visible = .t.
	thisform.label32.visible = .t.
	thisform.label33.visible = .t.
	thisform.label34.visible = .t.
	thisform.label35.visible = .t.
	thisform.label36.visible = .t.
	thisform.label37.visible = .t.
	thisform.label38.visible = .t.
	thisform.label39.visible = .t.
	thisform.label40.visible = .t.	
	thisform.label41.visible = .t.	
	thisform.txtprozente.Visible = .t.
	thisform.ww16.Visible = .t.	
	thisform.ww17.Visible = .t.	
	thisform.ww18.Visible = .t.	
	thisform.ww19.Visible = .t.	
	thisform.ww20.Visible = .t.	
	thisform.ww21.Visible = .t.	
	thisform.ww22.Visible = .t.	
	thisform.ww23.Visible = .t.	
	thisform.ww24.Visible = .t.	
	thisform.ww25.Visible = .t.	
	thisform.ww26.Visible = .t.	
	thisform.txtbetrag.Visible = .t.
	thisform.txtsockelbetrag.Visible = .t.
	thisform.txtzeilevon.Visible = .t.	
	thisform.txtzeilebis.Visible = .t.
	
	thisform.txtprozente.Enabled = .t.
	thisform.ww16.Enabled = .t.	
	thisform.ww17.Enabled = .t.	
	thisform.ww18.Enabled = .t.	
	thisform.ww19.Enabled = .t.	
	thisform.ww20.Enabled = .t.	
	thisform.ww21.Enabled = .t.	
	thisform.ww22.Enabled = .t.	
	thisform.ww23.Enabled = .t.	
	thisform.ww24.Enabled = .t.	
	thisform.ww25.Enabled = .t.	
	thisform.ww26.Enabled = .t.	
	thisform.txtbetrag.Enabled = .t.
	thisform.txtsockelbetrag.Enabled = .t.
	thisform.txtzeilevon.Enabled = .t.	
	thisform.txtzeilebis.Enabled = .t.
	
	thisform.text27.Visible = .t.	

    thisform.holen.Visible = true
    thisform.holen.enabled = true
*!*	    thisform.verteilen.Visible = true
*!*	    thisform.zielboxes0.Visible = true
*!*	    thisform.zielboxes1.Visible = true
*!*	    thisform.zielboxes2.Visible = true
*!*	    thisform.zielboxes3.Visible = true
*!*	    thisform.zielboxes4.Visible = true
*!*	    thisform.zielboxes5.Visible = true
*!*	    thisform.zielboxes6.Visible = true
*!*	    thisform.zielboxes7.Visible = true
*!*	    thisform.zielboxes8.Visible = true
*!*	    thisform.zielboxes9.Visible = true
*!*	    thisform.zielboxes10.Visible = true
*!*	    thisform.zielboxes11.Visible = true
*!*	    thisform.zielboxes12.Visible = true
*!*	    thisform.zielboxes13.Visible = true
*!*	    thisform.zielboxes14.Visible = true
*!*	    
*!*	    thisform.zielboxes0.Enabled = true
*!*	    thisform.zielboxes1.Enabled = true
*!*	    thisform.zielboxes2.Enabled = true
*!*	    thisform.zielboxes3.Enabled = true
*!*	    thisform.zielboxes4.Enabled = true
*!*	    thisform.zielboxes5.Enabled = true
*!*	    thisform.zielboxes6.Enabled = true
*!*	    thisform.zielboxes7.Enabled = true
*!*	    thisform.zielboxes8.Enabled = true
*!*	    thisform.zielboxes9.Enabled = true
*!*	    thisform.zielboxes10.Enabled = true
*!*	    thisform.zielboxes11.Enabled = true
*!*	    thisform.zielboxes12.Enabled = true
*!*	    thisform.zielboxes13.Enabled = true
*!*	    thisform.zielboxes14.Enabled = true
*!*		
endif

mytarife.optiongroup1.option1.caption = xjahr1
mytarife.optiongroup1.option2.caption = xjahr2
mytarife.optiongroup1.option3.caption = xjahr3
mytarife.optiongroup1.option4.caption = xjahr4
mytarife.optiongroup1.option5.caption = xjahr5

PUBLIC array dienstbezeichnung(31)

STORE "" TO dienstbezeichnung 

Public FileName As String
Public scrollen As Boolean
Public startnummer As Integer
Public endenummer As Integer
Public dateianzahl As Integer
Public zzz As Integer
PUBLIC moldbetraghs as currency

STORE 0 TO fieldboxes

For i = 6681 To 6698                    && Ordnungladen
	myget(34, i,"woerter")
	zt2(1+i - 6681) = Alltrim(woerter.textee)
Next

thisform.tarifgebiet.ListIndex = zi(1+2) + 1 &&1

Do monatladen &&Do attached

thisform.Titeleingabe.Visible = False

startnummer = 1

Public BoxCaption As String
Public NL As String
Public Msg As String

register = 151 + thisform.optiongroup1.Value - 1 &&?????

filenummer = register - 110

thisform.SSScroll1.Value = 1

Do Case && zi(1+4)
	Case (zi(1+4) >= 0 .And. zi(1+4) <= 2) .Or. zi(1+4) =  5
		i = zi(1+4)
	Case zi(1+4) = 3
		i = 4
	Case zi(1+4) = 4
		i = 3
	Case (zi(1+4) >= 9 .And. zi(1+4) <= 24)
		i = zi(1+4) - 1
Endcase

mytarife.optiongroup1.Value = 5 - (jahr5 - welchesjahr)
mytarife.optiongroup2.value = zi(1+20) + 1

SELECT(40 + mytarife.optiongroup2.value)

mytarife.schalter.value = zi(1+4) &&+ 1

myindex = mytarife.schalter.Value - 1

IF mytarife.schalter.Value = 0 .and. zi(1+4) = 0 &&A-Beamte
	mytarife.schalter.Value = 1
ENDIF


DO kommentarintitel
DO updatecaption
thisform.LockScreen = .f.


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
         j  j                           %   e                       U    C     U  THISFORM SIZER	 FRMRESIZE)
 %    
$  T     
 T   7  T - T   a 7 
 T    T   \intern.har# IF .not. FILE("&checkfile") T   	 - T   
 - T   	 - T   	 - T  
 	 - T   	 - T   
 - T   
 - T  
 
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T   
 - T    
 - T  ! 
 - T  " 
 - T  # 
 - T  $ 
 - T  % 
 - T  & 
 - T  ' 
 - T  ( 
 - T  ) 
 - T  * 
 - T  + 
 - T  , 
 - T  - 
 - T   	 - T   	 - T    	 - T  ! 	 - T  " 	 - T  # 	 - T  $ 	 - T  % 	 - T  & 	 - T  ' 	 - T  ( 	 - T  ) 	 - T  * 	 - T  + 	 - T  , 	 - T  - 	 - T  . 
 - T  / 
 0  T  / 	 0   T   	 a T   
 a T   	 a T   	 a T  
 	 a T   	 a T   
 a T   
 a T  
 
 - T   
 - T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T   
 a T    
 a T  ! 
 a T  " 
 a T  # 
 a T  $ 
 a T  % 
 a T  & 
 a T  ' 
 a T  ( 
 a T  ) 
 a T  * 
 a T  + 
 a T  , 
 a T  - 
 a T   	 a T   	 a T    	 a T  ! 	 a T  " 	 a T  # 	 a T  $ 	 a T  % 	 a T  & 	 a T  ' 	 a T  ( 	 a T  ) 	 a T  * 	 a T  + 	 a T  , 	 a T  - 	 a T  . 
 a T  / 
 1  T  / 	 1   T 2 3 4 5  T 2 6 4 7  T 2 8 4 9  T 2 : 4 ;  T 2 < 4 = 
 7> 
 J  (>  7? Q STRING 7@ Q BOOLEAN 7A Q INTEGER 7B Q INTEGER 7C Q INTEGER 7D Q INTEGER 7E Q CURRENCY
 J (F  G (*
 C" G  woerterH ! TI G CJ K   T  L M CN  O  T  P 
 0 
 TA  7Q Q STRING 7R Q STRING 7S Q STRING TT   2 U  TV T n T  W U 
 H
4 CN   CN 	 CN & TG CN  CN H
 TG  CN j
 TG % CN 	 CN 	 TG CN   T 2 U X Y  T Z U CN  F( Z U  T [ U CN  T\  [ U & % [ U   CN  	Z T [ U   ]  ^  T   - %  _ ` a  Tb Ca   _ ` T 
 Tb  
   c d  T  _   _ ` b  T  e   e ` b 
   f  T  g a Uh  THISFORM TOP GECLICKT	 STILLDOWN
 LOCKSCREEN MYTARIFE	 CHECKFILE EIGDAT CHECK1 ENABLED VISIBLE COMMAND5 COMMAND6 COMMAND9	 COMMAND10 LABEL27 LABEL28 LABEL29 LABEL30 LABEL31 LABEL32 LABEL33 LABEL34 LABEL35 LABEL36 LABEL37 LABEL38 LABEL39 LABEL40 LABEL41 TXTPROZENTE WW16 WW17 WW18 WW19 WW20 WW21 WW22 WW23 WW24 WW25 WW26	 TXTBETRAG TXTSOCKELBETRAG TXTZEILEVON TXTZEILEBIS TEXT27 HOLEN FALSE TRUE OPTIONGROUP1 OPTION1 CAPTION XJAHR1 OPTION2 XJAHR2 OPTION3 XJAHR3 OPTION4 XJAHR4 OPTION5 XJAHR5 DIENSTBEZEICHNUNG FILENAME SCROLLEN STARTNUMMER
 ENDENUMMER DATEIANZAHL ZZZ MOLDBETRAGHS
 FIELDBOXES I MYGET ZT2 WOERTER TEXTEE TARIFGEBIET	 LISTINDEX ZI
 MONATLADEN TITELEINGABE
 BOXCAPTION NL MSG REGISTER VALUE
 FILENUMMER	 SSSCROLL1 JAHR5 WELCHESJAHR OPTIONGROUP2 SCHALTER MYINDEX KOMMENTARINTITEL
 UPDATECAPTION HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 AA  q   q  121  21A baaaa  !!!!!1 A r 2 2 AQ Q QQA Brrb1A s q    A    2                       ,         G   :$      )   j                        textbox      textbox      SSPanel1      FORM1      FontBold = .T.
Alignment = 2
Value = 
Enabled = .F.
Height = 28
Left = 18
TabIndex = 2
Top = 479
Width = 579
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "SSPanel1"
      shape      shape      Shape1      FORM1      ATop = 431
Left = 18
Height = 46
Width = 579
Name = "Shape1"
      label      label      HLabel1      FORM1      FontSize = 11
Caption = "1. Whlen Sie das Tarifgebiet"
Height = 21
Left = 16
Top = 58
Width = 201
TabIndex = 3
ForeColor = 66,66,255
Name = "HLabel1"
      label      label      HLabel3      FORM1      FontSize = 11
Caption = "3. Whlen Sie mit dem Schiebregler die Gehaltsgruppe:"
Height = 21
Left = 18
Top = 407
Width = 390
TabIndex = 4
ForeColor = 66,66,255
Name = "HLabel3"
      textbox      textbox      text0      FORM1      Alignment = 1
ControlSource = "fieldboxes(1)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 5
Top = 53
Width = 121
Name = "text0"
     TPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*SET STEP ON 
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 5  A 1                       k            I      )   p                        textbox      textbox      text1      FORM1      Alignment = 1
ControlSource = "fieldboxes(2)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 10
Top = 73
Width = 121
Name = "text1"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text2      FORM1      Alignment = 1
ControlSource = "fieldboxes(3)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 11
Top = 93
Width = 121
Name = "text2"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text3      FORM1      Alignment = 1
ControlSource = "fieldboxes(4)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 14
Top = 113
Width = 121
Name = "text3"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text4      FORM1      Alignment = 1
ControlSource = "fieldboxes(5)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 19
Top = 133
Width = 121
Name = "text4"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text5      FORM1      Alignment = 1
ControlSource = "fieldboxes(6)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 22
Top = 153
Width = 121
Name = "text5"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text6      FORM1      Alignment = 1
ControlSource = "fieldboxes(7)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 25
Top = 173
Width = 121
Name = "text6"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text7      FORM1      Alignment = 1
ControlSource = "fieldboxes(8)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 28
Top = 193
Width = 121
Name = "text7"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text8      FORM1      Alignment = 1
ControlSource = "fieldboxes(9)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 31
Top = 213
Width = 121
Name = "text8"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text9      FORM1      Alignment = 1
ControlSource = "fieldboxes(10)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 34
Top = 233
Width = 121
Name = "text9"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text10      FORM1      Alignment = 1
ControlSource = "fieldboxes(11)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 37
Top = 253
Width = 121
Name = "text10"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text11      FORM1      Alignment = 1
ControlSource = "fieldboxes(12)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 40
Top = 273
Width = 121
Name = "text11"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text12      FORM1      Alignment = 1
ControlSource = "fieldboxes(13)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 41
Top = 293
Width = 121
Name = "text12"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text13      FORM1      Alignment = 1
ControlSource = "fieldboxes(14)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 44
Top = 313
Width = 121
Name = "text13"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text14      FORM1      Alignment = 1
ControlSource = "fieldboxes(15)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 45
Top = 333
Width = 121
Name = "text14"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      text15      FORM1      Alignment = 1
ControlSource = "fieldboxes(16)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 47
Top = 353
Width = 121
Name = "text15"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text16      FORM1      Alignment = 1
ControlSource = "fieldboxes(17)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 48
Top = 373
Width = 121
Name = "Text16"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text17      FORM1      Alignment = 1
ControlSource = "fieldboxes(18)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 49
Top = 393
Width = 121
Name = "Text17"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text18      FORM1      Alignment = 1
ControlSource = "fieldboxes(19)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 50
Top = 413
Width = 121
Name = "Text18"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text19      FORM1      Alignment = 1
ControlSource = "fieldboxes(20)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 51
Top = 433
Width = 121
Name = "Text19"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text20      FORM1      Alignment = 1
ControlSource = "fieldboxes(21)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 52
Top = 453
Width = 121
Name = "Text20"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text21      FORM1      Alignment = 1
ControlSource = "fieldboxes(22)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 53
Top = 473
Width = 121
Name = "Text21"
     DPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 11
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       j            9      )   p                        textbox      textbox      Text22      FORM1      Alignment = 1
ControlSource = "fieldboxes(23)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 54
Top = 494
Width = 121
Name = "Text22"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text23      FORM1      Alignment = 1
ControlSource = "fieldboxes(24)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 55
Top = 513
Width = 121
Name = "Text23"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text24      FORM1      Alignment = 1
ControlSource = "fieldboxes(25)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 56
Top = 533
Width = 121
Name = "Text24"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text25      FORM1      Alignment = 1
ControlSource = "fieldboxes(26)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 57
Top = 553
Width = 121
Name = "Text25"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      Text26      FORM1      Alignment = 1
ControlSource = "fieldboxes(27)"
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 615
SelectOnEntry = .T.
TabIndex = 58
Top = 572
Width = 121
Name = "Text26"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        label      label      HLabel4      FORM1      FontSize = 11
Caption = "4. Geben Sie die Werte ein."
Height = 21
Left = 610
Top = 8
Width = 183
TabIndex = 59
ForeColor = 66,66,255
Name = "HLabel4"
      label      label      HLabel5      FORM1      FontSize = 11
Caption = "(ENTER speichert)"
Height = 16
Left = 793
Top = 8
Width = 129
TabIndex = 60
ForeColor = 0,0,0
Name = "HLabel5"
      label      label      Label0      FORM1      dCaption = "Label1"
Height = 17
Left = 740
Top = 55
Width = 202
TabIndex = 61
Name = "Label0"
      label      label      Label1      FORM1      dCaption = "Label1"
Height = 17
Left = 740
Top = 75
Width = 202
TabIndex = 62
Name = "Label1"
      label      label      Label2      FORM1      dCaption = "Label1"
Height = 17
Left = 740
Top = 95
Width = 202
TabIndex = 63
Name = "Label2"
      label      label      Label3      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 115
Width = 202
TabIndex = 64
Name = "Label3"
      label      label      Label4      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 135
Width = 202
TabIndex = 65
Name = "Label4"
      label      label      Label5      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 155
Width = 202
TabIndex = 66
Name = "Label5"
      label      label      Label6      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 175
Width = 202
TabIndex = 67
Name = "Label6"
      label      label      Label7      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 195
Width = 202
TabIndex = 68
Name = "Label7"
      label      label      Label8      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 215
Width = 202
TabIndex = 69
Name = "Label8"
      label      label      Label9      FORM1      eCaption = "Label1"
Height = 17
Left = 740
Top = 235
Width = 202
TabIndex = 70
Name = "Label9"
      label      label      Label10      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 255
Width = 202
TabIndex = 71
Name = "Label10"
      label      label      Label11      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 275
Width = 202
TabIndex = 72
Name = "Label11"
      label      label      Label12      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 295
Width = 202
TabIndex = 73
Name = "Label12"
      label      label      Label13      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 315
Width = 202
TabIndex = 74
Name = "Label13"
      label      label      Label14      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 335
Width = 202
TabIndex = 75
Name = "Label14"
      label      label      Label15      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 355
Width = 202
TabIndex = 76
Name = "Label15"
      label      label      Label16      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 375
Width = 202
TabIndex = 77
Name = "Label16"
      label      label      Label17      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 395
Width = 202
TabIndex = 78
Name = "Label17"
      label      label      Label18      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 415
Width = 202
TabIndex = 79
Name = "Label18"
      label      label      Label19      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 435
Width = 202
TabIndex = 80
Name = "Label19"
      label      label      Label20      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 455
Width = 202
TabIndex = 81
Name = "Label20"
      label      label      Label21      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 475
Width = 202
TabIndex = 82
Name = "Label21"
      label      label      Label22      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 495
Width = 202
TabIndex = 83
Name = "Label22"
      label      label      Label23      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 515
Width = 202
TabIndex = 84
Name = "Label23"
      label      label      Label24      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 535
Width = 202
TabIndex = 85
Name = "Label24"
      label      label      Label25      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 555
Width = 202
TabIndex = 86
Name = "Label25"
      label      label      Label26      FORM1      fCaption = "Label1"
Height = 17
Left = 740
Top = 574
Width = 202
TabIndex = 87
Name = "Label26"
      combobox      combobox      Tarifgebiet      FORM1      RowSourceType = 5
RowSource = "zt2"
Value = 
Height = 27
Left = 225
Style = 2
TabIndex = 88
Top = 55
Width = 310
BoundTo = .F.
ReadOnly = .F.
Name = "Tarifgebiet"
      ZPROCEDURE InteractiveChange

thisform.schalter.click(thisform.schalter.value)
ENDPROC
                                      t   %   n                          U    C         U  THISFORM SCHALTER CLICK VALUE InteractiveChange,     1 1                       O       )                            label      label      Namedoppelt      FORM1      FontBold = .T.
FontSize = 9
Alignment = 2
Caption = ""
Height = 21
Left = 593
Top = 30
Width = 232
TabIndex = 89
Name = "Namedoppelt"
      	container      	container      Titeleingabe      FORM1      sTop = -3
Left = 1
Width = 946
Height = 106
Enabled = .F.
Visible = .T.
TabIndex = 90
Name = "Titeleingabe"
      
commandbutton      
commandbutton      
SScommand5      FORM1.Titeleingabe      [Top = 69
Left = 27
Height = 28
Width = 172
Caption = "schlieen"
Name = "SScommand5"
     PROCEDURE Click
SELECT kommentar
zwischenraum = (welchesjahr - 2006) * 12 + myTarife.optiongroup2.value
SELECT kommentar
GOTO zwischenraum
replace kommentar.zeile1 WITH thisform.Titeleingabe.zeile1.value
replace kommentar.zeile2 WITH thisform.Titeleingabe.zeile2.value
replace kommentar.zeile3 WITH thisform.Titeleingabe.zeile3.value
replace kommentar.zeile4 WITH thisform.Titeleingabe.zeile4.value
FLUSH
DO kommentarintitel
thisform.Titeleingabe.enabled = .f.
thisform.titeleingabe.Visible=.f.
thisform.command1.Visible=.t.
thisform.command2.Visible=.t.
thisform.command3.Visible=.t.
thisform.command4.Visible=.t.
thisform.command11.Visible=.t.

ENDPROC
                                   v   %   %      Z     4            U  ! F  ! T      F  	 #  >        >  	   	   >  
   
   >        [   T  
 - T   - T   a T   a T   a T   a T   a U 	 KOMMENTAR ZWISCHENRAUM WELCHESJAHR MYTARIFE OPTIONGROUP2 VALUE ZEILE1 THISFORM TITELEINGABE ZEILE2 ZEILE3 ZEILE4 KOMMENTARINTITEL ENABLED VISIBLE COMMAND1 COMMAND2 COMMAND3 COMMAND4	 COMMAND11 Click,     1 q q  A q 2                             )                           textbox      textbox      Zeile1      FORM1.Titeleingabe      TControlSource = ""
Height = 24
Left = 219
Top = 3
Width = 724
Name = "Zeile1"
      textbox      textbox      Zeile2      FORM1.Titeleingabe      UControlSource = ""
Height = 24
Left = 219
Top = 27
Width = 724
Name = "Zeile2"
      textbox      textbox      Zeile3      FORM1.Titeleingabe      UControlSource = ""
Height = 24
Left = 219
Top = 51
Width = 724
Name = "Zeile3"
      textbox      textbox      Zeile4      FORM1.Titeleingabe      UControlSource = ""
Height = 24
Left = 219
Top = 75
Width = 724
Name = "Zeile4"
      label      label      Label1      FORM1.Titeleingabe      FontBold = .T.
FontSize = 10
Caption = "Texte fr die Titelzeile"
Height = 19
Left = 27
Top = 36
Width = 156
Name = "Label1"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 5
Value = 1
Height = 105
Left = 408
Top = 107
Width = 75
TabIndex = 91
Name = "Optiongroup1"
Option1.Caption = "jahr1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 61
Option1.Name = "Option1"
Option2.Caption = "jahr2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 61
Option2.Name = "Option2"
Option3.Caption = "jahr3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 61
Option3.Name = "Option3"
Option4.Caption = "jahr4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 61
Option4.Name = "Option4"
Option5.Caption = "jahr5"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 61
Option5.Name = "Option5"
     /PROCEDURE InteractiveChange
this.click

ENDPROC
PROCEDURE Click
welchesjahr = jahr1 - 1 + this.Value
welchesjahrc=ALLTRIM(STR(welchesjahr,4,0))

*eigdat = "C:\pc-gehalt\2020\"

For nr = 1 To 12
	myopen(eigdat + "\Tarife\T" + welchesjahrc + ALLTRIM(STR(nr,2,0)) , 40 + nr ,"employee")
Next

SELECT(40 + mytarife.optiongroup2.value) &&HS 14.08.2020

filenummer = 40 + mytarife.optiongroup2.value
thisform.text27.Value = ALIAS() + " " + ALLTRIM(STR(RECNO(),10,0))
thisform.schalter.click(thisform.schalter.value)
DO kommentarintitel
ENDPROC
                                   ԰   %         *                 U  
 
     U  THIS CLICK  T      T CC   Z  ( > C 	 \Tarife\T CC  Z(  employee   F( 	   T
 ( 	  $ T   C  CCCO
 Z C 
   
     U  WELCHESJAHR JAHR1 THIS VALUE WELCHESJAHRC NR MYOPEN EIGDAT MYTARIFE OPTIONGROUP2
 FILENUMMER THISFORM TEXT27 SCHALTER CLICK KOMMENTARINTITEL InteractiveChange,      ClickJ     1  3 qtA BrAq 1                       )         E   $      )                           optiongroup      optiongroup      Optiongroup2      FORM1     ButtonCount = 12
Value = 1
Height = 237
Left = 498
Top = 107
Width = 102
TabIndex = 92
Name = "Optiongroup2"
Option1.Caption = "Januar"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 91
Option1.Name = "Option1"
Option2.Caption = "Februar"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 91
Option2.Name = "Option2"
Option3.Caption = "Mrz"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 91
Option3.Name = "Option3"
Option4.Caption = "April"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 91
Option4.Name = "Option4"
Option5.Caption = "Mai"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 91
Option5.Name = "Option5"
Option6.Caption = "Juni"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 100
Option6.Width = 91
Option6.Name = "Option6"
Option7.Caption = "Juli"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 119
Option7.Width = 91
Option7.Name = "Option7"
Option8.Caption = "August"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 138
Option8.Width = 91
Option8.Name = "Option8"
Option9.Caption = "September"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 157
Option9.Width = 91
Option9.Name = "Option9"
Option10.Caption = "Okober"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 176
Option10.Width = 91
Option10.Name = "Option10"
Option11.Caption = "November"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 195
Option11.Width = 91
Option11.Name = "Option11"
Option12.Caption = "Dezember"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 214
Option12.Width = 91
Option12.Name = "Option12"
     PROCEDURE InteractiveChange
this.click

ENDPROC
PROCEDURE Click
*eigdat = "C:\pc-gehalt\2020\"

For nr = 1 To 12
	myopen(eigdat + "\Tarife\T" + welchesjahrc + ALLTRIM(STR(nr,2,0)) , 40 + nr ,"employee")
NEXT

SELECT(40 + mytarife.optiongroup2.value) &&HS 14.08.2020

filenummer = 40 + mytarife.optiongroup2.value

register = 151 + this.Value - 1
thisform.text27.Value = ALIAS() + " " + ALLTRIM(STR(RECNO(),10,0))
thisform.schalter.click(thisform.schalter.value)
DO kommentarintitel
ENDPROC
     y    `  `                        ")   %           
               U  
 
     U  THIS CLICK    (U > C 	 \Tarife\T CC   Z(   employee   F(    T (    T 	  $ T
   C  CCCO
 Z C
   
  
    U  NR MYOPEN EIGDAT WELCHESJAHRC MYTARIFE OPTIONGROUP2 VALUE
 FILENUMMER REGISTER THIS THISFORM TEXT27 SCHALTER CLICK KOMMENTARINTITEL InteractiveChange,      ClickJ     1  3 sA BrAq 1                       )         E         )   `                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 618
Left = 921
TabIndex = 93
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label27      FORM1      fCaption = "Prozente"
Height = 15
Left = 25
Top = 513
Width = 51
TabIndex = 95
Name = "Label27"
      label      label      Label28      FORM1      eCaption = "V-Zusch"
Height = 15
Left = 92
Top = 513
Width = 45
TabIndex = 96
Name = "Label28"
      label      label      Label29      FORM1      dCaption = "1 Ki."
Height = 15
Left = 167
Top = 513
Width = 30
TabIndex = 97
Name = "Label29"
      label      label      Label30      FORM1      dCaption = "2 Ki."
Height = 15
Left = 232
Top = 513
Width = 30
TabIndex = 98
Name = "Label30"
      label      label      Label31      FORM1      dCaption = "3 Ki."
Height = 15
Left = 298
Top = 513
Width = 30
TabIndex = 99
Name = "Label31"
      label      label      Label32      FORM1      eCaption = "4 Ki."
Height = 15
Left = 363
Top = 513
Width = 30
TabIndex = 100
Name = "Label32"
      label      label      Label33      FORM1      eCaption = "5 Ki."
Height = 15
Left = 431
Top = 513
Width = 30
TabIndex = 101
Name = "Label33"
      label      label      Label34      FORM1      eCaption = "6 Ki."
Height = 15
Left = 500
Top = 513
Width = 30
TabIndex = 102
Name = "Label34"
      checkbox      checkbox      Check1      FORM1      vTop = 557
Left = 9
Height = 13
Width = 78
Alignment = 0
Caption = "min Betrag"
TabIndex = 103
Name = "Check1"
      textbox      textbox      txtprozente      FORM1      Alignment = 3
Value = 0.00
Format = "999.999"
Height = 21
InputMask = "999.999"
Left = 18
SelectOnEntry = .T.
TabIndex = 104
Top = 527
Width = 58
Name = "txtprozente"
      textbox      textbox      ww16      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 79
SelectOnEntry = .T.
TabIndex = 105
Top = 527
Width = 58
Name = "ww16"
      textbox      textbox      ww17      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 139
SelectOnEntry = .T.
TabIndex = 106
Top = 527
Width = 58
Name = "ww17"
      textbox      textbox      ww18      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 204
SelectOnEntry = .T.
TabIndex = 107
Top = 527
Width = 58
Name = "ww18"
      textbox      textbox      ww19      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 266
SelectOnEntry = .T.
TabIndex = 108
Top = 527
Width = 62
Name = "ww19"
      textbox      textbox      ww20      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 331
SelectOnEntry = .T.
TabIndex = 109
Top = 527
Width = 67
Name = "ww20"
      textbox      textbox      ww22      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 471
SelectOnEntry = .T.
TabIndex = 111
Top = 527
Width = 68
Name = "ww22"
      label      label      Label36      FORM1      cCaption = "Z-v"
Height = 15
Left = 201
Top = 558
Width = 22
TabIndex = 112
Name = "Label36"
      label      label      Label37      FORM1      cCaption = "Z-t"
Height = 15
Left = 241
Top = 558
Width = 19
TabIndex = 113
Name = "Label37"
      label      label      Label38      FORM1      eCaption = "UK Ic"
Height = 15
Left = 296
Top = 558
Width = 30
TabIndex = 114
Name = "Label38"
      label      label      Label39      FORM1      eCaption = "UK II"
Height = 15
Left = 365
Top = 558
Width = 28
TabIndex = 115
Name = "Label39"
      label      label      Label40      FORM1      hCaption = "Al ST Zu"
Height = 15
Left = 420
Top = 564
Width = 47
TabIndex = 116
Name = "Label40"
      label      label      Label41      FORM1      iCaption = "St. Verg"
Height = 15
Left = 476
Top = 558
Width = 50
TabIndex = 117
Name = "Label41"
      textbox      textbox      	txtbetrag      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 18
SelectOnEntry = .T.
TabIndex = 118
Top = 572
Width = 58
Name = "txtbetrag"
      textbox      textbox      txtzeilevon      FORM1      Alignment = 3
Value = 1
Height = 21
Left = 190
SelectOnEntry = .T.
TabIndex = 120
Top = 572
Width = 32
Name = "txtzeilevon"
      textbox      textbox      txtzeilebis      FORM1      Alignment = 3
Value = 15
Height = 21
Left = 226
SelectOnEntry = .T.
TabIndex = 121
Top = 572
Width = 32
Name = "txtzeilebis"
      textbox      textbox      ww23      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 271
SelectOnEntry = .T.
TabIndex = 122
Top = 572
Width = 58
Name = "ww23"
      textbox      textbox      ww24      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 337
SelectOnEntry = .T.
TabIndex = 123
Top = 572
Width = 58
Name = "ww24"
      textbox      textbox      ww25      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 402
SelectOnEntry = .T.
TabIndex = 124
Top = 572
Width = 58
Name = "ww25"
      textbox      textbox      ww26      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 468
SelectOnEntry = .T.
TabIndex = 125
Top = 572
Width = 58
Name = "ww26"
      
commandbutton      
commandbutton      Command5      FORM1      kTop = 521
Left = 541
Height = 28
Width = 70
Caption = "bernehmen"
TabIndex = 126
Name = "Command5"
     PROCEDURE Click
myTarife.ww16.value = fieldboxes(17) 
myTarife.ww17.value = fieldboxes(18) 
myTarife.ww18.value = fieldboxes(19) 
myTarife.ww19.value = fieldboxes(20) 
myTarife.ww20.value = fieldboxes(21) 
myTarife.ww21.value = fieldboxes(22) 
myTarife.ww22.value = fieldboxes(23) 
myTarife.ww23.value = fieldboxes(24)
myTarife.ww24.value = fieldboxes(25)
myTarife.ww25.value = fieldboxes(26)
myTarife.ww26.value = fieldboxes(27)

thisform.refresh
ENDPROC
     9                                f   %                          U  
 T    C  T    C  T    C  T    C  T    C  T    C  T  	  C  T  
  C  T    C  T    C  T  
  C 
    U  MYTARIFE WW16 VALUE
 FIELDBOXES WW17 WW18 WW19 WW20 WW21 WW22 WW23 WW24 WW25 WW26 THISFORM REFRESH Click,     1 qqqqqqqqqqq 1                             )                            
commandbutton      
commandbutton      Command6      FORM1      jTop = 554
Left = 534
Height = 28
Width = 79
Caption = "berechnen"
TabIndex = 127
Name = "Command6"
     PROCEDURE Click

If myTarife.Check1.Value = 1 &&mindestbetrag
   If EMPTY(myTarife.txtbetrag.value) &&= 0
        hinweis("Der Mindestbetrag ist leer!")
        return
    EndIf
    If EMPTY(myTarife.txtprozente.value) && = 0
        hinweis("Der Prozentsatz ist leer!")
        return
    EndIf

    For zzz = myTarife.txtzeilevon.value To myTarife.txtzeilebis.value
        IF fieldboxes(zzz) > 0 
            moldbetraghs = fieldboxes(zzz)
            
            fieldboxes(zzz) = ROUND((fieldboxes(zzz) + thisform.txtsockelbetrag.value) * (1 + (myTarife.txtprozente.value / 100)),2)
            
            If fieldboxes(zzz) - moldbetraghs < myTarife.txtbetrag.value
               fieldboxes(zzz) = moldbetraghs + (myTarife.txtbetrag.value * 1)
            EndIf
        EndIf
    Next
    If Not geclickt = 24 
        fieldboxes(17) = myTarife.ww16.value 
        fieldboxes(18) = myTarife.ww17.value 
        fieldboxes(19) = myTarife.ww18.value 
        fieldboxes(20) = myTarife.ww19.value 
        fieldboxes(21) = myTarife.ww20.value 
        fieldboxes(22) = myTarife.ww21.value 
        fieldboxes(23) = myTarife.ww22.value 
        fieldboxes(24) = myTarife.ww23.value 
        fieldboxes(25) = myTarife.ww24.value 
        fieldboxes(26) = myTarife.ww25.value 
        fieldboxes(27) = myTarife.ww26.value 
    EndIf
Else
    If myTarife.txtbetrag.value > 0 &&festbetrag aber kein mindestbetrag
         For zzz = myTarife.txtzeilevon.value To myTarife.txtzeilebis.value 
            If fieldboxes(zzz) > 0 
               fieldboxes(zzz) = (fieldboxes(zzz) + thisform.txtsockelbetrag.value) + (myTarife.txtbetrag.value * 1)
            EndIf     
        NEXT
        
        If Not geclickt = 24 
            fieldboxes(17) = myTarife.ww16.value 
            fieldboxes(18) = myTarife.ww17.value 
            fieldboxes(19) = myTarife.ww18.value 
            fieldboxes(20) = myTarife.ww19.value 
            fieldboxes(21) = myTarife.ww20.value 
            fieldboxes(22) = myTarife.ww21.value 
            fieldboxes(23) = myTarife.ww22.value 
            fieldboxes(24) = myTarife.ww23.value 
            fieldboxes(25) = myTarife.ww24.value 
            fieldboxes(26) = myTarife.ww25.value 
            fieldboxes(27) = myTarife.ww26.value 
        EndIf
    Else
        For zzz = myTarife.txtzeilevon.value To myTarife.txtzeilebis.value 
        	IF fieldboxes(zzz) > 0
           	 	fieldboxes(zzz) = ROUND((fieldboxes(zzz) + thisform.txtsockelbetrag.value) * (1 + (myTarife.txtprozente.value / 100)),2)
           	endif
        Next
        If Not geclickt = 24 
            fieldboxes(17) = myTarife.ww16.value 
            fieldboxes(18) = myTarife.ww17.value 
            fieldboxes(19) = myTarife.ww18.value 
            fieldboxes(20) = myTarife.ww19.value 
            fieldboxes(21) = myTarife.ww20.value 
            fieldboxes(22) = myTarife.ww21.value 
            fieldboxes(23) = myTarife.ww22.value 
            fieldboxes(24) = myTarife.ww23.value 
            fieldboxes(25) = myTarife.ww24.value 
            fieldboxes(26) = myTarife.ww25.value 
            fieldboxes(27) = myTarife.ww26.value 
        EndIf
    EndIf
ENDIF

thisform.refresh
ENDPROC
     5                              v   %   .        K   =            U   %     %C    X ( C Der Mindestbetrag ist leer!  B  %C     & C Der Prozentsatz ist leer!  B #      (    p %C  	  l T
 C  	 < T	  CC  	        dT  %C  	 
     
h" T	  
         %
 
 T	      T	      T	      T	      T	      T	      T	      T	      T	      T	      T	       
 %     X#      (    + %C  	  '2 T	  C  	           %
 
T T	      T	      T	      T	      T	      T	      T	      T	      T	      T	      T	       #      (     %C  	  < T	  CC  	        dT   %
 
 T	      T	      T	      T	      T	      T	      T	      T	      T	      T	      T	        
    U  MYTARIFE CHECK1 VALUE	 TXTBETRAG HINWEIS TXTPROZENTE ZZZ TXTZEILEVON TXTZEILEBIS
 FIELDBOXES MOLDBETRAGHS THISFORM TXTSOCKELBETRAG GECLICKT WW16 WW17 WW18 WW19 WW20 WW21 WW22 WW23 WW24 WW25 WW26 REFRESH Click,     1 rQA A QaA A 2a!!A A A !A  q1a!A A "A  1aA A !A A A  1                             )                           
commandbutton      
commandbutton      Command2      FORM1      oTop = 1
Left = 371
Height = 34
Width = 115
Caption = "Tabelle drucken"
TabIndex = 128
Name = "Command2"
     2PROCEDURE Click
public 1,2,3,sp0,sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12,sp13,sp14,sp15,sp16,sp17,sp18,sp19,sp20,sp21
STORE "" TO 1,2,3,sp0,sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12,sp13,sp14,sp15,sp16,sp17,sp18,sp19,sp20,sp21
 
1 = mytarife.caption
2 = mytarife.tarifgebiet.value
xxxy = ALLTRIM(STR(mytarife.schalter.value,2,0))
3 = alltrim(mytarife.schalter.option&xxxy..caption)

DO tarife_command2_click

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top


REPORT FORM tariftabelle_drucken NEXT 1 RANGE 1,1 NOCONSOLE TO PRINTER prompt

release 1,2,3,sp0,sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12,sp13,sp14,sp15,sp16,sp17,sp18,sp19,sp20,sp21

SELECT dummy
USE

SELECT(oldselect)
ENDPROC
                                        %   ~                       U  Lg 7          	 
   
            m J  (          	 
   
             T     T     T CC    Z8 3 = alltrim(mytarife.schalter.option&xxxy..caption)
   T  C W h dummy"  C F!   [ F!  #)2 ? tariftabelle_drucken(!"9g <          	 
   
             F!  Q
 F   U$  1 2 3 SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 SP18 SP19 SP20 SP21 MYTARIFE CAPTION TARIFGEBIET VALUE XXXY SCHALTER TARIFE_COMMAND2_CLICK	 OLDSELECT DUMMY FELD TARIFTABELLE_DRUCKEN Click,     1 q1r  q Q A r Q #rr A  1                       '      )                            
commandbutton      
commandbutton      Command3      FORM1      kTop = 1
Left = 255
Height = 34
Width = 115
Caption = "Umschichten"
TabIndex = 129
Name = "Command3"
      PROCEDURE Click
FOR xaa = 41 TO 52
	SELECT(xaa)
	USE
next

Do FORM tarifekopieren

*Alte dateien wieder ffnen
For nr = 1 To 12
	myopen(eigdat + "\Tarife\T" + welchesjahrc + ALLTRIM(STR(nr,2,0)) , 40 + nr ,"employee")
Next
ENDPROC
         n  n                        _L   %         %  
               U      )(4% 
 F   Q   tarifekopieren  ( > C 	 \Tarife\T CC  Z(  employee   U  XAA TARIFEKOPIEREN NR MYOPEN EIGDAT WELCHESJAHRC Click,     1 q A A bsA 1                              )   n                        
commandbutton      
commandbutton      Command4      FORM1      iTop = 1
Left = 139
Height = 34
Width = 115
Caption = "Kommentar"
TabIndex = 130
Name = "Command4"
     PROCEDURE Click


DO kommentarintitel


thisform.command1.Visible=.f.
thisform.command2.Visible=.f.
thisform.command3.Visible=.f.
thisform.command4.Visible=.f.
thisform.command11.Visible=.f.
thisform.titeleingabe.zeile1.Value = kommentar.zeile1
thisform.titeleingabe.zeile2.Value = kommentar.zeile2
thisform.titeleingabe.zeile3.Value = kommentar.zeile3
thisform.titeleingabe.zeile4.Value = kommentar.zeile4
thisform.Titeleingabe.enabled = .t.
thisform.Titeleingabe.Visible = .t.
ENDPROC
     C    *  *                        7   %                          U       T   - T   - T   - T   - T   - T  	 
  	  T   
    T  
 
  
  T   
    T   a T   a U  KOMMENTARINTITEL THISFORM COMMAND1 VISIBLE COMMAND2 COMMAND3 COMMAND4	 COMMAND11 TITELEINGABE ZEILE1 VALUE	 KOMMENTAR ZEILE2 ZEILE3 ZEILE4 ENABLED Click,     1 s 1                             )   *                        
commandbutton      
commandbutton      Command1      FORM1      wTop = 1
Left = 487
Height = 34
Width = 115
Cancel = .T.
Caption = "schlieen"
TabIndex = 131
Name = "Command1"
      bPROCEDURE Click
SELECT kommentar
USE
*SET STEP ON 
DO neuername
thisform.Release

ENDPROC
                                      F:   %   x                          U    F   Q  
    U 	 KOMMENTAR	 NEUERNAME THISFORM RELEASE Click,     1 q A r  2                       W       )                            
commandbutton      
commandbutton      Command7      FORM1      Top = 436
Left = 23
Height = 35
Width = 21
Picture = buttons\pfeil_links.jpg
Caption = ""
TabIndex = 132
Name = "Command7"
      PROCEDURE Click
If mytarife.ssScroll1.value > mytarife.ssScroll1.Min 
	mytarife.ssScroll1.value = mytarife.ssScroll1.value - 1
ENDIF
mytarife.ssScroll1.scroll
    
ENDPROC
     $                              r   %                             U  N  %        :  T         
      U  MYTARIFE	 SSSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )                           
commandbutton      
commandbutton      Command8      FORM1      Top = 436
Left = 573
Height = 35
Width = 22
Picture = buttons\pfeil_rechts.jpg
Caption = ""
TabIndex = 133
Name = "Command8"
      PROCEDURE Click
If mytarife.ssScroll1.value < mytarife.ssScroll1.Max 
	mytarife.ssScroll1.value = mytarife.ssScroll1.value + 1
ENDIF
mytarife.ssScroll1.scroll

ENDPROC
     $                              r   %                             U  N  %        
:  T         
      U  MYTARIFE	 SSSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )                           
commandbutton      
commandbutton      Command9      FORM1      Top = 393
Left = 432
Height = 22
Width = 70
Caption = "show open"
Enabled = .F.
TabIndex = 134
Visible = .F.
Name = "Command9"
      PROCEDURE Click
thisform.edit1.Value = ""
thisform.edit1.Visible = .t.
FOR xaa = 1 TO 100
	thisform.edit1.Value = thisform.edit1.Value + STR(xaa,3,0)+ " : " + ALIAS(xaa) + CHR(13) + CHR(10)
NEXT

ENDPROC
     U    <  <                        d   %                             U    T       T    a  (dy > T        C  Z  : C C
 C
   U  THISFORM EDIT1 VALUE VISIBLE XAA Click,     1 1qA 2                              )   <                        
commandbutton      
commandbutton      	Command10      FORM1      Top = 393
Left = 522
Height = 22
Width = 70
Caption = "close open"
Enabled = .F.
TabIndex = 135
Visible = .F.
Name = "Command10"
      SPROCEDURE Click
thisform.edit1.Value = ""
thisform.edit1.Visible = .f.
ENDPROC
                                      t   %   x                          U  '  T       T    - U  THISFORM EDIT1 VALUE VISIBLE Click,     1 11                       H       )                            textbox      textbox      Text27      FORM1      pEnabled = .F.
Height = 22
Left = 411
TabIndex = 136
Top = 363
Visible = .F.
Width = 196
Name = "Text27"
      optiongroup      optiongroup      schalter      FORM1     ButtonCount = 28
Value = 1
Height = 295
Left = 13
Top = 107
Width = 383
TabIndex = 137
Name = "schalter"
Option1.Caption = "Bes.Ordn. A"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 9
Option1.Top = 24
Option1.Width = 163
Option1.Name = "Option1"
Option2.Caption = "Bes.Ordn. B"
Option2.Height = 17
Option2.Left = 9
Option2.Top = 43
Option2.Width = 163
Option2.Name = "Option2"
Option3.Caption = "Bes.Ordn. C"
Option3.Height = 17
Option3.Left = 9
Option3.Top = 62
Option3.Width = 163
Option3.Name = "Option3"
Option4.Caption = "Bes.Ordn. R"
Option4.Height = 17
Option4.Left = 9
Option4.Top = 81
Option4.Width = 163
Option4.Name = "Option4"
Option5.Caption = "Bes.Ordn. W"
Option5.Height = 17
Option5.Left = 9
Option5.Top = 100
Option5.Width = 163
Option5.Name = "Option5"
Option6.Caption = "Anwrter A"
Option6.Height = 17
Option6.Left = 9
Option6.Top = 119
Option6.Width = 163
Option6.Name = "Option6"
Option7.Caption = "AOK Dienstverhltnis"
Option7.Height = 17
Option7.Left = 9
Option7.Top = 138
Option7.Width = 163
Option7.Name = "Option7"
Option8.Caption = "TV-L /TV-H Pfege"
Option8.Height = 17
Option8.Left = 9
Option8.Top = 158
Option8.Width = 163
Option8.Name = "Option8"
Option9.Caption = "TV-L/TV-H Soz.- u. Erz. - Dienst"
Option9.Height = 17
Option9.Left = 9
Option9.Top = 176
Option9.Width = 179
Option9.Name = "Option9"
Option10.Caption = "TVD Bund"
Option10.Height = 17
Option10.Left = 198
Option10.Top = 8
Option10.Width = 163
Option10.Name = "Option10"
Option11.Caption = "TVD Land"
Option11.Height = 17
Option11.Left = 198
Option11.Top = 27
Option11.Width = 163
Option11.Name = "Option11"
Option12.Caption = "TVD Gemeinden VKA"
Option12.Height = 17
Option12.Left = 198
Option12.Top = 46
Option12.Width = 163
Option12.Name = "Option12"
Option13.Caption = "TVD Pflege"
Option13.Height = 17
Option13.Left = 198
Option13.Top = 65
Option13.Width = 163
Option13.Name = "Option13"
Option14.Caption = "TVD Sozial- und Erz.D."
Option14.Height = 17
Option14.Left = 198
Option14.Top = 84
Option14.Width = 163
Option14.Name = "Option14"
Option15.Caption = "Arzt / rztin"
Option15.Height = 17
Option15.Left = 198
Option15.Top = 103
Option15.Width = 163
Option15.Name = "Option15"
Option16.Caption = "TVD Krankenhaus"
Option16.Height = 17
Option16.Left = 198
Option16.Top = 122
Option16.Width = 163
Option16.Name = "Option16"
Option17.Caption = "TV-L Krankenhaus"
Option17.Height = 17
Option17.Left = 198
Option17.Top = 141
Option17.Width = 163
Option17.Name = "Option17"
Option18.Caption = "TVD-Fahrer Bund"
Option18.Height = 17
Option18.Left = 198
Option18.Top = 160
Option18.Width = 163
Option18.Name = "Option18"
Option19.Caption = "TVD Fahrer Land"
Option19.Height = 17
Option19.Left = 198
Option19.Top = 179
Option19.Width = 163
Option19.Name = "Option19"
Option20.Caption = "TVD Auszubildende"
Option20.Height = 17
Option20.Left = 198
Option20.Top = 198
Option20.Width = 163
Option20.Name = "Option20"
Option21.Caption = "TVD Praktikanten"
Option21.Height = 17
Option21.Left = 198
Option21.Top = 217
Option21.Width = 163
Option21.Name = "Option21"
Option22.Caption = "TV Versorg.betr."
Option22.Height = 17
Option22.Left = 198
Option22.Top = 236
Option22.Width = 163
Option22.Name = "Option22"
Option23.Caption = "TV Verkehrsbetr."
Option23.Height = 17
Option23.Left = 198
Option23.Top = 255
Option23.Width = 163
Option23.Name = "Option23"
Option24.Caption = "Sondertarif"
Option24.Enabled = .F.
Option24.Height = 17
Option24.Left = 198
Option24.Top = 274
Option24.Width = 163
Option24.Name = "Option24"
Option25.Caption = "Zulagen Beamte"
Option25.Height = 17
Option25.Left = 9
Option25.Top = 211
Option25.Width = 163
Option25.Name = "Option25"
Option26.Caption = "Zulagen TVD Bund"
Option26.Height = 17
Option26.Left = 9
Option26.Top = 230
Option26.Width = 163
Option26.Name = "Option26"
Option27.Caption = "Zulagen TVD Land"
Option27.Height = 17
Option27.Left = 9
Option27.Top = 249
Option27.Width = 163
Option27.Name = "Option27"
Option28.Caption = "Zulagen TVD VKA"
Option28.Height = 17
Option28.Left = 9
Option28.Top = 268
Option28.Width = 163
Option28.Name = "Option28"
     APROCEDURE ProgrammaticChange
this.click

ENDPROC
PROCEDURE InteractiveChange
thisform.ssscroll1.Value = 1
this.click
ENDPROC
PROCEDURE Click
PARAMETERS myindex

&&ffentlicher Dienst
myindex = This.Value - 1
IF myindex < 0
	myindex = 0
endif
geclickt = This.Value - 1
IF geclickt < 0
	geclickt = 0
endif	
do Case &&myIndex
	Case myIndex >= 0 .and. myIndex <= 23
	     j = 26
	Case myIndex >= 24 .and. myIndex <= 27
	    If welchesjahr >= 2017 And zi(1+2) = 10
	        j = 26 &&vorher 18 NRW
	    Else
	        j = 18
	    EndIf
Endcase
   
For i = 0 To j
xxx = alltrim(str(i,2,0))
    mytarife.label&xxx..Visible = True
    mytarife.text&xxx..Visible = True
Next

If j < 26
   For i = j To 26
   xxx = alltrim(str(i,2,0))
       mytarife.label&xxx..Visible = False
       mytarife.text&xxx..Visible = False
   Next
endif
	
Do Case && geclickt
	Case (geclickt >= 0 .And. geclickt <= 4)&&bisherige
		For i = 0 To 26
			myget(20, i + 4220,"woerter")
			lnr=Alltrim(Str(i,2,0))
			Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
		Next

	Case geclickt = 5 &&Beamtenanwrter
		Thisform.Label0.Caption = "Anwrter-Grundbetrag"
		Thisform.Label1.Caption = "Anwrter-Verheiratetenzuschlag"
		Thisform.Label2.Caption = "Anwrter-Sonderzuschlag"

	Case (geclickt >= 6 .And. geclickt <= 17) .Or. (geclickt >= 21 .And. geclickt <= 23)
		For i = 0 To 20
			myget(20, i + 3196,"woerter")
			lnr=Alltrim(Str(i,2,0))
			Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
		Next

	Case geclickt = 18 &&Fahrer Land
		For i = 0 To 26
			myget(20, i + 4220,"woerter")
			lnr=Alltrim(Str(i,2,0))
			Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
		NEXT
		
	Case geclickt = 19 &&Azubis
		For i = 0 To 3
			myget(20, i + 1791,"woerter")
			lnr=Alltrim(Str(i,2,0))
			Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
		Next

	Case geclickt = 20 &&Praktikanten
		For i = 0 To 3
			myget(20, i + 3230,"woerter")
			lnr=Alltrim(Str(i,2,0))
			Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
		Next
	Case (geclickt >= 24 .And. geclickt <= 27)

	Do zulagentexte &&Do attached

Endcase
	 
Do Case && Index
	Case myindex = 0
		For i = 3001 To 3021     &&A
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3001) = woerter.textee
		NEXT
		
		If zi(1+2) = 5
			For i = 0 To 18
				dienstbezeichnung(1+i) = Alltrim(zt5(1+i))
			Next
		ENDIF
		
		startnummer = 1
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 21
		
	Case myindex = 1                  &&B
		For i = 3023 To 3034
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3023) = woerter.textee
		Next
		startnummer = 23
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 11
		
	Case myindex = 2 &&C
		For i = 3035 To 3038
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3035) = woerter.textee
		Next
		startnummer = 35
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 4
		
	Case myindex = 3 &&R
		For i = 3040 To 3049
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3040) = woerter.textee
		Next
		startnummer = 39
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 10
		
	Case myindex = 4 &&W
		For i = 3301 To 3303
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3301) = woerter.textee
		Next
		startnummer = 49
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 3
		
	Case myindex = 5 &&Anwrter  
		IF thisform.tarifgebiet.ListIndex = 1 .and. ((welchesjahr = 2022 .and. thisform.optiongroup2.Value = 12) .or. welchesjahr >= 2023) &&Anwrter BW ab 12/2022
			dienstbezeichnung(1+0) = "ED entfllt(A1-A4)"
			dienstbezeichnung(1+1) = "Mittlerer Dienst (A7 - A9)"
			dienstbezeichnung(1+2) = "Gehobener Dienst (A10 - A11)"
			dienstbezeichnung(1+3) = "Hherer Dienst (A12)"
			dienstbezeichnung(1+4) = "Hherer Dienst(A13)"
			dienstbezeichnung(1+5) = "Hherer Dienst(A13 + Z)"
		else
			For i = 3051 To 3056
				myget(20, i,"woerter")
				dienstbezeichnung(1+i - 3051) = woerter.textee
			NEXT
		endif
		dienstbezeichnung(1+6) = "Mittlerer Dienst (A6 - A9)"
		dienstbezeichnung(1+7) = "Rechtspflegeranwrter (A9 West)"
		startnummer = 52
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 8

	Case myIndex = 6 &&AOK Version
		Dienstbezeichnung(1+0) = "Entgeltgruppe 16"
		Dienstbezeichnung(1+1) = "Entgeltgruppe 15"
		Dienstbezeichnung(1+2) = "Entgeltgruppe 14"
		Dienstbezeichnung(1+3) = "Entgeltgruppe 13"
		Dienstbezeichnung(1+4) = "Entgeltgruppe 12"
		Dienstbezeichnung(1+5) = "Entgeltgruppe 11"
		Dienstbezeichnung(1+6) = "Entgeltgruppe 10"
		Dienstbezeichnung(1+7) = "Entgeltgruppe 9"
		Dienstbezeichnung(1+8) = "Entgeltgruppe 8"
		Dienstbezeichnung(1+9) = "Entgeltgruppe 7"
		Dienstbezeichnung(1+10) = "Entgeltgruppe 6"
		Dienstbezeichnung(1+11) = "Entgeltgruppe 5"
		Dienstbezeichnung(1+12) = "Entgeltgruppe 4"
		Dienstbezeichnung(1+13) = "Entgeltgruppe 3"
		Dienstbezeichnung(1+14) = "Entgeltgruppe 2"
		Dienstbezeichnung(1+15) = "Entgeltgruppe 1"
		thisform.SSScroll1.Max = 16
		startnummer = 60
		thisform.SSScroll1.Min = 1
	 	
	CASE myindex = 7 &&TV-L Pflege ab 01/2019
		IF mytarife.tarifgebiet.listindex - 1 = 7 
			Dienstbezeichnung(1+0) = "Entgeltgruppe KR 12a"
			Dienstbezeichnung(1+1) = "Entgeltgruppe KR 11b"
			Dienstbezeichnung(1+2) = "Entgeltgruppe KR 11a"
			Dienstbezeichnung(1+3) = "Entgeltgruppe KR 10a"
			Dienstbezeichnung(1+4) = "Entgeltgruppe KR 9d"
			Dienstbezeichnung(1+5) = "Entgeltgruppe KR 9c"
			Dienstbezeichnung(1+6) = "Entgeltgruppe KR 9b"
			Dienstbezeichnung(1+7) = "Entgeltgruppe KR 9a"
			Dienstbezeichnung(1+8) = "Entgeltgruppe KR 8a"
			Dienstbezeichnung(1+9) = "Entgeltgruppe KR 7a"
			Dienstbezeichnung(1+10) = "Entgeltgruppe KR 4a"
			Dienstbezeichnung(1+11) = "Entgeltgruppe KR 3a"
		
			thisform.SSScroll1.Max = 12	
		ELSE
			Dienstbezeichnung(1+0) = "Entgeltgruppe KR 17"
			Dienstbezeichnung(1+1) = "Entgeltgruppe KR 16"
			Dienstbezeichnung(1+2) = "Entgeltgruppe KR 15"
			Dienstbezeichnung(1+3) = "Entgeltgruppe KR 14"
			Dienstbezeichnung(1+4) = "Entgeltgruppe KR 13"
			Dienstbezeichnung(1+5) = "Entgeltgruppe KR 12"
			Dienstbezeichnung(1+6) = "Entgeltgruppe KR 11"
			Dienstbezeichnung(1+7) = "Entgeltgruppe KR 10"
			Dienstbezeichnung(1+8) = "Entgeltgruppe KR 9"
			Dienstbezeichnung(1+9) = "Entgeltgruppe KR 8"
			Dienstbezeichnung(1+10) = "Entgeltgruppe KR 7"
			Dienstbezeichnung(1+11) = "Entgeltgruppe KR 6"
			Dienstbezeichnung(1+12) = "Entgeltgruppe KR 5"
		
			thisform.SSScroll1.Max = 13			
		endif
		startnummer = 80
		thisform.SSScroll1.Min = 1
	
	Case myindex = 8 &&TV-L SuE ab 01/2020
		Dienstbezeichnung(1+0) = "Entgeltgruppe S 18"
		Dienstbezeichnung(1+1) = "Entgeltgruppe S 17"
		Dienstbezeichnung(1+2) = "Entgeltgruppe S 16"
		Dienstbezeichnung(1+3) = "Entgeltgruppe S 15"
		Dienstbezeichnung(1+4) = "Entgeltgruppe S 14"
		Dienstbezeichnung(1+5) = "Entgeltgruppe S 13"
		Dienstbezeichnung(1+6) = "Entgeltgruppe S 12"
		Dienstbezeichnung(1+7) = "Entgeltgruppe S 11b"
		Dienstbezeichnung(1+8) = "Entgeltgruppe S 11a"
		Dienstbezeichnung(1+9) = "Entgeltgruppe S 9"
		Dienstbezeichnung(1+10) = "Entgeltgruppe S 8b"
		Dienstbezeichnung(1+11) = "Entgeltgruppe S 8a"
		Dienstbezeichnung(1+12) = "Entgeltgruppe S 7"
		Dienstbezeichnung(1+13) = "Entgeltgruppe S 4"
		Dienstbezeichnung(1+14) = "Entgeltgruppe S 3"
		Dienstbezeichnung(1+15) = "Entgeltgruppe S 2"
		Dienstbezeichnung(1+16) = "Entgeltgruppe S 13"
		thisform.SSScroll1.Max = 17
		startnummer = 140
		thisform.SSScroll1.Min = 1

	Case myindex = 9 &&normaler TVD bund
		Do normalTVD &&Do attached
		If welchesjahr > 2013
			&&fragehs
			dienstbezeichnung(1+6) = "Entgeltgruppe 9b"
			dienstbezeichnung(1+7) = "Entgeltgruppe 9a"
			dienstbezeichnung(1+8) = "Entgeltgruppe 8"
			dienstbezeichnung(1+9) = "Entgeltgruppe 7"
			dienstbezeichnung(1+10) = "Entgeltgruppe 6"
			dienstbezeichnung(1+11) = "Entgeltgruppe 5"
			dienstbezeichnung(1+12) = "Entgeltgruppe 4"
			dienstbezeichnung(1+13) = "Entgeltgruppe 3"
			dienstbezeichnung(1+14) = "Entgeltgruppe 2"
			dienstbezeichnung(1+15) = "Entgeltgruppe 1"
			dienstbezeichnung(1+16) = "Entgeltgruppe 2"
			dienstbezeichnung(1+17) = "Entgeltgruppe 15"
			IF welchesjahr > 2018 .or. (welchesjahr = 2018 .and. zi(1+20) >= 2) &&neue stufe 9c bei Bund ab 03/2018
				dienstbezeichnung(1+18) = "Auertariflich"
				dienstbezeichnung(1+19) = "Entgeltgruppe 9c"
			ELSE
				dienstbezeichnung(1+18) = "nicht belegt    "
				dienstbezeichnung(1+19) = "nicht belegt    "		
			endif
		ENDIF
		thisform.SSScroll1.Max = 20
		startnummer = 160
		thisform.SSScroll1.Min = 1	
			
	Case myindex = 10 && Land
		For i = 3271 To 3285
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3271) = woerter.textee
		Next
		dienstbezeichnung(1+6) = "Entgeltgruppe 9a"
		dienstbezeichnung(1+15) = "Auertariflich"
		dienstbezeichnung(1+16) = "TV-L 15 "
		dienstbezeichnung(1+17) = "TV-L 13 "
		dienstbezeichnung(1+18) = "TV-L 2 "
		dienstbezeichnung(1+19) = "Entgeltgruppe 9b"
		&&dienstbezeichnung(1+19) = "Entgeltgruppe 15 "
 
		IF thisform.tarifgebiet.ListIndex - 1 = 7 .and. ((welchesjahr = 2022 .And. thisform.optiongroup2.value >= 8) .Or. welchesjahr > 2022) &&hessen
			Dienstbezeichnung(1+20) = "Entgeltgruppe 16"
			thisform.SSScroll1.Max = 21
		ELSE
			Dienstbezeichnung(1+20) = ""
			thisform.SSScroll1.Max = 20
		endif
		startnummer = 180
		thisform.SSScroll1.Min = 1


	Case myindex = 11
		Do normalTVD &&Do attached

	Case myindex = 12 &&TVD Pflege
		if welchesjahr < 2017
			For i = 3304 To 3318
				myget(20, i,"woerter")
				dienstbezeichnung(1+i - 3304) = woerter.textee
			NEXT
		ELSE
            Dienstbezeichnung(1+0) = "Entgeltgruppe P 16"
            Dienstbezeichnung(1+1) = "Entgeltgruppe P 15"
            Dienstbezeichnung(1+2) = "Entgeltgruppe P 14"
            Dienstbezeichnung(1+3) = "Entgeltgruppe P 13"
            Dienstbezeichnung(1+4) = "Entgeltgruppe P 12"
            Dienstbezeichnung(1+5) = "Entgeltgruppe P 11"
            Dienstbezeichnung(1+6) = "Entgeltgruppe P 10"
            Dienstbezeichnung(1+7) = "Entgeltgruppe P 9"
            Dienstbezeichnung(1+8) = "Entgeltgruppe P 8"
            Dienstbezeichnung(1+9) = "Entgeltgruppe P 7"
            Dienstbezeichnung(1+10) = "Entgeltgruppe P 7 (don't use!)"
            Dienstbezeichnung(1+11) = "Entgeltgruppe P 7 (don't use!)"
            Dienstbezeichnung(1+12) = "Entgeltgruppe P 6"
            Dienstbezeichnung(1+13) = "Entgeltgruppe P 6 (don't use!)"
            Dienstbezeichnung(1+14) = "Entgeltgruppe P 5"
        EndIf
		
		dienstbezeichnung(1+15) = "1 Arzt"
		dienstbezeichnung(1+16) = "2 Facharzt"
		dienstbezeichnung(1+17) = "3 Oberarzt"
		dienstbezeichnung(1+18) = "4 Chefarzt-Vertreter"
		dienstbezeichnung(1+19) = "Entgeltstufe S 11 SundE"
		startnummer = 220
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 20
		
	Case myindex = 13
		Do sozialTVD &&Do attached
		
	Case myindex = 14 &&rzte
		For i = 0 To 17
			myget(20, i + 6871,"woerter")
			dienstbezeichnung(1+i) = Alltrim(woerter.textee)
		Next
		dienstbezeichnung(1+18) = "TVD-B-rzte"
		startnummer = 260
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 19

	Case myindex = 15 &&TVD Krankenhaus
		IF welchesjahr < 2017
			For i = 3304 To 3318
				myget(20, i,"woerter")
				dienstbezeichnung(1+i - 3304) = woerter.textee
			NEXT
		ELSE
	        Dienstbezeichnung(1+0) = "Entgeltgruppe P 16"
	        Dienstbezeichnung(1+1) = "Entgeltgruppe P 15"
	        Dienstbezeichnung(1+2) = "Entgeltgruppe P 14"
	        Dienstbezeichnung(1+3) = "Entgeltgruppe P 13"
	        Dienstbezeichnung(1+4) = "Entgeltgruppe P 12"
	        Dienstbezeichnung(1+5) = "Entgeltgruppe P 11"
	        Dienstbezeichnung(1+6) = "Entgeltgruppe P 10"
	        Dienstbezeichnung(1+7) = "Entgeltgruppe P 9"
	        Dienstbezeichnung(1+8) = "Entgeltgruppe P 8"
	        Dienstbezeichnung(1+9) = "Entgeltgruppe P 7"
	        Dienstbezeichnung(1+10) = "Entgeltgruppe P 7 (don't use!)"
	        Dienstbezeichnung(1+11) = "Entgeltgruppe P 7 (don't use!)"
	        Dienstbezeichnung(1+12) = "Entgeltgruppe P 6"
	        Dienstbezeichnung(1+13) = "Entgeltgruppe P 6 (don't use!)"
	        Dienstbezeichnung(1+14) = "Entgeltgruppe P 5"	
	    endif	
		dienstbezeichnung(1+15) = "1 Arzt"
		dienstbezeichnung(1+16) = "2 Facharzt"
		dienstbezeichnung(1+17) = "3 Oberarzt"
		dienstbezeichnung(1+18) = "4 Chefarzt-Vertreter"
		dienstbezeichnung(1+19) = "Entgeltgruppe 1"
		startnummer = 280
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 20

	Case myindex = 16 &&TV-L Krankenhaus
		For i = 3304 To 3318
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3304) = woerter.textee
		Next
		dienstbezeichnung(1+15) = "1 Arzt"
		dienstbezeichnung(1+16) = "2 Facharzt"
		dienstbezeichnung(1+17) = "3 Oberarzt"
		dienstbezeichnung(1+18) = "4 Chefarzt-Vertreter"
		dienstbezeichnung(1+19) = "Entgeltstufe 1"
		startnummer = 300
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 20

	Case myindex = 17 &&Fahrer Bund
		dienstbezeichnung(1+0) = "E4, Pauschalgr. I (>185 Std)"
		dienstbezeichnung(1+1) = "E4, Pauschalgr. II (>196 Std)"
		dienstbezeichnung(1+2) = "E4, Pauschalgr. III (>221 Std)"
		dienstbezeichnung(1+3) = "E4, Pauschalgr. IV (>244 Std)"
		dienstbezeichnung(1+4) = "E4, Chefkraftfahrer"
		dienstbezeichnung(1+5) = "E5, Pauschalgr. I (>185 Std)"
		dienstbezeichnung(1+6) = "E5, Pauschalgr. II (>196 Std)"
		dienstbezeichnung(1+7) = "E5, Pauschalgr. III (>221 Std)"
		dienstbezeichnung(1+8) = "E5, Pauschalgr. IV (>244 Std)"
		dienstbezeichnung(1+9) = "E5, Chefkraftfahrer"
		
		startnummer = 320
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 10
		
	Case myindex = 18 &&Fahrer Land
		dienstbezeichnung(1+0) = "E4, Pauschalgr. I (>185 Std)"
		dienstbezeichnung(1+1) = "E4, Pauschalgr. II (>196 Std)"
		dienstbezeichnung(1+2) = "E4, Pauschalgr. III (>221 Std)"
		dienstbezeichnung(1+3) = "E4, Pauschalgr. IV (>244 Std)"
		dienstbezeichnung(1+4) = "E4, Stndiger persnl. Fahrer"
		dienstbezeichnung(1+5) = "E5, Pauschalgr. I (>185 Std)"
		dienstbezeichnung(1+6) = "E5, Pauschalgr. II (>196 Std)"
		dienstbezeichnung(1+7) = "E5, Pauschalgr. III (>221 Std)"
		dienstbezeichnung(1+8) = "E5, Pauschalgr. IV (>244 Std)"
		dienstbezeichnung(1+9) = "E5, Chefkraftfahrer"

		startnummer = 340
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 10

	Case myindex = 19 &&Azubis
		For i = 3181 To 3190
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3181) = woerter.textee
		NEXT
		
		startnummer = 360
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 10
		
	Case myindex = 20 &&Praktikanten
		For i = 1799 To 1809
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 1799) = woerter.textee
		NEXT
		
		startnummer = 370
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 10
		
	Case myindex = 21
		For i = 3271 To 3287     &&Versorgungs- Verkehrs, Auerbetr.
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3271) = woerter.textee
		Next
		startnummer = 380
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 17
		
	Case myindex = 22
		For i = 3271 To 3287     &&Versorgungs- Verkehrs, Auerbetr.
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3271) = woerter.textee
		Next
		startnummer = 400
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 17
		
	Case myindex = 23
		For i = 3271 To 3287     &&Sondertarif
			myget(20, i,"woerter")
			dienstbezeichnung(1+i - 3271) = woerter.textee
		Next
		startnummer = 420
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 17

	Case myindex = 24 &&Zulagen Beamte
		Do Zulagenbezeichnungen &&Do attached

		startnummer = 100
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 6

	Case myindex = 25 &&Zulagen TVD Bund
		Do Zulagenbezeichnungen &&Do attached
		
		startnummer = 110
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 5

	Case myindex = 26 &&Zulagen TVD Land
		Do Zulagenbezeichnungen &&Do attached
		
		startnummer = 120
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 6

	Case myindex = 27 &&Zulagen TVD VKA
		Do Zulagenbezeichnungen &&Do attached
		
		startnummer = 130
		thisform.SSScroll1.Min = 1
		thisform.SSScroll1.Max = 5
Endcase

SELECT(40 + thisform.optiongroup2.Value)

filenummer = 40 + thisform.optiongroup2.Value

scrollen = False
IF EMPTY(thisform.SSScroll1.Value)
	thisform.SSScroll1.Value = thisform.SSScroll1.Min
endif
scrollen = True

Do ShowRecord &&Do attached
thisform.text27.Value = ALIAS() + " " + ALLTRIM(STR(RECNO(filenummer),10,0))
ENDPROC
     2    |2  |2                        H   %   O.      2    .            U  
 
     U  THIS CLICK   T    
    U  THISFORM	 SSSCROLL1 VALUE THIS CLICKS, 4   T     %   
9 
 T     T    %  
o 
 T   
 H        	 
 T       	! %  C 
	 
 T  
 T      (  T CC  Z& mytarife.label&xxx..Visible = True
% mytarife.text&xxx..Visible = True
  % 
   ( T CC  Z' mytarife.label&xxx..Visible = False
& mytarife.text&xxx..Visible = False
  
 H.     	   ( C | woerter	  T
 CC  Z9 Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
   h' T  
  Anwrter-Grundbetrag1 T  
  Anwrter-Verheiratetenzuschlag* T  
  Anwrter-Sonderzuschlag4    	    	&   (" C | woerter	  T
 CC  Z9 Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
      ( C | woerter	  T
 CC  Z9 Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
   \   (X C  woerter	  T
 CC  Z9 Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
      ( C  woerter	  T
 CC  Z9 Thisform.Label&lnr..Caption = Alltrim(woerter.textee)
     	   
 H,+      ( C   woerter	  T      %C    (! T  CC    
 T  T    T        ( C   woerter	  T     
 T  T    T      R  ( C   woerter	  T     
 T # T    T        ( C   woerter	  T     
 T ' T    T   
   	  (Q	 C   woerter	  T     
 T 1 T    T      B %   (      		  	
% T  ED entfllt(A1-A4)- T  Mittlerer Dienst (A7 - A9)/ T  Gehobener Dienst (A10 - A11)' T  Hherer Dienst (A12)& T  Hherer Dienst(A13)* T  Hherer Dienst(A13 + Z) 2  (. C   woerter	  T      - T  Mittlerer Dienst (A6 - A9)2 T  Rechtspflegeranwrter (A9 West)
 T 4 T    T      3# T  Entgeltgruppe 16# T  Entgeltgruppe 15# T  Entgeltgruppe 14# T  Entgeltgruppe 13# T  Entgeltgruppe 12# T  Entgeltgruppe 11# T  Entgeltgruppe 10" T  Entgeltgruppe 9" T 	 Entgeltgruppe 8" T 
 Entgeltgruppe 7" T  Entgeltgruppe 6" T  Entgeltgruppe 5" T 
 Entgeltgruppe 4" T  Entgeltgruppe 3" T  Entgeltgruppe 2" T  Entgeltgruppe 1 T   
 T < T      f %   >' T  Entgeltgruppe KR 12a' T  Entgeltgruppe KR 11b' T  Entgeltgruppe KR 11a' T  Entgeltgruppe KR 10a& T  Entgeltgruppe KR 9d& T  Entgeltgruppe KR 9c& T  Entgeltgruppe KR 9b& T  Entgeltgruppe KR 9a& T 	 Entgeltgruppe KR 8a& T 
 Entgeltgruppe KR 7a& T  Entgeltgruppe KR 4a& T  Entgeltgruppe KR 3a T    B& T  Entgeltgruppe KR 17& T  Entgeltgruppe KR 16& T  Entgeltgruppe KR 15& T  Entgeltgruppe KR 14& T  Entgeltgruppe KR 13& T  Entgeltgruppe KR 12& T  Entgeltgruppe KR 11& T  Entgeltgruppe KR 10% T 	 Entgeltgruppe KR 9% T 
 Entgeltgruppe KR 8% T  Entgeltgruppe KR 7% T  Entgeltgruppe KR 6% T 
 Entgeltgruppe KR 5 T   
 
 T P T      % T  Entgeltgruppe S 18% T  Entgeltgruppe S 17% T  Entgeltgruppe S 16% T  Entgeltgruppe S 15% T  Entgeltgruppe S 14% T  Entgeltgruppe S 13% T  Entgeltgruppe S 12& T  Entgeltgruppe S 11b& T 	 Entgeltgruppe S 11a$ T 
 Entgeltgruppe S 9% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a$ T 
 Entgeltgruppe S 7$ T  Entgeltgruppe S 4$ T  Entgeltgruppe S 3$ T  Entgeltgruppe S 2& T  Entgeltgruppe S 13 T   
 T  T      	   % # T  Entgeltgruppe 9b# T  Entgeltgruppe 9a" T 	 Entgeltgruppe 8" T 
 Entgeltgruppe 7" T  Entgeltgruppe 6" T  Entgeltgruppe 5" T 
 Entgeltgruppe 4" T  Entgeltgruppe 3" T  Entgeltgruppe 2" T  Entgeltgruppe 1# T  Entgeltgruppe 2$ T  Entgeltgruppe 15. %    C 	V! T  Auertariflich# T  Entgeltgruppe 9c # T  nicht belegt    # T  nicht belegt       T   
 T  T      
  (C C   woerter	  T     # T  Entgeltgruppe 9a! T  Auertariflich T 	 TV-L 15  T 	 TV-L 13  T  TV-L 2 # T  Entgeltgruppe 9bF %   (      		  	}# T  Entgeltgruppe 16 T     T    T    
 T  T            % 
a  (] C   woerter	  T      % T  Entgeltgruppe P 16% T  Entgeltgruppe P 15% T  Entgeltgruppe P 14% T  Entgeltgruppe P 13% T  Entgeltgruppe P 12% T  Entgeltgruppe P 11% T  Entgeltgruppe P 10$ T  Entgeltgruppe P 9$ T 	 Entgeltgruppe P 8$ T 
 Entgeltgruppe P 71 T  Entgeltgruppe P 7 (don't use!)1 T  Entgeltgruppe P 7 (don't use!)$ T 
 Entgeltgruppe P 61 T  Entgeltgruppe P 6 (don't use!)$ T  Entgeltgruppe P 5  T  1 Arzt T  2 Facharzt T  3 Oberarzt( T  4 Chefarzt-Vertreter* T  Entgeltstufe S 11 SundE
 T  T    T      
     d   (
 C  woerter	  T  C    T  TVD-B-rzte T  T    T      " % 
  ( C   woerter	  T      0!% T  Entgeltgruppe P 16% T  Entgeltgruppe P 15% T  Entgeltgruppe P 14% T  Entgeltgruppe P 13% T  Entgeltgruppe P 12% T  Entgeltgruppe P 11% T  Entgeltgruppe P 10$ T  Entgeltgruppe P 9$ T 	 Entgeltgruppe P 8$ T 
 Entgeltgruppe P 71 T  Entgeltgruppe P 7 (don't use!)1 T  Entgeltgruppe P 7 (don't use!)$ T 
 Entgeltgruppe P 61 T  Entgeltgruppe P 6 (don't use!)$ T  Entgeltgruppe P 5  T  1 Arzt T  2 Facharzt T  3 Oberarzt( T  4 Chefarzt-Vertreter" T  Entgeltgruppe 1 T  T    T      C#  (l" C   woerter	  T      T  1 Arzt T  2 Facharzt T  3 Oberarzt( T  4 Chefarzt-Vertreter! T  Entgeltstufe 1 T , T    T      T%/ T  E4, Pauschalgr. I (>185 Std)0 T  E4, Pauschalgr. II (>196 Std)1 T  E4, Pauschalgr. III (>221 Std)0 T  E4, Pauschalgr. IV (>244 Std)& T  E4, Chefkraftfahrer/ T  E5, Pauschalgr. I (>185 Std)0 T  E5, Pauschalgr. II (>196 Std)1 T  E5, Pauschalgr. III (>221 Std)0 T 	 E5, Pauschalgr. IV (>244 Std)& T 
 E5, Chefkraftfahrer T @ T    T   
   o'/ T  E4, Pauschalgr. I (>185 Std)0 T  E4, Pauschalgr. II (>196 Std)1 T  E4, Pauschalgr. III (>221 Std)0 T  E4, Pauschalgr. IV (>244 Std)0 T  E4, Stndiger persnl. Fahrer/ T  E5, Pauschalgr. I (>185 Std)0 T  E5, Pauschalgr. II (>196 Std)1 T  E5, Pauschalgr. III (>221 Std)0 T 	 E5, Pauschalgr. IV (>244 Std)& T 
 E5, Chefkraftfahrer T T T    T   
   (  m(v' C   woerter	  T  m    T h T    T   
   (  (o( C   woerter	  T      T r T    T   
   C)  () C   woerter	  T      T | T    T      )  () C   woerter	  T      T  T    T      {*  (C* C   woerter	  T      T  T    T      *  
 T d T    T      +  
 T n T    T      \+  
 T x T    T      +  
 T  T    T     F(    T  (   
 T! "  %C   , T       
 T! #  $ ' T %  C  CCC  O
 Z U&  MYINDEX THIS VALUE GECLICKT J WELCHESJAHR ZI I XXX MYGET LNR THISFORM LABEL0 CAPTION LABEL1 LABEL2 ZULAGENTEXTE DIENSTBEZEICHNUNG WOERTER TEXTEE ZT5 STARTNUMMER	 SSSCROLL1 MIN MAX TARIFGEBIET	 LISTINDEX OPTIONGROUP2 MYTARIFE
 NORMALTVD
 SOZIALTVD ZULAGENBEZEICHNUNGEN
 FILENUMMER SCROLLEN FALSE TRUE
 SHOWRECORD TEXT27 ProgrammaticChange,      InteractiveChangeJ      Click     1  3 1 2 q C A A A      A A rqaQA qqqaA A  qqA qBqqA qqA qqA qqA r B  A RqA A  11A  11A  11A  11A  11!Qqa A A ! 111111111!!!!!!!!!1 1qqqqaaaaaaaa2 aaaaaaaaQQQQQ2A  1QQQQQQQaaAQQAAAAa1 1q !21!!!!!!!!1A1 11A A 1 1A 11c11 11A  1q !A  QQQQQQQAAAAAA  11q qA  11!A  QQQQQQQAAAAAA ! 11A  11aa 11a 11A  11A  11A  11A  11A  11q  11q  11q  11q  11A Br QA  r q1                       *         R   z            A  	    )   |2                        label      label      HLabel2      FORM1      FontSize = 11
Caption = "2. Diensverhltnis:"
Height = 21
Left = 17
Top = 110
Width = 159
TabIndex = 138
ForeColor = 66,66,255
Name = "HLabel2"
      
commandbutton      
commandbutton      	Command11      FORM1      rTop = 1
Left = 1
Height = 34
Width = 137
Caption = "nderungen anzeigen"
TabIndex = 139
Name = "Command11"
     PROCEDURE Click
DO FORM get_nderungszeitraum TO zeit_retwert

DO case
	case zeit_retwert = "0"
		RETURN
	case zeit_retwert = "1"	
		oldalias = ALIAS()
		PUBLIC xwelchesj
		xwelchesj = welchesjahr
		SELECT kommentar
		SET FILTER TO RECNO() >= ((xwelchesj - 2006) * 12) + 1 .and. RECNO() <= ((xwelchesj - 2006) * 12) + 12
		GO top
		DO FORM nderungsbersicht WITH welchesjahr, welchesjahr
	case zeit_retwert = "2"
		oldalias = ALIAS()
		PUBLIC xj1,xj5
		xj1 = jahr1
		xj5 = jahr5
		SELECT kommentar
		SET FILTER TO RECNO() >= ((xj1 - 2006) * 12) + 1 .and. RECNO() <= ((xj5 - 2006) * 12) + 12
		GO top
		DO FORM nderungsbersicht WITH jahr1, jahr5
endcase				
 
SELECT kommentar
SET FILTER TO 
SELECT &oldalias

ENDPROC
                                   @.   %   W           f            U  !  get_nderungszeitraum( 
 H.    0D  B   1  T C 7 
 T   F 6 G(CO  CO 	 #)"  nderungsbersicht     2 T C 7  
 T 	 
 T 
  F 6 G(CO  CO 	 #)"  nderungsbersicht	 
   F  G( SELECT &oldalias
 U  GET_NDERUNGSZEITRAUM ZEIT_RETWERT OLDALIAS	 XWELCHESJ WELCHESJAHR	 KOMMENTAR NDERUNGSBERSICHT XJ1 XJ5 JAHR1 JAHR5 Click,     1  !A ! q  q aQ !!    q aQ !A r a A2                             )                           xslider      foxyslider.vcx      	container      	ssScroll1      FORM1     Top = 436
Left = 49
Width = 520
Height = 35
SpecialEffect = 0
TabIndex = 1
tickstyle = 1
stylecontrol = 2
tickfrequency = 1
max = 30
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      PROCEDURE scroll
If geclickt > 23
	Do zulagentexte &&Do attached
endif

Do ShowRecord &&Do attached
Do updatecaption &&Do attached
thisform.text27.Value = ALIAS() + " " + ALLTRIM(STR(RECNO(),10,0))
ENDPROC
     O    6  6                        \   %                             U  Q  %          $ T   C  CCCO
 Z U  GECLICKT ZULAGENTEXTE
 SHOWRECORD
 UPDATECAPTION THISFORM TEXT27 VALUE scroll,     1 q A r q A1                              )   6                        editbox      editbox      Edit1      FORM1      nEnabled = .F.
Height = 88
Left = 411
TabIndex = 140
Top = 270
Visible = .F.
Width = 76
Name = "Edit1"
      
commandbutton      
commandbutton      holen      FORM1      qTop = 30
Left = 845
Height = 19
Width = 42
Caption = "holen"
TabIndex = 141
Visible = .F.
Name = "holen"
     PROCEDURE Click

thisform.zielboxes0.value = thisform.text0.value
thisform.zielboxes1.value = thisform.text1.value
thisform.zielboxes2.value = thisform.text2.value
thisform.zielboxes3.value = thisform.text3.value
thisform.zielboxes4.value = thisform.text4.value
thisform.zielboxes5.value = thisform.text5.value
thisform.zielboxes6.value = thisform.text6.value
thisform.zielboxes7.value = thisform.text7.value
thisform.zielboxes8.value = thisform.text8.value
thisform.zielboxes9.value = thisform.text9.value
thisform.zielboxes10.value = thisform.text10.value
thisform.zielboxes11.value = thisform.text11.value
thisform.zielboxes12.value = thisform.text12.value
thisform.zielboxes13.value = thisform.text13.value
thisform.zielboxes14.value = thisform.text14.value

thisform.zielboxes0.enabled = .t.
thisform.zielboxes1.enabled = .t.
thisform.zielboxes2.enabled = .t.
thisform.zielboxes3.enabled = .t.
thisform.zielboxes4.enabled = .t.
thisform.zielboxes5.enabled = .t.
thisform.zielboxes6.enabled = .t.
thisform.zielboxes7.enabled = .t.
thisform.zielboxes8.enabled = .t.
thisform.zielboxes9.enabled = .t.
thisform.zielboxes10.enabled = .t.
thisform.zielboxes11.enabled = .t.
thisform.zielboxes12.enabled = .t.
thisform.zielboxes13.enabled = .t.
thisform.zielboxes14.enabled = .t.

thisform.zielboxes0.visible = .t. 
thisform.zielboxes1.visible = .t. 
thisform.zielboxes2.visible = .t. 
thisform.zielboxes3.visible = .t. 
thisform.zielboxes4.visible = .t. 
thisform.zielboxes5.visible = .t. 
thisform.zielboxes6.visible = .t. 
thisform.zielboxes7.visible = .t. 
thisform.zielboxes8.visible = .t. 
thisform.zielboxes9.visible = .t. 
thisform.zielboxes10.visible = .t.
thisform.zielboxes11.visible = .t.
thisform.zielboxes12.visible = .t.
thisform.zielboxes13.visible = .t.
thisform.zielboxes14.visible = .t.

thisform.verteilen.Visible = .t.
thisform.verteilen.enabled = .t.
ENDPROC
PROCEDURE RightClick
thisform.zielboxes0.value = thisform.text0.value
thisform.zielboxes1.value = thisform.text1.value
thisform.zielboxes2.value = thisform.text2.value
thisform.zielboxes3.value = thisform.text3.value
thisform.zielboxes4.value = thisform.text4.value
thisform.zielboxes5.value = thisform.text5.value
thisform.zielboxes6.value = thisform.text6.value
thisform.zielboxes7.value = thisform.text7.value
thisform.zielboxes8.value = thisform.text8.value
thisform.zielboxes9.value = thisform.text9.value
thisform.zielboxes10.value = thisform.text10.value
thisform.zielboxes11.value = thisform.text11.value
thisform.zielboxes12.value = thisform.text12.value
thisform.zielboxes13.value = thisform.text13.value
thisform.zielboxes14.value = thisform.text14.value
thisform.zielboxes15.value = thisform.text15.value
thisform.zielboxes16.value = thisform.text16.value
thisform.zielboxes17.value = thisform.text17.value
thisform.zielboxes18.value = thisform.text18.value
thisform.zielboxes19.value = thisform.text19.value
thisform.zielboxes20.value = thisform.text20.value
thisform.zielboxes21.value = thisform.text21.value
thisform.zielboxes22.value = thisform.text22.value
thisform.zielboxes23.value = thisform.text23.value
thisform.zielboxes24.value = thisform.text24.value
thisform.zielboxes25.value = thisform.text25.value
thisform.zielboxes26.value = thisform.text26.value

thisform.zielboxes0.enabled = .t.
thisform.zielboxes1.enabled = .t.
thisform.zielboxes2.enabled = .t.
thisform.zielboxes3.enabled = .t.
thisform.zielboxes4.enabled = .t.
thisform.zielboxes5.enabled = .t.
thisform.zielboxes6.enabled = .t.
thisform.zielboxes7.enabled = .t.
thisform.zielboxes8.enabled = .t.
thisform.zielboxes9.enabled = .t.
thisform.zielboxes10.enabled = .t.
thisform.zielboxes11.enabled = .t.
thisform.zielboxes12.enabled = .t.
thisform.zielboxes13.enabled = .t.
thisform.zielboxes14.enabled = .t.
thisform.zielboxes15.enabled = .t.
thisform.zielboxes16.enabled = .t.
thisform.zielboxes17.enabled = .t.
thisform.zielboxes18.enabled = .t.
thisform.zielboxes19.enabled = .t.
thisform.zielboxes20.enabled = .t.
thisform.zielboxes21.enabled = .t.
thisform.zielboxes22.enabled = .t.
thisform.zielboxes23.enabled = .t.
thisform.zielboxes24.enabled = .t.
thisform.zielboxes25.enabled = .t.
thisform.zielboxes26.enabled = .t.

thisform.zielboxes0.visible = .t. 
thisform.zielboxes1.visible = .t. 
thisform.zielboxes2.visible = .t. 
thisform.zielboxes3.visible = .t. 
thisform.zielboxes4.visible = .t. 
thisform.zielboxes5.visible = .t. 
thisform.zielboxes6.visible = .t. 
thisform.zielboxes7.visible = .t. 
thisform.zielboxes8.visible = .t. 
thisform.zielboxes9.visible = .t. 
thisform.zielboxes10.visible = .t.
thisform.zielboxes11.visible = .t.
thisform.zielboxes12.visible = .t.
thisform.zielboxes13.visible = .t.
thisform.zielboxes14.visible = .t.
thisform.zielboxes15.visible = .t. 
thisform.zielboxes16.visible = .t. 
thisform.zielboxes17.visible = .t. 
thisform.zielboxes18.visible = .t. 
thisform.zielboxes19.visible = .t. 
thisform.zielboxes20.visible = .t. 
thisform.zielboxes21.visible = .t. 
thisform.zielboxes22.visible = .t. 
thisform.zielboxes23.visible = .t. 
thisform.zielboxes24.visible = .t. 
thisform.zielboxes25.visible = .t.
thisform.zielboxes26.visible = .t.

thisform.verteilen.Visible = .t.
thisform.verteilen.enabled = .t.
ENDPROC
     q    X  X                           %   
           
            U   T         T         T         T      	   T  
       T      
   T         T         T         T         T         T         T         T         T         T     a T     a T     a T     a T  
   a T     a T     a T     a T     a T     a T     a T     a T     a T     a T     a T   ! a T   ! a T   ! a T   ! a T  
 ! a T   ! a T   ! a T   ! a T   ! a T   ! a T   ! a T   ! a T   ! a T   ! a T   ! a T  " ! a T  "   a U#  THISFORM
 ZIELBOXES0 VALUE TEXT0
 ZIELBOXES1 TEXT1
 ZIELBOXES2 TEXT2
 ZIELBOXES3 TEXT3
 ZIELBOXES4 TEXT4
 ZIELBOXES5 TEXT5
 ZIELBOXES6 TEXT6
 ZIELBOXES7 TEXT7
 ZIELBOXES8 TEXT8
 ZIELBOXES9 TEXT9 ZIELBOXES10 TEXT10 ZIELBOXES11 TEXT11 ZIELBOXES12 TEXT12 ZIELBOXES13 TEXT13 ZIELBOXES14 TEXT14 ENABLED VISIBLE	 VERTEILEN^ T         T         T         T      	   T  
       T      
   T         T         T         T         T         T         T         T         T         T       !   T  "    #   T  $    %   T  &    '   T  (    )   T  *    +   T  ,    -   T  .    /   T  0    1   T  2    3   T  4    5   T  6    7   T   8 a T   8 a T   8 a T   8 a T  
 8 a T   8 a T   8 a T   8 a T   8 a T   8 a T   8 a T   8 a T   8 a T   8 a T   8 a T    8 a T  " 8 a T  $ 8 a T  & 8 a T  ( 8 a T  * 8 a T  , 8 a T  . 8 a T  0 8 a T  2 8 a T  4 8 a T  6 8 a T   9 a T   9 a T   9 a T   9 a T  
 9 a T   9 a T   9 a T   9 a T   9 a T   9 a T   9 a T   9 a T   9 a T   9 a T   9 a T    9 a T  " 9 a T  $ 9 a T  & 9 a T  ( 9 a T  * 9 a T  , 9 a T  . 9 a T  0 9 a T  2 9 a T  4 9 a T  6 9 a T  : 9 a T  : 8 a U;  THISFORM
 ZIELBOXES0 VALUE TEXT0
 ZIELBOXES1 TEXT1
 ZIELBOXES2 TEXT2
 ZIELBOXES3 TEXT3
 ZIELBOXES4 TEXT4
 ZIELBOXES5 TEXT5
 ZIELBOXES6 TEXT6
 ZIELBOXES7 TEXT7
 ZIELBOXES8 TEXT8
 ZIELBOXES9 TEXT9 ZIELBOXES10 TEXT10 ZIELBOXES11 TEXT11 ZIELBOXES12 TEXT12 ZIELBOXES13 TEXT13 ZIELBOXES14 TEXT14 ZIELBOXES15 TEXT15 ZIELBOXES16 TEXT16 ZIELBOXES17 TEXT17 ZIELBOXES18 TEXT18 ZIELBOXES19 TEXT19 ZIELBOXES20 TEXT20 ZIELBOXES21 TEXT21 ZIELBOXES22 TEXT22 ZIELBOXES23 TEXT23 ZIELBOXES24 TEXT24 ZIELBOXES25 TEXT25 ZIELBOXES26 TEXT26 ENABLED VISIBLE	 VERTEILEN Click,     
 RightClick    1 2 1                            1       6    )   X                        
commandbutton      
commandbutton      	verteilen      FORM1      yTop = 30
Left = 887
Height = 19
Width = 54
Caption = "verteilen"
TabIndex = 142
Visible = .F.
Name = "verteilen"
     
PROCEDURE Click
thisform.text0.value  = thisform.zielboxes0.value 
thisform.text1.value  = thisform.zielboxes1.value 
thisform.text2.value  = thisform.zielboxes2.value 
thisform.text3.value  = thisform.zielboxes3.value 
thisform.text4.value  = thisform.zielboxes4.value 
thisform.text5.value  = thisform.zielboxes5.value 
thisform.text6.value  = thisform.zielboxes6.value 
thisform.text7.value  = thisform.zielboxes7.value 
thisform.text8.value  = thisform.zielboxes8.value 
thisform.text9.value  = thisform.zielboxes9.value 
thisform.text10.value = thisform.zielboxes10.value
thisform.text11.value = thisform.zielboxes11.value
thisform.text12.value = thisform.zielboxes12.value
thisform.text13.value = thisform.zielboxes13.value
thisform.text14.value = thisform.zielboxes14.value

IF thisform.zielboxes15.Visible = .t.
	thisform.text15.value  = thisform.zielboxes15.value 
	thisform.text16.value  = thisform.zielboxes16.value 
	thisform.text17.value  = thisform.zielboxes17.value 
	thisform.text18.value  = thisform.zielboxes18.value 
	thisform.text19.value  = thisform.zielboxes19.value 
	thisform.text20.value  = thisform.zielboxes20.value 
	thisform.text21.value  = thisform.zielboxes21.value 
	thisform.text22.value  = thisform.zielboxes22.value 
	thisform.text23.value  = thisform.zielboxes23.value 
	thisform.text24.value  = thisform.zielboxes24.value 
	thisform.text25.value = thisform.zielboxes25.value
	thisform.text26.value = thisform.zielboxes26.value
endif

ENDPROC
PROCEDURE RightClick
thisform.zielboxes0.enabled = .f.
thisform.zielboxes1.enabled = .f.
thisform.zielboxes2.enabled = .f.
thisform.zielboxes3.enabled = .f.
thisform.zielboxes4.enabled = .f.
thisform.zielboxes5.enabled = .f.
thisform.zielboxes6.enabled = .f.
thisform.zielboxes7.enabled = .f.
thisform.zielboxes8.enabled = .f.
thisform.zielboxes9.enabled = .f.
thisform.zielboxes10.enabled = .f.
thisform.zielboxes11.enabled = .f.
thisform.zielboxes12.enabled = .f.
thisform.zielboxes13.enabled = .f.
thisform.zielboxes14.enabled = .f.
thisform.zielboxes15.enabled = .f.
thisform.zielboxes16.enabled = .f.
thisform.zielboxes17.enabled = .f.
thisform.zielboxes18.enabled = .f.
thisform.zielboxes19.enabled = .f.
thisform.zielboxes20.enabled = .f.
thisform.zielboxes21.enabled = .f.
thisform.zielboxes22.enabled = .f.
thisform.zielboxes23.enabled = .f.
thisform.zielboxes24.enabled = .f.
thisform.zielboxes25.enabled = .f.
thisform.zielboxes26.enabled = .f.

thisform.zielboxes0.visible = .f. 
thisform.zielboxes1.visible = .f. 
thisform.zielboxes2.visible = .f. 
thisform.zielboxes3.visible = .f. 
thisform.zielboxes4.visible = .f. 
thisform.zielboxes5.visible = .f. 
thisform.zielboxes6.visible = .f. 
thisform.zielboxes7.visible = .f. 
thisform.zielboxes8.visible = .f. 
thisform.zielboxes9.visible = .f. 
thisform.zielboxes10.visible = .f.
thisform.zielboxes11.visible = .f.
thisform.zielboxes12.visible = .f.
thisform.zielboxes13.visible = .f.
thisform.zielboxes14.visible = .f.
thisform.zielboxes15.visible = .f. 
thisform.zielboxes16.visible = .f. 
thisform.zielboxes17.visible = .f. 
thisform.zielboxes18.visible = .f. 
thisform.zielboxes19.visible = .f. 
thisform.zielboxes20.visible = .f. 
thisform.zielboxes21.visible = .f. 
thisform.zielboxes22.visible = .f. 
thisform.zielboxes23.visible = .f. 
thisform.zielboxes24.visible = .f. 
thisform.zielboxes25.visible = .f.
thisform.zielboxes26.visible = .f.

thisform.verteilen.Visible = .f.
thisform.verteilen.enabled = .f.

ENDPROC
                                   Z   %   g
      :  X   
            U   T         T         T         T      	   T  
       T      
   T         T         T         T         T         T         T         T         T         %    ! a T  "        T  #    $   T  %    &   T  '    (   T  )    *   T  +    ,   T  -    .   T  /    0   T  1    2   T  3    4   T  5    6   T  7    8    U9  THISFORM TEXT0 VALUE
 ZIELBOXES0 TEXT1
 ZIELBOXES1 TEXT2
 ZIELBOXES2 TEXT3
 ZIELBOXES3 TEXT4
 ZIELBOXES4 TEXT5
 ZIELBOXES5 TEXT6
 ZIELBOXES6 TEXT7
 ZIELBOXES7 TEXT8
 ZIELBOXES8 TEXT9
 ZIELBOXES9 TEXT10 ZIELBOXES10 TEXT11 ZIELBOXES11 TEXT12 ZIELBOXES12 TEXT13 ZIELBOXES13 TEXT14 ZIELBOXES14 ZIELBOXES15 VISIBLE TEXT15 TEXT16 ZIELBOXES16 TEXT17 ZIELBOXES17 TEXT18 ZIELBOXES18 TEXT19 ZIELBOXES19 TEXT20 ZIELBOXES20 TEXT21 ZIELBOXES21 TEXT22 ZIELBOXES22 TEXT23 ZIELBOXES23 TEXT24 ZIELBOXES24 TEXT25 ZIELBOXES25 TEXT26 ZIELBOXES26 T    - T    - T    - T    - T    - T    - T    - T  	  - T  
  - T    - T    - T  
  - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T  	  - T  
  - T    - T    - T  
  - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - T    - U  THISFORM
 ZIELBOXES0 ENABLED
 ZIELBOXES1
 ZIELBOXES2
 ZIELBOXES3
 ZIELBOXES4
 ZIELBOXES5
 ZIELBOXES6
 ZIELBOXES7
 ZIELBOXES8
 ZIELBOXES9 ZIELBOXES10 ZIELBOXES11 ZIELBOXES12 ZIELBOXES13 ZIELBOXES14 ZIELBOXES15 ZIELBOXES16 ZIELBOXES17 ZIELBOXES18 ZIELBOXES19 ZIELBOXES20 ZIELBOXES21 ZIELBOXES22 ZIELBOXES23 ZIELBOXES24 ZIELBOXES25 ZIELBOXES26 VISIBLE	 VERTEILEN Click,     
 RightClick,    1 RA 3 2                                 
  "    )                           textbox      textbox      
zielboxes0      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 7
Top = 54
Visible = .F.
Width = 95
Name = "zielboxes0"
     TPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*SET STEP ON 
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1

ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 4                                   I      )   p                        textbox      textbox      
zielboxes1      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 9
Top = 74
Visible = .F.
Width = 95
Name = "zielboxes1"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes2      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 12
Top = 94
Visible = .F.
Width = 95
Name = "zielboxes2"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes3      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 15
Top = 114
Visible = .F.
Width = 95
Name = "zielboxes3"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes4      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 18
Top = 134
Visible = .F.
Width = 95
Name = "zielboxes4"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes5      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 21
Top = 154
Visible = .F.
Width = 95
Name = "zielboxes5"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes6      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 24
Top = 174
Visible = .F.
Width = 95
Name = "zielboxes6"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes7      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 27
Top = 194
Visible = .F.
Width = 95
Name = "zielboxes7"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes8      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 30
Top = 214
Visible = .F.
Width = 95
Name = "zielboxes8"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      
zielboxes9      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 33
Top = 234
Visible = .F.
Width = 95
Name = "zielboxes9"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes10      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 36
Top = 254
Visible = .F.
Width = 95
Name = "zielboxes10"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes11      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 39
Top = 274
Visible = .F.
Width = 95
Name = "zielboxes11"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes12      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 42
Top = 294
Visible = .F.
Width = 95
Name = "zielboxes12"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes13      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 43
Top = 314
Visible = .F.
Width = 95
Name = "zielboxes13"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes14      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 46
Top = 334
Visible = .F.
Width = 95
Name = "zielboxes14"
     CPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
PROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
         p  p                        Đ   %               	            U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER  U   KeyPress,      Valid     1  A 2 3                                   8      )   p                        textbox      textbox      zielboxes15      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 6
Top = 354
Visible = .F.
Width = 95
Name = "zielboxes15"
     TPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*SET STEP ON 
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 5  A 1                       k            I      )   p                        textbox      textbox      zielboxes16      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 8
Top = 374
Visible = .F.
Width = 95
Name = "zielboxes16"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes17      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 13
Top = 394
Visible = .F.
Width = 95
Name = "zielboxes17"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes18      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 16
Top = 414
Visible = .F.
Width = 95
Name = "zielboxes18"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes19      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 17
Top = 434
Visible = .F.
Width = 95
Name = "zielboxes19"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes20      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 20
Top = 454
Visible = .F.
Width = 95
Name = "zielboxes20"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes21      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 23
Top = 474
Visible = .F.
Width = 95
Name = "zielboxes21"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes22      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 26
Top = 494
Visible = .F.
Width = 95
Name = "zielboxes22"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes23      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 29
Top = 514
Visible = .F.
Width = 95
Name = "zielboxes23"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes24      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 32
Top = 534
Visible = .F.
Width = 95
Name = "zielboxes24"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes25      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 35
Top = 554
Visible = .F.
Width = 95
Name = "zielboxes25"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        textbox      textbox      zielboxes26      FORM1      Alignment = 1
ControlSource = ""
Enabled = .F.
Format = "9999999.99"
Height = 21
InputMask = "9999999.99"
Left = 846
SelectOnEntry = .T.
TabIndex = 38
Top = 574
Visible = .F.
Width = 95
Name = "zielboxes26"
     CPROCEDURE Valid
*!*	DO fieldboxes_KeyPress WITH 13, 1, this.Value, thisform.schalter.value
*!*	RETURN 1
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	DO fieldboxes_KeyPress WITH 13, INT(VAL(alltrim(SUBSTR(this.Name,5,2)))) + 1, this.Value, thisform.schalter.value
endif
ENDPROC
         p  p                        Đ   %               	            U    U  \      %  
U 9  
CCCC  \g8       U  NKEYCODE
 NSHIFTALTCTRL FIELDBOXES_KEYPRESS THIS NAME VALUE THISFORM SCHALTER Valid,      KeyPress3     1 4  A 1                       i            8      )   p                        label      label      Label35      FORM1      jCaption = "Sockelbetr."
Height = 15
Left = 107
Top = 556
Width = 63
TabIndex = 94
Name = "Label35"
      textbox      textbox      txtsockelbetrag      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 105
SelectOnEntry = .T.
TabIndex = 119
Top = 572
Width = 58
Name = "txtsockelbetrag"
      textbox      textbox      ww21      FORM1      Alignment = 3
Value = 0.00
Height = 21
Left = 401
SelectOnEntry = .T.
TabIndex = 110
Top = 527
Width = 67
Name = "ww21"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
(   %   f      r  
  j  fY    U     ( T   
 H; 3 C  

   <(  Cs   employee    Ct   employee    Ct   employee  ! C  	  <(  Cs  employee    Ct   employee    Ct   employee     U  J M K MYGET HOLEFELD	 PUTFIELDS MYPUTU  %CC    /  T             T   C    d U 
 FIELDBOXES I EMPLOYEE FELDU 
   N    (J & T  C     U  EMPLOYEE III SICHT FELD08 T   
 Tarife ab CC         :! T       F  % CN  +CN 
   [  	 #  T   CC      C 	 CC 
      ; 6C 
 CC       ; 6C  CC       ; 6C  \ U
  MYTARIFE CAPTION SUMONATTEXT OPTIONGROUP2 VALUE WELCHESJAHRC ZWISCHENRAUM WELCHESJAHR	 KOMMENTAR ZEILE1 ZEILE2 ZEILE3 ZEILE4   (S  C    woerter  T      # T  Entgeltgruppe 2$ T  Entgeltgruppe 15 % )) T  Entgeltgruppe 15 TV-L) T  Entgeltgruppe 13 TV-L( T  Entgeltgruppe 2 TV-L  T   T 	 
  %  %  T 	    T 	     T 	    U  I MYGET DIENSTBEZEICHNUNG WOERTER TEXTEE MYINDEX STARTNUMMER GECLICKT MYTARIFE	 SSSCROLL1 MIN MAX8     (1  T       U  I EMPLOYEE FELDR 
   K    (G # T  C     U  EMPLOYEE III FELD SICHT    (P 9 T    Entgeltgruppe S CC   Z $ T  Entgeltgruppe S 2& T  Entgeltgruppe S 16& T  Entgeltgruppe S 13& T  Entgeltgruppe S 12& T  Entgeltgruppe S 11% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a& T  Entgeltgruppe S 11a
 T  T    T    U  I DIENSTBEZEICHNUNG STARTNUMMER MYTARIFE	 SSSCROLL1 MIN MAX  %    
*  T      T v    
 T    (  C     woerter  T CC  Z0 mytarife.Label&xxx..Caption = woerter.textee
  U  MYTARIFE	 SSSCROLL1 VALUE J K I MYGET XXX %    
*  T     
 H; ,     `  T        T        T        T      ! T          , T  
 T    (2 C         woerter  T	 CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
  U
  MYTARIFE	 SSSCROLL1 VALUE J TARIFGEBIET	 LISTINDEX K I MYGET LNRa
 H
 Z   
 H+          	(        	(        	  T 
 Vorb.BesO A/B T  Behrden T  Ministerien %C `  T 
 LBesO. Teil 1  T 
 LBesO. Teil 2 # T  Bundes-Bes.Ordn.# T  Landes-Bes.Ordn.  T 	 %-Zulagen' %   	  	% T  Entgr.zulagen u.a.% T  Pflegezulagen u.a.# T  Ministerien u.a. T  nicht belegt T  nicht belegt  C            	v %    T 	 Allgemein T  Lehrer T  Ministerien% T  HBO Vorbemerkungen T  HBO A! T  HBO B, C, W, R r T 	 Allgemein T  Behrden T  Ministerien T 
 TV zu  33 T  Schichtzul.# T  Verg.Gr.-Zulagen    Z % V$ T  Entgruppenzulagen  T 
 Pflegezulagen T  Ministerien T 
 TV zu  33 T  nicht belegt T  nicht belegt   U  GECLICKT MYTARIFE TARIFGEBIET	 LISTINDEX DIENSTBEZEICHNUNG ZI WELCHESJAHR ZULAGENTITELBUNDNEU[ %    
*  T      T M    
 T    (  C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
 2 %  C	 	     	  ( C   woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
  # %      	T  (P C   woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
   U
  MYTARIFE	 SSSCROLL1 VALUE J K I MYGET LNR WELCHESJAHR ZI  %    
*  T      T 
    
 T    (  C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
  U  MYTARIFE	 SSSCROLL1 VALUE J K I MYGET LNR %    
*  T     
 H;        T 
 T    (  C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
      ! T !    
 T    ( C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
   U  MYTARIFE	 SSSCROLL1 VALUE J K I MYGET LNR     (  T CC   ZQ mytarife.Label&lnr..Caption = zt12(1+(mytarife.SSScroll1.Value - 1) * 18 + i)
  U  I LNRW %    
*  T     
 H;   {
 HY w\           	(          	J
 H F      %     T Q  T       A T      f T       %C  T   T       ! %C  T  ! T           F T   C    w T      	 T ;
 
 T  	  (P2 C   	      woerter
  T CC	  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
  U  MYTARIFE	 SSSCROLL1 VALUE GECLICKT TARIFGEBIET	 LISTINDEX J ZI K I MYGET LNR,
 H
 %:           	     N        % %      T  
 T    (! C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
   U	  MYTARIFE	 SSSCROLL1 VALUE
 ZULAGENNORMAL J K I MYGET LNR
 H
  C     %    M  T   %    v  T  
 T    (
 C     woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
   U  MYTARIFE	 SSSCROLL1 VALUE J K I MYGET LNR  T  	 Allgemein T   Behrden T   Ministerien T  
 Bundeswehr  T  
 Flugsicherung T  	 %-Zulagen U  DIENSTBEZEICHNUNG & T   Anl.IX Nr. 1 bis 5a$ T   Anl.IX Nr. 5a - 7& T   Anl.IX Nr. 7 bis 8b& T   Anl.IX Nr. 8b - 13c( T   Anl.IX Nr. 13c bis 30% T   Anl.IX Amtszulagen U  DIENSTBEZEICHNUNG
 T  
 H       T    (  C      woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
      T    (| C      woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
     3 T    (/ C      woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
      T q
   ( C      woerter  T CC  Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
   U  K MYTARIFE	 SSSCROLL1 VALUE J I MYGET LNR %     #      (    {  %C    w ' T  C          T      T   	   T   
   T      T      T   
   T      T      T      T      T       #      (    , T  C       d  T      T   	   T   
   T      T      T   
   T      T      T      T      T       U  MYTARIFE	 TXTBETRAG VALUE ZZZ TXTZEILEVON TXTZEILEBIS
 FIELDBOXES WW16 TEXT WW17 WW18 WW19 WW20 WW21 WW22 WW23 WW24 WW25 WW26 TXTPROZENTE  T    C  T    C  T    C  T    C  T    C  T    C  T  	  C  T  
  C  T    C  T    C  T  
  C  U  MYTARIFE WW16 TEXT
 FIELDBOXES WW17 WW18 WW19 WW20 WW21 WW22 WW23 WW24 WW25 WW26=  4   %  6 
 T  
 T   B  U  KEYCODE	 TASTEFLOP TRUE TASTENUMMER     (< % T   C     %      
{  T           ( % T    C     U  I SICHT
 FIELDBOXES MYTARIFE	 SSSCROLL1 VALUE MAX     (  T     T  n   (4  C     employee & T    C   d C     employee	    U
  I
 FIELDBOXES J REGISTER K MYGET
 LASTRECORD EMPLOYEE FELD MYPUT%  C #115   C #116   U  MYCLOSEQ    (  C  | woerter  T CC   Z9 mytarife.Label&lnr..Caption = Alltrim(woerter.textee)
  %   v  T     T C
 C
    (%   (!! T           (J
 HM
   
 T CC   Z T	 	      T	 	       T	 	  Kontr.Su. 1    
  T	 	  Kontr.Su. 2  
 T
   T     % L
 T       ( F3 C 
       employee  T CC  Z
 H    ?> sp&xxx = sp&xxx + Str(employee.Feld(1+0) / 100,8,2) + crlf
, T 
   C  d   > sp&xxx = sp&xxx + Str(employee.Feld(1+1) / 100,8,2) + crlf
, T 
   C  d   5> sp&xxx = sp&xxx + Str(employee.Feld(1+2) / 100,8,2) + crlf
, T 
   C  d   > sp&xxx = sp&xxx + Str(employee.Feld(1+3) / 100,8,2) + crlf
, T 
   C  d   +> sp&xxx = sp&xxx + Str(employee.Feld(1+4) / 100,8,2) + crlf
, T 
   C  d   > sp&xxx = sp&xxx + Str(employee.Feld(1+5) / 100,8,2) + crlf
, T 
   C  d   !> sp&xxx = sp&xxx + Str(employee.Feld(1+6) / 100,8,2) + crlf
, T 
   C  d   > sp&xxx = sp&xxx + Str(employee.Feld(1+7) / 100,8,2) + crlf
, T 
   C  d   > sp&xxx = sp&xxx + Str(employee.Feld(1+8) / 100,8,2) + crlf
, T 
   C	  d   	> sp&xxx = sp&xxx + Str(employee.Feld(1+9) / 100,8,2) + crlf
, T 
   C
  d   
? sp&xxx = sp&xxx + Str(employee.Feld(1+10) / 100,8,2) + crlf
, T 
   C  d   ? sp&xxx = sp&xxx + Str(employee.Feld(1+11) / 100,8,2) + crlf
, T 
   C  d   	? sp&xxx = sp&xxx + Str(employee.Feld(1+12) / 100,8,2) + crlf
, T 
   C
  d   
	? sp&xxx = sp&xxx + Str(employee.Feld(1+13) / 100,8,2) + crlf
, T 
   C  d   	? sp&xxx = sp&xxx + Str(employee.Feld(1+14) / 100,8,2) + crlf
, T 
   C  d   z
? sp&xxx = sp&xxx + Str(employee.Feld(1+15) / 100,8,2) + crlf
, T 
   C  d   
? sp&xxx = sp&xxx + Str(employee.Feld(1+16) / 100,8,2) + crlf
, T 
   C  d   r? sp&xxx = sp&xxx + Str(employee.Feld(1+17) / 100,8,2) + crlf
, T 
   C  d   ? sp&xxx = sp&xxx + Str(employee.Feld(1+18) / 100,8,2) + crlf
, T 
   C  d   j? sp&xxx = sp&xxx + Str(employee.Feld(1+19) / 100,8,2) + crlf
, T 
   C  d   ? sp&xxx = sp&xxx + Str(employee.Feld(1+20) / 100,8,2) + crlf
, T 
   C  d   b
? sp&xxx = sp&xxx + Str(employee.Feld(1+21) / 100,8,2) + crlf
, T 
   C  d   
? sp&xxx = sp&xxx + Str(employee.Feld(1+22) / 100,8,2) + crlf
, T 
   C  d   Z? sp&xxx = sp&xxx + Str(employee.Feld(1+23) / 100,8,2) + crlf
, T 
   C  d   ? sp&xxx = sp&xxx + Str(employee.Feld(1+24) / 100,8,2) + crlf
, T 
   C  d   R? sp&xxx = sp&xxx + Str(employee.Feld(1+25) / 100,8,2) + crlf
, T 
   C  d   ? sp&xxx = sp&xxx + Str(employee.Feld(1+26) / 100,8,2) + crlf
, T 
   C  d    sp&xxx = sp&xxx + crlf 
   @5 sp&xxx = sp&xxx + Str(sicht(1+k,1+ j),8,2) + crlf
   5 sp&xxx = sp&xxx + Str(sicht(1+k,1+ j),8,2) + crlf
  %  
; T 
 C
  C
      %     
	1; T 
 C
  C
      T
 
    U  J MYGET LNR MYTARIFE	 SSSCROLL1 MAX CRLF I SICHT SP0 K III MIN
 FILENUMMER TARIFGEBIET	 LISTINDEX STARTNUMMER XXX EMPLOYEE FELD  4     
 T  
 H-     
  T  n   (4 
 F 	 #   T	  pcg_fCC  Z' replace &tarifname WITH mwert * 100
 [   U
 	 MKEYASCII
 MRECSOURCE MWERT RRRR I J REGISTER K
 LASTRECORD	 TARIFNAME
     U 	 DATEIOPENS 
   L    (H $ T  C  d   U  EMPLOYEE I FELD
 FIELDBOXES T  CC    Z jahrmonsuche = alltrim(mytarife.optiongroup1.option&xxx..caption)+IIF(mytarife.optiongroup2.value < 10,"0"+ALLTRIM(STR(mytarife.optiongroup2.value,2,0)),ALLTRIM(STR(mytarife.optiongroup2.value,2,0)))
 -  
 %C4
   [ >    [  T   C   T   C   T 	  C 	  T 
  C 
    T  
   U  XXX MYTARIFE OPTIONGROUP1 VALUE JAHRMON JAHRMONSUCHE	 KOMMENTAR ZEILE1 ZEILE2 ZEILE3 ZEILE4 KOMMENTARINTITEL TITELEINGABE VISIBLE TRUE  T      U  MYTARIFE TITELEINGABE VISIBLE FALSE  %        
   (V " T  C     T          ( ! T   C     U  MYTARIFE	 SSSCROLL1 VALUE MAX I SICHT
 FIELDBOXES?
 H
     Q %      	(      		  	 4 T           0 T             Q %      	(      		  	O T f
 0 T           20 T           C 
    employee	    (', T  CC 
  dT 
      U  STARTNUMMER MYTARIFE	 SSSCROLL1 VALUE WELCHESJAHR OPTIONGROUP2
 LASTRECORD TARIFGEBIET	 LISTINDEX MYGET
 FILENUMMER I
 FIELDBOXES EMPLOYEE FELD REFRESH
 UPDATECAPTION W T    CC     
 Z   (CC      )' T   	 CC      U
  MYTARIFE SSPANEL1 VALUE
 LASTRECORD TARIFGEBIET	 LISTINDEX DIENSTBEZEICHNUNG	 SSSCROLL1 NAMEDOPPELT CAPTION
 H
    }
 H+ y C  l  % 
Y    h     C 
 H   
       %C               C  C 	 C  C 	 C  C 
	 C  C 
 C    %C  %   * T 	 
  A4 Fn2 (JHptWachtmstr.), T  
  A5 Fn1 (1.JHptWachtmstr.)/ T  
  A6 Fn2 (im JWachtmstrDienst)4 T 
 
 ! A6 Fn3 (ltd.Funkt.im JWachtmstD.)4 T  
 ! A9 Fn1 (herausgeh.Funkt. im m.D.)3 T  
   A13 Fn1 (Amtsanwalt, Herausheb.)4 T  
 ! A13 Fn2 (Rechtspfleger, Heraush.)3 T  
   A13 Fn3 (techn.Dienst, Heraush.)4 T  
 ! A13 Fn5 (Kon-/Rektor, Herausheb.)2 T  
  A14 Fn1 (Kon-/Rektor, Heraush.)2 T  
  A14 Fn2 (Konrektor, Herausheb.)2 T  
  A15 Fn3 (Schuldir., Herausheb.)) T  
  A16 Fn2 (Ltd.Direktor)2 T  
  R2 Fn 3,4,5,7,8 (Leit.Funktion)/ T  
  R3 Fn 3,4 (Leitungsfunktion)0 T  
  C2 Fn 1 (Oberarzt Uni-Klinik)1 T  
  A6 Fn 1 (Funkt.im JWachtmstD.) T  
      C ` % 
M   \    CC    C  % 
    %  %C 
        %     C y  ! %  C 	X    % u        % 
           !        U"  GECLICKT ZI WELCHESJAHR
 ZULAGENNORMAL	 ZULAGENBW
 ZULAGENANH MYTARIFE	 SSSCROLL1 VALUE LABEL0 CAPTION LABEL1 LABEL2 LABEL3 LABEL4 LABEL5 LABEL6 LABEL7 LABEL8 LABEL9 LABEL10 LABEL11 LABEL12 LABEL13 LABEL14 LABEL15 LABEL16 LABEL17 ZULAGENRHEINLAND ZULAGENBUND ZULAGENHESSENNEU ZULAGENSCHLESWIG ZULAGENTVDBUND ZULAGENLANDL   (E T   
 H; A3 C  

   (  Cs   employee  Ct   employee  ! C  	A  (=  Cs  employee  Ct   employee     U  J M I MYGET MYPUT
 T   
       (L  CC       T    T  	  
  
     (  CC   
    T 
   T 
 	  
       (
  CC  Z     T    T  	  
       (
  CC  Z     T    T  	  
      (9 C    _CC  Z	 er Tarife     T    T  	    ( T CC  Z mytarifekopieren.Zieltabelle&xxx..Caption = "nach " + mytarifekopieren.Zieljahr.value + "_" + Alltrim(Str(i,2,0)) + "_er Tarife kopieren"
 
       ( T CC  ZX mytarifekopieren.Quelldienst.AddItem(Alltrim(mytarife.Schalter.option&xxx..Caption))
  T    T  	  
       (N T CC  ZW mytarifekopieren.Zieldienst.AddItem(Alltrim(mytarife.Schalter.option&xxx..Caption))
  T    T  	  
 T    U 	 STARTFLAG TRUE MYTARIFEKOPIEREN QUELLGEBIET CLEAR I ADDITEM ZT2	 LISTINDEX VISIBLE
 ZIELGEBIET	 QUELLJAHR JAHR1 JAHR5 ZIELJAHR QUELLTABELLE VALUE XXX QUELLDIENST
 ZIELDIENST FALSE 4  
 CQ 
 CR  T  tC   ) T  CC    Z .ttt+ C	  \Tarife\ Q employee  T
    
 H      
 T
 
 T     
 T
 
 T     L
 T
 #
 T     }
 T
 '
 T 	    
 T
 1
 T     
 T
 4
 T     
 T
 <
 T     A
 T
 P
 T     	r
 T
 
 T     

 T
 
 T     
 T
 
 T     
 T
 
 T     
6
 T
 
 T     g
 T
 
 T      T
 
 T      T
 
 T      T
 ,
 T     / T
 @
 T     a T
 T
 T      T
 h
 T      T
 r
 T      T
 |
 T     ) T
 
 T     [ T
 
 T     
 T
 d
 T     
 T
 n
 T     
 T
 x
 T     
 T
 
 T   T
 
 
  T    
 H^X
    
 T
     
 T
     
 T
 #    
 T
 '    
 T
 1    6
 T
 4    Z
 T
 <    ~
 T
 P    	
 T
     

 T
     
 T
     
 T
     
2
 T
     V
 T
     { T
      T
      T
 ,     T
 @    	 T
 T    4	 T
 h    Y	 T
 r    ~	 T
 |    	 T
     	 T
     	
 T
 d    

 T
 n    4

 T
 x    X

 T
   T  
  %  

 C 82  T  tC   # T  CC   Z .ttt+ C	  \Tarife\ R employee 
 T    
 (
  y FQ 	 #  ^(  C   
 CR   employee  T    C 81  C 82 / %   
 C   g	^

 T  +  
 (
 Z
 T  tC   ) T  CC    Z .ttt+ C	  \Tarife\ Q employee  FQ 	 #  ^(  C 81  T  tC   # T  CC   Z .ttt+ C	  \Tarife\ R employee  C   
' CR   employee  T   C 82    %    %    T  tC   ) T  CC    Z .ttt+ C	  \Tarife\ Q employee  FQ 
 #f
 ^(  C 81  T  tC   # T  CC   Z .ttt+ C	  \Tarife\ R employee  C   
 CRf
 employee  C 82       ( C 82  T
     T C   # T  CC   Z .ttt+ C	  \Tarife\ R employee 
 T   C   
 CR   employee  T     U  MYINDEX MYCLOSE MSG MYTARIFEKOPIEREN	 QUELLJAHR VALUE QUELLTABELLE	 LISTINDEX MYOPEN EIGDAT STARTNUMMER QUELLGEBIET QUELLDIENST I J
 ENDENUMMER
 ZIELGEBIET
 ZIELDIENST ZIELJAHR HS_K HS_I
 BASISWERTE EMPLOYEE FELD MYPUT BASISWERTE2 K angestellteaufstocken,      einzelzeile     holefeldz     kommentarintitel    
 normalTVD     nullsatz    	 putfields7    
 sozialTVD    
 zulagenanh	    
 zulagenbayern
     Zulagenbezeichnungen     zulagenbund    	 zulagenBWJ     zulagenhessenneuc     zulagenlande    
 zulagennormal     zulagenrheinland     zulagenschleswig     zulagentitelbundaltf     zulagentitelbundneu.      zulagentvdBund+!     tarife_Command1_ClickM$     tarife_Command2_Click'     Form_KeyDownV)     Grundgehaltkopieren_Click)     Nullstellung_Click*     tarife_ssCommand1_Click+     tarife_Command2_Click+     fieldboxes_KeyPress=     tarife_Form_?    	 getfields?     tarife_ssCommand4_Click?     tarife_sscommand5_ClickA     tarife_SSCommand7_Click
B    
 ShowRecordC    
 updatecaptionE     zulagentexteF     von1320aufstockenCO     tarifekopierenP     Zieltabelle_ClickU    @1 qq 1q q A q q A A A 4 AA 4  qaA A 4 q Q A A A  !	5 A 2AA R21 1A  1A 4 rA 5  q1A A 3 qA AaaaaQQa 113 q1A  qqA 4 q1A  q q q q qq A  q!rA 4   qQ 11A qRQ1B q B Q 1A !BB C 4 q1A  qrA !A A 1A B 3 q1A  qrA 3 q1A  q  qrA r qrA A 6 trA 6 q1A    q   A q q qQ   A qQ  A q B  A  A  q!rA 4  q qq A  qrA A 4  q A r A  qrA A 3 2 aAaaQ3   q qA q qA q qA q qA A 3 q2arA A  1A A 4 qqqqqqqqqqq4 q   B A 4 qQA A sQA 4 qqqaA A 1 6 zB 1A  QrqA A r rA  1 A 1q RRA A A A A 1 1  q  qB D B 1 t 8  qAA A  1   Q A A A t 2= 14 s!A rA A  1  A A   A  A rA  r 3 qq1   Q"q  q A Q !q !Qq  q A !q A 	r RqAA1A1A!!!!1A A R!q  r A q Q!q A "Rr  q A A !q A Sq q A "q A C !r  q A q q A 3 qq 1A A A A >   qA 11 qA 11 qA 11 qA 11 qA 11uqA  qA 11 qqA 11 1 q    q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  q  A  q q q q q q q q q q q q q q q q q q q q q q q q q q q q A  1    1A        11q A A q    11 A A  q 1Q1 4B A 2                    j            8  .      [    7   #       @   /   	    T   F       s   J   1    |   P          _   !  9     j   _  -        Z  {          /   	     Q   !  +     !  $  :     $  %  Z     &  +  h  #  ,  	.    2  2.  /    B  0  0    I  #1  F2    P  n2  r6    p  6  e;      ;  .=  *    |=  
>  9    >>  ;?  F    f?  7@  U    F  F      G  q    D  zs  u    S  r|  }    U  <}  }    \  d    y  l    
    n  >  p    y          Ե            n            #  q    1  ;   m               (                                                0 }}0                  PNG

   
IHDR         a   sRGB    	pHYs        tIME7'9hW   ZIDAT8RI0^3jԎV
nsK*n3UR *Vw
;sĉgUPO(;. #ض    IENDB`              (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                    BMV#      6  (   `   S                                     !  !  )  ) ) )) 1  9  9  9 )9 99  J  J !J JJ  Z  Z  Z  Z )Z ZZ 1c cc  k  k  k 1k kk  s  {  {  { 9{ {{    ތ B      J  R        ֭    B Z  {     ν   k       c  k  c     Z     s    s  k     J  R R  Z  c c c c  k k 1k  s  { { 9{    ! J     ) Z     1     1 9 k   ! {   ) B   1 B    9 J    B R   ! ) 1 9 J Z ! J R Z  9 Z c k s {  J c k    k      c s {    {                                                                                                                                                                                                                                                                                                                 zdXVwPPw`VVVVVVdPPzh]VVVVVVVVWVVPPPPPPP{rnbYXVVVVVVWVVVVVVPPP~xribebbe^VVVVWVVVVWVVWV{rnebebebebebeVWVVVVWVVVVVVVmPPPP~xreebebebebbeo||ebZVVVWVVVVWVVWV]{riebbbebebebbebebbeaVVHHVVVVVVVVVPPneebebebebebbebebebebt5H  KWVVWVVWVbebbebebebebebebebbe0   VVVVVVVVVzPP{ebebebebebebebbebeeG   VVWVVWVVVdxbbebbebbebbebebet   %VVVVVVWVXPnbebebebebebebeb2    %VWVVVVVVUebebebebebebbebek    %AVWVWVR#Pbebebbebbebebebbelltg"      VVVVVm3P{bebbebebebebebebegj{xSG     .WVVVV]) Jrebebebebebbebbebbe{bei^   VWVVWVVV@ Pnbebebbebbebebebebirebe{^,    VVVVVVWVR @PPebe^ZZZbebebebebtb~beeZN    VVVWVVVVz  1)3xeWebYVVVebbVZabeblr~rnq  VVVVVWVVd8JRPeb^VbbYVVVeb^VVVYeb|q^efv2  %VVWVVVVVXJ 1rbYV^aWVWVabVVVW^bejtpN 4VVVWVVWVJ U~i~eWVVVVVVVVVVWVVbeaZbe|  VVVVVVVVF)~ebixaVVVVWVVVVVVVVYbaVVYbb:.<VVWVWVVVw8eebebe^VWVVVVWVWVVWVVWWVVVYbepVWVVVabebeYdR)F~ebebbZVVVVWVVVVVVVVVVVVVWaebjxiaVVVaebebYVJF{bbebYVVWVVVVVWVVWVVWVVWaebet{{bWWVabebbYVJ  3r{nebebVVVVVVWVVVVVVVVVVWVabZVkjbebfe~e^VVabebeWVF 1xbeibbebaVWVVWVVVVWVVWVVWVVVWVVV^bbebebepirbZ^bbebea^uOebbbebeb^VVVVVVVWVVVVVVVVVVVVVWVWebebennbeb~~bebebbebebe~iebebebeWVVWV^nxxx^WVVWVVWVVWVVVYebbenrbe{ibebebebebe{ibebbeVWVYx+'PxZVVVVVVVVVYbbebenxxbebebbebeb{J@)#-ibbebaVVV{D    ?~WVWVVWVVWZebebb{bebbebebbexR  @xrxbebeb^VWaP =bb= DeVVVVVVVVWWY^ebb{nbebebebebrP){bebbebebZVVn7 /ebebC {VVWVVWVVVVVZbebex{bebebebebi@O~bebebebeWVV{! bebebb VVVVVVVWVVWZibebrPPPebebebbebePP~~bebebbebVVVx+ LbebeT ~VVWVVWVVVVVa~niPrbebbebebe{{{bebbaVVVeM ebeb& 7rVVVVVVVVcP~bebebebeb{PP~ebebZVWVY /6 PZVVWVVWVV}PPibebebbber{ibebebYVVVVb7  'nVVVVVVVVV]}Pxt|jebbnPP)   {bbebebWVWVVV^xD?{ZVVWVVWVVWVWW[PPPa\pebPP) 8eebbeaVVVVWVVVYee^VVWVVVVVVVVVVVlPPrWY"  (Qob~PP@8rix{e^VVWVVVVVVVVWVVVVVWVVWV[\VWPPxVg2    Ef{eYVVVVVWVVWVVVVWVVVVVVV_vPPZc}S{D GnPPieWVWVVVVVVVVWVVVVWVVWVVX{VVXiP exbbVVVVWVVWVVVVVWVVVVVVVWVYPPPiV]VVZ? 
yPPPPraW}VVVVVVWVVVVVWVWVSVVVVvPa\WYae? 
y{PevVWVVVVVWVVVVVVVVqPPsc,D7 
trPPPPXWVVSWVVVVWVVWVvlPP~xnik D (enPVVVcSWVVVVV_~xniebbebeG 
MM+NbePPPPqVVgVVV\VVXE,>bbbebbebebbp0       EfebP}gVVWvcE2" $IfbebbebebbebetG"
  
(Nobeb{PPPv}vG;(    IbebebebebbebebebjtbeberP;(          5ebebebebebebebbebet|jbebebbnPPP;0               bebebebebebebebebbbbbbebebebebePPE2                    TbeB*bebbebbebebebeebebbebbebeb~PPG;"                           *  =bebebebebbebbebebebebebbexP                                   /ebebebebebebebebebebebeben                                  /ebebbebbebebebebbebbebbebbiF                                 9bbebebebebebbebbebebebebebeeF#                                /ebebL9bebebebebebebebebebebb~U@)                            /ebT	 LebbebebebbebbebbebL$)J1#                         /L   /bebebbebebebebebeb= @-                        ebebbebebebebebebbebO1#                     $bebeI $bebbC6ebeb& J@-                6ebeb  ebeb=  $bebeI 8U8)             =bI   ebeb=  bebB #F-             ebeb=   L/   O8)           9===*          F-                      FO8)                  1F-             R@)        J-     UF1FPNG

   
IHDR         (-S   PLTE^.S"V$Y(DQ$88<
J0/丸ODo\\MM.
=0.ȹ譭7o:Þ	dbbddUUqddqqqӉUU``* mm1YYڳ42$}KȠLLnn|Ruu%='ZZ曛CBmmS;80jWN.uEb6ףKO   IDATOZ@\..,^V $*Lf;gfBh dh[#D:?wҔ^]VuY
]ƙu}8(!sK>E8 I/UhSJ36	/uW0J5G@)z=_G`8sy{
}~Yǉ%3!Wod!jiYS,@    IENDB`PNG

   
IHDR         (-S   PLTE}}}˵ſeʁOaaannn***MT\BBBuuu`7U!*4XXXEYo###,,,$Ir3iD}L(]?zHû`4Ynw@_.MpPg   IDATU0T.ЪPAI+2yJ$3	 6NS+rWC <WնR6΋ؠq
wAz'N`,A0zcγלπ j\!&RBꠠtk!H4+K2_dc'ݲy1vco^5Zt    IENDB`PNG

   
IHDR         (-S   `PLTE.Y;sqZ/[\zA}TK<u8m3c6i*R~2aP    IDATe q /RvUÀru!U 7k4'"L<sT+q1Pd~R_Æ(ʛuߥ:</Q6] h)=[t.v5XkX|da{2gV
{%    IENDB`PNG

   
IHDR         (-S   PLTE'x*|Ӵܺؼ>%{š|/~ѶտΥֲŝܷơ¡ǶiÛopwkǻµε̭	p   IDATu0Ee̃"	*僚Φyp8g50l\hnk[
6~_f!`l{CNg	z9Gݧx *B&a!V*_\/~U	!Nz?EV    IENDB`PNG

   
IHDR         (-S   3PLTEf f      ̙33 ff3f3̙f3fff̙3p   rIDATe	 YԐ4_5
IQ-!yFGJ@NSeGEyԛ.{C^qjPG2T-UOU97-Ϣ8߂_!*(    IENDB` JFIF        		

	

 "" $(4,$&1'-=-157:::#+?D?8C49:7




7%%77777777777777777777777777777777777777777777777777                     $          !1 AQ                !          ! Q1A   ? mq6V͢.Kۤy%O20b~8նV\wjS`"oKhB'ػWm@58WƘ6L$VɎ\Zn#HH+h|ְ4Pf.[qPPj`cj(e˲k%ƛL6Hy0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LL137JZ11216188979      /  F      ]                                                       WINDOWS _4LL137JZ21411749903                                                                     WINDOWS _4LL137JZ31216189123                                                                       WINDOWS _4LL137JZ41411745340S      h  }            M	                                               WINDOWS _4LL137JZ51411745340L
      a
  v
  
  
      
  +                                               WINDOWS _4LL137JZ61411749903        $  4  A                                                       WINDOWS _4LL137JZ71411745340                                                                       WINDOWS _4LL137JZ81411745340F      V  f  s                                                             WINDOWS _4LL137JZ91411745340            +                                                           WINDOWS _4LL137JZA1411745340                                                                       WINDOWS _4LL137JZB1411745340H      X  h  u                                                             WINDOWS _4LL137JZC1411745340          !  .                                                           WINDOWS _4LL137JZD1411745340                                                                       WINDOWS _4X30WSIUG1253079616L  \  |                                                                 COMMENT RESERVED                                3                                                            \                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 275
Width = 192
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Familienzuschlag mit Zhlkindern"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     (                              8   %   |                       U    %     6  T C     T K 
 T  
      T         T        
     T  	 a U
  THISFORM HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      ResizeI    1   A    3 1                       {                )                           shape      shape      Shape1      FORM1      TTop = 39
Left = 12
Height = 163
Width = 168
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      Command1      FORM1      TTop = 6
Left = 11
Height = 28
Width = 170
Caption = "Hilfe"
Name = "Command1"
      OPROCEDURE Click
inet = "000"
Msg = "Zhlkinder.de"
DO insinternet
ENDPROC
                                      h   %   |                          U  4  T   000 T 
 Zhlkinder.de   U  INET MSG INSINTERNET Click,     1 q 1                       D       )                            
commandbutton      
commandbutton      Command2      FORM1      ZTop = 207
Left = 11
Height = 28
Width = 170
Caption = "Abbrechen"
Name = "Command2"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      Command3      FORM1      [Top = 237
Left = 11
Height = 28
Width = 170
Caption = "bernehmen"
Name = "Command3"
     #PROCEDURE Click
If .not. EMPTY(thisform.Kind0.Value) && = -1 
	sicht(1+1,1+ 0) = 2000000 
Else 
	sicht(1+1,1+ 0) = 0
endif
If .not. EMPTY(thisform.Kind1.Value) && = -1 
	sicht(1+1,1+ 1) = 100000 
Else 
	sicht(1+1,1+ 1) = 0
endif
If .not. EMPTY(thisform.Kind2.Value) && = -1 
	sicht(1+1,1+ 2) = 20000 
Else 
	sicht(1+1,1+ 2) = 0
endif
IF .not. EMPTY(thisform.Kind3.Value) && = -1 Then 
	sicht(1+1,1+ 3) = 3000 
Else 
	sicht(1+1,1+ 3) = 0
endif
If .not. EMPTY(thisform.Kind4.Value) && = -1 Then 
	sicht(1+1,1+ 4) = 400 
Else 
	sicht(1+1,1+ 4) = 0
endif
If .not. EMPTY(thisform.Kind5.Value) && = -1 Then 
	sicht(1+1,1+ 5) = 50 
Else 
	sicht(1+1,1+ 5) = 0
endif
If .not. EMPTY(thisform.Kind6.Value) && = -1 Then 
	sicht(1+1,1+ 6) = 6 
Else 
	sicht(1+1,1+ 6) = 0
endif
For i = 1 To 6
    sicht(1+1,1+ 0) = sicht(1+1,1+ 0) + sicht(1+1,1+ i)
NEXT
 
zhlkinder = 10000000 + sicht(1+1,1+ 0)
wvw.zhlkind = zhlkinder
myPut(Monat, fileneu, "wvw")
DO zkinderanzeigen
Op1 = 9876
DO zgridaktivieren
thisform.release
ENDPROC
                                   .z   %         V  /               U   %C    
2  T   S  T    %C    
  T     T    %C    
  T  N   T    %C    
3 T  T T    %C    
 T   T    %C    
 T 2  T    %C  	  
0 T  Q T    
 (/ T C C
    T  C  T 
   C     wvw    T &  
     U  THISFORM KIND0 VALUE SICHT KIND1 KIND2 KIND3 KIND4 KIND5 KIND6 I
 ZHLKINDER WVW ZHLKIND MYPUT MONAT FILENEU ZKINDERANZEIGEN OP1 ZGRIDAKTIVIEREN RELEASE Click,     1 a A a A a A a A a A a A a A qA q  q  1                             )                           checkbox      checkbox      kind0      FORM1      uTop = 43
Left = 17
Height = 22
Width = 159
Alignment = 0
Caption = "mit Verheiratetenzuschlag"
Name = "kind0"
      checkbox      checkbox      kind1      FORM1      iTop = 65
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "1. Kind zhlt"
Name = "kind1"
      checkbox      checkbox      kind2      FORM1      iTop = 87
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "2. Kind zhlt"
Name = "kind2"
      checkbox      checkbox      kind3      FORM1      jTop = 109
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "3. Kind zhlt"
Name = "kind3"
      checkbox      checkbox      kind4      FORM1      jTop = 131
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "4. Kind zhlt"
Name = "kind4"
      checkbox      checkbox      kind5      FORM1      jTop = 153
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "5. Kind zhlt"
Name = "kind5"
      checkbox      checkbox      kind6      FORM1      jTop = 175
Left = 41
Height = 22
Width = 111
Alignment = 0
Caption = "6. Kind zhlt"
Name = "kind6"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 255
Left = 174
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0"   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LL1450X31216189812      /  F      ]                                                       WINDOWS _4LL1450X41449677600                                                                     WINDOWS _4LL1B6YUK12547187727      D  Q  _  l                                                           WINDOWS _5US0LX39R1361334858                                                                         WINDOWS _4LL1450X61216196644W       d   q                                                                  WINDOWS _4LL1450X71216196644          !  !  !                                                           WINDOWS _4LL1450X81216196644x!      !  !  !  !                                                           WINDOWS _4LL1450X91216196644	"      "  #"  1"  >"                                                           WINDOWS _4LL1450XA1216196644"      "  "  "  "                                                           WINDOWS _4LL1450XB1349352897,#      9#  F#  U#  b#                                                           WINDOWS _4LL1450XC1401392764#      #  $  $  $$      %  '                                               WINDOWS _4LL1450XD1254718772)      )  *  *  "*                                                           WINDOWS _4LL1450XE1429893559*      *  *  *  *      ,  y3                                               WINDOWS _4LL1450XF12547187728      8  8  8  8                                                           WINDOWS _4LL1450XG1429893832;9      N9  a9  u9  9      ;  @                                               WINDOWS _4LL1450XH1254718772D      D  *D  9D  FD                                                           WINDOWS _4LL1450XI1401392781D      D  D   E  
E      [H  N                                               WINDOWS _4LL1450XJ1254718772S      S  S  S  S                                                           WINDOWS _4LL1450XK14496776008T      KT  ^T  rT  T      1Y  ]                                               WINDOWS _4LL1450XL1216196644Mb      Zb  gb  ub  b                                                           WINDOWS _4LL1450XM1216196644b      c  c  c  )c                                                           WINDOWS _4LL1450XN1216196644c      c  c  c  c                                                           WINDOWS _4LL1450XO1401392781.d      Ad  Td  hd  ud      e  h                                               WINDOWS _4LL1450XP1254718772l      l  %l  4l  Al                                                           WINDOWS _4LL1450X31361336680l      l  l  l  l      Sm  'n                                               WINDOWS _4LL1450X41359773506o      o  o  o  o      Rp  p                                               WINDOWS _4LL1B6YUL1362646530q      q  q  q  q      Vr  r                                               WINDOWS _4LL1B6YUM1429894249s      s  s  s  s      Bt  u                                               WINDOWS _4X30WPN0Y1253079542Vv  fv  v  v  v  v                                                           WINDOWS _4LL1450X31429893197=w      Rw  gw  yw  w      	x  x~                                               WINDOWS _4XR0ZOC1Q1382108312          Ƀ  փ      j                                                 WINDOWS _5PX0XSLGX1361334858      Ї            C  Q                                               COMMENT RESERVED                                Y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 3
Height = 573
Width = 451
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Sonderregelungen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
PUBLIC SRstart
SRstart = True

Do Case &&zti
	Case zti = 24
		Thisform.Caption = "Sonderregel fr Zeile 26 (Sachbezge)"
		Thisform.bertrag.Caption = "bertrag"
		Thisform.Combo1.Visible = False
		Thisform.Label3.Visible = True
		Thisform.Label3.value = myform1.z24.Caption
		Thisform.optiongroup1.Value = Schlssel(40,1+ 1) + 1 &&True
		Thisform.optiongroup2.Value = Schlssel(40,1+ 2) + 1 &&True
		Thisform.optiongroup3.Value = Schlssel(40,1+ 3) + 1 &&True
		Thisform.optiongroup4.Value = Schlssel(40,1+ 4) + 1 &&True
		Thisform.optiongroup5.Value = Schlssel(40,1+ 5) + 1 &&True
		Thisform.optiongroup6.Value = Schlssel(40,1+ 6) + 1 &&True
		thisform.xlabel1.Caption = "1. Der Sachbezug ist ein"
	Case zti = 47
		Thisform.Caption = "Sonderregel fr Zeile 27 (Sachbezge)"
		Thisform.bertrag.Caption = "bertrag"
		Thisform.Combo1.Visible = False
		Thisform.Label3.Visible = True
		Thisform.Label3.value = myform1.z47.Caption
		Thisform.optiongroup1.Value = Schlssel(41,1+ 1) + 1 &&True
		Thisform.optiongroup2.Value = Schlssel(41,1+ 2) + 1 &&True
		Thisform.optiongroup3.Value = Schlssel(41,1+ 3) + 1 &&True
		Thisform.optiongroup4.Value = Schlssel(41,1+ 4) + 1 &&True
		Thisform.optiongroup5.Value = Schlssel(41,1+ 5) + 1 &&True
		Thisform.optiongroup6.Value = Schlssel(41,1+ 6) + 1 &&True
		thisform.xlabel1.Caption = "1. Der Sachbezug ist ein "

	Case zti = 40 &&Sachbezge
		Thisform.Caption = "Allgemeine Regeln fr die Zeilen 26 und 27 (Sachbezge)"
		Thisform.bertrag.Caption = "Speichern"
		Thisform.Label3.Visible = False
		With Thisform.Combo1
			For i = 0 To 15
				.AddItem(zt24(1+i))
			Next
			.ListIndex = 1
			.Visible = True
		EndWith
		thisform.xlabel1.Caption = "1. Der Sachbezug ist ein "

		Case zti = 41 &&Einbehalte
			Thisform.Caption = "Allgemeine Regeln fr die Zeilen 44 bis 46 (Einbehalte/Auszahlungen)"
			Thisform.bertrag.Caption = "Speichern"
			Thisform.Label3.Visible = False
			With Thisform.Combo1
				For i = 0 To 45
					.AddItem(zt42(1+i))
				Next
				.ListIndex = 1
				.Visible = True
			EndWith

			Case zti = 42 .Or. zti = 43 .Or. zti =  44
				Thisform.Caption = "Sonderregel fr Zeile " + Alltrim(Str(zti + 2,3,0)) + " (Einbehalte/Auszahlungen)"
				Thisform.bertrag.Caption = "bertrag"
				Thisform.Combo1.Visible = False
				Thisform.Label3.Visible = True
				xxx=Alltrim(Str(zti,3,0))
				Thisform.Label3.value = myform1.z&xxx..Caption
				Thisform.optiongroup1.Value = Schlssel(zti,1+ 1) + 1 &&True
				Thisform.optiongroup2.Value = Schlssel(zti,1+ 2) + 1 &&True
				Thisform.optiongroup3.Value = Schlssel(zti,1+ 3) + 1 &&True
				Thisform.optiongroup4.Value = Schlssel(zti,1+ 4) + 1 &&True
				Thisform.optiongroup5.Value = Schlssel(zti,1+ 5) + 1 &&True
				Thisform.optiongroup6.Value = Schlssel(zti,1+ 6) + 1 &&True
				Do Case &&zi(zti)
					Case zi(zti) >= 1 And zi(zti) <= 24 &&Einbehalt
						thisform.xlabel1.Caption = "1. Der Einbehalt bezieht sich auf einen "
					Case zi(zti) > 24 &&Auszahlung
						thisform.xlabel1.Caption = "1. Die Auszahlung ist ein "
				Endcase
		Endcase

		SRstart = False

		If SRVorgaben = True
			Thisform.bertrag.Visible = True
			Thisform.bertrag.enabled = True
		ELSE
			Thisform.bertrag.Visible = false
			Thisform.bertrag.enabled = false		
		Endif

		fensteroffen = 11


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     ;    "  "                        )   %   
        b               U   %    
$  T      7 
 T  
 HI   5 T   % Sonderregel fr Zeile 26 (Sachbezge) T     bertrag T    	  T  
    T  
   
   T    C(  T    C(  T    C(  T    C(  T    C(  T    C( + T     1. Der Sachbezug ist ein  /H5 T   % Sonderregel fr Zeile 27 (Sachbezge) T     bertrag T    	  T  
    T  
      T    C)  T    C)  T    C)  T    C)  T    C)  T    C) , T     1. Der Sachbezug ist ein   (\G T   7 Allgemeine Regeln fr die Zeilen 26 und 27 (Sachbezge) T    	 Speichern T  
  	     ,   ( CC     T  T   , T     1. Der Sachbezug ist ein   )QT T   D Allgemeine Regeln fr die Zeilen 44 bis 46 (Einbehalte/Auszahlungen) T    	 Speichern T  
  	     M   (-- CC     T  T   '  *  +  ,V T    Sonderregel fr Zeile CC  Z  (Einbehalte/Auszahlungen) T     bertrag T    	  T  
    T CC  Z2 Thisform.Label3.value = myform1.z&xxx..Caption
 T    C    T    C    T    C    T    C    T    C    T    C   
 H& C   
 C   	; T    ( 1. Der Einbehalt bezieht sich auf einen  C   - T     1. Die Auszahlung ist ein   
 T 	  %   T      T      = T    	  T    	  
 T   %  ! " #  T$ C#   ! " T 
 T$  
   % &  T  !   ! " $  T  '   ' " $ 
   (  T  ) a U*  THISFORM TOP SRSTART TRUE ZTI CAPTION BERTRAG COMBO1 VISIBLE FALSE LABEL3 VALUE MYFORM1 Z24 OPTIONGROUP1	 SCHLSSEL OPTIONGROUP2 OPTIONGROUP3 OPTIONGROUP4 OPTIONGROUP5 OPTIONGROUP6 XLABEL1 Z47 I ADDITEM ZT24	 LISTINDEX ZT42 XXX ZI
 SRVORGABEN ENABLED FENSTEROFFEN HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize
    1 AA q   Q11Q11q1qaA   A A1qaA   A ra11q! aaA A  11 11A    A    2 1                            `       l    )   "                        shape      shape      Shape7      FORM1      STop = 25
Left = 3
Height = 544
Width = 439
SpecialEffect = 0
Name = "Shape7"
      textbox      textbox      label3      FORM1      OHeight = 25
Left = 11
Top = 32
Visible = .F.
Width = 424
Name = "label3"
      shape      shape      Shape1      FORM1      STop = 67
Left = 11
Height = 55
Width = 425
SpecialEffect = 0
Name = "Shape1"
      shape      shape      Shape2      FORM1      TTop = 131
Left = 11
Height = 55
Width = 425
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape3      FORM1      TTop = 196
Left = 11
Height = 55
Width = 425
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape4      FORM1      TTop = 260
Left = 11
Height = 91
Width = 425
SpecialEffect = 0
Name = "Shape4"
      shape      shape      Shape5      FORM1      UTop = 360
Left = 11
Height = 136
Width = 425
SpecialEffect = 0
Name = "Shape5"
      label      label      xLabel1      FORM1      sCaption = " 1. Art des Bezuges oder Einbehaltes"
Height = 16
Left = 20
Top = 61
Width = 241
Name = "xLabel1"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 2
Value = 0
Height = 31
Left = 31
Top = 79
Width = 396
Name = "Optiongroup1"
Option1.Caption = "laufender Bezug (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 193
Option1.Name = "Option1"
Option2.Caption = "einmaliger Bezug (1) "
Option2.Height = 17
Option2.Left = 212
Option2.Top = 6
Option2.Width = 176
Option2.Name = "Option2"
     PROCEDURE Click
If SRstart = True 
	RETURN
ENDIF
 
myindex = thisform.optiongroup1.Value - 1

do Case &&zti
Case zti = 40
     Schlssel(40,1+ 1) = myindex 
Case zti = 41
     Schlssel(41,1+ 1) = myindex 
Case zti = 24
     Schlssel(40,1+ 1) = myindex 
Case zti = 47
     Schlssel(41,1+ 1) = myindex 
Case zti = 42 .or. zti = 43 .or. zti = 44
     Schlssel(zti,1+ 1) = myindex 
Endcase
thisform.bertragen.click
ENDPROC
     Z    A  A                        h   %                          U  9 %     B  T    
 H= %  (g  T (   )  T )     T (   /  T ) '  *  +  ,% T    
   	  U
  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP1 VALUE ZTI	 SCHLSSEL
 BERTRAGEN CLICK Click,     1 A A r qA  1                             )   A                        label      label      xLabel2      FORM1      mCaption = " 2. Steuerpflichtiges Entgelt"
Height = 16
Left = 21
Top = 126
Width = 158
Name = "xLabel2"
      optiongroup      optiongroup      Optiongroup2      FORM1     ButtonCount = 3
Value = 0
Height = 31
Left = 32
Top = 144
Width = 396
Name = "Optiongroup2"
Option1.Caption = "neutral (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 6
Option1.Width = 140
Option1.Name = "Option1"
Option2.Caption = "mindert (1)"
Option2.Height = 17
Option2.Left = 156
Option2.Top = 6
Option2.Width = 139
Option2.Name = "Option2"
Option3.Caption = "erhht (2)"
Option3.Height = 17
Option3.Left = 304
Option3.Top = 6
Option3.Width = 87
Option3.Name = "Option3"
     {PROCEDURE Click
If SRstart = True 
 	RETURN
ENDIF

myindex = thisform.optiongroup2.Value - 1

do Case &&zti
Case zti = 24
*!*	     If wert(1+zti) > 0 And myindex = 1 
*!*	     	myindex = 2
*!*	     endif
*!*	     If wert(1+zti) < 0 And myindex = 2 
*!*	     	myindex = 1
*!*	     endif
     Schlssel(40,1+ 2) = myindex 
     
Case zti = 47
     If wert(1+zti) > 0 And myindex = 1 
     	myindex = 2
     endif
     If wert(1+zti) < 0 And myindex = 2 
     	myindex = 1
     endif
     Schlssel(41,1+ 2) = myindex 
     
Case zti = 40 && Sachbezge
     If thisform.Combo1.ListIndex > 12 And myindex = 1 
     	myindex = 2
     endif
     If thisform.Combo1.ListIndex < 13 And myindex = 2 
     	myindex = 1
     endif
     Schlssel(40,1+ 2) = myindex 
*     Stwirkung(Index).Value = True
     If myindex > 0 Then
        Schlssel(40,1+ 5) = 0
*        Pausch(0).Value = True
     EndIf

Case zti = 41 &&Einbehalte
     If thisform.Combo1.ListIndex > 24 And myindex = 1  
     	myindex = 2
     endif
     If thisform.Combo1.ListIndex < 25 And myindex = 2 
     	myindex = 1
     endif
     Schlssel(41,1+ 2) = myindex 
*     Stwirkung(Index).Value = True
     If myindex > 0 Then
        Schlssel(41,1+ 5) = 0
        thisform.optiongroup5.Value = 1
     EndIf

Case zti = 42 .or. zti = 43 .or. zti = 44
     If wert(1+zti) < 0 And myindex = 2 
     	myindex = 1
     endif
     If wert(1+zti) > 0 And myindex = 1 
     	myindex = 2
     endif
     Schlssel(zti,1+ 2) = myindex 
     If myindex > 0
     	Schlssel(zti,1+ 5) = 0
     endif
Endcase

thisform.bertragen.click
ENDPROC
                                      %   '        5   6            U  v %     B  T    
 H= b  g  T (   / $ %C     	 
 T  $ %C   
  	 
 T   T )   (" % 	 
   	;
 T  " % 	 
 

  	n
 T   T (  %   T (    )" % 	 
   	
 T  " % 	 
 
  	,
 T   T )  %   T )  T    '  *  +  ,b$ %C   
  	
 T  $ %C     	
 T   T    %  ^ T     
   
  U  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP2 VALUE ZTI	 SCHLSSEL WERT COMBO1	 LISTINDEX OPTIONGROUP5
 BERTRAGEN CLICK Click,     1 A A r A A A A ! A ! A B ! A ! A 1A rA A A A A A  1                       p      )                           label      label      xLabel3      FORM1      zCaption = " 3. Sozialversicherungspflichtiges Entgelt"
Height = 16
Left = 21
Top = 191
Width = 233
Name = "xLabel3"
      optiongroup      optiongroup      Optiongroup3      FORM1     ButtonCount = 3
Value = 0
Height = 31
Left = 32
Top = 211
Width = 396
Name = "Optiongroup3"
Option1.Caption = "neutral (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 6
Option1.Width = 143
Option1.Name = "Option1"
Option2.Caption = "mindert (1)"
Option2.Height = 17
Option2.Left = 156
Option2.Top = 6
Option2.Width = 139
Option2.Name = "Option2"
Option3.Caption = "erhht (2)"
Option3.Height = 17
Option3.Left = 304
Option3.Top = 6
Option3.Width = 87
Option3.Name = "Option3"
     PROCEDURE Click
If SRstart = True 
	RETURN
ENDIF

myindex = thisform.optiongroup3.Value - 1

do Case &&zti
Case zti = 40 && Sachbezge
     If thisform.Combo1.ListIndex > 12 And myindex = 1 
     	myindex = 2
     endif
     If thisform.Combo1.ListIndex < 13 And myindex = 2 
     	myindex = 1
     endif
     Schlssel(40,1+ 3) = myindex 
 *    SVWirkung(Index).Value = True

Case zti = 41 &&Einbehalte
     If thisform.Combo1.ListIndex > 24 And myindex = 1 
     	myindex = 2
     endif
     If thisform.Combo1.ListIndex < 25 And myindex = 2 
     	myindex = 1
     endif
     Schlssel(41,1+ 3) = myindex 
*     SVWirkung(Index).Value = True

Case zti = 24
*!*	     'If zi(24) < 13 And myindex = 1 Then myindex = 2
*!*	     'If zi(24) > 12 And myindex = 2 Then myindex = 1
     Schlssel(40,1+ 3) = myindex 
Case zti = 47
*!*	     'If zi(47) < 13 And myindex = 1 Then myindex = 2
*!*	     'If zi(47) > 12 And myindex = 2 Then myindex = 1
     Schlssel(41,1+ 3) = myindex 
Case zti = 42 .or. zti = 43 .or. zti = 44
*!*	     If zi(zti) < 25 And myindex = 2 
*!*	     	myindex = 1
*!*	     endif
*!*	     If zi(zti) > 24 And myindex = 1 
*!*	     	myindex = 2
*!*	     endif
     Schlssel(zti,1+ 3) = myindex 
Endcase
thisform.bertragen.click
ENDPROC
     Q    8  8                        I   %                          U   %     B  T    
 H=   ( " %     	} 
 T  " %   

  	 
 T   T	 (   )]" %     	

 T  " %   
  	@
 T   T	 )    T	 (   / T	 ) '  *  +  , T	    
  
   U  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP3 VALUE ZTI COMBO1	 LISTINDEX	 SCHLSSEL
 BERTRAGEN CLICK Click,     1 A A r ! A ! A ! A ! A qA  1                       
      )   8                        label      label      xLabel4      FORM1      xCaption = " 4. Zusatzversorgungspflichtiges Entgelt"
Height = 16
Left = 21
Top = 255
Width = 224
Name = "xLabel4"
      optiongroup      optiongroup      Optiongroup4      FORM1     FButtonCount = 5
Value = 0
Height = 69
Left = 32
Top = 276
Width = 396
Name = "Optiongroup4"
Option1.Caption = "neutral (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 4
Option1.Width = 185
Option1.Name = "Option1"
Option2.Caption = "umlagemindernd (1)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 25
Option2.Width = 185
Option2.Name = "Option2"
Option3.Caption = "beitragsmindernd (2)"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 45
Option3.Width = 185
Option3.Name = "Option3"
Option4.Caption = "umlageerhhend (3)"
Option4.Height = 17
Option4.Left = 211
Option4.Top = 25
Option4.Width = 177
Option4.Name = "Option4"
Option5.Caption = "beitragserhhend (4)"
Option5.Height = 17
Option5.Left = 211
Option5.Top = 45
Option5.Width = 178
Option5.Name = "Option5"
     ~PROCEDURE Click
If SRstart = True 
	RETURN
ENDIF
 
myindex = thisform.optiongroup4.Value - 1
 
do Case &&zti
Case zti = 40 && Sachbezge
     If thisform.Combo1.ListIndex > 12 And myindex = 3 
     	myindex = 1
     endif
     If thisform.Combo1.ListIndex > 12 And myindex = 4 
     	myindex = 2
     endif
     If thisform.Combo1.ListIndex < 13 And myindex = 1 
     	myindex = 3
     endif
     If thisform.Combo1.ListIndex < 13 And myindex = 2 
     	myindex = 4
     endif
     Schlssel(40,1+ 4) = myindex 
*     ZVKWirkung(Index).Value = True
Case zti = 41 &&Einbehalte
     If thisform.Combo1.ListIndex > 24 And myindex = 1 
     	myindex = 3
     endif
     If thisform.Combo1.ListIndex > 24 And myindex = 2 
     	myindex = 4
     endif
     If thisform.Combo1.ListIndex < 25 And myindex = 3 
     	myindex = 1
     endif
     If thisform.Combo1.ListIndex < 25 And myindex = 4 
     	myindex = 2
     endif
     Schlssel(41,1+ 4) = myindex 
*     ZVKWirkung(Index).Value = True
Case zti = 24
*!*	     'If zi(24) < 13 And myindex = 1 Then myindex = 2
*!*	     'If zi(24) > 12 And myindex = 2 Then myindex = 1
     Schlssel(40,1+ 4) = myindex 
Case zti = 47
*!*	     'If zi(47) < 13 And myindex = 1 Then myindex = 2
*!*	     'If zi(47) > 12 And myindex = 2 Then myindex = 1
     Schlssel(41,1+ 4) = myindex 
Case zti = 42 .or. zti = 43 .or. zti = 44
     If zi(zti) < 25 And myindex = 2 
     	myindex = 1
     endif
     If zi(zti) > 24 And myindex = 1 
     	myindex = 2
     endif
     Schlssel(zti,1+ 4) = myindex 
Endcase
*ZVKWirkung(Index).Value = True
thisform.bertragen.click
ENDPROC
                                   s   %         G  1               U  5 %     B  T    
 H= !  (3" %     	} 
 T  " %     	 
 T  " %   

  	 
 T  " %   

  	
 T   T	 (   ))" %     	s
 T  " %     	
 T  " %   
  	
 T  " %   
  	
 T   T	 )   S T	 (   /} T	 ) '  *  +  ,!! %C  
 
  	
 T  ! %C  
   	
 T   T	    
     U
  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP4 VALUE ZTI COMBO1	 LISTINDEX	 SCHLSSEL ZI
 BERTRAGEN CLICK Click,     1 A A r ! A ! A ! A ! A ! A ! A ! A ! A q A  A A  1                       s      )                           label      label      xLabel5      FORM1      hCaption = " 5. Pauschalversteuerung"
Height = 16
Left = 21
Top = 355
Width = 146
Name = "xLabel5"
      optiongroup      optiongroup      Optiongroup5      FORM1     ButtonCount = 8
Value = 0
Height = 86
Left = 32
Top = 392
Width = 396
Name = "Optiongroup5"
Option1.Caption = "0 % (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 4
Option1.Width = 193
Option1.Name = "Option1"
Option2.Caption = "15 % (1)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 193
Option2.Name = "Option2"
Option3.Caption = "20 % (2)"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 44
Option3.Width = 193
Option3.Name = "Option3"
Option4.Caption = "25 % (3)"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 63
Option4.Width = 193
Option4.Name = "Option4"
Option5.Caption = "0 % (4)"
Option5.Height = 17
Option5.Left = 211
Option5.Top = 4
Option5.Width = 174
Option5.Name = "Option5"
Option6.Caption = "15 % (5)"
Option6.Height = 17
Option6.Left = 211
Option6.Top = 24
Option6.Width = 174
Option6.Name = "Option6"
Option7.Caption = "20 % (6)"
Option7.Height = 17
Option7.Left = 211
Option7.Top = 44
Option7.Width = 174
Option7.Name = "Option7"
Option8.Caption = "25 % (7)"
Option8.Height = 17
Option8.Left = 211
Option8.Top = 63
Option8.Width = 174
Option8.Name = "Option8"
     PROCEDURE Click
If SRstart = True 
	RETURN
ENDIF

myindex = thisform.optiongroup5.Value - 1
 
do Case &&zti
Case zti = 40
     If Combo1.ListIndex > 12 And myindex > 0 
     	myindex = 0
     endif
     Schlssel(40,1+ 5) = myindex 
     If myindex > 0 
        Schlssel(40,1+ 2) = 0
        thisform.optiongroup2.Value = 1
     ENDIF
     thisform.optiongroup5.Value = myindex + 1
*     Pausch(Index).Value = True
     
Case zti = 41
     If zi(1+47) > 12 And myindex > 0 
     	myindex = 0
     endif
     Schlssel(41,1+ 5) = myindex 
     If myindex > 0 
        Schlssel(41,1+ 2) = 0
        thisform.optiongroup2.Value = 1
     ENDIF
	 thisform.optiongroup5.Value = myindex + 1
*     Pausch(Index).Value = True

Case zti = 24
     If zi(1+24) > 12 And myindex > 0 
     	myindex = 0
     endif
     Schlssel(40,1+ 5) = myindex 
Case zti = 47
     If zi(1+47) > 12 And myindex > 0 
     	myindex = 0
     endif
     Schlssel(41,1+ 5) = myindex 
Case zti = 42 .or. zti = 43 .or. zti = 44
     Schlssel(zti,1+ 5) = myindex 
     If Schlssel(zti,1+ 2) > 0 
     	Schlssel(zti,1+ 2) = 0
     endif
Endcase

thisform.bertragen.click

ENDPROC
     Z    A  A                        XY   %           ,               U   %     B  T    
 H=   (  %     	z 
 T    T	 (  %    T	 (  T 
    T      )  %C0    	-
 T    T	 )  %   T	 )  T 
    T        %C    	
 T    T	 (   /X  %C0    	;
 T    T	 ) '  *  +  , T	    %C  	   T	     
   
  U  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP5 VALUE ZTI COMBO1	 LISTINDEX	 SCHLSSEL OPTIONGROUP2 ZI
 BERTRAGEN CLICK Click,     1 A A r  A 1A q A 1A q A  A qA A  2                             )   A                        label      label      Label6      FORM1      jCaption = "durch den Arbeit g e b e r "
Height = 16
Left = 38
Top = 373
Width = 146
Name = "Label6"
      label      label      Label7      FORM1      lCaption = "durch den Arbeit n e h m e r"
Height = 16
Left = 244
Top = 374
Width = 155
Name = "Label7"
      shape      shape      Shape6      FORM1      TTop = 507
Left = 12
Height = 55
Width = 425
SpecialEffect = 0
Name = "Shape6"
      optiongroup      optiongroup      Optiongroup6      FORM1     ButtonCount = 2
Value = 0
Height = 31
Left = 32
Top = 519
Width = 396
Name = "Optiongroup6"
Option1.Caption = "NEIN (0)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 196
Option1.Name = "Option1"
Option2.Caption = "JA (1)"
Option2.Height = 17
Option2.Left = 213
Option2.Top = 6
Option2.Width = 178
Option2.Name = "Option2"
     PROCEDURE Click
If SRstart = True 
	RETURN
ENDIF
 
myindex = thisform.optiongroup6.Value - 1

do Case &&zti
Case zti = 40
     Schlssel(40,1+ 6) = myindex 
     If thisform.Combo1.ListIndex > 12 
     	Schlssel(40,1+ 6) = 0
     	thisform.optiongroup6.Value = 1
*     	AGauf(0).Value = True
     endif
Case zti = 41
     Schlssel(41,1+ 6) = myindex 
     If thisform.Combo1.ListIndex < 25 
     	Schlssel(41,1+ 6) = 0
 *    	AGauf(0).Value = True
     	thisform.optiongroup6.Value = 1     	
     endif
Case zti = 24
     Schlssel(40,1+ 6) = myindex 
Case zti = 47
     Schlssel(41,1+ 6) = myindex 
Case zti = 42 .or. zti = 43 .or. zti = 44
     Schlssel(zti,1+ 6) = myindex 
Endcase
thisform.bertragen.click
ENDPROC
                                   }   %   d           s            U   %     B  T    
 H=   (  T (  %  	   T (  T      ) T )  %  	 
 T )  T      I T (   /s T ) '  *  +  , T    
  
   U  SRSTART TRUE MYINDEX THISFORM OPTIONGROUP6 VALUE ZTI	 SCHLSSEL COMBO1	 LISTINDEX
 BERTRAGEN CLICK Click,     1 A A r q1B q2A qA  1                             )                           label      label      xLabel8      FORM1      gCaption = " 6. Arbeitgeberaufwand "
Height = 16
Left = 21
Top = 501
Width = 131
Name = "xLabel8"
      
commandbutton      
commandbutton      
Vorschrift      FORM1      RTop = 0
Left = 1
Height = 25
Width = 110
Caption = ""
Name = "Vorschrift"
      PROCEDURE Click
If zti = 40 
   myindexe = 24
Else
   myindexe = 42
ENDIF

zi(1+myindexe) = thisform.Combo1.ListIndex

If zi(1+myindexe) < 0 
   zi(1+myindexe) = 0
endif
DO paraktiv
ENDPROC
         l  l                        qk   %          #                 U    %  ( 
 T  3 
 T *  T      %C   
  T       U  ZTI MYINDEXE ZI THISFORM COMBO1	 LISTINDEX PARAKTIV Click,     1    A qA q 1                              )   l                        
commandbutton      
commandbutton      Hilfe      FORM1      RTop = 0
Left = 112
Height = 25
Width = 110
Caption = "Hilfe"
Name = "Hilfe"
      CPROCEDURE Click
inet = 111
Msg = "102"
DO insinternet
ENDPROC
                                      5   %   o             ~             U  ' 
 T  o T  102   U  INET MSG INSINTERNET Click,     1  q 1                       8       )                            
commandbutton      
commandbutton      bertrag      FORM1      xTop = 0
Left = 223
Height = 25
Width = 110
Caption = "bernehmen"
Enabled = .F.
Visible = .F.
Name = "bertrag"
      IPROCEDURE Click
thisform.bertragen.click
thisform.release

ENDPROC
                                         %   p                          U   
     
     U  THISFORM
 BERTRAGEN CLICK RELEASE Click,     1   2                       >       )                            
commandbutton      
commandbutton      	Schlieen      FORM1      ZTop = 0
Left = 334
Height = 25
Width = 110
Caption = "Schlieen"
Name = "Schlieen"
      PROCEDURE Click
DO keinnettogehalt
IF zti <> 40 .and. zti <> 41
	DO folgemonatneu
	DO berechnungauslsen
endif
thisform.Release

*thisform.Tag = hsoldcaption
*thisform.release

ENDPROC
     ?    &  &                        u   %                             U  B     % (  )	1      
    U  KEINNETTOGEHALT ZTI
 FOLGEMONATNEU BERECHNUNGAUSLSEN THISFORM RELEASE Click,     1 q q q A  5                              )   &                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 555
Left = 429
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
bertragen      FORM1      {Top = 18
Left = 225
Height = 16
Width = 109
Caption = "bertragen"
Enabled = .F.
Visible = .F.
Name = "bertragen"
     gPROCEDURE Click
If SRVorgaben = True
	If SRstart = True
		Return
	Endif

	thisform.SRVorgabenSpeichern.click
	Return
Endif
 
Do Case &&zti
	Case zti = 24
		Schlsse(40) = ""
		For i = 1 To 6
			Schlsse(40) = Alltrim(Schlsse(40)) + ALLTRIM(STR(Schlssel(40,1+ i),10,0)) &&vorher Alltrim(Str(Schlssel(40, i),2,0))
		Next
		wvw.schlss(40) = Schlsse(40)
		myPut(Monat, fileneu, "wvw")
		*   Unload Sonderregelungen
		myform1.SR24.Caption = Schlsse(40)
		lastclick = 0
		lschl = 24
		lastschl = Schlsse(40)
*		Do folgemonatneu
		&&Unload Sonderregelungen
		&&berechnungauslsen

	Case zti = 47
		Schlsse(41) = ""
		For i = 1 To 6
			Schlsse(41) = Alltrim(Schlsse(41)) + ALLTRIM(STR(Schlssel(41,1+ i),10,0)) &&vorhet Alltrim(Str(Schlssel(41, i),2,0))
		Next
		wvw.schlss(41) = Schlsse(41)
		myPut(Monat, fileneu, "wvw")
		*    Unload Sonderregelungen
		myform1.SR47.Caption = Schlsse(41)
		lastclick = 0
		lschl = 47
		lastschl = Schlsse(41)
*		Do folgemonatneu
		&&Unload Sonderregelungen
		&&berechnungauslsen

	Case zti = 42 .Or. zti = 43 .Or. zti = 44
		Schlsse(zti) = ""
		For i = 1 To 6
			Schlsse(zti) = Alltrim(Schlsse(zti)) + ALLTRIM(STR(Schlssel(zti,1+ i),10,0)) &&vorher Alltrim(Str(Schlssel(zti, i),2,0))
		Next
		wvw.schlss(zti) = Schlsse(zti)
		myPut(Monat, fileneu, "wvw")
		*     Unload Sonderregelungen
		xxx=Alltrim(Str(zti,4,0))
		myform1.SR&xxx..Caption = Schlsse(zti)
		lastclick = 0
		lschl = zti
		lastschl = Schlsse(zti)
*		Do folgemonatneu
		&&Unload Sonderregelungen
		&&berechnungauslsen

Endcase
*Sonderregelungen.Show
ENDPROC
                                      %   9        -   H            U  G %   ;  %  &  B 
     B 
 HL @  1 T (    ( 2 T (CC( CCC( 	 
 Z  T
  (C(  C 
    wvw  T   C( 
 T  
 T  T C(   / T )    (2 T )CC) CCC) 	 
 Z  T
  )C)  C 
    wvw  T   C) 
 T  
 T / T C) '  *  +  ,@ T      (4 T  CC   CCC   	 
 Z  T
   C    C 
    wvw  T CC  Z+ myform1.SR&xxx..Caption = Schlsse(zti)

 T  
 T   T C     U 
 SRVORGABEN TRUE SRSTART THISFORM SRVORGABENSPEICHERN CLICK ZTI SCHLSSE I	 SCHLSSEL WVW SCHLSS MYPUT MONAT FILENEU MYFORM1 SR24 CAPTION	 LASTCLICK LSCHL LASTSCHL SR47 XXX Click,     1 A A  A A  1q!A r  1q!A r  u1qAA r  !E 2                       \      )                           
commandbutton      
commandbutton      SRVorgabenSpeichern      FORM1      Top = 15
Left = 321
Height = 18
Width = 79
Caption = "SRVorgabenSpeichern"
Enabled = .F.
Visible = .F.
Name = "SRVorgabenSpeichern"
     EPROCEDURE Click
Msg = ""
j = thisform.Combo1.ListIndex
For i = 1 To 6
	Msg = Msg + STR(Abs(Schlssel(zti,1+ i)),10,0)
Next
If zti = 40 
	vorein.vorsachbezug(j) = Msg
Else
	vorein.voreinbehalt(j) = Msg
EndIf
myPut(19, welchesjahr - Jahr1 + 1, "vorein") &&hs
&&Unload Sonderregelungen'hr1 + 1, vorein 'hs
ENDPROC
                                      %   v        
               U   
 T     T      (^ ' T    CCC    
 Z  % (  T 	       T 
     ! C 
  vorein  U  MSG J THISFORM COMBO1	 LISTINDEX I	 SCHLSSEL ZTI VOREIN VORSACHBEZUG VOREINBEHALT MYPUT WELCHESJAHR JAHR1 Click,     1  1qqA a aA 2                       :      )                           combobox      combobox      Combo1      FORM1      @Height = 25
Left = 11
Top = 32
Width = 424
Name = "Combo1"
     PROCEDURE InteractiveChange
i = thisform.Combo1.ListIndex
SRstart = True
do Case &&zti
Case zti = 40 &&Sachbezge

*     DO sachbezgeanlegen


	thisform.optiongroup1.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),1,1)))
	thisform.optiongroup2.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),2,1)))
	thisform.optiongroup3.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),3,1)))
	thisform.optiongroup4.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),4,1)))
	thisform.optiongroup5.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),5,1)))
	thisform.optiongroup6.Value = INT(VAL(SUBSTR(vorein.vorsachbezug(i),6,1)))


Case zti = 41 &&Einbehalte
     i = thisform.Combo1.ListIndex
     If i < 25
 *       DO einbehaltanlegen
     Else
 *    	DO auszahlunganlegen
     endif

	thisform.optiongroup1.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),1,1)))
	thisform.optiongroup2.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),2,1)))
	thisform.optiongroup3.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),3,1)))
	thisform.optiongroup4.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),4,1)))
	thisform.optiongroup5.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),5,1)))
	thisform.optiongroup6.Value = INT(VAL(SUBSTR(vorein.voreinbehalt(i),6,1)))

Endcase
SRstart = False


ENDPROC
                                    y   %   Q           l            U  g T     
 T  
 H- S  ((' T   CCCC   	 
 \g8' T   CCCC   	 
 \g8' T   CCCC   	 
 \g8' T 
  CCCC   	 
 \g8' T   CCCC   	 
 \g8' T   CCCC   	 
 \g8  )S T      %  
] e ' T   CCCC   	  \g8' T   CCCC   	  \g8' T   CCCC   	  \g8' T 
  CCCC   	  \g8' T   CCCC   	  \g8' T   CCCC   	  \g8 
 T   U  I THISFORM COMBO1	 LISTINDEX SRSTART TRUE ZTI OPTIONGROUP1 VALUE VOREIN VORSACHBEZUG OPTIONGROUP2 OPTIONGROUP3 OPTIONGROUP4 OPTIONGROUP5 OPTIONGROUP6 VOREINBEHALT FALSE InteractiveChange,     1 1  uqqqqq1 B rqqqqqB  3                             )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
01   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LL1BXDNM1216197300      /  F      ]                                                       WINDOWS _4LL1BXDNN1533955489                                                                     WINDOWS _4LL1BXDNO1414956591
          4   F   S                                                          WINDOWS _4LL1BXDNP1414956591!      !  !  	"  "      "  "                                               WINDOWS _4LL1BXDNQ1414956591#      #  #  #  #                                                           WINDOWS _4LL1BXDNR1414956591$      +$  8$  F$  S$                                                           WINDOWS _4LL1BXDNS1414956591$      $  $  $  $                                                           WINDOWS _4LL1BXDNT1414956591@%      M%  Z%  h%  u%                                                           WINDOWS _4LL1BXDNU1414956591%      %  %  %  &                                                           WINDOWS _4LL1BXDNV1414956591&      &  &  &  &                                                           WINDOWS _4LL1BXDNW1414956591@'      M'  Z'  j'  w'                                                           WINDOWS _4LL1BXDNX1414956591'      	(  (  &(  3(                                                           WINDOWS _4LL1BXDNY1414956591(      (  (  (  (                                                           WINDOWS _4LL1BXDNZ1414956591U)      b)  o)  })  )                                                           WINDOWS _4LL1BXDO01419407471)       *  *  *  ,*      *  =+                                               WINDOWS _4LL1BXDO11419407471,      #,  2,  B,  O,      -  a-                                               WINDOWS _4LL1BXDO214149565918.      E.  R.  `.  m.      .  	/                                               WINDOWS _4LL1BXDO31419407500/      /  /  0  0                                                           WINDOWS _4LL1BXDO414194074710      0  0  0  0      1  1                                               WINDOWS _4LL1BXDO514194074712      2  2  2  3      3  4                                               WINDOWS _4LL1BXDO614194074714      4  5  5  )5      5  	6                                               WINDOWS _4LL1BXDO714194074716      6  6  7  7      7  .8                                               WINDOWS _4LL1BXDO814194074719      9  #9  39  @9      :  R:                                               WINDOWS _4LL1BXDO91419407471);      8;  G;  W;  d;      2<  v<                                               WINDOWS _4LL1BXDOA1419407471M=      \=  k=  {=  =      $>  h>                                               WINDOWS _4LL1BXDOB1419407471??      N?  ]?  m?  z?      I@  @                                               WINDOWS _4LL1BXDOC1414956591dA      sA  A  A  A                                                           WINDOWS _4LL1BXDOD14149565915B      DB  SB  aB  nB                                                           WINDOWS _4LL1BXDOE1414956591C      C  %C  5C  BC                                                           WINDOWS _4LL1BXDOF1414956591C      C  C  D  D                                                           WINDOWS _4LL1BXDOG1414956591D      D  D  D  D      PE  E                                               WINDOWS _4LL1BXDOH1414956591VF      cF  pF  ~F  F      F  (G                                               WINDOWS _4LL1BXDOI1414956591G      H  H  "H  /H      H  H                                               WINDOWS _4LL1BXDOJ1414956591I      I  I  I  I      <J  qJ                                               WINDOWS _4LL1BXDOK1414956591BK      OK  \K  kK  xK                                                           WINDOWS _4LL1BXDOL1414956591K      K  L  L  )L                                                           WINDOWS _4LL1BXDOM1414956591L      L  L  L  L                                                           WINDOWS _4LL1BXDON1414956591;M      HM  UM  dM  qM                                                           WINDOWS _4LL1BXDOO1414956591M      M  M  N  N      wN  N                                               WINDOWS _4LL1BXDOP1414956591}O      O  O  O  O                                                           WINDOWS _4LL1BXDOQ1414956591P      *P  7P  FP  SP                                                           WINDOWS _4LL1BXDOR1414956591P      P  P  P  P                                                           WINDOWS _4LL1BXDOS1414956591]Q      jQ  wQ  Q  Q                                                           WINDOWS _4X30WS8TC1414956591Q  
R  -R  <R  IR  VR                                                           WINDOWS _5VB0JHNKV1414956591R      R  S   S  -S      S  VU                                               WINDOWS _5VB0LB7WC1533955489PW      eW  zW  W  W      )X  [                                               WINDOWS _5VB0M2PL11362580045X_      e_  r_  _  _                                                           COMMENT RESERVED                                	`                                                            `T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 351
Width = 769
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Teilzeitfaktoren bei Deputatsnderung im"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
Public myzahlenrechnen
myzahlenrechnen = Thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.label2.caption = "Da die VWL nach dem Teilzeitfaktor zum Monatsersten gewhrt"+CHR(13)+"wird, das Programm aber nur mit dem Teilzeitfaktor fr den"+CHR(13)+"gesamten Monat rechnen kann, mssen Sie die VWL manuell"+CHR(13)+"errechnen und in Zeile 10 eintragen."
*!*	myzahlenrechnen.Top = myform1.Top
*!*	myzahlenrechnen.Left = myform1.Left
For i = 2 To 5
	&&    Aufab(i).Tag = 1000
Next

Do monatladen &&Do attached

myzahlenrechnen.Caption = myzahlenrechnen.Caption + " " + sumonattext(1+zi(1+20))

For i = 0 To 3
	For j = 0 To 3
		sichts(1+i,1+ j) = 0
	Next
NEXT

If zi(1+21) = 0
	myzahlenrechnen.Deptage0.Value = wert(1+2) / 100000
	myzahlenrechnen.Deptage0.spinnerhighvalue = myzahlenrechnen.Deptage0.Value
	myzahlenrechnen.Deptage1.spinnerhighvalue = myzahlenrechnen.Deptage0.Value
	myzahlenrechnen.Deptage0.keyboardhighvalue = myzahlenrechnen.Deptage0.Value
	myzahlenrechnen.Deptage1.keyboardhighvalue = myzahlenrechnen.Deptage0.Value
	
	myzahlenrechnen.Deptage1.Value = 0
	myzahlenrechnen.Deptage2.Value = Fix(wert(1+1) / 100000)
	myzahlenrechnen.Deptage4.Value = Fix(wert(1+0) / 100000)

	myzahlenrechnen.Deptage3.Value = Fix(wert(1+1) / 100000)
	myzahlenrechnen.Deptage5.Value = Fix(wert(1+0) / 100000)

	myzahlenrechnen.Deptage6.Value = 60 * (wert(1+1) / 100000 - Fix(wert(1+1) / 100000))
	myzahlenrechnen.Deptage7.Value = 60 * (wert(1+1) / 100000 - Fix(wert(1+1) / 100000))
	myzahlenrechnen.Deptage8.Value = 60 * (wert(1+0) / 100000 - Fix(wert(1+0) / 100000))
	myzahlenrechnen.Deptage9.Value = 60 * (wert(1+0) / 100000 - Fix(wert(1+0) / 100000))
Else
	Do Case && zi(1+4)
		Case zi(1+4) < 6 &&Beamte
			Op1 = vorein.vorwochenstunden(zi(1+2), 0)
		Case zi(1+4) = 10 &&TVd-Bund
			Op1 = vorein.vorwochenstunden(zi(1+2), 1)
		Case zi(1+4) = 11 &&TV-L
			Op1 = vorein.vorwochenstunden(zi(1+2), 2)
		Case zi(1+4) = 12 &&TVD-Gemeinden
			Op1 = vorein.vorwochenstunden(zi(1+2), 3)
		Case zi(1+4) = 13 &&TVD-Pflege
			Op1 = vorein.vorwochenstunden(zi(1+2), 4)
		Case zi(1+4) = 14 && Sozial
			Op1 = vorein.vorwochenstunden(zi(1+2), 6)
		Case zi(1+4) = 15 &&rzte
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 3) .Or. (zi(1+5) >= 8 .And. zi(1+5) <= 11)
					Op1 = vorein.vorwochenstunden(zi(1+2), 7)
				Case (zi(1+5) >= 4 .And. zi(1+5) <= 7) .Or.  zi(1+5) > 11
					Op1 = vorein.vorwochenstunden(zi(1+2), 8)
			Endcase
		Case  Inlist(zi(1+4), 16, 17 )&&Krankenhaus
			Op1 = vorein.vorwochenstunden(zi(1+2), 5)
		Case  Inlist(zi(1+4), 22, 23 )&&Betriebe
			Op1 = vorein.vorwochenstunden(zi(1+2), 9)
		Case  Inlist(zi(1+4), 8, 9 )&&Caritas
			Op1 = vorein.vorwochenstunden(zi(1+2), 10)
		Case zi(1+4) = 7 .Or. zi(1+4) =  8 .Or. (zi(1+4) >= 18 .And. zi(1+4) <= 21) .Or. (zi(1+4) >= 24 .And. zi(1+4) <= 37)&&Sonstige
			Op1 = vorein.vorwochenstunden(zi(1+2), 11)
	Endcase

	Op2 = 333
	myzahlenrechnen.Deptage4.Value = Fix(Op1 / 100)
	myzahlenrechnen.Deptage5.Value = Fix(Op1 / 100)
	myzahlenrechnen.Deptage8.Value = 60 * (Op1 / 100 - Fix(Op1 / 100))
	myzahlenrechnen.Deptage9.Value = 60 * (Op1 / 100 - Fix(Op1 / 100))

	j = (myzahlenrechnen.Deptage4.Value * 60 + myzahlenrechnen.Deptage8.Value) * teilzeitfaktor
	k = Fix(j / 60)
	l = j - k * 60
	myzahlenrechnen.Deptage2.Value = k
	myzahlenrechnen.Deptage3.Value = k
	myzahlenrechnen.Deptage6.Value = l
	myzahlenrechnen.Deptage7.Value = l
	Op2 = 0
Endif
Do Deputatberechnung &&Do attached


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     N    5  5                        z   %           Y   *            U    C     U  THISFORM SIZER	 FRMRESIZE	 7  
 T    %   
8  T    T   ; Da die VWL nach dem Teilzeitfaktor zum Monatsersten gewhrtC
 : wird, das Programm aber nur mit dem Teilzeitfaktor fr denC
 7 gesamten Monat rechnen kann, mssen Sie die VWL manuellC
 $ errechnen und in Zeile 10 eintragen.  (T   ( T        CC     ( 	  (! T
  	     %C   T    C
   T         T         T         T         T     " T    CC
   " T    CC
   " T    CC
   " T    CC
   6 T    <C
  CC
   6 T    <C
  CC
   6 T    <C
  CC
   6 T    <C
  CC
    K
 H
 C 
- T CC     C 
] T CC    C  T CC    C  T CC    C 
 T CC    C  T CC    C 
 H?D C   C 	 C  C 	 T CC   4 C  C 	 C  T CC     CC % T CC    CC Y T CC 	   CC 	 T CC 
  b C  C  C  C 	 C  C %	
 T CC     T M T    C d  T    C d ( T    < dC d ( T    < dC d & T	     <      T C	 <  T  	  < T      T      T       T      
 T    !  % " # $  T% C$  " # T 
 T%  
  & '  T "  " # %  T (  ( # % 
  )  T * a U+  MYZAHLENRECHNEN THISFORM TOP LABEL2 CAPTION I
 MONATLADEN SUMONATTEXT ZI J SICHTS DEPTAGE0 VALUE WERT SPINNERHIGHVALUE DEPTAGE1 KEYBOARDHIGHVALUE DEPTAGE2 FIX DEPTAGE4 DEPTAGE3 DEPTAGE5 DEPTAGE6 DEPTAGE7 DEPTAGE8 DEPTAGE9 OP1 VOREIN VORWOCHENSTUNDEN OP2 TEILZEITFAKTOR K L DEPUTATBERECHNUNG HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 q  AA sB r rqA A R2!!"!baaa  QQQQQQQ AAA !A  bQQ1111 A q   A    1                       ,         G         )   5                        
commandbutton      
commandbutton      
SSCommand3      FORM1      [Top = 282
Left = 634
Height = 28
Width = 106
Caption = "Drucken"
Name = "SSCommand3"
      4PROCEDURE Click
thisform.printform.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 PRINTFORM CLICK Click,     1  1                       )       )                            
commandbutton      
commandbutton      
SSCommand2      FORM1      kTop = 315
Left = 634
Height = 28
Width = 106
Cancel = .T.
Caption = "Schlieen"
Name = "SSCommand2"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            shape      shape      Shape1      FORM1      STop = 2
Left = 12
Height = 252
Width = 123
SpecialEffect = 0
Name = "Shape1"
      shape      shape      Shape2      FORM1      TTop = 2
Left = 135
Height = 252
Width = 150
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape3      FORM1      TTop = 2
Left = 285
Height = 252
Width = 153
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape4      FORM1      TTop = 2
Left = 438
Height = 252
Width = 321
SpecialEffect = 0
Name = "Shape4"
      label      label      SSpanel5      FORM1      vFontBold = .F.
FontSize = 12
Caption = "Zeitrume"
Height = 22
Left = 40
Top = 5
Width = 75
Name = "SSpanel5"
      label      label      SSPanel6      FORM1      {FontBold = .F.
FontSize = 12
Caption = "pers. Deputat"
Height = 22
Left = 157
Top = 5
Width = 97
Name = "SSPanel6"
      label      label      SSPanel7      FORM1      }FontBold = .F.
FontSize = 12
Caption = "tarifl. Deputat"
Height = 22
Left = 310
Top = 5
Width = 96
Name = "SSPanel7"
      label      label      SSPanel8      FORM1      FontBold = .F.
FontSize = 12
Caption = "Teilzeitfaktoren"
Height = 22
Left = 537
Top = 5
Width = 112
Name = "SSPanel8"
      label      label      Label5      FORM1      ^FontSize = 12
Caption = "1."
Height = 24
Left = 26
Top = 56
Width = 22
Name = "Label5"
      label      label      Label6      FORM1      _FontSize = 12
Caption = "2."
Height = 24
Left = 29
Top = 116
Width = 22
Name = "Label6"
      spinner      spinner      deptage0      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 31
KeyboardLowValue = 0
Left = 49
SpinnerHighValue =  31.00
SpinnerLowValue =   0.00
Top = 54
Width = 56
Name = "deptage0"
      <PROCEDURE InteractiveChange
DO dep_change WITH 0
ENDPROC
                                      6v   %   L       m      g             U   
     U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage1      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 31
KeyboardLowValue = 0
Left = 49
SpinnerHighValue =  31.00
SpinnerLowValue =   0.00
Top = 111
Width = 56
Name = "deptage1"
      <PROCEDURE InteractiveChange
DO dep_change WITH 1
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            label      label      Label7      FORM1      _FontSize = 12
Caption = "2."
Height = 24
Left = 70
Top = 148
Width = 14
Name = "Label7"
      -PROCEDURE Init
this.caption="="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       "       )                            textbox      textbox      SUTage      FORM1      FontSize = 12
Enabled = .F.
Height = 26
InputMask = "99"
Left = 49
Top = 177
Width = 56
DisabledForeColor = 0,0,0
Name = "SUTage"
      spinner      spinner      deptage2      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 50
KeyboardLowValue = 0
Left = 144
SpinnerHighValue =  50.00
SpinnerLowValue =   0.00
Top = 54
Width = 56
Name = "deptage2"
      <PROCEDURE InteractiveChange
DO dep_change WITH 2
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage6      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 60
KeyboardLowValue = 0
Left = 216
SpinnerHighValue =  60.00
SpinnerLowValue =   0.00
Top = 54
Width = 56
Name = "deptage6"
      <PROCEDURE InteractiveChange
DO dep_change WITH 6
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage3      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardLowValue = 0
Left = 141
SpinnerLowValue =   0.00
Top = 111
Width = 56
Name = "deptage3"
      <PROCEDURE InteractiveChange
DO dep_change WITH 3
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage7      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 60
KeyboardLowValue = 0
Left = 213
SpinnerHighValue =  60.00
SpinnerLowValue =   0.00
Top = 111
Width = 56
Name = "deptage7"
      <PROCEDURE InteractiveChange
DO dep_change WITH 7
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage4      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 50
KeyboardLowValue = 0
Left = 297
SpinnerHighValue =  50.00
SpinnerLowValue =   0.00
Top = 54
Width = 56
Name = "deptage4"
      <PROCEDURE InteractiveChange
DO dep_change WITH 4
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage8      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 60
KeyboardLowValue = 0
Left = 369
SpinnerHighValue =  60.00
SpinnerLowValue =   0.00
Top = 54
Width = 56
Name = "deptage8"
      <PROCEDURE InteractiveChange
DO dep_change WITH 8
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage5      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardLowValue = 0
Left = 297
SpinnerLowValue =   0.00
Top = 111
Width = 56
Name = "deptage5"
      <PROCEDURE InteractiveChange
DO dep_change WITH 5
ENDPROC
                                      6v   %   L       m      g             U   
    U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            spinner      spinner      deptage9      FORM1      FontSize = 12
Height = 26
InputMask = "99"
KeyboardHighValue = 60
KeyboardLowValue = 0
Left = 369
SpinnerHighValue =  60.00
SpinnerLowValue =   0.00
Top = 111
Width = 56
Name = "deptage9"
      <PROCEDURE InteractiveChange
DO dep_change WITH 9
ENDPROC
                                      6v   %   L       m      g             U   
   	 U 
 DEP_CHANGE InteractiveChange,     1  1                       1       )                            textbox      textbox      supers      FORM1      FontSize = 12
Enabled = .F.
Format = "9,9999999"
Height = 28
Left = 627
Top = 59
Width = 119
DisabledForeColor = 0,0,0
Name = "supers"
      textbox      textbox      SuNorm      FORM1      FontSize = 12
Enabled = .F.
Format = "9,9999999"
Height = 28
Left = 627
Top = 116
Width = 119
DisabledForeColor = 0,0,0
Name = "SuNorm"
      textbox      textbox      TZFaktor      FORM1      FontSize = 12
Enabled = .F.
Format = "9,9999999"
Height = 28
Left = 627
Top = 182
Width = 119
DisabledForeColor = 0,0,0
Name = "TZFaktor"
      textbox      textbox      Ergebnis      FORM1      FontSize = 12
Enabled = .F.
Format = "9999999,99"
Height = 28
Left = 627
Top = 220
Width = 119
DisabledForeColor = 0,0,0
Name = "Ergebnis"
      label      label      Label8      FORM1      _FontSize = 12
Caption = "2."
Height = 24
Left = 447
Top = 62
Width = 15
Name = "Label8"
      -PROCEDURE Init
this.caption="="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       "       )                            label      label      Label9      FORM1      `FontSize = 12
Caption = "2."
Height = 24
Left = 447
Top = 119
Width = 15
Name = "Label9"
      -PROCEDURE Init
this.caption="="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       "       )                            label      label      Label10      FORM1      aFontSize = 12
Caption = "2."
Height = 24
Left = 677
Top = 153
Width = 14
Name = "Label10"
      -PROCEDURE Init
this.caption="="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       "       )                            label      label      Label11      FORM1      `FontSize = 12
Caption = "2."
Height = 20
Left = 677
Top = 90
Width = 14
Name = "Label11"
      -PROCEDURE Init
this.caption="+"

ENDPROC
                                      D   %   S       g      a             U    T    + U  THIS CAPTION Init,     1 2                       "       )                            label      label      Label12      FORM1      rFontSize = 10
Caption = "entspricht in Euro"
Height = 22
Left = 462
Top = 223
Width = 152
Name = "Label12"
      label      label      erlpers0      FORM1      eFontSize = 10
Caption = "label"
Height = 22
Left = 465
Top = 63
Width = 149
Name = "erlpers0"
      label      label      erlpers1      FORM1      fFontSize = 10
Caption = "Label"
Height = 22
Left = 468
Top = 120
Width = 149
Name = "erlpers1"
      label      label      Label15      FORM1      aFontSize = 10
Caption = "Tage"
Height = 22
Left = 58
Top = 30
Width = 39
Name = "Label15"
      label      label      Label16      FORM1      _FontSize = 12
Caption = "2."
Height = 20
Left = 70
Top = 88
Width = 14
Name = "Label16"
      -PROCEDURE Init
this.caption="+"

ENDPROC
                                      D   %   S       g      a             U    T    + U  THIS CAPTION Init,     1 2                       "       )                            label      label      Label17      FORM1      bFontSize = 10
Caption = "Std."
Height = 22
Left = 159
Top = 30
Width = 32
Name = "Label17"
      label      label      Label18      FORM1      bFontSize = 10
Caption = "Min."
Height = 22
Left = 228
Top = 30
Width = 32
Name = "Label18"
      label      label      Label19      FORM1      bFontSize = 10
Caption = "Std."
Height = 22
Left = 314
Top = 30
Width = 32
Name = "Label19"
      label      label      Label20      FORM1      bFontSize = 10
Caption = "Min."
Height = 22
Left = 383
Top = 30
Width = 32
Name = "Label20"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 333
Left = 744
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
SSCommand1      FORM1      ^Top = 185
Left = 456
Height = 25
Width = 114
Caption = "bertragen"
Name = "SSCommand1"
     PROCEDURE Click
zi(1+21) = 2
betrag(1+0) = 10000000
wert(1+0) = 10000000
betrag(1+1) = sichts(1+3,1+ 0) * 10000000
wert(1+1) = sichts(1+3,1+ 0) * 10000000
*!*	myform1.t0.rangehigh = 100000000
*!*	myform1.t1.rangehigh = 10000000

&&Unload zahlenrechnen
Do zeileninhalt &&Do attached
lastclick = 904
combozahl(7) = zi(1+21)
combozahl(8) = betrag(1+0)
combozahl(9) = betrag(1+1)


Do berechnungauslsen &&Do attached

ENDPROC
                                      %   g        
   v            U    T   T   T  ! T C  ! T C     T  T C   T C  T 	C    U  ZI BETRAG WERT SICHTS ZEILENINHALT	 LASTCLICK	 COMBOZAHL BERECHNUNGAUSLSEN Click,     1 1aau  qqqs 2                             )                           
commandbutton      
commandbutton      	printform      FORM1      Top = 258
Left = 627
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 476
Visible = .F.
Name = "printform"
     gPROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif


oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026

CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       \      )                           label      label      Label2      FORM1      tWordWrap = .T.
Caption = "Label2"
Height = 88
Left = 13
Top = 259
Visible = .F.
Width = 604
Name = "Label2"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 12, 7, 19, 15, 43, 3, 1
00   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LM12CA6M1430481901      /  F      ]        !                                           WINDOWS _4LM12CA6N1534164278      *  6      C      	                                                  WINDOWS _4LM12CA6M1430482437O3      \3  i3  w3  3                                                           WINDOWS _4LM12CA6M14304824374      4  (4  64  C4                                                           WINDOWS _68717WCEV14304824374      4  4  4  5                                                           WINDOWS _4LM12CA6O12598302595      5  5  5  5      36  a6                                               WINDOWS _4LM12CA6P1430483554!7      67  K7  Z7  g7      7  G                                               WINDOWS _4LM12CA6Q1394102642R      S  S  +S  8S      S  T                                               WINDOWS _4LM12CA6R1359701366U       U  5U  GU  TU      U  V                                               WINDOWS _4LM12CA6S1359701388#W      8W  MW  ZW  gW      W  X                                               WINDOWS _4LM12CA6T1259830259Y      Y  ,Y  =Y  JY      Y  Y                                               WINDOWS _4LM12CA6U1500479960Z      Z  Z  Z  Z      [  )\                                               WINDOWS _4LM12CA6V15004799603]      H]  ]]  o]  |]      ]  ^                                               WINDOWS _4LM12CA721430482437^      _  _  #_  0_                                                           WINDOWS _4LM12CA731430482437_      _  _  _  _                                                           WINDOWS _4LM12CA741430482437d`      t`  `  `  `                                                           WINDOWS _4LM12CA6M1430482437a      !a  .a  <a  Ia                                                           WINDOWS _4LM12CA771430482437a      a  a  b  b                                                           WINDOWS _4LM12CA791430482437b      b  b  b  b                                                           WINDOWS _4LM13JB671430482437ac      nc  {c  c  c                                                           WINDOWS _4X30WRCAI1430482437Bd  Rd  rd  d  d  d                                                           WINDOWS _4ZU0XA2AU1500479960)e      6e  Ce  Ze  ge                                                           WINDOWS _6FY0Q06F31430483132f      f  f  +f  8f                                                           WINDOWS _6FY0Q06F41430479336@h      Nh  \h  kh  h                                                           WINDOWS _6FY0Q06F51430482616h      h  h  h  i                                                           WINDOWS _6FY0Q06F61430479336i      i  i  i  i                                                           WINDOWS _6FY0Q06F71430482616j      #j  2j  ?j  ]j                                                           WINDOWS _6FY0Q06F81430479336j      j  j  k  &k                                                           WINDOWS _6FY0Q06F91430482616ck      rk  k  k  k                                                           WINDOWS _6FY0Q06FA1430482437,l      8l  Dl  Tl  al                                                           WINDOWS _6FY0Q06FB1430479336in      wn  n  n  n                                                           WINDOWS _6FY0Q06FC1430482616n      o  o  o  <o                                                           WINDOWS _6FY0Q06FD1430479336o      o  o  o  p                                                           WINDOWS _6FY0Q06FE1430482616=p      Lp  [p  hp  p                                                           WINDOWS _6FY0Q06FF1430479336q      q  "q  1q  Oq                                                           WINDOWS _6FY0Q06FG1430482616q      q  q  q  q                                                           WINDOWS _6FY0Q06FH1430482437Ur      ar  mr  }r  r                                                           WINDOWS _6FY0Q06FI1430479336t      t  t  t  t                                                           WINDOWS _6FY0Q06FJ1430482616u      +u  :u  Gu  eu                                                           WINDOWS _6FY0Q06FK1430479336u      u  v  v  .v                                                           WINDOWS _6FY0Q06FL1430482616fv      uv  v  v  v                                                           WINDOWS _6FY0Q06FM1430479336/w      =w  Kw  Zw  xw                                                           WINDOWS _6FY0Q06FN1430482616w      w  w  w  w                                                           WINDOWS _4LM12CA6M1430482437~x      x  x  x  x                                                           WINDOWS _6FY0Q9J501430479336y      y  
z  z  :z                                                           WINDOWS _6FY0Q9J511430483246vz      z  z  z  z                                                           COMMENT RESERVED                                ?{                                                            {                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
     UPROCEDURE BeforeOpenTables

CREATE CURSOR flex3 (sp0 C(12))
CREATE CURSOR flex0 (sp0 C(10), sp1 C(10), sp2 C(10))
CREATE CURSOR flex1 (sp0 C(10), sp1 C(10), sp2 C(10))
CREATE CURSOR flex2 (sp0 C(10), sp1 C(10), sp2 C(10))

SELECT flex3
FOR hsa = 1 TO 12
	APPEND BLANK
	replace flex3.sp0 WITH getmonatsname(hsa,1)
	FLUSH
NEXT
APPEND BLANK
replace flex3.sp0 WITH welchesjahrc
flush

SELECT flex0
FOR hsa = 1 TO 13
	APPEND BLANK
	FLUSH
NEXT

SELECT flex1
FOR hsa = 1 TO 13
	APPEND BLANK
	FLUSH
NEXT

SELECT flex2
FOR hsa = 1 TO 13
	APPEND BLANK
	FLUSH
next
ENDPROC
                                      %   +           E            U   h flex3  C; h flex0  C
  C
  C
; h flex1  C
  C
  C
; h flex2  C
  C
  C
 F    (
  >   C    [   >   	  [ F   (
Q  [  F   (
|  [  F   (
  [  U
  FLEX3 SP0 FLEX0 SP1 SP2 FLEX1 FLEX2 HSA
 GETMONATSNAME WELCHESJAHRC BeforeOpenTables,     1 r qQ A A Q A r qQ A A r qQ A A r qQ A A 1                       J      )                           1      1      form      form      FORM1      Height = 480
Width = 927
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Umlagen U1 und U2"
ControlBox = .T.
Icon = prgicons\g22ico.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     bPROCEDURE Destroy
SELECT flex0
USE
SELECT flex1
USE
SELECT flex2
USE
SELECT flex3
use


myform1.visible = .t.
ENDPROC
PROCEDURE Init

myform1.Visible = .F.

If Thisform.Top < 0
	Thisform.Top = 0
Endif
Public myumlagekassen
myumlagekassen = Thisform

With myumlagekassen
	Do monatladen &&Do attached
	.ZustndigeKasse.BackColor = farbenrgb(1+1)

	.Caption = "Umlagen nach dem Aufwendungsausgleichsgesetz im Jahr " + welchesjahrc

	If .not. EMPTY(wnw.zumlage1) && = True
		.Marke0.Value = True &&"X"
		.grdFlex0.Visible = True
		.Label2.Visible = True
	Else
		.Marke0.Value = false &&""
		.grdFlex0.Visible = false
		.Label2.Visible = false
	Endif

	If .not. EMPTY(wnw.zumlage2) && = True
		.Marke1.Value = True &&"X"
		.grdFlex1.Visible = True
	Else
		.Marke1.Value = false &&""
		.grdFlex1.Visible = false
	Endif

	If .not. EMPTY(wnw.zumlage3) && = True
		.Marke2.Value = True &&"X"
		.grdFlex2.Visible = True
	Else
		.Marke2.Value = false &&""
		.grdFlex2.Visible = false
	Endif

	.ZustndigeKasse.Caption = "Zustndige Kasse: " + Alltrim(zt46(1+zi(1+46)))

	Select flex0
	sicht(1+1,1+ 1) = 0
	For i = 1 To 12

		Goto i

		myget(i, fileneu,"wvw")
		Select flex0

		Replace flex0.sp0 With myformat(wvw.effz(1+28) / 100, "##,##0.00")
		Flush

		If wvw.znam(46) = 35
			Replace flex0.sp1 With myformat(getkvbeitrag(33, i - 1, 1) / 100, "0.00")
		Else
			Replace flex0.sp1 With myformat(getkvbeitrag(zi(1+46), i - 1, 1) / 100, "0.00")
		Endif
		Flush

		Replace flex0.sp2 With myformat(wvw.effz(1+29) / 100, "###0.00")
		Flush
		sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + wvw.effz(1+29)
	Next

	Goto 13

	Replace flex0.sp0 With welchesjahrc
	Flush

	Replace flex0.sp2 With myformat(sicht(1+1,1+ 1) / 100, "###,##0.00")
	Flush

	Select flex1
	sicht(1+1,1+ 1) = 0

	For i = 1 To 12
		Goto i

		myget(i, fileneu,"wvw")

		Select flex1

		Replace flex1.sp0 With myformat(wvw.effz(1+28) / 100, "##,##0.00")

		If wvw.znam(46) = 35
			Replace flex1.sp1 With myformat(getkvbeitrag(33, i - 1, 2) / 100, "0.00")
		Else
			Replace flex1.sp1 With myformat(getkvbeitrag(zi(1+46), i - 1, 2) / 100, "0.00")
		Endif
		Flush

		Replace flex1.sp2 With myformat(wvw.effz(1+30) / 100, "###0.00")
		Flush
		sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + wvw.effz(1+30)
	Next

	Goto 13
	Replace flex1.sp0 With welchesjahrc
	Flush

	Replace flex1.sp2 With myformat(sicht(1+1,1+ 1) / 100, "###,##0.00")
	Flush

	Select flex2
	sicht(1+1,1+ 1) = 0
	For i = 1 To 12

		Goto i

		myget(i, fileneu,"wvw")
		Select flex2

		Replace flex2.sp0 With myformat(wvw.effz(1+34) / 100, "##,##0.00")
		Flush

		Replace flex2.sp1 With myformat(insolvenzgeld / 1000, "0.000")
		Flush

		sicht(1+2,1+ 1) = wvw.effz(1+34) * insolvenzgeld / 100000
		hs_Rest = (sicht(1+2,1+ 1) * 1000) % 1000

		If hs_Rest > 499
			sicht(1+2,1+ 1) = Fix(sicht(1+2,1+ 1)) / 100 + 0.01
		Else
			sicht(1+2,1+ 1) = Fix(sicht(1+2,1+ 1)) / 100
		Endif

		Replace flex2.sp2 With myformat(sicht(1+2,1+ 1), "##0.00")
		Flush
		sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + sicht(1+2,1+ 1)
	Next

	Goto 13

	Replace flex2.sp0 With welchesjahrc
	Flush

	Replace flex2.sp2 With myformat(sicht(1+1,1+ 1), "###,##0.00")
	Flush

	If zi(1+46) = 35 .Or. zi(1+46) = 33
		myumlagekassen.SSCommand2.Caption = 'Bei der Einstellung "KV-Beitragssatz lt. Eingabe in Zeile 37" werden die Stze der Kasse auf Pos. 33 (' + Alltrim(zt46(1+32)) + ") verwendet."
	Else
		myumlagekassen.SSCommand2.Caption = "Umlagestze aktualisieren"
	Endif


ENDWITH

thisform.grdflex3.SetAll("dynamicbackcolor","gridcolor_flex0to3()","Column")
thisform.grdflex0.SetAll("dynamicbackcolor","gridcolor_flex0to3()","Column")
thisform.grdflex1.SetAll("dynamicbackcolor","gridcolor_flex0to3()","Column")
thisform.grdflex2.SetAll("dynamicbackcolor","gridcolor_flex0to3()","Column")

Select flex0
Go Top
Select flex1
Go Top
Select flex2
Go Top
Select flex3
Go Top
Thisform.Refresh

If Thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = Round(screenmaxH / (Thisform.Height * mscreenfaktor_h),2)
Else
	dpifaktor = 1
Endif
Thisform.sizer.saveformsize

Thisform.Height = Thisform.Height * (mscreenfaktor_h * dpifaktor)
Thisform.Width = Thisform.Width * (mscreenfaktor_h * dpifaktor)

Thisform.Resize
Thisform.AutoCenter = .T.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

prozsp1 =  75 / 89
prozsp2 =  75 / 241

*!*	thisform.grdmaskegrid.Width = thisform.Width - 20

grdbreite1 = thisform.grdflex3.Width 
grdbreite = thisform.grdflex0.Width 

thisform.grdflex3.column1.Width = grdbreite1 * prozsp1

thisform.grdflex0.column1.Width = grdbreite * prozsp2
thisform.grdflex0.column2.Width = grdbreite * prozsp2
thisform.grdflex0.column3.Width = grdbreite * prozsp2

thisform.grdflex1.column1.Width = grdbreite * prozsp2
thisform.grdflex1.column2.Width = grdbreite * prozsp2
thisform.grdflex1.column3.Width = grdbreite * prozsp2

thisform.grdflex2.column1.Width = grdbreite * prozsp2
thisform.grdflex2.column2.Width = grdbreite * prozsp2
thisform.grdflex2.column3.Width = grdbreite * prozsp2

thisform.grdflex3.column1.text1.fontsize = thisform.grdflex3.column1.fontsize

thisform.grdflex0.column1.text1.fontsize = thisform.grdflex0.column1.fontsize
thisform.grdflex0.column2.text1.fontsize = thisform.grdflex0.column1.fontsize
thisform.grdflex0.column3.text1.fontsize = thisform.grdflex0.column1.fontsize

thisform.grdflex1.column1.text1.fontsize = thisform.grdflex1.column1.fontsize
thisform.grdflex1.column2.text1.fontsize = thisform.grdflex1.column1.fontsize
thisform.grdflex1.column3.text1.fontsize = thisform.grdflex1.column1.fontsize

thisform.grdflex2.column1.text1.fontsize = thisform.grdflex2.column1.fontsize
thisform.grdflex2.column2.text1.fontsize = thisform.grdflex2.column1.fontsize
thisform.grdflex2.column3.text1.fontsize = thisform.grdflex2.column1.fontsize


ENDPROC
                                   r   %         C                 U  =  F   Q F  Q F  Q F  Q T  a U  FLEX0 FLEX1 FLEX2 FLEX3 MYFORM1 VISIBLE
 T   - %   
2  T     7 
 T  
     T  C G T	 5 Umlagen nach dem Aufwendungsausgleichsgesetz im Jahr 
  %C  
  T
    T    T    ; T
    T    T     %C  
t T    T     T    T     %C  
 T    T     T    T    5 T 	  Zustndige Kasse: CCC/   F  T    (	 #  C     wvw  F + >   CC" # d	 ##,##0.00!  [ %C." $ #
- > % CC! & d 0.00!  F1 > % CCC/  & d 0.00!   [) > ' CC" # d ###0.00!  [+ T C C" #  	 #
 >   
  [, > ' CC d
 ###,##0.00!  [ F(  T    (_	 #  C     wvw  F( + >(   CC" # d	 ##,##0.00!  %C." $ #- >( % CC! & d 0.00!  1 >( % CCC/  & d 0.00!   [) >( ' CC" # d ###0.00!  [+ T C C" #  	 #
 >(   
  [, >( ' CC d
 ###,##0.00!  [ F)  T    ({	 #  C     wvw  F) + >)   CC#" # d	 ##,##0.00!  [! >) % C*  0.000!  [+ T C#" # *    T+ CC G %+ 4 T CC , d{Gz? $( T CC , d $ >) ' CC  ##0.00!  [+ T C C  	 #
 >)   
  [( >) ' CC 
 ###,##0.00!  [$ %C/ # C/ ! T - 	 f Bei der Einstellung "KV-Beitragssatz lt. Eingabe in Zeile 37" werden die Stze der Kasse auf Pos. 33 (CC!  ) verwendet. , T - 	  Umlagestze aktualisieren  C C dynamicbackcolor gridcolor_flex0to3() Column . / C C dynamicbackcolor gridcolor_flex0to3() Column  / C C dynamicbackcolor gridcolor_flex0to3() Column  / C C dynamicbackcolor gridcolor_flex0to3() Column  /  F  #) F(  #) F)  #) F0  #)
  1  % 2 3 4 7
 T5 C4  2 3 T L

 T5  
  6 7  T 2  2 3 5  T 8  8 3 5 
  9  T : a U;  MYFORM1 VISIBLE THISFORM TOP MYUMLAGEKASSEN
 MONATLADEN ZUSTNDIGEKASSE	 BACKCOLOR	 FARBENRGB CAPTION WELCHESJAHRC WNW ZUMLAGE1 MARKE0 VALUE TRUE GRDFLEX0 LABEL2 FALSE ZUMLAGE2 MARKE1 GRDFLEX1 ZUMLAGE3 MARKE2 GRDFLEX2 ZT46 ZI FLEX0 SICHT I MYGET FILENEU SP0 MYFORMAT WVW EFFZ ZNAM SP1 GETKVBEITRAG SP2 FLEX1 FLEX2
 INSOLVENZGELD HS_REST FIX
 SSCOMMAND2 GRDFLEX3 SETALL FLEX3 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER C     T  {^? T  TS? T      T   	   T   
     T  	 
     T  	      T  	      T  
 
     T  
      T  
      T   
     T        T       " T   
      
  " T  	 
     	 
  " T  	      	 
  " T  	      	 
  " T  
 
     
 
  " T  
      
 
  " T  
      
 
  " T   
      
  " T         
  " T         
   U  THISFORM SIZER	 FRMRESIZE PROZSP1 PROZSP2
 GRDBREITE1 GRDFLEX3 WIDTH	 GRDBREITE GRDFLEX0 COLUMN1 COLUMN2 COLUMN3 GRDFLEX1 GRDFLEX2 TEXT1 FONTSIZE Destroy,      Init      Resize[
    1 q A q A q A q A  2  BA q   q Qr2 A 2 A 2 A Rr q q A  A A A A  A A r r r  A A A A  A A r q q A A "A A BA A  A A B1	 A C 2111r Q q Q q Q q Q    A    2 ba41""!!"!!"!!3                       x                    9  W      )                           label      label      Label4      FORM1      FontSize = 16
WordWrap = .T.
Caption = "U1 Nicht ausgewhlt"
Height = 29
Left = 154
Top = 302
Width = 204
Name = "Label4"
      label      label      Label6      FORM1      FontSize = 16
WordWrap = .T.
Caption = "U2 Nicht ausgewhlt"
Height = 29
Left = 428
Top = 302
Width = 204
Name = "Label6"
      label      label      Label7      FORM1      FontSize = 16
WordWrap = .T.
Caption = "U3 Nicht ausgewhlt"
Height = 29
Left = 701
Top = 302
Width = 204
Name = "Label7"
      
commandbutton      
commandbutton      vorgabe      FORM1      YTop = 6
Left = 6
Height = 31
Width = 151
Caption = "Vorgabewerte"
Name = "vorgabe"
      &PROCEDURE Click
DO FORM kv
ENDPROC
                                         %   A       V      P             U  
 
  kv U  KV Click,     1  1                              )                            
commandbutton      
commandbutton      drucken      FORM1      VTop = 6
Left = 159
Height = 31
Width = 151
Caption = "Drucken"
Name = "drucken"
     PROCEDURE Click
*ffentlicher Dienst

*If druckenabled = 0 Then druckmeldung: Exit Sub
Public H1,H2,1,2,3
Public an1_monat,an1_entgelt,an1_proz,an1_umlage,an1_summe
Public an2_monat,an2_entgelt,an2_proz,an2_umlage,an2_summe
Public an3_monat,an3_entgelt,an3_proz,an3_umlage,an3_summe
Public 1_nein,2_nein,3_nein

Store "" To H1,H2,1,2,3
Store "" To an1_monat,an1_entgelt,an1_proz,an1_umlage,an1_summe
Store "" To an2_monat,an2_entgelt,an2_proz,an2_umlage,an2_summe
Store "" To an3_monat,an3_entgelt,an3_proz,an3_umlage,an3_summe
Store .F. To 1_nein,2_nein,3_nein

Public crlf
crlf = Chr(13) + Chr(10)

With myUmlagekassen

	H1 = "fr " + Alltrim(myform1.z0.Caption) &&HS ALLTRIM(zt0(zi(1+0)))

	H2 = Alltrim(Thisform.ZustndigeKasse.Caption)

	1 = "Umlage U1 Entgeltfortzahlung" &&ALLTRIM(Thisform.Label1.Caption)
	2 = "Umlage U2 Mutterschutz"
	3 = "Umlage U3 Insovenzgeld"

*!*		With Thisform.Flex0
		SELECT flex0
		For i = 1 To 12 &&HS vorher 0 To 13
			If wnw.zumlage1 = false
				1_nein = .T.
				Exit
			Endif
			an1_monat = an1_monat + Alltrim(Str(i,2,0))+crlf
*!*				.Row = i
			GOTO i
*!*				.Col = 0

			an1_entgelt = an1_entgelt + Alltrim(flex0.sp0) + crlf
*!*				.Col = 1

			an1_proz = an1_proz + Alltrim(flex0.sp1) + crlf
*!*				.Col = 2
			an1_umlage = an1_umlage + Alltrim(flex0.sp2) + crlf
		Next
*!*			.Row = 13
		GOTO 13
*!*			.Col = 2
		an1_summe = flex0.sp2
*!*		Endwith

*!*		With Thisform.Flex1
		SELECT flex1
		For i = 1 To 12 &&HS vorher 0 To 13
			If wnw.zumlage2 = false
				2_nein = .T.
				Exit
			Endif

			an2_monat = an2_monat + Alltrim(Str(i,2,0))+crlf

*!*				.Row = i
			GOTO i
*!*				.Col = 0
			an2_entgelt = an2_entgelt + Alltrim(flex1.sp0) + crlf

*!*				.Col = 1
			an2_proz = an2_proz + Alltrim(flex1.sp1) + crlf

*!*				.Col = 2
			an2_umlage = an2_umlage + Alltrim(flex1.sp2) + crlf
		Next
*!*			.Row = 13
		GOTO 13
*!*			.Col = 2
		an2_summe = flex1.sp2
*!*		Endwith

*!*		With Thisform.Flex2
		SELECT flex2
		For i = 1 To 12 &&HS vorher 0 To 13
			If wnw.zumlage3 = false
				3_nein = .T.
				Exit
			Endif

			an3_monat = an3_monat + Alltrim(Str(i,2,0))+crlf
*!*				.Row = i
			GOTO i
*!*				.Col = 0
			an3_entgelt = an3_entgelt + Alltrim(flex2.sp0) + crlf

*!*				.Col = 1
			an3_proz = an3_proz + Alltrim(flex2.sp1) + crlf
*!*				.Col = 2
			an3_umlage = an3_umlage + Alltrim(flex2.sp2) + crlf

		Next
*!*			.Row = 13
		GOTO 13
*!*			.Col = 2
		an3_summe = flex2.sp2
*!*		Endwith


Endwith

oldselect = Select(0)
Create Cursor dummy (feld C(1))
Select dummy
Append Blank
Flush

Select dummy
Go Top

If direktzumdruckerQ() = true
	If hsseriendruck = .T.
		Report Form umlagekassen_drucken Range 1,1 Noconsole To Printer &&prompt
	Else
		Report Form umlagekassen_drucken Range 1,1 Noconsole To Printer Prompt
	Endif
Else

	Local loRepPreview, loRepListener
	loRepPreview = Null

	Do (_ReportPreview) With loRepPreview

	loExtension = Newobject("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	With loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.Height = screenmaxh &&myform1.height + 100
		.Top = 0
		.Left = 0
		.ToolbarIsVisible = .T.
	Endwith

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = Newobject('ReportListener')
	loRepListener.ListenerType = 1
	loRepListener.PreviewContainer = loRepPreview

	*Report Form umlagekassen_drucken Range 1,1 Noconsole Preview
	Report Form umlagekassen_drucken Range 1,1 Noconsole Object loRepListener &&Noconsole Preview

	Release loRepListener
	Release loRepPreview
Endif

Select dummy
Use
Select(oldselect)

Release H1,H2,1,2,3
Release an1_monat,an1_entgelt,an1_proz,an1_umlage,an1_summe
Release an2_monat,an2_entgelt,an2_proz,an2_umlage,an2_summe
Release an3_monat,an3_entgelt,an3_proz,an3_umlage,an3_summe
Release 1_nein,2_nein,3_nein

ENDPROC
     $                                 %   	      
  l   	            U   7       7    	  7
   
   7      7    J  (       J  (    	  J  (
   
   J  (      J-(    7  T C
 C
 
  D T   fr C    T C   ) T  Umlage U1 Entgeltfortzahlung# T  Umlage U2 Mutterschutz# T  Umlage U3 Insovenzgeld F   (w %  ! "  T a !  T  CC  Z 	 #  T  C #   T  C $   T  C %   	 #
 T	  %  F&   (O %  ' "  T a !  T
 
 CC  Z 	 #  T  C& #   T  C& $   T
 
 C& %   	 #
 T & %  F(   (' %  ) "  T a !  T  CC  Z 	 #  T  C( #   T  C( $   T  C( %   	 #
 T ( %   T* C W h dummy,  C F+   [ F+  #) %C- .  %/ a+ ? umlagekassen_drucken(!9 , ? umlagekassen_drucken(!"9   1 2  T1 
 V1 3 T3 C MyInWindowFixer preview_fixer.prg
 1  T 
 Druckvorschau T4 a T5  T6  T7 8  T9 :  T;   T<   T= a  C 3 1 >  T2 C ReportListener T2 ?  T2 @ 1 / ? umlagekassen_drucken9.2  <2  <1   F+  Q
 F*  <       <    	  <
   
   <      <    UA  H1 H2 1 2 3	 AN1_MONAT AN1_ENTGELT AN1_PROZ
 AN1_UMLAGE	 AN1_SUMME	 AN2_MONAT AN2_ENTGELT AN2_PROZ
 AN2_UMLAGE	 AN2_SUMME	 AN3_MONAT AN3_ENTGELT AN3_PROZ
 AN3_UMLAGE	 AN3_SUMME 1_NEIN 2_NEIN 3_NEIN CRLF MYUMLAGEKASSEN MYFORM1 Z0 CAPTION THISFORM ZUSTNDIGEKASSE FLEX0 I WNW ZUMLAGE1 FALSE SP0 SP1 SP2 FLEX1 ZUMLAGE2 FLEX2 ZUMLAGE3	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK UMLAGEKASSEN_DRUCKEN LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1 tqqq 1r Q R11s qA A A  A  t qA A A  A  t qA A A  B  D  q Q A r Q "  A     2         A r q A r A  rqqq 2                             )                           
commandbutton      
commandbutton      
vorschrift      FORM1      ^Top = 6
Left = 312
Height = 31
Width = 151
Caption = "U1, U2 (AAG)"
Name = "vorschrift"
      oPROCEDURE Click
inet = "000"
mylink = 642 &&Msg = "Aufwendungsausgleichsgesetz.de"
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T    U  INET MYLINK INSINTERNET Click,     1  q 1                       d       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      _Top = 6
Left = 465
Height = 31
Width = 151
Caption = "Insolvenzgeld"
Name = "sscommand3"
      XPROCEDURE Click
inet = "000"
Msg = "Insolvenzgeldumlage.de"
DO insinternet
ENDPROC
                                         %                             U  =  T   000# T  Insolvenzgeldumlage.de   U  INET MSG INSINTERNET Click,     1 1q 1                       M       )                            
commandbutton      
commandbutton      hilfe      FORM1      RTop = 6
Left = 618
Height = 31
Width = 151
Caption = "Hilfe"
Name = "hilfe"
      EPROCEDURE Click
inet = 111
Msg = "20497"
DO insinternet
ENDPROC
                                         %   q                          U  ) 
 T  o T  20497   U  INET MSG INSINTERNET Click,     1  !q 1                       :       )                            
commandbutton      
commandbutton      	schlieen      FORM1      ZTop = 6
Left = 771
Height = 31
Width = 151
Caption = "Schlieen"
Name = "schlieen"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 73
Left = 20
Height = 22
Width = 888
Caption = 'Die Umlagepflicht fr Umlagen ist in den Stammdaten einzustellen (Icon "gelber Notizzettel" oberhalb der Programmzeile 1)'
Name = "sscommand1"
      TPROCEDURE Click
thisform.release
register = 23

DO FORM bemerkungen

ENDPROC
                                     ~   %                             U  - 
    
 T   bemerkungen U  THISFORM RELEASE REGISTER BEMERKUNGEN Click,     1   22                       I       )                            
commandbutton      
commandbutton      
sscommand2      FORM1      RTop = 99
Left = 20
Height = 22
Width = 888
Caption = ""
Name = "sscommand2"
      8PROCEDURE Click
thisform.Release
DO FORM kv
ENDPROC
                                         %   ^       u      m             U   
    
  kv U  THISFORM RELEASE KV Click,     1   1                       -       )                            checkbox      checkbox      marke0      FORM1      |Top = 142
Left = 160
Height = 25
Width = 21
FontSize = 20
Alignment = 0
Caption = ""
Enabled = .F.
Name = "marke0"
      checkbox      checkbox      marke1      FORM1      mTop = 139
Left = 452
Height = 25
Width = 18
Alignment = 0
Caption = ""
Enabled = .F.
Name = "marke1"
      checkbox      checkbox      marke2      FORM1      mTop = 145
Left = 717
Height = 25
Width = 21
Alignment = 0
Caption = ""
Enabled = .F.
Name = "marke2"
      label      label      Label1      FORM1      FontSize = 16
WordWrap = .T.
Caption = "Umlage U1 Entgeltfortzahlung"
Height = 50
Left = 190
Top = 133
Width = 172
Name = "Label1"
      label      label      Label3      FORM1      FontSize = 16
WordWrap = .T.
Caption = "Umlage U2 Mutterschutz"
Height = 55
Left = 476
Top = 130
Width = 123
Name = "Label3"
      label      label      Label5      FORM1      FontSize = 16
WordWrap = .T.
Caption = "Umlage U3 Insolvenzgeld"
Height = 52
Left = 741
Top = 133
Width = 131
Name = "Label5"
      label      label      Label2      FORM1      Caption = "*) Umlagepflichtig ist das RV-pflichtige Entgelt, bei U1 und U2 ohne Einmalzahlungen."
Height = 22
Left = 23
Top = 453
Width = 486
Name = "Label2"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 462
Left = 909
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      zustndigekasse      FORM1      FontBold = .T.
FontSize = 14
Alignment = 2
Caption = "zustndigekasse"
Height = 26
Left = 18
Top = 43
Width = 895
Name = "zustndigekasse"
      grid      grid      grdFlex0      FORM1      ColumnCount = 3
DeleteMark = .F.
Height = 257
Left = 128
ReadOnly = .T.
RecordSource = "FLEX0"
RecordSourceType = 1
ScrollBars = 0
Top = 191
Width = 241
Name = "grdFlex0"
Column1.Alignment = 1
Column1.ControlSource = "FLEX0.sp0"
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 2
Column2.ControlSource = "FLEX0.sp1"
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "FLEX0.sp2"
Column3.ReadOnly = .T.
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdFlex0.Column1      9Alignment = 1
Caption = "Entgelt *)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex0.Column1      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex0.Column2      0Alignment = 2
Caption = "%"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex0.Column2      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex0.Column3      5Alignment = 1
Caption = "Umlage"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex0.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      grid      grid      grdFlex1      FORM1      ColumnCount = 3
DeleteMark = .F.
Height = 257
Left = 401
ReadOnly = .T.
RecordSource = "FLEX1"
RecordSourceType = 1
ScrollBars = 0
Top = 191
Width = 241
Name = "grdFlex1"
Column1.Alignment = 1
Column1.ControlSource = "FLEX1.sp0"
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 2
Column2.ControlSource = "FLEX1.sp1"
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "FLEX1.sp2"
Column3.ReadOnly = .T.
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdFlex1.Column1      9Alignment = 1
Caption = "Entgelt *)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex1.Column1      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex1.Column2      0Alignment = 2
Caption = "%"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex1.Column2      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex1.Column3      5Alignment = 1
Caption = "Umlage"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex1.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      grid      grid      grdFlex2      FORM1      ColumnCount = 3
DeleteMark = .F.
Height = 257
Left = 671
ReadOnly = .T.
RecordSource = "FLEX2"
RecordSourceType = 1
ScrollBars = 0
Top = 191
Width = 241
Name = "grdFlex2"
Column1.Alignment = 1
Column1.ControlSource = "FLEX2.sp0"
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 2
Column2.ControlSource = "FLEX2.sp1"
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "FLEX2.sp2"
Column3.ReadOnly = .T.
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdFlex2.Column1      9Alignment = 1
Caption = "Entgelt *)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex2.Column1      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex2.Column2      0Alignment = 2
Caption = "%"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex2.Column2      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdFlex2.Column3      5Alignment = 1
Caption = "Umlage"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex2.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      grid      grid      grdFlex3      FORM1     6ColumnCount = 1
DeleteMark = .F.
Height = 257
Left = 17
ReadOnly = .T.
RecordSource = "flex3"
RecordSourceType = 1
ScrollBars = 0
Top = 191
Width = 89
Name = "grdFlex3"
Column1.Alignment = 0
Column1.ControlSource = "flex3.sp0"
Column1.Width = 75
Column1.ReadOnly = .T.
Column1.Name = "Column1"
      header      header      Header1      FORM1.grdFlex3.Column1      4Alignment = 2
Caption = "Monat"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdFlex3.Column1      xAlignment = 0
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      DArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 20, 12, 33, 26, 72, 6, 1
0
G   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LM14DFEB1216255558      /  F      ]                                                       WINDOWS _4LM14DFEC1430476548                       	                                               WINDOWS _4LM14DFED1412520528
      
  
    *                                                       WINDOWS _4LM14DFEB1216255558                  C  y                                               WINDOWS _4LM14DFEF1412519293H      U  b  u                                                             WINDOWS _4LM14DFEG1412519293m      |                                                                 WINDOWS _4LM14DFEH1412519293      "  1  C  P                                                           WINDOWS _4LM14DFEI1412519293                                                                       WINDOWS _4LM14DFEJ1412519293a      p                                                                 WINDOWS _4LM14DFEK1412519293        &  8  E                                                           WINDOWS _4LM14DFEL1412519293                                                                       WINDOWS _4LM14DFEM1412519293V      e  t                                                           WINDOWS _4LM14DFEN1412519293                  ~  	                                               WINDOWS _4LM14DFEO1412519293E      T  c  s                                                         WINDOWS _4LM14DFEP1412519293                  p                                                   WINDOWS _4LM14DFEQ14125192935"      D"  S"  c"  p"      "  r#                                               WINDOWS _4LM14DFER1412519293$      $  $  $  $      `%  %                                               WINDOWS _4LM14DFES1412519293''      4'  A'  O'  \'                                                           WINDOWS _4LM14DFET1412519534'      '  '  '  (      (  +                                               WINDOWS _4LM14DFEU1412519534/      /  /   0  
0      0  3                                               WINDOWS _4LM14DFEV14125195347      7  7  7  7      O8  ];                                               WINDOWS _4LM14DFEW1412519534.?      =?  L?  X?  e?      ?  	C                                               WINDOWS _4LM14DFEX1412519534F      F  F  G  G      G  J                                               WINDOWS _4LM14DFEY1412519534N      N  N  N  N      SO  aR                                               WINDOWS _4LM14DFEZ14125192932V      ?V  LV  ZV  gV                                                           WINDOWS _4LM14DFF01412519534V      V  V  W  W      W  x\                                               WINDOWS _4LM14DFF11412519534a      a  a  a  a      bb  1g                                               WINDOWS _4LM14DFF21412519534Nl      ]l  ll  xl  l      m  q                                               WINDOWS _4LM14DFF31412519534w      w  %w  1w  >w      w  |                                               WINDOWS _4LM14DFF41412519534      ρ  ށ            \                                               WINDOWS _4LM14DFF51412519534y                  F                                                 WINDOWS _4LM14DFF614125192932      ?  L  Z  g                                                           WINDOWS _4LM14DFF71412519293ݗ          	                                                             WINDOWS _4LM14DFF81412519293            Ř                                                           WINDOWS _4LM14DFF91412519293<      K  Z  h  u                                                           WINDOWS _4LM14DFFA1412519293        
    %                                                           WINDOWS _4LM14DFFB1412519293          Ț  ՚                                                           WINDOWS _4LM14DFFC1412519293L      [  j  x                                                             WINDOWS _4LM14DFFD1412519293      	    $  1                                                           WINDOWS _4LM14DFFE1412519293        Ĝ  ֜                                                             WINDOWS _4LM14DFFF1412519293]      l  {                                                               WINDOWS _4LM14DFFG1412519293      $  3  E  R                                                           WINDOWS _4LM14DFFH1412519293͞      ܞ      
                                                           WINDOWS _4LM14DFFI1412519293                                                                       WINDOWS _4LM14DFFJ1412519293=      L  [  m  z                                                           WINDOWS _4LM14DFFK1412519293            *                                                           WINDOWS _4LM14DFFL1412519293          ʡ  ס                                                           WINDOWS _4LM14DFFM1412519293L      [  j  w                                                             WINDOWS _4LM14DFFN1412519293      	    %  2                                                           WINDOWS _4LM14DFFO1412519293        ƣ  ӣ                                                             WINDOWS _4LM14DFFP1412519293V      e  t                                                               WINDOWS _4LM14DFFQ1412519293        "  /  <                                                           WINDOWS _4LM14DFFR1412519293        ̥  ڥ                                                             WINDOWS _4LM14DFFS1398109457]      i  u                                                               WINDOWS _4LM14DFFT1412519293צ                                                                       WINDOWS _4LM14DFFU1412519293            ħ                                                           WINDOWS _4LM14DFFV1412519293?      N  ]  j  w                                                           WINDOWS _4LM14DFFW1412519293           !  .        k                                               WINDOWS _4LM14DFFX1412521024         
    (                                                           WINDOWS _4LM14DFFY1412519293ϭ      ޭ                                                                 WINDOWS _4LM14DFFZ1412519293w                                                                       WINDOWS _4X30WRTNI1412519293'  7  W  f  s                                                             WINDOWS _4LM14DFEB1412519293      2  G  \  i                                                        WINDOWS _4LM14DFEB1412519293_      t            7                                                 WINDOWS _5Q00M69BA1412519293                                                                   WINDOWS _5Q00M69BB1412519293b      w            =                                                 WINDOWS _5Q00M69BQ1412519293             
        1                                               WINDOWS _6690VVP8R1412519293a      p                                                                 WINDOWS _68R0O8KUI1412522150      &  ;  K  X                                                       COMMENT RESERVED                                C                                                            l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 324
Width = 931
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Zusammenstellung der anrechenbaren Verdienstzeiten"
ControlBox = .T.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Init
PARAMETERS xbda
thisform.BDAdatum.value = xbda
IF thisform.Top < 0
	thisform.Top = 0
endif

myvdz = thisform

myClose(87)
myOpen(eigdat + muser + "\EDZ_D", 87 ,"EDZ")

myGet(87, zi(1+0) + 1, "EDZ")
If EDZ.xgebraucht > 0 And EDZ.xgebraucht < 500 
   thisform.bernehmen.click
Else
   thisform.VDZGrundstellung.click
   thisform.bernehmen.click
EndIf
thisform.eintragen.click
startflag = True
*If Stufenlaufzeit.Stufe(0) = True Then EDZ.xErnennung = Stufenlaufzeit.BDAdatum.Text
thisform.berschrift.Caption = "Folgende Erfahrungszeiten vor der Einstellung sind auf die Stufenlaufzeit anzurechnen ( 28 BBesG, LBesG,  16 TVD oder  16 TV-L):"
thisform.vdzberechnung.click
startflag = False
*!*	PUBLIC ARRAY zprozent(8)
*!*	PUBLIC ARRAY zjahre(8)
*!*	PUBLIC ARRAY zmonate(8)
*!*	PUBLIC ARRAY ztage(8)


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   H7   %         i  "   %            U  n 4   T      %   
>  T    
 T  
 CW $ C 	  \EDZ_DW EDZ  CWC  EDZ
 # % 
    
 
	 
      
    
     
    
 T   T   ل Folgende Erfahrungszeiten vor der Einstellung sind auf die Stufenlaufzeit anzurechnen ( 28 BBesG, LBesG,  16 TVD oder  16 TV-L):
    
 T   %     T C    T 

 T  
     T       T      
    T   a U!  XBDA THISFORM BDADATUM VALUE TOP MYVDZ MYCLOSE MYOPEN EIGDAT MUSER MYGET ZI EDZ
 XGEBRAUCHT
 BERNEHMEN CLICK VDZGRUNDSTELLUNG	 EINTRAGEN	 STARTFLAG TRUE BERSCHRIFT CAPTION
 VDZBERECHNUNG FALSE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 q 1AA   A1    A   r	    A    2 1                                    -    )                           
commandbutton      
commandbutton      Command1      FORM1      bTop = 3
Left = 5
Height = 34
Width = 478
Caption = "leeren"
TabIndex = 1
Name = "Command1"
     <PROCEDURE Click
For i = 0 To 5

*    zvorzeiten(1+i) = ""
*    zvon(1+i) = ""
*    zbis(1+i) = ""
    xxx=ALLTRIM(STR(i,2,0))
    thisform.Vorzeiten&xxx..value = ""
    thisform.von&xxx..value = CTOD("  .  .  ")
    thisform.bis&xxx..value = CTOD("  .  .  ")
Next

thisform.vdzberechnung.click
ENDPROC
                                   }   %         =  	   +            U       (  T CC   Z& thisform.Vorzeiten&xxx..value = ""
. thisform.von&xxx..value = CTOD("  .  .  ")
. thisform.bis&xxx..value = CTOD("  .  .  ")
 
     U  I XXX THISFORM
 VDZBERECHNUNG CLICK Click,     1 quaA  1                       1      )                           
commandbutton      
commandbutton      Command2      FORM1      uTop = 3
Left = 633
Height = 34
Width = 150
Cancel = .T.
Caption = "Schlieen"
TabIndex = 2
Name = "Command2"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            label      label      berschrift      FORM1      Caption = "Folgende Erfahrungszeiten vor der Einstellung sind auf die Stufenlaufzeit anzurechnen ( 28 BBesG, LBesG,  16 TVD oder  16 TV-L)"
Height = 18
Left = 5
Top = 45
Width = 773
TabIndex = 4
Name = "berschrift"
      textbox      textbox      
vorzeiten0      FORM1      aAlignment = 0
Height = 22
Left = 4
TabIndex = 11
Top = 91
Width = 535
Name = "vorzeiten0"
      textbox      textbox      
vorzeiten1      FORM1      bAlignment = 0
Height = 22
Left = 4
TabIndex = 18
Top = 114
Width = 535
Name = "vorzeiten1"
      textbox      textbox      
vorzeiten2      FORM1      bAlignment = 0
Height = 22
Left = 4
TabIndex = 25
Top = 137
Width = 535
Name = "vorzeiten2"
      textbox      textbox      
vorzeiten3      FORM1      bAlignment = 0
Height = 22
Left = 4
TabIndex = 32
Top = 160
Width = 535
Name = "vorzeiten3"
      textbox      textbox      
vorzeiten4      FORM1      bAlignment = 0
Height = 22
Left = 4
TabIndex = 39
Top = 183
Width = 535
Name = "vorzeiten4"
      textbox      textbox      
vorzeiten5      FORM1      bAlignment = 0
Height = 22
Left = 4
TabIndex = 46
Top = 206
Width = 535
Name = "vorzeiten5"
      textbox      textbox      prozent0      FORM1      nAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 12
Top = 91
Width = 43
Name = "prozent0"
      PROCEDURE Valid
myindex = 0

zprozent(1+ myIndex) = thisform.Prozent0.value
thisform.vdzberechnung.click
RETURN 1
ENDPROC
     4                              #   %                             U  C 
 T    T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT0 VALUE
 VDZBERECHNUNG CLICK Valid,     1    1                       v       )                           textbox      textbox      prozent1      FORM1      oAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 19
Top = 114
Width = 43
Name = "prozent1"
      PROCEDURE Valid
myindex = 1

zprozent(1+ myindex) = thisform.Prozent1.value
thisform.vdzberechnung.click
RETURN 1

ENDPROC
     4                              #   %                             U  C 
 T   T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT1 VALUE
 VDZBERECHNUNG CLICK Valid,     1    2                       x       )                           textbox      textbox      prozent2      FORM1      oAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 26
Top = 137
Width = 43
Name = "prozent2"
      PROCEDURE Valid
myindex = 2

zprozent(1+ myindex) = thisform.Prozent2.value
thisform.vdzberechnung.click
RETURN 1

ENDPROC
     4                              #   %                             U  C 
 T   T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT2 VALUE
 VDZBERECHNUNG CLICK Valid,     1    2                       x       )                           textbox      textbox      prozent3      FORM1      oAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 33
Top = 160
Width = 43
Name = "prozent3"
      PROCEDURE Valid
myindex = 3

zprozent(1+ myindex) = thisform.Prozent3.value
thisform.vdzberechnung.click
RETURN 1
ENDPROC
     4                              #   %                             U  C 
 T   T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT3 VALUE
 VDZBERECHNUNG CLICK Valid,     1    1                       v       )                           textbox      textbox      prozent4      FORM1      oAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 40
Top = 183
Width = 43
Name = "prozent4"
      PROCEDURE Valid
myindex = 4

zprozent(1+ myindex) = thisform.Prozent4.value
thisform.vdzberechnung.click
RETURN 1

ENDPROC
     4                              #   %                             U  C 
 T   T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT4 VALUE
 VDZBERECHNUNG CLICK Valid,     1    2                       x       )                           textbox      textbox      prozent5      FORM1      oAlignment = 2
Value = 0,00
Height = 22
Left = 544
TabIndex = 47
Top = 206
Width = 43
Name = "prozent5"
      PROCEDURE Valid
myindex = 5

zprozent(1+ myindex) = thisform.Prozent5.value
thisform.vdzberechnung.click
RETURN 1

ENDPROC
     4                              #   %                             U  C 
 T   T      
    	 B U  MYINDEX ZPROZENT THISFORM PROZENT5 VALUE
 VDZBERECHNUNG CLICK Valid,     1    2                       x       )                           label      label      Label2      FORM1      lFontSize = 12
Caption = "%"
Height = 22
Left = 557
Top = 69
Width = 16
TabIndex = 5
Name = "Label2"
      textbox      textbox      von0      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 13
Top = 91
Width = 92
Name = "von0"
     XPROCEDURE Valid
myindex = 0
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
&&EMPTY(thisform.bis&xxx..value) .Or. EMPTY(thisform.von&xxx..value) .or.
If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                       %   1      p     @            U  
 T    T CC   Z7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qqBqqq  A q  qqqqA  1                       M      )                           textbox      textbox      von1      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 20
Top = 114
Width = 92
Name = "von1"
     PROCEDURE Valid
myindex = 1
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = thisform.von&xxx..value

If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                      %   (      g     7            U  
 T   T CC   Z. zvon(1+ myindex) = thisform.von&xxx..value
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qBqqq  A q  qqqqA  1                             )                           textbox      textbox      von2      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 27
Top = 137
Width = 92
Name = "von2"
     PROCEDURE Valid
myindex = 2
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = thisform.von&xxx..value

If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                      %   (      g     7            U  
 T   T CC   Z. zvon(1+ myindex) = thisform.von&xxx..value
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qBqqq  A q  qqqqA  1                             )                           textbox      textbox      von3      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 34
Top = 160
Width = 92
Name = "von3"
     PROCEDURE Valid
myindex = 3
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = thisform.von&xxx..value

If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                      %   (      g     7            U  
 T   T CC   Z. zvon(1+ myindex) = thisform.von&xxx..value
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qBqqq  A q  qqqqA  1                             )                           textbox      textbox      von4      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 41
Top = 183
Width = 92
Name = "von4"
     PROCEDURE Valid
myindex = 4
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = thisform.von&xxx..value

If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                      %   (      g     7            U  
 T   T CC   Z. zvon(1+ myindex) = thisform.von&xxx..value
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qBqqq  A q  qqqqA  1                             )                           textbox      textbox      von5      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 592
TabIndex = 48
Top = 206
Width = 92
Name = "von5"
     PROCEDURE Valid
myindex = 5
xxx=ALLTRIM(STR(myindex,2,0))
zvon(1+ myindex) = thisform.von&xxx..value

If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	RETURN 1
EndIf

If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
	zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)
	thisform.vdzberechnung.click
Else
	MESSAGEBOX("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
	thisform.von&xxx..value = "" &&"  .  .  "
	zvon(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                      %   (      g     7            U  
 T   T CC   Z. zvon(1+ myindex) = thisform.von&xxx..value
d If  ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(thisform.von&xxx..value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))7 zvon(1+ myindex) = ALLTRIM(thisform.von&xxx..value)

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! thisform.von&xxx..value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZVON Valid,     1  qBqqq  A q  qqqqA  1                             )                           label      label      Label3      FORM1      nFontSize = 12
Caption = "von"
Height = 22
Left = 625
Top = 69
Width = 27
TabIndex = 6
Name = "Label3"
      textbox      textbox      bis0      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 14
Top = 91
Width = 92
Name = "bis0"
     PROCEDURE Valid
myindex = 0
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T    T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           textbox      textbox      bis1      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 21
Top = 114
Width = 92
Name = "bis1"
     PROCEDURE Valid
myindex = 1
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T   T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           textbox      textbox      bis2      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 28
Top = 137
Width = 92
Name = "bis2"
     PROCEDURE Valid
myindex = 1
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T   T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           textbox      textbox      bis3      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 35
Top = 160
Width = 92
Name = "bis3"
     PROCEDURE Valid
myindex = 3
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T   T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           textbox      textbox      bis4      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 42
Top = 183
Width = 92
Name = "bis4"
     PROCEDURE Valid
myindex = 4
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T   T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           textbox      textbox      bis5      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 689
TabIndex = 49
Top = 206
Width = 92
Name = "bis5"
     PROCEDURE Valid
myindex = 5
xxx=Alltrim(Str(myindex,2,0))
zbis(1+ myindex) = Thisform.bis&xxx..Value
If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ."
	*If von(myindex) = "" Then von(myindex).SetFocus Else bis(myindex).SetFocus
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
	thisform.vdzberechnung.click
	Return 1
Endif
*****************************
If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))
	If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value))
		zbis(1+ myindex) = Thisform.bis&xxx..Value
		thisform.vdzberechnung.click
	Else
		Messagebox("Das Datum muss vor dem " + thisform.BDAdatum.Value + " liegen.", 0, "Bitte korrigieren")
		Thisform.bis&xxx..Value = "" &&"  .  .  "
		zbis(1+ myindex) = ""
		zjahre(1+myindex) = 0
		zvormonate(1+myindex) = 0
		ztage(1+myindex) = 0
	Endif
Else
	Messagebox("Das Datum muss spter als der Beginn des Zeitabschnitts liegen", 0, "Bitte korrigieren")
	Thisform.bis&xxx..Value = "" &&"  .  .  "
	zbis(1+ myindex) = ""
	zjahre(1+myindex) = 0
	zvormonate(1+myindex) = 0
	ztage(1+myindex) = 0
ENDIF
RETURN 1
ENDPROC
                                   q   %   b        !   q            U  
 T   T CC   Z. zbis(1+ myindex) = Thisform.bis&xxx..Value
c If ALLTRIM(thisform.bis&xxx..value) = ".  ." .or. ALLTRIM(thisform.von&xxx..value) = ".  ." T     T     T    
    	 B Z If CTOD(ALLTRIM(Thisform.von&xxx..Value)) < CTOD(ALLTRIM(Thisform.bis&xxx..Value))Z If CTOD(ALLTRIM(Thisform.bis&xxx..Value)) < CTOD(ALLTRIM(thisform.BDAdatum.Value)). zbis(1+ myindex) = Thisform.bis&xxx..Value

     P C Das Datum muss vor dem   	   liegen.  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T      a C> Das Datum muss spter als der Beginn des Zeitabschnitts liegen  Bitte korrigierenx! Thisform.bis&xxx..Value = "" 
 T
      T     T     T     	 B U  MYINDEX XXX ZJAHRE
 ZVORMONATE ZTAGE THISFORM
 VDZBERECHNUNG CLICK BDADATUM VALUE ZBIS Valid,     1  q1rqq  A   qqqqA  qqqqA  1                             )                           label      label      Label4      FORM1      nFontSize = 12
Caption = "bis"
Height = 22
Left = 722
Top = 69
Width = 26
TabIndex = 7
Name = "Label4"
      textbox      textbox      jahre0      FORM1      nAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 15
Top = 91
Width = 43
Name = "jahre0"
      textbox      textbox      jahre1      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 22
Top = 114
Width = 43
Name = "jahre1"
      textbox      textbox      jahre2      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 29
Top = 137
Width = 43
Name = "jahre2"
      textbox      textbox      jahre3      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 36
Top = 160
Width = 43
Name = "jahre3"
      textbox      textbox      jahre4      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 43
Top = 183
Width = 43
Name = "jahre4"
      textbox      textbox      jahre5      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 50
Top = 206
Width = 43
Name = "jahre5"
      label      label      Label5      FORM1      mFontSize = 12
Caption = "J."
Height = 22
Left = 799
Top = 69
Width = 16
TabIndex = 8
Name = "Label5"
      textbox      textbox      
vormonate0      FORM1      rAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 16
Top = 91
Width = 43
Name = "vormonate0"
      textbox      textbox      
vormonate1      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 23
Top = 114
Width = 43
Name = "vormonate1"
      textbox      textbox      
vormonate2      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 30
Top = 137
Width = 43
Name = "vormonate2"
      textbox      textbox      
vormonate3      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 37
Top = 160
Width = 43
Name = "vormonate3"
      textbox      textbox      
vormonate4      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 44
Top = 183
Width = 43
Name = "vormonate4"
      textbox      textbox      
vormonate5      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 51
Top = 206
Width = 43
Name = "vormonate5"
      label      label      Label6      FORM1      mFontSize = 12
Caption = "M."
Height = 22
Left = 848
Top = 69
Width = 19
TabIndex = 9
Name = "Label6"
      textbox      textbox      tage0      FORM1      mAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 17
Top = 91
Width = 43
Name = "tage0"
      textbox      textbox      tage1      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 24
Top = 114
Width = 43
Name = "tage1"
      textbox      textbox      tage2      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 31
Top = 137
Width = 43
Name = "tage2"
      textbox      textbox      tage3      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 38
Top = 160
Width = 43
Name = "tage3"
      textbox      textbox      tage4      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 45
Top = 183
Width = 43
Name = "tage4"
      textbox      textbox      tage5      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 52
Top = 206
Width = 43
Name = "tage5"
      label      label      Label7      FORM1      nFontSize = 12
Caption = "T."
Height = 22
Left = 897
Top = 69
Width = 16
TabIndex = 10
Name = "Label7"
      line      line      Line1      FORM1      @Height = 0
Left = 784
Top = 231
Width = 148
Name = "Line1"
      textbox      textbox      jahre6      FORM1      oAlignment = 2
Height = 22
Left = 786
ReadOnly = .T.
TabIndex = 53
Top = 235
Width = 43
Name = "jahre6"
      textbox      textbox      
vormonate6      FORM1      sAlignment = 2
Height = 22
Left = 835
ReadOnly = .T.
TabIndex = 54
Top = 235
Width = 43
Name = "vormonate6"
      textbox      textbox      tage6      FORM1      nAlignment = 2
Height = 22
Left = 884
ReadOnly = .T.
TabIndex = 55
Top = 235
Width = 43
Name = "tage6"
      optiongroup      optiongroup      runden      FORM1     ButtonCount = 2
Value = 1
Height = 48
Left = 833
Top = 267
Width = 93
TabIndex = 61
Name = "runden"
Option1.Caption = "aufrunden"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 78
Option1.Name = "runden0"
Option2.Caption = "abrunden"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 79
Option2.Name = "runden1"
      PROCEDURE runden0.Click
EDZ.xBeamter = 0
thisform.vdzberechnung.click
ENDPROC
PROCEDURE runden1.Click
EDZ.xBeamter = 1
thisform.vdzberechnung.click
ENDPROC
         g  g                        p   %                            U     T    
     U  EDZ XBEAMTER THISFORM
 VDZBERECHNUNG CLICK   T   
     U  EDZ XBEAMTER THISFORM
 VDZBERECHNUNG CLICK
 runden0.Click,     
 runden1.Click     1  2  1                       G         k          )   g                        label      label      Label8      FORM1      FontSize = 12
Caption = "Der Beginn der Stufenlaufzeit ist vorzuverlegen um "
Height = 22
Left = 4
Top = 237
Width = 351
TabIndex = 56
Name = "Label8"
      textbox      textbox      
vormonate7      FORM1      cAlignment = 2
Height = 22
Left = 358
TabIndex = 57
Top = 237
Width = 43
Name = "vormonate7"
      label      label      Label9      FORM1      sFontSize = 12
Caption = "Monate"
Height = 22
Left = 405
Top = 237
Width = 58
TabIndex = 58
Name = "Label9"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 303
Left = 919
TabIndex = 65
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
VDZBerechnung      FORM1      Top = 267
Left = 7
Height = 21
Width = 120
Caption = "VDZBerechnung"
Enabled = .F.
TabIndex = 59
Visible = .F.
Name = "VDZBerechnung"
     PROCEDURE Click
zvormonate(1+6) = 0
zjahre(1+6) = 0
ztage(1+6) = 0
For i = 0 To 5
    If empty(zvon(1+i)) Or empty(zbis(1+i))
       zjahre(1+i) = 0
       zvormonate(1+i) = 0
       ztage(1+i) = 0
    Else
       frheresdatum = zvon(1+i)
       spteresdatum = zbis(1+i)
       DO datumsdifferenz
       If zprozent(1+i) < 100 Then
          sicht(1+0,1+ 0) = (differenztage + differenzmonate * 30 + differenzjahre * 360) * zProzent(1+i) / 100
          differenztage = Fix(sicht(1+0,1+ 0))
          If sicht(1+0,1+ 0) * 10 % 10 > 4 
          	differenztage = differenztage + 1
          endif
          differenzmonate = 0
          differenzjahre = 0
       EndIf
       zjahre(1+i) = differenzjahre
       zvormonate(1+i) = differenzmonate
       ztage(1+i) = differenztage
    EndIf
    zvormonate(1+6) = zvormonate(1+6) + zvormonate(1+i)
    zjahre(1+6) = zjahre(1+6) + zjahre(1+i)
    ztage(1+6) = ztage(1+6) + ztage(1+i)
Next
zvormonate(1+7) = zjahre(1+6) * 12 + zvormonate(1+6) + Fix(ztage(1+6) / 30)

If ztage(1+6) % 30 > 0 
   If thisform.Runden.Value = 1 Then
      zvormonate(1+7) = zvormonate(1+7) + 1
   EndIf
EndIf

thisform.Vormonate7.value = zvormonate(1+7)

thisform.Speichern.click
For i = 0 To 6
	xxx = ALLTRIM(STR(i,2,0))
    thisform.Jahre&xxx..value = zjahre(1+i)
    thisform.Vormonate&xxx..value = zvormonate(1+i)
    thisform.Tage&xxx..value = ztage(1+i)
Next
ENDPROC
                                      %         G  -               U   T    T   T     (h( %CC   CC    T    T     T     T C   T C     %C 	 d
; T
   
 hC 	 d T CC
  ! %CC
 

G T   
 T  
 T
    T  
  T     T    # T  C  C   # T C C  # T C C   3 T  C C  CC   %CC G  %    T  C     T   C  
       ( T CC  Z+ thisform.Jahre&xxx..value = zjahre(1+i)
3 thisform.Vormonate&xxx..value = zvormonate(1+i)
) thisform.Tage&xxx..value = ztage(1+i)
  U 
 ZVORMONATE ZJAHRE ZTAGE I ZVON ZBIS
 FRHERESDATUM
 SPTERESDATUM DATUMSDIFFERENZ ZPROZENT SICHT
 DIFFERENZTAGE DIFFERENZMONATE DIFFERENZJAHRE FIX THISFORM RUNDEN VALUE
 VORMONATE7	 SPEICHERN CLICK XXX Click,     1 111qqqq QQq A   A qqqA 111A 1qA A r qq1A 1                             )                           
commandbutton      
commandbutton      	speichern      FORM1      Top = 267
Left = 130
Height = 21
Width = 84
Caption = "Speichern"
Enabled = .F.
TabIndex = 60
Visible = .F.
Name = "speichern"
     PROCEDURE Click
With EDZ
For i = 0 To 5
    .xVorzeiten(1+i) = zvorzeiten(1+i)
    .xProzent(1+i) = zprozent(1+i)
    .xvon(1+i) = zvon(1+i)
    .xbis(1+i) = zbis(1+i)
Next
.xVDZSumme = zvormonate(1+7)
If thisform.Runden.value = 1 Then
   .xrunden = True
Else
   .xrunden = False
EndIf

.xgebraucht = thisform.Vormonate7.value
.xErnennung = thisform.BDAdatum.Value

myPut(87, zi(1+0) + 1, "EDZ")
EndWith
ENDPROC
                                      %   A      v     P            U  F
   ?   (   T  C    T  C    T  C    T  C 	   T
 C  % 
    T     T    T     T     CWC  EDZ   U  EDZ I
 XVORZEITEN
 ZVORZEITEN XPROZENT ZPROZENT XVON ZVON XBIS ZBIS	 XVDZSUMME
 ZVORMONATE THISFORM RUNDEN VALUE XRUNDEN TRUE FALSE
 XGEBRAUCHT
 VORMONATE7
 XERNENNUNG BDADATUM MYPUT ZI Click,     1  qA !q   A BAA 1                             )                           
commandbutton      
commandbutton      VDZGrundstellung      FORM1      Top = 288
Left = 7
Height = 21
Width = 120
Caption = "VDZGrundstellung"
Enabled = .F.
TabIndex = 63
Visible = .F.
Name = "VDZGrundstellung"
     XPROCEDURE Click
With EDZ
.xgebraucht = 12345
.xBeamter = 0
.xVorzeiten(1+0) = "Auszugleichende Zeit nach dem ASchG wegen Verzgerung durch Wehrdienst"
.xVorzeiten(1+1) = "Ttigkeit im .D. als .... bei ...."
.xVorzeiten(1+2) = "Ttigkeit im .D. als .... bei ...."
.xVorzeiten(1+3) = "Sonstige frderliche Zeit als... bei ..."
.xVorzeiten(1+4) = "Sonstige frderliche Zeit als... bei ..."
.xVorzeiten(1+5) = "Sonstige frderliche Zeit als... bei ..."
For i = 0 To 5
    .xProzent(1+i) = 100
    .xvon(1+i) = ""
    .xbis(1+i) = ""
Next
EndWith
myPut(87, zi(1+0) + 1, "EDZ")
ENDPROC
     >    %  %                           %                          U  .
   	 T 90 T  Z T F Auszugleichende Zeit nach dem ASchG wegen Verzgerung durch Wehrdienst7 T # Ttigkeit im .D. als .... bei ....7 T # Ttigkeit im .D. als .... bei ....< T ( Sonstige frderliche Zeit als... bei ...< T ( Sonstige frderliche Zeit als... bei ...< T ( Sonstige frderliche Zeit als... bei ...   ( T  d T     T       CWC	  EDZ  U
  EDZ
 XGEBRAUCHT XBEAMTER
 XVORZEITEN I XPROZENT XVON XBIS MYPUT ZI Click,     1    qqqA A 1                       M      )   %                        
commandbutton      
commandbutton      
bernehmen      FORM1      Top = 291
Left = 133
Height = 21
Width = 84
Caption = "bernehmen"
Enabled = .F.
TabIndex = 64
Visible = .F.
Name = "bernehmen"
     PROCEDURE Click
With EDZ
zvorzeiten(1+0) = .xVorzeiten(1+0)
zvorzeiten(1+1) = .xVorzeiten(1+1)
zvorzeiten(1+2) = .xVorzeiten(1+2)
zvorzeiten(1+3) = .xVorzeiten(1+3)
zvorzeiten(1+4) = .xVorzeiten(1+4)
zvorzeiten(1+5) = .xVorzeiten(1+5)
For i = 0 To 5
    zprozent(1+i) = .xProzent(1+i)
    zvon(1+i) = .xvon(1+i)
    zbis(1+i) = .xbis(1+i)
Next
If .xrunden = True Then 
	thisform.Runden.Value = 1 
Else 
	thisform.Runden.value = 2
endif
EndWith
ENDPROC
                                      %         >                 U  c
   \ T C  T C  T C  T C  T C  T C    (  T  C    T  C    T  C 	   %
  = T 
   X T 
     U  EDZ
 ZVORZEITEN
 XVORZEITEN I ZPROZENT XPROZENT ZVON XVON ZBIS XBIS XRUNDEN TRUE THISFORM RUNDEN VALUE Click,     1  qA !1 1A A 1                             )                           
commandbutton      
commandbutton      	eintragen      FORM1      Top = 270
Left = 217
Height = 21
Width = 84
Caption = "eintragen"
Enabled = .F.
TabIndex = 62
Visible = .F.
Name = "eintragen"
     PROCEDURE Click

For i = 0 To 5
	xxx = ALLTRIM(STR(i,2,0))
    thisform.Vorzeiten&xxx..value = zvorzeiten(1+i)
    thisform.Prozent&xxx..value = zprozent(1+i)
    thisform.von&xxx..value  = zvon(1+i)
    thisform.bis&xxx..value  = zbis(1+i)
Next
For i = 0 To 6
	xxx = ALLTRIM(STR(i,2,0))
    thisform.Jahre&xxx..value = zjahre(1+i)
    thisform.Vormonate&xxx..value = zvormonate(1+i)
    thisform.Tage&xxx..value = ztage(1+i)
Next
If EDZ.xBeamter = 0 Or EDZ.xBeamter = 1 
   If EDZ.xBeamter = 0 
   		thisform.Runden.Value = 1 
   	Else 
   		thisform.Runden.Value = 2
   	endif
Else
   thisform.Runden.Value = 1
EndIf
ENDPROC
     (                              H   %                          U  '    (  T CC   Z3 thisform.Vorzeiten&xxx..value = zvorzeiten(1+i)
/ thisform.Prozent&xxx..value = zprozent(1+i)
( thisform.von&xxx..value  = zvon(1+i)
( thisform.bis&xxx..value  = zbis(1+i)
     ( T CC   Z+ thisform.Jahre&xxx..value = zjahre(1+i)
3 thisform.Vormonate&xxx..value = zvormonate(1+i)
) thisform.Tage&xxx..value = ztage(1+i)
 " %       %    T     T       T     U  I XXX EDZ XBEAMTER THISFORM RUNDEN VALUE Click,     1 rq1A qq1A !A1 1A  1A 1                             )                           textbox      textbox      BDAdatum      FORM1      mEnabled = .F.
Height = 23
Left = 813
TabIndex = 3
Top = 9
Visible = .F.
Width = 82
Name = "BDAdatum"
      
commandbutton      
commandbutton      Command3      FORM1      sTop = 3
Left = 483
Height = 34
Width = 150
Cancel = .T.
Caption = "drucken"
TabIndex = 2
Name = "Command3"
      PROCEDURE Click

oldselect = SELECT(0)

CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top	

Report Form vdzbescheid Range 1,1 NOCONSOLE TO PRINTER prompt

SELECT dummy
USE
SELECT(oldselect)

ENDPROC
     c    J  J                        P   %            
                U    T  C W h dummy  C F   [ F  #)# ? vdzbescheid(!"9 F  Q
 F   U 	 OLDSELECT DUMMY FELD VDZBESCHEID Click,     1  q Q A r Q 2r A  2                              )   J                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LM14SETB1415148226      /  F      ]        N                                           WINDOWS _4LM14SETC1430476360                                                                     WINDOWS _69D16PI0I1415149266K      W  c  z          r                                               WINDOWS _69D16PI0J1414045425B      P  ^  m                                                             WINDOWS _69D16PI0K1415147901            
                                                           WINDOWS _69D16PI0L1414045425                                                                       WINDOWS _69D16PI0M1415147901      '  6  C  h                                                           WINDOWS _69D16PI0N1414045425            8                                                           WINDOWS _69D16PI0O1415147901y                                                                       WINDOWS _69D16PI0P1414045425I      W  e  t                                                             WINDOWS _69D16PI0Q1415147901            +                                                           WINDOWS _69D16PI0R1414045425                                                                       WINDOWS _69D16PI0S1415147901<      K  Z  g                                                             WINDOWS _4LM14SETB1413964855          &   5   B                                                            WINDOWS _4LM14SETE1413964855       !  !  $!  1!                                                           WINDOWS _4LM14SETH1413964855!      !  !  "  "                                                           WINDOWS _4LM14SETI1415149419"      "  "  "  "      K#  Y&                                               WINDOWS _4LM14SETJ1413973050'      '  '  '  '      X(  (                                               WINDOWS _4X30WP74Q1413964855)  )  )  )  )  )                                                           WINDOWS _4LM14SETB1413964855*      *  *  *  *                                                           WINDOWS _69C0QXBD41413964855w+      +  +  +  +                                                           WINDOWS _69D16PI0T1415148586d,      y,  ,  ,  ,      6-  x7                                               COMMENT RESERVED                                t?                                                            ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR progressgrid ( sp1 C(60), sp2 N(12,2), sp3 N(12,1), sp4 N(12,2), sp5 N(12,2))
ENDPROC
     T    ;  ;                           %                             U  { x h progressgrid  C<  N  N  N  N U  PROGRESSGRID SP1 SP2 SP3 SP4 SP5 BeforeOpenTables,     1 1                       w       )   ;                        1      1      form      form      FORM1     Height = 530
Width = 625
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Progressionsvorbehalt"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
myprogress = thisform 
 
IF thisform.Top < 0
	thisform.Top = 0
endif

THISFORM.DURCHRECHNEN.CLICK

myProgress.Visible = True

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

*thisform.durchrechnen.click

IF thisform.width - 12 > thisform.grdProgressgrid.width
	thisform.grdProgressgrid.width = thisform.width -12
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  274 / 609
prozsp2 =  75 / 609

thisform.grdProgressgrid.Width = thisform.Width - 16

grdbreite = thisform.grdProgressgrid.Width 

thisform.grdProgressgrid.column1.Width = grdbreite * prozsp1
thisform.grdProgressgrid.column2.Width = grdbreite * prozsp2
thisform.grdProgressgrid.column3.Width = grdbreite * prozsp2
thisform.grdProgressgrid.column4.Width = grdbreite * prozsp2
thisform.grdProgressgrid.column5.Width = grdbreite * prozsp2

thisform.grdProgressgrid.column1.text1.fontsize = thisform.grdProgressgrid.column1.fontsize
thisform.grdProgressgrid.column2.text1.fontsize = thisform.grdProgressgrid.column1.fontsize
thisform.grdProgressgrid.column3.text1.fontsize = thisform.grdProgressgrid.column1.fontsize
thisform.grdProgressgrid.column4.text1.fontsize = thisform.grdProgressgrid.column1.fontsize
thisform.grdProgressgrid.column5.text1.fontsize = thisform.grdProgressgrid.column1.fontsize
ENDPROC
     f    M  M                           %           (               U  
 T    %   
1  T    
     T     %   	   T
 C	    T  
 T
  
     T     
  T 
  
  
 
    T  a U 
 MYPROGRESS THISFORM TOP DURCHRECHNEN CLICK VISIBLE TRUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER
 C     %       H  T        " %          ~  T     T  $pt? T	  C? T        T
      T     
   T     
 	  T   
  
 	  T     
 	  T     
 	 " T           " T           " T   
        " T           " T            U  THISFORM SIZER	 FRMRESIZE WIDTH GRDPROGRESSGRID TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 TEXT1 FONTSIZE Init,      Resize    1  BA    A    3 A "A ba2"!!!!1                                       )   M                        grid      grid      grdProgressgrid      FORM1     rColumnCount = 5
DeleteMark = .F.
Height = 349
Left = 6
Panel = 1
ReadOnly = .T.
RecordSource = "PROGRESSGRID"
RecordSourceType = 1
Top = 96
Width = 609
Name = "grdProgressgrid"
Column1.Alignment = 0
Column1.ControlSource = "PROGRESSGRID.sp1"
Column1.Width = 274
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 1
Column2.ControlSource = "PROGRESSGRID.sp2"
Column2.ReadOnly = .T.
Column2.Format = "Z"
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "PROGRESSGRID.sp3"
Column3.ReadOnly = .T.
Column3.Format = "Z"
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "PROGRESSGRID.sp4"
Column4.ReadOnly = .T.
Column4.Format = "Z"
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "PROGRESSGRID.sp5"
Column5.ReadOnly = .T.
Column5.Format = "Z"
Column5.Name = "Column5"
     iPROCEDURE Init
thisform.grdprogressgrid.Column2.DynamicBackColor = "gridcolor_grdprogressgrid(2)"
thisform.grdprogressgrid.Column3.DynamicBackColor = "gridcolor_grdprogressgrid(3)"
thisform.grdprogressgrid.Column4.DynamicBackColor = "gridcolor_grdprogressgrid(4)"
thisform.grdprogressgrid.Column5.DynamicBackColor = "gridcolor_grdprogressgrid(5)"
ENDPROC
                                   %   %   L      f     Z            U   2 T      gridcolor_grdprogressgrid(2)2 T      gridcolor_grdprogressgrid(3)2 T      gridcolor_grdprogressgrid(4)2 T      gridcolor_grdprogressgrid(5) U  THISFORM GRDPROGRESSGRID COLUMN2 DYNAMICBACKCOLOR COLUMN3 COLUMN4 COLUMN5 Init,     1 !!!!1                       ^      )                           header      header      Header1      FORM1.grdProgressgrid.Column1       Caption = ""
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdProgressgrid.Column1      xAlignment = 0
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdProgressgrid.Column2      6Alignment = 1
Caption = "Entgelt"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdProgressgrid.Column2      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdProgressgrid.Column3      9Alignment = 1
Caption = "Lohnsteuer"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdProgressgrid.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdProgressgrid.Column4      :Alignment = 1
Caption = "Soli.Zusch."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdProgressgrid.Column4      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdProgressgrid.Column5      9Alignment = 1
Caption = "KI.-Steuer"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdProgressgrid.Column5      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      zeilen0      FORM1      FontSize = 12
Caption = "Die steuerfreien Aufstockungsbetrge bei Altersteilzeit unterliegen dem Progressions-"
Height = 21
Left = 6
Top = 9
Width = 608
Name = "zeilen0"
      label      label      zeilen1      FORM1      FontSize = 12
Caption = "vorbehalt nach  32b Abs. 1 Buchstabe g des Einkommensteuergesetzes. "
Height = 21
Left = 6
Top = 30
Width = 608
Name = "zeilen1"
      label      label      Label3      FORM1      Caption = "*) hier werden auch berstundenpauschalen bercksichtigt."
Height = 18
Left = 9
Top = 452
Width = 336
Name = "Label3"
      
commandbutton      
commandbutton      
ssCommand1      FORM1      [Top = 484
Left = 173
Height = 34
Width = 139
Caption = "Drucken"
Name = "ssCommand1"
     PROCEDURE Click
*DO progress_sscommand2_click

k = 135 &&Strichlnge
a = 0
myIndex = 0

DO monatladen

*If myProgress.MSFlexGrid1.Rows = 14 
*	DO progressdrucken
*!*		oldselect = SELECT(0)
*!*		CREATE CURSOR dummy (feld C(1))
*!*		SELECT dummy
*!*		APPEND BLANK
*!*		FLUSH

*!*		SELECT dummy
*!*		GO top
SELECT progressgrid
GO top

report form atz_druck3 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt

*!*		SELECT dummy
*!*		USE

*!*		SELECT(oldselect)
	return
*endif

*!*	oldselect = SELECT(0)
*!*	CREATE CURSOR dummy (feld C(1))
*!*	SELECT dummy
*!*	APPEND BLANK
*!*	FLUSH

*!*	SELECT dummy
*!*	GO top

*!*	report form atz_druck4 RANGE 1,1 NOCONSOLE TO PRINTER prompt

*!*	SELECT dummy
*!*	USE

*!*	SELECT(oldselect)
ENDPROC
     I    0  0                        5   %                             U  ] 
 T  
 T  
 T     F  #) ?
 atz_druck3(!"9+C+
 B U  K A MYINDEX
 MONATLADEN PROGRESSGRID
 ATZ_DRUCK3 Click,     1    r | Q F 1                             )   0                        
commandbutton      
commandbutton      
ssCommand2      FORM1      ]Top = 484
Left = 312
Height = 34
Width = 139
Caption = "Schlieen"
Name = "ssCommand2"
      KPROCEDURE Click
myatzwindow.windowstate = 0
thisform.Release

ENDPROC
                                      4S   %   z                          U    T    
    U  MYATZWINDOW WINDOWSTATE THISFORM RELEASE Click,     1  2                       @       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 508
Left = 604
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      zeilen3      FORM1      FontSize = 12
Caption = "Die aus diesem Grund zu zahlenden Steueren knnen erst bei der Einkommensteuer-"
Height = 21
Left = 6
Top = 51
Width = 608
Name = "zeilen3"
      label      label      Label4      FORM1      FontSize = 12
Caption = "veranlagung ermittelt werden. Zur Abschtzung kann Ihnen folgende Berechnung dienen:"
Height = 21
Left = 6
Top = 72
Width = 608
Name = "Label4"
      
commandbutton      
commandbutton      durchrechnen      FORM1      Top = 480
Left = 525
Height = 16
Width = 70
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     
:PROCEDURE Click

Do progression 

SELECT progressgrid
SET SAFETY OFF
zap
SET SAFETY ON
FOR hsa = 1 TO 13
	APPEND BLANK
	FLUSH
next

GOTO 2
replace progressgrid.sp1 WITH " Steuerpflichtiges Monatsgehalt"
flush

GOTO 3
replace progressgrid.sp1 WITH " + Aufstockungsbetrge "
flush	

GOTO 4
replace progressgrid.sp1 WITH " = magebl. zu versteuerndes Entgelt"
flush	

GOTO 5
replace progressgrid.sp1 WITH " darauf entfallende Lohnsteuer"
flush	

GOTO 6
replace progressgrid.sp1 WITH " Durchschnittlicher Steuersatz"
flush	

GOTO 7
replace progressgrid.sp1 WITH " Wird dieser Steuersatz angewandt auf"
flush	

GOTO 8
replace progressgrid.sp1 WITH " ergeben sich"
flush	

GOTO 10
replace progressgrid.sp1 WITH " = Nachbelastung je Monat und je Steuerart"
flush	

GOTO 11
replace progressgrid.sp1 WITH " = Nachbelastung je Monat insgesamt"
flush	
If .Not. zi(1+22) = 7

	GOTO 12
	replace progressgrid.sp1 WITH " Verbleibendes Nettogehalt"
	flush		

	GOTO 13
	replace progressgrid.sp1 WITH " = netto weniger als bei Vollzeitarbeit"
	flush		
Endif


GOTO 2
replace progressgrid.sp2 WITH sicht(1+10,1+ 9)
flush	

GOTO 3
replace progressgrid.sp2 WITH sicht(1+10,1+ 12)
flush		

GOTO 4
replace progressgrid.sp2 WITH sicht(1+10,1+ 14)
flush		

GOTO 5
replace progressgrid.sp2 WITH sicht(1+10,1+ 15)
flush		

GOTO 6
replace progressgrid.sp2 WITH sicht(1+10,1+ 16)
flush		

GOTO 7
replace progressgrid.sp2 WITH sicht(1+10,1+ 9)
flush		

GOTO 11
replace progressgrid.sp2 WITH sicht(1+10,1+ 26)
flush		

If .Not. zi(1+22) = 7

	GOTO 12
	replace progressgrid.sp2 WITH sicht(1+10,1+ 27)
	flush			

	GOTO 13
	replace progressgrid.sp2 WITH sicht(1+10,1+ 28)
	flush			
	
Endif


GOTO 2
replace progressgrid.sp3 WITH sicht(1+10,1+ 13)
flush	

GOTO 2
replace progressgrid.sp4 WITH sicht(1+10,1+ 20)
flush		

GOTO 2
replace progressgrid.sp5 WITH sicht(1+10,1+ 23)
flush	


GOTO 8
replace progressgrid.sp3 WITH sicht(1+10,1+ 17)
flush		

GOTO 8
replace progressgrid.sp4 WITH sicht(1+10,1+ 21)
flush			

GOTO 8
replace progressgrid.sp5 WITH sicht(1+10,1+ 24)
flush		


GOTO 10
replace progressgrid.sp3 WITH sicht(1+10,1+ 18)
flush		

GOTO 10
replace progressgrid.sp4 WITH sicht(1+10,1+ 22)
flush		

GOTO 10
replace progressgrid.sp5 WITH sicht(1+10,1+ 25)
flush		

SELECT progressgrid
GOTO 1
DELETE
GOTO 9
DELETE
COPY TO ARRAY progrestemp FOR .not. deleted()
SELECT progressgrid
SET SAFETY OFF
ZAP
SET SAFETY ON
APPEND FROM ARRAY progrestemp
GO top
thisform.grdprogressgrid.Refresh

ENDPROC
                                      %           s               U      F  G. S G.   (
>   [ 	 #/ >    Steuerpflichtiges Monatsgehalt [	 #' >    + Aufstockungsbetrge  [	 #4 >  $  = magebl. zu versteuerndes Entgelt [	 #. >    darauf entfallende Lohnsteuer [	 #. >    Durchschnittlicher Steuersatz [	 #5 >  %  Wird dieser Steuersatz angewandt auf [	 # >  
  ergeben sich [	 #
: >  *  = Nachbelastung je Monat und je Steuerart [	 #3 >  #  = Nachbelastung je Monat insgesamt [ %C 
	 #* >    Verbleibendes Nettogehalt [	 #
7 >  '  = netto weniger als bei Vollzeitarbeit [ 	 # >  C
  [	 # >  C
  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C
  [	 # >  C  [ %C 
K	 # >  C  [	 #
 >  C  [ 	 # >  C  [	 # >  C  [	 # > 	 C  [	 # >  C  [	 # >  C  [	 # > 	 C  [	 #
 >  C  [	 #
 >  C  [	 #
 > 	 C  [ F 	 # 	 #	  (
 C'
 F  G. S G. 	 
  #)
   
  U  PROGRESSION PROGRESSGRID HSA SP1 ZI SP2 SICHT SP3 SP4 SP5 PROGRESTEMP THISFORM GRDPROGRESSGRID REFRESH Click,     1 r r a A a qQ A A  A  qA  AA  A  A  QA  A  A  1A a A  qA A  qA  qA  qA  qA  qA  qA  qA b qA  qA B  qA  qA  qA  qA  qA  qA  qA  qA  qA r  A  A  q a A a  Q  2                       /
      )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LM16Y2LA1216258119      /  F      ]                                                       WINDOWS _4LM16Y2LB1430476538                                                                     WINDOWS _4LM1914EL13636326433      3  3  3  3                                                           WINDOWS _4LM16Y2LC1363632643T4      a4  n4  |4  4                                                           WINDOWS _4LM16Y2LD14116750684      4  5  !5  .5      5  &T                                               WINDOWS _4LM16Y2LE1397912684LX      aX  vX  X  X      X  
[                                               WINDOWS _4LM16Y2LF13979126848]      M]  b]  t]  ]      ]  8^                                               WINDOWS _4LM16Y2LG1363632722)_      >_  S_  e_  r_      _  c                                               WINDOWS _4LM16Y2LH1363632643xh      h  h  h  h                                                           WINDOWS _4LM16Y2LI1363632643i      i  .i  :i  Gi                                                           WINDOWS _4LM16Y2LJ1363632643i      i  j  j  j                                                           WINDOWS _4LM16Y2LA1363632643j      j  j  j  j                                                           WINDOWS _4LM16Y2LL1363632643wk      k  k  k  k                                                           WINDOWS _4LM16Y2LM1363632643l      %l  2l  @l  Ml                                                           WINDOWS _4LM16Y2LN1363632643l      l  l  l  	m                                                           WINDOWS _4LM16Y2LO1363632874m      m  m  m  m                                                           WINDOWS _4LM16Y2LP1363632643@n      Mn  Zn  hn  un                                                           WINDOWS _4LM16Y2LQ1363632643n      n  n  
o  o                                                           WINDOWS _4LM16Y2LR1363632643o      o  o  o  o                                                           WINDOWS _4LM16Y2LS1363632643mp      zp  p  p  p                                                           WINDOWS _4LM16Y2LT1363632643
q      q  $q  3q  @q                                                           WINDOWS _4LM16Y2LU1363632643q      q  q  q  q                                                           WINDOWS _4LM16Y2LA1363632643mr      |r  r  r  r                                                           WINDOWS _4LM16Y2LW1363632643#s      /s  ;s  Hs  Us                                                           WINDOWS _4LM16Y2LX1363632643s      s  s  s  s                                                           WINDOWS _4LM16Y2LY1363632643?t      Lt  Yt  ht  ut                                                           WINDOWS _4LM16Y2LZ1363632643t      u  u  &u  3u                                                           WINDOWS _4LM16Y2M01363632643u      u  u  u  u      2v  v                                               WINDOWS _4LM16Y2LA1363632643
x      x  $x  3x  @x      x  x                                               WINDOWS _4LM16Y2M21363632643y      y  y  y  y      Ez  z                                               WINDOWS _4LM16Y2M31363632643|      *|  7|  F|  S|                                                           WINDOWS _4LM16Y2M51363634394|      |  |  |  }                                                           WINDOWS _4LM16Y2M61363632643q}      ~}  }  }  }                                                           WINDOWS _4LM16Y2M71363632643~      ~  *~  9~  F~                                                           WINDOWS _4LM16Y2LA1363632643~      ~  ~  ~  ~                                                           WINDOWS _4LM16Y2LA1363632643L      [  j  |          (                                               WINDOWS _4LM16Y2LA1363632643      ͂  ڂ                                                               WINDOWS _4LM17FHF51363632643|                                                                       WINDOWS _4LM16Y2LA1363634394r                                                                       WINDOWS _4LM16Y2LB1363632643      $  3  E  R        <                                               WINDOWS _4LM16Y2LC1363632643                                                                        WINDOWS _4LM16Y2LA1363632643ω      ܉                                                                 WINDOWS _4LM17FHF61363632643n      }                                                             WINDOWS _4LM17FHF71363632643C      P  ]  l  y                                                           WINDOWS _4LM16Y2LA1363632643      '  4  C  P                                                           WINDOWS _4LM16Y2LA1363632643ڏ                                                                       WINDOWS _4LM16Y2LA1363632643                                                                       WINDOWS _4LM17FHF81363632643>      K  X  g  t                                                           WINDOWS _4LM17FHF91363632643Α      ޑ              ْ                                               WINDOWS _4LM16Y2LA1363632643      ɓ  ֓                                                               WINDOWS _4LM16Y2LA1363632643t                                                                       WINDOWS _4LM16Y2LA1363632643!      .  ;  J  W                                                           WINDOWS _4LM16Y2LA1363632643ؕ                                                                       WINDOWS _4LM16Y2LA1363632643t                                                                       WINDOWS _4LM16Y2LB1363632643          &  3                                                           WINDOWS _4LM16Y2LC1363632643~                                                                       WINDOWS _4LM18GU5Y1363632643        !  0  =                                                           WINDOWS _4LM18GU5Z1363632643                                                                       WINDOWS _4LM18GU601363632643
        +  :  G                                                           WINDOWS _4LM16Y2LA1363632643            ș                                                           WINDOWS _4LM16Y2LA1363632643^      k  x                                                               WINDOWS _4LM18GU611363632643L      X  d  q  ~                                                           WINDOWS _4LM18GU621363632643            #                                                           WINDOWS _4LM16Y2LA1363632643Ҝ      ߜ                                                                 WINDOWS _4LM18GU631382249955y                  T                                                 WINDOWS _4LM18GU641363632643                                                                       WINDOWS _4LM18GU651363632643       /  >  Q  ^                                                       WINDOWS _4LM18GU661363632643C      P  ]  v                                                             WINDOWS _4LM16Y2LA1363632643        $  4  A                                                       WINDOWS _4LM16Y2LA1363632643{                  "  s                                               WINDOWS _4LM16Y2LA1363632643b      o  |            E                                               WINDOWS _4LM16Y2LA1382249864      %  4  @  M      9  j                                               WINDOWS _4LM16Y2LA13822498648      G  V  b  o      L  }                                               WINDOWS _4LM1914EO1363632643K      X  e  t          /                                               WINDOWS _4LM16Y2LA1382249864           *  7        E                                               WINDOWS _4LN0KYJHQ1363632643         -  <  I                                                       WINDOWS _4LM16Y2LA1382249864ȳ      ׳            ܴ  
                                               WINDOWS _4LM16Y2LB1382249864۵                                                                    WINDOWS _4LM16Y2LA1382249864            %        3                                               WINDOWS _4LM16Y2LB1382249864          ,  9        H                                               WINDOWS _4LM16Y2LA1382249864      %  4  A  N      ,  ]                                               WINDOWS _4LM16Y2LB1382249864+      :  I  V  c      A  r                                               WINDOWS _4LM16Y2LA1382249864@      O  ^  k  x      V                                                 WINDOWS _4LM16Y2LA1382249864U      d  s          k                                                 WINDOWS _4LM16Y2LA1382249864j      y                                                             WINDOWS _4LM16Y2LA1382249864                                                                   WINDOWS _4LM16Y2LA1363632643                                                                       WINDOWS _4LM16Y2LA1363632643                  y  E                                               WINDOWS _4LM16Y2LB1397508977                                                                   WINDOWS _4LM16Y2LA1363632643Q      `  o                                                               WINDOWS _4LM16Y2LA1363632643P      _  n          8                                                  WINDOWS _4LM16Y2LA1363632643      
    -  :                                                       WINDOWS _4LM1914EL1363632643V      e  t          >  *                                               WINDOWS _4LM16Y2LB1363632643        #  7  D                                                       WINDOWS _4LM16Y2LA1363632643\      k  z          D  V                                               WINDOWS _4LM1914EL1363632643j      y            R                                                 WINDOWS _4LM1914EL1363632643                                                                    WINDOWS _4LM16Y2LC1363632643                                                                   WINDOWS _4LN0KYJHR1363632643*      9  H  \  i        (                                               WINDOWS _4LM16Y2LD1363632643<      K  Z  n  {      $                                                 WINDOWS _4LN0KYJHS1363632643                  {                                                 WINDOWS _4LM16Y2LE1363632643                    S                                               WINDOWS _4LN0KYJHT1363632643          -  :                                                           WINDOWS _4LN0KYJHU1363632643                                                                         WINDOWS _4LN0KYJHV1363632643                                                                       WINDOWS _4LN0KYJHW1363632643                                                                       WINDOWS _4LN0KYJHX1363632643                                                                       WINDOWS _4LM16Y2LA1363632643z                                                                  WINDOWS _4LM16Y2LA1382249864`     o ~       v                                               WINDOWS _4LN0KYJHY1382249864u                                                            WINDOWS _4LN0KYJHZ1363632643                                                                  WINDOWS _4LN0KYJI01363632643p     |                                                             WINDOWS _4LN0KYJI11363632643        (                                                          WINDOWS _4X30WRL041363632643  	 (	 5	 B	                                                          WINDOWS _5VO0QFD671363632643	     	 	  
 
     x
 
                                              WINDOWS _4LM16Y2LA1394102652             e "
                                              WINDOWS _4LM16Y2LA1394102652H     ] r                                                      WINDOWS _5VO0V2IWY1394102652        ' 4      
                                              WINDOWS _5VO0V2IWZ1394103927      + D Q      {,                                              WINDOWS _5VO0W2TRL1397508977v;     ; ; ; ;     N< cE                                              WINDOWS _5VO0W2TRM1397508977L     L L M M     M eQ                                              WINDOWS _5VO0W2TRN1363632643vS     S S S S                                                          WINDOWS _4LM16Y2LA1363632643T     T &T 5T BT                                                          WINDOWS _4LM16Y2LA1363632643T     T T T T                                                          WINDOWS _5VO0WLGBS1363632643*U     7U DU SU `U                                                          WINDOWS _5VO11GR161363632643U     U U U U                                                          COMMENT RESERVED                                gV                                                          V                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 649
Width = 813
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Urlaubsberechnung"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Unload
myform1.visible = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
myform1.visible = .f.
IF thisform.Top < 0
	thisform.Top = 0
endif
urlgruppe = 0
urlordnung = 0
urlalter = 0
urltagenormal = 0
aufstockung = 0
jahresurlaub = 0
zusatzurlaub = 0
jahrumgerechnet = 0
endurlaub = 0
krzung1 = 0
krzung2 = 0
krzung3 = 0
zwlftel = 0
zwischenurlaub = 0
zwlftelurlaub = 0
burlg = 0
burlg12 = 0
urlj = 0
urljugend = 0
urljugend12 = 0
urlsgb = 0
urlsgb12 = 0
urlendsumme = 0
urlvorjahr = 0
urlvorjahrvon = 0
STORE 0 to urlrest
STORE 0 to urlbasis
STORE 0 to urleffektiv
urlabgeltung = 0
basiszahl = 0

myurlaubsber = thisform

j = 1
thisform.Caption = "Urlaubsanspruch von " + Alltrim(zt0(1+zi(1+0))) + " im Jahr " + welchesjahrc
i = zi(1+20) + 1

For j = 1 To i
	myget(j, fileneu,"wvw")
	If wvw.tnam(1+20) > 0
		Exit
	Endif
NEXT

urlgruppe = wvw.znam(5)
urlordnung = wvw.znam(4)

myget(i, fileneu,"wvw")

thisform.url2.value = Alltrim(zt5(1+urlgruppe))
thisform.url0.value = wnw.ztext0
urlalter = welchesjahr - Val(Right(thisform.url0.value , 4))
thisform.url1.value = urlalter

&&Berechnung des Urlaubsanspruchs
urltagenormal = 30
Do Case && urlordnung
	Case  Inlist(urlordnung, 0, 5)
		Do Case && urlgruppe
			Case (urlgruppe >= 0 .And. urlgruppe <= 18)
				Do Case && urlalter
					Case (urlalter >= 0 .And. urlalter <= 29)
						urltagenormal = 26
					Case (urlalter >= 30 .And. urlalter <= 39)
						urltagenormal = 29
				Endcase
			Case (urlgruppe >= 19 .And. urlgruppe <= 20)
				Do Case && urlalter
					Case (urlalter >= 0 .And. urlalter <= 29)
						urltagenormal = 26
				Endcase
		ENDCASE
		
	Case urlordnung = 1
		Do Case && urlalter
			Case (urlalter >= 0 .And. urlalter <= 29)
				urltagenormal = 26
		Endcase

	Case  Inlist(urlordnung, 2, 4)
		Do Case && urlgruppe
			Case urlgruppe = 0
				Do Case && urlalter
					Case (urlalter >= 0 .And. urlalter <= 29)
						urltagenormal = 26
					Case (urlalter >= 30 .And. urlalter <= 39)
						urltagenormal = 29
				Endcase
		ENDCASE
		
	Case urlordnung = 3
		Do Case && urlgruppe
			Case  Inlist(urlgruppe, 0, 4)
				Do Case && urlalter
					Case (urlalter >= 0 .And. urlalter <= 29)
						urltagenormal = 26
					Case (urlalter >= 30 .And. urlalter <= 39)
						urltagenormal = 29
				Endcase
		ENDCASE
		
	Case urlordnung = 4
		urltagenormal = 26

	Case (urlordnung >= 10 .And. urlordnung <= 23)&& TVD
		Do Case && urlalter
			Case (urlalter >= 0 .And. urlalter <= 29)
				urltagenormal = 26
			Case (urlalter >= 30 .And. urlalter <= 39)
				urltagenormal = 29
		Endcase
ENDCASE

If welchesjahr > 2011
	&&fragehs
	If urlalter > 54
		urltagenormal = 30
	Else
		urltagenormal = 29
	ENDIF
	
	If zi(1+4) = 20
		Do Case && welchesjahr
			Case welchesjahr <= 2015
				urltagenormal = 27
			Case welchesjahr <= 2017
				urltagenormal = 28
			Case welchesjahr >= 2017
				urltagenormal = 29
		Endcase
	Endif
Endif

myclose("109")

&&If Not Dir(use + "/Urlaub", vbDirectory) = "Urlaub" Then MkDir use + "/Urlaub"
myopen(eigdat + muser + "\Urlaub" + Right(welchesjahrc, 3) , 109 ,"urlaubsblatt")

myget(109, zi(1+0) + 1,"urlaubsblatt")

With urlaubsblatt
	If .dimzwlftel = 0
		.dimgeburtstag = "01.01.1960"
		.dimanspruchnormal = 30
		.dimgehaltsgruppe = "Vergtungsgruppe"
		.dimtagewoche = 9
		.dimzusatztage = 25
		.dimzusatzurlaub1 = 0
		.dimzusatzurlaub2 = 0
		.dimzwlftel = 12
		.dimkrzung1 = 0
		.dimkrzung2 = 0
		.dimSGB = 0
		.dimvorjahr = 0
		.dimvorjahrvon = 30
		
		For i = 1 To 6
			.dimgenommentext(i) = "von .. bis .. = Arb.Tage"
			.dimgenommentage(i) = 0
			.dimgenommenbasis(i) = urltagenormal
		NEXT
		
		.dimreserve1 = 0
		.dimreserve2 = 0
		.dimreserve3 = 0
		
		For i = 1 To 50
			.dimurlaubstag(i) = "          "
		Next
	Endif
	&&    Else
	&&       Get #109, 1, urlaubsblatt

	If programmversion = False
		urltagenormal = .dimanspruchnormal
		thisform.url2.value = .dimgehaltsgruppe
		thisform.url0.value = .dimgeburtstag
		urlalter = YEAR(DATE()) - Val(Right(thisform.url0.value , 4))
		thisform.url1.value = urlalter
	ENDIF
	
	If zi(1+4) > 23 .And. zi(1+4) < 28
		urltagenormal = .dimanspruchnormal
	Else
		thisform.Anspruch.BackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
*!*			thisform.Anspruch.enabled = false && = True
	Endif

	thisform.url3.value = urltagenormal
	thisform.Anspruch.value = thisform.url3.value 
	
	For i = 1 To 14
		thisform.Combo1.AddItem(" " + myformat(i / 2, "0.0") + " Arbeitstage X 52 Wochen = " + ALLTRIM(STR(i / 2 * 52,10,2)) + " Arb.Tage")
	NEXT

	thisform.Combo1.ListIndex = .dimtagewoche
	
	For i = 25 To 1 Step -1
		thisform.Combo3.AddItem(" " + ALLTRIM(STR(i,5,0)) + " freie Tage")
	NEXT
	
	For i = 0 To 25
		thisform.Combo3.AddItem(" " + ALLTRIM(STR(i,2,0)) + " Arbeitstage")
	NEXT
	
	thisform.Combo3.ListIndex = .dimzusatztage
	
	thisform.Zusatzfeld.Value = .dimzusatzurlaub1
	thisform.TDBNumber9.Value = .dimzusatzurlaub2
	thisform.TDBNumber4.Value = .dimzwlftel
	thisform.TDBNumber2.Value = .dimkrzung1
	thisform.TDBNumber3.Value = .dimkrzung2
	thisform.SSCheck1.Value = .dimSGB
	urlvorjahr = .dimvorjahr
	thisform.tdbnumber11.Value = urlvorjahr

	urlvorjahrvon = .dimvorjahrvon
	thisform.tdbnumber12.value = urlvorjahrvon
	For k = 1 To 6
		xxx = ALLTRIM(STR(k,1,0))
		urlrest(k) = .dimgenommentage(k)
		thisform.tdbnumber5_&xxx..value = urlrest(k)
		thisform.tdbnumber6_&xxx..value = .dimgenommenbasis(k)
		urlbasis(k) = .dimgenommenbasis(k)
		thisform.Text1_&xxx..value = .dimgenommentext(k)
	Next
ENDWITH

thisform.tdbnumber7.Value = wert(1+22) / 100

If zi(1+4) > 5
	thisform.Label63.Caption = "(Rundung nach  5 Abs. 2 BUrlG)"
Else
	thisform.Label63.Caption = "(bitte noch evtl. Rundungsvorschrift beachten)"
Endif

thisform.urlaubsberechnung.click 
&&TDBNumber10.Value = urlrest(7)
*Do urlaubsberechnung &&Do attached


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
                                   v   %   :           h            U    T   a U  MYFORM1 VISIBLE  C     U  THISFORM SIZER	 FRMRESIZE T   - %   
2  T    
 T  
 T  
 T  
 T  
 T  
 T	  
 T
  
 T  
 T  
 T
  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 J ( 
 J ( 
 J ( 
 T   
 T!  
 T"  
 T# G T $  Urlaubsanspruch von CCC& % 	  im Jahr '  T( C&  # ((  C #  *  wvw)  %C+ ,  } !   T C+ -  T C+ -  C (  *  wvw)  T . / CC 0  T 1 / 2 3  T 4 CC 1 / Rg T 5 /  
 T 
 HCg C  C
 He?     	
 H     	
 T     '	
 T      	?
 H;     	;
 T     
 Ha     	
 T   C +
 H'   '
 H#     	
 T     '	#
 T     
 HI C  
 Hk     	
 T     '	
 T     
 T   
  	g
 Hc     	9
 T     '	c
 T    %4 ; % 6
 T  
 T   %C& 7
 H3 4 
 T  4 
 T  4 3
 T     C 1096 7 C8 9  \UrlaubC' Rm urlaubsblatt7 ' CmC&  urlaubsblatt) 
 : w
 %;  n	 T< 
 01.01.1960 T=  T>  Vergtungsgruppe T? 	 T@  TA   TB   T;  TC   TD   TE   TF   TG  ( (	, TH (  von .. bis .. = Arb.Tage TI (   TJ (    TK   TL   TM   ( (2j	 TN ( 
              %O P 	 T =  T . / >  T 1 / <  T CC$iCC 1 / Rg T 5 /   $ %C&  C& 
	!
 T =  @
 T Q R CS   T T /   T Q /  T /  ( (
h C  C(  0.0W   Arbeitstage X 52 Wochen = CC( 4
Z	  Arb.Tage U V   T U X ?  ( (V1 C  CC(  Z  freie Tage Y V   (  (2 C  CC(  Z  Arbeitstage Y V   T Y X @  T Z / A  T [ / B  T \ / ;  T ] / C  T ^ / D  T _ / E  T F  T ` /   T G  T a /   b (s
 Tc CCb  Z T b C b I 0 thisform.tdbnumber5_&xxx..value = urlrest(k)
: thisform.tdbnumber6_&xxx..value = .dimgenommenbasis(k)
 T b C b J 4 thisform.Text1_&xxx..value = .dimgenommentext(k)
   T d / Ce d %C& 
2 T f $  (Rundung nach  5 Abs. 2 BUrlG) &A T f $ . (bitte noch evtl. Rundungsvorschrift beachten) 
  g h  % i j k m Tl Ck  i j T 
 Tl  
  m n  T i  i j l  T o  o j l 
  p  T q a Ur  MYFORM1 VISIBLE THISFORM TOP	 URLGRUPPE
 URLORDNUNG URLALTER
 URLTAGENORMAL AUFSTOCKUNG JAHRESURLAUB ZUSATZURLAUB JAHRUMGERECHNET	 ENDURLAUB KRZUNG1 KRZUNG2 KRZUNG3 ZWLFTEL ZWISCHENURLAUB ZWLFTELURLAUB BURLG BURLG12 URLJ	 URLJUGEND URLJUGEND12 URLSGB URLSGB12 URLENDSUMME
 URLVORJAHR
 URLVORJAHRVON URLREST URLBASIS URLEFFEKTIV URLABGELTUNG	 BASISZAHL MYURLAUBSBER J CAPTION ZT0 ZI WELCHESJAHRC I MYGET FILENEU WVW TNAM ZNAM URL2 VALUE ZT5 URL0 WNW ZTEXT0 WELCHESJAHR URL1 MYCLOSE MYOPEN EIGDAT MUSER URLAUBSBLATT DIMZWLFTEL
 DIMGEBURTSTAG DIMANSPRUCHNORMAL DIMGEHALTSGRUPPE DIMTAGEWOCHE
 DIMZUSATZTAGE DIMZUSATZURLAUB1 DIMZUSATZURLAUB2 DIMKRZUNG1 DIMKRZUNG2 DIMSGB
 DIMVORJAHR
 DIMVORJAHRVON DIMGENOMMENTEXT DIMGENOMMENTAGE DIMGENOMMENBASIS DIMRESERVE1 DIMRESERVE2 DIMRESERVE3
 DIMURLAUBSTAG PROGRAMMVERSION FALSE ANSPRUCH	 BACKCOLOR QBCOLOR URL3 COMBO1 ADDITEM MYFORMAT	 LISTINDEX COMBO3
 ZUSATZFELD
 TDBNUMBER9
 TDBNUMBER4
 TDBNUMBER2
 TDBNUMBER3 SSCHECK1 TDBNUMBER11 TDBNUMBER12 K XXX
 TDBNUMBER7 WERT LABEL63 URLAUBSBERECHNUNG CLICK HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Unload,      ResizeS      Init     1  2 2  AA                                 qQrA A A BAa1  Q    A   A A   A R    A A  Q   A A     A A "   A R ! ! ! A A A sr !           rAAA    rA A  AA1A B  qB 2rA BA r!A BBAAAAA 1 1qqAA A R! A    A    1                       '         D   ^         y   
      )                           shape      shape      Shape2      FORM1      TTop = 502
Left = 9
Height = 133
Width = 289
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      TTop = 155
Left = 15
Height = 53
Width = 784
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      
SSCommand1      FORM1      WTop = 0
Left = 7
Height = 28
Width = 199
Caption = "Drucken"
Name = "SSCommand1"
     PROCEDURE Click

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

IF direktzumdruckerQ() = true
	Report Form urlaubsberechnung Range 1,1 NOCONSOLE TO PRINTER prompt
else
	LOCAL loRepPreview, loRepListener
		loRepPreview = NULL

		DO (_ReportPreview) WITH loRepPreview

		loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

		WITH loRepPreview
			.Caption = "Druckvorschau"
			.TopForm = .T.
			.CanvasCount = 1
			.ZoomLevel = 5
			.Width = screenmaxb &&myform1.width + 200
			.height = screenmaxh &&myform1.height + 100
			.top = 0
			.left = 0
			.ToolbarIsVisible = .t.
		ENDWITH 

		loRepPreview.SetExtensionHandler(loExtension)
		loRepListener = NEWOBJECT('ReportListener')
		loRepListener.ListenerType = 1 
		loRepListener.PreviewContainer = loRepPreview

	*REPORT FORM urlaubsberechnung RANGE 1,1 NOCONSOLE preview
		Report Form urlaubsberechnung Range 1,1 NOCONSOLE OBJECT loRepListener &&Noconsole Preview
		
		RELEASE loRepListener
		RELEASE loRepPreview
endif

SELECT dummy
USE
SELECT(oldselect)

*!*	*!*	Printer.Orientation = 2
*!*	*!*	Printer.Font = "courier new"
*!*	*!*	Printer.FontSize = 12
*!*	*!*	Printer.FontName = "arial"

*!*	*!*	Printer.Print
*!*	*!*	Printer.Print
*!*	*!*	k = 1000
*!*	*!*	m = 8000
*!*	*!*	iii = 13000

*!*	*!*	Printer.CurrentX = k
*!*	*!*	Printer.Print ditext4;

*!*	*!*	If alltrim(ditext6) = "" 


*!*	*!*	Printer.CurrentX = iii
*!*	*!*	Printer.Print date

*!*	*!*	else

*!*	*!*	Printer.CurrentX = m
*!*	*!*	Printer.Print alltrim(ditext6)

*!*	*!*	endif

*!*	*!*	Printer.CurrentX = k
*!*	*!*	Printer.Print ditext5
*!*	*!*	Printer.FontSize = 12
*!*	*!*	Printer.FontBold = True
*!*	*!*	Printer.Print
*!*	*!*	Printer.CurrentX = k
*!*	*!*	Printer.Print "Berechnung des Urlaubsanspruchs fr " + alltrim(form1.z(0).Caption)
*!*	1 = "Berechnung des Urlaubsanspruchs fr " + alltrim(form1.z(0).Caption)
*!*	*!*	Printer.FontBold = False
*!*	*!*	Printer.Print
*!*	*!*	Printer.CurrentX = k
*!*	*!*	Printer.Print thisform.Label1.Caption
*!*	an_text = an_text + ALLTRIM(thisform.Label1.Caption) + " " + ALLTRIM(thisform.url0.value) + crlf
*!*	*!*	Printer.CurrentX = m
*!*	*!*	Printer.Print thisform.url0.value
*!*	*!*	Printer.CurrentX = k + 300
*!*	*!*	Printer.Print thisform.Label9.Caption
*!*	an_text = an_text + "Demnach wird im Laufe des Urlaubsjahres das " + ALLTRIM(thisform.url1.Caption) + " " + "Lebensjahr vollendet." + crlf
*!*	*!*	Printer.CurrentX = m
*!*	*!*	Printer.Print thisform.url1.Caption + " " + Label13.Caption
*!*	*!*  Printer.CurrentX = k
*!*	*!*	Printer.Print Label2.Caption
*!*	an_text = an_text + "2. Vergtungsgruppe zu Beginn des Urlaubsjahres " + alltrim(myform1.z5.Caption) + crlf
*!*	*!*  Printer.CurrentX = m
*!*	*!*	Printer.Print alltrim(myform1.z5.Caption)
*!*	an_text = an_text + "2. Vergtungsgruppe zu Beginn des Urlaubsjahres " + ALLTRIM(thisform.url2.value) + crlf
*!*	*!*  Printer.CurrentX = k
*!*	an_text = an_text + "3. Urlaubsanspruch bei einer Fnftagewoche" + crlf
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(3).Caption
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label3.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Zusatzfeld.Value
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label16.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(4).Caption
*!*	&&If Combo1.ListIndex = 9 And Combo3.ListIndex = 25 Then
*!*	&&Else
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print "6.  " + SSFrame1.Caption
*!*	*!*  Printer.CurrentX = k + 300
*!*	Printer.Print url(4).Caption + " / 260 X (" + Combo1.Text + " + " + Combo3.Text + ")"
*!*	*!*  Printer.CurrentX = k + 300
*!*	Printer.Print "= (kaufmnnisch gerundet)";
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(6).Caption
*!*	&&End If
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label54.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print TDBNumber9.Value

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label8.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(7).Caption

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label31.Caption + " " + TDBNumber4.Value + " " + Label32.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(8).Caption
*!*	*!*  Printer.CurrentX = k + 300
*!*	Printer.Print Label25.Caption

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label19.Caption + " " + TDBNumber2.Value + " " + Label20.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(9).Caption

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label21.Caption + " " + TDBNumber3.Value + " " + Label22.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(10).Caption

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label11.Caption + " " + Label63.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(11).Caption

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label34.Caption + SSCommand5.Caption + Label12.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(15).Caption

*!*	If Val(url(1).Caption) < 19 

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label58.Caption + SSCommand6.Caption + Label29.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(16).Caption
*!*	endif

*!*	If SSCheck1.Value = -1 

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print "15.  " + Label18.Caption + SSCommand7.Caption + Label14.Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print url(12).Caption
*!*	endif

*!*	Printer.Print
*!*	*!*  Printer.CurrentX = 10000
*!*	Printer.Print "Tage";
*!*	*!*  Printer.CurrentX = 11500
*!*	Printer.Print "von";
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print "Anteil"


*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label59.Caption;
*!*	*!*  Printer.CurrentX = 10000
*!*	Printer.Print url(13).Caption;
*!*	*!*  Printer.CurrentX = 11500
*!*	Printer.Print url(27).Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Verhltnis(9).Text

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label37.Caption;
*!*	*!*  Printer.CurrentX = 10000
*!*	Printer.Print tdbnumber11.Value;
*!*	*!*  Printer.CurrentX = 11500
*!*	Printer.Print tdbnumber12.Value;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Verhltnis(0).Text

*!*	Printer.Print
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print leftc(Label38.Caption, 25);

*!*	For i = 1 To 6
*!*	*!*  Printer.CurrentX = k + 3000
*!*	Printer.Print Text1(i).Text;
*!*	*!*  Printer.CurrentX = 10000
*!*	Printer.Print tdbnumber5(i).Value;
*!*	*!*  Printer.CurrentX = 11500
*!*	Printer.Print tdbnumber6(i).Value;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Verhltnis(i).Text
*!*	Next
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print Label40.Caption;
*!*	Printer.FontBold = True
*!*	Printer.Print "  " + Label48.Caption;
*!*	Printer.FontBold = False
*!*	*!*  Printer.CurrentX = 10000
*!*	Printer.Print url(14).Caption;
*!*	*!*  Printer.CurrentX = 11500
*!*	Printer.Print url(17).Caption;
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Verhltnis(7).Text
*!*	*!*  Printer.CurrentX = iii
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 250
*!*	endif

*!*	Printer.Print "________"
*!*	*!*  Printer.CurrentX = iii
*!*	Printer.Print Verhltnis(8).Text

*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print "20. Hhe einer etwaigen Urlaubsabgeltung: " + thisform.Label36_abgeltung.Caption
*!*	*!*  Printer.CurrentX = k
*!*	Printer.Print "      (Monatl. Urlaubsvergtung x 12    /    Arbeitstage je Woche * 52    *   abzugeltende Urlaubstage)"
*!*	Printer.FontBold = False
*!*	Printer.FontSize = 10
*!*	Printer.Print
*!*	Printer.EndDoc
ENDPROC
                                   @   %   _        '   n            U   T  C W h dummy  C F   [ F  #) %C   ) ? urlaubsberechnung(!"9     T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  u T	 
 Druckvorschau T
 a T  T  T
   T   T   T   T a  C     T C ReportListener T   T   , ? urlaubsberechnung9.  <  <   F  Q
 F   U 	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE URLAUBSBERECHNUNG LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1  q Q A r Q "    2         A r q A r A  p1                             )                           
commandbutton      
commandbutton      
SSCommand2      FORM1      \Top = 0
Left = 206
Height = 28
Width = 199
Caption = "Vorschrift"
Name = "SSCommand2"
     	PROCEDURE Click
Do Case && zi(1+4)
	Case (zi(1+4) >= 0 .And. zi(1+4) <= 7)&&4
		inet = "000"
		mylink = 650  &&Msg = "erholungsurlaubsverordnung.de"
	Case zi(1+4) = 8
	Case zi(1+4) = 9

	Case zi(1+4) > 27
		inet = "133"
		mylink = 651  &&Msg = "Index"
	Case zi(1+4) = 10 .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 27)
		inet = "132"
		mylink = 652  &&Msg = "26-Erholungsurlaub"
	Case zi(1+4) = 11
		inet = "135"
		mylink = 653  &&Msg = "TVL_26-Erholungsurlaub"
Endcase
Do insinternet &&Do attached
ENDPROC
     &    
  
                           %                          U  @
 H
 2% C    C  	P  T  000 T  C  e  C  	z  C    T  133 T 4 C  
 C   C  	  T  132 T  C  2 T  135 T     U  ZI INET MYLINK INSINTERNET Click,     1  Q QQR A Q A q 1                             )   
                        
commandbutton      
commandbutton      
SSCommand3      FORM1      WTop = 0
Left = 405
Height = 28
Width = 199
Caption = "Hilfe"
Name = "SSCommand3"
      PPROCEDURE Click
inet = 111
Msg = "67"
Do insinternet &&Do attached
ENDPROC
                                         %   n             }             U  & 
 T  o T  67   U  INET MSG INSINTERNET Click,     1   q 1                       E       )                            
commandbutton      
commandbutton      
SSCommand4      FORM1      iTop = 0
Left = 604
Height = 28
Width = 199
Cancel = .T.
Caption = "Schlieen"
Name = "SSCommand4"
     PROCEDURE Click
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
With urlaubsblatt
	.dimanspruchnormal = thisform.url3.value
	.dimtagewoche = thisform.Combo1.ListIndex
	.dimzusatztage = thisform.Combo3.ListIndex
	.dimzusatzurlaub1 = thisform.Zusatzfeld.Value
	.dimzusatzurlaub2 = thisform.TDBNumber9.Value
	.dimzwlftel = thisform.TDBNumber4.Value
	.dimkrzung1 = thisform.TDBNumber2.Value
	.dimkrzung2 = thisform.TDBNumber3.Value
	.dimSGB = thisform.SSCheck1.Value
	.dimvorjahr = urlvorjahr
	
	For i = 1 To 6
		xxx = ALLTRIM(STR(i,5,0))
		.dimgenommentext(i) = thisform.Text1_&xxx..value
		.dimgenommentage(i) = thisform.tdbnumber5_&xxx..Value
		.dimgenommenbasis(i) =thisform. tdbnumber6_&xxx..Value
	Next
	.dimreserve1 = 0
	.dimreserve2 = 0
	.dimreserve3 = 0
Endwith

myput(109, zi(1+0) + 1,"urlaubsblatt")
myclose("109")

myform1.visible = .t.

Thisform.Release

ENDPROC
                                      %   8           G            U  U
 T   
 T   T     
   T  	 
  T   
  T   
  T   
  T   
  T   
  T   
  T   
  T   
  T    ( T CC  Z4 .dimgenommentext(i) = thisform.Text1_&xxx..value
9 .dimgenommentage(i) = thisform.tdbnumber5_&xxx..Value
: .dimgenommenbasis(i) =thisform. tdbnumber6_&xxx..Value
  T    T!   T"   ' CmC$  urlaubsblatt#  C 109%  T & a
  '  U( 	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION URLAUBSBLATT DIMANSPRUCHNORMAL THISFORM URL3 VALUE DIMTAGEWOCHE COMBO1	 LISTINDEX
 DIMZUSATZTAGE COMBO3 DIMZUSATZURLAUB1
 ZUSATZFELD DIMZUSATZURLAUB2
 TDBNUMBER9 DIMZWLFTEL
 TDBNUMBER4 DIMKRZUNG1
 TDBNUMBER2 DIMKRZUNG2
 TDBNUMBER3 DIMSGB SSCHECK1
 DIMVORJAHR
 URLVORJAHR I XXX DIMRESERVE1 DIMRESERVE2 DIMRESERVE3 MYPUT ZI MYCLOSE VISIBLE RELEASE Click,     1   1 AAAAAAAAA rqAA    A r  2                             )                           label      label      Label1      FORM1      [Caption = "1. Geboren am "
Height = 18
Left = 15
Top = 31
Width = 90
Name = "Label1"
      textbox      textbox      url0      FORM1      Alignment = 2
Enabled = .F.
Height = 22
Left = 111
Top = 28
Width = 112
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
Name = "url0"
      label      label      Label2      FORM1      {Caption = "Demnach wird im Laufe des Urlaubsjahres das "
Height = 18
Left = 231
Top = 31
Width = 267
Name = "Label2"
      textbox      textbox      url1      FORM1      Alignment = 2
Enabled = .F.
Height = 22
Left = 501
Top = 28
Width = 48
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
Name = "url1"
      label      label      Label3      FORM1      dCaption = "Lebensjahr vollendet."
Height = 18
Left = 553
Top = 31
Width = 122
Name = "Label3"
      label      label      Label4      FORM1      }Caption = "2. Vergtungsgruppe zu Beginn des Urlaubsjahres"
Height = 18
Left = 15
Top = 54
Width = 282
Name = "Label4"
      textbox      textbox      url2      FORM1      Alignment = 2
Enabled = .F.
Height = 22
Left = 297
Top = 51
Width = 252
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
Name = "url2"
      label      label      Label5      FORM1      YCaption = "Urlaubstage"
Height = 15
Left = 720
Top = 57
Width = 70
Name = "Label5"
      label      label      Label6      FORM1      eCaption = "3. Urlaubsanspruch bei "
Height = 18
Left = 15
Top = 75
Width = 135
Name = "Label6"
      label      label      Label7      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "Fnf"
Height = 18
Left = 156
Top = 74
Width = 54
Name = "Label7"
      label      label      Label8      FORM1      Caption = "- Tagewoche (5 Arbeitstage * 52 Wochen = 260 Arbeitstage jhrlich)"
Height = 18
Left = 214
Top = 75
Width = 371
Name = "Label8"
      label      label      Label9      FORM1      `Caption = "4. + Zusatzurlaub "
Height = 18
Left = 15
Top = 96
Width = 135
Name = "Label9"
      label      label      Label10      FORM1      cCaption = "5. Zwischenergebnis"
Height = 18
Left = 15
Top = 117
Width = 135
Name = "Label10"
      label      label      Label11      FORM1      Caption = "6. Umrechnung bei Abweichungen von der Fnftagewoche"
Height = 18
Left = 15
Top = 138
Width = 323
Name = "Label11"
      textbox      textbox      url5      FORM1      wAlignment = 2
Enabled = .F.
Height = 22
Left = 27
Top = 161
Width = 43
DisabledForeColor = 0,0,0
Name = "url5"
      line      line      Line1      FORM1      >Height = 0
Left = 24
Top = 185
Width = 48
Name = "Line1"
      label      label      	Label12_k      FORM1      dFontBold = .T.
Caption = "260"
Height = 16
Left = 35
Top = 189
Width = 24
Name = "Label12_k"
      label      label      Label13      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "X"
Height = 17
Left = 78
Top = 177
Width = 22
Name = "Label13"
      label      label      	Label14_k      FORM1      rFontBold = .T.
FontSize = 16
Caption = "("
Height = 31
Left = 104
Top = 171
Width = 10
Name = "Label14_k"
      combobox      combobox      Combo1      FORM1      BHeight = 22
Left = 113
Top = 173
Width = 256
Name = "Combo1"
      PROCEDURE InteractiveChange
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
thisform.urlaubsberechnung.click 
ENDPROC
     B    )  )                           %                             U   
      U  THISFORM URLAUBSBERECHNUNG CLICK 
      U  THISFORM URLAUBSBERECHNUNG CLICK InteractiveChange,      Clickd     1  2  1                       >         Z   {       )   )                        label      label      Label15      FORM1      pFontBold = .T.
FontSize = 16
Caption = "("
Height = 31
Left = 374
Top = 170
Width = 10
Name = "Label15"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            combobox      combobox      Combo3      FORM1      BHeight = 22
Left = 389
Top = 174
Width = 109
Name = "Combo3"
      PROCEDURE InteractiveChange
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
thisform.urlaubsberechnung.click 
ENDPROC
     B    )  )                           %                             U   
      U  THISFORM URLAUBSBERECHNUNG CLICK 
      U  THISFORM URLAUBSBERECHNUNG CLICK InteractiveChange,      Clickd     1  2  1                       >         Z   {       )   )                        label      label      Label16      FORM1      pFontBold = .T.
FontSize = 16
Caption = ")"
Height = 31
Left = 500
Top = 170
Width = 10
Name = "Label16"
      label      label      Label24      FORM1      hCaption = "(kaufmnnisch gerundet)"
Height = 18
Left = 514
Top = 176
Width = 142
Name = "Label24"
      label      label      Label19      FORM1      aCaption = "7. + Zusatzurlaub"
Height = 18
Left = 15
Top = 213
Width = 102
Name = "Label19"
      label      label      Label20      FORM1      bCaption = "8. = Zwischensumme"
Height = 18
Left = 15
Top = 234
Width = 122
Name = "Label20"
      label      label      Label21      FORM1      ^Caption = "9. Anpruch aus "
Height = 18
Left = 15
Top = 256
Width = 90
Name = "Label21"
      spinner      spinner      
TDBNumber4      FORM1      cFontBold = .T.
FontSize = 9
Height = 21
Left = 108
Top = 253
Width = 48
Name = "TDBNumber4"
     ,PROCEDURE InteractiveChange
If thisform.TDBNumber3.Value + thisform.TDBNumber2.Value > thisform.TDBNumber4.value
	thisform.TDBNumber3.value = 0
	If thisform.TDBNumber2.Value > thisform.TDBNumber4.value
		thisform.TDBNumber2.value = 0
	Endif
ENDIF

thisform.urlaubsberechnung.click 
ENDPROC
         w  w                        !   %         .  	               U   ' %            n  T      %        j  T       
      U  THISFORM
 TDBNUMBER3 VALUE
 TDBNUMBER2
 TDBNUMBER4 URLAUBSBERECHNUNG CLICK InteractiveChange,     1 q11A A  1                       !      )   w                        label      label      Label22      FORM1      ~Caption = "vollen Beschftigungsmonaten betrgt anteilig"
Height = 18
Left = 160
Top = 255
Width = 258
Name = "Label22"
      label      label      Label23      FORM1      Caption = "(BUrlV: beim Ausscheiden wegen rente i. d. 1. Jahreshfte = 6 Monate, i- d. 2. Jahreshlfte = 12 Monate)"
Height = 18
Left = 27
Top = 274
Width = 569
Name = "Label23"
      label      label      	label24_k      FORM1      cCaption = "10. - Krzung fr "
Height = 18
Left = 15
Top = 295
Width = 90
Name = "label24_k"
      spinner      spinner      
TDBNumber2      FORM1      cFontBold = .T.
FontSize = 9
Height = 21
Left = 108
Top = 293
Width = 48
Name = "TDBNumber2"
     wPROCEDURE InteractiveChange
If thisform.TDBNumber2.Value > thisform.TDBNumber4.Value
	thisform.TDBNumber2.Value = thisform.TDBNumber4.Value
Endif

If thisform.TDBNumber2.Value + thisform.TDBNumber3.Value > thisform.TDBNumber4.Value
	thisform.TDBNumber2.Value = thisform.TDBNumber4.Value - thisform.TDBNumber3.Value
Endif

thisform.urlaubsberechnung.click 
ENDPROC
                                      %         D  	   2            U    %        6  T         ' %             # T             
      U  THISFORM
 TDBNUMBER2 VALUE
 TDBNUMBER4
 TDBNUMBER3 URLAUBSBERECHNUNG CLICK InteractiveChange,     1 A r1A  1                       l      )                           label      label      Label25      FORM1      Caption = "volle Kal.-Monate des Bezuges von befristeter Rente wegen vermindeter Erwerbsfhigkeit"
Height = 18
Left = 160
Top = 295
Width = 492
Name = "Label25"
      label      label      Label26      FORM1      aCaption = "11. - Krzung fr "
Height = 18
Left = 15
Top = 316
Width = 90
Name = "Label26"
      spinner      spinner      
TDBNumber3      FORM1      cFontBold = .T.
FontSize = 9
Height = 21
Left = 108
Top = 314
Width = 48
Name = "TDBNumber3"
     wPROCEDURE InteractiveChange
If thisform.TDBNumber3.Value > thisform.TDBNumber4.Value
	thisform.TDBNumber3.Value = thisform.TDBNumber4.Value
Endif

If thisform.TDBNumber3.Value + thisform.TDBNumber2.Value > thisform.TDBNumber4.Value
	thisform.TDBNumber3.Value = thisform.TDBNumber4.Value - thisform.TDBNumber2.Value
Endif

thisform.urlaubsberechnung.click 
ENDPROC
                                      %         D  	   2            U    %        6  T         ' %             # T             
      U  THISFORM
 TDBNUMBER3 VALUE
 TDBNUMBER4
 TDBNUMBER2 URLAUBSBERECHNUNG CLICK InteractiveChange,     1 A r1A  1                       l      )                           label      label      Label27      FORM1      Caption = "volle Kal.-Monate Sonderurlaub (ausgen. Fortbildungsurlaub bis 3 Monate)"
Height = 18
Left = 160
Top = 316
Width = 413
Name = "Label27"
      label      label      Label28      FORM1      Caption = "12. Gesamter Urlaubsanspruch fr das laufende Jahr"
Height = 18
Left = 15
Top = 337
Width = 298
Name = "Label28"
      label      label      	Label29_k      FORM1      rCaption = "13. Mindesturlaub nach  3 BUrlG"
Height = 18
Left = 15
Top = 358
Width = 189
Name = "Label29_k"
      label      label      Label30      FORM1      tCaption = "14. Mindesturlaub nach  19 JArbSchG"
Height = 18
Left = 15
Top = 379
Width = 219
Name = "Label30"
      label      label      Label31      FORM1      RCaption = "15."
Height = 18
Left = 15
Top = 400
Width = 18
Name = "Label31"
      checkbox      checkbox      SSCheck1      FORM1      Top = 400
Left = 34
Height = 19
Width = 203
Alignment = 0
Caption = "Zusatzurlaub f. Schwerbehinderte "
Name = "SSCheck1"
      =PROCEDURE Click
thisform.urlaubsberechnung.click 
ENDPROC
                                         %   d       y      s             U   
      U  THISFORM URLAUBSBERECHNUNG CLICK Click,     1  1                       2       )                            label      label      Label32      FORM1      zCaption = "16. Urlaubsanspruch fr das laufende Jahr"
Height = 18
Left = 348
Top = 421
Width = 241
Name = "Label32"
      label      label      Label33      FORM1      oCaption = "17. Resturlaub aus den Vorjahr"
Height = 18
Left = 348
Top = 441
Width = 241
Name = "Label33"
      label      label      Label34      FORM1      yCaption = "18. Verbrauchter Urlaub in laufenden Jahr"
Height = 18
Left = 96
Top = 467
Width = 241
Name = "Label34"
      label      label      Label35      FORM1      ^Caption = "19. Resturlaub"
Height = 18
Left = 348
Top = 601
Width = 87
Name = "Label35"
      textbox      textbox      Text1_1      FORM1      CHeight = 22
Left = 346
Top = 467
Width = 258
Name = "Text1_1"
      textbox      textbox      Text1_2      FORM1      CHeight = 22
Left = 346
Top = 489
Width = 258
Name = "Text1_2"
      textbox      textbox      Text1_3      FORM1      CHeight = 22
Left = 346
Top = 511
Width = 258
Name = "Text1_3"
      textbox      textbox      Text1_4      FORM1      CHeight = 22
Left = 346
Top = 533
Width = 258
Name = "Text1_4"
      textbox      textbox      Text1_5      FORM1      CHeight = 22
Left = 346
Top = 555
Width = 258
Name = "Text1_5"
      textbox      textbox      Text1_6      FORM1      CHeight = 22
Left = 346
Top = 577
Width = 258
Name = "Text1_6"
      label      label      Label36      FORM1      FontBold = .T.
FontSize = 11
Caption = "Formel fr die Urlaubsabgeltung"
Height = 18
Left = 19
Top = 496
Width = 237
Name = "Label36"
      label      label      Label37      FORM1      FontBold = .T.
FontSize = 9
Caption = "Monatl. Urlaubsverg. X 12 X abzugeltende Tage"
Height = 18
Left = 19
Top = 521
Width = 270
ForeColor = 255,0,0
Name = "Label37"
      line      line      Line2      FORM1      gBorderWidth = 2
Height = 0
Left = 16
Top = 541
Width = 273
BorderColor = 255,0,0
Name = "Line2"
      label      label      Label38      FORM1      FontBold = .T.
FontSize = 9
Caption = "52 * Anzahl der Arbeitstage je Woche"
Height = 18
Left = 19
Top = 545
Width = 270
ForeColor = 255,0,0
Name = "Label38"
      label      label      Label39      FORM1      iCaption = "Beispiel Urlaubsvergtung"
Height = 18
Left = 19
Top = 568
Width = 150
Name = "Label39"
      textbox      textbox      
TDBNumber7      FORM1      Alignment = 3
Value = 1000.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 175
Top = 565
Width = 79
Name = "TDBNumber7"
      APROCEDURE Valid
thisform.abgeltung.click 
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 ABGELTUNG CLICK Valid,     1  q 1                       6       )                            label      label      Label40      FORM1      aCaption = "abzugeltende Tage"
Height = 18
Left = 60
Top = 587
Width = 108
Name = "Label40"
      spinner      spinner      TDBNumber10      FORM1      FHeight = 22
Left = 175
Top = 585
Width = 79
Name = "TDBNumber10"
      gPROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
thisform.abgeltung.click 
ENDPROC
                                    4   %   z                          U  
 
     U  THIS CLICK 
      U  THISFORM	 ABGELTUNG CLICK InteractiveChange,      ClickJ     1  2  1                       '         C   \       )                           label      label      Label36_abgeltung      FORM1      {FontBold = .T.
Caption = "Label36_abgeltung"
Height = 19
Left = 25
Top = 609
Width = 255
Name = "Label36_abgeltung"
      spinner      spinner      anspruch      FORM1      `FontBold = .T.
FontSize = 9
Height = 21
Left = 726
Top = 74
Width = 62
Name = "anspruch"
      PROCEDURE Click
thisform.url3.value = thisform.Anspruch.Value
urltagenormal = thisform.url3.value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
                                   [   %          J  	   8            U  <  T         T     
      U  THISFORM URL3 VALUE ANSPRUCH
 URLTAGENORMAL URLAUBSBERECHNUNG CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK Click,      ProgrammaticChange      InteractiveChange     1 1 2  2  1                                                  	    )                           spinner      spinner      
zusatzfeld      FORM1      bFontBold = .T.
FontSize = 9
Height = 21
Left = 726
Top = 95
Width = 62
Name = "zusatzfeld"
      IPROCEDURE InteractiveChange
thisform.urlaubsberechnung.click 
ENDPROC
                                      94   %   d                          U   
      U  THISFORM URLAUBSBERECHNUNG CLICK InteractiveChange,     1  1                       >       )                            label      label      Label42      FORM1      nFontBold = .T.
FontSize = 9
Caption = "("
Height = 18
Left = 718
Top = 96
Width = 10
Name = "Label42"
      /PROCEDURE Init
this.caption = "+"

ENDPROC
                                      D   %   S       g      a             U    T    + U  THIS CAPTION Init,     1 2                       $       )                            textbox      textbox      url3      FORM1      Alignment = 2
Enabled = .T.
Format = "999"
Height = 22
InputMask = "999"
Left = 656
Top = 105
Visible = .F.
Width = 57
BackColor = 255,252,185
DisabledBackColor = 255,255,128
DisabledForeColor = 0,0,0
Name = "url3"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url4      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 727
Top = 116
Width = 61
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url4"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            label      label      Label43      FORM1      oFontBold = .T.
FontSize = 9
Caption = "("
Height = 17
Left = 718
Top = 119
Width = 10
Name = "Label43"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            textbox      textbox      url6      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 727
Top = 171
Width = 61
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url6"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            label      label      Label44      FORM1      oFontBold = .T.
FontSize = 9
Caption = "("
Height = 17
Left = 718
Top = 212
Width = 10
Name = "Label44"
      /PROCEDURE Init
this.caption = "+"

ENDPROC
                                      D   %   S       g      a             U    T    + U  THIS CAPTION Init,     1 2                       $       )                            textbox      textbox      url7      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 233
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url7"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url8      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 254
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url8"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url9      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 294
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url9"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url10      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 315
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url10"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url11      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 336
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url11"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url15      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 357
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url15"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url16      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 378
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url16"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url12      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 727
Top = 399
Width = 62
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url12"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url13      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 608
Top = 420
Width = 55
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url13"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url27      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 668
Top = 420
Width = 55
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url27"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      verhltnis9      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 420
Width = 62
BackColor = 128,255,128
DisabledBackColor = 128,255,128
DisabledForeColor = 0,0,0
Name = "verhltnis9"
      textbox      textbox      TDBNumber11      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 441
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber11"
      PROCEDURE InteractiveChange
If thisform.tdbnumber11.Value > 70 
	thisform.tdbnumber11.Value = 70
endif

urlvorjahr = thisform.tdbnumber11.Value

thisform.urlaubsberechnung.click 
ENDPROC
     P    7  7                        eO   %                             U  Q  %    F*  T    F  T     
      U  THISFORM TDBNUMBER11 VALUE
 URLVORJAHR URLAUBSBERECHNUNG CLICK InteractiveChange,     1 q1A 2 1                              )   7                        textbox      textbox      TDBNumber12      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 441
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber12"
     PROCEDURE InteractiveChange
urlvorjahrvon = thisform.tdbnumber12.Value

If urlvorjahrvon < 1
	thisform.Verhltnis0.value = "0,000000"
Else
	thisform.Verhltnis0.value = myformat(urlvorjahr / urlvorjahrvon, "0.000000")
ENDIF

thisform.restberechnung.click 


ENDPROC
                                      %         E  	   3            U    T      %  
?  T    0,000000 m & T   C    0.000000  
     U	 
 URLVORJAHRVON THISFORM TDBNUMBER12 VALUE VERHLTNIS0 MYFORMAT
 URLVORJAHR RESTBERECHNUNG CLICK InteractiveChange,     1 1 aA  3                             )                           textbox      textbox      verhltnis0      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 441
Width = 62
BackColor = 128,255,128
DisabledBackColor = 128,255,128
DisabledForeColor = 0,0,0
Name = "verhltnis0"
      textbox      textbox      TDBNumber5_1      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 468
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_1"
      PROCEDURE Click
myindex = 1
thisform.restberechnung.click 
ENDPROC
PROCEDURE InteractiveChange
urlrest(1) = thisform.tdbnumber5_1.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %         Q  	   ?            U   
 T  
     U  MYINDEX THISFORM RESTBERECHNUNG CLICK)  T     
     U  URLREST THISFORM TDBNUMBER5_1 VALUE RESTBERECHNUNG CLICK  T     U  THIS VALUE Click,      InteractiveChangew      Init     1   2  2 1                       <         d                  	    )                           textbox      textbox      TDBNumber6_1      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 468
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_1"
      PROCEDURE InteractiveChange
urlbasis(1) = thisform.tdbnumber6_1.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
j = 1


ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U  )  T     
     U  URLBASIS THISFORM TDBNUMBER6_1 VALUE URLAUBSBERECHNUNG CLICK 
 T   U  J  T     U  THIS VALUE InteractiveChange,      Click      Init     1  2  4 1                       i                           
    )                           textbox      textbox      TDBNumber5_2      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 490
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_2"
      PROCEDURE InteractiveChange
urlrest(2) = thisform.tdbnumber5_2.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Click
myindex = 2
thisform.restberechnung.click 


ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %         Q  	   ?            U  )  T     
     U  URLREST THISFORM TDBNUMBER5_2 VALUE RESTBERECHNUNG CLICK 
 T  
     U  MYINDEX THISFORM RESTBERECHNUNG CLICK  T     U  THIS VALUE InteractiveChange,      Click      Init     1  2   4 1                       e                               )                           textbox      textbox      TDBNumber6_2      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 490
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_2"
      PROCEDURE Click
j = 2
ENDPROC
PROCEDURE InteractiveChange
urlbasis(2) = thisform.tdbnumber6_2.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U   
 T   U  J)  T     
     U  URLBASIS THISFORM TDBNUMBER6_2 VALUE URLAUBSBERECHNUNG CLICK  T     U  THIS VALUE Click,      InteractiveChangeC      Init     1  2  2 1                                >                      )                           textbox      textbox      TDBNumber5_3      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 512
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_3"
     
PROCEDURE Click
myindex = 3
urlrest(3) = thisform.tdbnumber5_3.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE InteractiveChange
urlrest(3) = thisform.tdbnumber5_3.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %   >        
   v            U  6 
 T   T    
     U  MYINDEX URLREST THISFORM TDBNUMBER5_3 VALUE RESTBERECHNUNG CLICK)  T     
     U  URLREST THISFORM TDBNUMBER5_3 VALUE RESTBERECHNUNG CLICK  T     U  THIS VALUE Click,      InteractiveChange      Init    1   2  2 1                       f                           
    )                           textbox      textbox      TDBNumber6_3      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 512
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_3"
      PROCEDURE InteractiveChange
urlbasis(3) = thisform.tdbnumber6_3.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
j = 3
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U  )  T     
     U  URLBASIS THISFORM TDBNUMBER6_3 VALUE URLAUBSBERECHNUNG CLICK 
 T   U  J  T     U  THIS VALUE InteractiveChange,      Click      Init     1  2  2 1                       i                               )                           textbox      textbox      TDBNumber5_4      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 534
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_4"
     PROCEDURE InteractiveChange

urlrest(4) = thisform.tdbnumber5_4.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Click
myindex = 4
urlrest(4) = thisform.tdbnumber5_4.Value
thisform.restberechnung.click 

ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %   >        
   v            U  )  T     
     U  URLREST THISFORM TDBNUMBER5_4 VALUE RESTBERECHNUNG CLICK6 
 T   T    
     U  MYINDEX URLREST THISFORM TDBNUMBER5_4 VALUE RESTBERECHNUNG CLICK  T     U  THIS VALUE InteractiveChange,      Click      Init    1  2   3 1                       g                              )                           textbox      textbox      TDBNumber6_4      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 534
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_4"
      PROCEDURE InteractiveChange
urlbasis(4) = thisform.tdbnumber6_4.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
j = 4
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U  )  T     
     U  URLBASIS THISFORM TDBNUMBER6_4 VALUE URLAUBSBERECHNUNG CLICK 
 T   U  J  T     U  THIS VALUE InteractiveChange,      Click      Init     1  2  2 1                       i                               )                           textbox      textbox      TDBNumber5_5      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 556
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_5"
     PROCEDURE InteractiveChange
urlrest(5) = thisform.tdbnumber5_5.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Click
myindex = 5
urlrest(5) = thisform.tdbnumber5_5.Value
thisform.restberechnung.click 


ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %   >        
   v            U  )  T     
     U  URLREST THISFORM TDBNUMBER5_5 VALUE RESTBERECHNUNG CLICK6 
 T   T    
     U  MYINDEX URLREST THISFORM TDBNUMBER5_5 VALUE RESTBERECHNUNG CLICK  T     U  THIS VALUE InteractiveChange,      Click      Init    1  2   4 1                       e                              )                           textbox      textbox      TDBNumber6_5      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 556
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_5"
      PROCEDURE InteractiveChange
urlbasis(5) = thisform.tdbnumber6_5.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Click
j = 5
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U  )  T     
     U  URLBASIS THISFORM TDBNUMBER6_5 VALUE URLAUBSBERECHNUNG CLICK 
 T   U  J  T     U  THIS VALUE InteractiveChange,      Click      Init     1  2  2 1                       i                               )                           textbox      textbox      TDBNumber5_6      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 608
Top = 578
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber5_6"
     PROCEDURE InteractiveChange

urlrest(6) = thisform.tdbnumber5_6.Value
thisform.restberechnung.click 
ENDPROC
PROCEDURE Click
myindex = 6
urlrest(6) = thisform.tdbnumber5_6.Value
thisform.restberechnung.click 

ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                      %   >        
   v            U  )  T     
     U  URLREST THISFORM TDBNUMBER5_6 VALUE RESTBERECHNUNG CLICK6 
 T   T    
     U  MYINDEX URLREST THISFORM TDBNUMBER5_6 VALUE RESTBERECHNUNG CLICK  T     U  THIS VALUE InteractiveChange,      Click      Init    1  2   3 1                       g                              )                           textbox      textbox      TDBNumber6_6      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 668
Top = 578
Width = 55
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "TDBNumber6_6"
      PROCEDURE Click
j = 6
ENDPROC
PROCEDURE InteractiveChange
urlbasis(6) = thisform.tdbnumber6_6.Value
thisform.urlaubsberechnung.click 
ENDPROC
PROCEDURE Init
this.Value = 0
ENDPROC
                                   b   %                           U   
 T   U  J)  T     
     U  URLBASIS THISFORM TDBNUMBER6_6 VALUE URLAUBSBERECHNUNG CLICK  T     U  THIS VALUE Click,      InteractiveChangeC      Init     1  2  2 1                                >                      )                           textbox      textbox      verhltnis1      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 468
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis1"
      textbox      textbox      verhltnis2      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 490
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis2"
      textbox      textbox      verhltnis3      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 512
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis3"
      textbox      textbox      verhltnis4      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 534
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis4"
      textbox      textbox      verhltnis5      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 556
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis5"
      textbox      textbox      verhltnis6      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 578
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis6"
      textbox      textbox      url14      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 609
Top = 600
Width = 55
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url14"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      url17      FORM1      Alignment = 2
Enabled = .F.
Format = "999"
Height = 21
InputMask = "999"
Left = 668
Top = 600
Width = 55
BackColor = 255,252,185
DisabledBackColor = 255,252,185
DisabledForeColor = 0,0,0
Name = "url17"
      )PROCEDURE Init
this.Value = 0
ENDPROC
                                      f   %   P       d      ^             U    T     U  THIS VALUE Init,     1 1                              )                            textbox      textbox      verhltnis7      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 600
Width = 62
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "verhltnis7"
      line      line      Line3      FORM1      @Height = 0
Left = 610
Top = 623
Width = 179
Name = "Line3"
      textbox      textbox      verhltnis8      FORM1      Alignment = 2
Enabled = .F.
Height = 21
Left = 727
Top = 625
Width = 62
BackColor = 128,255,128
DisabledBackColor = 128,255,128
DisabledForeColor = 0,0,0
Name = "verhltnis8"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 634
Left = 789
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      spinner      spinner      
TDBNumber9      FORM1      cFontBold = .T.
FontSize = 9
Height = 21
Left = 727
Top = 211
Width = 62
Name = "TDBNumber9"
      IPROCEDURE InteractiveChange
thisform.urlaubsberechnung.click 
ENDPROC
                                      94   %   d                          U   
      U  THISFORM URLAUBSBERECHNUNG CLICK InteractiveChange,     1  1                       >       )                            
commandbutton      
commandbutton      
SSCommand5      FORM1      \Top = 356
Left = 208
Height = 21
Width = 66
Caption = " 3 BUrlG"
Name = "SSCommand5"
      PROCEDURE Click
inet = 200 &&vorher 500
mylink = 0 &&vorher 654 &&Msg = "bundesurlaubsgesetz.de"
Msg = "gesetze-im-internet.de/burlg/__3"
Do insinternet &&Do attached
ENDPROC
                                      %                             U  Q 
 T  
 T  - T   gesetze-im-internet.de/burlg/__3   U  INET MYLINK MSG INSINTERNET Click,     1   q 1                              )                           
commandbutton      
commandbutton      
SSCommand6      FORM1      `Top = 377
Left = 238
Height = 21
Width = 91
Caption = " 19 JArbSchG"
Name = "SSCommand6"
      PROCEDURE Click
inet = 200 &&vorher 500
mylink = 0 && vorher 655 &&Msg = "Jugendarbeitsschutzgesetz.de"
Msg = "gesetze-im-internet.de/jarbschg/__19"
Do insinternet &&Do attached
ENDPROC
     "    	  	                        \   %                             U  U 
 T  
 T  1 T $ gesetze-im-internet.de/jarbschg/__19   U  INET MYLINK MSG INSINTERNET Click,     1   q 1                              )   	                        
commandbutton      
commandbutton      
SSCommand7      FORM1      _Top = 400
Left = 240
Height = 21
Width = 81
Caption = " 125 SGB IX"
Name = "SSCommand7"
      jPROCEDURE Click
inet = 280
mylink = 656 &&Msg = "sgb_9/__125"
Do insinternet &&Do attached

ENDPROC
                                         %   q                          U  &  T   T    U  INET MYLINK INSINTERNET Click,     1   q 2                       _       )                            
commandbutton      
commandbutton      urlaubsberechnung      FORM1      Top = 426
Left = 27
Height = 25
Width = 100
Caption = "urlaubsberechnung"
Enabled = .F.
Visible = .F.
Name = "urlaubsberechnung"
     PROCEDURE Click
zusatzurlaub = Thisform.Zusatzfeld.Value
jahresurlaub = urltagenormal + zusatzurlaub
Thisform.url4.Value = jahresurlaub
Thisform.url5.Value = jahresurlaub
*alte jahrumgerechnet = jahresurlaub / 260 * (((Thisform.Combo1.ListIndex / 2 + 0.5) * 52) + Thisform.Combo3.ListIndex - 25)
jahrumgerechnet = jahresurlaub / 260 * (((Thisform.Combo1.ListIndex / 2) * 52) + Thisform.Combo3.ListIndex - 26)

hs_Rest = jahrumgerechnet * 1000 % 1000

If hs_Rest > 499
	jahrumgerechnet = Fix(jahrumgerechnet) + 1
Else
	jahrumgerechnet = Fix(jahrumgerechnet)
Endif


thisform.url6.value = jahrumgerechnet

endurlaub = jahrumgerechnet + thisform.TDBNumber9.value
thisform.url7.value = endurlaub

zwlftelurlaub = endurlaub / 12 * thisform.TDBNumber4.value
zwlftelurlaub = Fix(zwlftelurlaub * 1000) / 1000

thisform.url8.value = zwlftelurlaub

krzung1 = endurlaub / 12 * (Thisform.TDBNumber2.Value * -1)
krzung1 = Fix(krzung1 * 1000) / 1000
Thisform.url9.value = krzung1

krzung2 = endurlaub / 12 * (thisform.TDBNumber3.value * -1)
krzung2 = Fix(krzung2 * 1000) / 1000
thisform.url10.value = krzung2

zwischenurlaub = zwlftelurlaub + krzung1 + krzung2

hs_Rest = zwischenurlaub * 10000 % 10000

If hs_Rest > 4999
	If zi(1+4) > 5
		zwischenurlaub = Fix(zwischenurlaub) + 1
	Endif
Else
	zwischenurlaub = zwischenurlaub
Endif

thisform.url11.value = zwischenurlaub
&&Bundesurlaubsgesetz

*alte burlg = 24 / 312 * (((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25)
burlg = 24 / 312 * (((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26)
burlg = Fix(burlg * 1000) / 1000


hs_Rest  = burlg * 1000 % 1000

If hs_Rest  > 499
	burlg = Fix(burlg) + 1
Else
	burlg = burlg
Endif

If zi(1+4) < 6
	thisform.Label12.Caption = "(gilt nicht fr Beamte)"
ELSE

*alte	thisform.Label12.Caption = "(24 Werktage / 312 * " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25),10,2)) + " = gerundet " + ALLTRIM(STR(burlg,10,2)) + " Arb.Tage)"
	thisform.Label12.Caption = "(24 Werktage / 312 * " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26),10,2)) + " = gerundet " + ALLTRIM(STR(burlg,10,2)) + " Arb.Tage)"

ENDIF

If thisform.TDBNumber4.Value > 5
	thisform.url15.value = burlg
	burlg12 = burlg
Else
	thisform.Label12.Caption = thisform.Label12.Caption + " x " + ALLTRIM(STR(thisform.TDBNumber4.Value,5,2)) + " Zwlftel"
	burlg12 = burlg / 12 * thisform.TDBNumber4.Value
	burlg12 = Fix(burlg12 * 1000) / 1000
	hs_Rest  = burlg12 * 1000 % 1000
	
	If hs_Rest  > 499
		If zi(1+4) > 5
			burlg12 = Fix(burlg12) + 1
		Endif
	Else
		burlg12 = burlg12
	ENDIF
	
	thisform.url15.value = burlg12
	
ENDIF

If burlg12 > zwischenurlaub
	thisform.url11.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
	thisform.url15.disabledBackColor = QBColor(14)
Else
	thisform.url11.disabledBackColor = QBColor(14)
	thisform.url15.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
Endif
If zi(1+4) < 6
	thisform.url11.disabledBackColor = QBColor(14)
	thisform.url15.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
Endif

If urlalter < 19
	Do Case && urlalter
		Case urlalter < 16
			urlj = 30
		Case urlalter = 16
			urlj = 27
		Case urlalter = 17
			urlj = 25
	ENDCASE
	
	&&Jugendarbeitsschutzgesetz
	urljugend = urlj / 312 * (((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 26)
	hs_Rest  = urljugend * 1000 % 1000
	
	If hs_Rest  > 499
		urljugend = Fix(urljugend) + 1
	Else
		urljugend = urljugend
	ENDIF
	
*alte	thisform.Label29.Caption = "(" + urlj + " Werktage / 312 * " + ALLTRIM(STR((((Combo1.ListIndex / 2 + 0.5) * 52) + Combo3.ListIndex - 25),10,2)) + " = gerundet " + ALLTRIM(STR(urljugend,10,2)) + " Arb.Tage)"
	thisform.Label29.Caption = "(" + urlj + " Werktage / 312 * " + ALLTRIM(STR((((Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26),10,2)) + " = gerundet " + ALLTRIM(STR(urljugend,10,2)) + " Arb.Tage)"

	If thisform.TDBNumber4.Value > 5
		thisform.url16.value = urljugend
		urljugend12 = urljugend
	Else
		thisform.Label29.Caption = thisform.Label29.Caption + " x " + ALLTRIM(STR(thisform.TDBNumber4.Value,5,2)) + " Zwlftel"
		urljugend12 = urljugend / 12 * thisform.TDBNumber4.Value

		hs_Rest  = urljugend12 * 1000 % 1000
		
		If hs_Rest  > 499
			urljugend12 = Fix(urljugend12) + 1
		Else
			urljugend12 = urljugend12
		ENDIF
		
		thisform.url16.value = urljugend12
	ENDIF
	
	If urljugend12 > zwischenurlaub
		thisform.url11.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
		thisform.url15.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
		thisform.url16.disabledBackColor = QBColor(14)
	Else
		thisform.url11.disabledBackColor = QBColor(14)
		thisform.url16.disabledBackColor = qbcolor(11) &&HS hellblau hex2rgb("&HC0FFFF")
	Endif
Endif
&&Sozialgesetzbuch IX Schwerbehinderte
*alte urlsgb = 5 / 260 * (((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25)
urlsgb = 5 / 260 * (((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26)

*alte thisform.Label14.Caption = "(" + "5" + " Werktage / 260 x " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25),10,2)) + " = " + ALLTRIM(STR(urlsgb,10,2)) + " Arb.Tage)"
thisform.Label14.Caption = "(" + "5" + " Werktage / 260 x " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26),10,2)) + " = " + ALLTRIM(STR(urlsgb,10,2)) + " Arb.Tage)"

urlendsumme = 0
If thisform.url11.disabledBackColor = QBColor(14)
	urlendsumme = zwischenurlaub
Endif

If thisform.url15.disabledBackColor = QBColor(14)
	urlendsumme = burlg12
Endif

If thisform.url16.disabledBackColor = QBColor(14)
	urlendsumme = urljugend12
Endif

If .not. EMPTY(thisform.SSCheck1.Value) &&HS = -1
	urlendsumme = urlendsumme + urlsgb
Else
	urlsgb = 0
Endif
thisform.url12.value = urlsgb
thisform.url13.value = urlendsumme
thisform.url27.value = urlendsumme
thisform.Verhltnis9.value = "1.000000"

thisform.restberechnung.click 

ENDPROC
                                   p   %   n
           }
            U  9 T      T     T     T    5 T   	 
 4  
  T C G %   T C  
    T C  
   T     T      T     T      T C 
  T    ! T      T C 
  T    ! T      T C 
  T     T     T C ''G % o %C k T C  
   
 T    T    9 T  ;;? 	 
 4  
  T C 
  T C G % / T C  
  D
 T    %C 
* T     (gilt nicht fr Beamte)  T     (24 Werktage / 312 * CC 	 
 4  
 
Z  = gerundet CC 
Z
  Arb.Tage)  %   K T !   
 T"   OA T          x CC   Z	  Zwlftel T"      T" C" 
  T C" G % # %C  T" C " 
   8
 T" "   T !  "   %"   T  # C$  T ! # C$   T  # C$  T ! # C$   %C 
 T  # C$  T ! # C$   %% 
H	
 H1 % 
O
 T&  % m
 T&  % 
 T&  A T' & 8 	 
       ?4  
  T C' G %  T' C ' 
  %
 T' '   T (    (&   Werktage / 312 * CC	 
 4  
 
Z  = gerundet CC' 
Z
  Arb.Tage) %    T )  ' 
 T* '  A T (    (     x CC   Z	  Zwlftel T* '     T C* G %  T* C * 
  
 T* *   T )  *   %*  	 T  # C$  T ! # C$  T ) # C$  D	 T  # C$  T ) # C$   9 T+  ;;? 	 
 4  
  T ,    ( 5  Werktage / 260 x CC 	 
 4  
 
Z  = CC+ 
Z
  Arb.Tage)
 T-   %  # C$ 9

 T-    % ! # C$ e

 T- "   % ) # C$ 

 T- *   %C .  

 T- - +  

 T+    T /  +  T 0  -  T 1  -  T 2   1.000000
  3 4  U5  ZUSATZURLAUB THISFORM
 ZUSATZFELD VALUE JAHRESURLAUB
 URLTAGENORMAL URL4 URL5 JAHRUMGERECHNET COMBO1	 LISTINDEX COMBO3 HS_REST FIX URL6	 ENDURLAUB
 TDBNUMBER9 URL7 ZWLFTELURLAUB
 TDBNUMBER4 URL8 KRZUNG1
 TDBNUMBER2 URL9 KRZUNG2
 TDBNUMBER3 URL10 ZWISCHENURLAUB ZI URL11 BURLG LABEL12 CAPTION URL15 BURLG12 DISABLEDBACKCOLOR QBCOLOR URLALTER URLJ	 URLJUGEND LABEL29 URL16 URLJUGEND12 URLSGB LABEL14 URLENDSUMME SSCHECK1 URL12 URL13 URL27 VERHLTNIS9 RESTBERECHNUNG CLICK Click,     1 111R"a !A 3r1211R"QaA   A 2"a  A R B r1  "QaA   A 2B qq qqA QqqA     A "a  A Cr1  "a  A 2A qqq qqA A   A  A  A b  A 111 2                             )                           
commandbutton      
commandbutton      restberechnung      FORM1      Top = 429
Left = 129
Height = 22
Width = 97
Caption = "restberechnung"
Enabled = .F.
Visible = .F.
Name = "restberechnung"
     	
PROCEDURE Click
IF EMPTY(urlvorjahrvon)
	urlvorjahrvon = 0
ENDIF

If urlvorjahrvon < 1
	urleffektiv(1+0) = 0
Else
	urleffektiv(1+0) = urlvorjahr / urlvorjahrvon
ENDIF

thisform.Verhltnis0.value = myformat(urleffektiv(1+0), "0.000000")

urlrest(7) = 0
&&urlrest(7) = urlendsumme + urlvorjahr

basiszahl = endurlaub + urlsgb

If thisform.url15.disabledBackColor = QBColor(14)
	basiszahl = thisform.url15.value
Endif

If thisform.url16.disabledBackColor = QBColor(14)
	basiszahl = thisform.url16.value
Endif

urlrest(7) = 0

For i = 1 To 6
	xxx = ALLTRIM(STR(i,2,0))
	If thisform.tdbnumber6_&xxx..Value > 0
		urleffektiv(1+i) = urlrest(i) / thisform.tdbnumber6_&xxx..value
	Else
		urleffektiv(1+i) = 0
	ENDIF
	
	thisform.Verhltnis&xxx..value = myformat(urleffektiv(1+i), "0.000000")
	urlrest(7) = urlrest(7) + urleffektiv(1+i)
NEXT

urleffektiv(1+8) = Val(thisform.Verhltnis9.value) + urleffektiv(1+0)
thisform.Verhltnis8.value = myformat(urleffektiv(1+8), "0.000000")
urlrest(7) = urleffektiv(1+8) - urlrest(7)
thisform.Verhltnis7.value = myformat(urlrest(7), "0.000000")
thisform.url17.value = basiszahl
thisform.url14.value = basiszahl * urlrest(7)

If thisform.TDBNumber4.Value < 12 .Or. thisform.TDBNumber2.Value > 0 .Or. thisform.TDBNumber3.Value > 0

	If thisform.url11.disabledBackColor = QBColor(14)
		urleffektiv(1+9) = thisform.url7.value - thisform.url11.value
		&&Label48.Caption = "abz. " + urleffektiv(9) + " Tg. (Zeile 8 minus Zeile 12)"
		thisform.Label48.Caption = "(lt. Zeile 12)"
	ENDIF
	
	If thisform.url15.disabledBackColor = QBColor(14)
		urleffektiv(1+9) = thisform.url7.value - thisform.url15.value
		&&Label48.Caption = "abz. " + urleffektiv(9) + " Tg. (Zeile 8 minus Zeile 13)"
		thisform.Label48.Caption = "(lt. Zeile 13)"
	ENDIF
	
	If thisform.url16.disabledBackColor = QBColor(14)
		urleffektiv(1+9) = thisform.url7.value - thisform.url16.value
		&&Label48.Caption = "abz. " + urleffektiv(9) + " Tg. (Zeile 8 minus Zeile 14"
		thisform.Label48.Caption = "(lt. Zeile 14)"
	Endif
Else
	thisform.Label48.Caption = ""
	urleffektiv(1+9) = 0
Endif

If thisform.url14.value - urleffektiv(1+9) > 0
	thisform.TDBNumber10.Value = Fix(thisform.url14.value - urleffektiv(1+9))
ENDIF

thisform.abgeltung.click 

ENDPROC
     \    C  C                           %   y        9               U   %C   
 T     %  
D  T   c  T     & T   CC  0.000000  T   T 	 
  %   C
   T      %   C
  T      T    (X T CC  Z. If thisform.tdbnumber6_&xxx..Value > 0C urleffektiv(1+i) = urlrest(i) / thisform.tdbnumber6_&xxx..value
  T    K thisform.Verhltnis&xxx..value = myformat(urleffektiv(1+i), "0.000000")
# T C C   # T 	C   gC & T   CC	  0.000000  T C	 C & T   CC  0.000000  T     T    C 9 %   
          z %   C
 # T 
      ! T    (lt. Zeile 12)  %   C
 # T 
      ! T    (lt. Zeile 13)  %   C
 v# T 
      ! T    (lt. Zeile 14)   T      T 
   %   C
  % T   C   C
   
      U! 
 URLVORJAHRVON URLEFFEKTIV
 URLVORJAHR THISFORM VERHLTNIS0 VALUE MYFORMAT URLREST	 BASISZAHL	 ENDURLAUB URLSGB URL15 DISABLEDBACKCOLOR QBCOLOR URL16 I XXX VERHLTNIS9 VERHLTNIS8 VERHLTNIS7 URL17 URL14
 TDBNUMBER4
 TDBNUMBER2
 TDBNUMBER3 URL11 URL7 LABEL48 CAPTION TDBNUMBER10 FIX	 ABGELTUNG CLICK Click,     1   A 1 qA b21A 1A 2rq1 qA 1A 2aa11A 1A 1A  11A QA  2                       	      )   C                        
commandbutton      
commandbutton      	abgeltung      FORM1      zTop = 429
Left = 228
Height = 22
Width = 100
Caption = "abgeltung"
Enabled = .F.
Visible = .F.
Name = "abgeltung"
     PROCEDURE Click
*alte urlabgeltung = thisform.tdbnumber7.Value * 12 / (((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25) * thisform.TDBNumber10.Value
urlabgeltung = thisform.tdbnumber7.Value * 12 / (((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26) * thisform.TDBNumber10.Value

*alte thisform.Label36_abgeltung.Caption = ALLTRIM(STR(thisform.tdbnumber7.Value,10,2)) + " Euro x 12 x " + ALLTRIM(STR(thisform.TDBNumber10.Value,10,2)) + " / " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2 + 0.5) * 52) + thisform.Combo3.ListIndex - 25),10,2)) + " = " + myformat(urlabgeltung, "####0.00") + " Euro"
thisform.Label36_abgeltung.Caption = ALLTRIM(STR(thisform.tdbnumber7.Value,10,2)) + " Euro x 12 x " + ALLTRIM(STR(thisform.TDBNumber10.Value,10,2)) + " / " + ALLTRIM(STR((((thisform.Combo1.ListIndex / 2) * 52) + thisform.Combo3.ListIndex - 26),10,2)) + " = " + myformat(urlabgeltung, "####0.00") + " Euro"

ENDPROC
     	                              m   %                          U   D T        4       T  	 CC   
Z
  Euro x 12 x CC   
Z  / CC   4   
Z  = C    ####0.00
   Euro U  URLABGELTUNG THISFORM
 TDBNUMBER7 VALUE COMBO1	 LISTINDEX COMBO3 TDBNUMBER10 LABEL36_ABGELTUNG CAPTION MYFORMAT Click,     1 B
2                             )                           label      label      label48      FORM1      XCaption = "label48"
Height = 18
Left = 438
Top = 601
Width = 164
Name = "label48"
      label      label      Label12      FORM1      QCaption = ""
Height = 18
Left = 276
Top = 357
Width = 444
Name = "Label12"
      label      label      Label29      FORM1      QCaption = ""
Height = 18
Left = 331
Top = 378
Width = 390
Name = "Label29"
      label      label      Label14      FORM1      QCaption = ""
Height = 18
Left = 322
Top = 400
Width = 400
Name = "Label14"
      label      label      Label63      FORM1      pCaption = "(Rundung nach  5 Abs. 2 BUrlG)"
Height = 18
Left = 318
Top = 338
Width = 402
Name = "Label63"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0,   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LN0M7AIE1397459823      /  F      ]                                                       WINDOWS _4LN0M7AIF1494437319                                                                     WINDOWS _5U70KO5MN1417570522&      3  @  N  [                                                           WINDOWS _4LN0M7AIG1446665210                  L                                                 WINDOWS _4LN0M7AIH14175705227      L  a  q  ~        &                                               WINDOWS _4LN0M7AII1417570522      '  4  B  O                                                           WINDOWS _4LN0M7AIJ1417570522                                                                       WINDOWS _4LN0M7AIK1417570522                                                                       WINDOWS _4LN0M7AIL1417570522:      G  T  b  o                                                           WINDOWS _4LN0M7AIM1417570522            !   .                                                            WINDOWS _4LN0M7AIN1417570522                                                                            WINDOWS _4LN0M7AIP1417570522f!      {!  !  !  !      "  j#                                               WINDOWS _4LN0M7AIQ1417570522p%      %  %  %  %       &  t'                                               WINDOWS _4LN0M7AIR1417570522z)      )  )  )  )      +*  +                                               WINDOWS _4LN0M7AIS1417570522-      -  -  -  -      6.  /                                               WINDOWS _4LN0M7AIT14175705221      1  1  1  1      A2  3                                               WINDOWS _4LN0M7AIU14466650285      5  5  5  5      L6  48                                               WINDOWS _4LN0M7AIV1417570522:      :  :  :  :      c;  G<                                               WINDOWS _4LN0M7AIW1449677399=      =  =  =  >      Z>  +h                                               WINDOWS _4LN0M7AIY1417570522                                                                       WINDOWS _4LN0M7AIZ1417570522q      ~                                                                 WINDOWS _4LN0M7AJ01417570522F      S  `  n  {                                                           WINDOWS _4LN0M7AJ11417570522׃                                                                       WINDOWS _4LN0M7AJ21417570522        τ  ބ                                                             WINDOWS _4LN0M7AJ31417570522W      d  q                                                               WINDOWS _4LN0M7AJ41417570522            &                                                           WINDOWS _4LN0M7AJ51446665476      ͆  ܆          ^                                                 WINDOWS _4LN0M7AIE1417570522          Њ  ݊                                                           WINDOWS _4LN0M7AJ71494437319X      g  v                                                           WINDOWS _4LN0M7AJ81494437319(      7  F  W  d      ʑ  p                                               WINDOWS _4LN0M7AJ91417570522      !  0  A  N                                                           WINDOWS _4LN0M7AJA1417570522      Õ  ҕ                                                               WINDOWS _4LN0M7AIE1417570522V  f                                                                   WINDOWS _4LN0M7AIE1397459823=      J  W  f  s                                                           WINDOWS _4ZV0UMGHF1431852013          %  2                                                       WINDOWS _4ZV0W6Z1E1417570522        !  .  ;                                                           WINDOWS _5Q00N88OA1446665028        ̞          w                                                 WINDOWS _5Q70VQTGU1446665028          /  <        J                                              WINDOWS _4LN0M7AIE1417570522         -      z                                              WINDOWS _5U70K9ZMD1417570522     ȝ ݝ       v E                                              WINDOWS _69K0L6XM91494437167~    Š Ҡ     a آ                                              WINDOWS _6J70OIDF21446665028
      ' 5 B                                                          COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Top = 0
Left = 1
Height = 458
Width = 913
ShowWindow = 1
DoCreate = .T.
Caption = "Texte editieren"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\g22ico.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PUBLIC mytextedit
mytextedit = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
mytextedit.edit1.Value = "Sie knnen hier smtliche Texte de"
mytextedit.edit1.Value = mytextedit.edit1.Value + "s Programms Ihren Bedrfnissen anpa"
mytextedit.edit1.Value = mytextedit.edit1.Value + "ssen. Stellen Sie mit dem Schiebere"
mytextedit.edit1.Value = mytextedit.edit1.Value + "gler oder den Suchhilfen den Datens"
mytextedit.edit1.Value = mytextedit.edit1.Value + "atz ein, den Sie ndern  mchten, u"
mytextedit.edit1.Value = mytextedit.edit1.Value + "nd machen Sie dann im  Textfeld  Ih"
mytextedit.edit1.Value = mytextedit.edit1.Value + "re Eingabe. Es werden nur  35 Zeich"
mytextedit.edit1.Value = mytextedit.edit1.Value + "en bernommen. Die nderungen werde"
mytextedit.edit1.Value = mytextedit.edit1.Value + "n mit der Eingabetaste wirksam."


myClose(30)
myClose(31)
myClose(32)
myClose(33)
myClose(34)
myOpen(eigdat + "\Texte\MyText"+SUBSTR(xjahr1,3,2) ,30, "woerter") &&hs vorher jeweils 1 kleiner &&jahreswechsel done2021
myOpen(eigdat + "\Texte\MyText"+SUBSTR(xjahr2,3,2) ,31, "woerter") &&hs vorher jeweils 1 kleiner &&jahreswechsel done2021
myOpen(eigdat + "\Texte\MyText"+SUBSTR(xjahr3,3,2) ,32, "woerter") &&hs vorher jeweils 1 kleiner &&jahreswechsel done2021
myOpen(eigdat + "\Texte\MyText"+SUBSTR(xjahr4,3,2) ,33, "woerter") &&hs vorher jeweils 1 kleiner &&jahreswechsel done2021
myOpen(eigdat + "\Texte\MyText"+SUBSTR(xjahr5,3,2) ,34, "woerter") &&hs vorher jeweils 1 kleiner &&jahreswechsel done2021

mytextedit.Caption = "Editieren der Texte des Jahres " + welchesjahrc

With mytextedit.Combo1

    .Clear
    
    For i = 5271 To 5308
        myGet(20, i, "woerter")
        .AddItem(allTrim(woerter.textee))
    Next
    .AddItem("Zulagen Beamte")
    .AddItem("Zulagen BAT")
    .AddItem("Zulagen TVD")
    .AddItem("Einmalzahlungen")
    .AddItem("Sachbezge")
    .AddItem("Kostenstellen")
    .AddItem("Krankenkassen")
    .AddItem("Zusatzversorgungskassen")
    .AddItem("Einbehalte")
    .AddItem("Zulagen nach BBesO Vorb.")
    .AddItem("Zulagen nach BBesO fr Bes.Gr.")
    .AddItem("Zulagen nach Landes-BesO")
    .AddItem("Sonstiges")
ENDWITH
mytextedit.combo1.ListIndex = 1
mytextedit.combo1.click
mytextedit.refresh


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     	X    ?	  ?	                        `   %   L        >   j            U    C     U  THISFORM SIZER	 FRMRESIZE 7  
 T    %   
8  T    5 T    " Sie knnen hier smtliche Texte de@ T        # s Programms Ihren Bedrfnissen anpa@ T        # ssen. Stellen Sie mit dem Schiebere@ T        # gler oder den Suchhilfen den Datens@ T        # atz ein, den Sie ndern  mchten, u@ T        # nd machen Sie dann im  Textfeld  Ih@ T        # re Eingabe. Es werden nur  35 Zeich@ T        # en bernommen. Die nderungen werde< T         n mit der Eingabetaste wirksam.
 C 
 C 
 C  
 C! 
 C" 7 C 
 \Texte\MyTextC \ woerter 7 C 
 \Texte\MyTextC	 \ woerter 7 C 
 \Texte\MyTextC
 \  woerter 7 C 
 \Texte\MyTextC \! woerter 7 C 
 \Texte\MyTextC \" woerter 3 T  
  Editieren der Texte des Jahres          (S C   woerter  CC     C Zulagen Beamte  C Zulagen BAT  C Zulagen TVD  C Einmalzahlungen  C
 Sachbezge  C
 Kostenstellen  C
 Krankenkassen % C Zusatzversorgungskassen  C
 Einbehalte & C Zulagen nach BBesO Vorb. , C Zulagen nach BBesO fr Bes.Gr. & C Zulagen nach Landes-BesO  C	 Sonstiges   T    
     
     %    A T C    T V
 T  
     T       T      
     T ! a U" 
 MYTEXTEDIT THISFORM TOP EDIT1 VALUE MYCLOSE MYOPEN EIGDAT XJAHR1 XJAHR2 XJAHR3 XJAHR4 XJAHR5 CAPTION WELCHESJAHRC COMBO1 CLEAR I MYGET ADDITEM WOERTER TEXTEE	 LISTINDEX CLICK REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 q  AA Q     qqqqq2 1A QaaqA 1    A    1                       ,         G   
      )   ?	                        shape      shape      Shape3      FORM1      ATop = 78
Left = 264
Height = 40
Width = 457
Name = "Shape3"
      
commandbutton      
commandbutton      Command1      FORM1      YTop = 3
Left = 457
Height = 34
Width = 446
Caption = "Schlieen"
Name = "Command1"
      PROCEDURE Click
DO seiteladen

*!*	DO kostenstellenincombo
*!*	DO zeileninhalt

If register = 69
	satzanzahl = RECCOUNT(1) &&LOF(1) / Len(wvw)
endif
mytextedit.Release

ENDPROC
                                      %                             U  8     % E'  T CN 
    U 
 SEITELADEN REGISTER
 SATZANZAHL
 MYTEXTEDIT RELEASE Click,     1 q  A  2                              )                           
commandbutton      
commandbutton      Command2      FORM1      STop = 3
Left = 9
Height = 34
Width = 446
Caption = "Hilfe"
Name = "Command2"
      EPROCEDURE Click
inet = 111
Msg = "20440"
DO insinternet
ENDPROC
                                         %   q                          U  ) 
 T  o T  20440   U  INET MSG INSINTERNET Click,     1  !q 1                       :       )                            label      label      Label1      FORM1      wFontBold = .T.
FontSize = 14
Caption = "Grobauswahl"
Height = 25
Left = 9
Top = 43
Width = 138
Name = "Label1"
      label      label      Label2      FORM1      wFontBold = .T.
FontSize = 14
Caption = "Feinauswahl"
Height = 25
Left = 9
Top = 86
Width = 138
Name = "Label2"
      label      label      Label3      FORM1      {FontBold = .T.
FontSize = 14
Caption = "Suche das Wort"
Height = 25
Left = 9
Top = 229
Width = 155
Name = "Label3"
      label      label      Label4      FORM1      FontBold = .T.
FontSize = 14
Caption = "Gehe zu Datensatz Nr."
Height = 25
Left = 9
Top = 293
Width = 206
Name = "Label4"
      label      label      Label5      FORM1      FontBold = .T.
FontSize = 14
Caption = "Drucke Datenstze von"
Height = 25
Left = 9
Top = 354
Width = 227
Name = "Label5"
      label      label      Label6      FORM1      qFontBold = .T.
FontSize = 14
Caption = "bis"
Height = 25
Left = 357
Top = 354
Width = 33
Name = "Label6"
      
commandbutton      
commandbutton      	nachjahr0      FORM1      `Top = 46
Left = 750
Height = 28
Width = 153
Caption = "Kopieren nach "
Name = "nachjahr0"
     LPROCEDURE Click
myGet(20, mytextedit.ssScroll1.Value, "woerter")
Msg = woerter.textee

myGet(30, mytextedit.ssScroll1.Value, "woerter")
woerter.textee = Msg
myPut(30, mytextedit.ssScroll1.Value, "woerter")
     
thisform.command6.click
ENDPROC
PROCEDURE Init
this.Caption=this.Caption + ALLTRIM(STR(jahr1,4,0))
ENDPROC
                                      %   [        
   x            U     C    woerter   T     C    woerter   T     C    woerter 
  	 
  U  MYGET
 MYTEXTEDIT	 SSSCROLL1 VALUE MSG WOERTER TEXTEE MYPUT THISFORM COMMAND6 CLICK$ ! T      CC  Z U  THIS CAPTION JAHR1 Click,      Init    1  2 1                                  A      )                           
commandbutton      
commandbutton      	nachjahr1      FORM1      `Top = 76
Left = 750
Height = 28
Width = 153
Caption = "Kopieren nach "
Name = "nachjahr1"
     LPROCEDURE Click
myGet(20, mytextedit.ssScroll1.Value, "woerter")
Msg = woerter.textee

myGet(31, mytextedit.ssScroll1.Value, "woerter")
woerter.textee = Msg
myPut(31, mytextedit.ssScroll1.Value, "woerter")
     
thisform.command6.click
ENDPROC
PROCEDURE Init
this.Caption=this.Caption + ALLTRIM(STR(jahr2,4,0))
ENDPROC
                                      %   [        
   x            U     C    woerter   T     C    woerter   T     C    woerter 
  	 
  U  MYGET
 MYTEXTEDIT	 SSSCROLL1 VALUE MSG WOERTER TEXTEE MYPUT THISFORM COMMAND6 CLICK$ ! T      CC  Z U  THIS CAPTION JAHR2 Click,      Init    1  2 1                                  A      )                           
commandbutton      
commandbutton      	nachjahr2      FORM1      aTop = 106
Left = 751
Height = 28
Width = 153
Caption = "Kopieren nach "
Name = "nachjahr2"
     LPROCEDURE Click
myGet(20, mytextedit.ssScroll1.Value, "woerter")
Msg = woerter.textee

myGet(32, mytextedit.ssScroll1.Value, "woerter")
woerter.textee = Msg
myPut(32, mytextedit.ssScroll1.Value, "woerter")
     
thisform.command6.click
ENDPROC
PROCEDURE Init
this.Caption=this.Caption + ALLTRIM(STR(jahr3,4,0))
ENDPROC
                                      %   [        
   x            U     C    woerter   T     C     woerter   T     C     woerter 
  	 
  U  MYGET
 MYTEXTEDIT	 SSSCROLL1 VALUE MSG WOERTER TEXTEE MYPUT THISFORM COMMAND6 CLICK$ ! T      CC  Z U  THIS CAPTION JAHR3 Click,      Init    1  2 1                                  A      )                           
commandbutton      
commandbutton      	nachjahr3      FORM1      aTop = 136
Left = 751
Height = 28
Width = 153
Caption = "Kopieren nach "
Name = "nachjahr3"
     LPROCEDURE Click
myGet(20, mytextedit.ssScroll1.Value, "woerter")
Msg = woerter.textee

myGet(33, mytextedit.ssScroll1.Value, "woerter")
woerter.textee = Msg
myPut(33, mytextedit.ssScroll1.Value, "woerter")
     
thisform.command6.click
ENDPROC
PROCEDURE Init
this.Caption=this.Caption + ALLTRIM(STR(jahr4,4,0))
ENDPROC
                                      %   [        
   x            U     C    woerter   T     C!    woerter   T     C!    woerter 
  	 
  U  MYGET
 MYTEXTEDIT	 SSSCROLL1 VALUE MSG WOERTER TEXTEE MYPUT THISFORM COMMAND6 CLICK$ ! T      CC  Z U  THIS CAPTION JAHR4 Click,      Init    1  2 1                                  A      )                           
commandbutton      
commandbutton      	nachjahr4      FORM1      aTop = 165
Left = 751
Height = 28
Width = 153
Caption = "Kopieren nach "
Name = "nachjahr4"
     LPROCEDURE Click
myGet(20, mytextedit.ssScroll1.Value, "woerter")
Msg = woerter.textee

myGet(34, mytextedit.ssScroll1.Value, "woerter")
woerter.textee = Msg
myPut(34, mytextedit.ssScroll1.Value, "woerter")
     
thisform.command6.click
ENDPROC
PROCEDURE Init
this.Caption=this.Caption + ALLTRIM(STR(jahr5,4,0))
ENDPROC
                                      %   [        
   x            U     C    woerter   T     C"    woerter   T     C"    woerter 
  	 
  U  MYGET
 MYTEXTEDIT	 SSSCROLL1 VALUE MSG WOERTER TEXTEE MYPUT THISFORM COMMAND6 CLICK$ ! T      CC  Z U  THIS CAPTION JAHR5 Click,      Init    1  2 1                                  A      )                           
commandbutton      
commandbutton      
sscommand1      FORM1      `Top = 230
Left = 753
Height = 28
Width = 153
Caption = "weitersuchen"
Name = "sscommand1"
     PROCEDURE Click
i = mytextedit.ssScroll1.Value
If i > 8010
	i = 1
ELSE
	i = i + 1
endif
*mytextedit.ssScroll1.Max = 8000
myGet(20, i, "woerter")
Do while at(LOWER(allTrim(mytextedit.Text2.value)),LOWER(allTrim(woerter.textee))) <= 0
    If i = 8010 
    	mytextedit.Text2.value = "Leider nicht gefunden"
    	EXIT
    ENDIF
    i = i + 1
    myGet(20, i, "woerter")
enddo

mytextedit.ssScroll1.Value = IIF(i > 8010,8010,i)
mytextedit.aufstocken.click
ENDPROC
     U    <  <                        w   %                          U  ; T      %  J2 
 T   K  T      C    woerter ( +CCC   @CC  @   %  J ( T    Leider nicht gefunden !  T     C    woerter  ' T   C  J J   6
   	  U
  I
 MYTEXTEDIT	 SSSCROLL1 VALUE MYGET TEXT2 WOERTER TEXTEE
 AUFSTOCKEN CLICK Click,     1 1!  A !A A A r 1                             )   <                        
commandbutton      
commandbutton      
sscommand8      FORM1      Top = 273
Left = 754
Height = 28
Width = 153
Caption = "mytext in Texte"
Enabled = .F.
Visible = .F.
Name = "sscommand8"
      PROCEDURE Click

myClose(34)

myOpen(eigdat + "Texte\MYText20",34,"woerter")

For i = 7100 To 8000
    woerter.textee = "Text " + ALLTRIM(STR(i,4,0))
    myPut(34, i, "woerter")
Next
    






ENDPROC
     |    c  c                        ,   %               
            U   
 C"  , C  Texte\MYText20" woerter   (@ # T   Text CC  Z C"   woerter   U  MYCLOSE MYOPEN EIGDAT I WOERTER TEXTEE MYPUT Click,     1  1A 8                              )   c                        combobox      combobox      Combo1      FORM1      LHeight = 24
Left = 269
Style = 2
Top = 44
Width = 448
Name = "Combo1"
     )PROCEDURE InteractiveChange
If k = 1
	Return
Endif
Do Case &&Combo1.ListIndex

	Case mytextedit.Combo1.ListIndex = 0+1 &&A
		wortanfang = 1
		wortende = 530

	Case mytextedit.Combo1.ListIndex = 1+1 &&B
		wortanfang = 531
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 2+1 &&C
		wortanfang = 851
		wortende = 890

	Case mytextedit.Combo1.ListIndex = 3+1 &&W
		wortanfang = 868
		wortende = 882

	Case mytextedit.Combo1.ListIndex = 4+1 &&R
		wortanfang = 891
		wortende = 1080

	Case mytextedit.Combo1.ListIndex = 5+1 &&Anwrter
		wortanfang = 1081
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 6+1 &&F Bund
		wortanfang = 1
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 7+1 &&F Land
		wortanfang = 1
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 8+1 &&F Geminden
		wortanfang = 1081
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 9+1 &&Anwrter
		wortanfang = 1091
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 10+1 &&TVD Bund
		wortanfang = 1831
		wortende = 1990

	Case mytextedit.Combo1.ListIndex = 11+1 &&TVD Land
		wortanfang = 2001
		wortende = 2170
	Case mytextedit.Combo1.ListIndex = 12+1 &&TVD Gemeinden

		wortanfang = 2171
		wortende = 2340

	Case mytextedit.Combo1.ListIndex = 13+1 &&TVD Krankenhaus
		wortanfang = 2341
		wortende = 2490

	Case mytextedit.Combo1.ListIndex = 14+1 &&Entsorgung
		wortanfang = 5501
		wortende = 5575

	Case mytextedit.Combo1.ListIndex = 15+1 &&TVD Flughfen
		wortanfang = 5576
		wortende = 5650

	Case mytextedit.Combo1.ListIndex = 16+1 &&TVD Sparkassen
		wortanfang = 5310
		wortende = 5384

	Case mytextedit.Combo1.ListIndex = 17+1 &&TVD AOK
		wortanfang = 2541
		wortende = 2668

	Case mytextedit.Combo1.ListIndex = 18+1 &&Fahrer Bund
		wortanfang = 2830
		wortende = 2840

	Case mytextedit.Combo1.ListIndex = 19+1 &&Fahrer Land
		wortanfang = 2830
		wortende = 2840
		*      Case Combo1.ListIndex = 4 &&Anwrter

	Case mytextedit.Combo1.ListIndex = 20+1 &&Azubis
		wortanfang = 1816
		wortende = 1820

	Case mytextedit.Combo1.ListIndex = 21+1 &&Praktikanten
		wortanfang = 1812
		wortende = 1812

	Case mytextedit.Combo1.ListIndex = 22+1 &&Versorgung
		wortanfang = 2681
		wortende = 2830

	Case mytextedit.Combo1.ListIndex = 23+1 &&Verkehrsbetriebe
		wortanfang = 5385
		wortende = 5459

	Case mytextedit.Combo1.ListIndex = 24+1 &&Sondertarif
		wortanfang = 5576
		wortende = 5650

	Case mytextedit.Combo1.ListIndex = 25+1 &&Freier Mitarbeiter
		wortanfang = 3263
		wortende = 3267

	Case mytextedit.Combo1.ListIndex = 26+1 &&Geringfgig
		wortanfang = 2521
		wortende = 2540

	Case mytextedit.Combo1.ListIndex = 27+1 &&Ohne Gehalt
		wortanfang = 2980
		wortende = 2987

	Case mytextedit.Combo1.ListIndex = 28+1 .Or. mytextedit.Combo1.ListIndex = 29+1 && BL
		wortanfang = 1101
		wortende = 1430

	Case mytextedit.Combo1.ListIndex = 30+1 && VKA
		wortanfang = 5711
		wortende = 5965

	Case mytextedit.Combo1.ListIndex = 31+1 && Pflege
		wortanfang = 1431
		wortende = 1570

	Case mytextedit.Combo1.ListIndex = 32+1 &&AOK
		wortanfang = 2541
		wortende = 2668

	Case mytextedit.Combo1.ListIndex = 33+1 &&Arbeiter
		wortanfang = 1571
		wortende = 1740

	Case mytextedit.Combo1.ListIndex = 34+1 && Fahrer Bund
		wortanfang = 1741
		wortende = 1750

	Case mytextedit.Combo1.ListIndex = 35+1 &&Fahrer Land
		wortanfang = 1751
		wortende = 1760

	Case mytextedit.Combo1.ListIndex = 36+1 && Azubi
		wortanfang = 2970
		wortende = 2979

	Case mytextedit.Combo1.ListIndex = 37+1 &&Praktikant
		wortanfang = 1812
		wortende = 1812

	Case mytextedit.Combo1.ListIndex = 38+1 &&Zulagen fr Beamte
		wortanfang = 4500
		wortende = 4607

	Case mytextedit.Combo1.ListIndex = 39+1 &&Zulagen fr Angestellte
		wortanfang = 3387
		wortende = 3494

	Case mytextedit.Combo1.ListIndex = 40+1 &&Zulagen fr TVD
		wortanfang = 3387
		wortende = 3494

	Case mytextedit.Combo1.ListIndex = 41+1 && Einmalzahlungen
		wortanfang = 4456
		wortende = 4465

	Case mytextedit.Combo1.ListIndex = 42+1 &&Sachbezge
		wortanfang = 4111
		wortende = 4119

	Case mytextedit.Combo1.ListIndex = 43+1 &&Kostenstellen
		wortanfang = 4801
		wortende = 4920

	Case mytextedit.Combo1.ListIndex = 44+1 &&Krankenkassen
		wortanfang = 4921
		wortende = 4955

	Case mytextedit.Combo1.ListIndex = 45+1 &&Zusatzversorgungskassen
		wortanfang = 5460
		wortende = 5499

	Case mytextedit.Combo1.ListIndex = 46+1 &&Einbehalte
		wortanfang = 3713
		wortende = 3742

	Case mytextedit.Combo1.ListIndex = 47+1 &&BBesO.Vorb
		wortanfang = 6100
		wortende = 6116

	Case mytextedit.Combo1.ListIndex = 48+1
		wortanfang = 6118
		wortende = 6135

	Case mytextedit.Combo1.ListIndex = 49+1
		i = 6136 + zi(1+2) * 18
		wortanfang = i
		wortende = i + 18

	Case mytextedit.Combo1.ListIndex = 50+1
		wortanfang = 1
		wortende = 8010
ENDCASE
*zurcksetzen
mytextedit.ssScroll1.Max = 10000
mytextedit.ssScroll1.Min = 1
*mytextedit.ssScroll1.selstart = 1

mytextedit.ssScroll1.Max = wortende
*mytextedit.ssScroll1.selstart = wortanfang
mytextedit.ssScroll1.Min = wortanfang

mytextedit.ssScroll1.Value = mytextedit.ssScroll1.Min
mytextedit.ssScroll1.click
*mytextedit.ssScroll1.refresh
ENDPROC
PROCEDURE ProgrammaticChange
If k = 1
	Return
Endif
Do Case &&Combo1.ListIndex

	Case mytextedit.Combo1.ListIndex = 0+1 &&A
		wortanfang = 1
		wortende = 530

	Case mytextedit.Combo1.ListIndex = 1+1 &&B
		wortanfang = 531
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 2+1 &&C
		wortanfang = 851
		wortende = 890

	Case mytextedit.Combo1.ListIndex = 3+1 &&W
		wortanfang = 868
		wortende = 882

	Case mytextedit.Combo1.ListIndex = 4+1 &&R
		wortanfang = 891
		wortende = 1080

	Case mytextedit.Combo1.ListIndex = 5+1 &&Anwrter
		wortanfang = 1081
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 6+1 &&F Bund
		wortanfang = 1
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 7+1 &&F Land
		wortanfang = 1
		wortende = 850

	Case mytextedit.Combo1.ListIndex = 8+1 &&F Geminden
		wortanfang = 1081
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 9+1 &&Anwrter
		wortanfang = 1091
		wortende = 1100

	Case mytextedit.Combo1.ListIndex = 10+1 &&TVD Bund
		wortanfang = 1831
		wortende = 1990

	Case mytextedit.Combo1.ListIndex = 11+1 &&TVD Land
		wortanfang = 2001
		wortende = 2170
	Case mytextedit.Combo1.ListIndex = 12+1 &&TVD Gemeinden

		wortanfang = 2171
		wortende = 2340

	Case mytextedit.Combo1.ListIndex = 13+1 &&TVD Krankenhaus
		wortanfang = 2341
		wortende = 2490

	Case mytextedit.Combo1.ListIndex = 14+1 &&Entsorgung
		wortanfang = 5501
		wortende = 5575

	Case mytextedit.Combo1.ListIndex = 15+1 &&TVD Flughfen
		wortanfang = 5576
		wortende = 5650

	Case mytextedit.Combo1.ListIndex = 16+1 &&TVD Sparkassen
		wortanfang = 5310
		wortende = 5384

	Case mytextedit.Combo1.ListIndex = 17+1 &&TVD AOK
		wortanfang = 2541
		wortende = 2668

	Case mytextedit.Combo1.ListIndex = 18+1 &&Fahrer Bund
		wortanfang = 2830
		wortende = 2840

	Case mytextedit.Combo1.ListIndex = 19+1 &&Fahrer Land
		wortanfang = 2830
		wortende = 2840
		*      Case Combo1.ListIndex = 4 &&Anwrter

	Case mytextedit.Combo1.ListIndex = 20+1 &&Azubis
		wortanfang = 1816
		wortende = 1820

	Case mytextedit.Combo1.ListIndex = 21+1 &&Praktikanten
		wortanfang = 1812
		wortende = 1812

	Case mytextedit.Combo1.ListIndex = 22+1 &&Versorgung
		wortanfang = 2681
		wortende = 2830

	Case mytextedit.Combo1.ListIndex = 23+1 &&Verkehrsbetriebe
		wortanfang = 5385
		wortende = 5459

	Case mytextedit.Combo1.ListIndex = 24+1 &&Sondertarif
		wortanfang = 5576
		wortende = 5650

	Case mytextedit.Combo1.ListIndex = 25+1 &&Freier Mitarbeiter
		wortanfang = 3263
		wortende = 3267

	Case mytextedit.Combo1.ListIndex = 26+1 &&Geringfgig
		wortanfang = 2521
		wortende = 2540

	Case mytextedit.Combo1.ListIndex = 27+1 &&Ohne Gehalt
		wortanfang = 2980
		wortende = 2987

	Case mytextedit.Combo1.ListIndex = 28+1 .Or. mytextedit.Combo1.ListIndex = 29+1 && BL
		wortanfang = 1101
		wortende = 1430

	Case mytextedit.Combo1.ListIndex = 30+1 && VKA
		wortanfang = 5711
		wortende = 5965

	Case mytextedit.Combo1.ListIndex = 31+1 && Pflege
		wortanfang = 1431
		wortende = 1570

	Case mytextedit.Combo1.ListIndex = 32+1 &&AOK
		wortanfang = 2541
		wortende = 2668

	Case mytextedit.Combo1.ListIndex = 33+1 &&Arbeiter
		wortanfang = 1571
		wortende = 1740

	Case mytextedit.Combo1.ListIndex = 34+1 && Fahrer Bund
		wortanfang = 1741
		wortende = 1750

	Case mytextedit.Combo1.ListIndex = 35+1 &&Fahrer Land
		wortanfang = 1751
		wortende = 1760

	Case mytextedit.Combo1.ListIndex = 36+1 && Azubi
		wortanfang = 2970
		wortende = 2979

	Case mytextedit.Combo1.ListIndex = 37+1 &&Praktikant
		wortanfang = 1812
		wortende = 1812

	Case mytextedit.Combo1.ListIndex = 38+1 &&Zulagen fr Beamte
		wortanfang = 4500
		wortende = 4607

	Case mytextedit.Combo1.ListIndex = 39+1 &&Zulagen fr Angestellte
		wortanfang = 3387
		wortende = 3494

	Case mytextedit.Combo1.ListIndex = 40+1 &&Zulagen fr TVD
		wortanfang = 3387
		wortende = 3494

	Case mytextedit.Combo1.ListIndex = 41+1 && Einmalzahlungen
		wortanfang = 4456
		wortende = 4465

	Case mytextedit.Combo1.ListIndex = 42+1 &&Sachbezge
		wortanfang = 4111
		wortende = 4119

	Case mytextedit.Combo1.ListIndex = 43+1 &&Kostenstellen
		wortanfang = 4801
		wortende = 4920

	Case mytextedit.Combo1.ListIndex = 44+1 &&Krankenkassen
		wortanfang = 4921
		wortende = 4955

	Case mytextedit.Combo1.ListIndex = 45+1 &&Zusatzversorgungskassen
		wortanfang = 5460
		wortende = 5499

	Case mytextedit.Combo1.ListIndex = 46+1 &&Einbehalte
		wortanfang = 3713
		wortende = 3742

	Case mytextedit.Combo1.ListIndex = 47+1 &&BBesO.Vorb
		wortanfang = 6100
		wortende = 6116

	Case mytextedit.Combo1.ListIndex = 48+1
		wortanfang = 6118
		wortende = 6135

	Case mytextedit.Combo1.ListIndex = 49+1
		i = 6136 + zi(1+2) * 18
		wortanfang = i
		wortende = i + 18

	Case mytextedit.Combo1.ListIndex = 50+1
		wortanfang = 1
		wortende = 8000
ENDCASE
*zurcksetzen
mytextedit.ssScroll1.Max = 10000
mytextedit.ssScroll1.Min = 1
*mytextedit.ssScroll1.selstart = 1

mytextedit.ssScroll1.Max = wortende
*mytextedit.ssScroll1.selstart = wortanfang
mytextedit.ssScroll1.Min = wortanfang

mytextedit.ssScroll1.Value = mytextedit.ssScroll1.Min
mytextedit.ssScroll1.click
*mytextedit.ssScroll1.refresh
ENDPROC
                                      %   v      ;  G              U  
 %    B 
 H& E
    X 
 T  T       T  T R      T S T z      T d T r    $ T { T 8    W T 9 T L    
 T  T R    
 T  T R    	 T 9 T L    
! T C T L    T T ' T      T  T z    
 T { T $	     T %	 T 	      T } T     S T  T      T  T      T 	 T l
     T  T      T  T     R T  T      T  T      T y
 T      T 	 T S     T  T     Q T  T      T 	 T 	     T  T (         T M T     . T O T M     a T  T "    ! T 	 T l
    " T # T     # T  T     $- T  T     %` T  T     & T  T     ' T  T     ( T ;
 T 
    ), T ;
 T 
    *_ T h T q    + T  T     , T  T 8    - T 9 T [    .+	 T T T {    /^	 T  T     0	 T  T     1	 T  T     2
 T C 
 T   T      3E

 T  T J  T  	 ' T  
  T  	   T  
   T     
 
     U
  K
 MYTEXTEDIT COMBO1	 LISTINDEX
 WORTANFANG WORTENDE I ZI	 SSSCROLL1 MAX MIN VALUE CLICK
 %    B 
 H& E
    X 
 T  T       T  T R      T S T z      T d T r    $ T { T 8    W T 9 T L    
 T  T R    
 T  T R    	 T 9 T L    
! T C T L    T T ' T      T  T z    
 T { T $	     T %	 T 	      T } T     S T  T      T  T      T 	 T l
     T  T      T  T     R T  T      T  T      T y
 T      T 	 T S     T  T     Q T  T      T 	 T 	     T  T (         T M T     . T O T M     a T  T "    ! T 	 T l
    " T # T     # T  T     $- T  T     %` T  T     & T  T     ' T  T     ( T ;
 T 
    ), T ;
 T 
    *_ T h T q    + T  T     , T  T 8    - T 9 T [    .+	 T T T {    /^	 T  T     0	 T  T     1	 T  T     2
 T C 
 T   T      3E

 T  T @  T  	 ' T  
  T  	   T  
   T     
 
     U
  K
 MYTEXTEDIT COMBO1	 LISTINDEX
 WORTANFANG WORTENDE I ZI	 SSSCROLL1 MAX MIN VALUE CLICK InteractiveChange,      ProgrammaticChangeQ    1 A A  r  r  r  r  r  r  r  r  r  r  r  r  q  r  r  r  r  r  r  r  s  r  r  r  r  r  r  r    r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r r  A B132 3 A A  r  r  r  r  r  r  r  r  r  r  r  r  q  r  r  r  r  r  r  r  s  r  r  r  r  r  r  r    r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r  r r  A B132 2                                 )      )                           shape      shape      Shape1      FORM1      TTop = 78
Left = 153
Height = 41
Width = 106
SpecialEffect = 0
Name = "Shape1"
      label      label      sspanel1      FORM1      FontBold = .T.
FontSize = 16
Alignment = 2
Caption = "Nr."
Height = 25
Left = 157
Top = 88
Width = 97
ForeColor = 0,0,255
Name = "sspanel1"
      shape      shape      Shape2      FORM1      TTop = 157
Left = 11
Height = 39
Width = 171
SpecialEffect = 0
Name = "Shape2"
      label      label      sspanel2      FORM1      FontBold = .T.
FontSize = 16
Alignment = 2
Caption = "Belegt sind"
Height = 25
Left = 17
Top = 166
Width = 160
ForeColor = 255,0,0
Name = "sspanel2"
      label      label      Label10      FORM1      dCaption = "Hchstens 35 Zeichen"
Height = 19
Left = 31
Top = 151
Width = 127
Name = "Label10"
      label      label      Label8      FORM1      WCaption = "Datensatz"
Height = 15
Left = 177
Top = 71
Width = 60
Name = "Label8"
      label      label      unterordnung      FORM1      AutoSize = .T.
FontSize = 14
Alignment = 2
Caption = "unterordnung"
Height = 25
Left = 392
Top = 145
Width = 113
Name = "unterordnung"
      textbox      textbox      Text1      FORM1      `Alignment = 0
Height = 24
Left = 247
MaxLength = 35
Top = 166
Width = 388
Name = "Text1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
If nKeyCode = 13
    woerter.textee = Right(allTrim(mytextedit.Text1.value), 35)
    myPut(20, mytextedit.ssScroll1.Value, "woerter")

    *Put #80, ssScroll1.Value, woerter
    If mytextedit.ssScroll1.value < mytextedit.ssScroll1.Max 
    	mytextedit.ssScroll1.value = mytextedit.ssScroll1.value + 1
    endif
EndIf
ENDPROC
                                   3   %   )      O  
   ;            U        %  
  T  CC   #R  C    woerter  %     	 
  T         U
  NKEYCODE
 NSHIFTALTCTRL WOERTER TEXTEE
 MYTEXTEDIT TEXT1 VALUE MYPUT	 SSSCROLL1 MAX KeyPress,     1  A A 1                       }      )                           label      label      Label13      FORM1      sCaption = "Return/Enter bewirkt das Speichern"
Height = 15
Left = 343
Top = 191
Width = 197
Name = "Label13"
      textbox      textbox      Text2      FORM1      PAlignment = 0
Height = 24
Left = 247
Top = 229
Width = 388
Name = "Text2"
     PROCEDURE KeyPress
LPARAMETERS KeyAscii, nShiftAltCtrl
If KeyAscii = 13 

    mytextedit.ssScroll1.Max = 8010
    mytextedit.ssScroll1.Min = 1
    mytextedit.ssScroll1.Value = 1
   * Screen.MousePointer = 11
    i = 1
    myGet(20, i, "woerter")
    Do while at(LOWER(allTrim(mytextedit.Text2.value)),LOWER(allTrim(woerter.textee))) <= 0
        If i = 8000 
        	mytextedit.Text2.value = "Leider nicht gefunden"
        	EXIT
        ENDIF
	    i = i + 1
        myGet(20, i, "woerter")
    enddo
    
    mytextedit.ssScroll1.Value = IIF(i > 8000,8000,i)
    mytextedit.aufstocken.click
 *  Screen.MousePointer = 1

EndIf
    
ENDPROC
         |  |                           %         3                 U  S     %  
L T   J T    T   
 T  C   woerter ( +CCC 	  @CC
  @  % @ ( T 	   Leider nicht gefunden !  T   C   woerter  ' T   C @ @  6
   
   U  KEYASCII
 NSHIFTALTCTRL
 MYTEXTEDIT	 SSSCROLL1 MAX MIN VALUE I MYGET TEXT2 WOERTER TEXTEE
 AUFSTOCKEN CLICK KeyPress,     1  B11 !A A A r C 2                             )   |                        textbox      textbox      	IMnumber3      FORM1      ^Alignment = 2
Value = 0
Height = 24
Left = 247
Top = 293
Width = 96
Name = "IMnumber3"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
If nKeyCode = 13
    mytextedit.ssScroll1.Max = 8010
    mytextedit.ssScroll1.Min = 1
    mytextedit.ssScroll1.Value = 1

    *If imNumber3.Value > 4955 And imNumber3.Value < 5310 Then imNumber3.Value = 1
    mytextedit.ssScroll1.Value = mytextedit.IMnumber3.Value
   mytextedit.aufstocken.click
*    mytextedit.ordnungfllen.click
EndIf
ENDPROC
                                   M   %         8  
   $            U        %  
|  T   J T    T    T      
   	   U
  NKEYCODE
 NSHIFTALTCTRL
 MYTEXTEDIT	 SSSCROLL1 MAX MIN VALUE	 IMNUMBER3
 AUFSTOCKEN CLICK KeyPress,     1  A11 B 1                             )                           textbox      textbox      	IMnumber1      FORM1      ^Alignment = 2
Value = 0
Height = 24
Left = 247
Top = 354
Width = 96
Name = "IMnumber1"
      textbox      textbox      	IMnumber2      FORM1      ^Alignment = 2
Value = 0
Height = 24
Left = 404
Top = 354
Width = 96
Name = "IMnumber2"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 438
Left = 894
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label14      FORM1      oCaption = "Return/Enter startet die Suche"
Height = 15
Left = 357
Top = 255
Width = 168
Name = "Label14"
      
commandbutton      
commandbutton      	Command10      FORM1      `Top = 354
Left = 513
Height = 25
Width = 100
Caption = "Druck starten"
Name = "Command10"
     PROCEDURE Click

If mytextedit.IMnumber1.Value > 0 And mytextedit.IMnumber2.Value > 0
	IF mytextedit.iMnumber2.value < mytextedit.IMnumber1.Value
		hinweis('"VON" darf nicht grer als "BIS" sein!')
		RETURN
	ENDIF
	
	PUBLIC mtextvon,mtextbis
	mtextvon = mytextedit.IMnumber1.Value
	mtextbis = mytextedit.IMnumber2.Value	

	SELECT 20
	oldrr=RECNO()
*alt	SET FILTER TO RECNO() >= mytextedit.IMnumber1.Value .and. RECNO() <= mytextedit.IMnumber1.Value
	SET FILTER TO RECNO() >= mtextvon .and. RECNO() <= mtextbis
	GO top

	REPORT FORM textliste WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
	
	SELECT 20
	SET FILTER TO 
	GOTO oldrr
ELSE
	hinweis("Bitte BEIDE Datensatznummern eingeben!")
EndIf
    

ENDPROC
     z    a  a                        :   %                          U  W( %           	 %        
} 4 C' "VON" darf nicht grer als "BIS" sein!  B  7   T      T      F  T CO G(CO  CO 	 #) ?	 textliste(!"9+C+
 F  G(	 #  P3 C& Bitte BEIDE Datensatznummern eingeben!   U	 
 MYTEXTEDIT	 IMNUMBER1 VALUE	 IMNUMBER2 HINWEIS MTEXTVON MTEXTBIS OLDRR	 TEXTLISTE Click,     1 AA A  11  Q  a   1A 3                             )   a                        editbox      editbox      Edit1      FORM1      _Height = 64
Left = 8
ReadOnly = .T.
ScrollBars = 0
Top = 387
Width = 847
Name = "Edit1"
      
commandbutton      
commandbutton      
ordnungfllen      FORM1      Top = 288
Left = 567
Height = 25
Width = 88
Caption = "ordnungfllen"
Enabled = .F.
Visible = .F.
Name = "ordnungfllen"
     PROCEDURE Click
do Case &&mytextedit.SSScroll1.Value
Case mytextedit.SSScroll1.Value >= 1 .and. mytextedit.SSScroll1.Value <= 530
     i = 0
Case mytextedit.SSScroll1.Value >= 531 .and. mytextedit.SSScroll1.Value <= 850
     i = 1
Case mytextedit.SSScroll1.Value >= 851 .and. mytextedit.SSScroll1.Value <= 890
     i = 2
Case mytextedit.SSScroll1.Value >= 891 .and. mytextedit.SSScroll1.Value <= 1080
     i = 4
Case mytextedit.SSScroll1.Value >= 1081 .and. mytextedit.SSScroll1.Value <= 1100
     i = 5
Case mytextedit.SSScroll1.Value >= 1831 .and. mytextedit.SSScroll1.Value <= 1990
     i = 10
Case mytextedit.SSScroll1.Value >= 2001 .and. mytextedit.SSScroll1.Value <= 2170
     i = 11
Case mytextedit.SSScroll1.Value >= 2171 .and. mytextedit.SSScroll1.Value <= 2340
     i = 12
Case mytextedit.SSScroll1.Value >= 2341 .and. mytextedit.SSScroll1.Value <= 2500
     i = 13
Case mytextedit.SSScroll1.Value >= 5501 .and. mytextedit.SSScroll1.Value <= 5575
     i = 14
Case mytextedit.SSScroll1.Value >= 5576 .and. mytextedit.SSScroll1.Value <= 5650
     i = 15
Case mytextedit.SSScroll1.Value >= 5310 .and. mytextedit.SSScroll1.Value <= 5384
     i = 16
Case mytextedit.SSScroll1.Value >= 2541 .and. mytextedit.SSScroll1.Value <= 2668
     i = 17
Case mytextedit.SSScroll1.Value >= 2830 .and. mytextedit.SSScroll1.Value <= 2840
     i = 18
Case mytextedit.SSScroll1.Value >= 1816 .and. mytextedit.SSScroll1.Value <= 1820
     i = 20
Case mytextedit.SSScroll1.Value >= 1812 .and. mytextedit.SSScroll1.Value <= 1812
     i = 21
Case mytextedit.SSScroll1.Value >= 2681 .and. mytextedit.SSScroll1.Value <= 2830
     i = 22
Case mytextedit.SSScroll1.Value >= 5385 .and. mytextedit.SSScroll1.Value <= 5459
     i = 23
Case mytextedit.SSScroll1.Value >= 5576 .and. mytextedit.SSScroll1.Value <= 5650
     i = 24
Case mytextedit.SSScroll1.Value >= 3263 .and. mytextedit.SSScroll1.Value <= 3267
     i = 25
Case mytextedit.SSScroll1.Value >= 2521 .and. mytextedit.SSScroll1.Value <= 2540
     i = 26
Case mytextedit.SSScroll1.Value >= 2980 .and. mytextedit.SSScroll1.Value <= 2987
     i = 27
Case mytextedit.SSScroll1.Value >= 1101 .and. mytextedit.SSScroll1.Value <= 1430
     i = 28
Case mytextedit.SSScroll1.Value >= 5711 .and. mytextedit.SSScroll1.Value <= 5965
     i = 30 &&VKA
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1570
     i = 31 &&kr
Case mytextedit.SSScroll1.Value >= 1571 .and. mytextedit.SSScroll1.Value <= 1740
     i = 33 &&Arbeiter
Case mytextedit.SSScroll1.Value >= 1741 .and. mytextedit.SSScroll1.Value <= 1750
     i = 34 &&Kraftfahrer
Case mytextedit.SSScroll1.Value >= 1751 .and. mytextedit.SSScroll1.Value <= 1760
     i = 35 &&Kraftfahrer
Case mytextedit.SSScroll1.Value >= 2970 .and. mytextedit.SSScroll1.Value <= 2979
     i = 36
Case mytextedit.SSScroll1.Value >= 1812 .and. mytextedit.SSScroll1.Value <= 1812
     i = 37
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 38 && Zulagen fr Beamte
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 39 &&Zulagen fr Angestellte
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 41 &&Einmalzahlungen
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 43 &&Kostenstellen
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 44 &&Krankenkassen
Case mytextedit.SSScroll1.Value >= 1431 .and. mytextedit.SSScroll1.Value <= 1440
     i = 46 &&Einbehalte
Case mytextedit.SSScroll1.Value >= 6100 .and. mytextedit.SSScroll1.Value <= 6116
     i = 47
Case mytextedit.SSScroll1.Value >= 6118 .and. mytextedit.SSScroll1.Value <= 6135
     i = 48
Case mytextedit.SSScroll1.Value >= 6136 .and. mytextedit.SSScroll1.Value <= 6500
     i = 49
Case mytextedit.SSScroll1.Value >= 6501 .and. mytextedit.SSScroll1.Value <= 6680
     i = 8
Case mytextedit.SSScroll1.Value >= 1 .and. mytextedit.SSScroll1.Value <= 80007
     i = 50
ENDCASE
i = i + 1 &&HS 
If i > 51 
 i = 0
endif

k = 1
mytextedit.Combo1.ListIndex = i
If i > 46 .And. i < 50 
	mytextedit.Unterordnung.Caption = alltrim(zt2(1+zi(1+2)))
ENDIF
IF i = 51
	mytextedit.Unterordnung.Caption = ""
endif
k = 0
ENDPROC
     j    Q  Q                            %   3
        c   B
            U  	
 H
 )          	C 
 T  *          R	z 
 T *     S     z	 
 T *     {     8	 
 T *     9     L	
 T *     '     	V
 T 
*          z	
 T *     {     $		
 T *     %	     		
 T 
*     }     	2
 T *          	i
 T *          	
 T *     	     l
	
 T *          	
 T *          	E
 T *          	|
 T *     y
     	
 T *     	     S	
 T *          	!
 T *          	X
 T *     	     		
 T *          	
 T *     M     	
 T *     O     M	4
 T *          "	k
 T *     #     	
 T !*          	
 T "*          	
 T #*          	G
 T $*          	~
 T %*          	
 T &*          	
 T '*          	#
 T )*          	Z
 T +*          	
 T ,*          	
 T .*          	
 T /*          	6
 T 0*          d	m
 T 1*     e     	
 T +          8 	
 T 2  T   % 3	
 T   
 T  T      % .  2
	p	! T    CCC
 	   % 3	 T       
 T   U 
 MYTEXTEDIT	 SSSCROLL1 VALUE I K COMBO1	 LISTINDEX UNTERORDNUNG CAPTION ZT2 ZI Click,     1                                           A  A  1A 1A  1                             )   Q                        
commandbutton      
commandbutton      
aufstocken      FORM1      {Top = 288
Left = 663
Height = 22
Width = 81
Caption = "aufstocken"
Enabled = .F.
Visible = .F.
Name = "aufstocken"
     PROCEDURE Click

i = 1
mytextedit.SSPanel1.Caption = ALLTRIM(str(mytextedit.SSScroll1.Value,10,0))
myget("20", mytextedit.SSScroll1.Value, "woerter")
mytextedit.Text1.Value = woerter.textee
mytextedit.SSPanel2.Caption = ALLTRIM(STR(Len(Alltrim(mytextedit.Text1.Value)),3,0))

&&i = 4780
Do Case && SSScroll1

	Case (mytextedit.SSScroll1.value >= 1 .And. mytextedit.SSScroll1.value <= 10)

		i = 3001 &&"A 1"

	Case (mytextedit.SSScroll1.value >= 11 .And. mytextedit.SSScroll1.value <= 30)

		i = 3002 &&"A 2"

	Case (mytextedit.SSScroll1.value >= 31 .And. mytextedit.SSScroll1.value <= 50)

		i = 3003 &&"A 3"

	Case (mytextedit.SSScroll1.value >= 51 .And. mytextedit.SSScroll1.value <= 70)

		i = 3004 &&"A 4"

	Case (mytextedit.SSScroll1.value >= 71 .And. mytextedit.SSScroll1.value <= 95)

		i = 3005 &&"A 5 einf.D."

	Case (mytextedit.SSScroll1.value >= 96 .And. mytextedit.SSScroll1.value <= 120)

		i = 3006 &&"A 5 mittl.D."

	Case (mytextedit.SSScroll1.value >= 121 .And. mytextedit.SSScroll1.value <= 140)

		i = 3007 &&"A 6"

	Case (mytextedit.SSScroll1.value >= 141 .And. mytextedit.SSScroll1.value <= 165)

		i = 3008 &&"A 7"

	Case (mytextedit.SSScroll1.value >= 166 .And. mytextedit.SSScroll1.value <= 190)

		i = 3009 &&"A 8"

	Case (mytextedit.SSScroll1.value >= 191 .And. mytextedit.SSScroll1.value <= 220)

		i = 3010 &&"A 9 mittl.D."

	Case (mytextedit.SSScroll1.value >= 221 .And. mytextedit.SSScroll1.value <= 230)

		i = 3011 &&"A 10 mittl.D."

	Case (mytextedit.SSScroll1.value >= 231 .And. mytextedit.SSScroll1.value <= 260)

		i = 3012 &&"A 9 geh.D."

	Case (mytextedit.SSScroll1.value >= 261 .And. mytextedit.SSScroll1.value <= 280)

		i = 3013 &&"A 10geh.D."

	Case (mytextedit.SSScroll1.value >= 281 .And. mytextedit.SSScroll1.value <= 300)

		i = 3014 &&"A 11"

	Case (mytextedit.SSScroll1.value >= 301 .And. mytextedit.SSScroll1.value <= 320)

		i = 3015 &&"A 12"

	Case (mytextedit.SSScroll1.value >= 321 .And. mytextedit.SSScroll1.value <= 360)

		i = 3016 &&"A 13 geh.D."

	Case (mytextedit.SSScroll1.value >= 361 .And. mytextedit.SSScroll1.value <= 400)

		i = 3017 &&"A 13 hh.D."

	Case (mytextedit.SSScroll1.value >= 401 .And. mytextedit.SSScroll1.value <= 410)

		i = 3018 &&"A 13 kl. Zul."

	Case (mytextedit.SSScroll1.value >= 411 .And. mytextedit.SSScroll1.value <= 450)

		i = 3019 &&"A 14"

	Case (mytextedit.SSScroll1.value >= 451 .And. mytextedit.SSScroll1.value <= 490)

		i = 3020 &&"A 15"

	Case (mytextedit.SSScroll1.value >= 491 .And. mytextedit.SSScroll1.value <= 530)

		i = 3021 &&"A 16"

	Case (mytextedit.SSScroll1.value >= 531 .And. mytextedit.SSScroll1.value <= 540)

		i = 3023 &&"B 1"

	Case (mytextedit.SSScroll1.value >= 541 .And. mytextedit.SSScroll1.value <= 570)

		i = 3024 &&"B 2"

	Case (mytextedit.SSScroll1.value >= 571 .And. mytextedit.SSScroll1.value <= 610)

		i = 3025 &&"B 3"

	Case (mytextedit.SSScroll1.value >= 611 .And. mytextedit.SSScroll1.value <= 650)

		i = 3026 &&"B 4"

	Case (mytextedit.SSScroll1.value >= 651 .And. mytextedit.SSScroll1.value <= 681)

		i = 3027 &&"B 5"

	Case (mytextedit.SSScroll1.value >= 682 .And. mytextedit.SSScroll1.value <= 750)

		i = 3028 &&"B 6"

	Case (mytextedit.SSScroll1.value >= 751 .And. mytextedit.SSScroll1.value <= 790)

		i = 3029 &&"B 7"

	Case (mytextedit.SSScroll1.value >= 791 .And. mytextedit.SSScroll1.value <= 810)

		i = 3030 &&"B 8"

	Case (mytextedit.SSScroll1.value >= 811 .And. mytextedit.SSScroll1.value <= 830)

		i = 3031 &&"B 9"

	Case (mytextedit.SSScroll1.value >= 831 .And. mytextedit.SSScroll1.value <= 840)

		i = 3032 &&"B 10"

	Case (mytextedit.SSScroll1.value >= 841 .And. mytextedit.SSScroll1.value <= 850)

		i = 3033 &&"B 11"

	Case (mytextedit.SSScroll1.value >= 851 .And. mytextedit.SSScroll1.value <= 860)

		i = 3035 &&"C 1"

	Case (mytextedit.SSScroll1.value >= 861 .And. mytextedit.SSScroll1.value <= 870)

		i = 3036 &&"C 2"

	Case (mytextedit.SSScroll1.value >= 871 .And. mytextedit.SSScroll1.value <= 880)

		i = 3037 &&"C 3"

	Case (mytextedit.SSScroll1.value >= 881 .And. mytextedit.SSScroll1.value <= 890)

		i = 3038 &&"C 4"

	Case (mytextedit.SSScroll1.value >= 891 .And. mytextedit.SSScroll1.value <= 910)

		i = 3040 &&"R 1"

	Case (mytextedit.SSScroll1.value >= 911 .And. mytextedit.SSScroll1.value <= 950)

		i = 3041 &&"R 2"

	Case (mytextedit.SSScroll1.value >= 951 .And. mytextedit.SSScroll1.value <= 980)

		i = 3042 &&"R 3"

	Case (mytextedit.SSScroll1.value >= 981 .And. mytextedit.SSScroll1.value <= 1000)

		i = 3043 &&"R 4"

	Case (mytextedit.SSScroll1.value >= 1001 .And. mytextedit.SSScroll1.value <= 1020)

		i = 3044 &&"R 5"

	Case (mytextedit.SSScroll1.value >= 1021 .And. mytextedit.SSScroll1.value <= 1040)

		i = 3045 &&"R 6"

	Case (mytextedit.SSScroll1.value >= 1041 .And. mytextedit.SSScroll1.value <= 1050)

		i = 3046 &&"R 7"

	Case (mytextedit.SSScroll1.value >= 1051 .And. mytextedit.SSScroll1.value <= 1070)

		i = 3047 &&"R 8"

	Case (mytextedit.SSScroll1.value >= 1071 .And. mytextedit.SSScroll1.value <= 1074)

		i = 3048 &&"R 9"

	Case (mytextedit.SSScroll1.value >= 1075 .And. mytextedit.SSScroll1.value <= 1080)

		i = 3049 &&"R 10"


	Case (mytextedit.SSScroll1.value >= 1081 .And. mytextedit.SSScroll1.value <= 1100)

		i = 3051 &&"Anwrter "


		&&Auertariflicher Angestellter
	Case (mytextedit.SSScroll1.value >= 1761 .And. mytextedit.SSScroll1.value <= 1770)
		i = 4492


		&&TVD Bund**********************************

	Case (mytextedit.SSScroll1.value >= 1831 .And. mytextedit.SSScroll1.value <= 1840)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 1841 .And. mytextedit.SSScroll1.value <= 1850)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 1851 .And. mytextedit.SSScroll1.value <= 1860)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 1861 .And. mytextedit.SSScroll1.value <= 1870)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 1871 .And. mytextedit.SSScroll1.value <= 1880)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 1881 .And. mytextedit.SSScroll1.value <= 1890)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 1891 .And. mytextedit.SSScroll1.value <= 1900)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 1901 .And. mytextedit.SSScroll1.value <= 1910)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 1911 .And. mytextedit.SSScroll1.value <= 1920)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 1921 .And. mytextedit.SSScroll1.value <= 1930)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 1931 .And. mytextedit.SSScroll1.value <= 1940)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 1941 .And. mytextedit.SSScroll1.value <= 1950)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 1951 .And. mytextedit.SSScroll1.value <= 1960)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 1961 .And. mytextedit.SSScroll1.value <= 1970)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 1971 .And. mytextedit.SSScroll1.value <= 1980)

		i = 3285

	Case (mytextedit.SSScroll1.value >= 1981 .And. mytextedit.SSScroll1.value <= 1990)

		i = 3534

	Case (mytextedit.SSScroll1.value >= 1991 .And. mytextedit.SSScroll1.value <= 2000)

		i = 3535

		&&TVD Land********************************


	Case (mytextedit.SSScroll1.value >= 2001 .And. mytextedit.SSScroll1.value <= 2010)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 2011 .And. mytextedit.SSScroll1.value <= 2020)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 2021 .And. mytextedit.SSScroll1.value <= 2030)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 2031 .And. mytextedit.SSScroll1.value <= 2040)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 2041 .And. mytextedit.SSScroll1.value <= 2050)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 2051 .And. mytextedit.SSScroll1.value <= 2060)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 2061 .And. mytextedit.SSScroll1.value <= 2070)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 2071 .And. mytextedit.SSScroll1.value <= 2080)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 2081 .And. mytextedit.SSScroll1.value <= 2090)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 2091 .And. mytextedit.SSScroll1.value <= 2100)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 2101 .And. mytextedit.SSScroll1.value <= 2110)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 2111 .And. mytextedit.SSScroll1.value <= 2120)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 2121 .And. mytextedit.SSScroll1.value <= 2130)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 2131 .And. mytextedit.SSScroll1.value <= 2140)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 2141 .And. mytextedit.SSScroll1.value <= 2150)

		i = 3285

	Case (mytextedit.SSScroll1.value >= 2151 .And. mytextedit.SSScroll1.value <= 2160)

		i = 3534
	Case (mytextedit.SSScroll1.value >= 2151 .And. mytextedit.SSScroll1.value <= 2161)
		i = 3535



		&&TVD VKA **********************************************

	Case (mytextedit.SSScroll1.value >= 2171 .And. mytextedit.SSScroll1.value <= 2180)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 2181 .And. mytextedit.SSScroll1.value <= 2190)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 2191 .And. mytextedit.SSScroll1.value <= 2200)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 2201 .And. mytextedit.SSScroll1.value <= 2210)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 2211 .And. mytextedit.SSScroll1.value <= 2220)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 2221 .And. mytextedit.SSScroll1.value <= 2230)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 2231 .And. mytextedit.SSScroll1.value <= 2240)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 2241 .And. mytextedit.SSScroll1.value <= 2250)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 2251 .And. mytextedit.SSScroll1.value <= 2260)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 2261 .And. mytextedit.SSScroll1.value <= 2270)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 2271 .And. mytextedit.SSScroll1.value <= 2280)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 2281 .And. mytextedit.SSScroll1.value <= 2290)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 2291 .And. mytextedit.SSScroll1.value <= 2300)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 2301 .And. mytextedit.SSScroll1.value <= 2310)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 2311 .And. mytextedit.SSScroll1.value <= 2320)

		i = 3285

	Case (mytextedit.SSScroll1.value >= 2321 .And. mytextedit.SSScroll1.value <= 2330)

		i = 3534
	Case (mytextedit.SSScroll1.value >= 2331 .And. mytextedit.SSScroll1.value <= 2340)
		i = 3535

		&&TVD Krankenhaus *************************************************


	Case (mytextedit.SSScroll1.value >= 2341 .And. mytextedit.SSScroll1.value <= 2350)

		i = 3304

	Case (mytextedit.SSScroll1.value >= 2351 .And. mytextedit.SSScroll1.value <= 2360)

		i = 3305

	Case (mytextedit.SSScroll1.value >= 2361 .And. mytextedit.SSScroll1.value <= 2370)

		i = 3306

	Case (mytextedit.SSScroll1.value >= 2371 .And. mytextedit.SSScroll1.value <= 2380)

		i = 3307

	Case (mytextedit.SSScroll1.value >= 2381 .And. mytextedit.SSScroll1.value <= 2390)

		i = 3308

	Case (mytextedit.SSScroll1.value >= 2391 .And. mytextedit.SSScroll1.value <= 2400)

		i = 3309

	Case (mytextedit.SSScroll1.value >= 2401 .And. mytextedit.SSScroll1.value <= 2410)

		i = 3310

	Case (mytextedit.SSScroll1.value >= 2411 .And. mytextedit.SSScroll1.value <= 2420)

		i = 3311

	Case (mytextedit.SSScroll1.value >= 2421 .And. mytextedit.SSScroll1.value <= 2430)

		i = 3312

	Case (mytextedit.SSScroll1.value >= 2431 .And. mytextedit.SSScroll1.value <= 2440)

		i = 3313

	Case (mytextedit.SSScroll1.value >= 2441 .And. mytextedit.SSScroll1.value <= 2450)

		i = 3314

	Case (mytextedit.SSScroll1.value >= 2451 .And. mytextedit.SSScroll1.value <= 2460)

		i = 3315

	Case (mytextedit.SSScroll1.value >= 2461 .And. mytextedit.SSScroll1.value <= 2470)

		i = 3316

	Case (mytextedit.SSScroll1.value >= 2471 .And. mytextedit.SSScroll1.value <= 2480)

		i = 3317

	Case (mytextedit.SSScroll1.value >= 2481 .And. mytextedit.SSScroll1.value <= 2490)

		i = 3318

	Case (mytextedit.SSScroll1.value >= 2491 .And. mytextedit.SSScroll1.value <= 2500)

		i = 3319

		&&*TVD Entsorgung ****************************************

	Case (mytextedit.SSScroll1.value >= 5501 .And. mytextedit.SSScroll1.value <= 5505)
		i = 3271
	Case (mytextedit.SSScroll1.value >= 5506 .And. mytextedit.SSScroll1.value <= 5510)
		i = 3272
	Case (mytextedit.SSScroll1.value >= 5511 .And. mytextedit.SSScroll1.value <= 5515)
		i = 3273
	Case (mytextedit.SSScroll1.value >= 5516 .And. mytextedit.SSScroll1.value <= 5520)
		i = 3274
	Case (mytextedit.SSScroll1.value >= 5521 .And. mytextedit.SSScroll1.value <= 5525)
		i = 3275
	Case (mytextedit.SSScroll1.value >= 5626 .And. mytextedit.SSScroll1.value <= 5530)
		i = 3276
	Case (mytextedit.SSScroll1.value >= 5531 .And. mytextedit.SSScroll1.value <= 5535)
		i = 3277
	Case (mytextedit.SSScroll1.value >= 5536 .And. mytextedit.SSScroll1.value <= 5540)
		i = 3278
	Case (mytextedit.SSScroll1.value >= 5541 .And. mytextedit.SSScroll1.value <= 5545)
		i = 3279
	Case (mytextedit.SSScroll1.value >= 5546 .And. mytextedit.SSScroll1.value <= 5550)
		i = 3280
	Case (mytextedit.SSScroll1.value >= 5551 .And. mytextedit.SSScroll1.value <= 5555)
		i = 3281
	Case (mytextedit.SSScroll1.value >= 5556 .And. mytextedit.SSScroll1.value <= 5560)
		i = 3282
	Case (mytextedit.SSScroll1.value >= 5561 .And. mytextedit.SSScroll1.value <= 5565)
		i = 3283
	Case (mytextedit.SSScroll1.value >= 5566 .And. mytextedit.SSScroll1.value <= 5570)
		i = 3284
	Case (mytextedit.SSScroll1.value >= 5571 .And. mytextedit.SSScroll1.value <= 5575)
		i = 3285

		&&*TVD Flughfen ****************************************

	Case (mytextedit.SSScroll1.value >= 5576 .And. mytextedit.SSScroll1.value <= 5580)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 5581 .And. mytextedit.SSScroll1.value <= 5585)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 5586 .And. mytextedit.SSScroll1.value <= 5590)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 5591 .And. mytextedit.SSScroll1.value <= 5595)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 5596 .And. mytextedit.SSScroll1.value <= 5600)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 5601 .And. mytextedit.SSScroll1.value <= 5605)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 5506 .And. mytextedit.SSScroll1.value <= 5610)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 5511 .And. mytextedit.SSScroll1.value <= 5615)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 5516 .And. mytextedit.SSScroll1.value <= 5620)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 5521 .And. mytextedit.SSScroll1.value <= 5625)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 5526 .And. mytextedit.SSScroll1.value <= 5630)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 5531 .And. mytextedit.SSScroll1.value <= 5635)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 5536 .And. mytextedit.SSScroll1.value <= 5640)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 5541 .And. mytextedit.SSScroll1.value <= 5645)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 5546 .And. mytextedit.SSScroll1.value <= 5650)

		i = 3285

		&&*TVD Sparkassen *******************************

	Case (mytextedit.SSScroll1.value >= 5310 .And. mytextedit.SSScroll1.value <= 5314)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 5315 .And. mytextedit.SSScroll1.value <= 5319)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 5320 .And. mytextedit.SSScroll1.value <= 5324)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 5325 .And. mytextedit.SSScroll1.value <= 5329)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 5330 .And. mytextedit.SSScroll1.value <= 5334)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 5335 .And. mytextedit.SSScroll1.value <= 5339)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 5340 .And. mytextedit.SSScroll1.value <= 5345)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 5345 .And. mytextedit.SSScroll1.value <= 5349)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 5350 .And. mytextedit.SSScroll1.value <= 5354)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 5355 .And. mytextedit.SSScroll1.value <= 5359)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 5360 .And. mytextedit.SSScroll1.value <= 5364)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 5365 .And. mytextedit.SSScroll1.value <= 5369)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 5370 .And. mytextedit.SSScroll1.value <= 5374)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 5375 .And. mytextedit.SSScroll1.value <= 5379)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 5380 .And. mytextedit.SSScroll1.value <= 5384)

		i = 3285


		&&*TVD AOK ****************************

	Case (mytextedit.SSScroll1.value >= 2541 .And. mytextedit.SSScroll1.value <= 2548)

		i = 3164

	Case (mytextedit.SSScroll1.value >= 2549 .And. mytextedit.SSScroll1.value <= 2556)

		i = 3165

	Case (mytextedit.SSScroll1.value >= 2557 .And. mytextedit.SSScroll1.value <= 2564)

		i = 3166

	Case (mytextedit.SSScroll1.value >= 2565 .And. mytextedit.SSScroll1.value <= 2572)

		i = 3167

	Case (mytextedit.SSScroll1.value >= 2573 .And. mytextedit.SSScroll1.value <= 2580)

		i = 3168

	Case (mytextedit.SSScroll1.value >= 2581 .And. mytextedit.SSScroll1.value <= 2588)

		i = 3169

	Case (mytextedit.SSScroll1.value >= 2589 .And. mytextedit.SSScroll1.value <= 2596)

		i = 3170

	Case (mytextedit.SSScroll1.value >= 2597 .And. mytextedit.SSScroll1.value <= 2604)

		i = 3171

	Case (mytextedit.SSScroll1.value >= 2605 .And. mytextedit.SSScroll1.value <= 2612)

		i = 3172

	Case (mytextedit.SSScroll1.value >= 2613 .And. mytextedit.SSScroll1.value <= 2620)

		i = 3173

	Case (mytextedit.SSScroll1.value >= 2621 .And. mytextedit.SSScroll1.value <= 2628)

		i = 3174

	Case (mytextedit.SSScroll1.value >= 2629 .And. mytextedit.SSScroll1.value <= 2636)

		i = 3175

	Case (mytextedit.SSScroll1.value >= 2637 .And. mytextedit.SSScroll1.value <= 2644)

		i = 3176

	Case (mytextedit.SSScroll1.value >= 2645 .And. mytextedit.SSScroll1.value <= 2652)

		i = 3177

	Case (mytextedit.SSScroll1.value >= 2653 .And. mytextedit.SSScroll1.value <= 2660)

		i = 3178

	Case (mytextedit.SSScroll1.value >= 2661 .And. mytextedit.SSScroll1.value <= 2668)

		i = 3179



		&&TVD Fahrer
	Case (mytextedit.SSScroll1.value >= 2830 .And. mytextedit.SSScroll1.value <= 2840)
		i = 4000

		&&TVD Azubis
	Case (mytextedit.SSScroll1.value >= 1816 .And. mytextedit.SSScroll1.value <= 1820)
		i = 4000


		&&TVD Praktikanten
	Case (mytextedit.SSScroll1.value >= 1812 .And. mytextedit.SSScroll1.value <= 1812)
		i = 4000




		&&Versorgung **********************************************************

	Case (mytextedit.SSScroll1.value >= 2681 .And. mytextedit.SSScroll1.value <= 2690)

		i = 3271 &&"Versorg 1

	Case (mytextedit.SSScroll1.value >= 2691 .And. mytextedit.SSScroll1.value <= 2700)

		i = 3272 &&"vs 2"

	Case (mytextedit.SSScroll1.value >= 2701 .And. mytextedit.SSScroll1.value <= 2710)

		i = 3273 &&"vs 3"

	Case (mytextedit.SSScroll1.value >= 2711 .And. mytextedit.SSScroll1.value <= 2720)

		i = 3274 &&"vs 4"

	Case (mytextedit.SSScroll1.value >= 2721 .And. mytextedit.SSScroll1.value <= 2730)

		i = 3275 &&"vs 5"

	Case (mytextedit.SSScroll1.value >= 2731 .And. mytextedit.SSScroll1.value <= 2740)

		i = 3276 &&"vs 6"

	Case (mytextedit.SSScroll1.value >= 2741 .And. mytextedit.SSScroll1.value <= 2750)

		i = 3277 &&"vs 7"

	Case (mytextedit.SSScroll1.value >= 2751 .And. mytextedit.SSScroll1.value <= 2760)

		i = 3278 &&"vs 8"

	Case (mytextedit.SSScroll1.value >= 2761 .And. mytextedit.SSScroll1.value <= 2770)

		i = 3279 &&"vs 9"

	Case (mytextedit.SSScroll1.value >= 2771 .And. mytextedit.SSScroll1.value <= 2780)

		i = 3280 &&"vs 10"

	Case (mytextedit.SSScroll1.value >= 2781 .And. mytextedit.SSScroll1.value <= 2790)

		i = 3281 &&"vs 11"

	Case (mytextedit.SSScroll1.value >= 2791 .And. mytextedit.SSScroll1.value <= 2800)

		i = 3282 &&"vs 12"

	Case (mytextedit.SSScroll1.value >= 2801 .And. mytextedit.SSScroll1.value <= 2810)

		i = 3283 &&"vs 13"

	Case (mytextedit.SSScroll1.value >= 2811 .And. mytextedit.SSScroll1.value <= 2820)

		i = 3284 &&"vs 14"

	Case (mytextedit.SSScroll1.value >= 2821 .And. mytextedit.SSScroll1.value <= 2830)

		i = 3285 &&"vs 15"

		&&Verkehrsbetriebe *********************************************

	Case (mytextedit.SSScroll1.value >= 5385 .And. mytextedit.SSScroll1.value <= 5389)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 5390 .And. mytextedit.SSScroll1.value <= 5394)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 5395 .And. mytextedit.SSScroll1.value <= 5399)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 5400 .And. mytextedit.SSScroll1.value <= 5404)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 5405 .And. mytextedit.SSScroll1.value <= 5409)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 5410 .And. mytextedit.SSScroll1.value <= 5414)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 5415 .And. mytextedit.SSScroll1.value <= 5419)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 5420 .And. mytextedit.SSScroll1.value <= 5424)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 5425 .And. mytextedit.SSScroll1.value <= 5429)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 5430 .And. mytextedit.SSScroll1.value <= 5434)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 5435 .And. mytextedit.SSScroll1.value <= 5439)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 5440 .And. mytextedit.SSScroll1.value <= 5444)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 5445 .And. mytextedit.SSScroll1.value <= 5449)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 5450 .And. mytextedit.SSScroll1.value <= 5454)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 5455 .And. mytextedit.SSScroll1.value <= 5459)

		i = 3285


		&&Sondertarif ***********************************************

	Case (mytextedit.SSScroll1.value >= 5576 .And. mytextedit.SSScroll1.value <= 5580)

		i = 3271

	Case (mytextedit.SSScroll1.value >= 5581 .And. mytextedit.SSScroll1.value <= 5585)

		i = 3272

	Case (mytextedit.SSScroll1.value >= 5586 .And. mytextedit.SSScroll1.value <= 5590)

		i = 3273

	Case (mytextedit.SSScroll1.value >= 5591 .And. mytextedit.SSScroll1.value <= 5595)

		i = 3274

	Case (mytextedit.SSScroll1.value >= 5596 .And. mytextedit.SSScroll1.value <= 5600)

		i = 3275

	Case (mytextedit.SSScroll1.value >= 5601 .And. mytextedit.SSScroll1.value <= 5605)

		i = 3276

	Case (mytextedit.SSScroll1.value >= 5606 .And. mytextedit.SSScroll1.value <= 5610)

		i = 3277

	Case (mytextedit.SSScroll1.value >= 5611 .And. mytextedit.SSScroll1.value <= 5615)

		i = 3278

	Case (mytextedit.SSScroll1.value >= 5616 .And. mytextedit.SSScroll1.value <= 5620)

		i = 3279

	Case (mytextedit.SSScroll1.value >= 5621 .And. mytextedit.SSScroll1.value <= 5625)

		i = 3280

	Case (mytextedit.SSScroll1.value >= 5626 .And. mytextedit.SSScroll1.value <= 5630)

		i = 3281

	Case (mytextedit.SSScroll1.value >= 5631 .And. mytextedit.SSScroll1.value <= 5635)

		i = 3282

	Case (mytextedit.SSScroll1.value >= 5636 .And. mytextedit.SSScroll1.value <= 5640)

		i = 3283

	Case (mytextedit.SSScroll1.value >= 5641 .And. mytextedit.SSScroll1.value <= 5645)

		i = 3284

	Case (mytextedit.SSScroll1.value >= 5646 .And. mytextedit.SSScroll1.value <= 5650)

		i = 3285


		&&Freier Mitarbeiter
	Case (mytextedit.SSScroll1.value >= 3263 .And. mytextedit.SSScroll1.value <= 3267)
		i = 4000

		&&Geringfgig
	Case (mytextedit.SSScroll1.value >= 2521 .And. mytextedit.SSScroll1.value <= 2540)
		i = 4000

		&&Ohne Gehalt
	Case (mytextedit.SSScroll1.value >= 2980 .And. mytextedit.SSScroll1.value <= 2987)
		i = 4000




		&&BAT
	Case (mytextedit.SSScroll1.value >= 1101 .And. mytextedit.SSScroll1.value <= 1115)

		i = 3058 &&"BAT I"

	Case (mytextedit.SSScroll1.value >= 1116 .And. mytextedit.SSScroll1.value <= 1130)

		i = 3059 &&"BAT Ia"

	Case (mytextedit.SSScroll1.value >= 1131 .And. mytextedit.SSScroll1.value <= 1145)

		i = 3060 &&"BAT Ib"

	Case (mytextedit.SSScroll1.value >= 1146 .And. mytextedit.SSScroll1.value <= 1160)

		i = 3082 &&"BAT II"

	Case (mytextedit.SSScroll1.value >= 1161 .And. mytextedit.SSScroll1.value <= 1175)

		i = 3061 &&"BAT IIa"

	Case (mytextedit.SSScroll1.value >= 1176 .And. mytextedit.SSScroll1.value <= 1190)

		i = 3062 &&"BAT IIb"

	Case (mytextedit.SSScroll1.value >= 1191 .And. mytextedit.SSScroll1.value <= 1205)

		i = 3063 &&"BAT III"

	Case (mytextedit.SSScroll1.value >= 1206 .And. mytextedit.SSScroll1.value <= 1220)

		i = 3064 &&"BAT IVa"

	Case (mytextedit.SSScroll1.value >= 1221 .And. mytextedit.SSScroll1.value <= 1235)

		i = 3065 &&"BAT IVb"

	Case (mytextedit.SSScroll1.value >= 1236 .And. mytextedit.SSScroll1.value <= 1250)

		i = 3066 &&"BAT Va"

	Case (mytextedit.SSScroll1.value >= 1251 .And. mytextedit.SSScroll1.value <= 1265)

		i = 3067 &&"BAT Vb"

	Case (mytextedit.SSScroll1.value >= 1266 .And. mytextedit.SSScroll1.value <= 1280)

		i = 3068 &&"BAT VbZ"

	Case (mytextedit.SSScroll1.value >= 1281 .And. mytextedit.SSScroll1.value <= 1295)

		i = 3069 &&"BAT Vc"

	Case (mytextedit.SSScroll1.value >= 1296 .And. mytextedit.SSScroll1.value <= 1305)

		i = 3070 &&"BAT VIa"

	Case (mytextedit.SSScroll1.value >= 1306 .And. mytextedit.SSScroll1.value <= 1320)

		i = 3071 &&"BAT VIb"

	Case (mytextedit.SSScroll1.value >= 1321 .And. mytextedit.SSScroll1.value <= 1335)

		i = 3072 &&"BAT VII"

	Case (mytextedit.SSScroll1.value >= 1336 .And. mytextedit.SSScroll1.value <= 1350)

		i = 3073 &&"BAT VIII"

	Case (mytextedit.SSScroll1.value >= 1351 .And. mytextedit.SSScroll1.value <= 1365)

		i = 3074 &&"BAT VIII Z"

	Case (mytextedit.SSScroll1.value >= 1366 .And. mytextedit.SSScroll1.value <= 1380)

		i = 3094 &&"BAT IX"

	Case (mytextedit.SSScroll1.value >= 1381 .And. mytextedit.SSScroll1.value <= 1395)

		i = 3075 &&"BAT IXa"

	Case (mytextedit.SSScroll1.value >= 1396 .And. mytextedit.SSScroll1.value <= 1410)

		i = 3076 &&"BAT IXb"

	Case (mytextedit.SSScroll1.value >= 1411 .And. mytextedit.SSScroll1.value <= 1430)

		i = 3077 &&"BAT X"

		&&VKA**********************************

	Case (mytextedit.SSScroll1.value >= 5711 .And. mytextedit.SSScroll1.value <= 5725)

		i = 3079 &&"BAT I"

	Case (mytextedit.SSScroll1.value >= 5726 .And. mytextedit.SSScroll1.value <= 5740)

		i = 3080 &&"BAT Ia"

	Case (mytextedit.SSScroll1.value >= 5741 .And. mytextedit.SSScroll1.value <= 5755)

		i = 3081 &&"BAT Ib"

	Case (mytextedit.SSScroll1.value >= 5756 .And. mytextedit.SSScroll1.value <= 5770)

		i = 3082 &&"BAT II"

	Case (mytextedit.SSScroll1.value >= 5771 .And. mytextedit.SSScroll1.value <= 5785)

		i = 3083 &&"BAT IIa"

	Case (mytextedit.SSScroll1.value >= 5786 .And. mytextedit.SSScroll1.value <= 5800)

		i = 3084 &&"BAT IIb"

	Case (mytextedit.SSScroll1.value >= 5801 .And. mytextedit.SSScroll1.value <= 5815)

		i = 3085 &&"BAT III"

	Case (mytextedit.SSScroll1.value >= 5816 .And. mytextedit.SSScroll1.value <= 5830)

		i = 3086 &&"BAT IVa"

	Case (mytextedit.SSScroll1.value >= 5831 .And. mytextedit.SSScroll1.value <= 5845)

		i = 3087 &&"BAT IVb"

	Case (mytextedit.SSScroll1.value >= 5846 .And. mytextedit.SSScroll1.value <= 5860)

		i = 3088 &&"BAT Va"

	Case (mytextedit.SSScroll1.value >= 5861 .And. mytextedit.SSScroll1.value <= 5875)

		i = 3089 &&"BAT Vb"

	Case (mytextedit.SSScroll1.value >= 5876 .And. mytextedit.SSScroll1.value <= 5890)

		i = 3090 &&"BAT VbZ"

	Case (mytextedit.SSScroll1.value >= 5891 .And. mytextedit.SSScroll1.value <= 5905)

		i = 3091 &&"BAT Vc"

	Case (mytextedit.SSScroll1.value >= 5906 .And. mytextedit.SSScroll1.value <= 5920)

		i = 3092 &&"BAT VIa"

	Case (mytextedit.SSScroll1.value >= 5921 .And. mytextedit.SSScroll1.value <= 5935)

		i = 3093 &&"BAT VIb"

	Case (mytextedit.SSScroll1.value >= 5936 .And. mytextedit.SSScroll1.value <= 5950)

		i = 3094 &&"BAT VII"

	Case (mytextedit.SSScroll1.value >= 5951 .And. mytextedit.SSScroll1.value <= 5965)

		i = 3095 &&"BAT VIII"





		&&KR**************************************************

	Case (mytextedit.SSScroll1.value >= 1431 .And. mytextedit.SSScroll1.value <= 1440)

		i = 3097 &&"KR I"

	Case (mytextedit.SSScroll1.value >= 1441 .And. mytextedit.SSScroll1.value <= 1450)

		i = 3098 &&"KR II"

	Case (mytextedit.SSScroll1.value >= 1451 .And. mytextedit.SSScroll1.value <= 1460)

		i = 3099 &&"KR III"

	Case (mytextedit.SSScroll1.value >= 1461 .And. mytextedit.SSScroll1.value <= 1470)

		i = 3100 &&"KR IV"

	Case (mytextedit.SSScroll1.value >= 1471 .And. mytextedit.SSScroll1.value <= 1480)

		i = 3101 &&"KR V"

	Case (mytextedit.SSScroll1.value >= 1481 .And. mytextedit.SSScroll1.value <= 1490)

		i = 3102 &&"KR Va"

	Case (mytextedit.SSScroll1.value >= 1491 .And. mytextedit.SSScroll1.value <= 1500)

		i = 3103 &&"KR VI"

	Case (mytextedit.SSScroll1.value >= 1501 .And. mytextedit.SSScroll1.value <= 1510)

		i = 3104 &&"KR VII"

	Case (mytextedit.SSScroll1.value >= 1511 .And. mytextedit.SSScroll1.value <= 1520)

		i = 3105 &&"KR VIII"

	Case (mytextedit.SSScroll1.value >= 1521 .And. mytextedit.SSScroll1.value <= 1530)

		i = 3106 &&"KR IX"

	Case (mytextedit.SSScroll1.value >= 1531 .And. mytextedit.SSScroll1.value <= 1540)

		i = 3107 &&"KR X"

	Case (mytextedit.SSScroll1.value >= 1541 .And. mytextedit.SSScroll1.value <= 1550)

		i = 3108 &&"KR XI"

	Case (mytextedit.SSScroll1.value >= 1551 .And. mytextedit.SSScroll1.value <= 1560)

		i = 3109 &&"KR XII"

	Case (mytextedit.SSScroll1.value >= 1561 .And. mytextedit.SSScroll1.value <= 1570)

		i = 3110 &&"KR XIII"



		&&Arbeiter*****************************

	Case (mytextedit.SSScroll1.value >= 1571 .And. mytextedit.SSScroll1.value <= 1580)

		i = 3112 &&"1 Arb"

	Case (mytextedit.SSScroll1.value >= 1581 .And. mytextedit.SSScroll1.value <= 1590)

		i = 3113 &&"1a Arb"

	Case (mytextedit.SSScroll1.value >= 1591 .And. mytextedit.SSScroll1.value <= 1600)

		i = 3114 &&"2 Arb"

	Case (mytextedit.SSScroll1.value >= 1601 .And. mytextedit.SSScroll1.value <= 1610)

		i = 3115 &&"2a Arb"

	Case (mytextedit.SSScroll1.value >= 1611 .And. mytextedit.SSScroll1.value <= 1620)

		i = 3116 &&"3 Arb"

	Case (mytextedit.SSScroll1.value >= 1621 .And. mytextedit.SSScroll1.value <= 1630)

		i = 3117 &&"3a Arb"

	Case (mytextedit.SSScroll1.value >= 1631 .And. mytextedit.SSScroll1.value <= 1640)

		i = 3118 &&"4 Arb"

	Case (mytextedit.SSScroll1.value >= 1641 .And. mytextedit.SSScroll1.value <= 1650)

		i = 3119 &&"4a Arb"

	Case (mytextedit.SSScroll1.value >= 1651 .And. mytextedit.SSScroll1.value <= 1660)

		i = 3120 &&"5 Arb"

	Case (mytextedit.SSScroll1.value >= 1661 .And. mytextedit.SSScroll1.value <= 1670)

		i = 3121 &&"5a Arb"

	Case (mytextedit.SSScroll1.value >= 1671 .And. mytextedit.SSScroll1.value <= 1680)

		i = 3122 &&"6 Arb"

	Case (mytextedit.SSScroll1.value >= 1681 .And. mytextedit.SSScroll1.value <= 1690)

		i = 3123 &&"6a Arb"

	Case (mytextedit.SSScroll1.value >= 1691 .And. mytextedit.SSScroll1.value <= 1700)

		i = 3124 &&"7 Arb"

	Case (mytextedit.SSScroll1.value >= 1701 .And. mytextedit.SSScroll1.value <= 1710)

		i = 1325 &&"7a Arb"

	Case (mytextedit.SSScroll1.value >= 1711 .And. mytextedit.SSScroll1.value <= 1720)

		i = 3126 &&"8 Arb"

	Case (mytextedit.SSScroll1.value >= 1721 .And. mytextedit.SSScroll1.value <= 1730)

		i = 3127 &&"8a Arb"

	Case (mytextedit.SSScroll1.value >= 1731 .And. mytextedit.SSScroll1.value <= 1740)

		i = 3128 &&"9 Arb"


		&&Fahrer Bund*************************


	Case (mytextedit.SSScroll1.value >= 1741 .And. mytextedit.SSScroll1.value <= 1750)

		i = 4000 &&"Fahrer Bund"

	Case (mytextedit.SSScroll1.value >= 1751 .And. mytextedit.SSScroll1.value <= 1760)

		i = 4000 &&"Fahrer Land"


	Case mytextedit.SSScroll1.value = 2970 - 2979

		i = 4000 &&"Auszubildender



	Case (mytextedit.SSScroll1.value >= 4500 .And. mytextedit.SSScroll1.value <= 4607)
		i = 4723 &&Zulagen Beamte
	Case (mytextedit.SSScroll1.value >= 3387 .And. mytextedit.SSScroll1.value <= 3494)
		i = 4724 &&Zulagen Angestellte
	Case (mytextedit.SSScroll1.value >= 4456 .And. mytextedit.SSScroll1.value <= 4465)
		i = 4725 &&Einmalzhalungen
	Case (mytextedit.SSScroll1.value >= 4111 .And. mytextedit.SSScroll1.value <= 4119)
		i = 4726 &&Sachbezge
	Case (mytextedit.SSScroll1.value >= 4801 .And. mytextedit.SSScroll1.value <= 4920)
		i = 4727 &&Kostenstellen
	Case (mytextedit.SSScroll1.value >= 4921 .And. mytextedit.SSScroll1.value <= 4955)
		i = 4728 &&Krankenkassen

	Case (mytextedit.SSScroll1.value >= 5460 .And. mytextedit.SSScroll1.value <= 5500)
		i = 4000
	Case (mytextedit.SSScroll1.value >= 3713 .And. mytextedit.SSScroll1.value <= 3742)
		i = 4729 &&Einbehalte
	Case (mytextedit.SSScroll1.value >= 6100 .And. mytextedit.SSScroll1.value <= 6500)
		i = 6117
	Case (mytextedit.SSScroll1.value >= 6501 .And. mytextedit.SSScroll1.value <= 6510)&&Caritas
		i = 4410
	Case (mytextedit.SSScroll1.value >= 6511 .And. mytextedit.SSScroll1.value <= 6520)&&Caritas
		i = 4411
	Case (mytextedit.SSScroll1.value >= 6521 .And. mytextedit.SSScroll1.value <= 6530)&&Caritas
		i = 4412
	Case (mytextedit.SSScroll1.value >= 6531 .And. mytextedit.SSScroll1.value <= 6540)&&Caritas
		i = 4413
	Case (mytextedit.SSScroll1.value >= 6541 .And. mytextedit.SSScroll1.value <= 6550)&&Caritas
		i = 4414
	Case (mytextedit.SSScroll1.value >= 6551 .And. mytextedit.SSScroll1.value <= 6560)&&Caritas
		i = 4415
	Case (mytextedit.SSScroll1.value >= 6561 .And. mytextedit.SSScroll1.value <= 6570)&&Caritas
		i = 4416
	Case (mytextedit.SSScroll1.value >= 6571 .And. mytextedit.SSScroll1.value <= 6580)&&Caritas
		i = 4417
	Case (mytextedit.SSScroll1.value >= 6581 .And. mytextedit.SSScroll1.value <= 6590)&&Caritas
		i = 4418
	Case (mytextedit.SSScroll1.value >= 6591 .And. mytextedit.SSScroll1.value <= 6600)&&Caritas
		i = 4419
	Case (mytextedit.SSScroll1.value >= 6601 .And. mytextedit.SSScroll1.value <= 6610)&&Caritas
		i = 4420
	Case (mytextedit.SSScroll1.value >= 6611 .And. mytextedit.SSScroll1.value <= 6620)&&Caritas
		i = 4421
	Case (mytextedit.SSScroll1.value >= 6621 .And. mytextedit.SSScroll1.value <= 6630)&&Caritas
		i = 4422
	Case (mytextedit.SSScroll1.value >= 6631 .And. mytextedit.SSScroll1.value <= 6640)&&Caritas
		i = 4423
	Case (mytextedit.SSScroll1.value >= 6641 .And. mytextedit.SSScroll1.value <= 6650)&&Caritas
		i = 4424
	Case (mytextedit.SSScroll1.value >= 6651 .And. mytextedit.SSScroll1.value <= 6660)&&Caritas
		i = 4425
	Case (mytextedit.SSScroll1.value >= 6661 .And. mytextedit.SSScroll1.value <= 6670)&&Caritas
		i = 4426



	Case (mytextedit.SSScroll1.value >= 1 .And. mytextedit.SSScroll1.value <= 6099)
		&&Select Case mytextedit.SSScroll1.value
		&&Case 4956 To 5200
		&&     mytextedit.mytextedit.SSScroll1.value.Value = 4910
		&&Case 5075 To 5200
		&&     mytextedit.mytextedit.SSScroll1.value.Value = 5300
		&&End Select
		&&i = 4730
Endcase

myget("20", i, "woerter")
IF mytextedit.combo1.listindex < 51
	mytextedit.Unterordnung.Caption = Alltrim(woerter.textee)
ELSE
	mytextedit.Unterordnung.Caption = ""
endif
k = 1
mytextedit.ordnungfllen.Click
k = 0

ENDPROC
     PA    (P  (P                        N   %   J      O    J            U  I
 T  # T   CC   
 Z" C 20    woerter  T    	 ' T 
  CCCC   > Z
 H 2I)        
	  T  )        	
 T  )        2	A T  )    3    F	x T  )    G    _	 T  )    `    x	 T  )    y    	 T  )        	T T  )        	 T  )        	 T  )        	 T  *        	1 T  +        	j T  +        ,	 T  +    -    @	 T  +    A    h	 T  +    i    	N T  +        	 T  +        	 T  +        	 T  +        	2 T  +        	k T  +        :	 T  +    ;    b	 T  +    c    	 T  +        	O T  +        	 T  +        	 T  +        *	 T  +    +    >	3 T  +    ?    H	l T  +    I    R	 T  +    S    \	 T  +    ]    f	 T  +    g    p	P T  +    q    z	 T  +    {    	 T  +        	 T  +        	4	 T  +        	m	 T  +        		 T  +        		 T  +        	
 T  +        .	Q
 T  +    /    2	
 T  +    3    8	
 T  +    9    L	
 T  +        	5 T  +    '    0	n T  +    1    :	 T  +    ;    D	 T  +    E    N	 T  +    O    X	R T  +    Y    b	 T  +    c    l	 T  +    m    v	 T  +    w    	6
 T  +        	o
 T  +        	
 T  +        	
 T  +        	 T  +        	S T  +        	 T  +        	 T  
+        	 T  
+        	7 T  +        	p T  +        	 T  +        	 T  +        	 T  +        	T T  +    
    	 T  +         	 T  +    !    *	 T  +    +    4	8 T  +    5    >	q T  +    ?    H	 T  +    I    R	 T  +    S    \	 T  +    ]    f	U T  +    g    p	 T  
+    g    q	 T  
+    {    	  T  +        	9 T  +        	r T  +        	 T  +        	 T  +        	 T  +        	V T  +        	 T  +        	 T  +        	 T  +        	: T  +        	s T  +        	 T  +        		 T  +    	    		 T  +    	    		W T  
+    	    $		 T  
+    %	    .		 T  +    /	    8		 T  +    9	    B		; T  +    C	    L		t T  +    M	    V		 T  +    W	    `		 T  +    a	    j		 T  +    k	    t		X T  +    u	    ~		 T  +    	    		 T  +    	    		 T  +    	    		< T  +    	    		u T  +    	    		 T  +    	    		 T  +    	    		  T  +    }    	Y T  +        	 T  +        	 T  +        	 T  +        	= T  +        	v T  +        	 T  +        	 T  +        	! T  +        	Z T  +        	 T  +        	 T  +        	 T  +        	> T  +        	w T  +        	 T  +        	 T  +        	" T  +        	[ T  +        	 T  +        	 T  +        	 T  +        	? T  +        	x T  +        	 T  +        	 T  +        	#  T  +        	\  T  +        
	  T  +        	  T  +        	! T  +        	@! T  +        	y! T  +        	! T  +        	! T  +        	$" T  +        	]" T  +        	" T  +        	" T  +        	# T  +        	A# T  +        	z# T  +        	# T  +        	# T  +        	%$ T  +    	    		^$ T  \+    	    		$ T  ]+    	    
	$ T  ^+    
    
		% T  _+    
    
	B% T  `+    
    
	{% T  a+    
    $
	% T  b+    %
    ,
	% T  c+    -
    4
	&& T  d+    5
    <
	_& T  e+    =
    D
	& T  f+    E
    L
	& T  g+    M
    T
	
' T  h+    U
    \
	C' T  i+    ]
    d
	|' T  j+    e
    l
	' T  k+        	' T  +        	'( T  +        	`( T  +    y
    
	( T  +    
    
	( T  +    
    
	) T  +    
    
	D) T  +    
    
	}) T  +    
    
	) T  +    
    
	) T  +    
    
	(* T  +    
    
	a* T  +    
    
	* T  +    
    
	* T  +    
    
	+ T  +    
    
	E+ T  +    
    	~+ T  +        	+ T  +    	    
	+ T  +        	), T  +        	b, T  +        	, T  +        !	, T  +    "    &	
- T  +    '    +	F- T  +    ,    0	- T  +    1    5	- T  +    6    :	- T  +    ;    ?	*. T  +    @    D	c. T  +    E    I	. T  +    J    N	. T  +    O    S	/ T  +        	G/ T  +        	/ T  +        	/ T  +        	/ T  +        	+0 T  +        	d0 T  +        	0 T  +        	0 T  +        	1 T  +        	H1 T  +        	1 T  +        	1 T  +        	1 T  +    	    
	,2 T  +        	e2 T  +        	2 T  +    	    		2 T  +        	3 T  +    M    [	I3 T  +    \    j	3 T  +    k    y	3 T  +    z    	3 T  
+        	-4 T  +        	f4 T  +        	4 T  +        	4 T  +        	5 T  +        	J5 T  +        	5 T  +         	5 T  +        	5 T  +        	.6 T  +        (	g6 T  +    )    7	6 T   +    8    F	6 T  +    G    U	7 T  +    V    d	K7 T  +    e    s	7 T  +    t    	7 T  +        	7 T  +    O    ]	/8 T  +    ^    l	h8 T  +    m    {	8 T  	+    |    	8 T  
+        	9 T  +        	L9 T  +        	9 T  
+        	9 T  +        	9 T  +        	0: T  +        	i: T  +        	: T  +        	: T  +         	; T  +    !    /	M; T  +    0    >	; T  +    ?    M	; T  +        	; T  +        	1< T  +        	j< T  +        	< T  +        	< T  +        	= T  +        	N= T  +        	= T   +        	= T  !+        	= T  "+        	2> T  #+        	k> T  $+        	> T  %+        "	> T  &+    #    ,	? T  (+    -    6	O? T  )+    7    @	? T  *+    A    J	? T  ++    K    T	? T  ,+    U    ^	3@ T  -+    _    h	l@ T  .+    i    r	@ T  /+    s    |	@ T  0+    }    	A T  1+        	PA T  2+        	A T  3+        	A T  4+        	A T  -+        	4B T  6+        	mB T  7+        	B T  8+        	B T  +        	C T      >C T  +        	wC T  s+    ;
    
	C T  t+    h    q	C T  u+        	"D T  v+        8	[D T  w+    9    [	D T  x+    T    |	D T  +        	E T  y+        d	?E T  +    e    n	xE T  :+    o    x	E T  ;+    y    	E T  <+        	#F T  =+        	\F T  >+        	F T  ?+        	F T  @+        	G T  A+        	@G T  B+        	yG T  C+        	G T  D+        	G T  E+        	$H T  F+        	]H T  G+        	H T  H+        	H T  I+        	I T  J*        	2I  C 20    woerter  %   3
I T 
  C 	  I T 
     
 T 
    
 T   U  I
 MYTEXTEDIT SSPANEL1 CAPTION	 SSSCROLL1 VALUE MYGET TEXT1 WOERTER TEXTEE SSPANEL2 COMBO1	 LISTINDEX UNTERORDNUNG K
 ORDNUNGFLLEN CLICK Click,     1  1!aq                                                                                                                                                                                                                                                                                                                                       H q 1A    2                       ˍ      )   (P                        
commandbutton      
commandbutton      Command5      FORM1      sTop = 81
Left = 267
Height = 34
Width = 21
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command5"
      PROCEDURE Click
    If mytextedit.ssScroll1.value > mytextedit.ssScroll1.Min
    	mytextedit.ssScroll1.value = mytextedit.ssScroll1.value - 1
    ENDIF
    mytextedit.aufstocken.click    
ENDPROC
     1                                 %                             U  N  %        :  T         
      U 
 MYTEXTEDIT	 SSSCROLL1 VALUE MIN
 AUFSTOCKEN CLICK Click,     1 A  1                              )                           
commandbutton      
commandbutton      Command6      FORM1      tTop = 81
Left = 696
Height = 34
Width = 22
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command6"
      PROCEDURE Click
    If mytextedit.ssScroll1.value < mytextedit.ssScroll1.Max 
    	mytextedit.ssScroll1.value = mytextedit.ssScroll1.value + 1
    ENDIF
    mytextedit.aufstocken.click
ENDPROC
     1                                 %                             U  N  %        
:  T         
      U 
 MYTEXTEDIT	 SSSCROLL1 VALUE MAX
 AUFSTOCKEN CLICK Click,     1 A  1                              )                           xslider      foxyslider.vcx      	container      	ssScroll1      FORM1     Top = 81
Left = 289
Width = 405
Height = 32
SpecialEffect = 0
Visible = .T.
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 8011
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      oPROCEDURE Click
mytextedit.aufstocken.click
ENDPROC
PROCEDURE scroll
mytextedit.aufstocken.click
ENDPROC
     -                              ~)   %                             U   
      U 
 MYTEXTEDIT
 AUFSTOCKEN CLICK 
      U 
 MYTEXTEDIT
 AUFSTOCKEN CLICK Click,      scroll_     1  2  1                       ,         I   d       )                           label      label      Label7      FORM1      nCaption = "Return/Enter startet die Suche"
Height = 15
Left = 347
Top = 297
Width = 168
Name = "Label7"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LN0PTIPQ1216307288      /  F      ]                                                       WINDOWS _4LN0PTIPR1436256783                    (  5	                                               WINDOWS _4LN0PTIPS1398899974                  T                                                 WINDOWS _4LN0PTIPT1216307288>      K  X  f  s                                                           WINDOWS _4LN0PTIPU1351513128          )  6                                                           WINDOWS _4LN0PTIPV1351513128                                                                       WINDOWS _4LN0PTIPW13632381659      H  W  e  r                                                        WINDOWS _4LN0PTIPX1363238165r"      "  "  "  "      "  $                                               WINDOWS _4LN0PTIPY1398899974&      &  '  '  !'                                                           WINDOWS _4LN0PTIPZ1398899974'      '  '  '  '                                                           WINDOWS _4LN0PTIQ01363238240r(      (  (  (  (                                                           WINDOWS _4LN0PTIQ11363238240)      ')  4)  B)  O)                                                           WINDOWS _4LN0PTIQ21398899974)      )  )  )  )                                                           WINDOWS _4LN0PTIQ31398899974*      *  *  *  *                                                           WINDOWS _4LN0PTIPQ13988999746+      C+  P+  e+  r+                                                           WINDOWS _4LN0PTIQ51398899974+      +  
,  ,  &,      ,  w.                                               WINDOWS _4LN0PTIQ613988999740      0  0  0  1      b1  3                                               WINDOWS _4LN0PTIQ71398899974-6      <6  K6  ^6  k6                                                           WINDOWS _4LN0PTIQ813988999746      7  7  (7  57                                                           WINDOWS _4LN0PTIQ913988999747      7  7  7  7                                                           WINDOWS _4LN0PTIQA1436256783f8      {8  8  8  8      9  ^                                               WINDOWS _4LN0PTIQB1398899974en      zn  n  n  n      o  So                                               WINDOWS _4LN0PTIQC1436252722Hp      ]p  rp  p  p      p  oq                                               WINDOWS _4X30WPEFI1398899974r  r  r  r  r  s                                                           WINDOWS _5QT0LPCV81398899974s      s  s  s  s                                                           COMMENT RESERVED                                ?t                                                            t                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     +Height = 436
Width = 809
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Auswahlmen fr den Druck von Gehaltsabrechnungen in Serie"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Destroy
hsseriendruck = .f.
ENDPROC
PROCEDURE Unload
myform1.Visible = True
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif

PUBLIC myseriendruck
myseriendruck = thisform
Do monatladen &&Do attached
Thisform.Ende.Value = satzanzahl - 1
Thisform.Anfang.Value = 1


Thisform.Ende1.Value = 12
Thisform.Anfang1.Value = 1
Thisform.erstername.value = zt0(1+0)
Thisform.bediensteter1.Caption = zt0(1+zi(1+0))
If satzanzahl > 1
	Thisform.letztername.value = zt0(1+satzanzahl - 2)
Else
	Thisform.letztername.value = zt0(1+satzanzahl - 1)
Endif
Thisform.Label3.Caption = Thisform.Label3.Caption + " " + Alltrim(sumonattext(1+zi(1+20))) + " " + welchesjahrc
Thisform.Label2.Caption = Thisform.Label2.Caption + "  " + welchesjahrc

ausdruckold = ausdruck

ausdruck = 0
Public druckzhler
druckzhler = 0


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     w    ^  ^                        9   %   T        )               U    T  - U 
 HSSERIENDRUCK  T     U  MYFORM1 VISIBLE TRUE] %    
$  T      7 
 T      T      T     T     T  	   T  
  C  T   
 CC   %   T    C     T    C   9 T   
    
   CCC     # T   
    
     
 T  
 T   7 
 T   %      T C     T 
 T  
      T         T        
     T   a U   THISFORM TOP
 MYSERIENDRUCK
 MONATLADEN ENDE VALUE
 SATZANZAHL ANFANG ENDE1 ANFANG1
 ERSTERNAME ZT0
 BEDIENSTETER1 CAPTION ZI LETZTERNAME LABEL3 SUMONATTEXT WELCHESJAHRC LABEL2 AUSDRUCKOLD AUSDRUCK DRUCKZHLER HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Destroy,      UnloadM      Init|      Resize!    1  2 2 AA r  q q131q A 1  q    A    2 1                       &         C   Y         t        '       3    )   ^                        optiongroup      optiongroup      druckart      FORM1     UButtonCount = 18
Value = 1
Height = 366
Left = 7
Top = 8
Width = 794
Name = "druckart"
Option1.Caption = "Brutto"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 138
Option1.Width = 61
Option1.Name = "druckart0"
Option2.Caption = "Brutto und Netto"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 157
Option2.Width = 109
Option2.Name = "druckart1"
Option3.Caption = "Brutto, Netto und Arbeitgeberaufwand"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 176
Option3.Width = 224
Option3.Name = "druckart2"
Option4.Caption = "Anlage ZVK/Soz/LSt"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 214
Option4.Width = 129
Option4.Name = "druckart3"
Option5.Caption = "AN-Sicht, Monate einzeln"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 277
Option5.Width = 153
Option5.Name = "druckart4"
Option6.Caption = "AN-Sicht, Monate akkumuliert"
Option6.Enabled = .F.
Option6.Height = 17
Option6.Left = 441
Option6.Top = 277
Option6.Visible = .F.
Option6.Width = 181
Option6.Name = "druckart5"
Option7.Caption = "AN-Sicht, Monate akkumuliert"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 296
Option7.Width = 181
Option7.Name = "druckart6"
Option8.Caption = "AN-Sicht, Monate akkumuliert"
Option8.Enabled = .F.
Option8.Height = 17
Option8.Left = 441
Option8.Top = 296
Option8.Visible = .F.
Option8.Width = 181
Option8.Name = "druckart7"
Option9.Caption = "AG-Sicht, Monate einzeln"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 317
Option9.Width = 157
Option9.Name = "druckart8"
Option10.Caption = "AG-Sicht, Monate akkumuliert"
Option10.Enabled = .F.
Option10.Height = 17
Option10.Left = 441
Option10.Top = 317
Option10.Visible = .F.
Option10.Width = 181
Option10.Name = "druckart9"
Option11.Caption = "AG-Sicht, Monate akkumuliert"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 338
Option11.Width = 176
Option11.Name = "druckart10"
Option12.Caption = "AG-Sicht, Monate akkumuliert"
Option12.Enabled = .F.
Option12.Height = 17
Option12.Left = 441
Option12.Top = 338
Option12.Visible = .F.
Option12.Width = 181
Option12.Name = "druckart11"
Option13.Caption = "Brutto"
Option13.Height = 17
Option13.Left = 441
Option13.Top = 174
Option13.Width = 68
Option13.Name = "druckart12"
Option14.Caption = "Brutto und Netto"
Option14.Height = 17
Option14.Left = 441
Option14.Top = 193
Option14.Width = 112
Option14.Name = "druckart13"
Option15.Caption = "Brutto, Netto und Arbeitgeberaufwand"
Option15.Height = 17
Option15.Left = 441
Option15.Top = 212
Option15.Width = 226
Option15.Name = "druckart14"
Option16.Caption = "Anlage ZVK/Soz/LSt"
Option16.Height = 17
Option16.Left = 441
Option16.Top = 252
Option16.Width = 130
Option16.Name = "druckart15"
Option17.Caption = "Entgeltbescheinigung"
Option17.Height = 17
Option17.Left = 5
Option17.TabIndex = 17
Option17.Top = 195
Option17.Width = 144
Option17.Name = "druckart16"
Option18.Caption = "Entgeltbescheinigung"
Option18.Height = 17
Option18.Left = 441
Option18.TabIndex = 18
Option18.Top = 231
Option18.Width = 139
Option18.Name = "druckart17"
      PROCEDURE Click
dbb = True
myindex = this.value - 1
ausdruck = myIndex
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
     T    ;  ;                           %                             U  1 
 T    T   
 T   U  DBB TRUE MYINDEX THIS VALUE AUSDRUCK
 
     U  THIS CLICK Click,      InteractiveChange     1  A 2  1                       I         q   {       )   ;                        label      label      Label1      FORM1      FontSize = 14
Caption = "Gehaltsabrechnung fr folgende Bedienstete"
Height = 28
Left = 13
Top = 9
Width = 392
Name = "Label1"
      label      label      Label4      FORM1      _FontSize = 12
Caption = "von"
Height = 19
Left = 13
Top = 53
Width = 27
Name = "Label4"
      label      label      Label5      FORM1      _FontSize = 12
Caption = "bis"
Height = 19
Left = 13
Top = 84
Width = 27
Name = "Label5"
      spinner      spinner      anfang      FORM1      NFontSize = 12
Height = 31
Left = 46
Top = 48
Width = 63
Name = "anfang"
     PROCEDURE InteractiveChange
If Thisform.Anfang.Value > Thisform.Ende.Value
	Thisform.Anfang.Value = Thisform.Ende.Value
Endif

If Thisform.Anfang.Value = 0
	Thisform.Anfang.Value = 1
Endif

Thisform.erstername.value = "  " + zt0(1+Thisform.Anfang.Value - 1)
ENDPROC
         l  l                        qk   %          #  	               U    %        6  T          %     d  T     + T       C      U  THISFORM ANFANG VALUE ENDE
 ERSTERNAME ZT0 InteractiveChange,     1 A r1A 1                       
      )   l                        spinner      spinner      ende      FORM1      LFontSize = 12
Height = 31
Left = 46
Top = 81
Width = 63
Name = "ende"
     PROCEDURE InteractiveChange
If Thisform.Ende.Value >= satzanzahl
	Thisform.Ende.Value = satzanzahl - 1
Endif

If Thisform.Ende.Value = 0
	Thisform.Ende.Value = 1
Endif

If Thisform.Ende.Value < Thisform.Anfang.Value
	Thisform.Ende.Value = Thisform.Anfang.Value
Endif

If Thisform.Anfang.Value > Thisform.Ende.Value
	Thisform.Anfang.Value = Thisform.Ende.Value
Endif

Thisform.letztername.value = "  " + zt0(1+Thisform.Ende.Value - 1)
ENDPROC
     
                                 %   o                       U   %     .  T       %     \  T      %        
  T          %          T         + T       C      U  THISFORM ENDE VALUE
 SATZANZAHL ANFANG LETZTERNAME ZT0 InteractiveChange,     1 qqA r1A A A 1                             )                           textbox      textbox      
erstername      FORM1      Height = 22
Left = 118
Top = 54
Width = 287
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "erstername"
      textbox      textbox      letztername      FORM1      Height = 22
Left = 118
Top = 86
Width = 287
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "letztername"
      label      label      Label3      FORM1      kFontSize = 14
Caption = "fr den Monat"
Height = 25
Left = 13
Top = 122
Width = 413
Name = "Label3"
      label      label      Label2      FORM1      oFontSize = 14
Caption = "Jahresbersichten"
Height = 25
Left = 14
Top = 257
Width = 409
Name = "Label2"
      label      label      Label6      FORM1      ~FontSize = 14
Caption = "Gehaltsabrechnung fr den aktuell"
Height = 28
Left = 428
Top = 9
Width = 294
Name = "Label6"
      label      label      Label7      FORM1      xFontSize = 14
Caption = "eingestellten Bediensteten"
Height = 28
Left = 428
Top = 32
Width = 294
Name = "Label7"
      label      label      
bediensteter1      FORM1      rFontSize = 14
Caption = "bediensteter1"
Height = 28
Left = 428
Top = 56
Width = 294
Name = "bediensteter1"
      spinner      spinner      anfang1      FORM1      QFontSize = 12
Height = 31
Left = 428
Top = 107
Width = 63
Name = "anfang1"
     PROCEDURE InteractiveChange
If Thisform.anfang1.Value > Thisform.Ende1.Value
	Thisform.anfang1.Value = Thisform.Ende1.Value
Endif

If Thisform.anfang1.Value = 0
	Thisform.anfang1.Value = 1
Endif

If Thisform.anfang1.Value = 13
	Thisform.ersterMonat.value = "  JAHRESGEHALT " + welchesjahrc
Else
	Thisform.ersterMonat.value = "  " + Alltrim(sumonattext(1+Thisform.anfang1.Value - 1)) + " " + welchesjahrc
Endif
ENDPROC
PROCEDURE ProgrammaticChange
this.InteractiveChange
ENDPROC
     T    ;  ;                        6
   %                          U    %        6  T          %     d  T      %    
 & T       JAHRESGEHALT    6 T       CC          U  THISFORM ANFANG1 VALUE ENDE1 ERSTERMONAT WELCHESJAHRC SUMONATTEXT
 
     U  THIS INTERACTIVECHANGE InteractiveChange,      ProgrammaticChangec    1 A r1A ra aA 2  1                            
           )   ;                        spinner      spinner      ende1      FORM1      OFontSize = 12
Height = 31
Left = 428
Top = 140
Width = 63
Name = "ende1"
     2PROCEDURE InteractiveChange
If thisform.Ende1.Value = 14 
	thisform.Ende1.Value = 1
endif

If thisform.Ende1.Value = 0 
	thisform.Ende1.Value = 1
endif


If thisform.Ende1.Value < thisform.Anfang1.Value 
	thisform.Ende1.Value = thisform.Anfang1.Value
endif

If thisform.Ende1.Value = 13 

thisform.LetzterMonat.value = "  JAHRESGEHALT " + welchesjahrc
else
thisform.LetzterMonat.value = "  " + alltrim(sumonattext(1+thisform.Ende1.Value - 1)) + " " + welchesjahrc
endif
ENDPROC
PROCEDURE ProgrammaticChange
this.InteractiveChange
ENDPROC
         p  p                        s    %                          U   %    *  T      %     X  T      %        
  T          %    
 & T       JAHRESGEHALT   6 T       CC          U  THISFORM ENDE1 VALUE ANFANG1 LETZTERMONAT WELCHESJAHRC SUMONATTEXT
 
     U  THIS INTERACTIVECHANGE InteractiveChange,      ProgrammaticChange    1 q1A r1A A rb aA 2  1                                 '      )   p                        textbox      textbox      erstermonat      FORM1      Height = 22
Left = 500
Top = 113
Width = 287
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "erstermonat"
      textbox      textbox      letztermonat      FORM1      Height = 22
Left = 500
Top = 145
Width = 287
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "letztermonat"
      line      line      Line1      FORM1      kBorderWidth = 2
Height = 351
Left = 416
Top = 11
Width = 0
BorderColor = 192,192,192
Name = "Line1"
      
commandbutton      
commandbutton      druckbefehl      FORM1      _Top = 386
Left = 13
Height = 34
Width = 178
Caption = "Druckbefehl"
Name = "druckbefehl"
     $PROCEDURE Click
&&ffentlicher Dienst

thisform.Visible = False
hsseriendruck = .t.
druwahl = ""
*druwahl = GETPRINTER()
if empty(druwahl)
	do while .t.
		druwahl=getprinter()
		if empty(druwahl)
			hsrxx = messagebox("Kein Drucker ausgewhlt!"+chr(13)+chr(10)+"Wollen Sie abbrechen ?",4+32+256,"Drucker sollte ausgewhlt werden!")
			if hsrxx = 6  &&JA
				exit
			endif
		else
			exit
		endif
	enddo
ENDIF

IF EMPTY(druwahl)
	thisform.Visible = true
	hsseriendruck = .f.
	RETURN
ENDIF

SET PRINTER TO NAME "&druwahl"
 
Do Case && ausdruck
	Case ausdruck = 0 &&Brutto
		abzuege = 1
		myindexe = 16
		For druckzhler = thisform.Anfang.Value To thisform.Ende.Value
			myform1.tdbnumber1.Value = druckzhler
			If Leftc(Right(thisform.Label3.Caption, 11), 6) = "GEHALT"
				Do Jahresgehalt
				Do anzeige
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttodrucken
			direktzumdrucker = true
			DO bruttodrucken
			&&eineseitedrucken
		NEXT
		direktzumdrucker = false
	Case ausdruck = 1 &&Brutto,Netto
		myindexe = 11
		abzuege = 2
		For druckzhler = thisform.anfang.Value To thisform.ende.Value
			myform1.tdbnumber1.Value = druckzhler
			If Leftc(Right(thisform.Label3.Caption, 11), 6) = "GEHALT"
				Do Jahresgehalt
				Do anzeige
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttonetto
			direktzumdrucker = true
			DO bruttonetto
		NEXT
		direktzumdrucker = false
	Case ausdruck = 2 &&Brutto,Netto, AG
		myindexe = 12
		abzuege = 3
		For druckzhler = thisform.anfang.Value To thisform.ende.Value
			myform1.tdbnumber1.Value = druckzhler
			If Leftc(Right(thisform.Label3.Caption, 11), 6) = "GEHALT"
				Do Jahresgehalt
				Do anzeige
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttonettoAG
			direktzumdrucker = true
			DO bruttonettoAG
		NEXT
		direktzumdrucker = false
	Case ausdruck = 16 &&Entgeltbescheinigung
		myindexe = 22
		If indexm = 12
			Messagebox( "Eine Entgeltbescheinigung fr das ganze Jahr ist derzeit noch nicht mglich.", 0, "Nachricht")
		Else
			For druckzhler = thisform.anfang.Value To thisform.ende.Value
				myform1.tdbnumber1.Value = druckzhler
				If Leftc(Right(thisform.Label3.Caption, 11), 6) = "GEHALT"
					Do Jahresgehalt
					Do anzeige
				Endif
*!*					Printer.Orientation = 1
*!*					Druckvorschau.bescheinigung
				direktzumdrucker = true
				DO bescheinigung
			Next
		ENDIF
		direktzumdrucker = false
	Case ausdruck = 3 &&Anlage
		myindexe = 13
		For druckzhler = thisform.anfang.Value To thisform.ende.Value
			myform1.tdbnumber1.Value = druckzhler
*!*				Printer.Orientation = 2
*!*				Druckvorschau.ZVKlstsoz
			direktzumdrucker = true
			DO ZVKlstsoz
		NEXT
		direktzumdrucker = false
	Case ausdruck = 4 &&AN,Mon, Abz

		For fileneu = thisform.anfang.Value To thisform.ende.Value
			namensfile = fileneu
			dbb = True
*!*				Printer.ScaleMode = vbInches
*!*				Druckvorschau.ansicht &&Printer
			direktzumdrucker = true
			DO ansicht
*!*				Printer.EndDoc
*!*				Printer.ScaleMode = vbTwips
		NEXT
		direktzumdrucker = false
		&&Unload Druckvorschau
	Case ausdruck = 5 &&AN,Mon,Daten
*!*			form1zeigen = ""
*!*			register = 40
*!*			&&If Form3.WindowState > 0 Then Form3.WindowState = 0
*!*			myForm3.Show
*!*			myForm3.Visible = False
*!*			myForm3.SSCommand7.Caption = "Mittelteil B"
*!*			For druckzhler = thisform.anfang.Value To thisform.ende.Value
*!*				myForm3.HScroll1.Value = druckzhler
*!*				Do mittelteilumschalten &&Do attached
*!*				Do AG_AN_drucken &&Do attached
*!*			Next
		&&Unload Form3

	Case ausdruck = 6 &&AN,akkum, Abz
		For fileneu = thisform.anfang.Value To thisform.ende.Value
			namensfile = fileneu
			dbb = False
*!*				Printer.ScaleMode = vbInches
*!*				Druckvorschau.ansicht &&Printer
			direktzumdrucker = true
			DO ansicht
*!*				Printer.EndDoc
*!*				Printer.ScaleMode = vbTwips
		NEXT
		direktzumdrucker = false
		&&Unload Druckvorschau
	Case ausdruck = 7 &&AN, akkum, Daten
*!*			form1zeigen = ""
*!*			register = 40
*!*			&&If Form3.WindowState > 0 Then Form3.WindowState = 0
*!*			myForm3.Show
*!*			myForm3.Visible = False
*!*			myForm3.SSCommand7.Caption = "Mittelteil B"
*!*			myForm3.SSCommand4.Caption = "Monate einzeln"
*!*			For druckzhler = thisform.anfang.Value To thisform.ende.Value

*!*				myForm3.HScroll1.Value = druckzhler
*!*				Do mittelteilumschalten &&Do attached
*!*				Do uebersichtladen1 &&Do attached
*!*				Do AG_AN_drucken &&Do attached
*!*			Next
		&&Unload Form3
	Case ausdruck = 8 &&AG,Mon, Abz
		&&form1zeigen = ""
		&&register = 41
		&&Form3.Show
		&&Form3.Visible = False
		&&Form3.SSCommand7.Caption = "Mittelteil A"
		&&For druckzhler = thisform.anfang.Value To thisform.ende.Value

		&&    Form3.HScroll1.Value = druckzhler
		&&    mittelteilumschalten
		&&    AG_AN_drucken
		&&Next
		&&Unload Form3
		For fileneu = thisform.anfang.Value To thisform.ende.Value
			namensfile = fileneu
			dbb = True
*!*				Printer.ScaleMode = vbInches
*!*				Druckvorschau.agsicht &&Printer
				direktzumdrucker = true
				DO AGsicht
*!*				Printer.EndDoc
*!*				Printer.ScaleMode = vbTwips
		NEXT
		direktzumdrucker = false
		&&Unload Druckvorschau

	Case ausdruck = 9 &&AG,Mon,Daten
*!*			form1zeigen = ""
*!*			register = 41
*!*			&&If Form3.WindowState > 0 Then Form3.WindowState = 0
*!*			myForm3.Show
*!*			myForm3.Visible = False
*!*			myForm3.SSCommand7.Caption = "Mittelteil B"
*!*			For druckzhler = thisform.anfang.Value To thisform.ende.Value
*!*				myForm3.HScroll1.Value = druckzhler
*!*				Do mittelteilumschalten &&Do attached
*!*				Do AG_AN_drucken &&Do attached
*!*			Next
		&&Unload Form3

	Case ausdruck = 10 &&AG,akkum, Abz
		For fileneu = thisform.anfang.Value To thisform.ende.Value
			namensfile = fileneu
			dbb = False
*!*				Printer.ScaleMode = vbInches
*!*				Druckvorschau.agsicht &&Printer
			direktzumdrucker = true
			DO AGsicht
*!*				Printer.EndDoc
*!*				Printer.ScaleMode = vbTwips
		NEXT
		direktzumdrucker = false
		&&Unload Druckvorschau
	Case ausdruck = 11 &&AG, akkum, Daten
*!*			form1zeigen = ""
*!*			register = 41
*!*			&&If Form3.WindowState > 0 Then Form3.WindowState = 0
*!*			myForm3.Show
*!*			myForm3.Visible = False
*!*			myForm3.SSCommand7.Caption = "Mittelteil B"
*!*			myForm3.SSCommand4.Caption = "Monate einzeln"
*!*			For druckzhler = thisform.anfang.Value To thisform.ende.Value
*!*				myForm3.HScroll1.Value = druckzhler
*!*				Do mittelteilumschalten &&Do attached
*!*				Do uebersichtladen2 &&Do attached
*!*				Do AG_AN_drucken &&Do attached
*!*			Next
		&&Unload Form3
	Case ausdruck = 12 &&Brutto
		abzuege = 1
		myindexe = 16
		For druckzhler = thisform.anfang1.Value To thisform.ende1.Value
			myform1.z20.Caption = zt20(1+druckzhler - 1)
			zi(1+20) = druckzhler - 1
			Monat = druckzhler
			zti = 20
			If zi(1+20) < 12
				Do Neuername &&Do attached
			Else
				Do Jahresgehalt &&Do attached
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttodrucken
			direktzumdrucker = true
			DO bruttodrucken
		NEXT
		direktzumdrucker = false
	Case ausdruck = 13 &&Brutto,Netto
		myindexe = 11
		abzuege = 2
		For druckzhler = thisform.anfang1.Value To thisform.ende1.Value
			myform1.z20.Caption = zt20(1+druckzhler - 1)
			zi(1+20) = druckzhler - 1
			Monat = druckzhler
			zti = 20
			If zi(1+20) < 12
				Do Neuername &&Do attached
			Else
				Do Jahresgehalt &&Do attached
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttonetto
			direktzumdrucker = true
			DO bruttonetto
		NEXT
		direktzumdrucker = false
	Case ausdruck = 14 &&Brutto,Netto, AG
		myindexe = 12
		abzuege = 3
		For druckzhler = thisform.anfang1.Value To thisform.ende1.Value
			myform1.z20.Caption = zt20(1+druckzhler - 1)
			zi(1+20) = druckzhler - 1
			Monat = druckzhler
			zti = 20
			If zi(1+20) < 12
				Do Neuername &&Do attached
			Else
				Do Jahresgehalt &&Do attached
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bruttonettoAG
			direktzumdrucker = true
			DO bruttonettoAG
		NEXT
		direktzumdrucker = false
	Case ausdruck = 15 &&Anlage
		myindexe = 13
		For druckzhler = thisform.anfang1.Value To thisform.ende1.Value
			myform1.z20.Caption = zt20(1+druckzhler - 1)
			zi(1+20) = druckzhler - 1
			Monat = druckzhler
			zti = 20
			If zi(1+20) < 12
				Do Neuername &&Do attached
			Else
				Do Jahresgehalt &&Do attached
			Endif
*!*				Printer.Orientation = 2
*!*				Druckvorschau.ZVKlstsoz
			direktzumdrucker = true
			DO ZVKlstsoz
		Next
		direktzumdrucker = false
	Case ausdruck = 17 &&Bescheinigung
		myindexe = 22
		For druckzhler = thisform.anfang1.Value To thisform.ende1.Value
			myform1.z20.Caption = zt20(1+druckzhler - 1)
			zi(1+20) = druckzhler - 1
			Monat = druckzhler
			zti = 20
			If zi(1+20) < 12
				Do Neuername &&Do attached
			Else
				Messagebox( "Eine Entgeltbescheinigung fr das ganze Jahr ist derzeit noch nicht mglich.", 0, "Nachricht")
			Endif
*!*				Printer.Orientation = 1
*!*				Druckvorschau.bescheinigung
			direktzumdrucker = true
			DO bescheinigung
		Next
		direktzumdrucker = false
Endcase
&&Anzeige.Caption = ""
SET PRINTER to
direktzumdrucker = false
thisform.Visible = true
ENDPROC
     V    =  =                           %   =           L            U   T     T a
 T    %C  +a 
 T C %C  v T C Kein Drucker ausgewhlt!C
 C
  Wollen Sie abbrechen ?$! Drucker sollte ausgewhlt werden!x %   !    !    %C 4 T     T - B " SET PRINTER TO NAME "&druwahl"

 Hgg   '
 T 
 T	 # 
     (  
   T   
 ( %CC    R GEHALT     
 T     
 T    
 T	 
 T # 
     (  
   T   
 ( %CC    R GEHALT     
 T     
 T    
 T	 
 T # 
     (  
   T   
 ( %CC    R GEHALT~     
 T     
 T    
 T	  % =g CL Eine Entgeltbescheinigung fr das ganze Jahr ist derzeit noch nicht mglich. 	 Nachrichtx # 
     (  
   T   
 ( %CC    R GEHALT     
 T      
 T    W
 T	 
# 
     (  
  F T   
 
 T     
 T    #      (  
  
 T  
 T  
 T     
 T      N#      (  
  =
 T  
 T  
 T     
 T    _  #      (  
  
 T  
 T  
 T     
 T    	  
V#      (  
  E
 T  
 T  
 T     
 T    g  Y
 T 
 T	 # 
      (  !  H T "  C
 #  T$ 
 
 T% 
 
 T&  %C$ 
! '  0   
 T     
 T    
K	
 T	 
 T # 
      (  !  :	 T "  C
 #  T$ 
 
 T% 
 
 T&  %C$ 
	 '  "	   
 T     
 T    =

 T	 
 T # 
      (  !  ,
 T "  C
 #  T$ 
 
 T% 
 
 T&  %C$ 

 '  
   
 T     
 T    "
 T	 
# 
      (  !   T "  C
 #  T$ 
 
 T% 
 
 T&  %C$ 

 '  
   
 T     
 T    g
 T	 # 
      (  !  V T "  C
 #  T$ 
 
 T% 
 
 T&  %C$ 
 '  >g CL Eine Entgeltbescheinigung fr das ganze Jahr ist derzeit noch nicht mglich. 	 Nachrichtx 
 T     
 T    G*(
 T   T     U(  THISFORM VISIBLE FALSE
 HSSERIENDRUCK DRUWAHL HSRXX TRUE AUSDRUCK ABZUEGE MYINDEXE DRUCKZHLER ANFANG VALUE ENDE MYFORM1
 TDBNUMBER1 LABEL3 CAPTION JAHRESGEHALT ANZEIGE DIREKTZUMDRUCKER
 BRUTTODRUCKEN BRUTTONETTO
 BRUTTONETTOAG INDEXM
 BESCHEINIGUNG	 ZVKLSTSOZ FILENEU
 NAMENSFILE DBB ANSICHT AGSICHT ANFANG1 ENDE1 Z20 ZT20 ZI MONAT ZTI	 NEUERNAME Click,     1       aA A  A A A A   A A "   11q q A  q B    11q q A  q A    11q q A  q A   q 11q q A  q A A   11 q A  2   q C  1   q C   =   q C  1   q C    1q  Qq  q A  q A    1q  Qq  q A  q A    1q  Qq  q A  q A   1q  Qq  q A  q A   1q  Qq  qA  q A  A b  1                       $      )   =                        
commandbutton      
commandbutton      Hilfe      FORM1      TTop = 386
Left = 315
Height = 34
Width = 178
Caption = "Hilfe"
Name = "Hilfe"
      FPROCEDURE Click
inet = 111
Msg = "723001"
DO insinternet
ENDPROC
                                         %   r                          U  * 
 T  o T  723001   U  INET MSG INSINTERNET Click,     1  1q 1                       ;       )                            
commandbutton      
commandbutton      	schlieen      FORM1      \Top = 386
Left = 621
Height = 34
Width = 178
Caption = "Schlieen"
Name = "schlieen"
      sPROCEDURE Click
myform1.Visible = True
hsseriendruck = .f.
ausdruck = ausdruckold
thisform.Release

ENDPROC
     3                                 %                             U  5  T     T -
 T  
    U  MYFORM1 VISIBLE TRUE
 HSSERIENDRUCK AUSDRUCK AUSDRUCKOLD THISFORM RELEASE Click,     1    2                       h       )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 416
Left = 788
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label9      FORM1      qFontSize = 14
Caption = "fr folgende Monate"
Height = 28
Left = 428
Top = 80
Width = 294
Name = "Label9"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 12, 7, 19, 15, 43, 3, 1
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LN0Q4N5G1216314219      /  F      ]                                                       WINDOWS _4LN0Q4N5H1430476412                    -  
                                               WINDOWS _4LN0VNNRG1361804515            +                                                           WINDOWS _5UZ0VZ7EF1381465807                                                                       WINDOWS _5UZ0VZ7EE1381465683                                                                       WINDOWS _4LN0VNNQY1216314219             -                                                           WINDOWS _4LN0Q4N5G1361797654                                                                       WINDOWS _4LN0Q4N5I1361807523      )  9  G  T                                                       WINDOWS _4LN0Q4N5J1402231776                  F  G                                               WINDOWS _4LN0Q4N5K1361807523D      Y  n            7                                               WINDOWS _4LN0Q4N5L1361807523         5  B  O                                                       WINDOWS _4LN0Q4N5M1362003112                  W                                                 WINDOWS _4LN0Q4N5N1361807523             !  !      ~!  !                                               WINDOWS _4LN0Q4N5O1361807523"      "  "  "  "      :#  {#                                               WINDOWS _4LN0Q4N5R1361804515N$      [$  h$  v$  $                                                           WINDOWS _4LN0Q4N5S1361804515
%      %  $%  2%  ?%                                                           WINDOWS _4LN0Q4N5T1361807781%      %  %  %  &      F/  4                                               WINDOWS _4LN0Q4N5U1361804515<      <  =  =  #=                                                           WINDOWS _4LN0Q4N5G1361792110=      >  >  (>  5>      %@  @                                               WINDOWS _4LN0Q4N5G1361990391A      A  B  B  B                                                           WINDOWS _4LN0Q4N5G1361988539B      B  B  B  B                                                           WINDOWS _4LN0VNNR01361792111C      C  C  C  C      E  nF                                               WINDOWS _4LN0VNNR11361804515G      G  G  G  G                                                           WINDOWS _4LN0Q4N5G1216314219}H      H  H  H  H                                                           WINDOWS _4LN0Q4N5G1216314219I      )I  6I  EI  RI                                                           WINDOWS _4LN0Q4N5G1216314219I      I  I  I  I                                                           WINDOWS _4LN0VNNR21216314219_J      lJ  yJ  J  J                                                           WINDOWS _4LN0VNNR31361991502J      K  K  &K  3K      K  
L                                               WINDOWS _4LN0Q4N5G1216314219L      L  L  M  M                                                           WINDOWS _4LN0Q4N5G1216314219M      M  M  M  M                                                           WINDOWS _4LN0Q4N5G1216314219"N      /N  <N  KN  XN                                                           WINDOWS _4LN0Q4N5G1216314219N      N  N  N  N                                                           WINDOWS _4LN0Q4N5G1216314219iO      vO  O  O  O                                                           WINDOWS _4LN0Q4N5G1216314219P      P  %P  4P  AP                                                           WINDOWS _4LN0Q4N5G1216314219P      P  P  P  P                                                           WINDOWS _4LN0Q4N5G1216314219MQ      ZQ  gQ  vQ  Q                                                           WINDOWS _4LN0VNNR41216314219Q      Q  R  R  "R                                                           WINDOWS _4LN0Q4N5G1361792111R      R  R  R  R      !^  c                                               WINDOWS _4LN0Q4N5H1361804515k       k  -k  =k  Jk                                                           WINDOWS _4LN0Q4N5G1361792111k      k  
l  l  'l      s  Ow                                               WINDOWS _4LN0Q4N5H1361804515l|      y|  |  |  |                                                           WINDOWS _4LN0VNNRE1361792111?}      R}  e}  s}  }                                                       WINDOWS _4LN0VNNRF1361804515            ̏                                                           WINDOWS _4LN0Q4N5G1361804515e      r                                                                 WINDOWS _4LN0VNNRH1361807523E      R  _  n  {        E                                               WINDOWS _4LN0Q4N5G1361792111      #  0  @  M                                                           WINDOWS _4LN0Q4N5G1361792111      ֓                                                                 WINDOWS _4LN0Q4N5H1361989408k                                                                       WINDOWS _4LN0VNNQY1361989408      *  ?  R  _                                                           WINDOWS _4LN0Q4N5G1361792111      ԕ      	                                                           WINDOWS _4LN0Q4N5I1361792111i      ~                                                                 WINDOWS _4LN0Q4N5J1361792111      (  =  P  ]                                                           WINDOWS _4LN0Q4N5K1361792111      җ                                                                 WINDOWS _4LN0Q4N5L1361792111g      |                                                                 WINDOWS _4LN0WYOS51361792111      &  ;  N  [                                                           WINDOWS _4LN0WYOS61361792111      Й                                                                 WINDOWS _4LN0WYOS71361792111e      z                                                                 WINDOWS _4LN0WYOS81361792111      &  ;  O  \                                                           WINDOWS _4LN0WYOS91361792111      қ                                                                 WINDOWS _4LN0Q4N5G1361792111i      ~                                                                 WINDOWS _4LN0Q4N5H1361792111      *  ?  S  `                                                           WINDOWS _4LN0VNNQY1361792111      ֝                                                                 WINDOWS _4LN0WYOSA1361792111m                                                                       WINDOWS _4LN0WYOSB1216314219      .  C  T  a                                                           WINDOWS _4LN0WYOSC1216314219      ן      
                                                           WINDOWS _4LN0Q4N5G1216314219k      z                                                                 WINDOWS _4LN0Q4N5H1361792111          +  8                                                           WINDOWS _4LN0VNNQY1361792111            ơ                                                           WINDOWS _4LN0Q4N5G1361792111      $  3  G  T                                                           WINDOWS _4LN0Q4N5I1361792111          բ                                                             WINDOWS _4LN0Q4N5J13617921111      @  O  c  p                                                           WINDOWS _4LN0Q4N5K1361792111      Σ  ݣ                                                               WINDOWS _4LN0Q4N5L1361792111M      \  k                                                               WINDOWS _4LN0Q4N5M1361792111ݤ                                                                       WINDOWS _4LN0Q4N5N1361792111m      |                                                                 WINDOWS _4LN0Q4N5O1361792111          0  =                                                           WINDOWS _4LN0Q4N5P1361792111            ͦ                                                           WINDOWS _4LN0Q4N5G1361792111      ,  ;  P  ]                                                           WINDOWS _4LN0Q4N5R1361792111        ˧                                                               WINDOWS _4LN0Q4N5G1361989793=      L  [  p  }                                                           WINDOWS _4LN0WYOSE1361792111ͨ      ܨ       
                                                           WINDOWS _4LN0WYOSF1361792111]      l  {                                                               WINDOWS _4LN0WYOSG1361792111             -                                                           WINDOWS _4LN0WYOSH1361792111}                                                                       WINDOWS _4LN0WYOSI1361792111
        +  @  M                                                           WINDOWS _4LN0WYOSJ1361792111          Ы  ݫ                                                           WINDOWS _4LN0WYOSK1361792111-      <  K  a  n                                                           WINDOWS _4LN0WYOSL1361792111      ά  ݬ                                                                WINDOWS _4LN0WYOSM1361792111Q      `  o                                                               WINDOWS _4LN0WYOSN1361792111            $                                                           WINDOWS _4LN0WYOSO1361792111u                                                                       WINDOWS _4LN0WYOSP1361792111        %  ;  H                                                           WINDOWS _4LN0WYOSQ1361792111          ͯ  گ                                                           WINDOWS _4LN0X41Z41361792111+      8  E  V  c                                                           WINDOWS _4X30WPW0U1253079548ذ        $  1                                                           WINDOWS _4LN0Q4N5G1361807523      ̱  ٱ                                                           WINDOWS _4LN0Q4N5H1361807523ϳ      ܳ                                                             WINDOWS _4LN0VNNQY1361807523          
                                                         WINDOWS _4LN0Q4N5G1361807523        
    (                                                       WINDOWS _4LN0Q4N5I1361807523          ,  9      ú  #                                               WINDOWS _4LN0Q4N5J1361807523        ,  =  J      Լ  4                                               WINDOWS _4LN0Q4N5K1361807523#      0  =  N  [        E                                               WINDOWS _4LN0Q4N5L13618075234      A  N  ^  k        S                                               WINDOWS _5UZ0Q6LEE1361807523B      O  \  l  y        a                                               WINDOWS _5UZ0Q6LEF1361807523P      ]  j  z          o                                               WINDOWS _5UZ0Q6LEG1361807523^      k  x            }                                               WINDOWS _5UZ0Q6LEH1361807523l      y            +                                                 WINDOWS _5UZ0Q6LEI1361807523z                  9                                                 WINDOWS _5UZ0Q6LEJ1361807523                  G                                                 WINDOWS _5UZ0Q6LEK1361807523                  V                                                 WINDOWS _5UZ0Q6LEL1361807523                  d                                                 WINDOWS _5UZ0Q6LEM1361807523                  t                                                 WINDOWS _4LN0Q4N5P1361804515                    W                                               WINDOWS _4LN0Q4N5G1361804515            (                                                           WINDOWS _5UZ0VZ7EU1361804515                                                                       WINDOWS _5UZ0VZ7EV1361804515\      i  v                                                               WINDOWS _5UZ0VZ7EW1361804515          &  :                                                           WINDOWS _4LN0Q4N5G1216314219                                                                       WINDOWS _5UZ0YDDLT1361805382`      m  z                                                               WINDOWS _5V20LBPQJ1361989793      $  3  G  T                                                           WINDOWS _5V20LBPQK1361989793                                                                       WINDOWS _5V20LM1SW13619897931      @  O  d  q                                                           WINDOWS _5V20LM1SX1361989793                                                                       WINDOWS _5UZ0TAJXJ1361989793Q      b  s                                                               WINDOWS _5UZ0TAJXK1361804515            $                                                           WINDOWS _5UZ0TAJXL1361804515                                                                       COMMENT RESERVED                                a                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     0Height = 617
Width = 891
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Strukturausgleich aus der berleitung in den TVD (ohne Gewhr)"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Unload
strukturgeladen = 0
myclose("#89")
myget(13, fileneu,"wnw")
ENDPROC
PROCEDURE Init
mystruktur = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
&&retval = LockWindowUpdate(0&)
startflag = True
strukturgeladen = 10
TVFarbe(1+0,1+ 1) = hex2rgb("&H80FF80")
myopen(eigdat + "\Tarife\Strukturausgleich" , 89 ,"struk")

With mystruktur
	&&.Visible = False
	&&retval = LockWindowUpdate(Struktur.hwnd)

	.Top = myform1.Top
	.Left = myform1.Left
	&&.Width = form1.Width
	&&.Height = form1.Height
ENDWITH

mystruktur.autocenter = .t.

With mystruktur.Combo1
	For i = 0 To satzanzahl - 1
		.AddItem(Alltrim(zt0(1+i)))
	NEXT
	
	If satzanzahl < 2
		.ListIndex = 0
	Else
		.ListIndex = fileneualt - 1
	Endif
Endwith


&&strukturdatenholen
&&listestarten
&&strukturberechnen
&&retval = LockWindowUpdate(0&)
&&startflag = False
myStruktur.Visible = True

mystruktur.combo1.listindex = zi(1+0) + 1
DO struktur_Combo1_Click

&&retval = LockWindowUpdate(Form3.hWnd)
fensteroffen = 3
Msg = "AUSSERTARIFLICH:" + Chr(13) + "Auch in der durch Aufstieg erreichten Verg.Gr. steht der Strukturausgleich zu, wenn die Stufe zutrifft."
mystruktur.Hinweis.Caption = Msg
startflag = False


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     5                                 %   %        0   S            U  7 
 T    C #89  C
   wnw  U  STRUKTURGELADEN MYCLOSE MYGET FILENEU
 T    %   
1  T    
 T  
 T 
, TVFarbe(1+0,1+ 1) = hex2rgb("&H80FF80")
5 C  \Tarife\StrukturausgleichY struk 
     T    T	  	   T  
 a    u   (
 4 CCC     %
 
W T   q T     T     T    C   
 T  T  AUSSERTARIFLICH:C
 g Auch in der durch Aufstieg erreichten Verg.Gr. steht der Strukturausgleich zu, wenn die Stufe zutrifft. T     
 T   %     T C    T 
 T  
     T       T        
  !  T 
 a U" 
 MYSTRUKTUR THISFORM TOP	 STARTFLAG TRUE STRUKTURGELADEN MYOPEN EIGDAT MYFORM1 LEFT
 AUTOCENTER COMBO1 I
 SATZANZAHL ADDITEM ZT0	 LISTINDEX
 FILENEUALT VISIBLE ZI STRUKTUR_COMBO1_CLICK FENSTEROFFEN MSG HINWEIS CAPTION FALSE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE  C     U  THISFORM SIZER	 FRMRESIZE Unload,      Init      Resize    1  q2  AA   Q C  A   !A A q  1   A    2 1                       O         j   @     .   ]  w  H    )                           shape      shape      ssframe9      FORM1      XTop = 170
Left = 585
Height = 448
Width = 298
SpecialEffect = 0
Name = "ssframe9"
      label      label      hhergruppierung      FORM1      WordWrap = .T.
Caption = "Bei einer Hher- gruppie- rung wird  der Unter- schieds- betrag angerechnet."
Height = 123
Left = 783
Top = 492
Width = 73
Name = "hhergruppierung"
      label      label      zahlungsende      FORM1     -WordWrap = .T.
Caption = "Wenn der Wegfall des Strukturausgleichs nicht mit einem Stufenaufstieg zusammenfllt, wird er bis zum nchsten Stufenaufstirg weitergezahlt, nicht jedoch beim Aufstieg in die Endstufe."
Height = 84
Left = 618
Top = 520
Visible = .F.
Width = 232
Name = "zahlungsende"
      shape      shape      Shape2      FORM1      TTop = 170
Left = 6
Height = 448
Width = 579
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      STop = 27
Left = 6
Height = 129
Width = 879
SpecialEffect = 0
Name = "Shape1"
      combobox      combobox      Combo1      FORM1      >Height = 22
Left = 6
Top = 3
Width = 259
Name = "Combo1"
      4PROCEDURE Click
DO struktur_Combo1_Click
ENDPROC
                                      H   %   Q       f      `             U  
     U  STRUKTUR_COMBO1_CLICK Click,     1 q 1                       )       )                            
commandbutton      
commandbutton      tvvka      FORM1      STop = 3
Left = 268
Height = 22
Width = 101
Caption = "Liste"
Name = "tvvka"
     PROCEDURE Click
do Case &&dienstind
	Case dienstind = 4
	     inet = "157" 
	     mylink = 665  &&Msg = "Strukturausgleich-Bund/Liste"
	Case dienstind = 5
	     inet = "154"
	     mylink = 666  &&Msg = "TVue-Laender-1700"
	Case dienstind = 6
	     inet = "141"
	     mylink = 667  &&Msg = "Liste-VKA"
	Case dienstind = 7
	     inet = "141"
	     mylink = 668  &&Msg = "Liste-Kr"
	Case dienstind = 8
	     inet = "141"
	     mylink = 669  &&Msg = "Index"
Endcase
DO insinternet
ENDPROC
                                   +J   %   \           k            U  
 H
     <  T  157 T    k  T  154 T      T  141 T      T  141 T      T  141 T     U 	 DIENSTIND INET MYLINK INSINTERNET Click,     1       A q 1                             )                           
commandbutton      
commandbutton      
sscommand1      FORM1      bTop = 3
Left = 371
Height = 22
Width = 101
Caption = "Hinweise zu  12"
Name = "sscommand1"
      8PROCEDURE Click
DO struktur_ssCommand1_Click
ENDPROC
                                      +   %   U       j      d             U  
     U  STRUKTUR_SSCOMMAND1_CLICK Click,     1 q 1                       -       )                            
commandbutton      
commandbutton      hilfe      FORM1      RTop = 3
Left = 474
Height = 22
Width = 101
Caption = "Hilfe"
Name = "hilfe"
      3PROCEDURE Click
DO struktur_hilfe_click
ENDPROC
                                         %   P       e      _             U  
     U  STRUKTUR_HILFE_CLICK Click,     1 q 1                       (       )                            
commandbutton      
commandbutton      drucken      FORM1      VTop = 3
Left = 577
Height = 22
Width = 101
Caption = "Drucken"
Name = "drucken"
      mPROCEDURE Click
thisform.alwaysontop = .f.
DO Struktur_Drucken_Click
thisform.alwaysontop = .t.
ENDPROC
                                         %                             U  &  T   -   T   a U  THISFORM ALWAYSONTOP STRUKTUR_DRUCKEN_CLICK Click,     1  q  1                       b       )                            
commandbutton      
commandbutton      	speichern      FORM1      ZTop = 3
Left = 680
Height = 22
Width = 101
Caption = "Speichern"
Name = "speichern"
      7PROCEDURE Click
DO struktur_Speichern_Click
ENDPROC
                                      j8   %   T       i      c             U  
     U  STRUKTUR_SPEICHERN_CLICK Click,     1 q 1                       ,       )                            
commandbutton      
commandbutton      	schlieen      FORM1      ZTop = 3
Left = 783
Height = 22
Width = 101
Caption = "Schlieen"
Name = "schlieen"
      9PROCEDURE Click
DO struktur_Schlieen_Click

ENDPROC
                                      j8   %   T       i      c             U  
     U  STRUKTUR_SCHLIEEN_CLICK Click,     1 q 2                       .       )                            label      label      Label2      FORM1      Caption = "Bitte gehen Sie der Reihe nach vor (von 1 bis 7)"
Height = 17
Left = 534
Top = 43
Width = 264
Name = "Label2"
      label      label      Label3      FORM1      Caption = "Bei Feldern mit roter berschrift fehlt die Auswahl."
Height = 16
Left = 534
Top = 60
Width = 278
Name = "Label3"
      optiongroup      optiongroup      egruppe      FORM1     	2ButtonCount = 17
Value = 1
Height = 23
Left = 12
Top = 131
Width = 858
Name = "egruppe"
Option1.Caption = "2"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 802
Option1.Top = 3
Option1.Width = 15
Option1.Name = "egruppe1"
Option2.Caption = "2"
Option2.Height = 17
Option2.Left = 754
Option2.Top = 3
Option2.Width = 15
Option2.Name = "egruppe2"
Option3.Caption = "3"
Option3.Height = 17
Option3.Left = 705
Option3.Top = 3
Option3.Width = 15
Option3.Name = "egruppe3"
Option4.Caption = "4"
Option4.Height = 17
Option4.Left = 657
Option4.Top = 3
Option4.Width = 15
Option4.Name = "egruppe4"
Option5.Caption = "5"
Option5.Height = 17
Option5.Left = 609
Option5.Top = 3
Option5.Width = 15
Option5.Name = "egruppe5"
Option6.Caption = "6"
Option6.Height = 17
Option6.Left = 561
Option6.Top = 3
Option6.Width = 15
Option6.Name = "egruppe6"
Option7.Caption = "7"
Option7.Height = 17
Option7.Left = 512
Option7.Top = 3
Option7.Width = 15
Option7.Name = "egruppe7"
Option8.Caption = "8"
Option8.Height = 17
Option8.Left = 463
Option8.Top = 3
Option8.Width = 15
Option8.Name = "egruppe8"
Option9.Caption = "9"
Option9.Height = 17
Option9.Left = 415
Option9.Top = 3
Option9.Width = 15
Option9.Name = "egruppe9"
Option10.Caption = "10"
Option10.Height = 17
Option10.Left = 366
Option10.Top = 3
Option10.Width = 15
Option10.Name = "egruppe10"
Option11.Caption = "11"
Option11.Height = 17
Option11.Left = 318
Option11.Top = 3
Option11.Width = 15
Option11.Name = "egruppe11"
Option12.Caption = "12"
Option12.Height = 17
Option12.Left = 270
Option12.Top = 3
Option12.Width = 15
Option12.Name = "egruppe12"
Option13.Caption = "13"
Option13.Height = 17
Option13.Left = 222
Option13.Top = 3
Option13.Width = 15
Option13.Name = "egruppe13"
Option14.Caption = "13"
Option14.Height = 17
Option14.Left = 174
Option14.Top = 3
Option14.Width = 15
Option14.Name = "egruppe0"
Option15.Caption = "14"
Option15.Height = 17
Option15.Left = 126
Option15.Top = 3
Option15.Width = 15
Option15.Name = "egruppe14"
Option16.Caption = "15"
Option16.Height = 17
Option16.Left = 78
Option16.Top = 3
Option16.Width = 15
Option16.Name = "egruppe15"
Option17.Caption = "15"
Option17.Height = 17
Option17.Left = 30
Option17.Top = 3
Option17.Width = 15
Option17.Name = "egruppe16"
     PROCEDURE Click
startflag = True
ENDPROC
PROCEDURE egruppe1.Click
DO Struktur_Egruppe_Click WITH 1, this.value
ENDPROC
PROCEDURE egruppe2.Click
DO Struktur_Egruppe_Click WITH 2, this.value
ENDPROC
PROCEDURE egruppe3.Click
DO Struktur_Egruppe_Click WITH 3, this.value
ENDPROC
PROCEDURE egruppe4.Click
DO Struktur_Egruppe_Click WITH 4, this.value
ENDPROC
PROCEDURE egruppe5.Click
DO Struktur_Egruppe_Click WITH 5, this.value
ENDPROC
PROCEDURE egruppe6.Click
DO Struktur_Egruppe_Click WITH 6, this.value
ENDPROC
PROCEDURE egruppe7.Click
DO Struktur_Egruppe_Click WITH 7, this.value
ENDPROC
PROCEDURE egruppe8.Click
DO Struktur_Egruppe_Click WITH 8, this.value
ENDPROC
PROCEDURE egruppe9.Click
DO Struktur_Egruppe_Click WITH 9, this.value
ENDPROC
PROCEDURE egruppe10.Click
DO Struktur_Egruppe_Click WITH 10, this.value
ENDPROC
PROCEDURE egruppe11.Click
DO Struktur_Egruppe_Click WITH 11, this.value
ENDPROC
PROCEDURE egruppe12.Click
DO Struktur_Egruppe_Click WITH 12, this.value
ENDPROC
PROCEDURE egruppe13.Click
DO Struktur_Egruppe_Click WITH 13, this.value
ENDPROC
PROCEDURE egruppe0.Click
DO Struktur_Egruppe_Click WITH 0, this.value
ENDPROC
PROCEDURE egruppe14.Click
DO Struktur_Egruppe_Click WITH 14, this.value
ENDPROC
PROCEDURE egruppe15.Click
DO Struktur_Egruppe_Click WITH 15, this.value
ENDPROC
PROCEDURE egruppe16.Click
DO Struktur_Egruppe_Click WITH 16, this.value
ENDPROC
                                   ]   %           %   ?            U   
 T    U 	 STARTFLAG TRUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE    	   U  STRUKTUR_EGRUPPE_CLICK THIS VALUE    
   U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE    
   U  STRUKTUR_EGRUPPE_CLICK THIS VALUE        U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE       U  STRUKTUR_EGRUPPE_CLICK THIS VALUE Click,      egruppe1.ClickQ      egruppe2.Click      egruppe3.Click      egruppe4.Click     egruppe5.ClickQ     egruppe6.Click     egruppe7.Click     egruppe8.Click     egruppe9.ClickQ     egruppe10.Click     egruppe11.Click     egruppe12.Click     egruppe13.ClickQ     egruppe0.Click     egruppe14.Click     egruppe15.Click     egruppe16.ClickQ    1  2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A1                       !         F   r                          
   	   9  e  
             
             ,  X        }                       M        s    "          %        F  (      k    +          .   !     =  1   #   c    4    )                           label      label      ssframe2      FORM1      FontBold = .T.
FontSize = 12
Caption = "2. In welche Entgeltgruppe ist der Beschftigte bergeleitet wworden?"
Height = 20
Left = 20
Top = 81
Width = 544
ForeColor = 255,0,0
Name = "ssframe2"
      optiongroup      optiongroup      gebiet      FORM1     ButtonCount = 2
Value = 1
Height = 90
Left = 15
Top = 205
Width = 133
Name = "gebiet"
Option1.Caption = "West                        "
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 13
Option1.Width = 121
Option1.BackColor = 255,255,255
Option1.Name = "gebiet0"
Option2.Caption = "Ost                           "
Option2.Height = 17
Option2.Left = 5
Option2.Top = 32
Option2.Width = 121
Option2.BackColor = 255,255,255
Option2.Name = "gebiet1"
      PROCEDURE gebiet0.Click
DO Struktur_Gebiet_click WITH 0
ENDPROC
PROCEDURE gebiet1.Click
DO Struktur_Gebiet_click WITH 1
ENDPROC
     ,                              S   %                             U   
     U  STRUKTUR_GEBIET_CLICK 
    U  STRUKTUR_GEBIET_CLICK
 gebiet0.Click,     
 gebiet1.ClickW     1  2  1                       8         \   {       )                           label      label      ssframe6      FORM1      FontBold = .T.
FontSize = 12
Caption = "3. Tarifgebiet"
Height = 20
Left = 20
Top = 195
Width = 104
ForeColor = 255,0,0
Name = "ssframe6"
      label      label      ssframe1      FORM1      FontBold = .T.
FontSize = 18
Caption = "Status am berleitungszeitpunkt"
Height = 30
Left = 18
Top = 156
Width = 386
ForeColor = 128,128,128
Name = "ssframe1"
      optiongroup      optiongroup      zuschlag      FORM1     ButtonCount = 2
Value = 1
Height = 137
Left = 15
Top = 308
Width = 133
Name = "zuschlag"
Option1.Caption = "Stufe 1                     "
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 75
Option1.Width = 121
Option1.BackColor = 255,255,255
Option1.Name = "zuschlag1"
Option2.Caption = "Stufe 2                     "
Option2.Height = 17
Option2.Left = 5
Option2.Top = 94
Option2.Width = 121
Option2.BackColor = 255,255,255
Option2.Name = "zuschlag2"
      PROCEDURE zuschlag1.Click
DO Struktur_zuschlag_click with 1
ENDPROC
PROCEDURE zuschlag2.Click
DO Struktur_zuschlag_click with 2
ENDPROC
     4                              #   %                             U   
    U  STRUKTUR_ZUSCHLAG_CLICK 
    U  STRUKTUR_ZUSCHLAG_CLICK zuschlag1.Click,      zuschlag2.ClickY     1  2  1                       <         b          )                           label      label      ssframe4      FORM1      FontBold = .T.
FontSize = 12
Caption = "4. Ortszuschlag"
Height = 20
Left = 20
Top = 298
Width = 122
ForeColor = 255,0,0
Name = "ssframe4"
      label      label      Label10      FORM1      aCaption = "nach den tatsch-"
Height = 16
Left = 21
Top = 319
Width = 120
Name = "Label10"
      label      label      Label11      FORM1      dCaption = "lichen Verhltnissen"
Height = 16
Left = 21
Top = 334
Width = 120
Name = "Label11"
      label      label      Label12      FORM1      cCaption = "bei In-Kraft-Treten"
Height = 16
Left = 21
Top = 349
Width = 120
Name = "Label12"
      label      label      Label13      FORM1      WCaption = "des TV"
Height = 16
Left = 21
Top = 364
Width = 120
Name = "Label13"
      checkbox      checkbox      
halbierung      FORM1      Top = 421
Left = 21
Height = 19
Width = 125
Alignment = 0
Caption = "Eheg. im ff. Dienst"
BackColor = 255,255,255
Name = "halbierung"
      8PROCEDURE Click
DO struktur_halbierung_click
ENDPROC
                                      +   %   U       j      d             U  
     U  STRUKTUR_HALBIERUNG_CLICK Click,     1 q 1                       -       )                            label      label      Label14      FORM1      dCaption = "Nur wei hinterlegte"
Height = 16
Left = 21
Top = 444
Width = 120
Name = "Label14"
      label      label      Label15      FORM1      dCaption = "Optionsfelder fhren"
Height = 16
Left = 21
Top = 458
Width = 120
Name = "Label15"
      label      label      Label16      FORM1      eCaption = "zu einem Strukturaus-"
Height = 16
Left = 21
Top = 471
Width = 120
Name = "Label16"
      label      label      Label17      FORM1      fCaption = "gleich. Aber nicht fr"
Height = 16
Left = 21
Top = 486
Width = 120
Name = "Label17"
      label      label      Label18      FORM1      dCaption = "jede Kombination der"
Height = 16
Left = 21
Top = 501
Width = 120
Name = "Label18"
      label      label      Label19      FORM1      aCaption = "wei hinterlegten"
Height = 16
Left = 21
Top = 516
Width = 120
Name = "Label19"
      label      label      Label20      FORM1      eCaption = "Optionsfelder ist ein"
Height = 16
Left = 21
Top = 530
Width = 120
Name = "Label20"
      label      label      Label21      FORM1      aCaption = "Strukturausgleich"
Height = 16
Left = 21
Top = 544
Width = 120
Name = "Label21"
      label      label      Label22      FORM1      [Caption = "festgelegt."
Height = 16
Left = 21
Top = 557
Width = 120
Name = "Label22"
      optiongroup      optiongroup      vgruppe      FORM1     RButtonCount = 20
Value = 1
Height = 398
Left = 153
Top = 202
Width = 139
Name = "vgruppe"
Option1.Caption = "Option1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 13
Option1.Width = 127
Option1.Name = "vgruppe0"
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 32
Option2.Width = 127
Option2.Name = "vgruppe1"
Option3.Caption = "Option3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 51
Option3.Width = 127
Option3.Name = "vgruppe2"
Option4.Caption = "Option4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 70
Option4.Width = 127
Option4.Name = "vgruppe3"
Option5.Caption = "Option5"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 89
Option5.Width = 127
Option5.Name = "vgruppe4"
Option6.Caption = "Option6"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 108
Option6.Width = 127
Option6.Name = "vgruppe5"
Option7.Caption = "Option7"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 127
Option7.Width = 127
Option7.Name = "vgruppe6"
Option8.Caption = "Option8"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 146
Option8.Width = 127
Option8.Name = "vgruppe7"
Option9.Caption = "Option9"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 165
Option9.Width = 127
Option9.Name = "vgruppe8"
Option10.Caption = "Option10"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 184
Option10.Width = 127
Option10.Name = "vgruppe9"
Option11.Caption = "Option11"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 203
Option11.Width = 127
Option11.Name = "vgruppe10"
Option12.Caption = "Option12"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 222
Option12.Width = 127
Option12.Name = "vgruppe11"
Option13.Caption = "Option13"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 241
Option13.Width = 127
Option13.Name = "vgruppe12"
Option14.Caption = "Option14"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 260
Option14.Width = 127
Option14.Name = "vgruppe13"
Option15.Caption = "Option15"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 279
Option15.Width = 127
Option15.Name = "vgruppe14"
Option16.Caption = "Option16"
Option16.Height = 17
Option16.Left = 5
Option16.Top = 298
Option16.Width = 127
Option16.Name = "vgruppe15"
Option17.Caption = "Option17"
Option17.Height = 17
Option17.Left = 5
Option17.Top = 317
Option17.Width = 127
Option17.Name = "vgruppe16"
Option18.Caption = "Option18"
Option18.Height = 17
Option18.Left = 5
Option18.Top = 336
Option18.Width = 127
Option18.Name = "vgruppe17"
Option19.Caption = "Option19"
Option19.Height = 17
Option19.Left = 5
Option19.Top = 355
Option19.Width = 127
Option19.Name = "vgruppe18"
Option20.Caption = "Option20"
Option20.Height = 17
Option20.Left = 5
Option20.Top = 374
Option20.Width = 127
Option20.Name = "vgruppe19"
     xPROCEDURE vgruppe0.Click
DO Struktur_Vgruppe_click with 0
ENDPROC
PROCEDURE vgruppe1.Click
DO Struktur_Vgruppe_click with 1
ENDPROC
PROCEDURE vgruppe2.Click
DO Struktur_Vgruppe_click with 2
ENDPROC
PROCEDURE vgruppe3.Click
DO Struktur_Vgruppe_click with 3
ENDPROC
PROCEDURE vgruppe4.Click
DO Struktur_Vgruppe_click with 4
ENDPROC
PROCEDURE vgruppe5.Click
DO Struktur_Vgruppe_click with 5
ENDPROC
PROCEDURE vgruppe6.Click
DO Struktur_Vgruppe_click with 6
ENDPROC
PROCEDURE vgruppe7.Click
DO Struktur_Vgruppe_click with 7
ENDPROC
PROCEDURE vgruppe8.Click
DO Struktur_Vgruppe_click with 8
ENDPROC
PROCEDURE vgruppe9.Click
DO Struktur_Vgruppe_click with 9
ENDPROC
PROCEDURE vgruppe10.Click
DO Struktur_Vgruppe_click with 10
ENDPROC
PROCEDURE vgruppe11.Click
DO Struktur_Vgruppe_click with 11
ENDPROC
PROCEDURE vgruppe12.Click
DO Struktur_Vgruppe_click with 12
ENDPROC
PROCEDURE vgruppe13.Click
DO Struktur_Vgruppe_click with 13
ENDPROC
PROCEDURE vgruppe14.Click
DO Struktur_Vgruppe_click with 14
ENDPROC
PROCEDURE vgruppe15.Click
DO Struktur_Vgruppe_click with 15
ENDPROC
PROCEDURE vgruppe16.Click
DO Struktur_Vgruppe_click with 16
ENDPROC
PROCEDURE vgruppe17.Click
DO Struktur_Vgruppe_click with 17
ENDPROC
PROCEDURE vgruppe18.Click
DO Struktur_Vgruppe_click with 18
ENDPROC
PROCEDURE vgruppe19.Click
DO Struktur_Vgruppe_click with 19
ENDPROC
     j    Q  Q                           %           )               U   
     U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
   	 U  STRUKTUR_VGRUPPE_CLICK 
   
 U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
   
 U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK 
    U  STRUKTUR_VGRUPPE_CLICK vgruppe0.Click,      vgruppe1.ClickX      vgruppe2.Click      vgruppe3.Click      vgruppe4.Click      vgruppe5.Click     vgruppe6.Click4     vgruppe7.Click`     vgruppe8.Click     vgruppe9.Click     vgruppe10.Click     vgruppe11.Click     vgruppe12.Click<     vgruppe13.Clickh     vgruppe14.Click     vgruppe15.Click     vgruppe16.Click     vgruppe17.Click     vgruppe18.ClickD     vgruppe19.Clickp    1  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  1                       :         _                           	  
   	   .  N  
      s       
                       B  b                              5  "      [  |  %          (        
  +      0  Q  .   !   w    1   #       4   %     &  7   '   L  m  :    )   Q                        label      label      ssframe5      FORM1      FontBold = .T.
FontSize = 12
Caption = "5. Verg. Gr."
Height = 20
Left = 175
Top = 194
Width = 104
ForeColor = 255,0,0
Name = "ssframe5"
      optiongroup      optiongroup      aufstieg      FORM1     wButtonCount = 13
Value = 1
Height = 398
Left = 297
Top = 202
Width = 139
Name = "aufstieg"
Option1.Caption = "Option1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 13
Option1.Width = 127
Option1.Name = "aufstieg0"
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 32
Option2.Width = 127
Option2.Name = "aufstieg1"
Option3.Caption = "Option3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 51
Option3.Width = 127
Option3.Name = "aufstieg2"
Option4.Caption = "Option4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 70
Option4.Width = 127
Option4.Name = "aufstieg3"
Option5.Caption = "Option5"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 89
Option5.Width = 127
Option5.Name = "aufstieg4"
Option6.Caption = "Option6"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 108
Option6.Width = 127
Option6.Name = "aufstieg5"
Option7.Caption = "Option7"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 127
Option7.Width = 127
Option7.Name = "aufstieg6"
Option8.Caption = "Option8"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 146
Option8.Width = 127
Option8.Name = "aufstieg7"
Option9.Caption = "Option9"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 165
Option9.Width = 127
Option9.Name = "aufstieg8"
Option10.Caption = "Option10"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 184
Option10.Width = 127
Option10.Name = "aufstieg9"
Option11.Caption = "Option11"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 203
Option11.Width = 127
Option11.Name = "aufstieg10"
Option12.Caption = "Option12"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 222
Option12.Width = 127
Option12.Name = "aufstieg11"
Option13.Caption = "Option13"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 241
Option13.Width = 127
Option13.Name = "aufstieg12"
     PROCEDURE aufstieg0.Click
DO struktur_Aufstieg_click WITH 0
ENDPROC
PROCEDURE aufstieg1.Click
DO struktur_Aufstieg_click WITH 1
ENDPROC
PROCEDURE aufstieg2.Click
DO struktur_Aufstieg_click WITH 2
ENDPROC
PROCEDURE aufstieg3.Click
DO struktur_Aufstieg_click WITH 3
ENDPROC
PROCEDURE aufstieg4.Click
DO struktur_Aufstieg_click WITH 4
ENDPROC
PROCEDURE aufstieg5.Click
DO struktur_Aufstieg_click WITH 5
ENDPROC
PROCEDURE aufstieg6.Click
DO struktur_Aufstieg_click WITH 6
ENDPROC
PROCEDURE aufstieg7.Click
DO struktur_Aufstieg_click WITH 7
ENDPROC
PROCEDURE aufstieg8.Click
DO struktur_Aufstieg_click WITH 8
ENDPROC
PROCEDURE aufstieg9.Click
DO struktur_Aufstieg_click WITH 9
ENDPROC
PROCEDURE aufstieg10.Click
DO struktur_Aufstieg_click WITH 10
ENDPROC
PROCEDURE aufstieg11.Click
DO struktur_Aufstieg_click WITH 11
ENDPROC
PROCEDURE aufstieg12.Click
DO struktur_Aufstieg_click WITH 12
ENDPROC
                                   q
   %   u                       U   
     U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
   	 U  STRUKTUR_AUFSTIEG_CLICK 
   
 U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK 
    U  STRUKTUR_AUFSTIEG_CLICK aufstieg0.Click,      aufstieg1.ClickY      aufstieg2.Click      aufstieg3.Click      aufstieg4.Click      aufstieg5.Click
     aufstieg6.Click:     aufstieg7.Clickg     aufstieg8.Click     aufstieg9.Click     aufstieg10.Click     aufstieg11.Click     aufstieg12.ClickH    1  2  2  2  2  2  2  2  2  2  2  2  2  1                       <         b                             
   	   7  X  
      ~       
               -        S  t                            +  M  "      t    %    )                           label      label      ssframe8      FORM1      FontBold = .T.
FontSize = 12
Caption = "6.mit Aufstieg"
Height = 20
Left = 319
Top = 194
Width = 104
ForeColor = 255,0,0
Name = "ssframe8"
      optiongroup      optiongroup      sstufe      FORM1     wButtonCount = 15
Value = 1
Height = 398
Left = 441
Top = 202
Width = 139
Name = "sstufe"
Option1.Caption = "Option1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 13
Option1.Width = 127
Option1.Name = "sstufe0"
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 32
Option2.Width = 127
Option2.Name = "sstufe1"
Option3.Caption = "Option3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 51
Option3.Width = 127
Option3.Name = "sstufe2"
Option4.Caption = "Option4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 70
Option4.Width = 127
Option4.Name = "sstufe3"
Option5.Caption = "Option5"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 89
Option5.Width = 127
Option5.Name = "sstufe4"
Option6.Caption = "Option6"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 108
Option6.Width = 127
Option6.Name = "sstufe5"
Option7.Caption = "Option7"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 127
Option7.Width = 127
Option7.Name = "sstufe6"
Option8.Caption = "Option8"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 146
Option8.Width = 127
Option8.Name = "sstufe7"
Option9.Caption = "Option9"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 165
Option9.Width = 127
Option9.Name = "sstufe8"
Option10.Caption = "Option10"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 184
Option10.Width = 127
Option10.Name = "sstufe9"
Option11.Caption = "Option11"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 203
Option11.Width = 127
Option11.Name = "sstufe10"
Option12.Caption = "Option12"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 222
Option12.Width = 127
Option12.Name = "sstufe11"
Option13.Caption = "Option13"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 241
Option13.Width = 127
Option13.Name = "sstufe12"
Option14.Caption = "Option14"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 260
Option14.Width = 127
Option14.Name = "sstufe13"
Option15.Caption = "Option15"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 279
Option15.Width = 127
Option15.Name = "sstufe14"
     PROCEDURE sstufe0.Click
DO Struktur_SStufe_click WITH 0
ENDPROC
PROCEDURE sstufe1.Click
DO Struktur_SStufe_click WITH 1
ENDPROC
PROCEDURE sstufe2.Click
DO Struktur_SStufe_click WITH 2
ENDPROC
PROCEDURE sstufe3.Click
DO Struktur_SStufe_click WITH 3
ENDPROC
PROCEDURE sstufe4.Click
DO Struktur_SStufe_click WITH 4
ENDPROC
PROCEDURE sstufe5.Click
DO Struktur_SStufe_click WITH 5
ENDPROC
PROCEDURE sstufe6.Click
DO Struktur_SStufe_click WITH 6
ENDPROC
PROCEDURE sstufe7.Click
DO Struktur_SStufe_click WITH 7
ENDPROC
PROCEDURE sstufe8.Click
DO Struktur_SStufe_click WITH 8
ENDPROC
PROCEDURE sstufe9.Click
DO Struktur_SStufe_click WITH 9
ENDPROC
PROCEDURE sstufe10.Click
DO Struktur_SStufe_click WITH 10
ENDPROC
PROCEDURE sstufe11.Click
DO Struktur_SStufe_click WITH 11
ENDPROC
PROCEDURE sstufe12.Click
DO Struktur_SStufe_click WITH 12
ENDPROC
PROCEDURE sstufe13.Click
DO Struktur_SStufe_click WITH 13
ENDPROC
PROCEDURE sstufe14.Click
DO Struktur_SStufe_click WITH 14
ENDPROC
         v  v                        #(   %         M                 U   
     U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
   	 U  STRUKTUR_SSTUFE_CLICK 
   
 U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK 
   
 U  STRUKTUR_SSTUFE_CLICK 
    U  STRUKTUR_SSTUFE_CLICK
 sstufe0.Click,     
 sstufe1.ClickW     
 sstufe2.Click     
 sstufe3.Click     
 sstufe4.Click     
 sstufe5.Click    
 sstufe6.Click.    
 sstufe7.ClickY    
 sstufe8.Click    
 sstufe9.Click     sstufe10.Click     sstufe11.Click     sstufe12.Click0     sstufe13.Click[     sstufe14.Click    1  2  2  2  2  2  2  2  2  2  2  2  2  2  2  1                       8         \   {                          
   	   %  D  
      h       
               
        1  P        t                        "      B  b  %          (          +    )   v                        label      label      ssframe7      FORM1      FontBold = .T.
FontSize = 12
Caption = "7.aus Stufe"
Height = 20
Left = 463
Top = 194
Width = 104
ForeColor = 255,0,0
Name = "ssframe7"
      label      label      ssframe9cap      FORM1      FontBold = .T.
FontSize = 18
Caption = "Strukturausgleich"
Height = 30
Left = 619
Top = 156
Width = 213
ForeColor = 128,128,128
Name = "ssframe9cap"
      label      label      Label27      FORM1      FontBold = .T.
FontSize = 18
Caption = '"="'
Height = 30
Left = 585
Top = 156
Width = 30
ForeColor = 128,128,128
Name = "Label27"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            label      label      ergebnis      FORM1      lCaption = "nach x Jahren fr y Jahre."
Height = 16
Left = 618
Top = 185
Width = 159
Name = "ergebnis"
      
commandbutton      
commandbutton      jahrspalte0      FORM1      XTop = 217
Left = 618
Height = 22
Width = 73
Caption = "Jahr"
Name = "jahrspalte0"
      
commandbutton      
commandbutton      jahrspalte1      FORM1      XTop = 240
Left = 618
Height = 22
Width = 73
Caption = "2005"
Name = "jahrspalte1"
      
commandbutton      
commandbutton      jahrspalte2      FORM1      XTop = 263
Left = 618
Height = 22
Width = 73
Caption = "2006"
Name = "jahrspalte2"
      
commandbutton      
commandbutton      jahrspalte3      FORM1      XTop = 286
Left = 618
Height = 22
Width = 73
Caption = "2007"
Name = "jahrspalte3"
      
commandbutton      
commandbutton      jahrspalte4      FORM1      XTop = 309
Left = 618
Height = 22
Width = 73
Caption = "2008"
Name = "jahrspalte4"
      
commandbutton      
commandbutton      jahrspalte5      FORM1      XTop = 332
Left = 618
Height = 22
Width = 73
Caption = "2009"
Name = "jahrspalte5"
      
commandbutton      
commandbutton      jahrspalte6      FORM1      XTop = 355
Left = 618
Height = 22
Width = 73
Caption = "2010"
Name = "jahrspalte6"
      
commandbutton      
commandbutton      jahrspalte7      FORM1      XTop = 378
Left = 618
Height = 22
Width = 73
Caption = "2011"
Name = "jahrspalte7"
      
commandbutton      
commandbutton      jahrspalte8      FORM1      XTop = 401
Left = 618
Height = 22
Width = 73
Caption = "2012"
Name = "jahrspalte8"
      
commandbutton      
commandbutton      jahrspalte9      FORM1      XTop = 424
Left = 618
Height = 22
Width = 73
Caption = "2013"
Name = "jahrspalte9"
      
commandbutton      
commandbutton      jahrspalte10      FORM1      YTop = 447
Left = 618
Height = 22
Width = 73
Caption = "2014"
Name = "jahrspalte10"
      
commandbutton      
commandbutton      jahrspalte11      FORM1      YTop = 470
Left = 618
Height = 22
Width = 73
Caption = "2015"
Name = "jahrspalte11"
      
commandbutton      
commandbutton      jahrspalte12      FORM1      YTop = 493
Left = 618
Height = 22
Width = 73
Caption = "2016"
Name = "jahrspalte12"
      
commandbutton      
commandbutton      jahrspalte13      FORM1      YTop = 516
Left = 618
Height = 22
Width = 73
Caption = "2017"
Name = "jahrspalte13"
      
commandbutton      
commandbutton      jahrspalte14      FORM1      YTop = 539
Left = 618
Height = 22
Width = 73
Caption = "2018"
Name = "jahrspalte14"
      
commandbutton      
commandbutton      jahrspalte15      FORM1      YTop = 562
Left = 618
Height = 22
Width = 73
Caption = "2019"
Name = "jahrspalte15"
      
commandbutton      
commandbutton      jahrspalte16      FORM1      YTop = 585
Left = 618
Height = 22
Width = 73
Caption = "2020"
Name = "jahrspalte16"
      
commandbutton      
commandbutton      	Command24      FORM1      YTop = 217
Left = 696
Height = 22
Width = 71
Caption = "monatl."
Name = "Command24"
      
commandbutton      
commandbutton      	Command25      FORM1      YTop = 217
Left = 773
Height = 22
Width = 82
Caption = "im Jahr"
Name = "Command25"
      textbox      textbox      monatspalte3      FORM1      GHeight = 22
Left = 696
Top = 286
Width = 71
Name = "monatspalte3"
      textbox      textbox      monatspalte4      FORM1      GHeight = 22
Left = 696
Top = 309
Width = 71
Name = "monatspalte4"
      textbox      textbox      monatspalte5      FORM1      GHeight = 22
Left = 696
Top = 332
Width = 71
Name = "monatspalte5"
      textbox      textbox      monatspalte6      FORM1      GHeight = 22
Left = 696
Top = 355
Width = 71
Name = "monatspalte6"
      textbox      textbox      monatspalte7      FORM1      GHeight = 22
Left = 696
Top = 378
Width = 71
Name = "monatspalte7"
      textbox      textbox      monatspalte8      FORM1      GHeight = 22
Left = 696
Top = 401
Width = 71
Name = "monatspalte8"
      textbox      textbox      monatspalte9      FORM1      GHeight = 22
Left = 696
Top = 424
Width = 71
Name = "monatspalte9"
      textbox      textbox      
monatspalte10      FORM1      HHeight = 22
Left = 696
Top = 447
Width = 71
Name = "monatspalte10"
      textbox      textbox      
monatspalte11      FORM1      HHeight = 22
Left = 696
Top = 470
Width = 71
Name = "monatspalte11"
      textbox      textbox      
monatspalte12      FORM1      HHeight = 22
Left = 696
Top = 493
Width = 71
Name = "monatspalte12"
      textbox      textbox      
monatspalte13      FORM1      HHeight = 22
Left = 696
Top = 516
Width = 71
Name = "monatspalte13"
      textbox      textbox      
monatspalte14      FORM1      HHeight = 22
Left = 696
Top = 539
Width = 71
Name = "monatspalte14"
      textbox      textbox      
monatspalte15      FORM1      HHeight = 22
Left = 696
Top = 562
Width = 71
Name = "monatspalte15"
      textbox      textbox      
monatspalte16      FORM1      HHeight = 22
Left = 696
Top = 585
Width = 71
Name = "monatspalte16"
      textbox      textbox      
gesamtspalte3      FORM1      HHeight = 22
Left = 779
Top = 286
Width = 71
Name = "gesamtspalte3"
      textbox      textbox      
gesamtspalte4      FORM1      HHeight = 22
Left = 779
Top = 309
Width = 71
Name = "gesamtspalte4"
      textbox      textbox      
gesamtspalte5      FORM1      HHeight = 22
Left = 779
Top = 332
Width = 71
Name = "gesamtspalte5"
      textbox      textbox      
gesamtspalte6      FORM1      HHeight = 22
Left = 779
Top = 355
Width = 71
Name = "gesamtspalte6"
      textbox      textbox      
gesamtspalte7      FORM1      HHeight = 22
Left = 779
Top = 378
Width = 71
Name = "gesamtspalte7"
      textbox      textbox      
gesamtspalte8      FORM1      HHeight = 22
Left = 779
Top = 401
Width = 71
Name = "gesamtspalte8"
      textbox      textbox      
gesamtspalte9      FORM1      HHeight = 22
Left = 779
Top = 424
Width = 71
Name = "gesamtspalte9"
      textbox      textbox      gesamtspalte10      FORM1      IHeight = 22
Left = 779
Top = 447
Width = 71
Name = "gesamtspalte10"
      textbox      textbox      gesamtspalte11      FORM1      IHeight = 22
Left = 779
Top = 470
Width = 71
Name = "gesamtspalte11"
      textbox      textbox      gesamtspalte12      FORM1      IHeight = 22
Left = 779
Top = 493
Width = 71
Name = "gesamtspalte12"
      textbox      textbox      gesamtspalte13      FORM1      IHeight = 22
Left = 779
Top = 516
Width = 71
Name = "gesamtspalte13"
      textbox      textbox      gesamtspalte14      FORM1      IHeight = 22
Left = 779
Top = 539
Width = 71
Name = "gesamtspalte14"
      textbox      textbox      gesamtspalte15      FORM1      IHeight = 22
Left = 779
Top = 562
Width = 71
Name = "gesamtspalte15"
      textbox      textbox      gesamtspalte16      FORM1      IHeight = 22
Left = 779
Top = 585
Width = 71
Name = "gesamtspalte16"
      label      label      	monatlich      FORM1      mCaption = "Jeweils von Okt. bis Sept."
Height = 16
Left = 618
Top = 200
Width = 153
Name = "monatlich"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 597
Left = 873
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      	enummer15      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "15"
Height = 16
Left = 74
Top = 111
Width = 44
Name = "enummer15"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer14      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "14"
Height = 16
Left = 122
Top = 111
Width = 44
Name = "enummer14"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer0      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "13"
Height = 16
Left = 169
Top = 111
Width = 44
Name = "enummer0"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer13      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "13"
Height = 16
Left = 217
Top = 111
Width = 44
Name = "enummer13"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer12      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "12"
Height = 16
Left = 265
Top = 111
Width = 44
Name = "enummer12"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer11      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "11"
Height = 16
Left = 313
Top = 111
Width = 44
Name = "enummer11"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer10      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "10"
Height = 16
Left = 362
Top = 111
Width = 44
Name = "enummer10"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer9      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "9"
Height = 16
Left = 411
Top = 111
Width = 44
Name = "enummer9"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer8      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "8"
Height = 16
Left = 459
Top = 111
Width = 44
Name = "enummer8"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer7      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "7"
Height = 16
Left = 508
Top = 111
Width = 44
Name = "enummer7"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer6      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "6"
Height = 16
Left = 556
Top = 111
Width = 44
Name = "enummer6"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer5      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "5"
Height = 16
Left = 605
Top = 111
Width = 44
Name = "enummer5"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer4      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "4"
Height = 16
Left = 652
Top = 111
Width = 44
Name = "enummer4"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer3      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "3"
Height = 16
Left = 702
Top = 111
Width = 44
Name = "enummer3"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer2      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "2"
Height = 16
Left = 750
Top = 111
Width = 44
Name = "enummer2"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      enummer1      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "2"
Height = 16
Left = 798
Top = 111
Width = 44
Name = "enummer1"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            label      label      	enummer16      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "16"
Height = 16
Left = 25
Top = 111
Width = 44
Name = "enummer16"
      XPROCEDURE Click
DO Struktur_Enummer_Click WITH INT(VAL(SUBSTR(this.Name,8)))
ENDPROC
                                      94   %   p                          U      CCC  \g8 U  STRUKTUR_ENUMMER_CLICK THIS NAME Click,     1 1                       M       )                            optiongroup      optiongroup      dienst      FORM1     ButtonCount = 5
Value = 1
Height = 42
Left = 18
Top = 38
Width = 498
Name = "dienst"
Option1.Caption = "BAT-Bund"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 18
Option1.Width = 88
Option1.BackColor = 240,240,240
Option1.Name = "dienst4"
Option2.Caption = "BAT-Land"
Option2.Height = 17
Option2.Left = 126
Option2.Top = 19
Option2.Width = 90
Option2.BackColor = 240,240,240
Option2.Name = "dienst5"
Option3.Caption = "BAT-VKA"
Option3.Height = 17
Option3.Left = 240
Option3.Top = 19
Option3.Width = 93
Option3.BackColor = 240,240,240
Option3.Name = "dienst6"
Option4.Caption = "KR"
Option4.Height = 17
Option4.Left = 357
Option4.Top = 19
Option4.Width = 61
Option4.BackColor = 240,240,240
Option4.Name = "dienst7"
Option5.Caption = "-----"
Option5.Enabled = .F.
Option5.Height = 17
Option5.Left = 429
Option5.Top = 18
Option5.Visible = .F.
Option5.Width = 61
Option5.Name = "Dienst8"
     PROCEDURE dienst4.Click
DO struktur_Dienst_Click WITH 4, this.value
ENDPROC
PROCEDURE dienst5.Click
DO struktur_Dienst_Click WITH 5, this.value
ENDPROC
PROCEDURE dienst6.Click
DO struktur_Dienst_Click WITH 6, this.value
ENDPROC
PROCEDURE dienst7.Click
DO struktur_Dienst_Click WITH 7, this.value
ENDPROC
PROCEDURE Dienst8.Click
DO struktur_Dienst_Click WITH 8, this.value
ENDPROC
         y  y                        \   %   g                       U         U  STRUKTUR_DIENST_CLICK THIS VALUE       U  STRUKTUR_DIENST_CLICK THIS VALUE       U  STRUKTUR_DIENST_CLICK THIS VALUE       U  STRUKTUR_DIENST_CLICK THIS VALUE       U  STRUKTUR_DIENST_CLICK THIS VALUE
 dienst4.Click,     
 dienst5.Clickk     
 dienst6.Click     
 dienst7.Click     
 Dienst8.Click(    1 A2 A2 A2 A2 A1                       D         h                          1  
   	   U    
    )   y                        label      label      ssframe3      FORM1      FontBold = .T.
FontSize = 12
Caption = "1. Dienstverhltnis"
Height = 20
Left = 20
Top = 30
Width = 147
ForeColor = 255,0,0
Name = "ssframe3"
      	container      	container      ostanp      FORM1      PTop = 257
Left = 22
Width = 115
Height = 36
Visible = .F.
Name = "ostanp"
      label      label      Label7      FORM1.ostanp      ^Caption = "jeweiliger (!) Ost-"
Height = 16
Left = 9
Top = 2
Width = 88
Name = "Label7"
      label      label      Label8      FORM1.ostanp      ZCaption = "Anpassungssatz"
Height = 16
Left = 9
Top = 18
Width = 97
Name = "Label8"
      label      label      keinaufstieg      FORM1      WordWrap = .T.
Caption = "keinaufstieg"
Height = 61
Left = 444
Top = 519
Visible = .F.
Width = 133
Name = "keinaufstieg"
      label      label      hinweis      FORM1      wWordWrap = .T.
Caption = "hinweis"
Height = 61
Left = 300
Top = 480
Visible = .F.
Width = 133
Name = "hinweis"
      textbox      textbox      monatspalte1      FORM1      GHeight = 22
Left = 696
Top = 240
Width = 71
Name = "monatspalte1"
      textbox      textbox      monatspalte2      FORM1      GHeight = 22
Left = 696
Top = 263
Width = 71
Name = "monatspalte2"
      textbox      textbox      
gesamtspalte1      FORM1      HHeight = 22
Left = 779
Top = 240
Width = 71
Name = "gesamtspalte1"
      textbox      textbox      
gesamtspalte2      FORM1      HHeight = 22
Left = 779
Top = 263
Width = 71
Name = "gesamtspalte2"
      	container      	container      ab2009      FORM1      QTop = 240
Left = 696
Width = 154
Height = 45
Visible = .F.
Name = "ab2009"
      label      label      Label29      FORM1.ab2009      uCaption = "wird frhestens ab"
Height = 16
Left = 14
Top = 6
Width = 120
ForeColor = 255,0,0
Name = "Label29"
      label      label      Label30      FORM1.ab2009      {Caption = "1. Mrz 2009 geleistet."
Height = 16
Left = 14
Top = 22
Width = 128
ForeColor = 255,0,0
Name = "Label30"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
t   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LN171EI11216323737      /  F      ]                                                       WINDOWS _4LN171EI21430476426                      "
                                               WINDOWS _5QG0K7SDU1390575954                                                                        WINDOWS _4ZO0X25ZD1259440368                                                                       WINDOWS _4LN171EI11390575954                                                                       WINDOWS _4LN171EI11390575954\      i  v                                                               WINDOWS _4LN171EI11390575954.      ;  H  V  c                                                           WINDOWS _4LN171EI11390575954          *  7                                                           WINDOWS _4LN171EI21390575954                                                                       WINDOWS _4LN171EI51390575954                  J                                                 WINDOWS _4LN171EI61390770232O      d  y            ^!                                               WINDOWS _4LN171EI11394102598"&      7&  L&  Y&  f&      &  +'                                               WINDOWS _4LN171EI81216323737!(      .(  ;(  I(  V(                                                           WINDOWS _4LN171EI11216327171(      (  (  )  )                                                           WINDOWS _4LN171EIA1216327171)      )  )  )  )                                                           WINDOWS _4LN171EIB1350654384e*      t*  *  *  *      *  J+                                               WINDOWS _4LN171EI11350654384=,      L,  [,  o,  |,      ,  $-                                               WINDOWS _4LN171EID1390768646.      *.  =.  G.  T.      8  k9                                               WINDOWS _4LN171EI11390768646Q;      d;  w;  ;  ;      c>  	?                                               WINDOWS _4LN171EI11216327171N@      [@  h@  v@  @                                                           WINDOWS _4LN171EIH1350654384^A      nA  ~A  A  A      &B  aB                                               WINDOWS _4LN171EII1350654384/C      ?C  OC  _C  lC      D  ?D                                               WINDOWS _4LN171EIJ1350654384
E      E  -E  =E  JE      E  F                                               WINDOWS _4LN171EI11358332181F      F  F  	G  G      G  M                                               WINDOWS _4LN171EIL1358332181MT      ZT  gT  xT  T      T  <[                                               WINDOWS _4LN171EI11390768646a      a  a  a  a      be  [f                                               WINDOWS _4LN171EIE1390768646h      h  2h  Ah  Nh      k  l                                               WINDOWS _4LN171EI11390765520m      m  m  n  n      n  p                                               WINDOWS _4LN17OQTK1390765520q      r  r  'r  4r      r  s                                               WINDOWS _4LN17OQTL1390765520 u      -u  :u  Hu  Uu                                                           WINDOWS _4LN17OQTM1390765520u       v  v  v  *v      v  w                                               WINDOWS _4LN19GTKU1390575954*y      7y  Dy  [y  hy                                                           WINDOWS _4LN19GTKV1390575954z       z  -z  Dz  Qz                                                           WINDOWS _4LN19GTKW1390768646z      {  {  +{  8{      ~                                                 WINDOWS _4LN171EIM1350654384                  ,  `                                               WINDOWS _4LN19GTKX1390575954׈                                                                       WINDOWS _4LN19GTKY1390575954g      t                                                                 WINDOWS _4LN171EI11390575954
        '  4  A                                                           WINDOWS _4LN171EI21390575954ʊ      ׊                                                                 WINDOWS _4LN171EI31390575954}                                                                       WINDOWS _4LN171EI413905759540      =  J  W  d                                                           WINDOWS _4LN171EI51390575954          
                                                             WINDOWS _4LN171EI11390575954            ʍ                                                           WINDOWS _4LN171EI21390575954U      b  o  |                                                             WINDOWS _4LN171EI11390575954
        $  1  >                                                           WINDOWS _4LN19GTKE1390575954      ̏  ُ                                                               WINDOWS _4LN171EI11390575954t                                                                       WINDOWS _4LN171EI11390575954)      6  C  R  _                                                           WINDOWS _4LN171EI11390765169        "  2  ?                                                       WINDOWS _4LN171EI11390575954          ϖ  ܖ                                                           WINDOWS _4LN171EI11390575954            ȗ        q                                               WINDOWS _4LN171EI11390575954d      t            L                                                 WINDOWS _4LN1AGGYS1390575954                  p  6                                               WINDOWS _4LN171EI11390575954        Ɵ  ՟                                                             WINDOWS _4LN1AGGYT1390575954            Š        n                                               WINDOWS _4LN1AGGYU1390575954a      n  {                                                               WINDOWS _4LN171EI11390575954<      I  V  e  r                                                           WINDOWS _4LN171EI21390575954:      I  X  d  q                                                       WINDOWS _4LN171EI11390575954            '                                                           WINDOWS _4LN19GTKE1390575954        ƨ  Ҩ  ߨ      a                                                 WINDOWS _4LN171EI11390575954۬                    ˭                                               WINDOWS _4LN171EI11390575954          Ȯ  ծ                                                           WINDOWS _4LN171EI21390575954]      l  {            ,                                               WINDOWS _4LN171EI51390575954      )  6  E  R                                                           WINDOWS _4LN171EI61390769960߳          	                                                         WINDOWS _4LN171EI71390575954	        #  2  ?                                                           WINDOWS _4LN171EI81390575954ϸ      ۸                                                                 WINDOWS _4LN171EI11390575954I      X  g  u        
  K                                               WINDOWS _4LN171EIA1390575954+      8  E  T  a                                                           WINDOWS _4LN171EIB1390575954        
    *        :                                               WINDOWS _4LN171EI11390575954        ,  ;  H                                                           WINDOWS _4LN171EI11390575954ܾ          
                                                             WINDOWS _4LN1AQ7VC1390575954ƿ      ӿ                                                                 WINDOWS _4LN171EI21390575954                                                                       WINDOWS _4LN1AQ7VE1390575954                  Y  y                                               WINDOWS _4LN1AQ7VF1390575954e      r                                                                 WINDOWS _4LN1AQ7VG1390575954      +  :  F  S        *                                               WINDOWS _4LN1AQ7VH1390575954I      V  c  r          9                                               WINDOWS _4LN1AQ7VI1390575954
        (  6  C                                                           WINDOWS _4LN1AQ7VJ1390575954                                                                   WINDOWS _4LN1AQ7VK1390575954                                                                       WINDOWS _4LN1AQ7VL1390769953\      k  z                                                            WINDOWS _4LN1AQ7VM1390575954          '  4                                                           WINDOWS _4LN1AQ7VN1390575954                                                                       WINDOWS _4LN1AQ7VO1390575954>      M  \  j  w        @                                               WINDOWS _4LN1AQ7VP1390575954       -  :  I  V                                                           WINDOWS _4LN1AQ7VQ1390575954                    /                                               WINDOWS _4LN1AQ7VR1390575954        !  0  =                                                           WINDOWS _4LN171EI11390575954                                                                       WINDOWS _4LN171EI21390575954                                                                       WINDOWS _4LN171EI11390575954G      T  a  n  {                                                           WINDOWS _4LN19GTKE1390575954      
    $  1                                                           WINDOWS _4LN171EI11390575954                                                                       WINDOWS _4LN1AQ7VS1390575954i      v                                                                 WINDOWS _4LN1AQ7VT1390575954)      6  C  P  ]                                                           WINDOWS _4LN1AQ7VU1390575954                                                                       WINDOWS _4LN1AQ7VV1390575954                                                                       WINDOWS _4LN1AQ7VW1390575954K      X  e  r                                                             WINDOWS _4LN171EI11390575954        +  <  I                                                       WINDOWS _4LN171EI11390575954                  1  Z                                               WINDOWS _4LN171EI11390575954      / @ M                                                    WINDOWS _4LN1AQ7VX1390575954             5 ]                                               WINDOWS _4X30WQ4FW1390575954) ) 8) G) T) a)                                                          WINDOWS _4LN171EI11390575954)     ) 	* * %*     * ,                                              WINDOWS _4ZO0WKU9B1390575954.     #. 0. ?. L.     . 1                                              WINDOWS _4LN171EI11390575954y5     5 5 5 5                                                          WINDOWS _5QF0ZC60E13907699666     36 H6 Y6 f6     6 w                                              WINDOWS _5QG0KDL3F1390574420       3 @     ̧                                               WINDOWS _6360MQW6R1390575954ɪ     ֪                                                             WINDOWS _6360MQW6S1390575954ޫ       	                                                           WINDOWS _4LN171EI11390575954       ) 6                                                          WINDOWS _4LN171EI11390575954      / > Q ^                                                          WINDOWS _4LN171EI11390575954>     M \ o |                                                          WINDOWS _6360X35MS1390575954Z     i x                                                            COMMENT RESERVED                                r                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 663
Width = 998
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Bestimmung der Sozialversicherungspflicht fr "
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Unload
myclose("#61")
myform1.visible = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
mysv = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
myform1.visible = .f.
public satzanzahl &&As Integer
public SVErg(1+3, 40) &&As Integer
public anzahl &&As Integer
public SVStart &&As Boolean
public HBO &&As Integer
public Schule As Integer
public HBK As Integer
public std20 As Boolean
public RVvoll As Boolean
public HBE As Currency
public HBmassgebend As Currency
public lstinfonr As Integer

public KBO As Integer
public KBK As Integer
public regelm 
public ber400 
public berufsm

public GBK As Integer
public GBR 

PUBLIC Array xprivat(2)
PUBLIC ARRAY student(2)
PUBLIC ARRAY lstkarte(2)
PUBLIC ARRAY Lohn(2) As Currency
PUBLIC ARRAY Monate(2) As Currency
PUBLIC ARRAY allemonate(2) As Currency
PUBLIC ARRAY xweihnachtsgeld(2) As Currency
PUBLIC ARRAY urlaubsgeld(2) As Currency
PUBLIC ARRAY gesamtgehalt(2) As Currency
PUBLIC ARRAY monatsdurchschnitt(2) As Currency

public wohin As Integer

 mysv.Visible = False
*thisform.Top = myform1.Top
*thisform.Left = myform1.Left
*thisform.Height = myform1.Height
*thisform.Width = myform1.Width
Msg = "Die einzelnen entgeltgeringfgigen Beschftigungen berschreiten zusammen die Grenze von "
mysv.KBCheck1.Caption = "ber 450 Euro monatlich"
mysv.GBGrenze2.Caption = Msg + "450 ."
myclose("#61")
myopen(eigdat + muser + "\SV" + right(welchesjahrc, 3) , 61 ,"Sozvers")
myget(61, zi(1+0) + 1,"Sozvers")
SVStart = True

Do svreinholen &&Do attached

mysv.Visible = True
If leftc(Sozvers.AG(1+0), 1) < "A" .or. leftc(Sozvers.AG(1+0), 1) > "z" 
	Do SVGrundstellung &&Do attached
	Do svreinholen &&Do attached
endif


SVStart = False

*mysv.Top = form1.Top
*mysv.Left = form1.Left
mysv.Caption = mysv.Caption + zt0(1+zi(1+0))
mysv.svzentrum.click &&Do attached



IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
                                      %         >  E               U  !  C #61   T  a U  MYCLOSE MYFORM1 VISIBLE  C     U  THISFORM SIZER	 FRMRESIZE
 T    %   
1  T     T  - 7  7 ( 7  7  7	  7
 Q INTEGER 7 Q INTEGER 7 Q BOOLEAN 7
 Q BOOLEAN 7 Q CURRENCY 7 Q CURRENCY 7 Q INTEGER 7 Q INTEGER 7 Q INTEGER 7  7  7  7 Q INTEGER 7 
 7 
 7 
 7  7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7 Q CURRENCY 7  Q CURRENCY 7! Q CURRENCY 7" Q INTEGER T   # f T$ Y Die einzelnen entgeltgeringfgigen Beschftigungen berschreiten zusammen die Grenze von * T  % &  ber 450 Euro monatlich T  ' & $  450 . C #61( . C* +  \SVC, R= Sozvers) " C=C.  Sozvers- 
 T /  0  T   / 8 %CC1 2  A
 CC1 2  z 3  0  
 T # # T  &   & CC. 4 
   5 6  % 7 8 9 * T: C9  7 8 T ?
 T:  
  ; <  T 7  7 8 :  T =  = 8 : 
  >  T ? a U@  MYSV THISFORM TOP MYFORM1 VISIBLE
 SATZANZAHL SVERG ANZAHL SVSTART HBO SCHULE HBK STD20 RVVOLL HBE HBMASSGEBEND	 LSTINFONR KBO KBK REGELM BER400 BERUFSM GBK GBR XPRIVAT STUDENT LSTKARTE LOHN MONATE
 ALLEMONATE XWEIHNACHTSGELD URLAUBSGELD GESAMTGEHALT MONATSDURCHSCHNITT WOHIN FALSE MSG KBCHECK1 CAPTION	 GBGRENZE2 MYCLOSE MYOPEN EIGDAT MUSER WELCHESJAHRC MYGET ZI TRUE SVREINHOLEN SOZVERS AG SVGRUNDSTELLUNG ZT0	 SVZENTRUM CLICK HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Unload,      Resizel      Init     1  2 2  AA  q 1q q q !!!!11!"!q q q "q    "e! r q q A  4   A    2                       7         T   n                  )                           shape      shape      deckel2      FORM1      Top = 163
Left = 984
Height = 330
Width = 29
BackStyle = 0
BorderStyle = 0
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "deckel2"
      label      label      	HBKVtitel      FORM1      gCaption = " Krankenversicherung "
Height = 15
Left = 21
Top = 288
Width = 124
Name = "HBKVtitel"
      shape      shape      hb2      FORM1      Top = 145
Left = 435
Height = 363
Width = 284
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "hb2"
      shape      shape      hb3      FORM1      Top = 145
Left = 719
Height = 363
Width = 274
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "hb3"
      shape      shape      Shape6      FORM1      Top = 27
Left = 435
Height = 119
Width = 558
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "Shape6"
      shape      shape      hb1      FORM1      Top = 1
Left = 219
Height = 507
Width = 217
BorderWidth = 2
SpecialEffect = 0
BackColor = 64,128,128
BorderColor = 255,255,255
Name = "hb1"
      shape      shape      hb0      FORM1      Top = 1
Left = 2
Height = 507
Width = 217
BorderWidth = 2
SpecialEffect = 0
BackColor = 0,128,128
BorderColor = 255,255,255
Name = "hb0"
      
commandbutton      
commandbutton      	schlieen      FORM1      ZTop = 1
Left = 813
Height = 27
Width = 180
Caption = "Schlieen"
Name = "schlieen"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      	speichern      FORM1      ZTop = 1
Left = 625
Height = 27
Width = 187
Caption = "Speichern"
Name = "speichern"
     ]PROCEDURE Click
&&SVSpeichern

&&ffentlicher Dienst
&&Open eigdat + use    +   "\Gering\SV" + welchesjahrc + zi(1+0) + ".xyz" For Random As 61 Len = Len(Sozvers)
With Sozvers
	For i = 0 To 3
		xxx= Alltrim(Str(i,2,0))
		.AG(1+i) = Arbeitgeber&xxx..Value
		.Arb(1+i + 1) = Arbeitgeber&xxx..Value
	Next
	.HO = HBO
	.HK = HBK
	.SC = Schule
	.HC = std20
	.HR = RVvoll
	.HE = HBE

	.KO = KBO
	.KK = KBK
	.reg = regelm
	.ueb = ber400
	.ber = berufsm

	.GK = GBK
	.GR = GBR

	For i = 1 To 2
		.pri(i) = xPrivat(i)
		.stu(i) = student(i)
		.lst(i) = lstkarte(i)
		.lo(i) = Lohn(i)
		.mo(i) = Monate(i)
		.Ur(i) = urlaubsgeld(i)
		.We(i) = xweihnachtsgeld(i)
	Next
	For i = 1 To 4
		For j = 1 To 4
			.Erg(i, j) = SVErg(i - 1, j + 36)
		Next
	Next

	.trag = wohin
Endwith

myput(61, zi(1+0) + 1,"Sozvers")



ENDPROC
                                   9   %         Z  &               U  
   {   (  T CC  Z% .AG(1+i) = Arbeitgeber&xxx..Value
* .Arb(1+i + 1) = Arbeitgeber&xxx..Value
  T   T   T   T	 
  T   T
   T   T   T   T   T   T   T    (
 T  C    T  C     T!  C  "  T#  C  $  T%  C  &  T'  C  (  T)  C  *    (i + (e) T,  + C + $-    T. /  " C=C1  Sozvers0  U2  SOZVERS I XXX HO HBO HK HBK SC SCHULE HC STD20 HR RVVOLL HE HBE KO KBO KK KBK REG REGELM UEB BER400 BER BERUFSM GK GBK GR GBR PRI XPRIVAT STU STUDENT LST LSTKARTE LO LOHN MO MONATE UR URLAUBSGELD WE XWEIHNACHTSGELD J ERG SVERG TRAG WOHIN MYPUT ZI Click,     1  qqQA              rA qqA A  A "4                       R      )                           
commandbutton      
commandbutton      hilfe      FORM1      RTop = 1
Left = 438
Height = 27
Width = 187
Caption = "Hilfe"
Name = "hilfe"
      cPROCEDURE Click
inet = "000"
mylink = 859 &&Msg = "Geringverdiener.de"
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T [   U  INET MYLINK INSINTERNET Click,     1  q 1                       X       )                            label      label      Label1      FORM1      FontSize = 14
Caption = "Hauptbeschftigung"
Height = 28
Left = 18
Top = 3
Width = 174
BackColor = 0,128,128
Name = "Label1"
      label      label      Label2      FORM1      FontSize = 14
Caption = "Zeitgeringfgige"
Height = 28
Left = 247
Top = 3
Width = 144
BackColor = 64,128,128
Name = "Label2"
      label      label      Label3      FORM1      FontSize = 14
Caption = "Beschftigung"
Height = 28
Left = 247
Top = 26
Width = 144
BackColor = 64,128,128
Name = "Label3"
      textbox      textbox      arbeitgeber0      FORM1      EHeight = 22
Left = 9
Top = 27
Width = 202
Name = "arbeitgeber0"
      QPROCEDURE Init
IF EMPTY(this.Value)
	this.value="Arbeitgeber"
endif
ENDPROC
                                         %   q                          U  4  %C   -  T    Arbeitgeber  U  THIS VALUE Init,     1 !A 1                       F       )                            textbox      textbox      arbeitgeber1      FORM1      GHeight = 22
Left = 227
Top = 50
Width = 202
Name = "arbeitgeber1"
      QPROCEDURE Init
IF EMPTY(this.Value)
	this.value="Arbeitgeber"
endif
ENDPROC
                                         %   q                          U  4  %C   -  T    Arbeitgeber  U  THIS VALUE Init,     1 !A 1                       F       )                            optiongroup      optiongroup      HB      FORM1     	ButtonCount = 13
Value = 0
Height = 228
Left = 9
Top = 51
Width = 202
BackColor = 0,128,128
Name = "HB"
Option1.Caption = "Angestellter oder Arbeiter"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 190
Option1.BackColor = 0,128,128
Option1.Name = "HBopt0"
Option2.Caption = "Beamter"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 22
Option2.Width = 190
Option2.BackColor = 0,128,128
Option2.Name = "HBopt1"
Option3.Caption = "Schler"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 39
Option3.Width = 190
Option3.BackColor = 0,128,128
Option3.Name = "HBopt2"
Option4.Caption = "Auszubildender"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 56
Option4.Width = 190
Option4.BackColor = 0,128,128
Option4.Name = "HBopt3"
Option5.Caption = "Student als Aushilfe"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 73
Option5.Width = 190
Option5.BackColor = 0,128,128
Option5.Name = "HBopt4"
Option6.Caption = "Student im Vor-/Nachpraktikum"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 90
Option6.Width = 190
Option6.BackColor = 0,128,128
Option6.Name = "HBopt5"
Option7.Caption = "Student im Zwischenpraktikum"
Option7.Value = 0
Option7.Height = 17
Option7.Left = 5
Option7.Top = 107
Option7.Width = 190
Option7.BackColor = 0,128,128
Option7.Name = "HBopt6"
Option8.Caption = "Altersrentner ber 65"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 124
Option8.Width = 190
Option8.BackColor = 0,128,128
Option8.Name = "HBopt7"
Option9.Caption = "Altersrentner unter 65"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 141
Option9.Width = 190
Option9.BackColor = 0,128,128
Option9.Name = "HBopt8"
Option10.Caption = "Berufsunfhigkeitsrentner"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 158
Option10.Width = 190
Option10.BackColor = 0,128,128
Option10.Name = "HBopt9"
Option11.Caption = "Erwerbsunfhigkeitsrentner"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 175
Option11.Width = 190
Option11.BackColor = 0,128,128
Option11.Name = "HBopt10"
Option12.Caption = "Selbstndig"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 192
Option12.Width = 190
Option12.BackColor = 0,128,128
Option12.Name = "HBopt11"
Option13.Caption = "Keine"
Option13.Value = 0
Option13.Height = 17
Option13.Left = 5
Option13.Top = 209
Option13.Width = 190
Option13.BackColor = 0,128,128
Option13.Name = "HBopt12"
     [PROCEDURE Click
myindex = this.value
If SVStart = True 
	RETURN
ENDIF

mysv.HBKV.Visible = True
mysv.HBCheck.Visible = False

do Case &&Index
Case myindex - 1 = 1 &&vorher ohne - 1
Case myindex - 1 = 4 &&vorher ohne - 1
     mysv.HBCheck.Visible = True
Endcase

HBO = myindex - 1 &&vorher ohne - 1

mysv.svzentrum.click
ENDPROC
                                   U   %   O      |     ^            U    T     %  %  B  T     T   	 
 H\     q      T      T
   
     U
  MYINDEX THIS VALUE SVSTART TRUE MYSV HBKV VISIBLE HBCHECK FALSE HBO	 SVZENTRUM CLICK Click,     1 A A 21 QQ1A  1                       P      )                           optiongroup      optiongroup      KBOpt      FORM1     ButtonCount = 3
Value = 0
Height = 69
Left = 225
Top = 127
Width = 202
BackColor = 64,128,128
Name = "KBOpt"
Option1.Caption = "a) nicht lnger als 2 Monate"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 190
Option1.BackColor = 64,128,128
Option1.Name = "KBOpt0"
Option2.Caption = "b) nicht mehr als 50 Arbeitstage"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 25
Option2.Width = 190
Option2.BackColor = 64,128,128
Option2.Name = "KBOpt1"
Option3.Caption = "c) lnger als a) oder b)"
Option3.Height = 20
Option3.Left = 5
Option3.Top = 44
Option3.Width = 190
Option3.WordWrap = .T.
Option3.BackColor = 64,128,128
Option3.Name = "KBOpt2"
      PROCEDURE Click
myindex = This.Value
If SVStart = True
	Return
Endif

KBO = myindex - 1 &&vorher ohne - 1
mysv.svzentrum.click &&Do attached
ENDPROC
     =    $  $                        R   %                             U  J  T     %  %  B  T   
     U	  MYINDEX THIS VALUE SVSTART TRUE KBO MYSV	 SVZENTRUM CLICK Click,     1 A A  1                              )   $                        label      label      Label4      FORM1      WordWrap = .T.
Caption = "Im Kalenderjahr zusammen mit frheren kurzfristigen, versicher- ungsfreien Beschftigungen.."
Height = 48
Left = 235
Top = 77
Width = 182
BackColor = 64,128,128
Name = "Label4"
      checkbox      checkbox      KBCheck0      FORM1      Top = 212
Left = 231
Height = 19
Width = 120
Alignment = 0
Caption = "regelmig"
BackColor = 64,128,128
Name = "KBCheck0"
      3PROCEDURE Click
DO KBCheck_Click WITH 0
ENDPROC
                                      f   %   O       d      ^             U   
     U 
 KBCHECK_CLICK Click,     1  1                       (       )                            checkbox      checkbox      KBCheck1      FORM1      Top = 242
Left = 231
Height = 19
Width = 157
Alignment = 0
Caption = "ber 400 Euro monatlich"
BackColor = 64,128,128
Name = "KBCheck1"
      3PROCEDURE Click
DO KBCheck_Click WITH 1
ENDPROC
                                      f   %   O       d      ^             U   
    U 
 KBCHECK_CLICK Click,     1  1                       (       )                            checkbox      checkbox      KBCheck2      FORM1      Top = 271
Left = 231
Height = 19
Width = 99
Alignment = 0
Caption = "berufsmig"
BackColor = 64,128,128
Name = "KBCheck2"
      3PROCEDURE Click
DO KBCheck_Click WITH 2
ENDPROC
                                      f   %   O       d      ^             U   
    U 
 KBCHECK_CLICK Click,     1  1                       (       )                            image      image      	KBCheckB0      FORM1      Picture = prgicons\lumier01.ico
Height = 32
Left = 333
Top = 206
Width = 32
BorderColor = 64,128,128
Name = "KBCheckB0"
     BPROCEDURE Click
myindex = 0
do Case &&Index
Case myindex = 2
     MESSAGEBOX("Berufsmigkeit in diesem Sinne liegt z.B. vor:" + Chr(13) + "- zwischen Schule und Dauerbeschftigung," + Chr(13) + "- zwischen Studiumsabschlu und Eintritt ins Berufsleben," + Chr(13) + "- whrend einer gesetzlichen Dienstpflicht," + Chr(13) + "- whrend der Elternzeit," + Chr(13) + "- whrend eines unbezahlten Urlaubs," + Chr(13) + "- whrend des Bezugs von Arbeitslosengeld /-hilfe" + Chr(13) + "- whrend der Registrierung als Arbeitssuchender." + Chr(13) + Chr(13) + "Berufsmigkeit in diesem Sinne liegt z.B. nicht vor:" + Chr(13) + "- zwischen Schule und Studium," + Chr(13) + "- zwischen Schule und Wehrdienst," + Chr(13) + "- neben einer soz.vers.pflichtigen Hauptbeschftigung" + Chr(13) + "- whrend des Bezugs von Vorruhestandsgeld." + Chr(13) + "- nach dem Ausscheiden a.d. Berufsleben (Hausfrau, Rentner).", 0, "Voraussetzung bei mehr als 400 /450 : Nicht berufsmig")
Case myindex = 0
     MESSAGEBOX("Regelmig wird eine Beschftigung ausgebt," + Chr(13) + "wenn sie von vornherein auf stndige Wiederholung gerichtet ist" + Chr(13) + "und ber einen lngeren Zeitraum (ber ein Jahr hinaus)" + Chr(13) + "ausgebt werden soll." + Chr(13) + "Eine Regelmigkeit liegt auch vor, wenn ein Rahmenarbeitsvertrag" + Chr(13) + "(mit Arbeitseinstzen bis zu 50 Tagen) fr lnger als 12 Monate" + Chr(13) + "vereinbart wird oder zwischen zwei einjhrigen Rahmenarbeitsvertrgen" + Chr(13) + "eine Pause von weniger als zwei Monaten liegt.", 0, "Voraussetzung: Nicht regelmig")
Endcase

ENDPROC
     ^    E  E                           %           	               U  
 T   
 H    i>C/ Berufsmigkeit in diesem Sinne liegt z.B. vor:C
 ) - zwischen Schule und Dauerbeschftigung,C
 9 - zwischen Studiumsabschlu und Eintritt ins Berufsleben,C
 + - whrend einer gesetzlichen Dienstpflicht,C
  - whrend der Elternzeit,C
 $ - whrend eines unbezahlten Urlaubs,C
 1 - whrend des Bezugs von Arbeitslosengeld /-hilfeC
 1 - whrend der Registrierung als Arbeitssuchender.C
 C
 5 Berufsmigkeit in diesem Sinne liegt z.B. nicht vor:C
  - zwischen Schule und Studium,C
 ! - zwischen Schule und Wehrdienst,C
 5 - neben einer soz.vers.pflichtigen HauptbeschftigungC
 + - whrend des Bezugs von Vorruhestandsgeld.C
 < - nach dem Ausscheiden a.d. Berufsleben (Hausfrau, Rentner). 9 Voraussetzung bei mehr als 400 /450 : Nicht berufsmigx    !C, Regelmig wird eine Beschftigung ausgebt,C
 ? wenn sie von vornherein auf stndige Wiederholung gerichtet istC
 7 und ber einen lngeren Zeitraum (ber ein Jahr hinaus)C
  ausgebt werden soll.C
 A Eine Regelmigkeit liegt auch vor, wenn ein RahmenarbeitsvertragC
 ? (mit Arbeitseinstzen bis zu 50 Tagen) fr lnger als 12 MonateC
 E vereinbart wird oder zwischen zwei einjhrigen RahmenarbeitsvertrgenC
 . eine Pause von weniger als zwei Monaten liegt.  Voraussetzung: Nicht regelmigx  U  MYINDEX Click,     1   3"A 2                       7      )   E                        image      image      	KBCheckB2      FORM1      ePicture = prgicons\lumier01.ico
Height = 32
Left = 333
Top = 265
Width = 32
Name = "KBCheckB2"
     BPROCEDURE Click
myindex = 2
do Case &&Index
Case myindex = 2
     MESSAGEBOX("Berufsmigkeit in diesem Sinne liegt z.B. vor:" + Chr(13) + "- zwischen Schule und Dauerbeschftigung," + Chr(13) + "- zwischen Studiumsabschlu und Eintritt ins Berufsleben," + Chr(13) + "- whrend einer gesetzlichen Dienstpflicht," + Chr(13) + "- whrend der Elternzeit," + Chr(13) + "- whrend eines unbezahlten Urlaubs," + Chr(13) + "- whrend des Bezugs von Arbeitslosengeld /-hilfe" + Chr(13) + "- whrend der Registrierung als Arbeitssuchender." + Chr(13) + Chr(13) + "Berufsmigkeit in diesem Sinne liegt z.B. nicht vor:" + Chr(13) + "- zwischen Schule und Studium," + Chr(13) + "- zwischen Schule und Wehrdienst," + Chr(13) + "- neben einer soz.vers.pflichtigen Hauptbeschftigung" + Chr(13) + "- whrend des Bezugs von Vorruhestandsgeld." + Chr(13) + "- nach dem Ausscheiden a.d. Berufsleben (Hausfrau, Rentner).", 0, "Voraussetzung bei mehr als 400 /450 : Nicht berufsmig")
Case myindex = 0
     MESSAGEBOX("Regelmig wird eine Beschftigung ausgebt," + Chr(13) + "wenn sie von vornherein auf stndige Wiederholung gerichtet ist" + Chr(13) + "und ber einen lngeren Zeitraum (ber ein Jahr hinaus)" + Chr(13) + "ausgebt werden soll." + Chr(13) + "Eine Regelmigkeit liegt auch vor, wenn ein Rahmenarbeitsvertrag" + Chr(13) + "(mit Arbeitseinstzen bis zu 50 Tagen) fr lnger als 12 Monate" + Chr(13) + "vereinbart wird oder zwischen zwei einjhrigen Rahmenarbeitsvertrgen" + Chr(13) + "eine Pause von weniger als zwei Monaten liegt.", 0, "Voraussetzung: Nicht regelmig")
Endcase

ENDPROC
     ^    E  E                           %           	               U  
 T  
 H    i>C/ Berufsmigkeit in diesem Sinne liegt z.B. vor:C
 ) - zwischen Schule und Dauerbeschftigung,C
 9 - zwischen Studiumsabschlu und Eintritt ins Berufsleben,C
 + - whrend einer gesetzlichen Dienstpflicht,C
  - whrend der Elternzeit,C
 $ - whrend eines unbezahlten Urlaubs,C
 1 - whrend des Bezugs von Arbeitslosengeld /-hilfeC
 1 - whrend der Registrierung als Arbeitssuchender.C
 C
 5 Berufsmigkeit in diesem Sinne liegt z.B. nicht vor:C
  - zwischen Schule und Studium,C
 ! - zwischen Schule und Wehrdienst,C
 5 - neben einer soz.vers.pflichtigen HauptbeschftigungC
 + - whrend des Bezugs von Vorruhestandsgeld.C
 < - nach dem Ausscheiden a.d. Berufsleben (Hausfrau, Rentner). 9 Voraussetzung bei mehr als 400 /450 : Nicht berufsmigx    !C, Regelmig wird eine Beschftigung ausgebt,C
 ? wenn sie von vornherein auf stndige Wiederholung gerichtet istC
 7 und ber einen lngeren Zeitraum (ber ein Jahr hinaus)C
  ausgebt werden soll.C
 A Eine Regelmigkeit liegt auch vor, wenn ein RahmenarbeitsvertragC
 ? (mit Arbeitseinstzen bis zu 50 Tagen) fr lnger als 12 MonateC
 E vereinbart wird oder zwischen zwei einjhrigen RahmenarbeitsvertrgenC
 . eine Pause von weniger als zwei Monaten liegt.  Voraussetzung: Nicht regelmigx  U  MYINDEX Click,     1   3"A 2                       7      )   E                        optiongroup      optiongroup      HBKV      FORM1     yButtonCount = 4
Value = 0
Height = 83
Left = 9
Top = 291
Width = 202
BackColor = 0,128,128
Name = "HBKV"
Option1.Caption = "Mitglied in gesetzlicher KV"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 190
Option1.BackColor = 0,128,128
Option1.Name = "HBKV0"
Option2.Caption = "freiw. in GKV (Firmenzahler)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 23
Option2.Width = 190
Option2.BackColor = 0,128,128
Option2.Name = "HBKV1"
Option3.Caption = "freiw. in GKV (Selbstzahler)"
Option3.Height = 20
Option3.Left = 5
Option3.Top = 40
Option3.Width = 190
Option3.WordWrap = .T.
Option3.BackColor = 0,128,128
Option3.Name = "HBKV2"
Option4.Caption = "privat oder nicht KV-versichert"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 60
Option4.Width = 190
Option4.BackColor = 0,128,128
Option4.Name = "HBKV3"
      PROCEDURE Click
myindex = this.value
If SVStart = True 
	RETURN
endif
HBK = myindex - 1 &&vorher ohne - 1
GBK = HBK
xxx=ALLTRIM(STR(gbk,2,0))
mysv.GBKV.gbkv&xxx..Value = 1 &&vorher -1
SVStart = False
mysv.svzentrum.click
ENDPROC
                                   =   %          G     /            U    T     %  %  B  T   
 T   T CC  Z" mysv.GBKV.gbkv&xxx..Value = 1 

 T  
 	 
   U  MYINDEX THIS VALUE SVSTART TRUE HBK GBK XXX FALSE MYSV	 SVZENTRUM CLICK Click,     1 A A  q!  1                              )                           optiongroup      optiongroup      schler      FORM1     ButtonCount = 4
Value = 0
Height = 99
Left = 9
Top = 291
Width = 202
BackColor = 0,128,128
Name = "schler"
Option1.Caption = "a) nur in den Sommerferien"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 190
Option1.BackColor = 0,128,128
Option1.Name = "schler0"
Option2.Caption = "b) laufend, aber < 15Std/Woche"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 23
Option2.Width = 190
Option2.BackColor = 0,128,128
Option2.Name = "schler1"
Option3.Caption = "c) Schnupperwochen oder              Praktika als Fachschler"
Option3.Height = 41
Option3.Left = 5
Option3.Top = 39
Option3.Width = 190
Option3.WordWrap = .T.
Option3.BackColor = 0,128,128
Option3.Name = "schler2"
Option4.Caption = "Soweit nicht a) bis c)"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 77
Option4.Width = 190
Option4.BackColor = 0,128,128
Option4.Name = "schler3"
      PROCEDURE Click
myindex = this.value
If SVStart = True 
	RETURN
endif
Schule = myindex - 1 &&vorher ohne - 1
mysv.svzentrum.click
ENDPROC
     @    '  '                        4f   %                             U  J  T     %  %  B  T   
     U	  MYINDEX THIS VALUE SVSTART TRUE SCHULE MYSV	 SVZENTRUM CLICK Click,     1 A A  1                              )   '                        checkbox      checkbox      HR      FORM1      Top = 390
Left = 9
Height = 36
Width = 199
WordWrap = .T.
Alignment = 0
Caption = "AN zahlt im bergangsbereich die vollen RV-Beitrge"
BackColor = 0,128,128
Name = "HR"
     JPROCEDURE Click
If SVStart = True
	Return
Endif

SVStart = True
If mysv.HR.Value = true &&voeher -1
	RVvoll = True
	mysv.GBCheck1.Value = 1 &&vorher -1
	GBR = 1 &&vorher True
Else
	RVvoll = False
	mysv.GBCheck1.Value = 0
	GBR = 0 &&vorher False
Endif
SVStart = False
mysv.svzentrum.Click &&Do attached

ENDPROC
                                      %   @      q     O            U    %     B 
 T    %    j 
 T   T   
 T   
 T   T    
 T   
 T   
  	 
  U  SVSTART TRUE MYSV HR VALUE RVVOLL GBCHECK1 GBR FALSE	 SVZENTRUM CLICK Click,     1 A A  q 1   1 A   2                       ?      )                           checkbox      checkbox      HBCheck      FORM1      Top = 428
Left = 9
Height = 36
Width = 199
WordWrap = .T.
Alignment = 0
Caption = "ber 20 Std. pro Woche an mehr als 26 Wochen (182 T.)"
BackColor = 0,128,128
Name = "HBCheck"
      PROCEDURE Click
If SVStart = True
	Return
Endif

If mysv.HBCheck.Value = 1 &&voeher -1
	std20 = True
Else
	std20 = False
Endif

mysv.svzentrum.Click &&Do attached
ENDPROC
     b    I  I                        d   %                             U  f  %     B  %   = 
 T   R 
 T   
     U	  SVSTART TRUE MYSV HBCHECK VALUE STD20 FALSE	 SVZENTRUM CLICK Click,     1 A A r   A  1                              )   I                        label      label      Label5      FORM1      WordWrap = .T.
Caption = "sozialvers.pflichtiges Entgelt"
Height = 18
Left = 24
Top = 462
Width = 162
BackColor = 0,128,128
Name = "Label5"
      textbox      textbox      HBEuro      FORM1      uAlignment = 3
Value = 0.00
Height = 22
Left = 36
Top = 479
Width = 118
BackColor = 255,255,0
Name = "HBEuro"
      PROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl
If keyascii = 13
	HBE = mysv.HBEuro.Value
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE Valid
HBE = mysv.HBEuro.Value
RETURN .t.
ENDPROC
                                   M   %          (  
               U  C      %  
<  T    
      U  KEYASCII
 NSHIFTALTCTRL HBE MYSV HBEURO VALUE	 SVZENTRUM CLICK  T      Ba U  HBE MYSV HBEURO VALUE KeyPress,      Valid     1  1 A 2 1q 1                                          )                           shape      shape      vielleichtback1      FORM1      Top = 533
Left = 219
Height = 131
Width = 217
BorderWidth = 2
SpecialEffect = 0
BackColor = 64,128,128
BorderColor = 255,255,255
Name = "vielleichtback1"
      shape      shape      vielleichtback0      FORM1      Top = 534
Left = 2
Height = 130
Width = 217
BorderWidth = 2
SpecialEffect = 0
BackColor = 0,128,128
BorderColor = 255,255,255
Name = "vielleichtback0"
      optiongroup      optiongroup      GBKV      FORM1     ButtonCount = 4
Value = 4
Height = 83
Left = 459
Top = 55
Width = 202
BackColor = 128,255,255
Name = "GBKV"
Option1.Caption = "Mitglied in gesetzlicher KV"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 190
Option1.BackColor = 128,255,255
Option1.Name = "GBKV0"
Option2.Caption = "freiw. in GKV (Firmenzahler)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 23
Option2.Width = 190
Option2.BackColor = 128,255,255
Option2.Name = "GBKV1"
Option3.Caption = "freiw. in GKV (Selbstzahler)"
Option3.Height = 20
Option3.Left = 5
Option3.Top = 40
Option3.Width = 190
Option3.WordWrap = .T.
Option3.BackColor = 128,255,255
Option3.Name = "GBKV2"
Option4.Caption = "privat oder nicht KV-versichert"
Option4.Value = 1
Option4.Height = 17
Option4.Left = 5
Option4.Top = 60
Option4.Width = 190
Option4.BackColor = 128,255,255
Option4.Name = "GBKV3"
     PROCEDURE Click
If SVStart = True
	Return
Endif

SVStart = False
GBK = This.Value - 1 &&vorher ohne - 1
HBK = GBK
xxx=Alltrim(Str(HBK,4,0))
mysv.HBKV.HBKV&xxx..Value = true &&vorher -1
SVStart = False

mysv.svzentrum.Click &&Do attached
ENDPROC
                                   L   %         A     )            U    %     B 
 T    T   
 T   T CC  Z% mysv.HBKV.HBKV&xxx..Value = true 

 T   
  	 
  U  SVSTART TRUE FALSE GBK THIS VALUE HBK XXX MYSV	 SVZENTRUM CLICK Click,     1 A A  A qQ  1                              )                           image      image      Image1      FORM1      bPicture = prgicons\lumier01.ico
Height = 32
Left = 174
Top = 302
Width = 32
Name = "Image1"
     ,PROCEDURE Click
MESSAGEBOX("Kind i.S.d. Jugendarbeitsschutzgesetzes ist," + Chr(13) + "wer noch keine 15 Jahre alt ist (frher 14)." + Chr(13) + "Damit wird das Kinderarbeitsverbot ausgeweitet." + Chr(13) + "Kinder ber 13 Jahren drfen jedoch leichte und " + Chr(13) + "fr sie geeignete Arbeit ausfhren, z.B." + Chr(13) + "- Zeitungen austragen," + Chr(13) + "- Haushaltsdienstleistungen" + Chr(13) + "- Botengnge," + Chr(13) + "- Betreuungsleistungen fr ltere Menschen," + Chr(13) + "- Nachhilfe," + Chr(13) + "- Babysitting." + Chr(13) + "Die Dauer darf jedoch zwei Stunden pro Tag " + Chr(13) + "und fnf Tage pro Woche nicht berschreiten. " + Chr(13) + "Es ist weiterhin verboten, Kinder vor der Schule und" + Chr(13) + "zwischen 18 und 8 Uhr zu beschftigen.", 0, "Jugendarbeitsschutz")

ENDPROC
     o    V  V                        K   %         
                 U  C, Kind i.S.d. Jugendarbeitsschutzgesetzes ist,C
 , wer noch keine 15 Jahre alt ist (frher 14).C
 / Damit wird das Kinderarbeitsverbot ausgeweitet.C
 0 Kinder ber 13 Jahren drfen jedoch leichte und C
 ( fr sie geeignete Arbeit ausfhren, z.B.C
  - Zeitungen austragen,C
  - HaushaltsdienstleistungenC
 
 - Botengnge,C
 + - Betreuungsleistungen fr ltere Menschen,C
  - Nachhilfe,C
  - Babysitting.C
 + Die Dauer darf jedoch zwei Stunden pro Tag C
 - und fnf Tage pro Woche nicht berschreiten. C
 4 Es ist weiterhin verboten, Kinder vor der Schule undC
 & zwischen 18 und 8 Uhr zu beschftigen.  Jugendarbeitsschutzx U   Click,     1 Q,2                       !      )   V                        shape      shape      Shape5      FORM1      STop = 508
Left = 3
Height = 30
Width = 991
SpecialEffect = 0
Name = "Shape5"
      label      label      Label6      FORM1      iFontSize = 14
Caption = "Ergebnisse"
Height = 23
Left = 453
Top = 511
Width = 101
Name = "Label6"
      label      label      svh36      FORM1      WordWrap = .F.
Caption = "Steuerklasse"
Height = 17
Left = 21
Top = 542
Width = 182
BackColor = 0,128,128
Name = "svh36"
      label      label      svh37      FORM1      wWordWrap = .F.
Caption = "KV"
Height = 17
Left = 21
Top = 560
Width = 182
BackColor = 0,128,128
Name = "svh37"
      label      label      svh38      FORM1      wWordWrap = .F.
Caption = "PV"
Height = 17
Left = 21
Top = 577
Width = 182
BackColor = 0,128,128
Name = "svh38"
      label      label      svh39      FORM1      wWordWrap = .F.
Caption = "RV"
Height = 17
Left = 21
Top = 592
Width = 182
BackColor = 0,128,128
Name = "svh39"
      label      label      svh40      FORM1      wWordWrap = .F.
Caption = "AV"
Height = 17
Left = 21
Top = 608
Width = 182
BackColor = 0,128,128
Name = "svh40"
      label      label      svk36      FORM1      WordWrap = .F.
Caption = "Steuerklasse"
Height = 17
Left = 234
Top = 542
Width = 182
BackColor = 64,128,128
Name = "svk36"
      label      label      svk37      FORM1      yWordWrap = .F.
Caption = "KV"
Height = 17
Left = 234
Top = 560
Width = 182
BackColor = 64,128,128
Name = "svk37"
      label      label      svk38      FORM1      yWordWrap = .F.
Caption = "PV"
Height = 17
Left = 234
Top = 577
Width = 182
BackColor = 64,128,128
Name = "svk38"
      label      label      svk39      FORM1      yWordWrap = .F.
Caption = "RV"
Height = 17
Left = 234
Top = 592
Width = 182
BackColor = 64,128,128
Name = "svk39"
      label      label      svk40      FORM1      yWordWrap = .F.
Caption = "AV"
Height = 17
Left = 234
Top = 608
Width = 182
BackColor = 64,128,128
Name = "svk40"
      label      label      Label17      FORM1      FontSize = 14
Caption = "Entgeltgeringfgige Beschftigungen"
Height = 25
Left = 562
Top = 30
Width = 315
BackColor = 128,255,255
Name = "Label17"
      checkbox      checkbox      GBCheck1      FORM1      Top = 74
Left = 773
Height = 36
Width = 203
WordWrap = .T.
Alignment = 0
Caption = "AN zahlt im bergangsbereich die vollen RV-Beitrge"
BackColor = 128,255,255
Name = "GBCheck1"
     PROCEDURE Click
If SVStart = True
	Return
Endif

SVStart = True
Do Case && Index

	Case myindex = 1
		If .not. EMPTY(mysv.GBCheck1.Value) &&vorher  = -1
			GBR = 1 &&vorher true
			mysv.HR.Value = true &&vorher -1
			RVvoll = True
		Else
			GBR = 0 &&vorher false
			mysv.HR.Value = 0
			RVvoll = False
		Endif
Endcase
SVStart = False
mysv.svzentrum.Click &&Do attached
ENDPROC
                                   X   %   j           y            U    %     B 
 T   
 H3      %C   
 
 T  T    
 T    
 T   T    
 T 	   
 T  	 
  
   U  SVSTART TRUE MYINDEX MYSV GBCHECK1 VALUE GBR HR RVVOLL FALSE	 SVZENTRUM CLICK Click,     1 A A   a 1   1 A A   1                             )                           label      label      Label18      FORM1      FontBold = .F.
FontSize = 14
Caption = "Zuerst aufgenommener Minijob"
Height = 24
Left = 445
Top = 148
Width = 267
BackColor = 128,255,255
Name = "Label18"
      textbox      textbox      Arbeitgeber2      FORM1      HHeight = 22
Left = 470
Top = 198
Width = 202
Name = "Arbeitgeber2"
      QPROCEDURE Init
IF EMPTY(this.Value)
	this.value="Arbeitgeber"
endif
ENDPROC
                                         %   q                          U  4  %C   -  T    Arbeitgeber  U  THIS VALUE Init,     1 !A 1                       F       )                            checkbox      checkbox      priv1      FORM1      Top = 225
Left = 472
Height = 24
Width = 203
WordWrap = .F.
Alignment = 0
Caption = "Beschftigung im Privathaushalt"
BackColor = 128,255,255
Name = "priv1"
      PROCEDURE Click
If SVStart = True
	Return
Endif

If mysv.priv1.Value = 1 &&voeher -1
	xPrivat(1) = True
Else
	xPrivat(1) = False
Endif
mysv.svzentrum.Click &&Do attached
ENDPROC
     n    U  U                           %                            U  r  %     B  %   C  T   ^  T   
     U	  SVSTART TRUE MYSV PRIV1 VALUE XPRIVAT FALSE	 SVZENTRUM CLICK Click,     1 A A r1 1A  1                              )   U                        checkbox      checkbox      priv2      FORM1      Top = 225
Left = 760
Height = 24
Width = 203
WordWrap = .F.
Alignment = 0
Caption = "Beschftigung im Privathaushalt"
BackColor = 128,255,255
Name = "priv2"
      PROCEDURE Click
If SVStart = True
	Return
Endif

If mysv.priv2.Value = 1 &&vorher -1
	xPrivat(2) = True
Else
	xPrivat(2) = False
Endif
mysv.svzentrum.Click &&Do attached
ENDPROC
     n    U  U                           %                            U  r  %     B  %   C  T   ^  T   
     U	  SVSTART TRUE MYSV PRIV2 VALUE XPRIVAT FALSE	 SVZENTRUM CLICK Click,     1 A A r1 1A  1                              )   U                        label      label      Label19      FORM1      FontBold = .F.
FontSize = 14
Caption = "Spter aufgenommene"
Height = 24
Left = 755
Top = 148
Width = 200
BackColor = 128,255,255
Name = "Label19"
      textbox      textbox      Arbeitgeber3      FORM1      HHeight = 22
Left = 759
Top = 198
Width = 202
Name = "Arbeitgeber3"
      QPROCEDURE Init
IF EMPTY(this.Value)
	this.value="Arbeitgeber"
endif
ENDPROC
                                         %   q                          U  4  %C   -  T    Arbeitgeber  U  THIS VALUE Init,     1 !A 1                       F       )                            label      label      Label20      FORM1      FontBold = .F.
FontSize = 14
Caption = " Minijobs (summiert)"
Height = 24
Left = 766
Top = 171
Width = 174
BackColor = 128,255,255
Name = "Label20"
      label      label      label11      FORM1      WordWrap = .T.
Caption = "Berechnung der Geringfgigkeitsgrenze Monatslohn x Monate = Jahreslohn"
Height = 33
Left = 470
Top = 314
Width = 226
BackColor = 128,255,255
Name = "label11"
      textbox      textbox      loh1      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 467
Top = 355
Width = 67
Name = "loh1"
     PROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl
If keyascii = 13

	Lohn(1) = mysv.loh1.Value
	mysv.url1.SetFocus
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE Valid
Lohn(1) = mysv.loh1.Value
mysv.svzentrum.click &&Do attached
RETURN .t.
ENDPROC
                                      %   9      r     Z            U  V      %  
O  T    
    
   	   U
  KEYASCII
 NSHIFTALTCTRL LOHN MYSV LOH1 VALUE URL1 SETFOCUS	 SVZENTRUM CLICK0  T     
     Ba U  LOHN MYSV LOH1 VALUE	 SVZENTRUM CLICK KeyPress,      Valid     1    A 2  q 1                                   
  
    )                           label      label      Label22      FORM1      yFontSize = 12
Caption = "x"
Height = 22
Left = 540
Top = 355
Width = 11
BackColor = 128,255,255
Name = "Label22"
      textbox      textbox      mon1      FORM1      zAlignment = 3
Value = 1
Format = "99"
Height = 22
InputMask = "99"
Left = 554
Top = 355
Width = 33
Name = "mon1"
     MPROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If mysv.Mon1.Value > 12
	mysv.Mon1.Value = 12
Endif

If keyascii = 13
	Monate(2) = mysv.Mon2.Value
	mysv.url1.SetFocus
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE LostFocus
Monate(2) = mysv.Mon2.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                      %   j                       U        %   5  T     %  
}  T    
    
  	 
   U  KEYASCII
 NSHIFTALTCTRL MYSV MON1 VALUE MONATE MON2 URL1 SETFOCUS	 SVZENTRUM CLICK)  T     
     U  MONATE MYSV MON2 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus    1  r1A   A 2  1                                  B      )                           label      label      Label23      FORM1      {FontSize = 12
Caption = '"="'
Height = 22
Left = 590
Top = 355
Width = 11
BackColor = 128,255,255
Name = "Label23"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            textbox      textbox      allmo1      FORM1      Format = "999999.99"
Height = 22
InputMask = "999999.99"
Left = 608
ReadOnly = .T.
Top = 355
Width = 81
Name = "allmo1"
      textbox      textbox      url1      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 608
Top = 378
Width = 81
Name = "url1"
     PROCEDURE KeyPress
LPARAMETERS keyascii, nShiftAltCtrl
If KeyAscii = 13 
	urlaubsgeld(1) = mysv.url1.Value
	mysv.Wei1.SetFocus
	mysv.svzentrumclick &&Do attached
endif
ENDPROC
PROCEDURE LostFocus
urlaubsgeld(1) = mysv.url1.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                   W   %   ;      v     `            U  S      %  
L  T    
    
     U	  KEYASCII
 NSHIFTALTCTRL URLAUBSGELD MYSV URL1 VALUE WEI1 SETFOCUS SVZENTRUMCLICK)  T     
     U  URLAUBSGELD MYSV URL1 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus     1    A 2  1                                     	    )                           label      label      Label24      FORM1      WordWrap = .F.
Caption = "Urlaubsgeld"
Height = 18
Left = 467
Top = 380
Width = 136
BackColor = 128,255,255
Name = "Label24"
      textbox      textbox      wei1      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 608
Top = 401
Width = 81
Name = "wei1"
     XPROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If keyascii = 13
	xweihnachtsgeld(1) = mysv.Wei1.Value &&vorher ...geld(1+1)
	If myindex = 1
		mysv.loh2.SetFocus
	Endif

	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE LostFocus
xweihnachtsgeld(1) = mysv.Wei1.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                   ?   %   f        
               U  k      %  
d  T     % S 
     
  	 
   U  KEYASCII
 NSHIFTALTCTRL XWEIHNACHTSGELD MYSV WEI1 VALUE MYINDEX LOH2 SETFOCUS	 SVZENTRUM CLICK)  T     
     U  XWEIHNACHTSGELD MYSV WEI1 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus    1   A  A 2  1                             
     M  
    )                           label      label      Label25      FORM1      WordWrap = .F.
Caption = "Weihnachtsgeld"
Height = 18
Left = 467
Top = 403
Width = 136
BackColor = 128,255,255
Name = "Label25"
      line      line      Line1      FORM1      @Height = 0
Left = 597
Top = 425
Width = 101
Name = "Line1"
      textbox      textbox      jasum1      FORM1      Format = "999999.99"
Height = 22
InputMask = "999999.99"
Left = 608
ReadOnly = .T.
Top = 428
Width = 81
Name = "jasum1"
      9PROCEDURE GotFocus
thisform.MoDurch1.SetFocus
ENDPROC
                                         %   ^       v      p             U   
      U  THISFORM MODURCH1 SETFOCUS GotFocus,     1  1                       .       )                            label      label      Label26      FORM1      WordWrap = .F.
Caption = "Jahresgehalt"
Height = 18
Left = 467
Top = 430
Width = 136
BackColor = 128,255,255
Name = "Label26"
      textbox      textbox      modurch1      FORM1      Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 608
ReadOnly = .T.
Top = 459
Width = 81
BackColor = 255,255,0
DisabledBackColor = 255,255,0
BorderColor = 255,255,0
Name = "modurch1"
      1PROCEDURE GotFocus
mysv.loh1.SetFocus
ENDPROC
                                      e   %   V       n      h             U   
      U  MYSV LOH1 SETFOCUS GotFocus,     1  1                       &       )                            label      label      Label27      FORM1      WordWrap = .F.
Caption = "Monatsdurchschnitt"
Height = 18
Left = 467
Top = 461
Width = 136
BackColor = 128,255,255
Name = "Label27"
      shape      shape      vielleichtback2      FORM1      Top = 536
Left = 436
Height = 127
Width = 284
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "vielleichtback2"
      shape      shape      vielleichtback3      FORM1      Top = 536
Left = 720
Height = 127
Width = 274
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,255
BorderColor = 255,255,255
Name = "vielleichtback3"
      label      label      label13      FORM1      WordWrap = .T.
Caption = "Berechnung der Geringfgigkeitsgrenze Monatslohn x Monate = Jahreslohn"
Height = 33
Left = 754
Top = 314
Width = 227
BackColor = 128,255,255
Name = "label13"
      textbox      textbox      loh2      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 751
Top = 355
Width = 67
Name = "loh2"
     PROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If keyascii = 13
	Lohn(2) = mysv.loh2.Value
	mysv.url2.SetFocus
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE Valid
Lohn(2) = mysv.loh2.Value
mysv.svzentrum.click &&Do attached
RETURN .t.
ENDPROC
                                      %   9      r     Z            U  V      %  
O  T    
    
   	   U
  KEYASCII
 NSHIFTALTCTRL LOHN MYSV LOH2 VALUE URL2 SETFOCUS	 SVZENTRUM CLICK0  T     
     Ba U  LOHN MYSV LOH2 VALUE	 SVZENTRUM CLICK KeyPress,      Valid     1    A 2  q 1                                   
  
    )                           label      label      Label29      FORM1      yFontSize = 12
Caption = "x"
Height = 22
Left = 824
Top = 355
Width = 11
BackColor = 128,255,255
Name = "Label29"
      textbox      textbox      mon2      FORM1      zAlignment = 3
Value = 1
Format = "99"
Height = 22
InputMask = "99"
Left = 838
Top = 355
Width = 33
Name = "mon2"
     MPROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If mysv.Mon2.Value > 12
	mysv.Mon2.Value = 12
Endif

If keyascii = 13
	Monate(2) = mysv.Mon2.Value
	mysv.url1.SetFocus
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE LostFocus
Monate(2) = mysv.Mon2.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                   ?   %   d                       U        %   5  T     %  
}  T    
    
   	   U
  KEYASCII
 NSHIFTALTCTRL MYSV MON2 VALUE MONATE URL1 SETFOCUS	 SVZENTRUM CLICK)  T     
     U  MONATE MYSV MON2 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus
    1  r1A   A 2  1                                  B      )                           label      label      Label30      FORM1      {FontSize = 12
Caption = '"="'
Height = 22
Left = 874
Top = 355
Width = 11
BackColor = 128,255,255
Name = "Label30"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            textbox      textbox      allmo2      FORM1      Enabled = .T.
Format = "999999.99"
Height = 22
InputMask = "999999.99"
Left = 892
ReadOnly = .T.
Top = 355
Width = 81
Name = "allmo2"
      textbox      textbox      url2      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 892
Top = 378
Width = 81
Name = "url2"
     PROCEDURE KeyPress
LPARAMETERS keyascii, nShiftAltCtrl
If KeyAscii = 13 
	urlaubsgeld(2) = mysv.url2.Value
	mysv.Wei2.SetFocus
	mysv.svzentrumclick &&Do attached
endif
ENDPROC
PROCEDURE LostFocus
urlaubsgeld(2) = mysv.url2.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                   W   %   ;      v     `            U  S      %  
L  T    
    
     U	  KEYASCII
 NSHIFTALTCTRL URLAUBSGELD MYSV URL2 VALUE WEI2 SETFOCUS SVZENTRUMCLICK)  T     
     U  URLAUBSGELD MYSV URL2 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus     1    A 2  1                                     	    )                           label      label      Label31      FORM1      WordWrap = .F.
Caption = "Urlaubsgeld"
Height = 18
Left = 751
Top = 392
Width = 136
BackColor = 128,255,255
Name = "Label31"
      textbox      textbox      wei2      FORM1      lFormat = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 892
Top = 401
Width = 81
Name = "wei2"
     PROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If keyascii = 13
	xweihnachtsgeld(2) = mysv.Wei2.Value
	mysv.svzentrum.Click &&Do attached
Endif
ENDPROC
PROCEDURE LostFocus
xweihnachtsgeld(2) = mysv.Wei2.Value
mysv.svzentrum.click &&Do attached
ENDPROC
                                   Z   %   +      d  
   P            U  I      %  
B  T    
      U  KEYASCII
 NSHIFTALTCTRL XWEIHNACHTSGELD MYSV WEI2 VALUE	 SVZENTRUM CLICK)  T     
     U  XWEIHNACHTSGELD MYSV WEI2 VALUE	 SVZENTRUM CLICK KeyPress,     	 LostFocus     1   A 2  1                                     	    )                           label      label      Label32      FORM1      WordWrap = .F.
Caption = "Weihnachtsgeld"
Height = 18
Left = 751
Top = 403
Width = 136
BackColor = 128,255,255
Name = "Label32"
      line      line      Line2      FORM1      @Height = 0
Left = 881
Top = 425
Width = 101
Name = "Line2"
      textbox      textbox      jasum2      FORM1      Format = "999999.99"
Height = 22
InputMask = "999999.99"
Left = 892
ReadOnly = .T.
Top = 428
Width = 81
Name = "jasum2"
      9PROCEDURE GotFocus
thisform.MoDurch2.SetFocus
ENDPROC
                                         %   ^       v      p             U   
      U  THISFORM MODURCH2 SETFOCUS GotFocus,     1  1                       .       )                            label      label      Label33      FORM1      WordWrap = .F.
Caption = "Jahresgehalt"
Height = 18
Left = 751
Top = 430
Width = 136
BackColor = 128,255,255
Name = "Label33"
      textbox      textbox      modurch2      FORM1      Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 892
ReadOnly = .T.
Top = 471
Width = 81
BackColor = 255,255,0
DisabledBackColor = 255,255,0
BorderColor = 255,255,0
Name = "modurch2"
      1PROCEDURE GotFocus
mysv.loh2.SetFocus
ENDPROC
                                      e   %   V       n      h             U   
      U  MYSV LOH2 SETFOCUS GotFocus,     1  1                       &       )                            label      label      Label34      FORM1      WordWrap = .F.
Caption = "Monatsdurchschnitt"
Height = 18
Left = 751
Top = 461
Width = 136
BackColor = 128,255,255
Name = "Label34"
      label      label      SV136      FORM1      WordWrap = .F.
Caption = "Steuerklasse"
Height = 17
Left = 450
Top = 542
Width = 182
BackColor = 128,255,255
Name = "SV136"
      label      label      SV137      FORM1      zWordWrap = .F.
Caption = "KV"
Height = 17
Left = 450
Top = 560
Width = 182
BackColor = 128,255,255
Name = "SV137"
      label      label      SV138      FORM1      zWordWrap = .F.
Caption = "PV"
Height = 17
Left = 450
Top = 577
Width = 182
BackColor = 128,255,255
Name = "SV138"
      label      label      SV139      FORM1      zWordWrap = .F.
Caption = "RV"
Height = 17
Left = 450
Top = 592
Width = 182
BackColor = 128,255,255
Name = "SV139"
      label      label      SV140      FORM1      zWordWrap = .F.
Caption = "AV"
Height = 17
Left = 450
Top = 608
Width = 182
BackColor = 128,255,255
Name = "SV140"
      label      label      svw36      FORM1      WordWrap = .F.
Caption = "Steuerklasse"
Height = 17
Left = 736
Top = 542
Width = 182
BackColor = 128,255,255
Name = "svw36"
      label      label      svw37      FORM1      zWordWrap = .F.
Caption = "KV"
Height = 17
Left = 736
Top = 560
Width = 182
BackColor = 128,255,255
Name = "svw37"
      label      label      svw38      FORM1      zWordWrap = .F.
Caption = "PV"
Height = 17
Left = 736
Top = 577
Width = 182
BackColor = 128,255,255
Name = "svw38"
      label      label      svw39      FORM1      zWordWrap = .F.
Caption = "RV"
Height = 17
Left = 736
Top = 592
Width = 182
BackColor = 128,255,255
Name = "svw39"
      label      label      svw40      FORM1      zWordWrap = .F.
Caption = "AV"
Height = 17
Left = 736
Top = 608
Width = 182
BackColor = 128,255,255
Name = "svw40"
      
commandbutton      
commandbutton      	bertrag0      FORM1      [Top = 638
Left = 6
Height = 27
Width = 209
Caption = "bertragen"
Name = "bertrag0"
     %PROCEDURE Click
myindex = 0
&&ffentlicher Dienst
wohin = myindex
zi(1+33) = SVErg(1+ myindex, 36)
gefunden(1+0) = zi(1+33) &&: form1.z(33).Caption = zt33(zi(33))
DO z33inz50

If zi(1+33) > 52 
   zi(1+35) = 3
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 8
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
Else
   zi(1+35) = 0
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 0
   gefunden(1+2) = zi(1+36)
   DO kirchensteuerauswahl
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
EndIf

zi(1+37) = SVErg(1+ myindex, 37)
gefunden(1+3) = zi(1+37) &&: form1.z(37).Caption = zt37(zi(37))
DO z37inz52
zi(1+38) = SVErg(1+ myindex, 38)
myform1.z38.Caption = zt38(zi(1+38))
gefunden(1+4) = zi(1+38)
zi(1+39) = SVErg(1+ myindex, 39)
myform1.z39.Caption = zt39(zi(1+39))
gefunden(1+5) = zi(1+39)
zi(1+40) = SVErg(1+ myindex, 40)
myform1.z40.Caption = zt40(zi(1+40))
gefunden(1+6) = zi(1+40)

thisform.Speichern.click

&&lastclick = 145
&&berechnungauslsen

For HBE = 33 To 40
    zti = HBE
    lastclick = HBE + 100
    lastz = zi(1+HBE)
    DO zgridaktivieren
NEXT

zti = 26
lastclick = 126
lastz = zi(1+26)
DO zgridaktivieren

i = 0
If zi(1+37) = 129 
	i = 1
endif
If zi(1+38) = 8 
	i = 1
endif
If zi(1+39) = 9 
	i = 1
endif
If zi(1+39) = 10 
	i = 1
endif
If zi(1+40) = 4 
	i = 1
ENDIF

If i = 1 
   response = MsgBox("Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereich" + Chr(13) + "bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren." + Chr(13) + "Wollen Sie dafr den Assistenten aufrufen?", 4, "Assistent fr die Gleitzonen-Berechnung aufrufen?")
   indexi = 0
   If response = 6 &&JA
      indexi = 37
      myindexe = 38
      DO extraaktivieren
      thisform.release
   EndIf
EndIf
myform1.z50.Caption = zt50(zi(1+50))
myform1.z51.Caption = zt51(zi(1+51))
myform1.z52.Caption = zt52(zi(1+52))
myform1.z53.Caption = zt53(zi(1+53))



ENDPROC
                                   *l   %         A  M               U  
 T   
 T    T "C  $  T C"    %C" 4  T $ T   CC$ 	  T C$  T % T 
  CC%   T C%   T $  T   CC$ 	  T C$  T %  T C%    T 
  CC%   T C%   T &C  %  T C&  
  T 'C  &  T   CC'   T C'  T (C  '  T   CC(   T C(  T )C  (  T   CC)   T C) 
      !((3
 T   T  d T C     
 T 
 T ~ T C   
 T   %C& 
 T   %C' 
 T   %C( 	
 T   %C( 


 T   %C) 0
 T   % T CF Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereichC
 I bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren.C
 * Wollen Sie dafr den Assistenten aufrufen?1 Assistent fr die Gleitzonen-Berechnung aufrufen? 
 T   % 
 T %
 T  & ! 
  "    T #  CC3 $  T %  CC4 &  T '  CC5 (  T )  CC6 *  U+  MYINDEX WOHIN ZI SVERG GEFUNDEN Z33INZ50 MYFORM1 Z35 CAPTION ZT35 Z36 ZT36 KIRCHENSTEUERAUSWAHL Z37INZ52 Z38 ZT38 Z39 ZT39 Z40 ZT40 THISFORM	 SPEICHERN CLICK HBE ZTI	 LASTCLICK LASTZ ZGRIDAKTIVIEREN I RESPONSE MSGBOX INDEXI MYINDEXE EXTRAAKTIVIEREN RELEASE Z50 ZT50 Z51 ZT51 Z52 ZT52 Z53 ZT53 Click,     1   qq R1q1q 1q1qq qA qq qqq u Qq A   q  Q A Q A Q A Q A Q A Q   q  A A 4                             )                           
commandbutton      
commandbutton      	bertrag1      FORM1      ]Top = 638
Left = 222
Height = 27
Width = 209
Caption = "bertragen"
Name = "bertrag1"
     !PROCEDURE Click
myIndex = 1
&&ffentlicher Dienst
wohin = myindex
zi(1+33) = SVErg(1+ myindex, 36)
gefunden(1+0) = zi(1+33) &&: form1.z(33).Caption = zt33(zi(33))
DO z33inz50

If zi(1+33) > 52 
   zi(1+35) = 3
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 8
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
Else
   zi(1+35) = 0
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 0
   gefunden(1+2) = zi(1+36)
   DO kirchensteuerauswahl
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
EndIf

zi(1+37) = SVErg(1+ myindex, 37)
gefunden(1+3) = zi(1+37) &&: form1.z(37).Caption = zt37(zi(37))
DO z37inz52
zi(1+38) = SVErg(1+ myindex, 38)
myform1.z38.Caption = zt38(zi(1+38))
gefunden(1+4) = zi(1+38)
zi(1+39) = SVErg(1+ myindex, 39)
myform1.z39.Caption = zt39(zi(1+39))
gefunden(1+5) = zi(1+39)
zi(1+40) = SVErg(1+ myindex, 40)
myform1.z40.Caption = zt40(zi(1+40))
gefunden(1+6) = zi(1+40)

thisform.Speichern.click

&&lastclick = 145
&&berechnungauslsen

For HBE = 33 To 40
    zti = HBE
    lastclick = HBE + 100
    lastz = zi(1+HBE)
    DO zgridaktivieren
NEXT

zti = 26
lastclick = 126
lastz = zi(1+26)
DO zgridaktivieren

i = 0
If zi(1+37) = 129 
	i = 1
endif
If zi(1+38) = 8 
	i = 1
endif
If zi(1+39) = 9 
	i = 1
endif
If zi(1+39) = 10 
	i = 1
endif
If zi(1+40) = 4 
	i = 1
ENDIF

If i = 1 
   response = MsgBox("Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereich" + Chr(13) + "bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren." + Chr(13) + "Wollen Sie dafr den Assistenten aufrufen?", 4, "Assistent fr die Gleitzonen-Berechnung aufrufen?")
   indexi = 0
   If response = 6 &&JA
      indexi = 37
      myindexe = 38
      DO extraaktivieren
      thisform.release
   EndIf
EndIf
myform1.z50.Caption = zt50(zi(1+50))
myform1.z51.Caption = zt51(zi(1+51))
myform1.z52.Caption = zt52(zi(1+52))
myform1.z53.Caption = zt53(zi(1+53))

ENDPROC
                                   *l   %         A  M               U  
 T  
 T    T "C  $  T C"    %C" 4  T $ T   CC$ 	  T C$  T % T 
  CC%   T C%   T $  T   CC$ 	  T C$  T %  T C%    T 
  CC%   T C%   T &C  %  T C&  
  T 'C  &  T   CC'   T C'  T (C  '  T   CC(   T C(  T )C  (  T   CC)   T C) 
      !((3
 T   T  d T C     
 T 
 T ~ T C   
 T   %C& 
 T   %C' 
 T   %C( 	
 T   %C( 


 T   %C) 0
 T   % T CF Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereichC
 I bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren.C
 * Wollen Sie dafr den Assistenten aufrufen?1 Assistent fr die Gleitzonen-Berechnung aufrufen? 
 T   % 
 T %
 T  & ! 
  "    T #  CC3 $  T %  CC4 &  T '  CC5 (  T )  CC6 *  U+  MYINDEX WOHIN ZI SVERG GEFUNDEN Z33INZ50 MYFORM1 Z35 CAPTION ZT35 Z36 ZT36 KIRCHENSTEUERAUSWAHL Z37INZ52 Z38 ZT38 Z39 ZT39 Z40 ZT40 THISFORM	 SPEICHERN CLICK HBE ZTI	 LASTCLICK LASTZ ZGRIDAKTIVIEREN I RESPONSE MSGBOX INDEXI MYINDEXE EXTRAAKTIVIEREN RELEASE Z50 ZT50 Z51 ZT51 Z52 ZT52 Z53 ZT53 Click,     1   qq R1q1q 1q1qq qA qq qqq u Qq A   q  Q A Q A Q A Q A Q A Q   q  A A 2                             )                           
commandbutton      
commandbutton      	bertrag2      FORM1      ]Top = 635
Left = 468
Height = 27
Width = 209
Caption = "bertragen"
Name = "bertrag2"
     #PROCEDURE Click
myindex = 2
&&ffentlicher Dienst
wohin = myindex
zi(1+33) = SVErg(1+ myindex, 36)
gefunden(1+0) = zi(1+33) &&: form1.z(33).Caption = zt33(zi(33))
DO z33inz50

If zi(1+33) > 52 
   zi(1+35) = 3
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 8
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
Else
   zi(1+35) = 0
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 0
   gefunden(1+2) = zi(1+36)
   DO kirchensteuerauswahl
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
EndIf

zi(1+37) = SVErg(1+ myindex, 37)
gefunden(1+3) = zi(1+37) &&: form1.z(37).Caption = zt37(zi(37))
DO z37inz52
zi(1+38) = SVErg(1+ myindex, 38)
myform1.z38.Caption = zt38(zi(1+38))
gefunden(1+4) = zi(1+38)
zi(1+39) = SVErg(1+ myindex, 39)
myform1.z39.Caption = zt39(zi(1+39))
gefunden(1+5) = zi(1+39)
zi(1+40) = SVErg(1+ myindex, 40)
myform1.z40.Caption = zt40(zi(1+40))
gefunden(1+6) = zi(1+40)

thisform.Speichern.click

&&lastclick = 145
&&berechnungauslsen

For HBE = 33 To 40
    zti = HBE
    lastclick = HBE + 100
    lastz = zi(1+HBE)
    DO zgridaktivieren
NEXT

zti = 26
lastclick = 126
lastz = zi(1+26)
DO zgridaktivieren

i = 0
If zi(1+37) = 129 
	i = 1
endif
If zi(1+38) = 8 
	i = 1
endif
If zi(1+39) = 9 
	i = 1
endif
If zi(1+39) = 10 
	i = 1
endif
If zi(1+40) = 4 
	i = 1
ENDIF

If i = 1 
   response = MsgBox("Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereich" + Chr(13) + "bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren." + Chr(13) + "Wollen Sie dafr den Assistenten aufrufen?", 4, "Assistent fr die Gleitzonen-Berechnung aufrufen?")
   indexi = 0
   If response = 6 &&JA
      indexi = 37
      myindexe = 38
      DO extraaktivieren
      thisform.release
   EndIf
EndIf
myform1.z50.Caption = zt50(zi(1+50))
myform1.z51.Caption = zt51(zi(1+51))
myform1.z52.Caption = zt52(zi(1+52))
myform1.z53.Caption = zt53(zi(1+53))


ENDPROC
                                   *l   %         A  M               U  
 T  
 T    T "C  $  T C"    %C" 4  T $ T   CC$ 	  T C$  T % T 
  CC%   T C%   T $  T   CC$ 	  T C$  T %  T C%    T 
  CC%   T C%   T &C  %  T C&  
  T 'C  &  T   CC'   T C'  T (C  '  T   CC(   T C(  T )C  (  T   CC)   T C) 
      !((3
 T   T  d T C     
 T 
 T ~ T C   
 T   %C& 
 T   %C' 
 T   %C( 	
 T   %C( 


 T   %C) 0
 T   % T CF Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereichC
 I bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren.C
 * Wollen Sie dafr den Assistenten aufrufen?1 Assistent fr die Gleitzonen-Berechnung aufrufen? 
 T   % 
 T %
 T  & ! 
  "    T #  CC3 $  T %  CC4 &  T '  CC5 (  T )  CC6 *  U+  MYINDEX WOHIN ZI SVERG GEFUNDEN Z33INZ50 MYFORM1 Z35 CAPTION ZT35 Z36 ZT36 KIRCHENSTEUERAUSWAHL Z37INZ52 Z38 ZT38 Z39 ZT39 Z40 ZT40 THISFORM	 SPEICHERN CLICK HBE ZTI	 LASTCLICK LASTZ ZGRIDAKTIVIEREN I RESPONSE MSGBOX INDEXI MYINDEXE EXTRAAKTIVIEREN RELEASE Z50 ZT50 Z51 ZT51 Z52 ZT52 Z53 ZT53 Click,     1   qq R1q1q 1q1qq qA qq qqq u Qq A   q  Q A Q A Q A Q A Q A Q   q  A A 3                             )                           
commandbutton      
commandbutton      	bertrag4      FORM1      ]Top = 635
Left = 756
Height = 27
Width = 209
Caption = "bertragen"
Name = "bertrag4"
      PROCEDURE Click
myindex = 3
&&ffentlicher Dienst
wohin = myIndex
zi(1+33) = SVErg(1+myIndex, 36)
gefunden(1+0) = zi(1+33) &&: form1.z(33).Caption = zt33(zi(33))
DO z33inz50

If zi(1+33) > 52 
   zi(1+35) = 3
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 8
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
Else
   zi(1+35) = 0
   myform1.z35.Caption = zt35(zi(1+35))
   gefunden(1+1) = zi(1+35)
   zi(1+36) = 0
   gefunden(1+2) = zi(1+36)
   DO kirchensteuerauswahl
   myform1.z36.Caption = zt36(zi(1+36))
   gefunden(1+2) = zi(1+36)
EndIf

zi(1+37) = SVErg(1+ myindex, 37)
gefunden(1+3) = zi(1+37) &&: form1.z(37).Caption = zt37(zi(37))
DO z37inz52
zi(1+38) = SVErg(1+ myindex, 38)
myform1.z38.Caption = zt38(zi(1+38))
gefunden(1+4) = zi(1+38)
zi(1+39) = SVErg(1+ myindex, 39)
myform1.z39.Caption = zt39(zi(1+39))
gefunden(1+5) = zi(1+39)
zi(1+40) = SVErg(1+ myindex, 40)
myform1.z40.Caption = zt40(zi(1+40))
gefunden(1+6) = zi(1+40)

thisform.Speichern.click

&&lastclick = 145
&&berechnungauslsen

For HBE = 33 To 40
    zti = HBE
    lastclick = HBE + 100
    lastz = zi(1+HBE)
    DO zgridaktivieren
NEXT

zti = 26
lastclick = 126
lastz = zi(1+26)
DO zgridaktivieren

i = 0
If zi(1+37) = 129 
	i = 1
endif
If zi(1+38) = 8 
	i = 1
endif
If zi(1+39) = 9 
	i = 1
endif
If zi(1+39) = 10 
	i = 1
endif
If zi(1+40) = 4 
	i = 1
ENDIF

If i = 1 
   response = MsgBox("Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereich" + Chr(13) + "bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren." + Chr(13) + "Wollen Sie dafr den Assistenten aufrufen?", 4, "Assistent fr die Gleitzonen-Berechnung aufrufen?")
   indexi = 0
   If response = 6 &&JA
      indexi = 37
      myindexe = 38
      DO extraaktivieren
      thisform.release
   EndIf
EndIf
myform1.z50.Caption = zt50(zi(1+50))
myform1.z51.Caption = zt51(zi(1+51))
myform1.z52.Caption = zt52(zi(1+52))
myform1.z53.Caption = zt53(zi(1+53))

ENDPROC
                                   *l   %         A  M               U  
 T  
 T    T "C  $  T C"    %C" 4  T $ T   CC$ 	  T C$  T % T 
  CC%   T C%   T $  T   CC$ 	  T C$  T %  T C%    T 
  CC%   T C%   T &C  %  T C&  
  T 'C  &  T   CC'   T C'  T (C  '  T   CC(   T C(  T )C  (  T   CC)   T C) 
      !((3
 T   T  d T C     
 T 
 T ~ T C   
 T   %C& 
 T   %C' 
 T   %C( 	
 T   %C( 


 T   %C) 0
 T   % T CF Fr die Berechnung der Sozialversicherungsbeitrge im bergangsbereichC
 I bei mehreren Beschftigungen ist eine besondere Berechnung durchzufhren.C
 * Wollen Sie dafr den Assistenten aufrufen?1 Assistent fr die Gleitzonen-Berechnung aufrufen? 
 T   % 
 T %
 T  & ! 
  "    T #  CC3 $  T %  CC4 &  T '  CC5 (  T )  CC6 *  U+  MYINDEX WOHIN ZI SVERG GEFUNDEN Z33INZ50 MYFORM1 Z35 CAPTION ZT35 Z36 ZT36 KIRCHENSTEUERAUSWAHL Z37INZ52 Z38 ZT38 Z39 ZT39 Z40 ZT40 THISFORM	 SPEICHERN CLICK HBE ZTI	 LASTCLICK LASTZ ZGRIDAKTIVIEREN I RESPONSE MSGBOX INDEXI MYINDEXE EXTRAAKTIVIEREN RELEASE Z50 ZT50 Z51 ZT51 Z52 ZT52 Z53 ZT53 Click,     1   qq R1q1q 1q1qq qA qq qqq u Qq A   q  Q A Q A Q A Q A Q A Q   q  A A 2                             )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 654
Left = 990
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      image      image      lstkurz      FORM1      cPicture = prgicons\lumier01.ico
Height = 32
Left = 393
Top = 542
Width = 32
Name = "lstkurz"
     }PROCEDURE Click
MESSAGEBOX("Die Versteuerung mu individuell ber eine Lohnsteuerkarte erfolgen." + Chr(13) + "Die hier beispielhaft angezeigte Lohnsteuerklasse ist dafr" + Chr(13) + "nicht magebend. Bitte prfen Sie separat, welche Lohnsteuerklasse" + Chr(13) + "bei Ihren personlichen Verhltnissen am gnstigsten ist.", 0, "Individuelle Wahl der Lohnsteuerklasse")
ENDPROC
                                   <   %                          U  ROCD Die Versteuerung mu individuell ber eine Lohnsteuerkarte erfolgen.C
 ; Die hier beispielhaft angezeigte Lohnsteuerklasse ist dafrC
 B nicht magebend. Bitte prfen Sie separat, welche LohnsteuerklasseC
 8 bei Ihren personlichen Verhltnissen am gnstigsten ist. & Individuelle Wahl der Lohnsteuerklassex U   Click,     1 1                       r      )                           image      image      lstinfo      FORM1      cPicture = prgicons\lumier01.ico
Height = 32
Left = 678
Top = 542
Width = 32
Name = "lstinfo"
     *PROCEDURE Click

do Case &&lstinfonr
Case lstinfonr = 1
     MESSAGEBOX("Wenn Sie keinen Ehegatten mit steuerpflichtigem Einkommen" + Chr(13) + "und kein sonstiges steuerpflichtiges Einkommen haben," + Chr(13) + "knnen Sie die 2%-ige Steuerbelastung des Arbeitgebers vermeiden," + Chr(13) + "indem Sie ihm individuelle Versteuerung ber Lohnsteuerkarte anbieten.", 0, "Versteuerung ber Lohnsteuerkarte?")
Case lstinfonr = 2
     MESSAGEBOX("Die Versteuerung mu individuell ber eine Lohnsteuerkarte erfolgen." + Chr(13) + "Die hier beispielhaft angezeigte Lohnsteuerklasse ist dafr" + Chr(13) + "nicht magebend. Bitte prfen Sie separat, welche Lohnsteuerklasse" + Chr(13) + "bei Ihren personlichen Verhltnissen am gnstigsten ist.", 0, "Individuelle Wahl der Lohnsteuerklasse")
Endcase
ENDPROC
         o  o                           %         &                 U  
 H
    eGC9 Wenn Sie keinen Ehegatten mit steuerpflichtigem EinkommenC
 5 und kein sonstiges steuerpflichtiges Einkommen haben,C
 A knnen Sie die 2%-ige Steuerbelastung des Arbeitgebers vermeiden,C
 F indem Sie ihm individuelle Versteuerung ber Lohnsteuerkarte anbieten. " Versteuerung ber Lohnsteuerkarte?x   OCD Die Versteuerung mu individuell ber eine Lohnsteuerkarte erfolgen.C
 ; Die hier beispielhaft angezeigte Lohnsteuerklasse ist dafrC
 B nicht magebend. Bitte prfen Sie separat, welche LohnsteuerklasseC
 8 bei Ihren personlichen Verhltnissen am gnstigsten ist. & Individuelle Wahl der Lohnsteuerklassex  U 	 LSTINFONR Click,     1  qA 1                             )   o                        label      label      schlertitel      FORM1      bCaption = " Arbeitsumfang"
Height = 15
Left = 21
Top = 282
Width = 86
Name = "schlertitel"
      
commandbutton      
commandbutton      	svzentrum      FORM1      xTop = 33
Left = 900
Height = 22
Width = 79
Caption = "svzentrum"
Enabled = .F.
Visible = .F.
Name = "svzentrum"
     @PROCEDURE Click
*Procedure svzentrum2013
&&ffentlicher Dienst

mysv.HBKV.Visible = True
mysv.Schler.Visible = False
mysv.schlertitel.visible = false
mysv.GBKV.Visible = True
mysv.GBCheck1.Visible = True
mysv.Priv1.Visible = True
mysv.Priv2.Visible = True
*mysv.SVEntgelt.Visible = True
mysv.label5.visible = true
mysv.HBEuro.visible = true
mysv.vielleicht0.Visible = False
mysv.LSTinfo.Visible = False
mysv.Lstkurz.Visible = False

*mysv.HB1.Caption = "Zeitgeringfgige Beschftigung"
mysv.HBCheck.Visible = False
mysv.HR.Visible = False
myindexe = 0
For i = 0 To 3
	For j = 36 To 40
		SVErg(1+i, j) = 0
	Next
Next
With mysv &&SV
	If mysv.loh1.Value = 0 .Or. mysv.Mon1.Value = 0
		mysv.loh2.Value = 0
		Lohn(2) = 0
		mysv.Mon2.Value = 0
		Monate(2) = 0
		mysv.deckel2.Visible = True
		mysv.vielleicht3.Visible = True
	Else
		mysv.deckel2.Visible = False
		mysv.vielleicht3.Visible = False
	Endif

	For i = 1 To 2
		If Lohn(i) > 0
			If Monate(i) > 0
				allemonate(i) = Lohn(i) * Monate(i)
				gesamtgehalt(i) = allemonate(i) + xweihnachtsgeld(i) + urlaubsgeld(i)
				monatsdurchschnitt(i) = gesamtgehalt(i) / Monate(i)
			Else
				allemonate(i) = 0
				gesamtgehalt(i) = 0
				monatsdurchschnitt(i) = 0
			Endif
		Else
			allemonate(i) = 0
			gesamtgehalt(i) = 0
			monatsdurchschnitt(i) = 0
		ENDIF
		
		xxx= ALLTRIM(STR(i,3,0))
		mysv.AllMo&xxx..Value = allemonate(i)
		mysv.JaSum&xxx..Value = gesamtgehalt(i)
		mysv.MoDurch&xxx..Value = monatsdurchschnitt(i)
	Next

Endwith
Do Case && HBO
	Case HBO = 0 .Or. (HBO >= 7 .And. HBO <= 10)
		If HBE < 450.01

			mysv.vielleicht0.value = "Die Sozialversichrungspflicht fr Beschftigungen unter 450,01 Euro ist in den Spalten rechts daneben zu prfen."
			mysv.vielleicht0.Visible = True
			HBE = 0
			mysv.HBEuro.Value = 0

		Else
			mysv.vielleicht0.value = ""
			mysv.vielleicht0.Visible = False

		Endif
	Case (HBO >= 1 .And. HBO <= 6) .Or. (HBO >= 11 .And. HBO <= 12)
		mysv.vielleicht0.value = ""
		mysv.vielleicht0.Visible = False

Endcase



HBmassgebend = HBE
If HBE > 0 .And. monatsdurchschnitt(1) < 450.01
	HBmassgebend = HBE + monatsdurchschnitt(2)
Endif

If HBE > 0 .And. monatsdurchschnitt(1) > 450
	HBmassgebend = HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2)
Endif

If HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
	HBmassgebend = HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2)
Endif

If HBE = 0 .And. monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
	HBmassgebend = monatsdurchschnitt(1) + monatsdurchschnitt(2)
Endif

If HBE = 0 .And. monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
	HBmassgebend = HBE
Endif

If HBO = 2 .And. Schule = 1

	If HBE < 450.01

		HBmassgebend = monatsdurchschnitt(1) + monatsdurchschnitt(2)
	Endif
Endif
If monatsdurchschnitt(1) = 0
	mysv.vielleicht2.Visible = True
Else
	mysv.vielleicht2.Visible = False
Endif
If monatsdurchschnitt(2) = 0
	mysv.vielleicht3.Visible = True
Else
	mysv.vielleicht3.Visible = False
Endif


If HBE > 0

	anzahl = 1
	If monatsdurchschnitt(1) < 450.01
		If monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.1
			anzahl = 1
		Else
			anzahl = 2
		Endif
	Else
		anzahl = 2
	Endif
Else
	If monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
		If monatsdurchschnitt(1) > 0 .And. monatsdurchschnitt(2) > 0
			anzahl = 2
		Else
			anzahl = 1
		Endif
	Else
		anzahl = 1
	Endif
ENDIF

&&Schlerbesonderheit
If HBO = 2 .And. Schule = 1 .And. HBE < 450.01
	If monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
		If monatsdurchschnitt(1) > 0 .And. monatsdurchschnitt(2) > 0
			anzahl = 2
		Else
			anzahl = 1
		Endif
	Else
		anzahl = 1
	Endif
Endif

&&***********************************************Hauptbeschftigung

If zi(1+33) < 47
	SVErg(1+0, 36) = zi(1+33)
Else
	SVErg(1+0, 36) = 0
ENDIF

If zi(1+37) < 122
	Do Case && zi(1+46)
		Case zi(1+46) = 0
			SVErg(1+0, 37) = ((getkvbeitrag(zi(1+2), zi(1+20), 0)) - 1000) / 5
		Case (zi(1+46) >= 1 .And. zi(1+46) <= 33)
			If zi(1+37) = (getkvbeitrag(zi(1+46) + 1, zi(1+20), 0) - 1000) / 5 .Or. zi(1+37) = (getkvbeitrag(zi(1+46) + 1, zi(1+20), 0) - 1000) / 5 + 1
			Else
				If getkvbeitrag(zi(1+46) + 1, zi(1+20), 0) > 0
					SVErg(1+0, 37) = (getkvbeitrag(zi(1+46) + 1, zi(1+20), 0) - 1000) / 5
				Else
					SVErg(1+0, 37) = 0
				Endif
			Endif
		Case zi(1+46) = 34
			zi(1+37) = 126 &&(kvbeitrag(zi(1+2), zi(1+20))) - 1000 / 5
	Endcase
Endif

SVErg(1+0, 38) = 0
SVErg(1+0, 40) = 0

*mysv.SVEntgelt.Visible = True
mysv.label5.visible = true
mysv.HBEuro.visible = true

Do Case && HBO
	Case  Inlist(HBO, 0, 9 )&&Angestellter, Arbeiter, Berufsunfhigkeitsrentner
		Do HBNormal &&Do attached

	Case HBO = 1 &&Beamte, Zw-Prakt. Rentner, Selbst.
		&&SVErg(1+0, 36) = 0
		Do HBbefreit &&Do attached
		
	Case HBO = 2 &&Schler
		&&SVErg(1+0, 36) = 0
		mysv.HBKV.Visible = False
		mysv.Schler.Visible = True
		mysv.schlertitel.visible = true
		Do Case && Schule
			Case Schule = 0
				Do HBbefreit &&Do attached
			Case Schule = 1
				mysv.SVEntgelt.Visible = True
				Do Case && HBE
					Case HBE < 450.01
						If HBE + monatsdurchschnitt(2) < 450.01
							Do HBbefreit &&Do attached
							*mysv.SVEntgelt.Visible = True
							mysv.label5.visible = true
							mysv.HBEuro.visible = true							
						Else
							Do HBNormal &&Do attached
						Endif
					Case HBE > 450
						Do HBNormal &&Do attached
				Endcase
			Case Schule = 2
				Do HBbefreit &&Do attached
			Case Schule = 3
				If HBE < 450.01
					Do HBmini &&Do attached
				Else
					Do HBNormal &&Do attached
				Endif
		ENDCASE
		
		SVErg(1+0, 40) = 2
		
	Case HBO = 3 &&Auszubildender siehe 0
		If zi(1+33) < 47
			SVErg(1+0, 36) = zi(1+33)
		Else
			SVErg(1+0, 36) = 0
		Endif

		Do kvbeitragholen2 &&Do attached

		SVErg(1+0, 39) = 0
		SVErg(1+0, 40) = 0
	Case HBO = 4 &&Studentische Aushilfe
		&&SVErg(1+0, 36) = 0
		mysv.HBCheck.Visible = True
		If EMPTY(std20) &&vorher = False
			mysv.HBKV.Visible = False
		Endif

		SVErg(1+0, 37) = 123
		SVErg(1+0, 38) = 4

		If HBmassgebend > 850
			SVErg(1+0, 39) = 0
			
			If .not. EMPTY(std20) &&vorher = True
				mysv.HBKV.Visible = True
				Do kvbeitragholen2 &&Do attached
				SVErg(1+0, 40) = 0
			Endif
		Else
			mysv.HR.Visible = True
			If EMPTY(RVvoll) &&vorher = False
				SVErg(1+0, 39) = 7
			Else
				SVErg(1+0, 39) = 8
			ENDIF
			
			If .not. EMPTY(std20) &&vorher = True
				mysv.HBKV.Visible = False
				DO Gleitzone
			Endif
		Endif
	Case HBO = 5 &&Student Vor/Nachpraktikum
		If zi(1+33) < 47
			SVErg(1+0, 36) = zi(1+33)
		Else
			SVErg(1+0, 36) = 0
		Endif

		Do kvbeitragholen2 &&Do attached

		SVErg(1+0, 39) = 0
		SVErg(1+0, 40) = 0

	Case HBO = 6 &&Zwischenpraktikum
		mysv.HBKV.Visible = False
		mysv.HBCheck.Visible = False

		SVErg(1+0, 37) = 123
		SVErg(1+0, 38) = 4
		SVErg(1+0, 39) = 1
		SVErg(1+0, 40) = 2

	Case HBO = 7 &&Altersrentner ber 65

		mysv.HBCheck.Visible = False
		mysv.GBCheck1.Visible = False

		If zi(1+33) < 47
			SVErg(1+0, 36) = zi(1+33)
		Else
			SVErg(1+0, 36) = 0
		ENDIF
		
		If HBmassgebend < 850.01
			If anzahl = 2
				SVErg(1+0, 37) = 129
			Else
				SVErg(1+0, 37) = 128
			Endif
		Else
			Do kvbeitragholen2 &&Do attached
		ENDIF
		
		SVErg(1+0, 38) = 4
		SVErg(1+0, 39) = 6
		SVErg(1+0, 40) = 5
		
		If HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
			DO HBNormal
		Endif

	Case HBO = 8 &&Altersrentner unter 65
		mysv.HBCheck.Visible = False
		mysv.GBCheck1.Visible = False
		
		If zi(1+33) < 47
			SVErg(1+0, 36) = zi(1+33)
		Else
			SVErg(1+0, 36) = 0
		ENDIF
		
		If HBmassgebend < 850.01
			If anzahl = 2
				SVErg(1+0, 37) = 129
			Else
				SVErg(1+0, 37) = 128
			Endif
		Else
			Do kvbeitragholen2 &&Do attached
		ENDIF
		
		SVErg(1+0, 38) = 4
		SVErg(1+0, 39) = 6
		
		If HBmassgebend < 850.01
			If anzahl = 2
				SVErg(1+0, 40) = 4
			Else
				SVErg(1+0, 40) = 3
			Endif
		Else
			SVErg(1+0, 40) = 2
		ENDIF
		
		If HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
			DO HBNormal
		Endif

	Case HBO = 9 &&Berufsunfhigkeitsrenter
		mysv.HBCheck.Visible = False
		mysv.GBCheck1.Visible = False

	Case HBO = 10 &&Erwerbsunfhigkeitsrentner
		mysv.HBCheck.Visible = False
		mysv.GBCheck1.Visible = False

		If HBmassgebend > 850
			If zi(1+33) < 47
				SVErg(1+0, 36) = zi(1+33)
			Else
				SVErg(1+0, 36) = 0
			Endif

			Do kvbeitragholen2 &&Do attached

			SVErg(1+0, 39) = 0
		Else
			mysv.HR.Visible = True
			Do Gleitzone &&Do attached
		ENDIF
		
		SVErg(1+0, 40) = 2

		If HBE + monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
			DO HBNormal
		Endif

	Case Inlist(HBO, 11, 12)&&Selbstndig, Keine
		HBE = 0
		mysv.HBEuro.Value = 0
		
*		mysv.SVEntgelt.Visible = False
		mysv.label5.visible = false
		mysv.HBEuro.visible = false
		mysv.HBCheck.Visible = False
		mysv.vielleicht0.Visible = True
		mysv.HBKV.Visible = False
Endcase

&&***********************************************Kurzfristige Beschftigung
myindexe = 1
mysv.bertrag1.Visible = True
Do Case && KBO
	Case Inlist(KBO, 0, 1)
		mysv.KBCheck0.Visible = True
		mysv.KBCheckB0.Visible = True
		
		If mysv.KBCheck0.Value = 0
			&& nicht regelmig
			If mysv.KBCheck1.Value = 0
				&&bis 450 Euro
				mysv.KBCheck2.Visible = False
				mysv.KBCheckB2.Visible = False
				Do kurzfristig &&Do attached
			Else&&ber 450 Euro
				mysv.KBCheck2.Visible = True
				mysv.KBCheckB2.Visible = True
				If mysv.KBCheck2.Value = 0
					&&nicht berufsmig
					Do kurzfristig &&Do attached
				Else
					Do pflichtig &&Do attached
				Endif
			Endif
		Else&&regelmig
			Do pflichtig &&Do attached
		ENDIF
		
	Case KBO = 2
		mysv.KBCheck0.Visible = False
		mysv.KBCheck2.Visible = False
		mysv.KBCheckB0.Visible = False
		mysv.KBCheckB2.Visible = False
		Do pflichtig &&Do attached
Endcase
&&***********************************************Erste Geringfgige
myindexe = 2
Do Case && HBO
	Case (HBO >= 0 .And. HBO <= 6)
		mysv.GBCheck1.Caption = "Verzicht auf die Beitrags- Befreiung in der RV"
		mysv.GBCheck1.Visible = True
		mysv.GBGrenze1.Visible = False
		mysv.GBGrenze2.Visible = False
	Case (HBO >= 7 .And. HBO <= 10)
		mysv.GBCheck1.Visible = False
		mysv.GBGrenze1.Visible = False
		mysv.GBGrenze2.Visible = False
Endcase

If HBE > 0
	If HBO = 2 .And. Schule = 1 .And. HBE < 450.01
		Do GB1keineHB &&Do attached
	Else
		If monatsdurchschnitt(1) > 450
			mysv.GBGrenze1.Visible = True
			&&If monatsdurchschnitt(2) > 0 Then GBGrenze(2).Visible = True
			If HBmassgebend < 850.01
				&&***************************
				mysv.GBCheck1.Caption = "AN zahlt auch im bergangsbereich die vollen RV-Beitrge"
				If anzahl = 2
					Do GB1Gleit2 &&Do attached
				Else
					Do GB1Gleit1 &&Do attached
				Endif
			Else
				Do GB1Normal &&Do attached
				mysv.GBCheck1.Visible = False
			Endif
		Else&&unter 450 = Mini *************************************************************
			mysv.GBCheck1.Caption = "Verzicht auf die Beitrags- Befreiung in der RV"
			Do GB1Mini &&Do attached
		Endif
	Endif
Else&& Keine Hauptbeschftigung******************************************************************
	Do GB1keineHB &&Do attached
Endif

&&***********************************************Weitere Geringfgige
myindexe = 3
If monatsdurchschnitt(2) > 0
	mysv.vielleicht3.Visible = False
Endif

If monatsdurchschnitt(2) > 0
	&&berhaupt rechnen
	If HBE > 0
		If monatsdurchschnitt(1) < 450.01
			&&1 Minijob ist frei
			Do Case && monatsdurchschnitt(1) + monatsdurchschnitt(2)
				Case monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
					Do GB2Mini &&Do attached
				Case monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
					If HBmassgebend > 850
						Do GB2Normal &&Do attached
					Else
						If anzahl = 2
							Do GB2Gleit2 &&Do attached
						Else
							Do GB2Gleit1 &&Do attached
						Endif
					Endif
			Endcase
		Else&&Keine Minijobs *********************
			Do Case && HBmassgebend
				Case HBmassgebend < 850.01
					If anzahl = 2
						Do GB2Gleit2 &&Do attached
					Else
						Do GB2Gleit1 &&Do attached
					Endif
				Case HBmassgebend > 850
					Do GB2Normal &&Do attached
			Endcase
		Endif
		&&Schlerbesonderheit
		Do Case && monatsdurchschnitt(1) + monatsdurchschnitt(2)
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
				Do GB2Mini &&Do attached
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
				If HBmassgebend > 850
					Do GB2Normal &&Do attached
				Else
					If anzahl = 2
						Do GB2Gleit2 &&Do attached
					Else
						Do GB2Gleit1 &&Do attached
					Endif
				Endif
		Endcase

		SVErg(1+3, 40) = 2

	Else&&Keine Hauptbeschftigung ***************************
		Do Case && monatsdurchschnitt(1) + monatsdurchschnitt(2)
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
				Do GB2Mini &&Do attached
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
				If monatsdurchschnitt(2) > 0
					mysv.GBGrenze2.Visible = True
				Endif

				If HBmassgebend > 850
					Do GB2Normal &&Do attached
				Else
					If anzahl = 2
						Do GB2Gleit2 &&Do attached
					Else
						Do GB2Gleit1 &&Do attached
					Endif
				Endif
		Endcase
	Endif
Endif

&&Steuern*******************************************************************
Do Case && HBE
	Case HBE = 0
		If monatsdurchschnitt(1) + monatsdurchschnitt(2) = 0
			If zi(1+33) < 48
				SVErg(1+1, 36) = zi(1+33)
			Else
				SVErg(1+1, 36) = 47
				mysv.Lstkurz.Visible = True
			Endif
		Else
			SVErg(1+1, 36) = 48
		Endif

		If monatsdurchschnitt(2) = 0
			Do Case && HBmassgebend
				Case HBmassgebend < 450.01
					SVErg(1+2, 36) = 53
					lstinfonr = 1
					mysv.LSTinfo.Visible = True
				Case HBmassgebend > 450
					If zi(1+33) < 48
						SVErg(1+2, 36) = zi(1+33)
					Else
						SVErg(1+2, 36) = 47
					Endif
					lstinfonr = 2
					mysv.LSTinfo.Visible = True
			Endcase

		Else
			Do Case && HBmassgebend
				Case HBmassgebend < 450.01
					SVErg(1+2, 36) = 53
					SVErg(1+3, 36) = 53
				Case HBmassgebend > 450
					If zi(1+33) < 48
						SVErg(1+2, 36) = zi(1+33)
						SVErg(1+3, 36) = zi(1+33)
					Else
						SVErg(1+2, 36) = 47
						SVErg(1+3, 36) = zi(1+33)
						lstinfonr = 2
						mysv.LSTinfo.Visible = True
					Endif
			Endcase
		Endif

	Case HBE > 0
		SVErg(1+1, 36) = 48

		Do Case && monatsdurchschnitt(1)
			Case monatsdurchschnitt(1) < 450.01
				Do Case && SVErg(1+2, 39)
					Case  Inlist(SVErg(1+2, 39), 2, 3, 11, 12)
						SVErg(1+2, 36) = 53
					Case SVErg(1+2, 39) = 0 .Or. SVErg(1+2, 39) =  1 .Or. (SVErg(1+2, 39) >= 4 .And. SVErg(1+2, 39) <= 10)
						SVErg(1+2, 36) = 48
				Endcase

			Case monatsdurchschnitt(1) > 450
				SVErg(1+2, 36) = 48
		Endcase

		Do Case && monatsdurchschnitt(1) + monatsdurchschnitt(2)
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) < 450.01
				Do Case && SVErg(1+3, 39)
					Case  Inlist(SVErg(1+3, 39), 2, 3, 11, 12)
						SVErg(1+3, 36) = 53
					Case SVErg(1+3, 39) = 0 .Or. SVErg(1+3, 39) =  1 .Or. (SVErg(1+3, 39) >= 4 .And. SVErg(1+3, 39) <= 10)
						SVErg(1+3, 36) = 48
				Endcase
			Case monatsdurchschnitt(1) + monatsdurchschnitt(2) > 450
				SVErg(1+3, 36) = 48
		Endcase
Endcase

&&Einfgen******************************************************************
mysv.SVH36.Caption = zt33(1+SVErg(1+0, 36))
mysv.SVH37.Caption = zt37(1+SVErg(1+0, 37))
mysv.SVH38.Caption = zt38(1+SVErg(1+0, 38))
mysv.SVH39.Caption = zt39(1+SVErg(1+0, 39))
mysv.SVH40.Caption = zt40(1+SVErg(1+0, 40))

mysv.SVK36.Caption = zt33(1+SVErg(1+1, 36))
mysv.SVK37.Caption = zt37(1+SVErg(1+1, 37))
mysv.SVK38.Caption = zt38(1+SVErg(1+1, 38))
mysv.SVK39.Caption = zt39(1+SVErg(1+1, 39))
mysv.SVK40.Caption = zt40(1+SVErg(1+1, 40))

mysv.SV136.Caption = zt33(1+SVErg(1+2, 36))
mysv.SV137.Caption = zt37(1+SVErg(1+2, 37))
mysv.SV138.Caption = zt38(1+SVErg(1+2, 38))
mysv.SV139.Caption = zt39(1+SVErg(1+2, 39))
mysv.SV140.Caption = zt40(1+SVErg(1+2, 40))

mysv.SVW36.Caption = zt33(1+SVErg(1+3, 36))
mysv.SVW37.Caption = zt37(1+SVErg(1+3, 37))
mysv.SVW38.Caption = zt38(1+SVErg(1+3, 38))
mysv.SVW39.Caption = zt39(1+SVErg(1+3, 39))
mysv.SVW40.Caption = zt40(1+SVErg(1+3, 40))

*Endproc
ENDPROC
     /    .  .                           %   J*      .  -  Y*            U  & T      T      T      T      T      T  	    T  
    T      T      T  
    T      T      T      T     
 T     (f  $((b T      
   ( %            T      T   T      T   T      T      ? T      T        ( %C    7 %C    ! T  C   C   * T   C   C  ! C  " ! T#  C    C    3 T    T     T#     x T    T     T#     T$ CC  Z) mysv.AllMo&xxx..Value = allemonate(i)
+ mysv.JaSum&xxx..Value = gesamtgehalt(i)
3 mysv.MoDurch&xxx..Value = monatsdurchschnitt(i)
  
 H/( %   %  % 
	X %& \( |@
& T  
  p Die Sozialversichrungspflicht fr Beschftigungen unter 450,01 Euro ist in den Spalten rechts daneben zu prfen. T  
   
 T&   T      T T  
     T  
    4 %  % 	 %  % 	 T  
     T  
    
 T' & ( %&   C# \( |@
	  T' & C#  ! %&  
 C# 	B T' & C# C#  ) %& C# C# \( |@
 T' & C# C#  ) %&   C# C# 	 T' C# C#  0 %&   C# C# \( |@
	
 T' &   %%  ( 	i %& \( |@
e T' C# C#    %C#   T  )     T  )     %C#   T       T       %&  
 T*  %C# \( |@
% %C# C# !|@
h
 T*  }
 T*   
 T*   #	 %C# C# 
	$ %C#   C#  	
 T*  	
 T*   	
 T*   / %%  ( 	 & \( |@
		 %C# C# 	$ %C#   C#  		
 T*  	
 T*   	
 T*    %C"+ /

 T $C"+  .
 T $   %C&+ z

 HT
 C/+  
6 T %CC+ C+  , % C/+  C/+ !	h %C&+ CC/+ C+  , 0 C&+ CC/+ C+  , , ' %CC/+ C+  ,  9 T %CC/+ C+  ,   T %    C/+ " T+ &~   T &  T (  T      T     
 HR C%  	n -  %  .  % 6 T      T      T     
 H (   .  ( 
 T  /   
 H&

 & \( |@

! %& C# \( |@

 .  T      T      
 -   & 
 -   ( 
 .  (  %& \( |@
 0   -    T ( %  %C"+ /
y T $C"+   T $   1  T '  T (  % _ T      %C2  T       T %{ T & %' R T '  %C2 
 T      1  T (   [ T      %C3  T ' ) T '  %C2 
W T      4    %   %C"+ /
 T $C"+   T $   1  T '  T (  %  T      T      T %{ T & T ' T ( % # T      T      %C"+ /
 T $C"+  % T $   %' Gz@
 %* l T %  T %   1   T & T ' T () %& C# C# \( |@
 -   %  T      T      %C"+ /
 T $C"+   T $   %' Gz@
 %*  T %  T %  ( 1   T & T ' %' Gz@
 %*  T (  T (   T ( ) %& C# C# \( |@
 -   % 	V T      T      % 
 T      T      %' R %C"+ /
 T $C"+   T $   1  T '  8 T      4   T () %& C# C# \( |@
 -   C% 
 T&   T      T      T      T      T  
    T      
 T  T  5   
 HN C6  Z T  7    T  8    %  7   G %  9    T  :    T  ;    <  C T  :    T  ;    %  :   0 <  ? =    V =   6  T  7    T  :    T  8    T  ;    =  
 T 
 H %   % 	sA T   > . Verzicht auf die Beitrags- Befreiung in der RV T      T  ?    T  @    %  % 
	 T      T  ?    T  @     %&  R/ %%  ( 	 & \( |@
	 A  N %C#  T  ?    %' Gz@
K T   > 8 AN zahlt auch im bergangsbereich die vollen RV-Beitrge %*  B   C    D  T       JA T   > . Verzicht auf die Beitrags- Befreiung in der RV E    a A  
 T  %C#   T       %C#   %&   %C# \( |@

 H% C# C# \( |@
 F  C# C#  %' RQ G   %* q H   I     
 H ' Gz@
 %*  H   I   ' R G   
 H% C# C# \( |@
? F  C# C#  %' Rv G   %*  H   I     T ( 
 H% C# C# \( |@
 F  C# C#  %C#  Q T  @     %' Rn G   %*  H   I      
 H$ &  ! %C# C#  V %C"+ 0
 T $C"+  R T $/ T       w T $0  %C#  | 
 Hx  ' \( |@
 T $5
 TJ  T      ' x  %C"+ 0
3  T $C"+  T  T $/ 
 TJ  T       !
 H ! ' \( |@
  T $5 T $5 ' ! %C"+ 0
=! T $C"+  T $C"+  ! T $/ T $C"+ 
 TJ  T         &  $ T $0
 H!" C# \( |@
"
 H""" CC' C" T $5O C'   C' " C'  C' 
	" T $0  C# " T $0 
 H"#% C# C# \( |@
#
 H!##" CC' \# T $5O C'   C' " C'  C' 
	# T $0  C# C# # T $0  " T  K > CC$ L " T  M > CC% N " T  O > CC& P " T  Q > CC' R " T  S > CC( T " T  U > CC$ L " T  V > CC% N " T  W > CC& P " T  X > CC' R " T  Y > CC( T " T  Z > CC$ L " T  [ > CC% N " T  \ > CC& P " T  ] > CC' R " T  ^ > CC( T " T  _ > CC$ L " T  ` > CC% N " T  a > CC& P " T  b > CC' R " T  c > CC( T  Ud  MYSV HBKV VISIBLE TRUE SCHLER FALSE SCHLERTITEL GBKV GBCHECK1 PRIV1 PRIV2 LABEL5 HBEURO VIELLEICHT0 LSTINFO LSTKURZ HBCHECK HR MYINDEXE I J SVERG LOH1 VALUE MON1 LOH2 LOHN MON2 MONATE DECKEL2 VIELLEICHT3
 ALLEMONATE GESAMTGEHALT XWEIHNACHTSGELD URLAUBSGELD MONATSDURCHSCHNITT XXX HBO HBE HBMASSGEBEND SCHULE VIELLEICHT2 ANZAHL ZI GETKVBEITRAG HBNORMAL	 HBBEFREIT	 SVENTGELT HBMINI KVBEITRAGHOLEN2 STD20 RVVOLL	 GLEITZONE	 BERTRAG1 KBO KBCHECK0	 KBCHECKB0 KBCHECK1 KBCHECK2	 KBCHECKB2 KURZFRISTIG	 PFLICHTIG CAPTION	 GBGRENZE1	 GBGRENZE2
 GB1KEINEHB	 GB1GLEIT2	 GB1GLEIT1	 GB1NORMAL GB1MINI GB2MINI	 GB2NORMAL	 GB2GLEIT2	 GB2GLEIT1	 LSTINFONR SVH36 ZT33 SVH37 ZT37 SVH38 ZT38 SVH39 ZT39 SVH40 ZT40 SVK36 SVK37 SVK38 SVK39 SVK40 SV136 SV137 SV138 SV139 SV140 SVW36 SVW37 SVW38 SVW39 SVW40 Click,     1 41111112111131 qqA A  111111 11A raa 111A  111A r1A B  21 1 11B A11B  QA A A A  A A A Q1 1A Q1 1A  Q   A   A  A   A   A A A   A   A A T A R QaQ q A A Q1A A 31 Qq r 211 q 1 q 21 q A !q A q q  q A A Q A r 2 1A "1q A  1  A 1q A A Q A r 1121R A  A  q A q A 11R A  A  q A  A  A q A 1111"Q A r  1q A q A R 131111A  1 Q11rr21q  11qr  q A A  q A 1111q A   111111A q  a1q  q A  q 1A  q A A  q A  Q1A R Qq !q  q  q A A A   q  q A !q A A  Qq !q  q  q A A A   Qq Q1A "q  q  q A A A A A  Q 1A  A R  1!Q A  1A   !Q  1A A A   !A bA  Q !A A A #!!!!"!!!!"!!!!"!!!!3                       @      )   .                        
commandbutton      
commandbutton      haushaltsscheck      FORM1      Top = 54
Left = 903
Height = 19
Width = 76
Caption = "haushaltsscheck"
Enabled = .F.
Visible = .F.
Name = "haushaltsscheck"
     .PROCEDURE Click
thisform.vielleicht2.Visible = True
thisform.bertrag2.Visible = False
thisform.vielleicht2.value = "Der AG hat die Abzge" + chr(13) + "(2 % Pauschalsteuern," + chr(13) + " 5 % KV, 5 % RV) im" + chr(13) + "Haushaltsscheck-Verfahren an die Bundesknappschaft abzufhren."

ENDPROC
                                   
/   %   D      ]     S            U    T      T      T     Der AG hat die AbzgeC
  (2 % Pauschalsteuern,C
   5 % KV, 5 % RV) imC
 > Haushaltsscheck-Verfahren an die Bundesknappschaft abzufhren. U  THISFORM VIELLEICHT2 VISIBLE TRUE	 BERTRAG2 FALSE VALUE Click,     1 11
2                       #      )                           label      label      	GBGrenze1      FORM1      FontBold = .T.
FontSize = 12
WordWrap = .T.
Caption = "Geringsfgigkeitsgrenze berschritten"
Height = 40
Left = 470
Top = 264
Width = 226
ForeColor = 255,0,0
BackColor = 128,255,255
Name = "GBGrenze1"
      label      label      	GBGRenze2      FORM1      WordWrap = .T.
Caption = "Die einzelnen entgeltgeringfgigen Beschftigungen berschreiten zusammen die Grenze von 450."
Height = 52
Left = 754
Top = 258
Width = 206
BackColor = 128,255,255
Name = "GBGRenze2"
      editbox      editbox      vielleicht3      FORM1      Height = 126
Left = 720
ReadOnly = .T.
ScrollBars = 0
Top = 536
Width = 272
BackColor = 128,255,255
DisabledBackColor = 128,255,255
DisabledForeColor = 0,0,0
BorderColor = 255,255,255
Value = 
Name = "vielleicht3"
      editbox      editbox      vielleicht2      FORM1      Height = 126
Left = 436
ReadOnly = .T.
ScrollBars = 0
Top = 536
Width = 282
BackColor = 128,255,255
DisabledBackColor = 128,255,255
DisabledForeColor = 0,0,0
BorderColor = 255,255,255
Name = "vielleicht2"
      editbox      editbox      vielleicht1      FORM1      Height = 126
Left = 220
ReadOnly = .T.
ScrollBars = 0
Top = 536
Width = 215
BackColor = 64,128,128
DisabledBackColor = 64,128,128
DisabledForeColor = 0,0,0
BorderColor = 255,255,255
Name = "vielleicht1"
      editbox      editbox      vielleicht0      FORM1      Height = 126
Left = 4
ReadOnly = .T.
ScrollBars = 0
Top = 536
Width = 215
BackColor = 0,128,128
DisabledBackColor = 0,128,128
DisabledForeColor = 0,0,0
BorderColor = 255,255,255
Name = "vielleicht0"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LR0XQYZR1402243948      /  F      ]                                                       WINDOWS _4LR0XQYZS1430476207                      z                                               WINDOWS _4LR0XQYZT1363648912*      *  *  *  *                                                           WINDOWS _4LR0XQYZU1394102535w+      +  +  +  +      ^,  5                                               WINDOWS _4LR0XQYZV1382249233;      ;  ;  ;  	<      <  
=                                               WINDOWS _4LR0XQYZW1402244819>      >  .>  >>  K>      >  ?                                               WINDOWS _4LR0XQYZX1419008394A      A  +A  ;A  HA      A                                                 WINDOWS _4LR0XQYZY1417244793        !  1  >                                                       WINDOWS _4LR0XQYZZ1382249233                                                                   WINDOWS _4LR0XQZ001402903925        !  1  >                                                       WINDOWS _4LR0XQZ011382249233      $  1  >  K                                                           WINDOWS _4LR0XQYZR1398954899          %  2        4                                               WINDOWS _4LR0XQZ031382249233#      6  I  ]  j        )                                               WINDOWS _4LR0XQZ041398954899      *  9  G  T      H  n                                               WINDOWS _4LR0XQZ051398954899]      l  {          s                                                 WINDOWS _4LR0XQZ061382249233                                                                       WINDOWS _4LR0XQZ071382249233S      b  q  ~        s                                                 WINDOWS _4LR0XQZ081382249233      .  =  N  [      F                                                 WINDOWS _4LR0XQYZR1382249233     ! . < I                                                          WINDOWS _4LR0XQZ0A1382249233                                                                  WINDOWS _4LR0XQZ0B1382249233                                                                  WINDOWS _4LR0XQYZR1382249233      - : G T                                                          WINDOWS _4LR0XQYZR1382249233        - :                                                          WINDOWS _4LR0XQYZR1398954899      ) 7 D      C                                              WINDOWS _4LR0XQYZS13822492332	     G	 \	 g	 t	     	 ,
                                              WINDOWS _4LR0XQYZT1216654565
      
  '                                                          WINDOWS _4LR0XQYZU1398954899              
                                              WINDOWS _4LR0XQYZV1382249233             m                                               WINDOWS _4LR0XQYZW1398954899n     }                                                       WINDOWS _4LR0XQYZX1382249233             Y                                               WINDOWS _4LR0XQYZY1398954899X     g v       m                                               WINDOWS _4LR0XQYZZ1382249233             F }                                              WINDOWS _4LR0XQZ001398954899G     V e s      [                                               WINDOWS _4LR0XQZ011382249233n!     ! ! ! !     2" h"                                              WINDOWS _4LR0XQYZR13989548991#     @# O# ]# j#     F$ j%                                              WINDOWS _4LR0XQYZU1382249233Y'     n' ' ' '     ( V(                                              WINDOWS _4LR0XQYZR1398954899 )     /) >) L) Y)     4* X+                                              WINDOWS _4LR0XQYZS1382249233G-     \- q- |- -     . A.                                              WINDOWS _4LR0XQYZT1398954899
/     / (/ 6/ C/     0 C1                                              WINDOWS _4LR0XQYZU138224923323     G3 \3 h3 u3     3 /4                                              WINDOWS _4LR0XQYZR13989548994     5 5 &5 35     6 57                                              WINDOWS _4LR0XQYZS1382249233$9     99 N9 Y9 f9     9 :                                              WINDOWS _4LR0XQYZT1398954899:     : ; ; !;     ; $=                                              WINDOWS _4LR0XQYZU1382249233?     (? =? I? V?     ? @                                              WINDOWS _4LR16UKT91398954899@     @ @ A A     A C                                              WINDOWS _4LR16UKTA1398954899E     E #E 2E ?E     F BG                                              WINDOWS _4LR0XQZ0313822494861I     @I OI _I lI     I YK                                              WINDOWS _4LR0XQZ041382249538L     L L L 	M     yM SN                                              WINDOWS _4LR0XQZ051382249538O     O O O P     sP MQ                                              WINDOWS _4LR0XQYZS1382249538R     R R R R     mS ET                                              WINDOWS _4LR16UKTB1382249538U     U U U U     eV ?W                                              WINDOWS _4LR16UKTC1382249538X     X X X X     _Y 7Z                                              WINDOWS _4LR0XQZ061216654565[     [ [ [ [                                                          WINDOWS _4LR0XQZ0712166545656\     B\ N\ [\ h\                                                          WINDOWS _4LR0XQYZS1216654565\     \ \ \ \                                                          WINDOWS _4LR16UKTP1216654565J]     V] b] o] |]                                                          WINDOWS _4LR16UKTQ1216654565]     ] ] ] ^                                                          WINDOWS _4LR0XQZ081382249233^^     k^ x^ ^ ^                                                          WINDOWS _4LR0XQYZR1382249233+_     8_ E_ T_ a_                                                          WINDOWS _4LR0XQZ0A1382249233_     ` ` !` .`                                                          WINDOWS _4LR0XQYZS1382249233`     ` ` ` `                                                          WINDOWS _4LR170UOC1382249233a     a a a a                                                          WINDOWS _4LR170UOD1382249233_b     lb yb b b                                                          WINDOWS _4LR0XQYZR1382249233,c     9c Fc Tc ac                                                          WINDOWS _4LR0XQZ0B1382249233c     d d !d .d     d d                                              WINDOWS _4LR0XQYZR1382249233e     e e e e     Zf f                                              WINDOWS _4LR0XQYZR1382249233[g     kg {g g g     
h Dh                                              WINDOWS _4LR0XQYZS1382249233i     i .i :i Gi     i i                                              WINDOWS _4LR170UOE1382249233j     j j j j     sk k                                              WINDOWS _4LR170UOF1382249233tl     l l l l     &m ]m                                              WINDOWS _4LR0XQYZR1382249233'n     4n An Pn ]n                                                          WINDOWS _4LR0XQYZR1382249233n     n o o (o                                                          WINDOWS _4LR170UOG1382249233o     o o o o                                                          WINDOWS _4LR0XQYZR1382249233p     p p p p                                                          WINDOWS _4LR0XQYZS1382249233sq     q q q q                                                          WINDOWS _4LR0XQYZR1382249233`r     or ~r r r                                                          WINDOWS _4LR0XQYZT1382249233Ks     Zs is vs s                                                          WINDOWS _4LR0XQYZU13822492336t     Et Tt bt ot                                                          WINDOWS _4LR0XQYZR1382249233#u     2u Au Nu [u                                                          WINDOWS _4LR0XQYZS1382249233v     v ,v 9v Fv                                                          WINDOWS _4LR0XQYZT1382249233v     w w %w 2w                                                          WINDOWS _4LR0XQYZU1382249233w     w x x x                                                          WINDOWS _4LR0XQYZR1382249233x     x x x 	y                                                          WINDOWS _4LR0XQYZS1382249233y     y y y y                                                          WINDOWS _4LR0XQYZT1382249233z     z z z z                                                          WINDOWS _4LR0XQYZR1382249233{     { { { {                                                          WINDOWS _4LR0XQYZS1382249233|     | | | |                                                          WINDOWS _4LR0XQYZT1382249233l}     {} } } }                                                          WINDOWS _4LR0XQYZR1382249233W~     f~ u~ ~ ~                                                          WINDOWS _4LR0XQYZS1382249233B     Q ` n {                                                          WINDOWS _4LR0XQYZT1382249233/     > M Z g                                                          WINDOWS _4LR0XQYZR1216654565     & 2 ? L                                                          WINDOWS _4LR0XQYZR1382249233      Á с ށ                                                          WINDOWS _4LR0XQYZS1382249233        ̂                                                          WINDOWS _4LR0XQYZT1382249233                                                                  WINDOWS _4LR0XQYZR1382249233n     }                                                             WINDOWS _4LR0XQYZS1382249233[     j y                                                            WINDOWS _4LR0XQYZT1382249233J     Y h v                                                           WINDOWS _4LR0XQYZU12166545657     C O \ i                                                          WINDOWS _4LR0XQYZV1382249233     ч                                                             WINDOWS _4LR0XQYZW1382249233      ˈ ڈ                                                           WINDOWS _4LR0XQYZX1382249233       Ɖ Ӊ                                                          WINDOWS _4LR0XQYZR1382249233                                                                  WINDOWS _4LR0XQYZR1382249233p     }                                                             WINDOWS _4LR0XQYZR1382249233o     |                                                             WINDOWS _4LR0XQYZR1382249233R     _ l z                                                           WINDOWS _4LR17TN0Q1382249233!     . ; J W                                                          WINDOWS _4LR17TN0R1382249233      	  %                                                          WINDOWS _4LR17TN0S1382249233     Ϗ ܏                                                            WINDOWS _4LR18FXP31398954899ϐ     ސ   	                                                    WINDOWS _4LR18FXP41382249233      % 0 =                                                    WINDOWS _4LR18FXP51216654565     ʖ ֖                                                            WINDOWS _4LR0XQYZR1398954899H     W f u      `                                               WINDOWS _4LR18FXP71382249233u             < s                                              WINDOWS _4LR18FXP81398954899=     L [ j w     T z                                              WINDOWS _4LR18FXP91382249233i     ~        . d                                              WINDOWS _4LR18FXPA1398954899-     < K Z g     E k                                              WINDOWS _4LR18FXPB1382249233Z     o        ! X                                              WINDOWS _4LR0XQYZR1398954899"     1 @ O \     9 _                                              WINDOWS _4LR0XQYZS1398954899N     ] l {      f                                               WINDOWS _4LR18FXPC1382249538{             '                                               WINDOWS _4LR18FXPD1382249538v             "                                               WINDOWS _4LR18FXPE1382249538q                                                            WINDOWS _4LR18FXPF1216654565l     x                                                             WINDOWS _4LR18FXPG1216654565        +                                                          WINDOWS _4LR18FXPH1382249233                                                                  WINDOWS _4LR18FXPI1382249233R     _ l {                                                           WINDOWS _4LR18FXPJ1382249233      - : I V                                                          WINDOWS _4LR18FXPK1382249233        '      ؾ                                              WINDOWS _4LR18FXPL1382249233      ¿ ο ۿ     U                                               WINDOWS _4LR18FXPM1382249233V     f v       	 @                                              WINDOWS _4LR18FXPN1382249233
      ( 5 B                                                          WINDOWS _4LR18FXPO1382249233       " /                                                          WINDOWS _4LR18FXPP1382249233                                                                  WINDOWS _4LR18FXPQ1382249233                                                                  WINDOWS _4LR18FXPR1382249233                                                                  WINDOWS _4LR18FXPS1382249233                                                                  WINDOWS _4LR18FXPT1382249233                                                                  WINDOWS _4LR18FXPU1382249233                                                                  WINDOWS _4LR18FXPV1382249233p                                                                  WINDOWS _4LR18FXPW1382249233\     k z                                                            WINDOWS _4LR18FXPX1382249233J     Y h w                                                           WINDOWS _4LR18FXPY1382249233:     I X f s                                                          WINDOWS _4LR18FXPZ1216654565(     4 @ N [                                                          WINDOWS _4LR18FXQ01382249233                                                                  WINDOWS _4LR18FXQ11382249233                                                                  WINDOWS _4LR18FXQ21382249233                                                                  WINDOWS _4LR0XQYZR1382249233{                                                                  WINDOWS _4LR0XQYZR1419141523q                                                            WINDOWS _4LR0XQYZR1419141523D     S b q ~     e                                               WINDOWS _4LR18FXQ31419141523     ' 6 E R     8                                               WINDOWS _4LR0XQYZR1382249233                                                                   WINDOWS _4LR18FXQ41382249233                                                                  WINDOWS _4LR0XQYZR1382249233                                                                  WINDOWS _4LR0XQYZR1382249233                                                                  WINDOWS _4LR18FXQ51382249233                                                                  WINDOWS _4LR18FXQ61382249233x                                                                  WINDOWS _4LR0XQYZR1382249233u                                                                  WINDOWS _4X30WONUU1382249233                                                               WINDOWS _4LR0XQYZR1382249233              a                                              WINDOWS _4LR0XQYZR1382249233              q                                              WINDOWS _4LR0XQYZR1382249233                                                            WINDOWS _4LR0XQYZR1382249233                                                            WINDOWS _5T40QFEWC1382249233                                                            WINDOWS _4LR0XQYZR1382249233        	                                                          WINDOWS _4LR0XQYZR1382249233                                                                  WINDOWS _4LR0XQYZR13822492330     ? N [ h                                                          WINDOWS _5T40QS6CW1382249233                                                                  WINDOWS _5VP17BBMO1382249233p                                                                  WINDOWS _4LR0XQYZR13822492331     > K [ h                                                          WINDOWS _4LR0XQYZR1382249233     & 3 C P                                                          WINDOWS _5VP17BBMP1382249233       + 8                                                          WINDOWS _5VP17BBMQ1363768975                                                                   WINDOWS _5VR0VVPZX1382249233                                                                  WINDOWS _5VP17BBMR1417244793D     U f w                                                           WINDOWS _5VP17BBMS1363648912       # :                                                          WINDOWS _5VP17BBMW1363768975:     G T f }                                                          WINDOWS _4LR0XQYZR1363768975                                                                  WINDOWS _4LR0XQYZR1363768975                                                                  WINDOWS _4LR0XQYZR1363768975g     t                                                             WINDOWS _4LR0XQYZR1363768975E     R _ q                                                           WINDOWS _4LR0XQYZR1363768975#      0  =  O  f                                                           WINDOWS _4LR0XQYZR1363768975      
  , C                                                          COMMENT RESERVED                                                                                          K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 678
Width = 853
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Berechnung der Jubilumszuwendung"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     ]PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
&&ffentlicher Dienst
&&retval = LockWindowUpdate(JDA.hWnd)
*!*	Public ruhestandi As Integer
*!*	Public ruhemonati As Integer
*!*	Public ruhemonat As Integer
*!*	Public monatevoraus As Integer
*!*	Public optindex As Integer
*!*	Public intdatum1 As String && 10
*!*	Public intdatum2 As String && 10
*!*	Public inteingabe As String && 60
*!*	Public intzhler As Integer
*!*	Public intbox As Integer
*!*	Public inttag As Integer
*!*	Public intmonat As Integer
*!*	Public intjahr As Integer
*!*	Public intdat1diff As Integer
*!*	Public intdat2diff As Integer
*!*	Public ruhestand As Integer
*!*	Public frherertag As Integer
*!*	Public spterertag As Integer
*!*	Public februartage As Integer
*!*	Public eg As Integer
*!*	Public di As Integer
*!*	Public berschritten As String && 2
*!*	Public Geburtstag As String && 10
*!*	Public frheresdatum As String && 10
*!*	Public beginndatum As String && 10
*!*	Public gesamtdatum As String && 10
*!*	Public spteresdatum As String && 10
*!*	Public monatplus As String && 10
*!*	Public lfdMonat As Integer
*!*	Public EndeMonat As Integer
*!*	Public lfdJahr As Integer
*!*	Public differenztage As Integer
*!*	Public differenzmonate As Integer
*!*	Public differenzjahre As Integer
*!*	Public differenzjahre35 As Integer
*!*	Public differenzjahre40 As Integer
*!*	Public sTag As Integer
*!*	Public sMonat As Integer
*!*	Public SJahr As Integer
*!*	Public monatbertrag As Integer
*!*	Public jahresbertrag As Integer
*!*	Public datumstring As String && 10
*!*	Public Tagstring As String && 2
*!*	Public Monatstring As String && 2
*!*	Public d As String && 1
*!*	Public j As Integer
SET CENTURY on
myjda = Thisform
IF thisform.Top < 0
	thisform.Top = 0
ENDIF
myform1.visible = .f.
thisform.text4.Value = "Beginn des Jubilumsdienstalters"
thisform.text5.Value = "(wird nicht erreicht)"
thisform.text6.Value = "(wird nicht erreicht)"
thisform.text7.Value = "(wird nicht erreicht)"

If EMPTY(myjda.Datum26.value)
	myjda.Datum26.value = "01.08.1945"
Endif

If EMPTY(myjda.Datum27.value)
	myjda.Datum27.value = "01.08.1945"
ENDIF

If EMPTY(myjda.Datum28.value)
	myjda.Datum28.value = "01.08.1945"
Endif

FOR hsa = 1 TO 14
	xxx = ALLTRIM(STR(hsa,2,0))
	thisform.tage&xxx..value = 0
	thisform.monat&xxx..value = 0
	thisform.jahr&xxx..value = 0	
NEXT
	
keinspeichern = True
startflag = True
With myjda
	.Visible = True

	.Top = myform1.Top
	.Caption = "Wann erhlt  " + Alltrim(zt0(1+zi(1+0))) + "  eine Jubilumszuwendung?"
	.Left = myform1.Left
	.Visible = True
	&&If Not Dir(eigdat + muser + "\jda.txt") = "" Then
	&&   Name eigdat + muser + "\jda.txt" As eigdat + muser + "\jda.006"
	&&End If

	myclose("92")
	myopen(eigdat + muser + "\jda" + Right(welchesjahrc, 3) , 92 ,"jdadat")
	myget(92, fileneu,"jdadat")

	dc = jdadat.Datum(1+0)
	Do datumcheck &&Do attached
	.Datum0.Value = dc

	dc = jdadat.Datum(1+1)
	Do datumcheck &&Do attached
	.Datum1.Value = dc

	myget(13, fileneu,"wnw")

	&&Geburtstag prfen
	dc = wnw.ztext0
	Do datumcheck &&Do attached
	wnw.ztext0 = dc

	&&Einstellungstag prfen
	dc = wnw.ztext1
	Do datumcheck &&Do attached
	wnw.ztext1 = dc

	If .Datum0.Value = wnw.ztext0 .And. .Datum1.Value = wnw.ztext1
	Else
		If (Empty(.Datum0.Value) .And. Empty(.Datum1.Value)) .or. (ALLTRIM(.datum0.value) = ".  ." .and. ALLTRIM(.datum1.value) = ".  .")
		Else
			Messagebox(("Geburtstag und Einstellungstag werden nicht den Stammdaten des Bediensteten (Icon Zeile 1) entnommen, weil in der Berechnung des Jubilumsdienstalters abweichende Daten gespeichert sind."))
		Endif
	Endif

	If Empty(.Datum0.Value) .Or. Empty(.Datum1.Value)  .or. ALLTRIM(.datum0.value) = ".  ."  .or. ALLTRIM(.datum1.value) = ".  ."
		For i = 0 To 19
			xxx = Alltrim(Str(i,2,0))
			.Datum&xxx..Value = ""
		Next

		For i = 1 To 9
			xxx = Alltrim(Str(i,2,0))
			.Eingabe&xxx..Value = myString(60, " ")
			.Box&xxx..Value = 1 &&HS -1
			.Zhler&xxx..caption = "60"
		Next

		d = "n"
		.Datum0.Value = wnw.ztext0
		.Datum1.Value = wnw.ztext1
	Else
		For i = 2 To 19
			xxx = Alltrim(Str(i,2,0))
			.Datum&xxx..Value = jdadat.Datum(1+i)
			di = i
			Do datumdiffneu &&Do attached
		Next

		For i = 1 To 9
			xxx = Alltrim(Str(i,2,0))
			.Eingabe&xxx..Value = jdadat.Beschreibung(i)
			.Box&xxx..Value = jdadat.boxen(i)
			.Zhler&xxx..caption = ALLTRIM(STR(60 - Len(Alltrim(.Eingabe&xxx..Value)),5,0))
		Next
		d = "j"
	Endif

	ruhestand = jdadat.Eintrittruhestand
	If ruhestand < 55
		ruhestand = 55
	Endif

	ruhemonat = jdadat.Mon
	If ruhemonat < 0 .Or. ruhemonat > 11
		ruhemonat = 0
	Endif

	myjda.Alter.value = ruhestand
	myjda.Monthspin.value = ruhemonat

	.Visible = True

	&&jdaaktivieren
	&&If d = "j" Then .Datum(1+2).SetFocus
	&&If d = "n" Then .Datum(1+0).SetFocus
Endwith

keinspeichern = False

If jdadat.boxen(15) = 1
*altes	myjda.optiongroup1.Opt1.Value = 1
	myjda.optiongroup1.Value = 2
Else
*altes	myjda.optiongroup1.Opt0.Value = 1
	myjda.optiongroup1.Value = 1
ENDIF

optindex = myjda.optiongroup1.Value - 1

Do umschalter &&Do attached

keinspeichern = True

For indexi = 0 To 19
	eg = Fix(indexi / 2)
	di = indexi

	Do verarbeiten &&Do attached

NEXT

If EMPTY(myjda.Datum20.value)
	myjda.Datum20.value = DTOC(DATE())
Endif


keinspeichern = False
startflag = False
thisform.datum0.setfocus
myindex = 0
DO jda_datum_lostfocus WITH myindex

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Destroy
myform1.visible = .t.
ENDPROC
     <    #  #                        ,   %   {
           
            U    C     U  THISFORM SIZER	 FRMRESIZE
 G 
 T    %   
7  T     T  -3 T     Beginn des Jubilumsdienstalters( T    (wird nicht erreicht)( T    (wird nicht erreicht)( T 	   (wird nicht erreicht) %C  
  & T  
  
 01.08.1945  %C    \ T    
 01.08.1945  %C     T    
 01.08.1945  
 (& T CC
  Z  thisform.tage&xxx..value = 0
! thisform.monat&xxx..value = 0
! thisform.jahr&xxx..value = 0	
 
 T  
 T  
    T   T   K T 
 Wann erhlt  CCC     eine Jubilumszuwendung? T    T   C 92 . C   \jdaC R\ jdadat  C\   jdadat  T C      T!    T C      T"    C
   wnw  T # $     T# $   T # %     T# %  * %!  # $  "  # % 	 ?L %C!  
 C"  	( C!   .  . C"   .  .	l ; Cٺ Geburtstag und Einstellungstag werden nicht den Stammdaten des Bediensteten (Icon Zeile 1) entnommen, weil in der Berechnung des Jubilumsdienstalters abweichende Daten gespeichert sind.x  J %C!  
 C"   C!   .  . C"   .  . &  ( T CC&  Z .Datum&xxx..Value = ""
  & (	i T CC&  Z+ .Eingabe&xxx..Value = myString(60, " ")
 .Box&xxx..Value = 1 
 .Zhler&xxx..caption = "60"
  T'  n T!  # $  T"  # %   & ( T CC&  Z) .Datum&xxx..Value = jdadat.Datum(1+i)

 T( &  )   & (	 T CC&  Z0 .Eingabe&xxx..Value = jdadat.Beschreibung(i)
% .Box&xxx..Value = jdadat.boxen(i)
S .Zhler&xxx..caption = ALLTRIM(STR(60 - Len(Alltrim(.Eingabe&xxx..Value)),5,0))
  T'  j  T*  +  %* 7
4
 T* 7  T,  -  %,  
 , q
 T,    T  .  *  T  /  ,  T   
 T 0  %C 1  T  2    	 T  2    T3   2   4 
 T   5  (o	 T6 C5 7 
 T( 5  8   %C  9  	 T  9  CC$* 
 T 0 
 T 0 
  ! : 
 T;   < ;  % = > ? 
 T@ C?  = > T *

 T@  
  A B  T =  = > @  T C  C > @ 
  D  T E a UF  MYJDA THISFORM TOP MYFORM1 VISIBLE TEXT4 VALUE TEXT5 TEXT6 TEXT7 DATUM26 DATUM27 DATUM28 HSA XXX
 KEINSPEICHERN TRUE	 STARTFLAG CAPTION ZT0 ZI LEFT MYCLOSE MYOPEN EIGDAT MUSER WELCHESJAHRC MYGET FILENEU DC JDADAT DATUM
 DATUMCHECK DATUM0 DATUM1 WNW ZTEXT0 ZTEXT1 I D DI DATUMDIFFNEU	 RUHESTAND EINTRITTRUHESTAND	 RUHEMONAT MON ALTER	 MONTHSPIN FALSE BOXEN OPTIONGROUP1 OPTINDEX
 UMSCHALTER INDEXI EG FIX VERARBEITEN DATUM20 SETFOCUS MYINDEX JDA_DATUM_LOSTFOCUS HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  T   a U  MYFORM1 VISIBLE Resize,      Init_      DestroyT
    1 2  a  AA  1RA RA RA rqA       Bq Bq rq q   qA A qqA rqA  AA qq q A rqQ1A  A  A  A 21 E  2 2A rr  rQ r B RAA        A    2  1                       ,         G           =  R      )   #                        image      image      Image1      FORM1      |Picture = prgicons\hilang.gif
Stretch = 2
Height = 651
Left = 3
Top = 33
Width = 843
RotateFlip = 0
Name = "Image1"
      
commandbutton      
commandbutton      Command1      FORM1      Top = 0
Left = 3
Height = 34
Width = 121
Picture = prgicons\katalog.ico
Caption = "  Texte"
TabIndex = 1
PicturePosition = 2
Name = "Command1"
     PROCEDURE Click

	&&ffentlicher Dienst
	If myjda.optiongroup1.Opt0.Value = 1

		Do Case && zi(1+4)
			Case (zi(1+4) >= 0 .And. zi(1+4) <= 7)
				inet = "000"
				mylink = 633  &&Msg = "dbb.de/dbb-beamtenbund-2006/3150_2948.php"
			Case zi(1+4) = 8

			Case zi(1+4) = 9

			Case zi(1+4) = 10 .Or. zi(1+4) =  12 .Or. (zi(1+4) >= 14 .And. zi(1+4) <= 16) .Or. zi(1+4) =  18
				inet = 132
				mylink = 635  &&Msg = "23-Besondere-Zahlungen"
			Case  Inlist(zi(1+4), 11, 19)
				inet = 135
				mylink = 636  &&Msg = "TVL_23-Besondere-Zahlungen"
			Case zi(1+4) = 13
				inet = 136
				mylink = 1  &&Msg = "23-Besondere-Zahlungen"
			Case (zi(1+4) >= 28 .And. zi(1+4) <= 31)
				inet = "134"
				If altesland = 0
					mylink = 637  &&Msg = "bat_39"
				Else
					mylink = 638  &&Msg = "obat_39"
				Endif
			Case (zi(1+4) >= 33 .And. zi(1+4) <= 35)
				inet = "171"
				mylink = 639  &&Msg = "mtbl45"
			Case zi(1+4) = 17 .Or. zi(1+4) =  20 .Or. zi(1+4) =  21 .Or. (zi(1+4) >= 23 .And. zi(1+4) <= 27) .Or. zi(1+4) =  36 .Or. zi(1+4) =  37
				Msg = "nnn"
		Endcase
	Else
		Do Case && zi(1+4)
			Case (zi(1+4) >= 0 .And. zi(1+4) <= 7)
				inet = "000"
				mylink = 633  &&Msg = "dbb.de/dbb-beamtenbund-2006/3150_2948.php"
			Case  Inlist(zi(1+4), 8, 9)
				inet = 198
				mylink = 865  &&Msg = "23-Besondere-Zahlungen"
			Case zi(1+4) = 10 .Or. zi(1+4) =  12 .Or. (zi(1+4) >= 14 .And. zi(1+4) <= 16) .Or. zi(1+4) =  18
				inet = 132
				mylink = 860  &&Msg = "23-Besondere-Zahlungen"
			Case  Inlist(zi(1+4), 11, 19)
				inet = 135
				mylink = 861  &&Msg = "TVL_23-Besondere-Zahlungen"
			Case zi(1+4) = 13
				inet = 136
				mylink = 1  &&Msg = "23-Besondere-Zahlungen"
			Case (zi(1+4) >= 28 .And. zi(1+4) <= 31)
				inet = "134"
				If altesland = 0
					mylink = 862  &&Msg = "bat_39"
				Else
					mylink = 863  &&Msg = "obat_39"
				Endif
			Case (zi(1+4) >= 33 .And. zi(1+4) <= 35)
				inet = "171"
				mylink = 864  &&Msg = "mtbl45"
			Case zi(1+4) = 17 .Or. zi(1+4) =  20 .Or. zi(1+4) =  21 .Or. (zi(1+4) >= 23 .And. zi(1+4) <= 27) .Or. zi(1+4) =  36 .Or. zi(1+4) =  37
				Msg = "nnn"
		Endcase
	Endif
	Do insinternet &&Do attached

ENDPROC
                                      %         F  ?               U  8 %     
 H' % C   C 	j  T  000 T y C   C 	 R C 
 C  C  C 	 C 
 T  T { CC 5
 T  T | C 
d
 T 
 T % C  C 	 T  134 %   T }  T ~ % C ! C #	 T  171 T p C  C  C  C  C 	 C $ C % T  nnn  *
 H&% C   C 	 T  000 T y CC 	%
 T  T aR C 
 C  C  C 	 C 
 T  T \ CC 
 T  T ] C 

 T 
 T % C  C 	c T  134 %  I T ^ _ T _ % C ! C #	 T  171 T `p C  C  C  C  C 	 C $ C %& T  nnn   	  U
  MYJDA OPTIONGROUP1 OPT0 VALUE ZI INET MYLINK	 ALTESLAND MSG INSINTERNET Click,     1  Q QR"    Q  Q   A Q A   Q   !    Q  Q   A Q A A q 2                             )                           
commandbutton      
commandbutton      Command2      FORM1      Top = 0
Left = 123
Height = 34
Width = 121
Picture = prgicons\katalog.ico
Caption = "  622 BGB"
TabIndex = 2
PicturePosition = 2
Name = "Command2"
      XPROCEDURE Click
	inet = "111"
	Msg = "20278"
	Do insinternet &&Do attached
ENDPROC
                                      Ё   %   t                          U  ,  T   111 T  20278   U  INET MSG INSINTERNET Click,     1 !q 1                       M       )                            
commandbutton      
commandbutton      Command3      FORM1      Top = 0
Left = 243
Height = 34
Width = 121
Picture = prgicons\buch_chm_klein.ico
Caption = "   Hilfe"
TabIndex = 3
PicturePosition = 1
Name = "Command3"
      PROCEDURE Click
	inet = "000"
	&&If Opt(0).Value = True Then
	Msg = "pc-gehalt.de/Dienstzeitenrechner/Screenshots.htm"
	&&Else
	&&   Msg = "Kndigungsfristenrechner.de"
	&&End If
	Do insinternet &&Do attached
ENDPROC
                                   ]   %                             U  W  T   000= T 0 pc-gehalt.de/Dienstzeitenrechner/Screenshots.htm   U  INET MSG INSINTERNET Click,     1 t 1                              )                           
commandbutton      
commandbutton      Command4      FORM1      Top = 0
Left = 363
Height = 34
Width = 121
Picture = icons\sw_druck.bmp
Caption = "     JDA"
TabIndex = 4
PicturePosition = 1
Name = "Command4"
     ?$PROCEDURE Click
	&&ffentlicher Dienst

	&&MsgBox "Ein Zugriff auf Ihren Drucker ist im Rahmen dieses Tests nicht mglich.", 0, "TEST"
	&&Exit Sub
With myjda

If EMPTY(.Datum1.value) .or. ALLTRIM(.datum1.value) = ".  ."
	Messagebox( "Bitte vorher Daten eingeben", 0, "Dateneingabe fehlt")
	.Datum0.SetFocus
	Return
ENDIF
	
PUBLIC hsdat1,hsdat2,hsdat3,hsdat4,hsdat5,hskeine1,hskeine2,hstext3
PUBLIC hsvon1,hsbis2,hstext1,hst1,hsm1,hsj1,hst1_1,hsm1_1,hsj1_1
PUBLIC hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1
STORE "" TO hsdat1,hsdat2,hsdat3,hsdat4,hsdat5,hskeine1,hskeine2,hstext3
STORE "" TO hsvon1,hsbis2,hstext1,hsdat1_1,hsdat2_1,hsstrich,hsstrich_1,hstext1_1
STORE 0 TO hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1
STORE 0 TO hst1,hsm1,hsj1,hst1_1,hsm1_1,hsj1_1

*!*			Printer.Orientation = 1

*!*			Printer.FontBold = True
*!*			Printer.Font = "arial"
*!*			Printer.FontSize = 12
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print Tab(8); ditext4

*!*			If Alltrim(ditext6) = ""

*!*				Printer.CurrentX = 9500
*!*	*!*				Printer.Print Date

*!*			Else
*!*				Printer.CurrentX = 9500
*!*				Printer.Print Alltrim(ditext6)

*!*			Endif
*!*			Printer.Print Tab(8); ditext5;
*!*				Printer.Print
*!*			Printer.Print
*!*			Printer.FontBold = False
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print

*!*			Printer.Print
*!*			Do Case && wnw.anrede
*!*				Case wnw.anrede = "a"
*!*				Case wnw.anrede = "b"
*!*					Printer.Print Tab(12); "Herrn"
*!*				Case wnw.anrede = "c"
*!*					Printer.Print Tab(12); "Frau"
*!*				Case wnw.anrede = "d"
*!*					Printer.Print Tab(12); "Frulein"
*!*			Endcase

*!*			Printer.Print Tab(12); myform1.z0.Caption
*!*				If Len(Alltrim(wnw.ztext7)) > 0

*!*			Printer.CurrentX = 7000
*!*			Printer.Print "Dienstanschrift:"
*!*		Else
*!*			Printer.Print
*!*		Endif
*!*		Printer.Print Tab(12); wnw.ztext5;
*!*			If Len(Alltrim(wnw.ztext7)) > 0

*!*		Printer.CurrentX = 7000
*!*		Printer.Print wnw.ztext7
*!*	Else
*!*		Printer.Print
*!*	Endif

*!*	Printer.Print
*!*	Printer.Print Tab(12); wnw.ztext6

*!*	Printer.Print
*!*	Printer.Print

*!*	Printer.FontSize = 12
*!*	Printer.FontBold = True
*!*	Printer.Print
*!*	Printer.Print
&&Printer.Print
&&If Opt(0).Value = True Then
*!*	Printer.Print Tab(8); "Festsetzung des Beginns Ihres Jubilumsdienstalters"
&&Else
&&   Printer.Print Tab(8); "Berechnung der Beschftigungszeit"
&&End If

*!*	Printer.Print
*!*	Printer.FontBold = False

&&    If Opt(0).Value = True Then
*!*	Printer.Print Tab(12); "Der Beginn Ihres Jubilumsdienstalters (JDA) wird festgesetzt auf";
*!*		Printer.CurrentX = 9500

hsdat1 = .Datum21.value

*!*	Printer.FontBold = False
&&   Else
&&      Printer.Print Tab(12); "Sie werden voraussichtlich bis zum " + .Datum(1+20) + " folgende Beschftigungszeit erreichen:"
&&      Printer.FontBold = True
&&      Printer.Print Tab(12); Jahr(1+14).Caption + " Jahre, " + Monat(14) + " Monate und " + Tage(14) + " Tage."
&&      Printer.FontBold = False

&&    End If
&&    Printer.Print
*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	Printer.Print Tab(8); "Berechnung:"
*!*	Printer.FontBold = False
*!*	Printer.Print
&&Printer.Print Tab(12); "1. Geburtstag:";
&&Printer.CurrentX = 7000
&&Printer.Print .Datum(1+0)
*!*	Printer.Print Tab(12); "1. Dienstbezge bei uns ab (Regelbeginn des JDA)"
*!*	Printer.CurrentX = 9500


hsdat2 = .Datum1.value &&(1+1)

*!*	Printer.Print

*!*	Printer.Print Tab(12); "2. Anzurechnende Zeiten davor bei anderen Dienstherren"
*!*		Printer.CurrentX = 8050
*!*	Printer.Print " T";
*!*		Printer.CurrentX = 8500
*!*	Printer.Print " M";
*!*		Printer.CurrentX = 9050
*!*	Printer.Print " J"

hskeine1 = .f.
hskeine2 = .f.
crlf = CHR(13)+CHR(10)
If .Tage10.value = 0 .And. .Monat10.value = 0 .And. .Jahr10.value = 0
	hskeine1 = .t.
ELSE
	hsvon1 = ""
	hsbis2 = ""
	hsstrich = ""
	hstext1 = ""
	hst1 = ""
	hsm1 = ""
	hsj1 = ""
	IF .not. EMPTY(myjda.datum2.value)
		hsvon1 = hsvon1 + myjda.datum2.value + crlf
		hsstrich = hsstrich + "-" + crlf
		hsbis2 = hsbis2 + myjda.datum3.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe1.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage1.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat1.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr1.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum4.value)
		hsvon1 = hsvon1 + myjda.datum4.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsbis2 = hsbis2 + myjda.datum5.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe2.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage2.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat2.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr2.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum6.value)
		hsvon1 = hsvon1 + myjda.datum6.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsbis2 = hsbis2 + myjda.datum7.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe3.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage3.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat3.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr3.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum8.value)
		hsvon1 = hsvon1 + myjda.datum8.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsbis2 = hsbis2 + myjda.datum9.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe4.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage4.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat4.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr4.value,4,0)) + crlf		
	ENDIF
	IF .not. EMPTY(myjda.datum10.value)
		hsvon1 = hsvon1 + myjda.datum10.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsbis2 = hsbis2 + myjda.datum11.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe5.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage5.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat5.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr5.value,4,0)) + crlf		
	endif	
	IF .not. EMPTY(myjda.datum12.value)
		hsvon1 = hsvon1 + myjda.datum12.value
		hsstrich = hsstrich + "-"		
		hsbis2 = hsbis2 + myjda.datum13.value
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe6.value)
		hst1 = hst1 + ALLTRIM(STR(myjda.tage6.value,4,0))
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat6.value,4,0))
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr6.value,4,0))		
	endif		
	
*!*		j = 0
*!*		For i = 1 To 6
*!*			xxx = ALLTRIM(STR(1+i * 2,2,0))
*!*			If .Datum&xxx..value = ""

*!*			ELSE
*!*				xxx = ALLTRIM(STR(i,2,0))
*!*				If .Box&xxx..value < 0
*!*					j = 1
*!*					Printer.CurrentX = 1500
*!*					xxx = ALLTRIM(STR(1+i * 2,2,0))
*!*					Printer.Print .Datum&xxx.value + "  -"
*!*					Printer.CurrentX = 3000
*!*					xxx = ALLTRIM(STR(1+i * 2 + 1,2,0))
*!*					Printer.Print .Datum&xxx..value &&(1+i * 2 + 1)
*!*						Printer.CurrentX = 8000
*!*					Printer.Font = "courier new"
*!*					Printer.Print Right(" " + .Tage(i), 2)
*!*						Printer.CurrentX = 8500
*!*					Printer.Print Right(" " + .Monat(i), 2)
*!*						Printer.CurrentX = 9000
*!*					Printer.Print Right(" " + .Jahr(i), 2)
*!*					Printer.Font = "arial"
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Eingabe(i)

*!*				Endif
*!*			Endif
*!*		Next

*!*		If j = 1

*!*			If Dimen.dimpw2 = 0
*!*				Printer.CurrentY = Printer.CurrentY - 250
*!*			Endif

*!*			Printer.CurrentX = 8000
*!*			Printer.Print String(10, "_")
*!*		Endif

*!*		Printer.CurrentX = 8000
*!*		Printer.Font = "courier new"
*!*		Printer.Print Right(" " + .Tage(10), 2)

	hst1_summe = ALLTRIM(str(myjda.tage10.value,5,0))
*!*			Printer.CurrentX = 8500
*!*		Printer.Print Right(" " + .Monat(10), 2)
	hsm1_summe = ALLTRIM(str(myjda.monat10.value,5,0))
*!*			Printer.CurrentX = 9000
*!*		Printer.Print Right(" " + .Jahr(10), 2)
	hsj1_summe = ALLTRIM(str(myjda.jahr10.value,5,0))
*!*			Printer.Font = "arial"
*!*		Printer.CurrentX = 9500
*!*		xxx = ALLTRIM(STR(1+26,2,0))
*!*		Printer.Print .Datum&xxx..value &&(1+26)
	hsdat3 = myjda.datum26.value
Endif
*!*	Printer.Print

&&Printer.Print Tab(12); "3. Beschftigungszeit bei uns vom " + Label9.Caption + " bis " + Label14.Caption;
&&Printer.CurrentX = 9500
&&Printer.Print .Tage(11);
&&Printer.CurrentX = 10000
&&Printer.Print .Monat(11);
&&Printer.CurrentX = 10500
&&Printer.Print .Jahr(1+11)
&&If dimen.dimpw2 = 0 Then Printer.CurrentY = Printer.CurrentY - 250
&&Printer.CurrentX = 9500
&&Printer.Print String$(10, "_")
&&Printer.Print Tab(12); "   " + .Text(12);
&&Printer.CurrentX = 9500
&&Printer.Print .Tage(12);
&&Printer.CurrentX = 10000
&&Printer.Print .Monat(12);
&&Printer.CurrentX = 10500
&&Printer.Print .Jahr(1+12)
&&Printer.Print



*!*	Printer.Print Tab(12); "3. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"
If .Tage13.value = 0 .And. .Monat13.value = 0 .And. .Jahr13.value = 0
	hskeine2 = .t.
ELSE
	hsdat1_1 = ""
	hsdat2_1 = ""
	hsstrich_1 = ""
	hstext1_1 = ""
	hst1_1 = ""
	hsm1_1 = ""
	hsj1_1 = ""
	IF .not. EMPTY(myjda.datum14.value)
		hsdat1_1 = hsdat1_1 + myjda.datum14.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf
		hsdat2_1 = hsdat2_1 + myjda.datum15.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe7.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage7.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat7.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr7.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum16.value)
		hsdat1_1 = hsdat1_1 + myjda.datum16.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf		
		hsdat2_1 = hsdat2_1 + myjda.datum17.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe8.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage8.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat8.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr8.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum18.value)
		hsdat1_1 = hsdat1_1 + myjda.datum18.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf		
		hsdat2_1 = hsdat2_1 + myjda.datum19.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe9.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage9.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat9.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr9.value,4,0)) + crlf
	ENDIF


*!*		j = 0
*!*		For i = 7 To 9
*!*			xxx = ALLTRIM(STR(1+i * 2,2,0))
*!*			If .Datum&xxx..value = "" &&(1+i * 2).Text

*!*			ELSE
*!*				xxx = ALLTRIM(STR(i,2,0))
*!*				If .Box&xxx..value < 0

*!*					j = 1
*!*					Printer.CurrentX = 1500
*!*					xxx = ALLTRIM(STR(1+i * 2,2,0))
*!*					Printer.Print .Datum&xxx..value + "  -"
*!*						Printer.CurrentX = 3000
*!*					xxx = ALLTRIM(STR(1+i * 2 +1,2,0))
*!*					Printer.Print .Datum&xxx..value
*!*						Printer.CurrentX = 8000
*!*					Printer.Font = "courier new"
*!*					Printer.Print Right(" " + .Tage(i), 2)
*!*						Printer.CurrentX = 8500
*!*					Printer.Print Right(" " + .Monat(i), 2)
*!*						Printer.CurrentX = 9000
*!*					Printer.Print Right(" " + .Jahr(1+i), 2)
*!*					Printer.Font = "arial"
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Eingabe(i)

*!*				Endif
*!*			Endif
*!*		Next

*!*		If j = 1

*!*			If Dimen.dimpw2 = 0
*!*				Printer.CurrentY = Printer.CurrentY - 250
*!*			Endif

*!*			Printer.CurrentX = 8000
*!*			Printer.Print String(10, "_")
*!*		Endif


	hst1_summe_1 = ALLTRIM(STR(myjda.tage13.value,5,0))
	hsm1_summe_1 = ALLTRIM(STR(myjda.monat13.value,5,0))
	hsj1_summe_1 = ALLTRIM(STR(myjda.jahr13.value,5,0))
	hsdat4 = myjda.datum22.value

*!*		Printer.CurrentX = 8000
*!*		Printer.Font = "courier new"
*!*		Printer.Print Right(" " + .Tage(13), 2);
*!*			Printer.CurrentX = 8500
*!*		Printer.Print Right(" " + .Monat(13), 2);
*!*			Printer.CurrentX = 9000
*!*		Printer.Print Right(" " + .Jahr(1+13), 2);
*!*			Printer.Font = "arial"
*!*		Printer.CurrentX = 9500
*!*		xxx = ALLTRIM(STR(1+21,2,0))
*!*		Printer.Print .Datum&xxx..value &&(1+21)
Endif
*!*	Printer.Print

&&Printer.Print Tab(12); "4. Zeiten, um die der Regelbeginn des JDA zu korrigieren ist (Nr. 2 + Nr. 3)";
&&Printer.CurrentX = 9500
&&Printer.Print .Tage(14);
&&Printer.CurrentX = 10000
&&Printer.Print .Monat(14);
&&Printer.CurrentX = 10500
&&Printer.Print .Jahr(1+14)
&&Printer.Print
&&Printer.Print Tab(12); "5. Beginn des JDA ( Nr. 1 abz. Nr. 4)";
&&Printer.CurrentX = 7000
&&Printer.Print .Datum(1+21)
&&Printer.CurrentX = 7000
&&Printer.Print String$(10, "=")

&&Printer.Print Tab(12); "5. Beginn des Jubilumsdienstalters";
&&Printer.CurrentX = 7000
&&Printer.Print .Datum(1+21)
&&Printer.Print
&&
&& Printer.Print Tab(12); "6. " + JDA.Text(13).Caption;
&& Printer.CurrentX = 7000
&& Printer.Print .Datum(1+22)
&& &&Printer.CurrentX = 1500
&& Printer.Print Tab(15); "im Alter von " + ruhestand + " Jahren und " + ruhemonat;
&& If ruhemonat = 1 Then Printer.Print " Monat" Else Printer.Print " Monaten"
&& Printer.Print

*!*	Printer.Print Tab(12); "4. Nachrichtlich und vorbehaltlich zu bercksichtigender knftiger Umstnde:"
*!*	Printer.Print Tab(15); "Voraussichtlicher Eintritt in den Ruhestand "
hstext3 = "im Alter von " + ALLTRIM(STR(ruhestand,4,0)) + " Jahren und " + ALLTRIM(STR(ruhemonat,4,0)) + IIF(ruhemonat = 1," Monat"," Monaten") + crlf
*!*	If ruhemonat = 1
*!*	Printer.Print " Monat"
*!*	Else

*!*		Printer.Print " Monaten"
*!*			endif
*!*		Printer.CurrentX = 8000
*!*		xxx = ALLTRIM(STR(1+22,2,0))
*!*		Printer.Print .Datum&xxx..value &&(1+22)
	hsdat5 = myjda.datum22.value + crlf
*!*		Printer.CurrentX = 1500
*!*		Printer.Print "25-jhriges Dienstjubilum"
	hstext3 = hstext3 + "25-jhriges Dienstjubilum" + IIF(myjda.Text5.Visible = True," (wird nicht erreicht) ","")+ crlf
*!*			If .Text(5).Visible = True
*!*		Printer.Print " (wird nicht erreicht) "
*!*			endif

*!*		Printer.CurrentX = 8000
*!*		xxx = ALLTRIM(STR(1+23,2,0))
*!*		Printer.Print .Datum&xxx..value &&(1+23)
hsdat5 = hsdat5 + myjda.datum23.value + crlf
*!*			If myjdaPrinter.CurrentX = 1500
*!*			Printer.Print "40-jhriges Dienstjubilum"
hstext3 = hstext3 + "40-jhriges Dienstjubilum" + IIF(myjda.Text6.Visible = True," (wird nicht erreicht) ","")+ crlf
		
*!*				If .Text(6).Visible = True
*!*			Printer.Print " (wird nicht erreicht) "
*!*				endif

*!*			Printer.CurrentX = 8000
*!*			xxx = ALLTRIM(STR(1+24,2,0))
*!*			Printer.Print .Datum&xxx..value &&(1+24)
		hsdat5 = hsdat5 + myjda.datum24.value + crlf		
*!*		Endif

*!*		If myjda.Text7.Visible = False

*!*			Printer.CurrentX = 1500
*!*			Printer.Print "50-jhriges Dienstjubilum"
			hstext3 = hstext3 + "50-jhriges Dienstjubilum" + IIF(myjda.Text7.Visible = True," (wird nicht erreicht) ","")+ crlf
		
*!*				If .Text(7).Visible = True
*!*			Printer.Print " (wird nicht erreicht) "
*!*				endif

*!*			Printer.CurrentX = 8000
*!*			xxx = ALLTRIM(STR(1+25,2,0))
*!*			Printer.Print .Datum&xxx..value &&(1+25)
		hsdat5 = hsdat5 + myjda.datum25.value + crlf	
*!*		Endif


*!*		Printer.FontSize = 12
*!*		Printer.Print
*!*		Printer.Print
*!*		Printer.Print Tab(9); "Sachlich und rechnerisch richtig: " + String(23, " ") + "Festgestellt:"
*!*		Printer.Print
*!*		Printer.Print
*!*		Printer.Print Tab(9); String(25, "_") + String(26, " ") + String(25, "_")

Endwith
*!*	Printer.EndDoc
*!*	SELECT dummy
*!*	GO top

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM jda1 RANGE 1,1 noconsole TO PRINTER prompt

SELECT dummy
USE
SELECT(oldselect)

release hsdat1,hsdat2,hsdat3,hsdat4,hsdat5,hskeine1,hskeine2,hstext3
RELEASE hsvon1,hsbis2,hstext1,hst1,hsm1,hsj1,hsdat1_1,hsdat2_1,hsstrich,hsstrich_1,hstext1_1,hst1_1,hsm1_1,hsj1_1
RELEASE hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1
ENDPROC
                                   u   %   )      x     8            U  F
   M( %C   C   .  . ? C Bitte vorher Daten eingeben  Dateneingabe fehltx    B # 7    	 
   ' 7
          7      ) J  (    	 
   ) J  (
         ! J (      ! J (       T !   T    T
 - T - T" C
 C
 3 %#    $   	 %   	 T
 a h
 T
   
 T   
 T   
 T   
 T   
 T   
 T    %C  &  
\ T
 
   &  "  T   -"  T    '  "  T  C  (  " % T  CC  )   Z" % T  CC  *   Z" % T  CC  +   Z"   %C  ,  
N T
 
   ,  "  T   -"  T    -  "  T  C  .  " % T  CC  /   Z" % T  CC  0   Z" % T  CC  1   Z"   %C  2  
@ T
 
   2  "  T   -"  T    3  "  T  C  4  " % T  CC  5   Z" % T  CC  6   Z" % T  CC  7   Z"   %C  8  
2 T
 
   8  "  T   -"  T    9  "  T  C  :  " % T  CC  ;   Z" % T  CC  <   Z" % T  CC  =   Z"   %C  >  
$ T
 
   >  "  T   -"  T    ?  "  T  C  @  " % T  CC  A   Z" % T  CC  B   Z" % T  CC  C   Z"   %C  D  
 T
 
   D   T   - T    E   T  C  F  ! T  CC  G   Z! T  CC  H   Z! T  CC  I   Z  T CC  #   Z T CC  $   Z T CC  %   Z T   J   3 %K    L   	 M   	 T a M
 T   
 T   
 T   
 T    
 T   
 T   
 T    %C  N  
	 T    N  "  T   -"  T    O  "  T    C  P  " % T  CC  Q   Z" % T  CC  R   Z" % T  CC  S   Z"   %C  T  

 T    T  "  T   -"  T    U  "  T    C  V  " % T  CC  W   Z" % T  CC  X   Z" % T  CC  Y   Z"   %C  Z  
 T    Z  "  T   -"  T    [  "  T    C  \  " % T  CC  ]   Z" % T  CC  ^   Z" % T  CC  _   Z"   T CC  K   Z T CC  L   Z T CC  M   Z T   `   n T 
 im Alter von CCa  Z  Jahren und CCb  ZCb    Monat   Monaten6"  T	   `  " b T   25-jhriges DienstjubilumC  c d e    (wird nicht erreicht)    6"  T	 	   f  " b T   40-jhriges DienstjubilumC  g d e    (wird nicht erreicht)    6"  T	 	   h  " b T   50-jhriges DienstjubilumC  i d e    (wird nicht erreicht)    6"  T	 	   j  "   Tk C W h dummym  C Fl   [ Fl  #) ? jda1(!"9 Fl  Q
 Fk # <    	 
   ; <
                <       Uo  MYJDA DATUM1 VALUE DATUM0 SETFOCUS HSDAT1 HSDAT2 HSDAT3 HSDAT4 HSDAT5 HSKEINE1 HSKEINE2 HSTEXT3 HSVON1 HSBIS2 HSTEXT1 HST1 HSM1 HSJ1 HST1_1 HSM1_1 HSJ1_1
 HST1_SUMME
 HSM1_SUMME
 HSJ1_SUMME HST1_SUMME_1 HSM1_SUMME_1 HSJ1_SUMME_1 HSDAT1_1 HSDAT2_1 HSSTRICH
 HSSTRICH_1	 HSTEXT1_1 DATUM21 CRLF TAGE10 MONAT10 JAHR10 DATUM2 DATUM3 EINGABE1 TAGE1 MONAT1 JAHR1 DATUM4 DATUM5 EINGABE2 TAGE2 MONAT2 JAHR2 DATUM6 DATUM7 EINGABE3 TAGE3 MONAT3 JAHR3 DATUM8 DATUM9 EINGABE4 TAGE4 MONAT4 JAHR4 DATUM10 DATUM11 EINGABE5 TAGE5 MONAT5 JAHR5 DATUM12 DATUM13 EINGABE6 TAGE6 MONAT6 JAHR6 DATUM26 TAGE13 MONAT13 JAHR13 DATUM14 DATUM15 EINGABE7 TAGE7 MONAT7 JAHR7 DATUM16 DATUM17 EINGABE8 TAGE8 MONAT8 JAHR8 DATUM18 DATUM19 EINGABE9 TAGE9 MONAT9 JAHR9 DATUM22	 RUHESTAND	 RUHEMONAT TEXT5 VISIBLE TRUE DATUM23 TEXT6 DATUM24 TEXT7 DATUM25	 OLDSELECT DUMMY FELD JDA1 Click,     1   A A 2q0`  Q1         aaQQQA aaQQQA aaQQQA aaQQQA aaQQQA aq!qA 5A 1         aaQQQA aaQQQA aaQQQA 1M z##'L  q Q A r Q r A  21                       ?      )                           
commandbutton      
commandbutton      Command5      FORM1      Top = 0
Left = 483
Height = 34
Width = 121
Picture = icons\sw_druck.bmp
Caption = "    Dienstzeit"
TabIndex = 5
PicturePosition = 2
Name = "Command5"
     2PROCEDURE Click
With myJDA
	If EMPTY(.Datum2.value) .or. ALLTRIM(.datum2.value) = ".  ."
		Messagebox( "Bitte vorher Daten eingeben", 0, "Dateneingabe fehlt")
		.Datum1.SetFocus
		Return
	ENDIF
	
PUBLIC hskeine1,hskeine2
PUBLIC hsdat1,hsdat2,hstext1,hsdat1_1,hsdat2_1,hsstrich,hsstrich_1,hstext1_1
PUBLIC hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1
PUBLIC hst1_2,hsm1_2,hsj1_2,hst1_3,hsm1_3,hsj1_3,hst1_4,hsm1_4,hsj1_4
STORE "" TO hsdat1,hsdat2,hsdat1,hsdat2,hstext1,hsdat1_1,hsdat2_1,hsstrich,hsstrich_1,hstext1_1
STORE 0 TO hst1,hsm1,hsj1,hst1_1,hsm1_1,hsj1_1
STORE 0 TO hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1 
STORE 0 TO hst1_2,hsm1_2,hsj1_2,hst1_3,hsm1_3,hsj1_3,hst1_4,hsm1_4,hsj1_4

*!*			Printer.Orientation = 1

*!*			Printer.FontBold = True
*!*			Printer.Font = "arial"
*!*			Printer.FontSize = 12
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print Tab(8); ditext4;

*!*			If Alltrim(ditext6) = ""

*!*				Printer.CurrentX = 7000
*!*				Printer.Print Date

*!*			Else
*!*				Printer.CurrentX = 7000
*!*				Printer.Print Alltrim(ditext6)

*!*			Endif
*!*			Printer.Print Tab(8); ditext5;
*!*				Printer.Print
*!*			Printer.Print
*!*			Printer.FontBold = False
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print
*!*			Printer.Print

*!*			Printer.Print
*!*			Do Case && wnw.anrede
*!*				Case wnw.anrede = "a"
*!*				Case wnw.anrede = "b"
*!*					Printer.Print Tab(12); "Herrn"
*!*				Case wnw.anrede = "c"
*!*					Printer.Print Tab(12); "Frau"
*!*				Case wnw.anrede = "d"
*!*					Printer.Print Tab(12); "Frulein"
*!*			Endcase

*!*			Printer.Print Tab(12); form1.z(0).Caption;
*!*				If Len(Alltrim(wnw.ztext7)) > 0

*!*			Printer.CurrentX = 7000
*!*			Printer.Print "Dienstanschrift:"
*!*		Else
*!*			Printer.Print
*!*		Endif
*!*		Printer.Print Tab(12); wnw.ztext5;
*!*			If Len(Alltrim(wnw.ztext7)) > 0

*!*		Printer.CurrentX = 7000
*!*		Printer.Print wnw.ztext7
*!*	Else
*!*		Printer.Print
*!*	Endif

*!*	Printer.Print
*!*	Printer.Print Tab(12); wnw.ztext6



*!*	Printer.Print
*!*	Printer.Print

*!*	Printer.FontSize = 12
*!*	Printer.FontBold = True
*!*	Printer.Print
*!*	Printer.Print
*!*	&&Printer.Print
*!*	Printer.Print Tab(8); "Ihre Beschftigungszeit zum Stichtag am " + DTOC(myJDA.Datum21.value)
*!*	Printer.Print
*!*	Printer.FontBold = False


*!*	Printer.Print Tab(12); "Zum Stichtag am " + JDA.Datum(1+20) + " betrgt Ihre Beschftigungszeit"
*!*	Printer.Print Tab(12); JDA.Jahr(1+14) + " Jahre, " + JDA.Monat(14) + " Monate und " + JDA.Tage(14) + " Tage und setzt sich wie folgt zusammen:"
*!*	Printer.Print

*!*	Printer.Print Tab(12); "1. Anrechenbare Zeiten  bei frheren Dienstherren"

*!*	Printer.CurrentX = 8050
*!*	Printer.Print " T";
*!*		Printer.CurrentX = 8500
*!*	Printer.Print " M";
*!*		Printer.CurrentX = 9050
*!*	Printer.Print " J"
*!*	Printer.Font = "arial"

hskeine1 = .f.
hskeine2 = .f.

If .Tage10.value = 0 .And. .Monat10.value = 0 .And. .Jahr10.value = 0
*!*		Printer.Print Tab(15); "Keine"
	hskeine1 = .t.
ELSE
	hsdat1 = ""
	hsdat2 = ""
	hsstrich = ""
	hstext1 = ""
	hst1 = ""
	hsm1 = ""
	hsj1 = ""
	IF .not. EMPTY(myjda.datum2.value)
		hsdat1 = hsdat1 + myjda.datum2.value + crlf
		hsstrich = hsstrich + "-" + crlf
		hsdat2 = hsdat2 + myjda.datum3.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe1.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage1.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat1.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr1.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum4.value)
		hsdat1 = hsdat1 + myjda.datum4.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsdat2 = hsdat2 + myjda.datum5.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe2.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage2.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat2.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr2.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum6.value)
		hsdat1 = hsdat1 + myjda.datum6.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsdat2 = hsdat2 + myjda.datum7.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe3.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage3.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat3.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr3.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum8.value)
		hsdat1 = hsdat1 + myjda.datum8.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsdat2 = hsdat2 + myjda.datum9.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe4.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage4.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat4.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr4.value,4,0)) + crlf		
	ENDIF
	IF .not. EMPTY(myjda.datum10.value)
		hsdat1 = hsdat1 + myjda.datum10.value + crlf
		hsstrich = hsstrich + "-" + crlf		
		hsdat2 = hsdat2 + myjda.datum11.value + crlf
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe5.value) + crlf
		hst1 = hst1 + ALLTRIM(STR(myjda.tage5.value,4,0)) + crlf
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat5.value,4,0)) + crlf
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr5.value,4,0)) + crlf		
	endif	
	IF .not. EMPTY(myjda.datum12.value)
		hsdat1 = hsdat1 + myjda.datum12.value
		hsstrich = hsstrich + "-"		
		hsdat2 = hsdat2 + myjda.datum13.value
		hstext1 = hstext1 + ALLTRIM(myjda.eingabe6.value)
		hst1 = hst1 + ALLTRIM(STR(myjda.tage6.value,4,0))
		hsm1 = hsm1 + ALLTRIM(STR(myjda.monat6.value,4,0))
		hsj1 = hsj1 + ALLTRIM(STR(myjda.jahr6.value,4,0))		
	endif		

*!*		j = 0
*!*		For i = 1 To 6
*!*			If .Datum(1+i * 2).Text = ""

*!*			Else
*!*				If .Box(i) < 0

*!*					j = 1
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Datum(1+i * 2) + "  -"
*!*						Printer.CurrentX = 3000
*!*					Printer.Print .Datum(1+i * 2 + 1);
*!*						Printer.CurrentX = 8000
*!*					Printer.Font = "courier new"
*!*					Printer.Print Right(" " + .Tage(i), 2)
*!*						Printer.CurrentX = 8500
*!*					Printer.Print Right(" " + .Monat(i), 2)
*!*						Printer.CurrentX = 9000
*!*					Printer.Print Right(" " + .Jahr(1+i), 2)
*!*					Printer.Font = "arial"
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Eingabe(i)

*!*				Endif
*!*			Endif
*!*		Next

*!*		If j = 1

*!*			If Dimen.dimpw2 = 0
*!*				Printer.CurrentY = Printer.CurrentY - 250
*!*			Endif

*!*			Printer.CurrentX = 8000
*!*			Printer.Print String(10, "_")
*!*		Endif
*!*		Printer.Font = "courier new"
*!*		Printer.CurrentX = 8000
*!*		Printer.Print Right(" " + .Tage(10), 2)
		hst1_summe = ALLTRIM(STR(myjda.tage10.value,5,0))
*!*			Printer.CurrentX = 8500
*!*		Printer.Print Right(" " + .Monat(10), 2)
		hsm1_summe = ALLTRIM(STR(myjda.monat10.value,5,0))
*!*			Printer.CurrentX = 9000
*!*		Printer.Print Right(" " + .Jahr(1+10), 2)
		hsj1_summe = ALLTRIM(STR(myjda.jahr10.value,5,0))
*!*			Printer.Font = "arial"
Endif
*!*	Printer.Print



*!*	Printer.Print Tab(12); "2. Beschftigungszeit bei uns "
*!*	Printer.Print Tab(15); "vom  " + Label9.Caption + "  bis  " + Label14.Caption
*!*		Printer.Font = "courier new"
*!*	Printer.CurrentX = 8000
*!*	Printer.Print Right(" " + .Tage(11), 2)
hst1_2 = ALLTRIM(STR(.Tage11.value,4,0))
*!*		Printer.CurrentX = 8500
*!*	Printer.Print Right(" " + .Monat(11), 2)
hsm1_2 = ALLTRIM(STR(.Monat11.value,4,0))
*!*		Printer.CurrentX = 9000
*!*	Printer.Print Right(" " + .Jahr(1+11), 2)
hsj1_2 = ALLTRIM(STR(.jahr11.value,4,0))
*!*	Printer.Font = "arial"
*!*	Printer.Print

*!*	Printer.Print Tab(12); "3. Beschftigungszeiten insgesamt"
*!*	Printer.Print Tab(15); "(Nr. 1 und Nr. 2)"
*!*		Printer.Font = "courier new"
*!*	Printer.CurrentX = 8000
*!*	Printer.Print Right(" " + .Tage(12), 2)
hst1_3 = ALLTRIM(STR(.Tage12.value,5,0))
*!*		Printer.CurrentX = 8500
*!*	Printer.Print Right(" " + .Monat(12), 2)
hsm1_3 = ALLTRIM(STR(.Monat12.value,5,0))
*!*		Printer.CurrentX = 9000
*!*	Printer.Print Right(" " + .Jahr(12), 2)
hsj1_3 = ALLTRIM(STR(.jahr12.value,5,0))
*!*	Printer.Font = "arial"
*!*	Printer.Print


*!*	Printer.Print Tab(12); "4. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"
If .Tage13.value = 0 .And. .Monat13.value = 0 .And. .Jahr13.value = 0
	hskeine2 = .t.
*!*		Printer.Print Tab(15); "Keine"
Else
	hsdat1_1 = ""
	hsdat2_1 = ""
	hsstrich_1 = ""
	hstext1_1 = ""
	hst1_1 = ""
	hsm1_1 = ""
	hsj1_1 = ""
	IF .not. EMPTY(myjda.datum14.value)
		hsdat1_1 = hsdat1_1 + myjda.datum14.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf
		hsdat2_1 = hsdat2_1 + myjda.datum15.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe7.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage7.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat7.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr7.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum16.value)
		hsdat1_1 = hsdat1_1 + myjda.datum16.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf		
		hsdat2_1 = hsdat2_1 + myjda.datum17.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe8.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage8.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat8.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr8.value,4,0)) + crlf
	ENDIF
	IF .not. EMPTY(myjda.datum18.value)
		hsdat1_1 = hsdat1_1 + myjda.datum18.value + crlf
		hsstrich_1 = hsstrich_1 + "-" + crlf		
		hsdat2_1 = hsdat2_1 + myjda.datum19.value + crlf
		hstext1_1 = hstext1_1 + ALLTRIM(myjda.eingabe9.value) + crlf
		hst1_1 = hst1_1 + ALLTRIM(STR(myjda.tage9.value,4,0)) + crlf
		hsm1_1 = hsm1_1 + ALLTRIM(STR(myjda.monat9.value,4,0)) + crlf
		hsj1_1 = hsj1_1 + ALLTRIM(STR(myjda.jahr9.value,4,0)) + crlf
	ENDIF


*!*		j = 0
*!*		For i = 7 To 9
*!*			If .Datum(1+i * 2).Text = ""

*!*			Else
*!*				If .Box(i) < 0

*!*					j = 1
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Datum(1+i * 2) + "  -";
*!*						Printer.CurrentX = 3000
*!*					Printer.Print .Datum(1+i * 2 + 1);
*!*						Printer.Font = "courier new"
*!*					Printer.CurrentX = 8000
*!*					Printer.Print Right(" " + .Tage(i), 2);
*!*						Printer.CurrentX = 8500
*!*					Printer.Print Right(" " + .Monat(i), 2);
*!*						Printer.CurrentX = 9000
*!*					Printer.Print Right(" " + .Jahr(1+i), 2)
*!*					Printer.Font = "arial"
*!*					Printer.CurrentX = 1500
*!*					Printer.Print .Eingabe(i)

*!*				Endif
*!*			Endif
*!*		Next

*!*		If j = 1

*!*			If Dimen.dimpw2 = 0
*!*				Printer.CurrentY = Printer.CurrentY - 250
*!*			Endif

*!*			Printer.CurrentX = 8000
*!*			Printer.Print String(10, "_")
*!*		Endif
*!*		Printer.Font = "courier new"
*!*		Printer.CurrentX = 8000
*!*		Printer.Print Right(" " + .Tage(13), 2);
*!*			Printer.CurrentX = 8500
*!*		Printer.Print Right(" " + .Monat(13), 2);
*!*			Printer.CurrentX = 9000
*!*		Printer.Print Right(" " + .Jahr(1+13), 2)
*!*		Printer.Font = "arial"
	hst1_summe_1 = ALLTRIM(STR(myjda.tage13.value,4,0))
	hsm1_summe_1 = ALLTRIM(STR(myjda.monat13.value,4,0))
	hsj1_summe_1 = ALLTRIM(STR(myjda.jahr13.value,4,0))	
Endif
*!*	Printer.Print



*!*	Printer.Print Tab(12); "5. Magebliche Beschftigungszeit"
*!*	Printer.Print Tab(15); "(Nr. 3 minus Nr. 4)"
*!*		Printer.Font = "courier new"
*!*	Printer.CurrentX = 8000
*!*	Printer.Print Right(" " + .Tage(14), 2);
*!*		Printer.CurrentX = 8500
*!*	Printer.Print Right(" " + .Monat(14), 2);
*!*		Printer.CurrentX = 9000
*!*	Printer.Print Right(" " + .Jahr(1+14), 2)
*!*	Printer.Font = "arial"
*!*	Printer.Print

hst1_4 = ALLTRIM(STR(myjda.tage14.value,4,0))
hsm1_4 = ALLTRIM(STR(myjda.monat14.value,4,0))
hsj1_4 = ALLTRIM(STR(myjda.jahr14.value,4,0))

*!*	Printer.FontSize = 12
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(9); "Sachlich und rechnerisch richtig: " + String(23, " ") + "Festgestellt:"
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(9); String(25, "_") + String(26, " ") + String(25, "_")

Endwith
*!*	Printer.EndDoc
*!*	SELECT dummy
*!*	GO top

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM jda2 RANGE 1,1 NOCONSOLE TO PRINTER prompt


SELECT dummy
USE
SELECT(oldselect)

RELEASE hsdat1,hsdat2,hskeine1,hskeine2
RELEASE hsdat1,hsdat2,hstext1,hst1,hsm1,hsj1,hsdat1_1,hsdat2_1,hsstrich,hsstrich_1,hstext1_1,hst1_1,hsm1_1,hsj1_1
RELEASE hst1_summe,hsm1_summe,hsj1_summe,hst1_summe_1,hsm1_summe_1,hsj1_summe_1
RELEASE hst1_2,hsm1_2,hsj1_2,hst1_3,hsm1_3,hsj1_3,hst1_4,hsm1_4,hsj1_4

ENDPROC
         q  q                           %         (                 U  
   
( %C   C   .  . ? C Bitte vorher Daten eingeben  Dateneingabe fehltx    B  7  # 7  	 
   
   7      ' 7         1 J  (    	 
   
  ! J (    ! " # ! J (      - J (          T - T -3 %$    %   	 &   	 T a 5
 T   
 T   
 T   
 T	   
 T   
 T   
 T     %C    
< T      '  T   -'  T    (  '  T	 	 C  )  ' % T  CC  *   Z' % T  CC  +   Z' % T    CC  ,   Z'   %C  -  
. T    -  '  T   -'  T    .  '  T	 	 C  /  ' % T  CC  0   Z' % T  CC  1   Z' % T    CC  2   Z'   %C  3  
  T    3  '  T   -'  T    4  '  T	 	 C  5  ' % T  CC  6   Z' % T  CC  7   Z' % T    CC  8   Z'   %C  9  
 T    9  '  T   -'  T    :  '  T	 	 C  ;  ' % T  CC  <   Z' % T  CC  =   Z' % T    CC  >   Z'   %C  ?  
 T    ?  '  T   -'  T    @  '  T	 	 C  A  ' % T  CC  B   Z' % T  CC  C   Z' % T    CC  D   Z'   %C  E  
 T    E   T   - T    F   T	 	 C  G  ! T  CC  H   Z! T  CC  I   Z! T    CC  J   Z  T CC  $   Z T CC  %   Z T CC  &   Z  T CCK   Z T CCL   Z T CCM   Z T CCN   Z T CCO   Z T CCP   Z3 %Q    R   	 S   		 T a 
 T
   
 T   
 T
   
 T   
 T!   
 T"   
 T#    %C  T  
j
 T
 
   T  '  T
 
  -'  T    U  '  T  C  V  ' % T! ! CC  W   Z' % T" " CC  X   Z' % T# # CC  Y   Z'   %C  Z  
\ T
 
   Z  '  T
 
  -'  T    [  '  T  C  \  ' % T! ! CC  ]   Z' % T" " CC  ^   Z' % T# # CC  _   Z'   %C  `  
N T
 
   `  '  T
 
  -'  T    a  '  T  C  b  ' % T! ! CC  c   Z' % T" " CC  d   Z' % T# # CC  e   Z'   T CC  Q   Z T CC  R   Z T CC  S   Z  T CC  f   Z T CC  g   Z T CC  h   Z  Ti C W h dummyk  C Fj   [ Fj  #) ? jda2(!"9 Fj  Q
 Fi  <    ; <  	     
   
  ! " #  <      ' <          Um  MYJDA DATUM2 VALUE DATUM1 SETFOCUS HSKEINE1 HSKEINE2 HSDAT1 HSDAT2 HSTEXT1 HSDAT1_1 HSDAT2_1 HSSTRICH
 HSSTRICH_1	 HSTEXT1_1
 HST1_SUMME
 HSM1_SUMME
 HSJ1_SUMME HST1_SUMME_1 HSM1_SUMME_1 HSJ1_SUMME_1 HST1_2 HSM1_2 HSJ1_2 HST1_3 HSM1_3 HSJ1_3 HST1_4 HSM1_4 HSJ1_4 HST1 HSM1 HSJ1 HST1_1 HSM1_1 HSJ1_1 TAGE10 MONAT10 JAHR10 CRLF DATUM3 EINGABE1 TAGE1 MONAT1 JAHR1 DATUM4 DATUM5 EINGABE2 TAGE2 MONAT2 JAHR2 DATUM6 DATUM7 EINGABE3 TAGE3 MONAT3 JAHR3 DATUM8 DATUM9 EINGABE4 TAGE4 MONAT4 JAHR4 DATUM10 DATUM11 EINGABE5 TAGE5 MONAT5 JAHR5 DATUM12 DATUM13 EINGABE6 TAGE6 MONAT6 JAHR6 TAGE11 MONAT11 JAHR11 TAGE12 MONAT12 JAHR12 TAGE13 MONAT13 JAHR13 DATUM14 DATUM15 EINGABE7 TAGE7 MONAT7 JAHR7 DATUM16 DATUM17 EINGABE8 TAGE8 MONAT8 JAHR8 DATUM18 DATUM19 EINGABE9 TAGE9 MONAT9 JAHR9 TAGE14 MONAT14 JAHR14	 OLDSELECT DUMMY FELD JDA2 Click,     1   A A  1q  2         aaQQQA aaQQQA aaQQQA aaQQQA aaQQQA aq!qA B 6         aaQQQA aaQQQA aaQQQA A  J  q Q A r Q s A  2q2                       2      )   q                        
commandbutton      
commandbutton      Command6      FORM1      Top = 0
Left = 603
Height = 34
Width = 121
Picture = prgicons\katalog.ico
Caption = "   Info"
Enabled = .F.
TabIndex = 6
PicturePosition = 2
Name = "Command6"
      dPROCEDURE Click
	inet = 310
	Msg = "Dienstzeitenrechner"
	Do insinternet &&Do attached
ENDPROC
                                         %                             U  8  T  6  T  Dienstzeitenrechner   U  INET MSG INSINTERNET Click,     1  q 1                       Y       )                            
commandbutton      
commandbutton      Command7      FORM1      Top = 0
Left = 723
Height = 34
Width = 121
Picture = prgicons\exit.ico
Cancel = .T.
Caption = "Schlieen"
TabIndex = 7
PicturePosition = 1
Name = "Command7"
     PROCEDURE Click
With jdadat
	.Eintrittruhestand = ruhestand
	For i = 0 To 28
		xxx = ALLTRIM(STR(i,5,0))
		.Datum(1+i) = myJDA.Datum&xxx..value
	NEXT
	
	For i = 1 To 9
		xxx = ALLTRIM(STR(i,5,0))
		.Beschreibung(i) = myJDA.Eingabe&xxx..value
		.boxen(i) = myJDA.Box&xxx..value
	NEXT
	
	If myjda.optiongroup1.Opt1.Value = 1
		.boxen(15) = 1
	Else
		.boxen(15) = 0
	ENDIF
	
	.Mon = ruhemonat
ENDWITH

myput(92, fileneu,"jdadat")
myclose("92")
myform1.visible = .t.
thisform.Release

ENDPROC
                                      %   s                       U  
   V T     (q  T CC  Z( .Datum(1+i) = myJDA.Datum&xxx..value
   (	  T CC  Z/ .Beschreibung(i) = myJDA.Eingabe&xxx..value
$ .boxen(i) = myJDA.Box&xxx..value
  %    ( T	  D T	    T
    C\ 
  jdadat  C 92  T  a
    U  JDADAT EINTRITTRUHESTAND	 RUHESTAND I XXX MYJDA OPTIONGROUP1 OPT1 VALUE BOXEN MON	 RUHEMONAT MYPUT FILENEU MYCLOSE MYFORM1 VISIBLE THISFORM RELEASE Click,     1   qqA rqAA A AA  A    2                             )                           label      label      text0      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Geburtstag am . . . . . . . . "
Height = 19
Left = 9
Top = 48
Width = 183
TabIndex = 8
Name = "text0"
      textbox      textbox      datum0      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 25
InputMask = "99.99.9999"
Left = 253
SelectOnEntry = .T.
TabIndex = 9
Top = 45
Width = 103
Name = "datum0"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus

myindex = 0
DO jda_datum_lostfocus WITH myindex

ENDPROC
PROCEDURE GotFocus
indexi = 0
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T        U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T    U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   3  1                                         
           )                           optiongroup      optiongroup      optiongroup1      FORM1     NButtonCount = 2
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 45
Left = 394
Top = 48
Width = 241
TabIndex = 10
Name = "optiongroup1"
Option1.FontBold = .T.
Option1.FontSize = 10
Option1.BackStyle = 0
Option1.Caption = "Eintritt in den Ruhestand nach"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 217
Option1.Name = "Opt0"
Option2.FontBold = .T.
Option2.FontSize = 10
Option2.BackStyle = 0
Option2.Caption = "Kndigung"
Option2.Height = 17
Option2.Left = 151
Option2.Top = 24
Option2.Width = 89
Option2.Name = "Opt1"
      aPROCEDURE Click
	optindex = this.value - 1 &&HS myindex
	Do umschalter &&Do attached
ENDPROC
                                      5   %   q                          U    T       U  OPTINDEX THIS VALUE
 UMSCHALTER Click,     1 Aq 1                       V       )                            textbox      textbox      datum1      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 25
InputMask = "99.99.9999"
Left = 253
SelectOnEntry = .T.
TabIndex = 11
Top = 71
Width = 103
BackColor = 177,255,100
Name = "datum1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 1
DO jda_datum_lostfocus WITH myindex

ENDPROC
PROCEDURE GotFocus
indexi = 1
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   3  1                                         
   	    
    )                           textbox      textbox      datum20      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 25
InputMask = "99.99.9999"
Left = 403
SelectOnEntry = .T.
TabIndex = 12
Top = 71
Width = 103
Name = "datum20"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 20
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 20
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           label      label      Label2      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "bis"
Height = 19
Left = 370
Top = 75
Width = 23
TabIndex = 13
Name = "Label2"
      spinner      spinner      alter      FORM1      FontBold = .T.
FontSize = 10
Height = 24
KeyboardHighValue = 70
KeyboardLowValue = 55
Left = 628
SpinnerHighValue =  70.00
SpinnerLowValue =  55.00
TabIndex = 14
Top = 48
Width = 52
Format = "99"
Name = "alter"
     PROCEDURE DownClick
ruhestand = ruhestand - 1
If ruhestand = 54
	ruhestand = 70
Endif

thisform.Alter.value = ruhestand

Do inrentei &&Do attached
Do jdasubtraktion &&Do attached
ENDPROC
PROCEDURE UpClick
ruhestand = ruhestand + 1
If ruhestand = 71
	ruhestand = 55
Endif

thisform.Alter.value = ruhestand
Do inrentei &&Do attached
Do jdasubtraktion &&Do attached
ENDPROC
                                   lb   %   \                       U  W  T     %  6/ 
 T  F  T          U 	 RUHESTAND THISFORM ALTER VALUE INRENTEI JDASUBTRAKTIONW  T     %  G/ 
 T  7  T          U 	 RUHESTAND THISFORM ALTER VALUE INRENTEI JDASUBTRAKTION	 DownClick,      UpClick     1  A 2r q 2  A 2q q 1                             	      }      )                           spinner      spinner      	monthspin      FORM1      FontBold = .T.
FontSize = 10
Height = 24
KeyboardHighValue = 12
KeyboardLowValue = 0
Left = 716
SpinnerHighValue =  12.00
SpinnerLowValue =   0.00
TabIndex = 15
Top = 48
Width = 52
Format = "99"
Name = "monthspin"
     PROCEDURE UpClick
	ruhemonat = ruhemonat + 1
	If ruhemonat = 12
		ruhemonat = 0
	Endif

	thisform.Monthspin.value = ruhemonat
	
	Do inrentei &&Do attached
	Do jdasubtraktion &&Do attached
ENDPROC
PROCEDURE DownClick
	ruhemonat = ruhemonat - 1
	If ruhemonat = -1
		ruhemonat = 12
	Endif

	thisform.Monthspin.value = ruhemonat
	
	Do inrentei &&Do attached
	Do jdasubtraktion &&Do attached
ENDPROC
                                      %   e                       U  W  T     %  / 
 T     T          U 	 RUHEMONAT THISFORM	 MONTHSPIN VALUE INRENTEI JDASUBTRAKTIONX  T     %  0 
 T    T          U 	 RUHEMONAT THISFORM	 MONTHSPIN VALUE INRENTEI JDASUBTRAKTION UpClick,     	 DownClick     1  A 2r q 2 ! A 2r q 1                             	            )                           label      label      Label3      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "und"
Height = 16
Left = 685
Top = 54
Width = 28
TabIndex = 16
Name = "Label3"
      label      label      Label4      FORM1      cCaption = "Jahren"
Height = 13
Left = 634
Top = 33
Width = 42
TabIndex = 17
Name = "Label4"
      label      label      Label5      FORM1      dCaption = "Monaten"
Height = 13
Left = 718
Top = 33
Width = 49
TabIndex = 18
Name = "Label5"
      label      label      text1      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Tag, ab dem Dienstbezge zustehen"
Height = 19
Left = 9
Top = 74
Width = 238
TabIndex = 19
Name = "text1"
      label      label      text2      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Anrechenbare Zeiten V O R dem Tag, ab dem Dienstbezge zustehen"
Height = 19
Left = 10
Top = 99
Width = 450
TabIndex = 20
Name = "text2"
      textbox      textbox      datum2      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 31
Top = 117
Width = 103
Name = "datum2"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 2
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 2
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab1      FORM1      zTop = 117
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 21
Name = "ab1"
      .PROCEDURE Click
DO ab_click WITH 1
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            line      line      Line1      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 128
Width = 12
Name = "Line1"
      textbox      textbox      datum3      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 32
Top = 117
Width = 103
Name = "datum3"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 3
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 3
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf2      FORM1      {Top = 140
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 22
Name = "auf2"
      /PROCEDURE Click
DO auf_click WITH 2
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum4      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 34
Top = 140
Width = 103
Name = "datum4"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 4
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 4
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab2      FORM1      zTop = 140
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 23
Name = "ab2"
      .PROCEDURE Click
DO ab_click WITH 2
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            textbox      textbox      datum5      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 35
Top = 140
Width = 103
Name = "datum5"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 5
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 5
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf3      FORM1      {Top = 163
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 24
Name = "auf3"
      /PROCEDURE Click
DO auf_click WITH 3
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum6      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 37
Top = 163
Width = 103
Name = "datum6"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 6
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 6
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab3      FORM1      zTop = 163
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 25
Name = "ab3"
      .PROCEDURE Click
DO ab_click WITH 3
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            textbox      textbox      datum7      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 38
Top = 163
Width = 103
Name = "datum7"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 7
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 7
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf4      FORM1      {Top = 186
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 26
Name = "auf4"
      /PROCEDURE Click
DO auf_click WITH 4
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum8      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 40
Top = 186
Width = 103
Name = "datum8"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 8
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 8
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab4      FORM1      zTop = 186
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 27
Name = "ab4"
      .PROCEDURE Click
DO ab_click WITH 4
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            textbox      textbox      datum9      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 41
Top = 186
Width = 103
Name = "datum9"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 9
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 9
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T  	     U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T  	 U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf5      FORM1      {Top = 209
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 28
Name = "auf5"
      /PROCEDURE Click
DO auf_click WITH 5
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum10      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 43
Top = 209
Width = 103
Name = "datum10"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 10
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 10
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T  
     U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T  
 U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab5      FORM1      zTop = 209
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 29
Name = "ab5"
      .PROCEDURE Click
DO ab_click WITH 5
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            textbox      textbox      datum11      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 44
Top = 209
Width = 103
Name = "datum11"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 11
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 11
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf6      FORM1      {Top = 232
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 30
Name = "auf6"
      /PROCEDURE Click
DO auf_click WITH 6
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum12      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 46
Top = 232
Width = 103
Name = "datum12"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 12
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 12
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           textbox      textbox      datum13      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 47
Top = 232
Width = 103
Name = "datum13"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 13
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 13
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T  
     U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T  
 U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           textbox      textbox      eingabe1      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 33
Top = 117
Width = 375
Name = "eingabe1"
     uPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))

*!*		If nKeycode = 13
*!*			If VAL(textfeld) < 9
*!*				hsdatumfeld = VAL(textfeld) * 2 + 2
*!*				thisform.Datum&hsdatumfeld..SetFocus
*!*			Endif
*!*		Endif
ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q8                       j      )   T                        textbox      textbox      eingabe2      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 36
Top = 140
Width = 375
Name = "eingabe2"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        textbox      textbox      eingabe3      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 39
Top = 163
Width = 375
Name = "eingabe3"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        textbox      textbox      eingabe4      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 42
Top = 186
Width = 375
Name = "eingabe4"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))

ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q2                              )   T                        textbox      textbox      eingabe5      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 45
Top = 209
Width = 375
Name = "eingabe5"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        textbox      textbox      eingabe6      FORM1      hHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 48
Top = 232
Width = 375
Name = "eingabe6"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))

ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q2                              )   T                        line      line      Line2      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 152
Width = 12
Name = "Line2"
      line      line      Line3      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 175
Width = 12
Name = "Line3"
      line      line      Line4      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 198
Width = 12
Name = "Line4"
      line      line      Line5      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 220
Width = 12
Name = "Line5"
      line      line      Line6      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 243
Width = 12
Name = "Line6"
      label      label      zhler1      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 120
Width = 16
TabIndex = 49
Name = "zhler1"
      label      label      zhler2      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 143
Width = 16
TabIndex = 50
Name = "zhler2"
      label      label      zhler3      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 166
Width = 16
TabIndex = 51
Name = "zhler3"
      label      label      zhler4      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 189
Width = 16
TabIndex = 52
Name = "zhler4"
      label      label      zhler5      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 212
Width = 16
TabIndex = 53
Name = "zhler5"
      label      label      zhler6      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 235
Width = 16
TabIndex = 54
Name = "zhler6"
      label      label      Label1      FORM1      FontBold = .T.
FontSize = 18
BackStyle = 0
Caption = "*"
Height = 16
Left = 681
Top = 98
Width = 11
TabIndex = 55
Name = "Label1"
      checkbox      checkbox      box1      FORM1      qTop = 120
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 56
Name = "box1"
      /PROCEDURE Click
DO box_click WITH 1
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box2      FORM1      qTop = 143
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 57
Name = "box2"
      /PROCEDURE Click
DO box_click WITH 2
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box3      FORM1      qTop = 166
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 58
Name = "box3"
      /PROCEDURE Click
DO box_click WITH 3
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box4      FORM1      qTop = 189
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 59
Name = "box4"
      /PROCEDURE Click
DO box_click WITH 4
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box5      FORM1      qTop = 212
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 60
Name = "box5"
      /PROCEDURE Click
DO box_click WITH 5
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box6      FORM1      qTop = 235
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 61
Name = "box6"
      /PROCEDURE Click
DO box_click WITH 6
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            label      label      Label15      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "T"
Height = 18
Left = 729
Top = 97
Width = 13
TabIndex = 62
Name = "Label15"
      label      label      Label16      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "M"
Height = 18
Left = 768
Top = 97
Width = 13
TabIndex = 63
Name = "Label16"
      label      label      Label17      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "J"
Height = 18
Left = 807
Top = 97
Width = 13
TabIndex = 64
Name = "Label17"
      textbox      textbox      tage1      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 65
Top = 117
Width = 37
BackColor = 255,255,128
Name = "tage1"
      textbox      textbox      monat1      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 66
Top = 117
Width = 37
BackColor = 255,255,128
Name = "monat1"
      textbox      textbox      jahr1      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 67
Top = 117
Width = 37
BackColor = 255,255,128
Name = "jahr1"
      textbox      textbox      tage2      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 68
Top = 140
Width = 37
BackColor = 255,255,128
Name = "tage2"
      textbox      textbox      monat2      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 69
Top = 140
Width = 37
BackColor = 255,255,128
Name = "monat2"
      textbox      textbox      jahr2      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 70
Top = 140
Width = 37
BackColor = 255,255,128
Name = "jahr2"
      textbox      textbox      tage3      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 71
Top = 163
Width = 37
BackColor = 255,255,128
Name = "tage3"
      textbox      textbox      monat3      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 72
Top = 163
Width = 37
BackColor = 255,255,128
Name = "monat3"
      textbox      textbox      jahr3      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 73
Top = 163
Width = 37
BackColor = 255,255,128
Name = "jahr3"
      textbox      textbox      tage4      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 74
Top = 186
Width = 37
BackColor = 255,255,128
Name = "tage4"
      textbox      textbox      monat4      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 75
Top = 186
Width = 37
BackColor = 255,255,128
Name = "monat4"
      textbox      textbox      jahr4      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 76
Top = 186
Width = 37
BackColor = 255,255,128
Name = "jahr4"
      textbox      textbox      tage5      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 77
Top = 209
Width = 37
BackColor = 255,255,128
Name = "tage5"
      textbox      textbox      monat5      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 78
Top = 209
Width = 37
BackColor = 255,255,128
Name = "monat5"
      textbox      textbox      jahr5      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 79
Top = 209
Width = 37
BackColor = 255,255,128
Name = "jahr5"
      textbox      textbox      tage6      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 80
Top = 232
Width = 37
BackColor = 255,255,128
Name = "tage6"
      textbox      textbox      monat6      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 81
Top = 232
Width = 37
BackColor = 255,255,128
Name = "monat6"
      textbox      textbox      jahr6      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 82
Top = 232
Width = 37
BackColor = 255,255,128
Name = "jahr6"
      line      line      Line7      FORM1      QBorderWidth = 2
Height = 1
Left = 710
Top = 256
Width = 128
Name = "Line7"
      textbox      textbox      tage10      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 83
Top = 260
Width = 37
BackColor = 177,255,100
Name = "tage10"
      textbox      textbox      monat10      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 84
Top = 260
Width = 37
BackColor = 177,255,100
Name = "monat10"
      textbox      textbox      jahr10      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 85
Top = 260
Width = 37
BackColor = 177,255,100
Name = "jahr10"
      textbox      textbox      tage11      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 86
Top = 284
Width = 37
BackColor = 255,255,128
Name = "tage11"
      textbox      textbox      monat11      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 87
Top = 284
Width = 37
BackColor = 255,255,128
Name = "monat11"
      textbox      textbox      jahr11      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 88
Top = 284
Width = 37
BackColor = 255,255,128
Name = "jahr11"
      line      line      Line8      FORM1      QBorderWidth = 2
Height = 0
Left = 255
Top = 309
Width = 581
Name = "Line8"
      textbox      textbox      tage12      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 89
Top = 313
Width = 37
BackColor = 255,255,0
Name = "tage12"
      textbox      textbox      monat12      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 90
Top = 313
Width = 37
BackColor = 255,255,0
Name = "monat12"
      textbox      textbox      jahr12      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 91
Top = 313
Width = 37
BackColor = 255,255,0
Name = "jahr12"
      label      label      text3      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Summe der anrechenbaren Vorzeiten :"
Height = 19
Left = 261
Top = 262
Width = 315
TabIndex = 92
Name = "text3"
      label      label      text12      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Summe der anrechenbare Beschftigungszeiten insgesamt"
Height = 19
Left = 262
Top = 315
Width = 384
TabIndex = 93
Name = "text12"
      label      label      text11      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "+ Beschftigungszeit vom "
Height = 19
Left = 262
Top = 286
Width = 167
TabIndex = 94
Name = "text11"
      label      label      Label9      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Label9"
Height = 19
Left = 435
Top = 286
Width = 81
TabIndex = 95
Name = "Label9"
      label      label      Label13      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "bis"
Height = 19
Left = 517
Top = 286
Width = 26
TabIndex = 96
Name = "Label13"
      label      label      Label14      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Label14"
Height = 19
Left = 547
Top = 286
Width = 158
TabIndex = 97
Name = "Label14"
      label      label      text14      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "davon sind nicht zu bercksichtigen (z.B. unbezahlter Sonderurlaub)"
Height = 19
Left = 262
Top = 334
Width = 440
TabIndex = 98
Name = "text14"
      textbox      textbox      datum14      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 103
Top = 353
Width = 103
Name = "datum14"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 14
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 14
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab7      FORM1      zTop = 353
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 99
Name = "ab7"
      .PROCEDURE Click
DO ab_click WITH 7
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            line      line      Line9      FORM1      PBorderWidth = 2
Height = 0
Left = 133
Top = 364
Width = 12
Name = "Line9"
      textbox      textbox      datum15      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 104
Top = 353
Width = 103
Name = "datum15"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 15
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 15
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf8      FORM1      |Top = 376
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 100
Name = "auf8"
      /PROCEDURE Click
DO auf_click WITH 8
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum16      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 106
Top = 376
Width = 103
Name = "datum16"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 16
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 16
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      ab8      FORM1      {Top = 376
Left = 9
Height = 22
Width = 16
Picture = prgicons\dropbutt.bmp
Caption = ""
TabIndex = 101
Name = "ab8"
      .PROCEDURE Click
DO ab_click WITH 8
ENDPROC
                                         %   J       _      Y             U   
    U  AB_CLICK Click,     1  1                       #       )                            textbox      textbox      datum17      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 107
Top = 376
Width = 103
Name = "datum17"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 17
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 17
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           
commandbutton      
commandbutton      auf9      FORM1      |Top = 399
Left = 255
Height = 22
Width = 17
Picture = prgicons\upbutt.bmp
Caption = ""
TabIndex = 102
Name = "auf9"
      /PROCEDURE Click
DO auf_click WITH 9
ENDPROC
                                      :   %   K       `      Z             U   
   	 U 	 AUF_CLICK Click,     1  1                       $       )                            textbox      textbox      datum18      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
SelectOnEntry = .T.
TabIndex = 109
Top = 399
Width = 103
Name = "datum18"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 18
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 18
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           textbox      textbox      datum19      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
SelectOnEntry = .T.
TabIndex = 110
Top = 399
Width = 103
Name = "datum19"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE LostFocus
myindex = 19
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 19
ENDPROC
                                   TD   %         e     M            U  S      %  
   	L  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI KeyPress,     	 LostFocus      GotFocus     1  QA 2   2  1                                         
           )                           textbox      textbox      eingabe7      FORM1      iHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 105
Top = 353
Width = 375
Name = "eingabe7"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        textbox      textbox      eingabe8      FORM1      iHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 108
Top = 376
Width = 375
Name = "eingabe8"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        textbox      textbox      eingabe9      FORM1      iHeight = 22
Left = 273
SelectOnEntry = .T.
TabIndex = 111
Top = 399
Width = 375
Name = "eingabe9"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
	textfeld = RIGHT(this.name,1)
	thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))


ENDPROC
     m    T  T                        :   %                           U        T C  Rm thisform.Zhler&textfeld..caption = ALLTRIM(STR(60 - Len(Alltrim(thisform.eingabe&textfeld..value)),2,0))
 U  NKEYCODE
 NSHIFTALTCTRL TEXTFELD THIS NAME KeyPress,     1  Q3                              )   T                        line      line      Line10      FORM1      QBorderWidth = 2
Height = 0
Left = 133
Top = 388
Width = 12
Name = "Line10"
      line      line      Line11      FORM1      QBorderWidth = 2
Height = 0
Left = 133
Top = 411
Width = 12
Name = "Line11"
      label      label      zhler7      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 356
Width = 16
TabIndex = 112
Name = "zhler7"
      label      label      zhler8      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 379
Width = 16
TabIndex = 113
Name = "zhler8"
      label      label      zhler9      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "60"
Height = 16
Left = 655
Top = 402
Width = 16
TabIndex = 114
Name = "zhler9"
      checkbox      checkbox      box7      FORM1      rTop = 356
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 115
Name = "box7"
      /PROCEDURE Click
DO box_click WITH 7
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box8      FORM1      rTop = 379
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 116
Name = "box8"
      /PROCEDURE Click
DO box_click WITH 8
ENDPROC
                                      :   %   K       `      Z             U   
    U 	 BOX_CLICK Click,     1  1                       $       )                            checkbox      checkbox      box9      FORM1      rTop = 402
Left = 679
Height = 16
Width = 16
Alignment = 0
Caption = "Check1"
TabIndex = 117
Name = "box9"
      /PROCEDURE Click
DO box_click WITH 9
ENDPROC
                                      :   %   K       `      Z             U   
   	 U 	 BOX_CLICK Click,     1  1                       $       )                            textbox      textbox      tage7      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 118
Top = 353
Width = 37
BackColor = 255,255,128
Name = "tage7"
      textbox      textbox      monat7      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 119
Top = 353
Width = 37
BackColor = 255,255,128
Name = "monat7"
      textbox      textbox      jahr7      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 120
Top = 353
Width = 37
BackColor = 255,255,128
Name = "jahr7"
      textbox      textbox      tage8      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 121
Top = 376
Width = 37
BackColor = 255,255,128
Name = "tage8"
      textbox      textbox      monat8      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 122
Top = 376
Width = 37
BackColor = 255,255,128
Name = "monat8"
      textbox      textbox      jahr8      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 123
Top = 376
Width = 37
BackColor = 255,255,128
Name = "jahr8"
      textbox      textbox      tage9      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 124
Top = 399
Width = 37
BackColor = 255,255,128
Name = "tage9"
      textbox      textbox      monat9      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 125
Top = 399
Width = 37
BackColor = 255,255,128
Name = "monat9"
      textbox      textbox      jahr9      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 126
Top = 399
Width = 37
BackColor = 255,255,128
Name = "jahr9"
      textbox      textbox      tage13      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 127
Top = 426
Width = 37
BackColor = 177,255,100
Name = "tage13"
      textbox      textbox      monat13      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 128
Top = 426
Width = 37
BackColor = 177,255,100
Name = "monat13"
      textbox      textbox      jahr13      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 129
Top = 426
Width = 37
BackColor = 177,255,100
Name = "jahr13"
      line      line      Line12      FORM1      RBorderWidth = 2
Height = 0
Left = 255
Top = 452
Width = 581
Name = "Line12"
      textbox      textbox      tage14      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 717
SpecialEffect = 0
TabIndex = 130
Top = 456
Width = 37
BackColor = 255,255,0
Name = "tage14"
      textbox      textbox      monat14      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 756
SpecialEffect = 0
TabIndex = 131
Top = 456
Width = 37
BackColor = 255,255,0
Name = "monat14"
      textbox      textbox      jahr14      FORM1      FontSize = 10
Format = "99"
Height = 22
InputMask = "99"
Left = 795
SpecialEffect = 0
TabIndex = 132
Top = 456
Width = 37
BackColor = 255,255,0
Name = "jahr14"
      label      label      text15      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Summe der nicht zu bercksichtigten Zeiten:"
Height = 19
Left = 262
Top = 428
Width = 290
TabIndex = 133
Name = "text15"
      textbox      textbox      datum28      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
TabIndex = 134
Top = 441
Visible = .F.
Width = 103
Name = "datum28"
      {PROCEDURE LostFocus
myindex = 28
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 28
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum26      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 151
TabIndex = 135
Top = 441
Visible = .F.
Width = 103
Name = "datum26"
      {PROCEDURE LostFocus
myindex = 26
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 26
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum27      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 26
TabIndex = 136
Top = 464
Visible = .F.
Width = 103
Name = "datum27"
      {PROCEDURE LostFocus
myindex = 27
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 27
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           label      label      text16      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Somit magebliche Beschftigungszeit bis "
Height = 19
Left = 262
Top = 458
Width = 278
TabIndex = 137
Name = "text16"
      label      label      Label19      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "Label19"
Height = 19
Left = 539
Top = 458
Width = 163
TabIndex = 138
Name = "Label19"
      label      label      Label10      FORM1      WordWrap = .T.
BackStyle = 0
Caption = "Sptestens zu Kndigen am"
Height = 33
Left = 115
Top = 494
Width = 82
TabIndex = 139
ForeColor = 255,255,0
Name = "Label10"
      textbox      textbox      termin      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 105
TabIndex = 140
Top = 525
Width = 103
Name = "termin"
      label      label      Label11      FORM1      WordWrap = .T.
BackStyle = 0
Caption = "zum"
Height = 17
Left = 139
Top = 550
Width = 27
TabIndex = 141
ForeColor = 255,255,0
Name = "Label11"
      textbox      textbox      ziel      FORM1      FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 105
TabIndex = 142
Top = 567
Width = 103
Name = "ziel"
      label      label      label12      FORM1      WordWrap = .T.
BackStyle = 0
Caption = "*) oder vorher, wenn an diesem Tag          (z.B. Sonntag) nicht zugestellt werden kann."
Height = 46
Left = 46
Top = 599
Width = 218
TabIndex = 143
Name = "label12"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 660
Left = 828
TabIndex = 144
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      datum21      FORM1     FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 729
TabIndex = 145
Top = 499
Visible = .T.
Width = 103
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "datum21"
      {PROCEDURE LostFocus
myindex = 21
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 21
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum22      FORM1     FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 729
TabIndex = 146
Top = 525
Visible = .T.
Width = 103
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "datum22"
      {PROCEDURE LostFocus
myindex = 22
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 22
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum23      FORM1     FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 729
TabIndex = 147
Top = 562
Visible = .T.
Width = 103
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "datum23"
      {PROCEDURE LostFocus
myindex = 23
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 23
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum24      FORM1     FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 729
TabIndex = 148
Top = 597
Visible = .T.
Width = 103
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "datum24"
      {PROCEDURE LostFocus
myindex = 24
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 24
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      datum25      FORM1     FontBold = .T.
FontSize = 10
Alignment = 2
BackStyle = 1
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 729
TabIndex = 149
Top = 631
Visible = .T.
Width = 103
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "datum25"
      {PROCEDURE LostFocus
myindex = 25
DO jda_datum_lostfocus WITH myindex
ENDPROC
PROCEDURE GotFocus
indexi = 25
ENDPROC
     (                              .   %                             U   
 T       U  MYINDEX JDA_DATUM_LOSTFOCUS 
 T   U  INDEXI	 LostFocus,      GotFocusi     1   2  1                       F         e   p       )                           textbox      textbox      Text4      FORM1      FontBold = .T.
FontSize = 10
Height = 22
Left = 270
TabIndex = 150
Top = 500
Visible = .T.
Width = 440
Name = "Text4"
      textbox      textbox      Text5      FORM1      `Height = 22
Left = 540
TabIndex = 151
Top = 562
Visible = .T.
Width = 170
Name = "Text5"
      textbox      textbox      Text6      FORM1      `Height = 22
Left = 540
TabIndex = 152
Top = 597
Visible = .T.
Width = 170
Name = "Text6"
      textbox      textbox      Text7      FORM1      `Height = 22
Left = 540
TabIndex = 153
Top = 631
Visible = .T.
Width = 170
Name = "Text7"
      textbox      textbox      Text13      FORM1      FontBold = .T.
FontSize = 10
Height = 22
Left = 270
TabIndex = 154
Top = 526
Visible = .T.
Width = 440
Name = "Text13"
      label      label      Label5_1      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "- jhriges Dienstjubilum"
Height = 19
Left = 334
Top = 563
Width = 182
TabIndex = 155
Name = "Label5_1"
      label      label      Label5_2      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "- jhriges Dienstjubilum"
Height = 19
Left = 334
Top = 599
Width = 171
TabIndex = 156
Name = "Label5_2"
      label      label      Label5_3      FORM1      FontBold = .T.
FontSize = 10
BackStyle = 0
Caption = "- jhriges Dienstjubilum"
Height = 19
Left = 334
Top = 634
Width = 171
TabIndex = 157
Name = "Label5_3"
      image      image      picture1      FORM1      dPicture = images\jubijahre.jpg
Height = 102
Left = 282
Top = 556
Width = 44
Name = "picture1"
      label      label      Label18      FORM1      zCaption = "*) im ffentl. Dienst = x"
Height = 16
Left = 708
Top = 480
Width = 127
TabIndex = 158
Name = "Label18"
      	container      	container      	Aufkleber      FORM1      oTop = 482
Left = 261
Width = 571
Height = 174
TabIndex = 159
BackColor = 255,255,255
Name = "Aufkleber"
      label      label      Label8      FORM1.Aufkleber      WordWrap = .T.
BackStyle = 0
Caption = "Wenn fr diese Berechnung der Beschftigungszeit  33 Abs. 3 TVD/TV-L zutrifft, gelten folgende Kndigungsfristen (abweichend von 622 BGB)"
Height = 37
Left = 9
Top = 11
Width = 495
Name = "Label8"
      label      label      
kndigung6      FORM1.Aufkleber     WordWrap = .T.
BackStyle = 0
Caption = "von mindestens  15 Jahren und 40.LJ. vollendet und Tarifgebiet West = nur Kndbar bei wichtigem Grund (bergeleitete unkndbare BAT-Angestellte bleiben unkndbar.)"
Height = 34
Left = 9
Top = 123
Width = 543
Name = "kndigung6"
      label      label      
kndigung0      FORM1.Aufkleber      Caption = "Bis zu                       1 Jahr          1 Monat"
Height = 16
Left = 10
Top = 42
Width = 415
BackColor = 255,255,255
Name = "kndigung0"
      label      label      
kndigung1      FORM1.Aufkleber      Caption = "von mehr als          1 Jahr          6 Wochen"
Height = 16
Left = 10
Top = 55
Width = 415
BackColor = 255,255,255
Name = "kndigung1"
      label      label      
kndigung2      FORM1.Aufkleber      Caption = "von mindestens    5 Jahren      3 Monate"
Height = 16
Left = 10
Top = 69
Width = 415
BackColor = 255,255,255
Name = "kndigung2"
      label      label      
kndigung3      FORM1.Aufkleber      Caption = "von mindestens    8 Jahren      4 Monate"
Height = 16
Left = 10
Top = 82
Width = 415
BackColor = 255,255,255
Name = "kndigung3"
      label      label      
kndigung4      FORM1.Aufkleber      Caption = "von mindestens  10 Jahren      5 Monate"
Height = 16
Left = 10
Top = 95
Width = 415
BackColor = 255,255,255
Name = "kndigung4"
      label      label      
kndigung5      FORM1.Aufkleber      Caption = "von mindestens  12 Jahren      6 Monate"
Height = 16
Left = 10
Top = 109
Width = 415
BackColor = 255,255,255
Name = "kndigung5"
      eArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 10, 6, 16, 13, 34, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
09   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LS0UWRQW1418613334      /  F      ]                                                   WINDOWS _4LS0UWRQX1520786003                    
	                                                 WINDOWS _4LS0UWRRC1412540036D+      Q+  ^+  q+  ~+                                                           WINDOWS _4LS0UWRRD1412540036 ,      
,  ,  -,  :,                                                           WINDOWS _4LS0UWRRE1412540036,      ,  ,  ,  ,                                                           WINDOWS _4LS0UWRRF1412540036-      -  -  -  -      7.  d0                                               WINDOWS _4LS0UWRRG1412540036,2      ;2  J2  W2  d2      2  [3                                               WINDOWS _4LS0UWRRJ14186158944      4  4  4  4      b5  ;                                               WINDOWS _4LS0UWRRK1418620680/?      D?  Y?  k?  x?      ?  .F                                               WINDOWS _4LS0UWRRL1418681154H      I  &I  8I  EI      I  J                                               WINDOWS _4LS0UWRRM1412651075K      K  K  K  K      QL  L                                               WINDOWS _4LS0UWRRN1429896600KM      `M  uM  M  M      M  $O                                               WINDOWS _4LS0UWRRO1519995971P      P  P  P  P      nQ  R                                               WINDOWS _4LS0UWRRP1412651075S      S  S  S  S      RT  T                                               WINDOWS _5ZA0PTJI11412540036U  U  U  U  V  V                                                           WINDOWS _6860XJZHG1412540036V      V  V  V  V                                                           WINDOWS _6860XJZHH1412540036JW      YW  hW  xW  W                                                           WINDOWS _68B18LRMX1520786003W      X  X  ,X  9X      X  HZ                                               WINDOWS _68T0NNG851412651560i\      ~\  \  \  \      )]  ]                                               WINDOWS _68T0NNG861412651560
_      _  4_  D_  Q_      _  ~`                                               WINDOWS _69G0R92FT1488407059a  a  a  a  a  a      xc  e                                               WINDOWS _4LS0UWRQW1420644942g      g  h  h  ,h      h  mn                                               WINDOWS _4LS0UWRQX1420644942(r      =r  Rr  kr  xr      r  w                                               WINDOWS _4LS0UWRRC1445558289z      z  {  #{  0{      {                                                 WINDOWS _4LS0UWRRD1420644942Q      f  {                                                           WINDOWS _4LS0UWRQW1402837076          ԓ                                                             WINDOWS _4LS0UWRQX1402836763            ,                                                           WINDOWS _4LS0UWRRB1411491593v                  r                                                  WINDOWS _4LS0UWRQY1467308491Q      _  m  |                                                             WINDOWS _4LS0UWRRC1411491593        
    7                                                       WINDOWS _4LS0UWRRD1467308491֧            !                                                           WINDOWS _4LS0UWRRE1411491593r                  }                                                 WINDOWS _4LS0UWRRF1467308491\      j  x                                                               WINDOWS _4LS0UWRRG1411491593             @                                                        WINDOWS _4LS0UWRRH1467308491߮          
  *                                                           WINDOWS _4LS0UWRRI1411491593y            į                                                       WINDOWS _4LS0UWRRJ1467308491c      q                                                                 WINDOWS _4LS0UWRRK1411491593      
    &  F                                                       WINDOWS _4LS0UWRRL1467308491            0                                                           WINDOWS _4LS0UWRRM1411491593~            ɶ      z                                                 WINDOWS _4LS0UWRRN1467308491Y      g  u                                                               WINDOWS _4LS0UWRRO1411491593            =        |                                               WINDOWS _4LS0UWRRP1467308491ͼ      ۼ                                                                 WINDOWS _5ZA0PTJI11411491593h      w            d                                                 WINDOWS _6860XJZHG1467308491C      Q  _  n                                                             WINDOWS _6860XJZHH1411491593           
  .        m                                               WINDOWS _68610OQZR1467308491            
                                                           WINDOWS _68610OQZS1411491593[      j  y          X                                                 WINDOWS _68610OQZT14673084917      E  S  b                                                             WINDOWS _68610OQZU1411491593             !        `                                               WINDOWS _68610OQZV1467308491                                                                       WINDOWS _68610OQZW1411491593O      ^  m  z        L                                                 WINDOWS _68610OQZX1467308491+      9  G  V  w                                                           WINDOWS _68610OQZY1411491593                    V                                               WINDOWS _6WO0JXZ1B1488407113                  N                                                 COMMENT RESERVED                                i                                                            Ӓ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
     PROCEDURE BeforeOpenTables
IF register = 39
	CREATE CURSOR ansicht (texte C(10), januar C(15), Februar C(15), Marz C(15), April C(15), Mai C(15), Juni C(15), Juli C(15), August C(15), September C(15), Oktober C(15))
else
	CREATE CURSOR ansicht (texte C(50), januar C(10), februar C(10), marz C(10), april C(10), mai C(10), juni C(10), juli C(10), august C(10), september C(10), oktober C(10), november C(10), dezember C(10), jahrsummen C(10))
endif

ENDPROC
                                      %   l                       U   %  '  h ansicht  C
  C  C  C  C  C  C	  C
  C  C  C  h ansicht  C2  C
  C
  C
  C
  C
  C
	  C

  C
  C
  C

  C
  C
  C
  U  REGISTER ANSICHT TEXTE JANUAR FEBRUAR MARZ APRIL MAI JUNI JULI AUGUST	 SEPTEMBER OKTOBER NOVEMBER DEZEMBER
 JAHRSUMMEN BeforeOpenTables,     1 Q !A 2                             )                           1      1      form      form      FORM1     2DataSession = 1
Height = 698
Width = 1298
ShowWindow = 2
ScrollBars = 3
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Jahresbersicht"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Resize

THISFORM.sizer.frmresize()

IF thisform.Height - 36 > thisform.grdansicht.Height
	thisform.grdansicht.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 20 > thisform.grdansicht.width
	thisform.grdansicht.width = thisform.width - 20
ENDIF

prozsp1 =  261 / 1298
prozsp2 =  75 / 1298

thisform.grdansicht.Width = thisform.Width - 20

grdbreite = thisform.grdansicht.Width 
thisform.grdansicht.column1.Width = grdbreite * prozsp1
FOR hsa = 2 TO 14
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht.&xxx..Width = grdbreite * prozsp2
NEXT
thisform.grdAnsicht.column1.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column2.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column3.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column4.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column5.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column6.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column7.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column8.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column9.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column10.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column11.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column12.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column13.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column14.text1.fontsize = thisform.grdAnsicht.column1.fontsize
*thisform.grdansicht.refresh

ENDPROC
PROCEDURE Init

myform3 = Thisform

thisform.AutoCenter = .t.
&&ffentlicher Dienst
IF thisform.Top < 0
	thisform.Top = 0
ENDIF

thisform.oldHeight.value = thisform.height
thisform.oldWidth.value = thisform.Width

If myform1.Visible = False 
	namensfile = myform1.tdbnumber1.value && Val(thisform.MSFlexGrid1.Text)
ENDIF

k = 0
dbb = True
Thisform.Top = 0 &&jahroben

If register < 44
	myform3.Left = 65 &&jahrlinks
	myform3.Width = screenmaxb - 100 &&_Screen.Width - 45
	myform3.Height = screenmaxh * 0.95 &&_Screen.Height * 0.95
Else
	myform3.Top = myform1.Top &&0
	myform3.Width = myform1.Width
	myform3.Left = myform1.Left
	myform3.Height = myform1.Height &&Screen.Height - 650
Endif

*myform3.BackColor = farbenrgb(1+0)
*!*	myform3.SSCommand1.Top = myform3.Height - 75
*!*	myform3.SSCommand3.Top = myform3.Height - 75
*!*	myform3.SSCommand4.Top = myform3.Height - 75
*!*	myform3.SSCommand2.Top = myform3.Height - 75
*!*	myform3.SSCommand5.Top = myform3.Height - 75
*!*	myform3.SSCommand7.Top = myform3.Height - 75

*!*	myform3.HScroll1.Top = 5 &&myform3.Height - 75
*!*	thisform.Command7.Top = myform3.HScroll1.Top
*!*	thisform.Command8.Top = myform3.HScroll1.Top


Do Case && register
	Case register < 46
		myform3.HScroll1.Max = satzanzahl &&+1 &&HS + 1
ENDCASE

jahresdruck = 1

myform3.SSCommand4.Caption = "akkumulieren"

*!*	myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
*!*	myform3.HScroll1.scroll


*!*	With myform3.MSFlexGrid1
*!*	*	.ToolTipText = " Sie knnen die Gehaltsberechnung eines bestimmten Monats aufrufen, indem Sie auf die entsprechende "
*!*		Do Case && register
*!*			Case register = 39
*!*	*			.ToolTipText = .ToolTipText + "Zeile klicken."
*!*			Case  Inlist(register, 40, 41, 42, 123)
*!*	*			.ToolTipText = .ToolTipText + "Spalte klicken."
*!*			Case (register >= 45 .And. register <= 47)
*!*	*			.ToolTipText = ""
*!*		Endcase
*!*	ENDWITH

jahrzeigen = 0

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.sizer.saveformsize

thisform.resize

IF thisform.Height - 36 > thisform.grdansicht.Height
	thisform.grdansicht.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 20 > thisform.grdansicht.width
	thisform.grdansicht.width = thisform.width - 20
ENDIF

prozsp1 =  261 / 1298
prozsp2 =  75 / 1298

thisform.grdansicht.Width = thisform.Width - 20

grdbreite = thisform.grdansicht.Width 
thisform.grdansicht.column1.Width = grdbreite * prozsp1
FOR hsa = 2 TO 14
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht.&xxx..Width = grdbreite * prozsp2
NEXT

thisform.Width = thisform.grdansicht.Width + 20

thisform.sizer.saveformsize

*!*	hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*	IF FILE("&hsansicht")
	IF register <> 42
		thisform.grdansicht.SetAll("dynamicbackcolor","gridcolor_ansicht()","Column")
	endif
*!*		myform3.msflexgrid1.visible = .f.
	myform3.grdansicht.visible = .t.
*!*		myform3.msflexgrid2.visible = .f.
*!*	ELSE
*!*		myform3.msflexgrid1.visible = .t.
*!*		myform3.grdansicht.visible = .f.
*!*		myform3.msflexgrid2.visible = .f.
*!*	ENDIF
*thisform.WindowState = 2
thisform.AutoCenter = .t.
thisform.grdansicht.column1.setfocus

myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
myform3.HScroll1.scroll
*startflag = .f.

ENDPROC
PROCEDURE Destroy
fensteroffen = 0
SELECT ansicht
USE
myindex = 0
ENDPROC
         {  {                        6*   %           h   B            U  S C     %   $    L  T       $  %         T         T  ]g? T  h? T        T      T   	     
 (p! T  columnCC
  Z9 thisform.grdansicht.&xxx..Width = grdbreite * prozsp2
 " T   	  
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
  U  THISFORM SIZER	 FRMRESIZE HEIGHT
 GRDANSICHT WIDTH PROZSP1 PROZSP2	 GRDBREITE COLUMN1 HSA XXX TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 COLUMN14
 T    T  a %   
?  T     T      T      %	 
    T 	 
   
 T  
 T   T    % ,
 T   A T    d T    ffffff? i T   	   T   	   T   	   T   	   
 Hz  .
 T      
 T  T     akkumulieren
 T   %     T C    T &
 T  
     T       T      
    
     %  $ !   T !    $  %   !   T !      T"  ]g? T#  h? T !     T$  !   T ! %  $ "  & (! T'  columnCC&  Z9 thisform.grdansicht.&xxx..Width = grdbreite * prozsp2
  T   !  
     % *dB C dynamicbackcolor gridcolor_ansicht() Column ! (   T  ! 
 a T  a  ! % )  T    	 
  
    *  U+  MYFORM3 THISFORM
 AUTOCENTER TOP	 OLDHEIGHT VALUE HEIGHT OLDWIDTH WIDTH MYFORM1 VISIBLE FALSE
 NAMENSFILE
 TDBNUMBER1 K DBB TRUE REGISTER LEFT
 SCREENMAXB
 SCREENMAXH HSCROLL1 MAX
 SATZANZAHL JAHRESDRUCK
 SSCOMMAND4 CAPTION
 JAHRZEIGEN MSCREENFAKTOR_H	 DPIFAKTOR SIZER SAVEFORMSIZE RESIZE
 GRDANSICHT PROZSP1 PROZSP2	 GRDBREITE COLUMN1 HSA XXX SETALL SETFOCUS SCROLL( 
 T    F  Q
 T   U  FENSTEROFFEN ANSICHT MYINDEX Resize,      Initu     Destroy
    1 A A ba2qA !!!!!!!!!!!!!!4   BA baB1A   A 1111A  1A     A    A A ba2qA  !A   4  q A  1                                  8  )   c   V        )   {                        label      label      stundenlohn      FORM1      zFontBold = .T.
Caption = "Label1"
Height = 36
Left = 357
Top = 120
Visible = .F.
Width = 168
Name = "stundenlohn"
      label      label      Bezeichnung      FORM1      yFontBold = .T.
Caption = "Label1"
Height = 42
Left = 489
Top = 74
Visible = .F.
Width = 168
Name = "Bezeichnung"
      label      label      Bruchbezeichnung      FORM1      FontBold = .T.
Caption = "Label1"
Height = 45
Left = 714
Top = 150
Visible = .F.
Width = 177
Name = "Bruchbezeichnung"
      textbox      textbox      effektiv      FORM1      sAlignment = 3
Value = 0.00000
Height = 22
Left = 558
Top = 195
Visible = .F.
Width = 112
Name = "effektiv"
     %PROCEDURE InteractiveChange
Do Case && register
Case register = 45
&&Form3.MousePointer = 11
&&Form3.Visible = False
&&If effektiv.Value > wert(1+0) / 100000 * 2 Then effektiv.Value = 1

&&wertold(1+1) = effektiv.Value * 100000
&&spaltenfllen
&&Form3.Visible = True
&&Form3.MousePointer = 1
Case register = 46

EndCase

ENDPROC
PROCEDURE KeyPress
LPARAMETERS keyascii, nShiftAltCtrl
Do Case && register
	Case register = 45
		If KeyAscii = 13
			Do effektivstart &&Do attached
		Endif
	Case register = 46
Endcase

ENDPROC
                                   <   %         N     0            U  6 
 H
 /    -    ./   U  REGISTER]     
 H V   -E  %  
A      .V   U  KEYASCII
 NSHIFTALTCTRL REGISTER
 EFFEKTIVSTART InteractiveChange,      KeyPressp     1  B 3   q A A 2                       N        m        )                           spinner      spinner      bruch      FORM1      PHeight = 22
Left = 558
Top = 219
Visible = .F.
Width = 111
Name = "bruch"
      PROCEDURE Click
Do bruchstart 
ENDPROC
PROCEDURE InteractiveChange
Do bruchstart 
ENDPROC
PROCEDURE ProgrammaticChange
Do bruchstart 
ENDPROC
     P    7  7                        eO   %   z                          U  
     U 
 BRUCHSTART
     U 
 BRUCHSTART
     U 
 BRUCHSTART Click,      InteractiveChangeF      ProgrammaticChange`     1 q 2 q 2 q 1                                G   U         ~          )   7                        
commandbutton      
commandbutton      
sscommand4      FORM1      ^Top = 2
Left = 408
Height = 31
Width = 115
Caption = "akkumulieren"
Name = "sscommand4"
     PROCEDURE Click

If register < 45
	If thisform.SSCommand4.Caption = "Monate einzeln"
		thisform.SSCommand4.Caption = "akkumulieren"
		dbb = True
	Else
		thisform.SSCommand4.Caption = "Monate einzeln"
		dbb = False
	Endif
Endif

*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif


Do Case && register
	Case register = 39
*		thisform.Visible = False
		Do uebersichtladen &&Do attached
*		thisform.Visible = True
	Case register = 40
*		thisform.Visible = False
		Do uebersichtladen1 &&Do attached
*		thisform.Visible = True
	Case register = 41
*		thisform.Visible = False
		Do uebersichtladen2 &&Do attached
*		thisform.Visible = True
	Case register = 45
		myindexe = 16
		Do menaktiv &&Do attached
	Case register = 46
		infotext = "Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen der" + CHR(13)
		infotext = infotext + "Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein Textdokument" + CHR(13)
		infotext = infotext + "und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie das" + CHR(13)
		infotext = infotext + "Dokument und damit auch diese Bildschirmansicht ausdrucken."
		Messagebox(infotext)
ENDCASE
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		ENDIF
	thisform.refresh
ENDPROC
                                        %   n           }            U   %  -
 % %    Monate einzelnb  T    akkumulieren
 T    ! T    Monate einzeln
 T    
 H    '      (      )  	    -
 T
      .P T = Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen derC
 c T  L Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein TextdokumentC
 _ T  H und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie dasC
 L T  ; Dokument und damit auch diese Bildschirmansicht ausdrucken. C x 
  
  U  REGISTER THISFORM
 SSCOMMAND4 CAPTION DBB TRUE FALSE UEBERSICHTLADEN UEBERSICHTLADEN1 UEBERSICHTLADEN2 MYINDEXE	 MENAKTIV INFOTEXT REFRESH Click,     1 Q   A A  r r r  q 1 A  1                             )                            
commandbutton      
commandbutton      
ssCommand7      FORM1      wTop = 2
Left = 525
Height = 31
Width = 115
Caption = "Mittelteil A"
BackColor = 255,255,128
Name = "ssCommand7"
     /PROCEDURE Click
*!*	If register = 45
*!*		&&ATZZinsen.Show
*!*	Else
	With myform3.SSCommand7
		If .Caption = "Mittelteil A"
			.Caption = "Mittelteil B"
		Else
			.Caption = "Mittelteil A"
		ENDIF
	ENDWITH
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif
*!*		Do mittelteilumschalten &&Do attached

	
	If myform3.SSCommand7.Caption = "Mittelteil A"
*!*			Do mittelteilA &&Do attached
		thisform.mittelteilA.click
		
		For i = 1 To 13
			hsfeld = FIELD(i+1)
*!*				Do mittelteilzeilenA &&Do attached
			thisform.mittelteilzeilenA.click
		Next
	Else
*!*			Do mittelteilB &&Do attached
		thisform.mittelteilB.click
		
		For i = 1 To 13
			hsfeld = FIELD(i+1)
*!*				Do mittelteilzeilenB &&Do attached
			thisform.mittelteilzeilenB.click
		Next
	ENDIF	
	
*!*		SELECT ansicht
*!*		FOR HSxrow = 1 TO 42
*!*			GOTO hsxrow
*!*			myform3.msflexgrid1.row = hsxrow
*!*			myform3.msflexgrid1.col = 0
*!*			replace ansicht.texte WITH ALLTRIM(myform3.msflexgrid1.text)
*!*			
*!*			FOR HSxcol = 1 TO 13
*!*				myform3.msflexgrid1.col = HSxcol
*!*				myform3.msflexgrid1.row = hsxrow	
*!*				xfeld = FIELD(hsxcol+1)
*!*				replace ansicht.&xfeld WITH ALLTRIM(myform3.msflexgrid1.text)
*!*			next
*!*		next
*!*		FLUSH
	SELECT ansicht
	GO top	
	thisform.grdAnsicht.refresh
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		endif
*!*	ENDIF
thisform.refresh
ENDPROC
                                      %         d     .            U  W    n  %  Mittelteil AH  T  Mittelteil B j  T  Mittelteil A  # %     Mittelteil A 
      (
  T C /
      -
  	    (
) T C /
  
     F  #)
   
 
  
  U  MYFORM3
 SSCOMMAND7 CAPTION THISFORM MITTELTEILA CLICK I HSFELD MITTELTEILZEILENA MITTELTEILB MITTELTEILZEILENB ANSICHT
 GRDANSICHT REFRESH Click,     1  A A 8 r1 A   r1 A A  q Q   1                       $      )                           
commandbutton      
commandbutton      
ssCommand3      FORM1      YTop = 2
Left = 641
Height = 31
Width = 115
Caption = "Drucken"
Name = "ssCommand3"
      PROCEDURE Click

*!*		Case register = 40
*!*			DO Druckvorschau.ansicht with Druckvorschau.Blatt, dRatio
IF register = 40 &&ANsicht
	DO ansicht
ELSE
	DO agsicht
endif	
myindexe = register
		

ENDPROC
                                     /5   %                             U  ;  %  (    '    
 T    U  REGISTER ANSICHT AGSICHT MYINDEXE Click,     1 q  q A  3                              )                            
commandbutton      
commandbutton      
ssCommand2      FORM1      cTop = 2
Left = 757
Height = 31
Width = 115
Caption = "Daten exportieren"
Name = "ssCommand2"
      *PROCEDURE Click
DO FORM export
ENDPROC
                                      L   %   I       ^      X             U     export U  EXPORT Click,     1  1                              )                            
commandbutton      
commandbutton      
ssCommand5      FORM1      WTop = 2
Left = 873
Height = 31
Width = 115
Caption = "Hilfe"
Name = "ssCommand5"
     )PROCEDURE Click
Do Case && register
	Case  Inlist(register, 39, 40, 41, 42 )&& Hilfe Gemischt
		inet = 111
		Msg = "31"
		DO insinternet 
	Case register = 45 &&Teilzeitrechner
		inet = 111
		Msg = "161"
		DO insinternet 
	Case register = 46


	Case register = 47

Endcase
ENDPROC
         o  o                        _   %          &     
            U   
 H
   C  '()*K 
 T o T  31     - 
 T o T  161     .    /   U  REGISTER INET MSG INSINTERNET Click,     1    q  q B 1                             )   o                        
commandbutton      
commandbutton      
ssCommand1      FORM1      iTop = 2
Left = 292
Height = 31
Width = 115
Cancel = .T.
Caption = "Schlieen"
Name = "ssCommand1"
      PROCEDURE Click
fensteroffen = 0
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
myform1.visible = .t.
thisform.release

ENDPROC
     m    T  T                        :   %                            U  U 
 T   
 T  
 T   T      T  a
  	  U
  FENSTEROFFEN	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION VISIBLE THISFORM RELEASE Click,     1    1  2                              )   T                        
commandbutton      
commandbutton      
ssCommand6      FORM1      zTop = 2
Left = 990
Height = 31
Width = 115
Caption = "sscommand6"
Enabled = .F.
Visible = .F.
Name = "ssCommand6"
      ^PROCEDURE Click
myindexe = 12
indexi = 12
Do menaktiv &&Do attached
indexi = 0
ENDPROC
                                         %   ~                          U  1 
 T  
 T   
 T   U  MYINDEXE INDEXI	 MENAKTIV Click,     1   q  1                       S       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 678
Left = 1278
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      	oldheight      FORM1      cEnabled = .F.
Height = 19
Left = 1071
Top = 531
Visible = .F.
Width = 82
Name = "oldheight"
      textbox      textbox      oldWidth      FORM1      aEnabled = .F.
Height = 19
Left = 984
Top = 534
Visible = .F.
Width = 82
Name = "oldWidth"
      
commandbutton      
commandbutton      spaltenklick      FORM1      ~Top = 678
Left = 21
Height = 16
Width = 40
Caption = "spaltenklick"
Enabled = .F.
Visible = .F.
Name = "spaltenklick"
     PROCEDURE Click
*myForm3.WindowState = 1
IF active_col_nr < 2 .or. active_col_nr > 13
	RETURN
ENDIF

If jahrzeigen = 0
	vongrid = 1
	zi(1+20) = active_col_nr - 1
	Monat = zi(1+20) &&+ 1
	myform1.tdbnumber1.Value = fileneu
ENDIF

myform1.visible = .t.

thisform.Release

Do Neuername &&Do attached

xxx = ALLTRIM(STR(Monat - 1,2,0))
myform1.mon&xxx..click
ENDPROC
                                        %                          U    %  
   
   B  %  } 
 T  T    T C  T      T 	 a
 
     T
 CC  Z myform1.mon&xxx..click
 U 
 ACTIVE_COL_NR
 JAHRZEIGEN VONGRID ZI MONAT MYFORM1
 TDBNUMBER1 VALUE FILENEU VISIBLE THISFORM RELEASE	 NEUERNAME XXX Click,     1 A A  q1A   r 1                       v      )                            
commandbutton      
commandbutton      Command7      FORM1      qTop = 5
Left = 13
Height = 25
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command7"
      PROCEDURE Click
If thisform.hScroll1.value > thisform.hScroll1.Min 
	thisform.hScroll1.value = thisform.hScroll1.value - 1
ENDIF
thisform.hScroll1.scroll
    
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )   
                        
commandbutton      
commandbutton      Command8      FORM1      sTop = 5
Left = 267
Height = 25
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command8"
      PROCEDURE Click
If thisform.hScroll1.value < thisform.hScroll1.Max 
	thisform.hScroll1.value = thisform.hScroll1.value + 1
ENDIF
thisform.hScroll1.scroll

ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )   
                        xslider      foxyslider.vcx      	container      hscroll1      FORM1     tTop = 5
Left = 32
Width = 233
Height = 24
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 200
showtips = .T.
min = 1
showtipsalways = .T.
Name = "hscroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     PROCEDURE scroll
IF this.value > satzanzahl
	this.value = this.value - 1
	return
ENDIF

If thisform.HScroll1.Value > 0

	namensfile = thisform.HScroll1.Value	

	Do Case && register
		Case register = 39
			Do uebersichtladen &&Do attached
		Case register = 40
			Do uebersichtladen1 &&Do attached
		Case register = 41
			Do uebersichtladen2 &&Do attached
		Case register = 42
			Do uebersichtladen3 &&Do attached
		Case register = 45 &&Teilzeitrechner
	ENDCASE
ENDIF
thisform.refresh

ENDPROC
     O    6  6                        E   %                          U    %    /  T       B  %      T    
 Hj    '     (     )  	   *  
   -   
    U  THIS VALUE
 SATZANZAHL THISFORM HSCROLL1
 NAMENSFILE REGISTER UEBERSICHTLADEN UEBERSICHTLADEN1 UEBERSICHTLADEN2 UEBERSICHTLADEN3 REFRESH scroll,     1 AqA A r2 q q q q A A  2                             )   6                        
commandbutton      
commandbutton      mittelteilzeilenA      FORM1      }Top = 678
Left = 63
Height = 16
Width = 49
Caption = "teilZa"
Enabled = .F.
Visible = .F.
Name = "mittelteilzeilenA"
     PROCEDURE Click
SELECT ansicht
				GOTO 17
*!*					.Text = myformat(sicht(1+i,1+ 14), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 14), "###,##0.00")
				flush
*!*					.Row = 18
				GOTO 18
*!*					.Text = Alltrim(BEhe(i))
				replace ansicht.&hsfeld WITH Alltrim(BEhe(i))
				flush				
*!*					.Row = 19
				GOTO 19
*!*					.Text = myformat(sicht(1+i,1+ 17), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 17), "###,##0.00")
				flush				
*!*					.Row = 20
				GOTO 20
*!*					.Text = myformat(sicht(1+i,1+ 18), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 18), "###,##0.00")
				flush				
*!*					.Row = 21
				GOTO 21
*!*					.Text = myformat(sicht(1+i,1+ 19), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 19), "###,##0.00")
				flush				
*!*					.Row = 22
				GOTO 22
*!*					.Text = myformat(sicht(1+i,1+ 16), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 16), "###,##0.00")
				flush				
*!*					.Row = 23
				GOTO 23
				If i < 13
*!*						.Text = BKasse(i)
					replace ansicht.&hsfeld WITH BKasse(i)
					flush					
				Else
*!*						.Text = ""
					replace ansicht.&hsfeld WITH ""
					flush					
				Endif
*!*					.Row = 24
				GOTO 24
*!*					.Text = myformat(BBeitragsatz(i), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(BBeitragsatz(i), "###,##0.00")
				flush	
ENDPROC
                                   f   %         Q                  U   F  	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 14), "###,##0.00")
 [	 #1 replace ansicht.&hsfeld WITH Alltrim(BEhe(i))
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 17), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 18), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 19), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 16), "###,##0.00")
 [	 # % 

;* replace ansicht.&hsfeld WITH BKasse(i)
 [ j# replace ansicht.&hsfeld WITH ""
 [ 	 #H replace ansicht.&hsfeld WITH myformat(BBeitragsatz(i), "###,##0.00")
 [ U  ANSICHT I Click,     1 q  A  A  A  A  A  A  A  2A A  A 1                             )                           
commandbutton      
commandbutton      mittelteilzeilenB      FORM1      ~Top = 678
Left = 114
Height = 16
Width = 49
Caption = "teilZb"
Enabled = .F.
Visible = .F.
Name = "mittelteilzeilenB"
     PROCEDURE Click
SELECT ansicht
				GOTO 17
*!*					.Text = Alltrim(Bgruppe(i))
				replace ansicht.&hsfeld WITH Alltrim(Bgruppe(i))
				FLUSH
				
*!*					.Row = 18
				GOTO 18
*!*					.Text = Alltrim(BStufe(i))
				replace ansicht.&hsfeld WITH Alltrim(BStufe(i))
				FLUSH
								
*!*					.Row = 19
				GOTO 19
*!*					.Text = Alltrim(BOZ(i))
				replace ansicht.&hsfeld WITH Alltrim(BOZ(i))
				FLUSH
								
*!*					.Row = 20
				GOTO 20
*!*					.Text = myformat(sicht(1+i,1+ 15), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 15), "###,##0.00")
				FLUSH
								
*!*					.Row = 21
				GOTO 21
*!*					.Text = myformat(sicht(1+i,1+ 38), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 38), "###,##0.00")
				FLUSH
								
*!*					.Row = 22
				GOTO 22
*!*					.Text = Alltrim(BVoll(i))
				replace ansicht.&hsfeld WITH Alltrim(BVoll(i))
				FLUSH
								
*!*					.Row = 23
				GOTO 23
*!*					.Text = Alltrim(BTage(i))
				replace ansicht.&hsfeld WITH Alltrim(BTage(i))
				FLUSH
								
*!*					.Row = 24
				GOTO 24
*!*					.Text = Alltrim(BKost(i))
				replace ansicht.&hsfeld WITH Alltrim(BKost(i))
				FLUSH
ENDPROC
                                   b   %   j           y            U  1 F  	 #4 replace ansicht.&hsfeld WITH Alltrim(Bgruppe(i))
 [	 #3 replace ansicht.&hsfeld WITH Alltrim(BStufe(i))
 [	 #0 replace ansicht.&hsfeld WITH Alltrim(BOZ(i))
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 15), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 38), "###,##0.00")
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BVoll(i))
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BTage(i))
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BKost(i))
 [ U  ANSICHT Click,     1 q  BA  2A  A  A  A  "A  "A  "A 1                             )                           
commandbutton      
commandbutton      mittelteilA      FORM1      yTop = 681
Left = 168
Height = 12
Width = 49
Caption = "mittelA"
Enabled = .F.
Visible = .F.
Name = "mittelteilA"
     PROCEDURE Click
SELECT ansicht
		GOTO 17
*!*			.Text = Alltrim(zt23(1+zi(1+23)))
		replace ansicht.texte WITH Alltrim(zt23(1+zi(1+23)))
		FLUSH
		
*!*			.Row = 18
		GOTO 18
*!*			.Text = "Steuerklasse"
		replace ansicht.texte WITH "Steuerklasse"
		FLUSH

*!*			.Row = 19
		GOTO 19
*!*			.Text = "Steuerpflichtiges Entgelt"
		replace ansicht.texte WITH "Steuerpflichtiges Entgelt"
		FLUSH

*!*			.Row = 20
		GOTO 20
*!*			.Text = "KV-pflichtiges Entgelt"
		replace ansicht.texte WITH "KV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 21
		GOTO 21
*!*			.Text = "RV-pflichtiges Entgelt"
		replace ansicht.texte WITH "RV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 22
		GOTO 22
*!*			.Text = "RV-pflichtiges Entgelt"
		replace ansicht.texte WITH "ATV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 23
		GOTO 23
*!*			.Text = "Krankenkasse"
		replace ansicht.texte WITH "Krankenkasse"
		FLUSH

*!*			.Row = 24
		GOTO 24
*!*			.Text = "KV-Beitragssatz"
		replace ansicht.texte WITH "KV-Beitragssatz"
		FLUSH
ENDPROC
     t    [  [                           %                          U   F  	 # >   CCC   [	 # >    Steuerklasse [	 #) >    Steuerpflichtiges Entgelt [	 #& >    KV-pflichtiges Entgelt [	 #& >    RV-pflichtiges Entgelt [	 #' >    ATV-pflichtiges Entgelt [	 # >    Krankenkasse [	 # >    KV-Beitragssatz [ U  ANSICHT TEXTE ZT23 ZI Click,     1 q  A  A  A  bA  bA  rA  A  A 1                             )   [                        
commandbutton      
commandbutton      mittelteilB      FORM1      xTop = 680
Left = 222
Height = 13
Width = 46
Caption = "mttelB"
Enabled = .F.
Visible = .F.
Name = "mittelteilB"
     
fPROCEDURE Click
*!*			.Col = 0
*!*			.Row = 17

SELECT ansicht
		GOTO 17
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "Bes.Gruppe"
				replace ansicht.texte WITH "Bes.Gruppe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Entg.Gruppe" &&zt23(1+zi(1+23))
				replace ansicht.texte WITH "Entg.Gruppe" &&zt23(1+zi(1+23))
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32) .Or.  wvw.znam(4) > 35
*!*					.Text = "Verg.Gruppe"
				replace ansicht.texte WITH "Verg.Gruppe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Lohngruppe"
				replace ansicht.texte WITH "Lohngruppe"
		Endcase
		FLUSH
		
*!*			.Row = 18
		GOTO 18
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "DA-Stufe"
				replace ansicht.texte WITH "DA-Stufe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Entgeltstufe"
				replace ansicht.texte WITH "Entgeltstufe"
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32) .Or.  wvw.znam(4) > 35
*!*					.Text = "Altersstufe"
				replace ansicht.texte WITH "Altersstufe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Lohnstufe"
				replace ansicht.texte WITH "Lohnstufe"
		Endcase
		flush	
		
*!*			.Row = 19
		GOTO 19
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "Fam.Z.Stufe"
				replace ansicht.texte WITH "Fam.Z.Stufe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Besitzstand fr Kinder"
				replace ansicht.texte WITH "Besitzstand fr Kinder"
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32)
*!*					.Text = "Ortsz.-Stufe"
				replace ansicht.texte WITH "Ortsz.-Stufe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Kinderzuschl."
				replace ansicht.texte WITH "Kinderzuschl."
			Case (wvw.znam(4) >= 36 .And. wvw.znam(4) <= 37)
*!*					.Text = "Verh.Z."
				replace ansicht.texte WITH "Verh.Z."
		Endcase
		flush	
		
*!*			.Row = 20
		GOTO 20
*!*			.Text = "Sachbezug Zeile 25"
		replace ansicht.texte WITH "Sachbezug Zeile 25"
		FLUSH
		
*!*			.Row = 21
		GOTO 21
*!*			.Text = "Sachbezug Zeile 26"
		replace ansicht.texte WITH "Sachbezug Zeile 26"
		FLUSH
		
*!*			.Row = 22
		GOTO 22
*!*			.Text = "Arbeitsstunden"
		replace ansicht.texte WITH "Arbeitsstunden"
		FLUSH
		
*!*			.Row = 23
		GOTO 23
*!*			.Text = "Tage"
		replace ansicht.texte WITH "Tage"
		FLUSH
		
*!*			.Row = 24
		GOTO 24
*!*			.Text = "Kostenstelle"
		replace ansicht.texte WITH "Kostenstelle"
		flush

ENDPROC
                                     Q   %   8        8   G            U   F  	 #
 H E+ C    C  		b  >   
 Bes.Gruppe+ C  
 C  	  >    Entg.Gruppe= C   C   	 C  #  >    Verg.Gruppe+ C  ! C  #	E >   
 Lohngruppe  [	 #
 Hc+ C    C  		 >    DA-Stufe+ C  
 C  	 >    Entgeltstufe= C   C   	 C  #E >    Altersstufe+ C  ! C  #	 >   	 Lohnstufe  [	 #
 H+ C    C  		 >    Fam.Z.Stufe+ C  
 C  	>& >    Besitzstand fr Kinder+ C   C   	 >    Ortsz.-Stufe+ C  ! C  #	 >   
 Kinderzuschl.+ C  $ C  %	 >    Verh.Z.  [	 #" >    Sachbezug Zeile 25 [	 #" >    Sachbezug Zeile 26 [	 # >    Arbeitsstunden [	 # >    Tage [	 # >    Kostenstelle [ U  ANSICHT WVW ZNAM TEXTE Click,     1 t   A A   A A   brA A  "A  "A  A  BA  A 2                       [
      )                            grid      grid      
grdAnsicht      FORM1     ColumnCount = 14
FontName = "Arial"
FontSize = 9
DeleteMark = .F.
Enabled = .T.
Height = 642
Left = 9
Panel = 1
ReadOnly = .T.
RecordSource = "ansicht"
RecordSourceType = 1
RowHeight = 18
Top = 35
Width = 1280
Name = "grdAnsicht"
Column1.FontName = "Arial"
Column1.FontSize = 9
Column1.ControlSource = "ansicht.texte"
Column1.Enabled = .T.
Column1.Width = 261
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.FontName = "Arial"
Column2.FontSize = 9
Column2.Alignment = 3
Column2.ControlSource = "ansicht.januar"
Column2.Enabled = .T.
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.Name = "Column2"
Column3.FontName = "Arial"
Column3.FontSize = 9
Column3.Alignment = 3
Column3.ControlSource = "ansicht.februar"
Column3.Enabled = .T.
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Visible = .T.
Column3.Name = "Column3"
Column4.FontName = "Arial"
Column4.FontSize = 9
Column4.Alignment = 3
Column4.ControlSource = "ansicht.marz"
Column4.Enabled = .T.
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.Visible = .T.
Column4.Name = "Column4"
Column5.FontName = "Arial"
Column5.FontSize = 9
Column5.Alignment = 3
Column5.ControlSource = "ansicht.april"
Column5.Enabled = .T.
Column5.Width = 75
Column5.ReadOnly = .T.
Column5.Visible = .T.
Column5.Name = "Column5"
Column6.FontName = "Arial"
Column6.FontSize = 9
Column6.Alignment = 3
Column6.ControlSource = "ansicht.mai"
Column6.Enabled = .T.
Column6.Width = 75
Column6.ReadOnly = .T.
Column6.Visible = .T.
Column6.Name = "Column6"
Column7.FontName = "Arial"
Column7.FontSize = 9
Column7.ControlSource = "ansicht.juni"
Column7.Enabled = .T.
Column7.Width = 75
Column7.ReadOnly = .T.
Column7.Visible = .T.
Column7.Name = "Column7"
Column8.FontName = "Arial"
Column8.FontSize = 9
Column8.ControlSource = "ansicht.juli"
Column8.Enabled = .T.
Column8.Width = 75
Column8.ReadOnly = .T.
Column8.Visible = .T.
Column8.Name = "Column8"
Column9.FontName = "Arial"
Column9.FontSize = 9
Column9.ControlSource = "ansicht.august"
Column9.Enabled = .T.
Column9.Width = 75
Column9.ReadOnly = .T.
Column9.Visible = .T.
Column9.Name = "Column9"
Column10.FontName = "Arial"
Column10.FontSize = 9
Column10.ControlSource = "ansicht.september"
Column10.Enabled = .T.
Column10.Width = 75
Column10.ReadOnly = .T.
Column10.Visible = .T.
Column10.Name = "Column10"
Column11.FontName = "Arial"
Column11.FontSize = 9
Column11.ControlSource = "ansicht.oktober"
Column11.Enabled = .T.
Column11.Width = 75
Column11.ReadOnly = .T.
Column11.Visible = .T.
Column11.Name = "Column11"
Column12.FontName = "Arial"
Column12.FontSize = 9
Column12.ControlSource = "ansicht.november"
Column12.Enabled = .T.
Column12.Width = 75
Column12.ReadOnly = .T.
Column12.Visible = .T.
Column12.Name = "Column12"
Column13.FontName = "Arial"
Column13.FontSize = 9
Column13.ControlSource = "ansicht.dezember"
Column13.Enabled = .T.
Column13.Width = 73
Column13.ReadOnly = .T.
Column13.Visible = .T.
Column13.Name = "Column13"
Column14.FontName = "Arial"
Column14.FontSize = 9
Column14.ControlSource = "ansicht.jahrsummen"
Column14.Enabled = .T.
Column14.Width = 75
Column14.ReadOnly = .T.
Column14.Visible = .T.
Column14.Name = "Column14"
      header      header      Header1      FORM1.grdAnsicht.Column1      BFontName = "Arial"
FontSize = 9
Caption = ""
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column1      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column2      HFontName = "Arial"
FontSize = 9
Caption = "Januar"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column2      FontName = "Arial"
FontSize = 9
Alignment = 3
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column3      IFontName = "Arial"
FontSize = 9
Caption = "Februar"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column3      FontName = "Arial"
FontSize = 9
Alignment = 3
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column4      FFontName = "Arial"
FontSize = 9
Caption = "Mrz"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column4      FontName = "Arial"
FontSize = 9
Alignment = 3
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column5      GFontName = "Arial"
FontSize = 9
Caption = "April"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column5      FontName = "Arial"
FontSize = 9
Alignment = 3
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column6      EFontName = "Arial"
FontSize = 9
Caption = "Mai"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column6      FontName = "Arial"
FontSize = 9
Alignment = 3
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column7      FFontName = "Arial"
FontSize = 9
Caption = "Juni"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column7      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column8      FFontName = "Arial"
FontSize = 9
Caption = "Juli"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column8      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column9      HFontName = "Arial"
FontSize = 9
Caption = "August"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column9      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column10      KFontName = "Arial"
FontSize = 9
Caption = "September"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column10      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column11      IFontName = "Arial"
FontSize = 9
Caption = "Oktober"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column11      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column12      JFontName = "Arial"
FontSize = 9
Caption = "November"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column12      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column13      JFontName = "Arial"
FontSize = 9
Caption = "Dezember"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column13      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column14      LFontName = "Arial"
FontSize = 9
Caption = "Jahrsummen"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column14      FontName = "Arial"
FontSize = 9
BorderStyle = 0
Enabled = .T.
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       ,         K   {       )   0                        
commandbutton      
commandbutton      Command9      FORM1      XTop = 6
Left = 1122
Height = 22
Width = 76
Caption = "Command9"
Name = "Command9"
      BPROCEDURE Click
SELECT ansicht
BROWSE
SELECT ansicht
ENDPROC
                                      D   %   N       g      ]             U    F   	 F   U  ANSICHT Click,     1 q A q 1                       7       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LS0XBPOL1360302568      /  F      ]                                                       WINDOWS _4LS0XBPOM1533955466                    @                                                 WINDOWS _4LS149CM51413645033H      U  b  p  }                                                           WINDOWS _4LS0XBPOL1413645033	      	  	  	  	      5
  
                                               WINDOWS _4LS0XBPOM1413645033n      {              p                                               WINDOWS _4LS149CM51413645033T
      a
  n
  |
  
        V                                               WINDOWS _4LS0XBPON1413645033:      G  T  b  o        <                                               WINDOWS _4LS0XBPOO1413645033       -  :  H  U        "                                               WINDOWS _4LS0XBPOP1413645033           .  ;                                                       WINDOWS _4LS0XBPOQ1413645033            !                                                       WINDOWS _4LS0XBPOR1413645033                                                                   WINDOWS _4LS0XBPOS1413645033                  h                                                 WINDOWS _4LS0XBPOT1413645033                  P                                                 WINDOWS _4LS0XBPOU1413645033                  :                                                 WINDOWS _4LS0XBPOV1413645033s                  $  y                                               WINDOWS _4LS0XBPOW1413645033]       j   w             !  c!                                               WINDOWS _4LS0XBPOX1413645033G"      T"  a"  p"  }"      "  M#                                               WINDOWS _4LS0XBPOY14136450331$      >$  K$  Z$  g$      $  7%                                               WINDOWS _4LS0XBPOZ1413645033&      (&  5&  D&  Q&      &  !'                                               WINDOWS _4LS0XBPP01413645033(      (  (  .(  ;(      (  )                                               WINDOWS _4LS0XBPP11413645033)      )  	*  *  %*      *  *                                               WINDOWS _4LS0XBPP21413645033+      +  +  ,  ,      ,  ,                                               WINDOWS _4LS0XBPP31413645033-      -  -  -  -      t.  .                                               WINDOWS _4LS0XBPP41434876564/      /  /  /  /      n0  0                                               WINDOWS _4LS0XBPP514348765641      1  1  1  1      X2  2                                               WINDOWS _4LS0XBPP614136450333      3  3  3  3      B4  4                                               WINDOWS _4LS0XBPP71413645033{5      5  5  5  5      ,6  6                                               WINDOWS _4LS0XBPP81413645033e7      r7  7  7  7      8  k8                                               WINDOWS _4LS0XBPP91413645033O9      \9  i9  x9  9       :  U:                                               WINDOWS _4LS0XBPPA14136450339;      F;  S;  b;  o;      ;  ?<                                               WINDOWS _4LS0XBPPB1413645033#=      0=  ==  L=  Y=      =  )>                                               WINDOWS _4LS0XBPPC1413645033
?      ?  '?  6?  C?      ?  @                                               WINDOWS _4LS0XBPPD1413645033@      A  A   A  -A      A  A                                               WINDOWS _4LS0XBPPE1413645033B      B  B  
C  C      C  C                                               WINDOWS _4LS0XBPPF1413645033D      D  D  D  E      |E  E                                               WINDOWS _4LS0XBPPG1413645033F      F  F  F  F      fG  G                                               WINDOWS _4LS0XBPOL1413645033H      H  H  H  H      PI  I                                               WINDOWS _4LS0XBPPL1428516878J      J  J  J  J      qK  L                                               WINDOWS _4LS0XBPPM1413645033DN      YN  nN  N  N      "O  [O                                               WINDOWS _4LS0XBPPN1433496633&P      ;P  PP  bP  oP      Q  Q                                               WINDOWS _4LS0XBPPO1413645033R      S  S  ,S  9S      S  T                                               WINDOWS _4LS0XBPPP1413645033T      T  T  U  U      U  V                                               WINDOWS _4LS0XBPPQ1413645033W      X  )X  ;X  HX      X  Y                                               WINDOWS _4LS0XBPPR1413645033Y      Y  
Z  Z  )Z      Z  Z                                               WINDOWS _4LS0XBPPS1413645033[      [  [  [  
\      \  \                                               WINDOWS _4LS0XBPPT1413645033]      ]  ]  ]  ]      ^  ^                                               WINDOWS _4LS0XBPOL1413645033_      _  _  _  _      +`  
a                                               WINDOWS _4LS0XBPQW1413645033b      b  b  b  b      !c   d                                               WINDOWS _4LS0XBPQX1413645033ze      e  e  e  e      f  f                                               WINDOWS _4LS0XBPQY1413645033ph      h  h  h  h      
i  i                                               WINDOWS _4LS0XBPQZ1413645033fk      uk  k  k  k      l  l                                               WINDOWS _4LS0XBPR01413645033]n      ln  {n  n  n      n  o                                               WINDOWS _4LS0XBPR11413645033Tq      cq  rq  q  q      q  r                                               WINDOWS _4LS0XBPR21413645033Kt      Zt  it  vt  t      t  u                                               WINDOWS _4LS0XBPR31413645033Bw      Qw  `w  mw  zw      w  x                                               WINDOWS _4LS0XBPR414136450339z      Hz  Wz  ez  rz      z  {                                               WINDOWS _4LS0XBPR514136450332}      A}  P}  ^}  k}      }  ~                                               WINDOWS _4LS0XBPR61413645033+      :  I  W  d      ˀ                                                 WINDOWS _4LS0XBPR71413645033$      3  B  P  ]      ă                                                 WINDOWS _4LS0XBPR81413645033      ,  ;  I  V                                                       WINDOWS _4LS0XBPR91413645033      %  4  B  O                                                       WINDOWS _4LS0XBPRA1413645033        -  ;  H                                                       WINDOWS _4LS0XBPRB1413645033        &  4  A                                                       WINDOWS _4LS0XBPRC1413645033          -  :                                                       WINDOWS _4LS0XBPRD1413645033      	    &  3        y                                               WINDOWS _4LS0XBPRE1413645033            ,        r                                               WINDOWS _4LS0XBPRF1413645033        
    %        k                                               WINDOWS _4LS0XBPOL1413645033                                                                    WINDOWS _4LS0XBPRM1413645033          ǡ  ԡ      ^                                                 WINDOWS _4LS0XBPRN1413645033O      _  o  }          ަ                                               WINDOWS _4LS0XBPRO1413645033Q      a  q                                                           WINDOWS _4LS0XBPRP1413645033S      c  s                                                           WINDOWS _4LS0XBPRQ1413645033U      e  u                                                           WINDOWS _4LS0XBPRR1413645033W      g  w                                                           WINDOWS _4LS0XBPRS1413645033Y      i  y                                                           WINDOWS _4LS0XBPRT1413645033[      k  {                                                            WINDOWS _4LS0XBPRV1413645033]      p                                                             WINDOWS _4LS0XBPRW1413645033(      8  H  V  c                                                       WINDOWS _4LS0XBPRX1413645033             +                                                       WINDOWS _4LS0XBPRY1413645033                  Y                                                 WINDOWS _4LS0XBPRZ1413645033                  "  <                                               WINDOWS _4LS0XBPS01413645033          ,  9                                                       WINDOWS _4LS0XBPS11413645033|                    8                                               WINDOWS _4LS0XBPS21413645033      
    (  5                                                       WINDOWS _4LS0XBPS31413645033x                    4                                               WINDOWS _4LS0XBPS41413645033       $ 1                                                    WINDOWS _4LS0XBPS51413645033t              2                                              WINDOWS _4LS0XBPS61413645033     	 	 #	 0	     	 
                                              WINDOWS _4LS0XBPS71413645033w             
 5                                              WINDOWS _4LS0XBPS81413645033       & 3                                                    WINDOWS _4LS0XBPS91413645033w              5                                              WINDOWS _4LS0XBPSA1413645033       & 3                                                    WINDOWS _4LS0XBPSB1413645033w              5                                              WINDOWS _4LS0XBPSC1413645033       & 3                                                    WINDOWS _4LS0XBPSD1413645033w!     ! ! ! !     " 5#                                              WINDOWS _4LS0XBPSE1413645033$     % % %% 2%     % ~&                                              WINDOWS _4LS0XBPSF1413645033@(     O( ^( q( ~(     ) *                                              WINDOWS _4LS0XBPSG1413645033+     + + + +     _, J-                                              WINDOWS _4LS0XBPSH1413645033.     . . . 
/     / 0                                              WINDOWS _4LS0XBPSI14136450332     "2 12 D2 Q2     2 3                                              WINDOWS _4LS0XBPSJ1413645033Z5     i5 x5 5 5     46 7                                              WINDOWS _4LS0XBPSK14136450338     8 8 8 8     {9 f:                                              WINDOWS _4LS0XBPSL1413645033;     ; < < &<     < =                                              WINDOWS _4LS0XBPSM1413645033/?     >? M? `? m?     	@ @                                              WINDOWS _4LS0XBPSN1413645033vB     B B B B     PC ;D                                              WINDOWS _4LS0XBPOL1413645033E     E E E E     F G                                              WINDOWS _4LS0XBPOM1413645033I     I "I 6I CI     I J                                              WINDOWS _4LS149CM51413645033ML     \L kL L L     )M N                                              WINDOWS _4LS0XBPOL1413645033O     O O O O     rP ]Q                                              WINDOWS _4LS0XBPOM1413645033R     R R S S     S T                                              WINDOWS _4LS0XBPOL1413645033(V     7V FV XV eV     V UW                                              WINDOWS _4LS0XBPOM1413645033JX     YX hX zX X     Y Y                                              WINDOWS _4LS0XBPOL14136450335[     D[ S[ e[ r[     [ \                                              WINDOWS _4LS0XBPOM1413645033 ^     /^ >^ P^ ]^     ^ M_                                              WINDOWS _4LS0XBPON1413645033B`     Q` `` r` `     a oa                                              WINDOWS _4LS0XBPOO1413645033db     sb b b b     *c c                                              WINDOWS _4LS0XBPOP1413645033d     d d d d     Le e                                              WINDOWS _4LS0XBPOQ1413645033f     f f f f     ng g                                              WINDOWS _4LS0XJGLT1413645033h     h h h i     i i                                              WINDOWS _4LS0XJGLU1413645033j     j 
k k )k     k l                                              WINDOWS _4LS0XJGLV1413645033m     m ,m ?m Lm     m =n                                              WINDOWS _4LS0XJGLW14136450332o     Ao Po co po     o ap                                              WINDOWS _4LS0XJGLX1413645033Vq     eq tq q q     r r                                              WINDOWS _4LS0XBPOL1413645033zs     s s s s     Bt t                                              WINDOWS _4LS0XBPOL1413645033u     u u u u     ^v v                                              WINDOWS _4LS0XBPOM1413645033w     w w w w     ox x                                              WINDOWS _4LS0XBPON1413645033y     y y y y     z z                                              WINDOWS _4LS0XBPOO1413645033{     { { { 	|     | |                                              WINDOWS _4LS0XBPOL1413645033}     }  ~ 
~ ~     ~                                               WINDOWS _4LS0XBPOM1413645033        +                                                    WINDOWS _4LS0XBPON1413645033      " / <     Ă %                                              WINDOWS _4LS0XBPOO1413645033     $ 3 @ M     Մ 6                                              WINDOWS _4LS0XBPOL1413645033&     5 D Q ^      G                                              WINDOWS _4LS0XBPOL14136450337     F U b o      X                                              WINDOWS _4LS0XBPOM1413645033H     W f t      
 k                                              WINDOWS _4LS149CM51413645033[     j y        ~                                              WINDOWS _4LS0XBPOL1413645033n     }        0                                               WINDOWS _4LS0XBPOM1413645033             C                                               WINDOWS _4LS0XBPOL1413645092        ϒ                                                    WINDOWS _4LS0XBPOL1413645033                                                                  WINDOWS _4LS0XBPOL1413645033      Ε ܕ                                                           WINDOWS _4LS0XBPOM1413645033                                                                  WINDOWS _4LS0XBPOL1413645092S     b q       @                                               WINDOWS _4LS0XBPOM1413645033       ϙ ܙ                                                          WINDOWS _4LS149CML1413645092r             _ ͛                                              WINDOWS _4LS149CMM1413645033Ɯ     Ӝ                                                             WINDOWS _4LS149CMN1413645033        Ɲ                                                          WINDOWS _4LS0XBPOL1413645033      Ğ Ҟ ߞ                                                          WINDOWS _4LS0XBPOL1413645033ӟ                                                                  WINDOWS _4LS149CMO1413645033Ơ     Ӡ                                                             WINDOWS _4LS149CMP1413645033     ( 5 C P                                                          WINDOWS _4LS14IFZ31413645033     ģ ٣                                                      WINDOWS _4LS14IFZ41413645033y                                                                  WINDOWS _4WY0XPW5S1413645033-     < K X e      ç                                              WINDOWS _4LS0XBPOL1413645033=     M ] k x      ͪ                                              WINDOWS _4YA0V32TX1413645033@     U j {      	 =                                              WINDOWS _4YW0TCKKS1413645033      & 4 A                                                          WINDOWS _4LS0XBPOL1413645033                                                                  WINDOWS _4LS0XBPOL1413645033                                                                  WINDOWS _4YW1A1UM01413645033!     . ; G T                                                          WINDOWS _5SG12F54N1533955466     Ұ         
                                              WINDOWS _5SK0VJUWU1533955456ʸ     ߸                                                       WINDOWS _5T80L6EMX1413645033    ! .                                                          WINDOWS _5TR0Q384I1413645033             ~                                               WINDOWS _5TR0Q384J1413645033             k                                               WINDOWS _5TR0Q384K1413645033             X                                               WINDOWS _5TR0Q384L1413645033             E                                               WINDOWS _5TR0Q384M1413645033             2                                               WINDOWS _5TR0Q384N1413645033m     z         u                                              WINDOWS _5TR0Q384O1413645033Z     g t        b                                              WINDOWS _5TR0Q384P1413645033G     T a p }      P                                              WINDOWS _5TR0Q384Q14136450335     B O ^ k      >                                              WINDOWS _5TR0Q384R1413645033#     0 = L Y      ,                                              WINDOWS _5TR0Q384S1413645033      + ; H                                                    WINDOWS _5TR0Q384T1413645033       + 8                                                    WINDOWS _5TR0Q384U1413645033        (                                                    WINDOWS _5TR0Q384V1413645033        (                                                    WINDOWS _5TR0Q384W1413645033                                                            WINDOWS _5TR0Q384X1413645033                                                            WINDOWS _5TR0Q384Y1413645033             v                                               WINDOWS _5TR0Q384Z1413645033             f                                               WINDOWS _5TR0Q38501413645033             V                                               WINDOWS _5TR0Q38511413645033             F                                               WINDOWS _5TR0Q38521413645033             6                                               WINDOWS _5TR0Q38531413645033q     ~        & |                                              WINDOWS _5TR0Q38541413645033a     n {        l                                              WINDOWS _5TR0Q38551413645033Q     ^ k {       \                                              WINDOWS _5TR0Q38561413645033A     N [ k x      L                                              WINDOWS _5TR0Q385714136450331     > K [ h      <                                              WINDOWS _5TR0Q38581413645033!     . ; K X      ,                                              WINDOWS _5TR0Q38591413645033      + ; H                                                    WINDOWS _5TR0Q385A1413645033       + 8                                                    WINDOWS _5TR0Q385B1413645033        (                                                    WINDOWS _5TR0Q385C1413645033                                                            WINDOWS _4LS0XBPOL1413645033                                                            WINDOWS _4LS0XBPOM1413645033             v                                                 WINDOWS _4LS149CM51413645033             f                                               WINDOWS _5TR0Q385D1413645033             V                                               WINDOWS _5TR0Q385E1413645033             F                                               WINDOWS _5TR0Q385F1413645033             6                                               WINDOWS _5U50VMR5N1413645033q	     	 	 	 	     >
 {
                                              WINDOWS _5UP0VRC4I1413645033H     ] r        C                                              WINDOWS _4LS0XBPOL1413645033     
 
 $
 1
     
 "                                              WINDOWS _4LS0XBPOL1413645033     & 5 H U      F                                              WINDOWS _4LS0XBPOL1413645033;     J Y l y      j                                              WINDOWS _4LS0XBPOL1413645033_     n }       '                                               WINDOWS _5UY0WTL1X1413645033             K                                               WINDOWS _5UY0WTL1Y1413645033             i                                               WINDOWS _5UY0WTL1Z1413645033             |                                               WINDOWS _5UY0WTL201413645033                                                            WINDOWS _5UY0WTL211413645033                                                            WINDOWS _4LS0XBPOL1413645033           ,        !                                              WINDOWS _5V30JHX5R1413645033"     " $" 8" E"     " #                                              WINDOWS _5V30JHX5S1413645033O%     ^% m% % %     +& '                                              WINDOWS _5V30JHX5T1413645033(     ( ( ( (     t) _*                                              WINDOWS _5V30JHX5U1413645033+     + + ,  ,     , -                                              WINDOWS _4LS0XBPOL1413645033*/     9/ H/ \/ i/     0 0                                              WINDOWS _5V310Z6GG1413645033s2     2 2 2 2     %3 z3                                              WINDOWS _4LS0XBPOL1413645033^4     m4 |4 4 4                                                          WINDOWS _5VN0MVOM61413645033X5     g5 v5 5 5                                                          WINDOWS _5ZN0YQ7LN1413645033R6     a6 p6 6 6     .7 8                                              WINDOWS _5ZN0YQ7LO14136450339     9 9 9 9     ]: :                                              WINDOWS _4LS0XBPOL1413645033;     ; ; ; ;                                                          WINDOWS _4LS0XBPOL1413645033<     < < < <                                                          WINDOWS _4LS0XBPOL1414483301= = = = = =     h? ?                                              WINDOWS _4LS0XBPOL1414483301@ @ @ @ A A     B B                                              WINDOWS _69K0KTXZ11414486086C 	D D 0D AD ND     E F                                              COMMENT RESERVED                                F                                                          GM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     =Height = 692
Width = 1274
ShowWindow = 2
ScrollBars = 3
DoCreate = .T.
AutoCenter = .T.
Caption = "Tablett"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Visible = .F.
ClipControls = .T.
Icon = prgicons\haupticon.ico
WindowType = 0
WindowState = 0
AlwaysOnTop = .T.
Name = "FORM1"
     oPROCEDURE Destroy

mytablettopen=.f.
ENDPROC
PROCEDURE Init
myTablett = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
mytablettopen = .t.
*!*	IF thisform.Height * mscreenfaktor_h > screenmaxH
*!*		dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
*!*	ELSE
*!*		dpifaktor = 1
*!*	endif
*!*	thisform.sizer.saveformsize

*!*	thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
*!*	thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

*!*	thisform.resize
*!*	thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
*THISFORM.sizer.frmresize()

ENDPROC
         p  p                        Đ   %            
                U    T  - U 
 MYTABLETTOPENC 
 T    %   
1  T     T a U 	 MYTABLETT THISFORM TOP
 MYTABLETTOPEN  U   Destroy,      InitM      Resize     1  2  AA  > 3                       &         A   *     	   G  d      )   p                        label      label      Januar      FORM1     FontBold = .T.
FontSize = 9
WordWrap = .T.
Caption = "Fr die Eingabe des Betrags mu das Programm auf        J A N U A R  eingestellt sein"
Height = 99
Left = 591
Top = 222
Visible = .F.
Width = 93
TabIndex = 1
ForeColor = 255,0,0
Name = "Januar"
      label      label      zeile0      FORM1      oCaption = "Label0"
Height = 17
Left = 12
Top = 9
Visible = .F.
Width = 59
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile1      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 24
Visible = .F.
Width = 59
TabIndex = 3
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 39
Visible = .F.
Width = 59
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 54
Visible = .F.
Width = 59
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 69
Visible = .F.
Width = 59
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 84
Visible = .F.
Width = 59
TabIndex = 7
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      pCaption = "Label0"
Height = 17
Left = 12
Top = 99
Visible = .F.
Width = 59
TabIndex = 8
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      FORM1      qCaption = "Label0"
Height = 17
Left = 12
Top = 114
Visible = .F.
Width = 59
TabIndex = 9
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      FORM1      rCaption = "Label0"
Height = 17
Left = 12
Top = 129
Visible = .F.
Width = 59
TabIndex = 10
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile9      FORM1      rCaption = "Label0"
Height = 17
Left = 12
Top = 144
Visible = .F.
Width = 59
TabIndex = 11
Name = "zeile9"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile10      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 159
Visible = .F.
Width = 59
TabIndex = 12
Name = "zeile10"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile11      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 174
Visible = .F.
Width = 59
TabIndex = 13
Name = "zeile11"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile12      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 189
Visible = .F.
Width = 59
TabIndex = 14
Name = "zeile12"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile13      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 204
Visible = .F.
Width = 59
TabIndex = 15
Name = "zeile13"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile14      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 219
Visible = .F.
Width = 59
TabIndex = 16
Name = "zeile14"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile15      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 234
Visible = .F.
Width = 59
TabIndex = 17
Name = "zeile15"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile16      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 249
Visible = .F.
Width = 59
TabIndex = 18
Name = "zeile16"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile17      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 264
Visible = .F.
Width = 59
TabIndex = 19
Name = "zeile17"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile18      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 279
Visible = .F.
Width = 59
TabIndex = 20
Name = "zeile18"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile19      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 294
Visible = .F.
Width = 59
TabIndex = 21
Name = "zeile19"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile20      FORM1      AutoSize = .F.
Caption = "Label0"
Height = 17
Left = 12
Top = 309
Visible = .F.
Width = 59
TabIndex = 22
Name = "zeile20"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile21      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 324
Visible = .F.
Width = 59
TabIndex = 23
Name = "zeile21"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile22      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 339
Visible = .F.
Width = 59
TabIndex = 24
Name = "zeile22"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile23      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 354
Visible = .F.
Width = 59
TabIndex = 25
Name = "zeile23"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile24      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 369
Visible = .F.
Width = 59
TabIndex = 26
Name = "zeile24"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile25      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 384
Visible = .F.
Width = 59
TabIndex = 27
Name = "zeile25"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile26      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 399
Visible = .F.
Width = 59
TabIndex = 28
Name = "zeile26"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile27      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 414
Visible = .F.
Width = 59
TabIndex = 29
Name = "zeile27"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile28      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 429
Visible = .F.
Width = 59
TabIndex = 30
Name = "zeile28"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile29      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 444
Visible = .F.
Width = 59
TabIndex = 31
Name = "zeile29"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile30      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 459
Visible = .F.
Width = 59
TabIndex = 32
Name = "zeile30"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile31      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 474
Visible = .F.
Width = 59
TabIndex = 33
Name = "zeile31"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile32      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 489
Visible = .F.
Width = 59
TabIndex = 34
Name = "zeile32"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile33      FORM1      sCaption = "Label0"
Height = 17
Left = 12
Top = 504
Visible = .F.
Width = 59
TabIndex = 35
Name = "zeile33"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 6
Left = 260
Height = 22
Width = 82
Caption = "sscommand1"
Style = 0
TabIndex = 36
Visible = .F.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click
*SET STEP ON 
DO sscommand1_click
*!*	IF register = 199
*!*		mytablett.visible = .t.
*!*		RETURN
*!*	ENDIF
*register <> 222 .and. register <> 117 .and. register <> 84 .and. register <> 63 .and. register <> 9 &&noch prfen
IF .not. INLIST(register,9,63,84,117,148,149,150,222,300)
	thisform.hide
	myform1.visible = .t.
*	myform1.windowstate = 0
endif
ENDPROC
     ?    &  &                        u   %                             U  R    , %C 	?Tu,
K 
    T  a  U  SSCOMMAND1_CLICK REGISTER THISFORM HIDE MYFORM1 VISIBLE Click,     1 r   B 1                       y      )   &                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 30
Left = 260
Height = 22
Width = 82
Caption = "sscommand2"
TabIndex = 37
Visible = .F.
SpecialEffect = 0
Name = "sscommand2"
      1PROCEDURE Click

DO sscommand2_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND2_CLICK Click,     1 r 1                       &       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 54
Left = 263
Height = 22
Width = 82
Caption = "sscommand3"
Style = 0
TabIndex = 38
Visible = .F.
SpecialEffect = 0
Name = "sscommand3"
      PROCEDURE Click

DO sscommand3_click
IF register = 85
	mytablett.hide
	myform1.visible = .t.
	myform1.windowstate = 0
endif
ENDPROC
     D    +  +                        д   %                             U  G     % U@ 
    T  a T     U  SSCOMMAND3_CLICK REGISTER	 MYTABLETT HIDE MYFORM1 VISIBLE WINDOWSTATE Click,     1 r   A 1                              )   +                        
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 78
Left = 263
Height = 22
Width = 82
Caption = "sscommand4"
TabIndex = 39
Visible = .F.
SpecialEffect = 0
Name = "sscommand4"
      1PROCEDURE Click

DO sscommand4_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND4_CLICK Click,     1 r 1                       &       )                            
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 99
Left = 263
Height = 22
Width = 82
Caption = "sscommand5"
Style = 0
TabIndex = 40
Visible = .F.
SpecialEffect = 0
Name = "sscommand5"
      PROCEDURE Click

DO sscommand5_click
IF .not. INLIST(register,84,63,65,150,199,300) &&register <> 84 .and. register <> 63 .and. register <> 65 .and. register <> 300
	thisform.hide
	myform1.visible = .t.
*	myform1.windowstate = 0
ENDIF

ENDPROC
     6                              Q   %                             U  I    # %C T?A,
B 
    T  a  U  SSCOMMAND5_CLICK REGISTER THISFORM HIDE MYFORM1 VISIBLE Click,     1 r 1  B 2                              )                           
commandbutton      
commandbutton      
sscommand6      FORM1      Top = 123
Left = 263
Height = 22
Width = 82
Caption = "sscommand6"
TabIndex = 41
Visible = .F.
SpecialEffect = 0
Name = "sscommand6"
      /PROCEDURE Click
DO sscommand6_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND6_CLICK Click,     1 q 1                       $       )                            
commandbutton      
commandbutton      
sscommand7      FORM1      Top = 144
Left = 263
Height = 22
Width = 82
Caption = "sscommand7"
TabIndex = 42
Visible = .F.
SpecialEffect = 0
Name = "sscommand7"
      /PROCEDURE Click
DO sscommand7_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND7_CLICK Click,     1 q 1                       $       )                            
commandbutton      
commandbutton      
sscommand8      FORM1      Top = 165
Left = 263
Height = 22
Width = 82
Caption = "sscommand8"
Style = 0
TabIndex = 43
Visible = .F.
SpecialEffect = 0
Name = "sscommand8"
      /PROCEDURE Click
DO sscommand8_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND8_CLICK Click,     1 q 1                       $       )                            
commandbutton      
commandbutton      
sscommand9      FORM1      Top = 186
Left = 263
Height = 22
Width = 82
Caption = "sscommand9"
TabIndex = 44
Visible = .F.
SpecialEffect = 0
Name = "sscommand9"
      /PROCEDURE Click
DO sscommand9_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND9_CLICK Click,     1 q 1                       $       )                            textbox      textbox      Text1      FORM1      ]Height = 22
Left = 162
TabIndex = 45
Top = 19
Visible = .F.
Width = 69
Name = "Text1"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text2      FORM1      ]Height = 22
Left = 162
TabIndex = 46
Top = 40
Visible = .F.
Width = 69
Name = "Text2"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text3      FORM1      ]Height = 22
Left = 162
TabIndex = 47
Top = 61
Visible = .F.
Width = 69
Name = "Text3"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text4      FORM1      ]Height = 22
Left = 165
TabIndex = 48
Top = 81
Visible = .F.
Width = 69
Name = "Text4"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text5      FORM1      ^Height = 22
Left = 161
TabIndex = 49
Top = 103
Visible = .F.
Width = 69
Name = "Text5"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text6      FORM1      ^Height = 22
Left = 161
TabIndex = 50
Top = 124
Visible = .F.
Width = 69
Name = "Text6"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text7      FORM1      ^Height = 22
Left = 162
TabIndex = 51
Top = 145
Visible = .F.
Width = 69
Name = "Text7"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text8      FORM1      ^Height = 22
Left = 162
TabIndex = 52
Top = 166
Visible = .F.
Width = 69
Name = "Text8"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text9      FORM1      ^Height = 22
Left = 162
TabIndex = 53
Top = 187
Visible = .F.
Width = 69
Name = "Text9"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text10      FORM1      _Height = 22
Left = 162
TabIndex = 54
Top = 208
Visible = .F.
Width = 69
Name = "Text10"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text11      FORM1      _Height = 22
Left = 168
TabIndex = 55
Top = 229
Visible = .F.
Width = 69
Name = "Text11"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text12      FORM1      _Height = 22
Left = 168
TabIndex = 56
Top = 250
Visible = .F.
Width = 69
Name = "Text12"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text13      FORM1      _Height = 22
Left = 168
TabIndex = 57
Top = 271
Visible = .F.
Width = 69
Name = "Text13"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text14      FORM1      _Height = 22
Left = 167
TabIndex = 58
Top = 292
Visible = .F.
Width = 69
Name = "Text14"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text15      FORM1      _Height = 22
Left = 167
TabIndex = 59
Top = 313
Visible = .F.
Width = 69
Name = "Text15"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text16      FORM1      _Height = 22
Left = 167
TabIndex = 60
Top = 334
Visible = .F.
Width = 69
Name = "Text16"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text17      FORM1      _Height = 22
Left = 168
TabIndex = 61
Top = 355
Visible = .F.
Width = 69
Name = "Text17"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text18      FORM1      _Height = 22
Left = 168
TabIndex = 62
Top = 376
Visible = .F.
Width = 69
Name = "Text18"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text19      FORM1      _Height = 22
Left = 168
TabIndex = 63
Top = 397
Visible = .F.
Width = 69
Name = "Text19"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text20      FORM1      _Height = 22
Left = 168
TabIndex = 64
Top = 418
Visible = .F.
Width = 69
Name = "Text20"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        textbox      textbox      Text21      FORM1      _Height = 22
Left = 168
TabIndex = 65
Top = 439
Visible = .F.
Width = 69
Name = "Text21"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,2)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,2))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        checkbox      checkbox      Check1      FORM1      Top = 225
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 69
Visible = .F.
Name = "Check1"
     ?PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                   ?n   %                           U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME  U   Click,      GotFocus      ProgrammaticChange     1 !2 2 2                       d                        4      )                           checkbox      checkbox      Check2      FORM1      Top = 243
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 70
Visible = .F.
Name = "Check2"
     APROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange

*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                   ?n   %                           U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME  U   Click,      GotFocus      ProgrammaticChange     1 !2 2 3                       d                        6      )                           checkbox      checkbox      Check3      FORM1      Top = 261
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 71
Visible = .F.
Name = "Check3"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check4      FORM1      Top = 279
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 72
Visible = .F.
Name = "Check4"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check5      FORM1      Top = 297
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 73
Visible = .F.
Name = "Check5"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check6      FORM1      Top = 315
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 74
Visible = .F.
Name = "Check6"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check7      FORM1      Top = 333
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 75
Visible = .F.
Name = "Check7"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check8      FORM1      Top = 351
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 76
Visible = .F.
Name = "Check8"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        checkbox      checkbox      Check9      FORM1      Top = 369
Left = 266
Height = 16
Width = 28
Alignment = 0
Caption = "Check1"
TabIndex = 77
Visible = .F.
Name = "Check9"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        optiongroup      optiongroup      Optiongroup1      FORM1      ButtonCount = 27
Value = 24
Height = 528
Left = 339
Top = 12
Width = 111
TabIndex = 78
Visible = .F.
Name = "Optiongroup1"
Option1.Caption = "Option1"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 25
Option1.Width = 61
Option1.Name = "Opt1"
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 44
Option2.Width = 61
Option2.Name = "Opt2"
Option3.Caption = "Option3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 63
Option3.Width = 61
Option3.Name = "Opt3"
Option4.Caption = "Option4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 82
Option4.Width = 61
Option4.Name = "Opt4"
Option5.Caption = "Option5"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 101
Option5.Width = 61
Option5.Name = "Opt5"
Option6.Caption = "Option6"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 120
Option6.Width = 61
Option6.Name = "Opt6"
Option7.Caption = "Option7"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 139
Option7.Width = 61
Option7.Name = "Opt7"
Option8.Caption = "Option8"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 158
Option8.Width = 61
Option8.Name = "Opt8"
Option9.Caption = "Option9"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 177
Option9.Width = 61
Option9.Name = "Opt9"
Option10.Caption = "Option10"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 196
Option10.Width = 68
Option10.Name = "Opt10"
Option11.Caption = "Option11"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 215
Option11.Width = 68
Option11.Name = "Opt11"
Option12.Caption = "Option12"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 234
Option12.Width = 68
Option12.Name = "Opt12"
Option13.Caption = "Option13"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 253
Option13.Width = 68
Option13.Name = "Opt13"
Option14.Caption = "Option14"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 272
Option14.Width = 68
Option14.Name = "Opt14"
Option15.Caption = "Option15"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 291
Option15.Width = 68
Option15.Name = "Opt15"
Option16.Caption = "Option16"
Option16.Height = 17
Option16.Left = 5
Option16.Top = 310
Option16.Width = 68
Option16.Name = "Opt16"
Option17.Caption = "Option17"
Option17.Height = 17
Option17.Left = 5
Option17.Top = 329
Option17.Width = 68
Option17.Name = "Opt17"
Option18.Caption = "Option18"
Option18.Height = 17
Option18.Left = 5
Option18.Top = 348
Option18.Width = 68
Option18.Name = "Opt18"
Option19.Caption = "Option19"
Option19.Height = 17
Option19.Left = 5
Option19.Top = 367
Option19.Width = 68
Option19.Name = "Opt19"
Option20.Caption = "Option20"
Option20.Height = 17
Option20.Left = 5
Option20.Top = 386
Option20.Width = 68
Option20.Name = "Opt20"
Option21.Caption = "Option21"
Option21.Height = 17
Option21.Left = 5
Option21.Top = 405
Option21.Width = 68
Option21.Name = "Opt21"
Option22.Caption = "Option22"
Option22.Height = 17
Option22.Left = 5
Option22.Top = 424
Option22.Width = 68
Option22.Name = "Opt22"
Option23.Caption = "Option23"
Option23.Height = 17
Option23.Left = 5
Option23.Top = 443
Option23.Width = 68
Option23.Name = "Opt23"
Option24.Caption = "Option0"
Option24.Value = 1
Option24.Height = 17
Option24.Left = 5
Option24.TabIndex = 0
Option24.Top = 6
Option24.Width = 68
Option24.Name = "Opt0"
Option25.Caption = "Option24"
Option25.Height = 17
Option25.Left = 5
Option25.Top = 462
Option25.Width = 73
Option25.Name = "opt24"
Option26.Caption = "Option25"
Option26.Height = 17
Option26.Left = 5
Option26.Top = 480
Option26.Width = 70
Option26.Name = "Opt25"
Option27.Caption = "Option26"
Option27.Height = 17
Option27.Left = 5
Option27.Top = 498
Option27.Width = 79
Option27.Name = "Opt26"
     PROCEDURE Opt1.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt2.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt3.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt4.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt5.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt6.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt7.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt8.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt9.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt10.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt11.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt12.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt13.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt14.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt15.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt16.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt17.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt18.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt19.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt20.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt21.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt22.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt23.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt0.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE opt24.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt25.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE Opt26.Click
DO opt_click WITH INT(VAL(SUBSTR(this.Name,4))),IIF(EMPTY(this.Value),false,true)
ENDPROC
     U    <  <                         e   %   
      S
  7               U  5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE5 2   CCC  \g8CC      6 U 	 OPT_CLICK THIS NAME VALUE FALSE TRUE
 Opt1.Click,     
 Opt2.Click     
 Opt3.Click     
 Opt4.ClickX    
 Opt5.Click    
 Opt6.Click     
 Opt7.Click    
 Opt8.Click    
 Opt9.ClickL     Opt10.Click     Opt11.Click     Opt12.Clickx     Opt13.Click     Opt14.Click@     Opt15.Click     Opt16.Click     Opt17.Clickl     Opt18.Click     Opt19.Click4     Opt20.Click     Opt21.Click     Opt22.Click`     Opt23.Click    
 Opt0.Click(	     opt24.Click	     Opt25.Click	     Opt26.ClickT
    1 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !2 !1                       g                        K        l    
   	     /  
      P       
             4                      j                    P  "      r    %        6  (      X    +          .   !   >    1   #       4   %   $  u  7   '       :   )   
	  [	  =   +   }	  	  @   -   	  A
  C   /   b
  
  F   1   
  &  I   3   H    L   5       O    )   <                        combobox      combobox      Combo1      FORM1      ^Height = 22
Left = 416
TabIndex = 79
Top = 42
Visible = .F.
Width = 64
Name = "Combo1"
     4PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   
   %          Q     9            U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3 A A  1                                ;   l                        )      )                           combobox      combobox      Combo2      FORM1      ^Height = 22
Left = 416
TabIndex = 80
Top = 63
Visible = .F.
Width = 64
Name = "Combo2"
     4PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   
   %          Q     9            U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3 A A  1                                ;   l                        )      )                           combobox      combobox      Combo3      FORM1      ^Height = 22
Left = 416
TabIndex = 81
Top = 84
Visible = .F.
Width = 64
Name = "Combo3"
     4PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   
   %          Q     9            U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3 A A  1                                ;   l                        )      )                           combobox      combobox      Combo4      FORM1      _Height = 22
Left = 416
TabIndex = 82
Top = 105
Visible = .F.
Width = 64
Name = "Combo4"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo5      FORM1      _Height = 22
Left = 416
TabIndex = 83
Top = 126
Visible = .F.
Width = 64
Name = "Combo5"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo6      FORM1      _Height = 22
Left = 416
TabIndex = 84
Top = 147
Visible = .F.
Width = 64
Name = "Combo6"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo7      FORM1      _Height = 22
Left = 416
TabIndex = 85
Top = 168
Visible = .F.
Width = 64
Name = "Combo7"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo8      FORM1      _Height = 22
Left = 416
TabIndex = 86
Top = 189
Visible = .F.
Width = 64
Name = "Combo8"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo9      FORM1      _Height = 22
Left = 416
TabIndex = 87
Top = 210
Visible = .F.
Width = 64
Name = "Combo9"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo10      FORM1      `Height = 22
Left = 416
TabIndex = 88
Top = 231
Visible = .F.
Width = 64
Name = "Combo10"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo11      FORM1      `Height = 22
Left = 416
TabIndex = 89
Top = 252
Visible = .F.
Width = 64
Name = "Combo11"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6))))))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                        
      )                           combobox      combobox      Combo12      FORM1      `Height = 22
Left = 416
TabIndex = 90
Top = 273
Visible = .F.
Width = 64
Name = "Combo12"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo13      FORM1      `Height = 22
Left = 416
TabIndex = 91
Top = 294
Visible = .F.
Width = 64
Name = "Combo13"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo14      FORM1      `Height = 22
Left = 416
TabIndex = 92
Top = 315
Visible = .F.
Width = 64
Name = "Combo14"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo15      FORM1      `Height = 22
Left = 416
TabIndex = 93
Top = 336
Visible = .F.
Width = 64
Name = "Combo15"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo16      FORM1      `Height = 22
Left = 416
TabIndex = 94
Top = 357
Visible = .F.
Width = 64
Name = "Combo16"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo17      FORM1      `Height = 22
Left = 416
TabIndex = 95
Top = 378
Visible = .F.
Width = 64
Name = "Combo17"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo18      FORM1      `Height = 22
Left = 416
TabIndex = 96
Top = 399
Visible = .F.
Width = 64
Name = "Combo18"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2 2  3  1                                ;   l                              )                           combobox      combobox      Combo0      FORM1      ^Height = 22
Left = 416
TabIndex = 97
Top = 21
Visible = .F.
Width = 64
Name = "Combo0"
      PROCEDURE GotFocus
counter = 1

ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   U   %          (  	               U   
 T   U  COUNTER    CCC  \g8 U  COMBO_CLICK THIS NAME
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  3 2  2  1                       !         =   n                               )                           textbox      textbox      Datumsfeld0      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 98
Top = 111
Visible = .F.
Width = 109
Name = "Datumsfeld0"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld1      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 99
Top = 135
Visible = .F.
Width = 109
Name = "Datumsfeld1"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld2      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 100
Top = 159
Visible = .F.
Width = 109
Name = "Datumsfeld2"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld3      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 101
Top = 183
Visible = .F.
Width = 109
Name = "Datumsfeld3"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld4      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 102
Top = 207
Visible = .F.
Width = 109
Name = "Datumsfeld4"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld5      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 103
Top = 231
Visible = .F.
Width = 109
Name = "Datumsfeld5"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld6      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 104
Top = 255
Visible = .F.
Width = 109
Name = "Datumsfeld6"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld7      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 105
Top = 279
Visible = .F.
Width = 109
Name = "Datumsfeld7"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld8      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 106
Top = 303
Visible = .F.
Width = 109
Name = "Datumsfeld8"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld9      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 107
Top = 327
Visible = .F.
Width = 109
Name = "Datumsfeld9"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld10      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 108
Top = 351
Visible = .F.
Width = 109
Name = "Datumsfeld10"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld11      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 109
Top = 375
Visible = .F.
Width = 109
Name = "Datumsfeld11"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld12      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 110
Top = 399
Visible = .F.
Width = 109
Name = "Datumsfeld12"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      Datumsfeld13      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 111
Top = 423
Visible = .F.
Width = 109
Name = "Datumsfeld13"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      
tdbnumber0      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 112
Top = 251
Visible = .F.
Width = 95
Name = "tdbnumber0"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber1      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 113
Top = 272
Visible = .F.
Width = 95
Name = "tdbnumber1"
      PROCEDURE Valid
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
     W    >  >                        J   %                             U  #    CCC  
\g8 Ba U  TDBNUMBER_CHANGE THIS NAME    CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME Valid,      InteractiveChangeq     1 q 2 1                       T         |          )   >                        textbox      textbox      
tdbnumber2      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 114
Top = 293
Visible = .F.
Width = 95
Name = "tdbnumber2"
      PROCEDURE Valid
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
     W    >  >                        J   %                             U  #    CCC  
\g8 Ba U  TDBNUMBER_CHANGE THIS NAME    CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME Valid,      InteractiveChangeq     1 q 2 1                       T         |          )   >                        textbox      textbox      
tdbnumber3      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 115
Top = 314
Visible = .F.
Width = 95
Name = "tdbnumber3"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber4      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 116
Top = 335
Visible = .F.
Width = 95
Name = "tdbnumber4"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber5      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 117
Top = 356
Visible = .F.
Width = 95
Name = "tdbnumber5"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber6      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 118
Top = 377
Visible = .F.
Width = 95
Name = "tdbnumber6"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber7      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 119
Top = 398
Visible = .F.
Width = 95
Name = "tdbnumber7"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber8      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 120
Top = 419
Visible = .F.
Width = 95
Name = "tdbnumber8"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      
tdbnumber9      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 121
Top = 440
Visible = .F.
Width = 95
Name = "tdbnumber9"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber10      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 122
Top = 461
Visible = .F.
Width = 95
Name = "tdbnumber10"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber11      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 123
Top = 482
Visible = .F.
Width = 95
Name = "tdbnumber11"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber12      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 124
Top = 503
Visible = .F.
Width = 95
Name = "tdbnumber12"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber13      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 125
Top = 524
Visible = .F.
Width = 95
Name = "tdbnumber13"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      dezi0      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 756
TabIndex = 126
Top = 249
Visible = .F.
Width = 95
Name = "dezi0"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi1      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 756
TabIndex = 127
Top = 270
Visible = .F.
Width = 95
Name = "dezi1"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi2      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 756
TabIndex = 128
Top = 291
Visible = .F.
Width = 95
Name = "dezi2"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi3      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 756
TabIndex = 129
Top = 312
Visible = .F.
Width = 95
Name = "dezi3"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi4      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 130
Top = 258
Visible = .F.
Width = 88
Name = "dezi4"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi5      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 131
Top = 279
Visible = .F.
Width = 88
Name = "dezi5"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi6      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 132
Top = 300
Visible = .F.
Width = 88
Name = "dezi6"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi7      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 133
Top = 321
Visible = .F.
Width = 88
Name = "dezi7"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi8      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 134
Top = 342
Visible = .F.
Width = 88
Name = "dezi8"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi9      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 135
Top = 363
Visible = .F.
Width = 88
Name = "dezi9"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi10      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 136
Top = 384
Visible = .F.
Width = 88
Name = "dezi10"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi11      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 137
Top = 405
Visible = .F.
Width = 88
Name = "dezi11"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi12      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 138
Top = 426
Visible = .F.
Width = 88
Name = "dezi12"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi13      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 654
TabIndex = 139
Top = 447
Visible = .F.
Width = 88
Name = "dezi13"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      Eingabe1      FORM1      FontBold = .T.
FontSize = 10
Height = 22
Left = 926
SelectOnEntry = .T.
TabIndex = 146
Top = 191
Visible = .F.
Width = 228
PasswordChar = ""
Name = "Eingabe1"
      fPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO Eingabe1_Keypress WITH nKeyCode
ENDPROC
                                      t   %   u                          U            U  NKEYCODE
 NSHIFTALTCTRL EINGABE1_KEYPRESS KeyPress,     1   1                       [       )                            label      label      Label1      FORM1      Caption = "Das vorgegebene Passwort lautet:"
Height = 16
Left = 926
Top = 143
Visible = .F.
Width = 228
TabIndex = 140
Name = "Label1"
      label      label      Label2      FORM1      FontBold = .T.
FontSize = 12
Caption = "pc-gehalt"
Height = 21
Left = 926
Top = 164
Visible = .F.
Width = 228
TabIndex = 141
Name = "Label2"
      label      label      Label6      FORM1      FontBold = .T.
FontSize = 12
Caption = "1"
Height = 21
Left = 902
Top = 192
Visible = .F.
Width = 15
TabIndex = 142
Name = "Label6"
      textbox      textbox      Eingabe2      FORM1      FontBold = .T.
FontSize = 10
Height = 22
Left = 926
SelectOnEntry = .T.
TabIndex = 143
Top = 377
Visible = .F.
Width = 228
PasswordChar = ""
Name = "Eingabe2"
      fPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO Eingabe2_Keypress WITH nKeyCode
ENDPROC
                                      t   %   u                          U            U  NKEYCODE
 NSHIFTALTCTRL EINGABE2_KEYPRESS KeyPress,     1   1                       [       )                            label      label      Label7      FORM1      FontBold = .T.
FontSize = 12
Caption = "2"
Height = 21
Left = 908
Top = 378
Visible = .F.
Width = 15
TabIndex = 144
Name = "Label7"
      textbox      textbox      Eingabe3      FORM1      FontBold = .T.
FontSize = 10
Height = 22
Left = 926
SelectOnEntry = .T.
TabIndex = 145
Top = 410
Visible = .F.
Width = 228
PasswordChar = ""
Name = "Eingabe3"
      fPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO Eingabe3_Keypress WITH nKeyCode
ENDPROC
                                      t   %   u                          U            U  NKEYCODE
 NSHIFTALTCTRL EINGABE3_KEYPRESS KeyPress,     1   1                       [       )                            label      label      Label8      FORM1      FontBold = .T.
FontSize = 12
Caption = "3"
Height = 21
Left = 908
Top = 411
Visible = .F.
Width = 15
TabIndex = 147
Name = "Label8"
      label      label      Label0      FORM1      FontBold = .T.
FontSize = 12
FontUnderline = .T.
WordWrap = .T.
Caption = "Bitte geben Sie Ihr Pawort in Feld 1 ein:"
Height = 42
Left = 926
Top = 87
Visible = .F.
Width = 228
TabIndex = 148
Name = "Label0"
      label      label      Label3      FORM1      FontBold = .T.
FontSize = 10
WordWrap = .T.
Caption = "Bitte schlieen Sie alle Eingaben mit der ENTER-TASTE ab."
Height = 33
Left = 926
Top = 215
Visible = .F.
Width = 228
TabIndex = 149
ForeColor = 255,0,0
Name = "Label3"
      label      label      Label9      FORM1      FontBold = .T.
FontSize = 12
Caption = "Administrator-Modus"
Height = 21
Left = 441
Top = 165
Visible = .F.
Width = 171
TabIndex = 150
ForeColor = 255,0,0
Name = "Label9"
      label      label      
adminmodus      FORM1     WordWrap = .T.
Caption = "Ein Zutritt in den Bereich eines Useres, ist in diesem Modus nicht mglich. Dazu wre ein Schlieen und erneutes ffnen des Fensters erforderlich"
Height = 32
Left = 438
Top = 192
Visible = .F.
Width = 414
TabIndex = 151
Name = "adminmodus"
      label      label      Label4      FORM1     WWordWrap = .T.
Caption = "Wenn Sie Ihr Pawort  ndern mchten, dann tragen Sie Ihr neues Pawort bitte zuerst in das Textfeld 2 ein und zur Besttigung nochmals in Textfeld 3. Erst dann geben Sie Ihr noch aktuelles Pawort in Textfeld 1 ein."
Height = 93
Left = 926
Top = 257
Visible = .F.
Width = 228
TabIndex = 152
Name = "Label4"
      
commandbutton      
commandbutton      Dyn      FORM1      Top = 585
Left = 1011
Height = 49
Width = 55
Picture = prgicons\notices.ico
Caption = ""
TabIndex = 153
Visible = .F.
Name = "Dyn"
      (PROCEDURE Click
DO dyn_click
ENDPROC
                                         %   E       Z      T             U  
     U 	 DYN_CLICK Click,     1 q 1                              )                            label      label      Label_1      FORM1      vCaption = "labeel1"
Height = 16
Left = 846
Top = 627
Visible = .F.
Width = 54
TabIndex = 154
Name = "Label_1"
      textbox      textbox      Text0      FORM1      wHeight = 22
Left = 162
TabIndex = 155
Top = -3
Visible = .F.
Width = 69
BackColor = 255,255,255
Name = "Text0"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        checkbox      checkbox      Check0      FORM1      Top = 209
Left = 267
Height = 16
Width = 28
Alignment = 0
Caption = "Check0"
TabIndex = 156
Visible = .F.
Name = "Check0"
      PROCEDURE Click
DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
     k    R  R                        H   %                             U  5 2   CCC  \g8CC      6 U  CHECK_CLICK THIS NAME VALUE FALSE TRUE    CCC  \g8 U  CHECK_GOTFOCUS THIS NAME Click,      GotFocus     1 !2 1                       d                   )   R                        
commandbutton      
commandbutton      	Command10      FORM1      yTop = 591
Left = 12
Height = 24
Width = 69
Caption = "schlieen"
TabIndex = 157
Visible = .F.
Name = "Command10"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            label      label      Label5      FORM1      FontBold = .T.
Caption = "Passwort max. 35 Zeichen."
Height = 16
Left = 926
Top = 356
Visible = .F.
Width = 228
TabIndex = 158
Name = "Label5"
      label      label      blatt      FORM1      bCaption = "blatt"
Height = 90
Left = 783
Top = 18
Width = 85
TabIndex = 159
Name = "blatt"
      label      label      drive1      FORM1      eCaption = "drive1"
Height = 15
Left = 898
Top = 483
Width = 85
TabIndex = 160
Name = "drive1"
      label      label      dir1      FORM1      aCaption = "dir1"
Height = 15
Left = 897
Top = 504
Width = 85
TabIndex = 161
Name = "dir1"
      
commandbutton      
commandbutton      
printformx      FORM1      Top = 469
Left = 999
Height = 28
Width = 118
Caption = "printform"
Enabled = .F.
TabIndex = 162
Visible = .F.
Name = "printformx"
     iPROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif


oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026


CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       ^      )                           
commandbutton      
commandbutton      	printform      FORM1      Top = 618
Left = 1086
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 163
Visible = .F.
Name = "printform"
     iPROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif


oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026


CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       ^      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 633
Left = 1164
TabIndex = 164
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      kasten0      FORM1      sCaption = "kasten0"
Height = 17
Left = 90
Top = 9
Visible = .F.
Width = 59
TabIndex = 165
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten1      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 24
Visible = .F.
Width = 59
TabIndex = 166
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten2      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 39
Visible = .F.
Width = 59
TabIndex = 167
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 54
Visible = .F.
Width = 59
TabIndex = 168
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 69
Visible = .F.
Width = 59
TabIndex = 169
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 84
Visible = .F.
Width = 59
TabIndex = 170
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten6      FORM1      tCaption = "kasten0"
Height = 17
Left = 90
Top = 99
Visible = .F.
Width = 59
TabIndex = 171
Name = "kasten6"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten7      FORM1      uCaption = "kasten0"
Height = 17
Left = 90
Top = 114
Visible = .F.
Width = 59
TabIndex = 172
Name = "kasten7"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten8      FORM1      uCaption = "kasten0"
Height = 17
Left = 90
Top = 129
Visible = .F.
Width = 59
TabIndex = 173
Name = "kasten8"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten9      FORM1      uCaption = "kasten0"
Height = 17
Left = 90
Top = 144
Visible = .F.
Width = 59
TabIndex = 174
Name = "kasten9"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten10      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 159
Visible = .F.
Width = 59
TabIndex = 175
Name = "kasten10"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten11      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 174
Visible = .F.
Width = 59
TabIndex = 176
Name = "kasten11"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten12      FORM1      WordWrap = .F.
Caption = "kasten0"
Height = 17
Left = 90
Top = 189
Visible = .F.
Width = 59
TabIndex = 177
Name = "kasten12"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten13      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 204
Visible = .F.
Width = 59
TabIndex = 178
Name = "kasten13"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten14      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 219
Visible = .F.
Width = 59
TabIndex = 179
Name = "kasten14"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten15      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 234
Visible = .F.
Width = 59
TabIndex = 180
Name = "kasten15"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten16      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 249
Visible = .F.
Width = 59
TabIndex = 181
Name = "kasten16"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten17      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 264
Visible = .F.
Width = 59
TabIndex = 182
Name = "kasten17"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten18      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 279
Visible = .F.
Width = 59
TabIndex = 183
Name = "kasten18"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten19      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 294
Visible = .F.
Width = 59
TabIndex = 184
Name = "kasten19"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten20      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 309
Visible = .F.
Width = 59
TabIndex = 185
Name = "kasten20"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten21      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 324
Visible = .F.
Width = 59
TabIndex = 186
Name = "kasten21"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten22      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 339
Visible = .F.
Width = 59
TabIndex = 187
Name = "kasten22"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten23      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 354
Visible = .F.
Width = 59
TabIndex = 188
Name = "kasten23"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten24      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 369
Visible = .F.
Width = 59
TabIndex = 189
Name = "kasten24"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten25      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 384
Visible = .F.
Width = 59
TabIndex = 190
Name = "kasten25"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten26      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 399
Visible = .F.
Width = 59
TabIndex = 191
Name = "kasten26"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten27      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 414
Visible = .F.
Width = 59
TabIndex = 192
Name = "kasten27"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten28      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 429
Visible = .F.
Width = 59
TabIndex = 193
Name = "kasten28"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten29      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 444
Visible = .F.
Width = 59
TabIndex = 194
Name = "kasten29"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten30      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 459
Visible = .F.
Width = 59
TabIndex = 195
Name = "kasten30"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten31      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 474
Visible = .F.
Width = 59
TabIndex = 196
Name = "kasten31"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten32      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 489
Visible = .F.
Width = 59
TabIndex = 197
Name = "kasten32"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten33      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 504
Visible = .F.
Width = 59
TabIndex = 198
Name = "kasten33"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten34      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 522
Visible = .F.
Width = 59
TabIndex = 199
Name = "kasten34"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten35      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 537
Visible = .F.
Width = 59
TabIndex = 200
Name = "kasten35"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten36      FORM1      vCaption = "kasten0"
Height = 17
Left = 90
Top = 552
Visible = .F.
Width = 59
TabIndex = 201
Name = "kasten36"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            
commandbutton      
commandbutton      
HSCommand1      FORM1      |Top = 75
Left = 522
Height = 28
Width = 127
Caption = "HScommand1"
TabIndex = 202
Visible = .F.
Name = "HSCommand1"
      5PROCEDURE Click

DO kasten_click WITH 21
ENDPROC
                                         %   N       c      ]             U   
    U  KASTEN_CLICK Click,     1  1                       *       )                            
commandbutton      
commandbutton      	Command11      FORM1      zTop = 588
Left = 87
Height = 25
Width = 127
Caption = "Command11"
TabIndex = 203
Visible = .F.
Name = "Command11"
      )PROCEDURE Click
*SET STEP ON 
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                              )                            textbox      textbox      tdbnumber15      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 204
Top = 566
Visible = .F.
Width = 95
Name = "tdbnumber15"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber14      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 205
Top = 545
Visible = .F.
Width = 95
Name = "tdbnumber14"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber16      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 206
Top = 587
Visible = .F.
Width = 95
Name = "tdbnumber16"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber17      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 207
Top = 608
Visible = .F.
Width = 95
Name = "tdbnumber17"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      tdbnumber18      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 552
TabIndex = 208
Top = 629
Visible = .F.
Width = 95
Name = "tdbnumber18"
      _PROCEDURE InteractiveChange
DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   j                          U      CCC  
\g8 U  TDBNUMBER_CHANGE THIS NAME InteractiveChange,     1 1                       T       )                            textbox      textbox      dezi14      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 209
Top = 468
Visible = .F.
Width = 88
Name = "dezi14"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi15      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 210
Top = 489
Visible = .F.
Width = 88
Name = "dezi15"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi16      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 211
Top = 510
Visible = .F.
Width = 88
Name = "dezi16"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi17      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 212
Top = 531
Visible = .F.
Width = 88
Name = "dezi17"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      dezi18      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 213
Top = 552
Visible = .F.
Width = 88
Name = "dezi18"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            textbox      textbox      Datumsfeld14      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 214
Top = 447
Visible = .F.
Width = 109
Name = "Datumsfeld14"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld15      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 215
Top = 471
Visible = .F.
Width = 109
Name = "Datumsfeld15"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld16      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 216
Top = 495
Visible = .F.
Width = 109
Name = "Datumsfeld16"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld17      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 217
Top = 519
Visible = .F.
Width = 109
Name = "Datumsfeld17"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld18      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 218
Top = 543
Visible = .F.
Width = 109
Name = "Datumsfeld18"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        label      label      zeile34      FORM1      tCaption = "Label0"
Height = 17
Left = 12
Top = 520
Visible = .F.
Width = 59
TabIndex = 219
Name = "zeile34"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            editbox      editbox      Edit1      FORM1      BackStyle = 1
BorderStyle = 0
Enabled = .F.
Height = 93
Left = 705
ScrollBars = 0
TabIndex = 220
Top = 318
Visible = .F.
Width = 180
DisabledForeColor = 0,0,0
Name = "Edit1"
      editbox      editbox      Edit3      FORM1      BackStyle = 1
BorderStyle = 0
Enabled = .F.
Height = 93
Left = 714
ScrollBars = 0
TabIndex = 221
Top = 516
Visible = .F.
Width = 180
DisabledForeColor = 0,0,0
Name = "Edit3"
      textbox      textbox      Datumsfeld19      FORM1      FontBold = .T.
FontSize = 11
Alignment = 2
Height = 25
Left = 441
TabIndex = 222
Top = 567
Visible = .F.
Width = 109
Name = "Datumsfeld19"
      PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
     z    a  a                           %                            U      CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME+       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME	 LostFocus,      KeyPressn     1 2  1                       P         o          )   a                        textbox      textbox      dezi19      FORM1      Alignment = 3
Value = 0.000000
Height = 22
Left = 655
TabIndex = 223
Top = 573
Visible = .F.
Width = 88
Name = "dezi19"
      YPROCEDURE InteractiveChange
DO dezi_change WITH INT(VAL(SUBSTR(this.Name,5)))
ENDPROC
                                      '   %   e                          U      CCC  \g8 U  DEZI_CHANGE THIS NAME InteractiveChange,     1 1                       N       )                            label      label      
Sonderzeichen      FORM1      Caption = "(keine Umlaute, keine Sonderzeichen)"
Height = 16
Left = 926
Top = 126
Visible = .F.
Width = 228
TabIndex = 224
Name = "Sonderzeichen"
      editbox      editbox      Edit2      FORM1      BackStyle = 1
BorderStyle = 0
Enabled = .F.
Height = 93
Left = 708
ScrollBars = 0
TabIndex = 225
Top = 414
Visible = .F.
Width = 180
DisabledForeColor = 0,0,0
Name = "Edit2"
      xslider      foxyslider.vcx      	container      	ssScroll1      FORM1     Top = 534
Left = 168
Width = 233
Height = 24
SpecialEffect = 0
Visible = .F.
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 30
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      QPROCEDURE scroll
oldssscroll1_value = this.value
DO ssscroll1_scroll
ENDPROC
                                      h   %   }                          U    T       U  OLDSSSCROLL1_VALUE THIS VALUE SSSCROLL1_SCROLL scroll,     1 q 1                       F       )                            xslider      foxyslider.vcx      	container      	ssScroll2      FORM1     Top = 563
Left = 173
Width = 233
Height = 24
SpecialEffect = 0
Visible = .F.
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 30
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll2"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      QPROCEDURE scroll
oldssscroll2_value = this.value
DO ssscroll2_scroll
ENDPROC
                                      h   %   }                          U    T       U  OLDSSSCROLL2_VALUE THIS VALUE SSSCROLL2_SCROLL scroll,     1 q 1                       F       )                            xslider      foxyslider.vcx      	container      	ssScroll3      FORM1     Top = 590
Left = 176
Width = 233
Height = 24
SpecialEffect = 0
Visible = .F.
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 30
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll3"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      0PROCEDURE scroll
DO ssscroll3_change
ENDPROC
                                         %   L       b      \             U  
     U  SSSCROLL3_CHANGE scroll,     1 q 1                       %       )                            eArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 11, 7, 18, 14, 39, 4, 0
Arial, 1, 10, 6, 16, 13, 34, 3, 0
0]  m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LS1B7QJS1420515436      /  F      ]                      #      ,                       WINDOWS _4LS1B7QJT15017768515      A  M      Z                                                       WINDOWS _5ST0LEQN51466463632{                                                                       WINDOWS _5ST0LEQN61361215186I      V  c  q                                                             WINDOWS _4LS1B7QJS1420515436R      c  t                                                               WINDOWS _4LS1B7QJS1446217585        +  E  R                                                       WINDOWS _5ST0LEQNZ1420515436      '  7  E  R                                                       WINDOWS _4LS1B7QJS1420515436                                                                       WINDOWS _4LS1B7QJS1420515436w                                                                       WINDOWS _4LS1B7QJT1420515436W       d   q                                                                  WINDOWS _4LS1B7QJS1386696206+!      8!  E!  S!  `!                                                           WINDOWS _4LS1B7QJT1420515436!      !  !  !  !                                                           WINDOWS _4LT0UP5681386696206]"      j"  w"  "  "                                                           WINDOWS _4LT0UP5691420515436"      "  #  #  %#                                                           WINDOWS _5ST0LEQN51420515436#      #  #  #  #                                                           WINDOWS _4LT0UP5581420515436$      $  $  $  $                                                           WINDOWS _4LS1B7QJS1420515436U%      j%  %  %  %      &  (                                               WINDOWS _4LS1B7QJS1420515436@+      Q+  b+  r+  +                                                           WINDOWS _4LS1B7QJS1420515436+      +  ,   ,  -,                                                           WINDOWS _4LT0W2F3U1420515436,      ,  ,  ,  ,                                                           WINDOWS _4LS1B7QJS1420515436O-      `-  q-  -  -                                                           WINDOWS _4LT0W2F4W1420515436.      .  #.  3.  @.                                                           WINDOWS _4LS1B7QJS1446532156.      .  .  .  .      m/  G8                                               WINDOWS _4LS1B7QJS1420515436P@      e@  z@  @  @      A  SB                                               WINDOWS _4LT0WNDDG1420515436C      D  )D  ;D  HD      D                                                 WINDOWS _4LS1B7QJS1466464541                     %                                              WINDOWS _4LT0WNDDH14205154363     H ] o |      o                                              WINDOWS _4X30WT1OI1420515436                                                               WINDOWS _5ST0MNGSY1420515436             Z                                               WINDOWS _4LS1B7QJT1501776851	     	 	 	 	                                                          WINDOWS _5ST0LEQNZ1420515436u
     
 
 
 
                                                          WINDOWS _5ST0LEQN61420515436I     V c r                                                           WINDOWS _4LS1B7QJS1446207000%     4 C T a     
                                               WINDOWS _4LS1B7QJS1446209706             z {                                              WINDOWS _5ST10B0ER1420515436G     T a r                                                           WINDOWS _5ST10B0ES1420515436       - ? L                                                          WINDOWS _5ST10B0ET1420515436       % 2                                                          WINDOWS _5ST10B0EU1420515436                                                                  WINDOWS _4LS1B7QJS1420515436                                                                  WINDOWS _5ST10B0EW1420515436              ?                                              WINDOWS _5ST10B0EX1420515436                                                            WINDOWS _5ST10B0EY1420515436                                                                  WINDOWS _5ST10B0EZ1420515436                                                                  WINDOWS _5ST10B0F01420515436Z     i x                                                            WINDOWS _5ST10B0F11420515436                  I! !                                              WINDOWS _5ST10B0F21420515436N"     ]" l" |" "                                                          WINDOWS _5ST10B0F31420515436w#     # # # #                                                          WINDOWS _5ST10B0F41420515436$     $ $ $ $     % x&                                              WINDOWS _5ST10B0F51420515436(     2( G( V( c(     ( +)                                              WINDOWS _5ST10B0F71420515436)     * * &* 3*                                                          WINDOWS _5ST10B0F81420515436+     + + )+ 6+                                                          WINDOWS _5ST10B0F91420515436+     + + + ,                                                          WINDOWS _5ST10B0FA1420515436,     
- - .- ;-     - -                                              WINDOWS _5ST10B0FB1420515436.     . . . .                                                          WINDOWS _5ST10B0FC1420515436/     / 0 0 *0                                                          WINDOWS _5ST10B0FD14205154361     (1 71 H1 U1     1 2                                              WINDOWS _5ST10B0FE1420515436h4     }4 4 4 4     =5 w5                                              WINDOWS _5ST10B0FF1420515436C6     R6 a6 r6 6                                                          WINDOWS _5ST10B0FG1420515436N7     [7 h7 v7 7                                                          WINDOWS _5ST10B0FH14205154368     '8 68 G8 T8                                                          WINDOWS _5ST10B0FI1420515436D9     Y9 n9 }9 9     
: G:                                              WINDOWS _5ST10B0FJ1420515436;     "; 1; B; O;                                                          WINDOWS _5ST10B0FK1420515436?<     N< ]< n< {<                                                          WINDOWS _5ST10B0FL1420515436k=     z= = = =     O> )?                                              WINDOWS _5ST10B0FM1420515436@     @ @ @ @     A A                                              WINDOWS _5ST10B0FN1420515436B     B B B B                                                          WINDOWS _5ST10B0FO1420515436C     C C C C                                                          WINDOWS _5ST10B0FP1420515436D     D D D D                                                          WINDOWS _5ST10B0FQ1420515436E     E E E E     tF F                                              WINDOWS _5ST10B0FR1420515436zG     G G G G                                                          WINDOWS _5ST10B0FS1420515436H     H H H H                                                          WINDOWS _4LS1B7QJS1420515436I     I I J J     J K                                              WINDOWS _4LS1B7QJT1420515436M     2M GM VM cM     M ,N                                              WINDOWS _5ZY0TQRM21420515436N     O O 'O 4O                                                          WINDOWS _5ZY0TQRM31420515436P     P P +P 8P                                                          WINDOWS _5ZY0TQRM41420515436P     P P P 	Q                                                          WINDOWS _5ZY0TQRM51420515436Q     R #R 2R ?R     R R                                              WINDOWS _5ZY0TQRM61420515436S     S S S T                                                          WINDOWS _5ZY0TQRM71420515436T     U U #U 0U                                                          WINDOWS _5ST10B0G11420515436 V     -V :V LV YV                                                          WINDOWS _5ST10B0G21420515436V     V V W W                                                          WINDOWS _5ST10B0G31420515436W     W W W W                                                          WINDOWS _5ST10B0G41420515436eX     rX X X X                                                          WINDOWS _5ST10B0G51420515436&Y     5Y DY TY aY     Z Z                                              WINDOWS _5ST10B0G61420515436l\     \ \ \ \     @] y]                                              WINDOWS _5ST10B0G71420515436E^     T^ c^ s^ ^                                                          WINDOWS _5ST10B0G81420515436O_     \_ i_ x_ _                                                          WINDOWS _5ST10B0G91420515436`     +` :` J` W`                                                          WINDOWS _5ST10B0GA1420515436Ga     \a qa a a     b Hb                                              WINDOWS _5ST10B0GB1420515436c     #c 2c Bc Oc                                                          WINDOWS _5ST10B0GC1420515436?d     Nd ]d md zd                                                          WINDOWS _5ST10B0GD1420515436je     ye e e e     Lf #g                                              WINDOWS _5ST10B0GE1420515436h     h h h h     i i                                              WINDOWS _5ST10B0GF1420515436j     j j j j                                                          WINDOWS _5ST10B0GG1420515436k     k k k k                                                          WINDOWS _5ST10B0GH1420515436`l     ol ~l l l                                                          WINDOWS _5ST10B0GI1420515436m     m m m m     Sn n                                              WINDOWS _5ST10B0GJ1420515436Xo     go vo o o                                                          WINDOWS _5ST10B0GK1420515436p     p p p p                                                          WINDOWS _5ST10B0GL1420515436q     q q q q     r gs                                              WINDOWS _5ST10B0GM1420515436t     	u u ,u 9u     u v                                              WINDOWS _5ST10B0GN1420515436v     v v v w                                                          WINDOWS _5ST10B0GO1420515436w     w w  x 
x                                                          WINDOWS _5ST10B0GP1420515436x     x x x x                                                          WINDOWS _5ST10B0GQ1420515436y     y y z z     z z                                              WINDOWS _5ST10B0GR1420515436{     { { { {                                                          WINDOWS _5ST10B0GS1420515436|     | | | }                                                          WINDOWS _5ST10B0GT1420515436}     ~ ~  ~ -~     ~                                               WINDOWS _5ST10B0GU14205154368     M b p }      E                                              WINDOWS _5ST10B0GV1420515436       / ? L                                                          WINDOWS _5ST10B0GW1420515436     ( 5 D Q                                                          WINDOWS _5ST10B0GX1420515436        #                                                          WINDOWS _5ST10B0GY1420515436     ( = K X     ۆ                                               WINDOWS _5ST10B0GZ1420515436                                                                  WINDOWS _5ST10B0H01420515436      ) 9 F                                                          WINDOWS _5ST10B0H114205154366     C P a n                                                          WINDOWS _5ST10B0H21420515436       ! .                                                          WINDOWS _5ST10B0H31420515436     ċ ы                                                            WINDOWS _5ST10B0H41420515436z             \ 3                                              WINDOWS _5ST10B0H51420515436     Տ         ͐                                              WINDOWS _5ST10B0H61420515436       Ǒ ԑ                                                          WINDOWS _5ST10B0H71420515436       ̒ ْ                                                          WINDOWS _5ST10B0H81420515436p                                                                  WINDOWS _5ST10B0H91420515436      Ŕ Ӕ      c                                               WINDOWS _5ST10B0HA1420515436h     w                                                             WINDOWS _5ST10B0HB1420515436        Η                                                          WINDOWS _5ST10B0HC1420515436     ͘ ܘ        |                                              WINDOWS _5ST10B0HD1420515436	      3 B O     ߜ                                               WINDOWS _5ST10B0HE1420515436        !                                                          WINDOWS _5ST10B0HF1420515436        (                                                          WINDOWS _5ST10B0HG1420515436     ϟ ޟ                                                            WINDOWS _5ST10B0HH1420515436       & 3                                                    WINDOWS _5ST10B0HI1420515436     ̢ ۢ                                                            WINDOWS _5ST10B0HJ1420515436        &                                                          WINDOWS _5ST10B0HK1420515436     $ 1 B O                                                          WINDOWS _5ST10B0HL1420515436إ                                                                  WINDOWS _5ST10B0HM1420515436       Ŧ Ҧ                                                          WINDOWS _5ST10B0HN1420515436\     i v                                                            WINDOWS _5ST10B0HO1420515436     . = M Z      ة                                              WINDOWS _5ST10B0HP1420515436e     z        * c                                              WINDOWS _5ST10B0HQ1420515436/     > M ] j                                                          WINDOWS _5ST10B0HR14205154369     F S b o                                                          WINDOWS _5ST10B0HS1420515436      $ 4 A                                                          WINDOWS _5ST10B0HT14205154361     F [ i v      2                                              WINDOWS _5ST10B0HU1420515436     
  , 9                                                          WINDOWS _5ST10B0HV1420515436)     8 G W d                                                          WINDOWS _5ST10B0HW1420515436T     c r       6 
                                              WINDOWS _5ST10B0HX1420515436      ķ ҷ ߷     n                                               WINDOWS _5ST10B0HY1420515436s                                                                  WINDOWS _5ST10B0HZ1420515436}                                                                  WINDOWS _5ST10B0I01420515436J     Y h x                                                           WINDOWS _5ST10B0I11420515436u             = v                                              WINDOWS _5ST10B0I21420515436B     Q ` p }                                                          WINDOWS _5ST10B0I31420515436m     |                                                             WINDOWS _5ST10B0I41420515436             z Q                                              WINDOWS _5ST10B0I51420515436        #                                                    WINDOWS _5ST10B0I61420515436                                                                  WINDOWS _5ST10B0I71420515436                                                                  WINDOWS _5ST10B0I81420515436                                                                  WINDOWS _5ST10B0I91420515436                                                            WINDOWS _5ST10B0IA1420515436                                                                  WINDOWS _5ST10B0IB1420515436                                                                  WINDOWS _5ST10B0IC1420515436       
                                                     WINDOWS _5ST10B0ID1420515436"     7 L Z g      /                                              WINDOWS _5ST10B0IE1420515436     
  ) 6                                                          WINDOWS _5ST10B0IF1420515436       . ;                                                          WINDOWS _5ST10B0IG1420515436         
                                                          WINDOWS _5ST10B0IH1420515436      ' 5 B                                                    WINDOWS _5ST10B0II1420515436                                                                  WINDOWS _5ST10B0IJ1420515436       # 0                                                          WINDOWS _5ST10B0IK1420515436      - : K X                                                          WINDOWS _5ST10B0IL1420515436       
                                                           WINDOWS _5ST10B0IM1420515436                                                                  WINDOWS _5ST10B0IN1420515436g     t                                                             WINDOWS _5ST10B0IO1420515436$     3 B S `                                                    WINDOWS _5ST10B0IP1420515436o             E                                               WINDOWS _5ST10B0IQ1420515436K     Z i z                                                           WINDOWS _5ST10B0IR1420515436W     d q                                                            WINDOWS _5ST10B0IS1420515436"     1 @ Q ^                                                          WINDOWS _5ST10B0IT1420515436O     d y        S                                              WINDOWS _5ST10B0IU1420515436     . = N [                                                          WINDOWS _5ST10B0IV1420515436L     [ j {                                                           WINDOWS _5ST10B0IW1420515436y             ] 7                                              WINDOWS _5ST10B0IX1420515436        
                                                    WINDOWS _5ST10B0IY1420515436                                                                  WINDOWS _5ST10B0IZ1420515436                                                                  WINDOWS _5ST10B0J01420515436{                                                                  WINDOWS _5ST10B0J11420515436             r                                               WINDOWS _5ST10B0J21420515436x                                                                  WINDOWS _5ST10B0J31420515436                                                                  WINDOWS _5ST10B0J41420515436                                                                  WINDOWS _5ST10B0J51420515436                                                                  WINDOWS _5ST10B0J61420515436X     g v       <                                               WINDOWS _5ST10B0J71420515436             y                                               WINDOWS _5ST10B0J81420515436                                                                  WINDOWS _5ST10B0J91420515436                                                                  WINDOWS _5ST10B0JA1420515436V     e t                                                            WINDOWS _5ST10B0JB1420515436             M                                               WINDOWS _5ST10B0JC1420515436S      b  q                                                               WINDOWS _5ST10B0JD1420515436                                                                  WINDOWS _5ST10B0JE1420515436              k                                              WINDOWS _5ST10B0JF1420515436     
 " 1 >                                                    WINDOWS _5ST10B0JG1420515436                                                                  WINDOWS _5ST10B0JH1420515436       
	 	                                                          WINDOWS _4LS1B7QJS1420515436	     	 	 	 	                                                          WINDOWS _5ST10B0JJ1420515436
     
   "                                                    WINDOWS _4LS1B7QJT1420515436                                                                  WINDOWS _4LS1B7QJS1420515436
     
 
                                                            WINDOWS _5T10N8DM91420515436      $ 5 B                                                          WINDOWS _5T10N8DMA14205154361     @ O ` m                                                          WINDOWS _5T10N8DMB1420515436\     k z                                                            WINDOWS _4LS1B7QJS1386696206                                                                  WINDOWS _5T10N8DMC1386696206)     5 A N [                                                          WINDOWS _4LS1B7QJS1420515436                                                                  WINDOWS _4LS1B7QJT1420515436                                                            WINDOWS _5ZY0TQRM21420515436     - B Q ^      &                                              WINDOWS _5ZY0TQRM31420515436       ! .                                                          WINDOWS _5ZY0TQRM41420515436     
  % 2                                                          WINDOWS _5ZY0TQRM51420515436                                                                  WINDOWS _5ZY0TQRM61420515436       , 9                                                    WINDOWS _5ZY0TQRM71420515436                                                                  WINDOWS _5ZY0TQRM81420515436         .  ;                                                           WINDOWS _61K0X189Q1420515436,!     9! F! X! e!                                                          WINDOWS _61K0X189R1446205849"     -" <" M" Z"     # #                                              WINDOWS _61K0X189S1420515436k%     % % % %     ?& y&                                              WINDOWS _61K0X189T1420515436E'     T' c' t' '                                                          WINDOWS _61K0X189U1420515436P(     ]( j( x( (                                                          WINDOWS _61K0X189V1420515436)     )) 8) I) V)                                                          WINDOWS _61K0X189W1420515436F*     [* p* * *     + J+                                              WINDOWS _61K0X189X1420515436,     %, 4, E, R,                                                          WINDOWS _61K0X189Y1420515436C-     R- a- r- -                                                          WINDOWS _5ZY0TQRM21420515436p.     . . . .                                                          WINDOWS _5ZY0TQRM31382575763;/     H/ U/ d/ /                                                          WINDOWS _5ZY0TQRM41382575763^0     k0 x0 0 0                                                          WINDOWS _5ZY0TQRM513825757630     0 1 1 11                                                          WINDOWS _5ZY0TQRM613825757631     1 1 1 2                                                          WINDOWS _5ZY0TQRM713825757632     2 2 2 2                                                          WINDOWS _5ZY0TQRM81382575763K3     X3 e3 t3 3                                                          WINDOWS _5ZY0TQRM913825757633     4 4 !4 =4                                                          WINDOWS _5ZY0TQRMA13825757634     4 4 4 4                                                          WINDOWS _5ZY0TQRMB1382575763R5     _5 l5 {5 5                                                          WINDOWS _5ZY0TQRMC13825757635     6 6 (6 D6                                                          WINDOWS _5ZY0TQRMD13825757636     6 6 6 6                                                          WINDOWS _5ZY0TQRME1382575763Y7     f7 s7 7 7                                                          WINDOWS _5ZY0TQRMF13825757638     8  8 /8 K8                                                          WINDOWS _5ZY0TQRMG13825757638     8 8 8 8                                                          WINDOWS _5ZY0TQRMH1382575763`9     m9 z9 9 9                                                          WINDOWS _5ZY0TQRMI1382575763:     : *: :: V:                                                          WINDOWS _5ZY0TQRMJ1382575763:     : : : ;                                                          WINDOWS _5ZY0TQRMK1382575763p;     }; ; ; ;                                                          WINDOWS _5ZY0TQRML1382575763 <     -< :< I< e<                                                          WINDOWS _5ZY0TQRMM1382575763=     = )= 8= T=                                                          WINDOWS _5ZY0TQRMN1382575763=     = = = >                                                          WINDOWS _5ZY0TQRMO1382575763>     > > > >                                                          WINDOWS _5ZY0TQRMP1382575763L?     Y? f? u? ?                                                          WINDOWS _5ZY0TQRMQ1382575763@     @ +@ 9@ U@                                                          WINDOWS _5ZY0TQRMR1420515436@     A !A 0A LA      B ZB                                              WINDOWS _5ZY0TQRMS1420515436'C     <C QC `C |C     PD D                                              WINDOWS _5ZY0TQRMT1420515436WE     lE E E E     F F                                              WINDOWS _5ZY0TQRMU1420515436G     G G G G     H H                                              WINDOWS _5ZY0TQRMV1420515436I     I I I J     J K                                              WINDOWS _5ZY0TQRMW1420515436K     K L  L <L     M IM                                              WINDOWS _5ZY0TQRMX1420515436N     +N @N ON kN     ?O yO                                              WINDOWS _5ZY0TQRMY1420515436FP     [P pP P P     oQ Q                                              WINDOWS _5ZY0TQRMZ1420515436vR     R R R R     S S                                              WINDOWS _5ZY0TQRN01420515436T     T T T T     U 	V                                              WINDOWS _5ZY0TQRN11420515436V     V  W W ,W     X <X                                              WINDOWS _5ZY0TQRN21420515436	Y     Y 3Y CY _Y     4Z oZ                                              WINDOWS _5ZY0TQRN31420515436<[     Q[ f[ v[ [     g\ \                                              WINDOWS _5ZY0TQRN41420515436o]     ] ] ] ]     ^ ^                                              WINDOWS _5ZY0TQRN51420515436_     _ _ _ _     }` $a                                              WINDOWS _5ZY0TQRN61420515436b     b b b b     c c                                              WINDOWS _5ZY0TQRN71420515436d     d d d e     e e                                              WINDOWS _5ZY0TQRN81420515436f     f f g 'g     g 
h                                              WINDOWS _5ZY0TQRN91420515436h     i i .i Ji     i j                                              WINDOWS _5ZY0TQRNA1420515436[l     nl l l l     n r                                              WINDOWS _5ZY0TQRNB1382575763u     u u u u                                                          WINDOWS _5ZY0TQRNC1420515436v     v v v v     w w                                              WINDOWS _5ZY0TQRND1420515436x     x x x y     y z                                              WINDOWS _5ZY0TQRNE1420515436z     z {  { <{     | J|                                              WINDOWS _5ZY0TQRNF1420515436}     ,} A} P} l}     @~ z~                                              WINDOWS _5ZY0TQRNG1420515436G     \ q       p                                               WINDOWS _5ZY0TQRNH1420515436w        ́      ڂ                                              WINDOWS _5ZY0TQRNI1420515436      у       Є 
                                              WINDOWS _5ZY0TQRNJ1420515436ׅ        ,       :                                              WINDOWS _5ZY0TQRNK1420515436      1 @ \     0 j                                              WINDOWS _5ZY0TQRNL14205154367     L a p      `                                               WINDOWS _5ZY0TQRNM1420515436g     |         ͍                                              WINDOWS _5ZY0TQRNN1420515436      Ď Ԏ      ŏ                                                WINDOWS _5ZY0TQRNO1420515436͐        #      3                                              WINDOWS _5ZY0TQRNP1420515436       * : V     + f                                              WINDOWS _5ZY0TQRNQ14205154363     B Q ^ z                                                    WINDOWS _5ZY0TQRNR1420515436     ! 0 E a      ^                                              WINDOWS _5ZY0TQRNS1420515436K     Z i {      0 z                                              WINDOWS _5ZY0TQRNT1420515436i     x        T                                               WINDOWS _5ZY0TQRNU1420515436        ۞      S                                              WINDOWS _5ZY0TQRNV1420515436ס       	 %     r                                               WINDOWS _5ZY0TQRNW1382575763      - : H d                                                          WINDOWS _5ZY0TQRNX1420515436      0 ? [     / i                                              WINDOWS _5ZY0TQRNY14205154366     K ` o      _                                               WINDOWS _5ZY0TQRNZ1420515436f     {         ɱ                                              WINDOWS _5ZY0TQRO01420515436       ϲ                                                     WINDOWS _5ZY0TQRO11420515436ƴ     ۴         )                                              WINDOWS _5ZY0TQRO21420515436        / K      Y                                              WINDOWS _5ZY0TQRO31420515436&     ; P _ {     O                                               WINDOWS _5ZY0TQRO41420515436V     k                                                       WINDOWS _5ZY0TQRO51420515436        ۽                                                    WINDOWS _5ZY0TQRO61420515436     ˿                                                       WINDOWS _5ZY0TQRO71420515436         <      L                                              WINDOWS _5ZY0TQRO81420515436     . C S o     D                                               WINDOWS _5ZY0TQRO91420515436L     a v       w                                               WINDOWS _5ZY0TQROA1420515436                                                            WINDOWS _5ZY0TQROB1420515436              4                                              WINDOWS _5ZY0TQROC1420515436                                                            WINDOWS _5ZY0TQROD1420515436                                                            WINDOWS _5ZY0TQROE1420515436        4                                                    WINDOWS _5ZY0TQROF1420515436      & 9 U                                                    WINDOWS _5ZY0TQROG1420515436c     v                                                       WINDOWS _5ZY0TQROH1446532444                                                            WINDOWS _5ZY0TQROI1382575763                                                                  WINDOWS _5ZY0TQROJ1456888644                                                            WINDOWS _5ZY0TQROK1382575763                                                                  WINDOWS _5ZY0TQROL1382575763j     w                                                             WINDOWS _5ZY0TQROM1456888636             n                                               WINDOWS _5ZY0TQRON1382575763                                                                       WINDOWS _5ZY0TQROO1382575763<     I V e                                                           WINDOWS _5ZY0TQROP1456888652C     X m                                                      WINDOWS _5ZY0TQROQ1382575763@     O ^ m                                                           WINDOWS _5ZY0TQROR1382575763       
 )                                                          WINDOWS _5ZY0TQROS1382575763        8                                                          WINDOWS _5ZY0TQROT1382575763      	 	 6	                                                          WINDOWS _5ZY0TQROU1420515436	     	 	 

 &
     
 w                                              WINDOWS _5ZY0TQROV1382575763
     
 
 ,
 H
                                                          WINDOWS _5ZY0TQROW1420515436
     
 
  4      }                                              WINDOWS _5ZY0TQROX1382575763	      # 2 N                                                          WINDOWS _5ZY0TQROY1420515436       % A      0                                              WINDOWS _5ZY0TQROZ1420515436\     q        r                                               WINDOWS _5ZY0TQRP01446210897c     s        
                                               WINDOWS _5ZY0TQRP11382575763      	  4                                                          WINDOWS _5ZY0TQRP21382575763        9                                                          WINDOWS _5ZY0TQRP31382575763        ;                                                          WINDOWS _5ZY0TQRP41382575763     	  % A                                                          WINDOWS _5ZY0TQRP51382575763       ( D                                                          WINDOWS _5ZY0TQRP61382575763         %  A                                                           WINDOWS _5ZY0TQRP71420515436            !     ! "                                              WINDOWS _5ZY0TQRP81420515436"     " # # 4#     	$ D$                                              WINDOWS _5ZY0TQRP91420515436%     &% ;% K% g%     <& w&                                              COMMENT RESERVED                                D'                                                          '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 229
Left = 261
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR zuschlge ( sp_text c(70), sp_sp1 C(10),sp_sp2 C(10),sp_sp3 C(10),sp_sp4 C(10),sp_sp5 C(10),sp_sp6 C(10), fett L(1))
SELECT zuschlge
ENDPROC
         y  y                           %         0     (            U    h	 zuschlge  CF  C
  C
  C
  C
  C
  C
  L F   U	 	 ZUSCHLGE SP_TEXT SP_SP1 SP_SP2 SP_SP3 SP_SP4 SP_SP5 SP_SP6 FETT BeforeOpenTables,     1 q 1                              )   y                        1      1      form      form      FORM1     $Top = 0
Left = 0
Height = 640
Width = 975
ShowWindow = 1
DoCreate = .T.
AutoCenter = .F.
Caption = "Berechnung auf der Basis der Stundenvergtung von"
ControlBox = .F.
HalfHeightCaption = .F.
TitleBar = 0
WindowType = 1
AlwaysOnTop = .T.
BackColor = 128,255,128
Name = "FORM1"
     
PROCEDURE Unload
SELECT zuschlge
use
ENDPROC
PROCEDURE Init

myform1.enabled = .f.
thisform.Top = 0

Public dzsgruppe As Integer
Public Array dzsstufe(1+2) As Integer
Public Array dzsBetrag(1+2) As Long
Public Array dzsoption(1+2) As Integer
Public Array dzsindiv(1+2) As Long
Public dzsWoStd As Long
Public dzswoMonat As Long
Public dzsbenutzt As Integer
STORE 0 TO dzsstufe
STORE 0.00 TO dzsBetrag
STORE 0 TO dzsoption
STORE 0 TO dzsindiv
STORE 0.00 TO dzsWoStd
STORE 0.00 TO dzswoMonat
STORE 0 TO dzsbenutzt


PUBLIC myzuschlge 

*!*	STORE 0 TO hsindividuell,hsmindividuell,hsrindividuell

STORE 3 TO hsMopt,hsRopt,hsZopt
*SET STEP ON 
myzuschlge = thisform
wnw.zsbenutzt = 0
stundensatzoffen = True
*thisform.Tarifgebiet.Caption = myform1.z4.Caption
*thisform.Vorgabekommentar.Top = 6

Do neuanzeigen &&Do attached


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   H7   %         Y  (   	            U    F   Q U 	 ZUSCHLGE) T   - T    7 Q INTEGER 7 Q INTEGER 7 Q LONG 7 Q INTEGER 7 Q LONG 7	 Q LONG 7
 Q LONG 7 Q INTEGER
 J (  J        ( 
 J ( 
 J (  J        (	  J        (
 
 J (  7  J(
   
 T   T   
 T     %     T C    T 
 T  
     T       T      
    T  a U  MYFORM1 ENABLED THISFORM TOP	 DZSGRUPPE DZSSTUFE	 DZSBETRAG	 DZSOPTION DZSINDIV DZSWOSTD
 DZSWOMONAT
 DZSBENUTZT MYZUSCHLGE HSMOPT HSROPT HSZOPT WNW	 ZSBENUTZT STUNDENSATZOFFEN TRUE NEUANZEIGEN HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Unload,      InitI      Resize    1 q A 2  "QQ  ! Q  QQ s T  t   A    2 1                       '         B        &       7    )                           	container      	container      vorgabekommentar      FORM1      Top = 4
Left = 92
Width = 439
Height = 50
Visible = .F.
TabIndex = 2
BackColor = 128,255,128
Name = "vorgabekommentar"
      label      label      Label1      FORM1.vorgabekommentar      FontSize = 9
WordWrap = .T.
BackStyle = 0
Caption = "Die Vorgabewerte knnen in den gelben Feldern festgelegt werden."
Height = 18
Left = 26
Top = 21
Width = 392
Name = "Label1"
      	container      	container      ssframe5      FORM1      hTop = 73
Left = 93
Width = 802
Height = 151
TabIndex = 3
BackColor = 35,189,13
Name = "ssframe5"
      
commandbutton      
commandbutton      berechnungaufrufen      FORM1      ~Top = 29
Left = 92
Height = 22
Width = 285
Caption = "Stundenstze festlegen"
TabIndex = 4
Name = "berechnungaufrufen"
     5PROCEDURE Click

startflag = True
thisform.satzberechnung.Visible = true
*hs wnw.zsbenutzt = 0
*hs stundensatzoffen = True
thisform.satzberechnung.Tarifgebiet.Caption = myform1.z4.Caption
*thisform.Vorgabekommentar.Top = 6

*hs Do neuanzeigen &&Do attached

thisform.satzberechnung.Gruppenbezeichnung.clear

For i = 0 To 23
	If empty(zt5(1+i)) &&vorher alltrim(...) = "" 
		Exit
	endif
	thisform.satzberechnung.Gruppenbezeichnung.AddItem(zt5(1+i))
NEXT

If wnw.zsbenutzt = 0 
	thisform.satzberechnung.Gruppenbezeichnung.ListIndex = zi(1+5) + 1 &&HS
else
	thisform.satzberechnung.Gruppenbezeichnung.ListIndex = zi(1+5) + 1 &&HS
endif

If wnw.zsbenutzt > 1 
	wnw.zsbenutzt = 0
endif

If wnw.zsbenutzt > 0 
	DO auswnw
endif

startflag = False
Do stundensatzkalkulieren &&Do attached

*!*	thisform.rindividuell.value = hsrindividuell
*!*	thisform.mindividuell.value = hsmindividuell
*!*	thisform.individuell.value = hsindividuell
*!*	thisform.Mopt.Value = hsMopt
*!*	thisform.Ropt.Value = hsRopt
*!*	thisform.Zopt.Value = hsZopt
ENDPROC
                                   `   %   W           f            U  ^
 T    T     T          	 
    (  %CC  ~  !  CC    	 
   %     T  	  C    T  	  C   %  $ T     %   C   
 T      U 	 STARTFLAG TRUE THISFORM SATZBERECHNUNG VISIBLE TARIFGEBIET CAPTION MYFORM1 Z4 GRUPPENBEZEICHNUNG CLEAR I ZT5 ADDITEM WNW	 ZSBENUTZT	 LISTINDEX ZI AUSWNW FALSE STUNDENSATZKALKULIEREN Click,     1  1rqA A A B A BA Bq A  q 8                       *      )                           combobox      combobox      Combo1      FORM1      MHeight = 22
Left = 95
TabIndex = 5
Top = 8
Width = 280
Name = "Combo1"
     PROCEDURE Click

zuschlag.benutzt = 22200 + thisform.Combo1.ListIndex - 1
If thisform.Satzberechnung.Visible = True 
	thisform.Berechnungaufrufen.Click
endif
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                      %          z  
   f            U  J  T   V    %    C 
   	   U
  ZUSCHLAG BENUTZT THISFORM COMBO1	 LISTINDEX SATZBERECHNUNG VISIBLE TRUE BERECHNUNGAUFRUFEN CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK Click,      InteractiveChange      ProgrammaticChange    1 q A 2  2  1                                                     )                           	container      	container      
Container2      FORM1      iTop = 4
Left = 392
Width = 503
Height = 50
TabIndex = 6
BackColor = 255,255,0
Name = "Container2"
      label      label      Label3      FORM1      FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "befreit von Steuer und SV"
Height = 33
Left = 717
Top = 17
Width = 90
TabIndex = 7
Name = "Label3"
      label      label      textfeld23_1      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "A"
Height = 17
Left = 689
Top = 35
Width = 14
TabIndex = 8
Name = "textfeld23_1"
      shape      shape      Shape1      FORM1      STop = 53
Left = 92
Height = 20
Width = 803
SpecialEffect = 0
Name = "Shape1"
      label      label      Label6      FORM1      eCaption = "1. Entgelt"
Height = 14
Left = 98
Top = 54
Width = 58
TabIndex = 9
Name = "Label6"
      shape      shape      Shape2      FORM1      TTop = 224
Left = 92
Height = 20
Width = 803
SpecialEffect = 0
Name = "Shape2"
      label      label      ssframe1      FORM1      AutoSize = .T.
Caption = "2. Zeitzuschlge"
Height = 17
Left = 98
Top = 226
Width = 91
TabIndex = 10
Name = "ssframe1"
      label      label      	textfeld0      FORM1      FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "labelx"
Height = 16
Left = 395
Top = 3
Width = 477
TabIndex = 11
Name = "textfeld0"
      label      label      textfeld22_1      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "A"
Height = 17
Left = 534
Top = 35
Width = 14
TabIndex = 12
Name = "textfeld22_1"
      
commandbutton      
commandbutton      	vorgabewe      FORM1      gTop = 15
Left = 500
Height = 19
Width = 53
Caption = "Vorgabe"
TabIndex = 13
Name = "vorgabewe"
     |PROCEDURE Click
myzuschlge.Vorgabewe.Visible = False
myzuschlge.Berechnungaufrufen.Visible = False
myzuschlge.Vorgabekommentar.Visible = True
myzuschlge.Vorgabekommentar.zorder(0) &&bring to front

Do Case && register
	Case register = 173
		register = 175
		Do neuanzeigen &&Do attached
	Case register = 174
		register = 176
		Do neuanzeigen &&Do attached
	Case register = 175 &&Vorgabewerte A
		register = 173
		Do vorgabewerte_A_holen &&Do attached
	Case register = 176 &&Vorgabewerte B
		register = 174
		Do vorgabewerte_B_holen &&Do attached
Endcase
ENDPROC
PROCEDURE RightClick
thisform.refresh
ENDPROC
                                   0b   %         6     
            U    T      T      T      C     
 HY    ~ 
 T  	    
 T  	    
 T  
    
 T     U  MYZUSCHLGE	 VORGABEWE VISIBLE FALSE BERECHNUNGAUFRUFEN VORGABEKOMMENTAR TRUE ZORDER REGISTER NEUANZEIGEN VORGABEWERTE_A_HOLEN VORGABEWERTE_B_HOLEN
 
     U  THISFORM REFRESH Click,     
 RightClick    1 1111  q  q  q  q A 2  1                       @        a  q      )                           	container      	container      ssframe2      FORM1      gTop = 243
Left = 92
Width = 802
Height = 87
TabIndex = 14
BackColor = 0,210,0
Name = "ssframe2"
      	container      	container      ssframe3      FORM1      iTop = 330
Left = 92
Width = 802
Height = 48
TabIndex = 15
BackColor = 41,230,15
Name = "ssframe3"
      	container      	container      ssframe4      FORM1      jTop = 377
Left = 92
Width = 802
Height = 133
TabIndex = 16
BackColor = 88,242,66
Name = "ssframe4"
      	container      	container      ssframe6      FORM1      kTop = 509
Left = 92
Width = 802
Height = 47
TabIndex = 17
BackColor = 151,248,137
Name = "ssframe6"
      	container      	container      ssframe7      FORM1      kTop = 555
Left = 92
Width = 802
Height = 47
TabIndex = 18
BackColor = 255,255,255
Name = "ssframe7"
      
commandbutton      
commandbutton      
ssCommand1      FORM1      iTop = 604
Left = 91
Height = 28
Width = 82
Caption = "bertrag"
TabIndex = 19
Name = "ssCommand1"
     PROCEDURE Click
 
Do Case && register
	Case register = 173
		For i = 0 To 21 &&vorher 18
			IF i = 19
				LOOP
			endif
			xxx = ALLTRIM(STR(i,2,0))
			Prozente(1+0,1+ i) = myZuschlge.Prozent&xxx..Value * 100
			If myZuschlge.Pfeil&xxx..caption = "<--"
				pfeile(1+0,1+ i) = True
			Else
				pfeile(1+0,1+ i) = False
			Endif
		Next
		Do voreinstaus &&Do attached
		&&Unload Zuschlge
	Case register = 174
		For i = 0 To 21 &&vorher 18
			IF i = 19
				LOOP
			endif
			xxx = ALLTRIM(STR(i,2,0))
			Prozente(1+1,1+ i) = myZuschlge.Prozent&xxx..Value * 100
			If myZuschlge.Pfeil&xxx..caption = "<--"
				pfeile(1+1,1+ i) = True
			Else
				pfeile(1+1,1+ i) = False
			Endif
		Next
		Do voreinstaus &&Do attached
		&&Unload Zuschlge
	Case  Inlist(register, 175, 176)
		If Val(myZuschlge.Zeile1519.value) > 0
			betrag(1+14) = Val(myZuschlge.Zeile1519.value) * 100 && + Val(Right(myZuschlge.Zeile1519.value, 4))
			wert(1+14) = betrag(1+14)
			wnw.ztext18 = "Zeitzuschlge SV-pflichtig"
			zt14(1+0) = "Zeitzuschlge SV-pflichtig"
			zi(1+14) = 0
			lstz(14) = False
			SOZZ(14) = True
			zvkz(14) = False
			weiz(14) = False
			teiz(14) = False
			bruz(14) = False
			With myform1
				.z14.Caption = "Zeitzuschlge SV-pflichtig"
				.lst14.Caption = "-"
				.soz14.Caption = "x"
				.zvk14.Caption = "-"
				.wei14.Caption = "-"
				.tei14.Caption = "-"
				.bru14.Caption = "-"
			Endwith
		Else
			If Alltrim(zt14(1+0)) = "Zeitzuschlge SV-pflichtig"
				wert(1+14) = 0
				betrag(1+14) = 0
			Endif

		Endif
		betrag(1+15) = Val(myZuschlge.Zeile1619.value) * 100 &&+ Val(Right(myZuschlge.Zeile1619.value, 4))
		betrag(1+16) = Val(myZuschlge.Zeile1719.value) * 100 &&+ Val(Right(myZuschlge.Zeile1719.value, 4))
		
		Do datenspeichern &&Do attached
		
		&&Unload Zuschlge
		&&zi(1+15) = 1
		&&form1.z(15).Caption = zt15(1+zi(1+15))
		&&zi(1+16) = 1
		&&form1.z(16).Caption = zt16(1+zi(1+16))
		If zi(1+15) = 1
			lastclick = 903
			combozahl(7) = 1
			combozahl(8) = betrag(1+15)
		Endif
		If zi(1+16) = 1
			lastclick = 903
			combozahl(9) = 1
			combozahl(10) = betrag(1+16)
		Endif

		Do berechnungauslsen &&Do attached
ENDCASE
thisform.release
ENDPROC
                                   N   %           K   	            U  
 H
 x   $   ( % J  .  T CC  Z= Prozente(1+0,1+ i) = myZuschlge.Prozent&xxx..Value * 100
1 If myZuschlge.Pfeil&xxx..caption = "<--"  T     T          ;   (0 % a .  T CC  Z= Prozente(1+1,1+ i) = myZuschlge.Prozent&xxx..Value * 100
1 If myZuschlge.Pfeil&xxx..caption = "<--" T    , T        C  x %C  	 g # T
 C  	 gd T C
 * T 
  Zeitzuschlge SV-pflichtig- T  Zeitzuschlge SV-pflichtig T   T   T   T   T   T   T  
  + T   Zeitzuschlge SV-pflichtig T   - T   x T   - T   - T   - T   -  1 %CC  Zeitzuschlge SV-pflichtig T   T
     T
 C  	 gd T
 C   	 gd !  %C  T"  T#  T# C
   %C m T"  T# 	 T# 
C
   $  
 % &  U'  REGISTER I XXX PFEILE TRUE FALSE VOREINSTAUS MYZUSCHLGE	 ZEILE1519 VALUE BETRAG WERT WNW ZTEXT18 ZT14 ZI LSTZ SOZZ ZVKZ WEIZ TEIZ BRUZ MYFORM1 Z14 CAPTION LST14 SOZ14 ZVK14 WEI14 TEI14 BRU14	 ZEILE1619	 ZEILE1719 DATENSPEICHERN	 LASTCLICK	 COMBOZAHL BERECHNUNGAUSLSEN THISFORM RELEASE Click,     1  qA A q A A q qA A q A A q Rq1111111 !!!!!!A  11A B r W 1qA Q 1qA r A  1                             )                           
commandbutton      
commandbutton      
sscommand6      FORM1      }Top = 604
Left = 257
Height = 28
Width = 82
Caption = "Vorgabewerte"
Enabled = .F.
TabIndex = 20
Name = "sscommand6"
     -PROCEDURE Click
myzuschlge.Vorgabekommentar.Visible = True
Do Case && register
	Case register = 173
		Do prozentvorgabenA &&Do attached
		Do vorgabewerte_A_holen &&Do attached
	Case register = 174
		Do prozentvorgabenB &&Do attached
		Do vorgabewerte_B_holen &&Do attached
Endcase
ENDPROC
                                   ۼ   %         B     ,            U  e  T     
 H  ^   ?       ^       U	  MYZUSCHLGE VORGABEKOMMENTAR VISIBLE TRUE REGISTER PROZENTVORGABENA VORGABEWERTE_A_HOLEN PROZENTVORGABENB VORGABEWERTE_B_HOLEN Click,     1 1 q q q q A 1                       "      )                           
commandbutton      
commandbutton      
sscommand4      FORM1      iTop = 604
Left = 174
Height = 28
Width = 82
Caption = "Drucken"
TabIndex = 21
Name = "sscommand4"
     #PROCEDURE Click

PUBLIC 1,2
STORE "" TO 1,2
*!*	k = 1500
*!*	Printer.Orientation = 2

*!*	Printer.FontSize = 10
*!*	Printer.Font = "courier new"
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.CurrentX = k
*!*	Printer.Print alltrim(ditext4)

*!*	If alltrim(ditext6) = "" 


*!*	Printer.Print Tab(92); date

*!*	else

*!*	Printer.Print Tab(100 - Len(alltrim(ditext6))); alltrim(ditext6)

*!*	endif
*!*	Printer.CurrentX = k
*!*	Printer.Print ditext5
*!*	Printer.Print
*!*	Printer.Print


*!*	Printer.FontSize = 14
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = k
*!*	Printer.Print "Anlage zu: " + Upper(alltrim(myform1.z20.Caption)) + " fr " + myform1.z0.Caption
*!*	Printer.Print Upper(alltrim(myform1.z20.Caption)) + " fr " + myform1.z0.Caption
*!*	Printer.FontBold = False
1 = "Anlage zu: " + Upper(alltrim(myform1.z20.Caption)) + " fr " + myform1.z0.Caption
&&printer.Print
*!*	Printer.CurrentX = k
2 = "hier: " + myzuschlge.Combo1.Text

*!*	Printer.FontSize = 11

*!*	&&printer.Print
*!*	Printer.CurrentX = k
*!*	Printer.Print string(108, "_")
*!*	Printer.Print
*!*	Printer.CurrentX = 7000
*!*	Printer.Print "Stunden      Satz       Steuer- und      b e f r e i t    Soz.-vers.-"
*!*	Printer.CurrentX = 7000
*!*	Printer.Print "                        SV-pflichtig     von Abgaben      pflichtig"

*!*	Printer.CurrentX = k
*!*	Printer.Print string(108, "_")
*!*	Printer.Print


*!*	Printer.CurrentX = k
*!*	Printer.FontBold = True
select zuschlge
SET SAFETY OFF
ZAP
SET SAFETY ON

APPEND BLANK
flush
*!*	Printer.Print SSFrame9.Caption
replace zuschlge.fett WITH .t.
replace zuschlge.sp_text WITH "1. Entgelt"
flush
*!*	Printer.FontBold = False

*!*	Printer.CurrentX = k
&&If Stunden(0).Value > 0 Then
*!*	Printer.Print Textfeld(1)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(0).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(0).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(0).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(0).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(0).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(0).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld1.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden0.value)="N",STR(myzuschlge.Stunden0.value,10,2),myzuschlge.Stunden0.value)
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent0.value)="N",STR(myzuschlge.Prozent0.value,10,2),myzuschlge.Prozent0.value)
replace zuschlge.sp_sp3 WITH myzuschlge.Geld0.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile160.value)="N",STR(myzuschlge.Zeile160.value,10,2),myzuschlge.Zeile160.value)
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile170.value)="N",STR(myzuschlge.Zeile170.value,10,2),myzuschlge.Zeile170.value)
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile150.value)="N",STR(myzuschlge.Zeile150.value,10,2),myzuschlge.Zeile150.value)
flush
&&End If

*!*	Printer.CurrentX = k

&&If Stunden(0).Value > 0 Then
*!*	Printer.Print Textfeld(18)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(16).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(16).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(16).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(16).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(16).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(16).Caption), 10)
APPEND BLANK
FLUSH



replace zuschlge.sp_text WITH myzuschlge.textfeld18.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden16.value)="N",STR(myzuschlge.Stunden16.value ,10,2),myzuschlge.Stunden16.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent16.value)="N",STR(myzuschlge.Prozent16.value ,10,2),myzuschlge.Prozent16.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld16.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1616.value)="N",STR(myzuschlge.Zeile1616.value ,10,2),myzuschlge.Zeile1616.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1716.value)="N",STR(myzuschlge.Zeile1716.value ,10,2),myzuschlge.Zeile1716.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1516.value)="N",STR(myzuschlge.Zeile1516.value ,10,2),myzuschlge.Zeile1516.value )
flush
&&End If

*!*	Printer.CurrentX = k

&&If Stunden(0).Value > 0 Then
*!*	Printer.Print Textfeld(13)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(10).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(10).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(10).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(10).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(10).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(10).Caption), 10)
APPEND BLANK
FLUSH

*replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile150.value)="N",STR(myzuschlge.Zeile150.value,10,2),myzuschlge.Zeile150.value)
replace zuschlge.sp_text WITH myzuschlge.textfeld13.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden10.value)="N",STR(myzuschlge.Stunden10.value ,10,2),myzuschlge.Stunden10.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent10.value)="N",STR(myzuschlge.Prozent10.value ,10,2),myzuschlge.Prozent10.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld10.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1610.value)="N",STR(myzuschlge.Zeile1610.value ,10,2),myzuschlge.Zeile1610.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1710.value)="N",STR(myzuschlge.Zeile1710.value ,10,2),myzuschlge.Zeile1710.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1510.value)="N",STR(myzuschlge.Zeile1510.value ,10,2),myzuschlge.Zeile1510.value )
flush
&&End If

*!*	For i = 17 To 18
*!*	&&Rufbereitschaft
*!*	Printer.CurrentX = k
*!*	&&If Stunden(i).Value > 0 Then

*!*	Printer.Print Textfeld(i + 2)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(i).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(i).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(i).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(i).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(i).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(i).Caption), 10)
*!*	&&End If
*!*	NEXT
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld19.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden17.value)="N",STR(myzuschlge.Stunden17.value ,10,2),myzuschlge.Stunden17.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent17.value)="N",STR(myzuschlge.Prozent17.value ,10,2),myzuschlge.Prozent17.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld17.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1617.value)="N",STR(myzuschlge.Zeile1617.value ,10,2),myzuschlge.Zeile1617.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1717.value)="N",STR(myzuschlge.Zeile1717.value ,10,2),myzuschlge.Zeile1717.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1517.value)="N",STR(myzuschlge.Zeile1517.value ,10,2),myzuschlge.Zeile1517.value )
FLUSH
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld20.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden18.value)="N",STR(myzuschlge.Stunden18.value ,10,2),myzuschlge.Stunden18.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent18.value)="N",STR(myzuschlge.Prozent18.value ,10,2),myzuschlge.Prozent18.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld18.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1618.value)="N",STR(myzuschlge.Zeile1618.value ,10,2),myzuschlge.Zeile1618.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1718.value)="N",STR(myzuschlge.Zeile1718.value ,10,2),myzuschlge.Zeile1718.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1518.value)="N",STR(myzuschlge.Zeile1518.value ,10,2),myzuschlge.Zeile1518.value )
FLUSH
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld21.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden20.value)="N",STR(myzuschlge.Stunden20.value ,10,2),myzuschlge.Stunden20.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent20.value)="N",STR(myzuschlge.Prozent20.value ,10,2),myzuschlge.Prozent20.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld20.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1620.value)="N",STR(myzuschlge.Zeile1620.value ,10,2),myzuschlge.Zeile1620.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1720.value)="N",STR(myzuschlge.Zeile1720.value ,10,2),myzuschlge.Zeile1720.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1520.value)="N",STR(myzuschlge.Zeile1520.value ,10,2),myzuschlge.Zeile1520.value )
FLUSH
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld22.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden21.value)="N",STR(myzuschlge.Stunden21.value ,10,2),myzuschlge.Stunden21.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent21.value)="N",STR(myzuschlge.Prozent21.value ,10,2),myzuschlge.Prozent21.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Geld21.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1621.value)="N",STR(myzuschlge.Zeile1621.value ,10,2),myzuschlge.Zeile1621.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1721.value)="N",STR(myzuschlge.Zeile1721.value ,10,2),myzuschlge.Zeile1721.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1521.value)="N",STR(myzuschlge.Zeile1521.value ,10,2),myzuschlge.Zeile1521.value )
FLUSH
*!*	Printer.Print
*!*	Printer.CurrentX = k
*!*	Printer.FontBold = True
APPEND BLANK
FLUSH
replace zuschlge.fett WITH .t.
replace zuschlge.sp_text WITH myzuschlge.ssframe1.caption
flush
*!*	Printer.Print myzuschlge.SSFrame1.Caption
*!*	Printer.FontBold = False


*!*	Printer.CurrentX = k
&&If Stunden(1).Value > 0 Then
*!*	Printer.Print "a) berstd. " + Textfeld(24)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(1).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(1).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(1).Caption), 10)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(1).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(1).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(1).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH "a) berstd. " + myzuschlge.textfeld24.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden1.value)="N",STR(myzuschlge.Stunden1.value ,10,2),myzuschlge.Stunden1.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent1.value)="N",STR(myzuschlge.Prozent1.value ,10,2),myzuschlge.Prozent1.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil1.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile161.value)="N",STR(myzuschlge.Zeile161.value ,10,2),myzuschlge.Zeile161.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile171.value)="N",STR(myzuschlge.Zeile171.value ,10,2),myzuschlge.Zeile171.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile151.value)="N",STR(myzuschlge.Zeile151.value ,10,2),myzuschlge.Zeile151.value )
FLUSH
&&End If

*!*	Printer.CurrentX = k
*!*	&&If Stunden(2).Value > 0 Then
*!*	Printer.Print "a) berstd. " + Textfeld(3)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(2).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(2).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(2).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(2).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(2).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(2).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH "a) berstd. " + myzuschlge.textfeld3.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden2.value)="N",STR(myzuschlge.Stunden2.value ,10,2),myzuschlge.Stunden2.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent2.value)="N",STR(myzuschlge.Prozent2.value ,10,2),myzuschlge.Prozent2.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil2.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile162.value)="N",STR(myzuschlge.Zeile162.value ,10,2),myzuschlge.Zeile162.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile172.value)="N",STR(myzuschlge.Zeile172.value ,10,2),myzuschlge.Zeile172.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile152.value)="N",STR(myzuschlge.Zeile152.value ,10,2),myzuschlge.Zeile152.value )
FLUSH
&&End If


*!*	Printer.CurrentX = k
&&If Stunden(3).Value > 0 Then
*!*	Printer.Print "a) berstd. " + Textfeld(4)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(3).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(3).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(3).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(3).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(3).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(3).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH "a) berstd. " + myzuschlge.textfeld4.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden3.value)="N",STR(myzuschlge.Stunden3.value ,10,2),myzuschlge.Stunden3.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent3.value)="N",STR(myzuschlge.Prozent3.value ,10,2),myzuschlge.Prozent3.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil3.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile163.value)="N",STR(myzuschlge.Zeile163.value ,10,2),myzuschlge.Zeile163.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile173.value)="N",STR(myzuschlge.Zeile173.value ,10,2),myzuschlge.Zeile173.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile153.value)="N",STR(myzuschlge.Zeile153.value ,10,2),myzuschlge.Zeile153.value )
FLUSH
&&End If


&&If Stunden(4).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print "a) berstd. " + Textfeld(5)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(4).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(4).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(4).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(4).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(4).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(4).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH "a) berstd. " + myzuschlge.textfeld5.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden4.value)="N",STR(myzuschlge.Stunden4.value ,10,2),myzuschlge.Stunden4.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent4.value)="N",STR(myzuschlge.Prozent4.value ,10,2),myzuschlge.Prozent4.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil4.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile164.value)="N",STR(myzuschlge.Zeile164.value ,10,2),myzuschlge.Zeile164.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile174.value)="N",STR(myzuschlge.Zeile174.value ,10,2),myzuschlge.Zeile174.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile154.value)="N",STR(myzuschlge.Zeile154.value ,10,2),myzuschlge.Zeile154.value )
FLUSH
&&End If

*!*	&&If Stunden(5).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print Textfeld(6)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(5).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(5).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(5).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(5).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(5).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(5).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld6.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden5.value)="N",STR(myzuschlge.Stunden5.value ,10,2),myzuschlge.Stunden5.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent5.value)="N",STR(myzuschlge.Prozent5.value ,10,2),myzuschlge.Prozent5.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil5.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile165.value)="N",STR(myzuschlge.Zeile165.value ,10,2),myzuschlge.Zeile165.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile175.value)="N",STR(myzuschlge.Zeile175.value ,10,2),myzuschlge.Zeile175.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile155.value)="N",STR(myzuschlge.Zeile155.value ,10,2),myzuschlge.Zeile155.value )
FLUSH
&&End If


&&Wochenfeiertage
&&If Stunden(6).Value > 0 Or Stunden(7).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print leftc(Textfeld(7).Caption, 33)
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print right(Textfeld(7).Caption, 36)
APPEND BLANK
flush
replace zuschlge.sp_text WITH leftc(myzuschlge.Textfeld7.Caption, 33)
FLUSH
APPEND BLANK
flush
replace zuschlge.sp_text WITH right(myzuschlge.Textfeld7.Caption, 36)
FLUSH
&&If Stunden(6).Value > 0 Then
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print Textfeld(8)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(6).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(6).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(6).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(6).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(6).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(6).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld8.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden6.value)="N",STR(myzuschlge.Stunden6.value ,10,2),myzuschlge.Stunden6.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent6.value)="N",STR(myzuschlge.Prozent6.value ,10,2),myzuschlge.Prozent6.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil6.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile166.value)="N",STR(myzuschlge.Zeile166.value ,10,2),myzuschlge.Zeile166.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile176.value)="N",STR(myzuschlge.Zeile176.value ,10,2),myzuschlge.Zeile176.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile156.value)="N",STR(myzuschlge.Zeile156.value ,10,2),myzuschlge.Zeile156.value )
FLUSH
&&End If

&&If Stunden(7).Value > 0 Then
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print Textfeld(9)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(7).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(7).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(7).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(7).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(7).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(7).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld9.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden7.value)="N",STR(myzuschlge.Stunden7.value ,10,2),myzuschlge.Stunden7.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent7.value)="N",STR(myzuschlge.Prozent7.value ,10,2),myzuschlge.Prozent7.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil7.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile167.value)="N",STR(myzuschlge.Zeile167.value ,10,2),myzuschlge.Zeile167.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile177.value)="N",STR(myzuschlge.Zeile177.value ,10,2),myzuschlge.Zeile177.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile157.value)="N",STR(myzuschlge.Zeile157.value ,10,2),myzuschlge.Zeile157.value )
FLUSH
&&End If
&&End If

&&Vorweihnachtstage
&&If Stunden(8).Value > 0 Or Stunden(9).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print leftc(Textfeld(10).Caption, 38)
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print right(Textfeld(10).Caption, 31)
APPEND BLANK
flush
replace zuschlge.sp_text WITH leftc(myzuschlge.Textfeld10.Caption, 38)
FLUSH
APPEND BLANK
flush
replace zuschlge.sp_text WITH right(myzuschlge.Textfeld10.Caption, 31)
FLUSH
&&If Stunden(8).Value > 0 Then
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print Textfeld(11)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(8).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(8).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(8).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(8).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(8).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(8).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld11.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden8.value)="N",STR(myzuschlge.Stunden8.value ,10,2),myzuschlge.Stunden8.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent8.value)="N",STR(myzuschlge.Prozent8.value ,10,2),myzuschlge.Prozent8.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil8.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile168.value)="N",STR(myzuschlge.Zeile168.value ,10,2),myzuschlge.Zeile168.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile178.value)="N",STR(myzuschlge.Zeile178.value ,10,2),myzuschlge.Zeile178.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile158.value)="N",STR(myzuschlge.Zeile158.value ,10,2),myzuschlge.Zeile158.value )
FLUSH
&&End If

&&If Stunden(9).Value > 0 Then
*!*	Printer.CurrentX = k + 950
*!*	Printer.Print Textfeld(12)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(9).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(9).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(9).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(9).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(9).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(9).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld12.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden9.value)="N",STR(myzuschlge.Stunden9.value ,10,2),myzuschlge.Stunden9.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent9.value)="N",STR(myzuschlge.Prozent9.value ,10,2),myzuschlge.Prozent9.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil9.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile169.value)="N",STR(myzuschlge.Zeile169.value ,10,2),myzuschlge.Zeile169.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile179.value)="N",STR(myzuschlge.Zeile179.value ,10,2),myzuschlge.Zeile179.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile159.value)="N",STR(myzuschlge.Zeile159.value ,10,2),myzuschlge.Zeile159.value )
FLUSH
&&End If
&&End If

&&OsterPfingstSilv
&&If Stunden(10).Value > 0 Then
&&Printer.CurrentX = k
&&Printer.Print Textfeld(13).Caption;
&&Printer.CurrentX = 7000
&&Printer.Print Right$(("        " + Stunden(10).Text), 10);
&&Printer.CurrentX = 8000
&&Printer.Print Right$(("        " + Prozent(10).Text), 10);
&&Printer.CurrentX = 8500
&&Printer.Print Right$(("        " + Anteil(10).Caption), 12);
&&Printer.CurrentX = 10500
&&Printer.Print Right$(("          " + Zeile16(10).Caption), 10);
&&Printer.CurrentX = 12400
&&Printer.Print Right$(("          " + Zeile17(10).Caption), 10);
&&Printer.CurrentX = 14400
&&Printer.Print Right$(("          " + Zeile15(10).Caption), 10)
&&End If

&&OsterPfingstSilv
&&If Stunden(11).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print "d) " + Textfeld(14)
*!*	&&If Stunden(10).Value > 0 Then
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(11).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(11).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(11).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(11).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(11).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(11).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH "d) " + myzuschlge.textfeld14.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden11.value)="N",STR(myzuschlge.Stunden11.value ,10,2),myzuschlge.Stunden11.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent11.value)="N",STR(myzuschlge.Prozent11.value ,10,2),myzuschlge.Prozent11.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil11.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1611.value)="N",STR(myzuschlge.Zeile1611.value ,10,2),myzuschlge.Zeile1611.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1711.value)="N",STR(myzuschlge.Zeile1711.value ,10,2),myzuschlge.Zeile1711.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1511.value)="N",STR(myzuschlge.Zeile1511.value ,10,2),myzuschlge.Zeile1511.value )
FLUSH
&&End If
&&End If

&&Nachtarbeit
&&If Stunden(12).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print Textfeld(15)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(12).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(12).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(12).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(12).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(12).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(12).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld15.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden12.value)="N",STR(myzuschlge.Stunden12.value ,10,2),myzuschlge.Stunden12.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent12.value)="N",STR(myzuschlge.Prozent12.value ,10,2),myzuschlge.Prozent12.value )
replace zuschlge.sp_sp3 WITH myzuschlge.geld12.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1612.value)="N",STR(myzuschlge.Zeile1612.value ,10,2),myzuschlge.Zeile1612.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1712.value)="N",STR(myzuschlge.Zeile1712.value ,10,2),myzuschlge.Zeile1712.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1512.value)="N",STR(myzuschlge.Zeile1512.value ,10,2),myzuschlge.Zeile1512.value )
FLUSH
&&End If

&&Nachtarbeit-2
&&If Stunden(13).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print Textfeld(15)
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(13).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(13).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(13).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(13).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(13).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(13).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld15.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden13.value)="N",STR(myzuschlge.Stunden13.value ,10,2),myzuschlge.Stunden13.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent13.value)="N",STR(myzuschlge.Prozent13.value ,10,2),myzuschlge.Prozent13.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil13.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1613.value)="N",STR(myzuschlge.Zeile1613.value ,10,2),myzuschlge.Zeile1613.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1713.value)="N",STR(myzuschlge.Zeile1713.value ,10,2),myzuschlge.Zeile1713.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1513.value)="N",STR(myzuschlge.Zeile1513.value ,10,2),myzuschlge.Zeile1513.value )
FLUSH
&&End If


&&Samstag
&&If Stunden(14).Value > 0 Or Stunden(15).Value > 0 Then
*!*	Printer.CurrentX = k
*!*	Printer.Print Textfeld(16).Caption

&&If Stunden(14).Value > 0 Then
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(14).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(14).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Geld(14).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(14).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(14).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(14).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld16.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden14.value)="N",STR(myzuschlge.Stunden14.value ,10,2),myzuschlge.Stunden14.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent14.value)="N",STR(myzuschlge.Prozent14.value ,10,2),myzuschlge.Prozent14.value )
replace zuschlge.sp_sp3 WITH myzuschlge.geld14.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1614.value)="N",STR(myzuschlge.Zeile1614.value ,10,2),myzuschlge.Zeile1614.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1714.value)="N",STR(myzuschlge.Zeile1714.value ,10,2),myzuschlge.Zeile1714.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1514.value)="N",STR(myzuschlge.Zeile1514.value ,10,2),myzuschlge.Zeile1514.value )
FLUSH
&&Else
&&Printer.Print
&&End If

*!*	Printer.CurrentX = k + 450
*!*	Printer.Print Textfeld(17)
*!*	&&If Stunden(15).Value > 0 Then
*!*	Printer.CurrentX = 7000
*!*	Printer.Print right(("        " + Stunden(15).Text), 10)
*!*	Printer.CurrentX = 8000
*!*	Printer.Print right(("        " + Prozent(15).Text), 10)
*!*	Printer.CurrentX = 8500
*!*	Printer.Print right(("        " + Anteil(15).Caption), 12)
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(15).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(15).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(15).Caption), 10)
APPEND BLANK
flush
replace zuschlge.sp_text WITH myzuschlge.textfeld17.caption
replace zuschlge.sp_sp1 WITH IIF(VARTYPE(myzuschlge.Stunden15.value)="N",STR(myzuschlge.Stunden15.value ,10,2),myzuschlge.Stunden15.value )
replace zuschlge.sp_sp2 WITH IIF(VARTYPE(myzuschlge.Prozent15.value)="N",STR(myzuschlge.Prozent15.value ,10,2),myzuschlge.Prozent15.value )
replace zuschlge.sp_sp3 WITH myzuschlge.Anteil15.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1615.value)="N",STR(myzuschlge.Zeile1615.value ,10,2),myzuschlge.Zeile1615.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1715.value)="N",STR(myzuschlge.Zeile1715.value ,10,2),myzuschlge.Zeile1715.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1515.value)="N",STR(myzuschlge.Zeile1515.value ,10,2),myzuschlge.Zeile1515.value )
FLUSH

&&Else
&&   Printer.Print
&&End If
&&End If

*!*	Printer.CurrentX = k
*!*	Printer.Print string(108, "_")
APPEND BLANK
FLUSH
replace zuschlge.sp_text WITH "strich"
flush
*!*	Printer.Print
*!*	Printer.CurrentX = k
*!*	Printer.Print "Gesamtsumme " + Textfeld(0).Caption
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 10500
*!*	Printer.Print right(("          " + Zeile16(19).Caption), 10)
*!*	Printer.CurrentX = 12400
*!*	Printer.Print right(("          " + Zeile17(19).Caption), 10)
*!*	Printer.CurrentX = 14400
*!*	Printer.Print right(("          " + Zeile15(19).Caption), 10)
APPEND BLANK
FLUSH
replace zuschlge.fett WITH .t.
replace zuschlge.sp_text WITH "Gesamtsumme " + myzuschlge.textfeld0.caption
replace zuschlge.sp_sp4 WITH IIF(VARTYPE(myzuschlge.Zeile1619.value)="N",STR(myzuschlge.Zeile1619.value ,10,2),myzuschlge.Zeile1619.value )
replace zuschlge.sp_sp5 WITH IIF(VARTYPE(myzuschlge.Zeile1719.value)="N",STR(myzuschlge.Zeile1719.value ,10,2),myzuschlge.Zeile1719.value )
replace zuschlge.sp_sp6 WITH IIF(VARTYPE(myzuschlge.Zeile1519.value)="N",STR(myzuschlge.Zeile1519.value ,10,2),myzuschlge.Zeile1519.value )
FLUSH


*!*	Printer.FontBold = False
*!*	Printer.CurrentX = k
*!*	Printer.Print string(108, "_")
APPEND BLANK
FLUSH
replace zuschlge.sp_text WITH "strich"
flush

SELECT zuschlge
GO top
REPORT FORM zuschlge WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
*!*	Printer.EndDoc
&&    If response = 6 Then anlagedrucken
RELEASE 1,2
ENDPROC
     +    +  +                        4   %   =)      +    L)            U  A" 7    J  (   9 T   Anlage zu: CC   f  fr     T  hier:     F	  G. S G.   [ >	 
 a >	  
 1. Entgelt [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC     N C    
Z	     6 [  [ >	   !  @ >	 
 CC "   N C "  
Z	  "  6@ >	  CC #   N C #  
Z	  #  6 >	   $  @ >	  CC %   N C %  
Z	  %  6@ >	  CC &   N C &  
Z	  &  6@ >	  CC '   N C '  
Z	  '  6 [  [ >	   (  @ >	 
 CC )   N C )  
Z	  )  6@ >	  CC *   N C *  
Z	  *  6 >	   +  @ >	  CC ,   N C ,  
Z	  ,  6@ >	  CC -   N C -  
Z	  -  6@ >	  CC .   N C .  
Z	  .  6 [  [ >	   /  @ >	 
 CC 0   N C 0  
Z	  0  6@ >	  CC 1   N C 1  
Z	  1  6 >	   2  @ >	  CC 3   N C 3  
Z	  3  6@ >	  CC 4   N C 4  
Z	  4  6@ >	  CC 5   N C 5  
Z	  5  6 [  [ >	   6  @ >	 
 CC 7   N C 7  
Z	  7  6@ >	  CC 8   N C 8  
Z	  8  6 >	   9  @ >	  CC :   N C :  
Z	  :  6@ >	  CC ;   N C ;  
Z	  ;  6@ >	  CC <   N C <  
Z	  <  6 [  [ >	   =  @ >	 
 CC >   N C >  
Z	  >  6@ >	  CC ?   N C ?  
Z	  ?  6 >	   @  @ >	  CC A   N C A  
Z	  A  6@ >	  CC B   N C B  
Z	  B  6@ >	  CC C   N C C  
Z	  C  6 [  [ >	 
 a >	   D   [  [& >	   a) berstd.  E  @ >	 
 CC F   N C F  
Z	  F  6@ >	  CC G   N C G  
Z	  G  6 >	   H  @ >	  CC I   N C I  
Z	  I  6@ >	  CC J   N C J  
Z	  J  6@ >	  CC K   N C K  
Z	  K  6 [  [& >	   a) berstd.  L  @ >	 
 CC M   N C M  
Z	  M  6@ >	  CC N   N C N  
Z	  N  6 >	   O  @ >	  CC P   N C P  
Z	  P  6@ >	  CC Q   N C Q  
Z	  Q  6@ >	  CC R   N C R  
Z	  R  6 [  [& >	   a) berstd.  S  @ >	 
 CC T   N C T  
Z	  T  6@ >	  CC U   N C U  
Z	  U  6 >	   V  @ >	  CC W   N C W  
Z	  W  6@ >	  CC X   N C X  
Z	  X  6@ >	  CC Y   N C Y  
Z	  Y  6 [  [& >	   a) berstd.  Z  @ >	 
 CC [   N C [  
Z	  [  6@ >	  CC \   N C \  
Z	  \  6 >	   ]  @ >	  CC ^   N C ^  
Z	  ^  6@ >	  CC _   N C _  
Z	  _  6@ >	  CC `   N C `  
Z	  `  6 [  [ >	   a  @ >	 
 CC b   N C b  
Z	  b  6@ >	  CC c   N C c  
Z	  c  6 >	   d  @ >	  CC e   N C e  
Z	  e  6@ >	  CC f   N C f  
Z	  f  6@ >	  CC g   N C g  
Z	  g  6 [  [ >	  C h  ! [  [ >	  C h  $R [  [ >	   i  @ >	 
 CC j   N C j  
Z	  j  6@ >	  CC k   N C k  
Z	  k  6 >	   l  @ >	  CC m   N C m  
Z	  m  6@ >	  CC n   N C n  
Z	  n  6@ >	  CC o   N C o  
Z	  o  6 [  [ >	   p  @ >	 
 CC q   N C q  
Z	  q  6@ >	  CC r   N C r  
Z	  r  6 >	   s  @ >	  CC t   N C t  
Z	  t  6@ >	  CC u   N C u  
Z	  u  6@ >	  CC v   N C v  
Z	  v  6 [  [ >	  C w  & [  [ >	  C w  R [  [ >	   x  @ >	 
 CC y   N C y  
Z	  y  6@ >	  CC z   N C z  
Z	  z  6 >	   {  @ >	  CC |   N C |  
Z	  |  6@ >	  CC }   N C }  
Z	  }  6@ >	  CC ~   N C ~  
Z	  ~  6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	   d)    @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	     @ >	 
 CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 >	     @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	   strich [  [ >	 
 a& >	   Gesamtsumme    @ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6@ >	  CC    N C   
Z	    6 [  [ >	   strich [ F	  #) ?	 zuschlge(!"9+C+
 <    U  1 2 MYFORM1 Z20 CAPTION Z0 MYZUSCHLGE COMBO1 TEXT	 ZUSCHLGE FETT SP_TEXT	 TEXTFELD1 SP_SP1 STUNDEN0 VALUE SP_SP2 PROZENT0 SP_SP3 GELD0 SP_SP4 ZEILE160 SP_SP5 ZEILE170 SP_SP6 ZEILE150
 TEXTFELD18	 STUNDEN16	 PROZENT16 GELD16	 ZEILE1616	 ZEILE1716	 ZEILE1516
 TEXTFELD13	 STUNDEN10	 PROZENT10 GELD10	 ZEILE1610	 ZEILE1710	 ZEILE1510
 TEXTFELD19	 STUNDEN17	 PROZENT17 GELD17	 ZEILE1617	 ZEILE1717	 ZEILE1517
 TEXTFELD20	 STUNDEN18	 PROZENT18 GELD18	 ZEILE1618	 ZEILE1718	 ZEILE1518
 TEXTFELD21	 STUNDEN20	 PROZENT20 GELD20	 ZEILE1620	 ZEILE1720	 ZEILE1520
 TEXTFELD22	 STUNDEN21	 PROZENT21 GELD21	 ZEILE1621	 ZEILE1721	 ZEILE1521 SSFRAME1
 TEXTFELD24 STUNDEN1 PROZENT1 ANTEIL1 ZEILE161 ZEILE171 ZEILE151	 TEXTFELD3 STUNDEN2 PROZENT2 ANTEIL2 ZEILE162 ZEILE172 ZEILE152	 TEXTFELD4 STUNDEN3 PROZENT3 ANTEIL3 ZEILE163 ZEILE173 ZEILE153	 TEXTFELD5 STUNDEN4 PROZENT4 ANTEIL4 ZEILE164 ZEILE174 ZEILE154	 TEXTFELD6 STUNDEN5 PROZENT5 ANTEIL5 ZEILE165 ZEILE175 ZEILE155	 TEXTFELD7	 TEXTFELD8 STUNDEN6 PROZENT6 ANTEIL6 ZEILE166 ZEILE176 ZEILE156	 TEXTFELD9 STUNDEN7 PROZENT7 ANTEIL7 ZEILE167 ZEILE177 ZEILE157
 TEXTFELD10
 TEXTFELD11 STUNDEN8 PROZENT8 ANTEIL8 ZEILE168 ZEILE178 ZEILE158
 TEXTFELD12 STUNDEN9 PROZENT9 ANTEIL9 ZEILE169 ZEILE179 ZEILE159
 TEXTFELD14	 STUNDEN11	 PROZENT11 ANTEIL11	 ZEILE1611	 ZEILE1711	 ZEILE1511
 TEXTFELD15	 STUNDEN12	 PROZENT12 GELD12	 ZEILE1612	 ZEILE1712	 ZEILE1512	 STUNDEN13	 PROZENT13 ANTEIL13	 ZEILE1613	 ZEILE1713	 ZEILE1513
 TEXTFELD16	 STUNDEN14	 PROZENT14 GELD14	 ZEILE1614	 ZEILE1714	 ZEILE1514
 TEXTFELD17	 STUNDEN15	 PROZENT15 ANTEIL15	 ZEILE1615	 ZEILE1715	 ZEILE1515	 TEXTFELD0	 ZEILE1619	 ZEILE1719	 ZEILE1519 Click,     1   0q a A a R A  A Q A aaA  Q A daA  Q A caA `Q A aaA Q A aaA Q A aaA Q A aaA T A  aA 0Q A aaA Q A aaA  Q A aaA  Q A aaA Q A aaA Z A A Q A A  Q A aaA Q A aaA Z A A Q A A  Q A aaA Q A aaA `Q A aA 0Q A aaA  Q A aaA PQ A aaA 0Q A aaA Y A aA [ A  aA V A aA r Q  1                             )   +                        
commandbutton      
commandbutton      
sscommand2      FORM1      lTop = 604
Left = 341
Height = 28
Width = 82
Caption = "Vorschrift"
TabIndex = 22
Name = "sscommand2"
     PROCEDURE Click
Do Case && zi(1+4)
	Case (zi(1+4) >= 0 .And. zi(1+4) <= 7)&&4
		inet = "000"
*		Msg = "mehrarbeitsvergtungsverordnung.de"
		msg = "google.de?q=mehrarbeitsvergtungsverordnung"
	Case  Inlist(zi(1+4), 8, 9)
		inet = 192
		mylink = 644  &&Msg = "avr-anlage06a"
	Case zi(1+4) = 10 .Or. zi(1+4) =  12 .Or. (zi(1+4) >= 14 .And. zi(1+4) <= 18)&&Bund
		inet = 132
		mylink = 645  &&Msg = "8-Ausgleich-fuer-Sonderformen"
	Case  Inlist(zi(1+4), 11, 19 )&&Land
		inet = 135
		mylink = 646  &&Msg = "TVL_8-Ausgleich-fuer-Sonderformen"
	Case zi(1+4) = 13 &&KR
		inet = 136
		mylink = 647  &&Msg = "8-Ausgleich-fuer-Sonderformen"
	Case (zi(1+4) >= 28 .And. zi(1+4) <= 35)&&8 To 10
		inet = 134
		mylink = 648  &&Msg = "bat_35"
	Case zi(1+4) = 32 .Or. (zi(1+4) >= 34 .And. zi(1+4) <= 37)&&11 To 22
		inet = 134
		mylink = 649  &&Msg = "bat_35"
Endcase
DO insinternet
ENDPROC
                                      %   a           p            U  

 H
 % C    C  	z  T  0008 T + google.de?q=mehrarbeitsvergtungsverordnung CC  	 
 T  T C C  
 C   C   C  	
 T  T  CC  @
 T  T  C  
p
 T  T % C   C  #	
 T  T 4 C    C  " C  %	
 T  T     U  ZI INET MSG MYLINK INSINTERNET Click,     1  Q  1    Q  Q  A  A q 1                             )                           
commandbutton      
commandbutton      
ssCommand5      FORM1      kTop = 604
Left = 507
Height = 28
Width = 82
Caption = "Schlieen"
TabIndex = 23
Name = "ssCommand5"
      xPROCEDURE Click
myform1.enabled = .t.
thisform.Release

ENDPROC
PROCEDURE Destroy
myform1.enabled = .t.
ENDPROC
     5                              Ƶ   %                             U    T   a
    U  MYFORM1 ENABLED THISFORM RELEASE  T   a U  MYFORM1 ENABLED Click,      Destroyp     1   3  1                       :         X   m       )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 612
Left = 896
TabIndex = 24
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
ssCommand3      FORM1      gTop = 604
Left = 424
Height = 28
Width = 82
Caption = "Hilfe"
TabIndex = 25
Name = "ssCommand3"
      BPROCEDURE Click
inet = 111
Msg = "25"
DO insinternet
ENDPROC
                                         %   n             }             U  & 
 T  o T  25   U  INET MSG INSINTERNET Click,     1   q 1                       7       )                            label      label      Label2      FORM1      FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Steuer- und SV-Pflichtig"
Height = 34
Left = 607
Top = 17
Width = 72
TabIndex = 26
Name = "Label2"
      label      label      Label4      FORM1      FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "SV-pflichtig"
Height = 16
Left = 819
Top = 33
Width = 67
TabIndex = 27
Name = "Label4"
      label      label      Label19      FORM1      FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "fr Zeitzuschlge"
Height = 16
Left = 396
Top = 15
Width = 101
TabIndex = 28
Name = "Label19"
      textbox      textbox      	stunden19      FORM1      Alignment = 3
Value = 0.000
Format = "99999.999"
Height = 21
InputMask = "99999.999"
Left = 394
TabIndex = 29
Top = 30
Width = 76
Name = "stunden19"
     PROCEDURE InteractiveChange
*DO stunden_change WITH 19
ENDPROC
PROCEDURE Click
*DO stunden_click WITH 19
ENDPROC
PROCEDURE ProgrammaticChange
If vomrechner = True 
   With myZuschlge
        jre5 = myZuschlge.Stunden19.Value
        myZuschlge.Stunden19.ToolTipText = "Der Stundensatz wurde manuell eingegeben und wurde nicht aus dem aktuellen Monatstabellenlohn berechnet."
   EndWith
  
   
   DO zuschlgeneuberechnen
EndIf


ENDPROC
PROCEDURE Valid
DO stunden_change WITH 19
RETURN .t.
ENDPROC
         l  l                           %                          U    U    U    %    
    T    { T   h Der Stundensatz wurde manuell eingegeben und wurde nicht aus dem aktuellen Monatstabellenlohn berechnet.     U 
 VOMRECHNER TRUE MYZUSCHLGE JRE5	 STUNDEN19 VALUE TOOLTIPTEXT ZUSCHLGENEUBERECHNEN 
    Ba U  STUNDEN_CHANGE InteractiveChange,      Click3      ProgrammaticChange:      ValidW    1 3 3  1A s A 4  q 1                       7         S   l                            )   l                        
commandbutton      
commandbutton      knopf99      FORM1      Top = 30
Left = 473
Height = 21
Width = 24
Caption = ""
TabIndex = 30
TabStop = .F.
BackColor = 0,128,0
Name = "knopf99"
      PROCEDURE Click
*!*	DO FORM taschenrechner WITH -1 TO retwert

*!*	IF "*" $ retwert
*!*		retwert = SUBSTR(retwert,3)
*!*		thisform.mencalc.Value = ROUND(VAL(SUBSTR(retwert,1,AT("*",retwert)-1)),2)
*!*	endif
DO knopf_click WITH 19

ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  2                              )                            label      label      	textfeld1      FORM1      FontSize = 10
BackStyle = 0
Caption = "a) berstunden"
Height = 20
Left = 97
Top = 75
Width = 237
TabIndex = 31
Name = "textfeld1"
      label      label      
textfeld18      FORM1      FontSize = 10
BackStyle = 0
Caption = "b) Mehrarbeitsstunden, Rufbereitschaft"
Height = 20
Left = 97
Top = 96
Width = 289
TabIndex = 32
Name = "textfeld18"
      label      label      
textfeld13      FORM1      FontSize = 10
BackStyle = 0
Caption = "c) Arbeitsstunden in der Rufbereitschaft"
Height = 20
Left = 97
Top = 117
Width = 237
TabIndex = 33
Name = "textfeld13"
      label      label      
textfeld19      FORM1      FontSize = 10
BackStyle = 0
Caption = "d) Zulage fr Wechselschichtarbeit"
Height = 20
Left = 97
Top = 138
Width = 237
TabIndex = 34
Name = "textfeld19"
      label      label      
textfeld20      FORM1      FontSize = 10
BackStyle = 0
Caption = "d) Zulage fr Schichtarbeit"
Height = 20
Left = 97
Top = 159
Width = 237
TabIndex = 35
Name = "textfeld20"
      textbox      textbox      stunden0      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 36
Top = 74
Width = 76
Name = "stunden0"
      PROCEDURE Click
DO stunden_click WITH 0
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 0
ENDPROC
PROCEDURE InteractiveChange
	DO stunden_change WITH 0
ENDPROC
     m    T  T                        :   %                             U   
     U 
 STUNDEN_CLICK 
     U  STUNDEN_CHANGE 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  1                       (         Q   i                   )   T                        
commandbutton      
commandbutton      knopf0      FORM1      Top = 74
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 57
TabStop = .F.
BackColor = 0,128,0
Name = "knopf0"
      1PROCEDURE Click
DO knopf_click WITH 0
ENDPROC
                                         %   M       b      \             U   
     U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent0      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 58
Top = 74
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent0"
      label      label      geld0      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 76
Width = 13
TabIndex = 59
Name = "geld0"
      textbox      textbox      zeile160      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 60
Top = 74
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile160"
      
commandbutton      
commandbutton      pfeil0      FORM1      yTop = 74
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 61
BackColor = 192,192,192
Name = "pfeil0"
      1PROCEDURE Click
DO Pfeil_Click WITH 0
ENDPROC
                                         %   M       b      \             U   
     U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile170      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 62
Top = 74
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile170"
      textbox      textbox      zeile150      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 63
Top = 74
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile150"
      textbox      textbox      	stunden16      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 37
Top = 95
Width = 76
Name = "stunden16"
      PROCEDURE Click
DO stunden_click WITH 16
ENDPROC
PROCEDURE ProgrammaticChange
IF LASTKEY() = 13
	DO stunden_change WITH 16
endif
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 16
endif
ENDPROC
                                   Z   %                           U   
    U 
 STUNDEN_CLICK$  %C|
 
     U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChange     1  2  A 2  A 1                       )         R                  	    )                           
commandbutton      
commandbutton      knopf16      FORM1      Top = 95
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 64
TabStop = .F.
BackColor = 0,128,0
Name = "knopf16"
      2PROCEDURE Click
DO knopf_click WITH 16
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent16      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 65
Top = 95
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent16"
      label      label      geld16      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 97
Width = 13
TabIndex = 66
Name = "geld16"
      textbox      textbox      	zeile1616      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 67
Top = 95
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1616"
      
commandbutton      
commandbutton      pfeil16      FORM1      zTop = 95
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 68
BackColor = 192,192,192
Name = "pfeil16"
      2PROCEDURE Click
DO Pfeil_Click WITH 16
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1716      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 69
Top = 95
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1716"
      textbox      textbox      	zeile1516      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 70
Top = 95
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1516"
      textbox      textbox      	stunden10      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 38
Top = 116
Width = 76
Name = "stunden10"
      PROCEDURE Click
DO stunden_change WITH 10

ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 10
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 10
endif
ENDPROC
         m  m                        x   %            	                U   
   
 U  STUNDEN_CHANGE 
   
 U  STUNDEN_CHANGE$  %C|
 
   
  U  STUNDEN_CHANGE Click,      ProgrammaticChangeP      InteractiveChanget     1  3  2  A 1                       ,         U   n                   )   m                        
commandbutton      
commandbutton      knopf10      FORM1      Top = 116
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 71
TabStop = .F.
BackColor = 0,128,0
Name = "knopf10"
      2PROCEDURE Click
DO knopf_click WITH 10
ENDPROC
                                         %   M       b      \             U   
   
 U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent10      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 72
Top = 116
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent10"
      label      label      geld10      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 118
Width = 13
TabIndex = 73
Name = "geld10"
      textbox      textbox      	zeile1610      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 74
Top = 116
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1610"
      
commandbutton      
commandbutton      pfeil10      FORM1      {Top = 116
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 75
BackColor = 192,192,192
Name = "pfeil10"
      2PROCEDURE Click
DO Pfeil_Click WITH 10
ENDPROC
                                         %   M       b      \             U   
   
 U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1710      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 76
Top = 116
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1710"
      textbox      textbox      	zeile1510      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 77
Top = 116
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1510"
      textbox      textbox      	stunden17      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 39
Top = 137
Width = 76
Name = "stunden17"
      PROCEDURE Click
DO stunden_click WITH 17
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 17
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 17
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf17      FORM1      Top = 137
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 78
TabStop = .F.
BackColor = 0,128,0
Name = "knopf17"
      2PROCEDURE Click
DO knopf_click WITH 17
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent17      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 79
Top = 137
Width = 66
BackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "prozent17"
      label      label      geld17      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 139
Width = 13
TabIndex = 80
Name = "geld17"
      textbox      textbox      	zeile1617      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 81
Top = 137
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1617"
      
commandbutton      
commandbutton      pfeil17      FORM1      {Top = 137
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 82
BackColor = 192,192,192
Name = "pfeil17"
      2PROCEDURE Click
DO Pfeil_Click WITH 17
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1717      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 83
Top = 137
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1717"
      textbox      textbox      	zeile1517      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 84
Top = 137
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1517"
      textbox      textbox      	stunden18      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 40
Top = 158
Width = 76
Name = "stunden18"
      PROCEDURE Click
DO stunden_click WITH 18
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 18
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 18
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf18      FORM1      Top = 158
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 85
TabStop = .F.
BackColor = 0,128,0
Name = "knopf18"
      2PROCEDURE Click
DO knopf_click WITH 18
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent18      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 86
Top = 158
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent18"
      label      label      geld18      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 160
Width = 13
TabIndex = 87
Name = "geld18"
      textbox      textbox      	zeile1618      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 88
Top = 158
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1618"
      
commandbutton      
commandbutton      pfeil18      FORM1      {Top = 158
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 89
BackColor = 192,192,192
Name = "pfeil18"
      2PROCEDURE Click
DO Pfeil_Click WITH 18
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1718      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 90
Top = 158
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1718"
      textbox      textbox      	zeile1518      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 91
Top = 158
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1518"
      label      label      
textfeld24      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 260
Top = 246
Width = 126
TabIndex = 106
Name = "textfeld24"
      label      label      	textfeld3      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 260
Top = 268
Width = 126
TabIndex = 107
Name = "textfeld3"
      label      label      	textfeld4      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 260
Top = 290
Width = 126
TabIndex = 108
Name = "textfeld4"
      label      label      	textfeld5      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 260
Top = 312
Width = 126
TabIndex = 109
Name = "textfeld5"
      textbox      textbox      stunden1      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 43
Top = 245
Width = 76
Name = "stunden1"
      PROCEDURE Click
DO stunden_click WITH 1
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 1
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 1
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf1      FORM1      Top = 245
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 110
TabStop = .F.
BackColor = 0,128,0
Name = "knopf1"
      1PROCEDURE Click
DO knopf_click WITH 1
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent1      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 111
Top = 245
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent1"
      label      label      anteil1      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 571
Top = 247
Width = 17
TabIndex = 112
Name = "anteil1"
      textbox      textbox      zeile161      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 113
Top = 245
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile161"
      
commandbutton      
commandbutton      pfeil1      FORM1      {Top = 245
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 114
BackColor = 192,192,192
Name = "pfeil1"
      1PROCEDURE Click
DO Pfeil_Click WITH 1
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile171      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 115
Top = 245
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile171"
      textbox      textbox      zeile151      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 116
Top = 245
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile151"
      textbox      textbox      stunden2      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 44
Top = 266
Width = 76
Name = "stunden2"
      PROCEDURE Click
DO stunden_click WITH 2
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 2
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 2
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf2      FORM1      Top = 266
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 117
TabStop = .F.
BackColor = 0,128,0
Name = "knopf2"
      1PROCEDURE Click
DO knopf_click WITH 2
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent2      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 118
Top = 266
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent2"
      label      label      anteil2      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 571
Top = 268
Width = 17
TabIndex = 119
Name = "anteil2"
      textbox      textbox      zeile162      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 120
Top = 266
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile162"
      
commandbutton      
commandbutton      pfeil2      FORM1      {Top = 266
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 121
BackColor = 192,192,192
Name = "pfeil2"
      1PROCEDURE Click
DO Pfeil_Click WITH 2
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile172      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 122
Top = 266
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile172"
      textbox      textbox      zeile152      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 123
Top = 266
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile152"
      textbox      textbox      stunden3      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 45
Top = 287
Width = 76
Name = "stunden3"
      PROCEDURE Click
DO stunden_click WITH 3
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 3
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 3
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf3      FORM1      Top = 287
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 124
TabStop = .F.
BackColor = 0,128,0
Name = "knopf3"
      1PROCEDURE Click
DO knopf_click WITH 3
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent3      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 125
Top = 287
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent3"
      label      label      anteil3      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 571
Top = 289
Width = 17
TabIndex = 126
Name = "anteil3"
      textbox      textbox      zeile163      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 127
Top = 287
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile163"
      
commandbutton      
commandbutton      pfeil3      FORM1      {Top = 287
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 128
BackColor = 192,192,192
Name = "pfeil3"
      1PROCEDURE Click
DO Pfeil_Click WITH 3
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile173      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 129
Top = 287
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile173"
      textbox      textbox      zeile153      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 130
Top = 287
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile153"
      textbox      textbox      stunden4      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 46
Top = 308
Width = 76
Name = "stunden4"
      PROCEDURE Click
DO stunden_click WITH 4
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 4
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 4
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf4      FORM1      Top = 308
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 131
TabStop = .F.
BackColor = 0,128,0
Name = "knopf4"
      1PROCEDURE Click
DO knopf_click WITH 4
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent4      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 132
Top = 308
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent4"
      label      label      anteil4      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 571
Top = 310
Width = 17
TabIndex = 133
Name = "anteil4"
      textbox      textbox      zeile164      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 134
Top = 308
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile164"
      
commandbutton      
commandbutton      pfeil4      FORM1      {Top = 308
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 135
BackColor = 192,192,192
Name = "pfeil4"
      1PROCEDURE Click
DO Pfeil_Click WITH 4
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile174      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 136
Top = 308
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile174"
      textbox      textbox      zeile154      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 137
Top = 308
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile154"
      label      label      	textfeld2      FORM1      FontSize = 12
BackStyle = 0
Caption = ""
Height = 20
Left = 99
Top = 246
Width = 156
TabIndex = 138
Name = "textfeld2"
      label      label      	textfeld6      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 135
Top = 337
Width = 250
TabIndex = 139
Name = "textfeld6"
      label      label      
textfeld14      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 135
Top = 359
Width = 250
TabIndex = 140
Name = "textfeld14"
      textbox      textbox      stunden5      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 47
Top = 332
Width = 76
Name = "stunden5"
      PROCEDURE Click
DO stunden_click WITH 5
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 5
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 5
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf5      FORM1      Top = 332
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 141
TabStop = .F.
BackColor = 0,128,0
Name = "knopf5"
      1PROCEDURE Click
DO knopf_click WITH 5
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent5      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 142
Top = 332
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent5"
      label      label      anteil5      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 570
Top = 334
Width = 16
TabIndex = 143
Name = "anteil5"
      textbox      textbox      zeile165      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 144
Top = 332
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile165"
      
commandbutton      
commandbutton      pfeil5      FORM1      {Top = 332
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 145
BackColor = 192,192,192
Name = "pfeil5"
      1PROCEDURE Click
DO Pfeil_Click WITH 5
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile175      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 146
Top = 332
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile175"
      textbox      textbox      zeile155      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 147
Top = 332
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile155"
      textbox      textbox      	stunden11      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 48
Top = 353
Width = 76
Name = "stunden11"
      PROCEDURE Click
DO stunden_click WITH 11
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 11
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 11
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf11      FORM1      Top = 353
Left = 470
Height = 20
Width = 28
Caption = "Std."
TabIndex = 148
TabStop = .F.
BackColor = 0,128,0
Name = "knopf11"
      2PROCEDURE Click
DO knopf_click WITH 11
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent11      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 149
Top = 353
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent11"
      label      label      anteil11      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 570
Top = 355
Width = 16
TabIndex = 150
Name = "anteil11"
      textbox      textbox      	zeile1611      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 151
Top = 353
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1611"
      
commandbutton      
commandbutton      pfeil11      FORM1      |Top = 353
Left = 679
Height = 22
Width = 28
Caption = "-->"
TabIndex = 152
BackColor = 192,192,192
Name = "pfeil11"
      2PROCEDURE Click
DO Pfeil_Click WITH 11
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1711      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 709
TabIndex = 153
Top = 353
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1711"
      textbox      textbox      	zeile1511      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 154
Top = 353
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1511"
      label      label      	textfeld8      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 18
Left = 136
Top = 399
Width = 250
TabIndex = 155
Name = "textfeld8"
      label      label      	textfeld9      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 18
Left = 136
Top = 419
Width = 250
TabIndex = 156
Name = "textfeld9"
      label      label      
textfeld11      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 136
Top = 466
Width = 250
TabIndex = 157
Name = "textfeld11"
      label      label      
textfeld12      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 20
Left = 136
Top = 487
Width = 250
TabIndex = 158
Name = "textfeld12"
      textbox      textbox      stunden6      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 49
Top = 397
Width = 76
Name = "stunden6"
      PROCEDURE Click
DO stunden_click WITH 6
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 6
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 6
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf6      FORM1      xTop = 397
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 159
BackColor = 0,128,0
Name = "knopf6"
      1PROCEDURE Click
DO knopf_click WITH 6
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent6      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 160
Top = 397
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent6"
      label      label      anteil6      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 572
Top = 399
Width = 16
TabIndex = 161
Name = "anteil6"
      textbox      textbox      zeile166      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 162
Top = 397
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile166"
      
commandbutton      
commandbutton      pfeil6      FORM1      {Top = 397
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 163
BackColor = 192,192,192
Name = "pfeil6"
      1PROCEDURE Click
DO Pfeil_Click WITH 6
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile176      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 164
Top = 397
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile176"
      textbox      textbox      zeile156      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 165
Top = 397
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile156"
      textbox      textbox      stunden7      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 50
Top = 418
Width = 76
Name = "stunden7"
      PROCEDURE Click
DO stunden_click WITH 7
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 7
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 7
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf7      FORM1      Top = 418
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 166
TabStop = .F.
BackColor = 0,128,0
Name = "knopf7"
      1PROCEDURE Click
DO knopf_click WITH 7
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent7      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 167
Top = 418
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent7"
      label      label      anteil7      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 572
Top = 420
Width = 16
TabIndex = 168
Name = "anteil7"
      textbox      textbox      zeile167      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 169
Top = 418
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile167"
      
commandbutton      
commandbutton      pfeil7      FORM1      {Top = 418
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 170
BackColor = 192,192,192
Name = "pfeil7"
      1PROCEDURE Click
DO Pfeil_Click WITH 7
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile177      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 171
Top = 418
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile177"
      textbox      textbox      zeile157      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 172
Top = 418
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile157"
      textbox      textbox      stunden8      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 51
Top = 466
Width = 76
Name = "stunden8"
      PROCEDURE Click
DO stunden_click WITH 8
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 8
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 8
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf8      FORM1      Top = 466
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 173
TabStop = .F.
BackColor = 0,128,0
Name = "knopf8"
      1PROCEDURE Click
DO knopf_click WITH 8
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent8      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 174
Top = 466
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent8"
      label      label      anteil8      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 572
Top = 468
Width = 16
TabIndex = 175
Name = "anteil8"
      textbox      textbox      zeile168      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 176
Top = 466
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile168"
      
commandbutton      
commandbutton      pfeil8      FORM1      {Top = 466
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 177
BackColor = 192,192,192
Name = "pfeil8"
      1PROCEDURE Click
DO Pfeil_Click WITH 8
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile178      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 178
Top = 466
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile178"
      textbox      textbox      zeile158      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 179
Top = 466
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile158"
      textbox      textbox      stunden9      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 52
Top = 487
Width = 76
Name = "stunden9"
      PROCEDURE Click
DO stunden_click WITH 9
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 9
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 9
endif
ENDPROC
         l  l                        qk   %            	                U   
   	 U 
 STUNDEN_CLICK 
   	 U  STUNDEN_CHANGE$  %C|
 
   	  U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       (         Q   i                   )   l                        
commandbutton      
commandbutton      knopf9      FORM1      Top = 487
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 180
TabStop = .F.
BackColor = 0,128,0
Name = "knopf9"
      1PROCEDURE Click
DO knopf_click WITH 9
ENDPROC
                                         %   M       b      \             U   
   	 U  KNOPF_CLICK Click,     1  1                       &       )                            textbox      textbox      prozent9      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 181
Top = 487
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent9"
      label      label      anteil9      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 572
Top = 489
Width = 16
TabIndex = 182
Name = "anteil9"
      textbox      textbox      zeile169      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 183
Top = 487
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile169"
      
commandbutton      
commandbutton      pfeil9      FORM1      {Top = 487
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 184
BackColor = 192,192,192
Name = "pfeil9"
      1PROCEDURE Click
DO Pfeil_Click WITH 9
ENDPROC
                                         %   M       b      \             U   
   	 U  PFEIL_CLICK Click,     1  1                       &       )                            textbox      textbox      zeile179      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 185
Top = 487
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile179"
      textbox      textbox      zeile159      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 186
Top = 487
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile159"
      label      label      	textfeld7      FORM1      FontSize = 12
BackStyle = 0
Caption = ""
Height = 18
Left = 100
Top = 381
Width = 676
TabIndex = 187
Name = "textfeld7"
      label      label      
textfeld10      FORM1      FontSize = 12
BackStyle = 0
Caption = ""
Height = 20
Left = 100
Top = 441
Width = 676
TabIndex = 188
Name = "textfeld10"
      label      label      
textfeld15      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 17
Left = 136
Top = 519
Width = 250
TabIndex = 189
Name = "textfeld15"
      label      label      Label43      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 17
Left = 136
Top = 540
Width = 250
TabIndex = 190
Name = "Label43"
      textbox      textbox      	stunden12      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 53
Top = 512
Width = 76
Name = "stunden12"
      PROCEDURE Click
DO stunden_click WITH 12
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 12
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 12
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf12      FORM1      Top = 512
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 191
TabStop = .F.
BackColor = 0,128,0
Name = "knopf12"
      2PROCEDURE Click
DO knopf_click WITH 12
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent12      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 192
Top = 512
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent12"
      label      label      geld12      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 574
Top = 514
Width = 13
TabIndex = 193
Name = "geld12"
      textbox      textbox      	zeile1612      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 194
Top = 512
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1612"
      
commandbutton      
commandbutton      pfeil12      FORM1      |Top = 512
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 195
BackColor = 192,192,192
Name = "pfeil12"
      2PROCEDURE Click
DO Pfeil_Click WITH 12
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1712      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 196
Top = 512
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1712"
      textbox      textbox      	zeile1512      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 197
Top = 512
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1512"
      textbox      textbox      	stunden13      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 54
Top = 533
Width = 76
Name = "stunden13"
      PROCEDURE Click
DO stunden_click WITH 13
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 13
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 13
endif
ENDPROC
         l  l                        qk   %            	                U   
   
 U 
 STUNDEN_CLICK 
   
 U  STUNDEN_CHANGE$  %C|
 
   
  U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf13      FORM1      Top = 533
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 198
TabStop = .F.
BackColor = 0,128,0
Name = "knopf13"
      2PROCEDURE Click
DO knopf_click WITH 13
ENDPROC
                                         %   M       b      \             U   
   
 U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent13      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 199
Top = 533
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent13"
      label      label      anteil13      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 573
Top = 535
Width = 16
TabIndex = 200
Name = "anteil13"
      textbox      textbox      	zeile1613      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 201
Top = 533
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1613"
      
commandbutton      
commandbutton      pfeil13      FORM1      |Top = 533
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 202
BackColor = 192,192,192
Name = "pfeil13"
      2PROCEDURE Click
DO Pfeil_Click WITH 13
ENDPROC
                                         %   M       b      \             U   
   
 U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1713      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 203
Top = 533
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1713"
      textbox      textbox      	zeile1513      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 204
Top = 533
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1513"
      label      label      
textfeld16      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 17
Left = 136
Top = 567
Width = 250
TabIndex = 205
Name = "textfeld16"
      label      label      
textfeld17      FORM1      FontSize = 10
BackStyle = 0
Caption = ""
Height = 18
Left = 136
Top = 587
Width = 250
TabIndex = 206
Name = "textfeld17"
      textbox      textbox      	stunden14      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 55
Top = 558
Width = 76
Name = "stunden14"
      PROCEDURE Click
DO stunden_click WITH 14
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 14
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 14
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf14      FORM1      Top = 558
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 207
TabStop = .F.
BackColor = 0,128,0
Name = "knopf14"
      2PROCEDURE Click
DO knopf_click WITH 14
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent14      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 208
Top = 558
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent14"
      label      label      geld14      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 574
Top = 560
Width = 13
TabIndex = 209
Name = "geld14"
      textbox      textbox      	zeile1614      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 210
Top = 558
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1614"
      
commandbutton      
commandbutton      pfeil14      FORM1      |Top = 558
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 211
BackColor = 192,192,192
Name = "pfeil14"
      2PROCEDURE Click
DO Pfeil_Click WITH 14
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1714      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 212
Top = 558
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1714"
      textbox      textbox      	zeile1514      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 213
Top = 558
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1514"
      textbox      textbox      	stunden15      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 391
TabIndex = 56
Top = 579
Width = 76
Name = "stunden15"
      PROCEDURE Click
DO stunden_click WITH 15
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 15
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 15
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  2  2  A 1                       )         R   k                   )   l                        
commandbutton      
commandbutton      knopf15      FORM1      Top = 579
Left = 471
Height = 20
Width = 28
Caption = "Std."
TabIndex = 214
TabStop = .F.
BackColor = 0,128,0
Name = "knopf15"
      2PROCEDURE Click
DO knopf_click WITH 15
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent15      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 505
TabIndex = 215
Top = 579
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent15"
      label      label      anteil15      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "%"
Height = 19
Left = 573
Top = 581
Width = 15
TabIndex = 216
Name = "anteil15"
      textbox      textbox      	zeile1615      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 590
TabIndex = 217
Top = 579
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1615"
      
commandbutton      
commandbutton      pfeil15      FORM1      |Top = 579
Left = 680
Height = 20
Width = 28
Caption = "-->"
TabIndex = 218
BackColor = 192,192,192
Name = "pfeil15"
      2PROCEDURE Click
DO Pfeil_Click WITH 15
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1715      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 710
TabIndex = 219
Top = 579
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1715"
      textbox      textbox      	zeile1515      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 801
TabIndex = 220
Top = 579
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1515"
      textbox      textbox      	zeile1619      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 590
TabIndex = 221
Top = 607
Width = 87
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
Name = "zeile1619"
      textbox      textbox      	zeile1719      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 710
TabIndex = 222
Top = 607
Width = 87
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
Name = "zeile1719"
      textbox      textbox      	zeile1519      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 801
TabIndex = 223
Top = 607
Width = 87
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
Name = "zeile1519"
      line      line      Line1      FORM1      hBorderWidth = 4
Height = 0
Left = 590
Top = 606
Width = 301
BorderColor = 255,0,0
Name = "Line1"
      line      line      Line2      FORM1      hBorderWidth = 4
Height = 0
Left = 590
Top = 631
Width = 301
BorderColor = 255,0,0
Name = "Line2"
      label      label      
textfeld21      FORM1      FontSize = 10
BackStyle = 0
Caption = "e) Pausch. f. Rufbereitschaft >= 12 Std. (MO-FR)"
Height = 20
Left = 97
Top = 178
Width = 286
TabIndex = 225
Name = "textfeld21"
      textbox      textbox      	stunden20      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 41
Top = 179
Width = 76
Name = "stunden20"
      PROCEDURE InteractiveChange
IF LASTKEY() = 13
*	SET STEP ON 
	DO stunden_change WITH 20
endif
ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 21
ENDPROC
PROCEDURE Click
DO stunden_click WITH 20
ENDPROC
         l  l                        qk   %            	                U  $  %C|
 
     U  STUNDEN_CHANGE 
    U  STUNDEN_CHANGE 
    U 
 STUNDEN_CLICK InteractiveChange,      ProgrammaticChanged      Click     1  A 2  2  1                       a                           
    )   l                        
commandbutton      
commandbutton      knopf20      FORM1      Top = 179
Left = 470
Height = 20
Width = 28
Caption = "pau"
TabIndex = 92
TabStop = .F.
BackColor = 0,128,0
Name = "knopf20"
      2PROCEDURE Click
DO knopf_click WITH 20
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent20      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 95
Top = 179
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent20"
      label      label      geld20      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 181
Width = 13
TabIndex = 97
Name = "geld20"
      textbox      textbox      	zeile1620      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 98
Top = 179
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1620"
      
commandbutton      
commandbutton      pfeil20      FORM1      |Top = 179
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 101
BackColor = 192,192,192
Name = "pfeil20"
      APROCEDURE Click
*SET STEP ON 
DO Pfeil_Click WITH 20
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       6       )                            textbox      textbox      	zeile1720      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 709
TabIndex = 103
Top = 179
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1720"
      textbox      textbox      	zeile1520      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 104
Top = 179
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1520"
      label      label      
textfeld22      FORM1      FontSize = 10
BackStyle = 0
Caption = "f) Pausch. f. Rufbereitschaft >= 12 Std. (SA,SO)"
Height = 20
Left = 97
Top = 199
Width = 286
TabIndex = 224
Name = "textfeld22"
      textbox      textbox      	stunden21      FORM1      Alignment = 1
Value = 0.000
Format = "99999.999"
Height = 20
InputMask = "99999.999"
Left = 390
TabIndex = 42
Top = 200
Width = 76
Name = "stunden21"
      PROCEDURE Click
DO stunden_click WITH 21

ENDPROC
PROCEDURE ProgrammaticChange
DO stunden_change WITH 21
ENDPROC
PROCEDURE InteractiveChange
IF LASTKEY() = 13
	DO stunden_change WITH 21
endif
ENDPROC
         l  l                        qk   %            	                U   
    U 
 STUNDEN_CLICK 
    U  STUNDEN_CHANGE$  %C|
 
     U  STUNDEN_CHANGE Click,      ProgrammaticChangeO      InteractiveChanges     1  3  2  A 1                       +         T   m                   )   l                        
commandbutton      
commandbutton      knopf21      FORM1      Top = 200
Left = 470
Height = 20
Width = 28
Caption = "pau"
TabIndex = 93
TabStop = .F.
BackColor = 0,128,0
Name = "knopf21"
      2PROCEDURE Click
DO knopf_click WITH 21
ENDPROC
                                         %   M       b      \             U   
    U  KNOPF_CLICK Click,     1  1                       '       )                            textbox      textbox      	prozent21      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 504
TabIndex = 94
Top = 200
Width = 66
DisabledForeColor = 0,0,0
Name = "prozent21"
      label      label      geld21      FORM1      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = ""
Height = 19
Left = 573
Top = 202
Width = 13
TabIndex = 96
Name = "geld21"
      textbox      textbox      	zeile1621      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 589
TabIndex = 99
Top = 200
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1621"
      
commandbutton      
commandbutton      pfeil21      FORM1      |Top = 200
Left = 679
Height = 20
Width = 28
Caption = "-->"
TabIndex = 100
BackColor = 192,192,192
Name = "pfeil21"
      2PROCEDURE Click
DO Pfeil_Click WITH 21
ENDPROC
                                         %   M       b      \             U   
    U  PFEIL_CLICK Click,     1  1                       '       )                            textbox      textbox      	zeile1721      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 709
TabIndex = 102
Top = 200
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1721"
      textbox      textbox      	zeile1521      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 20
InputMask = "99999.99"
Left = 800
TabIndex = 105
Top = 200
Width = 87
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "zeile1521"
      	container      	container      satzberechnung      FORM1      ~Top = 2
Left = 32
Width = 910
Height = 637
Visible = .F.
TabIndex = 1
BackColor = 128,255,128
Name = "satzberechnung"
      label      label      Label17      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "berstunden, Arbeit in der Rufbereitschaft"
Height = 19
Left = 571
Top = 35
Width = 326
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label17"
      shape      shape      Shape5      FORM1.satzberechnung      CTop = 431
Left = 572
Height = 106
Width = 319
Name = "Shape5"
      shape      shape      Shape1      FORM1.satzberechnung      Top = 67
Left = 20
Height = 483
Width = 193
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,128
BorderColor = 255,255,255
Name = "Shape1"
      label      label      Tarifgebiet      FORM1.satzberechnung      {FontSize = 9
BackStyle = 0
Caption = "Tarifgebiet"
Height = 14
Left = 24
Top = 20
Width = 273
Name = "Tarifgebiet"
      label      label      Astufe0      FORM1.satzberechnung      `BackStyle = 0
Caption = "0"
Height = 17
Left = 26
Top = 110
Width = 177
Name = "Astufe0"
      label      label      Astufe1      FORM1.satzberechnung      `BackStyle = 0
Caption = "1"
Height = 17
Left = 26
Top = 131
Width = 177
Name = "Astufe1"
      label      label      Astufe2      FORM1.satzberechnung      `BackStyle = 0
Caption = "2"
Height = 17
Left = 26
Top = 152
Width = 177
Name = "Astufe2"
      label      label      Astufe3      FORM1.satzberechnung      `BackStyle = 0
Caption = "3"
Height = 17
Left = 26
Top = 173
Width = 177
Name = "Astufe3"
      label      label      Astufe4      FORM1.satzberechnung      `BackStyle = 0
Caption = "4"
Height = 17
Left = 26
Top = 194
Width = 177
Name = "Astufe4"
      label      label      Astufe5      FORM1.satzberechnung      `BackStyle = 0
Caption = "5"
Height = 17
Left = 26
Top = 215
Width = 177
Name = "Astufe5"
      label      label      Astufe6      FORM1.satzberechnung      `BackStyle = 0
Caption = "6"
Height = 17
Left = 26
Top = 236
Width = 177
Name = "Astufe6"
      label      label      Astufe7      FORM1.satzberechnung      `BackStyle = 0
Caption = "7"
Height = 17
Left = 26
Top = 257
Width = 177
Name = "Astufe7"
      label      label      Astufe8      FORM1.satzberechnung      `BackStyle = 0
Caption = "8"
Height = 17
Left = 26
Top = 278
Width = 177
Name = "Astufe8"
      label      label      Astufe9      FORM1.satzberechnung      `BackStyle = 0
Caption = "9"
Height = 17
Left = 26
Top = 299
Width = 177
Name = "Astufe9"
      label      label      Astufe10      FORM1.satzberechnung      bBackStyle = 0
Caption = "10"
Height = 17
Left = 26
Top = 320
Width = 177
Name = "Astufe10"
      label      label      Astufe11      FORM1.satzberechnung      bBackStyle = 0
Caption = "11"
Height = 17
Left = 26
Top = 341
Width = 177
Name = "Astufe11"
      label      label      Astufe12      FORM1.satzberechnung      bBackStyle = 0
Caption = "12"
Height = 17
Left = 26
Top = 362
Width = 177
Name = "Astufe12"
      label      label      Astufe13      FORM1.satzberechnung      bBackStyle = 0
Caption = "13"
Height = 17
Left = 26
Top = 383
Width = 177
Name = "Astufe13"
      label      label      Label18      FORM1.satzberechnung      WordWrap = .T.
BackStyle = 0
Caption = "Zustzlich zu bercksichtigende Gehaltsbestandteile"
Height = 32
Left = 26
Top = 422
Width = 181
Name = "Label18"
      label      label      Label19      FORM1.satzberechnung      rBackStyle = 0
Caption = "Magebliches Gehalt"
Height = 17
Left = 26
Top = 457
Width = 147
Name = "Label19"
      label      label      Label7      FORM1.satzberechnung      nBackStyle = 0
Caption = "Gehalt / Stunden"
Height = 17
Left = 26
Top = 480
Width = 147
Name = "Label7"
      label      label      Label21      FORM1.satzberechnung      wBackStyle = 0
Caption = "Hinterlegter Stundensatz"
Height = 17
Left = 26
Top = 503
Width = 147
Name = "Label21"
      label      label      Label22      FORM1.satzberechnung      xBackStyle = 0
Caption = "Individueller Stundensatz"
Height = 17
Left = 26
Top = 526
Width = 147
Name = "Label22"
      shape      shape      Shape2      FORM1.satzberechnung      Top = 67
Left = 212
Height = 483
Width = 115
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,128
BorderColor = 255,255,255
Name = "Shape2"
      
commandbutton      
commandbutton      Mstufe0      FORM1.satzberechnung      Top = 107
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe0"
      2PROCEDURE Click
DO mstufe_click WITH 0
ENDPROC
                                         %   N       c      ]             U   
     U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe1      FORM1.satzberechnung      Top = 128
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe1"
      2PROCEDURE Click
DO mstufe_click WITH 1
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe2      FORM1.satzberechnung      Top = 149
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe2"
      2PROCEDURE Click
DO mstufe_click WITH 2
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe3      FORM1.satzberechnung      Top = 170
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe3"
      2PROCEDURE Click
DO mstufe_click WITH 3
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe4      FORM1.satzberechnung      Top = 191
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe4"
      2PROCEDURE Click
DO mstufe_click WITH 4
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe5      FORM1.satzberechnung      Top = 212
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Mstufe5"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe5"
      2PROCEDURE Click
DO mstufe_click WITH 5
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe6      FORM1.satzberechnung      Top = 233
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe6"
      2PROCEDURE Click
DO mstufe_click WITH 6
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe7      FORM1.satzberechnung      Top = 254
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe7"
      2PROCEDURE Click
DO mstufe_click WITH 7
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe8      FORM1.satzberechnung      Top = 275
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe8"
      2PROCEDURE Click
DO mstufe_click WITH 8
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe9      FORM1.satzberechnung      Top = 296
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe9"
      2PROCEDURE Click
DO mstufe_click WITH 9
ENDPROC
                                         %   N       c      ]             U   
   	 U  MSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Mstufe10      FORM1.satzberechnung      Top = 317
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe10"
      3PROCEDURE Click
DO mstufe_click WITH 10
ENDPROC
                                         %   N       c      ]             U   
   
 U  MSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Mstufe11      FORM1.satzberechnung      Top = 338
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe11"
      3PROCEDURE Click
DO mstufe_click WITH 11
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Mstufe12      FORM1.satzberechnung      Top = 359
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe12"
      3PROCEDURE Click
DO mstufe_click WITH 12
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Mstufe13      FORM1.satzberechnung      Top = 380
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe13"
      3PROCEDURE Click
DO mstufe_click WITH 13
ENDPROC
                                         %   N       c      ]             U   
   
 U  MSTUFE_CLICK Click,     1  1                       (       )                            textbox      textbox      satz1      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 238
Top = 424
Width = 63
Name = "satz1"
      PROCEDURE Valid
dzsBetrag(1+1) = myzuschlge.satzberechnung.Satz1.Value * 100
If startflag = False 
	DO stundensatzkalkulieren
endif
RETURN .t.
ENDPROC
     U    <  <                        d   %                             U  F   T      d %  8     Ba U 	 DZSBETRAG MYZUSCHLGE SATZBERECHNUNG SATZ1 VALUE	 STARTFLAG FALSE STUNDENSATZKALKULIEREN Valid,     1 q A q 1                              )   <                        textbox      textbox      
Monatsgehalt1      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 238
Top = 454
Width = 63
BackColor = 255,255,0
Name = "Monatsgehalt1"
      BPROCEDURE Click
thisform.satzberechnung.satz1.setfocus
ENDPROC
                                         %   n             }             U          U  THISFORM SATZBERECHNUNG SATZ1 SETFOCUS Click,     1 1                       7       )                            textbox      textbox      
MProstunde      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 238
Top = 477
Width = 63
Name = "MProstunde"
      BPROCEDURE Click
thisform.satzberechnung.mopt.value = 1
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG MOPT VALUE Click,     1 a1                       7       )                            textbox      textbox      
MTabellenwert      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 238
Top = 500
Width = 63
Name = "MTabellenwert"
      BPROCEDURE Click
thisform.satzberechnung.mopt.value = 2
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG MOPT VALUE Click,     1 a1                       7       )                            textbox      textbox      Mindividuell      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 238
Top = 523
Width = 63
BackColor = 0,255,0
Name = "Mindividuell"
      PROCEDURE Valid
dzsindiv(1+0) = this.Value * 100
RETURN .t.
ENDPROC
PROCEDURE Click
thisform.satzberechnung.mopt.value = 3
dzsindiv(1+0) = thisform.satzberechnung.Mindividuell.Value * 100
ENDPROC
         l  l                        qk   %                           U  $  T    d Ba U  DZSINDIV THIS VALUE9  T       T      d U  THISFORM SATZBERECHNUNG MOPT VALUE DZSINDIV MINDIVIDUELL Valid,      Clickk     1 q 2 a1                       =         Y          )   l                        optiongroup      optiongroup      mopt      FORM1.satzberechnung     EButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 3
Height = 68
Left = 215
Top = 475
Width = 21
BackColor = 128,255,128
BorderColor = 128,255,128
Name = "mopt"
Option1.Caption = ""
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 21
Option1.Name = "mopt0"
Option2.Caption = ""
Option2.Height = 17
Option2.Left = 5
Option2.Top = 27
Option2.Width = 21
Option2.Name = "mopt1"
Option3.Caption = ""
Option3.Value = 1
Option3.Height = 17
Option3.Left = 5
Option3.Top = 49
Option3.Width = 21
Option3.Name = "mopt2"
     
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
If myzuschlge.satzberechnung.Mopt.Value = 1
	myzuschlge.satzberechnung.MProStunde.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.MProStunde.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.Mopt.Value = 2
	myzuschlge.satzberechnung.MTabellenwert.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.MTabellenwert.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.Mopt.Value = 3
	myzuschlge.satzberechnung.Mindividuell.BackColor =hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.Mindividuell.BackColor = QBColor(15)
Endif
dzsoption(1+0) = myzuschlge.satzberechnung.Mopt.Value - 1
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
         x  x                           %                          U  
 
     U  THIS CLICK %     b H myzuschlge.satzberechnung.MProStunde.BackColor = hex2rgb("&HFF00&")
   T     C   %      K myzuschlge.satzberechnung.MTabellenwert.BackColor = hex2rgb("&HFF00&")
  T     C   %     vI myzuschlge.satzberechnung.Mindividuell.BackColor =hex2rgb("&HFF00&")
  T     C    T	       U
  MYZUSCHLGE SATZBERECHNUNG MOPT VALUE
 MPROSTUNDE	 BACKCOLOR QBCOLOR
 MTABELLENWERT MINDIVIDUELL	 DZSOPTION
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChange    1  2  A  A  A 2  1                       '         C                   )   x                        shape      shape      Shape3      FORM1.satzberechnung      Top = 67
Left = 326
Height = 483
Width = 115
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,128
BorderColor = 255,255,255
Name = "Shape3"
      
commandbutton      
commandbutton      Rstufe0      FORM1.satzberechnung      Top = 107
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe0"
      2PROCEDURE Click
DO rstufe_click WITH 0
ENDPROC
                                         %   N       c      ]             U   
     U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe1      FORM1.satzberechnung      Top = 128
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe1"
      2PROCEDURE Click
DO rstufe_click WITH 1
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe2      FORM1.satzberechnung      Top = 149
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe2"
      2PROCEDURE Click
DO rstufe_click WITH 2
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe3      FORM1.satzberechnung      Top = 170
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe3"
      2PROCEDURE Click
DO rstufe_click WITH 3
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe4      FORM1.satzberechnung      Top = 191
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe4"
      2PROCEDURE Click
DO rstufe_click WITH 4
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe5      FORM1.satzberechnung      Top = 212
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe5"
      2PROCEDURE Click
DO rstufe_click WITH 5
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe6      FORM1.satzberechnung      Top = 233
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe6"
      2PROCEDURE Click
DO rstufe_click WITH 6
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe7      FORM1.satzberechnung      Top = 254
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe7"
      2PROCEDURE Click
DO rstufe_click WITH 7
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe8      FORM1.satzberechnung      Top = 275
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe8"
      2PROCEDURE Click
DO rstufe_click WITH 8
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe9      FORM1.satzberechnung      Top = 296
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe9"
      2PROCEDURE Click
DO rstufe_click WITH 9
ENDPROC
                                         %   N       c      ]             U   
   	 U  RSTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Rstufe10      FORM1.satzberechnung      Top = 317
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe10"
      3PROCEDURE Click
DO rstufe_click WITH 10
ENDPROC
                                         %   N       c      ]             U   
   
 U  RSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Rstufe11      FORM1.satzberechnung      Top = 338
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe11"
      3PROCEDURE Click
DO rstufe_click WITH 11
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Rstufe12      FORM1.satzberechnung      Top = 359
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe12"
      3PROCEDURE Click
DO rstufe_click WITH 12
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Rstufe13      FORM1.satzberechnung      Top = 380
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe13"
      3PROCEDURE Click
DO rstufe_click WITH 13
ENDPROC
                                         %   N       c      ]             U   
   
 U  RSTUFE_CLICK Click,     1  1                       (       )                            textbox      textbox      satz2      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 352
Top = 424
Width = 63
Name = "satz2"
      PROCEDURE Valid
dzsBetrag(1+2) = myzuschlge.satzberechnung.Satz2.Value * 100
If startflag = False 
	DO stundensatzkalkulieren
endif
RETURN .t.
ENDPROC
     U    <  <                        d   %                             U  F   T      d %  8     Ba U 	 DZSBETRAG MYZUSCHLGE SATZBERECHNUNG SATZ2 VALUE	 STARTFLAG FALSE STUNDENSATZKALKULIEREN Valid,     1 q A q 1                              )   <                        textbox      textbox      
Monatsgehalt2      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 352
Top = 454
Width = 63
BackColor = 255,255,0
Name = "Monatsgehalt2"
      BPROCEDURE Click
thisform.satzberechnung.satz2.setfocus
ENDPROC
                                         %   n             }             U          U  THISFORM SATZBERECHNUNG SATZ2 SETFOCUS Click,     1 1                       7       )                            textbox      textbox      
Rprostunde      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 352
Top = 477
Width = 63
Name = "Rprostunde"
      BPROCEDURE Click
thisform.satzberechnung.ropt.value = 1
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG ROPT VALUE Click,     1 a1                       7       )                            textbox      textbox      
Rtabellenwert      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 352
Top = 500
Width = 63
Name = "Rtabellenwert"
      BPROCEDURE Click
thisform.satzberechnung.ropt.value = 2
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG ROPT VALUE Click,     1 a1                       7       )                            textbox      textbox      Rindividuell      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 352
Top = 523
Width = 63
BackColor = 0,255,0
Name = "Rindividuell"
      PROCEDURE Valid
dzsindiv(1+1) = this.Value * 100
ENDPROC
PROCEDURE Click
thisform.satzberechnung.ropt.value = 3
dzsindiv(1+1) = thisform.satzberechnung.Rindividuell.Value * 100
ENDPROC
     |    c  c                        ,   %          
                  U    T    d U  DZSINDIV THIS VALUE9  T       T      d U  THISFORM SATZBERECHNUNG ROPT VALUE DZSINDIV RINDIVIDUELL Valid,      Clickd     1 2 a1                       1         M          )   c                        optiongroup      optiongroup      Ropt      FORM1.satzberechnung     EButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 3
Height = 68
Left = 329
Top = 475
Width = 21
BackColor = 128,255,128
BorderColor = 128,255,128
Name = "Ropt"
Option1.Caption = ""
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 21
Option1.Name = "Ropt0"
Option2.Caption = ""
Option2.Height = 17
Option2.Left = 5
Option2.Top = 27
Option2.Width = 21
Option2.Name = "Ropt1"
Option3.Caption = ""
Option3.Value = 1
Option3.Height = 17
Option3.Left = 5
Option3.Top = 49
Option3.Width = 21
Option3.Name = "Ropt2"
     PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
If myzuschlge.satzberechnung.ropt.Value = 1
	myzuschlge.satzberechnung.RProStunde.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.RProStunde.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.ropt.Value = 2
	myzuschlge.satzberechnung.RTabellenwert.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.RTabellenwert.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.ropt.Value = 3
	myzuschlge.satzberechnung.Rindividuell.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.Rindividuell.BackColor = QBColor(15)
Endif
dzsoption(1+1) =  myzuschlge.satzberechnung.ropt.Value - 1
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
         y  y                        1   %                          U  
 
     U  THIS CLICK %     b H myzuschlge.satzberechnung.RProStunde.BackColor = hex2rgb("&HFF00&")
   T     C   %      K myzuschlge.satzberechnung.RTabellenwert.BackColor = hex2rgb("&HFF00&")
  T     C   %     wJ myzuschlge.satzberechnung.Rindividuell.BackColor = hex2rgb("&HFF00&")
  T     C    T	       U
  MYZUSCHLGE SATZBERECHNUNG ROPT VALUE
 RPROSTUNDE	 BACKCOLOR QBCOLOR
 RTABELLENWERT RINDIVIDUELL	 DZSOPTION
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChange    1  2  A  A  A 2  1                       '         C                   )   y                        shape      shape      Shape4      FORM1.satzberechnung      Top = 67
Left = 440
Height = 483
Width = 115
BorderWidth = 2
SpecialEffect = 0
BackColor = 128,255,128
BorderColor = 255,255,255
Name = "Shape4"
      
commandbutton      
commandbutton      Estufe0      FORM1.satzberechnung      Top = 107
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe0"
      2PROCEDURE Click
DO estufe_click WITH 0
ENDPROC
                                         %   N       c      ]             U   
     U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe1      FORM1.satzberechnung      Top = 128
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe1"
      2PROCEDURE Click
DO estufe_click WITH 1
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe2      FORM1.satzberechnung      Top = 149
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe2"
      2PROCEDURE Click
DO estufe_click WITH 2
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe3      FORM1.satzberechnung      Top = 170
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe3"
      2PROCEDURE Click
DO estufe_click WITH 3
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe4      FORM1.satzberechnung      Top = 191
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe4"
      2PROCEDURE Click
DO estufe_click WITH 4
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe5      FORM1.satzberechnung      Top = 212
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe5"
      2PROCEDURE Click
DO estufe_click WITH 5
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe6      FORM1.satzberechnung      Top = 233
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe6"
      2PROCEDURE Click
DO estufe_click WITH 6
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe7      FORM1.satzberechnung      Top = 254
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe7"
      2PROCEDURE Click
DO estufe_click WITH 7
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe8      FORM1.satzberechnung      Top = 275
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe8"
      2PROCEDURE Click
DO estufe_click WITH 8
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe9      FORM1.satzberechnung      Top = 296
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe9"
      2PROCEDURE Click
DO estufe_click WITH 9
ENDPROC
                                         %   N       c      ]             U   
   	 U  ESTUFE_CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Estufe10      FORM1.satzberechnung      Top = 317
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe10"
      3PROCEDURE Click
DO estufe_click WITH 10
ENDPROC
                                         %   N       c      ]             U   
   
 U  ESTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Estufe11      FORM1.satzberechnung      Top = 338
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe11"
      3PROCEDURE Click
DO estufe_click WITH 11
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Estufe12      FORM1.satzberechnung      Top = 359
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe12"
      3PROCEDURE Click
DO estufe_click WITH 12
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Estufe13      FORM1.satzberechnung      Top = 380
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe13"
      3PROCEDURE Click
DO estufe_click WITH 13
ENDPROC
                                         %   N       c      ]             U   
   
 U  ESTUFE_CLICK Click,     1  1                       (       )                            textbox      textbox      satz0      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 466
Top = 424
Width = 63
Name = "satz0"
      PROCEDURE Click
dzsBetrag(1+0) = myzuschlge.satzberechnung.Satz0.Value * 100
If startflag = False 
	DO stundensatzkalkulieren
endif
RETURN .t.
ENDPROC
     U    <  <                        d   %                             U  F   T      d %  8     Ba U 	 DZSBETRAG MYZUSCHLGE SATZBERECHNUNG SATZ0 VALUE	 STARTFLAG FALSE STUNDENSATZKALKULIEREN Click,     1 q A q 1                              )   <                        textbox      textbox      
Monatsgehalt0      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 466
Top = 454
Width = 63
BackColor = 255,255,0
Name = "Monatsgehalt0"
      BPROCEDURE Click
thisform.satzberechnung.satz0.setfocus
ENDPROC
                                         %   n             }             U          U  THISFORM SATZBERECHNUNG SATZ0 SETFOCUS Click,     1 1                       7       )                            textbox      textbox      	prostunde      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 466
Top = 477
Width = 63
Name = "prostunde"
      BPROCEDURE Click
thisform.satzberechnung.zopt.value = 1
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG ZOPT VALUE Click,     1 a1                       7       )                            textbox      textbox      Tabellenwert      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 466
Top = 500
Width = 63
Name = "Tabellenwert"
      BPROCEDURE Click
thisform.satzberechnung.ropt.value = 2
ENDPROC
                                      94   %   p                          U    T      U  THISFORM SATZBERECHNUNG ROPT VALUE Click,     1 a1                       7       )                            textbox      textbox      individuell      FORM1.satzberechnung      Alignment = 3
Value = 0.00
Format = "99999.999"
Height = 22
InputMask = "99999.999"
Left = 466
Top = 523
Width = 63
BackColor = 0,255,0
Name = "individuell"
      PROCEDURE Valid
dzsindiv(1+2) = this.Value * 100
RETURN .t.
ENDPROC
PROCEDURE Click
thisform.satzberechnung.zopt.value = 3
dzsindiv(1+2) = thisform.satzberechnung.Individuell.Value * 100
ENDPROC
         k  k                           %                           U  $  T    d Ba U  DZSINDIV THIS VALUE9  T       T      d U  THISFORM SATZBERECHNUNG ZOPT VALUE DZSINDIV INDIVIDUELL Valid,      Clickk     1 q 2 a1                       =         Y          )   k                        optiongroup      optiongroup      Zopt      FORM1.satzberechnung     EButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 3
Height = 68
Left = 443
Top = 475
Width = 21
BackColor = 128,255,128
BorderColor = 128,255,128
Name = "Zopt"
Option1.Caption = ""
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 21
Option1.Name = "zopt0"
Option2.Caption = ""
Option2.Height = 17
Option2.Left = 5
Option2.Top = 27
Option2.Width = 21
Option2.Name = "zopt1"
Option3.Caption = ""
Option3.Value = 1
Option3.Height = 17
Option3.Left = 5
Option3.Top = 49
Option3.Width = 21
Option3.Name = "zopt2"
     PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
If myzuschlge.satzberechnung.zopt.Value = 1
	myzuschlge.satzberechnung.ProStunde.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.ProStunde.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.zopt.Value = 2
	myzuschlge.satzberechnung.Tabellenwert.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.Tabellenwert.BackColor = QBColor(15)
Endif
If myzuschlge.satzberechnung.zopt.Value = 3
	myzuschlge.satzberechnung.individuell.BackColor = hex2rgb("&HFF00&")
Else
	myzuschlge.satzberechnung.individuell.BackColor = QBColor(15)
Endif
dzsoption(1+2) =  myzuschlge.satzberechnung.zopt.Value - 1
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
         s  s                        D   %         
                 U  
 
     U  THIS CLICK %     a G myzuschlge.satzberechnung.ProStunde.BackColor = hex2rgb("&HFF00&")
   T     C   %      J myzuschlge.satzberechnung.Tabellenwert.BackColor = hex2rgb("&HFF00&")
 
 T     C   %     tI myzuschlge.satzberechnung.individuell.BackColor = hex2rgb("&HFF00&")
  T     C    T	       U
  MYZUSCHLGE SATZBERECHNUNG ZOPT VALUE	 PROSTUNDE	 BACKCOLOR QBCOLOR TABELLENWERT INDIVIDUELL	 DZSOPTION
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChangez    1  2 q A  A  A 2  1                       '         C                   )   s                        
commandbutton      
commandbutton      
ssCommand7      FORM1.satzberechnung      Top = 553
Left = 138
Height = 33
Width = 343
FontBold = .T.
FontSize = 14
Caption = "Auswahl bernehmen"
SpecialEffect = 0
BackColor = 0,128,0
Name = "ssCommand7"
     PROCEDURE Click
If myzuschlge.satzberechnung.Zopt.Value = 1
	myzuschlge.Stunden19.Value = myzuschlge.satzberechnung.ProStunde.Value
Endif
If myzuschlge.satzberechnung.Zopt.Value = 2
	myzuschlge.Stunden19.Value = myzuschlge.satzberechnung.Tabellenwert.Value
Endif

If myzuschlge.satzberechnung.Zopt.Value = 3
	myzuschlge.Stunden19.Value = myzuschlge.satzberechnung.Individuell.Value
Endif


If myzuschlge.satzberechnung.Mopt.Value = 1
	myzuschlge.Prozent0.Value = myzuschlge.satzberechnung.MProStunde.Value
	myzuschlge.Prozent10.Value = myzuschlge.satzberechnung.MProStunde.Value
Endif
If myzuschlge.satzberechnung.Mopt.Value = 2
	myzuschlge.Prozent0.Value = myzuschlge.satzberechnung.MTabellenwert.Value
	myzuschlge.Prozent10.Value = myzuschlge.satzberechnung.MTabellenwert.Value
Endif
If myzuschlge.satzberechnung.Mopt.Value = 3
	myzuschlge.Prozent0.Value = myzuschlge.satzberechnung.Mindividuell.Value
	myzuschlge.Prozent10.Value = myzuschlge.satzberechnung.Mindividuell.Value
Endif

If myzuschlge.satzberechnung.Ropt.Value = 1
	myzuschlge.Prozent16.value = myzuschlge.satzberechnung.RProStunde.Value
Endif

If myzuschlge.satzberechnung.Ropt.Value = 2
	myzuschlge.Prozent16.Value = myzuschlge.satzberechnung.RTabellenwert.Value
Endif

If myzuschlge.satzberechnung.Ropt.Value = 3
	myzuschlge.Prozent16.Value = myzuschlge.satzberechnung.Rindividuell.Value
Endif


effzahl(1+31) = myzuschlge.Stunden19.Value * 100
effzahl(1+32) = myzuschlge.Prozent0.Value * 100
effzahl(1+33) = myzuschlge.Prozent16.Value * 100


thisform.Satzberechnung.Visible = False
thisform.Vorgabewe.Visible = True
Do zuschlgeneuberechnen &&Do attached

FOR hsxxa = 0 TO 14
	hhh = ALLTRIM(STR(hsxxa,2,0))
	IF myzuschlge.satzberechnung.mstufe&hhh..backcolor = qbcolor(6) &&gelb
		dzsstufe(1+0) = hsxxa
	ENDIF
	IF myzuschlge.satzberechnung.rstufe&hhh..backcolor = qbcolor(6) &&gelb
		dzsstufe(1+1) = hsxxa
	endif	
	IF myzuschlge.satzberechnung.estufe&hhh..backcolor = qbcolor(6) &&gelb
		dzsstufe(1+2) = hsxxa
	endif	
NEXT

dzsoption(1+0) = myzuschlge.satzberechnung.Mopt.Value - 1
dzsoption(1+1) =  myzuschlge.satzberechnung.ropt.Value - 1
dzsoption(1+2) =  myzuschlge.satzberechnung.zopt.Value - 1

dzsindiv(1+0) = myzuschlge.satzberechnung.Mindividuell.value * 100
dzsindiv(1+1) = myzuschlge.satzberechnung.Rindividuell.Value * 100
dzsindiv(1+1) = myzuschlge.satzberechnung.individuell.Value * 100

wnw.zsGruppe = dzsgruppe

For i = 0 To 2
	wnw.zsStufe(1+i) = dzsstufe(1+i)
	wnw.zsBetrag(1+i) = dzsBetrag(1+i)
	wnw.zsOption(1+i) = dzsoption(1+i)
	wnw.zsindiv(1+i) = dzsindiv(1+i)
Next
wnw.zsWoStd = dzsWoStd
wnw.zsWoMonat = dzswoMonat
wnw.zsbenutzt = 1
thisform.satzberechnung.Visible = .f.
*Thisform.Release
ENDPROC
                                      %           C               U   %     6  T           %     p  T           %       T           %       T  	     
   T       
    %     V T  	        T           %      T  	     
   T       
    %      T           %       T           %     Z T           T      d T !  	  d T "    d T     T         (0 T CC  ZI IF myzuschlge.satzberechnung.mstufe&hhh..backcolor = qbcolor(6) l T   I IF myzuschlge.satzberechnung.rstufe&hhh..backcolor = qbcolor(6)  T   I IF myzuschlge.satzberechnung.estufe&hhh..backcolor = qbcolor(6) , T      T        T        T        T    
  d  T      d  T      d T   !  "  (" T # " C"  " T $ " C" % " T & " C"  " T ' " C"    T ( )  T * +  T ,  T   - U-  MYZUSCHLGE SATZBERECHNUNG ZOPT VALUE	 STUNDEN19	 PROSTUNDE TABELLENWERT INDIVIDUELL MOPT PROZENT0
 MPROSTUNDE	 PROZENT10
 MTABELLENWERT MINDIVIDUELL ROPT	 PROZENT16
 RPROSTUNDE
 RTABELLENWERT RINDIVIDUELL EFFZAHL THISFORM VISIBLE FALSE	 VORGABEWE TRUE ZUSCHLGENEUBERECHNEN HSXXA HHH DZSSTUFE	 DZSOPTION DZSINDIV WNW ZSGRUPPE	 DZSGRUPPE I ZSSTUFE ZSBETRAG	 DZSBETRAG ZSOPTION ZSINDIV ZSWOSTD DZSWOSTD	 ZSWOMONAT
 DZSWOMONAT	 ZSBENUTZT Click,     1 A A A A A A A A A 31q rq1A 1A 1A A r!!!!A 2                       
      )                           label      label      Label16      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Berechnungsvorschriften"
Height = 19
Left = 623
Top = 14
Width = 201
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label16"
      
commandbutton      
commandbutton      berstundenlink      FORM1.satzberechnung      Top = 52
Left = 572
Height = 20
Width = 319
Caption = "berstunden, Arbeit in der Rufbereitschaft"
Name = "berstundenlink"
     uPROCEDURE Click
If myzuschlge.satzberechnung.berstundenlink.Tag = "" 
ELSE
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.hwnd, "Open", myzuschlge.satzberechnung.berstundenlink.Tag, "", "", SW_SHOWNORMAL)
endif
ENDPROC
                                      %   )      F     8            U    %          . | ShellExecute shell32.dll1 T C 	  Open          
    U  MYZUSCHLGE SATZBERECHNUNG BERSTUNDENLINK TAG SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1  A 1                       j      )                           editbox      editbox      label25      FORM1.satzberechnung      RHeight = 88
Left = 574
ScrollBars = 0
Top = 70
Width = 316
Name = "label25"
      label      label      Label23      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Mehrarbeit, Quote aus der Rufbereitschaft"
Height = 19
Left = 571
Top = 161
Width = 326
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label23"
      
commandbutton      
commandbutton      mehrarbeitlink      FORM1.satzberechnung      }Top = 178
Left = 572
Height = 20
Width = 319
Caption = "Mehrarbeit, Quote aus Rufbereitschaft"
Name = "mehrarbeitlink"
     sPROCEDURE Click
If myzuschlge.satzberechnung.mehrarbeitlink.Tag = "" 
else
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.hwnd, "Open", myzuschlge.satzberechnung.mehrarbeitlink.Tag, "", "", SW_SHOWNORMAL)
endif
ENDPROC
                                      %   (      E     7            U    %          . | ShellExecute shell32.dll1 T C 	  Open          
    U  MYZUSCHLGE SATZBERECHNUNG MEHRARBEITLINK TAG SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1  A 1                       h      )                           editbox      editbox      label24      FORM1.satzberechnung      SHeight = 88
Left = 574
ScrollBars = 0
Top = 196
Width = 316
Name = "label24"
      label      label      Label61      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Zeitzuschlge"
Height = 19
Left = 571
Top = 287
Width = 326
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label61"
      
commandbutton      
commandbutton      zeitzuschlaglink      FORM1.satzberechnung      gTop = 304
Left = 572
Height = 20
Width = 319
Caption = "Zeitzuschlge"
Name = "zeitzuschlaglink"
     wPROCEDURE Click
If myzuschlge.satzberechnung.zeitzuschlaglink.Tag = "" 
ELSE
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.hwnd, "Open", myzuschlge.satzberechnung.zeitzuschlaglink.Tag, "", "", SW_SHOWNORMAL)
endif
ENDPROC
                                   =   %   *      G     9            U    %          . | ShellExecute shell32.dll1 T C 	  Open          
    U  MYZUSCHLGE SATZBERECHNUNG ZEITZUSCHLAGLINK TAG SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1  A 1                       l      )                           editbox      editbox      hinweis      FORM1.satzberechnung      SHeight = 88
Left = 574
ScrollBars = 0
Top = 322
Width = 316
Name = "hinweis"
      label      label      Label60      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Stunden im Monat"
Height = 19
Left = 570
Top = 413
Width = 326
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label60"
      label      label      stundenLabel      FORM1.satzberechnung      WordWrap = .T.
Caption = "Das magebliche Monatsgehalt wird bezahlt fr eine regelmige wchentliche"
Height = 30
Left = 575
Top = 434
Width = 311
Name = "stundenLabel"
      label      label      Label27      FORM1.satzberechnung      WordWrap = .T.
Caption = "Arbeitszeit von                                 Stunden"
Height = 16
Left = 575
Top = 468
Width = 310
Name = "Label27"
      textbox      textbox      arbeitsstunden      FORM1.satzberechnung      fAlignment = 3
Value = 0.00
Height = 22
Left = 686
Top = 465
Width = 63
Name = "arbeitsstunden"
      PROCEDURE ProgrammaticChange
dzsWoStd = this.Value * 100000
Do stundensatzberechnen &&Do attached
ENDPROC
PROCEDURE Valid
dzsWoStd = this.Value * 100000
Do stundensatzberechnen &&Do attached
RETURN .t.
ENDPROC
         k  k                           %                           U  !  T        U  DZSWOSTD THIS VALUE STUNDENSATZBERECHNEN(  T        Ba U  DZSWOSTD THIS VALUE STUNDENSATZBERECHNEN ProgrammaticChange,      Valid~     1 qq 2 qq q 1                       c                   )   k                        label      label      Label40      FORM1.satzberechnung      WordWrap = .T.
Caption = "Bei durchschnittlich                       Wochen pro Monat"
Height = 16
Left = 575
Top = 491
Width = 310
Name = "Label40"
      textbox      textbox      wochen      FORM1.satzberechnung      ^Alignment = 3
Value = 0.00
Height = 22
Left = 686
Top = 488
Width = 63
Name = "wochen"
      PROCEDURE ProgrammaticChange
dzswoMonat = this.Value * 1000
Do stundensatzberechnen &&Do attached
ENDPROC
PROCEDURE Valid
dzswoMonat = this.Value * 1000
Do stundensatzberechnen &&Do attached
RETURN .t.
ENDPROC
         k  k                           %                           U    T       U 
 DZSWOMONAT THIS VALUE STUNDENSATZBERECHNEN&  T       Ba U 
 DZSWOMONAT THIS VALUE STUNDENSATZBERECHNEN ProgrammaticChange,      Valid~     1 Qq 2 Qq q 1                       c                   )   k                        label      label      Label29      FORM1.satzberechnung      WordWrap = .T.
Caption = "Ergeben sich                                   Stunden pro Monat"
Height = 16
Left = 575
Top = 514
Width = 310
Name = "Label29"
      textbox      textbox      promonat      FORM1.satzberechnung      `Alignment = 3
Value = 0.00
Height = 22
Left = 686
Top = 511
Width = 63
Name = "promonat"
      PROCEDURE ProgrammaticChange
Do stundensatzberechnen
ENDPROC
PROCEDURE Valid
Do stundensatzberechnen
RETURN .t.
ENDPROC
     $                              r   %   {                          U  
     U  STUNDENSATZBERECHNEN     Ba U  STUNDENSATZBERECHNEN ProgrammaticChange,      ValidP     1 q 2 q q 1                       5         Q   t       )                           
commandbutton      
commandbutton      
sscommand9      FORM1.satzberechnung      Top = 553
Left = 497
Height = 33
Width = 321
FontBold = .T.
FontSize = 14
Cancel = .T.
Caption = "Schlieen"
SpecialEffect = 0
BackColor = 192,192,192
Name = "sscommand9"
      PROCEDURE Click
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
thisform.satzberechnung.Visible = false

ENDPROC
     W    >  >                        J   %                             U  C 
 T   
 T   T      T   	  U
 	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION THISFORM SATZBERECHNUNG VISIBLE FALSE Click,     1   112                              )   >                        combobox      combobox      gruppenbezeichnung      FORM1.satzberechnung      LHeight = 25
Left = 22
Top = 38
Width = 280
Name = "gruppenbezeichnung"
      PROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE Click
zi(1+5) = myzuschlge.satzberechnung.Gruppenbezeichnung.ListIndex - 1 &&HS
dzsgruppe = zi(1+5)
Do Stufe &&Do attached
If startflag = False 
	DO stundensatzkalkulieren
endif
ENDPROC
                                      %   !      `  
   L            U  
 
     U  THIS CLICKW   T       T C     %  P  	   U
  ZI MYZUSCHLGE SATZBERECHNUNG GRUPPENBEZEICHNUNG	 LISTINDEX	 DZSGRUPPE STUFE	 STARTFLAG FALSE STUNDENSATZKALKULIEREN ProgrammaticChange,      ClickJ     1  2 q q A 1                       (         D          )                           label      label      Label31      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "berstunden "
Height = 19
Left = 220
Top = 70
Width = 102
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label31"
      label      label      Label32      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Mehrarbeit"
Height = 19
Left = 342
Top = 70
Width = 85
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label32"
      label      label      Label33      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "Zeitzuschlge"
Height = 19
Left = 444
Top = 70
Width = 109
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label33"
      label      label      Label34      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "(1a und 1c)"
Height = 19
Left = 228
Top = 88
Width = 88
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label34"
      label      label      Label35      FORM1.satzberechnung      FontBold = .T.
FontSize = 12
BackStyle = 0
Caption = "(1b)"
Height = 19
Left = 366
Top = 88
Width = 31
ForeColor = 0,128,0
BackColor = 128,255,128
Name = "Label35"
      label      label      Astufe14      FORM1.satzberechnung      bBackStyle = 0
Caption = "14"
Height = 17
Left = 26
Top = 404
Width = 177
Name = "Astufe14"
      
commandbutton      
commandbutton      Mstufe14      FORM1.satzberechnung      Top = 401
Left = 237
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Mstufe14"
      3PROCEDURE Click
DO mstufe_click WITH 14
ENDPROC
                                         %   N       c      ]             U   
    U  MSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Rstufe14      FORM1.satzberechnung      Top = 401
Left = 351
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Rstufe14"
      3PROCEDURE Click
DO rstufe_click WITH 14
ENDPROC
                                         %   N       c      ]             U   
    U  RSTUFE_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Estufe14      FORM1.satzberechnung      Top = 401
Left = 465
Height = 22
Width = 65
FontBold = .T.
Caption = "Command1"
Enabled = .T.
BackColor = 255,255,255
DisabledForeColor = 0,0,0
DisabledBackColor = 255,255,255
Name = "Estufe14"
      3PROCEDURE Click
DO estufe_click WITH 14
ENDPROC
                                         %   N       c      ]             U   
    U  ESTUFE_CLICK Click,     1  1                       (       )                            dArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
Arial, 1, 14, 9, 23, 18, 50, 4, 1
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LT18MVPM1216783920      /  F      ]                                                       WINDOWS _4LT18MVPN1533955410                    +  5                                               WINDOWS _69T14DTMQ1415092091*Y  9Y  OY  `Y  {Y  Y      [  [                                               WINDOWS _4LT18MVPO1364032398\      \  \  \  \      N]  ]                                               WINDOWS _4LT18MVPP1364033656e^      z^  ^  ^  ^      _  `_                                               WINDOWS _4LT18MVPQ1380738148W`      l`  `  `  `      a  g                                               WINDOWS _4LT18MVPM1364032398n      2n  Gn  Xn  en      n  n                                               WINDOWS _4LT18MVPS1363970941o      o  o  o  p                                                           WINDOWS _4LT18MVPT1363970941np      {p  p  p  p                                                           WINDOWS _4LT18MVPU1394117754mq      zq  q  q  q                                                           WINDOWS _4LT18MVPV1394117754r      r  r  r  r                                                           WINDOWS _4LT18MVPW1394117754s      s  s  s  s                                                           WINDOWS _4LT18MVPX1394117754t      t  t  t  t                                                           WINDOWS _4LT18MVPY1217098745u      u  u  u   v                                                           WINDOWS _4LT18MVPM1363970941xv      v  v  v  v                                                           WINDOWS _4LU0P5BIJ1363970941+w      8w  Ew  ]w  jw                                                           WINDOWS _4LT18MVPM1363970941w      w  w   x  
x                                                           WINDOWS _4LT18MVPM1422816489x      x  x  	y  y      }y  {                                               WINDOWS _4LU0P5BIK1397508899      (  7  F  S                                                       WINDOWS _4LT18MVPM1363970941b      o  |                                                               WINDOWS _4LT18MVPM1417960284f      s                                                                 WINDOWS _4LT18MVPN14179602848      E  R  a  n                                                           WINDOWS _4LU0P5BIL1417960284Ɉ      ֈ                                                                 WINDOWS _4LU0P5BIM1417960284          ŉ  ҉                                                           WINDOWS _4LT18MVPM1363970941.      ;  H  W  d                                                           WINDOWS _4LT18MVPM1364021837        *  7  D                                                           WINDOWS _4LT18MVPM1364023907      
    ,  9                                                           WINDOWS _4LT18MVPN1364023907            ǌ                                                           WINDOWS _4LT18MVPM1364032398e      r                                                                 WINDOWS _4LT18MVPN1364032398;      H  U  d                                                             WINDOWS _4LT18MVPO1364032398        )  ;  W                                                           WINDOWS _4LT18MVPP1364030958            0                                                           WINDOWS _4LT18MVPP1364023907      ͐  ސ                                                               WINDOWS _4LT18MVPM1364032398          ɑ                                                             WINDOWS _4LT18MVPN1364032398{                                                                       WINDOWS _4LT18MVPO1364032398P      ]  j  |                                                             WINDOWS _4LT18MVPP1364030958-      :  G  X  t                                                           WINDOWS _4LT18MVPR1364023907        !  0  D                                                           WINDOWS _4LT18MVPM1364032398            +                                                           WINDOWS _4LT18MVPN1364032398Ö      Ж  ݖ                                                               WINDOWS _4LT18MVPO1364032398          Ɨ                                                             WINDOWS _4LT18MVPP1364030958y                                                                       WINDOWS _4LT18MVPT1364023907M      ^  o  ~                                                             WINDOWS _4LT18MVPM13640323982      ?  L  \  x                                                           WINDOWS _4LT18MVPN1364032398        )  8  T                                                           WINDOWS _4LT18MVPO1364032398            -                                                           WINDOWS _4LT18MVPP1364030958Ü      М  ݜ    
                                                           WINDOWS _4LT18MVPV1364023907          ǝ  ۝                                                           WINDOWS _4LU0X1P4L1364032398|                                                                       WINDOWS _5VU10U7S01364032398_      l  y                                                               WINDOWS _5VU10U7S11364032398M      Z  g  v                                                             WINDOWS _5VU10U7S21364032398Z      g  t                                                               WINDOWS _5VU10U7S31364032398:      G  T  e                                                             WINDOWS _4LT18MVPX1364023907        0  ?  S                                                           WINDOWS _4LT18MVPM1364032398            8                                                           WINDOWS _4LT18MVPN1364032398Ϥ      ܤ                                                                 WINDOWS _4LT18MVPO1364032398          Х                                                             WINDOWS _4LT18MVPP1364030958            Ȧ                                                           WINDOWS _4LU0VBVVL1364021837S      `  m  {                                                             WINDOWS _4LT18MVPM1363970941                                                                       WINDOWS _4LU0W3SN71364023907Ψ      ߨ                                                                 WINDOWS _4LU0W3SN81364023907W      h  y                                                               WINDOWS _4LT18MVPM1364032398<      I  V  f                                                             WINDOWS _4LT18MVPN1364032398"      /  <  K  h                                                           WINDOWS _4LT18MVPO1364032398           2  O                                                           WINDOWS _4LT18MVPP1364030958        
    8                                                           WINDOWS _4LT18MVPQ1364030958ӭ                                                                       WINDOWS _4LT18MVPR1364030958      î  Ю  ߮                                                             WINDOWS _4LU0W3SNA1364023907          Ư  ۯ                                                           WINDOWS _4LT18MVPM1364032398{            °                                                           WINDOWS _4LT18MVPN1364032398h      u                                                                 WINDOWS _4LT18MVPO1364032398N      [  h  z                                                             WINDOWS _4LT18MVPP1364030958<      I  V  g                                                             WINDOWS _4LT18MVPQ1364032398      ,  9  J  g                                                           WINDOWS _4LT18MVPR1364030958      $  1  @  ]                                                           WINDOWS _4LU0W3SNC1364023907          '  <                                                           WINDOWS _4LT18MVPM1364032398ݶ            $                                                           WINDOWS _4LT18MVPN1364032398ʷ      ׷                                                                 WINDOWS _4LT18MVPO1364032398        ʸ  ܸ                                                             WINDOWS _4LT18MVPP1364030958          ɹ                                                             WINDOWS _4LT18MVPQ1364032398            ɺ                                                           WINDOWS _4LT18MVPR1364030958y                                                                       WINDOWS _4LU0W3SNE1364023907X      i  z                                                               WINDOWS _4LT18MVPM1364032398?      L  Y  i                                                             WINDOWS _4LT18MVPN1364032398,      9  F  U  r                                                           WINDOWS _4LT18MVPO1364032398        ,  >  [                                                           WINDOWS _4LT18MVPP1364030958       
    +  H                                                           WINDOWS _4LT18MVPQ1364032398            +                                                           WINDOWS _4LT18MVPR1364030958            !                                                           WINDOWS _4LU0W3SNG1364023907                                                                        WINDOWS _5VU11FOUG1364032398                                                                       WINDOWS _5VU11FOUH1364032398                                                                       WINDOWS _5VU11FOUI1364032398                                                                       WINDOWS _5VU11FOUJ1364030958                                                                       WINDOWS _5VU11FOUK1364032398                                                                       WINDOWS _5VU11FOUL1364030958                                                                       WINDOWS _4LU0W3SNI1364023907j      {                                                                 WINDOWS _4LT18MVPM1364032398P      ]  j  z                                                             WINDOWS _4LT18MVPN1364032398=      J  W  f                                                             WINDOWS _4LT18MVPO1364032398"      /  <  N  k                                                           WINDOWS _4LT18MVPP1364030958        *  ;  X                                                           WINDOWS _4LT18MVPQ1364032398            :                                                           WINDOWS _4LT18MVPR1364030958            /                                                           WINDOWS _4LT18MVPM1364022203                                                                       WINDOWS _4LU12RNF51363970941                                                                       WINDOWS _4LT18MVPM1363970941w                                                                       WINDOWS _4LT18MVPN1363970941      '  4  B  O                                                           WINDOWS _4LT18MVPO1363970941                                                                       WINDOWS _4LT18MVPP1363970941`      m  z                                                               WINDOWS _4LT18MVPQ1363970941          ,  9                                                           WINDOWS _4LT18MVPR1363970941                                                                       WINDOWS _4LT18MVPS1363970941M      Z  g  v                                                             WINDOWS _4LT18MVPM1363970941        
    '                                                           WINDOWS _4LT18MVPN1363970941                                                                       WINDOWS _4LT18MVPO1363970941n      {                                                                 WINDOWS _4LT18MVPP1363970941-      :  G  W  d                                                           WINDOWS _4LT18MVPM1363970941            #                                                           WINDOWS _4LT18MVPN1363970941                                                                       WINDOWS _4LT18MVPS1363970941j      w                                                                 WINDOWS _4LT18MVPM1217098745)      5  A  N  [                                                           WINDOWS _4LY0UMM5S1363970941                                                                       WINDOWS _4LY0UMM5T1363970941b      o  |                                                               WINDOWS _4LY0UMM5U1363970941!      .  ;  K  X                                                           WINDOWS _4LY0UMM5V1363970941          
                                                             WINDOWS _4LY0UMM5W1363970941                                                                       WINDOWS _4LY0UMM5X1363970941^      k  x                                                               WINDOWS _4LT18MVPM1363970941      *  7  G  T                                                           WINDOWS _4LY0UMM5Y1363970941                                                                       WINDOWS _4LT18MVPM1363970941%      2  ?  O  \                                                           WINDOWS _4LY0UMM5Z1363970941      '  4  C  P                                                           WINDOWS _4LT18MVPM1363970941        !  0  =                                                           WINDOWS _4LT18MVPM1363970941            !                                                           WINDOWS _4LT18MVPM1363970941                                                                       WINDOWS _4LT18MVPN1363970941{                                                                       WINDOWS _4LY0V1RYW13639709416      C  P  c  p                                                           WINDOWS _4LT18MVPN1363970941          (  5                                                           WINDOWS _4LT18MVPM1217098745                                                                       WINDOWS _4LT18MVPM1363970941                                                                       WINDOWS _4LY0V1RYX12170987450      <  H  U  b                                                           WINDOWS _4LY0V1RYY1363970941                                                                       WINDOWS _4LY0V1T5R1417960284k      z                                                                 WINDOWS _4LY0V1T5S1364021837d      p  |                                                               WINDOWS _4LT18MVPM1364021837        +  9  F                                                           WINDOWS _4X30WNZ861413961876                                                                     WINDOWS _5VU0YV4DM1533955410                  x                                                 WINDOWS _5VU112ZQL1364022203                                                                       WINDOWS _5VU112ZQM13639709416      C  P  ^  x                                                           WINDOWS _5VU112ZQN1363970941          -  G                                                           WINDOWS _5VU112ZQO1363970941            (                                                           WINDOWS _5VU1ABLKC1417965925                  Y  N                                              WINDOWS _5VV0KZW7E1364021837F     W h |                                                           WINDOWS _5VV0KZW7F1364021837ف                                                                  WINDOWS _5VV0KZW7G1364032398      Ȃ ׂ      X                                               WINDOWS _5VV0KZW7H1364021837`     m z                                                            WINDOWS _4LT18MVPM1364030349     	  $ 1                                                          WINDOWS _4LT18MVPM1364030349                                                                  WINDOWS _4LT18MVPM1364030349"     / < M Z                                                          WINDOWS _4LT18MVPM1364030349     Æ І ߆                                                           WINDOWS _5VV0V0SMC1364030349J     W d u                                                           WINDOWS _4LT18MVPM1364033711       " /      ֈ                                              WINDOWS _5VV0XWBBG1364033711      ĉ ԉ      Z                                               WINDOWS _4LT18MVPM1415092091M \ r                                                        COMMENT RESERVED                                z                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     .Height = 673
Width = 1137
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "So finden Sie den besten Zeitpunkt fr eine Hhergruppierung"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     0PROCEDURE Init
&&Verwendung der Index-Nummern von interim
&&0 = erreichter Monat (roter Pfeil
&&1 - 6 = Lnge der B-Stufen
&&7 = Lnge der Stufe 6 (grauer Pfeil)
&&8 = Stufe in B, in die hhergruppiert wird
&&9 = Lnge aller B-Stufen (Unterschied zwischen rotem und grauen Pfeil)
&&10
&&11 - 17 = Betrag der Monatsbetrge der A-Stufen
&&20
&&21 - 27 = Betrag der Monatsbetrge der B-Stufen
&&30
&&31 - 37 = Summe der Monatsbetrge einer A-Stufe
&&40
&&41 - 47 = Summe der Monatsbetrge einer B-Stufe
&&48
&&49
&&50 = Garantiebetrag
&&51 = Rest des Garantiebetrags, der B-Grundgehalt zuzuschlagen ist
&&
&&&&Verwendung der Index-Nummern von atztresor
&&1 = weihalt = Prozentsatz alt
&&2 = weihneu = Prozentsatz neu
&&3 = Monat der Hhergruppierung
&&4 = Stufe vor der Hhergruppierung
&&5 = Stufe in die Hhergruppiert wird
&&10 - 15 Grundgehlter in der alten Entgeltgruppe
&&20 - 25 Grundgehlter in der neuen Entgeltgruppe

PUBLIC xstep

myhhergruppierung = Thisform
Thisform.faktortrger.label18.Caption = "="

With myhhergruppierung

	If zi(1+5) >= 17

		Do Case && zi(1+5)
			Case zi(1+5) = 17
				.AusgangGruppe.Caption = "Entgeltgruppe 9c" &&& 15 - zi(1+5)
				.Ergebnisgruppe.Caption = "Entgeltgruppe 10" &&& 16 - zi(1+5)
				.AusgangStufe.Caption = "Entgeltstufe 9c" + ALLTRIM(STR(zi(1+7) + 1,5,0))
				.ingruppealt.Caption = "in Entgeltgruppe 9c" &&& 15 - zi(1+5)
				.ingruppeneu.Caption = "in Entgeltgruppe 10" &&& 16 - zi(1+5)

			Case zi(1+5) = 18
				.AusgangGruppe.Caption = "Entgeltgruppe 9b" &&& 15 - zi(1+5)
				.Ergebnisgruppe.Caption = "Entgeltgruppe 9c" &&& 16 - zi(1+5)
				.AusgangStufe.Caption = "Entgeltstufe " + ALLTRIM(STR(zi(1+7) + 1,5,0))
				.ingruppealt.Caption = "in Entgeltgruppe 9b" &&& 15 - zi(1+5)
				.ingruppeneu.Caption = "in Entgeltgruppe 9c" &&& 16 - zi(1+5)

			Case zi(1+5) = 19
				.AusgangGruppe.Caption = "Entgeltgruppe 9a" &&& 15 - zi(1+5)
				.Ergebnisgruppe.Caption = "Entgeltgruppe 9b" &&& 16 - zi(1+5)
				.AusgangStufe.Caption = "Entgeltstufe " + ALLTRIM(STR(zi(1+7) + 1,5,0))
				.ingruppealt.Caption = "in Entgeltgruppe 9a" &&& 15 - zi(1+5)
				.ingruppeneu.Caption = "in Entgeltgruppe 9b" &&& 16 - zi(1+5)
		Endcase
	Else
		.AusgangGruppe.Caption = "Entgeltgruppe " + ALLTRIM(STR(15 - zi(1+5),5,0))
		.Ergebnisgruppe.Caption = "Entgeltgruppe " + ALLTRIM(STR(16 - zi(1+5),5,0))
		.AusgangStufe.Caption = "Entgeltstufe " + ALLTRIM(STR(zi(1+7) + 1,5,0))
		.ingruppealt.Caption = "in Entgeltgruppe " + ALLTRIM(STR(15 - zi(1+5),5,0))
		.ingruppeneu.Caption = "in Entgeltgruppe " + ALLTRIM(STR(16 - zi(1+5),5,0))
	Endif

	Basisdatum = wvw.BDA

	interim(1+0) = 300
	&&Garantiebetrge
	Do Case && zi(1+4)
		Case  Inlist(zi(1+4), 10, 12)
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 6)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							interim(1+2) = 80
						Case welchesjahr = 2012
							If zi(1+20) < 2
								interim(1+2) = 60
							Else
								interim(1+2) = 82.8
							Endif
						Case welchesjahr > 2012
							If zi(1+20) < 7
								interim(1+2) = 83.96
							Else
								interim(1+2) = 85.14
							Endif
					Endcase
				Case (zi(1+5) >= 7 .And. zi(1+5) <= 14)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							interim(1+2) = 50
						Case welchesjahr = 2012
							If zi(1+20) < 2
								interim(1+2) = 50
							Else
								interim(1+2) = 51.75
							Endif
						Case welchesjahr > 2012
							If zi(1+20) < 7
								interim(1+2) = 52.75
							Else
								interim(1+2) = 53.2
							Endif
					Endcase

			Endcase
			interim(1+3) = interim(1+2)
			If zi(1+5) = 7
				Do Case && welchesjahr
					Case welchesjahr = 2011
						interim(1+3) = 80
					Case welchesjahr = 2012
						If zi(1+20) < 2
							interim(1+3) = 60
						Else
							interim(1+3) = 82.8
						Endif
					Case welchesjahr > 2012
						If zi(1+20) < 7
							interim(1+3) = 83.96
						Else
							interim(1+3) = 85.14
						Endif
				Endcase
			Endif

		Case zi(1+4) = 11
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 6)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							If zi(1+20) < 3
								interim(1+2) = 53.63
							Else
								interim(1+2) = 54.43
							Endif
						Case welchesjahr = 2012
							interim(1+2) = 55.46
						Case welchesjahr > 2012
							interim(1+2) = 55.46
					Endcase
				Case (zi(1+5) >= 7 .And. zi(1+5) <= 14)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							If zi(1+20) < 3
								interim(1+2) = 26.82
							Else
								interim(1+2) = 27.22
							Endif
						Case welchesjahr = 2012
							interim(1+2) = 27.74
						Case welchesjahr > 2012
							interim(1+2) = 27.74
					Endcase
			Endcase
			interim(1+3) = interim(1+2)
			If zi(1+5) = 7

				Do Case && welchesjahr
					Case welchesjahr = 2011
						If zi(1+20) < 3
							interim(1+3) = 53.63
						Else
							interim(1+3) = 54.43
						Endif
					Case welchesjahr = 2012
						interim(1+3) = 55.46
					Case welchesjahr > 2012
						interim(1+3) = 55.46
				Endcase
			ENDIF
			
		Case zi(1+4) = 12 && TVD-VKA
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 6)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							interim(1+2) = 80
							
						Case welchesjahr = 2012
							If zi(1+20) < 2
								interim(1+2) = 60
							Else
								interim(1+2) = 82.8
							ENDIF
							
						Case welchesjahr > 2012
							If zi(1+20) < 7
								interim(1+2) = 83.96
							Else
								interim(1+2) = 85.14
							Endif
					ENDCASE
					
				Case (zi(1+5) >= 7 .And. zi(1+5) <= 14)
					Do Case && welchesjahr
						Case welchesjahr = 2011
							interim(1+2) = 50
							
						Case welchesjahr = 2012
							If zi(1+20) < 2
								interim(1+2) = 50
							Else
								interim(1+2) = 51.75
							ENDIF
							
						Case welchesjahr > 2012
							If zi(1+20) < 7
								interim(1+2) = 52.75
							Else
								interim(1+2) = 53.2
							Endif
					Endcase
			ENDCASE
			
			interim(1+3) = interim(1+2)
			
			If zi(1+5) = 7
				Do Case && welchesjahr
					Case welchesjahr = 2011
						interim(1+3) = 80
						
					Case welchesjahr = 2012
						If zi(1+20) < 2
							interim(1+3) = 60
						Else
							interim(1+3) = 82.8
						ENDIF
						
					Case welchesjahr > 2012
						If zi(1+20) < 7
							interim(1+3) = 83.96
						Else
							interim(1+3) = 85.14
						Endif
				Endcase
			Endif
	ENDCASE
	
	interim(1+50) = interim(1+3)
	
	.garantiefeld.Garantie.Caption = myformat(interim(1+50), "##0.00") + " Euro"
	
	xxx = Alltrim(Str(zi(1+20),2,0))
	.AktuellerMonat.Caption = "mit den Tariftabellen des Monats " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc

	If Len(Trim(Basisdatum)) = 10 .And. zi(1+1) < 2
		.Stufenbeginnalt.Caption = "Stufe 1 ab " + Basisdatum
		If zi(1+20) < 10
			If DateDiff("m", "01.0" + ALLTRIM(STR(zi(1+20) + 1,10,0)) + "." + welchesjahrc, Basisdatum) < 1
				Return
			Endif
		Else
			If DateDiff("m", "01." + ALLTRIM(STR(zi(1+20) + 1,10,0)) + "." + welchesjahrc, Basisdatum) < 1
				Return
			Endif
		Endif
		If zi(1+20) < 9
			interim(1+0) = DateDiff("m", "01.0" + ALLTRIM(STR(zi(1+20) + 1,10,0)) + "." + welchesjahrc, Basisdatum) + 1
		Else
			interim(1+0) = DateDiff("m", "01." + ALLTRIM(STR(zi(1+20) + 1,10,0)) + "." + welchesjahrc, Basisdatum) + 1
		Endif
	Else
		.Stufenbeginnalt.Caption = ""
		If zi(1+20) < 9
			Msg = "01.0" + Alltrim(Str(zi(1+20) + 1,2,0)) + "." + welchesjahrc
		Else
			Msg = "01." + Alltrim(Str(zi(1+20) + 1,2,0)) + "." + welchesjahrc
		Endif
		Do Case && zi(1+7)
			Case zi(1+7) = 0
				interim(1+0) = 1
			Case zi(1+7) = 1
				interim(1+0) = 13
			Case zi(1+7) = 2
				interim(1+0) = 37
			Case zi(1+7) = 3
				interim(1+0) = 73
			Case zi(1+7) = 4
				interim(1+0) = 121
			Case zi(1+7) = 5
				interim(1+0) = 181
		Endcase
		Basisdatum = DateAdd("m", -interim(1+0) + 1, Msg)
	Endif

	&&.Fahne.Caption = interim(1+0) + ". Monat"
	&&.Monateab.Caption = interim(1+0) + ". Monat"
	For i = 1 To 6
		Do Case
			Case i = 1
				.bisher.stufea1.EntgeltA1.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 2
				.bisher.stufea2.EntgeltA2.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 3
				.bisher.stufea3.EntgeltA3.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 4
				.bisher.stufea4.EntgeltA4.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 5
				.bisher.stufea5.EntgeltA5.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 6
				.bisher.stufea6.EntgeltA6.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
		Endcase
		interim(1+10 + i) = grundbetrag(1+i - 1) / 100
	NEXT
	
	If zi(1+4) < 12 .And. zi(1+5) < 7
		.bisher.stufea6.EntgeltA6.Caption = myformat(grundbetrag(1+4) / 100, "##,##0.00") + " Euro"
		interim(1+16) = grundbetrag(1+4) / 100
		.bisher.stufea6.TitelA6.Caption = "Weiterhin wie Stufe 5, da sie von EG 9 - 15 die Endstufe ist."
	Endif

	zi(1+5) = zi(1+5) - 1
	Do grundbetragholen &&Do attached
	For i = 0 To 5
		atztresor(1+20 + i) = grundbetrag(1+i)
	Next

	For i = 1 To 6
		Do Case
			Case i = 1
				.knftig.stufeb1.EntgeltB1.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb1.ZulagenB1.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb1.SummeB1.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 2
				.knftig.stufeb2.EntgeltB2.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb2.ZulagenB2.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb2.SummeB2.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 3
				.knftig.stufeb3.EntgeltB3.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb3.ZulagenB3.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb3.SummeB3.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 4
				.knftig.stufeb4.EntgeltB4.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb4.ZulagenB4.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb4.SummeB4.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 5
				.knftig.stufeb5.EntgeltB5.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb5.ZulagenB5.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb5.SummeB5.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
			Case i = 6
				.knftig.stufeb6.EntgeltB6.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
				.knftig.stufeb6.ZulagenB6.Caption = myformat(0, "##,##0.00") + " Euro"
				.knftig.stufeb6.SummeB6.Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
		Endcase

		*!*			.EntgeltB(i).Caption = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
		interim(1+20 + i) = grundbetrag(1+i - 1) / 100
		*!*			.ZulagenB(i) = myformat(0, "##,##0.00") + " Euro"
		*!*			.SummeB(i) = myformat(grundbetrag(1+i - 1) / 100, "##,##0.00") + " Euro"
	Next

	If zi(1+4) < 12 .And. zi(1+5) < 7
		.knftig.stufeb6.EntgeltB6.Caption = myformat(grundbetrag(1+4) / 100, "##,##0.00") + " Euro"
		interim(1+26) = grundbetrag(1+4) / 100
		.knftig.stufeb6.TitelB6.Caption = "Weiterhin wie Stufe 5, da sie von EG 9 bis 15 die Endstufe ist."
	Endif

	zi(1+5) = zi(1+5) + 1
	Do grundbetragholen &&Do attached
	For i = 0 To 5
		atztresor(1+10 + i) = grundbetrag(1+i)
	Next

	interim(1+7) = 300
	.ScrollVergangenheit.Value = interim(1+0)
	.ScrollVergangenheit.scroll
	interim(1+7) = 300
	.HScroll1.Value = 300
Endwith


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)


thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     $    #  #                        <   %          #  B  !            U  9 7  
 T   T     =
   %C 
 HZ  C /! T   Entgeltgruppe 9c! T   Entgeltgruppe 106 T	   Entgeltstufe 9cCCC  Z$ T
   in Entgeltgruppe 9c$ T   in Entgeltgruppe 10 C ! T   Entgeltgruppe 9b! T   Entgeltgruppe 9c4 T	  
 Entgeltstufe CCC  Z$ T
   in Entgeltgruppe 9b$ T   in Entgeltgruppe 9c C ! T   Entgeltgruppe 9a! T   Entgeltgruppe 9b4 T	  
 Entgeltstufe CCC  Z$ T
   in Entgeltgruppe 9a$ T   in Entgeltgruppe 9b  5 T   Entgeltgruppe CCC  Z5 T   Entgeltgruppe CCC  Z4 T	  
 Entgeltstufe CCC  Z8 T
   in Entgeltgruppe CCC  Z8 T   in Entgeltgruppe CCC  Z  T 
   T ,
 H$ CC 

 HJ% C   C 	o
 H|k   T P   %C 
 T <  T 33333T@   k %C 
D T =
ףpT@ g T )\HU@  % C  C 	
 H   T 2  ' %C 
  T 2 # T      I@    %C 
i T      `J@  T J@    T C  %C 
 H   T P  W %C 
0 T < S T 33333T@    %C 
 T =
ףpT@  T )\HU@    C 

 H	% C   C 	
 H   %C 
^ T q=
ףJ@  T ףp=
7K@    T {GK@   T {GK@ % C  C 		
 H		  ~	 %C 
W	 T R:@ z	 T Q8;@   	 T =
ףp;@  	 T =
ףp;@   T C  %C 

 H

  
 %C 
[
 T q=
ףJ@ ~
 T ףp=
7K@   
 T {GK@  
 T {GK@   C 
 HP
% C   C 	+
 H8'  ] T P   %C 
 T <  T 33333T@   ' %C 
  T =
ףpT@ # T )\HU@  % C  C 	P

 H]L
   T 2   %C 
 T 2  T      I@   L
 %C 
%
 T      `J@ H
 T J@    T C  %C 
 H
|  
 T P   %C 

 T <  T 33333T@   | %C 
U T =
ףpT@ x T )\HU@     T 3C . T   CC3  ##0.00   Euro T CCC  Zz .AktuellerMonat.Caption = "mit den Tariftabellen des Monats " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc
$ %CC `>
 C 
	  T   Stufe 1 ab   %C 

@ %C m 01.0CCC 
 Z .    
 B  R? %C m 01.CCC 
 Z .    
N B   %C 	
F T C m 01.0CCC 
 Z .     E T C m 01.CCC 
 Z .       T     %C 	
`0 T  01.0CCC  Z .  / T  01.CCC  Z .  
 H C   T  C  T 
 C   T % C H T I C p T y C  T  " T C mC c      (
 H  7@ T    CC  d	 ##,##0.00   Euro  @ T     CC  d	 ##,##0.00   Euro  @ T ! "  CC  d	 ##,##0.00   Euro  *@ T # $  CC  d	 ##,##0.00   Euro  {@ T % &  CC  d	 ##,##0.00   Euro  @ T ' (  CC  d	 ##,##0.00   Euro ' T  C  d $ %C 
 C 
	8 T ' (  CC d	 ##,##0.00   Euro T C dT T ' )  = Weiterhin wie Stufe 5, da sie von EG 9 - 15 die Endstufe ist.  T C  *    (" T+  C     (
 HJ  @ T, - .  CC  d	 ##,##0.00   Euro0 T, - /  C 	 ##,##0.00   Euro@ T, - 0  CC  d	 ##,##0.00   Euro  @ T, 1 2  CC  d	 ##,##0.00   Euro0 T, 1 3  C 	 ##,##0.00   Euro@ T, 1 4  CC  d	 ##,##0.00   Euro  @ T, 5 6  CC  d	 ##,##0.00   Euro0 T, 5 7  C 	 ##,##0.00   Euro@ T, 5 8  CC  d	 ##,##0.00   Euro  N@ T, 9 :  CC  d	 ##,##0.00   Euro0 T, 9 ;  C 	 ##,##0.00   Euro@ T, 9 <  CC  d	 ##,##0.00   Euro  @ T, = >  CC  d	 ##,##0.00   Euro0 T, = ?  C 	 ##,##0.00   Euro@ T, = @  CC  d	 ##,##0.00   Euro  @ T, A B  CC  d	 ##,##0.00   Euro0 T, A C  C 	 ##,##0.00   Euro@ T, A D  CC  d	 ##,##0.00   Euro ' T  C  d $ %C 
 C 
	8 T, A B  CC d	 ##,##0.00   Euro T C dV T, A E  ? Weiterhin wie Stufe 5, da sie von EG 9 bis 15 die Endstufe ist.  T C  *    (( T+  C    T , TF G C  F H  T , TI G ,  % J K L  TM CL  J K T 
 TM  
  N O  T J  J K M  T P  P K M 
  Q  T R a US  XSTEP MYHHERGRUPPIERUNG THISFORM FAKTORTRGER LABEL18 CAPTION ZI
 AUSGANGGRUPPE ERGEBNISGRUPPE AUSGANGSTUFE INGRUPPEALT INGRUPPENEU
 BASISDATUM WVW BDA INTERIM WELCHESJAHR GARANTIEFELD GARANTIE MYFORMAT XXX STUFENBEGINNALT DATEDIFF WELCHESJAHRC MSG DATEADD I BISHER STUFEA1	 ENTGELTA1 GRUNDBETRAG STUFEA2	 ENTGELTA2 STUFEA3	 ENTGELTA3 STUFEA4	 ENTGELTA4 STUFEA5	 ENTGELTA5 STUFEA6	 ENTGELTA6 TITELA6 GRUNDBETRAGHOLEN	 ATZTRESOR KNFTIG STUFEB1	 ENTGELTB1	 ZULAGENB1 SUMMEB1 STUFEB2	 ENTGELTB2	 ZULAGENB2 SUMMEB2 STUFEB3	 ENTGELTB3	 ZULAGENB3 SUMMEB3 STUFEB4	 ENTGELTB4	 ZULAGENB4 SUMMEB4 STUFEB5	 ENTGELTB5	 ZULAGENB5 SUMMEB5 STUFEB6	 ENTGELTB6	 ZULAGENB6 SUMMEB6 TITELB6 SCROLLVERGANGENHEIT VALUE SCROLL HSCROLL1 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize     1 q  q R QaAARAAARAAAA  QQAA B  Q !1!Q1 A !Q A A Q !1!Q1 A !Q A A B qQ !1!Q1 A !Q A A A R Q !Q A !!A Q !Q A !!A A qQ !Q A !!A A R Q !1"Q1 A "Q A A R !1"Q1 A "Q A A A rR !1"Q1 A "Q A A A A rBQA A  A A A Qa QA  Q A  Q1Q1Q1Q1Q1Q1A !A t A qA BAA q qA r A sC BaA q qA BQ A!A   A    3 1                       0     @  0  0     )   #                        xslider      foxyslider.vcx      	container      Scrollvergangenheit      FORM1     Top = 340
Left = 18
Width = 1047
Height = 31
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 300
showtips = .T.
min = 1
showtipsalways = .T.
Name = "Scrollvergangenheit"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      kPROCEDURE scroll
interim(1+0) = thisform.ScrollVergangenheit.Value
thisform.berechnen.click 

ENDPROC
                                        %                             U  )  T     
     U  INTERIM THISFORM SCROLLVERGANGENHEIT VALUE	 BERECHNEN CLICK scroll,     1  2                       `       )                            
commandbutton      
commandbutton      drucken      FORM1      _Top = 3
Left = 3
Height = 25
Width = 276
Caption = "Screenshot drucken"
Name = "drucken"
      4PROCEDURE Click
thisform.printform.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 PRINTFORM CLICK Click,     1  1                       )       )                            
commandbutton      
commandbutton      hilfe      FORM1      RTop = 3
Left = 279
Height = 25
Width = 275
Caption = "Hilfe"
Name = "hilfe"
      UPROCEDURE Click
inet = "111"
Msg = "20282"
Do insinternet &&Do attached
ENDPROC
                                      Ё   %   t                          U  ,  T   111 T  20282   U  INET MSG INSINTERNET Click,     1 !q 1                       J       )                            
commandbutton      
commandbutton      
bertragen      FORM1      \Top = 3
Left = 554
Height = 25
Width = 275
Caption = "bertragen"
Name = "bertragen"
     PROCEDURE Click
*SET STEP ON 
If zi(1+20) < 9
	Msg = "01.0" + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
Else
	Msg = "01." + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
Endif

If Not DateAdd("m", interim(1+0) - 1, Basisdatum) = Msg
	Messagebox( "Ein bertrag ist nur mglich, wenn hier der Monat " + Right(thisform.AktuellerMonat.Caption, 9) + " eingestellt ist.", 0, "bertrag nur in den Monat im Hauptfenster mglich !")
	Return
Endif
xxx = ALLTRIM(STR(zi(1+20),2,0))
Msg = "Folgendes wird nach " + ALLTRIM(myform1.Mon&xxx..caption) + " " + welchesjahrc + " bertragen:"

Msg = Msg + "Zeile 4:"

Msg = Msg + "Zeile 6: Nchster Stufenaufstieg am " + Right(thisform.NchsterAufstieg.Caption, 10) + Chr(13)

Msg = Msg + "Zeile 8:"

If interim(1+51) > 0
	Msg = Msg + "Zeile 9:	Garantiebetrags In Hhe von " + ALLTRIM(STR(interim(1+51),10,2)) + " Euro." + Chr(13)
ENDIF

response = Messagebox(Msg, 1, "bertrag in die Gehaltsberechnung")

If response = 2
	Return
Endif

zi(1+5) = zi(1+5) - 1
zti = 5

Do zgridaktivieren &&Do attached

zi(1+1) = 2
zti = 1

Do zgridaktivieren &&Do attached

myform1.bdabeginn.Text = Right(thisform.NchsterAufstieg.Caption, 10)
bdatext = Right(thisform.NchsterAufstieg.Caption, 10)
myform1.bdabeginn.SetFocus
keyboard "{ENTER}" clear

If interim(1+51) > 0
	zi(1+9) = 5
	zti = 9
	
	Do zgridaktivieren &&Do attached

	betrag(1+9) = interim(1+51) * 100
	wert(1+9) = interim(1+51) * 100
	t_geclickt = 9
	lastt = wert(1+9)
	lastclick = 209
	
	Do betragseingabe &&Do attached
	Do berechnungauslsen &&Do attached
Endif
&&Unload Hhergruppierung

Basisdatum = ""
ENDPROC
     }    d  d                           %           .               U  t %C  	
E 0 T  01.0CCC   Z .  | / T  01.CCC   Z .  & %C mC     
E C2 Ein bertrag ist nur mglich, wenn hier der Monat C   	R  eingestellt ist. 3 bertrag nur in den Monat im Hauptfenster mglich !x B  T	 CCC   Zj Msg = "Folgendes wird nach " + ALLTRIM(myform1.Mon&xxx..caption) + " " + welchesjahrc + " bertragen:"
 T   Zeile 4:J T  $ Zeile 6: Nchster Stufenaufstieg am C 
  
RC
  T   Zeile 8: %C4  X T  % Zeile 9:	Garantiebetrags In Hhe von CCC4 
Z  Euro.C
  7 T C ! bertrag in die Gehaltsberechnungx %  B  T  C  
 T  
  T  
 T  
  T   C 
  
R T C 
  
R
     \ {ENTER} %C4  ` T  

 T 	 
  T 
C4 d T 
C4 d
 T 	 T C
 
 T      
 T    U  ZI MSG WELCHESJAHRC DATEADD INTERIM
 BASISDATUM THISFORM AKTUELLERMONAT CAPTION XXX NCHSTERAUFSTIEG RESPONSE ZTI ZGRIDAKTIVIEREN MYFORM1	 BDABEGINN TEXT BDATEXT SETFOCUS BETRAG WERT
 T_GECLICKT LASTT	 LASTCLICK BETRAGSEINGABE BERECHNUNGAUSLSEN Click,     1 R A b	A A RA rA A  r 2 r  R1 r   r q A  1                             )   d                        
commandbutton      
commandbutton      	schlieen      FORM1      ZTop = 3
Left = 829
Height = 25
Width = 275
Caption = "Schlieen"
Name = "schlieen"
      0PROCEDURE Click

Thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       %       )                            label      label      tvd      FORM1      eAlignment = 2
Caption = "TVD Bund"
Height = 19
Left = 135
Top = 32
Width = 100
Name = "tvd"
      label      label      aktuellermonat      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "Mit Tariftabellen des Monats Jan. 2012"
Height = 22
Left = 18
Top = 56
Width = 290
Name = "aktuellermonat"
      label      label      
Ausganggruppe      FORM1      AutoSize = .F.
FontBold = .T.
FontSize = 12
Alignment = 0
Caption = "Entgeltgruppe 10"
Height = 22
Left = 18
Top = 80
Width = 153
ForeColor = 255,255,255
BackColor = 0,0,255
Name = "Ausganggruppe"
      label      label      Ausgangstufe      FORM1      AutoSize = .F.
FontBold = .T.
FontSize = 12
Alignment = 0
Caption = "Entgeltstufe 5"
Height = 22
Left = 18
Top = 103
Width = 153
ForeColor = 255,255,255
BackColor = 0,0,255
Name = "Ausgangstufe"
      label      label      ergebnisgruppe      FORM1      AutoSize = .F.
FontBold = .T.
FontSize = 12
Alignment = 0
Caption = "Entgeltgruppe 11"
Height = 22
Left = 220
Top = 80
Width = 153
ForeColor = 0,0,0
BackColor = 255,255,0
Name = "ergebnisgruppe"
      label      label      
ergebnisstufe      FORM1      AutoSize = .F.
FontBold = .T.
FontSize = 12
Alignment = 0
Caption = "Entgeltstufe 4"
Height = 22
Left = 220
Top = 103
Width = 153
ForeColor = 0,0,0
BackColor = 255,255,0
Name = "ergebnisstufe"
      
commandbutton      
commandbutton      Command5      FORM1      pTop = 80
Left = 176
Height = 46
Width = 39
Picture = prgicons\arw03rt.ico
Caption = ""
Name = "Command5"
      label      label      stufenbeginnalt      FORM1      mCaption = "Stufe 1 ab 01.01.2000"
Height = 19
Left = 18
Top = 131
Width = 148
Name = "stufenbeginnalt"
      label      label      nchsteraufstieg      FORM1      eCaption = "Stufe 5 ab "
Height = 19
Left = 219
Top = 131
Width = 148
Name = "nchsteraufstieg"
      label      label      Label14      FORM1      WordWrap = .T.
Caption = "Zu bercksichtigen sind eine Vergtungsgruppenzulage und eine Besitzstandszulage in Hhe von zusammen :"
Height = 32
Left = 18
Top = 164
Width = 354
Name = "Label14"
      textbox      textbox      zulageA      FORM1      _Alignment = 3
Value = 0.00
Height = 22
Left = 21
Top = 203
Width = 100
Name = "zulageA"
     vPROCEDURE KeyPress
Lparameters KeyASCII, nShiftAltCtrl
If KeyASCII = 13
	With Hhergruppierung
		For i = 1 To 6
			xxx = ALLTRIM(STR(i,1,0))
			.bisher.stufea&xxx..EntgeltA&xxx..Caption = myformat(grundbetrag(1+i - 1) / 100 + .ZulageA.value, "##,##0.00") + " Euro"
			interim(1+10 + i) = grundbetrag(1+i - 1) / 100 + .ZulageA.value
		NEXT
		
		If zi(1+4) < 12 .And. zi(1+5) < 7
			.bisher.stufea6.EntgeltA6.Caption = myformat(grundbetrag(1+4) / 100 + .ZulageA.value, "##,##0.00") + " Euro"
			interim(1+10 + 6) = grundbetrag(1+4) / 100 + ZulageA.value
		Endif
	Endwith
	thisform.berechnen.click 
Endif

ENDPROC
                                      %                          U       %  

    ( T CC  Z| .bisher.stufea&xxx..EntgeltA&xxx..Caption = myformat(grundbetrag(1+i - 1) / 100 + .ZulageA.value, "##,##0.00") + " Euro"
/ T  C  d   $ %C	 
 C	 
	@ T
   
 CC d  	 ##,##0.00   Euro" T C d    
      U  KEYASCII
 NSHIFTALTCTRL HHERGRUPPIERUNG I XXX INTERIM GRUNDBETRAG ZULAGEA VALUE ZI BISHER STUFEA6	 ENTGELTA6 CAPTION MYFORMAT THISFORM	 BERECHNEN CLICK KeyPress,     1   qqA B!A A  A 2                       k      )                           textbox      textbox      zulageB      FORM1      Alignment = 3
BorderStyle = 1
Value = 0.00
Height = 22
Left = 210
Top = 203
Width = 100
BorderColor = 0,0,0
Name = "zulageB"
     PROCEDURE KeyPress
Lparameters KeyASCII, nShiftAltCtrl
If KeyASCII = 13
	With Hhergruppierung
		zi(1+5) = zi(1+5) - 1
		
		Do grundbetragholen &&Do attached
		
		For i = 1 To 6
			xxx = ALLTRIM(STR(i,1,0))
			knftig.stufeb&xxx..EntgeltB&xxx..Caption = myFormat(grundbetrag(1+i - 1) / 100 + .ZulageB.value, "##,##0.00") + " Euro"
			interim(1+20 + i) = grundbetrag(1+i - 1) / 100 + ZulageB.value
		NEXT
		
		If zi(1+4) < 12 .And. zi(1+5) < 7
			knftig.stufeb6.EntgeltB6.Caption = myFormat(grundbetrag(1+4) / 100 + .ZulageB.value, "##,##0.00") + " Euro"
			interim(1+20 + 6) = grundbetrag(1+4) / 100 + ZulageB.value
		Endif
	ENDWITH
	
	zi(1+5) = zi(1+5) + 1
	
	Do grundbetragholen &&Do attached
	thisform.berechnen.click 
	
Endif
ENDPROC
     s    Z  Z                        *   %                          U       %  

   T C     (# T CC  Z| knftig.stufeb&xxx..EntgeltB&xxx..Caption = myFormat(grundbetrag(1+i - 1) / 100 + .ZulageB.value, "##,##0.00") + " Euro"
. T  C  d	 
  $ %C 
 C 
	? T  
  CC d	 
 	 ##,##0.00   Euro" T C d	 
    T C   
      U  KEYASCII
 NSHIFTALTCTRL HHERGRUPPIERUNG ZI GRUNDBETRAGHOLEN I XXX INTERIM GRUNDBETRAG ZULAGEB VALUE KNFTIG STUFEB6	 ENTGELTB6 CAPTION MYFORMAT THISFORM	 BERECHNEN CLICK KeyPress,     1   r rqA B!A A r  B 1                             )   Z                        label      label      Label16      FORM1      WordWrap = .T.
Caption = "Der Prozentsatz der Jahressonderzahlung richtet sich nach der Eingruppiereung im September und betrgt"
Height = 32
Left = 18
Top = 232
Width = 354
Name = "Label16"
      label      label      weihalt      FORM1      FontBold = .T.
FontSize = 10
Alignment = 1
Caption = "80"
Height = 18
Left = 18
Top = 275
Width = 44
ForeColor = 255,0,0
Name = "weihalt"
      label      label      Label19      FORM1      SCaption = "v.H."
Height = 16
Left = 66
Top = 276
Width = 21
Name = "Label19"
      label      label      weihneu      FORM1      FontBold = .T.
FontSize = 10
Alignment = 1
Caption = "80"
Height = 18
Left = 209
Top = 275
Width = 46
ForeColor = 255,0,0
Name = "weihneu"
      label      label      Label20      FORM1      TCaption = "v.H."
Height = 16
Left = 259
Top = 276
Width = 21
Name = "Label20"
      label      label      Label17      FORM1      WordWrap = .T.
Caption = "des Durchschnitts der Grundentgelte von Juli, August + September"
Height = 16
Left = 17
Top = 298
Width = 370
Name = "Label17"
      textbox      textbox      fahne      FORM1      Alignment = 2
Enabled = .F.
Height = 22
Left = 473
Top = 373
Width = 207
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
BorderColor = 0,0,0
Name = "fahne"
      	container      	container      bisher      FORM1      ATop = 398
Left = 3
Width = 1117
Height = 99
Name = "bisher"
      	container      	container      stufea1      FORM1.bisher      Top = 2
Left = 5
Width = 44
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 221,255,255
BorderColor = 255,255,255
Name = "stufea1"
      label      label      NummerA1      FORM1.bisher.stufea1      BorderStyle = 0
Caption = "Ab 1."
Height = 17
Left = 7
Top = 13
Width = 30
BackColor = 221,255,255
Style = 0
Name = "NummerA1"
      label      label      TitelA1      FORM1.bisher.stufea1      BorderStyle = 0
Caption = "St. 1"
Height = 17
Left = 7
Top = 30
Width = 30
BackColor = 221,255,255
Style = 0
Name = "TitelA1"
      label      label      
LaufzeitA1      FORM1.bisher.stufea1      BorderStyle = 0
Caption = "12 M."
Height = 17
Left = 7
Top = 47
Width = 30
BackColor = 221,255,255
Style = 0
Name = "LaufzeitA1"
      label      label      	EntgeltA1      FORM1.bisher.stufea1      BorderStyle = 0
Caption = ""
Height = 17
Left = 7
Top = 64
Width = 30
BackColor = 221,255,255
Style = 0
Name = "EntgeltA1"
      	container      	container      stufea2      FORM1.bisher      Top = 2
Left = 49
Width = 88
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 98,255,255
BorderColor = 255,255,255
Name = "stufea2"
      label      label      NummerA2      FORM1.bisher.stufea2      BorderStyle = 0
Caption = "Ab 13. Monat"
Height = 17
Left = 7
Top = 13
Width = 73
BackColor = 98,255,255
Style = 0
Name = "NummerA2"
      label      label      TitelA2      FORM1.bisher.stufea2      BorderStyle = 0
Caption = "Stufe 2"
Height = 17
Left = 7
Top = 30
Width = 73
BackColor = 98,255,255
Style = 0
Name = "TitelA2"
      label      label      
LaufzeitA2      FORM1.bisher.stufea2      BorderStyle = 0
Caption = "24 Monate"
Height = 17
Left = 7
Top = 47
Width = 73
BackColor = 98,255,255
Style = 0
Name = "LaufzeitA2"
      label      label      	EntgeltA2      FORM1.bisher.stufea2      BorderStyle = 0
Caption = ""
Height = 17
Left = 7
Top = 64
Width = 73
BackColor = 98,255,255
Style = 0
Name = "EntgeltA2"
      	container      	container      stufea3      FORM1.bisher      Top = 2
Left = 137
Width = 132
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 128,200,253
BorderColor = 255,255,255
Name = "stufea3"
      label      label      NummerA3      FORM1.bisher.stufea3      BorderStyle = 0
Caption = "Ab 37. Monat"
Height = 17
Left = 7
Top = 13
Width = 118
BackColor = 128,200,253
Style = 0
Name = "NummerA3"
      label      label      TitelA3      FORM1.bisher.stufea3      BorderStyle = 0
Caption = "Stufe 3"
Height = 17
Left = 7
Top = 30
Width = 118
BackColor = 128,200,253
Style = 0
Name = "TitelA3"
      label      label      
LaufzeitA3      FORM1.bisher.stufea3      BorderStyle = 0
Caption = "36 Monate"
Height = 17
Left = 7
Top = 47
Width = 118
BackColor = 128,200,253
Style = 0
Name = "LaufzeitA3"
      label      label      	EntgeltA3      FORM1.bisher.stufea3      BorderStyle = 0
Caption = ""
Height = 17
Left = 7
Top = 64
Width = 118
BackColor = 128,200,253
Style = 0
Name = "EntgeltA3"
      	container      	container      stufea4      FORM1.bisher      Top = 2
Left = 269
Width = 176
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 29,157,252
BorderColor = 255,255,255
Name = "stufea4"
      label      label      NummerA4      FORM1.bisher.stufea4      BorderStyle = 0
Caption = "Ab 73. Monat"
Height = 17
Left = 7
Top = 13
Width = 161
BackColor = 29,157,252
Style = 0
Name = "NummerA4"
      label      label      TitelA4      FORM1.bisher.stufea4      BorderStyle = 0
Caption = "Stufe 4"
Height = 17
Left = 7
Top = 30
Width = 161
BackColor = 29,157,252
Style = 0
Name = "TitelA4"
      label      label      
LaufzeitA4      FORM1.bisher.stufea4      BorderStyle = 0
Caption = "48 Monate"
Height = 17
Left = 7
Top = 47
Width = 161
BackColor = 29,157,252
Style = 0
Name = "LaufzeitA4"
      label      label      	EntgeltA4      FORM1.bisher.stufea4      BorderStyle = 0
Caption = ""
Height = 17
Left = 7
Top = 64
Width = 161
BackColor = 29,157,252
Style = 0
Name = "EntgeltA4"
      	container      	container      stufea6      FORM1.bisher      Top = 2
Left = 665
Width = 449
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 192,192,192
BorderColor = 255,255,255
Name = "stufea6"
      label      label      NummerA7      FORM1.bisher.stufea6      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 190
Top = 13
Width = 117
BackColor = 221,255,255
Style = 0
Name = "NummerA7"
      label      label      NummerA6      FORM1.bisher.stufea6      BorderStyle = 0
Caption = "Ab 181. Monat bis 300. Monat"
Height = 17
Left = 9
Top = 13
Width = 167
BackColor = 192,192,192
Style = 0
Name = "NummerA6"
      label      label      TitelA6      FORM1.bisher.stufea6      BorderStyle = 0
Caption = "Weiterhin wie Stufe 5, da sie von EG 9 - 15 die Endstufe ist."
Height = 17
Left = 9
Top = 30
Width = 420
BackColor = 192,192,192
Style = 0
Name = "TitelA6"
      label      label      
LaufzeitA6      FORM1.bisher.stufea6      BorderStyle = 0
Caption = "120 Monate"
Height = 17
Left = 9
Top = 47
Width = 117
BackColor = 192,192,192
Style = 0
Name = "LaufzeitA6"
      label      label      	EntgeltA6      FORM1.bisher.stufea6      BorderStyle = 0
Caption = ""
Height = 17
Left = 9
Top = 64
Width = 117
BackColor = 192,192,192
Style = 0
Name = "EntgeltA6"
      	container      	container      stufea5      FORM1.bisher      Top = 2
Left = 445
Width = 220
Height = 93
BorderWidth = 1
SpecialEffect = 0
BackColor = 2,130,223
BorderColor = 255,255,255
Name = "stufea5"
      label      label      NummerA5      FORM1.bisher.stufea5      BorderStyle = 0
Caption = "Ab 121. Monat"
Height = 17
Left = 6
Top = 13
Width = 206
BackColor = 2,130,223
Style = 0
Name = "NummerA5"
      label      label      TitelA5      FORM1.bisher.stufea5      BorderStyle = 0
Caption = "Stufe 5"
Height = 17
Left = 6
Top = 30
Width = 206
BackColor = 2,130,223
Style = 0
Name = "TitelA5"
      label      label      
LaufzeitA5      FORM1.bisher.stufea5      BorderStyle = 0
Caption = "60 Monate"
Height = 17
Left = 6
Top = 47
Width = 206
BackColor = 2,130,223
Style = 0
Name = "LaufzeitA5"
      label      label      	EntgeltA5      FORM1.bisher.stufea5      BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 64
Width = 206
BackColor = 2,130,223
Style = 0
Name = "EntgeltA5"
      shape      shape      Shape1      FORM1      UTop = 38
Left = 390
Height = 301
Width = 714
SpecialEffect = 0
Name = "Shape1"
      label      label      	Label16_k      FORM1      WordWrap = .T.
Caption = " Vergleich der Entgelte in der Folgezeit mit und ohne Hhergruppierung "
Height = 19
Left = 402
Top = 31
Width = 396
Name = "Label16_k"
      	container      	container      knftig      FORM1      CTop = 501
Left = 3
Width = 1117
Height = 129
Name = "knftig"
      	container      	container      stufeb1      
FORM1.knftig      Top = 2
Left = 5
Width = 44
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 252,254,165
BorderColor = 255,255,255
Name = "stufeb1"
      label      label      NummerB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = "Ab 1."
Height = 17
Left = 6
Top = 13
Width = 32
BackColor = 221,255,255
Style = 0
Name = "NummerB1"
      label      label      TitelB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = "St. 1"
Height = 17
Left = 6
Top = 30
Width = 32
BackColor = 221,255,255
Style = 0
Name = "TitelB1"
      label      label      
LaufzeitB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = "12 M."
Height = 17
Left = 6
Top = 47
Width = 32
BackColor = 221,255,255
Style = 0
Name = "LaufzeitB1"
      label      label      	EntgeltB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 64
Width = 32
BackColor = 221,255,255
Style = 0
Name = "EntgeltB1"
      label      label      	ZulagenB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 80
Width = 32
BackColor = 221,255,255
Style = 0
Name = "ZulagenB1"
      label      label      SummeB1      FORM1.knftig.stufeb1      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 97
Width = 32
BackColor = 221,255,255
Style = 0
Name = "SummeB1"
      	container      	container      stufeb2      
FORM1.knftig      Top = 2
Left = 49
Width = 88
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 242,252,120
BorderColor = 255,255,255
Name = "stufeb2"
      label      label      NummerB2      FORM1.knftig.stufeb2      BackStyle = 0
BorderStyle = 0
Caption = "Ab 13. Monat"
Height = 17
Left = 6
Top = 13
Width = 76
BackColor = 242,252,120
Style = 0
Name = "NummerB2"
      label      label      TitelB2      FORM1.knftig.stufeb2      BackStyle = 0
BorderStyle = 0
Caption = "Stufe 2"
Height = 17
Left = 6
Top = 30
Width = 76
BackColor = 242,252,120
Style = 0
Name = "TitelB2"
      label      label      
LaufzeitB2      FORM1.knftig.stufeb2      BackStyle = 0
BorderStyle = 0
Caption = "24 Monate"
Height = 17
Left = 6
Top = 47
Width = 76
BackColor = 242,252,120
Style = 0
Name = "LaufzeitB2"
      label      label      	EntgeltB2      FORM1.knftig.stufeb2      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 64
Width = 76
BackColor = 242,252,120
Style = 0
Name = "EntgeltB2"
      label      label      	ZulagenB2      FORM1.knftig.stufeb2      FontUnderline = .T.
BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 80
Width = 76
BackColor = 242,252,120
Style = 0
Name = "ZulagenB2"
      label      label      SummeB2      FORM1.knftig.stufeb2      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 6
Top = 97
Width = 76
BackColor = 242,252,120
Style = 0
Name = "SummeB2"
      	container      	container      stufeb3      
FORM1.knftig      Top = 2
Left = 137
Width = 132
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 243,252,88
BorderColor = 255,255,255
Name = "stufeb3"
      label      label      NummerB3      FORM1.knftig.stufeb3      BackStyle = 0
BorderStyle = 0
Caption = "Ab 37. Monat"
Height = 17
Left = 8
Top = 13
Width = 117
BackColor = 243,252,88
Style = 0
Name = "NummerB3"
      label      label      TitelB3      FORM1.knftig.stufeb3      BackStyle = 0
BorderStyle = 0
Caption = "Stufe 3"
Height = 17
Left = 8
Top = 30
Width = 117
BackColor = 243,252,88
Style = 0
Name = "TitelB3"
      label      label      
LaufzeitB3      FORM1.knftig.stufeb3      BackStyle = 0
BorderStyle = 0
Caption = "36 Monate"
Height = 17
Left = 8
Top = 47
Width = 117
BackColor = 243,252,88
Style = 0
Name = "LaufzeitB3"
      label      label      	EntgeltB3      FORM1.knftig.stufeb3      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 64
Width = 117
BackColor = 243,252,88
Style = 0
Name = "EntgeltB3"
      label      label      	ZulagenB3      FORM1.knftig.stufeb3      FontUnderline = .T.
BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 80
Width = 117
BackColor = 243,252,88
Style = 0
Name = "ZulagenB3"
      label      label      SummeB3      FORM1.knftig.stufeb3      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 97
Width = 117
BackColor = 243,252,88
Style = 0
Name = "SummeB3"
      	container      	container      stufeb4      
FORM1.knftig      Top = 2
Left = 269
Width = 176
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 236,252,44
BorderColor = 255,255,255
Name = "stufeb4"
      label      label      NummerB4      FORM1.knftig.stufeb4      BackStyle = 0
BorderStyle = 0
Caption = "Ab 73. Monat"
Height = 17
Left = 8
Top = 13
Width = 159
BackColor = 236,252,44
Style = 0
Name = "NummerB4"
      label      label      TitelB4      FORM1.knftig.stufeb4      BackStyle = 0
BorderStyle = 0
Caption = "Stufe 4"
Height = 17
Left = 8
Top = 30
Width = 159
BackColor = 236,252,44
Style = 0
Name = "TitelB4"
      label      label      
LaufzeitB4      FORM1.knftig.stufeb4      BackStyle = 0
BorderStyle = 0
Caption = "48 Monate"
Height = 17
Left = 8
Top = 47
Width = 159
BackColor = 236,252,44
Style = 0
Name = "LaufzeitB4"
      label      label      	EntgeltB4      FORM1.knftig.stufeb4      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 64
Width = 159
BackColor = 236,252,44
Style = 0
Name = "EntgeltB4"
      label      label      	ZulagenB4      FORM1.knftig.stufeb4      FontUnderline = .T.
BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 80
Width = 159
BackColor = 236,252,44
Style = 0
Name = "ZulagenB4"
      label      label      SummeB4      FORM1.knftig.stufeb4      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 97
Width = 159
BackColor = 236,252,44
Style = 0
Name = "SummeB4"
      	container      	container      stufeb6      
FORM1.knftig      Top = 2
Left = 665
Width = 449
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 192,192,192
BorderColor = 255,255,255
Name = "stufeb6"
      label      label      NummerB6      FORM1.knftig.stufeb6      BackStyle = 0
BorderStyle = 0
Caption = "Ab 182. Monat bis 300. Monat"
Height = 17
Left = 8
Top = 13
Width = 428
BackColor = 192,192,192
Style = 0
Name = "NummerB6"
      label      label      TitelB6      FORM1.knftig.stufeb6      BackStyle = 0
BorderStyle = 0
Caption = "Weiterhin wie Stufe 5, da sie von EG 9 - 15 die Endstufe ist."
Height = 17
Left = 8
Top = 30
Width = 428
BackColor = 192,192,192
Style = 0
Name = "TitelB6"
      label      label      
LaufzeitB6      FORM1.knftig.stufeb6      BackStyle = 0
BorderStyle = 0
Caption = "120 Monate"
Height = 17
Left = 8
Top = 47
Width = 428
BackColor = 192,192,192
Style = 0
Name = "LaufzeitB6"
      label      label      	EntgeltB6      FORM1.knftig.stufeb6      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 64
Width = 428
BackColor = 192,192,192
Style = 0
Name = "EntgeltB6"
      label      label      	ZulagenB6      FORM1.knftig.stufeb6      FontUnderline = .T.
BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 80
Width = 428
BackColor = 192,192,192
Style = 0
Name = "ZulagenB6"
      label      label      SummeB6      FORM1.knftig.stufeb6      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 97
Width = 428
BackColor = 192,192,192
Style = 0
Name = "SummeB6"
      	container      	container      stufeb5      
FORM1.knftig      Top = 2
Left = 445
Width = 220
Height = 123
BorderWidth = 1
SpecialEffect = 0
BackColor = 255,255,0
BorderColor = 255,255,255
Name = "stufeb5"
      label      label      NummerB5      FORM1.knftig.stufeb5      BackStyle = 0
BorderStyle = 0
Caption = "Ab 121. Monat"
Height = 17
Left = 8
Top = 13
Width = 204
BackColor = 255,255,0
Style = 0
Name = "NummerB5"
      label      label      TitelB5      FORM1.knftig.stufeb5      BackStyle = 0
BorderStyle = 0
Caption = "Stufe 5"
Height = 17
Left = 8
Top = 30
Width = 204
BackColor = 255,255,0
Style = 0
Name = "TitelB5"
      label      label      
LaufzeitB5      FORM1.knftig.stufeb5      BackStyle = 0
BorderStyle = 0
Caption = "60. Monate"
Height = 17
Left = 8
Top = 47
Width = 204
BackColor = 255,255,0
Style = 0
Name = "LaufzeitB5"
      label      label      	EntgeltB5      FORM1.knftig.stufeb5      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 64
Width = 204
BackColor = 255,255,0
Style = 0
Name = "EntgeltB5"
      label      label      	ZulagenB5      FORM1.knftig.stufeb5      FontUnderline = .T.
BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 80
Width = 204
BackColor = 255,255,0
Style = 0
Name = "ZulagenB5"
      label      label      SummeB5      FORM1.knftig.stufeb5      BackStyle = 0
BorderStyle = 0
Caption = ""
Height = 17
Left = 8
Top = 97
Width = 204
BackColor = 255,255,0
Style = 0
Name = "SummeB5"
      label      label      ingruppealt      FORM1      FontBold = .T.
FontSize = 10
WordWrap = .T.
Caption = "In Entgeltgruppe 10"
Height = 19
Left = 475
Top = 82
Width = 129
Name = "ingruppealt"
      label      label      ingruppeneu      FORM1      FontBold = .T.
FontSize = 10
WordWrap = .T.
Caption = "In Entgeltgruppe 11"
Height = 19
Left = 629
Top = 82
Width = 129
Name = "ingruppeneu"
      label      label      Label5      FORM1      fWordWrap = .T.
Caption = "Stufe 1"
Height = 19
Left = 403
Top = 100
Width = 59
Name = "Label5"
      label      label      Label4      FORM1      fWordWrap = .T.
Caption = "Stufe 2"
Height = 19
Left = 403
Top = 119
Width = 59
Name = "Label4"
      label      label      Label6      FORM1      fWordWrap = .T.
Caption = "Stufe 3"
Height = 19
Left = 403
Top = 138
Width = 59
Name = "Label6"
      label      label      Label9      FORM1      fWordWrap = .T.
Caption = "Stufe 4"
Height = 19
Left = 403
Top = 157
Width = 59
Name = "Label9"
      label      label      Label10      FORM1      gWordWrap = .T.
Caption = "Stufe 5"
Height = 19
Left = 403
Top = 176
Width = 59
Name = "Label10"
      label      label      Label11      FORM1      gWordWrap = .T.
Caption = "Stufe 6"
Height = 19
Left = 403
Top = 195
Width = 59
Name = "Label11"
      label      label      Label12      FORM1      eWordWrap = .T.
Caption = "Summe"
Height = 19
Left = 403
Top = 220
Width = 59
Name = "Label12"
      label      label      gesamtA1      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 100
Width = 107
Name = "gesamtA1"
      label      label      gesamtA2      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 119
Width = 107
Name = "gesamtA2"
      label      label      gesamtA3      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 138
Width = 107
Name = "gesamtA3"
      label      label      gesamtA4      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 157
Width = 107
Name = "gesamtA4"
      label      label      gesamtA5      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 176
Width = 107
Name = "gesamtA5"
      label      label      gesamtA6      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 195
Width = 107
Name = "gesamtA6"
      label      label      gesamtA7      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 492
Top = 220
Width = 107
Name = "gesamtA7"
      line      line      Line1      FORM1      @Height = 0
Left = 480
Top = 214
Width = 290
Name = "Line1"
      label      label      gesamtB1      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 100
Width = 107
Name = "gesamtB1"
      label      label      gesamtB2      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 119
Width = 107
Name = "gesamtB2"
      label      label      gesamtB3      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 138
Width = 107
Name = "gesamtB3"
      label      label      gesamtB4      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 157
Width = 107
Name = "gesamtB4"
      label      label      gesamtB5      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 176
Width = 107
Name = "gesamtB5"
      label      label      gesamtB6      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 195
Width = 107
Name = "gesamtB6"
      label      label      gesamtB7      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 645
Top = 220
Width = 107
Name = "gesamtB7"
      label      label      Label15      FORM1     FontSize = 10
WordWrap = .T.
Caption = "Verwenden Sie die beiden Laufleisten, um den Zeitpunkt herauszufinden, an dem eine Hhergruppiereung den grten Vorteil in eingestellten Zeitraum erbringt:"
Height = 90
Left = 783
Top = 85
Width = 219
Name = "Label15"
      label      label      Resultat      FORM1      FontBold = .T.
FontSize = 10
WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 878
Top = 220
Width = 111
BackColor = 255,255,0
Name = "Resultat"
      label      label      label13      FORM1      FontBold = .T.
FontSize = 10
WordWrap = .T.
Alignment = 0
Caption = "also mehr:"
Height = 19
Left = 788
Top = 220
Width = 90
BackColor = 255,255,0
Name = "label13"
      label      label      Label21      FORM1      WordWrap = .T.
Caption = "In der obigen Berechnung ist die Jahressonderzahlung nicht enthalten."
Height = 19
Left = 402
Top = 245
Width = 612
Name = "Label21"
      label      label      Label22      FORM1      WordWrap = .T.
Caption = "Im laufenden Jahr wrde die Jahressonderzahlung betragen:"
Height = 19
Left = 402
Top = 261
Width = 612
Name = "Label22"
      label      label      Label23      FORM1      zWordWrap = .T.
Caption = "ohne     Hhergruppierung"
Height = 19
Left = 402
Top = 277
Width = 150
Name = "Label23"
      label      label      Label24      FORM1      }WordWrap = .T.
Caption = "mit         Hhergruppierung"
Height = 19
Left = 402
Top = 294
Width = 147
Name = "Label24"
      label      label      weihgeldalt      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 561
Top = 277
Width = 107
Name = "weihgeldalt"
      label      label      weihgeldneu      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 561
Top = 294
Width = 107
Name = "weihgeldneu"
      label      label      Label52      FORM1      WordWrap = .F.
Caption = "(bei Verbleib in der gleichen Stufe)"
Height = 19
Left = 683
Top = 277
Width = 220
Name = "Label52"
      label      label      vorsilbe      FORM1      nWordWrap = .F.
Caption = "also weniger"
Height = 19
Left = 399
Top = 311
Width = 153
Name = "vorsilbe"
      line      line      Line2      FORM1      @Height = 0
Left = 567
Top = 309
Width = 113
Name = "Line2"
      label      label      	weihsaldo      FORM1      WordWrap = .T.
Alignment = 1
Caption = "123.123,25 Euro"
Height = 19
Left = 561
Top = 311
Width = 107
Name = "weihsaldo"
      textbox      textbox      	endefahne      FORM1      Alignment = 2
Enabled = .F.
Height = 22
Left = 1048
Top = 373
Width = 163
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
BorderColor = 0,0,0
Name = "endefahne"
      line      line      	begrenzer      FORM1      qBorderWidth = 3
Height = 253
Left = 1048
Top = 375
Width = 0
BorderColor = 128,128,128
Name = "begrenzer"
      line      line      zeiger      FORM1      iBorderWidth = 3
Height = 253
Left = 473
Top = 375
Width = 0
BorderColor = 255,0,0
Name = "zeiger"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 651
Left = 1119
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      	printform      FORM1      Top = 318
Left = 306
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 476
Visible = .F.
Name = "printform"
     ePROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif

oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026

CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       Z      )                           	container      	container      garantiefeld      FORM1      FTop = 632
Left = 3
Width = 789
Height = 37
Name = "garantiefeld"
      label      label      Label0      FORM1.garantiefeld      WordWrap = .F.
Caption = "*) Rest des Garantiebetrages in Hhe von "
Height = 17
Left = 8
Top = 3
Width = 234
Name = "Label0"
      label      label      Label7      FORM1.garantiefeld      WordWrap = .F.
Caption = "nach Abzug der Differenz zwischen alter und neuer Stufe."
Height = 17
Left = 8
Top = 19
Width = 375
Name = "Label7"
      label      label      Garantie      FORM1.garantiefeld      `WordWrap = .F.
Caption = ""
Height = 14
Left = 246
Top = 4
Width = 116
Name = "Garantie"
      
commandbutton      
commandbutton      	berechnen      FORM1      yTop = 318
Left = 243
Height = 19
Width = 61
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
     TPROCEDURE Click

With myHhergruppierung
*!*		Do Case &&zi(1+4)
*!*			Case zi(1+4) = 10
*!*				.TVD.Caption = "TVD-Bund"
*!*				Do Case &&zi(1+5)
*!*					Case Inlist(zi(1+5),0,1,2)
*!*						atztresor(1+1) = 60
*!*					Case Inlist(zi(1+5),3,4,5,6)
*!*						atztresor(1+1) = 80
*!*					Case zi(1+5) >= 7 .And. zi(1+5) <= 14
*!*						atztresor(1+1) = 90
*!*				Endcase
*!*				Do Case &&zi(1+5) - 1
*!*					Case Inlist(zi(1+5) - 1,0,1,2)
*!*						atztresor(1+2) = 60
*!*					Case Inlist(zi(1+5) - 1,3,4,5,6)
*!*						atztresor(1+2) = 80
*!*					Case zi(1+5) - 1 >= 7 .And. zi(1+5) -1 <= 14
*!*						atztresor(1+2) = 90
*!*				Endcase
*!*			Case zi(1+4) = 11
*!*				Do Case &&zi(1+2)
*!*					Case Inlist(zi(1+2), 0,1,2,3, 5,6,7, 9,10,11,12, 15)
*!*						.TVD.Caption = "TV-L (West)"
*!*						Do Case &&zi(1+5)
*!*							Case zi(1+5) = 0 .Or. zi(1+5) = 1
*!*								atztresor(1+1) = 35
*!*							Case zi(1+5) = 2 .Or. zi(1+5) = 3
*!*								atztresor(1+1) = 50
*!*							Case Inlist(zi(1+5),4,5, 6)
*!*								atztresor(1+1) = 80
*!*							Case zi(1+5) >= 7 .And. zi(1+5) <= 14
*!*								atztresor(1+1) = 95
*!*						Endcase
*!*						Do Case &&zi(1+5) - 1
*!*							Case zi(1+5) - 1 = 0 .Or. zi(1+5) - 1 = 1
*!*								atztresor(1+2) = 35
*!*							Case zi(1+5)-1 = 2 .Or. zi(1+5)-1 = 3
*!*								atztresor(1+2) = 50
*!*							Case Inlist(zi(1+5)-1,4,5, 6)
*!*								atztresor(1+2) = 80
*!*							Case zi(1+5)-1 >= 7 .And. zi(1+5)-1 <= 14
*!*								atztresor(1+2) = 95
*!*						Endcase
*!*				Endcase
*!*				Do Case &&zi(1+2)
*!*					Case Inlist(zi(1+2),4, 8, 13, 14, 16)
*!*						.TVD.Caption = "TV-L (Ost)"
*!*						Do Case &&zi(1+5)
*!*							Case zi(1+5) = 0 .Or. zi(1+5) = 1
*!*								atztresor(1+1) = 30
*!*							Case zi(1+5) = 2 .Or. zi(1+5) = 3
*!*								atztresor(1+1) = 45
*!*							Case Inlist(zi(1+5),4,5, 6)
*!*								atztresor(1+1) = 60
*!*							Case zi(1+5) >= 7 .And. zi(1+5) <= 14
*!*								atztresor(1+1) = 71.5
*!*						Endcase
*!*						Do Case &&zi(1+5) - 1
*!*							Case zi(1+5) - 1 = 0 .Or. zi(1+5) - 1 = 1
*!*								atztresor(1+2) = 30
*!*							Case zi(1+5)-1 = 2 .Or. zi(1+5)-1 = 3
*!*								atztresor(1+2) = 45
*!*							Case Inlist(zi(1+5)-1,4,5, 6)
*!*								atztresor(1+2) = 60
*!*							Case zi(1+5)-1 >= 7 .And. zi(1+5)-1 <= 14
*!*								atztresor(1+2) = 71.5
*!*						Endcase
*!*				Endcase
*!*			Case zi(1+4) = 12
*!*				.TVD.Caption = "TVD-VKA"
*!*				Do Case &&welchesjahr
*!*					Case welchesjahr >= 2018 &&jahreswechsel noch machen
*!*						Do Case &&zi(1+2)
*!*							Case Inlist(zi(1+2),0,1,2, 3, 5,6, 7, 9 ,10,11, 12, 15) &&west
*!*								Do Case &&zi(1+5)
*!*									Case zi(1+5) >= 0 .And. zi(1+5) <= 2
*!*										atztresor(1+1) = 53.43
*!*									Case zi(1+5) >= 3 .And. zi(1+5) <= 6
*!*										atztresor(1+1) = 72.51
*!*									Case zi(1+5) >= 7 .And. zi(1+5) <= 14
*!*										atztresor(1+1) = 82.06
*!*									Case zi(1+5) >= 17 .And. zi(1+5) <= 19
*!*										atztresor(1+1) = 72.51
*!*								Endcase
*!*								Do Case &&zi(1+5) - 1
*!*									Case zi(1+5) - 1 >= 0 .Or. zi(1+5) - 1 <= 2
*!*										atztresor(1+2) = 53.43
*!*									Case zi(1+5) - 1 >= 3 .Or. zi(1+5) - 1 <= 6
*!*										atztresor(1+2) = 72.51
*!*									Case zi(1+5) - 1 >= 7 .Or. zi(1+5) - 1 <= 14
*!*										atztresor(1+2) = 82.06
*!*									Case zi(1+5) - 1 >= 17 .Or. zi(1+5) - 1 <= 19
*!*										atztresor(1+2) = 72.51
*!*								Endcase
*!*							Case Inlist(zi(1+2),4, 8, 13, 14, 16)  &&ost
*!*								Do Case &&zi(1+5)
*!*									Case zi(1+5) >= 0 .And. zi(1+5) <= 2
*!*										atztresor(1+1) = 40.07
*!*									Case zi(1+5) >= 3 .And. zi(1+5) <= 6
*!*										atztresor(1+1) = 54.39
*!*									Case zi(1+5) >= 7 .And. zi(1+5) <= 14
*!*										atztresor(1+1) = 61.54
*!*									Case zi(1+5) >= 17 .And. zi(1+5) <= 19
*!*										atztresor(1+1) = 54.39
*!*								Endcase
*!*								Do Case &&zi(1+5) - 1
*!*									Case zi(1+5) - 1 >= 0 .Or. zi(1+5) - 1 <= 2
*!*										atztresor(1+2) = 40.07
*!*									Case zi(1+5) - 1 >= 3 .Or. zi(1+5) - 1 <= 6
*!*										atztresor(1+2) = 54.39
*!*									Case zi(1+5) - 1 >= 7 .Or. zi(1+5) - 1 <= 14
*!*										atztresor(1+2) = 61.54
*!*									Case zi(1+5) - 1 >= 17 .Or. zi(1+5) - 1 <= 19
*!*										atztresor(1+2) = 54.39
*!*								Endcase
*!*						Endcase
*!*				Endcase
*!*		ENDCASE
	
	IF Inlist(zi(1+2),0,1,2, 3, 5,6, 7, 9 ,10,11, 12, 15) &&west
		atztresor(1+1) = soza.vorsoza(1+zi(1+5),1) &&west
	ELSE
		atztresor(1+1) = soza.vorsoza(1+zi(1+5),2) &&ost		
	ENDIF

	IF Inlist(zi(1+2),0,1,2, 3, 5,6, 7, 9 ,10,11, 12, 15) &&west
		atztresor(1+2) = soza.vorsoza(zi(1+5),1) &&west
	ELSE
		atztresor(1+2) = soza.vorsoza(zi(1+5),2) &&ost		
	ENDIF
	
	.Weihalt.Caption = Alltrim(Str(atztresor(1+1),10,2))
	.Weihneu.Caption = Alltrim(Str(atztresor(1+2),10,2))

	.Zeiger.Left = interim(1+0) * 3.7 + 3.7 &&HS vorher * 50 + 50
	.Fahne.Left = interim(1+0) *  3.7 + 3.7 &&HS vorher * 50 + 50
	.Garantiefeld.Left = interim(1+0) * 3.7 + 3.7 &&HS vorher * 50 + 50
	.Fahne.Value = " " + Alltrim(Str(interim(1+0),5,0)) + ". Monat  = " + DateAdd("m", interim(1+0) - 1, Basisdatum)
	.Endefahne.Value = " " + Alltrim(Str(interim(1+7) + 1,5,0)) + ". Monat ( " + DateAdd("m", interim(1+7), Basisdatum) + " )"

	IF .begrenzer.left + .endefahne.width > .width 
		.endefahne.Left = .begrenzer.Left - .endefahne.width
	ELSE
		.endefahne.Left = .begrenzer.Left
	endif


	IF .fahne.left + .fahne.width > .endefahne.left 
		.fahne.Left = .zeiger.Left - .fahne.width
	ELSE
		.fahne.Left = .zeiger.Left
	endif

	.Monateab.Caption = Alltrim(Str(interim(1+0),4,0)) + ". Monat"

	For i = 1 To 6
		xxx = Alltrim(Str(i,1,0))
		.bisher.StufeA&xxx..BorderWidth = 1
		*!*			.StufeA(i).Outline = False
		.knftig.StufeB&xxx..BorderWidth = 1
		*!*			knftig.StufeB(i).Outline = False
	Next


	Do Case && interim(1+0)
		Case (interim(1+0) >= 1 .And. interim(1+0) <= 12)
			.bisher.StufeA1.BorderWidth = 6
			*!*				.StufeA(1).Outline = True
			interim(1+6) = interim(1+11)
			.AusgangStufe.Caption = "Entgeltstufe 1"
		Case (interim(1+0) >= 13 .And. interim(1+0) <= 36)
			.bisher.StufeA2.BorderWidth = 6
			*!*				.StufeA(2).Outline = True
			interim(1+6) = interim(1+12)
			.AusgangStufe.Caption = "Entgeltstufe 2"
		Case (interim(1+0) >= 37 .And. interim(1+0) <= 72)
			.bisher.StufeA3.BorderWidth = 6
			*!*				.StufeA(3).Outline = True
			interim(1+6) = interim(1+13)
			.AusgangStufe.Caption = "Entgeltstufe 3"
		Case (interim(1+0) >= 73 .And. interim(1+0) <= 120)
			.bisher.StufeA4.BorderWidth = 6
			*!*				.StufeA(4).Outline = True
			interim(1+6) = interim(1+14)
			.AusgangStufe.Caption = "Entgeltstufe 4"
		Case (interim(1+0) >= 121 .And. interim(1+0) <= 180)
			.bisher.StufeA5.BorderWidth = 6
			*!*				.StufeA(5).Outline = True
			interim(1+6) = interim(1+15)
			.AusgangStufe.Caption = "Entgeltstufe 5"
		Case interim(1+0) > 180
			.bisher.StufeA6.BorderWidth = 6
			*!*				.StufeA(6).Outline = True
			interim(1+6) = interim(1+16)
			.AusgangStufe.Caption = "Entgeltstufe 6"
			If zi(1+4) < 12 .And. zi(1+5) < 7
				.AusgangStufe.Caption = "Entgeltstufe 5"
			Endif
	Endcase

	atztresor(1+4) = Val(Right(.AusgangStufe.Caption, 1)) && Stufe davor

	interim(1+8) = 0 &&erreichte Stufe B
	For i = 1 To 6
		xxx = Alltrim(Str(i,1,0))
		.knftig.StufeB&xxx..SummeB&xxx..Caption = .knftig.StufeB&xxx..EntgeltB&xxx..Caption
		.knftig.StufeB&xxx..ZulagenB&xxx..Caption = myformat(0, "#,###,##0.00") + " Euro *)"
	Next

	*!*	IF xstep = .t.
	*!*	SET STEP ON
	*!*	endif


	Do Case && interim(1+6)
		Case interim(1+6) <= interim(1+21)
			i = 0
			.knftig.stufeb2.BorderWidth = 6
			*!*				.StufeB(2).Outline = True
			interim(1+8) = 2
			.ErgebnisStufe.Caption = "Entgeltstufe 2"
			If interim(1+21) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+21) - interim(1+6))
				.knftig.stufeb2.ZulagenB2.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.stufeb2.SummeB2.Caption = myformat(interim(1+22) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.stufeb2.ZulagenB2.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif

		Case interim(1+6) <= interim(1+22)
			i = 49 &&HS 600
			.knftig.stufeb2.BorderWidth = 6
			*!*				.StufeB(2).Outline = True
			interim(1+8) = 2
			.ErgebnisStufe.Caption = "Entgeltstufe 2"

			If interim(1+22) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+22) - interim(1+6))
				.knftig.stufeb2.ZulagenB2.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.stufeb2.SummeB2.Caption = myformat(interim(1+22) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.stufeb2.ZulagenB2.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif

		Case interim(1+6) <= interim(1+23)
			i = 137 &&HS 1800
			.knftig.StufeB3.BorderWidth = 6
			*!*				.StufeB(3).Outline = True
			interim(1+8) = 3
			.ErgebnisStufe.Caption = "Entgeltstufe 3"

			If interim(1+23) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+23) - interim(1+6))
				.knftig.StufeB3.ZulagenB3.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.StufeB3.SummeB3.Caption = myformat(interim(1+23) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.StufeB3.ZulagenB3.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif

		Case interim(1+6) <= interim(1+24)
			i = 269 &&HS 3600
			.knftig.StufeB4.BorderWidth = 6
			*!*				.StufeB(4).Outline = True
			interim(1+8) = 4
			.ErgebnisStufe.Caption = "Entgeltstufe 4"

			If interim(1+24) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+24) - interim(1+6))
				.knftig.StufeB4.ZulagenB4.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.StufeB4.SummeB4.Caption = myformat(interim(1+24) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.StufeB4.ZulagenB4.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif

		Case interim(1+6) <= interim(1+25)
			i = 445 &&HS 6000
			.knftig.stufeb5.BorderWidth = 6
			interim(1+8) = 5
			.ErgebnisStufe.Caption = "Entgeltstufe 5"

			If interim(1+25) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+25) - interim(1+6))
				.knftig.stufeb5.ZulagenB5.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.stufeb5.SummeB5.Caption = myformat(interim(1+25) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.stufeb5.ZulagenB5.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif

			&&Case Is < interim(1+26)
		Case interim(1+6) > interim(1+25)
			i = 665 &&HS 9000
			.knftig.stufeb6.BorderWidth = 6
			*!*				.StufeB(6).Outline = True
			interim(1+8) = 6

			.ErgebnisStufe.Caption = "Entgeltstufe 6"

			If zi(1+4) < 12 .And. zi(1+5) < 6
				.ErgebnisStufe.Caption = "Entgeltstufe 5"
			Endif

			If interim(1+26) - interim(1+6) < interim(1+50)
				interim(1+51) = interim(1+50) - (interim(1+26) - interim(1+6))
				.knftig.stufeb6.ZulagenB6.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
				.knftig.stufeb6.SummeB6.Caption = myformat(interim(1+26) + interim(1+51), "#,###,##0.00") + " Euro"
			Else
				interim(1+51) = 0
				.knftig.stufeb6.ZulagenB6.Caption = myformat(interim(1+51), "#,###,##0.00") + " Euro *)"
			Endif
	Endcase

	atztresor(1+5) = interim(1+8)
	*!*	IF xstep = .t.
	*!*	SET STEP ON
	*!*	endif
	.knftig.Left = interim(1+0) * 3.7 - i + 4 && HS vorher + 9 &&HS vorher 50 - i + 90

	interim(1+31) = interim(1+11) * 12
	interim(1+32) = interim(1+12) * 24
	interim(1+33) = interim(1+13) * 36
	interim(1+34) = interim(1+14) * 48
	interim(1+35) = interim(1+15) * 60
	interim(1+36) = interim(1+16) * interim(1+7) - 180

	Do Case && interim(1+0)
		Case interim(1+0) < 13
			interim(1+31) = (13 - interim(1+0)) * interim(1+11)
		Case interim(1+0) < 37
			interim(1+31) = 0
			interim(1+32) = (37 - interim(1+0)) * interim(1+12)
		Case interim(1+0) < 73
			interim(1+31) = 0
			interim(1+32) = 0
			interim(1+33) = (73 - interim(1+0)) * interim(1+13)
		Case interim(1+0) < 121
			interim(1+31) = 0
			interim(1+32) = 0
			interim(1+33) = 0
			interim(1+34) = (121 - interim(1+0)) * interim(1+14)
		Case interim(1+0) < 181
			interim(1+31) = 0
			interim(1+32) = 0
			interim(1+33) = 0
			interim(1+34) = 0
			interim(1+35) = (181 - interim(1+0)) * interim(1+15)
		Case interim(1+0) < 301
			interim(1+31) = 0
			interim(1+32) = 0
			interim(1+33) = 0
			interim(1+34) = 0
			interim(1+35) = 0
	Endcase

	If interim(1+0) > 180
		interim(1+36) = (interim(1+7) + 1 - interim(1+0)) * interim(1+16)
	Else
		interim(1+36) = (interim(1+7) - 180) * interim(1+16)
	Endif

	interim(1+37) = 0

	For i = 1 To 6
		interim(1+37) = interim(1+37) + interim(1+30 + i)
	Next

	&&Berechnung der B-Stufen
	interim(1+9) = interim(1+7) - interim(1+0) + 1 &&Lnge aller B-Stufen
	Do Case && interim(1+8)
		Case interim(1+8) = 1
			If interim(1+9) >= 12
				interim(1+1) = 12
			Else
				interim(1+1) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+1)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 24
				interim(1+2) = 24
			Else
				interim(1+2) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+2)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 36
				interim(1+3) = 36
			Else
				interim(1+3) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+3)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 48
				interim(1+4) = 48
			Else
				interim(1+4) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+4)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 60
				interim(1+5) = 60
			Else
				interim(1+5) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+5)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Endif

		Case interim(1+8) = 2
			interim(1+1) = 0

			If interim(1+9) >= 24
				interim(1+2) = 24
			Else
				interim(1+2) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+2)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 36
				interim(1+3) = 36
			Else
				interim(1+3) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+3)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 48
				interim(1+4) = 48
			Else
				interim(1+4) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+4)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 60
				interim(1+5) = 60
			Else
				interim(1+5) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+5)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Endif

		Case interim(1+8) = 3
			interim(1+1) = 0
			interim(1+2) = 0

			If interim(1+9) >= 36
				interim(1+3) = 36
			Else
				interim(1+3) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+3)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 48
				interim(1+4) = 48
			Else
				interim(1+4) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+4)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 60
				interim(1+5) = 60
			Else
				interim(1+5) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+5)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Endif

		Case interim(1+8) = 4
			interim(1+1) = 0
			interim(1+2) = 0
			interim(1+3) = 0

			If interim(1+9) >= 48
				interim(1+4) = 48
			Else
				interim(1+4) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+4)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 60
				interim(1+5) = 60
			Else
				interim(1+5) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+5)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Endif

		Case interim(1+8) = 5
			interim(1+1) = 0
			interim(1+2) = 0
			interim(1+3) = 0
			interim(1+4) = 0

			If interim(1+9) >= 60
				interim(1+5) = 60
			Else
				interim(1+5) = interim(1+9)
			Endif

			interim(1+9) = interim(1+9) - interim(1+5)

			If interim(1+9) < 0
				interim(1+9) = 0
			Endif

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Endif

		Case interim(1+8) = 6
			interim(1+1) = 0
			interim(1+2) = 0
			interim(1+3) = 0
			interim(1+4) = 0
			interim(1+5) = 0

			If interim(1+9) >= 0
				interim(1+6) = interim(1+9)
			Else
				interim(1+6) = 0
			Endif
	Endcase

	If interim(1+0) < 12
		interim(1+41) = interim(1+21) * 12
	Else
		interim(1+41) = 0
	Endif

	If interim(1+8) = 2
		interim(1+42) = (interim(1+22) + interim(1+51)) * interim(1+2)
	Else
		interim(1+42) = interim(1+22) * interim(1+2)
	Endif

	If interim(1+8) = 3
		interim(1+43) = (interim(1+23) + interim(1+51)) * interim(1+3)
	Else
		interim(1+43) = interim(1+23) * interim(1+3)
	Endif

	If interim(1+8) = 4
		interim(1+44) = (interim(1+24) + interim(1+51)) * interim(1+4)
	Else
		interim(1+44) = interim(1+24) * interim(1+4)
	Endif

	If interim(1+8) = 5
		interim(1+45) = (interim(1+25) + interim(1+51)) * interim(1+5)
	Else
		interim(1+45) = interim(1+25) * interim(1+5)
	Endif

	If interim(1+8) = 6
		interim(1+46) = (interim(1+26) + interim(1+51)) * interim(1+6)
	Else
		interim(1+46) = interim(1+26) * interim(1+6)
	Endif

	Do Case && interim(1+8)
		Case interim(1+8) = 2
			.NchsterAufstieg.Caption = "Stufe 3 ab  " + DateAdd("m", 24, Right(.Fahne.Value, 10))
		Case interim(1+8) = 3
			.NchsterAufstieg.Caption = "Stufe 4 ab  " + DateAdd("m", 36, Right(.Fahne.Value, 10))
		Case interim(1+8) = 4
			.NchsterAufstieg.Caption = "Stufe 5 ab  " + DateAdd("m", 48, Right(.Fahne.Value, 10))
		Case interim(1+8) = 5
			If zi(1+4) < 12
				.NchsterAufstieg.Caption = "Endstufe)"
			Else
				.NchsterAufstieg.Caption = "Stufe 1 ab  " + DateAdd("m", 60, Right(.Fahne.Value, 10))
			Endif
		Case interim(1+8) = 6
			.NchsterAufstieg.Caption = "Endstufe)"
	Endcase

	interim(1+47) = 0

	For i = 1 To 6
		interim(1+47) = interim(1+47) + interim(1+40 + i)
	Next

	For i = 1 To 7
		xxx = Alltrim(Str(i,1,0))
		.GesamtA&xxx..Caption = myformat(interim(1+30 + i), "#,###,##0.00") + " Euro"
		.GesamtB&xxx..Caption = myformat(interim(1+40 + i), "#,###,##0.00") + " Euro"
	Next

	.Resultat.Caption = myformat(interim(1+47) - interim(1+37), "#,###,##0.00") + " Euro"

	.Monatebis.Caption = Alltrim(Str(interim(1+7),5,0))

	Msg = DateAdd("m", interim(1+7), Basisdatum)

	.Endedatum.Caption = DateAdd("d", -1, Msg)
	.bisher.StufeA6.LaufzeitA6.Caption = Alltrim(Str(interim(1+7) - 180,5,0)) + " Monate"
	.knftig.stufeb6.LaufzeitB6.Caption = Alltrim(Str(interim(1+6),5,0)) + " Monate"

	&&*********************************************************** Jahressonderzahlung
	msg1 = Right(.Fahne.Value, 7)
	atztresor(1+3) = Val(Leftc(msg1, 2))
	atztresor(1+29) = atztresor(1+9 + atztresor(1+4)) * atztresor(1+1) / 10000

	Do Case && atztresor(1+3)
		Case (atztresor(1+3) >= 0 .And. atztresor(1+3) <= 7)
			atztresor(1+30) = atztresor(1+19 + atztresor(1+5)) * 3 &&Juli-neu, Aug-neu, Sept-neu
		Case atztresor(1+3) = 8
			atztresor(1+30) = atztresor(1+19 + atztresor(1+5)) * 2 + atztresor(1+9 + atztresor(1+4)) &&juli-alt, Aug-Neu, Sept-Neu
		Case atztresor(1+3) = 9
			atztresor(1+30) = atztresor(1+19 + atztresor(1+5)) + atztresor(1+9 + atztresor(1+4)) * 2 &&Juli-alt, Aug-Alt, Sept-neu
		Case (atztresor(1+3) >= 10 .And. atztresor(1+3) <= 12)
			atztresor(1+30) = atztresor(1+9 + atztresor(1+4)) * 3 &&alles-alt
	Endcase

	atztresor(1+30) = atztresor(1+30) / 3

	If atztresor(1+3) < 10
		atztresor(1+31) = atztresor(1+30) * atztresor(1+2) / 10000
	Else
		atztresor(1+31) = atztresor(1+30) * atztresor(1+1) / 10000
	Endif

	.Weihgeldalt.Caption = myformat(atztresor(1+29), "##,###.00")
	.Weihgeldneu.Caption = myformat(atztresor(1+31), "##,###.00")
	.WeihSaldo.Caption = myformat(atztresor(1+31) - atztresor(1+29), "##,###.00")

	If atztresor(1+31) >= atztresor(1+29)
		.WeihSaldo.Caption = myformat(atztresor(1+31) - atztresor(1+29), "##,##0.00")
		.Vorsilbe.Caption = "also mehr"
		.Faktortrger.Visible = False
	Else
		.WeihSaldo.Caption = myformat(atztresor(1+29) - atztresor(1+31), "##,##0.00")
		.Faktortrger.Visible = True
		.Vorsilbe.Caption = "also weniger"
	Endif
	If atztresor(1+19 + atztresor(1+5)) - atztresor(1+9 + atztresor(1+4)) = 0
		.Faktortrger.Faktor.Caption = "0,00"
	Else
		.Faktortrger.Faktor.Caption = myformat((atztresor(1+29) - atztresor(1+31)) / ((atztresor(1+19 + atztresor(1+5)) - atztresor(1+9 + atztresor(1+4))) / 100), "#0.00")
	Endif
Endwith
ENDPROC
     2A    (2  (2                           %   .      1    #.            U  d+
   ]+7 %CC  	
i % T CC     % T CC    7 %CC  	
 ! T CC    ! T CC     T  CCC 
Z T  CCC 
Z- T 	 C
 
@
@- T 	 C
 
@
@- T 	 C
 
@
@K T 
   CCC
  Z . Monat  = C mC
    P T 
   CCC
  Z
 . Monat ( C mC
      ) % 	     T 	  	     T 	  	  ! % 	    	  T 	  	    6 T 	  	  * T  CCC
  Z . Monat  ( T CC  Z' .bisher.StufeA&xxx..BorderWidth = 1
( .knftig.StufeB&xxx..BorderWidth = 1
 
 H% C
  C
 	a T    T
 C
  T   Entgeltstufe 1% C
 
 C
 $	 T    T
 C
  T   Entgeltstufe 2% C
 % C
 H	? T    T
 C
  T   Entgeltstufe 3% C
 I C
 x	 T    T
 C
  T   Entgeltstufe 4% C
 y C
 	 T    T
 C
  T   Entgeltstufe 5 C
  T    T
 C
  T   Entgeltstufe 6$ %C 
 C 
	 T   Entgeltstufe 5   T CC  Rg T
 	   ( T CC  ZY .knftig.StufeB&xxx..SummeB&xxx..Caption = .knftig.StufeB&xxx..EntgeltB&xxx..Caption
Y .knftig.StufeB&xxx..ZulagenB&xxx..Caption = myformat(0, "#,###,##0.00") + " Euro *)"
 
 H] C
 C
 p	
 T   T     T
 	 T!   Entgeltstufe 2! %C
 C
 C3
 
	( T
 4C3
 C
 C
 : T   "  CC4
  #,###,##0.00#   Euro *)? T   $  CC
 C4
  #,###,##0.00#   Euro l	 T
 4 : T   "  CC4
  #,###,##0.00#   Euro *)  C
 C
 

 T 1 T     T
 	 T!   Entgeltstufe 2! %C
 C
 C3
 

( T
 4C3
 C
 C
 : T   "  CC4
  #,###,##0.00#   Euro *)? T   $  CC
 C4
  #,###,##0.00#   Euro 
 T
 4 : T   "  CC4
  #,###,##0.00#   Euro *)  C
 C
 ~
 T  T %   T
 	 T!   Entgeltstufe 3! %C
 C
 C3
 
%( T
 4C3
 C
 C
 : T % &  CC4
  #,###,##0.00#   Euro *)? T % '  CC
 C4
  #,###,##0.00#   Euro z T
 4 : T % &  CC4
  #,###,##0.00#   Euro *)  C
 C
  T 
 T (   T
 	 T!   Entgeltstufe 4! %C
 C
 C3
 

( T
 4C3
 C
 C
 : T ( )  CC4
  #,###,##0.00#   Euro *)? T ( *  CC
 C4
  #,###,##0.00#   Euro  T
 4 : T ( )  CC4
  #,###,##0.00#   Euro *)  C
 C
  T  T +   T
 	 T!   Entgeltstufe 5! %C
 C
 C3
 
5( T
 4C3
 C
 C
 : T + ,  CC4
  #,###,##0.00#   Euro *)? T + -  CC
 C4
  #,###,##0.00#   Euro  T
 4 : T + ,  CC4
  #,###,##0.00#   Euro *)  C
 C
 ] T  T .   T
 	 T!   Entgeltstufe 6$ %C 
 C 
	> T!   Entgeltstufe 5 ! %C
 C
 C3
 
( T
 4C3
 C
 C
 : T . /  CC4
  #,###,##0.00#   Euro *)? T . 0  CC
 C4
  #,###,##0.00#   Euro Y T
 4 : T . /  CC4
  #,###,##0.00#   Euro *)   T C	
 ) T 	 C
 
@  T
  C
  T
 !C
  T
 "C
 $ T
 #C
 0 T
 $C
 <# T
 %C
 C
 
 HX C
 

$ T
  
C
 C
  C
 %
 T
   $ T
 !%C
 C
  C
 I
< T
    T
 ! $ T
 "IC
 C
  C
 y
 T
    T
 !  T
 " $ T
 #yC
 C
  C
 
3 T
    T
 !  T
 "  T
 # $ T
 $C
 C
  C
 -
 T
    T
 !  T
 "  T
 #  T
 $   %C
 , T
 %C
 C
 C
  $ T
 %C
 C
   T
 &   (j# T
 &C&
 C 
  # T
 
C
 C
 
 H>! C	
  %C

  T
   T
 C

   T
 
C

 C
  %C

  
E T
 
   %C

 q T
   T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 $ T
 $ & T
 C

   T
 
C

 C
  %C

  
q T
 
   %C

 0 T
 0  T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 <3 T
 < R T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

   T
 C

   C	
  T
   %C

 ! T
  @ T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 $ T
 $  T
 C

   T
 
C

 C
  %C

  
! T
 
   %C

 0M T
 0 l T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 < T
 <  T
 C

   T
 
C

 C
  %C

  
M T
 
   %C

  } T
 C

   C	
  T
   T
   %C

 $ T
 $  T
 C

   T
 
C

 C
  %C

  
N T
 
   %C

 0z T
 0  T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 < T
 < / T
 C

   T
 
C

 C
  %C

  
z T
 
   %C

   T
 C

   C	
 X T
   T
   T
   %C

 0$ T
 0 C T
 C

   T
 
C

 C
  %C

  
 T
 
   %C

 < T
 <  T
 C

   T
 
C

 C
  %C

  
$ T
 
   %C

  T T
 C

   C	
   T
   T
   T
   T
   %C

 < T
 <    T
 C

   T
 
C

 C
  %C

  
K  T
 
   %C

  {  T
 C

   C	
 >! T
   T
   T
   T
   T
   %C

  ! T
 C

  :! T
     %C
 
r! T
 *C
  ! T
 *   %C	
 !( T
 +C
 C4
 C
  ! T
 +C
 C
   %C	
 6"( T
 ,C
 C4
 C
  ]" T
 ,C
 C
   %C	
 "( T
 -C
 C4
 C
  " T
 -C
 C
   %C	
 #( T
 .C
 C4
 C
  -# T
 .C
 C
   %C	
 n#( T
 /C
 C4
 C
  # T
 /C
 C
  
 H#8% C	
 #5 T1   Stufe 3 ab  C mC 
 
R  C	
 :$5 T1   Stufe 4 ab  C m$C 
 
R  C	
 $5 T1   Stufe 5 ab  C m0C 
 
R  C	
 	% %C 
$ T1  	 Endstufe) %5 T1   Stufe 1 ab  C m<C 
 
R   C	
 8% T1  	 Endstufe)  T
 0   (%# T
 0C0
 C) 
    (]& T CC  ZQ .GesamtA&xxx..Caption = myformat(interim(1+30 + i), "#,###,##0.00") + " Euro"
Q .GesamtB&xxx..Caption = myformat(interim(1+40 + i), "#,###,##0.00") + " Euro"
 9 T2  CC0
 C&
  #,###,##0.00#   Euro T3  CCC
  Z T4 C mC
     T5  C d 4  4 T  6  CCC
  Z  Monate0 T . 7  CCC
  Z  Monate T8 C 
 R T CC8 g, T C
C  C '
 H'(% C   C 	
(# T CC   C R(3 T CC  C
C   C 	(3 T CC  C
C  % C 
 C 	(# T C
C    T C  %C 

:)$ T  C C ' f)$ T  C C ' % T9  CC 	 ##,###.00# % T:  CC  	 ##,###.00# - T;  CC  C 	 ##,###.00#  %C  C R*- T;  CC  C 	 ##,##0.00#  T<  	 also mehr T= > ?  *- T;  CC C  	 ##,##0.00#  T= > @  T<   also weniger - %CC  C
C   * T= A   0,00 Y+S T= A  CC C  CC  C
C  d #0.00#    UB  MYHHERGRUPPIERUNG ZI	 ATZTRESOR SOZA VORSOZA WEIHALT CAPTION WEIHNEU ZEIGER LEFT INTERIM FAHNE GARANTIEFELD VALUE DATEADD
 BASISDATUM	 ENDEFAHNE	 BEGRENZER WIDTH MONATEAB I XXX BISHER STUFEA1 BORDERWIDTH AUSGANGSTUFE STUFEA2 STUFEA3 STUFEA4 STUFEA5 STUFEA6 KNFTIG STUFEB2
 ERGEBNISSTUFE	 ZULAGENB2 MYFORMAT SUMMEB2 STUFEB3	 ZULAGENB3 SUMMEB3 STUFEB4	 ZULAGENB4 SUMMEB4 STUFEB5	 ZULAGENB5 SUMMEB5 STUFEB6	 ZULAGENB6 SUMMEB6 NCHSTERAUFSTIEG RESULTAT	 MONATEBIS MSG	 ENDEDATUM
 LAUFZEITA6
 LAUFZEITB6 MSG1 WEIHGELDALT WEIHGELDNEU	 WEIHSALDO VORSILBE FAKTORTRGER VISIBLE FALSE TRUE FAKTOR Click,     1  pqQ QA r A  QA  QA rqqB  QArQArQArQArQArQArAA A 2qqA   A2 1A  A2 1A  A2 1A  A2 1A  A1 1A  A2BA  1A A r1 QAQ1AQ11AQ111AQ1111Aa11111A R AA 2r1A 3 QQ1 qA R1A R1 qA R1A R1 qA R1A R1 qA R1A R1 qA R1A RqA R1R1 qA R1A R1 qA R1A R1 qA R1A R1 qA R1A RqA R11R1 qA R1A R1 qA R1A R1 qA R1A RqA R111R1 qA R1A R1 qA R1A RqA R1111R1 qA R1A RqA R11111Rq 1A A R 1A R A R A R A R A R A  QQQQQQQQ QA QA 2r1A rqA Ac Q1Q1Q1Q1A RA AA RQ A  1A A 1                       T      )   (2                        	container      	container      faktortrger      FORM1      HTop = 308
Left = 684
Width = 358
Height = 25
Name = "faktortrger"
      label      label      Label26      FORM1.faktortrger      WordWrap = .F.
Caption = "mal Differenz zwischen alter und neuer Stufe"
Height = 19
Left = 68
Top = 4
Width = 270
Name = "Label26"
      label      label      Label18      FORM1.faktortrger      _WordWrap = .F.
Caption = '"="'
Height = 19
Left = 8
Top = 4
Width = 15
Name = "Label18"
      /PROCEDURE Init
this.caption = "="

ENDPROC
                                      D   %   S       g      a             U    T    = U  THIS CAPTION Init,     1 2                       $       )                            label      label      faktor      FORM1.faktortrger      RCaption = "faktor"
Height = 19
Left = 30
Top = 4
Width = 33
Name = "faktor"
      label      label      Label8      FORM1      PCaption = "ab"
Height = 16
Left = 402
Top = 54
Width = 19
Name = "Label8"
      label      label      monateab      FORM1      ZCaption = "143. Monat"
Height = 16
Left = 421
Top = 54
Width = 67
Name = "monateab"
      label      label      	monatebis      FORM1      TCaption = "180"
Height = 16
Left = 488
Top = 54
Width = 29
Name = "monatebis"
      label      label      Label18      FORM1      VCaption = "Monat ("
Height = 16
Left = 519
Top = 54
Width = 43
Name = "Label18"
      label      label      	endedatum      FORM1      ^Caption = "1. Nov. 2020)"
Height = 16
Left = 565
Top = 54
Width = 80
Name = "endedatum"
      
commandbutton      
commandbutton      Command1      FORM1      pTop = 33
Left = 318
Height = 16
Width = 28
Caption = "an"
Enabled = .F.
Visible = .F.
Name = "Command1"
      'PROCEDURE Click
xstep = .t.
ENDPROC
                                         %   E       Z      T             U    T  a U  XSTEP Click,     1  1                              )                            
commandbutton      
commandbutton      Command2      FORM1      qTop = 33
Left = 351
Height = 16
Width = 28
Caption = "aus"
Enabled = .F.
Visible = .F.
Name = "Command2"
      'PROCEDURE Click
xstep = .f.
ENDPROC
                                         %   E       Z      T             U    T  - U  XSTEP Click,     1  1                              )                            xslider      foxyslider.vcx      	container      Hscroll1      FORM1     xTop = 48
Left = 705
Width = 342
Height = 26
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 300
showtips = .T.
min = 180
showtipsalways = .T.
Name = "Hscroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     `PROCEDURE scroll
With thisform
	interim(1+7) = .HScroll1.Value
	.bisher.stufeA6.NummerA7.Caption = ALLTRIM(STR(interim(1+7),10,0)) + ". Monat"
	.bisher.stufeA6.LaufzeitA6.Caption = ALLTRIM(STR(interim(1+7) - 180,10,0)) + " Monate"
endwith


thisform.Begrenzer.Left = interim(1+7) * 3.7 && HS vorher + 120

thisform.berechnen.click 
ENDPROC
                                   X   %   f        	   v            U   
     T   0 T    CCC 
 Z . Monat4 T    CCC 
 Z  Monate # T  	 
 C 
@
      U
  THISFORM INTERIM HSCROLL1 VALUE BISHER STUFEA6 NUMMERA7 CAPTION
 LAUFZEITA6	 BEGRENZER LEFT	 BERECHNEN CLICK scroll,     1  qAA 3 1                       U      )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
.  m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _46Q0O0A801430958628      /  F      ]                                                       WINDOWS _46Q0O0A811546485085                      s                                               WINDOWS _6A00NDJRW1517051096%      6  G  T  a                                                       WINDOWS _6A00NDJRX1466866548\      i  v                                                           WINDOWS _4M90WHDN21466866548      !  6  L  Y                                                       WINDOWS _4X40YQX5D1431474294                                                                       WINDOWS _4X40YQX5E1466866548;      J  Y  f          n                                               WINDOWS _46Q0O0A801381452569                                                                       WINDOWS _4X40YQX5F1381452569:      G  T  b  {                                                           WINDOWS _5ZL0K6CG61381452569            !                                                           WINDOWS _4M917DPB01466866548                  @                                                 WINDOWS _4XI0WCPNT1420597751                                                                       WINDOWS _46Q0O0A801466866548y                  "  m                                               WINDOWS _46Q0O0A801466866548                  P                                                 WINDOWS _4XH18YSQ61466866548                                                                   WINDOWS _46Q0O0A801466866548      # . ;                                                    WINDOWS _46Q0O0A8014668665484     C R \ i      %                                              WINDOWS _46Q0O0A801466866548`	     o	 ~	 	 	     
 Q                                              WINDOWS _4XH19RPTN1466866548
     
 
 
 
     3 }                                              WINDOWS _4XH19RPTO1466866548             a                                               WINDOWS _4XH19RPU31466866548                                                            WINDOWS _4XH19RPU41466866548     % 4 ? L      	                                              WINDOWS _4XJ18ZYUI1466866548D     S b o |      	                                               WINDOWS _4XN0W821T1254455362!     ! ! ! "                                                          WINDOWS _4XN0VQT1J1254454850U"     b" o" " "                                                          WINDOWS _4XN0VHD6Z1254454570"     " "  # 
#                                                          WINDOWS _46Q0O0A801466866548Y#     n# # # #     <$ %%                                              WINDOWS _46Q0O0A801466866548&     ' ' '' 4'     ' (                                              WINDOWS _4XH19RPSD1466866548*     * * * *     u+ ^,                                              WINDOWS _46Q0S0GDM1466866548).     6. C. U. b.     . /                                              WINDOWS _46Q0O0A801466866548d1     q1 ~1 1 1     1 2                                              WINDOWS _46Q0O0A8014314743414 4 4 4 4 4                                                          WINDOWS _46Q0O0A8514668665485     5 5 5 5     6 6                                              WINDOWS _46Q0O0A8614668665488     8 8 8 
9     9 <                                              WINDOWS _46Q0O0A871466866548@     @ A A "A     A C                                              WINDOWS _46Q0O0A881466866548hF     }F F F F     G AH                                              WINDOWS _46Q0O0A891466866548XJ     mJ J J J     RK L                                              WINDOWS _46Q0O0A8A1466866548N     N N N N     O uP                                              WINDOWS _46Q0O0A8B1466866548@R     UR jR vR R     R T                                              WINDOWS _46Q0O0A8C14668665480V     EV ZV fV sV     V mX                                              WINDOWS _46Q0O0A8D1466866548Z     Z [ [ ![     m[ V\                                              WINDOWS _46Q0O0A8E1466866548!^     6^ K^ U^ b^     ^ `                                              WINDOWS _46Q0O0A8F1501328355c     c c c c     Dd @f                                              WINDOWS _46Q0O0A8G14668665481i     Fi [i gi ti     i k                                              WINDOWS _46Q0O0A8H1466866548"m     7m Lm Xm em     m Oo                                              WINDOWS _46Q0O0A8J1466866548q     q q r r     r s                                              WINDOWS _46Q0O0A8K1466866548u     u u u u     sv w                                              WINDOWS _46Q0O0A811466866548ez     tz z z z     P{ }                                              WINDOWS _46Q0O0A8M1466866548(     = R \ i     ہ                                               WINDOWS _46Q0O0A8N1466866548      ԇ އ      ]                                               WINDOWS _46Q0O0A8O1466866548Ì     ،        {                                               WINDOWS _46Q0O0A8P1466866548     ɐ ސ       k                                               WINDOWS _46Q0O0A8Q1466866548]     r         7                                              WINDOWS _46Q0O0A8R1466866548N     c x        {                                              WINDOWS _46Q0O0A8T1466866548      ! - :      џ                                              WINDOWS _46Q0O0A8U1466866548        +                                                    WINDOWS _46Q0O0A801466866548       Ŧ Ҧ     E                                               WINDOWS _46Q0O0A841466866548      ի       c                                               WINDOWS _46Q0O0A851466866548      Ư ү ߯     S ɱ                                              WINDOWS _46Q0O0A861466866548E     R _ m z                                                    WINDOWS _46Q0O0A871466866548     ͷ        p                                               WINDOWS _46Q0O0A881466866548      ӻ ߻      ` ֽ                                              WINDOWS _46Q0O0A8B1466866548R     g |       
 ,                                              WINDOWS _46Q0O0A8C1466866548C     X m y       p                                              WINDOWS _46Q0O0A8D1466866548       # 0                                                    WINDOWS _46Q0O0A8E1466866548      
  $                                                    WINDOWS _46Q0O0A8F1466866548             ( m                                              WINDOWS _46Q0O0A8G1466866548             A *                                              WINDOWS _46Q0O0A8H1466866548        *      {                                              WINDOWS _46Q0O0A8I1466866548F     S ` n {                                                    WINDOWS _46Q0O0A8J1466866548             4                                               WINDOWS _46Q0O0A8K1466866548              n                                              WINDOWS _46Q0O0A8M14668665489     H W a n     %                                               WINDOWS _46Q0O0A8N1466866548                                                            WINDOWS _46Q0O0A8O1466866548h     w        S                                               WINDOWS _46Q0O0A8P1466866548       ' 4                                                    WINDOWS _46Q0O0A8Q1466866548T     c r ~      d                                               WINDOWS _46Q0O0A8R1466866548                                                              WINDOWS _46Q0O0A8S1466866548,     ; J V c      L                                              WINDOWS _46Q0O0A8T1466866548             ;	 p
                                              WINDOWS _46Q0O0A8U1466866548             Q
                                               WINDOWS _46Q0O0A801466866548             ~                                               WINDOWS _46Q0O0A831466866548                                                            WINDOWS _46Q0O0A841466866548       $ 1                                                    WINDOWS _46Q0O0A851466866548      , 8 E                                                    WINDOWS _46Q0O0A861466866548!     +! @! L! Y!     ! #                                              WINDOWS _46Q0O0A871466866548*%     ?% T% `% m%     % '                                              WINDOWS _46Q0O0A881466866548>)     S) h) t) )     ) ++                                              WINDOWS _46Q0O0A891466866548R-     g- |- - -     
. ?/                                              WINDOWS _46Q0O0A8A1466866548f1     {1 1 1 1     2 S3                                              WINDOWS _46Q0O0A8B1466866548z5     5 5 5 5     46 i7                                              WINDOWS _46Q0O0A8C14668665489     9 9 9 9     J: ;                                              WINDOWS _46Q0O0A8D1466866548=     = = = =     `> ?                                              WINDOWS _46Q0O0A8E1466866548A     A A A A     tB C                                              WINDOWS _46Q0O0A8F1466866548E     E E F F     F G                                              WINDOWS _46Q0O0A801466866548I     I J J 'J     J K                                              WINDOWS _46Q0O0A8H1466866548M     
N "N .N ;N     N O                                              WINDOWS _46Q0O0A8I1466866548R     !R 6R BR OR     R S                                              WINDOWS _46Q0O0A8J1466866548 V     5V JV VV cV     V 
X                                              WINDOWS _46Q0O0A8K14668665484Z     IZ ^Z jZ wZ     Z !\                                              WINDOWS _46Q0O0A811466866548H^     ]^ r^ ~^ ^      _ 5`                                              WINDOWS _46Q0O0A8M1466866548\b     qb b b b     c Kd                                              WINDOWS _46Q0O0A8N1466866548rf     f f f f     ,g ah                                              WINDOWS _46Q0O0A8O1466866548j     j j j j     Bk wl                                              WINDOWS _46Q0O0A8P1466866548n     n n n n     Vo p                                              WINDOWS _46Q0P5MCU1466866548r     r r r r     6s t                                              WINDOWS _46Q0P5MCV1466866548u     u v v  v     v 0y                                              WINDOWS _46Q0P5MCW1466866548|     | | | |     n}                                                WINDOWS _46Q0P5MCX1479696017ԁ       	       I                                              WINDOWS _46Q0P5MCY1466866548y             3 V                                              WINDOWS _46Q0P5MCZ1466866548m             &                                               WINDOWS _46Q0P5MD01466866548     - B O \     ҕ                                               WINDOWS _46Q0P5MD11466866548     ! 6 C P     ř ;                                              WINDOWS _46Q0P5MD21466866548     ̝        n m                                              WINDOWS _46Q0O0A801466866548      ǧ ҧ ߧ     T Q                                              WINDOWS _46Q0P5MD31466866548        ű     ; ^                                              WINDOWS _46Q0P5MD41466866548u             .                                               WINDOWS _46Q0O0A811466866548      5 J W d     ں                                               WINDOWS _46Q0O0A821466866548     ) > K X     ; C                                              WINDOWS _46Q0P5MD51466866548              w                                              WINDOWS _46Q0O0A831466866548X     g v       E                                               WINDOWS _46Q0P5MD61466866548     . = H U      _                                              WINDOWS _46Q0P5MD71466866548                                                            WINDOWS _46Q0P5MD81466866548?     N ] j w     ) a                                              WINDOWS _46Q0O0A841466866548                                                            WINDOWS _46Q0P5MD91466866548         )                                                    WINDOWS _46Q0O0A801466866548J     _ t        9                                              WINDOWS _46Q0O0A851466866548`     u         O                                              WINDOWS _46Q0P5MDA1466866548v             0 e                                              WINDOWS _46Q0P5MDB1466866548             F {                                              WINDOWS _46Q0P5MDC1466866548             \                                               WINDOWS _46Q0P5MDD1466866548             r                                               WINDOWS _46Q0P5MDE1466866548                                                               WINDOWS _46Q0P5MDF1466866548        (                                                    WINDOWS _46Q0P5MDG1466866548      $ 1 >      	                                              WINDOWS _46Q0P5MDH1466866548     % : G T      
                                              WINDOWS _46Q0P5MDI1466866548&     ; P ] j                                                    WINDOWS _46Q0O0A861466866548<     Q f s       +                                              WINDOWS _46Q0O0A871466866548R     g |        A                                              WINDOWS _46Q0O0A881466866548h     }        " W                                              WINDOWS _46Q0P5MDJ1466866548~                  8! m"                                              WINDOWS _46Q0P5MDK1466866548$     $ $ $ $     N% &                                              WINDOWS _46Q0P5MDL1466866548(     ( ( ( (     d) *                                              WINDOWS _46Q0P5MDM1466866548,     , , , -     z- .                                              WINDOWS _46Q0P5MDN14668665480     0  1 
1 1     1 2                                              WINDOWS _46Q0P5MDO14668665484     5 5 #5 05     5 6                                              WINDOWS _46Q0P5MDP14668665489     9 ,9 99 F9     9 :                                              WINDOWS _46Q0P5MDQ1466866548=     -= B= O= \=     = ?                                              WINDOWS _46Q0O0A891466866548.A     CA XA eA rA     A C                                              WINDOWS _46Q0O0A8A1466866548DE     YE nE {E E     E 3G                                              WINDOWS _46Q0O0A8B1466866548ZI     oI I I I     J IK                                              WINDOWS _46Q0P5MDR1466866548pM     M M M M     *N _O                                              WINDOWS _46Q0P5MDS1466866548Q     Q Q Q Q     @R uS                                              WINDOWS _46Q0O0A801466866548U     U U U U     SV X                                              WINDOWS _46Q0O0A811466866548Z     Z Z Z Z     s[ \                                              WINDOWS _46Q0O0A821466866548^     ^ ^ ^ ^     f_ `                                              WINDOWS _46Q0O0A831466866548Xc     gc vc c c     Ed f                                              WINDOWS _46Q0O0A841466866548h      i i i )i     i k                                              WINDOWS _46Q0O0A851466866548Jm     _m tm m m     n 9o                                              WINDOWS _46Q0O0A861466866548`q     uq q q q     r Os                                              WINDOWS _46Q0O0A871466866548vu     u u u u     0v ew                                              WINDOWS _46Q0O0A881466866548y     y y y y     Fz {{                                              WINDOWS _46Q0O0A891466866548}     } } } }     \~                                               WINDOWS _46Q0O0A8A1466866548     ́        r                                               WINDOWS _46Q0P5MDT1466866548΅              7                                              WINDOWS _46Q0P5MDU1466866548        " /      Ȍ                                              WINDOWS _46Q0P5MDV1466866548ߎ      	  #                                                    WINDOWS _46Q0P5MDW1466866548             w B                                              WINDOWS _46Q0P5MDX1466866548#     2 A N [     
 E                                              WINDOWS _46Q0P5MDY1466866548|             6 k                                              WINDOWS _46Q0P5MDZ1466866548       ɡ ֡     L                                               WINDOWS _46Q0P5ME01466866548      ҥ ߥ      b                                               WINDOWS _46Q0P5ME11466866548     ө        x                                               WINDOWS _46Q0P5ME21466866548ԭ              ï                                              WINDOWS _46Q0P5ME31466866548       ! .      ٳ                                              WINDOWS _46Q0O0A801466866548      
  + 8      l                                              WINDOWS _46Q0O0A8114668665487     F U ` m     $                                               WINDOWS _46Q0O0A801466866548о              #                                              WINDOWS _46Q0O0A831466866548              *                                              WINDOWS _46Q0O0A841466866548        "                                                    WINDOWS _46Q0O0A851466866548       	                                                     WINDOWS _46Q0O0A801466866548}             ? (                                              WINDOWS _46Q0O0A871466866548       * 7                                                    WINDOWS _46Q0O0A881466866548        +                                                    WINDOWS _46Q0O0A891466866548             I {                                              WINDOWS _46Q0O0A8A1466866548
      4 A N                                                    WINDOWS _46Q0O0A8B1466866548      ( 5 B      -                                              WINDOWS _46Q0O0A8C1466866548              a                                              WINDOWS _46Q0O0A8D1466866548B     Q ` k x     /                                               WINDOWS _46Q0O0A8E1466866548                                                            WINDOWS _46Q0O0A8F14668665485     D S ` m      W                                              WINDOWS _46Q0O0A8G1466866548                  x                                               WINDOWS _46Q0O0A8H1466866548        +                                                    WINDOWS _46Q0O0A8I1466866548     	 '	 4	 A	     	 
                                              WINDOWS _46Q0O0A8J1466866548
     (
 =
 J
 W
     
                                               WINDOWS _46Q0O0A8K1466866548)     > S ` m                                                    WINDOWS _46Q0O0A811466866548?     T i v       .                                              WINDOWS _46Q0O0A8M1466866548U     j         D                                              WINDOWS _46Q0O0A8N1466866548k             % Z                                              WINDOWS _46Q0O0A8O1466866548!     ! ! ! !     ;" p#                                              WINDOWS _46Q0O0A8P1466866548%     % % % %     Q& '                                              WINDOWS _46Q0O0A8Q1466866548)     ) ) ) )     g* +                                              WINDOWS _46Q0O0A8R1466866548-     - - - .     }. /                                              WINDOWS _46Q0O0A8S14668665481     1 2 2 2     2 3                                              WINDOWS _46Q0O0A8T14668665485     6 6 &6 36     6 7                                              WINDOWS _46Q0O0A8U1466866548:     : /: <: I:     : ;                                              WINDOWS _46Q0O0A801466866548>     0> E> R> _>     > 
@                                              WINDOWS _46Q0O0A8314668665481B     FB [B hB uB     B  D                                              WINDOWS _46Q0O0A841466866548GF     \F qF ~F F     G 6H                                              WINDOWS _46Q0O0A851466866548]J     rJ J J J     K LL                                              WINDOWS _46Q0O0A861466866548sN     N N N N     -O bP                                              WINDOWS _46Q0PXA6K1466866548R     R R R R     S S                                              WINDOWS _46Q0O0A801466866548U     U U U U     V cX                                              WINDOWS _46Q0PXA6M1466866548D[     Y[ n[ y[ [     \ ]                                              WINDOWS _46Q0PXA6O1466866548`     ` ` ` `     Ba eb                                              WINDOWS _46Q0PXA6P1466866548|d     d d d d     5e f                                              WINDOWS _46Q0O0A801466866548'i     4i Ai Pi ]i     i j                                              WINDOWS _46Q0PXA6Q1466866548l     l l l l     Tm wn                                              WINDOWS _46Q0PXA6R1466866548p     p p p p     Gq r                                              WINDOWS _46Q0PXA6S14668665489u     Nu cu nu {u     u w                                              WINDOWS _46Q0PXA6T1466866548Pz     ez zz z z     
{ -|                                              WINDOWS _46Q0PXA6U1466866548D~     Y~ n~ {~ ~     ~ s                                              WINDOWS _46Q0O0A811466866548      
  %     ȃ                                               WINDOWS _46Q0PXA6W1466866548t             L                                               WINDOWS _46Q0O0A801466866548       # 0                                                    WINDOWS _46Q0O0A831466866548Q     ` o |      ; s                                              WINDOWS _46Q0PXA701466866548      Ė Ӗ      d M                                              WINDOWS _46Q0O0A801466866548     ' 6 @ M     Қ                                               WINDOWS _46Q0O0A811466866548|             6                                               WINDOWS _46Q0O0A8014668665487     F U a n     < t                                              WINDOWS _46Q0O0A801466866548      ɪ ժ                                                     WINDOWS _46Q0Q28MR1466866548     . = G T     گ                                               WINDOWS _46Q0Q28MS1466866548             ?                                               WINDOWS _46Q0Q28MT1466866548>     M \ h u     C {                                              WINDOWS _46Q0Q28MU1466866548      п ܿ                                                     WINDOWS _46Q0S0GEH1466866548&     3 @ Q ^                                                    WINDOWS _46Q0S0GEI1466866548_     n }       K                                               WINDOWS _46Q0O0A811466866548      
  %      6                                              WINDOWS _46Q0O0A801466866548       ! .                                                    WINDOWS _46Q0O0A831466866548        "                                                    WINDOWS _46Q0S0GEJ1466866548             \ E                                              WINDOWS _46Q0O0A841466866548     % : G T                                                    WINDOWS _46Q0O0A851466866548      . ; H      3                                              WINDOWS _46Q0O0A861466866548             f                                               WINDOWS _46Q0O0A871466866548       ' 4      5                                              WINDOWS _46Q0O0A8014668665486     K ` m z                                                    WINDOWS _46Q0O0A891466866548*     ? T a n      Y                                              WINDOWS _46Q0O0A8A1466866548                                                             WINDOWS _46Q0O0A8B1466866548                                                            WINDOWS _46Q0O0A801466866548v             b -
                                              WINDOWS _46Q0S0GEL1466866548
     
 ,
 7
 D
     
                                               WINDOWS _46Q0S0GEM1466866548              ^                                              WINDOWS _46Q0S0GEN1466866548?     N ] j w     ( `                                              WINDOWS _46Q0S0GEO1466866548                                                            WINDOWS _46Q0O0A801466866548        
! ! '!     ! #                                              WINDOWS _46Q0S0GEQ1466866548H%     W% f% s% %     1& i'                                              WINDOWS _46Q0S0GER1466866548)     ) ) ) )     X* 	,                                              WINDOWS _46Q0O0A801466866548.     . / / /     / o3                                              WINDOWS _46Q0S0GET1466866548r8     8 8 8 8     -9 P:                                              WINDOWS _46Q0S0GEU1466866548g<     |< < < <     != >                                              WINDOWS _46Q0S0GEV1466866548A     (A =A JA WA     A B                                              WINDOWS _46Q0S0GEW1466866548E     E 2E ?E LE     E GG                                              WINDOWS _46Q0O0A801466866548I     I I I J     {J L                                              WINDOWS _46Q0O0A811466866548N     N N 
O O     O +Q                                              WINDOWS _46Q0O0A801466866548S     S T T +T     T U                                              WINDOWS _46Q0O0A831466866548W     W X X  X     X Z                                              WINDOWS _46Q0O0A841466866548\     \ \ \ \     E] h^                                              WINDOWS _46Q0O0A851466866548`     ` ` ` `     9a b                                              WINDOWS _46Q0S0GEX1466866548+e     @e Ue `e me     e g                                              WINDOWS _46Q0S0GEY1466866548=j     Rj gj rj j     j l                                              WINDOWS _46Q0S0GEZ1466866548Oo     do yo o o     
p -q                                              WINDOWS _46Q0S0GF01466866548Ds     Ys ns {s s     s tu                                              WINDOWS _46Q0O0A801466866548w     x x 'x 4x     x y                                              WINDOWS _46Q0O0A811466866548{     { | | )|     | ~                                              WINDOWS _46Q0O0A801466866548        ɀ                                                    WINDOWS _46Q0O0A801466866548ʃ     ك                                                        WINDOWS _46Q0O0A801466866548c     x                                                       WINDOWS _46Q0O0A831466866548u             - ː                                              WINDOWS _46Q0O0A841466866548        ˓     B e                                              WINDOWS _46Q0O0A851466866548|             6                                               WINDOWS _46Q0O0A801466866548(     5 B Q ^      ̝                                              WINDOWS _46Q0O0A871466866548       Ο ۟     R u                                              WINDOWS _46Q0O0A881466866548       ã У     F                                               WINDOWS _46Q0O0A8914668665488     M b m z                                                    WINDOWS _46Q0O0A8A1466866548J     _ t        (                                              WINDOWS _46Q0O0A8B1466866548?     T i v       ~                                              WINDOWS _46Q0O0A811466866548     	  # 0                                                    WINDOWS _46Q0S0GDM1466866548        ɻ      K                                              WINDOWS _46Q0O0A8E1466866548,     ; J W d      N                                              WINDOWS _46Q0O0A8F1466866548             o                                               WINDOWS _46Q0O0A8G1466866548       	                                                      WINDOWS _46Q0S0GF314668665487     D Q b o                                                    WINDOWS _46Q0O0A801466866548q             ^ )                                              WINDOWS _46Q0O0A811531793153
      4 ? L      h                                              WINDOWS _46Q0O0A801466866548C     X m x       U                                              WINDOWS _46Q0O0A831466866548      ) 6 C                                                    WINDOWS _46Q0O0A841466866548     	  + 8      $                                              WINDOWS _46Q0S0GF41466866548             o X                                              WINDOWS _46Q0O0A851466866548#     8 M Z g                                                    WINDOWS _46Q0O0A861466866548     - B O \      H                                              WINDOWS _46Q0O0A871466866548              |                                                WINDOWS _46Q0O0A881466866548        
                                                     WINDOWS _46Q0O0A891466866548       	 	     	 
                                              WINDOWS _46Q0O0A8A1466866548w
     
 
 
 
     d /                                              WINDOWS _46Q0O0A8B1466866548      . 9 F                                                    WINDOWS _46Q0O0A8C1466866548                                                            WINDOWS _46Q0O0A8D1466866548        - :      $                                              WINDOWS _46Q0O0A8E1466866548[!     j! y! ! !     E" }#                                              WINDOWS _46Q0O0A801466866548%     % % % %     & l(                                              WINDOWS _46Q0S0GF61466866548M+     b+ w+ + +     , -                                              WINDOWS _46Q0S0GF71466866548_0     t0 0 0 0     1 2                                              WINDOWS _46Q0S0GF81466866548t5     5 5 5 5     /6 R7                                              WINDOWS _46Q0S0GF91466866548i9     ~9 9 9 9     #: ;                                              WINDOWS _46Q0S0GFA1466866548>     *> ?> L> Y>     > ?                                              WINDOWS _46Q0S0GFB1466866548
B     B 4B AB NB     B :D                                              WINDOWS _46Q0S0GFC1466866548F     F F F F     nG .J                                              WINDOWS _46Q0S0GFD1466866548 N     N *N 7N DN     N O                                              WINDOWS _46Q0S0GFE1466866548Q     
R R ,R 9R     R %T                                              WINDOWS _46Q0S0GFF1466866548V     V V V V     W YY                                              WINDOWS _46Q0O0A801466866548:\     I\ X\ c\ p\     \ _^                                              WINDOWS _46Q0S0GFH1466866548`     ` ` a a     a b                                              WINDOWS _46Q0S0GFI14668665486e     Ee Te ae ne      f Xg                                              WINDOWS _46Q0S0GFJ1466866548i     i i i i     yj k                                              WINDOWS _46Q0O0A801466866548m     m n n  n     nn Wo                                              WINDOWS _46Q0S0GFK1466866548"q     1q @q Kq Xq     r t                                              WINDOWS _46Q0S0GFL1466866548x     x x x x     7y z                                              WINDOWS _46Q0S0GFM1519802834}     } } } }     K~                                               WINDOWS _46Q0S0GFN1466866548|             7 Z                                              WINDOWS _46Q0S0GFO1466866548q             :                                               WINDOWS _46Q0S0GFP1466866548,     9 F U b                                                    WINDOWS _46Q0S0GFQ1466866548     Ԕ        z                                               WINDOWS _46Q0S0GFR1466866548     ɘ ޘ       n                                               WINDOWS _46Q0O0A801519802834`     u                                                       WINDOWS _46Q0O0A811466866548w             2 U                                              WINDOWS _46Q0O0A801466866548l             &                                               WINDOWS _46Q0S0GFS1466866548     ' 6 A N      в                                              WINDOWS _46Q0O0A831466866548      ϵ ڵ                                                     WINDOWS _46Q0S0GFT1466866548        !     ӽ                                               WINDOWS _46Q0S0GFU1466866548B     Q ` m z     , d                                              WINDOWS _46Q0O0A841466866548                                                            WINDOWS _46Q0O0A801519802834     	  ) 6                                                    WINDOWS _46Q0O0A811466866548       5 B O                                                    WINDOWS _46Q0O0A801466866548       * 7 D      0                                              WINDOWS _46Q0O0A831466866548                                                            WINDOWS _46Q0O0A841466866548                                                            WINDOWS _46Q0O0A801466866548=     R g r                                                     WINDOWS _46Q0S0GFW1466866548O     d y       
 -                                              WINDOWS _46Q0S0GFX1466866548D     Y n {       t                                              WINDOWS _46Q0S0GFY1466866548        &                                                    WINDOWS _46Q0S0GFZ1466866548             s                                               WINDOWS _46R0NJEL81517051096                                                                 WINDOWS _46R0Q4AXQ1466866548T     a n }                                                     WINDOWS _46Q0O0A801466866548             j g	                                              WINDOWS _46Q0O0A801466866548       
 
     
                                               WINDOWS _46R0Q4AXR1466866548       * 7                                                    WINDOWS _46Q0O0A801466866548     + @ O \      "                                              WINDOWS _46Q0O0A811466866548_     t        : k                                              WINDOWS _46R0Q4AXS1466866548!     ! ! ! !     " #                                              WINDOWS _46R0Q4AXT1466866548%     & & *& 7&     & '                                              WINDOWS _46Q0O0A801466866548:*     O* d* s* *     + A,                                              WINDOWS _46R0Q4AXU1466866548~.     . . . .     T/ 0                                              WINDOWS _46Q0O0A8014668665482     2 2 2 3     3 L6                                              WINDOWS _46Q0O0A811466866548Y:     n: : : :     +; =                                              WINDOWS _46Q0S0GDM1466866548A     A B !B .B     B nE                                              WINDOWS _46Q0O0A801466866548{I     I I I I     XJ 
M                                              WINDOWS _46Q0O0A831466866548Q     ,Q AQ NQ [Q     Q T                                              WINDOWS _46Q0O0A801466866548X     X Y Y ,Y     Y [                                              WINDOWS _46Q0O0A811466866548^     ^ ^ ^ _     _ ca                                              WINDOWS _46Q0S0GDM1466866548d     d d d d     Re 4g                                              WINDOWS _46Q0O0A801466866548hj     }j j j j     $k m                                              WINDOWS _46Q0O0A831466866548:p     Op dp pp }p     p r                                              WINDOWS _46Q0O0A801466866548
v     v 4v @v Mv     v x                                              WINDOWS _46Q0O0A811466866548{     { | | |     | x~                                              WINDOWS _46Q0S0GDM1466866548      ց       i K                                              WINDOWS _46Q0O0A801468353775             :                                               WINDOWS _46Q0O0A831468353775P     e z       
                                               WINDOWS _46R0Q4AXV1468353775      5 J W d     ܓ                                               WINDOWS _46R0Q4AXW1466866548       * 7                                                    WINDOWS _46R0Q4AXX1466866548ƞ     ۞   
                                                    WINDOWS _46R0QXK1U1466866548       * 7                                                    WINDOWS _46Q0O0A801494042347t                                                            WINDOWS _46Q0O0A801466866548b     q        O                                               WINDOWS _4DY1CC30W1466866548l     {         `                                              WINDOWS _46Q0O0A801519995959             ` (                                              WINDOWS _4FW18OZ4M1466866548         -                                                    WINDOWS _46Q0O0A801512723062              V                                              WINDOWS _4FX0LQMMT1512723062        &      q                                              WINDOWS _46Q0O0A801466866548        ,                                                    WINDOWS _46Q0O0A801466866548w                                                            WINDOWS _46Q0O0A801466866548}             x                                               WINDOWS _4LY13TSEX1466866548r             [                                               WINDOWS _4LY13TSEY1466866548                 N 7                                              WINDOWS _46Q0O0A801466866548      , = J                                                    WINDOWS _4LY13TSEZ1466866548              	                                              WINDOWS _4LY13TSF01466866548R     _ l }       k
                                              WINDOWS _46Q0O0A801466866548             r )                                              WINDOWS _4LY13TSF11466866548       $ 1                                                    WINDOWS _46Q0O0A801466866548             r                                               WINDOWS _46Q0O0A801466866548        !      '                                               WINDOWS _46Q0O0A801466866548"     " " " "     # %                                              WINDOWS _46Q0O0A801466866548'     ' ' ' '     j( 
*                                              WINDOWS _46Q0O0A801466866548,     , , , ,     - /                                              WINDOWS _46Q0O0A8014668665481     1 1 1 1     2 3                                              WINDOWS _46Q0O0A8015198097786     6 6 6 6     V7 8                                              WINDOWS _46Q0O0A811466866548:;     O; d; s; ;     < =                                              WINDOWS _46Q0O0A8014668665483@     H@ ]@ l@ y@     A B                                              WINDOWS _46Q0O0A801519996040)E     >E SE bE oE     E kI                                              WINDOWS _46Q0O0A801519996058M     -M BM QM ^M     M BQ                                              WINDOWS _4LY14AB791466866548T     T T T T     {U |W                                              WINDOWS _46Q0O0A801519996053Z     Z Z Z Z     {[ ^                                              WINDOWS _46Q0O0A801466866548Qb     fb {b b b     Ac d                                              WINDOWS _46Q0O0A8014668665489g     Ng cg rg g     *h i                                              WINDOWS _46Q0O0A801466866548#l     8l Ml \l il     m n                                              WINDOWS _4M00XIFAG1466866548;q     Pq eq tq q     +r s                                              WINDOWS _46Q0O0A801534284013u     v $v 2v ?v     v ox                                              WINDOWS _46Q0O0A801466866548{     -{ B{ Q{ ^{     { _}                                              WINDOWS _46Q0O0A801494042347             ɀ                                               WINDOWS _4M90WHDN01466866548      % 3 @                                                    WINDOWS _4M90WHDN11480674914n             ` -                                              WINDOWS _4M90WHDN41482312745*     ? T e r      ԑ                                              WINDOWS _46Q0O0A801466866548     ! 6 D Q                                                    WINDOWS _46Q0O0A801466866548      ՙ                                                      WINDOWS _4M90WHDN51466866548        ɞ      ؠ                                              WINDOWS _4M90XFMXC1466866548M     b w                                                      WINDOWS _46Q0O0A801466866548      
  &                                                    WINDOWS _46Q0O0A801466866548     ò ز                                                      WINDOWS _4M90XFMXE1466920458z             I չ                                              WINDOWS _46Q0O0A801466866548~        ļ     ]                                               WINDOWS _46Q0O0A801466866548,     9 F ] j                                                    WINDOWS _46Q0O0A801466866548             d M                                              WINDOWS _4M90XFMXG1466866548     ( 8 I V      M                                              WINDOWS _4M90XFMXH1466866548      
  $                                                    WINDOWS _46Q0O0A801466866548             [ |                                              WINDOWS _4M90XFMXI1466866548L     a v       ;                                               WINDOWS _4M90XO38H1466866548     ! 6 E R      C                                              WINDOWS _46Q0O0A801466866548              q                                              WINDOWS _46Q0O0A801517125330R     a p {      @                                               WINDOWS _4M917DPB11466866548      
  "                                                    WINDOWS _4M917DPB31466866548             t ?                                              WINDOWS _4M917DPB41466866548      / > I V                                                    WINDOWS _46Q0O0A801466866548             d 	 l	                                              WINDOWS _46Q0O0A811466866548Y	     n	 	 	 	     	 
	                                              WINDOWS _4MG0Q81WA1466866548
	     	 !	 -	 :	     	 
	                                              WINDOWS _4MG0Q81WB1466866548	     	 	 	 	     B	 F	                                              WINDOWS _46Q0O0A8015127230623	     H	 ]	 k	 x	     =	 	                                              WINDOWS _4XH0WTLQT1466866548n	     	 	 	 	     [	 	                                              WINDOWS _4XI0O967U1466866548S 	     h 	 } 	  	  	     X!	 "	                                              WINDOWS _46Q0O0A801466866548%	     $%	 9%	 G%	 T%	     %	 D'	                                              WINDOWS _46Q0O0A801466866548)	     )	 )	 )	 )	     *	 +	                                              WINDOWS _4XI0VYTD71466866548!.	     0.	 ?.	 J.	 W.	     .	 0	                                              WINDOWS _4XJ0MGFME1466866548v3	     3	 3	 3	 3	     X4	 6	                                              WINDOWS _4XJ0WGMOQ1466866548)9	     89	 G9	 S9	 `9	     :	 :	                                              WINDOWS _46Q0PXA6N1466866548<	     <	 <	 <	 <	     {=	 ?	                                              WINDOWS _46Q0O0A801466866548A	     A	 A	 B	 B	     B	 C	                                              WINDOWS _4XJ18ZYUJ1466866548tE	     E	 E	 E	 E	     >F	 TG	                                              WINDOWS _4XJ18ZYUK1466866548eI	     zI	 I	 I	 I	     .J	 K	                                              WINDOWS _4XJ18ZYUL1466866548N	     +N	 @N	 KN	 XN	     N	 P	                                              WINDOWS _4XO1386231420597751RR	     _R	 lR	 R	 R	                                                          WINDOWS _4YO15FD391466866548R	     
S	 "S	 2S	 ?S	     S	 !T	                                              WINDOWS _4MC0W4H0C1466866548U	     U	  U	 +U	 8U	     U	 W	                                              WINDOWS _46Q0O0A801533955324;Y	     PY	 eY	 vY	 Y	     Z	 ]	                                              WINDOWS _5TP1812TI1466866548@a	     Ma	 Za	 za	 a	     bb	 Kc	                                              WINDOWS _46Q0O0A801466866548e	     #e	 0e	 ?e	 Le	     e	 if	                                              WINDOWS _46Q0O0A801466866548g	     g	 g	 g	 h	     h	 h	                                              WINDOWS _5TW0RDN4E1466866548}i	     i	 i	 i	 i	     Mj	 |j	                                              WINDOWS _46Q0O0A801466866548@k	     Uk	 jk	 yk	 k	     +l	 m	                                              WINDOWS _5VC0NJUFI1466866548o	     p	 $p	 3p	 @p	     p	 >r	                                              WINDOWS _46Q0O0A801466866548t	     t	 t	 t	 t	     `u	 dw	                                              WINDOWS _5W30OYJ7D1466866548Qz	     fz	 {z	 z	 z	     &{	 |	                                              WINDOWS _46Q0O0A801466866548w}	     }	 }	 }	 }	     D~	 	                                              WINDOWS _6070V7B861466866548Q	     f	 {	 	 	     	 8	                                              WINDOWS _61T15PZEI1466866548	     	 	 ˕	 ؕ	     	 	                                              WINDOWS _62P0P288C1466866548	     	 
	 "	 /	     	 	                                              WINDOWS _4XI0X7X3N1420597751		     	 +	 =	 J	                                                          WINDOWS _46Q0O0A801254063037	     ô	 д	 ޴	 	                                                          WINDOWS _4XI0X7X3O1254063037	     	 	 	 ֵ	                                                          WINDOWS _46Q0O0A801254063037	     	 	 	 ɶ	                                                          WINDOWS _4XI0X7X3P1254063037	     ŷ	 ҷ	 	 	                                                          WINDOWS _5ZO0K06J51420597751θ	     ۸	 	 	 		                                                          WINDOWS _46Q0O0A801466866548	     ù	 ҹ	 ݹ	 	     ]	 	                                              WINDOWS _46Q0O0A8A1466866548	     ־	 	 	 	     x	 K	                                              WINDOWS _46Q0O0A801466866548"	     1	 @	 K	 X	     	 %	                                              WINDOWS _46Q0O0A8S1466866548`	     u	 	 	 	     (	 	                                              WINDOWS _4MJ1B0N2T1466866548	     	 	 		 	     	 X	                                              WINDOWS _4MN11NTCA1218874441	     	 	 	 	                                                          WINDOWS _46Q0O0A801383291864?	     L	 Y	 o	 	                                                          WINDOWS _4MN1226YR1383291864	     	 	 #	 7	                                                          WINDOWS _46Q0O0A801218875721	     	 	 	 	                                                          WINDOWS _46Q0O0A801218875721Y	     n	 	 	 	                                                          WINDOWS _46Q0O0A801218875721	      	 5	 F	 Z	                                                          WINDOWS _4MN12Y4UN1218875721	     	 	 	 	                                                          WINDOWS _6IT0MSK741445745859o	     {	 	 	 	                                                          WINDOWS _46Q0O0A801534284041	     	 	 )	 6	     	 	                                              WINDOWS _46Q0O0A801466866548	     	 
	 	 %	     	 6	                                              WINDOWS _68Y0UD83W1535267869	     	 	 	 "	     	 fL
                                              WINDOWS _6A00NDJQQ1466866548
     
 
 
 *
     
 
                                              WINDOWS _6A00NDJQR1466866548
     
 
 #
 6
     
 
                                              WINDOWS _6A00NDJQS1466866548
     
 
 
 Σ
     "
 S
                                              WINDOWS _6A00NDJQT1466866548
     
 
 
 ȧ
     ;
 ;
                                              WINDOWS _6A00NDJQU1466866548)
     :
 K
 W
 d
     
 u
                                              WINDOWS _6A00NDJQV1466866548
     !
 .
 <
 N
     
 
                                              WINDOWS _6A00NDJQW1466866548
     
 ̳
 س
 
     9
 
                                              WINDOWS _6A00NDJQX1466866548P
     ]
 j
 x
 
     
 
                                              WINDOWS _6A00NDJQY1466866548
     
 

 
 $
     z
 ܽ
                                              WINDOWS _6A00NDJQZ1466866548b
     o
 |
 
 
     
 
                                              WINDOWS _6A00NDJR01466866548
     
 
 )
 6
     
 
                                              WINDOWS _6A00NDJR11466866548v
     
 
 
 
      
  
                                              WINDOWS _6A00NDJR21466866548
     
 0
 =
 J
     
 
                                              WINDOWS _6A00NDJR31466866548
     
 
 
 
     2
 2
                                              WINDOWS _6A00NDJR41466866548 
     1
 B
 O
 \
     
 /
                                              WINDOWS _6A00NDJR51466866548
     
 
 
 	
     x
 x
                                              WINDOWS _6A00NDJR61466866548f
     w
 
 
 
     
 Z
                                              WINDOWS _6A00NDJR71466866548
     
 
 
 
     
 
                                              WINDOWS _6A00NDJR81466866548
     
 
 
 
     q
 
                                              WINDOWS _6A00NDJR91466866548X
     e
 r
 
 
      
  
                                              WINDOWS _6A00NDJRA1466866548
     
 
 
 *
     
 
                                              WINDOWS _6A00NDJRB1466866548j
     w
 
 
 
     
 
                                              WINDOWS _6A00NDJRC1466866548
     
 %
 2
 ?
     
 
                                              WINDOWS _6A00NDJRD1466866548}
     
 
 
 
     #
 #
                                              WINDOWS _6A00NDJRE1517051096
     "
 3
 @
 M
     
 W
                                              WINDOWS _6A00NDJRF1466866548     	  $ 7                                                    WINDOWS _6A00NDJRG1517051096             #                                               WINDOWS _6A00NDJRH1466866548[
     h
 u
 
 
                                                    WINDOWS _6A00NDJRI1517051096
         +                                                    WINDOWS _6A00NDJRJ1466866548             U U                                              WINDOWS _6A00NDJRK1517051096C     T e q ~      5                                              WINDOWS _6A00NDJRL1466866548             a a                                              WINDOWS _6A00NDJRM1534417001O      `  q  }          #                                              WINDOWS _6A00NDJRN1466866548&     & & & &     7' 7(                                              WINDOWS _46Q0O0A801430958628%*     6* G* T* a*     * ,                                              WINDOWS _46Q0O0A811517973335.     . . . .     V/ V0                                              WINDOWS _6A00NDJRQ1517051096D2     U2 f2 r2 2     2 54                                              WINDOWS _6A00NDJRR14668665486     6 6 6 6     e7 e8                                              WINDOWS _6A00NDJRS1517051096S:     d: u: : :     : G<                                              WINDOWS _6A00NDJRT1466866548>     > > > ?     w? w@                                              WINDOWS _6A00NDJRY1517051096eB     vB B B B     B VD                                              WINDOWS _6A00NDJRZ1466866548F     F F G G     G H                                              WINDOWS _6BP0WYFJV1466866548sJ     J J J J     K )N                                              WINDOWS _6BY14R5ET1466866548Q     Q Q Q Q     zR V                                              WINDOWS _6BZ0MAK351466866548Y     Y Y Y Y     Z ;d                                              WINDOWS _6CU0NE8PU1466866548Xm     hm xm m m     Qn lq                                              WINDOWS _46Q0O0A891466866548u     u u u u     Kv w                                              WINDOWS _46Q0O0A831466866548z     z z z z     a{ }                                              WINDOWS _46Q0O0A801482312745                                                                  WINDOWS _6MP0LQC8T1466866548}        Ł     :                                               WINDOWS _4M917DPB21466866548       ɍ ֍                                                    WINDOWS _46Q0O0A8I1466866548      ) 7 D     Д                                               WINDOWS _6YY0J4GOS1494106712       ė ї      ř                                              WINDOWS _733112J4U1512723078        +      ]                                              WINDOWS _46Q0O0A801535921013       * 7      3                                              WINDOWS _46Q0O0A811535920898        Ͻ     S S                                              WINDOWS _46Q0O0A801517976597A     R c q ~                                                    WINDOWS _46Q0O0A811517976597:     G T b v                                                    WINDOWS _7580XBFWM1517976597             `                                               WINDOWS _7580XBFWN1517976597G     T a o                                                     WINDOWS _75Z0KZ2E61519803180        ,      !                                              COMMENT RESERVED                                6                                                          բ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     BorderStyle = 3
ScaleMode = 3
Height = 672
Width = 991
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "PC-GEHALT"
Closable = .T.
Visible = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
WindowState = 0
AlwaysOnTop = .F.
Name = "FORM1"
     RPROCEDURE Destroy
SET CONFIRM off

IF EMPTY(ALIAS(133))
	myopen(eigdat + muser + "\formdaten",133,"formdaten")
ENDIF
 
SELECT formdaten
*LOCATE FOR SUBSTR(formdaten.formname,1,LEN(ALLTRIM(thisform.Caption))) = ALLTRIM(thisform.Caption)
IF RECCOUNT() = 0
	APPEND BLANK
	FLUSH
ELSE
	GOTO 1
endif
replace formdaten.formname WITH thisform.caption
replace formdaten.top with thisform.Top
replace formdaten.left with thisform.Left
replace formdaten.width WITH thisform.Width
replace formdaten.height with thisform.Height
flush

*prfen nach dateigre im user-ordner
 
hsprfdatei = eigdat + muser + "\checksize.pcg"
IF FILE("&hsprfdatei")
	WAIT WINDOW "Dateigren werden geprft...." nowait
	oldpfad = SYS(2003)
	hspfad = eigdat + muser 
	CD "&hspfad"
	hsanzf = ADIR(hsxfiles, "*.fpt")

	FOR hsa = 1 TO hsanzf
		hsxlen = hsxfiles(hsa,2)/1000000 &&filegre
		IF hsxlen > 1800
			WAIT clear
			hinweis("Bitte fhren Sie schnellstens eine Komprimierung der Datenbank durch!"+CHR(13)+"Haupmenpunkt: START, Untermen: Y12 Datenbank komprimieren")
			exit
		endif
	next
	CD "&oldpfad"
	RELEASE hsxfiles
	WAIT clear
endif

CLOSE TABLES
 
SET BELL on

QUIT

ENDPROC
PROCEDURE Unload
*DO dimensein

*DO dimensout

SET CONFIRM off

ENDPROC
PROCEDURE Load
SET ANSI off
SET AUTOSAVE off
SET BLOCKSIZE to 64
SET CARRY off
SET CENTURY on
SET COLLATE to "machine"
SET CONFIRM on
SET DATE german
*SET DECIMALS to 2
SET FIXED on
SET DELETED on
SET EXACT off
SET EXCLUSIVE off
SET HOURS to 24
SET LOCK off
SET MARK TO 
*SET MEMOWIDTH 
SET MULTILOCKS on 
SET NEAR off
SET NULL off
SET REPROCESS to 1
SET SAFETY on
SET SECONDS off
SET SYSFORMATS off
SET TALK off
SET UNIQUE off
set point to ","
set separator to "."

ENDPROC
PROCEDURE Resize
hsdpifile = eigdat + muser + "\maxscreen.pcg"

IF startflag = true .and. FILE("&hsdpifile")
	thisform.men10.Click
ENDIF

THISFORM.sizer.frmresize()


IF VARTYPE(myform1) = "U" .or. VARTYPE(myform1) <> "O"
	RETURN
endif
If zi(1+26) = 3
	myform1.T26.Width = myform1.T39.Width / 1.9
	myform1.T26.ForeColor = QBColor(12)
	myform1.T61.Alignment = 1
	myform1.T61.ForeColor = QBColor(12)
	myform1.T61.Visible = True
Else
	myform1.T26.Width = myform1.T39.Width
	myform1.T61.Visible = False
ENDIF
*!*	If zi(1+11) > 5
*!*		myform1.z11.Width = myform1.z9.Width / 1.3
*!*		myform1.z11.left = myform1.z9.left * 2.11 
*!*		myform1.t60.visible = .t.
*!*	Else
*!*		myform1.z11.Width = myform1.z9.Width
*!*		myform1.z11.left = myform1.z9.left
*!*		myform1.t60.visible = .f.
*!*	ENDIF
If zi(1+4) < 9
	Do Case && zi(1+11)
		Case  Inlist(zi(1+11), 13, 14)
			myform1.T60.Visible = True
			myform1.z11.Left = myform1.T60.Left + myform1.T60.Width
			myform1.z11.Width = myform1.z10.Width - myform1.T60.Width
		Case (zi(1+11) >= 0 .And. zi(1+11) <= 5) .Or. (zi(1+11) >= 8 .And. zi(1+11) <= 12)
			myform1.T60.Visible = False
			myform1.z11.Left = myform1.z10.Left
			myform1.z11.Width = myform1.z10.Width - myform1.extra11.Width
	Endcase
Else
	Do Case && zi(1+11)
		Case (zi(1+11) >= 0 .And. zi(1+11) <= 5) .Or. zi(1+11) =  11
			myform1.T60.Visible = False
			myform1.z11.Left = myform1.z10.Left
			myform1.z11.Width = myform1.z10.Width - myform1.extra11.Width
		Case zi(1+11) > 5
			myform1.T60.Visible = True
			myform1.z11.Left = myform1.T60.Left + myform1.T60.Width
			myform1.z11.Width = myform1.z10.Width - myform1.T60.Width
	Endcase
Endif
IF INLIST(zi(1+4), 0,1,2,3,4,5,6,18,19,25,26,27) &&lange version des buttons
	myform1.z3.width = myform1.z6.width
	myform1.z3.left = myform1.z6.left
ELSE
	myform1.z3.width =  myform1.z6.width / 1.4 &&142
	myform1.z3.left = myform1.z6.left * 2.09
endif	
myform1.sspanel10.Height = (myform1.SSPanel3.Height - 3) * DMSteuern
myform1.SSPanel11.Height = (myform1.SSPanel3.Height - 3) * DMSozVers
myform1.SSPanel12.Height = (myform1.SSPanel3.Height - 3) * DMNetto
 
myform1.sspanel10.Top = myform1.sspanel3.top + 2
myform1.SSPanel11.Top = myform1.sspanel10.Top + myform1.sspanel10.Height
myform1.SSPanel12.Top = myform1.SSPanel11.Top + myform1.SSPanel11.Height
myform1.sspanel10.Caption = "Steuer " + ALLTRIM(STR(DMSteuern * 100,10,0)) + "%"
myform1.SSPanel11.Caption = "Soz.V. " + ALLTRIM(STR(DMSozVers * 100,10,0)) + "%"
myform1.SSPanel12.Caption = "Netto   " + ALLTRIM(STR(DMNetto * 100,10,0)) + "%"

DO case
	case zi(1+2) = 1 .and. zi(1+4) <= 5 &&BY Familienzuschlag
		IF welchesjahr >= 2020 &&.or. (welchesjahr = 2023 .and. monat >= 4)) &&.and. (zi(1+8) = 2 .or. zi(1+8) = 3)
			myform1.z8.width = myform1.z9.width * 0.8023 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .t.
			myform1.mietstufeZ8.visible = .t.	
			myform1.gemeindeauswahl.enabled = .t.
			myform1.gemeindeauswahl.visible = .t.			
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0							
		ELSE
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.			
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.			
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0									
		ENDIF

	case zi(1+2) = 2 .and. zi(1+4) < 6 &&Beamte Berlin ergnzender Familienzuschlag
		IF (welchesjahr = 2024 .and. monat >= 11) .or. welchesjahr > 2024
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.	
			myform1.sonderzuschlag.caption = " + EFZ"
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		else						
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif

	case zi(1+2) = 4 .and. zi(1+4) < 6 &&Brandenburg Familiensonderzuschlag
		IF (welchesjahr >= 2022 .and. monat = 12) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.	
			myform1.sonderzuschlag.caption = " + FSZ"
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		endif						
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif	
							
	case zi(1+2) = 5 .and. zi(1+4) < 6 &&Bremen Familienergnzungszuschlag
		IF (welchesjahr >= 2022 .and. monat = 12) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.	
			myform1.sonderzuschlag.caption = " + FEZ"
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		endif						
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif								

	case zi(1+2) = 6 .and. zi(1+4) < 6 &&HH Besoldungergnzungszuschuss beamte
		IF welchesjahr >= 2022 &&.and. zi(1+20) = 11) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.
			myform1.sonderzuschlag.caption = " + BEZ"	
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		endif						
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif

	case zi(1+2) = 8 .and. zi(1+4) < 6 &&S-H Familienergnzungszuschlag
		IF welchesjahr >= 2022 &&.and. zi(1+20) = 11) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.
			myform1.sonderzuschlag.caption = " + FEZ"	
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		endif						
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif	

		case zi(1+2) = 9 .and. zi(1+4) < 6 &&Niedersachsen Familienergnzungszuschlag Beamte &&nur A5-A9
			IF welchesjahr >= 2023 &&.and. INLIST(zi(1+5),1,2,3,4,5,6,7,8,9,11) &&nur A5-A9
				myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
				myform1.mietstufeZ8.enabled = .f.
				myform1.mietstufeZ8.visible = .f.	
				myform1.gemeindeauswahl.enabled = .f.
				myform1.gemeindeauswahl.visible = .f.
				myform1.sonderzuschlag.enabled = .t.
				myform1.sonderzuschlag.visible = .t.	
				myform1.sonderzuschlag.caption = " + FEZ"
				myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
			endif						
			IF welchesjahr <= 2022 &&.or. (INLIST(zi(1+5),10,12,13,14,15,16) .and. welchesjahr >= 2023)
				myform1.z8.width = myform1.z9.width &&258
				myform1.mietstufeZ8.enabled = .f.
				myform1.mietstufeZ8.visible = .f.
				myform1.gemeindeauswahl.enabled = .f.
				myform1.gemeindeauswahl.visible = .f.						
				myform1.sonderzuschlag.enabled = .f.
				myform1.sonderzuschlag.visible = .f.							
				myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
				mymietstufez8 = 0
				lastmietstufe = 0	
				mysonderzuschlag = 0	
				lastsonderzuschlag = 0	
			endif		

	case zi(1+2) = 10 .and. zi(1+4) < 6 &&NRW Familienzuschlag
		IF (welchesjahr >= 2023 .or. (welchesjahr = 2022 .and. monat = 12)) &&.and. (zi(1+8) = 2 .or. zi(1+8) = 3)
			myform1.z8.width = myform1.z9.width * 0.8023 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .t.
			myform1.mietstufeZ8.visible = .t.	
			myform1.gemeindeauswahl.enabled = .t.
			myform1.gemeindeauswahl.visible = .t.			
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0							
		ELSE
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.			
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.			
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0									
		ENDIF			

	case zi(1+2) = 11 .and. zi(1+4) < 6 &&RLP Familienzuschlag
		IF welchesjahr >= 2022 &&.and. zi(1+20) = 11) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .t.
			myform1.mietstufeZ8.visible = .t.	
			myform1.gemeindeauswahl.enabled = .t.
			myform1.gemeindeauswahl.visible = .t.			
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.												
		endif		
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.			
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
				
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif	
		
	case zi(1+2) = 15 .and. zi(1+4) < 6 &&S-H Familienergnzungszuschlag
		IF welchesjahr >= 2022 &&.and. zi(1+20) = 11) .or. welchesjahr >= 2023
			myform1.z8.width = myform1.z9.width * 0.7325 &&0.8527 &&220
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.	
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.
			myform1.sonderzuschlag.enabled = .t.
			myform1.sonderzuschlag.visible = .t.
			myform1.sonderzuschlag.caption = " + FEZ"	
			myform1.sonderzuschlag.width = myform1.z9.left + myform1.z9.width - myform1.sonderzuschlag.left - 1							
		endif						
		IF welchesjahr < 2022
			myform1.z8.width = myform1.z9.width &&258
			myform1.mietstufeZ8.enabled = .f.
			myform1.mietstufeZ8.visible = .f.
			myform1.gemeindeauswahl.enabled = .f.
			myform1.gemeindeauswahl.visible = .f.						
			myform1.sonderzuschlag.enabled = .f.
			myform1.sonderzuschlag.visible = .f.							
			myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left
			mymietstufez8 = 0
			lastmietstufe = 0	
			mysonderzuschlag = 0	
			lastsonderzuschlag = 0	
		endif		
		

	otherwise
		myform1.z8.width = myform1.z9.width &&258
		myform1.mietstufeZ8.enabled = .f.
		myform1.mietstufeZ8.visible = .f.
		myform1.gemeindeauswahl.enabled = .f.
		myform1.gemeindeauswahl.visible = .f.		
		myform1.sonderzuschlag.enabled = .f.
		myform1.sonderzuschlag.visible = .f.	
		myform1.sonderzuschlag.width = myform1.gemeindeauswahl.left - myform1.sonderzuschlag.left - 1			
		mymietstufez8 = 0
		lastmietstufe = 0	
		mysonderzuschlag = 0		
		lastsonderzuschlag = 0	
endcase	

mscreenhohe = myform1.height
mscreenbreite = myform1.width
mscreenfaktor_h = mscreenhohe / mscreenhohe_org
mscreenfaktor_b = mscreenbreite / mscreenbreite_org
ENDPROC
PROCEDURE Init
*DO defs.prg
*DO testdefs.prg
 
IF thisform.Top < 0
	thisform.Top = 0
ENDIF

SET BELL off
SET CONFIRM on
myform1 = thisform
hsxdat = SYS(5)+SYS(2003)+"\testumgebung.txt" &&anzeige des debug buttons
IF .not. FILE("&hsxdat")
	myform1.command1.visible = .f. &&hier
endif

thisform.year0.Caption = xjahr1
thisform.year1.Caption = xjahr2
thisform.year2.Caption = xjahr3
thisform.year3.Caption = xjahr4
thisform.year4.Caption = xjahr5
*PUBLIC welchesjahr,welchesjahrc
*!*	welchesjahr = YEAR(DATE())
*!*	welchesjahrc = ALLTRIM(STR(welchesjahr,4,0))

PUBLIC farbe0,farbe1,farbe2,farbe3,farbe4,farbe5,farbeI,farbeP,farbeR
farbe0=RGB(240,240,240)&&standard-Grau
farbe1=RGB(240,240,240)
farbe2=RGB(240,240,240)
farbe3=RGB(240,240,240)
farbe4=RGB(240,240,240)
farbe5=RGB(240,240,240)
farbeI=RGB(255,255,0) &&gelb
farbeP=RGB(0,255,0) &&grn
farbeR=RGB(0,255,255) &&aquamarin
*!*	FOR a = 0 TO 47
*!*		IF a <> 32
*!*			controlname="com"+ALLTRIM(STR(a,2,0))
*!*			thisform.&controlname..tooltiptext="H"+thisform.&controlname..caption + ". ffnet die Hilfe zur Funktion der Zeile " + thisform.&controlname..caption
*!*		endif
*!*	NEXT
*!*	IF .not. FILE("&hsxdat")
*!*		hsmenufile = SYS(5)+SYS(2003)+ "\user001" + "\neuemenus.pcg" 
*!*	ELSE
*!*		hsmenufile = SYS(5)+SYS(2003)+ "\2022\user001" + "\neuemenus.pcg" 
*!*	endif
*!*	IF FILE("&hsmenufile")
	*PARAMETERS hsmenunr,hsmenuname,hsheight,hswidth,hsmenuarray,hscontrolart,hsfontname,hsfontsize,hsfontstile
	thisform.AddObject("menuleiste1","mymenuleiste")
	thisform.menuleiste1.left = 8 &&thisform.men3.left
	thisform.menuleiste1.top = 1
	thisform.menuleiste1.height = 22
	thisform.menuleiste1.width = 500
	*thisform.xmenu1.hsfontsize = 16
	thisform.menuleiste1.visible = .t.
	thisform.menuleiste1.hsmenuleiste = 1
	thisform.menuleiste1.hsmenuname = "START"
	thisform.menuleiste1.hsmenuarray(1,1) = "START"
	thisform.menuleiste1.hsmenuarray(1,2) = 55
	thisform.menuleiste1.hsmenuarray(2,1) = "BRUTTOVORGABEN"
	thisform.menuleiste1.hsmenuarray(2,2) = 120
	thisform.menuleiste1.hsmenuarray(3,1) = "ABZGE"
	thisform.menuleiste1.hsmenuarray(3,2) = 70
	thisform.menuleiste1.hsmenuarray(4,1) = "NACHWEISE"
	thisform.menuleiste1.hsmenuarray(4,2) = 80
	thisform.menuleiste1.hsmenuarray(5,1) = "PERSONALDATEN"
	thisform.menuleiste1.hsmenuarray(5,2) = 120
	thisform.menuleiste1.hsmenuarray(6,1) = "VORSCHRIFTEN"
	thisform.menuleiste1.hsmenuarray(6,2) = 120
	thisform.menuleiste1.hsmenuarray(7,1) = "INFO"
	thisform.menuleiste1.hsmenuarray(7,2) = 50
	thisform.menuleiste1.hsmenuarray(8,1) = "13.01.2026"
	thisform.menuleiste1.hsmenuarray(8,2) = 110
	thisform.menuleiste1.hsmenuarray(9,1) = "ATZ"
	thisform.menuleiste1.hsmenuarray(9,2) = 35
	thisform.menuleiste1.hscontrolart = "mymenuhauptbutton"
	thisform.menuleiste1.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.menuleiste1.hsmeldenan = "myform1.text1.value"
	thisform.menuleiste1.visible = .t.


	thisform.addobject("xmenu1","mymenupad")
	thisform.xmenu1.left = 0 &&thisform.men3.left
	thisform.xmenu1.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu1.height = 22
	thisform.xmenu1.width = 0
	*thisform.xmenu1.hsfontsize = 16
	*thisform.xmenu1.visible = .t.
	thisform.xmenu1.hsmenunr = 1
	thisform.xmenu1.hsmenuname = "START"
	thisform.xmenu1.hsmenuarray(1) = " Y01 Bedienungsanleitung"
	thisform.xmenu1.hsmenuarray(2) = " Y02 Userdaten speichern unter ...."
	thisform.xmenu1.hsmenuarray(3) = " Y03 Freischalten"
	thisform.xmenu1.hsmenuarray(4) = " Y04 Updaten"
	thisform.xmenu1.hsmenuarray(5) = " Y05 Daten ber den Arbeitgeber"
	thisform.xmenu1.hsmenuarray(6) = " Y08 Programmtexte verwalten"
	thisform.xmenu1.hsmenuarray(7) = "\Y09 Wiederherstellung der letzten Sitzung"
	thisform.xmenu1.hsmenuarray(8) = " Y10 Musterpersonalfall anlegen"
	thisform.xmenu1.hsmenuarray(9) = " Y11 Pfade der User"
	thisform.xmenu1.hsmenuarray(10) = " Y12 Datenbank komprimieren"
	thisform.xmenu1.hsmenuarray(11) = " Y13 Druckvorschau ein-/ausschalten"
	thisform.xmenu1.hsmenuarray(12) = " Y14 Immer im Vollbild starten"
	thisform.xmenu1.hsmenuarray(13) = " Y15 Vollbild auf Standardgre zurcksetzen"
	thisform.xmenu1.hsmenuarray(14) = " Y16 Dateigren berwachen"
	thisform.xmenu1.hsmenuarray(15) = " Y17 Drucker auswhlen"
	thisform.xmenu1.hsmenuarray(16) = " Y18 Beenden"
	thisform.xmenu1.hscontrolart = "mymenulabel"
	thisform.xmenu1.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu1.hsmeldenan = "myform1.text1.value"
	thisform.xmenu1.visible = .f.


	thisform.addobject("xmenu2","mymenupad")
	thisform.xmenu2.left = 0 &&thisform.xmenu1.left+thisform.xmenu1.width + 2
	thisform.xmenu2.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu2.height = 22
	thisform.xmenu2.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu2.visible = .t.
	thisform.xmenu2.hsmenunr = 1
	thisform.xmenu2.hsmenuname = "BRUTTOVORGABEN"
	thisform.xmenu2.hsmenuarray(1) = " Y20 Tariftabellen"
	thisform.xmenu2.hsmenuarray(2) = " Y21 Wochenarbeitszeit"
	thisform.xmenu2.hsmenuarray(3) = " Y22 Sonderzahlungen fr Beamte"
	thisform.xmenu2.hsmenuarray(4) = " Y23 Jahressonderzahlung andere"
	thisform.xmenu2.hsmenuarray(5) = " Y25 Zuschlge A"
	thisform.xmenu2.hsmenuarray(6) = " Y26 Zuschlge B"
	thisform.xmenu2.hsmenuarray(7) = " Y28 Kindergeldvorgaben"
	thisform.xmenu2.hsmenuarray(8) = " Y29 Altersteilzeit"
	thisform.xmenu2.hscontrolart = "mymenulabel"
	thisform.xmenu2.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu2.hsmeldenan = "myform1.text1.value"
	thisform.xmenu2.visible = .f.


	thisform.addobject("xmenu3","mymenupad")
	thisform.xmenu3.left = 0 &&thisform.xmenu2.left+thisform.xmenu2.width + 2
	thisform.xmenu3.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu3.height = 22
	thisform.xmenu3.width = 0
	*thisform.xmenu1.hsfontsize = 16
	*thisform.xmenu3.visible = .t.
	thisform.xmenu3.hsmenunr = 1
	thisform.xmenu3.hsmenuname = "ABZGE"
	thisform.xmenu3.hsmenuarray(1) = " Y27 Sachbezge"
	thisform.xmenu3.hsmenuarray(2) = " Y40 Einbehalte"
	thisform.xmenu3.hsmenuarray(3) = " Y41 Kirchensteuer"
	thisform.xmenu3.hsmenuarray(4) = " Y42 KV-Beitrge, Umlagen"
	thisform.xmenu3.hsmenuarray(5) = " Y43 Sozialversicherungsdaten"
	thisform.xmenu3.hsmenuarray(6) = " Y44 VBL, ZVK, ATV"
	thisform.xmenu3.hsmenuarray(7) = " Y45 Pensionsumlage"
	thisform.xmenu3.hscontrolart = "mymenulabel"
	thisform.xmenu3.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu3.hsmeldenan = "myform1.text1.value"
	thisform.xmenu3.visible = .f.


	thisform.addobject("xmenu4","mymenupad")
	thisform.xmenu4.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu4.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu4.height = 22
	thisform.xmenu4.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu4.visible = .t.
	thisform.xmenu4.hsmenunr = 1
	thisform.xmenu4.hsmenuname = "NACHWEISE"
	thisform.xmenu4.hsmenuarray(1) = " Y50 Beitragsnachweis, lfd Monat, alle Kassen"
	thisform.xmenu4.hsmenuarray(2) = " Y51 Beitragsnachweis fr die Bundesknappschaft"
	thisform.xmenu4.hsmenuarray(3) = " Y52 Lohnsteuernachweis, lfd Monat"
	thisform.xmenu4.hsmenuarray(4) = " Y53 VBL/ZVK-Nachweis, aktueller Monat, alle Bediensteten"
	thisform.xmenu4.hsmenuarray(5) = " Y54 VBL/ZVK-Nachweis, ganzes Jahr, aktueller Bediensteter"
	thisform.xmenu4.hsmenuarray(6) = " Y55 Beitragsnachweis fr Bediensteten, ganzes Jahr"
	thisform.xmenu4.hsmenuarray(7) = " Y56 Lohnsteuernachweis, Bediensteter, ganzes Jahr"
	thisform.xmenu4.hsmenuarray(8) = " Y57 Lohnsteuerbescheinigung"
	thisform.xmenu4.hscontrolart = "mymenulabel"
	thisform.xmenu4.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu4.hsmeldenan = "myform1.text1.value"
	thisform.xmenu4.visible = .f.


	thisform.addobject("xmenu5","mymenupad")
	thisform.xmenu5.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu5.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu5.height = 22
	thisform.xmenu5.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu5.visible = .t.
	thisform.xmenu5.hsmenunr = 1
	thisform.xmenu5.hsmenuname = "PERSONALDATEN"
	thisform.xmenu5.hsmenuarray(1) = " Y60 Alle Flle neu durchrechnen"
	thisform.xmenu5.hsmenuarray(2) = " Y61 Datenbernahme aus dem Vorjahr"
	thisform.xmenu5.hsmenuarray(3) = " Y62 Pers.Daten Dez &xjahr1 -> Jan &xjahr2"
	thisform.xmenu5.hsmenuarray(4) = " Y63 Pers.Daten Dez &xjahr2 -> Jan &xjahr3"
	thisform.xmenu5.hsmenuarray(5) = " Y64 Pers.Daten Dez &xjahr3 -> Jan &xjahr4"
	thisform.xmenu5.hsmenuarray(6) = " Y65 Pers.Daten Dez &xjahr4 -> Jan &xjahr5"
	thisform.xmenu5.hsmenuarray(7) = " Y66 Personaldaten &xjahr1 lschen"
	thisform.xmenu5.hsmenuarray(8) = " Y67 Personaldaten &xjahr2 lschen"
	thisform.xmenu5.hsmenuarray(9) = " Y68 Personaldaten &xjahr3 lschen"
	thisform.xmenu5.hsmenuarray(10) = " Y69 Personaldaten &xjahr4 lschen"
	thisform.xmenu5.hsmenuarray(11) = " Y70 Personaldaten &xjahr5 lschen"
	thisform.xmenu5.hsmenuarray(12) = " Y71 Export nach HIS"
	thisform.xmenu5.hsmenuarray(13) = " Y72 Import von HIS"
	thisform.xmenu5.hsmenuarray(14) = " Y73  (Y10) Musterpersonalfall anlegen"
	thisform.xmenu5.hsmenuarray(15) = " Y74 (F15) Personalflle ordnen"	
	thisform.xmenu5.hscontrolart = "mymenulabel"
	thisform.xmenu5.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu5.hsmeldenan = "myform1.text1.value"
	thisform.xmenu5.visible = .f.


	thisform.addobject("xmenu6","mymenupad")
	thisform.xmenu6.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu6.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu6.height = 22
	thisform.xmenu6.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu6.visible = .t.
	thisform.xmenu6.hsmenunr = 1
	thisform.xmenu6.hsmenuname = "VORSCHRIFTEN"
	thisform.xmenu6.hsmenuarray(1) = " Y80 Landesbeamtengesetz.de"
	thisform.xmenu6.hsmenuarray(2) = " Y81 Landesbesoldungsgesetz.de"
	thisform.xmenu6.hsmenuarray(3) = " Y82 Besoldung.de (Tabellen)"
	thisform.xmenu6.hsmenuarray(4) = " Y83 TV-Bund.de (TVD Allg. u bes. Teil)"
	thisform.xmenu6.hsmenuarray(5) = " Y84 TV-Lnder.de (TV-L)"
	thisform.xmenu6.hsmenuarray(6) = " Y85 TVD-V.de (VKA-Verwaltung)"
	thisform.xmenu6.hsmenuarray(7) = " Y86 TVD-K.de (VKA-Krankenhaus)"
	thisform.xmenu6.hsmenuarray(8) = " Y87 TVD-B.de (VKA Pflege u. Betreuung)"
	thisform.xmenu6.hsmenuarray(9) = " Y88 Sozialgesetzbcher.de"
	thisform.xmenu6.hsmenuarray(10) = " Y89 Einkommenssteuergesetz"
	thisform.xmenu6.hsmenuarray(11) = " Y89_2 Lohnsteuergesetz"
	thisform.xmenu6.hscontrolart = "mymenulabel"
	thisform.xmenu6.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu6.hsmeldenan = "myform1.text1.value"
	thisform.xmenu6.visible = .f.


	thisform.addobject("xmenu7","mymenupad")
	thisform.xmenu7.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu7.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu7.height = 22
	thisform.xmenu7.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu7.visible = .t.
	thisform.xmenu7.hsmenunr = 1
	thisform.xmenu7.hsmenuname = "INFO"
	thisform.xmenu7.hsmenuarray(1) = " Y90 Bedienungsanleitung"
	thisform.xmenu7.hsmenuarray(2) = " Y91 Programmbeschreibung"
	thisform.xmenu7.hsmenuarray(3) = " Y92 Nutzungsbedingungen"
	thisform.xmenu7.hsmenuarray(4) = " Y93 Fehlermeldung absetzen"
	thisform.xmenu7.hsmenuarray(5) = " Y94 Hotline"
	thisform.xmenu7.hsmenuarray(6) = " Y95 Bestellschein"
	thisform.xmenu7.hscontrolart = "mymenulabel"
	thisform.xmenu7.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu7.hsmeldenan = "myform1.text1.value"
	thisform.xmenu7.visible = .f.

	thisform.addobject("xmenu8","mymenupad")
	thisform.xmenu8.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu8.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu8.height = 22
	thisform.xmenu8.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu8.visible = .t.
	thisform.xmenu8.hsmenunr = 1
	thisform.xmenu8.hsmenuname = "24.01.2022"
	thisform.xmenu8.hsmenuarray(1) = " Aktuelle Programminfos"
	thisform.xmenu8.hscontrolart = "mymenulabel"
	thisform.xmenu8.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu8.hsmeldenan = "myform1.text1.value"
	thisform.xmenu8.visible = .f.


	thisform.addobject("xmenu9","mymenupad")
	thisform.xmenu9.left = 0 &&thisform.xmenu3.left+thisform.xmenu3.width + 2
	thisform.xmenu9.top = thisform.menuleiste1.top + thisform.menuleiste1.height
	thisform.xmenu9.height = 22
	thisform.xmenu9.width = 0
	*thisform.xmenu1.hsfontsize = 16
	thisform.xmenu9.visible = .t.
	thisform.xmenu9.hsmenunr = 1
	thisform.xmenu9.hsmenuname = "ATZ"
	thisform.xmenu9.hsmenuarray(1) = " ATZ einschalten"
	thisform.xmenu9.hscontrolart = "mymenulabel"
	thisform.xmenu9.createbuttons &&with 1,"menupad1",0,0,menuarray,"mymenulabel"
	thisform.xmenu9.hsmeldenan = "myform1.text1.value"
	thisform.xmenu9.visible = .f.

	thisform.LockScreen = .t.

	
	FOR EACH loctrl IN ThisForm.Controls
		IF LOWER(loctrl.name) $ "menuleiste1,xmenu1,xmenu2,xmenu3,xmenu4,xmenu5,xmenu6,xmenu7,xmenu8,xmenu9"
		ELSE
			loctrl.top = loctrl.top + 20
		endif
	NEXT
	thisform.LockScreen = .f.

	thisform.Height = thisform.Height + 22
	
	thisform.sizer.saveformsize
*!*	ELSE
*!*		DO c:\pc-gehalt\pc-gehalt.mpr WITH this ,.t.
*!*	ENDIF

IF thisform.Height > screenmaxh
	thisform.WindowState = 0
endif

ENDPROC
PROCEDURE Refresh
*!*	farbeI=RGB(255,255,0) &&gelb
*!*	farbeP=RGB(0,255,0) &&grn
*!*	farbeR=RGB(0,255,255) &&aquamarin

thisform.lockscreen = .t.
If thisform.modi0.Tag="1"
	thisform.modi0.BackColor=farbeI &&RGB(255,255,0)
	activecolor=farbeI
else
	thisform.modi0.BackColor=farbe0 &&RGB(240,240,240)
endif
IF thisform.modi1.Tag="1"
	thisform.modi1.BackColor=farbeP &&RGB(0,255,0)
	activecolor=farbeP
else	
	thisform.modi1.BackColor=farbe0 &&RGB(240,240,240)
ENDIF
IF thisform.modi2.Tag="1"
	thisform.modi2.BackColor=farbeR &&RGB(0,255,255)
	activecolor=farbeR
else
	thisform.modi2.BackColor=farbe0 &&RGB(240,240,240)
endif	

IF thisform.mon0.Tag="1"
	thisform.mon0.backcolor=activecolor
ELSE
	thisform.mon0.backcolor=farbe0
ENDIF
IF thisform.mon1.Tag="1"
	thisform.mon1.backcolor=activecolor
ELSE
	thisform.mon1.backcolor=farbe0
ENDIF
IF thisform.mon2.Tag="1"
	thisform.mon2.backcolor=activecolor
ELSE
	thisform.mon2.backcolor=farbe0
ENDIF
IF thisform.mon3.Tag="1"
	thisform.mon3.backcolor=activecolor
ELSE
	thisform.mon3.backcolor=farbe0
ENDIF
IF thisform.mon4.Tag="1"
	thisform.mon4.backcolor=activecolor
ELSE
	thisform.mon4.backcolor=farbe0
ENDIF
IF thisform.mon5.Tag="1"
	thisform.mon5.backcolor=activecolor
ELSE
	thisform.mon5.backcolor=farbe0
ENDIF
IF thisform.mon6.Tag="1"
	thisform.mon6.backcolor=activecolor
ELSE
	thisform.mon6.backcolor=farbe0
ENDIF
IF thisform.mon7.Tag="1"
	thisform.mon7.backcolor=activecolor
ELSE
	thisform.mon7.backcolor=farbe0
ENDIF
IF thisform.mon8.Tag="1"
	thisform.mon8.backcolor=activecolor
ELSE
	thisform.mon8.backcolor=farbe0
ENDIF
IF thisform.mon9.Tag="1"
	thisform.mon9.backcolor=activecolor
ELSE
	thisform.mon9.backcolor=farbe0
ENDIF
IF thisform.mon10.Tag="1"
	thisform.mon10.backcolor=activecolor
ELSE
	thisform.mon10.backcolor=farbe0
ENDIF
IF thisform.mon11.Tag="1"
	thisform.mon11.backcolor=activecolor
ELSE
	thisform.mon11.backcolor=farbe0
ENDIF
IF thisform.mon12.Tag="1"
	thisform.mon12.backcolor=activecolor
ELSE
	thisform.mon12.backcolor=farbe0
ENDIF

IF thisform.year0.tag="1"
	thisform.year0.BackColor=activecolor
ELSE
	thisform.year0.BackColor=farbe0
ENDIF
IF thisform.year1.tag="1"
	thisform.year1.BackColor=activecolor
ELSE
	thisform.year1.BackColor=farbe0
ENDIF
IF thisform.year2.tag="1"
	thisform.year2.BackColor=activecolor
ELSE
	thisform.year2.BackColor=farbe0
ENDIF
IF thisform.year3.tag="1"
	thisform.year3.BackColor=activecolor
ELSE
	thisform.year3.BackColor=farbe0
ENDIF
IF thisform.year4.tag="1"
	thisform.year4.BackColor=activecolor
ELSE
	thisform.year4.BackColor=farbe0
ENDIF

*!*	FOR a = 0 TO 12
*!*		monfeld="mon"+ALLTRIM(STR(a,2,0))
*!*		IF thisform.&monfeld..tag="1"
*!*		endif
*!*	NEXT

thisform.lockscreen = .f.

DO case
	case welchesjahr <= 2022
		myform1.pvkiabzug.enabled = .f.
		mypvkianz = 0
		lastpvkianz = 0
	case welchesjahr = 2023 .and. monat < 7
		myform1.pvkiabzug.enabled = .f.
		mypvkianz = 0
		lastpvkianz = 0
	case welchesjahr = 2023 .and. monat >= 7
		myform1.pvkiabzug.enabled = .t.
		IF zi(1+38) = 6 .Or. zi(1+38) = 8 .Or. zi(1+38) = 9 &&PVNEU
			myform1.pvkiabzug.enabled = .f.
			mypvkianz = 0
			lastpvkianz = 0
		endif			
	case welchesjahr >= 2024
		myform1.pvkiabzug.enabled = .t.	
		IF zi(1+38) = 6 .Or. zi(1+38) = 8 .Or. zi(1+38) = 9 &&PVNEU
			myform1.pvkiabzug.enabled = .f.
			mypvkianz = 0
			lastpvkianz = 0
		endif		
endcase
ENDPROC
PROCEDURE QueryUnload
IF .not. EMPTY(thisform.check1.value)
	hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Das fhrt beim nchsten Programmstart zu Berechnungfehlern."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und beenden Sie dann das Programm.")
	NODEFAULT
	RETURN
endif
ENDPROC
     T    T  T                        .1   %   MM      S    M            U   G	 %CCE . C  
 \formdaten	 formdaten    F  %CN i   [ z 	 #  >     >     >     > 	  	  > 
  
  [# T    \checksize.pcg IF FILE("&hsprfdatei")) R,: Dateigren werden geprft.... T C] T
    CD "&hspfad"
 T C  *.fpt  (  T C   @B  % | R CE Bitte fhren Sie schnellstens eine Komprimierung der Datenbank durch!C
 ; Haupmenpunkt: START, Untermen: Y12 Datenbank komprimieren  !   CD "&oldpfad"
 <  R  1 G  8 U  MYOPEN EIGDAT MUSER	 FORMDATEN FORMNAME THISFORM CAPTION TOP LEFT WIDTH HEIGHT HSPRFDATEI OLDPFAD HSPFAD HSANZF HSXFILES HSA HSXLEN HINWEIS	  G	 U    Gd GB GC(@ G G  Gk( machine G	  G german G  G  G G G9( GI G:( G_  GF Gw GM( G.  G} G G2 G6 G;( , G<( . U  GERMAN# T     \maxscreen.pcg4 IF startflag = true .and. FILE("&hsdpifile")d 
      C   $ %C  U C  O  B  %C	 2% T 
     ffffff? T 
 
 C  T    T  
 C  T     f T 
      T      %C	 	

 H CC	 
 T    # T         # T         D C	   C	 	 C	  C	 	 T     T      # T           
 H4 C	   C	 	 C	 - T     T      # T          C	  T    # T         # T           7 %CC	   T       T       ^% T      ffffff?% T      Q @ " T       " T        " T !     "  T  #   # # T  #   #    # T ! #   #    1 T  $  Steuer CC d
 Z %1 T  $  Soz.V. CC  d
 Z %2 T ! $  Netto   CC" d
 Z %
 H$ C	  C	 	f %% % T &   '  ꕲq? T ( ) a T (  a T * ) a T *  a T + ) - T +  -
 T,  
 T-   b T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	k	* %%  0 		 % % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + EFZ1 T +   '   '   +   g	 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	~* %%  0 		 % 
% T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + FSZ1 T +   '   '   +    %% 
z T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	
* %%  0 		 % % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + FEZ1 T +   '   '   +    %% 

 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	 %% % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + BEZ1 T +   '   '   +    %% 
 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	 %% % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + FEZ1 T +   '   '   +    %% 
 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	 	 C	 
	 %% % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + FEZ1 T +   '   '   +    %% ~ T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-   $ C	 
 C	 
	5+ %%  %  0 	v% T &   '  ꕲq? T ( ) a T (  a T * ) a T *  a T + ) - T +  -
 T,  
 T-   1 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	 %% % T &   '  q=
ףp? T ( ) a T (  a T * ) a T *  a T + ) a T +  a  %% 
 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -
 T.  
 T/  
 T,  
 T-   $ C	  C	 
	 %% % T &   '  q=
ףp? T ( ) - T (  - T * ) - T *  - T + ) a T +  a T + $   + FEZ1 T +   '   '   +    %% 
 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -# T +   *   +  
 T.  
 T/  
 T,  
 T-    2 T &   '   T ( ) - T (  - T * ) - T *  - T + ) - T +  -' T +   *   +  
 T.  
 T/  
 T,  
 T-    T1    T2    T3 1 4  T5 2 6  U7 	 HSDPIFILE EIGDAT MUSER THISFORM MEN10 CLICK SIZER	 FRMRESIZE MYFORM1 ZI T26 WIDTH T39	 FORECOLOR QBCOLOR T61	 ALIGNMENT VISIBLE TRUE FALSE T60 Z11 LEFT Z10 EXTRA11 Z3 Z6	 SSPANEL10 HEIGHT SSPANEL3	 DMSTEUERN	 SSPANEL11	 DMSOZVERS	 SSPANEL12 DMNETTO TOP CAPTION WELCHESJAHR Z8 Z9 MIETSTUFEZ8 ENABLED GEMEINDEAUSWAHL SONDERZUSCHLAG MYSONDERZUSCHLAG LASTSONDERZUSCHLAG
 MYMIETSTUFEZ8
 LASTMIETSTUFE MONAT MSCREENHOHE
 MSCREENBREITE MSCREENFAKTOR_H MSCREENHOHE_ORG MSCREENFAKTOR_B MSCREENBREITE_ORGs  %    
$  T      G G	 
 T   + T C]C] \testumgebung.txt  IF .not. FILE("&hsxdat")  T   -  T      T  	  
  T      T  
    T     ' 7          T C^ T C^ T C^ T C^ T C^ T C^ T C ^ T C  ^ T C ^* C menuleiste1 mymenuleiste    T     T     T     T     T    a T     T      START$ T   !  START T   ! 7- T   !  BRUTTOVORGABEN T   ! x% T   !  ABZGE T   ! F( T   ! 	 NACHWEISE T   ! P, T   ! 
 PERSONALDATEN T   ! x+ T   !  VORSCHRIFTEN T   ! x# T   !  INFO T   ! 2) T   ! 
 13.01.2026 T   ! n" T   ! 	 ATZ T   ! 	#$ T   "  mymenuhauptbutton
    # & T   $  myform1.text1.value T    a" C xmenu1	 mymenupad    T  %   # T  %           T  %   T  %    T  % &  T  %    START1 T  % !   Y01 Bedienungsanleitung< T  % ! #  Y02 Userdaten speichern unter ....* T  % !   Y03 Freischalten% T  % !   Y04 Updaten8 T  % !   Y05 Daten ber den Arbeitgeber5 T  % !   Y08 Programmtexte verwaltenC T  % ! * \Y09 Wiederherstellung der letzten Sitzung8 T  % !   Y10 Musterpersonalfall anlegen, T  % ! 	  Y11 Pfade der User4 T  % ! 
  Y12 Datenbank komprimieren< T  % ! #  Y13 Druckvorschau ein-/ausschalten7 T  % !   Y14 Immer im Vollbild startenE T  % ! 
,  Y15 Vollbild auf Standardgre zurcksetzen4 T  % !   Y16 Dateigren berwachen/ T  % !   Y17 Drucker auswhlen% T  % !   Y18 Beenden T  % "  mymenulabel
   % # & T  % $  myform1.text1.value T  %  -" C xmenu2	 mymenupad    T  '   # T  '           T  '   T  '    T  '  a T  ' & ! T  '    BRUTTOVORGABEN+ T  ' !   Y20 Tariftabellen/ T  ' !   Y21 Wochenarbeitszeit8 T  ' !   Y22 Sonderzahlungen fr Beamte8 T  ' !   Y23 Jahressonderzahlung andere) T  ' !   Y25 Zuschlge A) T  ' !   Y26 Zuschlge B0 T  ' !   Y28 Kindergeldvorgaben, T  ' !   Y29 Altersteilzeit T  ' "  mymenulabel
   ' # & T  ' $  myform1.text1.value T  '  -" C xmenu3	 mymenupad    T  (   # T  (           T  (   T  (    T  ( &  T  (    ABZGE( T  ( !   Y27 Sachbezge( T  ( !   Y40 Einbehalte+ T  ( !   Y41 Kirchensteuer2 T  ( !   Y42 KV-Beitrge, Umlagen6 T  ( !   Y43 Sozialversicherungsdaten+ T  ( !   Y44 VBL, ZVK, ATV, T  ( !   Y45 Pensionsumlage T  ( "  mymenulabel
   ( # & T  ( $  myform1.text1.value T  (  -" C xmenu4	 mymenupad    T  )   # T  )           T  )   T  )    T  )  a T  ) &  T  )   	 NACHWEISEF T  ) ! -  Y50 Beitragsnachweis, lfd Monat, alle KassenH T  ) ! /  Y51 Beitragsnachweis fr die Bundesknappschaft; T  ) ! "  Y52 Lohnsteuernachweis, lfd MonatR T  ) ! 9  Y53 VBL/ZVK-Nachweis, aktueller Monat, alle BedienstetenS T  ) ! :  Y54 VBL/ZVK-Nachweis, ganzes Jahr, aktueller BediensteterL T  ) ! 3  Y55 Beitragsnachweis fr Bediensteten, ganzes JahrK T  ) ! 2  Y56 Lohnsteuernachweis, Bediensteter, ganzes Jahr5 T  ) !   Y57 Lohnsteuerbescheinigung T  ) "  mymenulabel
   ) # & T  ) $  myform1.text1.value T  )  -" C xmenu5	 mymenupad    T  *   # T  *           T  *   T  *    T  *  a T  * &   T  *   
 PERSONALDATEN9 T  * !    Y60 Alle Flle neu durchrechnen< T  * ! #  Y61 Datenbernahme aus dem VorjahrQ thisform.xmenu5.hsmenuarray(3) = " Y62 Pers.Daten Dez &xjahr1 -> Jan &xjahr2"
Q thisform.xmenu5.hsmenuarray(4) = " Y63 Pers.Daten Dez &xjahr2 -> Jan &xjahr3"
Q thisform.xmenu5.hsmenuarray(5) = " Y64 Pers.Daten Dez &xjahr3 -> Jan &xjahr4"
Q thisform.xmenu5.hsmenuarray(6) = " Y65 Pers.Daten Dez &xjahr4 -> Jan &xjahr5"
I thisform.xmenu5.hsmenuarray(7) = " Y66 Personaldaten &xjahr1 lschen"
I thisform.xmenu5.hsmenuarray(8) = " Y67 Personaldaten &xjahr2 lschen"
I thisform.xmenu5.hsmenuarray(9) = " Y68 Personaldaten &xjahr3 lschen"
J thisform.xmenu5.hsmenuarray(10) = " Y69 Personaldaten &xjahr4 lschen"
J thisform.xmenu5.hsmenuarray(11) = " Y70 Personaldaten &xjahr5 lschen"
- T  * !   Y71 Export nach HIS, T  * ! 
  Y72 Import von HIS? T  * ! &  Y73  (Y10) Musterpersonalfall anlegen8 T  * !   Y74 (F15) Personalflle ordnen T  * "  mymenulabel
   * # & T  * $  myform1.text1.value T  *  -" C xmenu6	 mymenupad    T  +   # T  +           T  +   T  +    T  +  a T  + &  T  +    VORSCHRIFTEN4 T  + !   Y80 Landesbeamtengesetz.de7 T  + !   Y81 Landesbesoldungsgesetz.de5 T  + !   Y82 Besoldung.de (Tabellen)A T  + ! (  Y83 TV-Bund.de (TVD Allg. u bes. Teil)1 T  + !   Y84 TV-Lnder.de (TV-L)8 T  + !   Y85 TVD-V.de (VKA-Verwaltung)9 T  + !    Y86 TVD-K.de (VKA-Krankenhaus)A T  + ! (  Y87 TVD-B.de (VKA Pflege u. Betreuung)3 T  + ! 	  Y88 Sozialgesetzbcher.de4 T  + ! 
  Y89 Einkommenssteuergesetz0 T  + !   Y89_2 Lohnsteuergesetz T  + "  mymenulabel
   + # & T  + $  myform1.text1.value T  +  -" C xmenu7	 mymenupad    T  ,   # T  ,           T  ,   T  ,    T  ,  a T  , &  T  ,    INFO1 T  , !   Y90 Bedienungsanleitung2 T  , !   Y91 Programmbeschreibung1 T  , !   Y92 Nutzungsbedingungen4 T  , !   Y93 Fehlermeldung absetzen% T  , !   Y94 Hotline+ T  , !   Y95 Bestellschein T  , "  mymenulabel
   , # & T  , $  myform1.text1.value T  ,  -" C xmenu8	 mymenupad    T  -   # T  -           T  -   T  -    T  -  a T  - &  T  -   
 24.01.20220 T  - !   Aktuelle Programminfos T  - "  mymenulabel
   - # & T  - $  myform1.text1.value T  -  -" C xmenu9	 mymenupad    T  .   # T  .           T  .   T  .    T  .  a T  . &  T  .    ATZ) T  . !   ATZ einschalten T  . "  mymenulabel
   . # & T  . $  myform1.text1.value T  .  - T  / a 0   1  ` %C0 2 @J menuleiste1,xmenu1,xmenu2,xmenu3,xmenu4,xmenu5,xmenu6,xmenu7,xmenu8,xmenu9   T0  0     T  / - T      
   3 4  %   5 l  T  6    U7  THISFORM TOP MYFORM1 HSXDAT COMMAND1 VISIBLE YEAR0 CAPTION XJAHR1 YEAR1 XJAHR2 YEAR2 XJAHR3 YEAR3 XJAHR4 YEAR4 XJAHR5 FARBE0 FARBE1 FARBE2 FARBE3 FARBE4 FARBE5 FARBEI FARBEP FARBER	 ADDOBJECT MENULEISTE1 LEFT HEIGHT WIDTH HSMENULEISTE
 HSMENUNAME HSMENUARRAY HSCONTROLART
 CREATEBUTTONS
 HSMELDENAN XMENU1 HSMENUNR XMENU2 XMENU3 XMENU4 XMENU5 XMENU6 XMENU7 XMENU8 XMENU9
 LOCKSCREEN LOCTRL CONTROLS NAME SIZER SAVEFORMSIZE
 SCREENMAXH WINDOWSTATE T   a %     1F  T     
 T   a  T       %     1  T    	 
 T 	    T       %  
   1  T  
   
 T    T  
     %     1> T      Y T       %  
   1 T  
     T  
     %     1 T       T       %     1 T      7 T       %     1f T       T       %     1 T       T       %     1 T       T       %     1D T      _ T       %     1 T       T       %     1 T       T       %     1" T      = T       %     1l T       T       %     1 T       T       %     1  T       T       %     1J T      e T       %     1 T       T       %     1 T       T       %     1( T      C T       T   -
 Hb   T   ! -
 T"  
 T#     $ 
	 T   ! -
 T"  
 T#     $ 	w T   ! a3 %C'%  C'%  C'% 	s T   ! -
 T"  
 T#      T   ! a3 %C'%  C'%  C'% 	 T   ! -
 T"  
 T#     U&  THISFORM
 LOCKSCREEN MODI0 TAG	 BACKCOLOR FARBEI ACTIVECOLOR FARBE0 MODI1 FARBEP MODI2 FARBER MON0 MON1 MON2 MON3 MON4 MON5 MON6 MON7 MON8 MON9 MON10 MON11 MON12 YEAR0 YEAR1 YEAR2 YEAR3 YEAR4 WELCHESJAHR MYFORM1	 PVKIABZUG ENABLED	 MYPVKIANZ LASTPVKIANZ MONAT ZI %C    
 C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ; Das fhrt beim nchsten Programmstart zu Berechnungfehlern.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 " und beenden Sie dann das Programm.   B  U  THISFORM CHECK1 VALUE HINWEIS Destroy,      Unload     Load     Resizem     Initu      RefreshB     QueryUnloadL    1 a A r Q A   A 11111A 4r!Q q	A A A q Q A R b B 3 e 3 a a  a a !a  b a a a  a a b a a  a a a a a   3 1B A CA A QQq1q1 1A Z 111A11A   A11Q111A A q QQA !!!11! A!Q       A BQ 1    A BQA !1    A BQA !1    A B!QA !1    A B!QA !1    A B!QA !1    A BQ       A B!QA !    A B!QA !1    A  q    A 2 DA b a  A 21111uaaaaaaaaa111A1AQ1!A a#11113QQ1AqQAQ a#11111 a#11113!a a#11111a!1Q a#11111 a#11111AqQ1A a#11111q!AQ a"11111 a#11111a a # qA A  r EA 3  1  1A 1  1A 1  1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A 1 1A   !    1  A !1  A A 2 aaA A A 1                            )       5   +       =   F     
?  \     (?  Nu      lu          G     )   T                        	container      	container      men20      FORM1      NTop = 3
Left = 854
Width = 85
Height = 34
TabIndex = 486
Name = "men20"
     \PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 20

If ALLTRIM(thisform.men20.label1.Caption) = "-->DEZ" Then
  thisform.men20.label1.Caption = "lfd.Monat"
  thisform.men20.label1.ForeColor = QBColor(12)
  immerfolge = False
Else
  thisform.men20.label1.Caption = "-->DEZ"
  thisform.men20.label1.ForeColor = QBColor(0)
  immerfolge = True
ENDIF
thisform.men20.refresh
return

ENDPROC
     9                                   %   Y                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME 
 T  " %C     -->DEZu  T    	 lfd.Monat T    C 
 T     T     -->DEZ T    C  
 T 	  
   
  B U  MYINDEX THISFORM MEN20 LABEL1 CAPTION	 FORECOLOR QBCOLOR
 IMMERFOLGE FALSE TRUE REFRESH
 MouseLeave,     	 MouseMove      Click    1 112 12  "   A  A 2                       \         |               Q  	    )                            label      label      Label1      FORM1.men20      FontBold = .T.
FontSize = 14
Alignment = 2
Caption = "-->DEZ"
Height = 25
Left = 6
Top = 5
Width = 77
Name = "Label1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           
commandbutton      
commandbutton      Stufenbewegung      FORM1      uTop = 210
Left = 189
Height = 22
Width = 63
Caption = "Stufenbewegung"
TabIndex = 421
Name = "Stufenbewegung"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           	container      	container      Eingabefeld      FORM1      gTop = 699
Left = 546
Width = 309
Height = 108
Visible = .F.
TabIndex = 439
Name = "Eingabefeld"
      textbox      textbox      Text1      FORM1.Eingabefeld      >Height = 25
Left = 6
Top = 20
Width = 297
Name = "Text1"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
If nKeyCode = 13
*   DO texteverarbeiten
EndIf
Tastenstand.Caption = ""
tastenummer = 0

ENDPROC
     .                              :   %                             U  @      %  
   T    
 T   U  NKEYCODE
 NSHIFTALTCTRL TASTENSTAND CAPTION TASTENUMMER KeyPress,     1  B  2                              )                           label      label      Label2      FORM1.Eingabefeld      MCaption = ""
Height = 18
Left = 6
Top = 49
Width = 297
Name = "Label2"
      label      label      Label3      FORM1.Eingabefeld      ]WordWrap = .T.
Caption = ""
Height = 32
Left = 6
Top = 67
Width = 297
Name = "Label3"
      label      label      Label1      FORM1.Eingabefeld      _Caption = "Bitte Text eingeben"
Height = 16
Left = 6
Top = 3
Width = 103
Name = "Label1"
      textbox      textbox      t49      FORM1      zAlignment = 3
Value = 0.00
Height = 20
Left = 867
TabIndex = 150
Top = 246
Visible = .F.
Width = 78
Name = "t49"
     CPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 49,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       1   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               8  	    )                           label      label      trger49      FORM1      tCaption = " / 2"
Height = 15
Left = 945
Top = 249
Visible = .F.
Width = 25
TabIndex = 101
Name = "trger49"
      textbox      textbox      t27      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 588
TabIndex = 143
Top = 171
Width = 88
Name = "t27"
     CPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 27,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        8  	    )                           textbox      textbox      t31      FORM1      jAlignment = 3
Value = 0.00
Height = 20
Left = 678
TabIndex = 146
Top = 87
Width = 88
Name = "t31"
     CPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 31,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               8  	    )                           textbox      textbox      t46      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 678
TabIndex = 148
Top = 129
Width = 88
Name = "t46"
     CPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 46,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION       .   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        8  	    )                           textbox      textbox      t28      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 588
TabIndex = 144
Top = 192
Width = 88
Name = "t28"
     CPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 28,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               8  	    )                           textbox      textbox      t4      FORM1      jAlignment = 3
Value = 0.00
Height = 20
Left = 588
TabIndex = 154
Top = 150
Width = 88
Name = "t4"
     BPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 4,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               7  	    )                           textbox      textbox      t5      FORM1      jAlignment = 3
Value = 0.00
Height = 20
Left = 588
TabIndex = 155
Top = 129
Width = 88
Name = "t5"
     BPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 5,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        7  	    )                           textbox      textbox      t6      FORM1      jAlignment = 3
Value = 0.00
Height = 20
Left = 588
TabIndex = 156
Top = 108
Width = 88
Name = "t6"
     BPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 6,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               7  	    )                           textbox      textbox      t48      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 678
TabIndex = 149
Top = 150
Width = 88
Name = "t48"
     CPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 48,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION       0   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        8  	    )                           textbox      textbox      t32      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 678
TabIndex = 147
Top = 108
Width = 88
Name = "t32"
     CPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 32,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION           U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        8  	    )                           textbox      textbox      t30      FORM1      jAlignment = 3
Value = 0.00
Height = 20
Left = 678
TabIndex = 145
Top = 66
Width = 88
Name = "t30"
     CPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 30,nKeycode
ENDPROC
     3                              L   %   d        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  1                       o                        8  	    )                           textbox      textbox      dem49      FORM1      Alignment = 3
Value = 
Height = 20
Left = 930
ReadOnly = .T.
TabIndex = 102
Top = 162
Width = 24
DisabledBackColor = 255,255,255
Name = "dem49"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           shape      shape      sspanel4      FORM1      BTop = 39
Left = 198
Height = 85
Width = 37
Name = "sspanel4"
      shape      shape      sspanel2      FORM1      BTop = 39
Left = 9
Height = 613
Width = 530
Name = "sspanel2"
      shape      shape      sspanel1      FORM1      DTop = 37
Left = 541
Height = 612
Width = 441
Name = "sspanel1"
      
commandbutton      
commandbutton      z32      FORM1      Top = 222
Left = 867
Height = 22
Width = 10
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
TabIndex = 103
Name = "z32"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                      %         Q     C            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION	 MouseMove,     
 MouseLeave     1 12 111                       o                   )                           
commandbutton      
commandbutton      par32      FORM1      Top = 222
Left = 885
Height = 22
Width = 15
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
TabIndex = 104
Name = "par32"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      com32      FORM1      Top = 222
Left = 903
Height = 22
Width = 21
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = "33"
TabIndex = 105
Name = "com32"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                      %         Q     C            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION	 MouseMove,     
 MouseLeave     1 12 111                       o                   )                           shape      shape      
Abereich10      FORM1      FTop = 604
Left = 541
Height = 46
Width = 441
Name = "Abereich10"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           shape      shape      	Abereich2      FORM1      DTop = 235
Left = 9
Height = 108
Width = 531
Name = "Abereich2"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 640
Left = 974
TabIndex = 106
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      shape      shape      	Abereich0      FORM1      BTop = 37
Left = 9
Height = 66
Width = 327
Name = "Abereich0"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      z0      FORM1      sTop = 59
Left = 54
Height = 22
Width = 204
Caption = "Personalfall"
TabIndex = 1
Alignment = 0
Name = "z0"
     
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click

zti=0
myindex=0
*DO z_click(index)
DO FORM xauswahl WITH zi(1+0) to hsxretwert

zi(1+0) = rcv(hsxretwert)
index1=zi(1+0)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
nodefault
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*DO z_mousedown WITH nButton, nShift, nXCoord, nYCoord
ENDPROC
PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 0
zti = 0
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
     B    )  )                        2   %              `            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T   
 T    xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK       U  NKEYCODE
 NSHIFTALTCTRL        U  NBUTTON NSHIFT NXCOORD NYCOORDS       
 T  
 T  #  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION
 MouseLeave,     	 MouseMove      Click     KeyPress    	 MouseDown    
 RightClickD    1 112 12   "2  A 2 13 1  11                       \         |                 	                  k                )   )                        
commandbutton      
commandbutton      z2      FORM1      qTop = 80
Left = 54
Height = 22
Width = 204
Caption = "Bundesland"
TabIndex = 2
Alignment = 0
Name = "z2"
     PROCEDURE Click
zti=2
myindex=2

*z_click(index)

DO FORM blandauswahl WITH zi(1+2) TO hsxretwert

zi(1+2) = rcv(hsxretwert)
index1 = zi(1+2)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
PROCEDURE Refresh
*this.Caption=mbland

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                   |   %         L     .            U  z 
 T  
 T "  blandauswahl( C  T C    T C   C    U  ZTI MYINDEX BLANDAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK  U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,      Refresh     	 MouseMove     
 MouseLeave    1   $"3 4 12 111                                         	     m                )                           
commandbutton      
commandbutton      Com0      FORM1      lTop = 59
Left = 12
Height = 22
Width = 22
Caption = "01"
TabIndex = 107
TabStop = .F.
Name = "Com0"
     PROCEDURE Click
comaktivieren(0)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C    U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par0      FORM1      Top = 59
Left = 33
Height = 22
Width = 22
Caption = "X"
TabIndex = 108
TabStop = .F.
ToolTipText = "V01 Damit beginnt der Export der Daten nach Excel."
Name = "par0"
     0PROCEDURE Click
myindex = 0
myindexe = myindex
DO paraktiv

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"01")
ENDPROC
     4                              _   %   f                       U  $ 
 T   
 T      U  MYINDEX MYINDEXE PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  01  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveq     	 MouseMove     1   q 3 112 11                       ?         `               %      )                           label      label      Label1      FORM1      Caption = "Berechnung des Gehalts"
Height = 14
Left = 14
Top = 44
Width = 144
TabIndex = 109
ForeColor = 255,0,0
Name = "Label1"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      com2      FORM1      lTop = 80
Left = 12
Height = 22
Width = 22
Caption = "02"
TabIndex = 110
TabStop = .F.
Name = "com2"
     PROCEDURE Click
comaktivieren(2)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par2      FORM1      zTop = 80
Left = 33
Height = 22
Width = 22
Caption = ""
Enabled = .F.
TabIndex = 111
TabStop = .F.
Name = "par2"
     pPROCEDURE Click

IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"02")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  02  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 bQ QA  2 112 11                                      
        e      )   [                        shape      shape      	Abereich1      FORM1      DTop = 105
Left = 9
Height = 129
Width = 327
Name = "Abereich1"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      z4      FORM1      Top = 126
Left = 54
Height = 22
Width = 160
Caption = "TVD Sozial- und Erziehungsdienst"
TabIndex = 3
Alignment = 0
Name = "z4"
     PROCEDURE Click
zti=4
myindex=4
*DO z_click(index)
DO FORM dienstauswahl WITH zi(1+4) to hsxretwert

zi(1+4) = rcv(hsxretwert)
index1=zi(1+4)

DO zgrid_click WITH rcv(hsxretwert)

DO seiteladen
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         I     +            U   
 T  
 T # 
 dienstauswahl( C  T C    T C   C      U	  ZTI MYINDEX
 DIENSTAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 SEITELADEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMovem    1   2"r 2 112 11                             	      3        S        )                           
commandbutton      
commandbutton      z5      FORM1      uTop = 147
Left = 54
Height = 22
Width = 173
Caption = "Entgeltgruppe"
TabIndex = 4
Alignment = 0
Name = "z5"
     PROCEDURE Click
zti=5
myindex=zti

*DO z_click(index)
DO FORM entgeltgruppenauswahl WITH zi(1+5) to hsxretwert

IF hsxretwert = "I:-2" &&nichts zum auswhlen
	RETURN
endif
zi(1+5)=rcv(hsxretwert)
index1=zi(1+5)

DO zgrid_click WITH rcv(hsxretwert)


ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   x   %         g     E            U   
 T  
 T   +  entgeltgruppenauswahl( C  %  I:-2^  B  T C    T C   C    U  ZTI MYINDEX ENTGELTGRUPPENAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   RA A "4 112 11                               )  o                )                           
commandbutton      
commandbutton      com4      FORM1      mTop = 126
Left = 12
Height = 22
Width = 22
Caption = "03"
TabIndex = 112
TabStop = .F.
Name = "com4"
     PROCEDURE Click
comaktivieren(4)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par4      FORM1      lTop = 126
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 113
TabStop = .F.
Name = "par4"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"03")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  03  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      com5      FORM1      mTop = 147
Left = 12
Height = 22
Width = 22
Caption = "04"
TabIndex = 115
TabStop = .F.
Name = "com5"
     PROCEDURE Click
comaktivieren(5)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par5      FORM1      lTop = 147
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 116
TabStop = .F.
Name = "par5"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"04")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  04  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t9      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 15
Top = 278
Width = 88
Name = "t9"
     IPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 9,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 9
ENDPROC
PROCEDURE Valid
IF zi(1+2) = 11 .and. welchesjahr >= 2022&&RLP
	myform1.sonderzuschlag.interactivechange
ENDIF
RETURN .t.
ENDPROC
         f  f                        =0   %   Y                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   	   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   	 U  T_CLICK< ! %C  	  	. 
      Ba U  ZI WELCHESJAHR MYFORM1 SONDERZUSCHLAG INTERACTIVECHANGE
 MouseLeave,     	 MouseMove      KeyPress     GotFocus     Valid    1 112 12  QA 2  2  A q 1                       \         |                 	                  >      )   f                        
commandbutton      
commandbutton      z6      FORM1      jTop = 168
Left = 54
Height = 22
Width = 201
Caption = "z6"
TabIndex = 6
Alignment = 0
Name = "z6"
     8PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex=6
zti = 6
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=6
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+6) to hsxretwert

zi(1+6) = rcv(hsxretwert)
index1=zi(1+6)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
         n  n                           %                          U  S       
 T 
 T #  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave     	 MouseMoveA     Click    1 1  12 112 12   "2                                         	     h          -      )   n                        
commandbutton      
commandbutton      z1      FORM1      jTop = 189
Left = 54
Height = 22
Width = 178
Caption = "z1"
TabIndex = 8
Alignment = 0
Name = "z1"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=1
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+1) to hsxretwert &&6

zi(1+1) = rcv(hsxretwert)
index1=zi(1+1)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           
commandbutton      
commandbutton      Com6      FORM1      mTop = 168
Left = 12
Height = 22
Width = 22
Caption = "05"
TabIndex = 117
TabStop = .F.
Name = "Com6"
     PROCEDURE Click
comaktivieren(6)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par6      FORM1      lTop = 168
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 118
TabStop = .F.
Name = "par6"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"05")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  05  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com1      FORM1      mTop = 189
Left = 12
Height = 22
Width = 22
Caption = "06"
TabIndex = 119
TabStop = .F.
Name = "Com1"
     PROCEDURE Click
comaktivieren(1)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par1      FORM1      lTop = 189
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 120
TabStop = .F.
Name = "par1"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"06")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  06  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com3      FORM1      mTop = 210
Left = 12
Height = 22
Width = 22
Caption = "07"
TabIndex = 121
TabStop = .F.
Name = "Com3"
     PROCEDURE Click
comaktivieren(3)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par3      FORM1      lTop = 210
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 122
TabStop = .F.
Name = "par3"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"07")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  07  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z7      FORM1      kTop = 256
Left = 54
Height = 22
Width = 258
Caption = "z7"
TabIndex = 12
Alignment = 0
Name = "z7"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=7
myindex=zti
*DO z_click(index)

DO FORM xauswahl WITH zi(1+7) to hsxretwert &&6

zi(1+7) = rcv(hsxretwert)
index1=zi(1+7)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      com7      FORM1      mTop = 256
Left = 12
Height = 22
Width = 22
Caption = "08"
TabIndex = 123
TabStop = .F.
Name = "com7"
     PROCEDURE Click
comaktivieren(7)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par7      FORM1      lTop = 256
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 124
TabStop = .F.
Name = "par7"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"08")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  08  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label3      FORM1      Caption = "Grundbezahlung"
Height = 14
Left = 14
Top = 241
Width = 144
TabIndex = 125
ForeColor = 255,0,0
Name = "Label3"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com9      FORM1      mTop = 277
Left = 12
Height = 22
Width = 22
Caption = "09"
TabIndex = 126
TabStop = .F.
Name = "Com9"
     PROCEDURE Click
comaktivieren(9)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C	   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par9      FORM1      lTop = 277
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 127
TabStop = .F.
Name = "par9"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"09")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  09  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com8      FORM1      mTop = 298
Left = 12
Height = 22
Width = 22
Caption = "10"
TabIndex = 128
TabStop = .F.
Name = "Com8"
     PROCEDURE Click
comaktivieren(8)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       !         B                     )                           
commandbutton      
commandbutton      par8      FORM1      lTop = 298
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 129
TabStop = .F.
Name = "par8"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"10")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  10  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com11      FORM1      nTop = 319
Left = 12
Height = 22
Width = 22
Caption = "11"
TabIndex = 130
TabStop = .F.
Name = "Com11"
     PROCEDURE Click
comaktivieren(11)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par11      FORM1      mTop = 319
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 131
TabStop = .F.
Name = "par11"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"11")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  11  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label4      FORM1      `Caption = "A"
Height = 19
Left = 335
Top = 240
Width = 10
TabIndex = 132
Name = "Label4"
     =PROCEDURE Click
register = 47
*do laden
thisform.inprozent.click &&Do attached
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     /                                 %   c        
               U   
 T  /
     U  REGISTER THISFORM	 INPROZENT CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaves     	 MouseMove     1   2 112 11                       Q         r               2  
    )                           label      label      Label5      FORM1      `Caption = "L"
Height = 19
Left = 348
Top = 240
Width = 12
TabIndex = 133
Name = "Label5"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      Label6      FORM1      `Caption = "S"
Height = 19
Left = 361
Top = 240
Width = 12
TabIndex = 134
Name = "Label6"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      Label7      FORM1      `Caption = "Z"
Height = 19
Left = 374
Top = 240
Width = 12
TabIndex = 135
Name = "Label7"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      Label8      FORM1      `Caption = "W"
Height = 19
Left = 499
Top = 240
Width = 12
TabIndex = 136
Name = "Label8"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      Label9      FORM1      `Caption = "T"
Height = 19
Left = 514
Top = 240
Width = 12
TabIndex = 137
Name = "Label9"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t7      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 13
Top = 257
Width = 88
Name = "t7"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 7,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 7
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t11      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 20
Top = 320
Width = 88
Name = "t11"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 11,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 11
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t8      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 18
Top = 299
Width = 88
Name = "t8"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 8,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 8
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem9      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 157
TabStop = .F.
Top = 278
Width = 24
DisabledBackColor = 255,255,255
Name = "dem9"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem7      FORM1      Alignment = 3
Value = 
Enabled = .T.
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 158
TabStop = .F.
Top = 257
Width = 24
BackColor = 255,255,255
DisabledBackColor = 255,255,255
Name = "dem7"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem11      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 159
TabStop = .F.
Top = 320
Width = 24
DisabledBackColor = 255,255,255
Name = "dem11"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem8      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 160
TabStop = .F.
Top = 299
Width = 24
DisabledBackColor = 255,255,255
Name = "dem8"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      lei7      FORM1      mTop = 256
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 161
TabStop = .F.
Name = "lei7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lei11      FORM1      nTop = 319
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 162
TabStop = .F.
Name = "lei11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst7      FORM1      Top = 256
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 163
TabStop = .F.
BackColor = 240,240,240
Name = "lst7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz7      FORM1      mTop = 256
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 164
TabStop = .F.
Name = "soz7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk7      FORM1      mTop = 256
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 165
TabStop = .F.
Name = "zvk7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst9      FORM1      mTop = 277
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 166
TabStop = .F.
Name = "lst9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz9      FORM1      mTop = 277
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 167
TabStop = .F.
Name = "soz9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk9      FORM1      mTop = 277
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 168
TabStop = .F.
Name = "zvk9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst8      FORM1      mTop = 298
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 169
TabStop = .F.
Name = "lst8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz8      FORM1      mTop = 298
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 170
TabStop = .F.
Name = "soz8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk8      FORM1      mTop = 298
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 171
TabStop = .F.
Name = "zvk8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst11      FORM1      nTop = 319
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 172
TabStop = .F.
Name = "lst11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz11      FORM1      nTop = 319
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 173
TabStop = .F.
Name = "soz11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk11      FORM1      nTop = 319
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 174
TabStop = .F.
Name = "zvk11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei7      FORM1      mTop = 256
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 175
TabStop = .F.
Name = "wei7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei7      FORM1      mTop = 256
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 176
TabStop = .F.
Name = "tei7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru7      FORM1      mTop = 256
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 177
TabStop = .F.
Name = "bru7"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei9      FORM1      mTop = 277
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 178
TabStop = .F.
Name = "wei9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru9      FORM1      mTop = 277
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 179
TabStop = .F.
Name = "bru9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei8      FORM1      mTop = 298
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 180
TabStop = .F.
Name = "wei8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei8      FORM1      mTop = 298
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 181
TabStop = .F.
Name = "tei8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru8      FORM1      mTop = 298
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 182
TabStop = .F.
Name = "bru8"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei11      FORM1      nTop = 319
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 183
TabStop = .F.
Name = "wei11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei11      FORM1      nTop = 319
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 184
TabStop = .F.
Name = "tei11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru11      FORM1      nTop = 319
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 185
TabStop = .F.
Name = "bru11"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei9      FORM1      mTop = 277
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 186
TabStop = .F.
Name = "tei9"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,1)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           shape      shape      	Abereich3      FORM1      DTop = 344
Left = 9
Height = 131
Width = 531
Name = "Abereich3"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t12      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 24
Top = 367
Width = 88
Name = "t12"
     QPROCEDURE Valid
IF zi(1+2) = 11 .and. welchesjahr >= 2022&&RLP
	myform1.sonderzuschlag.interactivechange
ENDIF
RETURN .t.
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 12,nKeycode


ENDPROC
PROCEDURE GotFocus
DO t_click WITH 12

ENDPROC
         f  f                        =0   %   Y                       U  < ! %C  	  	. 
      Ba U  ZI WELCHESJAHR MYFORM1 SONDERZUSCHLAG INTERACTIVECHANGE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK Valid,     
 MouseLeave     	 MouseMove     KeyPress     GotFocus<    1  A q 2 112 12  QA 4  2                       }                  	     ^        }          2  F      )   f                        
commandbutton      
commandbutton      z10      FORM1      mTop = 345
Left = 54
Height = 22
Width = 279
Caption = "z10"
TabIndex = 21
Alignment = 0
Name = "z10"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=10
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+10) to hsxretwert

zi(1+10) = rcv(hsxretwert)
index1=zi(1+10)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  

 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           
commandbutton      
commandbutton      z12      FORM1      mTop = 366
Left = 54
Height = 22
Width = 258
Caption = "z12"
TabIndex = 23
Alignment = 0
Name = "z12"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex=12
zti = 12
DO FORM eingabefeldeditieren WITH this.Caption

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
if (zi(1+4) >= 25 .And. zi(1+4) <= 27)&&16, 18, 19
	Messagebox( ("Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistent"))
	Retval = .T. &&LockWindowUpdate(0&)
	Return
ENDIF

zti=12
myindex=zti
myindexe=zti

IF zi(1+zti) = 161 .or. zi(1+zti) = 162
	thisform.dienstunfhig.Click
	RETURN
endif

*DO z_click(index)
DO case
	CASE zi(1+4) >= 0 .and. zi(1+4) <= 7
		register = 112
	CASE zi(1+4) >= 8 .and. zi(1+4) <= 24
		register = 1112
endcase		

DO FORM zulagen WITH zi(1+12) to hsxretwert
 
zi(1+12) = rcv(hsxretwert)
index1=zi(1+12)

DO zgrid_click WITH rcv(hsxretwert)


*!*	*DO z_click(index)
*!*	DO tafelloeschen
*!*	DO extraaktivieren

*!*	*mytablett.show(1)
*!*	*DO FORM zulagen WITH zi(1+12) to hsxretwert

*!*	*DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
     (                              y   %           #   P            U  S       
 T 
 T #  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME% %C   C  	 M C@ Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistentx T a B 
 T 
 T  
 T  , %C    C    
     B 
 H ]$ C    C  	+
 T p$ C   C  	] T X   zulagen(
 C
   T  
C 
   T C
   
 C 
   U  ZI RETVAL ZTI MYINDEX MYINDEXE THISFORM
 DIENSTUNFHIG CLICK REGISTER ZULAGEN
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave     	 MouseMoveA     Click    1 1  13 112 12 Q A A     A A  A A A "<                                         	     l                )                           
commandbutton      
commandbutton      Com10      FORM1      nTop = 345
Left = 12
Height = 22
Width = 22
Caption = "12"
TabIndex = 187
TabStop = .F.
Name = "Com10"
     PROCEDURE Click
comaktivieren(10)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C
   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par10      FORM1      mTop = 345
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 188
TabStop = .F.
Name = "par10"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"12")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  12  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com12      FORM1      nTop = 366
Left = 12
Height = 22
Width = 22
Caption = "13"
TabIndex = 189
TabStop = .F.
Name = "Com12"
     PROCEDURE Click
comaktivieren(12)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par12      FORM1      mTop = 366
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 190
TabStop = .F.
Name = "par12"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"13")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  13  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z13      FORM1      mTop = 387
Left = 54
Height = 22
Width = 258
Caption = "z13"
TabIndex = 25
Alignment = 0
Name = "z13"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 13
zti = 13
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
if (zi(1+4) >= 25 .And. zi(1+4) <= 27)&&16, 18, 19
	Messagebox( ("Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistent"))
	Retval = .T. &&LockWindowUpdate(0&)
	Return
ENDIF


zti=13
myindex=zti
myindexe=zti

IF zi(1+zti) = 161 .or. zi(1+zti) = 162
	thisform.dienstunfhig.Click
	RETURN
endif


*DO z_click(index)
DO case
	CASE zi(1+4) >= 0 .and. zi(1+4) <= 7
		register = 113
	CASE zi(1+4) >= 8 .and. zi(1+4) <= 24
		register = 1113
endcase		

DO FORM zulagen WITH zi(1+13) to hsxretwert

zi(1+13) = rcv(hsxretwert)
index1=zi(1+13)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
     (                              y   %           #   P            U  S       
 T 

 T 
#  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME% %C   C  	 M C@ Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistentx T a B 
 T 

 T  
 T  , %C    C    
     B 
 H ]$ C    C  	+
 T q$ C   C  	] T Y   zulagen(
 C   T  C 
   T C   
 C 
   U  ZI RETVAL ZTI MYINDEX MYINDEXE THISFORM
 DIENSTUNFHIG CLICK REGISTER ZULAGEN
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave     	 MouseMoveA     Click    1 1  12 112 12 Q A A     A A  A A A "2                                         	     l                )                           
commandbutton      
commandbutton      z14      FORM1      mTop = 408
Left = 54
Height = 22
Width = 258
Caption = "z14"
TabIndex = 27
Alignment = 0
Name = "z14"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 14
zti = 14
DO FORM eingabefeldeditieren WITH this.Caption

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
if (zi(1+4) >= 25 .And. zi(1+4) <= 27)&&16, 18, 19
	Messagebox( ("Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistent"))
	Retval = .T. &&LockWindowUpdate(0&)
	Return
ENDIF

zti=14
myindex=zti
myindexe=zti

IF zi(1+zti) = 161 .or. zi(1+zti) = 162
	thisform.dienstunfhig.Click
	RETURN
ENDIF

*DO z_click(index)
DO case
	CASE zi(1+4) >= 0 .and. zi(1+4) <= 7
		register = 114
	CASE zi(1+4) >= 8 .and. zi(1+4) <= 24
		register = 1114
endcase		

DO FORM zulagen WITH zi(1+14) to hsxretwert

zi(1+14) = rcv(hsxretwert)
index1=zi(1+14)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
     (                              y   %           #   P            U  S       
 T 
 T #  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME% %C   C  	 M C@ Fr das Dienstverhltnis in Zeile 4 besteht kein Zulageassistentx T a B 
 T 
 T  
 T  , %C    C    
     B 
 H ]$ C    C  	+
 T r$ C   C  	] T Z   zulagen(
 C   T  C 
   T C   
 C 
   U  ZI RETVAL ZTI MYINDEX MYINDEXE THISFORM
 DIENSTUNFHIG CLICK REGISTER ZULAGEN
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave     	 MouseMoveA     Click    1 1  13 112 12 Q A A     A A  A A A "2                                         	     n                )                           
commandbutton      
commandbutton      Com13      FORM1      nTop = 387
Left = 12
Height = 22
Width = 22
Caption = "14"
TabIndex = 191
TabStop = .F.
Name = "Com13"
     PROCEDURE Click
comaktivieren(13)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C
   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par13      FORM1      mTop = 387
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 192
TabStop = .F.
Name = "par13"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"14")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  14  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com14      FORM1      nTop = 408
Left = 12
Height = 22
Width = 22
Caption = "15"
TabIndex = 193
TabStop = .F.
Name = "Com14"
     PROCEDURE Click
comaktivieren(14)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par14      FORM1      mTop = 408
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 194
TabStop = .F.
Name = "par14"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"15")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  15  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t10      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 22
Top = 346
Width = 88
Name = "t10"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 10,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 10
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   
   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   
 U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t14      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 28
Top = 409
Width = 88
Name = "t14"
     KPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 14,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 14
ENDPROC
PROCEDURE Valid
IF zi(1+2) = 11 .and. welchesjahr >= 2022&&RLP
	myform1.sonderzuschlag.interactivechange
ENDIF
RETURN .t.
ENDPROC
         f  f                        =0   %   Y                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK< ! %C  	  	. 
      Ba U  ZI WELCHESJAHR MYFORM1 SONDERZUSCHLAG INTERACTIVECHANGE
 MouseLeave,     	 MouseMove      KeyPress     GotFocus     Valid    1 112 12  QA 2  2  A q 1                       \         |                 	                  @      )   f                        textbox      textbox      t13      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 26
Top = 388
Width = 88
Name = "t13"
     KPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 13,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 13
ENDPROC
PROCEDURE Valid
IF zi(1+2) = 11 .and. welchesjahr >= 2022&&RLP
	myform1.sonderzuschlag.interactivechange
ENDIF
RETURN .t.
ENDPROC
         f  f                        =0   %   Y                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   
   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   
 U  T_CLICK< ! %C  	  	. 
      Ba U  ZI WELCHESJAHR MYFORM1 SONDERZUSCHLAG INTERACTIVECHANGE
 MouseLeave,     	 MouseMove      KeyPress     GotFocus     Valid    1 112 12  QA 2  2  A q 1                       \         |                 	                  @      )   f                        textbox      textbox      dem12      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 195
TabStop = .F.
Top = 367
Width = 24
DisabledBackColor = 255,255,255
Name = "dem12"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem10      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 196
TabStop = .F.
Top = 346
Width = 24
DisabledBackColor = 255,255,255
Name = "dem10"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem14      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 197
TabStop = .F.
Top = 409
Width = 24
DisabledBackColor = 255,255,255
Name = "dem14"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem13      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 198
TabStop = .F.
Top = 388
Width = 24
DisabledBackColor = 255,255,255
Name = "dem13"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      lei12      FORM1      nTop = 366
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 199
TabStop = .F.
Name = "lei12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lei14      FORM1      nTop = 408
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 200
TabStop = .F.
Name = "lei14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst10      FORM1      nTop = 345
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 201
TabStop = .F.
Name = "lst10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz10      FORM1      nTop = 345
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 202
TabStop = .F.
Name = "soz10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk10      FORM1      nTop = 345
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 203
TabStop = .F.
Name = "zvk10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst12      FORM1      nTop = 366
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 204
TabStop = .F.
Name = "lst12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz12      FORM1      nTop = 366
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 205
TabStop = .F.
Name = "soz12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk12      FORM1      nTop = 366
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 206
TabStop = .F.
Name = "zvk12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst13      FORM1      nTop = 387
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 207
TabStop = .F.
Name = "lst13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz13      FORM1      nTop = 387
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 208
TabStop = .F.
Name = "soz13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk13      FORM1      nTop = 387
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 209
TabStop = .F.
Name = "zvk13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst14      FORM1      nTop = 408
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 210
TabStop = .F.
Name = "lst14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz14      FORM1      nTop = 408
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 211
TabStop = .F.
Name = "soz14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk14      FORM1      nTop = 408
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 212
TabStop = .F.
Name = "zvk14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei10      FORM1      nTop = 345
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 213
TabStop = .F.
Name = "wei10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei10      FORM1      nTop = 345
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 214
TabStop = .F.
Name = "tei10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru10      FORM1      nTop = 345
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 215
TabStop = .F.
Name = "bru10"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei12      FORM1      nTop = 366
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 216
TabStop = .F.
Name = "wei12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru12      FORM1      nTop = 366
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 217
TabStop = .F.
Name = "bru12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei13      FORM1      nTop = 387
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 218
TabStop = .F.
Name = "wei13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei13      FORM1      nTop = 387
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 219
TabStop = .F.
Name = "tei13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru13      FORM1      nTop = 387
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 220
TabStop = .F.
Name = "bru13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei14      FORM1      nTop = 408
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 221
TabStop = .F.
Name = "wei14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei14      FORM1      nTop = 408
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 222
TabStop = .F.
Name = "tei14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru14      FORM1      nTop = 408
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 223
TabStop = .F.
Name = "bru14"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei12      FORM1      nTop = 366
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 224
TabStop = .F.
Name = "tei12"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lei13      FORM1      nTop = 387
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 225
TabStop = .F.
Name = "lei13"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      z15      FORM1      mTop = 429
Left = 54
Height = 22
Width = 258
Caption = "z15"
TabIndex = 29
Alignment = 0
Name = "z15"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=15
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+15) to hsxretwert

zi(1+15) = rcv(hsxretwert)
index1=zi(1+15)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           
commandbutton      
commandbutton      Com15      FORM1      nTop = 429
Left = 12
Height = 22
Width = 22
Caption = "16"
TabIndex = 226
TabStop = .F.
Name = "Com15"
     PROCEDURE Click
comaktivieren(15)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par15      FORM1      mTop = 429
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 227
TabStop = .F.
Name = "par15"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"16")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  16  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t15      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 30
Top = 430
Width = 88
Name = "t15"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 15,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 15
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem15      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 228
TabStop = .F.
Top = 430
Width = 24
DisabledBackColor = 255,255,255
Name = "dem15"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      lst15      FORM1      nTop = 429
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 229
TabStop = .F.
Name = "lst15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz15      FORM1      nTop = 429
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 230
TabStop = .F.
Name = "soz15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk15      FORM1      nTop = 429
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 231
TabStop = .F.
Name = "zvk15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei15      FORM1      nTop = 429
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 232
TabStop = .F.
Name = "wei15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei15      FORM1      nTop = 429
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 233
TabStop = .F.
Name = "tei15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru15      FORM1      nTop = 429
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 234
TabStop = .F.
Name = "bru15"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      z16      FORM1      mTop = 450
Left = 54
Height = 22
Width = 258
Caption = "z16"
TabIndex = 31
Alignment = 0
Name = "z16"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=16
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+16) to hsxretwert

zi(1+16) = rcv(hsxretwert)
index1=zi(1+16)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           
commandbutton      
commandbutton      Com16      FORM1      nTop = 450
Left = 12
Height = 22
Width = 22
Caption = "17"
TabIndex = 235
TabStop = .F.
Name = "Com16"
     PROCEDURE Click
comaktivieren(16)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par16      FORM1      mTop = 450
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 236
TabStop = .F.
Name = "par16"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"17")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  17  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t16      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 32
Top = 451
Width = 88
Name = "t16"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 16,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 16
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem16      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 237
TabStop = .F.
Top = 451
Width = 24
DisabledBackColor = 255,255,255
Name = "dem16"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      lst16      FORM1      nTop = 450
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 238
TabStop = .F.
Name = "lst16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz16      FORM1      nTop = 450
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 239
TabStop = .F.
Name = "soz16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk16      FORM1      nTop = 450
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 240
TabStop = .F.
Name = "zvk16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei16      FORM1      nTop = 450
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 241
TabStop = .F.
Name = "wei16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei16      FORM1      nTop = 450
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 242
TabStop = .F.
Name = "tei16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru16      FORM1      nTop = 450
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 243
TabStop = .F.
Name = "bru16"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           shape      shape      	Abereich4      FORM1      CTop = 476
Left = 9
Height = 87
Width = 531
Name = "Abereich4"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t18      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 36
Top = 519
Width = 88
Name = "t18"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 18,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 18
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      z17      FORM1      mTop = 497
Left = 54
Height = 22
Width = 279
Caption = "z17"
TabIndex = 33
Alignment = 0
Name = "z17"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=17
myindex=zti
DO FORM xauswahl WITH zi(1+17) to hsxretwert

zi(1+17) = rcv(hsxretwert)
index1=zi(1+17)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      z18      FORM1      mTop = 518
Left = 54
Height = 22
Width = 258
Caption = "z18"
TabIndex = 35
Alignment = 0
Name = "z18"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=18
myindex=zti
DO FORM xauswahl WITH zi(1+18) to hsxretwert

zi(1+18) = rcv(hsxretwert)
index1=zi(1+18)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      Com17      FORM1      nTop = 497
Left = 12
Height = 22
Width = 22
Caption = "18"
TabIndex = 244
TabStop = .F.
Name = "Com17"
     PROCEDURE Click
comaktivieren(17)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par17      FORM1      mTop = 497
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 245
TabStop = .F.
Name = "par17"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"18")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  18  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label11      FORM1      Caption = "Sonstige Bezge"
Height = 14
Left = 14
Top = 482
Width = 144
TabIndex = 246
ForeColor = 255,0,0
Name = "Label11"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com18      FORM1      nTop = 518
Left = 12
Height = 22
Width = 22
Caption = "19"
TabIndex = 247
TabStop = .F.
Name = "Com18"
     PROCEDURE Click
comaktivieren(18)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par18      FORM1      mTop = 518
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 248
TabStop = .F.
Name = "par18"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"19")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  19  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z19      FORM1      mTop = 539
Left = 54
Height = 22
Width = 279
Caption = "z19"
TabIndex = 37
Alignment = 0
Name = "z19"
     *PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 19
zti = 19
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=19
myindex=zti
DO FORM xauswahl WITH zi(1+19) to hsxretwert

zi(1+19) = rcv(hsxretwert)
index1=zi(1+19)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
         n  n                           %                          U  S       
 T 
 T #  eingabefeldeditieren   U	  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave     	 MouseMoveA     Click    1 1  12 112 12   "1                                         	     l                )   n                        
commandbutton      
commandbutton      Com19      FORM1      nTop = 539
Left = 12
Height = 22
Width = 22
Caption = "20"
TabIndex = 249
TabStop = .F.
Name = "Com19"
     PROCEDURE Click
comaktivieren(19)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par19      FORM1      mTop = 539
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 250
TabStop = .F.
Name = "par19"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"20")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  20  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t17      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 34
Top = 498
Width = 88
Name = "t17"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 17,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 17
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t19      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
SelectOnEntry = .T.
TabIndex = 38
Top = 540
Width = 88
Name = "t19"
     PROCEDURE GotFocus
DO t_click WITH 19
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 19, nKeycode
ENDPROC
                                   )!   %         G     '            U   
    U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS GotFocus,     
 MouseLeaveI     	 MouseMove      KeyPress9    1  2 112 12  QA 1                       &         G                    	   &        )                           textbox      textbox      dem18      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 251
TabStop = .F.
Top = 519
Width = 24
DisabledBackColor = 255,255,255
Name = "dem18"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem17      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 252
TabStop = .F.
Top = 498
Width = 24
DisabledBackColor = 255,255,255
Name = "dem17"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem19      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 253
TabStop = .F.
Top = 540
Width = 24
DisabledBackColor = 255,255,255
Name = "dem19"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      lei19      FORM1      nTop = 539
Left = 332
Height = 22
Width = 14
Caption = "L"
TabIndex = 254
TabStop = .F.
Name = "lei19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst17      FORM1      nTop = 497
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 255
TabStop = .F.
Name = "lst17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz17      FORM1      nTop = 497
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 256
TabStop = .F.
Name = "soz17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk17      FORM1      nTop = 497
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 257
TabStop = .F.
Name = "zvk17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst18      FORM1      nTop = 518
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 258
TabStop = .F.
Name = "lst18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz18      FORM1      nTop = 518
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 259
TabStop = .F.
Name = "soz18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk18      FORM1      nTop = 518
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 260
TabStop = .F.
Name = "zvk18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      lst19      FORM1      nTop = 539
Left = 345
Height = 22
Width = 14
Caption = "x"
TabIndex = 261
TabStop = .F.
Name = "lst19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO lst_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  LST_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      soz19      FORM1      nTop = 539
Left = 358
Height = 22
Width = 14
Caption = "x"
TabIndex = 262
TabStop = .F.
Name = "soz19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO soz_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  SOZ_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      zvk19      FORM1      nTop = 539
Left = 371
Height = 22
Width = 14
Caption = "x"
TabIndex = 263
TabStop = .F.
Name = "zvk19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO zvk_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  ZVK_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei17      FORM1      nTop = 497
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 264
TabStop = .F.
Name = "wei17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei17      FORM1      nTop = 497
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 265
TabStop = .F.
Name = "tei17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru17      FORM1      nTop = 497
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 266
TabStop = .F.
Name = "bru17"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei18      FORM1      nTop = 518
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 267
TabStop = .F.
Name = "wei18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru18      FORM1      nTop = 518
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 268
TabStop = .F.
Name = "bru18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      wei19      FORM1      nTop = 539
Left = 498
Height = 22
Width = 14
Caption = "x"
TabIndex = 269
TabStop = .F.
Name = "wei19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO wei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  WEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei19      FORM1      nTop = 539
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 270
TabStop = .F.
Name = "tei19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      bru19      FORM1      nTop = 539
Left = 524
Height = 22
Width = 14
Caption = "x"
TabIndex = 271
TabStop = .F.
Name = "bru19"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO bru_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  BRU_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           
commandbutton      
commandbutton      tei18      FORM1      nTop = 518
Left = 511
Height = 22
Width = 14
Caption = "x"
TabIndex = 272
TabStop = .F.
Name = "tei18"
     -PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO tei_clic WITH INT(VAL(SUBSTR(this.Name,4,2)))
ENDPROC
                                      %   U        	               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME    CCC  \g8 U  TEI_CLIC THIS NAME
 MouseLeave,     	 MouseMove      Click    1 112 12 1                       \         |               "  	    )                           shape      shape      	Abereich5      FORM1      CTop = 564
Left = 9
Height = 87
Width = 531
Name = "Abereich5"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t21      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
TabIndex = 42
Top = 607
Width = 88
Name = "t21"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 21,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 21
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      z20      FORM1      Top = 585
Left = 54
Height = 22
Width = 279
Caption = "Bezge fr "
TabIndex = 273
TabStop = .F.
Alignment = 0
Name = "z20"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=20
myindex=zti
RETURN &&hier keine auswahl

DO FORM xauswahl WITH zi(1+20) to hsxretwert

zi(1+20) = rcv(hsxretwert)
index1=zi(1+20)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   "   %         0                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEz 
 T  
 T    B  xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   A "1                       \         |                 	    )                           
commandbutton      
commandbutton      com20      FORM1      nTop = 585
Left = 12
Height = 22
Width = 22
Caption = "21"
TabIndex = 274
TabStop = .F.
Name = "com20"
     PROCEDURE Click
comaktivieren(20)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par20      FORM1      mTop = 585
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 275
TabStop = .F.
Name = "par20"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"21")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  21  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label12      FORM1      Caption = "Bruttogehalt"
Height = 14
Left = 14
Top = 570
Width = 144
TabIndex = 276
ForeColor = 255,0,0
Name = "Label12"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com21      FORM1      nTop = 606
Left = 12
Height = 22
Width = 22
Caption = "22"
TabIndex = 277
TabStop = .F.
Name = "Com21"
     PROCEDURE Click
comaktivieren(21)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par21      FORM1      mTop = 606
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 278
TabStop = .F.
Name = "par21"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"22")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  22  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z22      FORM1      zTop = 627
Left = 143
Height = 22
Width = 152
Caption = "Tage von Normal"
TabIndex = 44
Alignment = 0
Name = "z22"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=22
myindex=zti

DO FORM xauswahl WITH zi(1+22) to hsxretwert

zi(1+22) = rcv(hsxretwert)
index1=zi(1+22)
 
DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      Com22      FORM1      nTop = 627
Left = 12
Height = 22
Width = 22
Caption = "23"
TabIndex = 279
TabStop = .F.
Name = "Com22"
     PROCEDURE Click
comaktivieren(22)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par22      FORM1      mTop = 627
Left = 33
Height = 22
Width = 22
Caption = ""
TabIndex = 280
TabStop = .F.
Name = "par22"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"23")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  23  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t20      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
TabIndex = 139
Top = 586
Width = 88
Name = "t20"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 20,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 20
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t22      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 385
TabIndex = 46
Top = 628
Width = 88
Name = "t22"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 22,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 22
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem21      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 281
TabStop = .F.
Top = 607
Width = 24
DisabledBackColor = 255,255,255
Name = "dem21"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem20      FORM1      Alignment = 3
Value = 
Height = 20
Left = 474
ReadOnly = .T.
TabIndex = 282
TabStop = .F.
Top = 586
Width = 24
DisabledBackColor = 255,255,255
Name = "dem20"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           label      label      Label13      FORM1      |Caption = "voll = "
Height = 14
Left = 338
Top = 588
Width = 44
TabIndex = 283
ForeColor = 255,0,0
Name = "Label13"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t3      FORM1      }Alignment = 3
Value = 0.00
Height = 20
Left = 55
SelectOnEntry = .T.
TabIndex = 43
Top = 628
Width = 67
Name = "t3"
     PROCEDURE GotFocus
DO t_click WITH 3
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 3,nKeycode
ENDPROC
                                   )!   %         G     '            U   
    U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS GotFocus,     
 MouseLeaveI     	 MouseMove      KeyPress9    1  2 112 12  QA 1                       %         F                    	   %        )                           textbox      textbox      t1      FORM1      }Alignment = 3
Value = 0.00
Height = 20
Left = 55
SelectOnEntry = .T.
TabIndex = 39
Top = 607
Width = 67
Name = "t1"
     lPROCEDURE Valid
IF this.Value > 200000000 .or. this.Value <  0.00000
	WAIT WINDOW "Range : 0.00000 bis 200000000 " TIMEOUT 1
	RETURN .f.
ENDIF

RETURN .t.
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 1
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 1,nKeycode
ENDPROC
         l  l                           %   ]                       U  p - %   	             
b . R, Range : 0.00000 bis 200000000  B-  Ba U  THIS VALUE 
    U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS Valid,      GotFocus     
 MouseLeave     	 MouseMove2     KeyPress    1 q A r 2  2 112 12  QA 1                                      	   	      7        W            a      )   l                        textbox      textbox      dem3      FORM1      Alignment = 3
Value = 
Enabled = .F.
Height = 20
Left = 123
ReadOnly = .T.
TabIndex = 284
TabStop = .F.
Top = 628
Visible = .F.
Width = 20
DisabledBackColor = 255,255,255
Name = "dem3"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem1      FORM1      Alignment = 3
Value = 
Enabled = .F.
Height = 20
Left = 123
ReadOnly = .T.
TabIndex = 285
TabStop = .F.
Top = 607
Visible = .F.
Width = 20
DisabledBackColor = 255,255,255
Name = "dem1"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      t2      FORM1      ~Alignment = 3
Value = 0.00
Height = 20
Left = 295
SelectOnEntry = .T.
TabIndex = 45
Top = 628
Width = 67
Name = "t2"
     PROCEDURE GotFocus
DO t_click WITH 2
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 2,nKeycode
ENDPROC
                                   )!   %         G     '            U   
    U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS GotFocus,     
 MouseLeaveI     	 MouseMove      KeyPress9    1  2 112 12  QA 1                       %         F                    	   %        )                           textbox      textbox      t0      FORM1      ~Alignment = 3
Value = 0.00
Height = 20
Left = 295
SelectOnEntry = .T.
TabIndex = 41
Top = 607
Width = 67
Name = "t0"
     jPROCEDURE Valid
IF this.Value > 200000000 .or. this.Value <  0.00000
	WAIT WINDOW "Range : 0.00000 bis 200000000 " TIMEOUT 1
	RETURN .f.
ENDIF
RETURN .t.
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 0
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 0,nKeycode
ENDPROC
         l  l                           %   ]                       U  p - %   	             
b . R, Range : 0.00000 bis 200000000  B-  Ba U  THIS VALUE 
     U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >       U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS Valid,      GotFocus     
 MouseLeave     	 MouseMove2     KeyPress    1 q A q 2  2 112 12  QA 1                                         	      5        U            _      )   l                        textbox      textbox      dem2      FORM1      Alignment = 3
Value = 
Enabled = .F.
Height = 20
Left = 363
ReadOnly = .T.
TabIndex = 286
TabStop = .F.
Top = 628
Visible = .F.
Width = 20
DisabledBackColor = 255,255,255
Name = "dem2"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem0      FORM1      Alignment = 3
Value = 
Enabled = .F.
Height = 20
Left = 363
ReadOnly = .T.
TabIndex = 287
TabStop = .F.
Top = 607
Visible = .F.
Width = 20
DisabledBackColor = 255,255,255
Name = "dem0"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           shape      shape      	Abereich6      FORM1      ETop = 39
Left = 541
Height = 228
Width = 441
Name = "Abereich6"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t23      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 50
Top = 77
Width = 88
Name = "t23"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 23,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 23
ENDPROC
PROCEDURE Valid
*!*	If zi(1+4) < 5 .And. zi(1+21) = 3
*!*		If vbezm = 0 .And. wert(1+23) > 0
*!*			register = 230
*!*			Do Laden &&Do attached
*!*		Endif
*!*	ENDIF
*!*	RETURN .t.
ENDPROC
                                   3   %         _     =            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK  U  
 MouseLeave,     	 MouseMove      KeyPress     GotFocus     Valid    1 112 12  QA 2  2 8                       \         |                 	                  |      )                           
commandbutton      
commandbutton      z23      FORM1      mTop = 76
Left = 586
Height = 22
Width = 279
Caption = "z23"
TabIndex = 49
Alignment = 0
Name = "z23"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=23
myindex=zti
DO FORM xauswahl WITH zi(1+23) to hsxretwert

zi(1+23) = rcv(hsxretwert)
index1=zi(1+23)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      Com29      FORM1      nTop = 55
Left = 544
Height = 22
Width = 22
Caption = "24"
TabIndex = 288
TabStop = .F.
Name = "Com29"
     PROCEDURE Click
comaktivieren(29)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par29      FORM1      mTop = 55
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 289
TabStop = .F.
Name = "par29"
     pPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
ENDIF

paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"24")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  24  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                                      
        e      )   [                        label      label      Label14      FORM1      Caption = "Vorgaben fr die Gehaltsabzge"
Height = 14
Left = 546
Top = 40
Width = 193
TabIndex = 290
ForeColor = 255,0,0
Name = "Label14"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com23      FORM1      nTop = 76
Left = 544
Height = 22
Width = 22
Caption = "25"
TabIndex = 291
TabStop = .F.
Name = "Com23"
     PROCEDURE Click
comaktivieren(23)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par23      FORM1      mTop = 76
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 292
TabStop = .F.
Name = "par23"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"25")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  25  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z24      FORM1      mTop = 97
Left = 586
Height = 22
Width = 226
Caption = "z24"
TabIndex = 51
Alignment = 0
Name = "z24"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 24
zti = 24
IF zi(1+zti) > 0
	hinweis("Dieser Text kann nicht gendert werden!")
	RETURN
endif
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=24
myindex=zti
DO FORM xauswahl WITH zi(1+24) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         g     9            U         
 T 
 T  %C   ~ 4 C' Dieser Text kann nicht gendert werden!  B #  eingabefeldeditieren	 
  U  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI HINWEIS EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  
 T     xauswahl( C  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave;    	 MouseMove     Click+    1 1  AA A 12 112 12   Q"1                             
     I     
   i            x      )                           
commandbutton      
commandbutton      z47      FORM1      nTop = 118
Left = 586
Height = 22
Width = 226
Caption = "z47"
TabIndex = 54
Alignment = 0
Name = "z47"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 47
zti = 47
IF zi(1+zti) > 0
	hinweis("Dieser Text kann nicht gendert werden!")
	RETURN
endif
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=47
myindex=zti
DO FORM xauswahl WITH zi(1+47) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         g     9            U         
 T /
 T / %C   ~ 4 C' Dieser Text kann nicht gendert werden!  B #  eingabefeldeditieren	 
  U  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI HINWEIS EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  /
 T     xauswahl( C0  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeave;    	 MouseMove     Click+    1 1  AA A 12 112 12   Q"1                             
     I     
   i            x      )                           
commandbutton      
commandbutton      Com24      FORM1      nTop = 97
Left = 544
Height = 22
Width = 22
Caption = "26"
TabIndex = 293
TabStop = .F.
Name = "Com24"
     PROCEDURE Click
comaktivieren(24)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par24      FORM1      mTop = 97
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 294
TabStop = .F.
Name = "par24"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"26")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  26  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com47      FORM1      oTop = 118
Left = 544
Height = 22
Width = 22
Caption = "27"
TabIndex = 295
TabStop = .F.
Name = "Com47"
     PROCEDURE Click
comaktivieren(47)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C/   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par47      FORM1      nTop = 118
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 296
TabStop = .F.
Name = "par47"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"27")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  27  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t29      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 48
Top = 56
Width = 88
Name = "t29"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 29,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 29
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t47      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 56
Top = 118
Width = 88
Name = "t47"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 47,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 47
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   /   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   / U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t24      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 53
Top = 98
Width = 88
Name = "t24"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 24,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 24
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem23      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 297
TabStop = .F.
Top = 77
Width = 24
DisabledBackColor = 255,255,255
Name = "dem23"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem29      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 298
TabStop = .F.
Top = 56
Width = 24
DisabledBackColor = 255,255,255
Name = "dem29"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem47      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 299
TabStop = .F.
Top = 118
Width = 24
DisabledBackColor = 255,255,255
Name = "dem47"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem24      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 300
TabStop = .F.
Top = 98
Width = 24
DisabledBackColor = 255,255,255
Name = "dem24"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      z25      FORM1      nTop = 139
Left = 586
Height = 22
Width = 258
Caption = "z25"
TabIndex = 57
Alignment = 0
Name = "z25"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=25
myindex=zti

DO FORM xauswahl WITH zi(1+25) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
DO zeileninhalt
ENDPROC
                                      %         I     +            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME 
 T  
 T     xauswahl( C  T   C    T C     C      U	  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK ZEILENINHALT
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"q 1                       \         |                 	    )                           
commandbutton      
commandbutton      z27      FORM1      nTop = 160
Left = 586
Height = 22
Width = 279
Caption = "z27"
TabIndex = 58
Alignment = 0
Name = "z27"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 27
zti = 27

If zi(1+27) = 0
	Messagebox( 'Die Bezeichnung "Keine Kostenstelle"' + Chr(13) + "kann nicht gendert werden.", 0, "Geschtze Bezeichnung")
	Return
Endif

DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=27
myindex=zti

oldselect = SELECT(0)

*SET STEP ON 

CREATE CURSOR kstauswahl (feld1 C(35))
SELECT kstauswahl
FOR hsxa = 1 TO ALEN(zt27,1)
	APPEND BLANK
	replace kstauswahl.feld1 WITH zt27(hsxa)
	FLUSH
next
GO top

DO FORM yauswahl WITH zi(1+27) to hsxretwert

SELECT kstauswahl
USE

SELECT(oldselect)

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   e   %         i  #   #            U         
 T 
 T  %C   p C$ Die Bezeichnung "Keine Kostenstelle"C
  kann nicht gendert werden.  Geschtze Bezeichnungx B #  eingabefeldeditieren 	  U
  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 T  
 T    T C W" h
 kstauswahl  C# F   (C    >  C    [  #)  yauswahl(	 C  F  Q
 F  T   C 	 
  T C     C 	 
  U
  ZTI MYINDEX	 OLDSELECT
 KSTAUSWAHL FELD1 HSXA ZT27 YAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 RightClick,     
 MouseLeavej    	 MouseMove     ClickZ    1 1  RA A 22 112 12    $q Q QA A Q r A  Q"1                       ,     
   M    
   
     
        )        )                           
commandbutton      
commandbutton      Com25      FORM1      oTop = 139
Left = 544
Height = 22
Width = 22
Caption = "28"
TabIndex = 301
TabStop = .F.
Name = "Com25"
     PROCEDURE Click
comaktivieren(25)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par25      FORM1      nTop = 139
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 302
TabStop = .F.
Name = "par25"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"28")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  28  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com27      FORM1      oTop = 160
Left = 544
Height = 22
Width = 22
Caption = "29"
TabIndex = 303
TabStop = .F.
Name = "Com27"
     PROCEDURE Click
comaktivieren(27)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par27      FORM1      }Top = 160
Left = 565
Height = 22
Width = 22
Caption = ""
Enabled = .F.
TabIndex = 304
TabStop = .F.
Name = "par27"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"29")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  29  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z28      FORM1      nTop = 181
Left = 586
Height = 22
Width = 279
Caption = "z28"
TabIndex = 59
Alignment = 0
Name = "z28"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=28
myindex=zti
DO FORM xauswahl WITH zi(1+28) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  
 T     xauswahl( C  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z30      FORM1      nTop = 202
Left = 586
Height = 22
Width = 258
Caption = "z30"
TabIndex = 60
Alignment = 0
Name = "z30"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=30
myindex=zti
DO FORM xauswahl WITH zi(1+30) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  
 T     xauswahl( C  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com28      FORM1      oTop = 181
Left = 544
Height = 22
Width = 22
Caption = "30"
TabIndex = 305
TabStop = .F.
Name = "Com28"
     PROCEDURE Click
comaktivieren(28)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par28      FORM1      nTop = 181
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 306
TabStop = .F.
Name = "par28"
     pPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
ENDIF

paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"30")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  30  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                                      
        e      )   [                        
commandbutton      
commandbutton      Com30      FORM1      oTop = 202
Left = 544
Height = 22
Width = 22
Caption = "31"
TabIndex = 307
TabStop = .F.
Name = "Com30"
     PROCEDURE Click
comaktivieren(30)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par30      FORM1      nTop = 202
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 308
TabStop = .F.
Name = "par30"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"31")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  31  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z31      FORM1      nTop = 223
Left = 586
Height = 22
Width = 279
Caption = "z31"
TabIndex = 61
Alignment = 0
Name = "z31"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=31
myindex=zti
DO FORM xauswahl WITH zi(1+31) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  
 T     xauswahl( C   T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z46      FORM1      nTop = 244
Left = 585
Height = 22
Width = 214
Caption = "z46"
TabIndex = 62
Alignment = 0
Name = "z46"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=46
myindex=zti
DO FORM xauswahl WITH zi(1+46) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  .
 T     xauswahl( C/  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com31      FORM1      oTop = 223
Left = 544
Height = 22
Width = 22
Caption = "32"
TabIndex = 309
TabStop = .F.
Name = "Com31"
     PROCEDURE Click
comaktivieren(31)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par31      FORM1      nTop = 223
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 310
TabStop = .F.
Name = "par31"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"32")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  32  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com46      FORM1      oTop = 244
Left = 544
Height = 22
Width = 22
Caption = "33"
TabIndex = 311
TabStop = .F.
Name = "Com46"
     PROCEDURE Click
comaktivieren(46)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C.   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par46      FORM1      nTop = 244
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 312
TabStop = .F.
Name = "par46"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"33")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  33  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        shape      shape      	Abereich7      FORM1      ETop = 268
Left = 541
Height = 82
Width = 441
Name = "Abereich7"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t35      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 68
Top = 306
Width = 88
Name = "t35"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 35,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 35
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   #   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   # U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      z50      FORM1      nTop = 284
Left = 586
Height = 22
Width = 204
Caption = "z50"
TabIndex = 63
Alignment = 0
Name = "z50"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=50
myindex=zti
DO FORM xauswahl WITH zi(1+50) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  2
 T     xauswahl( C3  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z35      FORM1      nTop = 305
Left = 586
Height = 22
Width = 279
Caption = "z35"
TabIndex = 66
Alignment = 0
Name = "z35"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=35
myindex=zti
DO FORM xauswahl WITH zi(1+35) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  #
 T     xauswahl( C$  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com33      FORM1      oTop = 284
Left = 544
Height = 22
Width = 22
Caption = "34"
TabIndex = 313
TabStop = .F.
Name = "Com33"
     PROCEDURE Click
comaktivieren(33)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C!   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par33      FORM1      nTop = 284
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 314
TabStop = .F.
Name = "par33"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"34")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  34  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label15      FORM1      }Caption = "Steuern"
Height = 14
Left = 546
Top = 269
Width = 103
TabIndex = 315
ForeColor = 255,0,0
Name = "Label15"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com35      FORM1      oTop = 305
Left = 544
Height = 22
Width = 22
Caption = "35"
TabIndex = 316
TabStop = .F.
Name = "Com35"
     PROCEDURE Click
comaktivieren(35)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C#   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par35      FORM1      nTop = 305
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 317
TabStop = .F.
Name = "par35"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"35")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  35  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z36      FORM1      nTop = 326
Left = 586
Height = 22
Width = 225
Caption = "z36"
TabIndex = 69
Alignment = 0
Name = "z36"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=36
myindex=zti
DO FORM xauswahl WITH zi(1+36) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  $
 T     xauswahl( C%  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com36      FORM1      oTop = 326
Left = 544
Height = 22
Width = 22
Caption = "36"
TabIndex = 318
TabStop = .F.
Name = "Com36"
     PROCEDURE Click
comaktivieren(36)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C$   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par36      FORM1      }Top = 326
Left = 565
Height = 22
Width = 22
Caption = ""
Enabled = .F.
TabIndex = 319
TabStop = .F.
Name = "par36"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"36")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  36  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t33      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 65
Top = 285
Width = 88
Name = "t33"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 33,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 33
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   !   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   ! U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t36      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 71
Top = 327
Width = 88
Name = "t36"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 36,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 36
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   $   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   $ U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem35      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 320
TabStop = .F.
Top = 306
Width = 24
DisabledBackColor = 255,255,255
Name = "dem35"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem33      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 321
TabStop = .F.
Top = 285
Width = 24
DisabledBackColor = 255,255,255
Name = "dem33"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem36      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 322
TabStop = .F.
Top = 327
Width = 24
DisabledBackColor = 255,255,255
Name = "dem36"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           shape      shape      	Abereich8      FORM1      FTop = 351
Left = 541
Height = 146
Width = 441
Name = "Abereich8"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t38      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 77
Top = 390
Width = 88
Name = "t38"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 38,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 38
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   &   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   & U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      z52      FORM1      nTop = 368
Left = 586
Height = 22
Width = 208
Caption = "z52"
TabIndex = 72
Alignment = 0
Name = "z52"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=52
myindex=zti

DO FORM xauswahl WITH zi(1+52) to hsxretwert

if (welchesjahr = 2022 .and. zi(1+20) >= 9) .or. welchesjahr > 2022
	hsgleitobergrenze = 200000 &&ab 10/2022
	&&hsgleituntergrenze = 52001 &&ab 10/2022
	DO case
		CASE welchesjahr = 2023
			hsgleituntergrenze = 52001 &&ab 10/2022						
		CASE welchesjahr = 2024
			hsgleituntergrenze = 53801 &&ab 10/2022												
		CASE welchesjahr = 2025
			hsgleituntergrenze = 55601 &&ab 10/2022					
		CASE welchesjahr = 2026
			hsgleituntergrenze = 60301 &&ab 10/2022	
		CASE welchesjahr = 2027
			hsgleituntergrenze = 60301 &&ab 10/2022	
	endcase	
endif
if (welchesjahr = 2022 .and. zi(1+20) < 9)
	hsgleitobergrenze = 160000 &&bis 09/2022
	hsgleituntergrenze = 52001 &&bis 09/2022
ENDIF
if welchesjahr < 2022 
	hsgleitobergrenze = 130000 &&bis 09/2022
	hsgleituntergrenze = 45001 &&bis 09/2022
ENDIF

IF wert(1+22) < hsgleituntergrenze .or. wert(1+22) > hsgleitobergrenze &&vorher wert(1+7)
	hsausserhalb = .t.
else
	hsausserhalb = .f.
ENDIF

IF (rcv(hsxretwert) = 2 .or. rcv(hsxretwert) = 9) .and. hsausserhalb = .t. &&bergangsbereich
	hinweis("Der Betrag in Zeile 23 ist ausserhalb des gltigen Bereichs!"+CHR(13)+"bergangsbereich = " + ALLTRIM(STR(hsgleituntergrenze/100,10,2)) + " - " + ALLTRIM(STR(hsgleitobergrenze/100,10,2)) + "")
	return
endif

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   *   %         Q  .               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 T  4
 T     xauswahl( C5 . %  C 			  1 T @
 
 H -    T !      T )      T 1     T     - T     " %  C 	
	w T  q  T !    % 
 T   T ɯ   $ %C  
 C   T	 a  T	 - 0 %C  
 
 C  
 	 	 a	 C< Der Betrag in Zeile 23 ist ausserhalb des gltigen Bereichs!C
  bergangsbereich = CC d
Z  - CC d
Z   B  T   C  
  T C    
 C  
  U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT WELCHESJAHR HSGLEITOBERGRENZE HSGLEITUNTERGRENZE WERT HSAUSSERHALB RCV HINWEIS INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12    !!!!!A A !A !A B   A q	A A Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z38      FORM1      nTop = 389
Left = 586
Height = 22
Width = 208
Caption = "z38"
TabIndex = 75
Alignment = 0
Name = "z38"
     RPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=38
myindex=zti
DO FORM xauswahl WITH zi(1+38) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)

IF .not. INLIST(zi(1+38),0,2,7)
	mypvkianz = 0
	lastpvkianz = 0
ENDIF

wvw.reserve5 = mypvkianz
DO wvwout

myform1.pvkiabzug.refresh	

DO folgemonatneu
DO berechnungauslsen
ENDPROC
                                   /{   %                           U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME 
 T  &
 T     xauswahl( C'  T   C    T C     C    %CC'  
 
 T  
 T	    T
     
 
        U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK	 MYPVKIANZ LASTPVKIANZ WVW RESERVE5 WVWOUT MYFORM1	 PVKIABZUG REFRESH
 FOLGEMONATNEU BERECHNUNGAUSLSEN
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"  A q  r q 1                       \         |               G  	    )                           
commandbutton      
commandbutton      Com37      FORM1      oTop = 368
Left = 544
Height = 22
Width = 22
Caption = "37"
TabIndex = 323
TabStop = .F.
Name = "Com37"
     PROCEDURE Click
comaktivieren(37)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C%   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par37      FORM1      nTop = 368
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 324
TabStop = .F.
Name = "par37"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"37")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  37  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label16      FORM1      Caption = "Sozialversicherungsbeitrge"
Height = 14
Left = 546
Top = 353
Width = 201
TabIndex = 325
ForeColor = 255,0,0
Name = "Label16"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com38      FORM1      oTop = 389
Left = 544
Height = 22
Width = 22
Caption = "38"
TabIndex = 326
TabStop = .F.
Name = "Com38"
     PROCEDURE Click
comaktivieren(38)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C&   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par38      FORM1      nTop = 389
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 327
TabStop = .F.
Name = "par38"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"38")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  38  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z39      FORM1      nTop = 410
Left = 586
Height = 22
Width = 258
Caption = "z39"
TabIndex = 78
Alignment = 0
Name = "z39"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=39
myindex=zti
DO FORM xauswahl WITH zi(1+39) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  '
 T     xauswahl( C(  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com39      FORM1      oTop = 410
Left = 544
Height = 22
Width = 22
Caption = "39"
TabIndex = 328
TabStop = .F.
Name = "Com39"
     PROCEDURE Click
comaktivieren(39)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C'   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par39      FORM1      nTop = 410
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 329
TabStop = .F.
Name = "par39"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"39")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  39  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t37      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 74
Top = 369
Width = 88
Name = "t37"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 37,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 37
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   %   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   % U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t39      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 79
Top = 411
Width = 88
Name = "t39"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 39,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 39
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   '   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   ' U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem38      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 330
TabStop = .F.
Top = 390
Width = 24
DisabledBackColor = 255,255,255
Name = "dem38"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem37      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 331
TabStop = .F.
Top = 369
Width = 24
DisabledBackColor = 255,255,255
Name = "dem37"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem39      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 332
TabStop = .F.
Top = 411
Width = 24
DisabledBackColor = 255,255,255
Name = "dem39"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      t41      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 888
SelectOnEntry = .T.
TabIndex = 84
Top = 453
Width = 66
Name = "t41"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 41,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 41
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   )   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   ) U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      z40      FORM1      nTop = 431
Left = 586
Height = 22
Width = 279
Caption = "z40"
TabIndex = 80
Alignment = 0
Name = "z40"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=40
myindex=zti
DO FORM xauswahl WITH zi(1+40) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  (
 T     xauswahl( C)  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z41      FORM1      nTop = 452
Left = 586
Height = 22
Width = 239
Caption = "z41"
TabIndex = 82
Alignment = 0
Name = "z41"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=41
myindex=zti

DO FORM xauswahl WITH zi(1+41) to hsxretwert
 
zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  )
 T     xauswahl( C*  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com40      FORM1      oTop = 431
Left = 544
Height = 22
Width = 22
Caption = "40"
TabIndex = 333
TabStop = .F.
Name = "Com40"
     PROCEDURE Click
comaktivieren(40)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C(   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par40      FORM1      nTop = 431
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 334
TabStop = .F.
Name = "par40"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"40")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  40  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      Com41      FORM1      oTop = 452
Left = 544
Height = 22
Width = 22
Caption = "41"
TabIndex = 335
TabStop = .F.
Name = "Com41"
     PROCEDURE Click
comaktivieren(41)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C)   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par41      FORM1      nTop = 452
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 336
TabStop = .F.
Name = "par41"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"41")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  41  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z26      FORM1      nTop = 473
Left = 586
Height = 22
Width = 279
Caption = "z26"
TabIndex = 85
Alignment = 0
Name = "z26"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click

zti=26
myindex=zti

DO WHILE .t.
	DO FORM xauswahl WITH zi(1+26) to hsxretwert
	IF (rcv(hsxretwert) = 2 .or. rcv(hsxretwert) = 3) .and. mypvkianz > 0
		hinweis("Diese Auswahl knnen Sie nur treffen, wenn die Kinderanzahl auf Zeile 38 (PV-0,00 %) Null ist"+CHR(13)+CHR(10)+"Bitte korrigieren Sie die Auswahl!")
		LOOP
	ELSE
		exit
	ENDIF
ENDDO

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   d   %         H                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEp
 T  
 T    +a&  xauswahl( C 2 %C   
 C      	 C] Diese Auswahl knnen Sie nur treffen, wenn die Kinderanzahl auf Zeile 38 (PV-0,00 %) Null istC
 C
 " Bitte korrigieren Sie die Auswahl!  . " !   T   C    T C    	 C    U
  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV	 MYPVKIANZ HINWEIS INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12    !	A  A A A Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com26      FORM1      oTop = 473
Left = 544
Height = 22
Width = 22
Caption = "42"
TabIndex = 337
TabStop = .F.
Name = "Com26"
     PROCEDURE Click
comaktivieren(26)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par26      FORM1      nTop = 473
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 338
TabStop = .F.
Name = "par26"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"42")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  42  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t40      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 81
Top = 432
Width = 88
Name = "t40"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 40,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 40
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   (   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   ( U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t61      FORM1      kAlignment = 3
Value = 0.00
Height = 20
Left = 912
TabIndex = 153
Top = 474
Width = 42
Name = "t61"
     tPROCEDURE GotFocus
DO t_click WITH 61
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 61,nKeycode
ENDPROC
     v    ]  ]                           %                          U   
   = U  T_CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       =   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS GotFocus,     
 MouseLeaveI     	 MouseMove      KeyPress9    1  2 112 12  1                       &         G                    	   &  i      )   ]                        textbox      textbox      dem41      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 339
TabStop = .F.
Top = 453
Width = 24
DisabledBackColor = 255,255,255
Name = "dem41"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem40      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 340
TabStop = .F.
Top = 432
Width = 24
DisabledBackColor = 255,255,255
Name = "dem40"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem26      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 341
TabStop = .F.
Top = 474
Width = 24
DisabledBackColor = 255,255,255
Name = "dem26"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           shape      shape      	Abereich9      FORM1      FTop = 498
Left = 541
Height = 105
Width = 441
Name = "Abereich9"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t42      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 91
Top = 540
Width = 88
Name = "t42"
     PROCEDURE DblClick
IF LOWER(ALLTRIM(myform1.z42.caption)) = "+ beihilfe"
	PUBLIC myHSbeihilfe
	myHSbeihilfe = ""
	myindex = 42
	zti = 42
	myform1.visible = .f.
	
	DO FORM beihilfe
endif
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 42,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 42
ENDPROC
                                      %         -                 U  x % %CC    @
 + beihilfeq  7 
 T   
 T *
 T * T   -  beihilfe  U  MYFORM1 Z42 CAPTION MYHSBEIHILFE MYINDEX ZTI VISIBLE BEIHILFE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   *   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   * U  T_CLICK DblClick,     
 MouseLeave     	 MouseMoveV     KeyPress     GotFocus    1 Qq     A 2 112 12  QA 2  1                             
      )     
   I            T        s        )                           
commandbutton      
commandbutton      z34      FORM1      nTop = 518
Left = 586
Height = 22
Width = 258
Caption = "z34"
TabIndex = 87
Alignment = 0
Name = "z34"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=34
myindex=zti

DO FORM xauswahl WITH zi(1+34) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  "
 T     xauswahl( C#  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      z42      FORM1      nTop = 539
Left = 586
Height = 22
Width = 226
Caption = "z42"
TabIndex = 89
Alignment = 0
Name = "z42"
     dPROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 42
zti = 42
IF zi(1+zti) > 0
	hinweis("Dieser Text kann nicht gendert werden!")
	RETURN
endif
DO FORM eingabefeldeditieren WITH this.Caption


ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
IF ALLTRIM(this.Caption) = "+ Beihilfe" 
	HSbeihilfeaktiv = .t.
ELSE
	HSbeihilfeaktiv = .f.
ENDIF

zti=42
myindex=zti
DO FORM xauswahl WITH zi(1+42) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

IF welchesjahr >= 2026 .and. "WoStd" $ myform1.z21.caption
	IF INLIST(zi(1+4),10,12,13,14,22) &&tvd bund vka pflege sue tv-v
		IF myform1.t1.value <= myform1.t0.value .and. INLIST(zi(1+42),46,47,48)
			hinweis("Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!")
		ENDIF
	ENDIF
endif
DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         +  #               U         
 T *
 T * %C   ~ 4 C' Dieser Text kann nicht gendert werden!  B #  eingabefeldeditieren	 
  U  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI HINWEIS EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  %C   
 + Beihilfe+  T a >  T - 
 T *
 T    xauswahl( C+  T  C    T	 C  ( %
   WoStd   	" %CC 

3 % 
      CC+ ./0	 Cف Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!      C    U  THIS CAPTION HSBEIHILFEAKTIV ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 WELCHESJAHR MYFORM1 Z21 T1 VALUE T0 HINWEIS ZGRID_CLICK
 RightClick,     
 MouseLeave;    	 MouseMove     Click+    1 1  AA A 14 112 12    A   Q!1A A A !1                             
     M  
   
   m            Y      )                           
commandbutton      
commandbutton      Com34      FORM1      oTop = 518
Left = 544
Height = 22
Width = 22
Caption = "43"
TabIndex = 342
TabStop = .F.
Name = "Com34"
     PROCEDURE Click
comaktivieren(34)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C"   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par34      FORM1      }Top = 518
Left = 565
Height = 22
Width = 22
Caption = ""
Enabled = .F.
TabIndex = 343
TabStop = .F.
Name = "par34"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"43")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  43  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        label      label      Label17      FORM1      Caption = "Sonstige Abzge (-), Sonstige Zahlungen (+)"
Height = 14
Left = 546
Top = 501
Width = 255
TabIndex = 344
ForeColor = 255,0,0
Name = "Label17"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      Com42      FORM1      oTop = 539
Left = 544
Height = 22
Width = 22
Caption = "44"
TabIndex = 345
TabStop = .F.
Name = "Com42"
     PROCEDURE Click
comaktivieren(42)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C*   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par42      FORM1      nTop = 539
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 346
TabStop = .F.
Name = "par42"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"44")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  44  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        
commandbutton      
commandbutton      z43      FORM1      nTop = 559
Left = 586
Height = 22
Width = 226
Caption = "z43"
TabIndex = 92
Alignment = 0
Name = "z43"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 43
zti = 43
IF zi(1+zti) > 0
	hinweis("Dieser Text kann nicht gendert werden!")
	RETURN
endif
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=43
myindex=zti
DO FORM xauswahl WITH zi(1+43) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)
IF welchesjahr >= 2026 .and. "WoStd" $ myform1.z21.caption
	IF INLIST(zi(1+4),10,12,13,14,22) &&tvd bund vka pflege sue tv-v
		IF myform1.t1.value <= myform1.t0.value .and. INLIST(zi(1+43),46,47,48)
			hinweis("Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!")
		ENDIF
	ENDIF
endif
DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
     Z    A  A                        5)   %   B                       U         
 T +
 T + %C   ~ 4 C' Dieser Text kann nicht gendert werden!  B #  eingabefeldeditieren	 
  U  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI HINWEIS EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 T  +
 T     xauswahl( C,  T   C    T C   ( %   WoStd 	 
 	|" %CC 

x3 %    
   CC, ./0	t Cف Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!      C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 WELCHESJAHR MYFORM1 Z21 CAPTION T1 VALUE T0 HINWEIS ZGRID_CLICK
 RightClick,     
 MouseLeave;    	 MouseMove     Click+    1 1  AA A 12 112 12   Q!1A A A !1                             
     I     
   i                  )   A                        
commandbutton      
commandbutton      Com43      FORM1      oTop = 559
Left = 544
Height = 22
Width = 22
Caption = "45"
TabIndex = 347
TabStop = .F.
Name = "Com43"
     PROCEDURE Click
comaktivieren(43)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C+   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par43      FORM1      nTop = 559
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 348
TabStop = .F.
Name = "par43"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"45")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  45  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t34      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 88
Top = 519
Width = 88
Name = "t34"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 34,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 34
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   "   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   " U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t43      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 94
Top = 561
Width = 88
Name = "t43"
     vPROCEDURE DblClick
IF LOWER(ALLTRIM(myform1.z43.caption)) = "+ beihilfe"
	PUBLIC myHSbeihilfe
	myHSbeilhilfe = ""
	myindex = 43
	zti = 43
	DO FORM beihilfe
endif
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 43,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 43
ENDPROC
                                   Ft   %         #                 U  j % %CC    @
 + beihilfec  7 
 T   
 T +
 T +  beihilfe  U  MYFORM1 Z43 CAPTION MYHSBEIHILFE
 MYHSBEILHILFE MYINDEX ZTI BEIHILFE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   +   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   + U  T_CLICK DblClick,     
 MouseLeave     	 MouseMoveN     KeyPress     GotFocusy    1 Qq    A 2 112 12  QA 2  1                             	        
      /            :        Y  k      )                           textbox      textbox      dem42      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 349
TabStop = .F.
Top = 540
Width = 24
DisabledBackColor = 255,255,255
Name = "dem42"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem34      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 350
TabStop = .F.
Top = 519
Width = 24
DisabledBackColor = 255,255,255
Name = "dem34"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      dem43      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 351
TabStop = .F.
Top = 561
Width = 24
DisabledBackColor = 255,255,255
Name = "dem43"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      z44      FORM1      nTop = 580
Left = 586
Height = 22
Width = 226
Caption = "z44"
TabIndex = 95
Alignment = 0
Name = "z44"
     PROCEDURE RightClick
LPARAMETERS nButton, nShift, nXCoord, nYCoord
myindex = 44
zti = 44
IF zi(1+zti) > 0
	hinweis("Dieser Text kann nicht gendert werden!")
	RETURN
endif
DO FORM eingabefeldeditieren WITH this.Caption
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=44
myindex=zti
DO FORM xauswahl WITH zi(1+44) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)
IF welchesjahr >= 2026 .and. "WoStd" $ myform1.z21.caption
	IF INLIST(zi(1+4),10,12,13,14,22) &&tvd bund vka pflege sue tv-v
		IF myform1.t1.value <= myform1.t0.value .and. INLIST(zi(1+44),46,47,48)
			hinweis("Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!")
		ENDIF
	ENDIF
endif
DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
     Z    A  A                        5)   %   B                       U         
 T ,
 T , %C   ~ 4 C' Dieser Text kann nicht gendert werden!  B #  eingabefeldeditieren	 
  U  NBUTTON NSHIFT NXCOORD NYCOORD MYINDEX ZTI ZI HINWEIS EINGABEFELDEDITIEREN THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 T  ,
 T     xauswahl( C-  T   C    T C   ( %   WoStd 	 
 	|" %CC 

x3 %    
   CC- ./0	t Cف Vergessen Sie nicht die Mehrarbeitsstunde(n) auf Zeile 22 (rechtes Eingabefeld) einzugeben, oder nehmen Sie diese Auswahl zurck!      C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 WELCHESJAHR MYFORM1 Z21 CAPTION T1 VALUE T0 HINWEIS ZGRID_CLICK
 RightClick,     
 MouseLeave;    	 MouseMove     Click+    1 1  AA A 12 112 12   Q!1A A A !1                             
     I     
   i                  )   A                        
commandbutton      
commandbutton      Com44      FORM1      oTop = 580
Left = 544
Height = 22
Width = 22
Caption = "46"
TabIndex = 352
TabStop = .F.
Name = "Com44"
     PROCEDURE Click
comaktivieren(44)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C,   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par44      FORM1      nTop = 580
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 353
TabStop = .F.
Name = "par44"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"46")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  46  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t44      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 97
Top = 582
Width = 88
Name = "t44"
     vPROCEDURE DblClick
IF LOWER(ALLTRIM(myform1.z44.caption)) = "+ beihilfe"
	PUBLIC myHSbeihilfe
	myHSbeilhilfe = ""
	myindex = 44
	zti = 44
	DO FORM beihilfe
endif
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 44,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 44
ENDPROC
                                   Ft   %         #                 U  j % %CC    @
 + beihilfec  7 
 T   
 T ,
 T ,  beihilfe  U  MYFORM1 Z44 CAPTION MYHSBEIHILFE
 MYHSBEILHILFE MYINDEX ZTI BEIHILFE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   ,   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   , U  T_CLICK DblClick,     
 MouseLeave     	 MouseMoveN     KeyPress     GotFocusy    1 Qq    A 2 112 12  QA 2  1                             	        
      /            :        Y  k      )                           textbox      textbox      dem44      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 354
TabStop = .F.
Top = 582
Width = 24
DisabledBackColor = 255,255,255
Name = "dem44"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           
commandbutton      
commandbutton      z45      FORM1      nTop = 604
Left = 586
Height = 22
Width = 220
Caption = "z45"
TabIndex = 98
Alignment = 0
Name = "z45"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=45
myindex=zti
DO FORM xauswahl WITH zi(1+45) to hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                   =   %         2                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME~ 
 T  -
 T     xauswahl( C.  T   C    T C     C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   Q"1                       \         |                 	    )                           
commandbutton      
commandbutton      Com45      FORM1      oTop = 604
Left = 544
Height = 22
Width = 22
Caption = "47"
TabIndex = 355
TabStop = .F.
Name = "Com45"
     PROCEDURE Click
comaktivieren(45)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                      %   E        	   {            U   
 C-   U 
 COMAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO     	 MouseMove     1  2 112 11                       "         C                     )                           
commandbutton      
commandbutton      par45      FORM1      nTop = 604
Left = 565
Height = 22
Width = 22
Caption = ""
TabIndex = 356
TabStop = .F.
Name = "par45"
     nPROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,"47")
ENDPROC
     t    [  [                           %                          U  ]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION5        T   C 	  47  U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 aQ QA  2 112 11                       }               	        c  
    )   [                        textbox      textbox      t45      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "9999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 99
Top = 606
Width = 88
Name = "t45"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 45,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 45
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   -   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   - U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      dem45      FORM1      Alignment = 3
Value = 
Height = 20
Left = 955
ReadOnly = .T.
TabIndex = 357
TabStop = .F.
Top = 606
Width = 24
DisabledBackColor = 255,255,255
Name = "dem45"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           textbox      textbox      mencalc      FORM1      |Alignment = 3
Value = 0.00
Height = 28
Left = 397
TabIndex = 100
TabStop = .F.
Top = 6
Width = 59
Name = "mencalc"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           shape      shape      Shape12      FORM1      CTop = 37
Left = 337
Height = 196
Width = 203
Name = "Shape12"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      modi0      FORM1      Tag = "1"
Top = 54
Left = 385
Height = 19
Width = 106
Caption = "INFO"
TabIndex = 358
TabStop = .F.
BackColor = 240,240,240
Name = "modi0"
     PROCEDURE Click
this.Tag="1"
thisform.modi1.Tag=""
thisform.modi2.Tag=""
modus=0
myform1.Kcombo.Visible = False
DO dateiopen
DO farbenzuweisen
DO modusknopf
DO startbild
DO Neuername
If indexm = 12 
	DO zeileninhalt
ENDIF
DO dimenaus
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     a    H  H                        U   %   {                       U    T    1 T      T     
 T   T   	  
      
    %       
    U  THIS TAG THISFORM MODI1 MODI2 MODUS MYFORM1 KCOMBO VISIBLE FALSE	 DATEIOPEN FARBENZUWEISEN
 MODUSKNOPF	 STARTBILD	 NEUERNAME INDEXM ZEILENINHALT DIMENAUS REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1 11 1q q q q q q A q  2 112 11                       	        *  p                )   H                        
commandbutton      
commandbutton      modi1      FORM1      qTop = 72
Left = 385
Height = 19
Width = 106
Caption = "PLAN"
TabIndex = 359
TabStop = .F.
Name = "modi1"
     PROCEDURE Click
this.Tag="1"
thisform.modi0.Tag=""
thisform.modi2.Tag=""
modus=1
myform1.Kcombo.Visible = False
DO dateiopen
DO farbenzuweisen
DO modusknopf
DO startbild
DO Neuername
If indexm = 12 
	DO zeileninhalt
ENDIF
DO dimenaus
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     a    H  H                        U   %   {                       U    T    1 T      T     
 T  T   	  
      
    %       
    U  THIS TAG THISFORM MODI0 MODI2 MODUS MYFORM1 KCOMBO VISIBLE FALSE	 DATEIOPEN FARBENZUWEISEN
 MODUSKNOPF	 STARTBILD	 NEUERNAME INDEXM ZEILENINHALT DIMENAUS REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1 11 1q q q q q q A q  2 112 11                       	        *  p                )   H                        
commandbutton      
commandbutton      modi2      FORM1      qTop = 90
Left = 385
Height = 19
Width = 106
Caption = "REAL"
TabIndex = 360
TabStop = .F.
Name = "modi2"
     PROCEDURE Click
this.Tag="1"
thisform.modi0.Tag=""
thisform.modi1.Tag=""
modus=2
myform1.Kcombo.Visible = False
DO dateiopen
DO farbenzuweisen
DO modusknopf
DO startbild
DO Neuername
If indexm = 12 
	DO zeileninhalt
ENDIF
DO dimenaus
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     a    H  H                        U   %   {                       U    T    1 T      T     
 T  T   	  
      
    %       
    U  THIS TAG THISFORM MODI0 MODI1 MODUS MYFORM1 KCOMBO VISIBLE FALSE	 DATEIOPEN FARBENZUWEISEN
 MODUSKNOPF	 STARTBILD	 NEUERNAME INDEXM ZEILENINHALT DIMENAUS REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1 11 1q q q q q q A q  2 112 11                       	        *  p                )   H                        
commandbutton      
commandbutton      kopier0      FORM1      Top = 54
Left = 367
Height = 28
Width = 19
Picture = icons\1205short.ico
Caption = ""
TabIndex = 361
TabStop = .F.
Name = "kopier0"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Info_Plan
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 INFO_PLAN
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      kopier1      FORM1      Top = 81
Left = 367
Height = 28
Width = 19
Picture = icons\1205short.ico
Caption = ""
TabIndex = 362
TabStop = .F.
Name = "kopier1"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Plan_Real
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 PLAN_REAL
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      kopier2      FORM1      Top = 54
Left = 490
Height = 28
Width = 19
Picture = icons\1206short.ico
Caption = ""
TabIndex = 363
TabStop = .F.
Name = "kopier2"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Plan_Info
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 PLAN_INFO
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      kopier3      FORM1      Top = 81
Left = 490
Height = 28
Width = 19
Picture = icons\1206short.ico
Caption = ""
TabIndex = 364
TabStop = .F.
Name = "kopier3"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Real_Plan
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 REAL_PLAN
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      kopier4      FORM1      Top = 54
Left = 349
Height = 55
Width = 19
Picture = icons\1205.ico
Caption = ""
TabIndex = 365
TabStop = .F.
Name = "kopier4"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Info_Real
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 INFO_REAL
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      kopier5      FORM1      Top = 54
Left = 508
Height = 55
Width = 19
Picture = icons\1206.ico
Caption = ""
TabIndex = 366
TabStop = .F.
Name = "kopier5"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.Kcombo.Visible = False
DO Real_Info
ENDPROC
     5                              q%   %   i        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T        U  MYFORM1 KCOMBO VISIBLE FALSE	 REAL_INFO
 MouseLeave,     	 MouseMove      Click    1 112 12 1q 1                       \         |                 	    )                           
commandbutton      
commandbutton      year0      FORM1      Top = 109
Left = 348
Height = 25
Width = 46
Caption = "2017"
TabIndex = 367
TabStop = .F.
ForeColor = 255,0,0
Name = "year0"
     PROCEDURE Click
If indexm = 12 
	Messagebox(("Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist."))
	return
ENDIF
hssteueralt = .f.
thisform.check1.Value = .f.
myindex=0
indexi=0
thisform.extra32.Caption = "U1,U2"
this.Tag="1"
thisform.year1.Tag=""
thisform.year2.Tag=""
thisform.year3.Tag=""
thisform.year4.Tag=""
welchesjahr=INT(VAL(this.Caption))
welchesjahrc=this.caption

DO jahraktiv

thisform.refresh

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %              O            U  R %  k V CI Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist.x B  T - T   -
 T  
 T   T    U1,U2 T	 
  1 T  
    T  
    T 
 
    T  
    T CC	  g8 T 	    
    U  INDEXM HSSTEUERALT THISFORM CHECK1 VALUE MYINDEX INDEXI EXTRA32 CAPTION THIS TAG YEAR1 YEAR2 YEAR3 YEAR4 WELCHESJAHR WELCHESJAHRC	 JAHRAKTIV REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave)    	 MouseMove    1 aA A    1111Ar  3 112 11                                 +        K        )                           
commandbutton      
commandbutton      year1      FORM1      Top = 133
Left = 348
Height = 25
Width = 46
Caption = "2018"
TabIndex = 368
TabStop = .F.
ForeColor = 255,0,0
Name = "year1"
     PROCEDURE Click
If indexm = 12 
	Messagebox(("Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist."))
	return
ENDIF
hssteueralt = .f.
thisform.check1.Value = .f.
myindex=1
indexi=1
thisform.extra32.Caption = "U1-U3"
this.Tag="1"
thisform.year0.Tag=""
thisform.year2.Tag=""
thisform.year3.Tag=""
thisform.year4.Tag=""
welchesjahr=INT(VAL(this.Caption))
welchesjahrc=this.caption
DO jahraktiv
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %              O            U  R %  k V CI Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist.x B  T - T   -
 T 
 T  T    U1-U3 T	 
  1 T  
    T  
    T 
 
    T  
    T CC	  g8 T 	    
    U  INDEXM HSSTEUERALT THISFORM CHECK1 VALUE MYINDEX INDEXI EXTRA32 CAPTION THIS TAG YEAR0 YEAR2 YEAR3 YEAR4 WELCHESJAHR WELCHESJAHRC	 JAHRAKTIV REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave)    	 MouseMove    1 aA A    1111Aq  2 112 11                                 %        E        )                           
commandbutton      
commandbutton      year2      FORM1      Top = 157
Left = 348
Height = 25
Width = 46
Caption = "2019"
TabIndex = 369
TabStop = .F.
ForeColor = 255,0,0
Name = "year2"
     PROCEDURE Click
If indexm = 12 
	Messagebox(("Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist."))
	return
ENDIF
hssteueralt = .f.
thisform.check1.Value = .f.
myindex=2
indexi=2
thisform.extra32.Caption = "U1-U3"
this.Tag="1"
thisform.year0.Tag=""
thisform.year1.Tag=""
thisform.year3.Tag=""
thisform.year4.Tag=""
welchesjahr=INT(VAL(this.Caption))
welchesjahrc=this.caption
DO jahraktiv
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %              O            U  R %  k V CI Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist.x B  T - T   -
 T 
 T  T    U1-U3 T	 
  1 T  
    T  
    T 
 
    T  
    T CC	  g8 T 	    
    U  INDEXM HSSTEUERALT THISFORM CHECK1 VALUE MYINDEX INDEXI EXTRA32 CAPTION THIS TAG YEAR0 YEAR1 YEAR3 YEAR4 WELCHESJAHR WELCHESJAHRC	 JAHRAKTIV REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave)    	 MouseMove    1 aA A    1111Aq  2 112 11                                 %        E        )                           
commandbutton      
commandbutton      year3      FORM1      Tag = "1"
Top = 181
Left = 348
Height = 25
Width = 46
Caption = "2020"
TabIndex = 370
TabStop = .F.
ForeColor = 255,0,0
Name = "year3"
     PROCEDURE Click
If indexm = 12 
	Messagebox(("Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist."))
	return
ENDIF
myindex=3
indexi=3
hssteueralt = .f.
thisform.check1.Value = .f.
thisform.extra32.Caption = "U1-U3"
this.Tag="1"
thisform.year0.Tag=""
thisform.year1.Tag=""
thisform.year2.Tag=""
thisform.year4.Tag=""
welchesjahr=INT(VAL(this.Caption))
welchesjahrc=this.caption
DO jahraktiv
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %              O            U  R %  k V CI Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist.x B 
 T 
 T  T - T   - T    U1-U3 T	 
  1 T  
    T  
    T 
 
    T  
    T CC	  g8 T 	    
    U  INDEXM MYINDEX INDEXI HSSTEUERALT THISFORM CHECK1 VALUE EXTRA32 CAPTION THIS TAG YEAR0 YEAR1 YEAR2 YEAR4 WELCHESJAHR WELCHESJAHRC	 JAHRAKTIV REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave)    	 MouseMove    1 aA A    1111Aq  2 112 11                                 %        E        )                           
commandbutton      
commandbutton      year4      FORM1      Top = 205
Left = 348
Height = 25
Width = 46
Caption = "2021"
TabIndex = 371
TabStop = .F.
ForeColor = 255,0,0
Name = "year4"
     PROCEDURE Click
If indexm = 12 
	Messagebox(("Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist."))
	return
ENDIF
myindex=4
indexi=4
hssteueralt = .f.
thisform.check1.Value = .f.
thisform.kcombo.Visible=.f.
thisform.extra32.Caption = "U1-U3"
this.Tag="1"
thisform.year0.Tag=""
thisform.year1.Tag=""
thisform.year2.Tag=""
thisform.year3.Tag=""
welchesjahr=INT(VAL(this.Caption))
welchesjahrc=this.caption
DO jahraktiv
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     )                                 %   ;           q            U  c %  k V CI Ein Jahreswechsel ist nur mglich, wenn ein Monatsgehalt eingestellt ist.x B 
 T 
 T  T - T   - T   - T 	 
  U1-U3 T   1 T 
     T      T      T      T CC 
 g8 T  
   
    U  INDEXM MYINDEX INDEXI HSSTEUERALT THISFORM CHECK1 VALUE KCOMBO VISIBLE EXTRA32 CAPTION THIS TAG YEAR0 YEAR1 YEAR2 YEAR3 WELCHESJAHR WELCHESJAHRC	 JAHRAKTIV REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveK    	 MouseMove    1 aA A    1111Aq  2 112 11                                 B        b        )                           
commandbutton      
commandbutton      mon0      FORM1      yTag = ""
Top = 109
Left = 393
Height = 25
Width = 46
Caption = "Jan"
TabIndex = 372
TabStop = .F.
Name = "mon0"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=0
myindex=indexm
DO monaktivieren
thisform.refresh

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	  
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  3 112 11                             
     W        w        )                           
commandbutton      
commandbutton      mon1      FORM1      oTop = 133
Left = 393
Height = 25
Width = 46
Caption = "Feb"
TabIndex = 373
TabStop = .F.
Name = "mon1"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=1
myindex=indexm
DO monaktivieren
thisform.refresh

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  3 112 11                             
     W        w        )                           
commandbutton      
commandbutton      mon2      FORM1      pTop = 157
Left = 393
Height = 25
Width = 46
Caption = "Mrz"
TabIndex = 374
TabStop = .F.
Name = "mon2"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=2
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon3      FORM1      qTop = 181
Left = 393
Height = 25
Width = 46
Caption = "April"
TabIndex = 375
TabStop = .F.
Name = "mon3"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=3
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon4      FORM1      oTop = 109
Left = 438
Height = 25
Width = 46
Caption = "Mai"
TabIndex = 376
TabStop = .F.
Name = "mon4"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=4
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon5      FORM1      pTop = 133
Left = 438
Height = 25
Width = 46
Caption = "Juni"
TabIndex = 377
TabStop = .F.
Name = "mon5"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=5
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon6      FORM1      pTop = 157
Left = 438
Height = 25
Width = 46
Caption = "Juli"
TabIndex = 378
TabStop = .F.
Name = "mon6"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=6
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon7      FORM1      rTop = 181
Left = 438
Height = 25
Width = 46
Caption = "August"
TabIndex = 379
TabStop = .F.
Name = "mon7"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=7
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon8      FORM1      pTop = 109
Left = 483
Height = 25
Width = 46
Caption = "Sept"
TabIndex = 380
TabStop = .F.
Name = "mon8"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=8
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon9      FORM1      oTop = 133
Left = 483
Height = 25
Width = 46
Caption = "Okt"
TabIndex = 381
TabStop = .F.
Name = "mon9"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=9
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 	
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     U        u        )                           
commandbutton      
commandbutton      mon10      FORM1      pTop = 157
Left = 483
Height = 25
Width = 46
Caption = "Nov"
TabIndex = 382
TabStop = .F.
Name = "mon10"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=10
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 

 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     V        v        )                           
commandbutton      
commandbutton      mon11      FORM1      pTop = 181
Left = 483
Height = 25
Width = 46
Caption = "Dez"
TabIndex = 383
TabStop = .F.
Name = "mon11"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.Tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = True
indexm=11
myindex=indexm
DO monaktivieren
thisform.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     ,                              A   %   N                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
 	   
    U
  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED TRUE INDEXM MYINDEX
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave^    	 MouseMove    1 qA  1  q  2 112 11                             
     V        v        )                           
commandbutton      
commandbutton      mon12      FORM1      Top = 205
Left = 393
Height = 25
Width = 137
Caption = "JAHRESGEHALT"
TabIndex = 384
TabStop = .F.
ForeColor = 255,0,0
Name = "mon12"
     PROCEDURE Click
FOR a = 0 TO 12
	controlname="mon"+ALLTRIM(STR(a,2,0))
	thisform.&controlname..tag=""
NEXT
this.Tag="1"
z_geclickt = 0
thisform.tdbnumber1.Enabled = false
myindex = 12
indexm=12
thisform.Kcombo.Visible = False
DO monaktivieren
thisform.refresh

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     S    :  :                        n   %   s                       U       (V  T  monCC   Z! thisform.&controlname..tag=""
  T   1
 T   T    
 T	 
 T
  T     
 
    U  A CONTROLNAME THIS TAG
 Z_GECLICKT THISFORM
 TDBNUMBER1 ENABLED FALSE MYINDEX INDEXM KCOMBO VISIBLE
 MONAKTIVIEREN REFRESH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1 qA  1  1q  3 112 11                               2  x                )   :                        label      label      Label18      FORM1      Caption = "Arbeitsebenen"
Height = 14
Left = 397
Top = 40
Width = 83
TabIndex = 385
ForeColor = 255,0,0
Name = "Label18"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           textbox      textbox      t51      FORM1      jHeight = 20
Left = 270
TabIndex = 5
ToolTipText = "Prozentsatz "
Top = 149
Width = 63
Name = "t51"
     PROCEDURE Click
IF indexm = 12
	RETURN
ENDIF

t_geclickt = 51


	
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

DO t_keypress WITH 51,nKeycode
ENDPROC
                                   1   %                          U  )  %    B 
 T 3 U  INDEXM
 T_GECLICKT)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       3   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS Click,     
 MouseLeavem     	 MouseMove      KeyPress]    1 A A  5 112 12  1                       I         j         	      *        I        )                           textbox      textbox      	bdabeginn      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 20
InputMask = "99.99.9999"
Left = 256
TabIndex = 9
ToolTipText = "Datum"
Top = 190
Width = 75
Name = "bdabeginn"
     jPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
Lparameters keyascii, nShiftAltCtrl

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	Return
Endif

Do Case && KeyAscii
	Case KeyAscii = 13
		&&If welchesjahr > 2009 And zi(1+2) = 3 And zi(1+4) = 0 And zi(1+7) > 7 And zi(1+1) < 2 Then
		&&   bdabeginn.Text = ""
		&&Else
		If zi(1+1) = 2 .And. .not. empty(myform1.bdabeginn.value) &&vorher len(...) > 0
			IF VARTYPE(basisdatum) = "C"
				basisdatumlen = LEN(ALLTRIM(basisdatum))
			ELSE
				basisdatumlen = LEN(ALLTRIM(dTOc(basisdatum)))
			endif
			If basisdatumlen < 10
				Msg = "Das eingegebene Datum in Zeile 6 hat im Programm keine Funktion"
				msg1 = "Das Datum ist nur ein Merkposten fr Sie."
				If zi(1+1) = 2
					Messagebox( Msg + Chr(13) + "Bitte stellen Sie die Stufe in Zeile 8 selbst ein.", 0, msg1)
				Endif

				If zi(1+1) = 3
					Messagebox( Msg + Chr(13) + "Bitte rufen Sie den angegebenen Monat auf und " + Chr(13) + "geben Sie dann in Zeile 8 die nchste Stufe manuell ein.", 0, msg1)
				Endif

			Endif
		Endif
		&&End If
		&&Datumcheck*******************
		dc = ALLTRIM(myform1.bdabeginn.value)
		Do datumcheck &&Do attached
		myform1.bdabeginn.value = dc
		&&If bdabeginn = "" Then bdabeginn.SetFocus: Exit Sub
		&&******************************
		myform1.bdabeginn.ForeColor = QBColor(0)

		altesz = -1


		If EMPTY(myform1.bdabeginn.Value) &&vorher  = ""
			&&If zi(1+1) < 2 Then
			&&    zi(1+1) = 2
			If zi(1+1) < 2
				Messagebox( "Aus dem Datum in Programmzeile 6" + Chr(13) + "wird u.a. die Einstellung in Programmzeile 8 berechnet." + Chr(13) + "Dies ist nach dem Lschen nicht mehr mglich.", 48, "Berechnung der Altersstufe")
			Endif
			&&    z(1).Caption = Trim$(zt1(1+2))
			wnw.ztext2 = ""
			wvw.BDA = ""
			myput(13, fileneu,"wnw")
			wert(1+52) = 0
			wert(1+53) = 0

			&&End If
		Else
			If zi(1+4) = 0 .And. zi(1+1) < 2 .And. zi(1+7) > 7
				Msg = "Bei berleitungsstufen in Zeile 8 kann das Programm keine Stufenberechnung vornehmen." + Chr(13) + "Die Eingabe eines Datums in Programmzeile 6 ist nur mglich, wenn in Zeile 6 die Option" + Chr(13) + "<Nchster Stufenaufstieg> eingestellt wurde oder in Zeile 8 eine normale Stufe ausgewhlt wurde. "

				If zi(1+2) = 3 .And. welchesjahr > 2009 .And. zi(1+4) = 0 .And. zi(1+7) > 7 .And. zi(1+1) < 2
					Messagebox( Msg, 0, "Kein Datum mglich.")
					wvw.BDA = ""
				Endif
			Endif

			Do Case && zi(1+4)
				Case zi(1+4) = 0 .Or. zi(1+4) =  2 .Or. zi(1+4) =  4 .Or. (zi(1+4) >= 6 .And. zi(1+4) <= 9) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 24) .Or. (zi(1+4) >= 28 .And. zi(1+4) <= 36)
					If .not. EMPTY(myform1.bdabeginn.value) && > 0
						tempmonat = ALLTRIM(STR(MONTH(CTOD(ALLTRIM(myform1.bdabeginn.Value))),2,0))
						myform1.bdabeginn.Value = "01." + IIF(VAL(tempmonat) < 10,"0"+tempmonat,tempmonat) + "." + STR(YEAR(CTOD(ALLTRIM(myform1.bdabeginn.Value))),4,0)
					Endif
			Endcase
		Endif

		bdatext = ALLTRIM(myform1.bdabeginn.Value)
		wvw.BDA = bdatext
		myput(zi(1+20) + 1, fileneu,"wvw")
		Do Case && zi(1+4)
			Case (zi(1+4) >= 0 .And. zi(1+4) <= 4) .Or. (zi(1+4) >= 6 .And. zi(1+4) <= 24) .Or. (zi(1+4) >= 28 .And. zi(1+4) <= 36)

				Do DAStufeberechnen &&Do attached
				If zi(1+7) > DAStufen - 1
					zi(1+7) = DAStufen - 1
				Endif
		Endcase
		Do praktikantenvwl &&Do attached
		myform1.z7.Caption = Alltrim(zt7(1+zi(1+7)))
		wnw.ztext2 = ALLTRIM(myform1.bdabeginn.Value)
		myput(13, fileneu,"wnw")
		lastclick = 901
		lastbdatext = ALLTRIM(myform1.bdabeginn.Value)
		Do berechnungauslsen &&Do attached
Endcase

ENDPROC
PROCEDURE DblClick

IF EMPTY(myform1.BDAbeginn.value)
	DO FORM kalender WITH DATE() TO xbdadat
ELSE
	DO FORM kalender WITH CTOD(myform1.BDAbeginn.value) TO xbdadat
endif
IF .not. EMPTY(xbdadat)
	myform1.BDAbeginn.value = SUBSTR(xbdadat,7,2) + "." + SUBSTR(xbdadat,5,2) + "." + SUBSTR(xbdadat,1,4) &&vorher stod(xbdadat)
ENDIF

ENDPROC
     
    
  
                           %         
  Y   _            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME     %    	5    B 
 HF    
% %C 
 C  	 
	d %C
  C  T CC
 >   T CCC
 *>  % 

`L T ? Das eingegebene Datum in Zeile 6 hat im Programm keine Funktion6 T
 ) Das Datum ist nur ein Merkposten fr Sie. %C N C C
 2 Bitte stellen Sie die Stufe in Zeile 8 selbst ein. 
 x  %C \ C C
 . Bitte rufen Sie den angegebenen Monat auf und C
 8 geben Sie dann in Zeile 8 die nchste Stufe manuell ein. 
 x    T C  	    T  	   T   C   T  %C  	  %C 
 C  Aus dem Datum in Programmzeile 6C
 7 wird u.a. die Einstellung in Programmzeile 8 berechnet.C
 - Dies ist nach dem Lschen nicht mehr mglich.0 Berechnung der Altersstufex  T     T     C
   wnw  T 5  T 6  -3 %C   C 
	 C 	.T U Bei berleitungsstufen in Zeile 8 kann das Programm keine Stufenberechnung vornehmen.C
 W Die Eingabe eines Datums in Programmzeile 6 ist nur mglich, wenn in Zeile 6 die OptionC
 a <Nchster Stufenaufstieg> eingestellt wurde oder in Zeile 8 eine normale Stufe ausgewhlt wurde. N %C 	  	 C  	 C 	 C 
	% C   Kein Datum mglich.x T      
 H) C   C  C  C  C 		 C 
 C 	 C  C $	) %C  	 
%# T CCCCC  	 #H ZP T  	  01.CC g

  0   6 .CCCC  	 #i Z    T C  	  T    CC    wvw 
 H c C   C 	 C  C 	 C  C $	    %C   T      ! T   ! CCC "  T  C  	  C
   wnw  T#  T$ C  	  %   U&  KEYASCII
 NSHIFTALTCTRL DIMEN DIMPW3 MODUS REALTIPTEXT ZI MYFORM1	 BDABEGINN VALUE
 BASISDATUM
 BASISDATUMLEN MSG MSG1 DC
 DATUMCHECK	 FORECOLOR QBCOLOR ALTESZ WNW ZTEXT2 WVW BDA MYPUT FILENEU WERT WELCHESJAHR	 TEMPMONAT BDATEXT DASTUFEBERECHNEN DASTUFEN PRAKTIKANTENVWL Z7 CAPTION ZT7	 LASTCLICK LASTBDATEXT BERECHNUNGAUSLSEN  %C    .   kalender( C$ X "  kalender( C    #  %C 
 = T    C \ .C \ .C \  U  MYFORM1	 BDABEGINN VALUE KALENDER XBDADAT
 MouseLeave,     	 MouseMove      KeyPress     DblClick2    1 112 12  q A A  TQ 1A aQA RA B A Sq 1s SSAA q11 1QA A  	a1A A A R 1r qA A q q Qq A 3 R !A A 2                       \         |                 	   P   #  _  k    )   
                        textbox      textbox      t52      FORM1      kHeight = 20
Left = 256
TabIndex = 11
ToolTipText = "Prozentsatz "
Top = 211
Width = 77
Name = "t52"
     CPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 52,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       4   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               8  	    )                           
commandbutton      
commandbutton      extra46      FORM1      wTop = 627
Left = 545
Height = 22
Width = 98
Caption = "AN-Sicht"
TabIndex = 386
TabStop = .F.
Name = "extra46"
     PROCEDURE Click
IF myindex = 46 .and. register = 40
	myform3.alwaysontop = .t.
	myform3.alwaysontop = .f.
	return
else
	IF myindex = 48 .and. register = 41 
		myform3.release
	ENDIF
endif

myindex = 46
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO extraaktivieren
form1zeigen = ""
register = 40
namensfile = fileneu    
                                                                                                                                                                                                               && + 1
If fensteroffen = 17
	myForm3.release
Endif

&&If Form3.WindowState > 0 Then Form3.WindowState = 0
fensteroffen = 17
myform1.visible = .f.
Do Form Form3 

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   G   %         >                 U   %  .  (	<  T  a T  - B n  %  0  )	j 
     
 T  . T    
 T	   
 T
   
 T (
 T   %
  
    
 T
  T  -
  Form3 U  MYINDEX REGISTER MYFORM3 ALWAYSONTOP RELEASE THISFORM KCOMBO VISIBLE FALSE MYINDEXE FORM1ZEIGEN
 NAMENSFILE FILENEU FENSTEROFFEN MYFORM1 FORM3)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMoveF    1   A   A A  1     A    3 112 11                                 ;        [    "    )                           spinner      spinner      
tdbnumber1      FORM1     }FontBold = .T.
FontName = "Arial"
FontSize = 12
Alignment = 2
Height = 25
InputMask = "99999"
KeyboardHighValue = 3000
KeyboardLowValue = 1
Left = 259
SelectOnEntry = .T.
SpinnerHighValue = 3000.00
SpinnerLowValue =   1.00
TabIndex = 138
TabStop = .F.
ToolTipText = "Positionsnummer in der Personaldatei"
Top = 61
Width = 73
Format = "99999"
Name = "tdbnumber1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeycode = 13
	intchange = .t.
	myform1.tdbnumber1.interactivechange
ELSE
	intchange = .f.
endif
ENDPROC
PROCEDURE InteractiveChange
IF intchange = .t.
	Msgxx = thisform.tdbnumber1.value

	If Msgxx > satzanzahl .and. hsneuersatz = .f.
	   Msgxx = Abs(satzanzahl)
	   thisform.tdbnumber1.value = satzanzahl 
	   spin1 = satzanzahl 
	Else
		IF .not. thisform.tdbnumber1.value = Msgxx
	  		 thisform.tdbnumber1.value = Msgxx
	  	endif
	   spin1 = Msgxx
	ENDIF

	DO spin_up_down
endif
ENDPROC
PROCEDURE DblClick
If indexm = 12 Then 
	RETURN
endif
*einzelfallneuberechnen()
ENDPROC
PROCEDURE Init
this.Value = 1
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE ProgrammaticChange
intchange = .t.
this.InteractiveChange 
ENDPROC
                                      %   h      F  '               U  N      %  
4  T a
     G  T -  U  NKEYCODE
 NSHIFTALTCTRL	 INTCHANGE MYFORM1
 TDBNUMBER1 INTERACTIVECHANGE  %  a  T     %    -	k  T C  T    
 T     %    
  T     
 T       U	 	 INTCHANGE MSGXX THISFORM
 TDBNUMBER1 VALUE
 SATZANZAHL HSNEUERSATZ SPIN1 SPIN_UP_DOWN  %    B  U  INDEXM  T    U  THIS VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  T  a
    U 	 INTCHANGE THIS INTERACTIVECHANGE KeyPress,      InteractiveChange      DblClick     Init    
 MouseLeave8    	 MouseMove     ProgrammaticChange(    1      A 2  1 1  1A  A r A 2 A A 3 2 112 12   1                             	      3  
      R              "        !  %   !   A    )   $       -    )                           
commandbutton      
commandbutton      extra0      FORM1      Top = 39
Left = 284
Height = 22
Width = 26
Picture = prgicons\fernglas_16.png
Caption = ""
TabIndex = 387
TabStop = .F.
ToolTipText = "Suchen in den Personalfllen"
Name = "extra0"
     PROCEDURE Click
myindex = 0
thisform.Kcombo.Visible = False
myindexe = myindex
DO FORM personalfallsuchen
*DO tafelloeschen
*DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         j  j                           %                          U  J 
 T    T    
 T     personalfallsuchen U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE PERSONALFALLSUCHEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 4 112 11                                      	   	     v  
    )   j                        
commandbutton      
commandbutton      extra4      FORM1      Top = 39
Left = 310
Height = 22
Width = 22
Picture = prgicons\092_kreuz.ico
Caption = ""
TabIndex = 388
TabStop = .F.
ToolTipText = "Den Personalfall ab dem eingestellten Monat auf den Default zurcksetzen."
Name = "extra4"
     QPROCEDURE Click
myindex = 4
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       e                  	      F      )   T                        
commandbutton      
commandbutton      extra32      FORM1      tTop = 244
Left = 820
Height = 22
Width = 45
Caption = "U1-U3"
TabIndex = 389
TabStop = .F.
Name = "extra32"
     RPROCEDURE Click
myindex = 32
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T    T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        textbox      textbox      t25      FORM1      Alignment = 0
Value = 
Format = "99.99"
Height = 20
InputMask = "99.99"
Left = 866
MaxLength = 0
ReadOnly = .T.
TabIndex = 140
Top = 140
Width = 36
DisabledBackColor = 255,255,255
Name = "t25"
     tPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 25,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 25
ENDPROC
     v    ]  ]                           %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME          U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocusd    1 112 12  2  1                       \         |               8  	   
   W  i  
    )   ]                        textbox      textbox      t50      FORM1      Alignment = 0
Value = 
Format = "9.99"
Height = 20
InputMask = "9.99"
Left = 904
ReadOnly = .T.
TabIndex = 141
Top = 140
Width = 37
DisabledBackColor = 255,255,255
Name = "t50"
     tPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 50,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 50
ENDPROC
     v    ]  ]                           %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       2   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS 
   2 U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocusd    1 112 12  2  1                       \         |               8  	   
   W  i  
    )   ]                        textbox      textbox      dem25      FORM1      Alignment = 0
Value = 
Height = 20
Left = 943
ReadOnly = .T.
TabIndex = 390
TabStop = .F.
Top = 140
Width = 36
DisabledBackColor = 255,255,255
Name = "dem25"
     0PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 q 1                       \         |               %  	    )                           shape      shape      SSpanel3      FORM1      ETop = 161
Left = 867
Height = 103
Width = 112
Name = "SSpanel3"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      	sspanel11      FORM1      Top = 185
Left = 869
Height = 22
Width = 108
Caption = "Steuer 18%"
TabIndex = 391
TabStop = .F.
ForeColor = 255,0,0
Name = "sspanel11"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name, this.caption)
ENDPROC
                                   )o   %   "      W     I            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      	sspanel12      FORM1      Top = 207
Left = 869
Height = 56
Width = 108
Caption = "Netto 61%"
TabIndex = 392
TabStop = .F.
ForeColor = 255,0,0
Name = "sspanel12"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name,this.caption)
ENDPROC
                                   )o   %   "      W     I            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      	KVPflicht      FORM1      mCaption = "KV-Pflicht?"
Height = 13
Left = 916
Top = 353
Width = 60
TabIndex = 393
Name = "KVPflicht"
     dPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
register = 432
JAE(21, 3) = 0
Do JAEBerechnen &&Do attached
DO FORM kvpfl
*Do Laden &&Do attached

ENDPROC
     R    9  9                        *   %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME>  T   T    
  kvpfl U  REGISTER JAE JAEBERECHNEN KVPFL
 MouseLeave,     	 MouseMove      Click    1 112 12  q  3                       \         |               Y  	    )   9                        
commandbutton      
commandbutton      z51      FORM1      cTop = 284
Left = 789
Height = 22
Width = 55
Caption = "0,0 KFE"
TabIndex = 394
Name = "z51"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=51
myindex=zti
*z_click(myindex)

DO FORM kfb_auswahl WITH zi(1+zti) TO hsxretwert

zi(1+zti) = rcv(hsxretwert)
index1=zi(1+zti)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         <                  U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME 
 T  3
 T   %  kfb_auswahl( C    T   C    T C     C    U  ZTI MYINDEX KFB_AUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   SQ"1                       \         |                 	    )                           
commandbutton      
commandbutton      z53      FORM1      eTop = 368
Left = 794
Height = 22
Width = 70
Caption = "14,6% / 2"
TabIndex = 395
Name = "z53"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=53
myindex=zti
*!*	DO z_click(myindex)

DO FORM KV WITH zi(1+46)

*!*	DO FORM xauswahl WITH zi(1+52) to hsxretwert

*!*	zi(1+zti) = rcv(hsxretwert)
*!*	index1=zi(1+zti)

*!*	DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
     5                              q%   %   g                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME1 
 T  5
 T     KVC/  U  ZTI MYINDEX KV ZI
 MouseLeave,     	 MouseMove      Click    1 112 12   C8                       \         |                 	    )                           
commandbutton      
commandbutton      extra51      FORM1      dTop = 326
Left = 810
Height = 22
Width = 55
Caption = "P 8%"
TabIndex = 396
Name = "extra51"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
register = 85
DO FORM kirchensteuer
return
ENDPROC
     0                              p   %   b                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME) 
 T  U 
 kirchensteuer B U  REGISTER
 KIRCHENSTEUER
 MouseLeave,     	 MouseMove      Click    1 112 12  QA 1                       \         |                 	    )                           
commandbutton      
commandbutton      extra25      FORM1      Top = 139
Left = 843
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 397
TabStop = .F.
Name = "extra25"
     dPROCEDURE Click
myindex = 25
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         l  l                           %           
               U  > 
 T   T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 q q 2 112 11                       x                  
      Y      )   l                        
commandbutton      
commandbutton      extra30      FORM1      Top = 202
Left = 843
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 398
TabStop = .F.
Name = "extra30"
     ~PROCEDURE Click
myINDEX = 30
thisform.Kcombo.Visible = False
myindexe = myIndex
DO FORM lstausgleich

*DO tafelloeschen
*DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     w    ^  ^                           %                          U  D 
 T   T    
 T     lstausgleich U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE LSTAUSGLEICH)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 A5 112 11                                      
   	     s      )   ^                        
commandbutton      
commandbutton      extra33      FORM1      Top = 284
Left = 843
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 401
Name = "extra33"
     PROCEDURE Click
myindex = 33
thisform.Kcombo.Visible = False
myindexe = myIndex
*!*	DO tafelloeschen 
*!*	DO extraaktivieren

register = 6

DO FORM lupezeile34


ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         u  u                        ]   %           
               U  P 
 T  ! T    
 T   
 T   lupezeile34 U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE REGISTER LUPEZEILE34)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove4    1  1  24 112 11                                        
   3        )   u                        
commandbutton      
commandbutton      extra40      FORM1      Top = 410
Left = 843
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 402
TabStop = .F.
Name = "extra40"
     PROCEDURE Click
myINDEX = 40
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO tafelloeschen
*DO extraaktivieren

register = 29
DO FORM lupezeile39

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         u  u                        ]   %           
               U  P 
 T  ( T    
 T   
 T   lupezeile39 U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE REGISTER LUPEZEILE39)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove4    1  1  13 112 11                                   	     
   )        )   u                        
commandbutton      
commandbutton      extra11      FORM1      Top = 319
Left = 311
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 403
TabStop = .F.
Name = "extra11"
     dPROCEDURE Click
myINDEX = 11
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         l  l                           %           
               U  > 
 T   T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 q q 2 112 11                       x                  
      Y      )   l                        
commandbutton      
commandbutton      extra18      FORM1      Top = 518
Left = 311
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 404
Name = "extra18"
     gPROCEDURE Click
myINDEX = 18
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO tafelloeschen

DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 s 2 112 11                       {               	   	     \  
    )   T                        
commandbutton      
commandbutton      extra21      FORM1      Top = 606
Left = 517
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 405
TabStop = .F.
Name = "extra21"
     PROCEDURE Click
myINDEX = 21
thisform.Kcombo.Visible = False
myindexe = myIndex
DO FORM teilzeitlupe
RETURN

*!*	DO tafelloeschen
*!*	DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     }    d  d                        ~g   %           
               U  H 
 T   T    
 T     teilzeitlupe B U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE TEILZEITLUPE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove#    1  1 AA 5 112 11                                        
   '        )   d                        
commandbutton      
commandbutton      extra22      FORM1      Top = 627
Left = 517
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 406
TabStop = .F.
Name = "extra22"
     PROCEDURE Click
myINDEX = 22
thisform.Kcombo.Visible = False
myindexe = myIndex
DO FORM bruchteilgehalt


*!*	DO tafelloeschen
*!*	DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     }    d  d                        ~g   %                          U  G 
 T   T    
 T     bruchteilgehalt U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE BRUCHTEILGEHALT)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove%    1  1 q6 112 11                                        	   $  ~      )   d                        
commandbutton      
commandbutton      extra48      FORM1      wTop = 627
Left = 671
Height = 22
Width = 98
Caption = "AG-Sicht"
TabIndex = 407
TabStop = .F.
Name = "extra48"
     uPROCEDURE Click
IF myindex = 48 .and. register = 41
	myform3.alwaysontop = .t.
	myform3.alwaysontop = .f.
	return
else
	IF myindex = 46 .and. register = 40 
		myform3.release
	ENDIF
endif
myINDEX = 48
thisform.Kcombo.Visible = False
myindexe = myIndex

*DO extraaktivieren
form1zeigen = ""
register = 41
namensfile = fileneu                                                                                                                                                                                                                   && + 1
If fensteroffen = 17
*				myForm3.release
Endif
myform1.visible = .f.
Do Form Form3

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   &   %         #                 U    %  0  )	<  T  a T  - B n  %  .  (	j 
     
 T  0 T    
 T	   
 T
   
 T )
 T   %
    T  -
  Form3 U  MYINDEX REGISTER MYFORM3 ALWAYSONTOP RELEASE THISFORM KCOMBO VISIBLE FALSE MYINDEXE FORM1ZEIGEN
 NAMENSFILE FILENEU FENSTEROFFEN MYFORM1 FORM3)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove/    1   A   A A  1    B   3 112 11                                           j      )                           
commandbutton      
commandbutton      extra49      FORM1      xTop = 627
Left = 775
Height = 22
Width = 98
Caption = "Kontrolle"
TabIndex = 408
TabStop = .F.
Name = "extra49"
     \PROCEDURE Click
IF myindex = 49 .and. register = 42
	myform3_3.alwaysontop = .t.
	myform3_3.alwaysontop = .f.
	return
endif
myINDEX = 49
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO extraaktivieren
form1zeigen = ""
register = 42
namensfile = fileneu                                                                                                                                                                                                                   && + 1
&&Form3.WindowState = myform1.WindowState
If fensteroffen = 17
*				myForm3.release
ENDIF
myform1.visible = .f.
Do Form Form3_3

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     h    O  O                           %                          U    %  1  *	<  T  a T  - B 
 T  1 T    
 T   
 T	   
 T *
 T
   %    T
  -  Form3_3 U  MYINDEX REGISTER	 MYFORM3_3 ALWAYSONTOP THISFORM KCOMBO VISIBLE FALSE MYINDEXE FORM1ZEIGEN
 NAMENSFILE FILENEU FENSTEROFFEN MYFORM1 FORM3_3)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   A A  1    B   3 112 11                       p                    Q      )   O                        
commandbutton      
commandbutton      extra50      FORM1      {Top = 627
Left = 879
Height = 22
Width = 98
Caption = "berw. Liste"
TabIndex = 409
TabStop = .F.
Name = "extra50"
     PROCEDURE Click
If indexm = 12
	Messagebox( "Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung", 0, "Sorry")
	Return
Endif
myINDEX = 50
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO extraaktivieren
register = 38
DO FORM ueberweisungsliste
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                        %   ?           u            U    %  i T C= Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung  Sorryx B 
 T 2 T    
 T  
 T &  ueberweisungsliste U	  INDEXM MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE REGISTER UEBERWEISUNGSLISTE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeaveO    	 MouseMove    1 AA A  1  2 112 11                       
        .  t  
              )                            
commandbutton      
commandbutton      extra47      FORM1      Top = 627
Left = 645
Height = 22
Width = 22
Picture = prgicons\rot_weis.jpg
Caption = ""
TabIndex = 410
TabStop = .F.
Name = "extra47"
     ^PROCEDURE Click
IF myindex = 47 .and. register = 39
	myform3_2.alwaysontop = .t.
	myform3_2.alwaysontop = .f.
	return
endif

myINDEX = 47
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO extraaktivieren
form1zeigen = ""
register = 39
namensfile = fileneu                                                                                                                                                                                                                   && + 1
&&Form3.WindowState = myform1.WindowState
If fensteroffen = 17
*				myForm3.release
ENDIF
myform1.visible = .f.
Do Form Form3_2

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     h    O  O                           %                          U    %  /  '	<  T  a T  - B 
 T  / T    
 T   
 T	   
 T '
 T
   %    T
  -  Form3_2 U  MYINDEX REGISTER	 MYFORM3_2 ALWAYSONTOP THISFORM KCOMBO VISIBLE FALSE MYINDEXE FORM1ZEIGEN
 NAMENSFILE FILENEU FENSTEROFFEN MYFORM1 FORM3_2)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   A A  1    B   3 112 11                       r                    S      )   O                        
commandbutton      
commandbutton      extra9      FORM1      Top = 366
Left = 311
Height = 22
Width = 22
Picture = prgicons\treppe.ico
Caption = ""
TabIndex = 412
TabStop = .F.
PicturePosition = 14
Name = "extra9"
     cPROCEDURE Click
myINDEX = 9
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         l  l                           %           
               U  > 
 T  	 T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 q q 2 112 11                       w                  
      X      )   l                        
commandbutton      
commandbutton      extra17      FORM1      Top = 387
Left = 311
Height = 22
Width = 22
Picture = icons\progress.jpg
Caption = ""
TabIndex = 413
TabStop = .F.
PicturePosition = 14
Name = "extra17"
     dPROCEDURE Click
myINDEX = 17
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         l  l                           %           
               U  > 
 T   T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 q q 2 112 11                       x                  
      Y      )   l                        
commandbutton      
commandbutton      extra15      FORM1      Top = 429
Left = 311
Height = 43
Width = 18
FontBold = .T.
FontSize = 12
Picture = ..\wem\
Caption = "A"
TabIndex = 415
TabStop = .F.
Name = "extra15"
     wPROCEDURE Click
myINDEX = 15
oldzi5 = zi(1+5)
thisform.Kcombo.Visible = False
myindexe = myIndex 
DO extraaktivieren
zi(1+5) = oldzi5
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %                          U  [ 
 T   T C  T    
 T      T   U	  MYINDEX OLDZI5 ZI THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMoveE    1  1 q 12 112 11                                      	        l  
    )                           
commandbutton      
commandbutton      extra16      FORM1      Top = 429
Left = 328
Height = 43
Width = 18
FontBold = .T.
FontSize = 12
Picture = ..\wem\
Caption = "B"
TabIndex = 416
TabStop = .F.
Name = "extra16"
     RPROCEDURE Click
myINDEX = 16
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        
commandbutton      
commandbutton      bbglbg      FORM1      Top = 39
Left = 155
Height = 21
Width = 34
Caption = "LBG"
Enabled = .F.
TabIndex = 417
TabStop = .F.
Visible = .F.
Name = "bbglbg"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
If zi(1+2) = 3
	inet = "000"
	Msg = "Bundesbeamtengesetz.de"
Else
	inet = 560
	Msg = "Landesbeamtengesetze"
Endif
DO insinternet &&Do attached
ENDPROC
                                      %                          U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION  %C  H  T  000# T  Bundesbeamtengesetz.de   T 0! T  Landesbeamtengesetze    U  ZI INET MSG INSINTERNET	 MouseMove,     
 MouseLeave      Click    1 12 112 Q1  A q 1                       o                          	    )                           
commandbutton      
commandbutton      extra28      FORM1      Top = 105
Left = 219
Height = 22
Width = 45
Caption = "extra28"
Enabled = .F.
TabIndex = 418
Visible = .F.
Name = "extra28"
     lPROCEDURE Click
*ist nicht aktiv
return
myINDEX = 28
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     s    Z  Z                        G   %           
               U  ;  B
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1 B  1 q 2 112 11                                      	   
     a  
    )   Z                        
commandbutton      
commandbutton      hher      FORM1      Top = 147
Left = 227
Height = 22
Width = 22
Picture = icons\hher.ico
Caption = "hher"
TabIndex = 419
TabStop = .F.
PicturePosition = 14
Name = "hher"
     PROCEDURE Click
DO FORM hhergruppierung
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   ?   %   M        	               U     hhergruppierung U  HHERGRUPPIERUNG)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave]     	 MouseMove     1 2 112 11                       )         J               
      )                           checkbox      checkbox      soldat      FORM1      rTop = 171
Left = 257
Height = 16
Width = 73
Alignment = 0
Caption = "Soldat"
TabIndex = 7
Name = "soldat"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      extra1      FORM1      Top = 189
Left = 232
Height = 22
Width = 22
Picture = icons\bda_8.ico
Caption = "extra1"
TabIndex = 420
TabStop = .F.
PicturePosition = 14
Name = "extra1"
     PROCEDURE Click
checkfile = eigdat + "\intern.har"
IF .not. FILE("&checkfile")
	IF zi(1+2) = 0 .and. zi(1+4) < 5 &&BW Beamte
		hshinweistext = "Durch die nderungen, welche das BVAnp-G 2022 vorgibt, ist die Darstellung der Stufenvernderungen sehr kompliziert geworden. Ich arbeite daran, bitte aber um Geduld."
		hinweis(hshinweistext)
		RETURN
	ENDIF
endif

myINDEX = 1
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         s     I            U  o T    \intern.har# IF .not. FILE("&checkfile")-$ %C   C 
	) T ٧ Durch die nderungen, welche das BVAnp-G 2022 vorgibt, ist die Darstellung der Stufenvernderungen sehr kompliziert geworden. Ich arbeite daran, bitte aber um Geduld. C    B  
 T  T   	 
 T
       U
 	 CHECKFILE EIGDAT ZI
 HSHINWEISTEXT HINWEIS MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave#    	 MouseMove    1 1AA A A A  1 q q 2 112 11                                 @        `        )                           
commandbutton      
commandbutton      	inprozent      FORM1      Top = 235
Left = 150
Height = 22
Width = 162
Caption = "Tabellen-Faktor: 100,000 %"
TabIndex = 422
Alignment = 0
Name = "inprozent"
     PROCEDURE Click
*!*	FOR a = 7 TO 16
*!*		zahlx=ALLTRIM(STR(a,2,0))
*!*		WITH form1
*!*		.lst&zahlx..backcolor=RGB(255,0,0)
*!*		endwith
*!*	NEXT
register = 47
*Do Laden &&Do attached
DO FORM tabellenfaktoren

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     0                              p   %   d        
               U  ( 
 T  /  tabellenfaktoren U  REGISTER TABELLENFAKTOREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeavet     	 MouseMove     1  3 112 11                                   A  
      a        )                           
commandbutton      
commandbutton      extra8      FORM1      Top = 298
Left = 311
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 423
TabStop = .F.
Name = "extra8"
     PROCEDURE Click

IF zi(1+8) = 0
	hinweis("Kein Familien- oder Ortszuschlag ausgewhlt!")
	RETURN
endif

myINDEX = 8
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   r   %         n     L            U    %C	   R 9 C, Kein Familien- oder Ortszuschlag ausgewhlt!  B 
 T  T    
 T     	  U
  ZI HINWEIS MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave&    	 MouseMove    1 RA A  1 q q 2 112 11                                   <        \        )                           
commandbutton      
commandbutton      extra10      FORM1      Top = 277
Left = 311
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 424
TabStop = .F.
Name = "extra10"
     dPROCEDURE Click
myINDEX = 10
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         l  l                           %           
               U  > 
 T  
 T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove+    1  1 q q 2 112 11                       x                  
      Y      )   l                        
commandbutton      
commandbutton      extra7      FORM1      Top = 256
Left = 311
Height = 22
Width = 22
Picture = icons\gitter_klein.png
Caption = ""
Enabled = .F.
TabIndex = 425
TabStop = .F.
Visible = .F.
Name = "extra7"
     QPROCEDURE Click
myINDEX = 7
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       e                  	      F      )   T                        
commandbutton      
commandbutton      extra20      FORM1      pTop = 606
Left = 498
Height = 22
Width = 22
Caption = "T"
TabIndex = 426
TabStop = .F.
Name = "extra20"
     PROCEDURE Click
myINDEX = 20
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO tafelloeschen
*DO extraaktivieren

If wert(1+1) = 0 .Or. wert(1+3) = 0
	Return
Endif

If indexm = 12
	Messagebox( "Der Teilzeitrechner funktioniert nur fr Monatsgehlter," + Chr(13) + "da in den einzelnen Monaten unterschiedliche Einstellungen mglich sind." + Chr(13) + "Eine jahresdurchschnittliche Darstellung ist noch nicht verfgbar.", 48, "Teilzeitrechner")
	Retval = .T. &&LockWindowUpdate(0&)
	Return
ENDIF

myindexe = 20 &&ins verschoben init von form teilzeitrechner.scx
IF giveselect("teilzeit") = 0
	CREATE CURSOR teilzeit (fett l(1), sp_text c(35), sp_1 c(10), sp_2 c(10), sp_3 c(10) , sp_4 c(10), strich l(1))
endif
DO FORM teilzeit_rechner
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                   ތ   %         _     /            U  7
 T   T    
 T   $ %C   C  U  B  % p C8 Der Teilzeitrechner funktioniert nur fr Monatsgehlter,C
 H da in den einzelnen Monaten unterschiedliche Einstellungen mglich sind.C
 B Eine jahresdurchschnittliche Darstellung ist noch nicht verfgbar.0 Teilzeitrechnerx T a B 
 T  %C teilzeit	  z h teilzeit  L  C#
  C
  C
  C
  C
  L   teilzeit_rechner U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE WERT INDEXM RETVAL
 GIVESELECT TEILZEIT FETT SP_TEXT SP_1 SP_2 SP_3 SP_4 STRICH TEILZEIT_RECHNER)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave	    	 MouseMoveq    1  1 DA A q A A  A 2 112 11                                 _                )                           
commandbutton      
commandbutton      extra24      FORM1      pTop = 627
Left = 498
Height = 22
Width = 22
Caption = "D"
TabIndex = 427
TabStop = .F.
Name = "extra24"
     PROCEDURE Click
myINDEX = 24
thisform.Kcombo.Visible = False
myindexe = myIndex
*DO tafelloeschen
*DO extraaktivieren
If zi(1+22) = 0
	Do Form zahlenrechnen
Else
	Messagebox( 'Nur funktionsfhig bei "Tage von normal in Zeile 23"', 0, "Ohne Funktion")
	Return
Endif

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %   %      }     [            U   
 T   T    
 T    %C  W  
 zahlenrechnen  S C4 Nur funktionsfhig bei "Tage von normal in Zeile 23" 
 Ohne Funktionx B  U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE ZI
 ZAHLENRECHNEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave5    	 MouseMove    1  1 SQ 1A A 3 112 11                               6  |                )                           
commandbutton      
commandbutton      extra26      FORM1      Top = 54
Left = 840
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
Enabled = .F.
TabIndex = 428
TabStop = .F.
Visible = .F.
Name = "extra26"
     RPROCEDURE Click
myINDEX = 26
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        
commandbutton      
commandbutton      extra23      FORM1      Top = 76
Left = 843
Height = 22
Width = 22
Picture = icons\fragezeichen.png
Caption = ""
TabIndex = 429
Name = "extra23"
     PROCEDURE Click
myINDEX = 23
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO FORM versorgungsfreibetrag
*DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %           
               U  T 
 T   T    
 T       versorgungsfreibetrag U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN VERSORGUNGSFREIBETRAG)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMoveG    1  1 q 3 112 11                                      	   
     y  
    )                           
commandbutton      
commandbutton      extra27      FORM1      Top = 160
Left = 843
Height = 22
Width = 22
Picture = icons\gitter_klein.png
Caption = ""
TabIndex = 430
TabStop = .F.
Name = "extra27"
     RPROCEDURE Click
myINDEX = 27
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        label      label      abfindungslabel      FORM1      Caption = "aus Zeile 46   aus lfd. Gehalt"
Height = 13
Left = 797
Top = 269
Width = 161
TabIndex = 431
Name = "abfindungslabel"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           label      label      eigenbeitrag      FORM1      tCaption = "priv. Beitrge "
Height = 15
Left = 794
Top = 352
Width = 72
TabIndex = 432
Name = "eigenbeitrag"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           checkbox      checkbox      	CheckNr63      FORM1      tTop = 453
Left = 827
Height = 19
Width = 36
Alignment = 0
Caption = "frei"
TabIndex = 83
Name = "CheckNr63"
     sPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
IF EMPTY(this.Value)
	nr63 = false
ELSE
	nr63 = true
ENDIF
lastclick = 906
lastt = nr63
DO berechnungauslsen

ENDPROC
                                   C   %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME]  %C    
 T   4 
 T    T 
 T     U  THIS VALUE NR63 FALSE TRUE	 LASTCLICK LASTT BERECHNUNGAUSLSEN
 MouseLeave,     	 MouseMove      Click    1 112 12 !   A   q 2                       \         |               h  	    )                           label      label      dem50      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
BorderStyle = 1
Caption = " U "
Height = 20
Left = 866
Top = 453
Width = 21
TabIndex = 433
Name = "dem50"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      extra42      FORM1      Top = 518
Left = 843
Height = 22
Width = 22
Picture = icons\teilzeit.png
Caption = ""
TabIndex = 434
TabStop = .F.
Name = "extra42"
     PROCEDURE Click

myINDEX = 42
thisform.Kcombo.Visible = False
myindexe = myIndex

*DO extraaktivieren

If indexm = 12
	Messagebox( "Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung", 0, "Sorry")
	Return
Endif
Do tafelloeschen &&Do attached

Do Case && zi(1+4)
	Case (zi(1+4) >= 0 .And. zi(1+4) <= 4) .Or. (zi(1+4) >= 6 .And. zi(1+4) <= 7)&&<4
		register = 200
		DO FORM atzmaske
	Case zi(1+4) > 7 &&4
		Do Case && zi(1+22)
			Case  Inlist(zi(1+22), 2, 3)
				register = 199
				Do alterrechnenganz &&Do attached
				myform1.visible = .f.
				DO FORM atzA
			Case zi(1+22) = 4 &&AltTZG
				Messagebox( "Die Berechnung nach AltTZG wird in dieser Version noch nicht bereitgestellt.", 0, "Sorry")
				Return

			Case  Inlist(zi(1+22), 5, 6)
				DO flextv
		Endcase
Endcase
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         F  "               U  
 T  * T    
 T    %  T C= Diese Funktion steht fr das Jahresgehalt nicht zur Verfgung  Sorryx B   
 H D C   C 	 C  C 	
 T	   atzmaske C 
 H1 CC x
 T	    T  -  atzA C c CL Die Berechnung nach AltTZG wird in dieser Version noch nicht bereitgestellt.  Sorryx B CC      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE INDEXM
 TAFELLOESCHEN ZI REGISTER ATZMASKE ALTERRECHNENGANZ MYFORM1 ATZA FLEXTV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMoveD    1  1 AA A q  A Q  q   Q1A q A A 2 112 11                       -        N    #          '    )                           
commandbutton      
commandbutton      extra41      FORM1      Top = 498
Left = 957
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 435
TabStop = .F.
Visible = .F.
Name = "extra41"
     TPROCEDURE Click
myINDEX = 41
thisform.Kcombo.Visible = False
myindexe = myIndex

DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T  ) T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 r 2 112 11                       h                  	      I      )   T                        
commandbutton      
commandbutton      extra45      FORM1      Top = 604
Left = 805
Height = 22
Width = 60
Picture = icons\zweipfeile.png
Caption = ""
TabIndex = 436
TabStop = .F.
Name = "extra45"
     RPROCEDURE Click
myINDEX = 45
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T  - T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        textbox      textbox      t55      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 819
SelectOnEntry = .T.
TabIndex = 67
Top = 306
Width = 66
Name = "t55"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 55,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 55
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   7   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   7 U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t54      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 798
SelectOnEntry = .T.
TabIndex = 64
Top = 285
Width = 66
Name = "t54"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 54,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 54
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   6   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   6 U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t56      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 819
SelectOnEntry = .T.
TabIndex = 70
Top = 327
Width = 66
Name = "t56"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 56,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 56
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   8   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   8 U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t58      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 795
SelectOnEntry = .T.
TabIndex = 73
Top = 369
Width = 69
Name = "t58"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 58,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 58
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >   :   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
   : U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           textbox      textbox      t26      FORM1      Alignment = 3
Value = 0.00
Format = "999999.99"
Height = 20
InputMask = "999999.99"
Left = 866
SelectOnEntry = .T.
TabIndex = 86
Top = 474
Width = 88
Name = "t26"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 26,nKeycode
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 26
ENDPROC
                                   )!   %         G     '            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEY      %  
A  T    T  C  >      U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS 
    U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus    1 112 12  QA 2  1                       \         |                 	              )                           
commandbutton      
commandbutton      sr24      FORM1      aTop = 97
Left = 811
Height = 22
Width = 54
Caption = "000000"
TabIndex = 52
Name = "sr24"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
zti = 24
myindex = 24

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	RETURN 
Endif

If indexm = 12
	RETURN 
Endif
SRVorgaben = False
DO FORM sonderregelungen &&WITH this.caption to hsxretwert
&&this.Caption = hsxretwert



ENDPROC
                                      %         c     =            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION 
 T  
 T  %    	D    B  % ]  B 
 T    sonderregelungen U
  ZTI MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT INDEXM
 SRVORGABEN FALSE SONDERREGELUNGEN	 MouseMove,     
 MouseLeave      Click    1 12 112   q A A A A  5                       o                          	    )                           
commandbutton      
commandbutton      sr47      FORM1      bTop = 118
Left = 811
Height = 22
Width = 54
Caption = "000000"
TabIndex = 55
Name = "sr47"
     PROCEDURE Click
zti = 47
myindex = 47

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	RETURN 
Endif

If indexm = 12
	RETURN 
Endif
SRVorgaben = False
DO FORM sonderregelungen &&WITH this.caption to hsxretwert
&&this.Caption = hsxretwert

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         c     =            U   
 T  /
 T / %    	D    B  % ]  B 
 T    sonderregelungen U
  ZTI MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT INDEXM
 SRVORGABEN FALSE SONDERREGELUNGEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   q A A A A  4 112 11                            
   1  w                )                           
commandbutton      
commandbutton      sr42      FORM1      bTop = 539
Left = 811
Height = 22
Width = 54
Caption = "000000"
TabIndex = 90
Name = "sr42"
     PROCEDURE Click
zti = 42
myindex = 42

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	RETURN 
Endif

If indexm = 12
	RETURN 
Endif
SRVorgaben = False
DO FORM sonderregelungen &&WITH this.caption to hsxretwert
&&this.Caption = hsxretwert

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         c     =            U   
 T  *
 T * %    	D    B  % ]  B 
 T    sonderregelungen U
  ZTI MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT INDEXM
 SRVORGABEN FALSE SONDERREGELUNGEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   q A A A A  4 112 11                            
   1  w                )                           
commandbutton      
commandbutton      sr44      FORM1      bTop = 580
Left = 811
Height = 22
Width = 54
Caption = "000000"
TabIndex = 96
Name = "sr44"
     PROCEDURE Click
zti = 44
myindex = 44

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	RETURN 
Endif

If indexm = 12
	RETURN 
Endif
SRVorgaben = False
DO FORM sonderregelungen &&WITH this.caption to hsxretwert
&&this.Caption = hsxretwert

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         c     =            U   
 T  ,
 T , %    	D    B  % ]  B 
 T    sonderregelungen U
  ZTI MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT INDEXM
 SRVORGABEN FALSE SONDERREGELUNGEN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1   q A A A A  4 112 11                            
   1  w                )                           
commandbutton      
commandbutton      extra6      FORM1      Top = 39
Left = 258
Height = 22
Width = 26
Picture = icons\notiz_klein.jpg
Caption = ""
TabIndex = 437
TabStop = .F.
ToolTipText = "Stammdaten des Personalfalles"
Name = "extra6"
     PROCEDURE Click
myINDEX = 6
thisform.Kcombo.Visible = False
myindexe = myIndex
register = 23

DO FORM bemerkungen

*!*	DO tafelloeschen
*!*	DO extraaktivieren
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
         u  u                        ]   %           
               U  P 
 T   T    
 T   
 T   bemerkungen U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE REGISTER BEMERKUNGEN0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMove     
 MouseLeaveT    1  1  25 12 111                                   !     
   B        )   u                        
commandbutton      
commandbutton      extra3      FORM1      Top = 210
Left = 312
Height = 22
Width = 22
Picture = prgicons\lupe_klein.jpg
Caption = ""
TabIndex = 440
TabStop = .F.
Visible = .T.
Name = "extra3"
     cPROCEDURE Click
myINDEX = 3
thisform.Kcombo.Visible = False
myindexe = myIndex
DO tafelloeschen
DO extraaktivieren
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
         l  l                           %           
               U  > 
 T   T    
 T        U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE
 TAFELLOESCHEN EXTRAAKTIVIEREN0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMove     
 MouseLeaveK    1  1 q q 2 12 111                       w                  
     X      )   l                        
commandbutton      
commandbutton      nichtkrzen      FORM1      Top = 627
Left = 473
Height = 22
Width = 25
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = " X "
TabIndex = 441
TabStop = .F.
Name = "nichtkrzen"
     SPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
If notkurz = 1000
	notkurz = 0 
Else 
	notkurz = 1000
endif
DO berechnungauslsen
ENDPROC
     T    ;  ;                        6
   %                          U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTIONC  %   
 T    5  T      U  NOTKURZ BERECHNUNGAUSLSEN	 MouseMove,     
 MouseLeave      Click    1 12 112 !   A q 1                       o                        H  	    )   ;                        
commandbutton      
commandbutton      extra5      FORM1      Top = 107
Left = 267
Height = 19
Width = 30
Caption = "BAT"
Enabled = .F.
TabIndex = 442
TabStop = .F.
Visible = .F.
Name = "extra5"
     QPROCEDURE Click
myINDEX = 5
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T   T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       e                  	      F      )   T                        textbox      textbox      dem46      FORM1      Alignment = 3
Value = 
Enabled = .F.
Height = 20
Left = 810
ReadOnly = .T.
TabIndex = 443
Top = 691
Visible = .F.
Width = 24
DisabledBackColor = 255,255,255
Name = "dem46"
     0PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
myindex=INT(VAL(SUBSTR(this.Name,4)))
DO dem_click
ENDPROC
     /                                 %   c        
               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION#  T  CCC  \g8   U  MYINDEX THIS NAME	 DEM_CLICK	 MouseMove,     
 MouseLeave      Click    1 12 112 q 1                       o                        %  	    )                           textbox      textbox      t57      FORM1      kAlignment = 1
Value = 0.00
Height = 20
Left = 726
TabIndex = 142
Top = 267
Width = 51
Name = "t57"
     PROCEDURE GotFocus
DO t_click WITH 57
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 57,nKeycode
ENDPROC
                                   )!   %         G     '            U   
   9 U  T_CLICK0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTIONY      %  
A  T    T  C  >   9   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS GotFocus,     	 MouseMoveI     
 MouseLeave      KeyPress9    1  2 12 112  QA 1                       &         F                    	   &        )                           
commandbutton      
commandbutton      
SSCommand2      FORM1      Top = 238
Left = 524
Height = 19
Width = 14
Caption = "B"
Style = 0
TabIndex = 445
TabStop = .F.
SpecialEffect = 2
Name = "SSCommand2"
     PROCEDURE Click

*!*	If zi(1+22) = 2 Or zi(1+22) = 3 Then
*!*	      If myform1.SSPanel6.Visible = True 
*!*	         myform1.SSPanel6.Visible = False
*!*	         myform1.SSPanel1.Visible = True
*!*	         return
*!*	      Else
*!*	         myform1.SSPanel6.Visible = False
         PUBLIC xindex
         xindex = 0 &&hier gibt es nur als Anzeige, keine Auswahl
         DO FORM atzgrid
*!*	      EndIf
*!*	EndIf


ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     %                                  %   W                       U  &  7  
 T     atzgrid U  XINDEX ATZGRID0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMoveg     
 MouseLeave     1 y   6 12 111                                 *        K        )                           textbox      textbox      dem5      FORM1      Alignment = 3
Value = 
Height = 20
Left = 270
ReadOnly = .T.
TabIndex = 446
Top = 607
Width = 21
DisabledBackColor = 255,255,255
Name = "dem5"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                      %         Q     C            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION	 MouseMove,     
 MouseLeave     1 12 111                       o                   )                           
commandbutton      
commandbutton      z21      FORM1      {Top = 606
Left = 143
Height = 22
Width = 152
Caption = "WoStd von Normal"
TabIndex = 40
Alignment = 0
Name = "z21"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=21
myindex=zti
DO FORM xauswahl WITH zi(1+21) to hsxretwert

zi(1+21) = rcv(hsxretwert)
index1=zi(1+21)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           
commandbutton      
commandbutton      	sspanel10      FORM1      Top = 163
Left = 869
Height = 22
Width = 108
Caption = "Soz.V. 21%"
TabIndex = 447
TabStop = .F.
ForeColor = 255,0,0
Name = "sspanel10"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name, this.caption)
ENDPROC
                                   )o   %   "      W     I            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION6         T   C 	     U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      com49      FORM1      ~Top = 691
Left = 543
Height = 22
Width = 22
Caption = "33"
Enabled = .F.
TabIndex = 448
Visible = .F.
Name = "com49"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
comaktivieren(46)
ENDPROC
     	                              m   %   ?        	   u            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION 
 C.   U 
 COMAKTIVIEREN	 MouseMove,     
 MouseLeave      Click    1 12 112  1                       o                          	    )                           
commandbutton      
commandbutton      par49      FORM1      }Top = 693
Left = 564
Height = 22
Width = 22
Caption = ""
Enabled = .F.
TabIndex = 449
Visible = .F.
Name = "par49"
     iPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
IF LEN(this.Name) < 5
	mindex=RIGHT(this.Name,1)
ELSE
	mindex=RIGHT(this.Name,2)
endif
paraktiv(mindex)
ENDPROC
     o    V  V                        ;   %                          U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION]  %C   >
+  T C   R H  T C   R  C    U  THIS NAME MINDEX PARAKTIV	 MouseMove,     
 MouseLeave      Click    1 12 112 aQ QA  1                       o                        ^  	    )   V                        
commandbutton      
commandbutton      z49      FORM1      Top = 690
Left = 588
Height = 22
Width = 220
Caption = "z49"
Enabled = .F.
TabIndex = 450
Visible = .F.
Alignment = 0
Name = "z49"
     %PROCEDURE Click
zti=45
myindex=zti
DO z_click(myindex)
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     0                              p   %   b                       U  + 
 T  -
 T    C    U  ZTI MYINDEX Z_CLICK0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMover     
 MouseLeave     1    2 12 111                       9         Y                 
    )                           label      label      Tastenstand      FORM1      dCaption = ""
Height = 16
Left = 387
Top = 240
Width = 85
TabIndex = 452
Name = "Tastenstand"
      
commandbutton      
commandbutton      Command1      FORM1      Top = 108
Left = 282
Height = 16
Width = 49
Caption = "debug "
Enabled = .T.
TabIndex = 455
Visible = .T.
Name = "Command1"
      MPROCEDURE RightClick
SET STEP ON 
ENDPROC
PROCEDURE Click



ENDPROC
                                         %   @       k      c             U  	  G1  U    U  
 RightClick,      Click9     1 a 2 4                       "         >   B       )                            label      label      TIP      FORM1      ^Caption = "TIP"
Height = 16
Left = 9
Top = 653
Width = 972
TabIndex = 456
Name = "TIP"
     ]PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Caption='Der Mauszeiger zeigt hier zu jedem Bildschirmelement eine kurze Erluterung an. Weitere Hilfen durch Anklicken der Zeilennummern,  oder '+'"Handbuch".'
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     0                              p   %                          U          T   Der Mauszeiger zeigt hier zu jedem Bildschirmelement eine kurze Erluterung an. Weitere Hilfen durch Anklicken der Zeilennummern,  oder  "Handbuch". U  NBUTTON NSHIFT NXCOORD NYCOORD THIS CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION	 MouseMove,     
 MouseLeave!    1 1
2 111                                  R      )                           
commandbutton      
commandbutton      	printform      FORM1      Top = 39
Left = 878
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 457
Visible = .F.
Name = "printform"
     ePROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif

oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026

CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       Z      )                           label      label      BW_SONDERZAHLUNG_03_2018      FORM1      FontBold = .T.
FontSize = 11
Caption = "Sonderzahlung nicht vergessen!"
Height = 17
Left = 171
Top = 480
Visible = .F.
Width = 360
TabIndex = 458
ForeColor = 255,0,0
Name = "BW_SONDERZAHLUNG_03_2018"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                      %         Q     C            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION	 MouseMove,     
 MouseLeave     1 12 111                       o                   )                           timer      timer      Timer99      FORM1      PTop = 390
Left = 87
Height = 28
Width = 28
Enabled = .T.
Name = "Timer99"
      PROCEDURE Timer
IF myform1.check1.forecolor = RGB(255,0,0)
	myform1.check1.forecolor = RGB(0,0,0)
ELSE
	myform1.check1.forecolor = RGB(255,0,0)
ENDIF
myform1.check1.refresh
ENDPROC
     J    1  1                        &   %                             U  t   %    C  ^<  T    C   ^ `  T    C  ^ 
      U  MYFORM1 CHECK1	 FORECOLOR REFRESH Timer,     1  A  1                              )   1                        
commandbutton      
commandbutton      Command3      FORM1      Top = 111
Left = 63
Height = 13
Width = 22
Caption = "an"
Enabled = .F.
TabIndex = 459
Visible = .F.
Name = "Command3"
      'PROCEDURE Click
hsxxx = .t.
ENDPROC
                                         %   E       Z      T             U    T  a U  HSXXX Click,     1  1                              )                            
commandbutton      
commandbutton      Command4      FORM1      Top = 111
Left = 88
Height = 13
Width = 26
Caption = "aus"
Enabled = .F.
TabIndex = 460
Visible = .F.
Name = "Command4"
      'PROCEDURE Click
hsxxx = .f.
ENDPROC
                                         %   E       Z      T             U    T  - U  HSXXX Click,     1  1                              )                            
commandbutton      
commandbutton      extra43      FORM1      Top = 559
Left = 842
Height = 22
Width = 22
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
TabIndex = 400
Name = "extra43"
     RPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
myINDEX = 43
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
     m    T  T                           %                          U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION7 
 T  + T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN	 MouseMove,     
 MouseLeave      Click    1 12 112  1 q 1                       o                        G  	    )   T                        
commandbutton      
commandbutton      extra44      FORM1      Top = 559
Left = 834
Height = 22
Width = 9
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
TabIndex = 399
Name = "extra44"
     RPROCEDURE Click
myINDEX = 44
thisform.Kcombo.Visible = False
myindexe = myIndex
DO extraaktivieren
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     m    T  T                           %                          U  7 
 T  , T    
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE MYINDEXE EXTRAAKTIVIEREN)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove    1  1 q 2 112 11                       f                  	      G      )   T                        
commandbutton      
commandbutton      sr43      FORM1      bTop = 559
Left = 811
Height = 22
Width = 54
Caption = "000000"
TabIndex = 93
Name = "sr43"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
zti = 43
myindex = 43

If Dimen.dimpw3 = 1 .And. modus = 2
	Do realtiptext &&Do attached
	RETURN 
Endif

If indexm = 12
	RETURN 
Endif
SRVorgaben = False
DO FORM sonderregelungen &&WITH this.caption to hsxretwert
&&this.Caption = hsxretwert

ENDPROC
                                      %         c     =            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION 
 T  +
 T + %    	D    B  % ]  B 
 T    sonderregelungen U
  ZTI MYINDEX DIMEN DIMPW3 MODUS REALTIPTEXT INDEXM
 SRVORGABEN FALSE SONDERREGELUNGEN	 MouseMove,     
 MouseLeave      Click    1 12 112   q A A A A  3                       o                          	    )                           
commandbutton      
commandbutton      Command5      FORM1      Top = 40
Left = 750
Height = 16
Width = 52
Caption = "Command5"
Enabled = .F.
TabIndex = 461
Visible = .F.
Name = "Command5"
     PROCEDURE Click
*!*	DEFINE window hsdruckvorschau FROM 1,1 TO 20,20 IN DESKTOP NAME xvorschau TITLE "Druckvorschau" PANEL CLOSE float GROW zoom 
*!*	xvorschau.top = 100
*!*	xvorschau.width = 700
*!*	xvorschau.height = 500
*!*	ACTIVATE WINDOW hsdruckvorschau 
*SET REPORTBEHAVIOR 90
*REPORT FORM testx RANGE 1,1 PREVIEW &&PREVIEW IN WINDOW hsdruckvorschau
*REPORT FORM MyReport OBJECT TYPE 1
ENDPROC
                                         %   3       F      B             U    U   Click,     1 9                             )                            
commandbutton      
commandbutton      EGO      FORM1      Top = 126
Left = 215
Height = 22
Width = 47
Caption = "EGO"
TabIndex = 462
TabStop = .F.
BackColor = 0,255,0
Name = "EGO"
     tPROCEDURE Click
do Case 
Case INLIST(zi(1+4),0,1,2,3,4)
Case INLIST(zi(1+4),1,5,6,7)
     hinweis("Fr dieses Dienstverhltnis ohne Funktion")
     &&MsgBox "Ein Assistent fr die berleitung in die Bezahlungsordnung F" & Chr$(13) & "ist in Vorbereitung.", 0, "berleitungsassistent"
Case zi(1+4) = 9
     Hinweis("Die L-EGO wird voraussichtlich 20?? in Kraft treten." + Chr(13) + "Sie wird dann in gleicher Weise wie die TV-L-Entgeltordnung" + Chr(13) + "in das Programm integriert.")
Case zi(1+4) = 10 &&BUND
	DO FORM fallgruppen WITH "TVD-Entgeltordnung-Bund"
*!*	     myform1.Eingabe.value = ""
*!*	     myform1.weiblich.Top = myform1.Eingabe.Top
*!*	     myform.weiblich.Left = myform1.TVLEntgeltordnung.Left
*!*	     myform1.TVLEntgeltordnung.Caption = "TVD-Entgeltordnung-Bund"
*!*	     myform1.Entgeltordnung.Visible = True
Case INLIST(zi(1+4),12, 13, 15) &&VKA
    If welchesjahr < 2017 
        hinweis("Sobald die TVD-Entgeltordnung fr den VKA-Bereich beschlossen ist," + Chr(13) + "wird sie in gleicher Weise wie die TV-L-Entgeltordnung" + Chr(13) + "in das Programm integriert.")
    ELSE
		DO FORM fallgruppen WITH "TVD-Entgeltordnung-VKA"
*!*	        myform1.Eingabe.value = ""
*!*	        myform1.weiblich.Top = myform1.Eingabe.Top
*!*	        myform1.weiblich.Left = myform1.TVLEntgeltordnung.Left
*!*	        myform1.TVLEntgeltordnung.Caption = "TVD-Entgeltordnung-VKA"
*!*	        myform1.Entgeltordnung.Visible = True
    EndIf
Case INLIST(zi(1+4),11, 17) &&TV-L/TV-H
	DO FORM fallgruppen WITH "TV-L-Entgeltordnung"
*!*	     myform1.TVLEntgeltordnung.Caption = "TV-L-Entgeltordnung"
*!*	     myform1.Eingabe.value = ""
*!*	     myform1.weiblich.Top = myform1.Eingabe.Top
*!*	     myform1.weiblich.Left = myform1.TVLEntgeltordnung.Left
*!*	     myform1.Entgeltordnung.Visible = True
Case zi(1+4) = 14
     inet = "132"
     Msg = "V-VKA-56-M"
	DO insinternet
Endcase
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         p  p                        QA   %                          U  8
 H
 1" CC   /  CC   6 C) Fr dieses Dienstverhltnis ohne Funktion  C  	D C4 Die L-EGO wird voraussichtlich 20?? in Kraft treten.C
 ; Sie wird dann in gleicher Weise wie die TV-L-EntgeltordnungC
  in das Programm integriert.  C  
1  fallgruppen TVD-Entgeltordnung-Bund CC  
 % 
m CC Sobald die TVD-Entgeltordnung fr den VKA-Bereich beschlossen ist,C
 6 wird sie in gleicher Weise wie die TV-L-EntgeltordnungC
  in das Programm integriert.  0  fallgruppen TVD-Entgeltordnung-VKA  CC  ,  fallgruppen TV-L-Entgeltordnung C  1 T  132 T 
 V-VKA-56-M    U  ZI HINWEIS FALLGRUPPEN WELCHESJAHR INET MSG INSINTERNET)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave    	 MouseMove    1  !aR
Q!Q F Vqq A 2 112 11                                   (        i  ,    )   p                        
commandbutton      
commandbutton      TVD      FORM1      Top = 126
Left = 264
Height = 22
Width = 70
Caption = "TVD"
TabIndex = 463
TabStop = .F.
BackColor = 0,255,0
Name = "TVD"
     PROCEDURE Click
do Case 
Case zi(1+4) = 10 .or. zi(1+4) = 18
      If Len(allTrim(myform1.TVD.Caption)) = 13 
         Msg = Leftc(TVD.Caption, 8) + "15"
         inet = "131"
         Msg = "Entgeltordnung-Bund/" + Msg
         DO insinternet
      EndIf
Case zi(1+4) = 11 .or. zi(1+4) = 17
      If Len(allTrim(myform1.TVD.Caption)) = 13 
         Msg = Leftc(myform1.TVD.Caption, 8) + "15"
         inet = "183"
         DO insinternet
      EndIf
Case zi(1+4) = 12 .or. zi(1+4) = 15
      If Len(allTrim(myform1.TVD.Caption)) = 13 
         Msg = myform1.TVD.Caption
         vkapdfcode = Msg
         
         DO get_vkaseite
         
         inet = "001"
         Msg = "ego_vka_final.pdf#page=" + ALLTRIM(STR(vkapdfseite,4,0))
         DO insinternet
      EndIf
Endcase
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     M    4  4                        $   %   U                        U  
 H
 $ C  
 C    %CC   >
  T C   15 T  131% T  Entgeltordnung-Bund/    $ C   C  ! %CC   >
 T C    15 T  183   $ C   C   %CC   >
 T    
 T     T  0012 T  ego_vka_final.pdf#page=CC	  Z     U
  ZI MYFORM1 TVD CAPTION MSG INET INSINTERNET
 VKAPDFCODE GET_VKASEITE VKAPDFSEITE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeavee    	 MouseMove    1  AQq A Aq A A1 r !q A A 2 112 11                       &        G              !    )   4                        
commandbutton      
commandbutton      kgberechnung      FORM1      Top = 244
Left = 798
Height = 22
Width = 23
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = "KG"
TabIndex = 411
TabStop = .F.
Name = "kgberechnung"
     PROCEDURE RightClick
IF INLIST(zi(1+4),8,9,10,11,12,13,14,16,17,18,19,29) &&.or. INLIST(zi(1+4),10,12,13,14,16,18)&&TVL und tvd
	PUBLIC myKGzuschuss
	myKGzuschuss = ""
	
	DO FORM krankengeld_zuschuss 

	IF .not. EMPTY(myKGzuschuss) &&hs 
		myKGzuschuss = rcv(myKGzuschuss)
		xxxy = ALLTRIM(STR(myindex,3,0))
		myform1.T&xxxy..value = myKGzuschuss

		wert(1+myindex) = myKGzuschuss * 100
		zi(1+zti) = 16 &&krankengeldzuschuss
		index1=zi(1+zti)
		DO zgrid_click WITH 16
	ELSE
		myKGzuschuss = 0.00
	ENDIF	
else
	hinweis("Kein Krankengeldzuschuss auerhalb des TVD.")	
ENDIF

return
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
*!*	myINDEX = 9
*!*	thisform.Kcombo.Visible = False
*!*	myindexe = myIndex
*!*	DO tafelloeschen
*!*	DO extraaktivieren
DO FORM krankengeld
ENDPROC
     K    2  2                        V   %   5                       U  7 %CC  	

= 7 
 T     krankengeld_zuschuss %C 
 T C    T CC  Z( myform1.T&xxxy..value = myKGzuschuss
 T   d T    T C   
 	  9 T           ~9 C, Kein Krankengeldzuschuss auerhalb des TVD.
   B U  ZI MYKGZUSCHUSS KRANKENGELD_ZUSCHUSS RCV XXXY MYINDEX WERT ZTI INDEX1 ZGRID_CLICK HINWEIS0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION   krankengeld U  KRANKENGELD
 RightClick,     	 MouseMove    
 MouseLeave     Click    1 qq  !qqQ  QA  A B 2 12 112 61                       ^        ~            ?        [    "    )   2                        
commandbutton      
commandbutton      
dienstunfhig      FORM1      Top = 408
Left = 311
Height = 22
Width = 22
Picture = prgicons\disabled3.jpg
Caption = ""
TabIndex = 414
TabStop = .F.
PicturePosition = 14
Name = "dienstunfhig"
     	PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
PUBLIC myHSzuschlag
myHSzuschlag = ""

DO FORM dienstunfhigkeit

zt12(162) = "begr. Dienstfhiskeitszuschlag"
zt12(161) = zt12(162)
zt13(161) = zt12(162)
zt14(161) = zt12(162)	
zt13(162) = zt12(162)
zt14(162) = zt12(162)
IF .not. EMPTY(myHSzuschlag ) &&hs 
	IF myHSzuschlag = "gelscht"
		DO case
			CASE zi(1+4) >= 0 .and. zi(1+4) <= 7
				register = 112
			CASE zi(1+4) >= 8 .and. zi(1+4) <= 24
				register = 1112
		endcase			
		myHSzuschlag = 0.00
		zi(1+zti) = 0
		index1=0
		wert(1+zti) = 0
		teilzahl(zti) = 0
		bruchzahl(zti) = 0
		interim(1+zti) = 0
		effzahl(1+zti) = 0
		xxxy = ALLTRIM(STR(myindex,3,0))
		myform1.T&xxxy..value = 0.00
        For k = zi(1+20) + 1 To 12
            myGet(k, fileneu, "wvw")
            lasttext = zt12(1+0)
            hsxx = ALLTRIM(STR(zti,3,0))
            myform1.z&hsxx..Caption = lasttext
            wvw.tnam(1+zti) = 0
            wvw.tznam(1+zti) = 0
            wvw.tbnam(1+zti) = 0
            wvw.effz(1+zti) = 0
            wvw.Zulagen(1+zti - 10) = lasttext
            myPut(k, fileneu, "wvw")
         NEXT
		
	ELSE
		DO case
			CASE zi(1+4) >= 0 .and. zi(1+4) <= 7
				register = 112
			CASE zi(1+4) >= 8 .and. zi(1+4) <= 24
				register = 1112
		endcase			
		myHSzuschlag = rcv(myHSzuschlag )
		xxxy = ALLTRIM(STR(myindex,3,0))
		myform1.T&xxxy..value = myHSzuschlag 
		wert(1+myindex) = myHSzuschlag * 100
		teilzahl(zti) = wert(1+zti)  * IIF(.not. EMPTY(teiz(zti)),teilzeitfaktor,1)
		bruchzahl(zti) = teilzahl(zti) * IIF(.not. EMPTY(bruz(zti)),bruchteilfaktor,1)
		interim(1+zti) = bruchzahl(zti)
		effzahl(1+zti) = wert(1+zti)
		
		zi(1+zti) = 162 &&dienstunfhigkeitszuschuss
		index1=zi(1+zti)
	*	zti2 = zti
        For k = zi(1+20) + 1 To 12
            myGet(k, fileneu, "wvw")
            lasttext = zt12(1+161)
            hsxx = ALLTRIM(STR(zti,3,0))
            myform1.z&hsxx..Caption = lasttext
            wvw.tnam(1+zti) = INT(wert(1+zti))
            wvw.tznam(1+zti) = INT(teilzahl(zti))
            wvw.tbnam(1+zti) = INT(bruchzahl(zti))
            wvw.effz(1+zti) = INT(effzahl(1+zti))         
            wvw.Zulagen(1+zti - 10) = lasttext
            myPut(k, fileneu, "wvw")
         Next	
	endif
ELSE
	myHSzuschlag = 0.00
ENDIF	


ENDPROC
     
    
  
                           %         	  P               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION 7  
 T      dienstunfhigkeit1 T  begr. Dienstfhiskeitszuschlag T C  T C  T C  T C  T C  %C  
u %   gelschtp
 Hj$ C   C 	8
 T p$ C  C 	j T X  T           T   
 T   T	    T
    T    T    T
    T CC  Z  myform1.T&xxxy..value = 0.00
  C (l C     wvw  T C  T CC  Z& myform1.z&hsxx..Caption = lasttext
 T     T     T     T     T   
  C     wvw   q
 H$ C   C 	
 T p$ C  C 	 T X  T  C     T CC  Z) myform1.T&xxxy..value = myHSzuschlag 
 T	    d5 T
  C 	 CCC   
   62 T  C  
 CCC   
    6 T  C    T
  C 	  T   T C    C (m C     wvw  T C   T CC  Z& myform1.z&hsxx..Caption = lasttext
$ T   CC 	 8! T   CC  
 8! T   CC   8$ T   CC 
 8 T   
  C     wvw     T            U!  MYHSZUSCHLAG DIENSTUNFHIGKEIT ZT12 ZT13 ZT14 ZI REGISTER ZTI INDEX1 WERT TEILZAHL	 BRUCHZAHL INTERIM EFFZAHL XXXY MYINDEX K MYGET FILENEU LASTTEXT HSXX WVW TNAM TZNAM TBNAM EFFZ ZULAGEN MYPUT RCV TEIZ TEILZEITFAKTOR BRUZ BRUCHTEILFAKTOR	 MouseMove,     
 MouseLeave      Click    1 12 112 q  qqqqq A A A Qq q11qqqqaA   A A A !qQ!rQ!qaAAA A  QA 3                       o                        	  	    )   
                        	container      	container      
minitrger      FORM1      dTop = 479
Left = 12
Width = 525
Height = 83
Visible = .F.
TabIndex = 444
Name = "minitrger"
      label      label      Label1      FORM1.minitrger      FontSize = 9
Caption = "1. Vor dem 1.1.2013 Minijob bis 400 Euro:"
Height = 13
Left = 3
Top = 3
Width = 506
ForeColor = 255,0,0
Name = "Label1"
      label      label      Label2      FORM1.minitrger      FontSize = 9
Caption = "2. Vor dem 1.1.2013 in der Gleitzone von  401 bis 450 Euro:"
Height = 16
Left = 3
Top = 48
Width = 506
ForeColor = 255,0,0
Name = "Label2"
      label      label      Label3      FORM1.minitrger      FontSize = 9
WordWrap = .T.
Caption = "Bei Erhhung bis 450 Euro weiterhin Mini-Job-Regelung, jedoch nun RV-pflichtig mit Befreiungsmglichkeit"
Height = 30
Left = 14
Top = 16
Width = 314
ForeColor = 0,0,0
Name = "Label3"
      label      label      Label4      FORM1.minitrger      FontSize = 9
WordWrap = .T.
Caption = "Die alte Gleitzonenformel gilt bis bis 31.12.2014 weiter. Auf Antrag Befreiung."
Height = 16
Left = 14
Top = 63
Width = 431
ForeColor = 0,0,0
Name = "Label4"
      label      label      Label18bis20      FORM1      FontBold = .T.
FontSize = 13
WordWrap = .F.
Caption = ""
Height = 83
Left = 12
Top = 479
Visible = .F.
Width = 525
TabIndex = 454
Name = "Label18bis20"
      textbox      textbox      t60      FORM1      kHeight = 20
Left = 54
TabIndex = 152
ToolTipText = "Prozentsatz "
Top = 320
Width = 58
Name = "t60"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
ENDIF
t_geclickt = 60
DO t_keypress WITH 60,nKeycode
ENDPROC
                                   1   %         /                 U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTIONf      %  
A  T    T  C  > 
 T <  <   U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_GECLICKT
 T_KEYPRESS	 MouseMove,     
 MouseLeave      KeyPress    1 12 112  QA  1                       o                          	    )                           
commandbutton      
commandbutton      z11      FORM1      mTop = 319
Left = 54
Height = 22
Width = 258
Caption = "z11"
TabIndex = 19
Alignment = 0
Name = "z11"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
IF zi(1+4) = 26
	RETURN
endif
zti=11
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+11) to hsxretwert

zi(1+11) = rcv(hsxretwert)
index1=zi(1+11)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         M     +            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME  %C    B 
 T 
 T    xauswahl( C   T  C    T C    C    U  ZI ZTI MYINDEX XAUSWAHL
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12 QA A   "2                       \         |                 	    )                           textbox      textbox      t53      FORM1      zEnabled = .F.
Height = 20
Left = 55
TabIndex = 151
ToolTipText = "Prozentsatz "
Top = 211
Width = 57
Name = "t53"
     CPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO t_keypress WITH 53,nKeycode
ENDPROC
     3                              L   %   d        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME       5   U  NKEYCODE
 NSHIFTALTCTRL
 T_KEYPRESS
 MouseLeave,     	 MouseMove      KeyPress    1 112 12  1                       \         |               8  	    )                           
commandbutton      
commandbutton      z3      FORM1      Top = 210
Left = 54
Height = 22
Width = 201
Caption = "Monate bei Stufenber.="
TabIndex = 10
Alignment = 0
Name = "z3"
     dPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click

DO case
case zi(1+4) < 8
	zti=3
	myindex=zti
	DO FORM xauswahl WITH zi(1+3) to hsxretwert

	zi(1+3) = rcv(hsxretwert)
	index1=zi(1+3)

	DO zgrid_click WITH rcv(hsxretwert)
	
CASE INLIST(zi(1+4), 10, 11, 12,13,14,15,16,17,22,23,24)
	zti=3
	myindex=zti
	*DO z_click(index)
	Msg = 'Diese Funktion wurde vorbergehend deaktiviert, bis die berschneidungen mit Vernderungen des Beginns der Stufenlaufzeit in Zeile 6 behoben sind. Sie knnen nach Stufenbewegungen den neuen Beginn der Stufenlaufzeit mit dem '
	Msg = Msg + 'DA-Rechner (Icon "DA" in Zeile 6) berechnen.' + Chr(13) + Chr(13)
	Msg = Msg + "Die Beschreibung der bisherigen Funktion der Zeile 7 lautete" + Chr(13) + Chr(13) + "Wenn in Zeile 6 ein Datum fr den Dienstantritt vorhanden ist, berechnet das Programm die Entgeltstufe in Zeile 8 automatisch." + Chr(13)
	msg = msg + "Ab der Entgeltstufe 3 wird dabei die Anzahl der Monate bercksichtigt, die in Zeile 7 als Stufenverkrzung (-) oder als Stufenverlngerung (+) angegeben ist." + Chr(13) 
	msg = msg + "Die Wirkung der Stufenverkrzung/verlngerung im laufenden Monat wird im rechten Zahlenfeld der Zeile 7 nachrichtlich in Euro angezeigt." + Chr(13) 
	msg = msg + "berdurchschnittliche Leistungen knnen durch eine Verkrzung der Stufenlaufzeit honoriert werden. Bei unterdurchschnittlichen Leistungen knnen die Stufen verlngert werden."


	DO FORM nachricht WITH msg

CASE INLIST(zi(1+4), 6,7,8,9 ,18, 19 ,20 ,21, 25 ,26 ,27)
	zti=3
	myindex=zti
	DO FORM xauswahl WITH zi(1+3) to hsxretwert

	zi(1+3) = rcv(hsxretwert)
	index1=zi(1+3)

	DO zgrid_click WITH rcv(hsxretwert)	
endcase
ENDPROC
     =    $  $                           %   A        "   w            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 H
  C  
 
 T 
 T    xauswahl( C   T  C    T C    C   4 CC  

!
 T 
 T   T  Diese Funktion wurde vorbergehend deaktiviert, bis die berschneidungen mit Vernderungen des Beginns der Stufenlaufzeit in Zeile 6 behoben sind. Sie knnen nach Stufenbewegungen den neuen Beginn der Stufenlaufzeit mit dem I T  , DA-Rechner (Icon "DA" in Zeile 6) berechnen.C
 C
  T  < Die Beschreibung der bisherigen Funktion der Zeile 7 lauteteC
 C
 ~ Wenn in Zeile 6 ein Datum fr den Dienstantritt vorhanden ist, berechnet das Programm die Entgeltstufe in Zeile 8 automatisch.C
  T  ٝ Ab der Entgeltstufe 3 wird dabei die Anzahl der Monate bercksichtigt, die in Zeile 7 als Stufenverkrzung (-) oder als Stufenverlngerung (+) angegeben ist.C
  T  و Die Wirkung der Stufenverkrzung/verlngerung im laufenden Monat wird im rechten Zahlenfeld der Zeile 7 nachrichtlich in Euro angezeigt.C
  T  ٮ berdurchschnittliche Leistungen knnen durch eine Verkrzung der Stufenlaufzeit honoriert werden. Bei unterdurchschnittlichen Leistungen knnen die Stufen verlngert werden. 	 nachricht 4 CC  	
 T 
 T    xauswahl( C   T  C    T C    C     U
  ZI ZTI MYINDEX XAUSWAHL
 HSXRETWERT RCV INDEX1 ZGRID_CLICK MSG	 NACHRICHT
 MouseLeave,     	 MouseMove      Click    1 112 12  Q  "B  A	SB  "A 1                       \         |               Y  	    )   $                        	container      	container      kcombo      FORM1      Top = 687
Left = 102
Width = 438
Height = 663
BorderWidth = 3
Enabled = .F.
Visible = .F.
TabIndex = 451
Name = "kcombo"
      PROCEDURE Click
myform1.Kcombo.zgrid.enabled = False
myform1.Kcombo.enabled = False
myform1.Kcombo.zgrid.Visible = False
myform1.Kcombo.Visible = False
RETURN

ENDPROC
     9                                   %                             U  Y  T       T      T       T      B U  MYFORM1 KCOMBO ZGRID ENABLED FALSE VISIBLE Click,     1 a1a1A 2                              )                            label      label      Label1      FORM1.kcombo      bAutoSize = .T.
Caption = "Label1"
Height = 17
Left = 12
Top = 6
Width = 40
Name = "Label1"
      label      label      Anleitungstext      FORM1.kcombo      gWordWrap = .T.
Caption = ""
Height = 58
Left = 42
Top = 498
Width = 157
Name = "Anleitungstext"
      label      label      Anleitungstext1      FORM1.kcombo      hWordWrap = .T.
Caption = ""
Height = 58
Left = 69
Top = 537
Width = 157
Name = "Anleitungstext1"
      
commandbutton      
commandbutton      	zgridwww0      FORM1.kcombo      [Top = 567
Left = 15
Height = 21
Width = 313
Caption = "zgridwww0"
Name = "zgridwww0"
      
commandbutton      
commandbutton      	zgridwww1      FORM1.kcombo      [Top = 587
Left = 15
Height = 21
Width = 313
Caption = "zgridwww1"
Name = "zgridwww1"
      
commandbutton      
commandbutton      	zgridwww2      FORM1.kcombo      [Top = 607
Left = 15
Height = 21
Width = 313
Caption = "zgridwww2"
Name = "zgridwww2"
      
commandbutton      
commandbutton      	zgridwww3      FORM1.kcombo      [Top = 627
Left = 15
Height = 21
Width = 313
Caption = "zgridwww3"
Name = "zgridwww3"
      grid      grid      zgrid      FORM1.kcombo      @Height = 106
Left = 72
Top = 42
Width = 199
Name = "zgrid"
      
commandbutton      
commandbutton      extra52      FORM1      Top = 39
Left = 198
Height = 21
Width = 34
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = "NEU"
TabIndex = 438
TabStop = .F.
ToolTipText = "Neuen Datensatz anlegen"
Name = "extra52"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
IF registriert < 2 .and. lof(13) = 5
	DO mehralsfnf
	RETURN
ENDIF

hsneuersatz = .t.
thisform.tdbnumber1.value = lof(13) + 1
spin1 = thisform.tdbnumber1.value

* DO spin_up_down 
hsneuersatz = .f.
ENDPROC
                                   |   %         \     <            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv   %  
 C
 	+    B  T a T   C
  T     T - U  REGISTRIERT LOF MEHRALSFNF HSNEUERSATZ THISFORM
 TDBNUMBER1 VALUE SPIN1
 MouseLeave,     	 MouseMove      Click<    1 12 12 q A A  1 1                       p                         	    )                           
commandbutton      
commandbutton      z29      FORM1      mTop = 55
Left = 586
Height = 22
Width = 279
Caption = "z29"
TabIndex = 47
Alignment = 0
Name = "z29"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=29
myindex=zti
DO FORM xauswahl WITH zi(1+29) to hsxretwert

zi(1+29) = rcv(hsxretwert)
index1=zi(1+29)

DO zgrid_click WITH rcv(hsxretwert)
ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C  T C    T C   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "1                       \         |                 	    )                           textbox      textbox      Text1      FORM1      lEnabled = .F.
Height = 21
Left = 3
TabIndex = 464
Top = 513
Visible = .F.
Width = 93
Name = "Text1"
     _PROCEDURE ProgrammaticChange
*hinweis("Auswahl = " + this.Value)

DO case
*start
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/1"
		inet = "111"
		Msg = "manual"
		Do insinternet &&Do attached
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/2"
		IF .not. EMPTY(thisform.check1.value)
			hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Dadurch ist diese Funktion abgeschaltet."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und starten Sie dann diesen Programmteil erneut.")
			RETURN
		endif	
*		hinweis("Diese Funktion ist vorbergehend ausgeschaltet!")
		DO FORM neuenspeicherort WITH "los" TO hsxwert2
		IF hsxwert2 = "quit"
			CLOSE ALL
			myform1.release		
			QUIT
		else
			RETURN
		endif
*		Do speicherortfestlegen &&Do attached
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/3"
		register = 97
		DO FORM Freischaltung WITH "mit" TO hsxwert2

		IF hsxwert2 = "OK"
			DO titelleiste
		ENDIF
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/4"
		IF .not. EMPTY(thisform.check1.value)
			hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Dadurch ist diese Funktion abgeschaltet."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und starten Sie dann diesen Programmteil erneut.")
			RETURN
		endif	
		hsxdat = SYS(5)+SYS(2003)+"\testumgebung.txt" &&screen ausblenden wenn produktionsumgebung
		IF .not. FILE("&hsxdat")
			IF JUSTFNAME(SYS(16,0)) = "GEHALT"+substr(xjahr4,3,2)+".EXE"
				If .Not. welchesjahr = jahr4
					welchesjahrold = welchesjahr
					welchesjahr = jahr4 &&hs
					Do nachjahrwechseln &&Do attached
				Endif
				If nettoentgelt = True
					hstxt1 = "Da sich die Abfrage nach einem neuen Update auch auf die Tarifdateien erstreckt," + Chr(13)
					hstxt2 = "funktioniert die Updateabfrage nur, wenn Tarifdateien installiert sind." + Chr(13)
					hstxt3 = "ffnen Sie die Auswahlbox der Zeile 3 und whlen dort Besoldungsordnung A." + Chr(13)
					hstxt4 = "Danach wird angeboten, die Tarifdatei nachzuinstallieren."
					kstxt5 = "In Zeile 3 kann die Installation der Tarifdatei gestartet werden."
					Messagebox(hstxt1 + hstxt2 + hstxt3 + hstxt4 , 0, hstxt5)
					Return
				ENDIF
				iii = 1
				DO FORM updaten
			ELSE
				Hinweis("Das Updaten funktioniert NICHT mit einer umbenannten EXE-Datei!"+CHR(13)+"Bitte die EXE-Datei wieder in '"+"GEHALT"+substr(xjahr4,3,2)+".EXE"+"' umbenennen!")
			endif
		ELSE
			If .Not. welchesjahr = jahr4
				welchesjahrold = welchesjahr
				welchesjahr = jahr4 &&hs
				Do nachjahrwechseln &&Do attached
			Endif
			If nettoentgelt = True
				hstxt1 = "Da sich die Abfrage nach einem neuen Update auch auf die Tarifdateien erstreckt," + Chr(13)
				hstxt2 = "funktioniert die Updateabfrage nur, wenn Tarifdateien installiert sind." + Chr(13)
				hstxt3 = "ffnen Sie die Auswahlbox der Zeile 3 und whlen dort Besoldungsordnung A." + Chr(13)
				hstxt4 = "Danach wird angeboten, die Tarifdatei nachzuinstallieren."
				kstxt5 = "In Zeile 3 kann die Installation der Tarifdatei gestartet werden."
				Messagebox(hstxt1 + hstxt2 + hstxt3 + hstxt4 , 0, hstxt5)
				Return
			ENDIF
			iii = 1
			DO FORM updaten		
		ENDIF
		IF hsquit = .t.
			thisform.release
		ENDIF
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/5"
		register = 62
		*Do Laden &&Do attached	
		Do FORM Lizenzinhaber
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/6"
		myform1.Kcombo.Visible = False
		If usernr = 1 .And. textschutz = True
			Do schutznachricht &&Do attached
			Return
		Endif
		DO FORM Textedit	

		DO zeileninhalt

		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/7"
		hinweis("Diese Funktion ist stillgelegt!")
		return
*		Do sitzungswiederherstellung
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/8"
		register = 61
		*Do Laden &&Do attached
		DO FORM voreinstellungen
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/9"
		IF .not. EMPTY(thisform.check1.value)
			hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Dadurch ist diese Funktion abgeschaltet."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und starten Sie dann diesen Programmteil erneut.")
			RETURN
		endif	
		DO FORM pfadeunduser TO hsxwert2
		IF hsxwert2 = "quit"
			Hinweis("PC-Gehalt wird jetzt beendet. Bitte neu starten!")
			CLOSE ALL
			myform1.release
			QUIT
		else
			RETURN
		endif		
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/10"
		IF .not. EMPTY(thisform.check1.value)
			hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Dadurch ist diese Funktion abgeschaltet."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und starten Sie dann diesen Programmteil erneut.")
			RETURN
		endif	
		oldselect = SELECT()
		DO FORM komprimieren
		SELECT(oldselect)	
	
		IF hsbeenden = .t.
			CLOSE ALL
			myform1.release
			QUIT		
		ENDIF
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/11"
		IF ok2("Soll die Druckvorschau dauerhaft AUS-geschaltet werden?") = .t.
			hsdrufilename = eigdat + muser +"\immeraufdrucker.pcg"
			hsdruinhalt = "Bitte nicht lschen!"
			SET SAFETY off
			STRTOFILE(hsdruinhalt,"&hsdrufilename")
			SET SAFETY on
			hinweis("Druckvorschau wurde dauerhaft AUS-Geschaltet!")
		ELSE
			hsdrufilename = eigdat + muser +"\immeraufdrucker.pcg"
			DELETE FILE "&hsdrufilename"
			hinweis("Druckvorschau wurde dauerhaft EIN-Geschaltet!")
		endif	
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/12"
		IF ok2("Soll der Vollbildstart dauerhaft EIN-geschaltet werden?") = .t.
			hsdpifilename = eigdat + muser +"\maxscreen.pcg"
			hsdpiinhalt = "Bitte nicht lschen!"
			SET SAFETY off
			STRTOFILE(hsdpiinhalt,"&hsdpifilename")
			SET SAFETY on
			hinweis("Vollbildstart wurde dauerhaft EIN-Geschaltet!")
		ELSE
			hsdpifilename = eigdat + muser +"\maxscreen.pcg"
			DELETE FILE "&hsdpifilename"
			hinweis("Vollbildstart wurde dauerhaft AUS-Geschaltet!")
		endif		
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/13"
		IF ok2("Soll der Vollbildstart auf die Standardgre eingestellt werden?") = .t.
			hsdpifilename = eigdat + muser +"\maxscreen.pcg"
			DELETE FILE "&hsdpifilename"
			
			oldselect = SELECT(0)
			
			IF EMPTY(ALIAS(133))
				myopen(eigdat + muser + "\formdaten",133,"formdaten")
			ENDIF   
			   
			SELECT formdaten
			GOTO 1
			replace formdaten.top WITH 80
			replace formdaten.left WITH 296
			replace formdaten.width WITH 991
			replace formdaten.height WITH 694
			FLUSH

			myform1.Top = formdaten.top
			myform1.Left = formdaten.left
			myform1.Width = formdaten.width
			myform1.Height = formdaten.height
			
			myclose(133)
			SELECT(oldselect)			
			hinweis("Vollbildstart wurde ausgeschaltet und auf Standardgre eingestellt!")
		endif

	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/14"
		IF ok2("Soll die Dateigen-berwachung dauerhaft EIN-geschaltet werden?") = .t.
			hsdpifilename = eigdat + muser +"\checksize.pcg"
			hsdpiinhalt = "Bitte nicht lschen!"
			SET SAFETY off
			STRTOFILE(hsdpiinhalt,"&hsdpifilename")
			SET SAFETY on
			hinweis("Dateigen-berwachung wurde dauerhaft EIN-Geschaltet!")
		ELSE
			hsdpifilename = eigdat + muser +"\checksize.pcg"
			DELETE FILE "&hsdpifilename"
			hinweis("Dateigen-berwachung wurde dauerhaft AUS-Geschaltet!")
		endif			
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/15"
		druwahl = ""
		druwahl = GETPRINTER()

		IF .not. EMPTY(druwahl)
			SET PRINTER TO NAME "&druwahl"
			hinweis("Fr diese Sitzung wurde der Drucker <"  + druwahl + "> ausgewhlt!")
		ENDIF	

	CASE LOWER(ALLTRIM(this.Value)) == "xmenu1/16"
		IF .not. EMPTY(thisform.check1.value)
			hinweis("Sie haben die alte Lohnsteuerberechnung eingeschaltet!"+CHR(13)+"Das fhrt beim nchsten Programmstart zu Berechnungfehlern."+CHR(13)+"Bitte schalten Sie die alte Steuerberechnung wieder aus,"+CHR(13)+"und beenden Sie dann das Programm.")
			RETURN
		endif
		Public Starten &&As Single
		Public Pause &&As Single
		form1oben = myform1.Top
		form1links = myform1.Left
		form1hoch = myform1.Height
		form1breit = myform1.Width
		Do dimenaus &&Do attached
		If Dimen.dimpw5 = 1
			DO tresoraktivieren
		ENDIF
		CLOSE all
		QUIT	
	
*bruttovorgeben	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/1"
		If nettoentgelt = True
			Messagebox( "Es sind noch keine Tariftabellen fr den ffentlichen Dienst installiert." + Chr(13) + "Deshalb ist die gewhlte Funktion noch deaktiviert.", 0, "Nur fr den ffentlichen Dienst")
			Return
		ENDIF
		If textschutz = True .And. usernr = 1
			Do schutznachricht &&Do attached
			Return
		ENDIF
		register = 49
		DO FORM tarife
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/2"
		register = 222
		CREATE cursor wochenarbzeit (Col0 C(25), Col1 N(5,2), Col2 N(5,2), Col3 N(5,2), Col4 N(5,2), Col5 N(5,2), Col6 N(5,2), Col7 N(5,2), Col8 N(5,2), Col9 N(5,2), Col10 N(5,2), Col11 N(5,2), Col12 N(5,2))
		Do FORM wochenarbzeit &&Do attached
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/3"
		register = 500
		DO FORM sonderzahlung_beamte	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/4"
		register = 117
		Do FORM sonderzahlung_andere
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/5"
		register = 173
		DO FORM Zuschlge	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/6"
		register = 174
		DO FORM Zuschlge
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/7"
		register = 84
		DO FORM kindergeldvorgaben
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu2/8"
		register = 83
		DO FORM altersteilzeitvorgaben	
	
*abzge
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/1"
		zti = 40
		SRVorgaben = True
		DO FORM Sonderregelungen
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/2"
		SRVorgaben = True
		zti = 41
		DO FORM Sonderregelungen	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/3"
		register = 85
		DO FORM kirchensteuer
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/4"
		DO FORM KV WITH zi(1+46)
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/5"
		register = 63
		DO FORM sozversdaten
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/6"
		register = 65
		
		DO FORM zvk_atv_umlagen
		
		myform1.closable = .f.
		myform1.closable = .t.	
		
		hsmonatold = monat
		myform1.lockscreen = .t.
		myform1.mon0.click

		monat = 1	
		zti=25
		myindex=zti

		hsxretwert = zi(1+25)

		zi(1+zti) = hsxretwert
		index1=zi(1+zti)

		DO zgrid_click WITH hsxretwert
		DO zeileninhalt		
		
		monbutt = ALLTRIM(STR(hsmonatold-1,2,0))
		
		myform1.mon&monbutt..click
		myform1.lockscreen = .f.	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu3/7"
		register = 9
		DO FORM pensionsumlagen	
		
*nachweise		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/1"
		Do beitragdrucken
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/2"
		DO bundesknappschaftvorspann
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/3"
		DO lstrnachweis
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/4"
		DO zvkdruckenvorspann
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/5"
		DO zvkjahrdruckenvorspann
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/6"
		DO beitragsjahr
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/7"
		DO jahreslohnsteuer
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu4/8"
		DO lohnsteuerbescheinigung
		
*personaldaten
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/1"
		Do neudurchrechnen
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/2"
*!*			IF jahr4 = 2022
*!*				hsbeenden = .f.
*!*				DO FORM konvertierungausdemvorjahr
*!*				IF hsbeenden = .t.
*!*					CLOSE ALL
*!*					QUIT
*!*				endif
*!*			ELSE
*!*				hsbeenden = .f. &&Jahreswechsel
			hsxmodusvor = modus
			Do FORM datenbernahmeausdemvorjahr

*!*				DO FORM konvertierungausdemvorjahr
*!*				IF hsbeenden = .t.
*!*					CLOSE ALL
*!*					QUIT
*!*				endif
*!*			endif
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/3"
		If myIndexe = 0
			myIndexe = 1
		Endif
		tempjahr = jahr1
		DO wechselnach with tempjahr &&2018 &&vorher 2012
		Msg = ""

		For i = 3951 To 3955
			myget(20, i,"woerter")
			Msg = Msg + woerter.textee
		Next
		&&jahreswechsel
		response = Messagebox(Msg, 52, "Von " + xjahr1 + " nach " + xjahr2) &&vorher 2013 nach 2014
		If response = 7
			Return
		Endif
		hsxdat = eigdat + muser + "\G"+xjahr1+"I1.dbf"
		If File("&hsxdat") = .T.&&vorher 2014
			response = Messagebox("Wenn Sie JA whlen, werden bereits vorhandene "+xjahr2+"er Dateien berschrieben. Es handelt sich um die am " + DTOC(Fdate(eigdat + muser + "\G"+xjahr2+"i1.dbf")) + " angelegten Dateien. Wollen Sie berschreiben?", 20, "Warnung")
			If response = 7
				Return
			Endif
			Do geduld &&Do attached
		Endif

		register = 96
		tempjahr1 = jahr1
		tempjahr2 = jahr2
		DO wechsel_von_nach WITH tempjahr1, tempjahr2 &&vorher _14_15
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/4"
		If myIndexe = 0
			myIndexe = 1
		Endif

		tempjahr = jahr2
		DO wechselnach with tempjahr &&2018 &&vorher 2012

		Msg = ""
		For i = 3951 To 3955
			myget(20, i,"woerter")
			Msg = Msg + woerter.textee
		Next
		response = Messagebox(Msg, 52, "Von " + xjahr2 + " nach " + xjahr3)
		If response = 7
			Return
		Endif
		hsxdat = eigdat + muser + "\G"+xjahr3+"I1.dbf"
		If File("&hsxdat") = .T.
			response = Messagebox("Wenn Sie JA whlen, werden bereits vorhandene "+xjahr3 +"er Dateien berschrieben. Es handelt sich um die am " + DTOC(Fdate(eigdat + muser + "\G"+xjahr3+"i1.dbf")) + " angelegten Dateien. Wollen Sie berschreiben?", 20, "Warnung")
			If response = 7
				Return
			Endif
			Do geduld &&Do attached
		Endif

		register = 96
		tempjahr2 = jahr2
		tempjahr3 = jahr3
		Do wechsel_von_nach WITH tempjahr2, tempjahr3 &&Do attached
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/5"
		If myIndexe = 0
			myIndexe = 1
		Endif

		tempjahr = jahr3
		DO wechselnach with tempjahr &&2018 &&vorher 2012

		Msg = "" 
		For i = 3951 To 3955
			myget(20, i,"woerter")
			Msg = Msg + woerter.textee
		Next
		response = Messagebox(Msg, 52, "Von "+xjahr3+" nach "+xjahr4) &&fragehs
		If response = 7
			Return
		Endif
		hsxdat = eigdat + muser + "\G"+xjahr4+"I1.dbf"
		If File("&hsxdat") = .T.
			response = Messagebox("Wenn Sie JA whlen, werden bereits vorhandene "+xjahr4+"er Dateien berschrieben. Es handelt sich um die am " + DTOC(Fdate(eigdat + muser + "\G"+xjahr4+"i1.dbf")) + " angelegten Dateien. Wollen Sie berschreiben?", 20, "Warnung")
			If response = 7
				Return
			Endif
			Do geduld &&Do attached
		Endif

		register = 96
		tempjahr3 = jahr3
		tempjahr4 = jahr4
		DO wechsel_von_nach WITH tempjahr3, tempjahr4	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/6"
		If myIndexe = 0
			myIndexe = 1
		Endif

		tempjahr = jahr4
		DO wechselnach with tempjahr &&2018 &&vorher 2012

		Msg = ""
		For i = 3951 To 3955
			myget(20, i,"woerter")
			Msg = Msg + woerter.textee
		Next
		response = Messagebox(Msg, 52, "Von "+xjahr4 +" nach "+xjahr5)
		If response = 7
			Return
		Endif
		hsxdat = eigdat + muser + "\G"+xjahr5+"I1.dbf"
		If File("&hsxdat") = .T.
			response = Messagebox("Wenn Sie JA whlen, werden bereits vorhandene "+xjahr5+"er Dateien berschrieben. Es handelt sich um die am " + DTOC(Fdate(eigdat + muser + "\G"+xjahr5+"i1.dbf")) + " angelegten Dateien. Wollen Sie berschreiben?", 20, "Warnung")
			If response = 7
				Return
			Endif

			Do geduld &&Do attached
		Endif

		register = 96
		tempjahr4 = jahr4
		tempjahr5 = jahr5
		DO wechsel_von_nach WITH tempjahr4, tempjahr5	
		
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/7"
		iii = 0
		hsxjahr = welchesjahrc
		welchesjahrold = welchesjahr
		welchesjahr = jahr1 &&2018
		welchesjahrc = xjahr1 &&"2018"
		Do personalloeschen &&Do attached
		myform1.tdbnumber1.value = 1
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/8"
		iii = 0
		welchesjahrold = welchesjahr
		welchesjahr = jahr2 &&2019
		welchesjahrc = xjahr2 &&"2019"
		Do personalloeschen &&Do attached
		myform1.tdbnumber1.Value = 1
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/9"
		iii = 0
		welchesjahrold = welchesjahr
		welchesjahr = jahr3 &&2020
		welchesjahrc = xjahr3 &&"2020"
		Do personalloeschen &&Do attached
		myform1.tdbnumber1.Value = 1	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/10"
		iii = 0
		welchesjahrold = welchesjahr
		welchesjahr = jahr4 &&2021
		welchesjahrc = xjahr4 &&"2021"
		Do personalloeschen &&Do attached
		myform1.tdbnumber1.Value = 1	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/11"
		iii = 0
		welchesjahrold = welchesjahr
		welchesjahr = jahr5 &&2022
		welchesjahrc = xjahr5 &&"2022"
		Do personalloeschen &&Do attached
		myform1.tdbnumber1.Value = 1	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/12"
		register = 149
	*	Do Laden &&Do attached
		DO FORM exporthis
		
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/13"
		register = 148
		*Do Laden &&Do attached
		DO FORM importhis
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/14"
*!*			register = 61
*!*			Do Laden &&Do attached	
			myindex = 6

			thisform.Kcombo.Visible = False
			taste0 = 0
			myindexe = myIndex 
			DO menaktiv
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu5/15"
		hsxsort = eigdat + muser + "\sortok.txt"
		IF .not. FILE("&hsxsort")
			hinweis("Diese Funktion ist zur Zeit deaktiviert!")
			return
		ENDIF
		
		myindex = 2
		If myindex = 20 
		   If thisform.men20.Caption = "-->DEZ" Then
		      thisform.men20.Caption = "lfd.Monat"
		      thisform.men20.ForeColor = QBColor(12)
		      immerfolge = False
		   Else
		      thisform.men20.Caption = "-->DEZ"
		      thisform.men20.ForeColor = QBColor(0)
		      immerfolge = True
		   EndIf
		   return
		EndIf

		thisform.Kcombo.Visible = False
		taste0 = 0
		myindexe = myIndex
		DO FORM pcg_sortieren


*vorschriften
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/1"
		inet = "000" &&513
		DO FORM blandauswahl WITH zi(1+2) TO hslandausw
		hslandausw = rcv(hslandausw) + 1
		DO case
			CASE hslandausw = 1
				msg = "landesrecht-bw.de/jportal/?quelle=jlink&query=BG+BW&psml=bsbawueprod.psml&max=true&aiz=true"
			CASE hslandausw = 2
				msg = "gesetze-bayern.de/Content/Document/BayBG/true"
			CASE hslandausw = 3 
				msg = "besoldung-berlin.de/berlin_landesbeamtengesetz_uebersicht"
			CASE hslandausw = 4
				msg = "gesetze-im-internet.de/bbg_2009/"
			CASE hslandausw = 5
				msg = "besoldung-brandenburg.de/brandenburg_landesbeamtengesetz_uebersicht"
			CASE hslandausw = 6
				msg = "transparenz.bremen.de/metainformationen/bremisches-" + "beamtengesetz-brembg-vom-22-dezember-2009" + "-65453?asl=bremen203_tpgesetz.c.55340.de&template=20_gp_ifg_meta_detail_d"
			CASE hslandausw = 7
				msg = "landesrecht-hamburg.de/bsha/document/jlr-BGHA2009pP37/part/S"
			CASE hslandausw = 8
				msg = "rv.hessenrecht.hessen.de/bshe/document/jlr-BGHE2013rahmen"
			CASE hslandausw = 9
				msg = "landesrecht-mv.de/bsmv/document/jlr-BGMV2009rahmen/part/R"
			CASE hslandausw = 10
				msg = "besoldung-niedersachsen.de/niedersaechsisches_beamtenrecht/niedersaechsisches_beamtengesetz"
			CASE hslandausw = 11
				msg = "recht.nrw.de/lmi/owa/br_bes_text?anw_nr=2&gld_nr=2&ugl_nr=2030&bes_id=34806&menu=0&sg=0&aufgehoben=N&keyword=Landesbeamtengesetz#det0"
			CASE hslandausw = 12
				msg = "landesrecht.rlp.de/bsrp/document/jlr-BGRP2010rahmen/part/R"
			CASE hslandausw = 13
				inet = "-00" 
				msg = "recht.saarland.de/bssl/document/jlr-BGSL2009rahmen"
			CASE hslandausw = 14
				msg = "recht.sachsen.de/vorschrift/13871"
			CASE hslandausw = 15
				msg = "landesrecht.sachsen-anhalt.de/bsst/document/jlr-BGST2009rahmen/part/R"
			CASE hslandausw = 16
				msg = "gesetze-rechtsprechung.sh.juris.de/bssh/document/jlr-BGSH2009rahmen"
			CASE hslandausw = 17
				msg = "landesrecht.thueringen.de/bsth/document/jlr-BGTH2014rahmen"
		endcase						
		DO insinternet &&Do attached	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/2"
		*inet = 514
	*	msg = ""
		inet = "000" &&513
		DO FORM blandauswahl WITH zi(1+2) TO hslandausw
		hslandausw = rcv(hslandausw) + 1
		DO case
			CASE hslandausw = 1
				msg = "landesrecht-bw.de/jportal/?quelle=jlink&query=BesG+BW&psml=bsbawueprod.psml&max=true"
			CASE hslandausw = 2
				msg = "gesetze-bayern.de/Content/Document/BayBesG/true"
			CASE hslandausw = 3 
				msg = "besoldung-berlin.de/berlin_landesbesoldungsgesetz_uebersicht"
			CASE hslandausw = 4
				msg = "gesetze-im-internet.de/bbesg/BJNR011740975.html"
			CASE hslandausw = 5
			inet = "-00"
				msg = "bravors.brandenburg.de/gesetze/bbgbesg"
			CASE hslandausw = 6
				msg = "transparenz.bremen.de/metainformationen/gesetz" + "-ueber-die-besoldung-der-bremischen-beamtinnen-und-beamten" + "-sowie-richterinnen-und-richter-bremisches-besoldungsgesetz" + "-brembesg-vom-20-dezember-2016-284917?" + "asl=bremen203_tpgesetz.c.55340.de&template=20_gp_ifg_meta_detail_d"
			CASE hslandausw = 7
				msg = "landesrecht-hamburg.de/bsha/document/jlr-BesGHA2010rahmen/part/R"
			CASE hslandausw = 8
				msg = "rv.hessenrecht.hessen.de/bshe/document/jlr-BesGHE2013rahmen"
			CASE hslandausw = 9
				msg = "besoldung-mecklenburg-vorpommern.de/beamtenvorschriften_in_mecklenburg_vorpommern/landesbesoldungsgesetz-m-v"
			CASE hslandausw = 10
				inet = "-00"
				msg = "voris.wolterskluwer-online.de/browse/document/3c991101-f5fa-3ef0-a61d-53b5b62548b0"
			CASE hslandausw = 11
				msg = "recht.nrw.de/lmi/owa/br_text_anzeigen?v_id=63520160805093234355"
			CASE hslandausw = 12
				msg = "landesrecht.rlp.de/bsrp/document/jlr-BesGRP2013rahmen"
			CASE hslandausw = 13
				inet = "-00"
				msg = "recht.saarland.de/bssl/document/jlr-BesGSL2022rahmen"
			CASE hslandausw = 14
				msg = "revosax.sachsen.de/vorschrift/13872-SaechsBesG"
			CASE hslandausw = 15
				msg = "landesrecht.sachsen-anhalt.de/bsst/document/jlr-BesGST2011rahmen"
			CASE hslandausw = 16
				msg = "gesetze-rechtsprechung.sh.juris.de/bssh/document/jlr-BesGSH2012rahmen"
			CASE hslandausw = 17
				msg = "landesrecht.thueringen.de/bsth/document/jlr-BesGTH2015rahmen"
		endcase							
		DO insinternet
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/3"
		inet = 514 &&000
		Msg = "" &&"Besoldung.de"
		DO insinternet	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/4"
		inet = 131
		Msg = "A1"
		DO insinternet
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/5"
		inet = 192
		Msg = "A1"
		DO insinternet
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/6"
		inet = 131
		Msg = "V1"
		DO insinternet
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/7"
		inet = 131
		Msg = "K1"
		DO insinternet
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/8"
		inet = 131
		Msg = "P1"
		DO insinternet
			
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/9"
		inet = "000"
		Msg = "sozialgesetzbuch-sgb.de"
		DO insinternet	

	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/10"
		inet = "000"
		Msg = "gesetze-im-internet.de/estg/index.html" &&"pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/"
		DO insinternet

	CASE LOWER(ALLTRIM(this.Value)) == "xmenu6/11"
		inet = "000"
		Msg = "gesetze-im-internet.de/lstdv/" &&"pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/"
		DO insinternet
	
*info
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/1"
			inet = "111"
			Msg = "manual"
			DO insinternet	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/2"
		inet = "110"
		myLink = 853 &&Msg = "gehaltsrechner-beschreibung"
		DO insinternet	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/3"
		inet = "110"
		Msg = "gehalt-lizenzen"
		DO insinternet	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/4"
		inet = "111"
		Msg = "137" &&Msg = "gehaltsrechner-beschreibung"
		DO insinternet	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/5"
		register = 72
		Do FORM hotline 	
	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu7/6"
		inet = "110"
		Msg = "gehalt-lizenzen"
		DO insinternet	
		
*datum mit aktuelles	
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu8/1"
		inet = "110"
	*	Msg = ALLTRIM(STR(jahr4,4,0))+"/gehalt-aktuelles"
		Msg = "gehalt-aktuelles"
		DO insinternet	
		
*ATZ einschalten
	CASE LOWER(ALLTRIM(this.Value)) == "xmenu9/1"
		zti = 22
		myindex=zti
		DO FORM xauswahl WITH zi(1+22) to hsxretwert
		DO zgrid_click WITH rcv(hsxretwert)	
endcase
ENDPROC
     O    gO  gO                        ɉ   %   J      O  v  2J            U  B
 H
 B  CC   @ xmenu1/1W  T  111 T  manual    CC   @ xmenu1/2 %C   
 C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ( Dadurch ist diese Funktion abgeschaltet.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 0 und starten Sie dann diesen Programmteil erneut.  B %  neuenspeicherort(	  los %	  quit 
 
   8  B   CC   @ xmenu1/3P
 T a" 
 Freischaltung(	  mit %	  OKL     CC   @ xmenu1/4F	 %C   
{ C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ( Dadurch ist diese Funktion abgeschaltet.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 0 und starten Sie dann diesen Programmteil erneut.  B + T C]C] \testumgebung.txt  IF .not. FILE("&hsxdat")3 %CC ] GEHALTC \ .EXE5 %  
0
 T  
 T      %  c T P Da sich die Abfrage nach einem neuen Update auch auf die Tarifdateien erstreckt,C
 Z T G funktioniert die Updateabfrage nur, wenn Tarifdateien installiert sind.C
 ] T J ffnen Sie die Auswahlbox der Zeile 3 und whlen dort Besoldungsordnung A.C
 F T 9 Danach wird angeboten, die Tarifdatei nachzuinstallieren.N T A In Zeile 3 kann die Installation der Tarifdatei gestartet werden. C      x B 
 T   updaten  C? Das Updaten funktioniert NICHT mit einer umbenannten EXE-Datei!C
  Bitte die EXE-Datei wieder in ' GEHALTC \ .EXE
 ' umbenennen!   %	 %  
 
 T  
 T      %  	c T P Da sich die Abfrage nach einem neuen Update auch auf die Tarifdateien erstreckt,C
 Z T G funktioniert die Updateabfrage nur, wenn Tarifdateien installiert sind.C
 ] T J ffnen Sie die Auswahlbox der Zeile 3 und whlen dort Besoldungsordnung A.C
 F T 9 Danach wird angeboten, die Tarifdatei nachzuinstallieren.N T A In Zeile 3 kann die Installation der Tarifdatei gestartet werden. C      x B 
 T   updaten  % aB	
      CC   @ xmenu1/5	
 T > 
 Lizenzinhaber  CC   @ xmenu1/6	 T
 ! " #  %$  %  		 &  B   Textedit (   CC   @ xmenu1/7M
, C Diese Funktion ist stillgelegt!  B  CC   @ xmenu1/8

 T =  voreinstellungen  CC   @ xmenu1/9N %C   
 C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ( Dadurch ist diese Funktion abgeschaltet.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 0 und starten Sie dann diesen Programmteil erneut.  B   pfadeunduser(	  %	  quit>= C0 PC-Gehalt wird jetzt beendet. Bitte neu starten!  
 
   8 J B ! CC   @	 xmenu1/10
 %C   
z
 C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ( Dadurch ist diese Funktion abgeschaltet.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 0 und starten Sie dann diesen Programmteil erneut.  B  T+ CW  komprimieren
 F+  %- a
 
 
   8 ! CC   @	 xmenu1/11J %C7 Soll die Druckvorschau dauerhaft AUS-geschaltet werden?. a) T/ 0 1  \immeraufdrucker.pcg! T2  Bitte nicht lschen! G.+ STRTOFILE(hsdruinhalt,"&hsdrufilename")
 G. : C- Druckvorschau wurde dauerhaft AUS-Geschaltet!  ) T/ 0 1  \immeraufdrucker.pcg  DELETE FILE "&hsdrufilename"
: C- Druckvorschau wurde dauerhaft EIN-Geschaltet!  ! CC   @	 xmenu1/12,J %C7 Soll der Vollbildstart dauerhaft EIN-geschaltet werden?. a# T3 0 1  \maxscreen.pcg! T4  Bitte nicht lschen! G.+ STRTOFILE(hsdpiinhalt,"&hsdpifilename")
 G. : C- Vollbildstart wurde dauerhaft EIN-Geschaltet!  (# T3 0 1  \maxscreen.pcg  DELETE FILE "&hsdpifilename"
: C- Vollbildstart wurde dauerhaft AUS-Geschaltet!  ! CC   @	 xmenu1/13DS %C@ Soll der Vollbildstart auf die Standardgre eingestellt werden?. a@# T3 0 1  \maxscreen.pcg  DELETE FILE "&hsdpifilename"
 T+ C W %CC1. C0 1 
 \formdaten	 formdaten5   F6 	 # >6 7 P >6 8 ( >6 9  >6 :  [ T
 7 6 7  T
 8 6 8  T
 9 6 9  T
 : 6 : 
 C; 
 F+ Q CD Vollbildstart wurde ausgeschaltet und auf Standardgre eingestellt!  ! CC   @	 xmenu1/14S %C@ Soll die Dateigen-berwachung dauerhaft EIN-geschaltet werden?. av# T3 0 1  \checksize.pcg! T4  Bitte nicht lschen! G.+ STRTOFILE(hsdpiinhalt,"&hsdpifilename")
 G. C C6 Dateigen-berwachung wurde dauerhaft EIN-Geschaltet!  # T3 0 1  \checksize.pcg  DELETE FILE "&hsdpifilename"
C C6 Dateigen-berwachung wurde dauerhaft AUS-Geschaltet!  ! CC   @	 xmenu1/15
 T<   
 T< C %C< 
" SET PRINTER TO NAME "&druwahl"
G C% Fr diese Sitzung wurde der Drucker << 
 > ausgewhlt!  ! CC   @	 xmenu1/16r %C   
 C6 Sie haben die alte Lohnsteuerberechnung eingeschaltet!C
 ; Das fhrt beim nchsten Programmstart zu Berechnungfehlern.C
 8 Bitte schalten Sie die alte Steuerberechnung wieder aus,C
 " und beenden Sie dann das Programm.  B  7=  7>  T? 
 7  T@ 
 8  TA 
 :  TB 
 9  C  %D E e F    8  CC   @ xmenu2/1 %  ^ CI Es sind noch keine Tariftabellen fr den ffentlichen Dienst installiert.C
 3 Deshalb ist die gewhlte Funktion noch deaktiviert.  Nur fr den ffentlichen Dienstx B  %%   $ 	 &  B 
 T 1  tarife  CC   @ xmenu2/2
 T !h
 wochenarbzeitI  CJ  NK  NL  NM  NN  NO  NP  NQ  NR  NS  NT  NU  N 
 wochenarbzeit  CC   @ xmenu2/3U T   sonderzahlung_beamte  CC   @ xmenu2/4
 T u  sonderzahlung_andere  CC   @ xmenu2/5
 T  	 Zuschlge  CC   @ xmenu2/6
 T  	 Zuschlge  CC   @ xmenu2/7a
 T T  kindergeldvorgaben  CC   @ xmenu2/8
 T S  altersteilzeitvorgaben  CC   @ xmenu3/1
 T[ (
 T\    Sonderregelungen  CC   @ xmenu3/2P
 T\  
 T[ )  Sonderregelungen  CC   @ xmenu3/3
 T U 
 kirchensteuer  CC   @ xmenu3/4  KVC/`   CC   @ xmenu3/5
 T ?  sozversdaten  CC   @ xmenu3/6L
 T A  zvk_atv_umlagen T
 c - T
 c a
 Td e  T
 f a
 
 g h 
 Te 
 T[ 
 Ti [  Tj C`  T` [ j  Tk C[ `  l j  (  Tm CCd  Z myform1.mon&monbutt..click
 T
 f -  CC   @ xmenu3/7
 T 	  pensionsumlagen  CC   @ xmenu4/1 o   CC   @ xmenu4/2 p   CC   @ xmenu4/3 q   CC   @ xmenu4/4, r   CC   @ xmenu4/5S s   CC   @ xmenu4/6z t   CC   @ xmenu4/7 u   CC   @ xmenu4/8 v   CC   @ xmenu5/1 w   CC   @ xmenu5/2? 
 Tx y #  datenbernahmeausdemvorjahr  CC   @ xmenu5/3" %{  } 
 T{  
 T| }  ~ | 
 T     o(s  C   woerter  T     , T C 4 Von    nach  x % 3! B % T 0 1  \G  I1.dbf  If File("&hsxdat") = .T.v" T C. Wenn Sie JA whlen, werden bereits vorhandene  4 er Dateien berschrieben. Es handelt sich um die am CC0 1  \G  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx % k" B    
 T `
 T } 
 T        CC   @ xmenu5/4!% %{  "
 T{  
 T|   ~ | 
 T     o(s_# C   woerter  T     , T C 4 Von    nach  x % # B % T 0 1  \G  I1.dbf  If File("&hsxdat") = .T.$ T C. Wenn Sie JA whlen, werden bereits vorhandene  4 er Dateien berschrieben. Es handelt sich um die am CC0 1  \G  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx % $ B    
 T `
 T  
 T        CC   @ xmenu5/5' %{  _%
 T{  
 T|   ~ | 
 T     o(s% C   woerter  T     , T C 4 Von    nach  x % & B % T 0 1  \G  I1.dbf  If File("&hsxdat") = .T.X' T C. Wenn Sie JA whlen, werden bereits vorhandene  4 er Dateien berschrieben. Es handelt sich um die am CC0 1  \G  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx % M' B    
 T `
 T  
 T        CC   @ xmenu5/6* %{  '
 T{  
 T|   ~ | 
 T     o(sA( C   woerter  T     , T C 4 Von    nach  x % ( B % T 0 1  \G  I1.dbf  If File("&hsxdat") = .T.) T C. Wenn Sie JA whlen, werden bereits vorhandene  4 er Dateien berschrieben. Es handelt sich um die am CC0 1  \G  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx % ) B    
 T `
 T  
 T        CC   @ xmenu5/7~*
 T  
 T  
 T  
 T } 
 T     T
     CC   @ xmenu5/8*
 T  
 T  
 T  
 T     T
     CC   @ xmenu5/9Z+
 T  
 T  
 T  
 T     T
   ! CC   @	 xmenu5/10+
 T  
 T  
 T  
 T     T
   ! CC   @	 xmenu5/118,
 T  
 T  
 T  
 T     T
   ! CC   @	 xmenu5/12w,
 T  	 exporthis! CC   @	 xmenu5/13,
 T  	 importhis! CC   @	 xmenu5/14-
 Ti  T ! " # 
 T  
 T{ i   ! CC   @	 xmenu5/15.  T 0 1  \sortok.txt! IF .not. FILE("&hsxsort")-5 C( Diese Funktion ist zur Zeit deaktiviert!  B 
 Ti  %i . %    -->DEZ2. T   	 lfd.Monat T   C 
 T #  w. T    -->DEZ T   C  
 T    B  T ! " # 
 T  
 T{ i  
 pcg_sortieren  CC   @ xmenu6/1 6 T  000"  blandauswahl( C`  T C   
 H:/5  /g msg = "landesrecht-bw.de/jportal/?quelle=jlink&query=BG+BW&psml=bsbawueprod.psml&max=true&aiz=true"
  /: T - gesetze-bayern.de/Content/Document/BayBG/true  T0F T 9 besoldung-berlin.de/berlin_landesbeamtengesetz_uebersicht  0- T   gesetze-im-internet.de/bbg_2009/  0P T C besoldung-brandenburg.de/brandenburg_landesbeamtengesetz_uebersicht  1 msg = "transparenz.bremen.de/metainformationen/bremisches-" + "beamtengesetz-brembg-vom-22-dezember-2009" + "-65453?asl=bremen203_tpgesetz.c.55340.de&template=20_gp_ifg_meta_detail_d"
  2I T < landesrecht-hamburg.de/bsha/document/jlr-BGHA2009pP37/part/S  p2F T 9 rv.hessenrecht.hessen.de/bshe/document/jlr-BGHE2013rahmen  	2F T 9 landesrecht-mv.de/bsmv/document/jlr-BGMV2009rahmen/part/R  
@3h T [ besoldung-niedersachsen.de/niedersaechsisches_beamtenrecht/niedersaechsisches_beamtengesetz  3 msg = "recht.nrw.de/lmi/owa/br_bes_text?anw_nr=2&gld_nr=2&ugl_nr=2030&bes_id=34806&menu=0&sg=0&aufgehoben=N&keyword=Landesbeamtengesetz#det0"
  :4G T : landesrecht.rlp.de/bsrp/document/jlr-BGRP2010rahmen/part/R  
4 T  -00? T 2 recht.saarland.de/bssl/document/jlr-BGSL2009rahmen  4. T ! recht.sachsen.de/vorschrift/13871  <5R T E landesrecht.sachsen-anhalt.de/bsst/document/jlr-BGST2009rahmen/part/R  5P T C gesetze-rechtsprechung.sh.juris.de/bssh/document/jlr-BGSH2009rahmen  5G T : landesrecht.thueringen.de/bsth/document/jlr-BGTH2014rahmen     CC   @ xmenu6/2= T  000"  blandauswahl( C`  T C   
 Hu6=  6` msg = "landesrecht-bw.de/jportal/?quelle=jlink&query=BesG+BW&psml=bsbawueprod.psml&max=true"
  37< T / gesetze-bayern.de/Content/Document/BayBesG/true  7I T < besoldung-berlin.de/berlin_landesbesoldungsgesetz_uebersicht  7< T / gesetze-im-internet.de/bbesg/BJNR011740975.html  .8 T  -003 T & bravors.brandenburg.de/gesetze/bbgbesg  j9+msg = "transparenz.bremen.de/metainformationen/gesetz" + "-ueber-die-besoldung-der-bremischen-beamtinnen-und-beamten" + "-sowie-richterinnen-und-richter-bremisches-besoldungsgesetz" + "-brembesg-vom-20-dezember-2016-284917?" + "asl=bremen203_tpgesetz.c.55340.de&template=20_gp_ifg_meta_detail_d"
  9M T @ landesrecht-hamburg.de/bsha/document/jlr-BesGHA2010rahmen/part/R  !:H T ; rv.hessenrecht.hessen.de/bshe/document/jlr-BesGHE2013rahmen  	:y T l besoldung-mecklenburg-vorpommern.de/beamtenvorschriften_in_mecklenburg_vorpommern/landesbesoldungsgesetz-m-v  
+; T  -00_ T R voris.wolterskluwer-online.de/browse/document/3c991101-f5fa-3ef0-a61d-53b5b62548b0  ;L T ? recht.nrw.de/lmi/owa/br_text_anzeigen?v_id=63520160805093234355  ;B T 5 landesrecht.rlp.de/bsrp/document/jlr-BesGRP2013rahmen  
=< T  -00A T 4 recht.saarland.de/bssl/document/jlr-BesGSL2022rahmen  <; T . revosax.sachsen.de/vorschrift/13872-SaechsBesG  <M T @ landesrecht.sachsen-anhalt.de/bsst/document/jlr-BesGST2011rahmen  J=R T E gesetze-rechtsprechung.sh.juris.de/bssh/document/jlr-BesGSH2012rahmen  =I T < landesrecht.thueringen.de/bsth/document/jlr-BesGTH2015rahmen     CC   @ xmenu6/3= T 
 T       CC   @ xmenu6/44>
 T  T  A1    CC   @ xmenu6/5w>
 T  T  A1    CC   @ xmenu6/6>
 T  T  V1    CC   @ xmenu6/7>
 T  T  K1    CC   @ xmenu6/8@?
 T  T  P1    CC   @ xmenu6/9? T  000$ T  sozialgesetzbuch-sgb.de  ! CC   @	 xmenu6/10@ T  0003 T & gesetze-im-internet.de/estg/index.html  ! CC   @	 xmenu6/11h@ T  000* T  gesetze-im-internet.de/lstdv/    CC   @ xmenu7/1@ T  111 T  manual    CC   @ xmenu7/2@ T  110 T U    CC   @ xmenu7/3JA T  110 T  gehalt-lizenzen    CC   @ xmenu7/4A T  111 T  137    CC   @ xmenu7/5A
 T H  hotline  CC   @ xmenu7/6 B T  110 T  gehalt-lizenzen    CC   @ xmenu8/1tB T  110 T  gehalt-aktuelles    CC   @ xmenu9/1B
 T[ 
 Ti [   xauswahl(j C`  l C j    U  THIS VALUE INET MSG INSINTERNET THISFORM CHECK1 HINWEIS NEUENSPEICHERORT HSXWERT2 MYFORM1 RELEASE REGISTER
 FREISCHALTUNG TITELLEISTE HSXDAT XJAHR4 WELCHESJAHR JAHR4 WELCHESJAHROLD NACHJAHRWECHSELN NETTOENTGELT TRUE HSTXT1 HSTXT2 HSTXT3 HSTXT4 KSTXT5 HSTXT5 III UPDATEN HSQUIT
 LIZENZINHABER KCOMBO VISIBLE FALSE USERNR
 TEXTSCHUTZ SCHUTZNACHRICHT TEXTEDIT ZEILENINHALT VOREINSTELLUNGEN PFADEUNDUSER	 OLDSELECT KOMPRIMIEREN	 HSBEENDEN OK2
 HSDRUFILENAME EIGDAT MUSER HSDRUINHALT
 HSDPIFILENAME HSDPIINHALT MYOPEN	 FORMDATEN TOP LEFT WIDTH HEIGHT MYCLOSE DRUWAHL STARTEN PAUSE	 FORM1OBEN
 FORM1LINKS	 FORM1HOCH
 FORM1BREIT DIMENAUS DIMEN DIMPW5 TRESORAKTIVIEREN TARIFE
 WOCHENARBZEIT COL0 COL1 COL2 COL3 COL4 COL5 COL6 COL7 COL8 COL9 COL10 COL11 COL12 SONDERZAHLUNG_BEAMTE SONDERZAHLUNG_ANDERE	 ZUSCHLGE KINDERGELDVORGABEN ALTERSTEILZEITVORGABEN ZTI
 SRVORGABEN SONDERREGELUNGEN
 KIRCHENSTEUER KV ZI SOZVERSDATEN ZVK_ATV_UMLAGEN CLOSABLE
 HSMONATOLD MONAT
 LOCKSCREEN MON0 CLICK MYINDEX
 HSXRETWERT INDEX1 ZGRID_CLICK MONBUTT PENSIONSUMLAGEN BEITRAGDRUCKEN BUNDESKNAPPSCHAFTVORSPANN LSTRNACHWEIS ZVKDRUCKENVORSPANN ZVKJAHRDRUCKENVORSPANN BEITRAGSJAHR JAHRESLOHNSTEUER LOHNSTEUERBESCHEINIGUNG NEUDURCHRECHNEN HSXMODUSVOR MODUS DATENBERNAHMEAUSDEMVORJAHR MYINDEXE TEMPJAHR JAHR1 WECHSELNACH I MYGET WOERTER TEXTEE RESPONSE XJAHR1 XJAHR2 GEDULD	 TEMPJAHR1	 TEMPJAHR2 JAHR2 WECHSEL_VON_NACH XJAHR3	 TEMPJAHR3 JAHR3	 TEMPJAHR4 XJAHR5	 TEMPJAHR5 JAHR5 HSXJAHR WELCHESJAHRC PERSONALLOESCHEN
 TDBNUMBER1	 EXPORTHIS	 IMPORTHIS TASTE0	 MENAKTIV HSXSORT MEN20 CAPTION	 FORECOLOR QBCOLOR
 IMMERFOLGE
 PCG_SORTIEREN BLANDAUSWAHL
 HSLANDAUSW RCV MYLINK HOTLINE XAUSWAHL ProgrammaticChange,     1  1q aA A RQQ  A  A A  !2q A aA A 1!  q A 1aA A    A
A  !  q A 1aA A   A   A  R1q A A r A  aA A QQ  A  A A aA A  A  Q  A A a a  A 1a a  1A 11 A r  A 2111  A 11a a 1 11A   !qA aaA A q q q Aq A Q A qA A q A A    Q           QA A r        rQ q   qq q q q q q q q q  1	 A    AA A A Q
A A q A      A    AA A A Q
A A q A      A    AA A A Q
A A q A      A    AA A A Q
A A r A          q 1    q 1    q 1    q 1    q 1   2  q QA A  q  q A A A 2  Q!a qaaa	q!qA q !a 1!!A q   q   q   q   q   q   q Aq 1q q 1q  q q q   q q   !A 1                       _      )   gO                        	container      	container      men10      FORM1      MTop = 3
Left = 44
Width = 34
Height = 34
TabIndex = 465
Name = "men10"
     6PROCEDURE Click
thisform.WindowState = 2
thisform.men1.Visible = .t.

ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     6                              6   %   j        
               U  $  T    T    a U  THISFORM WINDOWSTATE MEN1 VISIBLE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeavez     	 MouseMove     1 3 113 11                       H         i               +      )                           image      image      Image1      FORM1.men10      gPicture = icons\ico1469.jpg
Stretch = 1
Height = 29
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE Click
this.parent.click
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U  #       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE 
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE
 MouseLeave,      Click     	 MouseMove     1 1 2  2 1 1                       \         x                      )                           	container      	container      men1      FORM1      LTop = 3
Left = 44
Width = 34
Height = 34
TabIndex = 466
Name = "men1"
     )PROCEDURE Click
thisform.WindowState = 0
this.visible = .f.
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     3                              L   %   g        
               U  !  T     T  - U  THISFORM WINDOWSTATE THIS VISIBLE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeavew     	 MouseMove     1  2 112 11                       =         ^                 	    )                           image      image      Image1      
FORM1.men1      kPicture = icons\verkleinern.jpg
Stretch = 1
Height = 30
Left = 2
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men3      FORM1      KTop = 3
Left = 9
Width = 34
Height = 34
TabIndex = 467
Name = "men3"
     PROCEDURE Click
myindex = 3

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
register = 0 &&HS als reperatur da sonst register nicht richtig gefllt wird in menaktiv

DO menaktiv
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         ~  ~                           %                          U  Q 
 T   T    
 T  
 T   
 T     U	  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE REGISTER	 MENAKTIV)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove;    1  2   r 2 112 11                                   1        Q        )   ~                        image      image      Image1      
FORM1.men3      fPicture = icons\trffcg.gif
Stretch = 1
Height = 29
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men9      FORM1      LTop = 3
Left = 79
Width = 34
Height = 34
TabIndex = 468
Name = "men9"
     sPROCEDURE Click
myindex = 9

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
myform1.printform.click
*DO menaktiv
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
         {  {                        r   %           
               U  J 
 T  	 T    
 T  
 T   
   	  U
  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE MYFORM1	 PRINTFORM CLICK)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     
 MouseLeave     	 MouseMove:    1  2   3 112 11                                      
   
     h      )   {                        image      image      Image1      
FORM1.men9      hPicture = icons\sw_druck.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men16      FORM1      NTop = 3
Left = 114
Width = 34
Height = 34
TabIndex = 469
Name = "men16"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 16

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      FORM1.men16      gPicture = icons\1_druck.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men11      FORM1      NTop = 3
Left = 149
Width = 34
Height = 34
TabIndex = 470
Name = "men11"
     \PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 11

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex

DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  r 1                       \         |               Q  	    )   e                        image      image      Image1      FORM1.men11      gPicture = icons\2_druck.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men12      FORM1      NTop = 3
Left = 184
Width = 34
Height = 34
TabIndex = 471
Name = "men12"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 12

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      FORM1.men12      gPicture = icons\3_druck.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men13      FORM1      NTop = 3
Left = 219
Width = 34
Height = 34
TabIndex = 472
Name = "men13"
     uPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 13

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex

DO menaktiv

myform1.visible = .t.
ENDPROC
         ~  ~                           %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMER 
 T  
 T    
 T  
 T      T  a U	  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV MYFORM1
 MouseLeave,     	 MouseMove      Click    1 112 12  2  r  1                       \         |               j  	    )   ~                        image      image      Image1      FORM1.men13      gPicture = icons\a_druck.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men22      FORM1      NTop = 3
Left = 254
Width = 34
Height = 34
TabIndex = 473
Name = "men22"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 22

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        label      label      Label1      FORM1.men22      FontBold = .T.
FontName = "Arial Narrow"
FontOutline = .F.
FontShadow = .F.
FontSize = 20
Alignment = 2
Caption = "EB"
Height = 28
Left = 1
Top = 3
Width = 32
ForeColor = 255,0,0
Name = "Label1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men5      FORM1      MTop = 3
Left = 289
Width = 34
Height = 34
TabIndex = 474
Name = "men5"
     YPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 5

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               N  	    )   e                        image      image      Image1      
FORM1.men5      fPicture = icons\etiq07.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men21      FORM1      NTop = 3
Left = 324
Width = 34
Height = 34
TabIndex = 475
Name = "men21"
     \PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click

myindex = 21

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               Q  	    )   e                        image      image      Image1      FORM1.men21      hPicture = icons\calendr1.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men23      FORM1      NTop = 3
Left = 359
Width = 34
Height = 34
TabIndex = 476
Name = "men23"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 23

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      FORM1.men23      cPicture = icons\uhr.jpg
Stretch = 1
Height = 30
Left = 1
Top = 2
Width = 31
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men24      FORM1      NTop = 3
Left = 460
Width = 34
Height = 34
TabIndex = 477
Name = "men24"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
DO FORM taschenrechner WITH -1 TO retwert

IF "*" $ retwert
	retwert = SUBSTR(retwert,3)
	thisform.mencalc.Value = ROUND(VAL(SUBSTR(retwert,1,AT("*",retwert)-1)),2)
endif
ENDPROC
                                   1   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEx !  taschenrechner(  % * q  T C \, T   CCC C * \gT  U  TASCHENRECHNER RETWERT THISFORM MENCALC VALUE
 MouseLeave,     	 MouseMove      Click    1 112 12 "!A 1                       \         |                 	    )                           image      image      Image1      FORM1.men24      dPicture = icons\calc.jpg
Stretch = 1
Height = 28
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men17      FORM1      NTop = 3
Left = 495
Width = 34
Height = 34
TabIndex = 478
Name = "men17"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 17
register = 82
thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
*DO menaktiv
DO FORM internetlinks
ENDPROC
                                   <   %         '                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME_ 
 T  
 T R T    
 T  
 T    
 internetlinks U	  MYINDEX REGISTER THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE
 INTERNETLINKS
 MouseLeave,     	 MouseMove      Click    1 112 12   1  R1                       \         |               t  	    )                           image      image      Image1      FORM1.men17      cPicture = icons\064.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men15      FORM1      NTop = 3
Left = 530
Width = 34
Height = 34
TabIndex = 479
Name = "men15"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 15

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
*!*	DO menaktiv
oldtdbnmuber1 = thisform.tdbnumber1.value
welchesjahrx = welchesjahr
welchermodusx = modus
register = 300

DO FORM differenzA

welchesjahr = welchesjahrx
welchesjahrc = ALLTRIM(STR(welchesjahr,4,0))
modus = welchermodusx 

DO dateiopen

thisform.tdbnumber1.value = oldtdbnmuber1
ENDPROC
                                   C   %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME 
 T   T    
 T  
 T    T   	 
 T
  
 T 
  T , 
 differenzA
 T 
  T CC  Z
 T
     T  	   U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE
 OLDTDBNMUBER1
 TDBNUMBER1 VALUE WELCHESJAHRX WELCHESJAHR
 WELCHERMODUSX MODUS REGISTER
 DIFFERENZA WELCHESJAHRC	 DATEIOPEN
 MouseLeave,     	 MouseMove      Click    1 112 12  2  2   " q r 21                       \         |               x  	    )                           image      image      Image1      FORM1.men15      fPicture = icons\rahmen.jpg
Stretch = 1
Height = 28
Left = 2
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men6      FORM1      MTop = 3
Left = 565
Width = 34
Height = 34
TabIndex = 480
Name = "men6"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 6

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex 
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      
FORM1.men6      dPicture = icons\kopf.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men2      FORM1      \Top = 3
Left = 600
Width = 34
Height = 34
Enabled = .T.
TabIndex = 481
Name = "men2"
     )PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
hsxsort = eigdat + muser + "\sortok.txt"
IF .not. FILE("&hsxsort")
	hinweis("Diese Funktion ist zur Zeit deaktiviert!")
	return
ENDIF

myindex = 2

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO FORM pcg_sortieren

thisform.tdbnumber1.InteractiveChange

*DO menaktiv
ENDPROC
     g    N  N                        '   %                          U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME   T     \sortok.txt! IF .not. FILE("&hsxsort")z 5 C( Diese Funktion ist zur Zeit deaktiviert!  B 
 T  T    
 T	  
 T
   
 pcg_sortieren
   
  U  HSXSORT EIGDAT MUSER HINWEIS MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE
 PCG_SORTIEREN
 TDBNUMBER1 INTERACTIVECHANGE
 MouseLeave,     	 MouseMove      Click    1 112 12 QA A  2  Q 3                       \         |                 	    )   N                        image      image      Image1      
FORM1.men2      gPicture = icons\refresh.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men14      FORM1      NTop = 3
Left = 635
Width = 34
Height = 34
TabIndex = 482
Name = "men14"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 14

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      FORM1.men14      tPicture = icons\i-urlaubstagerechner.bmp
Stretch = 1
Height = 28
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men7      FORM1      MTop = 3
Left = 670
Width = 34
Height = 34
TabIndex = 483
Name = "men7"
     YPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 7

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               N  	    )   e                        image      image      Image1      
FORM1.men7      hPicture = icons\jda32bmp.bmp
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men18      FORM1      NTop = 3
Left = 705
Width = 34
Height = 34
TabIndex = 484
Name = "men18"
     ZPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 18

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               O  	    )   e                        image      image      Image1      FORM1.men18      gPicture = icons\sv32bmp.jpg
Stretch = 1
Height = 28
Left = 3
Top = 3
Width = 30
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men0      FORM1      MTop = 3
Left = 941
Width = 41
Height = 34
TabIndex = 487
Name = "men0"
     YPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myindex = 0

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
     ~    e  e                        t   %           
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMED 
 T    T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV
 MouseLeave,     	 MouseMove      Click    1 112 12  2  q 1                       \         |               N  	    )   e                        image      image      Image1      
FORM1.men0      gPicture = icons\ico1513.jpg
Stretch = 1
Height = 26
Left = 4
Top = 4
Width = 38
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           spinner      spinner      mietstufeZ8      FORM1     Enabled = .F.
Height = 20
InputMask = "9"
KeyboardHighValue = 7
KeyboardLowValue = 0
Left = 275
SpinnerHighValue =   7.00
SpinnerLowValue =   0.00
TabIndex = 17
Top = 299
Visible = .F.
Width = 35
ControlSource = "mymietstufez8"
Name = "mietstufeZ8"
     aPROCEDURE Click
lastmietstufe = myform1.mietstufeZ8.value
mymietstufeZ8 = myform1.mietstufeZ8.value
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE InteractiveChange
*SET STEP ON 
lastmietstufe = myform1.mietstufeZ8.value
mymietstufeZ8 = myform1.mietstufeZ8.value
wvw.reserve7 = myform1.mietstufeZ8.value
zti=8
myindex=zti
*DO z_click(index)

index1=zi(1+8)

DO zgrid_click WITH zi(1+8)

ENDPROC
     {    b  b                        a~   %   t                       U  )  T      T     U 
 LASTMIETSTUFE MYFORM1 MIETSTUFEZ8 VALUE
 MYMIETSTUFEZ8)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME{  T      T     T     
 T 
 T   T	 C	
   C	
  U 
 LASTMIETSTUFE MYFORM1 MIETSTUFEZ8 VALUE
 MYMIETSTUFEZ8 WVW RESERVE7 ZTI MYINDEX INDEX1 ZI ZGRID_CLICK Click,     
 MouseLeave     	 MouseMove      InteractiveChange    1 112 112 12 21a  2                       e                        F  	   
   n  V  
    )   b                        
commandbutton      
commandbutton      gemeindeauswahl      FORM1      xTop = 300
Left = 260
Height = 19
Width = 15
Caption = "?"
TabIndex = 488
TabStop = .F.
Name = "gemeindeauswahl"
     *PROCEDURE Click
IF OK("Sie werden auf eine externe Webseite geleitet,"+chr(13)+CHR(10)+"um die Mietstufe Ihres Ortes suchen zu knnen."+CHR(13)+CHR(10)+"Wollen Sie das?")
	inet = "000"
	Msg = "wohngeld.org/mietstufe"
	DO insinternet
ENDIF
return

*!*	IF .not. FILE(eigdat + "\tarife\mietstufen.dbf")
*!*		hinweis("Es fehlt die Datei MIETSTUFEN!" + CHR(13) + "Bitte fhren Sie einen Tarifupdate fr 2022 und 2023 durch!")
*!*		RETURN
*!*	endif
*!*	oldselect = SELECT(0)

*!*	DO FORM gemeindeauswahl TO xmiets

*!*	IF .not. EMPTY(xmiets) .and. xmiets <> "nix"
*!*		thisform.mietstufeZ8.Value = rcv(xmiets)
*!*		thisform.mietstufeZ8.InteractiveChange
*!*	ENDIF

*!*	SELECT(oldselect)

*!*	Msg = "https: // www. wohngeld. org/mietstufe"
*!*	rc = ShellExecute(myform1.hwnd, "Open", Msg, "", "", SW_SHOWNORMAL)

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                      %         q     S            U    %C. Sie werden auf eine externe Webseite geleitet,C
 C
 . um die Mietstufe Ihres Ortes suchen zu knnen.C
 C
  Wollen Sie das?    T  000# T  wohngeld.org/mietstufe    B U  OK INET MSG INSINTERNET0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMove-    
 MouseLeave    1 	1q A A @1 12 111                       >     	   ^                   )                           checkbox      checkbox      Check1      FORM1      Top = 270
Left = 597
Height = 15
Width = 81
FontBold = .T.
Alignment = 0
Caption = "alte Steuer"
Enabled = .F.
Visible = .F.
ForeColor = 0,0,0
Name = "Check1"
     	PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
IF welchesjahr = 2022 &&.or. welchesjahr = 2023
	IF .not. EMPTY(this.Value)
		hssteueralt = .t.
		myform1.Closable = .f.
		myform1.year0.enabled = .f.
		myform1.year1.enabled = .f.
		myform1.year2.enabled = .f.
		myform1.year3.enabled = .t.
		myform1.year4.enabled = .f.	
		DO case
			CASE modus = 0
				myform1.modi0.enabled = .t.
				myform1.modi1.enabled = .f.
				myform1.modi2.enabled = .f.				
			CASE modus = 1
				myform1.modi0.enabled = .f.
				myform1.modi1.enabled = .t.
				myform1.modi2.enabled = .f.			
			CASE modus = 2
				myform1.modi0.enabled = .f.
				myform1.modi1.enabled = .f.
				myform1.modi2.enabled = .t.			
		endcase							
	ELSE
		hssteueralt = .f.
		myform1.Closable = .t.	
		myform1.year0.enabled = .t.
		myform1.year1.enabled = .t.
		myform1.year2.enabled = .t.
		myform1.year3.enabled = .t.
		myform1.year4.enabled = .t.		
		myform1.modi0.enabled = .t.
		myform1.modi1.enabled = .t.
		myform1.modi2.enabled = .t.					
	ENDIF
	
	myform1.check1.forecolor = RGB(0,0,0)	
	
	DO case
		CASE modus = 0
			hssuchdatei = "G" + welchesjahrc + "I13"
		CASE modus = 1
			hssuchdatei = "G" + welchesjahrc + "P13"
		CASE modus = 3
			hssuchdatei = "G" + welchesjahrc + "R13"
	endcase	
	
	hsanzx = RECCOUNT(13)
	
	IF hsanzx > 30
		msgx = "Das Neuberechnen   a l l e r   Personalflle bezieht sich" + chr(13) + "nach den derzeitigen Einstellungen auf" + chr(13)
		msgx = msgx + "- " + muser + chr(13) + "- das Jahr" + welchesjahrc + chr(13) + "- die Arbeitsebene " + Msg + "." + chr(13)
		msgx = msgx + "Der Vorgang kann nicht abgebrochen werden!" + chr(13)
		msgx = msgx + "Der Fortschritt wird in der Fuzeile angezeigt."
		
		response = Messagebox(msgx, 1, "Mchten Sie neu durchrechnen lassen?")
		If response = 2
			Return
		ELSE
			WAIT WINDOW "Die Lohnsteuer wird neu berechnet." +CHR(13) + "Bitte warten...." nowait
			Do neudurchrechnen WITH .t.
			WAIT clear
		ENDIF
	ELSE
		WAIT WINDOW "Die Lohnsteuer wird neu berechnet." +CHR(13) + "Bitte warten...." nowait
		Do neudurchrechnen WITH .t.
		WAIT clear	
	endif
ELSE
	hinweis("Diese Funktion gilt, in diesem Programmstand, nur fr das Jahr 2022!")
	return
ENDIF

ENDPROC
     	                                 %           K               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION %  U %C  
p T a T  - T   - T   - T 	  - T 
  a T   -
 H l     T 
  a T   - T   -  ( T 
  - T   a T   -  l T 
  - T   - T   a   T - T  a T   a T   a T 	  a T 
  a T   a T 
  a T   a T   a  T   C   ^
 HF   p T  G  I13   T  G  P13   T  G  R13  T C
N % | T 9 Das Neuberechnen   a l l e r   Personalflle bezieht sichC
 & nach den derzeitigen Einstellungen aufC
 [ T   -  C
 
 - das Jahr C
  - die Arbeitsebene   .C
 A T  * Der Vorgang kann nicht abgebrochen werden!C
 @ T  / Der Fortschritt wird in der Fuzeile angezeigt.: T C $ Mchten Sie neu durchrechnen lassen?x %  B G R,:" Die Lohnsteuer wird neu berechnet.C
  Bitte warten....  a R  QG R,:" Die Lohnsteuer wird neu berechnet.C
  Bitte warten....  a R  Q CD Diese Funktion gilt, in diesem Programmstand, nur fr das Jahr 2022!  B  U  WELCHESJAHR THIS VALUE HSSTEUERALT MYFORM1 CLOSABLE YEAR0 ENABLED YEAR1 YEAR2 YEAR3 YEAR4 MODUS MODI0 MODI1 MODI2 CHECK1	 FORECOLOR HSSUCHDATEI WELCHESJAHRC HSANZX MSGX MUSER MSG RESPONSE NEUDURCHRECHNEN HINWEIS	 MouseMove,     
 MouseLeave      Click    1 12 112 !1   A    A  A  A  q Q A  q Q A  A A 2                       o                        	  	    )                           checkbox      checkbox      sonderzuschlag      FORM1      Top = 303
Left = 245
Height = 13
Width = 15
FontBold = .T.
FontSize = 12
Alignment = 0
Caption = "+ FEZ"
ControlSource = "mysonderzuschlag"
Name = "sonderzuschlag"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
*SET STEP ON 
lastsonderzuschlag = myform1.sonderzuschlag.value
mysonderzuschlag = myform1.sonderzuschlag.value
wvw.reserve6 = myform1.sonderzuschlag.value
zti=8
myindex=zti
*DO z_click(index)

index1=zi(1+8)

DO zgrid_click WITH zi(1+8)
ENDPROC
PROCEDURE InteractiveChange
*SET STEP ON 
lastsonderzuschlag = myform1.sonderzuschlag.value
mysonderzuschlag = myform1.sonderzuschlag.value
wvw.reserve6 = myform1.sonderzuschlag.value
zti=8
myindex=zti
*DO z_click(index)

index1=zi(1+8)

DO zgrid_click WITH zi(1+8)
ENDPROC
     #    
  
                        T   %              c            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION{  T      T     T     
 T 
 T   T	 C	
   C	
  U  LASTSONDERZUSCHLAG MYFORM1 SONDERZUSCHLAG VALUE MYSONDERZUSCHLAG WVW RESERVE6 ZTI MYINDEX INDEX1 ZI ZGRID_CLICK{  T      T     T     
 T 
 T   T	 C	
   C	
  U  LASTSONDERZUSCHLAG MYFORM1 SONDERZUSCHLAG VALUE MYSONDERZUSCHLAG WVW RESERVE6 ZTI MYINDEX INDEX1 ZI ZGRID_CLICK	 MouseMove,     
 MouseLeave      Click     InteractiveChange    1 12 112 21a  2 21a  1                       o                          	              )   
                        
commandbutton      
commandbutton      z8      FORM1      kTop = 298
Left = 54
Height = 22
Width = 258
Caption = "z8"
TabIndex = 16
Alignment = 0
Name = "z8"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=8
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+8) to hsxretwert

zi(1+8) = rcv(hsxretwert)
index1=zi(1+8)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  
 T     xauswahl( C	  T 	C    T C	   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           
commandbutton      
commandbutton      z9      FORM1      kTop = 277
Left = 54
Height = 22
Width = 258
Caption = "z9"
TabIndex = 14
Alignment = 0
Name = "z9"
     PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
zti=9
myindex=zti
*DO z_click(index)
DO FORM xauswahl WITH zi(1+9) to hsxretwert &&6

zi(1+9) = rcv(hsxretwert)
index1=zi(1+9)

DO zgrid_click WITH rcv(hsxretwert)

ENDPROC
                                      %         *                 U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAMEv 
 T  	
 T     xauswahl( C
  T 
C    T C
   C    U  ZTI MYINDEX XAUSWAHL ZI
 HSXRETWERT RCV INDEX1 ZGRID_CLICK
 MouseLeave,     	 MouseMove      Click    1 112 12   "2                       \         |                 	    )                           label      label      Label20      FORM1     xFontBold = .T.
FontSize = 13
WordWrap = .T.
Caption = "In der Freistellungsphase wird das restliche Wertguthaben gleichmig auf die verbliebenen Monate der Freistellungsphase verteilt. Dem Wertguthaben werden im laufenden Monat Betrge aus folgenden Kategorien entnommen:"
Height = 101
Left = 12
Top = 239
Visible = .F.
Width = 525
TabIndex = 453
Name = "Label20"
      
commandbutton      
commandbutton      	pvkiabzug      FORM1      mTop = 389
Left = 794
Height = 22
Width = 71
Caption = "PV - 0,00 %"
TabIndex = 396
Name = "pvkiabzug"
     >PROCEDURE Refresh
IF EMPTY(mypvkianz)
	IF varTYPE(mypvkianz) <> "N"
		mypvkianz = 0
	ENDIF
endif

DO case
	CASE mypvkianz = 0
		myform1.pvkiabzug.caption = "PV - 0,00 %"
	CASE mypvkianz = 1
		myform1.pvkiabzug.caption = "PV - 0,25 %"
	CASE mypvkianz = 2
		myform1.pvkiabzug.caption = "PV - 0,50 %"
	CASE mypvkianz = 3
		myform1.pvkiabzug.caption = "PV - 0,75 %"
	CASE mypvkianz = 4
		myform1.pvkiabzug.caption = "PV - 1,00 %"
endcase			
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click

mypvkiabzug = mypvkianz

DO FORM pvkiabzug WITH mypvkiabzug TO hsmypvkiabzug

mypvkianz = rcv(hsmypvkiabzug)
lastpvkianz = rcv(hsmypvkiabzug)

IF .not. INLIST(zi(1+38),0,2,7)
	mypvkianz = 0
	lastpvkianz = 0
ENDIF

wvw.reserve5 = mypvkianz
DO wvwout

this.refresh	
DO folgemonatneu
DO berechnungauslsen

IF mypvkianz > 0 .and. (zi(1+26) = 2 .or. zi(1+26) = 3)
	hinweis("Die getroffene Auswahl schliet den PV-Zusatzbeitrag fr Kinderlose aus."+CHR(13)+CHR(10)+"Bitte whlen Sie die passende Einstellung in der nachfolgenden Auswahl!")
	myform1.z26.click
endif
DO folgemonatneu
DO berechnungauslsen
ENDPROC
                                      %           -   ,            U  8 %C  5  %C   N1 
 T     
 HF 1    u  T    PV - 0,00 %     T    PV - 0,25 %     T    PV - 0,50 %    T    PV - 0,75 %   1 T    PV - 1,00 %  U 	 MYPVKIANZ MYFORM1	 PVKIABZUG CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 T    	 pvkiabzug(    T C    T C    %CC'  
 
 T  
 T    T    	 
 
     
 0 %   C  C 	 CH Die getroffene Auswahl schliet den PV-Zusatzbeitrag fr Kinderlose aus.C
 C
 G Bitte whlen Sie die passende Einstellung in der nachfolgenden Auswahl! 
        
  U  MYPVKIABZUG	 MYPVKIANZ	 PVKIABZUG
 HSMYPVKIABZUG RCV LASTPVKIANZ ZI WVW RESERVE5 WVWOUT THIS REFRESH
 FOLGEMONATNEU BERECHNUNGAUSLSEN HINWEIS MYFORM1 Z26 CLICK Refresh,     	 MouseMove    
 MouseLeave     Click    1  Q A A  A 2 12 112  "!  A q  q q 
 A q q 1                                 @        a            3      )                           textbox      textbox      t59      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 20
InputMask = "9999999.99"
Left = 795
SelectOnEntry = .T.
TabIndex = 76
Top = 390
Width = 69
Name = "t59"
     (PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
DO t_keypress WITH 59,nKeycode
IF nkeycode = 13
	hsbuttname = "mon"+ALLTRIM(STR(monat-1,2,0))
	myform1.&hsbuttname..click
endif
ENDPROC
PROCEDURE GotFocus
DO t_click WITH 59
ENDPROC
     I    0  0                        Z   %   D                       U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME      %  
A  T    T  C  >   ;   %  
 " T  monCC  Z myform1.&hsbuttname..click
  U	  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT
 T_KEYPRESS
 HSBUTTNAME MONAT 
   ; U  T_CLICK
 MouseLeave,     	 MouseMove      KeyPress     GotFocus'    1 112 12  QA !A 2  1                       \         |                 	              )   0                        label      label      Label2      FORM1      Caption = "Dienstverhltnis"
Height = 14
Left = 14
Top = 111
Width = 127
TabIndex = 114
ForeColor = 255,0,0
Name = "Label2"
      PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
                                      %         Q     C            U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME
 MouseLeave,     	 MouseMove     1 112 11                       \         |          )                           
commandbutton      
commandbutton      buttbwlaufzeit      FORM1      Top = 147
Left = 248
Height = 22
Width = 22
Picture = icons\hher.ico
Caption = "bwlaufzeit"
Enabled = .F.
TabIndex = 419
TabStop = .F.
Visible = .F.
PicturePosition = 14
Name = "buttbwlaufzeit"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE Click
DO FORM hhergruppierung
ENDPROC
                                   ?   %   M        	               U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION   hhergruppierung U  HHERGRUPPIERUNG	 MouseMove,     
 MouseLeave      Click    1 12 112 1                       o                        
  	    )                           
commandbutton      
commandbutton      perscopy      FORM1      Top = 39
Left = 232
Height = 21
Width = 26
Picture = prgicons\copy.bmp
Caption = ""
TabIndex = 438
TabStop = .F.
ToolTipText = "Diesen Personalfall kopieren"
Name = "perscopy"
     
hPROCEDURE Click
perscopymodus = 0

DO FORM perscopy TO xperscopy

IF xperscopy = "I:0"
	hinweis("Der Personalfall wird NICHT kopiert!")
	perscopymodus = 0
	RETURN
ENDIF

IF xperscopy = "I:99999"
	xperscopynr = lof(13) + 1
else
	xperscopynr = rcv(xperscopy)
ENDIF

IF perscopymodus =  1 &&vorhandenen berschreiben
	IF .not. ok("Soll der Personalfall : " + ALLTRIM(STR(xperscopynr,10,0)) + " mit dem Personalfall : " + ALLTRIM(STR(myform1.tdbnumber1.value,10,0)) + " berschrieben werden?")
		hinweis("Kopiervorgang wurde abgebrochen!")
		RETURN
	endif
ELSE
	IF .not. ok("Soll ein neuer Personalfall angelegt und mit den Daten aus Personalfall : " + ALLTRIM(STR(myform1.tdbnumber1.value,10,0)) + " gefllt werden?")
		hinweis("Kopiervorgang wurde abgebrochen!")
		RETURN
	endif
endif

oldselect = SELECT(0)

CREATE CURSOR perscopydbf (memofeld M)

SELECT perscopydbf

FOR hsxa = 1 TO 13
	APPEND BLANK
NEXT
FLUSH in perscopydbf

*datei fllen mit den alten daten
FOR hsmon1 = 1 TO 13
	SELECT(hsmon1)
	originname = ALIAS()
	GOTO myform1.tdbnumber1.value
	
	SELECT perscopydbf
	GOTO hsmon1
	replace perscopydbf.memofeld WITH &originname..memofeld
	FLUSH in perscopydbf
next

IF perscopymodus =  1 &&vorhandenen berschreiben	
	FOR hsmon1 = 1 TO 13
		SELECT perscopydbf
		GOTO hsmon1
		
		SELECT(hsmon1)
		originname = ALIAS()
		GOTO xperscopynr
		replace &originname..memofeld WITH perscopydbf.memofeld
		FLUSH in "&originname"
	NEXT
		
	SELECT perscopydbf
	USE
	
	FOR hsmon1 = 1 TO 13
		SELECT(hsmon1)
		GOTO myform1.tdbnumber1.value
	NEXT
	
	SELECT(oldselect)
	
	hinweis("Der Personalfall : " + ALLTRIM(STR(xperscopynr,10,0)) + " wurde mit den Daten aus Personalfall : " + ALLTRIM(STR(myform1.tdbnumber1.value,10,0)) + " berschrieben.")
ELSE &&neuen anlegen

	FOR hsmon1 = 1 TO 13
		SELECT perscopydbf
		GOTO hsmon1
		
		SELECT(hsmon1)
		APPEND BLANK
		originname = ALIAS()
		replace &originname..memofeld WITH perscopydbf.memofeld
		FLUSH in "&originname"
	NEXT
	
	satzanzahl = satzanzahl + 1	
	zt0(1+satzanzahl - 1) = "Personalfall " + ALLTRIM(STR(Abs(satzanzahl + 1)))
	
	SELECT perscopydbf
	USE
	
	FOR hsmon1 = 1 TO 13
		SELECT(hsmon1)
		GOTO myform1.tdbnumber1.value
	NEXT
	
	SELECT(oldselect)
	
	
	hinweis("Der neue Personalfall hat die Nummer : " + ALLTRIM(zt0(1+satzanzahl - 1)))
	
endif

return
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
     	    |	  |	                        +   %   /      	  W   e            U  >
 T     perscopy(  %  I:0w 1 C$ Der Personalfall wird NICHT kopiert! 
 T    B  %  I:99999  T C
    T C     %   %C Soll der Personalfall : CC 
 Z  mit dem Personalfall : CC 	 
 
 Z  berschrieben werden? 
- C  Kopiervorgang wurde abgebrochen!  B  O %CJ Soll ein neuer Personalfall angelegt und mit den Daten aus Personalfall : CC 	 
 
 Z  gefllt werden? 
K- C  Kopiervorgang wurde abgebrochen!  B   T C W h perscopydbf
  M F   (
   [   (
<
 F  T C # 	 
  F 	 # ; replace perscopydbf.memofeld WITH &originname..memofeld
 [   %    (
 F 	 # 
 F  T C	 # ; replace &originname..memofeld WITH perscopydbf.memofeld
 FLUSH in "&originname"
  F  Q  (
+
 F  # 	 
  
 F  C Der Personalfall : CC 
 Z(  wurde mit den Daten aus Personalfall : CC 	 
 
 Z  berschrieben.  3  (
Y F 	 # 
 F   T C; replace &originname..memofeld WITH perscopydbf.memofeld
 FLUSH in "&originname"
  T  6 T  
 Personalfall CCC Z F  Q  (

 F  # 	 
  
 F F C' Der neue Personalfall hat die Nummer : CC     B U 
 PERSCOPYMODUS PERSCOPY	 XPERSCOPY HINWEIS XPERSCOPYNR LOF RCV OK MYFORM1
 TDBNUMBER1 VALUE	 OLDSELECT PERSCOPYDBF MEMOFELD HSXA HSMON1
 ORIGINNAME
 SATZANZAHL ZT00        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME Click,     	 MouseMove    
 MouseLeave    1  BB A A Q !A !A A  AA A A  r rQ A  s   r   A qq     A r A r  A   rq   Q  A ar A r  A  cB B 2 12 11                       h	     Q   	  	  m   T   
  ]
  q    )   |	                        	container      	container      menkug      FORM1      ^Top = 3
Left = 815
Width = 37
Height = 34
Enabled = .T.
TabIndex = 482
Name = "menkug"
     PROCEDURE Click
IF welchesjahr >= 2026
	hinweis("Die Kurzarbeitergeld-Tabelle fr 2026 ist noch nicht erschienen." +  CHR(13) + "Sobald diese verffentlicht wurde, wird dieser Programmteil aktiviert.")
	RETUR
ENDIF		

IF INLIST(zi(1+4),0,1,2,3,4,5,6,20,21,26,27) &&ist ein beamter dann nicht
	hinweis("Fr diese Auswahl (Zeile 03) gibt es kein Kurzarbeitergeld!")
	RETURN
ENDIF
IF welchesjahr = jahr5 &&ist ein beamter dann nicht
	hinweis("Das Jahr liegt in der Zukunft. Eine Berechnung ist nicht mglich!")
	RETUR
ENDIF
kugfile = eigdat + "\tarife\kug_" + welchesjahrc + ".dbf"
IF .not. FILE("&kugfile") &&ist ein beamter dann nicht
	IF OK("Es fehlt die Datei " + kugfile + "." + CHR(13) + "Soll diese Datei installiert werden?")
		
		DO kugdateienladen
		
		IF .not. FILE("&kugfile")
			IF ok("Der automatische Download ist fehlgeschlagen!"+CHR(13)+"Wollen Sie unsere Downloadseite aufrufen?")
				public map_url 
				map_url="http://pc-gehalt.de/gehalt-download.htm#kugdateien"
				do shellexec
				GoUrl(map_url)
				return
			else
				RETURN
			endif
		endif
	else
		RETURN
	endif
ENDIF
myform1.visible = .f.
kug_active = .t.
DO FORM kug_neu2

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     X    ?  ?                           %   L        *               U   %    C@ Die Kurzarbeitergeld-Tabelle fr 2026 ist noch nicht erschienen.C
 F Sobald diese verffentlicht wurde, wird dieser Programmteil aktiviert.  B 4 %CC  7H C; Fr diese Auswahl (Zeile 03) gibt es kein Kurzarbeitergeld!  B  %   N CA Das Jahr liegt in der Zukunft. Eine Berechnung ist nicht mglich!  B ) T   \tarife\kug_  .dbf" IF .not. FILE("&kugfile") d[ %C Es fehlt die Datei   .C
 $ Soll diese Datei installiert werden? T  ! IF .not. FILE("&kugfile")Pq %C- Der automatische Download ist fehlgeschlagen!C
 ) Wollen Sie unsere Downloadseite aufrufen? @ 7	 ? T	 2 http://pc-gehalt.de/gehalt-download.htm#kugdateien 
  C 	   B L B   ` B   T 
 - T a  kug_neu2 U  WELCHESJAHR HINWEIS ZI JAHR5 KUGFILE EIGDAT WELCHESJAHRC OK KUGDATEIENLADEN MAP_URL	 SHELLEXEC GOURL MYFORM1 VISIBLE
 KUG_ACTIVE KUG_NEU20        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMove\    
 MouseLeave    1 !	A A BA A A A !r q q  A  A A A  A A A   3 12 111                            $       )   '   =    -    )   ?                        image      image      Image1      FORM1.menkug      |Picture = prgicons\arbeitsamt.jpg
Stretch = 1
Enabled = .T.
Height = 28
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE Click
this.Parent.click
ENDPROC
                                   p   %         d  	   R            U  #       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE 
      U  THIS PARENT CLICK	 MouseMove,     
 MouseLeave      Click     1 1 2 1 2  1                       Y         z                  	    )                           	container      	container      menkfz      FORM1      OTop = 3
Left = 776
Width = 37
Height = 34
TabIndex = 482
Name = "menkfz"
     (PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE Click
myform1.visible = .f.
DO FORM kfzrechner

ENDPROC
     -                              ɹ   %   a        
               U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME#  T   - 
 kfzrechner U  MYFORM1 VISIBLE
 KFZRECHNER
 MouseLeave,     	 MouseMove      Click    1 112 12  !2                       \         |                 	    )                           image      image      Image1      FORM1.menkfz      dPicture = icons\auto.jpg
Stretch = 1
Height = 28
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
                                   p   %         d  	   R            U   
      U  THIS PARENT CLICK#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE Click,     
 MouseLeaveU     	 MouseMove     1  2 1 2 1 1                       "         C                      )                           	container      	container      men4      FORM1      MTop = 3
Left = 740
Width = 34
Height = 34
TabIndex = 482
Name = "men4"
     YPROCEDURE Click
myindex = 4

thisform.Kcombo.Visible = False
taste0 = 0
myindexe = myIndex
DO menaktiv
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     ~    e  e                        t   %           
               U  D 
 T   T    
 T  
 T      U  MYINDEX THISFORM KCOMBO VISIBLE FALSE TASTE0 MYINDEXE	 MENAKTIV0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     	 MouseMove     
 MouseLeaveD    1  2  q 2 12 111                       m               	   
     N  
    )   e                        image      image      Image1      
FORM1.men4      fPicture = icons\eagle8.jpg
Stretch = 1
Height = 28
Left = 2
Top = 3
Width = 31
Name = "Image1"
      PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseMove
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Parent.MouseLeave 
ENDPROC
PROCEDURE Click
this.Parent.click
ENDPROC
                                   p   %         d  	   R            U  #       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE#       
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSELEAVE 
      U  THIS PARENT CLICK	 MouseMove,     
 MouseLeave      Click     1 1 2 1 2  1                       Y         z                  	    )                           
commandbutton      
commandbutton      tvdmehrstdhilfe      FORM1      Top = 566
Left = 141
Height = 19
Width = 157
FontBold = .T.
Caption = "Hilfe: TVD bis 3 Std. mehr"
Enabled = .F.
Visible = .F.
ForeColor = 255,255,255
BackColor = 255,0,0
Name = "tvdmehrstdhilfe"
     PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=pcg_showtip(this.name)
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""

ENDPROC
PROCEDURE Click
DO FORM tvdmehrstd

ENDPROC
     
                              1   %   C        	   y            U  0        T   C 	   U
  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION PCG_SHOWTIP THIS NAME)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION   tvdmehrstd U  TVDMEHRSTD	 MouseMove,     
 MouseLeave      Click    1 12 113 12                       o                        	  
    )                           dArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4MG1BG3SU1218294023      /  F      ]                                                       WINDOWS _4MG1BG3SV1364034512                                                                     WINDOWS _4MG1BG3SW1218294023                          L  T                                       WINDOWS _5T80KVN3I1357532559                                                                     COMMENT RESERVED                                s                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      AUSWAHL      Height = 481
Width = 438
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Auswahl"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "AUSWAHL"
      7PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                         %   _       u      o             U    C     U  THISFORM SIZER	 FRMRESIZE Resize,     1 1                       ,       )                            
olecontrol      
olecontrol      zgrid      AUSWAHL      >Top = 6
Left = 9
Height = 456
Width = 147
Name = "zgrid"
      ࡱ                >  	                                             R o o t   E n t r y                                                                              @-gm   @       O l e O b j e c t D a t a                                                                                    V       A c c e s s O b j S i t e D a t a                             &                                         \        C h a n g e d P r o p s                                                                                                           	   
      
            d#Q ]!C4   1  !/  BooP                       \                          $   8                       1F3D5522-3F42-11d1-B2FA-00A0C908FB55                                         Rows 	   I
      
   FixedRows 	   I
       
   FixedCols 	   I
      	   WordWrap    L       TextStyleFixed 	   I
       
   FocusRect 	   I
       
   Highlight 	   I
         ScrollBars 	   I
       
   RowHeightMin 	   I
       
   FillStyle 	   I
          GridLinesFixed 	   I
         SelectionMode 	   I
          MergeCells 	   I
          AllowBigSelection    L      AllowUserResizing 	   I
      
   MousePointer 	   I
         PictureType 	   I
          GridLinesUnpopulated 	   I
                                                                  
                                                               H                                                R  KQ   _ Arial      R  KQlt                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      .OLEObject = C:\Windows\SysWOW64\mshflxgd.ocx
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      AUSWAHL      Top = 453
Left = 411
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
    %   !     Y    %On[    U  q    (R ; T    Grundgehalt Stufe CC   Z 
 Hc j C  2 T 	 Stufe 1   (ab 27), dann 2 ab 291 T 
 Stufe 1a (ab 29), dann 2 ab 311 T  Stufe 1b (ab 31), dann 2 ab 331 T  Stufe 1c (ab 33), dann 2 ab 353 T 
  Stufe 2a (ab 35), dann 4*) ab 371 T  Stufe 2b (ab 37), dann 4 ab 393 T   Stufe 2c (ab 39), dann 5*) ab 411 T  Stufe 3a (ab 41), dann 6 ab 431 T  Stufe 4a (ab 43), dann 6 ab 451 T  Stufe 5a (ab 45), dann 7 ab 471 T  Stufe 6a (ab 47), dann 8 ab 49$ T  Stufe 8   (ab 49)* T  Grundgehalt lt. Eingabe C j2 T 	 Stufe 1a  (ab 27), dann 2 ab 332 T 
 Stufe 1a  (ab 29), dann 2 ab 331 T  Stufe 1a (ab 31), dann 2 ab 331 T  Stufe 1b (ab 33), dann 2 ab 353 T 
  Stufe 1c (ab 35), dann 4*) ab 371 T  Stufe 2a (ab 37), dann 4 ab 393 T   Stufe 2b (ab 39), dann 5*) ab 411 T  Stufe 3a (ab 41), dann 6 ab 431 T  Stufe 4a (ab 43), dann 6 ab 451 T  Stufe 5a (ab 45), dann 7 ab 471 T  Stufe 6a (ab 47), dann 8 ab 49$ T  Stufe 8   (ab 49)* T  Grundgehalt lt. Eingabe  U  I ZT7 ZIS    (R ; T    Grundgehalt Stufe CC   Z 
 Hc " C 6 T 	# Stufe 1   (alt 1), dann 1 Jahr in 36 T 
# Stufe 2   (alt 2), dann 1 Jahr in 47 T $ Stufe 3   (alt 3), dann 2 Jahre in 5+ T  Stufe 4a (alt 4), dann 6+ T 
 Stufe 5a (alt 5), dann 7+ T  Stufe 6a (alt 6), dann 8% T  Stufe 8,   (alt 7)* T  Grundgehalt lt. Eingabe CC 5 T 	" Stufe 1 (alt 1), dann 2 Jahre in 3* T 
 Stufe 2 (alt 2), dann 4* T  Stufe 3 (alt 3), dann 5* T  Stufe 4 (alt 4), dann 6* T 
 Stufe 5 (alt 5), dann 7* T  Stufe 6 (alt 6), dann 8* T  Stufe 7 (alt 7), dann 8" T  Stufe 8 (alt 8)* T  Grundgehalt lt. Eingabe CC v6 T 	# Stufe 1   (alt 1), dann 1 Jahr in 26 T 
# Stufe 1a (alt 2), dann 1 Jahr* in 3+ T  Stufe 2a (alt 3), dann 44 T ! Stufe 3a (alt 4), dann 1Jahr in 4+ T 
 Stufe 4a (alt 5), dann 66 T # Stufe 5a (alt 6), dann 2 Jahre in 66 T # Stufe 6a (alt 7), dann 3 Jahre in 7, T  Stufe 7   (alt 8), dann 8$ T  Stufe 8   (alt 9)* T  Grundgehalt lt. Eingabe C t6 T 	# Stufe 1   (alt 1), dann 1 Jahr in 2+ T 
 Stufe 1a (alt 2), dann 35 T " Stufe 2a (alt 3), dann 1 Jahr in 36 T # Stufe 3a (alt 4), dann 2 Jahre in 46 T 
# Stufe 4a (alt 5), dann 3 Jahre in 5+ T  Stufe 5a (alt 6), dann 66 T # Stufe 5b (alt 7), dann 1 Jahr* in 66 T # Stufe 6a (alt 8), dann 3 Jahre in 7+ T  Stufe 7a (alt 9), dann 8% T  Stufe 8   (alt 10) C _	, T 	 Stufe 1   (alt 2), dann 25 T 
" Stufe 1a (alt 3), dann 1 Jahr in 26 T # Stufe 2a (alt 4), dann 2 Jahre in 3+ T  Stufe 3a (alt 5), dann 4+ T 
 Stufe 4a (alt 6), dann 5, T  Stufe 5   (alt 7), dann 66 T # Stufe 5a (alt 8), dann 2 Jahre in 66 T # Stufe 6a (alt 9), dann 3 Jahre in 7, T  Stufe 7a (alt 10), dann 8% T  Stufe 8   (alt 11) CC 	X, T 	 Stufe 1   (alt 2), dann 25 T 
" Stufe 1a (alt 3), dann 1 Jahr in 26 T # Stufe 2a (alt 4),dann 2 Jahre* in 3+ T  Stufe 3a (alt 5), dann 4+ T 
 Stufe 4a (alt 6), dann 56 T # Stufe 4b (alt 7),dann 6 Jahre* in 66 T # Stufe 5a (alt 8), dann 2 Jahre in 66 T # Stufe 6a (alt 9), dann 3 Jahre in 7, T  Stufe 7a (alt 10), dann 8% T  Stufe 8   (alt 11) CC 
G
, T 	 Stufe 1   (alt 2), dann 25 T 
" Stufe 1a (alt 3), dann 1 Jahr in 26 T # Stufe 2a (alt 4), dann 1 Jahr* in 3+ T  Stufe 3a (alt 5), dann 4+ T 
 Stufe 4a (alt 6), dann 5, T  Stufe 5   (alt 7), dann 66 T # Stufe 5a (alt 8),dann 2 Jahre* in 66 T # Stufe 6a (alt 9), dann 3 Jahre in 7, T  Stufe 7a (alt 10), dann 8% T  Stufe 8   (alt 11) C 
(, T 	 Stufe 1   (alt 3), dann 26 T 
# Stufe 1a (alt 4), dann 1 Jahr* in 2+ T  Stufe 2a (alt 5), dann 3+ T  Stufe 3a (alt 6), dann 4+ T 
 Stufe 4a (alt 7), dann 5, T  Stufe 5   (alt 8), dann 66 T # Stufe 5a (alt 9),dann 2 Jahre* in 66 T # Stufe 6a (alt 10),dann 3 Jahre in 7, T  Stufe 7a (alt 11), dann 8% T  Stufe 8   (alt 12) C 	, T 	 Stufe 1   (alt 3), dann 26 T 
# Stufe 1a (alt 4), dann 1 Jahr* in 2+ T  Stufe 2a (alt 5), dann 3+ T  Stufe 3a (alt 6), dann 4+ T 
 Stufe 4a (alt 7), dann 5, T  Stufe 5   (alt 8), dann 66 T # Stufe 5a (alt 9),dann 2 Jahre* in 66 T # Stufe 6a (alt 10),dann 3 Jahre in 7, T  Stufe 7a (alt 11), dann 8% T  Stufe 8   (alt 12) CC , T 	 Stufe 1   (alt 3), dann 2, T 
 Stufe 1   (alt 4), dann 25 T " Stufe 1a (alt 5), dann 1 Jahr in 26 T # Stufe 2a (alt 6),dann 5 Jahre* in 46 T 
# Stufe 3a (alt 7), dann 1 Jahr* in 46 T # Stufe 4a (alt 8), dann 3 Jahre in 56 T # Stufe 5a (alt 9), dann 3 Jahre in 66 T # Stufe 6a, alt 10,dann 3 Jahre* in 7, T  Stufe 7a (alt 11), dann 8% T  Stufe 8   (alt 12) C , T 	 Stufe 1   (alt 3), dann 2, T 
 Stufe 1   (alt 4), dann 25 T " Stufe 1a (alt 5), dann 1 Jahr in 26 T # Stufe 2a (alt 6), dann 1 Jahre in 36 T 
# Stufe 3a (alt 7), dann 1 Jahr* in 46 T # Stufe 4a (alt 8),dann 2 Jahre* in 56 T # Stufe 5a (alt 9), dann 3 Jahre in 66 T # Stufe 6a(alt 10),dann 3 Jahre* in 7, T  Stufe 7a (alt 11), dann 8% T  Stufe 8   (alt 12) C 6 T 	# Stufe 1   (alt 6), dann 1 Jahr in 25 T 
" Stufe 2a (alt 7), dann 1 Jahr in 36 T # Stufe 3a (alt 8),dann 5 Jahre* in 5+ T  Stufe 4a (alt 9), dann 6, T 
 Stufe 5a (alt 10), dann 7, T  Stufe 6a (alt 11), dann 8% T  Stufe 8   (alt 12)* T  Grundgehalt lt. Eingabe C "6 T 	# Stufe 1   (alt 6), dann 1 Jahr in 25 T 
" Stufe 2a (alt 7), dann 1 Jahr in 36 T # Stufe 3a (alt 8),dann 5 Jahre* in 5+ T  Stufe 4a (alt 9), dann 6, T 
 Stufe 5a (alt 10), dann 7, T  Stufe 6a (alt 11), dann 8% T  Stufe 8   (alt 12)* T  Grundgehalt lt. Eingabe * T  Grundgehalt lt. Eingabe U  I ZT7 ZI
 H
 % C    C  	@  T 
 C  c  T 
 C    T 
 C    T 
% C   C  		  T 
% C  
 C  	 T 
  U  ZI WORTENDE   (  C    woerter  %  
e  T        T       # T  Entgeltgruppe 9b# T  Entgeltgruppe 9a# T  Entgeltgruppe 2$ T  Entgeltgruppe 15 C woerter  T   . %    C 	# T  Entgeltgruppe 9c# T                   # T                  # T                    U  I MYGET ZT5 WOERTER TEXTEE WELCHESJAHR ZI
 H
 % C    C  	~
 J  ( 6 T # 100% Verh.Zuschlag, ggf. TZ-Krzung4 T ! 50% Verh.Zuschlag ohne TZ-Krzung4 T ! 50% Verh.Zuschlag ohne TZ-Krzung4 T ! 50% Verh.Zuschlag  mit TZ-Krzung0 %  C  	 C  	z T    T    T    C C   C   C   C  	=
 J  (  T     0(99 C   woerter ! T  /C   b C   C  	 C  
 C  	 C   C  	) T  Monate bei Stufenber.= 
 Hb C    C  	 C   C   C   C  	
 	  T
    T
    T    T     T     b C   C  	 C  
 C  	 C   C  	
 	  T
    T
    T   ! T    Q @! T    ffffff?   U  ZI ZT3 WELCHESJAHR WNW ZTEXT33 I MYGET WOERTER TEXTEE MYFORM1 EXTRA3 VISIBLE TRUE T52 FALSE T53 Z3 LEFT Z6 WIDTH#
 T   
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T	  
 T
  
 T  
 T  
 T
  
 T  
 T  
 T  
 T     ( T    
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   
 T!  
 T"  
 T#  
 T$  
 T%  
 T&  
 T'  
 T(  
 T)  
 T*  
 T+  
 T,  
 T-  
 T.  
 T/  
 T0  
 T1  
 T2  
 T3  
 T4    ( T5    
 T6  
 T7  
 T8  
 T9   T:   T:   T:   T:  
 T;  
 T<   T=   T=  
 T>  
 T?  
 T@  
 TA  
 TB  
 TC  
 TD  
 TE  
 TF  
 TG  
 TH  
 TI  
 TJ  
 TK  
 TL  
 TM  
 TN  
 TO  
 TP  
 TQ  
 TR  
 TS  
 TT  
 TU  
 TV  
 TW  
 TX  
 TY  
 TZ  
 T[  
 T\  
 T]  
 T^  
 T_  
 T`  
 Ta  
 Tb  
 Tc  
 Td  
 Te  
 Tf  
 Tg  
 Th  
 Ti  
 Tj  
 Tk    ((,g l  (c Tm  l    
 Tn  
 To  
 Tp  
 Tq  
 Tr  
 Ts  
 Tt  
 Tu  
 Tv  
 Tw  
 Tx  
 Ty  
 Tz  
 T{  
 T|  
 T}  
 T~  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   T   T   T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T     (
 T    T    T    T    T    T    
 T  
 T  
 T     ( T    T    T    T       ( T    
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T     (` T     T   T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   T     (
 T    
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T	 
 T
 
 T 
 T 
 T
 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T    (#
 T   
 T 
 T 
 T 
 T  T  T  T  T 
 T  
 T! 
 T" 
 T# 
 T$ 
 T% 
 T& 
 T' 
 T( 
 T) 
 T* 
 T+ 
 T, 
 T- 
 T. 
 T/ 
 T0 
 T1 
 T2 
 T3 
 T4 
 T5 
 T6 
 T7 
 T8 
 T9 
 T: 
 T;   (: T<   T=     ( T>   T?   T@   TA   
 TB 
 TC 
 TD 
 TE 
 TF 
 TG 
 TH 
 TI 
 TJ 
 TK 
 TL   ( TM   TN   TO   
 TP 
 TQ 
 TR 
 TS 
 TT 
 TU 
 TV 
 TW 
 TX 
 TY 
 TZ 
 T[ 
 T\   (n T]   T^     ( T_   
 T` 
 Ta  Tb  Tb  Tb 
 Tc 
 Td 
 Te 
 Tf 
 Tg 
 Th 
 Ti 
 Tj 
 Tk 
 Tl 
 Tm 
 Tn 
 To 
 Tp 
 Tq 
 Tr 
 Ts 
 Tt 
 Tu 
 Tv 
 Tw 
 Tx 
 Ty 
 Tz 
 T{ 
 T|   (o T}   
 T~ 
 T 
 T 
 T   ( T      ( T   
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T   !(- T   
 T 
 T 
 T 
 T 
 T 
 T    ( T   
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T    (0 T     ( T   
 T 
 T   (e T     ( T   T   T   T   T   T   T   T      (*J T   
 T    (  T      ( T   
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T    ( l  (>! T l       ( l  (! T l    
 T    (Q T   
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T 
 T 
 T 
 T    (8  T      (	  T    
 T    (3)! T   T      ()[! T      (7! T   
 T 
 T 
 T 
 T	 
 T
 
 T 
 T 
 T
 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T 
 T  
 T! 
 T" 
 T# 
 T$ 
 T% 
 T& 
 T'    (7y# T(   
 T) 
 T* 
 T+ 
 T, 
 T-  U. INDEXM SAAR ZI31FIX ZI4FIX ZI5FIX	 RHEINLAND	 STEUERIND
 AGZUSCHUSS
 ZHLKINDER VORPAUSCHLST
 VORPAUSCHSOLI VORPAUSCHKISTR MYLINK	 USERSTART PENSIONSFLOP FALSE RENTEAB ZI7ALT ZI9ALT I PENSIONSSATZ STUNDENSATZOFFEN NOTKURZ SONDERTARIF SEPTEMBERKINDER TASTE0 TASTE1 TASTE2 TASTE3 TASTE4 TASTE5	 TASTEFLOP TASTENUMMER
 ARBEITERSTUFE TVDTRANSFER	 GEBIETIND
 EGRUPPEIND
 VGRUPPEIND ZUSCHLAGIND	 KINDERIND ORTSZUSCHLAGIND	 DIENSTIND STUFEIND AUFSTIEGIND
 HALBIERIND ENDSTUF	 TVDSTART	 ENTGELTGR
 GRUPPEPLUS QUALI ZWANG1 BERLEITUNGSINDEX STRUKTURGELADEN DAUER AUFSTIEGMONATAB AUFSTIEGJAHRAB AUFSTIEGSSPANNE FENSTEROFFEN TVFARBE
 LOTSEINDEX VKA LSTPFD SEPTEMBERSTUFE OSTANPASSUNG JULI2005 DBB
 STARTSTUFE TVD STEINLFDPLUS STEINEINPLUS SVEINLFDPLUS SVEINEINPLUS ZVKUEINLFDPLUS ZVKUEINEINPLUS ZVKBEINLFDPLUS ZVKBEINEINPLUS
 STSACHLFDPLUS
 STSACHEINPLUS
 SVSACHLFDPLUS
 SVSACHEINPLUS ZVKUSACHLFDPLUS ZVKUSACHEINPLUS ZVKBSACHLFDPLUS ZVKBSACHEINPLUS
 STEINLFDMINUS
 STEINEINMINUS
 SVEINLFDMINUS
 SVEINEINMINUS ZVKUEINLFDMINUS ZVKUEINEINMINUS ZVKBEINLFDMINUS ZVKBEINEINMINUS STSACHLFDMINUS STSACHEINMINUS SVSACHLFDMINUS SVSACHEINMINUS ZVKUSACHLFDMINUS ZVKUSACHEINMINUS ZVKBSACHLFDMINUS ZVKBSACHEINMINUS P15AG P20AG P25AG P15AN P20AN P25AN AGLFD AGEIN J	 SCHLSSEL
 SRVORGABEN GLEICHERSATZ JRE5 JRE6 JRE7 SZTEILER
 WECHSELANFANG WECHSELENDE BDAEXTRA PROGRAMMVERSION AUSDRUCK OP1 OP2 OP3 DECIMALFLAG NUMOPS	 LASTINPUT OPFLAG TEMPREADOUT ANPASSUNGSFAKTOR READOUT KVGLEITKRZUNG RVMITGLEITKRZUNG	 SZLAUFEND SZJULI SZDEZ SZMONAT SZJAHR SZI LASTZ LASTT LASTLST LASTSOZ LASTZVK LASTWEI LASTTEI LASTBRU FM	 LASTCLICK ZONENBEITRAG
 ANRESTBEITRAG VOLLENTGELT TEILENTGELT HALBERVOLLBEITRAG GANZERKURZBEITRAG VERGLAMODUS VERGLAMONAT
 VERGLAJAHR VERGLBMODUS VERGLBMONAT
 VERGLBJAHR
 VERGLSICHT	 VERGLEICH LEISTUNG HFILE
 GRUPPENANZAHL VORHER NACHHER REGBLATT	 BILDINDEX	 KATEGORIE SATZZAHL	 EINMAL300 ALLESEKUNDEN ZEITSEKUNDEN ZEITMINUTEN ZEITSTUNDEN MYINDEXE EINAUSZ UMLAGE1Z
 UMLAGE1ABZ UMLAGE2Z
 UMLAGE2ABZ NRWZ	 WEIHMONAT
 WEIHKINDER PROZENTE PFEILE	 DATUMDIFF
 KEINSPEICHERN WEIHATZ1 KIZU
 IMMERFOLGE USERNR UMGERECHNET ZWLFTEL	 ZWLFTELB
 TAGE_IM_MONAT
 KINDERGELD KIMIN	 LINKEMAUS
 TEXTSCHUTZ NETZWERK ATZTEIL
 ATZTEILOLD INDEXI	 TEXTINDEX DRUCKENABLED	 ALTESLAND
 WEIHFAKTOR DASTUFEN	 ANLEITUNG SPIN1 ZTI
 BEAMTENZULAGE DIMLEER ZEILENBEGINN ATZFLOP ALTERSPROZENTA ALTERSPROZENTB SCHLEIFENZHLER ZI18ALT ZIALT RETVAL	 STARTFLAG
 VOMRECHNER WESTOST KNOPF
 STELLDATEI	 SCHALTER1	 SCHALTER3 NR NRALT AUSWAHL STELLESTART	 SPALTEALT REIHE SPALTE ZEILE ZEILEALT TESTZEIT
 PRIVATZEIT	 STARTZEIT	 JETZTZEIT WEIHNACHTSBASIS WEIHNACHTSGEHALT KINDERZUSCHLAG SOLIZUSCHLAG DMNETTO	 DMSTEUERN	 DMSOZVERS AREV
 UEBERSTUNDENA
 UEBERSTUNDENB
 EINMALIGEZAHL BDANEU NEUESBDA TATSACHE ALTESZ
 DA_MANUELL OSTZULAGE97 OSTZULAGE98
 WEIHBETRAG URLAUBBETRAG GEHALTNETTO	 GEHALTMIT
 GEHALTOHNE	 GEHALTALT	 GEHALTNEU
 ZULAGEANFANGS
 GEHALTMEHR GEHALTMEHR97 GEHALTMEHR98 GEHALTMEHR99 GEHALTMEHR00 BDASTUFEALT BDASTUFENEU
 JETZTMONAT DIENSTMONATE MODUSALT MODUS EFFZAHL RVGRENZEEFFEKTIV KVGRENZEEFFEKTIV ZUSATZKV ZUSATZPV ZVKSATZ ZVKBEMG
 ZVKUMLZAHL
 ZVKFREIBETRAG	 ZVKUMLAGE ZVKHALB ZVKAG ZVKSTART	 SANIERUNG ZVKAREV AGSTEUER ZVKKISTR
 ZVKKAPITAL ZVKKAPITALAN ZVKUMLAGEFIX ZVKUMLAGEAG ZVKJA ZVKHOCH ZVKSOZ
 ZVKPFLICHT	 ZVKPAUSCH ZVKUMLAGEBAK
 ZVKHALBBAK ZVKAGBAK ZVKSTARTBAK
 ZVKAREVBAK ZVKKISTRBAK SANIERUNGBAK AGSTEUERBAK TZSONDER
 WEIHVZVOLL
 WEIHTZVOLL
 WEIHBZVOLL	 WEIHVZENG	 WEIHTZENG	 WEIHBZENG
 NACHSEPTEMBER WEIHVZ12 WEIHTZ12 WEIHBZ12 WEIHVZQ WEIHTZQ WEIHBZQ WEIHATZ WEIHVZBASIS WEIHTZBASIS WEIHBZBASIS FEHLTAGE WEIHGELB	 WEIHGELBB WELCHESJAHROLD WELCHESJAHRTARIF
 SATZANZAHLOLD MAXDIMENSOLD MSGLEN INDEX1 INDEX2 INDEX3 TEILZEITFAKTOR TEILZEITFAKTORZ BRUCHTEILFAKTOR BRUCHTEILFAKTORALT
 Z_GECLICKT BRUTTO TEILZEIT	 TEILZEITZ
 LSTPFLICHT
 SOZPFLICHT WEIHPFLICHT
 T_GECLICKT COUNTE ZIFFER TRGERANZAHL KOSTENANZAHL
 WORTANFANG WORTENDE	 STARTBUNT LIZENZ VWLLIMIT KEINEFOLGEMONATE ABZUEGE FARBENEINLESENNR REGISTRIERT
 FILENUMMER ABMONAT	 RVBEITRAG	 AVBEITRAG
 WELCHERMONATA
 WELCHERMONATB
 ZEILENWECHSEL KVOREIN PVOREIN RVOREIN AVOREIN ZVOREIN BDADATA OZTV DIENSTALTERSSTUFE IZUWERT IZU	 COMBOZAHL GEFUNDEN WEIHJA URLAUBJA ZULAGENINDEX
 NICHTNAMEN SOZVERSPFLICHTIG OSTSOZ ZWISCHENRAUM IIII
 JAHRWEICHE RXZ1	 ZULAGE2JA BDREI LANG MYINDEX	 AUSGLEICH COUNTER1 NETTOJA NETTO	 NOCHFREI0
 NOCHFREIZ1	 MYVERSION NOCHFREIZ17 ARTIKEL
 SCROLLWERT GRUNDBETRAG
 MYPOSITION PFLEGESATZNORMAL PFLEGESATZHALB PFLEGESATZSACHSEN	 COMBOSATZ	 AGAUFWAND REGISTERLST WELJAHR	 CALCLINKS LSTROBEN	 LSTRLINKS IZUWERT1 IZUWERT2 IZUWERT3 MAXIMAL GELADEN	 DIFFERENZ EINMALMIT_BERECHNUNG
 JAHRZEIGEN VONGRID RECHNER REGISTER REGIST COUNTER SCHONDA OHNEEINMALZAHL
 EINMALZAHL
 FENSTERTAB FENSTERTAB1 FENSTERTAB2 MITMULTI	 OHNEMULTI XTOP YLEFT
 MONATSTART MONTHNUM SUMMEU BRUTTOSVORIG LAENGE
 SATZANZAHLNEU
 SATZANZAHL JAHRESDRUCK	 JAHRESTAB SICH BRUZ CALC RESPONSE	 TARIFEALT TEILZAHL	 BRUCHZAHL WEIZ LSTZ LEIZ SOZZ ZVKZ TEIZ LSTRZ IJ VBLZ SOZVERSZ HINTERGRUND STAAT SOZIAL RESTGELD	 FARBEOBEN
 FARBEUNTEN ZEILE1HILFE JAHRESSPERRE FOLGEMONATE MERKER	 BUNT13ALT	 BUNT14ALT
 NAMENSFILE SICHT SICHTS K COLON KVDIFF RVDIFF MONATE REIHEN SOVIEL	 KISTRSATZ STEUERLAST1 STEUERLAST2 STEUER11 LSTR11 SOLI11 KISTR11 STEUER12 LSTR12 SOLI12 KISTR12 A III MONAT MONATNEU MONATALT WERT WERTOLD WERTEINMAL17 INTERIM JAHR	 ATZTRESOR BETRAG
 STFREINBEHALT
 SVFREINBEHALT STFREIEINMAL P20AGEINBEHALT P20ANEINBEHALT P25AGEINBEHALT P15AGEINBEHALT EINMALVORHANDEN OHNE_Z_CLICK GT GTN OZ OZN BRUTTOSV SPITZE SUMMELFD PFLZ PFL RV AV KVD RVD KV1 KVU KVW RV1 RVU RVW G Z20 L M KI KISTR ZI NUMBR FLAG FILENEU
 FILENEUALT MYMIETSUFEZ8 
 H
  % C   C  	@  T 
% C   C  	s  T 
 C  
  T 
  U  ZI WORTENDE     (R ; T    Grundgehalt Stufe CC   Z * T 
 Grundgehalt lt. Eingabe U  I ZT7. %  
    C 
	
 H;  C  l  T } T  C   T  T  CC   T  T  C  T  T  C 4 T  T  CC i T  T  CC  T  T  CC  T  T  C  T  T  C 	5 T  T  C 
f T  T  C  T  T  C  T  T  C 
 T  T  C * T  T  C [ T  T  C  T  T   
 H C   T : T ? C  T 2 T 9 CC < T , T 1 C m T $ T + C  T ! T # CC  T  T   CC  T  T  CC = T  T  C n T  T  C 	 T  T  C 
 T  T  C  T 
 T  C 2 T 	 T 	 C 
c T  T  C  T  T  C  T  T  C  T   T   C ' T 
 T  C X T  T  C  T  T    U  WELCHESJAHR ZI
 WORTANFANG WORTENDEE. %   C 
		   
+ T  Entgeltstufe 1 (1. Jahr)2 T  Entgeltstufe 2 (2. bis 4. Jahr)2 T  Entgeltstufe 3 (5. bis 8. Jahr)$ %C 	 C 
w3 T   Entgeltstufe 4 (9. bis 16. Jahr)4 T ! Entgeltstufe 5 (17. bis 26. Jahr)/ T  Entgeltstufe 6 (ab 27. Jahr) 3 T   Entgeltstufe 4 (9. bis 12. Jahr)4 T ! Entgeltstufe 5 (13. bis 17. Jahr)/ T  Entgeltstufe 6 (ab 18. Jahr) & T  Entgelt lt. Eingabe$ %C 
 C 		5 T " Entgeltstufe 4 (ab 9. J. Endstufe) $ %C  C 	5 T " Entgeltstufe 4 (ab 9. J. Endstufe)  *+ T  Entgeltstufe 1 (1. Jahr)2 T  Entgeltstufe 2 (2. bis 4. Jahr)2 T  Entgeltstufe 3 (5. bis 8. Jahr). %   C 		    3 %C 
 C  C ^ %C 
3 T   Entgeltstufe 4 (9. bis 16. Jahr)4 T ! Entgeltstufe 5 (17. bis 26. Jahr)/ T  Entgeltstufe 6 (ab 27. Jahr) $ %C  C Z3 T   Entgeltstufe 4 (9. bis 14. Jahr)4 T ! Entgeltstufe 5 (15. bis 22. Jahr)/ T  Entgeltstufe 6 (ab 23. Jahr)  3 T   Entgeltstufe 4 (9. bis 12. Jahr)4 T ! Entgeltstufe 5 (13. bis 17. Jahr)/ T  Entgeltstufe 6 (ab 18. Jahr)  & T  Entgelt lt. Eingabe 
 T    U  WELCHESJAHR ZI ZT7 DASTUFEN DASTUFEBERECHNENS
 J  (     %C 
Y  %C  U  T      %C    T    
 T 
 T 
 H H C   T 

 H % C   C 	 T 
 C B T 
 C  T 
 %C   T 
  C  T 
 C  T 
 %C   T 
  C  T 
% C  C 	O T 
% C 
 C 	 T 
 
 H C  t. %  C 		  p
 Hl C  T 
% C  C 	9 T 
% C 
 C 	l T 
   C 3
 H/% C   C 	 T 
% C  C 	 T 
% C 
 C 	/ T 
  C ! %  C 	t   B  %    B  CC    B C    C    B C _! %  C 	:   B  % [   B  C 
. %  C 		      C  %  %C  	    %  	   C  % ` %C \ 
  B   %  
  B   C  T  T  C D T 

 H@ C  
 T 
% C  C 	@ T 
  C C T  T  % e %C  a
 H] C 5 T  " Grundgehalt Stufe 1 (1. - 5. Jahr)6 T  # Grundgehalt Stufe 2 (6. - 12. Jahr)4 T  ! Grundgehalt Stufe 3 (ab 13. Jahr)+ T   Grundgehalt lt. Eingabe  B C o	5 T  " Grundgehalt Stufe 1 (1. - 7. Jahr)6 T  # Grundgehalt Stufe 2 (8. - 14. Jahr)4 T  ! Grundgehalt Stufe 3 (ab 15. Jahr)+ T   Grundgehalt lt. Eingabe  B C ]
 H	U$ C   C 
% T   Festes Grundgehalt* T   Grundgehalt lt. Eingabe CC U5 T  " Grundgehalt Stufe 1 (1. - 5. Jahr)6 T  # Grundgehalt Stufe 2 (6. - 10. Jahr)7 T  $ Grundgehalt Stufe 3 (11. - 15. Jahr)7 T  $ Grundgehalt Stufe 4 (16. - 20. Jahr)4 T  ! Grundgehalt Stufe 5 (ab 21. Jahr)+ T   Grundgehalt lt. Eingabe   B    %C 
?! %  C 	Y

 HQ
 C  7& T   Grundgehalt Stufe 1& T   Grundgehalt Stufe 2* T   Grundgehalt lt. Eingabe CC Q
5 T  " Grundgehalt Stufe 1 (1. - 5. Jahr)6 T  # Grundgehalt Stufe 2 (6. - 10. Jahr)7 T  $ Grundgehalt Stufe 3 (11. - 15. Jahr)4 T  ! Grundgehalt Stufe 4 (ab 16. Jahr)+ T   Grundgehalt lt. Eingabe   B  % ;
 H|
3 C  8 T  % Grundgehalt Stufe 1Festes Grundgehalt& T   Grundgehalt Stufe 2* T   Grundgehalt lt. Eingabe CC 35 T  " Grundgehalt Stufe 1 (1. - 5. Jahr)6 T  # Grundgehalt Stufe 2 (6. - 10. Jahr)7 T  $ Grundgehalt Stufe 3 (11. - 15. Jahr)4 T  ! Grundgehalt Stufe 4 (ab 16. Jahr)+ T   Grundgehalt lt. Eingabe   B   C < T 
 Hs8 CC   T 
 H C 
! %  C 	   B  % 	   B  CC 1   B C Q   B C ! %  C 	   B ! %  C 	   B  C  T 
 T 
 C     B C M % I   B  C  %  %C    B   %    B  C    (.E T    Grundgehalt Erfahrungsstufe CC  Z  %  %C 
* T  
 Grundgehalt lt. Eingabe * T   Grundgehalt lt. Eingabe  * T   Grundgehalt lt. Eingabe  B % C  C 		8 T  T   C  %C   T  T   T 9
 T :
  C $ T   Erfahrungsstufe 1$ T   Erfahrungsstufe 2$ T   Erfahrungsstufe 3$ T   Erfahrungsstufe 4$ T   Erfahrungsstufe 5$ T   Erfahrungsstufe 6$ T   Erfahrungsstufe 7
 T
    B C * T   Grundentgelt in Stufe 1* T   Grundentgelt in Stufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 51 T   Entgelt in Entwicklungsstufe 6
 T
    B C 	]* T   Grundentgelt in Stufe 1* T   Grundentgelt in Stufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 51 T   Entgelt in Entwicklungsstufe 6
 T
    B C 
 T | T    (  C   woerter  T       
 H% C   C 	 %   L\ %C    %C   * T   Entgeltstufe 1 entfllt M T   Entgeltstufe 1 (dauert idR CCC   Z  Mon.)  %C   * T   Entgeltstufe 2 entfllt sM T   Entgeltstufe 2 (dauert idR CCC   Z  Mon.)  %C   * T   Entgeltstufe 3 entfllt M T   Entgeltstufe 3 (dauert idR CCC   Z  Mon.)   %C   5 T  " Grundentgelt in Stufe 5 (Endstufe)+ T   Grundentgelt lt. Eingabe M T   Entgeltstufe 5 (dauert idR CCC   Z  Mon.)5 T  " Grundentgelt in Stufe 6 (Endstufe)  %C   5 T  " Grundentgelt in Stufe 4 (Endstufe), T   Entgeltstufe 5 (entfllt)+ T   Grundentgelt lt. Eingabe M T   Entgeltstufe 4 (dauert idR CCC   Z  Mon.) + T   Grundentgelt lt. Eingabe
 T
    B . %  C 	  	
 H% C   C 	$5 T  " Grundentgelt in Stufe 6 (Endstufe)+ T   Grundentgelt lt. Eingabe% C  C 	t+ T   Grundentgelt lt. Eingabe CC 5 T  " Grundentgelt in Stufe 5 (Endstufe)+ T   Grundentgelt lt. Eingabe  
 HC C   C 	 C  C 5 T  " Grundentgelt in Stufe 5 (Endstufe)+ T   Grundentgelt lt. Eingabe% C  C 	+ T   Grundentgelt lt. Eingabe     B   C . T | T    (  C   woerter  T       
 H.% C   C 	i( %   L$ %C   ! %C   : * T   Entgeltstufe 1 entfllt  M T   Entgeltstufe 1 (dauert idR CCC   Z  Mon.)  %C    * T   Entgeltstufe 2 entfllt *!M T   Entgeltstufe 2 (dauert idR CCC   Z  Mon.)  %C   p!* T   Entgeltstufe 3 entfllt !M T   Entgeltstufe 3 (dauert idR CCC   Z  Mon.)   %C   E"5 T  " Grundentgelt in Stufe 5 (Endstufe)+ T   Grundentgelt lt. Eingabe "M T   Entgeltstufe 5 (dauert idR CCC   Z  Mon.)5 T  " Grundentgelt in Stufe 6 (Endstufe)  %C   w#5 T  " Grundentgelt in Stufe 4 (Endstufe), T   Entgeltstufe 5 (entfllt)+ T   Grundentgelt lt. Eingabe #M T   Entgeltstufe 4 (dauert idR CCC   Z  Mon.) + T   Grundentgelt lt. Eingabe
 T
  %C $* %   		  $+ T   Grundentgelt in Stufe 1a+ T   Grundentgelt lt. Eingabe+ T   Grundentgelt in Stufe 1b
 T
      B e( % 
%&
 H%!&C C   C 	 C  C %6 T  # Entgelt Entwicklungsst.5 (Endstufe)+ T   Grundentgelt lt. EingabeC C  C 	 C  C !&+ T   Grundentgelt lt. Eingabe  V(
 H:&}'4 C   C 	 C  '1 T   Entgelt in Entwicklungsstufe 56 T  # Entgelt Entwicklungsst.6 (Endstufe)+ T   Grundentgelt lt. EingabeR C  C 	 C  C  C }'+ T   Grundentgelt lt. Eingabe  %C R(* %   		  N(+ T   Grundentgelt in Stufe 1a+ T   Grundentgelt lt. Eingabe+ T   Grundentgelt in Stufe 1b
 T
       B  C S) %C O)* %   		  K)+ T   Grundentgelt in Stufe 1a+ T   Grundentgelt lt. Eingabe+ T   Grundentgelt in Stufe 1b
 T
    C *. T   Entgelt Stufe 1 (unbenutzt)- T   Entgelt Stufe 2 (wie 13/2)- T   Entgelt Stufe 3 (wie 13/3). T   Entgelt Stufe 4a (wie 14/3). T   Entgelt Stufe 4b (wie 14/4)- T   Entgelt Stufe 5 (wie 14/5)& T   Entgelt lt. Eingabe %C * T  
 T
    B C *,% T   Entgelt im 1. Jahr% T   Entgelt im 2. Jahr% T   Entgelt im 3. Jahr% T   Entgelt im 4. Jahr4 T  ! Entgelt ab dem 5. Jahr (Endstufe)& T   Entgelt lt. Eingabe %C , T  
 T
    B% C  C 	. %C .. T   Entgelt Stufe 1 (unbenutzt)- T   Entgelt Stufe 2 (wie 13/2)- T   Entgelt Stufe 3 (wie 13/3). T   Entgelt Stufe 4a (wie 14/3). T   Entgelt Stufe 4b (wie 14/4)- T   Entgelt Stufe 5 (wie 14/5) % 
-& T   Entgelt lt. Eingabe %C - T  
 T
  z.- T   Entgelt Stufe 6 (Endstufe)& T   Entgelt lt. Eingabe %C i. T  
 T
     B . T | T    C . T | T  C 
M2
 H/I2% C   C 		0$ T   Stufe 1 unbenutzt1 T   Entgelt in Entwicklungsstufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 56 T  # Entgelt in Entw.-Stufe 6 (Endstufe)& T   Entgelt lt. Eingabe %C 0
 T
  0    B C I21 T   Entgelt in Entwicklungsstufe 11 T   Entgelt in Entwicklungsstufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 56 T  # Entgelt in Entw.-Stufe 6 (Endstufe)& T   Entgelt lt. Eingabe %C 22
 T
  A2    B  C 5
 Ho25% C   C 		4$ T   Stufe 1 unbenutzt1 T   Entgelt in Entwicklungsstufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 56 T  # Entgelt in Entw.-Stufe 6 (Endstufe)& T   Entgelt lt. Eingabe %C 3
 T
  	4    B% C 
 C 	51 T   Entgelt in Entwicklungsstufe 11 T   Entgelt in Entwicklungsstufe 21 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 41 T   Entgelt in Entwicklungsstufe 56 T  # Entgelt in Entw.-Stufe 6 (Endstufe)& T   Entgelt lt. Eingabe %C 5
 T
  5    B  C 5   B C 6   B C B/ % 
 C  C   
m>
 HU6i> CC  8$ T   Stufe 1 unbenutzt$ T   Stufe 2 unbenutzt %C 6$ T   Stufe 3 unbenutzt (71 T   Entgelt in Entwicklungsstufe 3 1 T   Entgelt in Entwicklungsstufe 46 T  # Entgelt in Entw.-Stufe 5 (Endstufe) T   Stufe 5 plus& T   Entgelt lt. Eingabe %C 7
 T
  	8    B% C  C 	:$ T   Stufe 1 unbenutzt$ T   Stufe 2 unbenutzt1 T   Entgelt in Entwicklungsstufe 31 T   Entgelt in Entwicklungsstufe 4 % 
L96 T  # Entgelt in Entw.-Stufe 5 (Endstufe)$ T   Stufe 6 unbenutzt 91 T   Entgelt in Entwicklungstufe 5 6 T  # Entgelt in Entw.-Stufe 6 (Endstufe) & T   Entgelt lt. Eingabe %C :
 T
  :    B4 C  C 	 C n: T | T  C ;% T   Entgelt im 1. Jahr% T   Entgelt im 2. Jahr% T   Entgelt im 3. Jahr% T   Entgelt im 4. Jahr4 T  ! Entgelt ab dem 5. Jahr (Endstufe)& T   Entgelt lt. Eingabe %C ; T  
 T
    B C <) T   Entgelt ab dem 1. Jahr) T   Entgelt ab dem 4. Jahr) T   Entgelt ab dem 7. Jahr5 T  " Entgelt ab dem 10. Jahr (Endstufe)& T   Entgelt lt. Eingabe %C < T  
 T
    B% C  C 	=) T   Entgelt ab dem 1. Jahr) T   Entgelt ab dem 4. Jahr4 T  ! Entgelt ab dem 7. Jahr (Endstufe)& T   Entgelt lt. Eingabe %C = T  
 T
    B C i>+ T   Basisentgelt lt. Eingabe %C a> T    B  B2 %C  C    C  	B %C   >* T   Entgeltstufe 1 entfllt >?M T   Entgeltstufe 1 (dauert idR CCC   Z  Mon.)  %C   ?* T   Entgeltstufe 2 entfllt ?M T   Entgeltstufe 2 (dauert idR CCC   Z  Mon.)  %C   @* T   Entgeltstufe 3 entfllt t@M T   Entgeltstufe 3 (dauert idR CCC   Z  Mon.)  %C   @, T   Entgeltstufe 5 (Endstufe)+ T   Grundentgelt lt. Eingabe AM T   Entgeltstufe 5 (dauert idR CCC   Z  Mon.) %C 
wA& T   Entgeltstufe 5 Plus A, T   Entgeltstufe 6 (Endstufe)   %C   MB, T   Entgeltstufe 4 (Endstufe), T   Entgeltstufe 5 (entfllt)* T   Grunentgelt lt. Eingabe BM T   Entgeltstufe 4 (dauert idR CCC   Z  Mon.) + T   Grundentgelt lt. Eingabe
 T
    B   CC D
  D %C  D, T   Entgelt im 1. bis 4. Jahr, T   Entgelt im 5. bis 8. Jahr- T   Entgelt im 9. bis 12. Jahr* T   Entgelt ab dem 13. Jahr& T   Entgelt lt. Eingabe
 T
  D/ T   Entgelt im   1. bis 10. Jahr. T   Entgelt im 11. bis 15. Jahr* T   Entgelt ab dem 16. Jahr& T   Entgelt lt. Eingabe
 T
    B C 
E T  T  C {E %C 	SE T  T  wE T  T   C E T | T & T   Entgelt lt. Eingabe C )F T | T & T   Entgelt lt. Eingabe C G# T   Arbeitsverdienst T  	 Besoldung T   Entgelt T  
 Entlohnung  T  
 Festeinkommen T   Fixum T   Gage T   Gehalt T  	 Grundentgelt T  
 Grundgehalt T   Heuer T   Honorar T  
 Lohn T   Sold T  	 Provision
 T
  B C nH
 HHjH C  9H T  T  C jH T 	 T 	  C H! T   Grundvergtung
 T
  B 
 T 
 
  ^I T
    %
 
I
 T
     ( ZI C   woerter  T        
 HoIS% C   C 	I. T  
  Grundgehalt lt. Eingabe C 
J6 T    Anwrtergrundbetrag lt. Eingabe C 
`L % 
DK
 HAJ@K4 C   C 	 C J6 T  # Entgelt Entwickl.Stufe 5 (Endstufe)+ T   Basisentgelt lt. Eingabe
 T
 % C  C 	@K+ T   Basisentgelt lt. Eingabe
 T
   \L
 HYKXL4 C   C 	 C K6 T  # Entgelt Entwickl.Stufe 5 (Endstufe)+ T   Basisentgelt lt. Eingabe
 T
 % C  C 	XL+ T   Basisentgelt lt. Eingabe
 T
    C N
 HLMC C   C 	 C  C 3M6 T  # Entgelt Entwickl.Stufe 5 (Endstufe)+ T   Basisentgelt lt. Eingabe
 T
 4 C  C 	 C M6 T  # Entgelt Entwickl.Stufe 6 (Endstufe)+ T   Basisentgelt lt. Eingabe
 T
  C M
 T
   %C N* %   		  N+ T   Grundentgelt in Stufe 1a+ T   Grundentgelt lt. Eingabe+ T   Grundentgelt in Stufe 1b
 T
   % C  C 	-O+ T   Basisentgelt lt. Eingabe
 T
  C O6 T  # Entgelt in der Ausbildung lt. Eing.
 T
  CC O   (O6 T   
 Entgeltstufe CC  Z 
 T
  CC P   (bP6 T   
 Entgeltstufe CC  Z + T   Grundentgelt lt. Eingabe
 T
 4 C   C 	 C P   C AQ %C 	Q =Q2 T   Praktikantenentgelt lt. Eingabe  C S % S % R
 HQJR  Q T  520,01   Q T  538,01   Q T  556,01   #R T  603,01   JR T  603,01  / T   Einziger Mini-Job unter  3 T   Mit anderen Mini-Jobs unter  2 T   Mit anderen Mini-Jobs ber   S3 T    Einziger Mini-Job unter 450,01 7 T  $ Mit anderen Mini-Jobs unter 450,01 6 T  # Mit anderen Mini-Jobs ber 450,01     U  ZT7 STUFENANZAHLERMITTELN ZI I
 WORTANFANG WORTENDE WELCHESJAHR NEUEASTUFEN BREMENWIEVIELSTUFEN RHLPFSTUFEN ANHALTSTUFEN
 RICHTERHESSEN ANHALTRICHTERSTUFEN DASTUFEN DASTUFEBERECHNEN MYGET WOERTER TEXTEE WVW SPARTE ZEST MONAT SOZLAUFZEIT RZTESTUFEN MYFORM1 J XGUNTERS,    (.  T      
 H? q+ C     (  C    woerter  T       %  
$ %C  C
  	
 T 
  T 
    %C . 	   %C  ' T  Besoldungsgruppe A 5' T  Besoldungsgruppe A 6  %C 
. %
  C 		 
 * T  BesGr.A 2 ist entfallen* T  BesGr.A 3 ist entfallen* T  BesGr.A 4 ist entfallen4 T ! BesGr.A 5 (einf. Dienst entfllt)4 T ! BesGr.A 6 (einf. Dienst entfllt)5 T " BesGr.A 5 LBG 1 (Einstieg 1 in A5)5 T " BesGr.A 6 LBG 1 (Einstieg 1 in A6)5 T " BesGr.A 7 LBG 1 (Einstieg 1 in A7) T 		 BesGr.A 85 T 
" BesGr.A 9 LBG 2 (Einstieg 1 in A9)7 T $ BesGr.A 10 LBG 2 (Einstieg 1 in A10)3 T   BesGr.A 9 (geh. Dienst entfllt)4 T 
! BesGr.A 10 (geh. Dienst entfllt) T 
 BesGr.A 11 T 
 BesGr.A 126 T # BesGr.A 13 LBG 2 Einstieg 2 in A13)4 T ! BesGr.A 13 (geh. Dienst entfllt); T ( BesGr.A 13 kl.Zul.(hh. Dienst entfllt) T 
 BesGr.A 14 T 
 BesGr.A 15 T 
 BesGr.A 16   %C ! %
  C 	+ T  BesGr.A 2 sind entfallen+ T  BesGr.A 3 sind entfallen  %
 + T  BesGr.A 2 sind entfallen+ T  BesGr.A 3 sind entfallen   %C ! %
  C 	+ T  BesGr.A 2 sind entfallen+ T  BesGr.A 3 sind entfallen  %
 + T  BesGr.A 2 sind entfallen+ T  BesGr.A 3 sind entfallen   C    ( C    woerter  T       C f   (b C    woerter  T       C C	   ( C    woerter  T       %C ?	   (;	= T    Besoldungsgruppe W LCC   Z   C *
   (	 C    woerter  T       %C 
&
. %
  C 		 
 "
0 T 	 Besoldungsgruppe R9 entfallen   C     (
 C    woerter  T      - T  Mittlerer Dienst (A6 - A9)
 H
0 C 0 T  Rechtspflegeranwrter A9 West C 0 T  Gehobener Dienst (A 10 - A 11/ T  Einfacher Dienst (A 6 - A 8)" T  Eingangsamt A 9c C   C 	 C  C 
	 C  C 	0" T  Eingangsamt A 9 > %C  & 
  C 		 
 	{
/ T  Einfacher Dienst (entfallen)/ T  Mittlerer Dienst (A 7 - A 9)1 T  Gehobener Dienst (A 10 - A 11)( T  Hherer Dienst (A 12)' T  Hherer Dienst(A 13)+ T  Hherer Dienst(A 13 + Z) ! %
  C 
	 T 
 LBG 1 (A5)" T  LBG 1 (A6 - A8)# T  LBG 2 (A9 - A11) T  LBG 2 (A12) T  LBG 2 (A13)& T  hh. Dienst (A13+Z)( T  mittl. Dienst (A6-A9)! T  Eingangsamt A9 > %
  C 		 
  C 	% T  mittl. Dienst (A5)( T  mittl. Dienst (A6-A8)) T  gehob. Dienst (A9-A11)$ T  hh. Dienst (A12)$ T  hh. Dienst (A13)& T  hh. Dienst (A13+Z)( T  mittl. Dienst (A6-A9)! T  Eingangsamt A9  C q %  m# T  Entgeldgruppe 16# T  Entgeldgruppe 15# T  Entgeldgruppe 14# T  Entgeldgruppe 13# T  Entgeldgruppe 12# T  Entgeldgruppe 11# T  Entgeldgruppe 10" T  Entgeldgruppe 9" T 	 Entgeldgruppe 8" T 
 Entgeldgruppe 7" T  Entgeldgruppe 6" T  Entgeldgruppe 5" T 
 Entgeldgruppe 4" T  Entgeldgruppe 3" T  Entgeldgruppe 2" T  Entgeldgruppe 1  C \ %C g' T  Entgeltgruppe KR 12a' T  Entgeltgruppe KR 11b' T  Entgeltgruppe KR 11a' T  Entgeltgruppe KR 10a& T  Entgeltgruppe KR 9d& T  Entgeltgruppe KR 9c& T  Entgeltgruppe KR 9b& T  Entgeltgruppe KR 9a& T 	 Entgeltgruppe KR 8a& T 
 Entgeltgruppe KR 7a& T  Entgeltgruppe KR 4a& T  Entgeltgruppe KR 3a X& T  Entgeltgruppe KR 17& T  Entgeltgruppe KR 16& T  Entgeltgruppe KR 15& T  Entgeltgruppe KR 14& T  Entgeltgruppe KR 13& T  Entgeltgruppe KR 12& T  Entgeltgruppe KR 11& T  Entgeltgruppe KR 10% T 	 Entgeltgruppe KR 9% T 
 Entgeltgruppe KR 8% T  Entgeltgruppe KR 7% T  Entgeltgruppe KR 6% T 
 Entgeltgruppe KR 5  C 	% T  Entgeltgruppe S 18% T  Entgeltgruppe S 17% T  Entgeltgruppe S 16% T  Entgeltgruppe S 15% T  Entgeltgruppe S 14% T  Entgeltgruppe S 13% T  Entgeltgruppe S 12& T  Entgeltgruppe S 11b& T 	 Entgeltgruppe S 11a$ T 
 Entgeltgruppe S 9% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a$ T 
 Entgeltgruppe S 7$ T  Entgeltgruppe S 4$ T  Entgeltgruppe S 3$ T  Entgeltgruppe S 2& T  Entgeltgruppe S 13 C 
% %
 
 
  !    CC H 
  C 6   ( C    woerter  T      + T  rzte nach  12.1 TVD-B   (2 C    woerter  T       C 
; %
 
   ( C    woerter  T       % T  Entgeltgruppe P 16% T  Entgeltgruppe P 15% T  Entgeltgruppe P 14% T  Entgeltgruppe P 13% T  Entgeltgruppe P 12% T  Entgeltgruppe P 11% T  Entgeltgruppe P 10$ T  Entgeltgruppe P 9$ T 	 Entgeltgruppe P 8$ T 
 Entgeltgruppe P 71 T  Entgeltgruppe P 7 (don't use!)1 T  Entgeltgruppe P 7 (don't use!)$ T 
 Entgeltgruppe P 61 T  Entgeltgruppe P 6 (don't use!)$ T  Entgeltgruppe P 5  C woerter  T    C @  %
 
   ( C    woerter  T        % T  Entgeltgruppe P 16% T  Entgeltgruppe P 15% T  Entgeltgruppe P 14% T  Entgeltgruppe P 13% T  Entgeltgruppe P 12% T  Entgeltgruppe P 11% T  Entgeltgruppe P 10$ T  Entgeltgruppe P 9$ T 	 Entgeltgruppe P 8$ T 
 Entgeltgruppe P 71 T  Entgeltgruppe P 7 (don't use!)1 T  Entgeltgruppe P 7 (don't use!)$ T 
 Entgeltgruppe P 61 T  Entgeltgruppe P 6 (don't use!)$ T  Entgeltgruppe P 5  C woerter  T    C     (  C    woerter  T       C woerter  T    C "1 T  E4, Pauschalgr. I   (>185 Std)1 T  E4, Pauschalgr. II  (>196 Std)1 T  E4, Pauschalgr. III (>221 Std)0 T  E4, Pauschalgr. IV (>244 Std)& T  E4, Chefkraftfahrer1 T  E5, Pauschalgr. I   (>185 Std)1 T  E5, Pauschalgr. II  (>196 Std)1 T  E5, Pauschalgr. III (>221 Std)0 T 	 E5, Pauschalgr. IV (>244 Std)& T 
 E5, Chefkraftfahrer) T  mit Zusatzvereinbarung C 7& %  $1 T  E4, Pauschalgr. I   (>185 Std)1 T  E4, Pauschalgr. II  (>196 Std)1 T  E4, Pauschalgr. III (>221 Std)0 T  E4, Pauschalgr. IV (>244 Std)0 T  E4, Stndiger persnl. Fahrer $( T  E4, Pauschalgruppe I ( T  E4, Pauschalgruppe II) T  E4, Pauschalgruppe III( T  E4, Pauschalgruppe IV0 T  E4, Stndiger persnl. Fahrer ) T  mit Zusatzvereinbarung %C 3&1 T  E5, Pauschalgr. I   (>185 Std)1 T  E5, Pauschalgr. II  (>196 Std)1 T  E5, Pauschalgr. III (>221 Std)0 T 	 E5, Pauschalgr. IV (>244 Std)& T 
 E5, Chefkraftfahrer) T  mit Zusatzvereinbarung  C '   m(v& C    woerter  T   m    %  %'$ T  AOK Azubi SOFA/FI) T  AOK Azubi Bromanagem.$ T  AOK Azubildende/r  %
 m'2 T 
 Auszubildender Gesundheitswesen ) T  mit Zusatzvereinbarung C (   (( C    woerter - T   C  `  (TVPD)    (z( C    woerter 2 T   C  `
  (TV Prakt-L) ) T  mit Zusatzvereinbarung% C  C 	T)   () C    woerter  T       C woerter  T    C )   () C    woerter  T       C woerter  T    C *   (Y* C    woerter  T       C woerter  T    C +, T  regelmige Beschftigung6 T # kurzfristig (nicht >2 Mon.od.>50T.) C q+   (m+ C    woerter  T       
 H++% C   C 	+  % C 
 C 	+   C +   
 H,?,% C   C 	?, T     
 T   U  I ZT5 ZI MYGET WOERTER TEXTEE WNW BESJA BETRAG GRUPPENINBREMEN WELCHESJAHR AOK_VERSION TRUE
 ENTGELTGRUPPE ENTGELTGRUPPEBUND	 ALTESLAND
 ZEITLADENB
 ZEITLADENTVD ZEITGERINGFGIG MYFORM1 EXTRA5 VISIBLE FALSE OHNE_Z_CLICK   (S  C    woerter  T      
 Hd  C 
 T     ( 5 T   Entgeltgruppe S CC   Z T   & T  Entgeltgruppe S 16& T  Entgeltgruppe S 13& T  Entgeltgruppe S 12
 Hm  
) T  mit Zusatzvereinbarung   %C h& T  Entgeltgruppe S 11% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a) T  mit Zusatzvereinbarung ) T  mit Zusatzvereinbarung   ( %C & T  Entgeltgruppe S 11% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a& T  Entgeltgruppe S 11a) T  mit Zusatzvereinbarung $& T  Entgeltgruppe S 11% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a) T  mit Zusatzvereinbarung   & T  Entgeltgruppe S 11% T  Entgeltgruppe S 8b% T  Entgeltgruppe S 8a& T  Entgeltgruppe S 11a) T  mit Zusatzvereinbarung $ C 
 C # T  Entgeltgruppe 2$ T  Entgeltgruppe 15 C woerter  T    C " C woerter  T   $ T  Entgeltgruppe 15$ T  Entgeltgruppe 13# T  Entgeltgruppe 2 % # T  Entgeltgruppe 9a# T  Entgeltgruppe 9b : %C "    		  	# T  Entgeltgruppe 16  T     C  % 
# T  Entgeltgruppe 2$ T  Entgeltgruppe 15 C woerter  T    # T  Entgeltgruppe 2$ T  Entgeltgruppe 15# T  Entgeltgruppe 9c# T  Entgeltgruppe 9b# T  Entgeltgruppe 9a C woerter  T      U	  I MYGET ZT5 WOERTER TEXTEE ZI J WELCHESJAHR MONAT{     L    C ............  C ............      `      t   U  MYFORM1 Z3 CLEAR ADDITEM Z4 Z6G'
 T   
 T  T C  T  a % 
U     +a& % 
z  !    C
 
  wnw	 " %      
  T   T 
  T    T     %   
' T     %   
O T     %   
w T     %   
 T     %   
 T     T  
  T    T    T                   !  "  #  %$ 0 $ 1z
 T$    %  T& C' (  T) C' (  T* C' (  T+ C' ( I T, CCC' (   Sonst. Bezug lt. Eingabe
 C' ( 6$ %C  C Z | T- C' (   T. C' (  T/ C' (  T0 C' (  T1 C	' (  T2 C
' (  3 ((, T4 3 C 3 ' 5 
 T6    7 (- %CCC 3 4 7 \
 0123456789  T6  0  T6 CC 3 4 7 \ ! T8 3 7 CC6 g8  
  %& %C  T7 C  9  + :   T 
  T; < CCC =  T> < CCC ?  T@ < CCC A  TB < CCC &  TC < CCC D  TE < CCC F  TG < CCC -  %C  
G T    TH < CCC I  TJ < CCC	 K 
 H$ C  C 
	0 %L q% T J M  N M ꕲq? T O P a T O Q a T R P a T R Q a T S P - T S Q -
 TT  
 TU   , T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -
 TV  
 TW  
 TT  
 TU   $ C  C 
	5
* %L   		 L S	% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + EFZ1 T S M  N X  N M  S X  1
 T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C  C 
	0 %L @% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + FSZ1 T S M  N X  N M  S X   %L 
, T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C  C 
	+ %L ;
% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + FEZ1 T S M  N X  N M  S X   %L 
' T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C  C 
	& %L 6% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + BEZ1 T S M  N X  N M  S X   %L 
" T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C  C 
	! %L 1% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + FEZ1 T S M  N X  N M  S X   %L 
 T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C 	 C 
	s= %L ( CC 		W% T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + FEZ1 T S M  N X  N M  S X  > %L ) CC 

	 L 	o T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU   $ C 
 C 
	*/ %L  L  C 	k% T J M  N M ꕲq? T O P a T O Q a T R P a T R Q a T S P - T S Q -
 TT  
 TU   & T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -
 TV  
 TW  
 TT  
 TU   $ C  C 
	 %L % T J M  N M q=
ףp? T O P a T O Q a T R P a T R Q a T S P a T S Q a  %L 
 T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -
 TV  
 TW  
 TT  
 TU   $ C  C 
	 %L % T J M  N M q=
ףp? T O P - T O Q - T R P - T R Q - T S P a T S Q a T S <   + FEZ1 T S M  N X  N M  S X   %L 
 T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -# T S M  R X  S X 
 TV  
 TW  
 TT  
 TU    2 T J M  N M  T O P - T O Q - T R P - T R Q - T S P - T S Q -' T S M  R X  S X 
 TV  
 TW  
 TT  
 TU    TN < CCC
 Y  TZ < CCC [  T\ < CCC ]  T^ < CCC
 )  T_ < CCC *  T` < CCC +  Ta < CCC b  Tc < CCC d  Te < CCC f 1 %L   g  	  h i  	p" %CC 

l %C 
hP T j <  Jahressonderzahlung - CC g  Z  Tag(e) Umwandlung   ! T j < CCC k   Tj < CCC k  Tl < CCC ,  Tm < CCC n  To < CCC p  Tq < CCC r  Ts < CCC t  Tu < CCC .  %C 
 H CC 
 v    %C  %C V2 Tw < ! Anderweitig mit Versorgungszusage4 Tx ! Anderweitig mit Versorgungszusage 2 Tw < ! Vers.Aufw.=Juli(Endst.+FZ1+StZ)*%   Tw < CCC x   Ty < CCC z  T{ < CCC | 4 T} <  Rel. Bekenntnis: CCC ~  T < CCC   T < CCC   T < CCC        T < CCC#   T < CCC$   T < CCC%   T < CCC'   T < CCC(   T < CCC)  
 Hc # C*   3 T < " Kein Beitrag zur ATV-Betriebsrente6 C* 
 C* 	
 C* !0 T <  CCC* d 0.00   % C* Z!3 T < " Umlage ATV-Betriebsrente lt. Eing. C* !4 T < # Beitrag ATV-Betriebsrente lt. Eing. C* #- T <  RG-Beitrag lt. HmbZVG 1,25 %
 H!# L L" %C 	H"- T <  RG-Beitrag lt. HmbZVG 1,45 %  L ": T <  RG-Beitrag lt. HmbZVG CC Z % L ": T <  RG-Beitrag lt. HmbZVG CC Z % L 0#: T <  RG-Beitrag lt. HmbZVG CC Z % L |#: T <  RG-Beitrag lt. HmbZVG CC Z % L #: T <  RG-Beitrag lt. HmbZVG CC Z %   T < CCC+ 0  T < CCC, 1  T < CCC- 2  T < CCC.   T < CCC/   T < CCC0 /  T < CCC3   T < CCC4   %C5 [%
 H$W% L W%% T &C& C 6 T  <  AG-Zu.freiw.GKV+CC Z %  % T < CCC5    %C& %, T < CCCC&  Z % / 2 % T < CCC6      %CC'  >

!& T'       !                   
 T   
 T   !     
  2' %C & T Q   & T Q    %C ' T Q   .' T Q     T  - U  OHNE_Z_CLICK TRUE RECHNER MONAT ZI MYFORM1
 LOCKSCREEN JAHRESGEHALT WVWIN MYGET FILENEU WNW VERSORGUNGSMONATE VERSORGUNGSBEGINN VERSORGUNGSBEZUG
 VERSORGUNGSSZ LEISTUNG2007 LEISTUNG2008 LEISTUNG2009 LEISTUNG2010 LEISTUNG2011 VJAHR VBEZM VBEZS ATZNETTO	 ZATZNETTO GRUPPE TITEL FAMILIE STUFE BDAEINSTELLUNGEN ORTSZU
 ALLGEMEINE LEISTUNGSZULAGENZEILE EINMALZAHLUNGEN
 WERTINTEXT REGISTER
 BEAMTENSTATUS ZT3 WVW ZULAGEN ZT12 ZT13 ZT14 ZT19 ZT6 ZT24 ZT47 ZT42 ZT43 ZT44 I SCHLSSE SCHLSS	 SCHLSSEX J	 SCHLSSEL ATVUMSETZEN ZVKUMSETZEN Z0 CAPTION ZT0 Z1 ZT1 Z2 ZT2 Z3 Z4 ZT4 Z5 ZT5 Z6 Z7 ZT7 Z8 ZT8 WELCHESJAHR WIDTH Z9 MIETSTUFEZ8 ENABLED VISIBLE GEMEINDEAUSWAHL SONDERZUSCHLAG MYSONDERZUSCHLAG LASTSONDERZUSCHLAG
 MYMIETSTUFEZ8
 LASTMIETSTUFE LEFT ZT9 Z10 ZT10 Z11 ZT11 Z12 Z13 Z14 Z15 ZT15 Z16 ZT16 Z17 ZT17 TVDSOZAMINUSTAGE T1 VALUE Z18 ZT18 Z19 Z20 ZT20 Z21 ZT21 Z22 ZT22 Z23 ZT23 Z24 FREISTELLUNGSZEILEN Z25 ZT25 Z26 ZT26 Z27 ZT27 Z28 ZT28 Z29 ZT29 Z30 ZT30 Z31 ZT31 Z33INZ50 Z37INZ52 Z34 ZT34 Z35 ZT35 Z36 ZT36 Z38 ZT38 Z39 ZT39 Z40 ZT40 Z41	 ATVSTUMPF MYFORMAT ZVKKAPITALAN Z42 Z43 Z44 Z45 ZT45 Z46 ZT46 Z47 Z50 ZT50 Z51 ZT51 BETRAG INTERIM EFFZAHL FORM1 Z52 ZUSATZKV ZT52 Z53	 GETKVPROZ ZT53 KIRCHENSTEUERAUSWAHL BDA
 BERECHNUNG ANZEIGE LSTAUFBAUEN SOZAUFBAUEN ZVKAUFBAUEN TEIAUFBAUEN WEIAUFBAUEN BRUAUFBAUEN LEIAUFBAUEN FALSE
 GERINGCHECKEN FREISTELLUNGSPHASE EXTRA25 EXTRA42
 H
  C   
 H/  C   Q 
 T  C  s 
 T  C   
 T  C   
 T  C   
 T  C   
 T  C  
 T  C  ?
 T  C  a
 T  C  	
 T 	 C  

 T 
 C  
 T 	 C  
 T 
 C  

 T  C  -
 T  C  O
 T 
 C  q
 T 
 C  
 T 
 C  
 T  C  
 T  C  
 T   C  
 T  CC  Y
 HEU C   g
 T  C  
 T  C  
 T  C  
 T  C  
 T  C  
 T  C  3
 T  C  U
 T   C  
 H{ C   
 T  C  
 T  C  
 T   C  
 H C   )
 T  C  K
 T  C  m
 T  C  
 T     U  ZI SZI
 H
  C    ?
 H2 ; C    W 
 T  C   | 
 T  C    
 T  C    
 T  C    
 T  C   
 T  C   5
 T  C   Z
 T  C   
 T  C   	
 T 	 C   

 T 
 C   
 T 	 C   
 T 
 C   
8
 T  C   ]
 T  C   
 T 
 C   
 T 
 C   
 T 
 C   
 T  C   
 T  C   ;
 T   C   d
 T  CC   
 H C    
 T  C   
 T  C   
 T  C   !
 T  C   F
 T  C   k
 T  C   
 T  C   
 T   C   Q
 HM C    
 T  C   (
 T  C   M
 T   C   
 Hv
 C    
 T  C   
 T  C   
 T  C   

 T     U  WVW ZNAM SZI0
 H
 . C   A
 H/  C   ^ 
 T 
 T 
 C   
 T 
 T  C   
 T 
 T 2 C   
 T 3
 T F C  
 T G
 T _ C  I
 T `
 T x C  x
 T y
 T  C  
 T 
 T  C  
 T 
 T  C  	
 T 
 T  C  
4
 T 
 T  C  d
 T  T  C   T  T  C  
 T  T , C   T - T @ C  ( T A T h C  Y T i T  C   T  T  C   T  T  C   T  T  C   T  T   %C  =    C  
 Hc~ C    T  T  C   T  T : C   T ; T b C  ' T c T  C  X T  T  C   T  T  C   T  T  C   T  T * C   T + T > C  	M T ? T H C  
~ T I T R  C  x
 Ht C    T S T \ CC  
 T ] T f CC  ? T g T p CC  t T q T z  C  	! %C  	  	
 H C    T d T d C   T g T l C  N T q T u C   T e T f C   T l T p C   T v T z  	
 H	 C   +	 T d T d C  \	 T g T p C  	 T q T z   C  
 H	 C   	 T { T  C  
 T  T  C  J
 T  T  C  {
 T  T  C  
 T  T  C  
 T  T  C   T  T  C  ? T  T . C  p T / T 8 C  	 T 9 T B  C  	

 H
 CC    T C T C CC  1 T D T D CC  f T E T E CC  	 T F T I CC  
 T F T I CC  
 T F T I  C  p
 H+
l C   \
 T 	 T 	 C  
 T 	 T 	 C  
 T 	 T 
 C  
 T 
 T 
 C    T 
 T 
 C  Q T 
 T 
 C   T 
 T $
 C   T %
 T ,
 C   T -
 T 4
 C  	 T 5
 T <
 C  
F T =
 T D
 C  w T E
 T L
 C   T M
 T T
 C  
 T U
 T \
 C  
 T ]
 T d
 C  ; T e
 T l
 C  l T  T   C  

 H CC    T ' T 0 C   T 1 T : C  , T ; T D C  ] T E T N C   T O T X C   T Y T b CC   T c T l C  ( T m T v C  Y T w T  C  	 T  T  C  
 T  T  C   T  T  C   T  T  CC  
R T  T  C   T  T   C  
 H CC    T  T  C   T  T  CC  G T  T  C  x T  T  C   T  T  C   T  T  C   T 
 T  C  < T  T   CC  q T ! T * C  	 T + T 4 C  
 T 5 T > C   T ? T H C  5 T I T R CC  
j T S T \ C   T ] T f% C   C  	 T q T   C  v
 Hr C   3 T { T  C  d T  T  C   T  T  C   T  T  C   T  T  C  ( T  T  C  Y T  T  C   T  T  C   T  T  C  	 T  T  C  
 T  T  C  N T  T  C   T  T  C  
 T  T 	 C   T 	 T 	 C   T 	 T 	 C  C T 	 T 	 C   % 
 T 	 T $	  T  T   C   T  T  C   T  T  C  A T  T  C  r T 	 T $	  CC  
(
 H$ C    T %	 T .	 C   T /	 T 8	 C  5 T 9	 T B	 C  f T C	 T L	 C   T M	 T V	 C   T W	 T `	 C   T a	 T j	 C  * T k	 T t	 C  [ T u	 T ~	 C  	 T 	 T 	 C  
 T 	 T 	 C   T 	 T 	 C   T 	 T 	 C  
P T 	 T 	 C   T 	 T 	% C   C  	 T q T  C   T %	 T .	 C  $ T ] T f  CC  	 T  T    %C  . T  Erzieher/in m.staatl.Anerk.  %C  
5 T 
" Soz.Arb.,Soz.Pdag.m.staatl.Anerk.  C  *  T q T  C  `#
 HL \# C   }  T  T  C    T  T  C    T  T ! C  ! T " T & C  A! T ' T + C  r! T , T 0 C  ! T 1 T 5 C  ! T 6 T : C  " T ; T ? C  	6" T @ T D C  
g" T 	 T 	 C  " T 	 T 	 C  " T 	 T 	 C  
" T 	 T 	 C  +# T 	 T 	 C  \# T  T   C  #+ T  Aus dem BAT bergeleitet6 T # Eingestellt nach KraftfahrerTV-Bund B C  Q$+ T  Aus dem BAT bergeleitet3 T   Eingestellt nach PKW-Fahrer-TV-L B C  $ T  T  C  $ T  T  C  '
 H$' C   % T y
 T 
 C  7% T 
 T 
 C  h% T 
 T 
 C  % T 
 T 
 C  % T 
 T 
 C  % T 
 T 
 C  ,& T 
 T 
 C  ]& T 
 T 
 C  & T 
 T 
 C  	& T 
 T 
 C  
& T 
 T 
 C  !' T 
 T 
 C  R' T 
 T 
 C  
' T 
 T  C  ' T  T  C  ' T  T   C  +
 H(+ C   <( T } T  C  m( T  T  C  ( T  T  C  ( T  T  C   ) T  T  C  1) T  T  C  b) T  T  C  ) T  T  C  ) T  T  C  	) T  T  C  
&* T  T  C  W* T  T  C  * T  T  C  
* T  T  C  * T  T  C  + T  T   C  U.
 HA+Q. C   r+ T  T  C  + T  T  C  + T  T  C  , T  T  C  6, T  T  C  g, T  T  C  , T  T  C  , T  T  C  , T  T  C  	+- T  T  C  
\- T  T  C  - T  T  C  - T  T  C  
- T 	 T 
 C   . T  T  C  Q. T  T   C  j. C  . T 	 T 	 C  . T  T   % 
.
 T   % 
/
 T   T C   %C  0" T  Geschftsfhrer# T  Sachverstndiger* T  Studentische Hilfskraft T  Berater% T  Projektmitarbeiter% T  Bundesfreiwilliger 0
 J  (  T C   	  ( 0 C 	  woerter
 " T 	       T C   U
  ZI
 WORTANFANG WORTENDE
 TITELINBREMEN WELCHESJAHR SOZIALDIENSTTITEL ZT6 WVW ZULAGEN I MYGET WOERTER TEXTEE
 H
  C   < 
 T 
 T  C  k 
 T 
 T 2 C   
 T 3
 T F C   
 T G
 T _ C   
 T 
 T  C  '
 T 
 T  C  V
 T 
 T  C  
 T 
 T  C  
 T  T  C  	 T  T  C  
 T  T , CC  L T - T @ C  
} T A T h C   T  T  C   T  T  C   T  T   U  ZI
 WORTANFANG WORTENDE4
 H
 -% C"    C"  	\  T  3  T  4C"  % C"  	 C"  	  T  3 T  4C"  % C"   C"  !	 T  3 T  4C"  % C"  " C"  .	U T  3 T  4C"  " C"  / T  3 T  4  C"  0 T  3 T  4  C"  1 T  3 T  4  C"  2A T  3 T  4  C"  3| T  3 T  4  C"  4 T  3
 T  4  C"  5 T  3 T  4  C"  6- T  3	 T  4   U  ZI
 H
  C&  z
 
 H/   CC5     %CC&  G u  T  5    T  5  T  6CC&     C&  z  T  5 C&  { T  5 C&  |/ T  5 C&  }W T  5 C&  ~ T  5 C&   T  5 C&   T  5 C&   T  5	  U  ZI FIX  Ch woerter   T     j(u  C   woerter  6 T  jC   C        U  MYGET MSG WOERTER TEXTEE I ZT20 WELCHESJAHRv    R(^o  C    woerter ; T   R ENTGELT fr C        U  I MYGET ZT20 WOERTER TEXTEE WELCHESJAHRCv    R(^o  C    woerter ; T   R ENTGELT fr C        U  I MYGET ZT20 WOERTER TEXTEE WELCHESJAHRCf    
(
_  C    woerter + T   
C        U  I MYGET ZT20 WOERTER TEXTEE WELCHESJAHRCf    
(
_  C    woerter + T   
C        U  I MYGET ZT20 WOERTER TEXTEE WELCHESJAHRCf     (,_  C    woerter + T    C        U  I MYGET ZT20 WOERTER TEXTEE WELCHESJAHRC  Ci woerter   T     j(u  C   woerter  6 T  jC   C        U  MYGET MSG WOERTER TEXTEE I ZT20 WELCHESJAHRC  T  C     (Z  T   T        T    T          U  MERKER ZI FM MONAT WVWIN
 BERECHNUNG ANZEIGEr    (R ; T    Grundgehalt Stufe CC   Z 
 Hc k C      (
 ; T    Grundgehalt Stufe CC   Z * T  Grundgehalt lt. Eingabe C    (hD T    berleitungsstufe zu Stufe CC   Z * T  Grundgehalt lt. Eingabe CC    (D T    berleitungsstufe zu Stufe CC   Z  %C 
   
	S) T   CC   `  (-)   %C 
   	) T   CC   `  (-)   %C    	) T   CC   `  (-)   %C    
	:) T   CC   `  (-)   %C    	) T   CC   `  (-)   %C    	) T   CC   `  (-)  * T  Grundgehalt lt. Eingabe C    (vD T    berleitungsstufe zu Stufe CC   Z * T  Grundgehalt lt. Eingabe C 1 T 	 berleitungsstufe 1 zu Stufe 11 T 
 berleitungsstufe 2 zu Stufe 1   
(vD T    berleitungsstufe zu Stufe CC   Z * T  Grundgehalt lt. Eingabe C 
k. %  C 		  g   (
9; T    Grundgehalt Stufe CC   Z * T  Grundgehalt lt. Eingabe   U  I ZT7 ZI WELCHESJAHR    (V ? T    LBGr. 1: Besold.Gr. A CC   Z * T 	 LBGr. 2: Besold.Gr. A 9+ T 
 LBGr. 2: Besold.Gr. A 10+ T  LBGr. 2: Besold.Gr. A 11+ T  LBGr. 2: Besold.Gr. A 12- T 
 LBGr. 2: Besold.Gr. A 12 a   
(; T    LBGr. 2: Besold.Gr. A CC   Z  U  I ZT58
 H
 1 C   . T  Entgeltstufe 1 (im 1. Jahr). T  Entgeltstufe 2 (im 2. Jahr). T  Entgeltstufe 3 (im 3. Jahr). T  Entgeltstufe 4 (im 4. Jahr). T  Entgeltstufe 5 (ab 5. Jahr)
 H  
U. T  Grundentgelt auertariflich   %C  
. T  Grundentgelt auertariflich . T  Entgeltstufe 6 (ab 6. Jahr) . T  Grundentgelt auertariflich  . T  Entgeltstufe 6 (ab 6. Jahr). T  Grundentgelt auertariflich  C  ). T  Entgeltstufe 1 (ab 1. Jahr). T  Entgeltstufe 2 (ab 4. Jahr). T  Entgeltstufe 3 (ab 7. Jahr). T  Entgeltstufe 4 (ab 9. Jahr) % 
. T  Grundentgelt auertariflich %/ T  Entgeltstufe 5 (ab 11. Jahr)/ T  Entgeltstufe 6 (ab 14. Jahr). T  Grundentgelt auertariflich  CC  . T  Entgeltstufe 1 (ab 1. Jahr). T  Entgeltstufe 2 (ab 4. Jahr). T  Entgeltstufe 3 (ab 7. Jahr). T  Grundentgelt auertariflich! %  C  	. T  Entgeltstufe 1 (ab 1. Jahr). T  Entgeltstufe 2 (ab 4. Jahr). T  Entgeltstufe 3 (ab 7. Jahr)/ T  Entgeltstufe 4 (ab 10. Jahr). T  Grundentgelt auertariflich  C   % 
O. T  Entgeltstufe 1 (im 1. Jahr)/ T  Entgeltstufe 2 (nach 1 Jahr)1 T  Entgeltstufe 3 (nach 2 Jahren)5 T " Entgeltstufe 4 (nach 3 1/2 Jahren)1 T  Entgeltstufe 5 (nach 5 Jahren). T  Grundentgelt auertariflich . T  Entgeltstufe 1 (im 1. Jahr)/ T  Entgeltstufe 2 (nach 1 Jahr)1 T  Entgeltstufe 3 (nach 2 Jahren)1 T  Entgeltstufe 4 (nach 3 Jahren)1 T  Entgeltstufe 5 (nach 4 Jahren)1 T  Entgeltstufe 6 (nach 5 Jahren). T  Grundentgelt auertariflich  C  ` % 
	5 T " Entgeltstufe 1 (im 1. bis 3. Jahr)1 T  Entgeltstufe 2 (nach 3 Jahren)1 T  Entgeltstufe 3 (nach 6 Jahren)2 T  Entgeltstufe 4 (nach 10 Jahren)2 T  Entgeltstufe 5 (nach 15 Jahren). T  Grundentgelt auertariflich \5 T " Entgeltstufe 1 (im 1. bis 3. Jahr)1 T  Entgeltstufe 2 (nach 3 Jahren)1 T  Entgeltstufe 3 (nach 6 Jahren)1 T  Entgeltstufe 4 (nach 8 Jahren)2 T  Entgeltstufe 5 (nach 10 Jahren)2 T  Entgeltstufe 6 (nach 12 Jahren). T  Grundentgelt auertariflich  C   % 
5 T " Entgeltstufe 1 (im 1. bis 3. Jahr)1 T  Entgeltstufe 2 (nach 3 Jahren). T  Grundentgelt auertariflich 5 T " Entgeltstufe 1 (im 1. bis 3. Jahr)1 T  Entgeltstufe 2 (nach 3 Jahren)1 T  Entgeltstufe 3 (nach 6 Jahren). T  Grundentgelt auertariflich  C  
 % 
`
 T  Grundentgelt. T  Grundentgelt auertariflich 
5 T " Entgeltstufe 1 (im 1. bis 3. Jahr)0 T  Entgeltstufe 2 (nach 3 Jahren. T  Grundentgelt auertariflich  C  (. T  Entgeltstufe 1 (im 1. Jahr). T  Entgeltstufe 2 (im 2. Jahr). T  Entgeltstufe 3 (im 3. Jahr). T  Entgeltstufe 4 (im 4. Jahr). T  Entgeltstufe 5 (ab 5. Jahr). T  Grundentgelt auertariflich% C  	 C  	5 T " Entgeltstufe 1 (im 1. bis 3. Jahr). T  Entgeltstufe 2 (ab 4. Jahr). T  Entgeltstufe 3 (ab 7. Jahr). T  Grundentgelt auertariflich% C   C  	! T  Entgeltstufe 1! T  Entgeltstufe 2! T  Entgeltstufe 3! T  Entgeltstufe 4! T  Entgeltstufe 5. T  Grundentgelt auertariflich C  Q4 T ! Grundentgelt Stufe 1 (im 1. Jahr)4 T ! Entwicklungsstufe 2 (nach 1 Jahr)6 T # Entwicklungsstufe 3 (nach 3 Jahren)6 T # Entwicklungsstufe 4 (nach 5 Jahren)6 T # Entwicklungsstufe 5 (nach 9 Jahren). T  Grundentgelt auertariflich C  q: T ' Grundentgelt Stufe 1 (im 1.bis 4. Jahr)6 T # Entwicklungsstufe 2 (nach 4 Jahren)6 T # Entwicklungsstufe 3 (nach 8 Jahren)7 T $ Entwicklungsstufe 4 (nach 12 Jahren). T  Grundentgelt auertariflich C  2 T  Arzt im 1. Jahr (EG 14 Stufe 1)2 T  Arzt ab 2. Jahr (EG 14 Stufe 2)2 T  Facharzt        (EG 14 Stufe 3)6 T # Facharzt ab  6.Jahr (EG 14 Stufe 4)6 T # Facharzt ab 10.Jahr (EG 15 Stufe 5)8 T % Facharzt ab 14.Jahr(1+EG15 St.6 plus). T  Grundentgelt auertariflich C  1. T  Grundentgelt auertariflich  U  ZI ZT7 WELCHESJAHR anhaltrichterstufen,      anhaltstufen     bremenwievielstufen     entgeltgruppeBund8     familie!     nullen&     RhlPfStufenb    
 richterhessenb     sozialdiensttitelRc     sozlaufzeitk     Stufeq     GruppeM    
 Entgeltgruppe    
 fremdtitel    	 Neuername.    
 szi_bestimmen*   	 szi_holen60    Titel_6   
 titelinBremeng    z33inz50j    z37inz52	n    zeitauszubildendep    zeitgeringfgigp   
 zeitladenTVDq   
 ZeitladenA9r    ZeitladenARBEITERr   
 zeitladenbks    zeitPraktikantent    einzelfallneuberechnent    neueAstufenu    gruppeninBremen8|    rztestufen}   4 qA  Q!11AQ!!11AA 3 qA  QaaqQQ!aaAaaAQaQaaaaQQQaaaQQaaaaQQaaaQQaaaQQaaaQQaaaaaQQQaaaaaQQaQaQQaQaQA 3  Q Q Q Q Q Q A 3 ! A A 111Aa11 11A 3  Q aAAA111A 4 aA !A  ! QQA ! A A 3                   qqA                                 q1A       11                                              rqA A                                                      111               qqqA    qA qqA          rqA 11              2`qqA                                                                   rqA     2111                            t11A q1111A            r111A              r11A r1A   211                          x1A     q1A rqA                  q1A       qqA                                            qqA s1A   q1A q11111111A qqA  qqA qqA              qqA A qqA A  qqA                       qqA qqA  qqqA qqA qqA                                   qqG      3  Q Q Q A 4 qA 3  Q  Q    Q  Q        Q  Q  Q  Q  Q  Q  Q  Q  Q  A   Q  Q    Q  Q        Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A A 3 !!A2A 1AA aAQA BQA  !!1Q2AA A2AA  1AA A aC  r 4  r QQqA  QqA A    Q  Q Q Q Q A Q Q Q A Q Q Q A  Q Q Q Q A A Q Q Q Q A Qq A A !q A A q A Rq Qq A Qq A A !q A A Qq A Q!Qq A A !q A Q!Qq A A A !q A A A Q  U  Q Q A R  !Q QQaAA QQaAA Q AQQaqqAA A A A A Q QaaQaqAA A A ! QaQaqAA A A A Q    Qq A A !q A A q A Qq A Qq A A q A A Q  Qq A Q!q A A Q!Qq A A A !q A A QqQA !Q A  A A A R  D QQ     A QAAAAAAA q A Q r A Q y A R  rA  QQ A  A  A A Q QA Q A  r A   QQQQA   1QQA B q A A A R  qA  QQ A  A  A A Q QA Q A  R A A t A  ! 1a1A   Aa!A Q A A A r A A RQ A A RaQ1A  q A RQQQQAaQ1A  q A RQ!aQ1A   aQ1A  A q A    A A Q  Q QAaaQ  q A A QaaQ  q A A A Q QAaaQ  q A A QaaQ  q A A A Rq A Qq A T AAQA A aaQ  q A A QAA!aA aA aQ  q A A A  QQQQQAaQ1A  q A RQaQ1A  q A RAaQ1A  q A QQ1A A A  ! A  A  A  Qa A A  A  q A A A  Qa  a A A B T  QQ     A Q  aQ  aQ1qqq A R Q  Q  A R A A   R A rA B  QQaQ! Aa Q A   Aa Q A A Q 1a Aa Q A Q A A Q Qa qaA  qaA  Aq QQ !A Q!! !Q!Q!Q!Q!QA 1! 1qaA A A 3 qqA  QA QA11A A Qq A QqqA QAAQQQQq1AaAA A RA !A A QA !A A QA QA QA QqA A QA QA A QA  QQ!1!A qA !1aA RAAaA Q2111111!!!!!!!!!A QQqqqqaaaaaaaa aaaaaaaaQQQQQA QQQQQQQQaaAQQAAAAaR!q  q A q RA A Q(A  QQQQQQQAAAAAA aR(A  QQQQQQQAAAAAA aRA aRaaQ B QaA RA AAA !!A QA !A RA aRA aRA aRaQA A  Qq Qq Qq A  Q1A  3 A  Q QA aaa !!QaQQ A !QaQQa aQQA !aQQaA A1AaQaAA1!11A 1 1A Q!1Aa 1A111aA A 3  B E E 3   S q A  A A s q"A AA BA BA BA BA r q q q q q q q q q  A r B A r q  A A A  Rq  q A rR1A  A!Q       A BQ 1    A C!QA !1    A B!QA !1    A B!QA !1    A B!QA !1    A CQA 1    A BQ       A B!QA !    A B!QA !1    A  q    A !QA A  A R q A A RQ!A !A  A Ar r  Q1aa1aAa !QA !!!!!A A Q $QaA  A Q A r A F r q q q q q q q q q   A A s q  Q A Q A A  3  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q A Q  Q Q Q Q Q Q Q Q A Q Q Q Q A Q Q Q Q Q A A 3                        A           A     A      A A 3  Q Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A Qq A R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A R Q        A R Q  Q  Q  Q  Q  Q  A   Q  Q  Q  A A R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A R             A Q Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A R   Q  Q  Q  Q  Q    Q  Q  Q  Q  Q  Q    Q  A R   Q    Q  Q  Q  Q  Q    Q  Q  Q  Q    Q  Q  A R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q!     A Q  Q  Q  Q  A  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A   r RA RQA R  R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A TaA Q1A R  R  R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A R Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  A RT  R  A  A  A R!1QQ  q!A A 3  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q    Q  Q  Q  Q  A 3  Q1qQ1Q1Q1Q11Q11Q11Q11Q11Q11Q11Q11A 3  Q 1 1A A T1R1R1R1R1R1R1R1B 3 aA 3 A 3 A 3 A 3 A 3 A 3 aA 3 q1q q A 1q q q 3 qA  QqA QqAA qAA A A A A A B QqAA QqAA QrA A A 4 qA qA 3  Q !!Q A !A R! A A Q!Q A Q!Q!! Q!!A Q!Q QA Q! QA QQQQQAAaaaQaaqQ!!!aaQA 1                    @        #       )        5         _   "        "  Z+        y+  +i      Oi  8j      ^j  j      k  v      w  ~    >      H      ) 	  =	  ) 6 
  	  (6 f7   	  7 " 6    I  u
    ߒ  
  E  ) o +  :    D  m  #  y     q      t      ?     e             a           ?      H j      -      U   ]  +    k  9   %   |      j    h  .K[    U  u %  
   % F  T       % T     d	 d %  
 " T   d	 d   T
 
    
 T 
  T   	    T
 
      n %  ?   N    T        U
  WELCHESJAHR UPEVP KENNVMT ZVE ZRE4 ZTABFB VSP UPMLST VMT VKAPA ST STOVMT UPEVP_AB_26 T   d T  d T  d T  d   	  T
 
  d %  
 	         T    d   T   d %  
 
 T    T  d U  ZRE4J JRE4 ZVBEZJ JVBEZ JLFREIB JFREIB JLHINZU JHINZU MRE4 MRE4ABZ ZRE4VP JRE4ENT WELCHESJAHR MONAT MZTABFBN MZTABFB VFRBS1 ANP FVB FVBZ MLSTJAHR WVFRBO ZVE GFB LSTOSO STA %   E 
 T  
 T  
 T  
 T   3 % 
l 
 T   & % C 
  
6
  T      T C 
 $ 66   %  T	 
    T
    %
 C 
  C T
 C 
    T    % C    T C      T	 
  
 T
  
 T    T 	   % C   	 T C   d ' T C   d  % 
 I
 T 
   %   k
 T     T     % C    T C   d  T C   d  %  
 T    T 	  d  T   d % C   T T C     %  
 T   % C    T C      %  
 T    T 	 d  %  
 T    % C   / T C        U  ZVBEZJ FVBZ FVB FVBZSO FVBSO VJAHR PAP_J WELCHESJAHR LZZ VBEZB VBEZM ZMVB VBEZS HFVB TAB2 FIX TAB3 TAB1 VBEZBSO HFVBZSO HFBZSO HFVBZ MRE4ALTE  T        %   
; 
 T    
 T   % 
  %   T  	 d   T
    %
  
 
 T
    U  ZRE4 ZRE4J FVB ALTE JLFREIB JLHINZU ZRE4VP WELCHESJAHR KENNVMT ENTSCH ZVBEZ ZVBEZJ= %    
 T   6 % 
E 
 T   & % C 
  
6
  T      T C 
 $ 66   T    T    % C  	  T C  	  
 T
   % 
 2
 T 
    U  ALTER1 ALTE AJAHR PAP_K WELCHESJAHR BMG ZRE4J ZVBEZJ TAB4 FIX HBALTE TAB5n
 H
 g   c %  J 
 T  
 T   v %   T     T K    T    T   T  ? T	 C ddG %	   T C  
  ) T C  
   %  Q T   
 T    
 T 
   %  
 T   _ T    T  ? T	 C ddG %	   T C  
  " T C  
   T 0    % 
 [
 T 
      g %  
 T  
 T    %  %    T     T  d
 T    T     T   d T    T	 C ddG %	   T C  
     T    T  d
 T    T    T	 C ddG %	    T C  
  : T C  
   %  \
 T   
 T    
 T 
   %  
 T   c T    T    T	 C ddG %	   T C  
  % T C  
   T  d   % 
 _
 T 
     U  WELCHESJAHR VBEZ FVBZ FVB LZZ VBEZB VBEZM ZMVB VBEZS REST FIX JW UPANTEIL ANTEIL2 ALTER1 ALTE BMG RE4 STERBE VKAPA HFVB TAB2 TAB3 TAB1 TAB4 TAB5C  T        T         U	  RE4LZZ RE4 FVB ALTE JFREIB JHINZU RE4LZZV MRE4 MZTABFB    
 T     % R % T   d d d w  T   d d 
 T	 
  %   	      
   T   	 d  U  MRE4 FVB FVBSO MRE4ABZ WELCHESJAHR ZRE4VP MBV JRE4ENT SONSTENT FVBZ FVBZSO MONAT MZTABFBN MZTABFB VFRBS2 ANP VFRBS1 T      %   Q T        @d T C d d % 
  T    d  " T    '@d  %  
 
 T    T  d %   	9 %	  
 T
   5
 T      
 T
   f
 T
    %      T  d %   	 %	 
 T   
 T      
 T   
 T    U  SOLZFREI KZTAB JBMG SOLZJ FIX WELCHESJAHR SOLZMIN JW MONAT SCHLEIFZ JWSOLZA JWSOLZN UPANTEIL SOLZLZZ ANTEIL1 R TABELLERECHNEN TRUE JWBKA JWBKN BKR %   "  T    7 
 T    % 
f 
 T  
 T     T    T C     % 
K
 H G    	    %  
 	        . 
   G    
 H`  y                 T    T C    %  6 T        @d T C d d K
 T    U  ZKF SOLZSZVE ZVE KFB XX KZTAB FIX STKL WELCHESJAHR UPTAB23 MONAT UPTAB24N UPTAB24 UPTAB25 UPTAB26	 MST5_6_23	 MST5_6_24	 MST5_6_25	 MST5_6_26 SOLZSBMG ST F SOLZFREI SOLZS STS
 T   %  + 
 T   %     	  % 
j 
 T   
 T  
 T  
 T  
 T	    
  % 
   
 T    T
   d T   d
 T       T   d %  
V
 T    % 
   T     T  d T     T C    % 
 %  

 T    % 
$ T        @d 3    T C d d %  o
 T	   
 T	         U   LZZ ZMVB SONSTB MBV WELCHESJAHR VKVSONST LSTSO STS SOLZS BKS MOSONST UPVKV VKV ZRE4J JRE4 ZVBEZJ JVBEZ VBS VBEZBSO STERBE	 MRE4SONST MLSTJAHR WVFRBM ZVE GFB ST LSTOSO F FIX MSOLZSTS R STSMINW %   

 %  "    T     %  
Y 
 T   ! T          @d T C d d %  
 
 T    T     %  
 
 T    
 T   
 T       %	  ;
 T
    P
 T
    U  STS MBV LSTLZZ SOLZLZZ LOLZLZZ FIX BK SOLZ MSOLZSTS R BKS
 T   
 H   X  T ( T Sk T *.     T ) T Lm T %=     T * T no T PM    T + T q T O   %   
 T     %   " T    zG? T C  	 " T     ? T C  	  & T C    zG?	   
 T      %   
 T
  
 T    & T C    zG?	  % 
 
x
 T   
 T 
     U  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 ZX UP5_6 ST FIX VERGL HOCH
 T   
 H 3  X  T ) T Lm T %=     T * T no T PM     T + T q T O   3 T . T rr T 4d  % a/ T ,   %   
 T     %   " T	 	   zG? T	 C 	 
 " T	 	    ? T	 C 	 
  & T	 C	    zG?
   
 T      %   
 T 	 
 T    & T C	    zG?
  %  

 T	   
 T	      U
  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 HSSTEUERALT ZX UP5_6 ST FIX VERGL HOCH
 T   
 H 3  X  T * T no T PM     T + T q T O     T . T rr T 4d  % a  T ,   3 T 0 T z T 4d   %   
 T     %   " T	 	   zG? T	 C 	 
 " T	 	    ? T	 C 	 
  & T	 C	    zG?
   
 T      %   
 T 	 
 T    & T C	    zG?
  %  

 T	   
 T	      U
  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 HSSTEUERALT ZX UP5_6 ST FIX VERGL HOCH
 T   
 H 5  X  T + T q T O     T . T rr T 4d  % a  T ,     T 0 T z T 4d   5 T 3 T d   T 4d   %   	
 T     %   " T	 	   zG? T	 C 	 
 " T	 	    ? T	 C 	 
  & T	 C	    zG?
   
 T      %   
 T 	 
 T    & T C	    zG?
  %  

 T	   
 T	      U
  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 HSSTEUERALT ZX UP5_6 ST FIX VERGL HOCH
 T   
 H 7  y  T . T rr T 4d  % au  T ,     T 0 T z T 4d     T 3 T d   T 4d   7 T 5 T    T 4d   %   
 T     %   " T	 	   zG? T	 C 	 
 " T	 	    ? T	 C 	 
  & T	 C	    zG?
   
 T      %   
 T 	 
 T    & T C	    zG?
  %  

 T	   
 T	      U
  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 HSSTEUERALT ZX UP5_6 ST FIX VERGL HOCH
 T   
 H   X  T 0 T z T 4d     T 3 T d   T 4d     T 5 T    T 4d    T 6 T {   T 4d   %   
 T     %   " T    zG? T C  	 " T     ? T C  	  & T C    zG?	   
 T      %   
 T
  
 T    & T C    zG?	  % 
 
~
 T   
 T 
     U  ZZX XX WELCHESJAHR W1STKL5 W2STKL5 W3STKL5 ZX UP5_6 ST FIX VERGL HOCH %   
 
 T     %     %  \   
 T   q 
 T    T     T 	 
    d T  
   d
 T      T  d   T   d d
 T    T  d T    T    %  
s
 T    %  

 T    T    T C     % K T  d  %  2 T        @d T C d d G
 T     T        @d T C d d  %   
 T!   
 T!    T" 7  T" 8  T" 9! # cd x
 T  
 T  
 T!   T" 7  T" 8  T" 9   U$  VKAPA VMT LSTSO MOSONST LST1 LSTOSO VBEZBSO STERBE ZRE4J JRE4 SONSTB ZVBEZJ JVBEZ VBS KENNVMT	 MRE4SONST MLSTJAHR LST3 ST MRE4ABZ ZRE4VP JRE4ENT SONSTENT LST2 STV F FIX WELCHESJAHR SOLZVBMG JBMG SOLZFREI SOLZV R BKV WERT	 KISTRSATZ9 %    
 T    3 
 T     %    % f 
 T     T  d T  d T    %  
 
 T       T   	 
   T    % C  
  2 T C  
   U  ZRE4VP BBGKVPV ZRE4VPR PKV STKL VSPKVPV PKPVAGZJ PKPVAGZ PKPV KVSATZAN PVSATZAN VSP VSPR FIX  %    
 T    3 
 T     T    T    % ly  T l  T    % C  	    T C  	   % 
  
 T
    U  ZRE4VP BBGRVALV ZRE4VPR VSPALV AVSATZAN VSPHB VSPKVPV VSPN VSPR FIX VSPq %    
 T     %   % Q 
 T    T  d
 T    
 T   %  T     	 
 T    
 T  ( T
 C    	    ) T    
   T    % C   j T C     U  ZRE4VP BBGKVPV PKV STKL VSP3 PKPV BITTERUNDEN
 CENTRUNDEN KVSATZAG PVSATZAG VSPWERT ZI KVSATZAN PVSATZAN VSP VSP1 FIXd
 T    %  @  %  
< 
 T     % 
  %    %  f
  T     %   %  C      T  C        
 T  f   
 T  
 T    % 
 %   %  
 T       %  C     T  C       T       
 T 
 HD  
 T	  
 T
 $ T  `$  M T	 
 T
 $ T  `$  
 T	  
 T 
 T
 $ T  `$  
 T	  
 T
 $ T  0  
 T	  
 T
 $
 T    D
 T	  
 T
  
 T    T
 	   
   U  ANP ZVBEZ FVBZ STKL WELCHESJAHR FIX FVBZSO ZRE4 KZTAB EFA SAP KFB ZKF ZTABFBd
 T    %  @  %  
< 
 T     % 
  %    %  f
  T     %   %  C      T  C        
 T  f   
 T  
 T    % 
 %   %  
 T       %  C     T  C       T       
 T 
 HD  
 T	  
 T
 $ T  D%  M T	 
 T
 $ T  D%  
 T	  
 T 
 T
 $ T  D%  
 T	  
 T
 $ T    
 T	  
 T
 $
 T    D
 T	  
 T
  
 T    T
 	   
   U  ANP ZVBEZ FVBZ STKL WELCHESJAHR FIX FVBZSO ZRE4 KZTAB EFA SAP KFB ZKF ZTABFB
 T    %  @  %  
< 
 T     % 
  %    %  f
  T     %  C      T  C       
 T  f    
 T  
 T    % 
 T   % aD T   % l T   T     % 
+ %	  ' %	   

 T    	   %  C     T  C      # T        
 T
 
 HI  
 T  
 T $
 H}   T
     T
      T
      T
  "  5 T
  `$  Y T
  %  } T
  &   
 T  
 T $
 H   T t T
      T  T
     O T  T
  "   T  T
  `$   T  T
  %   T  T
  &   

 T  
 T
 
 T $
 H.  R T
     v T
      T
  "   T
  `$   T
  %   T
  &   B
 T  
 T $
 HB>  f T
  B   T
  b   T
  b   T
  |   T
  0   T
    > T
     z
 T  
 T $
 T
    
 T  
 T  
 T
    T       U  ANP ZVBEZ FVBZ STKL FIX FVBZSO WELCHESJAHR HSARBPAUSCH HSSTEUERALT ZRE4 KZTAB EFA SAP KFB ZKF ZTABFBL G
(   $ %C  C! G  T C  \ 
 T    % 
y         % 
         	 
 T
   % 
 
 T      
  %   	4
 T  
 T     %   	
 T  T x4 T . T F
 T          % 
   :
 T  
 T  
 T   T 7  T 8  T 9   G
( U  STEUERLEEREN ZI VBEZ WERT WELCHESJAHR
 LSTTAB2006 LSTTAB2006_AB2023 MPARA
 MPARA_AB_2026 MRE4JL VBEZBSO KENNVMT MRE4 MRE4ABZ MONAT ZRE4VPM ZRE4VP SCHLEIFZ MBERECH W1STKL5 GFB SOLZFREI MLST1224 MSONST MVMT STV SOLZV BKV
 H
    b  T  d T  d T  d T  d     T  d T  d T  d T  d   @ T  hd T  hd T  hd T  hd    T  hd T  hd T  hd T  hd  %	  
 T
   U  LZZ ZRE4J RE4 ZVBEZJ VBEZ JLFREIB LZZFREIB JLHINZU LZZHINZU AF F  T  C  d d U  BITTERUNDEN FIXs %  
-  T  
 T  r  %  
Y  T    n 
 T $   % 
  T 
 T    % 
  T    
 T $   % 
]* T ?Mb?  T x  T $  * T {Gz?Mb?  T <  T h   % 
* T ?Mb?  T lL  l* T {Gz?Mb?  T &   U	  VJAHR JZHLER AJAHR KZHLER TAB1 TAB2 TAB3 TAB4 TAB5h %  
-  T  
 T  r  %  

Y  T    n 
 T 6   % 
  T 
 T    % 

  T    
 T 6   % 
]* T ?Mb?  T x  T $  M %   * T {Gz?Mb?  T <  T h  I* T ;On?Mbp?  T 8  T D	    % 
* T ?Mb?  T lL  a %   * T {Gz?Mb?  T &  ]* T ;On?Mbp?  T     U	  VJAHR JZHLER AJAHR KZHLER TAB1 TAB2 TAB3 TAB4 TAB5j
 T   
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T	  
 T
  
 T  
 T  
 T
  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   
 T!  
 T"  ! %#  C$ 	 T% & }
 Hy # e T% 0 T& z T' 4d  T * T( D #  T% 3 T& d   T' 4d  T( F T T- #  T% 5 T&    T' 4d  T( M T 4/ # y T% 6 T& {   T' 4d  T( ~O T <0  
 T)  
 T*  
 T+  
 T,  
 T-  
 T.  
 T/  
 T0  
 T1  
 T2  
 T3  
 T4  
 T5  
 T6  
 T7  
 T8  
 T9  
 T:  
 T;  
 T<  
 T=  
 T>  
 T?  
 T@  
 TA  
 TB  
 TC  
 TD  
 TE  
 TF  
 T*  
 TG  
 TH  
 TI  
 TJ  
 TK   T( 
 TL  
 TM  
 TN  
 TO  
 TP  
 TQ  
 TR  
 TS  
 TT  
 TU  
 TV  
 TW  
 TX  
 TY  
 TZ  
 T[  
 T\  
 T]  
 T^  
 T_  
 T`  
 Ta  
 Tb  
 Tc  
 Td  
 Te  
 Tf  
 Tg   Th         
 Ti  
 Tj   Tk          Tl          Tm          Tn          To          Up  JRE4ENT SONSTENT MBV SOLZSBMG SOLZSZVE SOLZVBMG XWERT1 XWERT2 VFRB VFRBS1 VFRBS2 WVFRB WVFRBO WVFRBM GFB KVZ BBGKVPV BBGRV RVSATZAN TBSVORV FVBZ VBEZB VHB VSPN VSP1 VSP2 PAP_J PAP_K JWLSTA JWLSTN JWSOLZA JWSOLZN JWBKA JWBKN SCHLEIFZ WELCHESJAHR ZI W1STKL5 W2STKL5 W3STKL5 SOLZFREI ZRE4VPM RE4LZZ TAB1 TAB2 TAB3 TAB4 TAB5 ZVBEZ ALTE ANTEIL1 ANTEIL2 ANP BMG DIFF FVB HFVB HFB EFA HOCH JBMG JW KENNZ KFB KZTAB LST1 LST2 LST3 LSTJAHR MIST RB RE4O RE4U RUND RW SAP SOLZJ SOLZMIN ST ST1 ST2 STS SOLZS BKS TW VERGL VSP VSPKURZ VSPMAX1 VSPMAX2 VSPO VSPREST VSPVOR XX YY ZRE4 ZTABFB ZRE4VP1 ZRE4VP ZVE ZX ZZX ALV PKPVAGZ AVSATZAN BBGRVALV PKPVAGZJ VSPHB VSPALV VSPKVPV VSPR ZRE4VPR  U  
 H
  C  2 % R  T   {Gz? w  T   {Gz?  %  
 
 T    %  
 T   T    %   T    T    T	 C ddG %	  Q% T C d
 d{Gz? r T C d
 d  %   T     T      T      T C  
   T	 C ddG %	  . T C  
      T   {Gz? %  

 T    %  
 T   T    %   T    T    T	 C ddG %	  7% T C d
 d{Gz? X T C d
 d  %  ~ T     T      T     
 T    T C  
   U  WELCHESJAHR KENNZ VSPVOR ZRE4VP1 ZRE4VP VSPO VSP VSPREST VSPMAX1 REST FIX VSPMAX2 %    %  
<  T     V  T    % C     T C      %  X
  T       T  X  % C    T C      U  LZZ ZRE4 ZVBEZ ANP FIX 
 H
     + 
 T     _  T   T C        T  h T C        T  h T C     U  LZZ ANTEIL1 JW FIX

 H
    0  T     v  T   T C    T  +     T  h T C    T  E    T  h T C    T  	  U  LZZ LZALOG LZALUG FIX  %   
 T   n  %  D 
 T   Y 
 T    T       %     %     	    U
  KRV VSPR ZRE4VP BBGRVALV ZRE4VPR RVSATZAN MVSPKVPV ALV STKL MVSPHB* %C      67 
 T     %  ] 
 T    %    T      T   
 T    
 T   T   
 T    
 T     T	 Q? 
 T 	   
 T	   %
 Q T  g T l  %	  
 T	    T  	  % C  
  T C  
     %  
 T    U  WELCHESJAHR KRV VSP1 ZRE4VP BBGRV RVSATZAN TBSVORV BITTERUNDEN
 CENTRUNDEN VSP2 STKL VHB VSPN FIX MVSP VSP  T   d %   	e  % L 
 T    a 
 T       
 T 	  U
  JW LSTJAHR WELCHESJAHR MONAT SCHLEIFZ JWLSTA JWLSTN UPANTEIL LSTLZZ ANTEIL1 %  
+ 
 T   
 T   V  T     T C    
 Hg     % 
          Y %   	" % 
 %	   
          U % 
B 
  Q       % 
         % 
        U  ZVE XX KZTAB FIX WELCHESJAHR STKL UPTAB23	 MST5_6_23 MONAT SCHLEIFZ UPTAB24A UPTAB24N	 MST5_6_24 UPTAB24 UPTAB25	 MST5_6_25 UPTAB26	 MST5_6_26)  T  C  $  T    $ U  RUND FIX)  T  C  6  T    6 U  RUND FIX} T         ? T  C     %   	s  % `    o      
 H           	     
        
 T 
  T         ? T  C     %   	t % a   p    
 H       	    
       
 T 
  T    T  Q? T C    %  a
 T
   v
 T
    U  XX ZX FIX WELCHESJAHR MONAT SCHLEIFZ UPTAB24A UPTAB24N UPTAB23 UPTAB24 UPTAB25 UPTAB26 ST1 ST ST2 DIFF MIST
 H
     
/ 
 T     9
  T    ' T  Hz@ T  x T C      ?  
 T   9' T  33333j@ T  ]	 T    T C Hz@    0 
Z) T C  zG?=
ףP@    0 ) T C  ?(\@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     O:
  T    ' T  Hz@ T  x T C        
 T   N:' T  (\i@ T  ]	 T    T C (\*@    B= 
Z) T C  zG?9<@    B= ) T C  ?A@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     >
  T    ' T  =
ףp@ T  x T C      Z  
 T   >' T  {Gh@ T  ]	 T    T C 
ףp=4@    B= 
Z) T C  zG?
ףp}z@    B= ) T C  ?Q@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     nB
  T    ' T  p=
׌@ T  x T C       
 T   mB' T  Gzf@ T  ]	 T    T C Q@    B= 
Z) T C  zG?=
ף@    B= ) T C  ?Q8~@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     $D
  T    ' T  fffff"@ T  x T C       
$ T   #D' T  Gzf@ T       @ T    T C ףp=
@    B= 
a) T C  zG?)\O@    B= ) T C  ?G@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     E
  T    ' T  Gz@ T  x T C       
$ T   E' T  33333e@ T       @ T    T C Gz+@    B= 
a) T C  zG?=
ףп@    B= ) T C  ?Q@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     nB
  T    ' T  p=
׌@ T  x T C       
 T   mB' T  Gzf@ T  ]	 T    T C Q@    B= 
Z) T C  zG?=
ף@    B= ) T C  ?Q8~@   T    U  XX GFB ST YY RW FIX KZTAB
 H
     
/ 
 T     nB
  T    ' T  fffff֍@ T  x T C       
 T   mB' T  Gzf@ T  ]	 T    T C Hz@    B= 
Z) T C  zG?z'@    B= ) T C  ?q=
Æ@   T    U  XX GFB ST YY RW FIX KZTABl  %   P  %  3  T  d L  T  d  e 
 T    U  PKV VSP2 VSP3 VKV+    
 T    
 T   U  UPVKV JW VKV UPANTEIL VKVLZZ ANTEIL1 %    	H  % 5    D     W     T   	 d 
  T  
 d %  
 
 T    %C   T C  T C   T      %  
     %  e T      
  T    z
 T      U  WELCHESJAHR MONAT SCHLEIFZ MZTABFBA MZTABFBN MZTABFB VFRB ANP FVB FVBZ MLSTJAHR WVFRB ZVE GFB ZI SONSTENT WERT JRE4ENT LSTJAHR ST F UPLSTLZZ UPVKVLZZ ZKF ZTABFB KFB MRE4ABZ JBMG MSOLZ %  
1 # T CC)    6  T   T 9v? T +η? T v # T CC/ C  d! T	  dQ? %
   T Zd;O?  T ;On?  % 4 T  ~jtx? Y T  
 {Gzd?  T     {@ T     `@ T 	    !A T      @ T     @ U 
 KUG_ACTIVE ALV ZI BBGRVALV AVSATZAN RVSATZAN BBGKVPV KVZ GETKVBEITRAG KVSATZAN PVS PVSATZAN PVZ PVA W1STKL5 W2STKL5 W3STKL5 GFB SOLZFREI.
 %  

 H    P  T xJ  T h<     T 0V  T L     T a  T 8]     T Xy  T Xy   % 
3 %   
 T   /
 T    ] %  
Y
 T     T +η?
 H   T )\(?   T       ?  
 Hn   T     * T     L T     n T f  # T CC/
 C
 	 d % y! T  dQ?
 Hu   T ,?  % T jt?  M T Q?  u T oʡ?   T  dQ? T Q? 
 H  	  	S %
  T #~j? T ˡE? O T Zd;? T Zd;?    % 	  	 %
  T #~j? T ˡE?  T Zd;? T Zd;?   % } %
 G T oʡ? T bX9Ȇ? y T Pn? T Pn?   %
  T I+? T ~jt?  T  rh? T  rh?      %
 K T I+? T ~jt? } T  rh? T  rh?    %
  T Zd;O? T 9v?   T ;On? T ;On?  
 H	  
G % C % 	  	 %  % 	  	 T  y&1l?  %  T  ~jts?  T  ~jtx?    T  y&1l?  ? T  {Gzd?    	 %  T  ~jtx?  	 %   	 T   {Gzd?  %  T   {Gzd?   
 H	'
  o	 T 0 T z T 4d  T * T D  	 T 3 T d   T 4d  T T- T F  '
 T 5 T    T 4d  T @/ T M  U  KRV WELCHESJAHR XWERT1 XWERT2 BBGRV RVSATZAN TBSVORV BBGKVPV KVZ GETKVBEITRAG ZI KVSATZAN KVSATZAG PVS PVSATZAN PVSATZAG MONAT LZZ PVZ PVA W1STKL5 W2STKL5 W3STKL5 GFB SOLZFREI  %   T     %  
I 
 T   X    
 T   T     %  
 
 T       
 T	   T 
  
  %  
 
 T      
 T    U
  LZZ JW JWLSTN JWLSTA ANTEIL1 UPANTEIL LSTLZZ JWSOLZN JWSOLZA SOLZLZZ JWBKN JWBKA BK mlstjahr,      mosonst     MRE4     MRE4ABZ     mre4alte	     mre4lzz     mre4lzz2    	 mre4sonst%     msolz     msolzstsX     msonstr     stsmin    	 mst5_6_21    	 mst5_6_22!    	 mst5_6_23$    	 mst5_6_24'    	 mst5_6_25*    	 mst5_6_26.     MVMT1     mvspkvpv5     mvsphb;7     mvspy8     MZTABFBAt:     MZTABFBN7>     MZTABFBA     steuerEJ     MRE4JLM    
 centrundenO    
 Lsttab2006O     Lsttab2006_ab2023R     steuerleeren=V     umst5_6`     umvsp`     upanp12e     upanteilAf    	 upanteil20g     upevp_ab_26[h     upevpii     UPLSTLZZk     UPMLSTl     uprund366o     uprund54no     up5_6o     uptab21r     uptab22xt     uptab23Lv     uptab24 x     uptab25y     uptab26{     uptab24A}     uptab24N~     UPVKVR     UPVKVLZZ؁     mberech2    
 MPARA_ab_2026     MPARA     mlst1224    2 "q Qr  Q!r  q  r A A  "q  q A Qq A 3 r r Rq  q A r b A 3      !  a! A A QQaaA RaaA  Q  A b aA  A  A Rb aA  A RbaA  baA A  A R A baA B r 4  A  "QA A  A 3   !  a! A A baA   A B 4  "   R Q A qa "A AA  q  B   qa "A q  A C "   RR  QQraA B  Q A qa "A  A  q  B   qa "A q  A C C 3 Qq q 3 q  r "Q A  q  q A 3 " !A  A    A A r    A    A A r    A 4   A    !A  )q !q  q A !q !q A   )q !q !q !q A A !  A 4   A ! A      q !q  A ba r r b A !q A b!" A " q A    A  q A A 3   A  A  A A    q A    A 3   !  !  !  !  A  q "!!! aA   q   q a   A A A 3   !  !  !  !    A A  r !!!! aA   r   r b   A A A 3   "  !  !    A !  D  r !!!! aA   r   r b   A A A 3   "  !    A !  $ A  r !!!! aA   r   r b   A A A 3   "    A !  $ " A  r !!!! aA   r   r b   A A A 3   )  $ " ! A  r !!!! aA   r   r b   A A A 3  A Rq    A  r r r  r  A   !A "Q  A  A    A     111A 4    A   QQ A A  aA aA 3    A ! A aA  A 3  A   Q q   q  A A  aA baA 3   A B R!baA B   A A    A bRaaA  !A A A     !  !   !  !      A 3   A B R!baA B   A A    A bRaaA  !A A A     !  !   !  !      A 5   A A QbaA   A A    A !     !   A A A QQbaA  A A A      #!!!!!!!!!!!!!A    * !! !! !! !! !! !A     %!!!!!!!!!!!A    %!!!!!!!!!!!!!A       A 4  q B  A !q  q A "q  q A q  " A r q   A r      q q A r "q     111A  3  QQQQaaaaA  A ? 4 !   !!  A A "   !!  A A  A  A 3 "   !!  A A "   !!  A A   A A   A A 3                                        !    !   !   !   A A                                                                  R  QQQQQ3 1  r A  A  aqQ A  A  A  !A qaA # A  aqQ A  A  A   A !B 3 bQ "A aaA  aQ "A aaA B 3   !a!!!A 4  !!!a!!!A 3      A A q   q A A 3    A !  q   q  A A  q     A  A aaA r  A 3    A A q  3    !A  "q  q A !q  q A  q A  q  q A A !q  q A !q  q A A 4 R3 R3 !q  q A   )q !q !q !q A A  !q  q A   )q !q !q !q A A  a!   A 3  Q "q!QC!CCC 3  Q "q!QC!CCC 3  Q "q!QC!CCC 3  Q "q!QC!CCC 3  Q "q!QCCCC 3  Q "q!QCCCB 3  Q "q!QC!CCC 3  Q "q!QC!CCC 3  A   A 3 q  q  3 q  q A  q A r b A RA r "q A r r   A r 4  1A QQ2Q QA  A RQQQQ3  !!!!A !   A   A A R !Q!QA A  !!!!A 2" !a!a!a!aA  QA  QQ QQA !QQ QQA  QQ QQA  QQ QQA A A !QQ QQA !QQ QQA A  !!  A A  A  A A ! A !A A A  !    !   %   A 3   q A    q A    q A  B 1                                 p  +   2     
  I   }      *        K  
        ,           <  o  
  ^    v          E    #    u  =#  '      '  )  R    )  .  t    .  .4    &  P4  :    W  :  bA  9    A  H      H  Q      8Q  V    %  V  _X  c  =  ~X  Y  }  O  Y  ;\    j  \\  b      9b  g      g  w  p  v  x  {      |  f  Y                    ,  b              7    }    ޭ          a        ϶  	      d  #	  !      7	  4  й  ¼  N	  \      	  g       	    A    	        	      -  	    M  _  
        8
    3    [
  
  8  p  ~
  "      
  7      
  L      
  a  9  p  	  v       ,    !  r  8      {  ?        r      V   i   O G  0
2   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4XB18D4FF1253614906      /  F      ]                                                       WINDOWS _4XB18D4FG1430745648                    	  !                                               WINDOWS _5VC0RYQ1O1402360117                                                                       WINDOWS _5VC0RYQ1P1402360117D	      Y	  n	  ~	  	      
  
                                               WINDOWS _4XB18D4FF1402360117                                                                       WINDOWS _4XB18D4FG1402360117`      u            $
  
                                               WINDOWS _4XB18D4FF1402360117          '  4                                                           WINDOWS _4XB18D4FH1253614906|                                                                       WINDOWS _4XB18D4FI1412540643      $  9  I  V                                                       WINDOWS _4XB18D4FJ1359701250                  =                                                 WINDOWS _4XB18D4FK1430745648                  H  e                                                WINDOWS _4XB18D4FL1253614906#      #  #  #  #                                                           WINDOWS _4XB18D4FM1253614906$      $  $  
%  %                                                           WINDOWS _4XB18D4FN1253614906%      	&  &  $&  1&                                                           WINDOWS _4XB18D4FO1253614906&      &  &  &  &                                                           WINDOWS _4XB18D4FF1253614906B'      O'  \'  j'  w'                                                           WINDOWS _4XB18D4FQ1402360117'      '  (  (  "(                                                           WINDOWS _4XB18D4FR1402360117(      (  (  (  (                                                           WINDOWS _4XB18D4FS1402360117A)      N)  [)  i)  v)                                                           WINDOWS _4XB18D4FT1402360117)      )  *  *   *                                                           WINDOWS _4XB18D4FU1402360117*      *  *  *  *                                                           WINDOWS _4XB18D4FV1402360117@+      M+  Z+  i+  v+                                                           WINDOWS _4XB18D4FW1402360117+      +  +  ,  ,                                                           WINDOWS _4XB18D4FX1402360117,      ,  ,  ,  ,                                                           WINDOWS _4XB18D4FY1402309611:-      I-  X-  g-  t-                                                           WINDOWS _4XB18D4FG1402310337.      .  #.  2.  ?.                                                           WINDOWS _4XB18D4G01402360117.      .  .  .  
/                                                           WINDOWS _4XB18D4G11402360117/      /  /  /  /                                                           WINDOWS _4XB18D4G21402360117f0      u0  0  0  0                                                           WINDOWS _4XB18D4G3140236011711      @1  O1  ^1  k1                                                           WINDOWS _4XB18D4G414023601171      2  2  )2  62                                                           WINDOWS _4XB18D4G514023601172      2  2  2  3                                                           WINDOWS _4XB18D4G614023601173      3  3  3  3                                                           WINDOWS _4XB18D4G71402360117]4      l4  {4  4  4                                                           WINDOWS _4XB18D4GB1402360117(5  85  X5  g5  t5  5                                                           WINDOWS _4XB18D4GC14023601176      6  )6  86  E6                                                           WINDOWS _4XB18D4GD14023601176      6  6  6  6                                                           WINDOWS _4XB18D4GE140236011717      >7  K7  Z7  g7                                                           WINDOWS _4XB18IQL714116142447      7  7  7  8      8  =                                               WINDOWS _4XB18D4FF1402360117`C      uC  C  C  C      "D  D                                               WINDOWS _4XB18D4FG1402360117E      F  )F  9F  FF      F  sG                                               WINDOWS _4XB18D4FF1402360117H      H  H  H  H      `I  J                                               WINDOWS _5VC0RYQ231402360117=K      RK  gK  wK  K      K  L                                               WINDOWS _67Z0LS2FU1402360117M      M  M  N  N                                                           WINDOWS _67Z0LS2FV1402360117N      N  N  N  N                                                           WINDOWS _4XB18D4FF1414431386SO  bO  xO  O  O  O      $Q  Q                                               WINDOWS _4XB18D4FF1414431386R  R  R  R  S  S      T  T                                               WINDOWS _69J0XKGSX1414431386%V  4V  JV  [V  kV  xV      W  cX                                               COMMENT RESERVED                                Y                                                            Y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Top = 0
Left = 0
Height = 595
Width = 361
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .F.
Caption = "Nettoberechnung"
ControlBox = .F.
Icon = ..\program files (x86)\microsoft visual foxpro 9\
WindowType = 0
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
mynettoberechnung = thisform


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Activate
thisform.rechnen.click
ENDPROC
                                      %                          U    C     U  THISFORM SIZER	 FRMRESIZE 
 T    %    C  T C    T X 
 T  
     T       T      
  	  T 
 a U  MYNETTOBERECHNUNG THISFORM HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER 
      U  THISFORM RECHNEN CLICK Resize,      Init_      Activate    1 2    A    2  1                       ,         G                   )                           shape      shape      Shape3      FORM1      @Top = 554
Left = 2
Height = 37
Width = 356
Name = "Shape3"
      
commandbutton      
commandbutton      Command7      FORM1      uTop = 556
Left = 339
Height = 33
Width = 16
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command7"
      PROCEDURE Click
If thisform.hScroll3.value < thisform.HScroll3.Max 
	thisform.HScroll3.value = thisform.HScroll3.value + 1
ENDIF
thisform.hscroll3.scroll
ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL3 VALUE MAX SCROLL Click,     1 A  1                              )   
                        shape      shape      Shape2      FORM1      @Top = 516
Left = 2
Height = 37
Width = 356
Name = "Shape2"
      
commandbutton      
commandbutton      Command4      FORM1      uTop = 518
Left = 339
Height = 33
Width = 16
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command4"
      PROCEDURE Click
If thisform.hScroll2.value < thisform.HScroll2.Max 
	thisform.HScroll2.value = thisform.HScroll2.value + 1
ENDIF
thisform.hscroll2.scroll
ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL2 VALUE MAX SCROLL Click,     1 A  1                              )   
                        shape      shape      Shape1      FORM1      @Top = 478
Left = 2
Height = 37
Width = 356
Name = "Shape1"
      label      label      Label1      FORM1     VAutoSize = .T.
WordWrap = .T.
Caption = "Bei der Berechnung wird die normale Berechnungsrichtung vom Brutto zum Netto beibehalten und es werden die gewohnten Anzeigefelder benutzt. Die drei Schieberegler helfen Ihnen, sich an den erforderlichen Bruttobetrag heranzutasten. "
Height = 77
Left = 17
Top = 31
Width = 327
Name = "Label1"
      
commandbutton      
commandbutton      Command1      FORM1      XTop = 3
Left = 3
Height = 25
Width = 115
Caption = "bernehmen"
Name = "Command1"
     PROCEDURE Click
If zi(1+4) < 6 Then
	hinweis("Diese Funktion steht fr Beamtenverhltnisse nicht zur Verfgung")
	Return
Endif
nettoja = 0
register = 0
z_geclickt = 22
With myform1
	For i = 20 To 22
		xxx=Alltrim(Str(i,2,0))
		.extra&xxx..Visible = True
	Next
	&&For i = 26, 27, 29, 30
	.extra26.Visible = false
	.extra27.Visible = True
	&&.extra(29).Visible = True
	.extra30.Visible = True
	&&Next
	For i = 45 To 50
		xxx=Alltrim(Str(i,2,0))
		.extra&xxx..Visible = True
	Next
	.extra32.Visible = True
	.extra43.Visible = True
	For i = 0 To 9 &&16
		Do Case && i
			Case (i >= 0 And i <= 3) .Or. i=5 .Or. i=6 .Or. i=8 .Or. i=9 &&, 11 To 13, 16
				xxx=Alltrim(Str(1+i,4,0))
				.men&xxx..Visible = True
		Endcase
	Next

	&&.Label13.Visible = True
*	.SSPanel5.Visible = False
	EndWith
	zti = 4
	zi(1+4) = 25
	Do zgridaktivieren
	betrag(1+7) = Thisform.TNetto0.Value * 100
	lastt = wert(1+7)
	t_geclickt = 7
	lastclick = 207
	Do betragseingabe
	hinweis("Die Werte wurden bernommen!")
	
ENDPROC
                                   h   %         `  (               U   %C  
f M C@ Diese Funktion steht fr Beamtenverhltnisse nicht zur Verfgung  B 
 T  
 T  
 T 
  ?  (  T CC  Z .extra&xxx..Visible = True
  T 	 
  T 	   T
 	    -(2m T CC  Z .extra&xxx..Visible = True
  T 	   T 	     (	;
 H7I     	        	7 T CC  Z .men&xxx..Visible = True
   
 T  T     T    d T C 
 T 
 T   ) C Die Werte wurden bernommen!  U  ZI HINWEIS NETTOJA REGISTER
 Z_GECLICKT MYFORM1 I XXX EXTRA26 VISIBLE FALSE EXTRA27 TRUE EXTRA30 EXTRA32 EXTRA43 ZTI ZGRIDAKTIVIEREN BETRAG THISFORM TNETTO0 VALUE LASTT WERT
 T_GECLICKT	 LASTCLICK BETRAGSEINGABE Click,     1 QA A     qqA rqA q A A D  1q   q 2                             )                           
commandbutton      
commandbutton      Command2      FORM1      UTop = 3
Left = 120
Height = 25
Width = 115
Caption = "Hilfe"
Name = "Command2"
      VPROCEDURE Click
inet = 110
Msg = "N/Netto-Brutto-Rechner"
DO insinternet
ENDPROC
                                      
   %                             U  : 
 T  n# T  N/Netto-Brutto-Rechner   U  INET MSG INSINTERNET Click,     1  1q 1                       K       )                            
commandbutton      
commandbutton      Command3      FORM1      YTop = 3
Left = 237
Height = 25
Width = 115
Caption = "Schlieen"
Name = "Command3"
     PROCEDURE Click
&&ffentlicher Dienst
nettoja = 0
register = 0
z_geclickt = 22
With myform1
	For i = 20 To 22
		xxx = Alltrim(Str(i,2,0))
		.extra&xxx..Visible = True
	NEXT
	
	&&For i = 26, 27, 29, 30
	.extra26.Visible = false
	.extra27.Visible = True
	&&.extra29.Visible = True
	.extra30.Visible = True
	&&Next
	
	For i = 45 To 50
		xxx = Alltrim(Str(i,2,0))
		.extra&xxx..Visible = True
	NEXT
	
	.extra32.Visible = True
	.extra43.Visible = True
	
	For i = 0 To 9 &&16
		xxx = Alltrim(Str(i,2,0))
		Do Case &&i
			Case Inlist(i,0, 1, 2, 3, 5, 6, 9) &&, 11 To 13, 16 8,
				.men&xxx..Visible = True
		Endcase
	Next

	&&.Label13.Visible = True
	*!*	        .SSPanel5.Visible = False

Endwith
zti = 0
Do zgridaktivieren

Thisform.Release

ENDPROC
     J    1  1                           %                          U  
 T   
 T  
 T 
    (  T CC  Z .extra&xxx..Visible = True
  T    T	  
  T  
   -(2 T CC  Z .extra&xxx..Visible = True
  T  
  T
  
    (	 T CC  Z
 Hd$ C  	 .men&xxx..Visible = True
   
 T    
    U  NETTOJA REGISTER
 Z_GECLICKT MYFORM1 I XXX EXTRA26 VISIBLE FALSE EXTRA27 TRUE EXTRA30 EXTRA32 EXTRA43 ZTI ZGRIDAKTIVIEREN THISFORM RELEASE Click,     1     qqA sqA rq AA A E  q  2                       
      )   1                        label      label      Label2      FORM1      WordWrap = .T.
Caption = "Alle Einstellungen der zuvor aktivierten Gehaltsberechnung auf der rechten Bildschirmhlfte sind weiterhin wirksam und knnen verndert werden."
Height = 48
Left = 17
Top = 113
Width = 327
Name = "Label2"
      label      label      Label3      FORM1      FontBold = .T.
WordWrap = .T.
Caption = "Die Berechnungen werden nicht gespeichert. Sie haben keine Wirkung auf die zuvor eingestellte Gehaltsberechung"
Height = 52
Left = 17
Top = 166
Width = 327
Name = "Label3"
      label      label      Label4      FORM1      qFontBold = .T.
Caption = "Arbeitgeberaufwand"
Height = 18
Left = 62
Top = 223
Width = 189
Name = "Label4"
      label      label      Label5      FORM1      [Caption = "BRUTTOGEHALT"
Height = 18
Left = 62
Top = 246
Width = 192
Name = "Label5"
      label      label      Label6      FORM1      nCaption = "+ AG-Anteil Krankenversicherung"
Height = 18
Left = 62
Top = 267
Width = 192
Name = "Label6"
      label      label      Label7      FORM1      mCaption = "+ AG-Anteil Pflegeversicherung"
Height = 18
Left = 62
Top = 309
Width = 192
Name = "Label7"
      label      label      Label8      FORM1      mCaption = "+ AG-Anteil Rentenversicherung"
Height = 18
Left = 62
Top = 330
Width = 192
Name = "Label8"
      label      label      Label9      FORM1      lCaption = "+ AG-Anteil Arbeitslosenvers."
Height = 18
Left = 62
Top = 351
Width = 192
Name = "Label9"
      label      label      Label10      FORM1      nCaption = "+ ZVK-Umlage+Beitrag+San.-geld"
Height = 18
Left = 62
Top = 372
Width = 192
Name = "Label10"
      label      label      Label11      FORM1      lCaption = "+ Vom AG bernommene Steuern"
Height = 18
Left = 62
Top = 393
Width = 192
Name = "Label11"
      label      label      Label12      FORM1      `Caption = "+ Umlage U1 + U2"
Height = 18
Left = 62
Top = 414
Width = 192
Name = "Label12"
      label      label      Label13      FORM1      hCaption = "+ ATZ-Aufstockungsbetrag"
Height = 18
Left = 62
Top = 435
Width = 192
Name = "Label13"
      label      label      Label14      FORM1      xFontBold = .T.
Caption = "Summe Arbeitgeberaufwand"
Height = 18
Left = 62
Top = 456
Width = 192
Name = "Label14"
      textbox      textbox      TNetto0      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 245
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto0"
      textbox      textbox      TNetto1      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 266
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto1"
      textbox      textbox      TNetto2      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 308
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto2"
      textbox      textbox      TNetto3      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 329
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto3"
      textbox      textbox      TNetto4      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 350
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto4"
      textbox      textbox      TNetto5      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 371
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto5"
      textbox      textbox      TNetto6      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 392
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto6"
      textbox      textbox      TNetto7      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 413
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto7"
      textbox      textbox      TNetto8      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 434
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto8"
      textbox      textbox      TNetto9      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 455
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto9"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 579
Left = 339
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label15      FORM1      RCaption = "grob"
Height = 16
Left = 6
Top = 488
Width = 31
Name = "Label15"
      label      label      Label16      FORM1      TCaption = "mittel"
Height = 16
Left = 6
Top = 526
Width = 31
Name = "Label16"
      label      label      Label17      FORM1      RCaption = "fein"
Height = 16
Left = 6
Top = 562
Width = 31
Name = "Label17"
      
commandbutton      
commandbutton      rechnen      FORM1      uTop = 225
Left = 264
Height = 16
Width = 67
Caption = "rechnen"
Enabled = .F.
Visible = .F.
Name = "rechnen"
     kPROCEDURE Click
	&&mit_Berechnung = True
	sicht(1+9,1+ 28) = thisform.HScroll1.Value
	wert(1+20) = sicht(1+9,1+ 28) * 10000
	sicht(1+9,1+ 28) = thisform.HScroll2.Value
	wert(1+20) = wert(1+20) + sicht(1+9,1+ 28) * 100
	sicht(1+9,1+ 28) = thisform.HScroll3.Value
	wert(1+20) = wert(1+20) + sicht(1+9,1+ 28)
	wert(1+7) = wert(1+20)
	z_geclickt = (22)

	Do Berechnung &&Do attached
	Do anzeige &&Do attached
 
	With thisform
		Op1 = 0
		.TNetto0.value = ROUND(wert(1+22) / 100,2)
		.TNetto1.value = ROUND(effzahl(1+0) / 100,2)
		IF VARTYPE(myform1.t26.value) = "C"
			.TNetto10.value = ROUND(ABS(VAL(myform1.t26.value)),2)
		ELSE
			.TNetto10.value = ROUND(myform1.t26.value,2)
		endif		
		.TNetto2.value = ROUND(effzahl(1+1) / 100,2)
		.TNetto3.value = ROUND(effzahl(1+2) / 100,2)
		.TNetto4.value = ROUND(effzahl(1+3) / 100,2)
		.TNetto5.value = ROUND((wert(1+31) + wert(1+5) + effzahl(1+25)) / 100,2)
		.TNetto6.value = ROUND((wert(1+32) + effzahl(1+23) + wert(1+6)) / 100,2)
		.TNetto7.value = ROUND((effzahl(1+29) + effzahl(1+30)) / 100,2)
		If zi(1+22) = 2 .Or. zi(1+22) = 3
			.TNetto8.value = ROUND(betrag(1+34) / 100,2)
		Else
			.TNetto8.value = ROUND(0,2)
		Endif
		For i = 0 To 8
			xxx=ALLTRIM(STR(i,4,0))
			Op1 = Op1 + ROUND(.TNetto&xxx..value,2)
		NEXT
		op1 = op1 + ROUND(.Tnetto10.value,2)
		.TNetto9.value = Op1
	Endwith
ENDPROC
     a    H  H                           %           '               U   T  
    T C
  ' T  
   & T C C
  d T  
   " T C C
   T C 
 T    	 
  z
 T
   T  CC dT T  CC
 dT %C    C  T  CCC   gT  T  C   T  T  CC
 dT T  CC
 dT T  CC
 dT/ T  CC  C C
 dT/ T  CC! C
 C dT' T  CC
 C
 dT$ %C  C  T  CC# dT  T  C T    (K T CC  Z+ Op1 = Op1 + ROUND(.TNetto&xxx..value,2)
  T
 
 C  T T  
   U  SICHT THISFORM HSCROLL1 VALUE WERT HSCROLL2 HSCROLL3
 Z_GECLICKT
 BERECHNUNG ANZEIGE OP1 TNETTO0 TNETTO1 EFFZAHL MYFORM1 T26 TNETTO10 TNETTO2 TNETTO3 TNETTO4 TNETTO5 TNETTO6 TNETTO7 ZI TNETTO8 BETRAG I XXX TNETTO9 Click,     1 a!q r q    A qA aA qqA A 1                       `      )   H                        
commandbutton      
commandbutton      Command5      FORM1      sTop = 480
Left = 45
Height = 33
Width = 16
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command5"
      PROCEDURE Click
If thisform.HScroll1.value > thisform.HScroll1.Min
	thisform.HScroll1.value = thisform.HScroll1.value - 1
ENDIF
thisform.HScroll1.scroll   
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL1 VALUE MIN SCROLL Click,     1 A  1                              )   
                        
commandbutton      
commandbutton      Command6      FORM1      uTop = 480
Left = 339
Height = 33
Width = 16
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command6"
      PROCEDURE Click
If thisform.hScroll1.value < thisform.HScroll1.Max 
	thisform.HScroll1.value = thisform.HScroll1.value + 1
ENDIF
thisform.hscroll1.scroll
ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL1 VALUE MAX SCROLL Click,     1 A  1                              )   
                        
commandbutton      
commandbutton      Command8      FORM1      sTop = 518
Left = 45
Height = 33
Width = 16
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command8"
      PROCEDURE Click
If thisform.HScroll2.value > thisform.HScroll2.Min
	thisform.HScroll2.value = thisform.HScroll2.value - 1
ENDIF
thisform.HScroll2.scroll   
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL2 VALUE MIN SCROLL Click,     1 A  1                              )   
                        
commandbutton      
commandbutton      Command9      FORM1      sTop = 556
Left = 45
Height = 33
Width = 16
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command9"
      PROCEDURE Click
If thisform.HScroll3.value > thisform.HScroll3.Min
	thisform.HScroll3.value = thisform.HScroll3.value - 1
ENDIF
thisform.HScroll3.scroll   
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL3 VALUE MIN SCROLL Click,     1 A  1                              )   
                        label      label      Label18      FORM1      lCaption = "+ AG-Anteil KV-Zusatzbeitrag"
Height = 18
Left = 62
Top = 288
Width = 192
Name = "Label18"
      textbox      textbox      TNetto10      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 21
Left = 264
Top = 287
Width = 79
DisabledForeColor = 0,0,0
Name = "TNetto10"
      xslider      foxyslider.vcx      	container      hscroll1      FORM1     vTop = 481
Left = 63
Width = 273
Height = 30
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 150
showtips = .T.
min = 0
showtipsalways = .T.
Name = "hscroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      ePROCEDURE Click
thisform.rechnen.click
ENDPROC
PROCEDURE scroll
thisform.rechnen.click
ENDPROC
     #    
  
                           %                             U   
      U  THISFORM RECHNEN CLICK 
      U  THISFORM RECHNEN CLICK Click,      scrollZ     1  2  1                       '         D   Z       )   
                        xslider      foxyslider.vcx      	container      hscroll2      FORM1     vTop = 519
Left = 63
Width = 273
Height = 30
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 150
showtips = .T.
min = 0
showtipsalways = .T.
Name = "hscroll2"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      ePROCEDURE scroll
thisform.rechnen.click
ENDPROC
PROCEDURE Click
thisform.rechnen.click
ENDPROC
     #    
  
                           %                             U   
      U  THISFORM RECHNEN CLICK 
      U  THISFORM RECHNEN CLICK scroll,      ClickZ     1  2  1                       (         D   Z       )   
                        xslider      foxyslider.vcx      	container      Hscroll3      FORM1     vTop = 557
Left = 63
Width = 273
Height = 30
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 150
showtips = .T.
min = 0
showtipsalways = .T.
Name = "Hscroll3"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
      ePROCEDURE Click
thisform.rechnen.click
ENDPROC
PROCEDURE scroll
thisform.rechnen.click
ENDPROC
     #    
  
                           %                             U   
      U  THISFORM RECHNEN CLICK 
      U  THISFORM RECHNEN CLICK Click,      scrollZ     1  2  1                       '         D   Z       )   
                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4XC0L9CDV1253658338      /  F      ]                                                       WINDOWS _4XC0L9CDW1478982572                                                                     WINDOWS _4XC0L9CDX1253658338                                                                       WINDOWS _4XC0L9CDY1253658338C      P  ]  k  x                                                           WINDOWS _4XC0L9CDZ1253658338            ,                                                           WINDOWS _4XC0L9CE01253658338                                                                       WINDOWS _4XC0L9CE11253658338C	      P	  ]	  k	  x	                                                           WINDOWS _4XC0L9CE21253658338	      	  	  
  
                                                           WINDOWS _4XC0L9CE31478982572
      
  
  
  
                                                           WINDOWS _4XC0L9CE41253658338                                                                       WINDOWS _4XC0L9CE51253658338S      `  m  {                                                             WINDOWS _4XC0L9CE61478982572D
      Q
  ^
  m
  z
                                                           WINDOWS _4XC0L9CE712536583381      F  [  k  x                                                       WINDOWS _5T80L3D1X1357532751        ,  9                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 3
Height = 372
Width = 591
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "HOTLINE"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     	PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
                                   @`   %         <  	   *            U    C     U  THISFORM SIZER	 FRMRESIZEV 
      T        T       
     T   a U  THISFORM SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2  rq  2                       ,         G          )                           label      label      Label1      FORM1      }FontBold = .T.
Caption = "Die Hotline ist erreichbar von:"
Height = 18
Left = 31
Top = 11
Width = 529
Name = "Label1"
      label      label      Label2      FORM1      wCaption = "Montag bis Freitag von 09:00 - 16:00 Uhr."
Height = 18
Left = 31
Top = 30
Width = 529
Name = "Label2"
      label      label      Label3      FORM1      jCaption = "Festnetz : 07130 / 40 50 729"
Height = 18
Left = 31
Top = 70
Width = 529
Name = "Label3"
      label      label      Label4      FORM1      hCaption = "Mobil : 0151 / 50 74 14 17"
Height = 18
Left = 31
Top = 89
Width = 529
Name = "Label4"
      label      label      Label5      FORM1      eCaption = "Fax : 07130 / 45 05 14"
Height = 18
Left = 31
Top = 109
Width = 529
Name = "Label5"
      label      label      Label6      FORM1      iCaption = "E-Mail : info@pc-gehalt.de"
Height = 18
Left = 31
Top = 129
Width = 529
Name = "Label6"
      label      label      Label7      FORM1      WordWrap = .T.
Caption = "Viele Fragen klren sich auch durch das Bedienerhandbuch oder mit Hilfe der Programmbeschreibung, die Sie auf meiner Webseite finden."
Height = 33
Left = 31
Top = 188
Width = 529
Name = "Label7"
      label      label      Label8      FORM1      jCaption = "Webseite : www.pc-gehalt.de"
Height = 18
Left = 31
Top = 148
Width = 529
Name = "Label8"
      label      label      Label9      FORM1      WordWrap = .T.
Caption = "Fehlermeldungen, und wie man sie behebt, werden auf meiner Webseite im FORUM erklrt."
Height = 20
Left = 31
Top = 242
Width = 529
Name = "Label9"
      label      label      Label10      FORM1      WordWrap = .T.
Caption = "Ich freue mich ber jeden Kontakt, zgern Sie also nicht, mich zu kontaktieren."
Height = 20
Left = 31
Top = 283
Width = 529
Name = "Label10"
      
commandbutton      
commandbutton      Command1      FORM1      [Top = 324
Left = 236
Height = 28
Width = 118
Caption = "Schlieen"
Name = "Command1"
      .PROCEDURE Click
thisform.release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 348
Left = 567
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
)   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4XC0P3YJE1253662042      /  F      ]                                                       WINDOWS _4XC0P3YJF1449806989                                                                     WINDOWS _4XC0P3YJG1253662042g      t                                                                 WINDOWS _4XC0P3YJH1253662042      *  7  E  R                                                           WINDOWS _4XC0P3YJI1253662042                                                                       WINDOWS _4XC0P3YJJ1253662042a      n  {                                                               WINDOWS _4XC0P3YJK1253662392            '   4                                                            WINDOWS _4XC0P3YJL1253662392                                                                            WINDOWS _4XC0P3YJM1253662392!      (!  7!  D!  Q!                                                           WINDOWS _4XC0P3YJN1253662042!      !  !  !  !                                                           WINDOWS _4XC0P3YJO1253662042M"      Z"  g"  v"  "                                                           WINDOWS _4XC0P3YJP1253662042"      "  #  #  (#                                                           WINDOWS _4XC0P3YJQ1253662042#      #  #  #  #                                                           WINDOWS _4XC0P3YJR1253662042<$      I$  V$  e$  r$                                                           WINDOWS _4XC0P3YJS1253662042$      $  $  
%  %                                                           WINDOWS _4XC0P3YJT1253662042%      %  %  %  %                                                           WINDOWS _4XC0P3YJU1253662042+&      8&  E&  T&  a&                                                           WINDOWS _4XC0P3YJV1253662042&      &  &  &  '                                                           WINDOWS _4XC0P3YJW1253662042u'      '  '  '  '                                                           WINDOWS _4XC0P3YJX1253662042D(      S(  b(  o(  |(                                                           WINDOWS _4XC0P3YJY1253662042(      (  (  (  (                                                           WINDOWS _4XC0P3YJZ1253662042E)      T)  c)  p)  })                                                           WINDOWS _4XC0P3YK01253662042)      )  )  )  )                                                           WINDOWS _4XC0P3YK11253662042G*      V*  e*  r*  *                                                           WINDOWS _4XC0P3YK21253662042*      *  *  *  +                                                           WINDOWS _4XC0P3YK31253662042K+      X+  e+  s+  +                                                           WINDOWS _4XC0P3YK41253662042+      ,  ,  !,  .,                                                           WINDOWS _4XC0P3YK51253662042,      ,  ,  ,  ,                                                           WINDOWS _4XC0P3YK61253662042A-      N-  [-  i-  v-                                                           WINDOWS _4XC0P3YK71253662042-      -   .  .  .                                                           WINDOWS _4XC0P3YK81253662042.      .  .  .  .                                                           WINDOWS _4XC0P3YK914457474591/      >/  K/  Z/  g/                                                           WINDOWS _4XC0P3YKA14457474590      0   0  -0  :0      0  #1                                               WINDOWS _4XC0P3YKC1253662042P2      `2  p2  ~2  2                                                           WINDOWS _4XC0P3YKD12536620422      3  3  -3  :3                                                           WINDOWS _4XC0P3YKE12536620423      3  3  3  3                                                           WINDOWS _4XC0P3YKF1359772935Q4      f4  {4  4  4      4  D5                                               WINDOWS _4XC0P3YKG135924052066      K6  `6  p6  }6      6  U9                                               WINDOWS _4XC0PP43C1253662569;  ;  <  #<  0<  =<                                                           COMMENT RESERVED                                <                                                            =                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 515
Width = 903
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Lizenzinhaber"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif

myclose("#200")
myopen(eigdatfix + "\gehalt"+substr(xjahr4,3,2)+"sr" , 200 ,"userdaten")&&14sr &&jahreswechsel done2021

myget(200, 104,"userdaten")
Thisform.Text1.Value = Alltrim(userdaten.Pfad)
myget(200, 107,"userdaten")

iii = INT(VAL(userdaten.Pfad))
iii2=ALLTRIM(userdaten.Pfad) &&vorher meins: Alltrim(Str(    ,10,0))
myget(200, 108,"userdaten")

Thisform.Text2.Value = iii2 + " " + Alltrim(userdaten.Pfad)
myget(200, 109,"userdaten")
Thisform.Text3.Value = Alltrim(userdaten.Pfad)

Do Case && iii &&Val(Trim$(userdaten.Pfad))
	Case iii < 100
		Thisform.Text1.Value = " Noch keine Angaben, weil das Programm"
		Thisform.Text2.Value= " noch nicht freigeschaltet worden ist."
		Thisform.Text3.Value= ""


		Thisform.zeile15.Caption = "Mit einer PRIVATLIZENZ werden die"
		Thisform.zeile16.Caption = "Jahre "+xjahr3+" und "+xjahr4+" freigegeben." &&jahreswechsel done2021
		Thisform.zeile17.Caption = "Der Nutzungsumfang bleibt auf 5 Personalflle beschrnkt."
		Thisform.zeile18.Caption = "Beim Erwerb einer Dienststellenlizenz wird"
		Thisform.zeile19.Caption = "auch diese letzte Beschrnkungen aufgehoben."
		
	Case iii < 10000
		Thisform.zeile15.Caption = "*) Eine Privatlizenz darf nur auf dem privaten"
		Thisform.zeile16.Caption = "Rechnern des Lizenzinhabers installiert werden."
		Thisform.zeile17.Caption = "Der Nutzungsumfang ist auf 5 Personalflle beschrnkt."
		Thisform.zeile18.Caption = "Beim Erwerb einer Dienststellenlizenz wird der"
		Thisform.zeile19.Caption = "Preis fr die Privatlizenz angerechnet."

	Case iii > 9999
		Thisform.zeile15.Caption = "*) Eine Dienststellenlizenz erlaubt die"
		Thisform.zeile16.Caption = "Nutzung auf allen Rechnern der Dienststelle."
		Thisform.zeile17.Caption = "" &&"Alle Beschftigten drfen das Programm auch auf"
		Thisform.zeile18.Caption = "" &&"ihren privaten Rechnern installieren und mit dem"
		Thisform.zeile19.Caption = "" &&"Dienststellenlizenzschlssel freischalten. "
ENDCASE

Thisform.Text2.Enabled = False

Thisform.zeile21.Caption = "An jedem Jahreswechsel wird die Lizenz fr das Folgejahr"
Thisform.zeile22.Caption = 'automatisch geliefert zum sog. "Fortsetzungspreis".'
Thisform.zeile23.Caption = "Dieser Service kann bis Ende November, mit Wirkung fr das"
Thisform.zeile24.Caption = "nchste Lizenzjahr abbestellt werden."

Thisform.Text4.Value= Alltrim(ditext4) &&Dienstherr
Thisform.Text5.Value= Alltrim(ditext5) &&Gehaltsabrechnende Stelle
Thisform.Text8.Value= Alltrim(ditext8) &&Adresszeile 1
Thisform.Text9.Value= Alltrim(ditext9) &&Adresszeile 2
Thisform.Text10.Value=Alltrim(disteuernummer)
Thisform.Text6.Value= Alltrim(ditext6) &&Vorgabedatum
Thisform.Text7.Value= Alltrim(ditext7) &&Zusatz am Ende

If .not. EMPTY(Dimen.dimpw3) && = 1 &&real gesperrt
	Thisform.check1.Value = True
Else
	Thisform.check1.Value = False
Endif

If .not. EMPTY(Dimen.dimpw1) &&= 1 &&internetaufrufe gesperrt
	Thisform.check2.Value = True
Else
	Thisform.check2.Value = False
ENDIF

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                      %   
      E  I   
            U  I %    
$  T      C #200 9 C  \gehaltC \ sr	 userdaten  Ch	 userdaten  T    C	 
  Ck	 userdaten  T CC	 
 g8 T C	 
  Cl	 userdaten ! T  
     C	 
  Cm	 userdaten  T    C	 
 
 HfP  d
39 T    &  Noch keine Angaben, weil das Programm9 T  
  &  noch nicht freigeschaltet worden ist. T      4 T    ! Mit einer PRIVATLIZENZ werden die; T     Jahre    und  
  freigegeben.L T    9 Der Nutzungsumfang bleibt auf 5 Personalflle beschrnkt.= T    * Beim Erwerb einer Dienststellenlizenz wird? T    , auch diese letzte Beschrnkungen aufgehoben.  '
A T    . *) Eine Privatlizenz darf nur auf dem privatenB T    / Rechnern des Lizenzinhabers installiert werden.I T    6 Der Nutzungsumfang ist auf 5 Personalflle beschrnkt.A T    . Beim Erwerb einer Dienststellenlizenz wird der: T    ' Preis fr die Privatlizenz angerechnet.  'P: T    ' *) Eine Dienststellenlizenz erlaubt die? T    , Nutzung auf allen Rechnern der Dienststelle. T       T       T        T  
   K T    8 An jedem Jahreswechsel wird die Lizenz fr das FolgejahrF T    3 automatisch geliefert zum sog. "Fortsetzungspreis".M T    : Dieser Service kann bis Ende November, mit Wirkung fr das8 T    % nchste Lizenzjahr abbestellt werden. T    C  T    C  T     C!  T  "  C#  T  $  C%  T  &  C'  T  (  C)  %C* + 
6 T  ,  -  Q T  ,     %C* . 
{ T  /  -   T  /     %  0 1 2  T3 C2   0 1 T 
 T3  
   4 5  T  0   0 1 3  T  6   6 1 3 
   7  T  8 a U9  THISFORM TOP MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 MYGET TEXT1 VALUE	 USERDATEN PFAD III III2 TEXT2 TEXT3 ZEILE15 CAPTION ZEILE16 XJAHR3 ZEILE17 ZEILE18 ZEILE19 ENABLED FALSE ZEILE21 ZEILE22 ZEILE23 ZEILE24 TEXT4 DITEXT4 TEXT5 DITEXT5 TEXT8 DITEXT8 TEXT9 DITEXT9 TEXT10 DISTEUERNUMMER TEXT6 DITEXT6 TEXT7 DITEXT7 DIMEN DIMPW3 CHECK1 TRUE DIMPW1 CHECK2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resizeb
    1 AA B! 1C"!"111A 2aRQQQQQQ21 1A 21 1A   A    2 1                       v
     G   
  
  Y    )                           label      label      Label1      FORM1      yFontBold = .T.
FontSize = 18
Caption = "LIZENZINHABER"
Height = 31
Left = 30
Top = 7
Width = 198
Name = "Label1"
      label      label      Label2      FORM1      eCaption = "Name des Lizenzinhabers"
Height = 15
Left = 30
Top = 49
Width = 196
Name = "Label2"
      label      label      Label3      FORM1      eCaption = "Kunden-Nr und Lizenzart"
Height = 15
Left = 30
Top = 93
Width = 196
Name = "Label3"
      label      label      Label4      FORM1      ^Caption = "Lizenzschlssel"
Height = 15
Left = 30
Top = 138
Width = 196
Name = "Label4"
      textbox      textbox      Text1      FORM1      NEnabled = .F.
Height = 22
Left = 30
Top = 65
Width = 353
Name = "Text1"
      textbox      textbox      Text2      FORM1      OEnabled = .F.
Height = 22
Left = 30
Top = 109
Width = 353
Name = "Text2"
      textbox      textbox      Text3      FORM1      OEnabled = .F.
Height = 22
Left = 30
Top = 154
Width = 353
Name = "Text3"
      label      label      zeile15      FORM1      gWordWrap = .T.
Caption = "zeile15"
Height = 18
Left = 30
Top = 214
Width = 353
Name = "zeile15"
      label      label      zeile16      FORM1      gWordWrap = .T.
Caption = "zeile16"
Height = 18
Left = 30
Top = 233
Width = 353
Name = "zeile16"
      label      label      zeile17      FORM1      gWordWrap = .T.
Caption = "zeile17"
Height = 18
Left = 30
Top = 252
Width = 353
Name = "zeile17"
      label      label      zeile18      FORM1      gWordWrap = .T.
Caption = "zeile18"
Height = 18
Left = 30
Top = 271
Width = 353
Name = "zeile18"
      label      label      zeile19      FORM1      gWordWrap = .T.
Caption = "zeile19"
Height = 18
Left = 30
Top = 290
Width = 353
Name = "zeile19"
      label      label      zeile21      FORM1      gWordWrap = .T.
Caption = "zeile21"
Height = 18
Left = 30
Top = 345
Width = 353
Name = "zeile21"
      label      label      zeile22      FORM1      gWordWrap = .T.
Caption = "zeile22"
Height = 18
Left = 30
Top = 364
Width = 353
Name = "zeile22"
      label      label      zeile23      FORM1      gWordWrap = .T.
Caption = "zeile23"
Height = 18
Left = 30
Top = 383
Width = 353
Name = "zeile23"
      label      label      zeile24      FORM1      gWordWrap = .T.
Caption = "zeile24"
Height = 18
Left = 30
Top = 402
Width = 353
Name = "zeile24"
      label      label      Label5      FORM1      FontBold = .T.
FontSize = 18
Caption = "Angaben die auf Ausdrucken erscheinen"
Height = 31
Left = 416
Top = 7
Width = 474
Name = "Label5"
      textbox      textbox      Text4      FORM1      @Height = 22
Left = 416
Top = 65
Width = 353
Name = "Text4"
      textbox      textbox      Text5      FORM1      AHeight = 22
Left = 416
Top = 109
Width = 353
Name = "Text5"
      textbox      textbox      Text6      FORM1      AHeight = 22
Left = 416
Top = 285
Width = 353
Name = "Text6"
      textbox      textbox      Text8      FORM1      AHeight = 22
Left = 416
Top = 154
Width = 353
Name = "Text8"
      textbox      textbox      Text9      FORM1      AHeight = 22
Left = 416
Top = 198
Width = 353
Name = "Text9"
      textbox      textbox      Text10      FORM1      BHeight = 22
Left = 416
Top = 242
Width = 353
Name = "Text10"
      label      label      Label6      FORM1      qCaption = "Dienstherr / Name des Arbeitgebers"
Height = 15
Left = 416
Top = 49
Width = 196
Name = "Label6"
      label      label      Label7      FORM1      hCaption = "Gehaltsabrechnende Stelle"
Height = 15
Left = 416
Top = 94
Width = 196
Name = "Label7"
      label      label      Label8      FORM1      fCaption = "Adresszeile 1 (Strae)"
Height = 15
Left = 416
Top = 139
Width = 196
Name = "Label8"
      label      label      Label9      FORM1      hCaption = "Adresszeile 2 (PLZ, Ort)"
Height = 15
Left = 416
Top = 183
Width = 196
Name = "Label9"
      label      label      Label10      FORM1      ^Caption = "Steuer-Nummer"
Height = 15
Left = 416
Top = 227
Width = 196
Name = "Label10"
      label      label      Label11      FORM1      qCaption = "Vorgabedatum (sonst Systemdatum)"
Height = 15
Left = 416
Top = 270
Width = 196
Name = "Label11"
      label      label      Label12      FORM1      Caption = "Zusatz am Ende der Gehaltsabrechnung (im Moment nicht verwendbar!)"
Height = 15
Left = 416
Top = 329
Width = 397
Name = "Label12"
      editbox      editbox      text7      FORM1      PEnabled = .F.
Height = 75
Left = 416
Top = 346
Width = 352
Name = "text7"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.restlaenge.Caption = ALLTRIM(STR(150 - LEN(this.Value),3,0))
ENDPROC
     %                                 %                             U  4     & T   CCC  > Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM
 RESTLAENGE CAPTION THIS VALUE KeyPress,     1  a1                       ~       )                           checkbox      checkbox      Check1      FORM1      lTop = 433
Left = 416
Height = 19
Width = 124
Alignment = 0
Caption = "REAL gesperrt"
Name = "Check1"
      checkbox      checkbox      Check2      FORM1      wTop = 433
Left = 552
Height = 19
Width = 152
Alignment = 0
Caption = "Internetaufrufe gesperrt"
Name = "Check2"
      label      label      
restlaenge      FORM1      WCaption = "rest"
Height = 15
Left = 771
Top = 346
Width = 37
Name = "restlaenge"
      
commandbutton      
commandbutton      Command1      FORM1      WTop = 480
Left = 236
Height = 28
Width = 211
Caption = "Hilfe"
Name = "Command1"
      EPROCEDURE Click
 Msg = "148"
 inet = 111
DO insinternet
ENDPROC
                                      5   %   o             ~             U  '  T   148
 T o   U  MSG INET INSINTERNET Click,     1  q 1                       :       )                            
commandbutton      
commandbutton      Command2      FORM1      [Top = 480
Left = 455
Height = 28
Width = 211
Caption = "Schlieen"
Name = "Command2"
     mPROCEDURE Click

ditext4=ALLTRIM(Thisform.Text4.Value) &&Dienstherr
ditext5=ALLTRIM(Thisform.Text5.Value) &&Gehaltsabrechnende Stelle
ditext8=ALLTRIM(Thisform.Text8.Value)  &&Adresszeile 1
ditext9=ALLTRIM(thisform.Text9.Value) &&Adresszeile 2
disteuernummer=ALLTRIM(Thisform.Text10.Value)
ditext6=ALLTRIM(Thisform.Text6.Value) &&Vorgabedatum
ditext7=ALLTRIM(Thisform.Text7.value) &&Zusatz am Ende

Dimen.dimpw3 = IIF(EMPTY(Thisform.check1.Value),0,1) &&real gesperrt

Dimen.dimpw1 = IIF(EMPTY(thisform.check2.Value),0,1) &&internetaufrufe gesperrt

do voreinstaus
do dimenaus
thisform.Release

ENDPROC
         n  n                           %         %     	            U    T  C    T C    T C    T C 	   T
 C    T C 
   T C   & T  CC      6& T  CC      6    
    U  DITEXT4 THISFORM TEXT4 VALUE DITEXT5 TEXT5 DITEXT8 TEXT8 DITEXT9 TEXT9 DISTEUERNUMMER TEXT10 DITEXT6 TEXT6 DITEXT7 TEXT7 DIMEN DIMPW3 CHECK1 DIMPW1 CHECK2 VOREINSTAUS DIMENAUS RELEASE Click,     1 RQQQQQQbbr q  2                       b      )   n                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 492
Left = 885
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %   A      G  z  B  XW    U   T  Cs   (   C #115   wvwalt  T   C     (<  T   C     T   C        (A  T 	  C   	    ( T 
  C   
  T   C     T   C     T 
  C   
  T   C     T   C     T   C     T   C     T   C      T     T     T     T     T     T     T     T     T     T     T     T     T    T     T !   T "   T #   T $   %  (% T & % C%  &    ((, T '  C   '   Ct   wvw(   U)  A LOF M MYGET WVW EFFZ WVWALT K ZNAM TNAM TZNAM TBNAM LST SOZ ZVK WEI TEI BRU LEI BDA NOCHFREI Z55	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR ZHLKIND SOLDATEN ZNR63 DIMATZAUFSTOCKUNG
 DIMATZSOLI DIMATZKIRCHE RESERVE2 RESERVE3 RESERVE4 RESERVE5 RESERVE6 RESERVE7 I ZULAGEN SCHLSS MYPUTE C   \GCC  Z i.CC  Zs wvwalt  $ C   \G.tttt wvw  6 C   \GCC  Z i.13u wnw     C #115  C #116  C #117 9 T    \GCC  Z i.CC  Z Delete File "&hsxdat"
 T    \G.ttt9 T	    \GCC  Z i.CC  Z# rename "&hsxren1" to "&hsxren2"
 U
  MYOPEN EIGDAT MSG2 I J
 A1AUSTAUSCHEN MYCLOSE HSXDAT HSXREN1 HSXREN2E C   \GCC  Z p.CC  Zs wvwalt  $ C   \G.tttt wvw  6 C   \GCC  Z p.13u wnw     C #115  C #116  C #117 9 T    \GCC  Z p.CC  Z Delete File "&hsxdat"
 T    \G.ttt9 T	    \GCC  Z p.CC  Z" reName "&hsxren1" to &hsxren2"
 U
  MYOPEN EIGDAT MSG2 I J
 A1AUSTAUSCHEN MYCLOSE HSXDAT HSXREN1 HSXREN2E C   \GCC  Z r.CC  Zs wvwalt  $ C   \G.tttt wvw  6 C   \GCC  Z r.13u wnw     C #115  C #116  C #117 9 T    \GCC  Z r.CC  Z Delete File "&hsxdat"
 T    \G.ttt9 T	    \GCC  Z r.CC  Z# rename "&hsxren1" to "&hsxren2"
 U
  MYOPEN EIGDAT MSG2 I J
 A1AUSTAUSCHEN MYCLOSE HSXDAT HSXREN1 HSXREN2
 T   
 T   %     
J %   2 Bereit zur Datenbernahme (3. Schritt ganz rechts)
 C/ Bitte beachten Sie den Hinweis in roter SchriftC
  in der rechten Spalte % Bitte Quellverzeichnis noch auswhlenx  
 C  T  	  T
 C 	 R T  C 	 RG If .not. Dir("&hsxdir", vbDirectory) = Right(mytablett.Dir1, 7) T  
  Mkdir "&hsxdir"
  
  ( A  (
=? %CC  \GCC
  Z i.CC  Z > - d C  \GCC
  Z i.CC  Z 
  \GCC
  Z i.CC  Z  & T   CC
  Z  Info? %CC  \GCC
  Z p.CC  Z >  dZ C  \GCC
  Z p.  
  \GCC
  Z p.CC  Z  & T   CC
  Z  Plan? %CC  \GCC
  Z r.CC  Z >  9d C  \GCC
  Z r.CC  Z 
  \GCC
  Z r.CC  Z    . %CC  \UrlaubC \ > s B C  \UrlaubC \ 
  \UrlaubC \  . %CC  \UrlaubC \ >  9B C  \UrlaubC \ 
  \UrlaubC \  . %CC  \UrlaubC \ > k B C  \UrlaubC \ 
  \UrlaubC \  . %CC  \UrlaubC \ >  1B C  \UrlaubC \ 
  \UrlaubC \  + %CC  \jdaC \ > ` < C  \jdaC \ 
  \jdaC \  + %CC  \jdaC \ >  < C  \jdaC \ 
  \jdaC \  + %CC  \jdaC \ > F < C  \jdaC \ 
  \jdaC \  + %CC  \jdaC \ >  < C  \jdaC \ 
  \jdaC \  2 %CC  \ZuschlgeAC \ > 3 J C  \ZuschlgeAC \ 
  \ZuschlgeAC \  2 %CC  \ZuschlgeAC \ >  
	J C  \ZuschlgeAC \ 
  \ZuschlgeAC \  2 %CC  \ZuschlgeAC \ > C	 	J C  \ZuschlgeAC \ 
  \ZuschlgeAC \  2 %CC  \ZuschlgeAC \ > 	 
J C  \ZuschlgeAC \ 
  \ZuschlgeAC \  2 %CC  \ZuschlgeBC \ > S
 
J C  \ZuschlgeBC \ 
  \ZuschlgeBC \  2 %CC  \ZuschlgeBC \ > 
 -J C  \ZuschlgeBC \ 
  \ZuschlgeBC \  2 %CC  \ZuschlgeBC \ > c J C  \ZuschlgeBC \ 
  \ZuschlgeBC \  2 %CC  \ZuschlgeBC \ >  =J C  \ZuschlgeBC \ 
  \ZuschlgeBC \  * %CC  \SVC \ > k : C  \SVC \ 
  \SVC \  * %CC  \SVC \ >  
: C  \SVC \ 
  \SVC \  * %CC  \SVC \ > K
 
: C  \SVC \ 
  \SVC \  * %CC  \SVC \ > 
 
: C  \SVC \ 
  \SVC \     U  OP1 WELCHESJAHR OP2 MODUS	 MYTABLETT ZEILE0 CAPTION MYCLOSE MSG1 DIR1 MSG2 HSXDIR EIGDAT I JAHR1 JAHR5 J DIR FILECOPY
 SSCOMMAND1 XJAHR1 XJAHR2 XJAHR3 XJAHR4 ZUMPROGRAMM    u  T  T  T ( T    < T   T  Hilfe    	  T  T    <( T ( T    < T   T 	 Schlieen    
  T < T 
 T ( T X T   T 
  > T , bernahme der Personalflle aus der Version   T     T        T    2 T  T P T    PU T 5 1. Whlen Sie das Laufwerk, auf dem sich die Version  
  befindet. T        T     T  T    P T        T    2 T     ( T d T    Pu T & 2. Whlen Sie das Verzeichnis "Gehalt" 9  und dann Ihr Userverzeichnis mit D_o_p_p_e_l_k_l_i_c_k . T       w T      T   T  T  T d T    T        T     T     ( T     T    d T    T    ; %CC C:\Programme\Gehalt 	 \User001\ > 
 T   T C C > 10 %CC   >  T       T      \User001  6 T     C:\Programme\Gehalt  \User001      T    " T          T , T     T  3. Datenbernahme T       b T     " T         
 T ( T     T  ( T   I. Verzeichnis bernehmen     u T     -" T          T  T     T 3 Damit werden die Daten aus dem Programmverzeichnis    in das Programmverzeichnis  "  kopiert und dabei neu formatiert. T       +	 T     " T         
 T ( T     T  6 T (  II. Kostenstellen, Kr.Kassen bernehmen      
 T     -" T          T  T     T ! T B Klicken Sie auf diese Schaltflche, wenn Sie die Bezeichnungen frC
  - 25 SachbezgeC
  - 28 KostenstellenC
  - 37 KrankenkassenC
  - 44 EinbehalteC
  bernehmen mchten." 
2 Ansonsten kann dieser Schritt bersprungen werden. T      #  T     " T         
 T ( T     T  ; T   III. User001 von Dez    -> Januar $     % -
 T   #  " T          T  T     T ! T I Damit werden die in Schritt I bernommenen Daten fr die Zeit von Januar    bis Dezember  >  fortgeschrieben. Mageblich dafr ist der Stand vom Dezember   . Wenn schon Daten fr  2  angelegt worden sind, werden diese berschrieben. T      & 
 T     d T      T d T      T   T' C(  T  
 T)   T 
   T     T     U* 	 MYTABLETT
 SSCOMMAND2 TOP LEFT HEIGHT WIDTH VISIBLE TRUE CAPTION
 SSCOMMAND3 KASTEN1 FONT SIZE BOLD XJAHR3	 BACKCOLOR ZEILE1 DRIVE1 ZEILE2 ZEILE4 FONTBOLD EIGDAT MUSER DIR1 MSG DIR PATH ZEILE3
 SSCOMMAND1 ZEILE5 XJAHR4
 SSCOMMAND4 ZEILE7 FALSE CHR
 SSCOMMAND5 XJAHR ZEILE6 ZEILE0	 FORECOLOR QBCOLOR WORDWRAP T  C  >$ %C    \ User6   R C0 Bitte whlen Sie zuerst ein User-Verzeichnis aus  User-Verzeichnisx B 
 C  T  C  > T C      T   \Texte\mytext19  T   \Texte\mytext20  T   \Texte\mytext21  T   \Texte\mytext18  T	 
  \Texte\mytext18  T 
  \Texte\mytext19  T 
  \Texte\mytext20  T
 
  \Texte\mytext21  T 
  \Texte\mytext22" myopen("&msg1", 40, "woerter")
" myopen("&msg2", 41, "woerter")
" myopen("&msg3", 42, "woerter")
" myopen("&msg4", 30, "woerter")
" myopen("&msg5", 31, "woerter")
" myopen("&msg6", 32, "woerter")
" myopen("&msg7", 33, "woerter")
" myopen("&msg8", 34, "woerter")
 T  T    T  T 8   T 9 T [   T  T    C 0      T    Fertig U  I	 MYTABLETT DIR1 MYCLOSE MSG MSG1 MSG2 MSG3 MSG9 MSG4 EIGDAT MSG5 MSG6 MSG7 MSG8 K M TEXTEDURCHLAUF	 DATEIOPEN
 SEITELADEN
 SSCOMMAND4 CAPTION T  C   (   C #1   wvwbak 
   T    T  C 
 H W C  
 C  C 
 C 	
 C  T  C x C 
 C 
 C  C 
 C 	 C 
 C 	 T    
 H C   T    C  T   C ^ %C  
< T   Z T    C  T   C  T   C 9 %C  T  
 T  C  5 T    C  %C  T   T  C   T    C ? %C  T  
 T  C  ; T    C  %C  T   T  C   T  !  C 	E %C # T   T  C  A T  "  C 
 %C  T   T  C   T  #  C K %C ) T   T  C  G T     C  %C  T   T  C   T  $  C 
 T   C & T   C R T   C ~ T   C  T   C  T   C  T   C . T   C Z T   C  %C  T    T  %  T  C   %C  U	 %C 
*	 T  C  Q	 T  C   x	 T  C   T  C   (2	 T   C       (
 T   C      (7<
 T   C      (; T 	  CC  	 8 T 
  CC  
 8 T   C    T   C    T 
  C  
  T   C    T   C    T   C      ( T     T 	    T 
    T      T   01/   C #2   wvw   U  K LOF M MYGET WVWBAK WVW ZNAM J TNAM TZNAM TBNAM LST SOZ ZVK WEI TEI BRU EFFZ BDA MYPUT  U    U      (   C 40    woerter  C 30    woerter  C 41    woerter  C 31    woerter  C 42    woerter  C 32    woerter  C 33    woerter  C 34    woerter   U  I K M MYGET MYPUTI
 H
 B C      _  % ,S  T   , 011100 [   C       % ,  T   , 111100    CC      % ,  T   , 000030   CC     ] % ,Q T   , 000070 Y  C      T     C      C      C     	 T     C     
 T     C     K T     C     z T     C     
 T      C      T     C      T    
 C     6 T     C     e T     C      T     C      T     C      T    ! C     ! T    $ C     P T     C      T    # C      T    % C      T      C     ( T     T     000031 C     s T    ' T     000031 C      T    ' T     000031 C     	 T    ( T     000011 CC     !"B T     020001  U  WVW ZNAM A SCHLSS
 a1austauschen,      a1iwegd     a1pweg[     a1rwegQ	     daten2016kopierenH     Daten2016suchen     kostenstellen2012w)     monateumwandeln-     stammumwandeln=:     anpassungsfaktorholenD:     TextedurchlaufK:     umschlsselnl;    P1 qqA rA rA 111111111111rQA rA rA 3 QAar 12 RAar !3 QAar 13   RA A  Qq1A rq AA a A a AA A A  !A  !A  !A  !A  A  A  A  A % A " A " A " A % A " A " A " A  A  A  A  A r 3     1A    qA      A   Q A   A  Q A     ! A  A  2 A  aA !  A ! a A !  A ! a aA !  Q A ! a A !   A A A !  A 6 !A !A A  ""!!#!!!!  q   q   q   q  s q 4 r b qaA  aaaaab aA aaaaaab aA aab aA aab aA aab aA aab aA aab aA aab aA aab aA aaaaaaaaaaaaaaaaaaaaa aA A b A  A rA rA qA rA qaaaaA B A 4 3 4 qA 5   B  B  B  B aaaaaaaaaaaaaaaaaaaaaaB 2                           3     
  O   @   -
  ^  a   M   {    t   Z     E$        m$  9  :  b  9  ?      ?  oM  ,  "  M  M    #  M  M    $  M  bO    /  O  6X    0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4AN15I8141390837233      /  F      ]        #              ,      5                       WINDOWS _4AN15I8151519537575>      J  V      e      <                                                 WINDOWS _4AN15I8141432048525p0      |0  0  0  0                                                           WINDOWS _62E0N041T13908363222      2  2  2  	3                                                           WINDOWS _4AN15I815143204852543      C3  R3  _3  3      ;4  4                                               WINDOWS _4AN15I81613908363225      5  5  5  6                                                           WINDOWS _62E0N0423143204852516      @6  O6  \6  6      7  7                                               WINDOWS _4AN15I81614850659568      8  8  8  8      W  c                                               WINDOWS _4AN15I8171254663536q  'q  Gq  Vq  cq  rq                                                           WINDOWS _4AN19VQN21519537575r      .r  Cr  Sr  br      r  s                                               WINDOWS _4XQ18F6KY1254663536u      u  )u  6u  Eu                                                           COMMENT RESERVED                                u                                                            u                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      WPROCEDURE BeforeOpenTables
CREATE cursor hstmpname (nr N(5,0), namen C(35))
ENDPROC
                                        %                             U  9 6 h	 hstmpname  N   C# U 	 HSTMPNAME NR NAMEN BeforeOpenTables,     1 a1                       L       )                            1      1      form      form      AUSWAHL      BorderStyle = 3
Height = 605
Width = 263
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "auswhlen..."
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "AUSWAHL"
     PROCEDURE Unload
SELECT hstmpname
USE

RETURN thisform.tag
ENDPROC
PROCEDURE Init
PARAMETERS xausw
IF PCOUNT()=0
	xausw=0
ENDIF

PUBLIC ishstmpname &&hstmpname,
*hstmpname = ""
ishstmpname = .f.
thisform.MinHeight = 200
IF zti = 41
	DO case
		CASE xausw = 401
			thisform.optiongroup1.value=xausw-399+1
		CASE xausw = 402
			thisform.optiongroup1.value=xausw-399+1
		CASE xausw = 403
			thisform.optiongroup1.value=xausw-399+1
		OTHERWISE
			IF xausw > 4
				thisform.optiongroup1.value=xausw-181+1+1
			ELSE
				thisform.optiongroup1.value=xausw+1
			endif
	endcase
else
	thisform.optiongroup1.value=xausw+1
endif
*hstmpname = "tmp"+SYS(2015)

*CREATE cursor hstmpname (nr N(5,0), namen C(35))
xarrayname="zt"+ALLTRIM(STR(zti,2,0))

IF xarrayname == "zt0" .and. ALEN(&xarrayname,1) > 54 &&namen der Personalflle knnen sehr viele sein!
	ishstmpname = .t.
	thisform.optiongroup1.Visible = .f.
	thisform.optiongroup1.enabled = .f.	
	thisform.grdhstmpname.Visible = .t.
	thisform.grdhstmpname.enabled = .t.	
	thisform.grdhstmpname.ReadOnly = .t.

	SELECT hstmpname
	
	filledoptions = ALEN(&xarrayname,1)

	FOR hsa = 1 TO filledoptions
		APPEND BLANK
		flush
		replace hstmpname.nr WITH hsa
		replace hstmpname.namen WITH zt0(hsa)		
		flush
	NEXT

*	thisform.grdhstmpname.RecordSource = "hstmpname"
	

	SELECT hstmpname

	SET FILTER TO .not. EMPTY(namen)
	GO top

	GOto zi(1+0) + 1
	
	thisform.grdhstmpname.refresh
ELSE
	ishstmpname = .f.
	thisform.optiongroup1.Visible = .t.
	thisform.optiongroup1.enabled = .t.	
	thisform.grdhstmpname.Visible = .f.
	thisform.grdhstmpname.enabled = .f.	

	filledoptions=0

	FOR hsa = 1 TO ALEN(&xarrayname,1)
		IF .not. EMPTY(&xarrayname(hsa))
			filledoptions = filledoptions + 1
		ENDIF
	next

	FOR hsa = 1 TO filledoptions
		hsx="option"+ALLTRIM(STR(hsa,2,0))
		thisform.optiongroup1.&hsx..enabled = .t.
		thisform.optiongroup1.&hsx..visible = .t.
		thisform.optiongroup1.&hsx..caption = &xarrayname(hsa)
	NEXT

	FOR hsa = filledoptions+1 TO 54
		hsx="option"+ALLTRIM(STR(hsa,2,0))
		thisform.optiongroup1.&hsx..enabled = .f.
		thisform.optiongroup1.&hsx..visible = .f.
		thisform.optiongroup1.&hsx..caption = ""
	NEXT

	IF xarrayname == "zt25"
		IF zi(1+4) < 5 &&HS beamte
			filledoptions = 5
			FOR xaa = 5 TO 54
				xxx = ALLTRIM(STR(xaa,2,0))
				thisform.optiongroup1.option&xxx..visible = false
				thisform.optiongroup1.option&xxx..enabled = false
			NEXT
		ELSE
			filledoptions = filledoptions - 5
			FOR xaa = 1 TO 5
				xxx = ALLTRIM(STR(xaa,2,0))
	*			thisform.optiongroup1.option&xxx..visible = false
				thisform.optiongroup1.option&xxx..enabled = false
			NEXT
		ENDIF
	endif	

	IF xarrayname == "zt26" .and. zi(1+52) = 12
		thisform.optiongroup1.option2.Enabled = .f.
		thisform.optiongroup1.option4.Enabled = .f.
		thisform.optiongroup1.option5.Enabled = .f.
		thisform.optiongroup1.option6.Enabled = .f.
		thisform.optiongroup1.option7.Enabled = .f.
		thisform.optiongroup1.option8.Enabled = .f.								
	ENDIF
*!*		IF zi(1+2) = 10 .and. xarrayname == "zt8" &&NRW
*!*			IF (welchesjahr = 2022 .and. zi(1+20)+1 = 12) .or. welchesjahr > 2022
*!*				thisform.optiongroup1.option3.Enabled = .f.
*!*				thisform.optiongroup1.option4.Enabled = .f.
*!*				FOR hsa = 18 TO 31
*!*					hsfeld = "option"+ALLTRIM(STR(hsa,2,0))
*!*					thisform.optiongroup1.&hsfeld..Enabled = .t.
*!*				next
*!*			else
*!*				thisform.optiongroup1.option3.Enabled = .t.
*!*				thisform.optiongroup1.option4.Enabled = .t.
*!*				FOR hsa = 18 TO 31
*!*					hsfeld = "option"+ALLTRIM(STR(hsa,2,0))
*!*					thisform.optiongroup1.&hsfeld..Enabled = .f.
*!*				next			
*!*			ENDIF
*!*		endif
	IF filledoptions > 27
		thisform.Width = 503
		thisform.optiongroup1.Width = 482
		thisform.edit1.width = 482
		thisform.command1.Left = 230
	ELSE
		hsss = ALLTRIM(STR(filledoptions,3,0))
		thisform.Width = 263
		thisform.optiongroup1.Width = 236
		thisform.optiongroup1.Height = thisform.optiongroup1.option&hsss..top + 17 + 5
		thisform.edit1.top = thisform.optiongroup1.option&hsss..top + 17 + 5 + 11 + 10
		thisform.edit1.width = 236
		thisform.command1.Left = 107
		
	ENDIF
ENDIF

	IF xarrayname == "zt34" .and. zi(1+22) >= 2 &&ATZ
		thisform.optiongroup1.option1.Enabled = .f.
		thisform.optiongroup1.option2.Enabled = .f.
		thisform.optiongroup1.option3.Enabled = .f.
		thisform.optiongroup1.option4.Enabled = .f.
		thisform.optiongroup1.option5.Enabled = .f.
		thisform.optiongroup1.option6.Enabled = .f.
		thisform.optiongroup1.option7.Enabled = .f.
		thisform.optiongroup1.option8.Enabled = .f.	
		thisform.optiongroup1.option9.Enabled = .t.
		thisform.optiongroup1.option10.Enabled = .t.
		thisform.optiongroup1.option11.Enabled = .t.
		thisform.optiongroup1.option12.Enabled = .f.
	ENDIF

	IF xarrayname == "zt34" .and. zi(1+22) < 2 &&Kindergeld
		thisform.optiongroup1.option1.Enabled = .t.
		thisform.optiongroup1.option2.Enabled = .t.
		thisform.optiongroup1.option3.Enabled = .t.
		thisform.optiongroup1.option4.Enabled = .t.
		thisform.optiongroup1.option5.Enabled = .t.
		thisform.optiongroup1.option6.Enabled = .t.
		thisform.optiongroup1.option7.Enabled = .t.
		thisform.optiongroup1.option8.Enabled = .t.
		thisform.optiongroup1.option9.Enabled = .f.
		thisform.optiongroup1.option10.Enabled = .f.
		thisform.optiongroup1.option11.Enabled = .f.
		thisform.optiongroup1.option12.Enabled = .t.
	ENDIF

IF EMPTY(myform1.Kcombo.Anleitungstext.Caption)
	thisform.edit1.Value = ""
	thisform.edit1.visible = false
else
	thisform.edit1.Value = myform1.Kcombo.Anleitungstext.Caption
	thisform.edit1.visible = true
ENDIF
IF thisform.edit1.visible = false
	thisform.command1.Top = thisform.edit1.top
	thisform.height = thisform.command1.Top + thisform.command1.Height + 10
ENDIF

thisform.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

*optiongroup wird gefllt mit function gruppen()

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdhstmpname.column1.text1.fontsize = thisform.grdhstmpname.column1.fontsize
thisform.grdhstmpname.column2.text1.fontsize = thisform.grdhstmpname.column1.fontsize
ENDPROC
     q    X  X                        (   %   k                       U    F   Q B   U 	 HSTMPNAME THISFORM TAGo 4   %Ct % 
 T     7  T - T   % )R
 Hi N     T          T          T      2N %  + T      J T        q T       T  ztCC  Z> IF xarrayname == "zt0" .and. ALEN(&xarrayname,1) > 54  T a T   - T  	 - T 
  a T 
 	 a T 
  a F ' filledoptions = ALEN(&xarrayname,1)
 
 (   [ >  
  >  C 
   [  F  G(C 
 #) #C 
  
    T - T   a T  	 a T 
  - T 
 	 -
 T  * FOR hsa = 1 TO ALEN(&xarrayname,1)( IF .not. EMPTY(&xarrayname(hsa)) T     
 ( ~! T  optionCC
  Z- thisform.optiongroup1.&hsx..enabled = .t.
- thisform.optiongroup1.&hsx..visible = .t.
: thisform.optiongroup1.&hsx..caption = &xarrayname(hsa)
  
  (6D! T  optionCC
  Z- thisform.optiongroup1.&hsx..enabled = .f.
- thisform.optiongroup1.&hsx..visible = .f.
, thisform.optiongroup1.&hsx..caption = ""
  %  zt25 %C 

 T   (6 T CC  Z5 thisform.optiongroup1.option&xxx..visible = false
5 thisform.optiongroup1.option&xxx..enabled = false
   T    ( T CC  Z5 thisform.optiongroup1.option&xxx..enabled = false
   $ %  zt26 C5 	? T   	 - T   	 - T   	 - T   	 - T   	 - T   	 -  %  T   T    T    T      T! CC  Z T   T   R thisform.optiongroup1.Height = thisform.optiongroup1.option&hsss..top + 17 + 5
R thisform.edit1.top = thisform.optiongroup1.option&hsss..top + 17 + 5 + 11 + 10
 T    T    k  $ %  zt34 C 		 T  " 	 - T   	 - T  # 	 - T   	 - T   	 - T   	 - T   	 - T   	 - T  $ 	 a T  % 	 a T  & 	 a T  ' 	 - $ %  zt34 C 
	
 T  " 	 a T   	 a T  # 	 a T   	 a T   	 a T   	 a T   	 a T   	 a T  $ 	 - T  % 	 - T  & 	 - T  ' 	 a  %C( ) * + # T      T   ,  Z T   ( ) * +  T   -   %   ,  T  .   . $ T /   .   / 
 
    % / 0 1  T2 C1  / 0 T 
 T2  
  3 4  T /  / 0 2  T    0 2 
  5  T 6 a U7  XAUSW ISHSTMPNAME THISFORM	 MINHEIGHT ZTI OPTIONGROUP1 VALUE
 XARRAYNAME VISIBLE ENABLED GRDHSTMPNAME READONLY	 HSTMPNAME HSA
 FILLEDOPTIONS NR NAMEN ZT0 ZI REFRESH HSX XAA XXX OPTION2 OPTION4 OPTION5 OPTION6 OPTION7 OPTION8 WIDTH EDIT1 COMMAND1 LEFT HSSS OPTION1 OPTION3 OPTION9 OPTION10 OPTION11 OPTION12 MYFORM1 KCOMBO ANLEITUNGSTEXT CAPTION FALSE TRUE TOP HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE RESIZE
 AUTOCENTERW  C    " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDHSTMPNAME COLUMN1 TEXT1 FONTSIZE COLUMN2 Unload,      Initd      Resize    1 q A  2 q  A r   !!!  qA A  qA  r rrQ A QA A u  Q     A A rA A RQ qqQQA  qqRA A A BAAAAAAA AA1 q1!!11B A BAAAAAAAAAAAAA BAAAAAAAAAAAAA 11 1A qAA    A    5 !!1                       >         Y                   )   X                        grid      grid      grdHstmpname      AUSWAHL     ColumnCount = 2
DeleteMark = .F.
Height = 442
Left = 15
Panel = 1
ReadOnly = .T.
RecordSource = "hstmpname"
RecordSourceType = 1
ScrollBars = 2
ToolTipText = "Aushlen mir DOPPELKLICK"
Top = 9
Width = 236
Name = "grdHstmpname"
Column1.ControlSource = "hstmpname.nr"
Column1.Width = 48
Column1.ReadOnly = .T.
Column1.Format = "99999"
Column1.InputMask = "99999"
Column1.Name = "Column1"
Column2.ControlSource = "hstmpname.namen"
Column2.Width = 156
Column2.ReadOnly = .T.
Column2.Name = "Column2"
      header      header      Header1      AUSWAHL.grdHstmpname.Column1      #Caption = "Nr."
Name = "Header1"
      textbox      textbox      Text1      AUSWAHL.grdHstmpname.Column1      BorderStyle = 0
ControlSource = "hstmpname.nr"
Format = "99999"
InputMask = "99999"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      dPROCEDURE DblClick
thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,6,0))
thisform.release
ENDPROC
                                     f   %                             U  4 ' T    I:CC   Z
     U  THISFORM TAG	 HSTMPNAME NR RELEASE DblClick,     1 q 1                       Y       )                            header      header      Header1      AUSWAHL.grdHstmpname.Column2      $Caption = "Name"
Name = "Header1"
      textbox      textbox      Text1      AUSWAHL.grdHstmpname.Column2      BorderStyle = 0
ControlSource = "hstmpname.namen"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      dPROCEDURE DblClick
thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,6,0))
thisform.release
ENDPROC
                                     f   %                             U  4 ' T    I:CC   Z
     U  THISFORM TAG	 HSTMPNAME NR RELEASE DblClick,     1 q 1                       Y       )                            optiongroup      optiongroup      Optiongroup1      AUSWAHL     ButtonCount = 54
Value = 0
Height = 442
Left = 13
Top = 11
Width = 236
Name = "Optiongroup1"
Option1.Caption = "zt5(1)"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 224
Option1.Name = "Option1"
Option2.Caption = "zt5(2)"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 21
Option2.Width = 224
Option2.Name = "Option2"
Option3.Caption = "zt5(3)"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 37
Option3.Width = 224
Option3.Name = "Option3"
Option4.Caption = "zt5(4)"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 53
Option4.Width = 224
Option4.Name = "Option4"
Option5.Caption = "zt5(5)"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 69
Option5.Width = 224
Option5.Name = "Option5"
Option6.Caption = "zt5(6)"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 85
Option6.Width = 224
Option6.Name = "Option6"
Option7.Caption = "zt5(7)"
Option7.Enabled = .T.
Option7.Height = 17
Option7.Left = 5
Option7.TabStop = .T.
Option7.Top = 101
Option7.Visible = .T.
Option7.Width = 224
Option7.Name = "Option7"
Option8.Caption = "zt5(8)"
Option8.Enabled = .T.
Option8.Height = 17
Option8.Left = 5
Option8.TabStop = .T.
Option8.Top = 117
Option8.Visible = .T.
Option8.Width = 224
Option8.Name = "Option8"
Option9.Caption = "zt5(9)"
Option9.Enabled = .T.
Option9.Height = 17
Option9.Left = 5
Option9.TabStop = .T.
Option9.Top = 133
Option9.Visible = .T.
Option9.Width = 224
Option9.Name = "Option9"
Option10.Caption = "zt5(10)"
Option10.Height = 17
Option10.Left = 5
Option10.Top = 149
Option10.Width = 224
Option10.Name = "Option10"
Option11.Caption = "zt5(11)"
Option11.Height = 17
Option11.Left = 5
Option11.Top = 165
Option11.Width = 224
Option11.Name = "Option11"
Option12.Caption = "zt5(12)"
Option12.Height = 17
Option12.Left = 5
Option12.Top = 180
Option12.Width = 224
Option12.Name = "Option12"
Option13.Caption = "zt5(13)"
Option13.Height = 17
Option13.Left = 5
Option13.Top = 195
Option13.Width = 224
Option13.Name = "Option13"
Option14.Caption = "zt5(14)"
Option14.Height = 17
Option14.Left = 5
Option14.Top = 211
Option14.Width = 224
Option14.Name = "Option14"
Option15.Caption = "zt5(15)"
Option15.Height = 17
Option15.Left = 5
Option15.Top = 227
Option15.Width = 224
Option15.Name = "Option15"
Option16.Caption = "zt5(16)"
Option16.Height = 17
Option16.Left = 5
Option16.Top = 243
Option16.Width = 224
Option16.Name = "Option16"
Option17.Caption = "zt5(17)"
Option17.Height = 17
Option17.Left = 5
Option17.Top = 259
Option17.Width = 224
Option17.Name = "Option17"
Option18.Caption = "zt5(18)"
Option18.Height = 17
Option18.Left = 5
Option18.Top = 275
Option18.Width = 224
Option18.Name = "Option18"
Option19.Caption = "zt5(19)"
Option19.Height = 17
Option19.Left = 5
Option19.Top = 291
Option19.Width = 224
Option19.Name = "Option19"
Option20.Caption = "zt5(20)"
Option20.Height = 17
Option20.Left = 5
Option20.Top = 307
Option20.Width = 224
Option20.Name = "Option20"
Option21.Caption = "zt5(21)"
Option21.Height = 17
Option21.Left = 5
Option21.Top = 323
Option21.Width = 224
Option21.Name = "Option21"
Option22.Caption = "zt5(22)"
Option22.Height = 17
Option22.Left = 5
Option22.Top = 339
Option22.Width = 224
Option22.Name = "Option22"
Option23.Caption = "zt5(23)"
Option23.Height = 17
Option23.Left = 5
Option23.Top = 355
Option23.Width = 224
Option23.Name = "Option23"
Option24.Caption = "zt5(24)"
Option24.Height = 17
Option24.Left = 5
Option24.Top = 371
Option24.Width = 224
Option24.Name = "Option24"
Option25.Caption = "zt5(25)"
Option25.Height = 17
Option25.Left = 5
Option25.Top = 387
Option25.Width = 224
Option25.Name = "Option25"
Option26.Caption = "zt5(26)"
Option26.Height = 17
Option26.Left = 5
Option26.Top = 403
Option26.Width = 224
Option26.Name = "Option26"
Option27.Caption = "zt5(27)"
Option27.Height = 17
Option27.Left = 5
Option27.Top = 419
Option27.Width = 224
Option27.Name = "Option27"
Option28.Caption = "Option28"
Option28.Height = 17
Option28.Left = 244
Option28.Top = 5
Option28.Width = 224
Option28.Name = "Option28"
Option29.Caption = "Option29"
Option29.Height = 17
Option29.Left = 244
Option29.Top = 21
Option29.Width = 224
Option29.Name = "Option29"
Option30.Caption = "Option30"
Option30.Height = 17
Option30.Left = 244
Option30.Top = 37
Option30.Width = 224
Option30.Name = "Option30"
Option31.Caption = "Option31"
Option31.Height = 17
Option31.Left = 245
Option31.Top = 53
Option31.Width = 224
Option31.Name = "Option31"
Option32.Caption = "Option32"
Option32.Height = 17
Option32.Left = 244
Option32.Top = 69
Option32.Width = 224
Option32.Name = "Option32"
Option33.Caption = "Option33"
Option33.Height = 17
Option33.Left = 244
Option33.Top = 85
Option33.Width = 224
Option33.Name = "Option33"
Option34.Caption = "Option34"
Option34.Height = 17
Option34.Left = 244
Option34.Top = 101
Option34.Width = 224
Option34.Name = "Option34"
Option35.Caption = "Option35"
Option35.Height = 17
Option35.Left = 244
Option35.Top = 117
Option35.Width = 224
Option35.Name = "Option35"
Option36.Caption = "Option36"
Option36.Height = 17
Option36.Left = 244
Option36.Top = 133
Option36.Width = 224
Option36.Name = "Option36"
Option37.Caption = "Option37"
Option37.Height = 17
Option37.Left = 244
Option37.Top = 149
Option37.Width = 224
Option37.Name = "Option37"
Option38.Caption = "Option38"
Option38.Height = 17
Option38.Left = 244
Option38.Top = 165
Option38.Width = 224
Option38.Name = "Option38"
Option39.Caption = "Option39"
Option39.Height = 17
Option39.Left = 244
Option39.Top = 180
Option39.Width = 224
Option39.Name = "Option39"
Option40.Caption = "Option40"
Option40.Height = 17
Option40.Left = 244
Option40.Top = 195
Option40.Width = 224
Option40.Name = "Option40"
Option41.Caption = "Option41"
Option41.Height = 17
Option41.Left = 244
Option41.Top = 211
Option41.Width = 224
Option41.Name = "Option41"
Option42.Caption = "Option42"
Option42.Height = 17
Option42.Left = 244
Option42.Top = 227
Option42.Width = 224
Option42.Name = "Option42"
Option43.Caption = "Option43"
Option43.Height = 17
Option43.Left = 244
Option43.Top = 243
Option43.Width = 224
Option43.Name = "Option43"
Option44.Caption = "Option44"
Option44.Height = 17
Option44.Left = 244
Option44.Top = 259
Option44.Width = 224
Option44.Name = "Option44"
Option45.Caption = "Option45"
Option45.Height = 17
Option45.Left = 244
Option45.Top = 275
Option45.Width = 224
Option45.Name = "Option45"
Option46.Caption = "Option46"
Option46.Height = 17
Option46.Left = 244
Option46.Top = 291
Option46.Width = 224
Option46.Name = "Option46"
Option47.Caption = "Option47"
Option47.Height = 17
Option47.Left = 244
Option47.Top = 307
Option47.Width = 224
Option47.Name = "Option47"
Option48.Caption = "Option48"
Option48.Height = 17
Option48.Left = 244
Option48.Top = 323
Option48.Width = 224
Option48.Name = "Option48"
Option49.Caption = "Option49"
Option49.Height = 17
Option49.Left = 244
Option49.Top = 339
Option49.Width = 224
Option49.Name = "Option49"
Option50.Caption = "Option50"
Option50.Height = 17
Option50.Left = 244
Option50.Top = 355
Option50.Width = 224
Option50.Name = "Option50"
Option51.Caption = "Option51"
Option51.Height = 17
Option51.Left = 244
Option51.Top = 371
Option51.Width = 224
Option51.Name = "Option51"
Option52.Caption = "Option52"
Option52.Height = 17
Option52.Left = 244
Option52.Top = 387
Option52.Width = 224
Option52.Name = "Option52"
Option53.Caption = "Option53"
Option53.Height = 17
Option53.Left = 244
Option53.Top = 403
Option53.Width = 224
Option53.Name = "Option53"
Option54.Caption = "Option54"
Option54.Height = 17
Option54.Left = 244
Option54.Top = 419
Option54.Width = 224
Option54.Name = "Option54"
     %PROCEDURE Init
FOR hsa = 1 TO 27
	IF EMPTY(zt5(hsa))
		xhsa=ALLTRIM(STR(hsa,2,0))
		thisform.optiongroup1.option&xhsa..enabled=.f.
		thisform.optiongroup1.option&xhsa..visible=.f.
	ENDIF
NEXT

ENDPROC
PROCEDURE InteractiveChange
*!*	thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value -1,2,0))
*!*	thisform.release
*!*	WAIT WINDOW "Interaktiv"
*!*	this.click
ENDPROC
PROCEDURE Click

IF HSbeihilfeaktiv = .t. .and. this.Value <> 26
	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr .and. month(beihilfe.pcg_f6) = monat 
	GO top
	IF .not. EOF()
		IF hinweis("Es sind Beihilfedaten eingegeben worden!"+CHR(13)+"Bitte die Daten vorher lschen!")
*!*				FOR hsaa = 1 TO this.buttoncount
*!*					hsax = ALLTRIM(STR(hsaa,2,0))
*!*					IF ALLTRIM(thisform.optiongroup1.option&hsax..caption) = "+ Beihilfe"
*!*						EXIT
*!*					ENDIF
*!*				NEXT
			thisform.Tag="I:"+ALLTRIM(STR(26 -1,2,0))
		ENDIF
	ELSE
		thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value -1,2,0))
	ENDIF
ELSE
	thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value -1,2,0))
	IF zi(1+4) < 5 .and. thisform.optiongroup1.Value -1 <> 1 .and. zti = 39
		thisform.Tag = ""
		hinweis("Beamte sind BEFREIT von den Sozialabgaben!"+CHR(13)+"Bitte die Auswahl ndern")
		RETURN
	endif	
endif
thisform.release
ENDPROC
PROCEDURE Option1.Init
this.Caption=zt5(1)

ENDPROC
PROCEDURE Option2.Init
this.Caption=zt5(2)
ENDPROC
PROCEDURE Option3.Init
this.Caption=zt5(3)
ENDPROC
PROCEDURE Option4.Init
this.Caption=zt5(4)
ENDPROC
PROCEDURE Option5.Init
this.Caption=zt5(5)
ENDPROC
PROCEDURE Option6.Init
this.Caption=zt5(6)
ENDPROC
PROCEDURE Option7.Init
this.Caption=zt5(7)
ENDPROC
PROCEDURE Option8.Init
this.Caption=zt5(8)
ENDPROC
PROCEDURE Option9.Init
this.Caption=zt5(9)
ENDPROC
PROCEDURE Option10.Init
this.Caption=zt5(10)
ENDPROC
PROCEDURE Option11.Init
this.Caption=zt5(11)
ENDPROC
PROCEDURE Option12.Init
this.Caption=zt5(12)
ENDPROC
PROCEDURE Option13.Init
this.Caption=zt5(13)
ENDPROC
PROCEDURE Option14.Init
this.Caption=zt5(14)
ENDPROC
PROCEDURE Option15.Init
this.Caption=zt5(15)
ENDPROC
PROCEDURE Option16.Init
this.Caption=zt5(16)
ENDPROC
PROCEDURE Option17.Init
this.Caption=zt5(17)
ENDPROC
PROCEDURE Option18.Init
this.Caption=zt5(18)
ENDPROC
PROCEDURE Option19.Init
this.Caption=zt5(19)
ENDPROC
PROCEDURE Option20.Init
this.Caption=zt5(20)
ENDPROC
PROCEDURE Option21.Init
this.Caption=zt5(21)
ENDPROC
PROCEDURE Option22.Init
this.Caption=zt5(22)
ENDPROC
PROCEDURE Option23.Init
this.Caption=zt5(23)
ENDPROC
PROCEDURE Option24.Init
this.Caption=zt5(24)
ENDPROC
PROCEDURE Option25.Init
 this.Caption=zt5(25)
ENDPROC
PROCEDURE Option26.Init
this.Caption=zt5(26)
ENDPROC
PROCEDURE Option27.Init
this.Caption=zt5(27)
ENDPROC
         
  
                        4:   %           U   '            U      (  %CC      T CC   Z2 thisform.optiongroup1.option&xhsa..enabled=.f.
2 thisform.optiongroup1.option&xhsa..visible=.f.
   U  HSA ZT5 XHSA  U   %  a   	 F * G(     	
 C  H	 	 #)
 %C+
 b %C( Es sind Beihilfedaten eingegeben worden!C
  Bitte die Daten vorher lschen!
    T   I:CC Z  * T   I:CC 
   Z  * T   I:CC 
   Z5 %C 
  
  	  '	 T    Y C* Beamte sind BEFREIT von den Sozialabgaben!C
  Bitte die Auswahl ndern
  B  
    U  HSBEIHILFEAKTIV THIS VALUE BEIHILFE PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F6 MONAT HINWEIS THISFORM TAG OPTIONGROUP1 ZI ZTI RELEASE  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C	  U  THIS CAPTION ZT5  T   C
  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C
  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5  T   C  U  THIS CAPTION ZT5 Init,      InteractiveChange      Click      Option1.Init     Option2.Init     Option3.Init     Option4.Init#     Option5.InitR     Option6.Init     Option7.Init     Option8.Init     Option9.Init    
 Option10.Init=    
 Option11.Initl    
 Option12.Init    
 Option13.Init    
 Option14.Init    
 Option15.Init(    
 Option16.InitW    
 Option17.Init    
 Option18.Init    
 Option19.Init    
 Option20.Init    
 Option21.InitB    
 Option22.Initq    
 Option23.Init    
 Option24.Init    
 Option25.Init    
 Option26.Init-    
 Option27.Init\    1 qAq!!A A 3 6 q Q  !A  A  QA A A  2 A3 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A1                             	      z     
     A        d  y  .   !       2   #       5   %       8   '   >  Q  ;   )   t    >   +       A   -       D   /     )  G   1   M  a  J   3       M   5       P   7     	  S   9   -  A  V   ;   e  y  Y   =       \   ?       _   A   
	  !	  b   C   E	  Y	  e   E   }	  	  h   G   	  	  k   I   	  
  n   K   %
  9
  q   M   ]
  q
  t   O   
  
  w   Q   
  
  z   S       }    )   
                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      AUSWAHL      Top = 585
Left = 237
Width = 22
Height = 16
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      AUSWAHL      Top = 556
Left = 107
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      PROCEDURE Click

IF ishstmpname = .f.
	thisform.optiongroup1.click
ELSE
	thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,2,0))
	thisform.release
endif
ENDPROC
     V    =  =                           %                             U  \  %  - 
     U ' T   I:CC   Z
     U  ISHSTMPNAME THISFORM OPTIONGROUP1 CLICK TAG	 HSTMPNAME NR RELEASE Click,     1    q A 1                              )   =                        editbox      editbox      Edit1      AUSWAHL      @Height = 97
Left = 13
Top = 456
Width = 236
Name = "Edit1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0t   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4Y80OXMHF1255825828      /  F      ]                                                       WINDOWS _4Y80OXMHG1402901179                      *                                               WINDOWS _4Y80OXMHH1255897582          +  8                                                           WINDOWS _4Y80OXMHI1255897582                                                                       WINDOWS _4Y80OXMHF1255897582E      R  _  m  z                                                           WINDOWS _4Y80OXMHK1358658699          +  8                                                       WINDOWS _4Y80OXMHL1255897582      "  /  =  J        -                                               WINDOWS _4Y80OXMHM12558975821       >   K   Y   f          =!                                               WINDOWS _4Y80OXMHF1255897582A"      N"  ["  i"  v"      "  K#                                               WINDOWS _4Y80OXMHO1255897582O$      \$  i$  w$  $      %  _%                                               WINDOWS _4Y80OXMHP1255897582c&      p&  }&  &  &      !'  t'                                               WINDOWS _4Y80OXMHQ1255897582x(      (  (  (  (      7)  )                                               WINDOWS _4Y80OXMHR1255897582*      *  *  *  *      B+  +                                               WINDOWS _4Y80OXMHS1255897582,      ,  ,  ,  ,      O-  -                                               WINDOWS _4Y80OXMHT1255897582.      .  .  .  .      \/  /                                               WINDOWS _4Y80OXMHU12558975820      0  0  0  0      i1  1                                               WINDOWS _4Y80OXMHV12558975822      2  2  2  2      |3  3                                               WINDOWS _4Y80OXMHX12558975824      4  4  4  	5      5  5                                               WINDOWS _4Y80OXMHY12558975826      6  
7  7  &7      7  8                                               WINDOWS _4Y80OXMHZ1255897582
9      9  $9  39  @9      9  %:                                               WINDOWS _4Y80OXMI01255897582);      6;  C;  R;  _;      ;  E<                                               WINDOWS _4Y80OXMI11255897582I=      V=  c=  r=  =      >  Y>                                               WINDOWS _4Y80OXMI21255897582]?      j?  w?  ?  ?      &@  y@                                               WINDOWS _4Y80OXMI31255897582}A      A  A  A  A      FB  B                                               WINDOWS _4Y80OXMI41255897582C      C  C  C  C      iD  D                                               WINDOWS _4Y80OXMIG1255897582E      E  E  E  E                                                           WINDOWS _4Y80OXMIH1255897582XF      eF  rF  F  F                                                           WINDOWS _4Y80OXMII1255897582F      F  
G  G  %G                                                           WINDOWS _4Y80OXMIJ1255897582G      G  G  G  G                                                           WINDOWS _4Y80OXMIK1255897582 H      -H  :H  HH  UH                                                           WINDOWS _4Y80OXMIL1255897582H      H  H  H  H                                                           WINDOWS _4Y80OXMIM1255897582NI      [I  hI  wI  I                                                           WINDOWS _4Y80OXMIN1255897582I      I  J  J  J                                                           WINDOWS _4Y80OXMIO1255897582J      J  J  J  J                                                           WINDOWS _4Y80OXMIP1255897582J      K  K  K  +K                                                           WINDOWS _4Y80OXMIQ1255897582sK      K  K  K  K                                                           WINDOWS _4Y80OXMIR1255897582K      K  L  L  !L                                                           WINDOWS _4Y80OXMIS1255897582hL      tL  L  L  L                                                           WINDOWS _4Y80OXMIT1255897582L      L  L  M  M                                                           WINDOWS _4Y80OXMIU1255897582M      M  M  M  M                                                           WINDOWS _4Y80OXMIV1255897582CN      PN  ]N  lN  yN                                                           WINDOWS _4Y80OXMHF1255897582N      N  	O  O  %O                                                           WINDOWS _4Y80OXMHG1255897582O      O  O  P  P                                                           WINDOWS _4Y80P5E6M1255897582P      P  P  P  P                                                           WINDOWS _4Y80P5E6N1255897582Q      Q  Q  Q  Q                                                           WINDOWS _4Y80OXMIB1255897582R      R  R  R  R                                                           WINDOWS _4Y80OXMIA1255897582S      !S  -S  :S  GS                                                           WINDOWS _4Y80OXMHW1255897582S      S  S  S  S                                                           WINDOWS _4Y80OXMHF1255897582ST      `T  mT  |T  T                                                           WINDOWS _4Y80OXMHG1255897582T      	U  U  %U  2U                                                           WINDOWS _4Y80OXMHH1255897582U      U  U  U  U                                                           WINDOWS _4Y80OXMHI1255897582NV      [V  hV  wV  V                                                           WINDOWS _4Y80OXMHF1255897582V      W  W   W  -W                                                           WINDOWS _4Y80OXMHG1255897582W      W  W  W  W                                                           WINDOWS _4Y80OXMHH1255897582IX      VX  cX  rX  X                                                           WINDOWS _4Y80OXMHI1255897582X      X  Y  Y  (Y                                                           WINDOWS _4Y80OXMHF1255897582Y      Y  Y  Y  Y                                                           WINDOWS _4Y80OXMHG1255897582DZ      QZ  ^Z  mZ  zZ                                                           WINDOWS _4Y80OXMHH1255897582Z      Z  [  [  #[                                                           WINDOWS _4Y80OXMHI1255897582[      [  [  [  [                                                           WINDOWS _4Y80OXMHF1255897582?\      L\  Y\  h\  u\                                                           WINDOWS _4Y80OXMHG1255897582\      \  ]  ]  ]                                                           WINDOWS _4Y80OXMHH1255897582]      ]  ]  ]  ]                                                           WINDOWS _4Y80OXMHI1255897582:^      G^  T^  c^  p^                                                           WINDOWS _4Y80OXMHF1255897582^      ^  ^  _  _                                                           WINDOWS _4Y80OXMHG1255897582_      _  _  _  _                                                           WINDOWS _4Y80OXMHH12558975825`      B`  O`  ^`  k`                                                           WINDOWS _4Y80OXMHI1255897582`      `  `  a  a                                                           WINDOWS _4Y80OXMHF1255897582a      a  a  a  a                                                           WINDOWS _4Y80OXMHG12558975820b      =b  Jb  Yb  fb                                                           WINDOWS _4Y80OXMHH1255897582b      b  b  c  c                                                           WINDOWS _4Y80OXMHI1255897582c      c  c  c  c                                                           WINDOWS _4Y80OXMHF1255897582+d      8d  Ed  Td  ad                                                           WINDOWS _4Y80OXMHG1255897582d      d  d  d  
e                                                           WINDOWS _4Y80OXMHH1255897582}e      e  e  e  e                                                           WINDOWS _4Y80OXMHI1255897582&f      3f  @f  Of  \f                                                           WINDOWS _4Y80OXMHF1255897582f      f  f  f  g                                                           WINDOWS _4Y80OXMHG1255897582xg      g  g  g  g                                                           WINDOWS _4Y80OXMHH1255897582!h      .h  ;h  Jh  Wh                                                           WINDOWS _4Y80OXMHI1255897582h      h  h  h   i                                                           WINDOWS _4Y80OXMHF1255897582si      i  i  i  i                                                           WINDOWS _4Y80OXMHG1255897582j      )j  6j  Ej  Rj                                                           WINDOWS _4Y80OXMHH1255897582j      j  j  j  j                                                           WINDOWS _4Y80OXMHI1255897582nk      {k  k  k  k                                                           WINDOWS _4Y80OXMHF1255897582l      $l  1l  @l  Ml                                                           WINDOWS _4Y80OXMHG1255897582l      l  l  l  l                                                           WINDOWS _4Y80OXMHH1255897582im      vm  m  m  m                                                           WINDOWS _4Y80OXMHI1255897582n      n  ,n  ;n  Hn                                                           WINDOWS _4Y80OXMHF1255897582n      n  n  n  n                                                           WINDOWS _4Y80OXMHG1255897582do      qo  ~o  o  o                                                           WINDOWS _4Y80OXMHH1255897582
p      p  'p  6p  Cp                                                           WINDOWS _4Y80OXMHI1255897582p      p  p  p  p                                                           WINDOWS _4Y80OXMHF1255897582_q      lq  yq  q  q                                                           WINDOWS _4Y80OXMHG1255897582r      r  "r  1r  >r                                                           WINDOWS _4Y80OXMHH1255897582r      r  r  r  r                                                           WINDOWS _4Y80OXMHI1255897582Zs      gs  ts  s  s                                                           WINDOWS _4Y80PX3VM1255897582t      t  t  ,t  9t                                                           WINDOWS _4Y80PX3VN1255897582t      t  t  t  t                                                           WINDOWS _4Y80PX3VO1255897582Uu      bu  ou  ~u  u                                                           WINDOWS _4Y80PX3VP1255897582u      v  v  'v  4v                                                           WINDOWS _4Y80OXMIC1255897582v      v  v  v  v                                                           WINDOWS _4Y80OXMID1255897582w      +w  7w  Ew  Rw                                                           WINDOWS _4Y80OXMIE1255897582w      w  w  w  w                                                           WINDOWS _4Y80OXMIF1255897582x      x  +x  9x  Fx                                                           WINDOWS _4Y80OXMI51255897582x      x  x  x  x                                                           WINDOWS _4Y80OXMI61255897582y      y  y  *y  7y                                                           WINDOWS _4Y80OXMI71255897582}y      y  y  y  y                                                           WINDOWS _4Y80OXMI81255897582y      z  
z  z  'z                                                           WINDOWS _4Y80OXMI91255897582mz      yz  z  z  z                                                           WINDOWS _4Y80PX3VQ1255897582z      z  z  {  {                                                           WINDOWS _4Y80QM5Z71255897582{      {  {  {  {                                                           WINDOWS _4Y80XR7F41255898621}      (}  =}  O}  \}      }                                                 WINDOWS _4Y90WP9R51381529447          -  :                                                       WINDOWS _5T80KUPMI1357532535Չ        !  .                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Top = 0
Left = 0
Height = 574
Width = 450
ShowWindow = 1
DoCreate = .T.
AutoCenter = .F.
Caption = "Altersteilzeit Einstellungen"
ControlBox = .F.
Visible = .F.
WindowType = 0
AlwaysOnTop = .T.
Name = "FORM1"
     GPROCEDURE Destroy
myatzgrid_tag = .f.
ENDPROC
PROCEDURE Click
myatzgrid_tag = .f.
thisform.release
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.Left=myform1.wei10.left - thisform.Width - 20
thisform.visible = .f.
myatzgrid=thisform &&vorher this

myatzgrid_tag = .t.


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
*thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Activate
IF xindex = 0
	thisform.label83.caption = 'Diese Anzeige wird beendet durch einen Klick auf den "Schlieen"-Button.'
ENDIF

thisform.Left=myform1.wei10.left - thisform.Width - 20
thisform.Visible = .t.

FOR hsa = 2 TO 13
	xhsa = ALLTRIM(STR(hsa,2,0))
	thisform.label&xhsa..BackColor = RGB(255,255,255)
next
FOR hsa = 15 TO 22
	xhsa = ALLTRIM(STR(hsa,2,0))
	thisform.label&xhsa..BackColor = RGB(255,255,255)
next
IF xindex > 0
	xxxx=ALLTRIM(STR(xindex,2,0))
	DO case
		CASE myform1.bru&xxxx..caption = "A" &&katindex >= 2 .and. katindex <= 8
			thisform.label2.BackColor = RGB(255,255,0)
			thisform.label3.BackColor = RGB(255,255,0)
			thisform.label4.BackColor = RGB(255,255,0)
			thisform.label5.BackColor = RGB(255,255,0)
			thisform.label6.BackColor = RGB(255,255,0)
			thisform.label7.BackColor = RGB(255,255,0)
			thisform.label8.BackColor = RGB(255,255,0)
		CASE myform1.bru&xxxx..caption = "B" &&katindex = 9
			thisform.label9.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "C" &&katindex = 10
			thisform.label10.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "D" &&katindex = 11
			thisform.label11.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "E" &&katindex = 12
			thisform.label12.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "F" &&katindex = 13
			thisform.label13.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "a" &&katindex = 15
			thisform.label15.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "b" &&katindex = 16
			thisform.label16.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "c" &&katindex = 17 .or. katindex = 18
			thisform.label17.BackColor = RGB(255,255,0)		
			thisform.label18.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "d" &&katindex = 19
			thisform.label19.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "e" &&katindex = 20
			thisform.label20.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "f" &&katindex = 21
			thisform.label21.BackColor = RGB(255,255,0)		
		CASE myform1.bru&xxxx..caption = "g" &&katindex = 22
			thisform.label22.BackColor = RGB(255,255,0)		
	endcase	
ENDIF

*thisform.AutoCenter = .t.
thisform.refresh
ENDPROC
     
    
  
                        -   %   M	      /
  I   	            U    T  - U 
 MYATZGRID_TAG  T  -
    U 
 MYATZGRID_TAG THISFORM RELEASE  %    
$  T     ! T          T   -
 T    T a
   	 
  T        T       
   
  U  THISFORM TOP LEFT MYFORM1 WEI10 WIDTH VISIBLE	 MYATZGRID
 MYATZGRID_TAG SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H RESIZE  C     U  THISFORM SIZER	 FRMRESIZE0 %   l [ T   H Diese Anzeige wird beendet durch einen Klick auf den "Schlieen"-Button. ! T        T  a 	 (
 T
 CC	  Z5 thisform.label&xhsa..BackColor = RGB(255,255,255)
  	 (i T
 CC	  Z5 thisform.label&xhsa..BackColor = RGB(255,255,255)
  %    T CC   Z
 H- CASE myform1.bru&xxxx..caption = "A"  T  
 C ^ T  
 C ^ T  
 C ^ T  
 C ^ T  
 C ^ T  
 C ^ T  
 C ^- CASE myform1.bru&xxxx..caption = "B"  T  
 C ^- CASE myform1.bru&xxxx..caption = "C" % T  
 C ^- CASE myform1.bru&xxxx..caption = "D" n T  
 C ^- CASE myform1.bru&xxxx..caption = "E"  T  
 C ^- CASE myform1.bru&xxxx..caption = "F"   T  
 C ^- CASE myform1.bru&xxxx..caption = "a" I T  
 C ^- CASE myform1.bru&xxxx..caption = "b"  T  
 C ^- CASE myform1.bru&xxxx..caption = "c"  T  
 C ^ T  
 C ^- CASE myform1.bru&xxxx..caption = "d" @ T  
 C ^- CASE myform1.bru&xxxx..caption = "e"  T  
 C ^- CASE myform1.bru&xxxx..caption = "f"  T  
 C ^- CASE myform1.bru&xxxx..caption = "g"  T   
 C ^  
  !  U"  XINDEX THISFORM LABEL83 CAPTION LEFT MYFORM1 WEI10 WIDTH VISIBLE HSA XHSA XXXX LABEL2	 BACKCOLOR LABEL3 LABEL4 LABEL5 LABEL6 LABEL7 LABEL8 LABEL9 LABEL10 LABEL11 LABEL12 LABEL13 LABEL15 LABEL16 LABEL17 LABEL18 LABEL19 LABEL20 LABEL21 LABEL22 REFRESH Destroy,      ClickM      Init      Resize     Activate    1  2   2 AA     rq 3 2 A  rqQA qqQA q A A  1                       &         B   g                      )        H  <      )   
                        shape      shape      Shape2      FORM1      oTop = 219
Left = 3
Height = 326
Width = 442
BackColor = 255,255,255
BorderColor = 0,0,0
Name = "Shape2"
      shape      shape      Shape1      FORM1      YTop = 40
Left = 3
Height = 181
Width = 442
BackColor = 192,192,192
Name = "Shape1"
      label      label      Label1      FORM1      Caption = "Mit K  R Z U N G auf 50%"
Height = 16
Left = 10
Top = 203
Width = 153
BackColor = 192,192,192
Name = "Label1"
      label      label      Label2      FORM1      |Caption = "A) Lfd. Bezge (8.12)"
Height = 16
Left = 9
Top = 225
Width = 197
BackColor = 255,255,255
Name = "Label2"
      MPROCEDURE Click

katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       B       )                            label      label      Label3      FORM1      Caption = "     verm. wirks. Leistungen (16)"
Height = 16
Left = 9
Top = 239
Width = 196
BackColor = 255,255,255
Name = "Label3"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label4      FORM1      |Caption = "     Urlaubsgeld (18)"
Height = 16
Left = 9
Top = 254
Width = 196
BackColor = 255,255,255
Name = "Label4"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label5      FORM1      zCaption = "     Zuwendung (19)"
Height = 16
Left = 9
Top = 269
Width = 196
BackColor = 255,255,255
Name = "Label5"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label6      FORM1      Caption = "     Einmalzahlungen (20)"
Height = 16
Left = 9
Top = 283
Width = 196
BackColor = 255,255,255
Name = "Label6"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label7      FORM1      Caption = "     Pflege-, Sicherheits-"
Height = 16
Left = 9
Top = 297
Width = 196
BackColor = 255,255,255
Name = "Label7"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label8      FORM1      Caption = "     u. a. stndige Zulagen"
Height = 16
Left = 9
Top = 311
Width = 196
BackColor = 255,255,255
Name = "Label8"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label9      FORM1      wCaption = "B) Ohne Beispiel"
Height = 16
Left = 9
Top = 326
Width = 198
BackColor = 255,255,255
Name = "Label9"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label10      FORM1      xCaption = "C) Ohne Beispiel"
Height = 16
Left = 9
Top = 341
Width = 197
BackColor = 255,255,255
Name = "Label10"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label11      FORM1      xCaption = "D) Ohne Beispiel"
Height = 15
Left = 9
Top = 355
Width = 197
BackColor = 255,255,255
Name = "Label11"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label12      FORM1      xCaption = "E) Ohne Beispiel"
Height = 16
Left = 9
Top = 370
Width = 197
BackColor = 255,255,255
Name = "Label12"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label13      FORM1      ~Caption = "F) Steuerfreie Zulagen"
Height = 16
Left = 9
Top = 385
Width = 197
BackColor = 255,255,255
Name = "Label13"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label15      FORM1      Caption = "a) Erschw-, Zeit- u. Schichtzul."
Height = 16
Left = 9
Top = 419
Width = 196
BackColor = 255,255,255
Name = "Label15"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label16      FORM1      Caption = "b) Sonstige unstndige Bezge"
Height = 16
Left = 9
Top = 436
Width = 196
BackColor = 255,255,255
Name = "Label16"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label17      FORM1      Caption = "c) Dienst-, Arb.-, Rufbereitschaft"
Height = 16
Left = 9
Top = 450
Width = 196
BackColor = 255,255,255
Name = "Label17"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label18      FORM1      Caption = "    (ohne Entgelt f. Arbeitsleist.)"
Height = 16
Left = 9
Top = 464
Width = 197
BackColor = 255,255,255
Name = "Label18"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label19      FORM1      Caption = "d) Urlaubslohnaufschlag"
Height = 16
Left = 9
Top = 481
Width = 196
BackColor = 255,255,255
Name = "Label19"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label20      FORM1      Caption = "e) Pausch. berstd. seit mind. 2 J."
Height = 16
Left = 9
Top = 498
Width = 197
BackColor = 255,255,255
Name = "Label20"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label21      FORM1      Caption = "f) Mehrarbeitsverg., st. freie Zul."
Height = 16
Left = 9
Top = 513
Width = 197
BackColor = 255,255,255
Name = "Label21"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            label      label      Label22      FORM1      Caption = "g) Betrag Prot. Erkl. zu  5 Abs. 2 TV"
Height = 15
Left = 9
Top = 529
Width = 195
BackColor = 255,255,255
Name = "Label22"
      KPROCEDURE Click
katindex = this.name
thisform.kategorien.Click
ENDPROC
                                         %                             U     T    
     U  KATINDEX THIS NAME THISFORM
 KATEGORIEN CLICK Click,     1  1                       @       )                            shape      shape      Shape3      FORM1      [Top = 219
Left = 208
Height = 326
Width = 60
BackColor = 255,255,255
Name = "Shape3"
      shape      shape      Shape6      FORM1      [Top = 219
Left = 385
Height = 326
Width = 60
BackColor = 255,255,255
Name = "Shape6"
      shape      shape      Shape5      FORM1      [Top = 219
Left = 326
Height = 326
Width = 60
BackColor = 255,255,255
Name = "Shape5"
      shape      shape      Shape4      FORM1      [Top = 219
Left = 267
Height = 326
Width = 60
BackColor = 255,255,255
Name = "Shape4"
      shape      shape      Shape8      FORM1      ZTop = 82
Left = 208
Height = 139
Width = 60
BackColor = 192,192,192
Name = "Shape8"
      shape      shape      Shape9      FORM1      ZTop = 82
Left = 385
Height = 139
Width = 60
BackColor = 192,192,192
Name = "Shape9"
      shape      shape      Shape10      FORM1      [Top = 82
Left = 326
Height = 139
Width = 60
BackColor = 192,192,192
Name = "Shape10"
      shape      shape      Shape11      FORM1      [Top = 82
Left = 267
Height = 139
Width = 60
BackColor = 192,192,192
Name = "Shape11"
      line      line      Line1      FORM1      >Height = 0
Left = 3
Top = 199
Width = 441
Name = "Line1"
      line      line      Line13      FORM1      @Height = 0
Left = 208
Top = 61
Width = 237
Name = "Line13"
      line      line      Line14      FORM1      @Height = 0
Left = 208
Top = 82
Width = 237
Name = "Line14"
      line      line      Line15      FORM1      ?Height = 46
Left = 208
Top = 41
Width = 0
Name = "Line15"
      line      line      Line16      FORM1      ?Height = 21
Left = 326
Top = 62
Width = 0
Name = "Line16"
      label      label      Label23      FORM1      xCaption = "Aufstockung nach"
Height = 16
Left = 277
Top = 43
Width = 99
BackColor = 192,192,192
Name = "Label23"
      label      label      Label24      FORM1      mCaption = "A t G"
Height = 14
Left = 258
Top = 65
Width = 27
BackColor = 192,192,192
Name = "Label24"
      label      label      Label25      FORM1      nCaption = "TV ATZ"
Height = 14
Left = 366
Top = 65
Width = 37
BackColor = 192,192,192
Name = "Label25"
      label      label      Label26      FORM1      WordWrap = .T.
Alignment = 2
Caption = "um 20 % des Teil- zeit- Brutto- gehalts"
Height = 94
Left = 216
Top = 94
Width = 42
BackColor = 192,192,192
Name = "Label26"
      label      label      Label27      FORM1      WordWrap = .T.
Alignment = 2
Caption = "um 70 % des Voll- zeit- Netto- gehalts"
Height = 94
Left = 275
Top = 94
Width = 42
BackColor = 192,192,192
Name = "Label27"
      label      label      Label28      FORM1      WordWrap = .T.
Alignment = 2
Caption = "um 20 % des Teil- zeit- Brutto- gehalts"
Height = 94
Left = 334
Top = 94
Width = 42
BackColor = 192,192,192
Name = "Label28"
      label      label      Label29      FORM1      WordWrap = .T.
Alignment = 2
Caption = "um 83 % des Voll- zeit- Netto- gehalts"
Height = 94
Left = 393
Top = 94
Width = 42
BackColor = 192,192,192
Name = "Label29"
      line      line      Line8      FORM1      >Height = 0
Left = 4
Top = 451
Width = 441
Name = "Line8"
      line      line      Line7      FORM1      >Height = 0
Left = 3
Top = 435
Width = 441
Name = "Line7"
      label      label      Label14      FORM1      Caption = "  O H N E  K  R Z U N G auf 50%"
Height = 16
Left = 4
Top = 402
Width = 440
BackColor = 192,192,192
Name = "Label14"
      label      label      Label30      FORM1      kCaption = "ja"
Height = 16
Left = 232
Top = 268
Width = 12
BackColor = 255,255,255
Name = "Label30"
      label      label      Label31      FORM1      kCaption = "ja"
Height = 16
Left = 291
Top = 268
Width = 12
BackColor = 255,255,255
Name = "Label31"
      label      label      Label32      FORM1      kCaption = "ja"
Height = 16
Left = 349
Top = 268
Width = 12
BackColor = 255,255,255
Name = "Label32"
      label      label      Label33      FORM1      kCaption = "ja"
Height = 16
Left = 407
Top = 268
Width = 12
BackColor = 255,255,255
Name = "Label33"
      label      label      Label34      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 326
Width = 12
BackColor = 255,255,255
Name = "Label34"
      label      label      Label35      FORM1      kCaption = "ja"
Height = 14
Left = 291
Top = 326
Width = 12
BackColor = 255,255,255
Name = "Label35"
      label      label      Label36      FORM1      kCaption = "ja"
Height = 14
Left = 349
Top = 326
Width = 12
BackColor = 255,255,255
Name = "Label36"
      label      label      Label37      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 326
Width = 12
BackColor = 255,255,255
Name = "Label37"
      label      label      Label38      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 341
Width = 12
BackColor = 255,255,255
Name = "Label38"
      label      label      Label39      FORM1      kCaption = "ja"
Height = 14
Left = 291
Top = 341
Width = 12
BackColor = 255,255,255
Name = "Label39"
      label      label      Label40      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 341
Width = 12
BackColor = 255,255,255
Name = "Label40"
      label      label      Label41      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 341
Width = 12
BackColor = 255,255,255
Name = "Label41"
      label      label      Label42      FORM1      kCaption = "ja"
Height = 14
Left = 232
Top = 355
Width = 12
BackColor = 255,255,255
Name = "Label42"
      label      label      Label43      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 356
Width = 12
BackColor = 255,255,255
Name = "Label43"
      label      label      Label44      FORM1      kCaption = "ja"
Height = 14
Left = 349
Top = 355
Width = 12
BackColor = 255,255,255
Name = "Label44"
      label      label      Label45      FORM1      kCaption = "--"
Height = 14
Left = 407
Top = 356
Width = 12
BackColor = 255,255,255
Name = "Label45"
      label      label      Label46      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 370
Width = 12
BackColor = 255,255,255
Name = "Label46"
      label      label      Label47      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 370
Width = 12
BackColor = 255,255,255
Name = "Label47"
      label      label      Label48      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 370
Width = 12
BackColor = 255,255,255
Name = "Label48"
      label      label      Label49      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 370
Width = 12
BackColor = 255,255,255
Name = "Label49"
      label      label      Label50      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 385
Width = 12
BackColor = 255,255,255
Name = "Label50"
      label      label      Label51      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 385
Width = 12
BackColor = 255,255,255
Name = "Label51"
      label      label      Label52      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 385
Width = 12
BackColor = 255,255,255
Name = "Label52"
      label      label      Label53      FORM1      kCaption = "--"
Height = 14
Left = 407
Top = 385
Width = 12
BackColor = 255,255,255
Name = "Label53"
      label      label      Label54      FORM1      kCaption = "ja"
Height = 14
Left = 232
Top = 418
Width = 12
BackColor = 255,255,255
Name = "Label54"
      label      label      Label55      FORM1      kCaption = "ja"
Height = 14
Left = 291
Top = 418
Width = 12
BackColor = 255,255,255
Name = "Label55"
      label      label      Label56      FORM1      kCaption = "ja"
Height = 14
Left = 349
Top = 418
Width = 12
BackColor = 255,255,255
Name = "Label56"
      label      label      Label57      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 418
Width = 12
BackColor = 255,255,255
Name = "Label57"
      label      label      Label58      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 436
Width = 12
BackColor = 255,255,255
Name = "Label58"
      label      label      Label59      FORM1      kCaption = "ja"
Height = 14
Left = 291
Top = 436
Width = 12
BackColor = 255,255,255
Name = "Label59"
      label      label      Label60      FORM1      kCaption = "ja"
Height = 14
Left = 349
Top = 436
Width = 12
BackColor = 255,255,255
Name = "Label60"
      label      label      Label61      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 436
Width = 12
BackColor = 255,255,255
Name = "Label61"
      label      label      Label62      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 457
Width = 12
BackColor = 255,255,255
Name = "Label62"
      label      label      Label63      FORM1      kCaption = "ja"
Height = 14
Left = 291
Top = 457
Width = 12
BackColor = 255,255,255
Name = "Label63"
      label      label      Label64      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 457
Width = 12
BackColor = 255,255,255
Name = "Label64"
      label      label      Label65      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 457
Width = 12
BackColor = 255,255,255
Name = "Label65"
      label      label      Label66      FORM1      kCaption = "ja"
Height = 14
Left = 232
Top = 480
Width = 12
BackColor = 255,255,255
Name = "Label66"
      label      label      Label67      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 480
Width = 12
BackColor = 255,255,255
Name = "Label67"
      label      label      Label68      FORM1      kCaption = "ja"
Height = 14
Left = 349
Top = 480
Width = 12
BackColor = 255,255,255
Name = "Label68"
      label      label      Label69      FORM1      kCaption = "--"
Height = 14
Left = 407
Top = 480
Width = 12
BackColor = 255,255,255
Name = "Label69"
      label      label      Label70      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 497
Width = 12
BackColor = 255,255,255
Name = "Label70"
      label      label      Label71      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 497
Width = 12
BackColor = 255,255,255
Name = "Label71"
      label      label      Label72      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 497
Width = 12
BackColor = 255,255,255
Name = "Label72"
      label      label      Label73      FORM1      kCaption = "ja"
Height = 14
Left = 407
Top = 497
Width = 12
BackColor = 255,255,255
Name = "Label73"
      label      label      Label74      FORM1      kCaption = "--"
Height = 14
Left = 232
Top = 513
Width = 12
BackColor = 255,255,255
Name = "Label74"
      label      label      Label75      FORM1      kCaption = "--"
Height = 14
Left = 291
Top = 513
Width = 12
BackColor = 255,255,255
Name = "Label75"
      label      label      Label76      FORM1      kCaption = "--"
Height = 14
Left = 349
Top = 513
Width = 12
BackColor = 255,255,255
Name = "Label76"
      label      label      Label77      FORM1      kCaption = "--"
Height = 14
Left = 407
Top = 513
Width = 12
BackColor = 255,255,255
Name = "Label77"
      label      label      Label78      FORM1      kCaption = "--"
Height = 14
Left = 238
Top = 529
Width = 12
BackColor = 255,255,255
Name = "Label78"
      label      label      Label79      FORM1      kCaption = "--"
Height = 14
Left = 297
Top = 529
Width = 12
BackColor = 255,255,255
Name = "Label79"
      label      label      Label80      FORM1      kCaption = "--"
Height = 14
Left = 355
Top = 529
Width = 12
BackColor = 255,255,255
Name = "Label80"
      label      label      Label81      FORM1      kCaption = "ja"
Height = 14
Left = 413
Top = 529
Width = 12
BackColor = 255,255,255
Name = "Label81"
      line      line      Line9      FORM1      >Height = 0
Left = 3
Top = 480
Width = 441
Name = "Line9"
      line      line      Line10      FORM1      ?Height = 0
Left = 3
Top = 497
Width = 441
Name = "Line10"
      line      line      Line11      FORM1      ?Height = 0
Left = 3
Top = 512
Width = 441
Name = "Line11"
      line      line      Line12      FORM1      ?Height = 0
Left = 9
Top = 528
Width = 441
Name = "Line12"
      line      line      Line2      FORM1      >Height = 0
Left = 3
Top = 326
Width = 441
Name = "Line2"
      line      line      Line3      FORM1      >Height = 0
Left = 3
Top = 341
Width = 441
Name = "Line3"
      line      line      Line4      FORM1      >Height = 0
Left = 3
Top = 356
Width = 441
Name = "Line4"
      line      line      Line5      FORM1      >Height = 0
Left = 3
Top = 370
Width = 441
Name = "Line5"
      line      line      Line6      FORM1      >Height = 0
Left = 3
Top = 385
Width = 441
Name = "Line6"
      label      label      Label82      FORM1      FontBold = .T.
FontSize = 12
Caption = "Kategorie"
Height = 22
Left = 62
Top = 113
Width = 78
ForeColor = 255,0,0
BackColor = 192,192,192
Name = "Label82"
      label      label      Label83      FORM1     
FontBold = .T.
FontSize = 10
WordWrap = .T.
Caption = "Bitte whlen Sie die Kategorie fr die gewhlte Zeile aus, indem Sie in der linken Spalte die gewnschte Kategorie klicken."
Height = 34
Left = 15
Top = 3
Width = 418
ForeColor = 255,0,0
Name = "Label83"
      
commandbutton      
commandbutton      
kategorien      FORM1      yTop = 44
Left = 15
Height = 18
Width = 69
Caption = "kategorien"
Enabled = .F.
Visible = .F.
Name = "kategorien"
     PROCEDURE Click
IF xindex = 0
	return
endif
xxxx=ALLTRIM(STR(xindex,2,0))
katindex = INT(VAL(ALLTRIM(SUBSTR(katindex,6,2))))
DO case
	CASE katindex >= 2 .and. katindex <= 8
		myform1.bru&xxxx..caption = "A"
		bruz(xindex) = 0
	CASE katindex = 9
		myform1.bru&xxxx..caption = "B"
		bruz(xindex) = 1
	CASE katindex = 10
		myform1.bru&xxxx..caption = "C"
		bruz(xindex) = 2
	CASE katindex = 11
		myform1.bru&xxxx..caption = "D"
		bruz(xindex) = 3
	CASE katindex = 12
		myform1.bru&xxxx..caption = "E"
		bruz(xindex) = 4
	CASE katindex = 13
		myform1.bru&xxxx..caption = "F"
		bruz(xindex) = 5
	CASE katindex = 15
		myform1.bru&xxxx..caption = "a"
		bruz(xindex) = 6
	CASE katindex = 16
		myform1.bru&xxxx..caption = "b"
		bruz(xindex) = 7
	CASE katindex = 17 .or. katindex = 18
		myform1.bru&xxxx..caption = "c"
		bruz(xindex) = 8
	CASE katindex = 19
		myform1.bru&xxxx..caption = "d"
		bruz(xindex) = 9
	CASE katindex = 20
		myform1.bru&xxxx..caption = "e"
		bruz(xindex) = 10
	CASE katindex = 21
		myform1.bru&xxxx..caption = "f"
		bruz(xindex) = 11
	CASE katindex = 22
		myform1.bru&xxxx..caption = "g"
		bruz(xindex) = 12
endcase	

thisform.release
ENDPROC
     N    5  5                        ޹   %   {        1               U   %     B  T CC   Z T CCCC \g8
 HX 	    	 # myform1.bru&xxxx..caption = "A"
 T      	 # myform1.bru&xxxx..caption = "B"
 T     
8# myform1.bru&xxxx..caption = "C"
 T     # myform1.bru&xxxx..caption = "D"
 T     # myform1.bru&xxxx..caption = "E"
 T     

# myform1.bru&xxxx..caption = "F"
 T     T# myform1.bru&xxxx..caption = "a"
 T     # myform1.bru&xxxx..caption = "b"
 T       # myform1.bru&xxxx..caption = "c"
 T     4# myform1.bru&xxxx..caption = "d"
 T   	  {# myform1.bru&xxxx..caption = "e"
 T   
  # myform1.bru&xxxx..caption = "f"
 T     	# myform1.bru&xxxx..caption = "g"
 T    
    U  XINDEX XXXX KATINDEX BRUZ THISFORM RELEASE Click,     1 A A q 11111111111111111111111111A  1                             )   5                        
commandbutton      
commandbutton      Command1      FORM1      [Top = 550
Left = 169
Height = 19
Width = 112
Caption = "schlieen"
Name = "Command1"
      EPROCEDURE Click
myatzgrid_tag = .f.
thisform.Release


ENDPROC
                                      ez   %   j             y             U    T  -
    U 
 MYATZGRID_TAG THISFORM RELEASE Click,     1   3                       :       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 552
Left = 423
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
<   %   1     Q t
  6 NV[    U  
     e  T   T d T     T    333333? 
  . T d T      T  T      T C  T	  T
  5 T ' E N T G E L T B E S C H E I N I G U N G T
   
   T X T      T  T      T C  T	 
! T  B E T A - Version:  T
   
   T  T      T   T      T C  T	 
L T > Bis 31. Juli 2013 werden noch Verbesserungsvorschlge erbeten. T
     3 T 
 Druckvorschau T 4 T      T  T  T	  T
      T  Drucken T 
 T      T  T  T	  T
     = T 	 Schlieen T 
 T      T  T  T	  T
     - T  Entgeltbescheinigungsverordnung T h T      T  T  T	 
 T
     U 	 MYTABLETT BLATT TOP LEFT HEIGHT WIDTH ZEILE0	 BACKCOLOR QBCOLOR FONTSIZE FONTBOLD TRUE CAPTION VISIBLE ZEILE1 ZEILE2
 SSCOMMAND1
 SSCOMMAND2
 SSCOMMAND3
 SSCOMMAND4  C< Die nun bentigte Funktion funktioniert noch nicht gefahrlosC
 6 und wurde deshalb noch nicht ins Programm aufgenommen.C
 # Bitte gedulden Sie sich noch etwas.  Sorryx U     Q INTEGER
 H   | %C   
W  T    o  T    %   X T   E Jetzt werden nach jedem Beenden ber "Start/Beenden" Kopien angelegt. d} T   j Nach dem Deaktivieren werden keine weiteren Kopien angelegt. Die bisherigen Kopien bleiben aber verfgbar. 
   	  
  C  %    T    T      U  MYINDEX REGISTER	 MYTABLETT CHECK0 VALUE DIMEN DIMPW5 EDIT1
 SSCOMMAND4 SETFOCUS DIMENAUS DIMPW6    Q INTEGER U  MYINDEXR    Q INTEGER T CC   Z& i = myTablett.Combo&xxx..ListIndex
 U  MYINDEX XXX L   Q INTEGER Q INTEGER Q INTEGER Q SINGLE Q SINGLE T CC   Z& i = myTablett.Combo&xxx..ListIndex
 U  MYINDEX BUTTON SHIFT X Y XXX !   Q INTEGER Q INTEGER % 
  % 
    %   c      %  
  T CC   Z& myTablett.Datumsfeld&xxx..SetFocus
  
         U	  MYINDEX KEYASCII REGISTER BEMERKUNGSPEICHERN GEBURTSTAGSAUSWERTUNG XXX	 MYTABLETT TEXT3 SETFOCUS    Q INTEGER T CC   Z1 dc = ALLTRIM(mytablett.Datumsfeld&xxx..Value)
  ( mytablett.Datumsfeld&xxx..Value = dc
 U  MYINDEX XXX
 DATUMCHECK5    Q INTEGER %  '  B    U  MYINDEX	 STARTFLAG TRUE DYNAMISIERUNGBERECHNEN%
 H
    7  T         s 
  o  T     \     T C   R T	 C     2021
  %	  K T   8 Whlen Sie das Programmverzeichnis der Version 2021 aus.  %C  User
v; T    Whlen Sie das Verzeichnes 
   aus. E T   2 Bereit zur Datenbernahme (3. Schritt ganz rechts)   T         T     \ T      U  REGISTER	 MYTABLETT FILE1 PATH DIR1 TEXT15 TEXT VALUE MSG1 I ISINSTR ZEILE0 CAPTION MUSER ZEILE4 ORDNER ZEILE12b  T         BB C Keine Daten verfgbar.  Bitte Datentrger einlegenx U 	 MYTABLETT DIR1 PATH DRIVE1 DRIVE  U  
 H
  C     5 T 	"
 HH 4        T 5 T  T  T ~ T      4 T 5 T  T  T  T  
 HE1       T 5 T  T  T  T      1 T 5 T  T  T  T        T   T   T   T  T  T 	 T       T 	"
 H      ~ T 5 T  T  T ~ T       T 5 T  T  T  T  
 H C      T 5 T  T  T  T       T 5 T  T  T  T        T   T   T   T   T   T   T 	C/ / T CC    
 H   	      	   T 4       T C"  T C$  T C%  T  T  T  T  T 	C/       T C"  T C$  T C%  T  T  T  T  T 	C/   U
 	 MYTABLETT COMBO1	 LISTINDEX GEFUNDEN COMBO2 COMBO3 ZI GETKVBEITRAG MONAT COMBO4y    (r  T C      T CC   Z' myTablett.Kasten&xxx..Caption = wer
  U  COUNTER NUMBR VBLZ ZAHLINTEXTNUMBR XXX 4   
 H   >  %    P  T   h  T     % 	     T 
    T 
     L* %     	  	 T     T 	    H %   D T 	       
 Hj     %     T 
    T 
       %     T     T       f %    J T    b T        % 
 T     T    T    Erst ab 2009  %     T     T         %C 	 %    g T    T         %   B 
 T   T 	    T    
 T   %  _
 T   T 	  
 T   T   C
  d T 90 
 T   T   
 T   T   C  d
 T          C #200 9 C!  \gehaltC" \ sr	 userdaten    C  o	 userdaten#  T$ CC   Z* If myTablett.Check&xxx..Value = -1 T% &  1  T% &  0   C  o	 userdaten'  C #200  (     ! C h T )   T * )  
  * +  C  T , C    -   U.  MYINDEX HSVALUE REGISTER	 MYTABLETT CHECK0 VALUE TRUE DIMEN DIMPW3 CHECK1 DIMPW1 MYBEMERKUNG WNW ATZALT FALSE CHECK2 ZUMLAGE1 CHECK3 ZUMLAGE2 WELCHESJAHR CHECK4 ZUMLAGE3 CAPTION ZI CHECK5 BESJA	 STARTFLAG OP1
 TDBNUMBER0	 TVDZEILE DYNAMISIERUNGBERECHNEN MYCLOSE MYOPEN	 EIGDATFIX XJAHR4 MYGET XXX	 USERDATEN USERNAME MYPUT SRVERTEILEN VISIBLE
 SSCOMMAND4 SETFOCUS DIMPW6 DIMENAUS 4  
 H    %    v CT Diese Option steht noch nicht zur Verfgung. Sie ist fr sptere Updates vorgemerkt.0 ATV-Versteuerungx T      T CC   Z. %           	. If myTablett.Combo&xxx..ListIndex < 11G myTablett.Combo&xxx..ListIndex = myTablett.Combo&xxx..ListIndex + 1
 Cv Da fr den ausgewhlten Monat bereits eine andere Datei verwendet wird, wurde die Auswahl um einen Monat hher gesetzt0 Auswahlx G myTablett.Combo&xxx..ListIndex = myTablett.Combo&xxx..ListIndex - 1
 Cy Da fr den ausgewhlten Monat bereits eine andere Datei verwendet wird, wurde die Auswahl um einen Monat herunter gesetzt0 Auswahlx  . %         	  	. If myTablett.Combo&xxx..ListIndex < 11-G myTablett.Combo&xxx..ListIndex = myTablett.Combo&xxx..ListIndex + 1
 Cv Da fr den ausgewhlten Monat bereits eine andere Datei verwendet wird, wurde die Auswahl um einen Monat hher gesetzt0 Auswahlx G myTablett.Combo&xxx..ListIndex = myTablett.Combo&xxx..ListIndex - 1
 Cy Da fr den ausgewhlten Monat bereits eine andere Datei verwendet wird, wurde die Auswahl um einen Monat herunter gesetzt0 Auswahlx    '  >q
 HEm   m T
       A	
 H	    C
  ? T 
   %   T   2 T    T    T   " Cy   ATV  T     T     T     T    d T    d T     d T!   " d T#   $ d T%   & d$ %    !   	 T' (   %C) #1 T' *   Vorgaben sind nicht erforderlich J T' * 9 Fr diese Kasse sind noch keine Vorgaben angelegt worden.   T' ( +   ; T  +  T  +  T  +       % 
  + T,  
      %    T % (    T % ( +      :	 % 
  6	+ T-  
         	 % 
  	+ T.  
         S

 H	
   	 T/    F   
 T0    F  1   u
  0
  A
  R
  
" %2 
  
  	C In dieser Version sind nicht mehr als 3 pawortgeschtzte Speicherbereiche verfgbar. Wenn Sie mehr bentigen, dann erwerben Sie bitte eine Dienststellenversion mit bis zu 100 individuellen Speicherbereichen. " Dienststellenversion erforderlich?x B  T CC   Z; usernr = myindex * 10 + myTablett.Combo&xxx..ListIndex 
 %3  Cc Der Speicherbereich des Users 001 ist ffentlich und kann nicht mit einem Pawort geschtzt werden.  ffentlicher Speicherbereichx T4  \user001
  5  6 
 T
  
 T3   B 
 T CC   Z; usernr = myindex * 10 + myTablett.Combo&xxx..ListIndex 
0 myTablett.Combo&xxx..BackColor = QBColor(14)
 7  T 8     T 9     T :    
  8 ;    
  
 T    T CC   Z k = .Combo&xxx..ListIndex
 T3  
 
 H% 3 

X" T4  \user00CC3  Z 3 d
! T4  \user0CC3  Z 3 
  T4  \userCC3  Z  T< * C4 \ T= *    T>    T?    T@    T CC  Z& i = isInstr(.Combo&xxx..Text, ".")
; .Text0.Value = ALLTRIM(Substr(.Combo&xxx..Text, i + 1))
 A ;    
 H   P
 HL      TB  i    ' TB  p    L TB  r    
 Hn      TC  2003     TC  2004     TC  2005     TC  2006    
 H4     TD  
  _ T E *  Im Jahr CD  Z4  betrug der erste volle Monatsbetrag der Versorgung: % 
    TF 	  besteht   TF 	  bestand  m T G *  Im Jahr CD  ZF >  ein Rechtsanspruch auf eine Sonderzahlung zur Versorgung von: TH I D  C
 K  wnwJ  L    ,   M   +  UN  MYINDEX REGISTER	 MYTABLETT COMBO15	 LISTINDEX XXX COMBO20 COMBO22 COMBO21 COMBO23	 USERSTART COMBO1 K COMBO0 J WELCHESJAHR JAHR1 ENABLED TRUE COMBO2 COMBO3 MYGET ATV	 DATVAGBIS	 DATVSTART DATVAREV
 TDBNUMBER1 VALUE
 DATVUMLAGE
 TDBNUMBER2 DATVUMLAGEAN
 TDBNUMBER3
 DATVSANIERUNG
 TDBNUMBER4 DATVKAPITAL
 TDBNUMBER5
 DATVKAPITALAN
 TDBNUMBER6
 DATVSTEUER ZEILE20 VISIBLE ZI CAPTION FALSE ATVAGBIS ATVSTART ATVAREV ALTERSPROZENTA ALTERSPROZENTB VOREINSTAUS REGISTRIERT USERNR MUSER HIDE USEROPEN
 ADMINSICHTBAR EINGABE1 EINGABE2 EINGABE3 SETFOCUS ZEILE22 ZEILE23
 SSCOMMAND5
 SSCOMMAND1
 SSCOMMAND8 TEXT0 MSG2 MSG3 VJAHR ZEILE3 MSG ZEILE4 WNW VERSORGUNGSBEGINN MYPUT FILENEU BERECHNUNGAUSLSEN SONDERZAHLUNGANZEIGEN"    Q INTEGER
 T  U  MYINDEX COUNTER 
 T     U  REGISTER LADEN  U  j !   Q INTEGER Q INTEGER %  c 
 T  
 T   T      B  U  KEYCODE SHIFT	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION  %  N   U  REGISTERS =   Q INTEGER Q INTEGER Q SINGLE Q SINGLE T      U  BUTTON SHIFT X Y MYFORM1 TIP CAPTION  T     U 	 MYTABLETT VISIBLE FALSEW %C    R     B @  T C    R 
 T   %    T    A /
 H +  
 H     T       T    $ T    I T    n T     T     T     T     T    ' T  	  L T  
  q T     T     T  
   T     T    * T    O T    t T    
 T     
 H   T      T    + T    P T    u T     T     T     T    	 T    . T  	  S T  
  x T     T     T  
   T     T    1 T    V T    { T     T    
 T     

 H
  
 T     2 T    W T    | T     T     T     T     T    5 T    Z T  	   T  
   T     T     T  
  	 T    8	 T    ]	 T    	 T    	 T    	 T    	 T    

 T     

 H9

  ^
 T     
 T    
 T    
 T    
 T     T    < T    a T     T     T  	   T  
   T     T    ? T  
  d T     T     T     T     T    
 T    B
 T    g
 T    

 T     +
 H
'  
 T     
 T     T    C T    h T     T     T     T     T    ! T  	  F T  
  k T     T     T  
   T     T    $ T    I T    n T     T     T     T     T    
' T     
 T  	 
   
   U 	 MYTABLETT DATUMSFELD0 VALUE I HARALD TRUE ZI WELCHESJAHR ZTI ZGRIDAKTIVIEREN DATUMSFELD1 SETFOCUSY
 H
  C  M{%    =        %C 
q  T P   T 3P  T CC 
 Z
 T o     	      T  35
 T o      C  #D %  @ T  a    &\ 	    / T
   
 d %  
 
 T
   T     T   
 d %  
 
 T   T        
 T  %  J
 T     %  Tarifeupdate
 T         1
 T  /     >       ?   @   A;
   T    2 ! (2 T " C ! #  T $ C ! %  T & C ! '  T ( C ! )  T * C ! +  T , C ! -  T . C ! /  T 0 C ! 1  T 2 C ! 3  Cy !  ATV4      T 5 6 7      Br T  20265
 T o     C   D   *x T8 C  T   T C8  9   %C : ; R 1996t' T CC : ; \g T C8  9  T C8  9   C  4 T  96858
 T o   
 HR      C   G  T  20920
 T o     NW T  20276
 T o     R T  5
 T o     S T  0001 T $ Altersteilzeitzuschlagsverordnung.de     U   ^   ab T  M
 < = ! T< >  >  ? > d T< @  @    ds   e T  20170
 T o     S   T   [   l   n   o T  19
 T o0 %  C 	 C  	 T  blbv.de T  000      u   v T  20510
 T o   C   T   A    	
  B C    P	 T  57
 T o     	 T  14
 T o     	 T  20290
 T o   C  	   G % D 
 	 B 
 TE F 
 TG H  TI  D 
  TJ  D K  F  ( L  M (* C M I  wvwN  C M  J  wvw4  C M  I  wvwN  C M I  wvw4  C M  J  wvwN  C M  I  wvw4  O  C M  J  wvw4   C
I  wnwN  C
 J  wnw4  C
 I  wnwN  C
I  wnw4  C
 J  wnwN  C
 I  wnw4  O  C
 J  wnw4  + CQ R  \bdaCS RZ BDAP . CQ R  \jdaCS R[ jdadatP 7 CQ R  \ZuschlgeACS R\ zuschlagP 7 CQ R  \ZuschlgeBCS R] zuschlagP 7 CQ R  \UrlaubCS R^ urlaubsblattP . CQ R  \SVCS R_ SozversP 5 CQ R 	 \KalenderCS R` KalenderP  CZI  BDAN  CZ J  BDA4  CZ I  BDAN  CZI  BDA4  CZ J  BDAN  CZ I  BDA4  C[I  jdadatN  C[ J  jdadat4  C[ I  jdadatN  C[I  jdadat4  C[ J  jdadatN  C[ I  jdadat4  C\I  zuschlagN  C\ J  zuschlag4  C\ I  zuschlagN  C\I  zuschlag4  C\ J  zuschlagN  C\ I  zuschlag4  C]I  zuschlagN  C] J  zuschlag4  C] I  zuschlagN  C]I  zuschlag4  C] J  zuschlagN  C] I  zuschlag4 # C^I  urlaubsblattN   C^ J  urlaubsblatt4   C^ I  urlaubsblattN # C^I  urlaubsblatt4   C^ J  urlaubsblattN   C^ I  urlaubsblatt4  C_I  SozversN  C_ J  Sozvers4  C_ I  SozversN  C_I  Sozvers4  C_ J  SozversN  C_ I  Sozvers4  C`I  KalenderN  C` J  Kalender4  C` I  KalenderN  C`I  Kalender4  C` J  KalenderN  C` I  Kalender4 
 TF E 
 TH G  L  T H  T D 
  D 
  T     T  D/Dynamisierung
 T n     
 T!   Progress    %C  TV W   
   TV W   
   C
 H  wnw4  TX CY   TZ CY 
 T[ \  ] 
 T^  T_ CZ  9  `       0 C #200a 9 Cb  \gehaltCc \ sr	 userdatenP  Ce	 userdatenN   %Cd e 
 Schutz ein0 T f ;   A U S   fr Texte und Tarife Td e 
 Schutz aus
 Tg h  0 T f ;   E I N   fr Texte und Tarife Td e 
 Schutz ein
 Tg 7   Ce	 userdaten4  C #200a  i    H j    j
  k  l    |   ,   N T 5 6 7  T Cm n  o    {    p     p    1 p    ] T!     q    o   +    Tr Q R  Ts Q R  \Backup1 t 
  k 
 C a  u    9
  k 
 T n T  gehalt-download   v    R w   Ux  REGISTER STEUERBERDRUCKEN ZI MYID MSG INET INSINTERNET MYFORM1 ENABLED BERWEISUNGSLISTEDRUCKEN MULTIPLIKATORB	 MYTABLETT
 TDBNUMBER0 VALUE
 WELCHERMONATB COMBO1	 LISTINDEX MULTIPLIKATORA
 TDBNUMBER1
 WELCHERMONATA COMBO2 VOREINSTAUS VOREINSTEIN
 SPEICHERCHECK MONAT NEUDURCHRECHNEN WELCHESJAHRTARIF LADEN DIMENAUS ATV J WELCHESJAHR JAHR1 I	 DATVAGBIS ATVAGBIS	 DATVSTART ATVSTART DATVAREV ATVAREV
 DATVUMLAGE	 ATVUMLAGE DATVUMLAGEAN ATVUMLAGEAN
 DATVSANIERUNG ATVSANIERUNG DATVKAPITAL
 ATVKAPITAL
 DATVKAPITALAN ATVKAPITALAN
 DATVSTEUER	 ATVSTEUER MYPUT SSPANEL1 VISIBLE TRUE BDADATA
 BERECHNUNG KASTEN10 CAPTION SPLASH SHOW TOP
 SSCOMMAND1 LEFT LSTAUSGLEICH	 PRINTFORM CLICK	 SSSCROLL1 MODUSALT MODUS
 FILENUMMER FILENEU III IIII MAX	 DATEIOPEN K MYGET
 GRUNDSTELLUNG MYOPEN EIGDAT MUSER WELCHESJAHRC
 NAMENWECHSELN PROGRESS WNW	 ZATZNETTO ATZTEIL WERT BETRAG ALTERSPROZENTB ATZAUFSTOCKUNG WVWOUT	 LASTCLICK LASTT
 FOLGEMONATNEU MYCLOSE	 EIGDATFIX XJAHR4	 USERDATEN PASS ZEILE24
 TEXTSCHUTZ FALSE SRVERTEILEN DATEN2016KOPIEREN HIDE BERECHNUNGAUSLSEN WVW ZNAM	 JAHRAKTIV DYNAMISIERUNGDRUCKEN SONDERZAHLUNGSHILFE MSG2 MSG1 DATEIENUMSCHICHTEN ZUMPROGRAMM APPEXIT ENTSCHULDIGUNG{
 H
 t       U 
 T o T  20300  0 C  &4^HRTc 
    T   	  %       T  a    	
 T o T  218764     =
 T o T  155     + T   	  T
 C
       /
 T o T  20445     1
 T o T  20447     ek$ %C 
   C   * B 
 H;g% C   C 	g    C  =?@ T      ( T CC  Z' myTablett.Combo&xxx..Enabled = True
  T   	    >7 T  148
 T o   C  CH_ T   	    A           B T   	    D C  G
   b   l   o   r	   v	   X	   Y	   Z   _
    T   	    S T  030 T      U   [   a   u   {

 T o T  51   C  <
    T  	    g
    T  	     T        C   T     T     T     T     T   !   !  T   "   "  T    	 
  # $  T      T     T   	  T   	  T   	    L % %  &  B ! % %   % '  B 
 T( ) 
 T* +  T,  %   T-  % '  )  ( .  / (? C / ,  wvw0  C /  -  wvw1  C /  ,  wvw0  C / ,  wvw1  C /  -  wvw0  C /  ,  wvw1  2  C /  -  wvw1   C
,  wnw0  C
 -  wnw1  C
 ,  wnw0  C
,  wnw1  C
 -  wnw0  C
 ,  wnw1  2  C
 -  wnw1  + C4 5  \bdaC6 RZ BDA3 . C4 5  \jdaC6 R[ jdadat3 7 C4 5  \ZuschlgeAC6 R\ zuschlag3 7 C4 5  \ZuschlgeBC6 R] zuschlag3 7 C4 5  \UrlaubC6 R^ urlaubsblatt3 . C4 5  \SVC6 R_ Sozvers3 5 C4 5 	 \KalenderC6 R` Kalender3  CZ,  BDA0  CZ -  BDA1  CZ ,  BDA0  CZ,  BDA1  CZ -  BDA0  CZ ,  BDA1  C[,  jdadat0  C[ -  jdadat1  C[ ,  jdadat0  C[,  jdadat1  C[ -  jdadat0  C[ ,  jdadat1  C\,  zuschlag0  C\ -  zuschlag1  C\ ,  zuschlag0  C\,  zuschlag1  C\ -  zuschlag0  C\ ,  zuschlag1  C],  zuschlag0  C] -  zuschlag1  C] ,  zuschlag0  C],  zuschlag1  C] -  zuschlag0  C] ,  zuschlag1 # C^,  urlaubsblatt0   C^ -  urlaubsblatt1   C^ ,  urlaubsblatt0 # C^,  urlaubsblatt1   C^ -  urlaubsblatt0   C^ ,  urlaubsblatt1  C_,  Sozvers0  C_ -  Sozvers1  C_ ,  Sozvers0  C_,  Sozvers1  C_ -  Sozvers0  C_ ,  Sozvers1  C`,  Kalender0  C` -  Kalender1  C` ,  Kalender0  C`,  Kalender1  C` -  Kalender0  C` ,  Kalender1 
 T) ( 
 T+ *  .  7  T %   %   8    d 9    | :     ;     C            <    ,
 T o T  20276     =   ,O+   N   	   	 T   	        =  >    + T        % ?   
 T@    1 T@  ?   C #200A 9 CB  \gehaltCC \ sr	 userdaten3  TD E    C	 userdaten1  TD E 4  %F } C F 	 userdaten1  TG 4 5 3 If .Not. Directory("&hsxdir", vbDirectory) Q TG 4 5  Mkdir "&hsxdir"
 
 C A  H 
 Hv F 

" T5  \user00CCF  Z F d
! T5  \user0CCF  Z F d  T5  \userCCF  Z  %CI J g P* T5 5   Bitte noch freischalten! " T K C K fC5 \ L   M     TN 4 5  TO 4 5  \Backup2 P 
   
 C A  H    
 TQ R  S    , T    	   	t T  111 T  20445    UU  REGISTER INET MSG INSINTERNET	 MYTABLETT HIDE MYFORM1 SSPANEL1 VISIBLE TRUE WERT BRUCHTEILFAKTOR BERECHNUNGAUSLSEN DATUMSFELD0 VALUE DATUMSFELD1 ZI
 BDADRUCKEN FALSE I XXX ZVKVORGABEN ATVUMLAGEANLEGEN ATVVORGABENHOLEN LADEN SETFOCUS MYLINK LSTAUSGLEICH
 SSCOMMAND1
 SSCOMMAND2
 SSCOMMAND3 HEIGHT LABEL1 TOP LEFT	 PRINTFORM CLICK	 SSSCROLL1
 SATZANZAHL MAX MODUSALT MODUS
 FILENUMMER FILENEU III IIII	 DATEIOPEN K MYGET MYPUT
 GRUNDSTELLUNG MYOPEN EIGDAT MUSER WELCHESJAHRC NAMENINCOMBO
 NAMENWECHSELN DYNAMISIERUNGDRUCKEN	 ATZANLAGE ATZDRUCKENB SPEICHERORTFESTLEGEN SONDERZAHLUNGANLEGEN SONDERZAHLUNGANZEIGEN DIR1 ORDNER MYCLOSE	 EIGDATFIX XJAHR4	 USERDATEN PFAD USERNR HSXDIR ZUMPROGRAMM DIMEN DIMPW2 CAPTION USEROPEN SRVERTEILEN MSG2 MSG1 DATEIENUMSCHICHTEN OP1 JAHR3 TARIFELADEN ENTSCHULDIGUNG0 T    \Tarife\ G.B T  htt p://www.pc-gehalt.de/  /kugdateien.zip?1' T   \Tarife\kugdateien.zip5 Retval = URLDownloadToFile(0, msg9, "&Msg", 0, 0)
 %  
Y CV Bitte schalten Sie Ihr Internet ein, sonst ist ein Update/Updateprfung nicht mglich!  Eine Aktion ist erforderlich..  B ' T   \Tarife\kugdateien.zip T   \Tarife T	 C    
  DELETE FILE "&uzipfilename"
R CE Die Tabellen zur Berechnung des Kurzarbeitsgeldes wurden installiert!  G.  B U  UEXTRACTDIR EIGDAT MSG9 XJAHR4 MSG RETVAL MSGBOX UZIPFILENAME HSXDIR	 KUG_ERROR CMDSTARTUNZ HINWEIS T    \Tarife\
 T    (N  C(    G.P T  htt p://www.pc-gehalt.de/  /TarifeCC  Z .zip?15 T   \Tarife\TarifeCC  Z .zip5 Retval = URLDownloadToFile(0, msg9, "&Msg", 0, 0)
 %	  
 CV Bitte schalten Sie Ihr Internet ein, sonst ist ein Update/Updateprfung nicht mglich!  Eine Aktion ist erforderlich..
  B 5 T   \Tarife\TarifeCC  Z .zip T   \Tarife C    
  DELETE FILE "&uzipfilename"
  (P C 	 \tarife\tCC  ZCC  Z .ttt(  employee   G. 
 T  % N T     B 
 C  U  UEXTRACTDIR EIGDAT J OP1 I MYCLOSE MSG9 XJAHR4 MSG RETVAL MSGBOX UZIPFILENAME HSXDIR CMDSTARTUNZ NR MYOPEN III REGISTER INDEXI	 JAHRAKTIV NEUESUPDATE~
 H
 w C   /? 
    T       ] 
 T  F C  

4{        C  	1 
       
 T o T	  90071 
     
 T o T	  90000 
    W
 T o T	  90010 
    
 T o T	  96110 
        
 T o T	  96150 
    "   %
 T o T	  96194 
    */   =@   ?Q   @b   A
 T o T	  20531 
    B; Cu Diese Funktion sollte entwickelt werden, wenn gengend Interesse daran bekundet wird. Dies war bisher nicht der Fall. 
 Interesse?x   Dr
 T o T	  20464 
    H
 T n T  
    N
      S T  000- T	   bundesrecht.juris.de/alttzg_1996 
    T&   U7   [R
      ^c   at   e]
 T o
 HR C   T
 * C  T
 ' CC 
 T
   C 0 T
 ȯ   C R
 T
   
 6   p   r	   X	   Z	
 T o T	  20520 
    u   v     
 T  >      C  J
    T       b     z        T 
 T   
      
 T o T	  218764 
    
      M
 T o T	  20447 
  C  ȭ %C 

 T n0 T	 # A/Altersteilzeitzuschlag/Uebersicht 
 T n# T	  A/Altersteilzeit/Index  
  C  ݭ
      M
 T o T	  96200 
    ^   	 T  QT C( Bei "Ja" ffnet sich ein Datei-Explorer.C
 ; Bitte whlen Sie darin das Programmverzeichnis der Version    aus.C
 ) (i.d.R. C:\Benutzer\ffentlich\Pc-Gehalt\  )8 Userbezeichnungen und zugehrige Passwrter aus Version    bernehmen?x % 	
 T   B      	 T C          1

 T o T	  105 
    C
   ,U
   Nn
     
   
   +
   

    T       8 T    T     \Backup3 ! 
   
 C "  #    ^
 T$ %      w &   U'  REGISTER	 MYTABLETT HIDE MYFORM1 SSPANEL1 VISIBLE TRUE
 ANLAGEDRUCKEN INET MSG INSINTERNET MYLINK ZI MYID WEIHNACHTENDRUCKENALT LADEN IMPORTDATEISUCHEN EXPORTDATEIBESTIMMEN NAMENINCOMBO FILENEU	 NEUERNAME RESPONSE XJAHR3 SPEICHERORTFESTLEGEN J COMBO	 LISTINDEX SATZLSCHEN TARIFELADEN MSG2 EIGDAT MUSER MSG1 DATEIENUMSCHICHTEN MYCLOSE ZUMPROGRAMM OP1 JAHR4 ENTSCHULDIGUNG! %C      III. 
 T  
 H?   =
 % 
l    B  7  d 7  d
 J  ( 
 J (  	 (
 T   T  
  CC 
 Z
 T  8 T  
 Personalfall CCC 
 Z
 T 
 
 T  
 T  
 T
   
 T  
 T
     T  
  CC 
 Z
   
   * T  
  CC 
 Z	  (fertig)  
 T    ?  @,  A`
 T o T  47    B Cu Diese Funktion sollte entwickelt werden, wenn gengend Interesse daran bekundet wird. Dies war bisher nicht der Fall. 
 Interesse?x  D 
       HV T  000 T   $ C  e
     T     %  T  a   S
     T        !   T  U  [m T / T " Entgeltbescheinigungsrichtlinie.de    ^
 T o T  20335    a  u    5
 H1   " #  $    " # 1 %    M &   
 T o T  134     %  '   West T  '   O s t  T  '   West  ( (y T) CC(  Z! myTablett.Dezi&xxx..Value = 0
 T* CC(  Z& myTablett.tdbnumber&yyy..Value = 0
  T  +    T      ,  -   
 T   T. / 0 F T1 / 2 F   
     T    C eҭ=
      N  
 T o T  20340     
 T3   %C  U 7 
 T   %C 
 T   4  %  5  
 T6   8 7   +T
      ,f  x   8   
      
 T9 :  ;   U< 	 MYTABLETT
 SSCOMMAND5 CAPTION REGISTER REGISTRIERT MEHRALSFNF ZT0
 SATZANZAHL BEDIENST SPALTE ZEILE13 FILENEU MONATALT MONAT
 FILENEUALT	 NEUERSATZ WVWIN REFRESH NAMENINCOMBO OHNE_Z_CLICK FALSE INET MSG INSINTERNET	 PRINTFORM CLICK MYLINK HIDE MYFORM1 SSPANEL1 VISIBLE TRUE
 BERECHNUNG ANZEIGE COMBO0	 LISTINDEX HISIMPORTDATEITVOED HISIMPORTDATEI HISEXPORTDATEI
 SSCOMMAND4 I XXX YYY ZEILE4
 DYNAMISIERUNG DYNAMISIERUNGBERECHNEN ALTERSPROZENTA VOREIN VORATZA ALTERSPROZENTB VORATZB MYINDEXE LADEN ADMINUNSICHTBAR FENSTEROFFEN KOSTENSTELLEN2012 SONDERZAHLUNGABSPEICHERN OP1 JAHR5 TARIFELADEN! %C      III. 
 T  
 H?   ?P   A
 Hn 0 C      !"  %   T    T         T  C    & T  C    O T      t T  C     T       T  C    	 T r C    
 T      9 T      ^ T u C    
 T       T       T      
 T         T      >
 T        b
 T         T       T "      T	  000 T z 
  B      T '     
 T	 d3 T & https://www.kvt-zvk.de/index.php?id=73. | ShellExecute shell32.dll) T C   Open          B      T |
 T        ' T *
 T        Y T +
 T         T ,
 T         T -  T	  000 
 *    	  	
 T	 o T  43 
   SO T    
 T    
  T
 T	  T  Inhalt10 
   e$ %C     C     B  T  C
  T CCC
 
R T    T       %C  ! L T  !  ! T "  CCC  #  T      C
 %  wnw$  T&  T'     (  T  ) * +  T  ) ,       Export    -  G %  .   West /  	   .   O s t / 	
 T  0 1 2  %  3  z	 T 4  C5  T  

 T& m
 T6  (  T7 CC8  Z6 wert(1+9) = myTablett.tdbnumber&hstdb..value * 100
 T9 C
: 
 T& 
 T;  (  
1 T <   Besitzstandszulage (angepasst). T =  Besitzstandszulage (angepasst) T   
 T& q
 T6   (  T> CC8  Z5 wert(1+13) = myTablett.tdbnumber&xxx..Value * 100
 T? C:  T9 C: 
 T& 
 T;  (      0 & %  .   West / 	4H T ; West-Betrge drfen nicht in ein Ostland bertragen werden. ' %  .   O s t /  	H T ; Ost-Betrge drfen nicht in ein Westland bertragen werden.  T 3 Bei der berleitung vom BAT zum TVD/TV-L waren dieC
 5 Ost-Tarife noch nicht auf dem Niveau der West-Tarife.C
 3 Deshalb fllt die Anpassung unterschiedlich aus undC
   T@  TA 2  TB    B  TC d TD   D  TE x T1 +   T   1 2    

  ;

 TF   Progress  L
  ]
  y
 T    F (	
* T  CCC	 pc-gehaltF \2  9 CI  \gehaltCJ \ sr	 userdatenH  C L 	 userdatenK  TM N   C L 	 userdaten$ / T  O    zurckgesetzt auf pc-gehalt P   ( C #1Q , CR S  \GT  I1 wvw) H  TU V CW 
 TX 
 TY Z 
 T[ \  ] Y [  T     Fertig  :  ,L  ^ C v+x   ^  C   U_ 	 MYTABLETT
 SSCOMMAND5 CAPTION REGISTER COMBO0	 LISTINDEX WELCHESJAHR MYLINK MSG INET INSINTERNET SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL MSG2 COMBO1 COMBO2 DATUMSFELD0 VALUE DATUMSFELD1 WNW ZTEXT2	 COMBOTEXT BDATEXT WVW BDA	 BDABEGINN DASTUFEBERECHNEN ZI DASTUFEN Z7 ZT7 MYPUT FILENEU	 LASTCLICK LASTBDATEXT BERECHNUNGAUSLSEN
 SSCOMMAND2 ENABLED TRUE TOOLTIPTEXT EXPORT
 SSCOMMAND4	 ALTESLAND ZEILE4 VISIBLE FALSE CHECK0 Z9 ZT9 LASTZ HSTDB OP2 LASTT WERT
 T_GECLICKT Z13 ZTEXT17 XXX BETRAG FONTSIZE FONTBOLD TOP LEFT WIDTH HEIGHT I PROGRESS MYOPEN	 EIGDATFIX XJAHR4 MYGET USERNR	 USERDATEN PASS ZEILE23 SRVERTEILEN MYCLOSE EIGDAT MUSER XJAHR3 DIMEN DIMSATZANZAHLJ3 LOF MYINDEXE	 TEMPJAHR3 JAHR3	 TEMPJAHR4 JAHR4 WECHSEL_VON_NACH SERVERUPDATE*  T     X T       U 	 MYTABLETT TEXT1 PASSWORDCHARH 
 H
 A ! C  #A  T      U  REGISTER MYFORM1 SSPANEL1 VISIBLE TRUE %    B  % Q 
 T  
 T -
 T   
 Hb    >  T      C  4  T   	      
          
  T   	    , 
 H"   
3      	P      	m   	   +	   N
 T
 
   U  REGISTER NETTOJA
 Z_GECLICKT	 MYTABLETT TEXT1 PASSWORDCHAR MYFORM1 SSPANEL1 VISIBLE TRUE	 NEUERNAME	 NEUERSATZ NAMENINCOMBO I  %  
   
    T   Z T       T     T    Z  
 T	   %  +
  T 
      U  REGISTER NETTOJA	 MYTABLETT TOP MYFORM1 LEFT SSPANEL1 WIDTH HEIGHT
 SPEICHERCHECK TIP CAPTIONF    Q INTEGER %   2  B 
 T   U  CANCEL REGISTER FENSTEROFFEN
 H
    ?    A 
 T  %C 
_  T 1 u  T 2      S 
 T n# T  A/Altersteilzeit/Index           
 T   Progress   E
 T o T  20357     |
 T o T  20357   C  
 T n T     U	  REGISTER INET ZI MYLINK INSINTERNET MSG ALPHABETISCH I PROGRESS
 H
     ?    AT  T  060 T 4     s   Export C  Q 
 T   
    T  	     
 T n" T
  
 /Tarifdateien     U  REGISTER INET MYLINK INSINTERNET EXPORT	 MYTABLETT HIDE MYFORM1 VISIBLE TRUE MSG XJAHR4 
 H
     ?    9 
       
 T n" T  
 /Tarifdateien     U  REGISTER MYFORM1 SPEICHERORTFESTLEGEN INET MSG XJAHR XJAHR4 INSINTERNET 
 H
     ?    /    f 
 T o T  20375      
 T o T  20375      
 T n" T  
 /Tarifdateien     U  REGISTER INET MSG INSINTERNET XJAHR4N 
 H
 G    %      6    G   U  REGISTER
 NAMENWECHSELNN 
 H
 G        6      G   U  REGISTER
 NAMENWECHSELN% 
 H
        U  REGISTER% 
 H
        U  REGISTER 
 H
       %   19  B  %   dX  B  % 2  %      B   T          U  REGISTER	 MYTABLETT	 SSSCROLL3 VALUE ALTERSPROZENTB
 ALTERRECHNENB ALTERSTEILZEITB   Q INTEGER
 H  C #M  T    $ C pqrXYZq    D %     
  	       
  
 
   ! T        
     / If mytablett.Kasten&xxx..Caption = "Ja"e* mytablett.Kasten&xxx..Caption = "Nein"
 ( mytablett.Kasten&xxx..Caption = "Ja"
    T  310
 H    T
 K    T
 L   5 T  510 T
 M   T T
 N    T  111 T  5     U  MYINDEX REGISTER MYFORM1 SSPANEL1 VISIBLE TRUE	 MYTABLETT	 SSSCROLL1 VALUE MAX MIN
 NAMENWECHSELN INET MYLINK MSG INSINTERNET	
 H
    @    T/    U@    e 0 T    01/C \ .C R T     %   
                    +  U  REGISTER	 MYTABLETT DATUMSFELD1 VALUE MSG BDADATA DATUMSFELD2 SETFOCUS$ !   Q INTEGER Q INTEGER U  KEYCODE SHIFT    Q INTEGER
 H    	0   TA   UR   ?c   @t   u            U  KEYASCII REGISTER!   Q INTEGER Q INTEGER
 H.   1q  T    T     Tarife  U  C pqr'	   (#	< % 
 C 
 C   	  !  T CC  Z7 If mytablett.optiongroup1.Opt&xxx..Value = True	
 HP<    %  %	 ' T
  dC   ' T
  dC    4 T
  dC
 C

 RQ?' T
  dC d
  % d T  d  T CC d Z" myform1.Wei&yyy..Caption = "-"
   ' T
  dC   ' T
  dC       % 	a %	 ' T
  dC   ' T
  dC    ] T
  dC
   C    employee   @ T
  dCC  C d
  ' T
  dC d
   C    employee     ' T
  dC   ' T
  dC    3         	<' T
  dC   ' T
  dC    0 %  C 
	 C 	 %    T CC d ZF myform1.z(register - 100)&yyy..Caption = zt12(1+Knopf * 27 + iii) 
   C ( C     wvw  T      T CC  Z% myform1.z&xxx..Caption = lasttext
$ T   CC 
 8 T   
  C     wvw    # T  d    %   s T CC d Z5 myform1.z&yyy..Caption = zt12(1+Knopf * 18 + iii)
 b  C (^ C     wvw  T      T CC  Z% myform1.z&xxx..Caption = lasttext
$ T   CC 
 8 T   
  C     wvw    # T  d    ! 
 T"   T# C d  $  T%  d %     	 &  	 '   T( ) * +  B   C XYZI
   (E
 T CC  Z7 If mytablett.optiongroup1.Opt&xxx..Value = TrueA
 %   	L
  C    employee @ T
  LC
 C

 C, - RQ?) T
  LC L
   %C L  
$ T
  LC  $ T
  LC    T. C 
  T
  L.  T
  L.    %    T CC L Z; myform1.z&xxx..Caption = zt12(1+(Knopf - 6) * 18 + iii)
 {  C (w C     wvw  T      T CC  Z% myform1.z&xxx..Caption = lasttext
$ T   CC 
 8 T   
  C     wvw    ) T  L   !  T"   T# C L  $  T%  L %    	
 &  &
 '   T( ) * +  B   C 
  
 Hz
   Z7 C Derzeit noch nicht verfgbar 	 Sorry ...x B T/ 0  T  T1 2  T1  / Wenn Sie UPDATEN anklicken geschieht Folgendes:C
  1. Das Programm wird beendet.C
 A 2. Das Update wird aus folgendem Verzeichnis auf Ihren PC kopiertC
 ]      (es mu ein Verzeichnis auf dem Server der Dienststelle sein und ist u.U. neu anzulegen) T3 * +  T4 2 2; T4  * 3. Das Update wird auf Ihrem PC gestartet. T5 2 5T5  T Wenn das Update in diesem Verzeichnis nicht gefunden wird, knnen Sie Folgendes tun:C
 D 1. Bitten Sie Ihren Systemadministrator, das Update aus dem InternetC
 T      herunterzuladen und auf dem Behrdenserver in diesem Verzeichnis abzulegen oderC
 C 2. Fragen Sie den Systemadministrator nach dem Pfad zu dem auf dem C
 W      Behrdenserver abgelegten Update und korrigieren Sie den obigen Pfad entsprechend. T6     7  8      T  T/ 0   T1 2   T1   Wenn Sie UPDATEN anklicken, wird das Programm beendet. Anschlieend gelangen Sie auf eine Internetseite, auf der die Unterschiede zwischen der neuesten Version und Ihrer Version aufgelistet sind.f T1  1  M Wenn Sie dann updaten mchten, klicken Sie dort auf den blauen Download-Link. T4 2 - T4  َ Auch wenn noch kein Updatealarm ausgelst wurde, kann es schon neuere Versionen mit kleineren Korrekturen geben. Schauen Sie einfach mal nach. T5 *   T6 *   T3 *   7  9      :   U;  MYINDEX VALUE REGISTER ZI TARIFE III WELCHESJAHR XXX KNOPF OP1 BETRAG GRUNDBETRAG ANPASSUNGSFAKTOR WERT WEIZ FALSE YYY MYGET
 FILENUMMER
 MYPOSITION	 GETVALUES K FILENEU LASTTEXT	 MYTABLETT OPTIONGROUP1 OPT0 CAPTION ZTI WVW TNAM ZULAGEN MYPUT VERGTUNGSGRUPPENZULAGEN	 LASTCLICK LASTZ BERECHNUNGAUSLSEN I	 DEMFARBIG DEMNICHTFARBIG MYFORM1 SSPANEL1 VISIBLE TRUE EMPLOYEE FELD NUMBR DIMEN DIMPW8 ZEILE9 TOP TEXT0 ZEILE10 ZEILE11 ZEILE12 DIMENAUS SERVERUPDATE INTERNETUPDATE DYNAMISIERUNGBERECHNEN   Q INTEGER % C  %  8  B    
 HX {     % / %    5 T ( Der Faktor wurde auf 100 % zurckgesetzt T	  Achtung C  	 x T   d     n % q T
     d C
   wnw
  T 
      % / %   5 T ( Der Faktor wurde auf 100 % zurckgesetzt T	  Achtung C  	 x T   d   % Aj %   f+ T       d     j
 Hf  " %C  # T         # T          T     T       { T
     d C
   wnw
  T 
      Af %       T       ( %         	 T !     T !  "   %   b+ T#       d     p %  %C  
# T         # T          T     T       % Al %   h+ T$       d     
 H  A %   + T%     &  d     
 H  A %     &  N T     &   ( %         	 T !     T !  "   %   ( T'       d     j
  f % Ab %  ^' T(   )  d      {   U*  MYINDEX REGISTER	 STARTFLAG TRUE DYNAMISIERUNGBERECHNEN	 MYTABLETT
 TDBNUMBER0 VALUE MSG MSG1 WNW VERSORGUNGSBEZUG
 TDBNUMBER1 MYPUT FILENEU VBEZM BERECHNUNGAUSLSEN COMBO0	 LISTINDEX	 ATVUMLAGE ZI JANUAR TOP
 TDBNUMBER3 HEIGHT LEFT CHECK0 WIDTH VISIBLE
 VERSORGUNGSSZ
 TDBNUMBER2 VBEZS
 TDBNUMBER5 ZEILE16 FALSE ATVUMLAGEAN ATVSANIERUNG
 ATVKAPITAL
 TDBNUMBER4 ATVKAPITALAN	 ATVSTEUER
 TDBNUMBER6v   Q INTEGER
 H o   X  % T  T          %   T        o
 H k  k %  
- T CC   ZE wnw.TVDZeile(myindex + 4) = mytablett.tdbnumber&xxx..Value * 100
  T   	  T
    C
 
  wnw    U  MYINDEX REGISTER	 MYTABLETT JANUAR VISIBLE FALSE XXX ATZNETTO TDBNUMBER11 VALUE WNW	 ZATZNETTO MYPUT FILENEU   Q INTEGER
 H   0   N 
 T    * %      (  T CC  Z" mytablett.Text&xxx..Value = ""
    ( T CC  Z& mytablett.Kasten&xxx..Caption = ""
 
 H) C  T   	   ( T CC  Z% mytablett.zeile&xxx..Caption = ""
     + %      (" T CC  Z" mytablett.Text&xxx..Value = ""
    (z T CC  Z& mytablett.Kasten&xxx..Caption = ""
 
 H CC  T   	   (
 T CC  Z% mytablett.zeile&xxx..Caption = ""
     *'  ,w %  s T 
     T 
  C 
    = %     >  U  
      U  MYINDEX REGISTER III I XXX ZI	 MYTABLETT TEXT1 VISIBLE FALSE TEXT4 VALUE	 FORECOLOR QBCOLOR
 SSCOMMAND3 SETFOCUSc0   Q INTEGER Q INTEGER Q INTEGER % >\
 HN J   r  T         T  	       T
         T  
      T       & T       J T           U  MYINDEX KEYCODE SHIFT REGISTER DITEXT1	 MYTABLETT TEXT1 VALUE DITEXT2 TEXT2 DITEXT3 TEXT3 DITEXT4 TEXT4 DITEXT5 TEXT5 DITEXT6 TEXT6 DITEXT7 TEXT15 VOREINSTAUS VOREINSTEIN5!   Q INTEGER Q INTEGER
 H. 5   ?   P   =
 Hn 4     /	  :  	 
 T    
 %   
      %   
       C >O
 H*   V T C   C      T	 C 
  C      T C   C   T
   C     T    C   T
   C    . T C   C     o T C    T   CC >    T C   C     	 T C   C     
 T C   C       @  A
 H-K     +	  -  /	  :  	
 T    ,
 T .  
 T CC   Z1 If Val(mytablett.Text&xxx..Value) > 50000c" mytablett.Text&xxx..Value = ""
A C) Ein Betrag ber 50.000 ist sicher falsch.0 Fehlerx B 
 Ht       ( T CC   Z5 mytablett.Text&xxx..Value = mytablett.Text0.Value
    d   (` T CC   Z5 mytablett.Text&xxx..Value = mytablett.Text1.Value
     T 
        	   ( T CC   Z4 mytablett.Tex&xxx..Value = mytablett.Text5.Value
       ( T CC   Z5 mytablett.Text&xxx..Value = mytablett.Text6.Value
     T         % 
 !    U  
 H    % 
h
 T"   T# C $  
 T%     (&  %% 
 T%  % %CC  (  # '   %% 
 T) %     T% %      (A
 T CC   Z( mytablett.zeile&xxx..BorderStyle = 1
) mytablett.zeile&xxx..MousePointer = 1
 T" " 4 mytablett.zeile&xxx..Left = mytablett.text1.left
+ mytablett.zeile&xxx..Top = i * 25 - 125
6 mytablett.zeile&xxx..Width = mytablett.text1.width
$ mytablett.zeile&xxx..Height = 20
& mytablett.zeile&xxx..FontSize = 10
 %%   
k mytablett.zeile&xxx..Caption = "  " + ALLTRIM(STR(i - 6,3,0)) + ".)    " + zt0(1+gefunden(1+i - 6) - 1)
& mytablett.zeile&xxx..visible = .t.
 =
& mytablett.zeile&xxx..visible = .f.
   %% 	i
 T * + ,  
 T * + -  
 H
6 %  I4 T .  ! Die gesuchte Zeichenfolge konnte ) T /   nicht gefunden werden. T  + - 
  $   T . + ,  T / + ,  %  T0 C)  T
 1  0  B %  % 	y
G T .   Ihre Eingabe trifft auf C% Z  Personalflle zu.L T /  9 Gewnschtes anklicken oder lfd. Nr. + Entertaste eingeben T  + , 
       (% 	
 T CC   Z' mytablett.zeile&xxx..Visible = True
& mytablett.zeile&xxx..BackStyle = 1
8 mytablett.zeile&xxx..BackColor = hex2rgb("&HC0FFC0")
    (b
 T CC   Z' mytablett.zeile&xxx..Visible = True
  T 2 + -  % 63 T .    Es konnten nicht alle gefundenen2 T /   Personalflle angezeigt werden. T  + , 
       (%  T CC   Z' mytablett.zeile&xxx..Visible = True
& mytablett.zeile&xxx..BackStyle = 1
8 mytablett.zeile&xxx..BackColor = hex2rgb("&HC0FFC0")
    ( T CC   Z' mytablett.zeile&xxx..Visible = True
  T 2 + ,   T . 3 C4  T / 3 C4   T .     T /     T  + - 
  $     ( T CC   Z( mytablett.zeile&xxx..Visible = False
      %% 

 % /  :
	 T   0 T0 C  )  T
 1  0 
  5  
 T   T       
 H  
Z T  CC   g %  
 T0 &  9 T0 C  )   T
 1  0 
  5   0  9	E %6   T6  0 %6 
 T  6  T0 C  )  T
 1  0 
  5   A T  6 
 0 T0 C  )  T
 1  0 
  5  K     	    /	  :  	
 T   T          e0
 Hp/    
 HV     	    -	  /  :  	P C8 Das Datum ist in folgendem Format einzugeben: TT.MM.JJJJ0 Formatx
 T   
 H CC 7  > Y % 3U` C. An dieser Stelle ist nur 0, 1,2 oder 3 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    CC 7  > % .N C6 Das Datum ist in folgendem Format einzugeben: TT.MM.JJ0 Formatx
 T    CCC 7  >Q % .
M+ C Hier ist ein Punkt erforderlichx
 T    CCC > % 1[ C) An dieser Stelle ist nur 0 oder 1 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    CC 7  >w( %C 7  C  8 Rs= C  Eingabe hher als 12!0 Es gibt nur 12 Monatex
 T    CC 7  >

 H% C9   C9 	
 T   T:  7  % T: C yyyyC: ;  T: C: " T:  01CC: \
 HU CC9  % T: C yyyyC: ;  T <  C: % T =  C yyyyC: ; % T >  C yyyy#C: ; % T >  C d >  ; % T ?  C yyyy#C: ; 
 HQ C9  %C9 % T ?  C yyyy(C: ; % T >  C yyyy(C: ; % T >  C d >  ;    T @  	 Ernennung T 7 3 CA 
 H2F C9  F %C9 
 T 7 3 CA 6 mytablett.Text1.BackColor = hex2rgb("&H80000005") 

  $   B T $   0 T B   + 0 T $ 3 CA 6 mytablett.Text2.BackColor = hex2rgb("&H80000005") 

      
 HW C9  %C9 
 T $   0 T B   + 0 T $ 3 CA 6 mytablett.Text2.BackColor = hex2rgb("&H80000005") 

      T $   0 T B   + 0 T $ 3 CA 6 mytablett.Text2.BackColor = hex2rgb("&H80000005") 

            !
 H! CC9  
 HK     	    /	  :  	C C+ Hier sind nur die Ziffern 0 bis 9 zulssig.0 Formatx
 T    %C $  >L C( Es sind nur bis zu 4 Stellen zugelassen.0 Monate ohne Bezgex  % 
 %C9 1 T $   0  T $ 3 CA 6 mytablett.Text2.BackColor = hex2rgb("&H80000005") 
# T: CC $  gC  T B   + CC: Z
     % C9  C9 	!
 HV     	    -	  /  :  	P C8 Das Datum ist in folgendem Format einzugeben: TT.MM.JJJJ0 Formatx
 T   
 H! CC $  > h % 3d` C. An dieser Stelle ist nur 0, 1,2 oder 3 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    CC $  > % .N C6 Das Datum ist in folgendem Format einzugeben: TT.MM.JJ0 Formatx
 T    CCC $  >`  % .
\ + C Hier ist ein Punkt erforderlichx
 T    CC $  >  % 1 [ C) An dieser Stelle ist nur 0 oder 1 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    CC $  >
!     '
 H9!!K     	    /	  :  	!C C+ Hier sind nur die Ziffern 0 bis 9 zulssig.0 Formatx
 T    %C $  >="L C( Es sind nur bis zu 4 Stellen zugelassen.0 Monate ohne Bezgex  % 
' T  3 CA $ T: CC   gC  T D   + CC: Z T: C: C: & T E  C mC: C: ; 9 T: CC m E   01/01/96F C  %C: 
R# T:  0 T G  C yyyyC:  E  ; 
 H#& C9  &
 H#&% C9   C9 	8$ %C: !$ T:  T H   Endstufe  T: 
 CC9 $ %C: $ T:  T G   Endstufe  T: 
 C9 "% %C: 	% T: 	 T G   Endstufe  T: 
	 C9 % %C: 
~% T: 
 T G   Endstufe  T: 

% C9  C9 	& %C: & T:  T G   Endstufe  T: 
% C9 
 C9 	& %C: & T:  T G   Endstufe  T: 
  
 H&' C9 '
 H&' C9  E' %C: .' T:  T G   Endstufe  T: 
 C9  ' %C: ' T:  T G   Endstufe  T: 
    % 
'
        +
 H((V     	    -	  /  :  	(P C8 Das Datum ist in folgendem Format einzugeben: TT.MM.JJJJ0 Formatx
 T   
 H(+ C 
  > c) % 3_)` C. An dieser Stelle ist nur 0, 1,2 oder 3 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    C 
  >) % .)N C6 Das Datum ist in folgendem Format einzugeben: TT.MM.JJ0 Formatx
 T    CC 
  >W* % .
S*+ C Hier ist ein Punkt erforderlichx
 T    C 
  >* % 1*[ C) An dieser Stelle ist nur 0 oder 1 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    C 
  >+ % 2+^ C, An dieser Stelle ist nur 0, 1 oder 2 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    C 
  >
+ T: 	 
  
 T  
        p/
 H+,V     	    -	  /  :  	,P C8 Das Datum ist in folgendem Format einzugeben: TT.MM.JJJJ0 Formatx
 T   
 H,l/ C   > T- % 3P-a C/ An dieser Stelle ist nur 0, 1, 2 oder 3 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    C   >- % .-N C6 Das Datum ist in folgendem Format einzugeben: TT.MM.JJ0 Formatx
 T    CC   >H. % .
D.+ C Hier ist ein Punkt erforderlichx
 T    C   >. % 1.[ C) An dieser Stelle ist nur 0 oder 1 erlaubt0  Nummer des Tages im Geburtsmonatx
 T    C   >
l/ T: 
   
 T  % T: C yyyyC: ; * T I  CC mC	: C
: F C    B %J  0 T CC   Z& mytablett.Kasten&xxx..Caption = ""
 T:    Cٮ Es ist ein nicht behebbarer Fehler aufgetreten, der nur unter Windows 95 auftritt, weil dessen Systemdateien den fr Windows 3.1 geschreibenen Programm-Code anders auswerten.@ Schadex  B  >0  M0  29 CL  \gehaltCM \ sr	 userdatenK  % 
2  Cd  	 userdatenN  T CC   Z2 userdaten.username = mytablett.Text&xxx..Value
  Cd  	 userdatenO  %  	
1 T CC   Z  mytablett.Text&xxx..SetFocus
 2
  7    P    J2 % 
F2 Q    5
 Hh25    4 % 
49 CL  \gehaltCM \ sr	 userdatenK 
  4 C R 	 userdatenN  TS T 7   C R 	 userdatenO  T7     TU CR 
C  T CCU  Z .Combo&xxx..Clear
   (
4$ CU 
  	 userdatenN R .Combo&xxx..AddItem(ALLTRIM(STR(j * 10 + i,5,0)) + ". " + userdaten.username) 
 TS V S V   TW CR 
G T CCU  Z .Combo&xxx..ListIndex = k
' .Combo&xxx..BackColor = QBColor(14)
        
	5 % 
59 CL  \gehaltCM \ sr	 userdatenK  TX CC   Z3 userdaten.username = mytablett.Text&hsxx..value
  Cd  	 userdatenO  %  

5 T CC   Z  mytablett.Text&xxx..SetFocus
 5
  $      P   UY  MYINDEX KEYASCII REGISTER	 MYTABLETT TEXT2 SETFOCUS
 SSCOMMAND1 DITEXT2 VALUE DITEXT3 TEXT3 DITEXT4 TEXT4 MYFORM1 LABEL4 CAPTION DITEXT5 TEXT5 LABEL5 DITEXT6 TEXT6 DITEXT7 TEXT7 ZEILE13 DITEXT8 TEXT8 DITEXT9 TEXT9 DISTEUERNUMMER TEXT10 DIMENAUS XXX I VOREINSTAUS ZWISCHENRAUM SUCHTEXT TEXT1 COUNTER1
 SATZANZAHL ISINSTR ZT0 GEFUNDEN ZEILE33 VISIBLE TRUE FALSE ZEILE5 ZEILE6 SPIN1
 TDBNUMBER1 ZEILE32	 BACKCOLOR	 FARBENRGB HIDE III TEXT0 MYSTRING ZI BDADATA DATEADD KASTEN1 KASTEN2 KASTEN3 KASTEN5 KASTEN6 QBCOLOR KASTEN4 FIX KASTEN7 KASTEN8 DATEDIFF KASTEN10 KASTEN0 KASTEN9 ERR MYOPEN	 EIGDATFIX XJAHR4 MYGET MYPUT SRVERTEILEN ADMINANLEGEN USERNR	 USERDATEN USERNAME J PFAD K HSXXG0   Q INTEGER Q INTEGER Q INTEGER
 H= @  z
 H[ E      	 
 T    	 
 T (   
 
 T       
	 
 T /   	
 T 2   '
 T d   E
 T _ 
 HVv      	 T CC   Z T CC   ZW mytablett.zeile(myindex + 11).Caption = j - Len(Alltrim(mytablett.Text&yyy..Value))
 C  v T CC   ZN mytablett.zeile&xxx..Caption = j - Len(Alltrim(mytablett.Text&xxx..Value))
  C >O@
 H5    T C 	 
     T C  
    # T
 C  
  T   C
    \ T   
  T   C     T C  
     T C  
  T   CC >    T C  
    	 T C  
    
5 T C  
       U!  MYINDEX KEYCODE SHIFT REGISTER J XXX YYY DITEXT2	 MYTABLETT TEXT2 VALUE DITEXT3 TEXT3 DITEXT4 TEXT4 MYFORM1 LABEL4 CAPTION DITEXT5 TEXT5 LABEL5 DITEXT6 TEXT6 DITEXT7 TEXT7 ZEILE13 DITEXT8 TEXT8 DITEXT9 TEXT9 DISTEUERNUMMER TEXT10 DIMENAUS   Q INTEGER %  
9 C  \gehaltC \ sr	 userdaten  C  	 userdaten 
 T     (CC 	 > & T  CCCC 	  \2   %C
    0 %CC
 
  >  CC
   > 	j! %C
 
  C
    T 	 
 
  
 T     (CC 	 >& T  CCCC 	  \2   T 	   C  	 userdaten 
 T  
 
       f T  \user001M C2 Ihre Eingabe stimmt mit dem Pawort nicht berein. 	 Sorry... x    { % w
 H3    		" T  \user00CC  Z  
  c	
! T  \user0CC  Z  d3 T  \user100 
 
  " T  C  fC \  
 T      T  \user001M C2 Ihre Eingabe stimmt mit dem Pawort nicht berein. 	 Sorry... x    C #200   U  KEYASCII MYOPEN	 EIGDATFIX XJAHR4 MYGET USERNR MSG I	 USERDATEN PASS	 MYTABLETT EINGABE1 VALUE EINGABE2 EINGABE3 MYPUT	 USERSTART HIDE SRVERTEILEN ZUMPROGRAMM MUSER ADMINUNSICHTBAR MYFORM1 CAPTION USEROPEN MYCLOSE    Q INTEGER %  
 
 T   !  (CC   >z ) T  CCCC    \2   T       U  KEYASCII MSG I	 MYTABLETT EINGABE2 VALUE EINGABE3    Q INTEGER %  
 
 T   !  (CC   >z ) T  CCCC    \2   T       U  KEYASCII MSG I	 MYTABLETT EINGABE3 VALUE EINGABE1   Q INTEGER
 H y    %    T C   # T C    T      
 	 
   C #  T   
   y' %  !       B  T    T CC  Z3 If .not. EMPTY(mytablett.Check&xxx..Value) u     U  MYINDEX REGISTER FILENEU GEFUNDEN ZI MYFORM1
 TDBNUMBER1 VALUE	 NEUERNAME	 MYTABLETT HIDE SSPANEL1 VISIBLE TRUE MYINDEXE XXX SPEICHERORTFESTLEGEN EBV,      entschuldigung     Check_GotFocus     Combo_Change    
 combo_Checked    
 combo_MouseUp^	     Datumsfeld_keyPress
     Datumsfeld_LostFocusc     Dezi_Change
     Dir1_Changex    
 Drive1_Change!    	 flexgrid1     geringcombo2003     zulageinstring     check_ClickY     combo_Click      combo_GotFocus6    	 Dyn_Click6     File1_Click7     Form_KeyDown7     Form_LostFocus7     Form_MouseMove7     Form_Terminatex8     Geburtstagsauswertung8     ssCommand1_ClicksJ     SSCommand2_Clickf     kugdateienladen~     tarifeladenI     ssCommand3_Click     ssCommand4_Click     sscommand5_Click_     mytablett_Form_Activateb     mytablett_Form_Click     mytablett_Form_Deactivate(     mytablett_Form_Do_Forme     mytablett_Form_Unload     SSCommand6_Click     SSCommand7_Click     SSCommand8_Click}     SSCommand9_ClickY     ssscroll1_changes     ssscroll1_scroll޺     ssScroll2_ChangeI     ssscroll2_Scroll|     ssscroll3_Change     kasten_Click¼     MSFlexGrid1_Click     MSFlexGrid1_KeyDownA     MSFlexGrid1_KeyPressy    	 opt_ClickR     tdbnumber_Changeg     TDBnumber_LostFocus    
 text_GotFocus     Text_KeyDown    
 text_KeyPress    
 Text_KeyUp"    Eingabe1_KeyPressI(    Eingabe2_KeyPressE-    Eingabe3_KeyPress.    zeile_Click.   >     A   A a!  Q A   A a!  A   A a!  A   A    A  Q A    A  q A    A   A    A F 3 3 ! !a A A A  q qA A A 3 !5 !qa3 qa3 !q q  a  A A A A 3 !rq 3 !A A r 3   D   QA A a"1A 3 A "4  1  1 q11111s11111D  q11131r11131A q1111111r1 q11111s11111D  11131r11131B r111111q qr1A rqqq1111qrqqq1111qB 4 Qq qqA 3   r A q A !11 1A A  q A q A q A !1 q A B Qq A A B A A  11  1    1  A q q A r #$|1 rr A 3 q  qa1A rq q!	A A q q!	A A  rB   a!BQ A  A  A A qq1 1A A qA qA A  qqA r !AA A u	Q q   A  tr 211 A   qR !!A bqb A   q q q A  qqqqA A  a aA qr A !p!v " A 3 ! 4  q 3 ;   1A A 3 !C 3 23 3 A  A    ! !1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1A ! !1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1A ! !1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1A ! !1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1A ! !1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1A A A  q  3  q Q   A q r   q S A q rq A 2sq A 2r q   A t  q A  q q q  aqQQQQQQQQQA A r 4q ! q r1q qqq qq A ! q A   ! q ! q   q q `  1! q P  AA q ! q b q    q   q ! q RrA A   11rr rr A qqqqr rA qqqQqqqq41  r rr  q  Qa aA rq r  r q    A q q  r "$%2q "$q "q "q "1q !%$q   r "  r q "q A 3   !q  1 A  1q  q 2r  !q  !q AA A  Qq A qqqA 3 q R2r q q q 2 Q " 1 q   q R   q R411q2 2q111A A A A   11rq qq A qqqqr rA qqqQqqqq31  q q q q q q aq  !q !2"%q q " q "A  A 11A  r  !A bA "q B r "q   q " q &q !q B 3 a !qQqA A sa"a A 3  rA e QRqA A R!rA a  !#q A A  =  Q 1 q R  !q  !q  !q  !q  !q  !q  !q 	 !q   q  q p   Q R  RR A r b !q q  q S 1q q s 1 q   1q   !q RQ   1A r R  !q   A A r q q ` q "#P!q "#"# 1"q   q " q %q C 3  A  q A A rq  t     r   r  A r    q 	  q B 1 A  1q q  q  !q  qq qq A q  q  qA rqaA 21q q  AAq    !q  Rq  A   A r q A  q ' "&%q " " q A 3  A   !   A r   r  r   r r  r r r r r r r r r q A r r 1A r  r  r  r  r A q   q 11 Qq CA A B1r qA aq 1r 21 q1q1  q qa  q  1  q qQq  q A  aA rA r  A Q  A 1A   qA q  A    "%##q B 3  A46  2A 4 A A    A  1R1q q q r 2"B  " A 5 0 RAB A  11A 6 !A A   8   Q   A q  1q q   !q  !q   q A 3   q    " "q B 3   " !q B 3   !q  !q " !q A 3  q N 3  q `A 3  pA 3  `A 3  qA A rA A qA A A 1r q A 3 ! 2 AA A q " A "      A q A 4    A  !)A 3 ; ! @
@ ! ! A :  1  qA A qq qq AqRq!A A  qqA qq r qr B  qqA 2rqB a aqQAA A 3 Q aqQAA A 2A r  q q  q A 1A A A qqq AA QA A  aqQAA A r "r $q  q A 1A A A r  qA  r q  A
a	q q A A q A 4 !A A r   qQA!1A A qr B qQA!1A A qA A  Q1111A qr A 1 1A rA B Q1111A A qA A  qA A  A 1 1A rA B  QqA A A A A @1 ! 1A 1A  qQA 2qA B 3 !  qq!A rqaA  Q1rqQA A A qq!A rqaA  1rqQA A A 1qA A  B 4  1111111B r q B 4   B  A  A B R QQQB r    q!A B  qqQA qqQA qAA qQA A B q A @  Q r A RA B A rqBaAaSa aA B 1 1A  A1 111E q1 qqaA rqqA 21!1 qqaA rqqA 2A rq 111 rqA A Q1   1A   q  QA 1  Q1 A  Q1 A  1A A A   a A   A  A ! A  A  A  Q Qq" QqQQQQ QQQQQA A q QQqa  Aaqa A A  QQAaqa  Aaqa A A A A A   1 A A QAA ra1 A R a A   A  A ! A  A I A  1 A A qAaR1A  Q Q1A 11A 1R1A 1R1A 1R1A 1R1A 1A A  Q Q1A 1R1A 1B A A  A  a A   A  A ! A  A  A   A  a A   A  A ! A  A  QA A A qa1aB A q!  A r B q A   AQqQrA!1A "qqA A q1  A A A s A 3          A  qqQqA R QQQQ1QQQQQQB r A 3 ! aA a aA   q q  Qr A   !QA  !r  B B  Qr A A 3 ! A 2B 4 ! A 2B 4 ! 11r  A 2qA A q1q E A 2                    1  k     M     a	  h   O   n	  
  k   f   
  l
     h   {
  
     l   
       p     K        X  A        N                                L        t  x%       %  a&  x    &  	8      -8  $q  ,  K  1q  q    N  q  q    Q  r  r    R  s  s    Z  s  ?t    ]  Lt  t    `  t  1u    b  _u  _    ^      .             	     k 
     EJ G
    nJ c   (  c  
    ǉ 0 /    _  J    8 n U        &       -  ϗ    N   ~   `   *    j  U U 3  {   I M    t z           0      Ѵ l      y                   n@     3A d   	  d Zu   &
  y |   =
  |    w
   4   
  A  -     3 q  
  @    K
      T
      ]
      )  %   )  x2  6  ,  2  zMS.    U  g
 C   #        	  
   
       
 C    T     :\ T   C   %   : J (                      J  (          B  JC X(   J ( 	  J (   . T C         	     T   C CC   = T     T      T   C CC   = T     J (
   
  %C   
," T C 
   
 !   T   
  T     T     T   
  %   D T     :
 T 2
 T  +  T CC   Q T C   "   %  (  T   C CC   = @ T       \ T       B U#  THIS DNR LCROOTPATHNAME LCVOLUMENAMEBUFFER LNVOLUMENAMESIZE LNVOLUMESERIALNUMBER LNMAXIMUMCOMPONENTLENGTH LNFILESYSTEMFLAGS LCFILESYSTEMNAMEBUFFER LNFILESYSTEMNAMESIZE LNSECTORSPERCLUSTER LNBYTESPERSECTOR LNNUMBEROFFREECLUSTERS LNTOTALNUMBEROFCLUSTERS LNERROR LCLOCALNAME LCNETCONNECTION LNBUFFERSIZE DECLAREWIN32APIFUNCTIONS CDRIVE
 NDRIVETYPE _GETDRIVETYPE_ NBYTESPERSECTOR NFILENAMELENGTH NNUMBEROFFREECLUSTERS NTOTALNUMBEROFCLUSTERS NSECTORSPERCLUSTER
 NSERIALNUMBER NFSFLAGS CFILESYSTEMNAME CVOLUMENAME CNETCONNECTION _GETVOLUMEINFORMATION_ _GETDISKFREESPACE_ _WNETGETCONNECTION_|    
 C     
 T     C  >(l   T   CC   \ 	 B  U  TCNUMBERSTRING THIS DNR LNI LNRESULT    
 C  
 %  . 
 C   + %  	 C  	   	i  B   }  B    U 	 TLREFRESH THIS DNR REFRESH NETCONNECTIONASVOLUMENAME CVOLUMENAME
 NDRIVETYPE CNETCONNECTION 
 C    B    U  THIS DNR
 NSERIALNUMBERm    
 C   T  C     T  C   0  T  C  = -C  \	 B   U  LCRETURN THIS DNR NUMBERTOHEXSTRING
 NSERIALNUMBER    
 C     
 T    +C  8   T  C  z T C  G
 Hn    	  T C 0   2  T C 7    T     	 B  U  TNNUMBER THIS DNR LNDIGIT LCRESULT 
 C    B    U  THIS DNR NFILENAMELENGTH 
 C    B    U  THIS DNR CFILESYSTEMNAME 
 C    B    U  THIS DNR
 NDRIVETYPEm   
 C  
 H! ]   Q  T   DRIVE_NOT_FOUND     T   DRIVE_REMOVABLE     T   DRIVE_FIXED     T   DRIVE_REMOTE    T   DRIVE_CDROM   4 T  
 DRIVE_RAMDISK 2]! T   DRIVE_NOT_DETERMINED 	 B   U  LCRESULT THIS DNR
 NDRIVETYPEO    
 C  
 %  . 
 C    B       U 	 TLREFRESH THIS DNR REFRESH NNUMBEROFFREECLUSTERS NSECTORSPERCLUSTER NBYTESPERSECTORO    
 C  
 %  . 
 C    B       U 	 TLREFRESH THIS DNR REFRESH NTOTALNUMBEROFCLUSTERS NSECTORSPERCLUSTER NBYTESPERSECTOR 
 C    B    U  THIS DNR CDRIVE    
 C  % %C tcDriveb C C  F 
 T       T  CCC  A=f  %   A

    Z 
 T       T    
 C   Ba U  TCDRIVE THIS DNR CDRIVE REFRESH 
 C    <   U  THIS DNRF    
 C  
 %  . 
 C    B    U 	 TLREFRESH THIS DNR REFRESH NTOTALNUMBEROFCLUSTERS  U  " 
 C    BC    U  THIS DNR NFSFLAGS 
 C    B    U  THIS DNR NBYTESPERSECTOR 
 C    B    U  THIS DNR NSECTORSPERCLUSTER 
 C    B    U  THIS DNR NTOTALNUMBEROFCLUSTERS# 
 C    B       U  THIS DNR NBYTESPERSECTOR NSECTORSPERCLUSTER 
 C    B 2.1 U  THIS DNR)    
 C   BC   a   U  TCNEWVOLUMENAME THIS DNR INTERNALSETVOLUMENAME         T  a %C      %  O- T  	  :\CC]\ ._x_' +C FILE("&LCTMPFILENAME") - T  	  :\CC]\ ._x_ * LNTMPFILE = FCREATE("&LCTMPFILENAME") 
 %  T a K %C <
     T -   T C 
 
 %  T  x  T  
   T C    
  
 %   
	 C    
      T a 	 B  U 	 LLREFRESH LLISWRITEPROTECTED LCVOLUMENAME LLNOVOLUMENAME
 LCTMPFILENAME	 LNTMPFILE THIS ISLOADED
 NDRIVETYPE CDRIVE CVOLUMENAME INTERNALSETVOLUMENAME        
 C  # %C tcNewVolumeNameb CS 
 T      T  C  = T    :\
 T   T C     %    	 
 C    B   U	  TCNEWVOLUMENAME	 TLREFRESH LCROOTPATHNAME LNERROR THIS DECLAREWIN32APIFUNCTIONS CDRIVE _SETVOLUMELABEL_ REFRESH 
 C    B    U  THIS DNR CNETCONNECTION 
 C       %   5 	 B   
 T  +C    \ \u  T    T C \     %    BC    \   BC      \  U  THIS DNR LNI	 LNATSLESH
 NDRIVETYPE CNETCONNECTION 
 C       %   5 	 B    T C    T C    C > % C   > 	 B     BC    \  U  THIS DNR LCSERVERNAME LNSTART
 NDRIVETYPE
 GETSERVERNAME CNETCONNECTION" 
 C    BC    U  THIS DNR NFSFLAGS" 
 C    BC    U  THIS DNR NFSFLAGS" 
 C    BC     U  THIS DNR NFSFLAGS     T a T  C ERROR$ 1 llFunctionsAreDeclared = .f.
 C  on error &lcOldOnError

 %   Ba 0 |
 GetVersion Win32APIQ _GetVersion_x_4 | GetDriveType Win32APIQ _GetDriveType_W | GetVolumeInformation Win32APIQ _GetVolumeInformation_H | GetDiskFreeSpace Win32APIQ _GetDiskFreeSpace_D | WNetGetConnection Win32APIQ _WNetGetConnection_; | SetVolumeLabel Win32APIQ _SetVolumeLabel_; |
 CreateFile Win32APIQ _CreateFile_J | DeviceIoControl Win32APIQ _DeviceIoControl_1 | CloseHandle Win32APIQ
 _CloseHandle_J | GetLogicalDriveStrings Win32APIQ _GetLogicalDriveStrings_ Ba U  LCOLDONERROR LLFUNCTIONSAREDECLARED _GETVERSION_X_
 GETVERSION WIN32API GETDRIVETYPE _GETDRIVETYPE_ GETVOLUMEINFORMATION _GETVOLUMEINFORMATION_ GETDISKFREESPACE _GETDISKFREESPACE_ WNETGETCONNECTION _WNETGETCONNECTION_ SETVOLUMELABEL _SETVOLUMELABEL_
 CREATEFILE _CREATEFILE_ DEVICEIOCONTROL _DEVICEIOCONTROL_ CLOSEHANDLE
 _CLOSEHANDLE_ GETLOGICALDRIVESTRINGS _GETLOGICALDRIVESTRINGS_" 
 C    BC    U  THIS DNR NFSFLAGS| 
 C   ' %C   f C    = 	 B   % NTCJ` 
 BC    u 
 BC     U  THIS DNR CDRIVE
 NDRIVETYPE GETFLOPPYTYPEWINNT GETFLOPPYTYPEWIN95V    
 C   T  C  
 H6 F    
_  T  ERRORC  Z     " T  FLOPPY_NOT_DETERMINED     T 
 5.25_1.2MB     T 
 3.5_1.44MB   
 T 
 3.5_2.88MB   2 T 
 3.5_20.8MB   Y T 	 3.5_720KB    T 
 5.25_360KB    T 
 5.25_320KB    T 
 5.25_320KB   	 T 
 5.25_180KB   
! T 
 5.25_160KB 2F T  UNKNOWN_CC  ZA 	 B  U  LNFLOPPYTYPE LCRETURN THIS DNR
 GETFLOPPYTYPE,          T CC  fC A T    . T  C
 \\.\vwin32       	  %   
 B 6 T CC  QC  CC  QC CC  Q
 T * T C         
  C     %  -
 B  T CC =
 HR   p
 T    
 T   
 T   
 T   
 T   
 T  2 T  c 	 B  U  LNDEVICEHANDLE LCREG LNRESULT LNFLOPPYTYPE LNFILE_FLAG_DELETE_ON_CLOSE LNVWIN32_DIOC_DOS_INT13 LNDRIVE THIS CDRIVE _CREATEFILE_ _DEVICEIOCONTROL_
 _CLOSEHANDLE_             	 
    
      T   \\.\   :
 T  
 T	  T
  	  T  	  T     T
   
 T & T C        	     % 
 B 
 T  
 T  T CC   Q. T C   
         %   T  
 T   T   %   T    ( 6
   * T  CC  	\ 
 HG C  l
 T  C  
 T  C  
 T  C  
 T  C 	  
 T 	 C 
 %
 T 
 C  J
 T  C  o
 T  C  
 T  C  
 T     C   	 B  U  LCDRIVE LNDEVICEHANDLE LNRESULT LCGEOMETRIES LNFLOPPYTYPE LNI LNRETURNEDBYTES LNNOOFGEOMETRIES LNGENERIC_READ_GENERIC_WRITE LNOPEN_EXISTING LNFSCTL_LOCK_VOLUME LNFSCTL_UNLOCK_VOLUME LNIOCTL_DISK_GET_DRIVE_GEOMETRY LNIOCTL_DISK_GET_MEDIA_TYPES LNFILE_SHARE_READ_WRITE
 LAFLOPPYTYPES THIS CDRIVE _CREATEFILE_ _DEVICEIOCONTROL_
 _CLOSEHANDLE_      
 C  
 C  
 T  T CC   Q T  C     T C   = T C  :\C     BC f U  LNLENGTH LNLOGICALDRIVESTRINGLENGTH LCLOGICALDRIVESTRING THIS DNR DECLAREWIN32APIFUNCTIONS _GETLOGICALDRIVESTRINGS_       U  TCCLASSLIBNAME TCCLASSNAME:         C C      B U  TCDRIVE LNI
 LCDRIVELETTER LCALLDRIVES THIS CHANGEDRIVE refresh,       stringtonumber     
 getvolumename      getserialnumber      getserialnumberhexstring      numbertohexstringx      getfilenamelength~	      getfilesystemname	      getdrivetype	      getdrivetypestring-
      getfreespace     
 gettotalspacem      getdriveletter
      changedriveO
      release8      isloaded^      dnr      iscompressed      getbytespersector!      getsectorspercluster]      getnumberofclusters      getclustersize      getclassversion6     
 setvolumenamea      iswriteprotected      internalsetvolumenames      getnetconnection     
 getservername     
 getremotepath      unicodefilenames      casesensitivefilenamesM      casesensitivefilenamessearch      declarewin32apifunctions      filecompressionr     
 getfloppytype      getfloppytypestringt      getfloppytypewin95        getfloppytypewinnt"      getalldrivesstring&(      SaveAsClassB)      Initu)     .
 T  
 T j  
 T     
 T     
 T    
 T    
 T     
 T    
 T   	 
 T	   
 
 T
    
 T     T - 
 
 T
    
 T    T  driveinformation T -                       
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      
  !   
  "   
  #   
  $   
  %   
  &   
  '   
  (   
  )    U  HEIGHT WIDTH CDRIVE CVOLUMENAME
 NSERIALNUMBER NFILENAMELENGTH CFILESYSTEMNAME
 NDRIVETYPE NSECTORSPERCLUSTER NBYTESPERSECTOR NNUMBEROFFREECLUSTERS NTOTALNUMBEROFCLUSTERS R NFSFLAGS CNETCONNECTION NAME NETCONNECTIONASVOLUMENAME	 ADDOBJECT COMMENT DESTROY ERROR PICTURE REMOVEOBJECT SAVEASCLASS	 BASECLASS PARENTCLASS driveinformation custom-    1  32q   aQAA A A!Q1"A AQ  !AA  A  A A 4 q    A  4 q    A    A 4   4 q  qa 4 q    A ! q qA A  4   4   4   4 q   AAAAAA A  4 q    A 4 q    A 4   4 q  Q  a A A  q 4  q 4 q    A 4 4  !4   4   4   4  14   4 q  !4  QAqA !    A  A  !   A QAA A   A  4    1 A !a a A  4   4   A A  A  A 4   A A a  A 4  !4  !4  !4   QA  q A AsBq 4  !4  q A !   A 4    !qqqqaqqqqq A  4 1 ! A c   A A         A  4  2 q q    b! A        q A            A A A   4     Ab! 4  A 4 q   A 4   q  q  q  q  q  q  q  q  q  q  q  q  q   q q q q q q q q q q q       0    `                `             0      8                        2   2       n   ;       z   F   #  K     I     H     P   |       a   7  a     d          g          j   H  "     ~   Q          &                    L  t                    `                           F       }              &     B    ,         2       e  8       +#  ?     c#  %  f     B%  k%  x     %  '  ~    4'  t(      (  (      )  <)      {)  )      )  F/    -  x/  /    0  /  0    :  0  -4    [  b4  8  	  }  8  WA  2    A  vC  u    C  C       D  qD         D     0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4ZM17YS0X1259316184      /  F      ]                                                       WINDOWS _4ZM17YS0Y1500480153                                                                     WINDOWS _4ZM17YS0Z1359773735 	      5	  J	  Z	  g	      	  
                                               WINDOWS _4ZM17YS101480744803        0  @  M        
                                               WINDOWS _4ZM17YS0X1500480153           0  =                                                       WINDOWS _4ZM17YS0Y1259317806          *  7                                                           WINDOWS _4ZM17YS0X1434611556                  k  =                                               WINDOWS _4ZM17YS0Y1259317332T      T  T  T  T                                                           WINDOWS _4ZM17YS0X1434930921+U      @U  UU  eU  rU      V  d\                                               WINDOWS _4ZM17YS0Y1259317332$b      3b  Bb  Ob  \b                                                           WINDOWS _4ZN0LLM531434604999b  b  b  b   c  
c                                                           COMMENT RESERVED                                c                                                            c                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 378
Width = 557
ShowWindow = 1
DoCreate = .T.
Comment = ""
AutoCenter = .T.
Caption = "Datenbernahme aus dem Vorjahr"
Closable = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     (PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
*SET PROCEDURE TO DrivInf5 ADDITIVE
*oDriveC = CreateObject( "DriveInformation", "C")
*drivesorg=oDriveC.GetAllDrivesString()

*drivesorg = "ACDE"
*release procedure DrivInf5
*oDriveC.Release()
*!*	PUBLIC ARRAY drivearray(LEN(drivesorg),1)
*!*	FOR a = 1 TO LEN(drivesorg)
*!*		drivearray(a) = SUBSTR(drivesorg,a,1)+":\"
*!*	NEXT
*!*	thisform.list1.refresh
PUBLIC gelaufen
gelaufen = .f.

IF thisform.Top < 0
	thisform.Top = 0
endif
*thisform.command6.Caption = "4.) User-Daten aus 12/"+xjahr3+" bis 12/"+xjahr4+" verteilen"


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
                                      %   U           s            U    C     U  THISFORM SIZER	 FRMRESIZE  7   T  - %   
6  T    
     T      T     
    T 	 a U
  GELAUFEN THISFORM TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 }  BA  rq  1                       ,         G         )                           
commandbutton      
commandbutton      Command1      FORM1      TTop = 9
Left = 16
Height = 31
Width = 525
Caption = "Hilfe"
Name = "Command1"
      GPROCEDURE Click
 inet = 111
 Msg = "20276"
DO insinternet
ENDPROC
                                         %   q                          U  ) 
 T  o T  20276   U  INET MSG INSINTERNET Click,     1  !q 1                       <       )                            
commandbutton      
commandbutton      Command2      FORM1      ZTop = 319
Left = 16
Height = 31
Width = 525
Caption = "Schlieen"
Name = "Command2"
     PROCEDURE Click
IF gelaufen = .t.
	HShwtext = "Bitte unter dem Hauptmenpunkt <PERSONALDATEN> den Unterpunkt" + CHR(13) + "<" + " Y64 Pers.Daten Dez &xjahr3 -> Jan &xjahr4" + ">" + CHR(13) + " ausfhren!" + CHR(13)
	HShwtext = HShwtext + "Der Stand Dez. &xjahr3 wird dabei nach Jan. &xjahr4 kopiert und auf das gesamte Jahr &xjahr4 verteilt und alles neu durchgerechnet."
	
	hinweis(HShwtext)
ENDIF

RELEASE gelaufen

thisform.Release

ENDPROC
     n    U  U                           %           	               U   %  as HShwtext = "Bitte unter dem Hauptmenpunkt <PERSONALDATEN> den Unterpunkt" + CHR(13) + "<" + " Y64 Pers.Daten Dez &xjahr3 -> Jan &xjahr4" + ">" + CHR(13) + " ausfhren!" + CHR(13)
 HShwtext = HShwtext + "Der Stand Dez. &xjahr3 wird dabei nach Jan. &xjahr4 kopiert und auf das gesamte Jahr &xjahr4 verteilt und alles neu durchgerechnet."
 C     <  
    U  GELAUFEN HINWEIS HSHWTEXT THISFORM RELEASE Click,     1  q	 A r  2                             )   U                        
commandbutton      
commandbutton      Command3      FORM1      |Top = 81
Left = 15
Height = 31
Width = 330
Caption = "1.) User-Verzeichnis des Vorjahres auswhlen"
Name = "Command3"
     PROCEDURE Click
*!*	thisform.text4.value = GETdir("...","user??? whlen","Caption",16384)
*thisform.text1.value = UPPER(SelDirDlg("Whlen Sie Ihren User-Ordner (" + SUBSTR(muser,2) + ") aus der VERSION " + xjahr3 + " !"))
*!*	oldpfad = eigdat+muser
*!*	SET STEP ON 
*!*	hsgefunden = .f.
*!*	hsvorjahrdircheck = eigdat+muser
*!*	hsvorjahrdir = eigdat
*!*	IF xjahr4 $ hsvorjahrdircheck
*!*		hsvorjahrdir2 = STRTRAN(hsvorjahrdircheck, xjahr4, xjahr3) + "\formdaten.dbf"
*!*		hsvorjahrdir0 = STRTRAN(hsvorjahrdir, xjahr4, xjahr3)
*!*		IF FILE("&hsvorjahrdir2")
*!*			hsgefunden = .t.
*!*		ELSE
*!*			hsgefunden = .f.
*!*		ENDIF
*!*	ENDIF
*!*	IF hsgefunden = .t.
*!*		CD "&hsvorjahrdir0"
*!*	endif

thisform.text1.value = UPPER(mygetdir("Whlen Sie Ihren User-Ordner (" + SUBSTR(muser,2) + ") aus der VERSION " + xjahr3 + " !"))

*!*	CD "&oldpfad"

IF .not. EMPTY(thisform.text1.value)
	IF .not. UPPER(muser) $ UPPER(thisform.text1.Value)
		hinweis("Bitte whlen Sie IHREN Userordner aus der VERSION " + xjahr3 + " aus: (" + SUBSTR(muser,2) + ")")
		thisform.command4.Enabled=.f.
		thisform.command5.Enabled=.f.
		RETURN
	ENDIF
	
	IF UPPER(muser) $ UPPER(thisform.text1.Value) .and. .not. "BACKUP" $ UPPER(thisform.text1.Value) &&STR(jahr4-1,4,0) $ thisform.text1.Value .and. 
		*LPARAMETERS cDialogTitle, cStartingFolder, nBrowseFlags
		hsx = ATC(muser,ALLTRIM(thisform.text1.value))
		hsxsuch = ALLTRIM(thisform.text1.value)+"\gehalt" + SUBSTR(xjahr3,3,2) + "dim.dbf"
		IF .not. FILE("&hsxsuch")
			hinweis("Bitte whlen Sie IHREN Userordner aus der VERSION " + xjahr3 + " aus: (" + SUBSTR(muser,2) + ")")
			thisform.command4.Enabled=.f.
			thisform.command5.Enabled=.f.			
			RETURN
		endif
		IF RIGHT(ALLTRIM(thisform.text1.value),1) = "\"
			thisform.text1.value = SUBSTR(ALLTRIM(thisform.text1.value),1,LEN(ALLTRIM(thisform.text1.value))-1)
		endif
*		IF STR(jahr4-1,4,0) $ thisform.text1.Value .and. "USER" $ thisform.text1.Value
			thisform.command4.Enabled=.t.
			thisform.command5.Enabled=.t.
		*!*		thisform.command6.Enabled=.t.
*		endif		
	ELSE
		hinweis("Bitte whlen Sie IHREN Userordner aus der VERSION " + xjahr3 + " aus: (" + SUBSTR(muser,2) + ")")
	endif	
endif	
	
ENDPROC
     j    Q  Q                        	p   %                          U  *` T    CC Whlen Sie Ihren User-Ordner (C \ ) aus der VERSION    ! f %C    
# %C fC    f
\ C2 Bitte whlen Sie IHREN Userordner aus der VERSION    aus: (C \ )  T    - T  	  - B 5 %C fC    f  BACKUPC    f
	 T
 C C    7 T C     \gehaltC \ dim.dbf! IF .not. FILE("&hsxsuch")A\ C2 Bitte whlen Sie IHREN Userordner aus der VERSION    aus: (C \ )  T    - T  	  - B  %CC    R \1 T    CC    CC    >\  T    a T  	  a \ C2 Bitte whlen Sie IHREN Userordner aus der VERSION    aus: (C \ )    U  THISFORM TEXT1 VALUE MYGETDIR MUSER XJAHR3 HINWEIS COMMAND4 ENABLED COMMAND5 HSX HSXSUCH Click,     1 @dA A RqA A A  A A 2                             )   Q                        textbox      textbox      Text1      FORM1      PHeight = 24
Left = 16
ReadOnly = .T.
Top = 114
Width = 525
Name = "Text1"
      
commandbutton      
commandbutton      Command4      FORM1      Top = 153
Left = 15
Height = 31
Width = 330
Caption = "2.) User-Verzeichnis des Vorjahres bernehmen"
Enabled = .F.
Name = "Command4"
     *PROCEDURE Click
Op1 = welchesjahr
Op2 = modus

gelaufen = .t.

myclose()

msg1 = ALLTRIM(thisform.text1.Value)
msg2 = Right(msg1, 8) &&"\" &
hsxdir = eigdat + Right(msg1, 8)
If Not Directory("&hsxdir") &&= Right(msg1, 7)
	hsxdir = eigdat + msg2
	MKDIR "&hsxdir"
Endif

For i = jahr1 To jahr5
	ixx = ALLTRIM(STR(i,4,0))
	For j = 1 To 13
		jxx = ALLTRIM(STR(j,2,0))+".dbf"
		jxx2 = ALLTRIM(STR(j,2,0))+".fpt"
		hsxdat = msg1 + "\G" + ixx + "i" + jxx
		If .not. file("&hsxdat")

		Else
			FileCopy(msg1 + "\G" + ixx + "i" + jxx, eigdat + msg2 + "\G" + ixx + "i" + jxx)
			FileCopy(msg1 + "\G" + ixx + "i" + jxx2, eigdat + msg2 + "\G" + ixx + "i" + jxx2)
		ENDIF
		
		IF j < 13
			thisform.text2.value = "Monat: " + ALLTRIM(STR(j,2,0)) + " " + ixx + " Info"
		ELSE
			thisform.text2.value = "Zusatzinfos: " + ixx + " Info"
		ENDIF
				
		hsxdat = msg1 + "\G" + ixx + "p" + jxx
		If .not. file("&hsxdat")

		Else
			FileCopy(msg1 + "\G" + ixx + "p" + jxx, eigdat + msg2 + "\G" + ixx + "p" + jxx)
			FileCopy(msg1 + "\G" + ixx + "p" + jxx2, eigdat + msg2 + "\G" + ixx + "p" + jxx2)
		ENDIF
		
		IF j < 13
			thisform.text2.value = "Monat: " + ALLTRIM(STR(j,2,0)) + " " + ixx + " Plan"
		ELSE
			thisform.text2.value = "Zusatzinfos: " + ixx + " Plan"
		ENDIF
				
		hsxdat = msg1 + "\G" + ixx + "r" + jxx
		If .not. file("&hsxdat")

		Else
			FileCopy(msg1 + "\G" + ixx + "r" + jxx, eigdat + msg2 + "\G" + ixx + "r" + jxx)
			FileCopy(msg1 + "\G" + ixx + "r" + jxx2, eigdat + msg2 + "\G" + ixx + "r" + jxx2)
		ENDIF
		IF j < 13
			thisform.text2.value = "Monat: " + ALLTRIM(STR(j,2,0)) + " " + ixx + " Real"
		ELSE
			thisform.text2.value = "Zusatzinfos: " + ixx + " Real"
		endif
	Next
Next

thisform.text2.value = "User-Daten wurden bertragen!"

teilj1 = SUBSTR(STR(jahr1,4,0),2)+".dbf"
teilj2 = SUBSTR(STR(jahr2,4,0),2)+".dbf"
teilj3 = SUBSTR(STR(jahr3,4,0),2)+".dbf"
teilj4 = SUBSTR(STR(jahr4,4,0),2)+".dbf"

teilj1x = SUBSTR(STR(jahr1,4,0),2)+".fpt"
teilj2x = SUBSTR(STR(jahr2,4,0),2)+".fpt"
teilj3x = SUBSTR(STR(jahr3,4,0),2)+".fpt"
teilj4x = SUBSTR(STR(jahr4,4,0),2)+".fpt"
hsxdat = msg1 + "\Urlaub" + teilj1
If .not. file("&hsxdat") &&vorher .014"

Else
	FileCopy(msg1 + "\Urlaub" + teilj1 , eigdat + msg2 + "\Urlaub" + teilj1) &&vorher .014")
	FileCopy(msg1 + "\Urlaub" + teilj1x , eigdat + msg2 + "\Urlaub" + teilj1x) &&vorher .014")
Endif
hsxdat = msg1 + "\Urlaub" + teilj2
If .not. file("&hsxdat") &&vorher .015")

Else
	FileCopy(msg1 + "\Urlaub" + teilj2, eigdat + msg2 + "\Urlaub" + teilj2) &&vorher .015"
	FileCopy(msg1 + "\Urlaub" + teilj2x, eigdat + msg2 + "\Urlaub" + teilj2x) &&vorher .015"
Endif
hsxdat = msg1 + "\Urlaub" + teilj3
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\Urlaub" + teilj3, eigdat + msg2 + "\Urlaub" + teilj3) &&vorher .016"
	FileCopy(msg1 + "\Urlaub" + teilj3x, eigdat + msg2 + "\Urlaub" + teilj3x) &&vorher .016"
Endif
hsxdat = msg1 + "\Urlaub" + teilj4
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\Urlaub" + teilj4, eigdat + msg2 + "\Urlaub" + teilj4) &&vorher .017"
	FileCopy(msg1 + "\Urlaub" + teilj4x, eigdat + msg2 + "\Urlaub" + teilj4x) &&vorher .017"
Endif

&&Jubilum
&&If Len(Dir(msg1 + "\jda.010")) = 0 Then
&&Else
&&FileCopy msg1 + "\jda.010", eigdat + msg2 + "\jda.010"
&&End If

&&If Len(Dir(msg1 + "\jda.011")) = 0 Then
&&Else
&&FileCopy msg1 + "\jda.011", eigdat + msg2 + "\jda.011"
&&End If
hsxdat = msg1 + "\jda" + teilj1
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\jda" + teilj1, eigdat + msg2 + "\jda" + teilj1)
	FileCopy(msg1 + "\jda" + teilj1x, eigdat + msg2 + "\jda" + teilj1x)
Endif
hsxdat = msg1 + "\jda" + teilj2
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\jda" + teilj2, eigdat + msg2 + "\jda" + teilj2)
	FileCopy(msg1 + "\jda" + teilj2x, eigdat + msg2 + "\jda" + teilj2x)
Endif
hsxdat = msg1 + "\jda" + teilj3
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\jda" + teilj3, eigdat + msg2 + "\jda" + teilj3)
	FileCopy(msg1 + "\jda" + teilj3x, eigdat + msg2 + "\jda" + teilj3x)
Endif
hsxdat = msg1 + "\jda" + teilj4
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\jda" + teilj4, eigdat + msg2 + "\jda" + teilj4)
	FileCopy(msg1 + "\jda" + teilj4x, eigdat + msg2 + "\jda" + teilj4x)
Endif

&&ZuschlgeA

&&If Len(Dir(msg1 + "\ZuschlgeA.011")) = 0 Then
&&Else
&&FileCopy msg1 + "\ZuschlgeA.011", eigdat + msg2 + "\ZuschlgeA.011"
&&End If
hsxdat = msg1 + "\ZuschlgeA" + teilj1
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeA" + teilj1, eigdat + msg2 + "\ZuschlgeA" + teilj1)
	FileCopy(msg1 + "\ZuschlgeA" + teilj1x, eigdat + msg2 + "\ZuschlgeA" + teilj1x)
Endif
hsxdat = msg1 + "\ZuschlgeA" + teilj2
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeA" + teilj2, eigdat + msg2 + "\ZuschlgeA" + teilj2)
	FileCopy(msg1 + "\ZuschlgeA" + teilj2x, eigdat + msg2 + "\ZuschlgeA" + teilj2x)
Endif
hsxdat = msg1 + "\ZuschlgeA" + teilj3
If .not. FILE("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeA" + teilj3, eigdat + msg2 + "\ZuschlgeA" + teilj3)
	FileCopy(msg1 + "\ZuschlgeA" + teilj3x, eigdat + msg2 + "\ZuschlgeA" + teilj3x)
Endif
hsxdat = msg1 + "\ZuschlgeA" + teilj4
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeA" + teilj4, eigdat + msg2 + "\ZuschlgeA" + teilj4)
	FileCopy(msg1 + "\ZuschlgeA" + teilj4x, eigdat + msg2 + "\ZuschlgeA" + teilj4x)
Endif


&&ZuschlgeB

&&If Len(Dir(msg1 + "\ZuschlgeB.011")) = 0 Then
&&Else
&&FileCopy msg1 + "\ZuschlgeB.011", eigdat + msg2 + "\ZuschlgeB.011"
&&End If
hsxdat = msg1 + "\ZuschlgeB" + teilj1
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeB" + teilj1, eigdat + msg2 + "\ZuschlgeB" + teilj1)
	FileCopy(msg1 + "\ZuschlgeB" + teilj1x, eigdat + msg2 + "\ZuschlgeB" + teilj1x)
Endif
hsxdat = msg1 + "\ZuschlgeB" + teilj2
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeB" + teilj2, eigdat + msg2 + "\ZuschlgeB" + teilj2)
	FileCopy(msg1 + "\ZuschlgeB" + teilj2x, eigdat + msg2 + "\ZuschlgeB" + teilj2x)
Endif
hsxdat = msg1 + "\ZuschlgeB" + teilj3
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeB" + teilj3, eigdat + msg2 + "\ZuschlgeB" + teilj3)
	FileCopy(msg1 + "\ZuschlgeB" + teilj3x, eigdat + msg2 + "\ZuschlgeB" + teilj3x)
Endif
hsxdat = msg1 + "\ZuschlgeB" + teilj4
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\ZuschlgeB" + teilj4, eigdat + msg2 + "\ZuschlgeB" + teilj4)
	FileCopy(msg1 + "\ZuschlgeB" + teilj4x, eigdat + msg2 + "\ZuschlgeB" + teilj4x)
Endif

&&SV

&&If Len(Dir(msg1 + "\SV.011")) = 0 Then
&&Else
&&FileCopy msg1 + "\SV.011", eigdat + msg2 + "\SV.011"
&&End If
hsxdat = msg1 + "\SV" + teilj1
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\SV" + teilj1, eigdat + msg2 + "\SV" + teilj1)
	FileCopy(msg1 + "\SV" + teilj1x, eigdat + msg2 + "\SV" + teilj1x)
Endif
hsxdat = msg1 + "\SV" + teilj2
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\SV" + teilj2, eigdat + msg2 + "\SV" + teilj2)
	FileCopy(msg1 + "\SV" + teilj2x, eigdat + msg2 + "\SV" + teilj2x)
Endif
hsxdat = msg1 + "\SV" + teilj3
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\SV" + teilj3, eigdat + msg2 + "\SV" + teilj3)
	FileCopy(msg1 + "\SV" + teilj3x, eigdat + msg2 + "\SV" + teilj3x)
Endif
hsxdat = msg1 + "\SV" + teilj4
If .not. file("&hsxdat")

Else
	FileCopy(msg1 + "\SV" + teilj4, eigdat + msg2 + "\SV" + teilj4)
	FileCopy(msg1 + "\SV" + teilj4x, eigdat + msg2 + "\SV" + teilj4x)
Endif

&&Tablett.SSCommand1.Caption = "Fertig"
&&welchesjahr = Op1
&&modus = Op2
&&dateiopen

&&indexi = Op1 - 2011 &&3
&&jahraktiv
DO zumprogramm
ENDPROC
                                   n   %              &            U  
 T   
 T   T a
 C  T C  	  T
 C R T  C R$ If Not Directory("&hsxdir")   T  
  MKDIR "&hsxdir"
  
  (  T CC
  Z  (
 T CC  Z .dbf T CC  Z .fpt  T   \G  i   If .not. file("&hsxdat"){ : C  \G  i  
  \G  i  : C  \G  i  
  \G  i    % 

F: T  	  Monat: CC  Z     Info {- T  	 
 Zusatzinfos:    Info   T   \G  p   If .not. file("&hsxdat") ;: C  \G  p  
  \G  p  : C  \G  p  
  \G  p    % 

: T  	  Monat: CC  Z     Plan - T  	 
 Zusatzinfos:    Plan   T   \G  r   If .not. file("&hsxdat") : C  \G  r  
  \G  r  : C  \G  r  
  \G  r    % 

: T  	  Monat: CC  Z     Real - T  	 
 Zusatzinfos:    Real   0 T  	  User-Daten wurden bertragen!" T CC  Z\ .dbf" T CC  Z\ .dbf" T CC  Z\ .dbf" T CC  Z\ .dbf" T CC  Z\ .fpt" T CC  Z\ .fpt" T  CC  Z\ .fpt" T! CC  Z\ .fpt T   \Urlaub ! If .not. file("&hsxdat")  2 C  \Urlaub  
  \Urlaub  2 C  \Urlaub  
  \Urlaub    T   \Urlaub ! If .not. file("&hsxdat") 9 2 C  \Urlaub  
  \Urlaub  2 C  \Urlaub  
  \Urlaub    T   \Urlaub   If .not. file("&hsxdat") Q2 C  \Urlaub  
  \Urlaub  2 C  \Urlaub   
  \Urlaub     T   \Urlaub   If .not. file("&hsxdat") 2 C  \Urlaub  
  \Urlaub  2 C  \Urlaub!  
  \Urlaub!    T   \jda   If .not. file("&hsxdat"):	 	, C  \jda  
  \jda  , C  \jda  
  \jda    T   \jda   If .not. file("&hsxdat")	 7
, C  \jda  
  \jda  , C  \jda  
  \jda    T   \jda   If .not. file("&hsxdat")t
 
, C  \jda  
  \jda  , C  \jda   
  \jda     T   \jda   If .not. file("&hsxdat") q, C  \jda  
  \jda  , C  \jda!  
  \jda!     T   \ZuschlgeA   If .not. file("&hsxdat") 1: C  \ZuschlgeA  
  \ZuschlgeA  : C  \ZuschlgeA  
  \ZuschlgeA     T   \ZuschlgeA   If .not. file("&hsxdat")u : C  \ZuschlgeA  
  \ZuschlgeA  : C  \ZuschlgeA  
  \ZuschlgeA     T   \ZuschlgeA   If .not. FILE("&hsxdat")5
 
: C  \ZuschlgeA  
  \ZuschlgeA  : C  \ZuschlgeA   
  \ZuschlgeA      T   \ZuschlgeA   If .not. file("&hsxdat")
 q: C  \ZuschlgeA  
  \ZuschlgeA  : C  \ZuschlgeA!  
  \ZuschlgeA!     T   \ZuschlgeB   If .not. file("&hsxdat") 1: C  \ZuschlgeB  
  \ZuschlgeB  : C  \ZuschlgeB  
  \ZuschlgeB     T   \ZuschlgeB   If .not. file("&hsxdat")u : C  \ZuschlgeB  
  \ZuschlgeB  : C  \ZuschlgeB  
  \ZuschlgeB     T   \ZuschlgeB   If .not. file("&hsxdat")5 : C  \ZuschlgeB  
  \ZuschlgeB  : C  \ZuschlgeB   
  \ZuschlgeB      T   \ZuschlgeB   If .not. file("&hsxdat") q: C  \ZuschlgeB  
  \ZuschlgeB  : C  \ZuschlgeB!  
  \ZuschlgeB!    T   \SV   If .not. file("&hsxdat") 	* C  \SV  
  \SV  * C  \SV  
  \SV    T   \SV   If .not. file("&hsxdat")E * C  \SV  
  \SV  * C  \SV  
  \SV    T   \SV   If .not. file("&hsxdat") 9* C  \SV  
  \SV  * C  \SV   
  \SV     T   \SV   If .not. file("&hsxdat")u * C  \SV  
  \SV  * C  \SV!  
  \SV!    "  U#  OP1 WELCHESJAHR OP2 MODUS GELAUFEN MYCLOSE MSG1 THISFORM TEXT1 VALUE MSG2 HSXDIR EIGDAT I JAHR1 JAHR5 IXX J JXX JXX2 HSXDAT FILECOPY TEXT2 TEILJ1 TEILJ2 JAHR2 TEILJ3 JAHR3 TEILJ4 JAHR4 TEILJ1X TEILJ2X TEILJ3X TEILJ4X ZUMPROGRAMM Click,     1     R!aA1A rqq A  A  A  A  A  A A A "!!!"!!! !!A  !!A  !!A  !!A  A  A  A  A  A  A  A  A 	 A  A  A  A  A  A  A  A y 1                             )                           textbox      textbox      Text2      FORM1      PHeight = 24
Left = 16
ReadOnly = .T.
Top = 186
Width = 525
Name = "Text2"
      
commandbutton      
commandbutton      Command5      FORM1      Top = 226
Left = 15
Height = 31
Width = 330
Caption = "3.) Kostenstellen und Krankenkassen bernehmen"
Enabled = .F.
Name = "Command5"
     TPROCEDURE Click
*i = Len(ALLTRIM(thisform.text1.value))
*!*	If substr(ALLTRIM(thisform.text1.value), i - 6, 4) = "User" Then
*!*	Else
*!*	   MsgBox "Bitte whlen Sie zuerst ein User-Verzeichnis aus", 0, "User-Verzeichnis"
*!*	   Exit Sub
*!*	End If

myClose()
thisform.text3.Value = "Daten werden bernommen ..." 
teilj1 = SUBSTR(STR(jahr1,4,0),3)
teilj2 = SUBSTR(STR(jahr2,4,0),3)
teilj3 = SUBSTR(STR(jahr3,4,0),3)
teilj4 = SUBSTR(STR(jahr4,4,0),3)
teilj5 = SUBSTR(STR(jahr5,4,0),3)

i = Len(ALLTRIM(thisform.text1.value))
Msg = Left(ALLTRIM(thisform.text1.value), i - 8)
msg1 = Msg + "\Texte\mytext"+teilj1 &&15.txt"
msg2 = Msg + "\Texte\mytext"+teilj2 &&16.txt"
msg3 = Msg + "\Texte\mytext"+teilj3 &&17.txt"

msg4 = eigdat + "\Texte\mytext"+teilj1 &&13.txt"
msg5 = eigdat + "\Texte\mytext"+teilj2 &&14.txt"
msg6 = eigdat + "\Texte\mytext"+teilj3 &&15.txt"
msg7 = eigdat + "\Texte\mytext"+teilj4 &&16.txt"
msg8 = eigdat + "\Texte\mytext"+teilj5 &&17.txt"

myOpen("&msg1",40 ,"woerter") &&2009
myOpen("&msg2",41 ,"woerter") &&2010
myOpen("&msg3",42 ,"woerter") &&2011


myOpen("&msg4",30 ,"woerter") &&2009
myOpen("&msg5",31 ,"woerter") &&2010
myOpen("&msg6",32 ,"woerter") &&2011
myOpen("&msg7",33 ,"woerter") &&2012
myOpen("&msg8",34 ,"woerter") &&2013

k = 4111
m = 4119
DO Textedurchlauf &&Sachbezge
k = 4801
m = 4920
DO Textedurchlauf &&Kostenstellen
k = 4921
m = 4955
DO Textedurchlauf &&Krankenkassen
k = 3713
m = 3742
DO Textedurchlauf &&Einbehalte

myClose()

DO dateiopen
DO seiteladen
thisform.text3.value = "Daten wurden bernommen!"



ENDPROC
                                   C
   %         V  +                U  
 C  . T    Daten werden bernommen ... T CC  Z\ T CC  Z\ T CC	  Z\ T
 CC  Z\ T CC
  Z\ T CC   > T CC    =" T  
 \Texte\mytext " T  
 \Texte\mytext " T  
 \Texte\mytext " T  
 \Texte\mytext " T  
 \Texte\mytext " T  
 \Texte\mytext " T  
 \Texte\mytext
 " T  
 \Texte\mytext " myOpen("&msg1",40 ,"woerter") 
" myOpen("&msg2",41 ,"woerter") 
" myOpen("&msg3",42 ,"woerter") 
" myOpen("&msg4",30 ,"woerter") 
" myOpen("&msg5",31 ,"woerter") 
" myOpen("&msg6",32 ,"woerter") 
" myOpen("&msg7",33 ,"woerter") 
" myOpen("&msg8",34 ,"woerter") 
 T  T    T  T 8   T 9 T [   T  T   
 C      + T    Daten wurden bernommen! U  MYCLOSE THISFORM TEXT3 VALUE TEILJ1 JAHR1 TEILJ2 JAHR2 TEILJ3 JAHR3 TEILJ4 JAHR4 TEILJ5 JAHR5 I TEXT1 MSG MSG1 MSG2 MSG3 MSG4 EIGDAT MSG5 MSG6 MSG7 MSG8 K M TEXTEDURCHLAUF	 DATEIOPEN
 SEITELADEN Click,     1  r!!!"!!!!"!!#!!!!  q   q   q   q  r q 4                       I      )                           textbox      textbox      Text3      FORM1      PHeight = 24
Left = 16
ReadOnly = .T.
Top = 259
Width = 525
Name = "Text3"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 350
Left = 540
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _4ZV0U9IE71259892967 1 53           1.000    0.000    0.00082666.000                 F             -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          0T    F T               1TTF3 0F         WINDOWS _4ZV0U9IE8           9  1                          12605.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4ZV0U9IE9           9  4                           2084.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4ZV0U9IEA           9  7                           5000.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4ZV0U9Y411259892996 5  0        2708.333 4375.000 2187.50028645.833                               -1   -1   -1   -1   -1   -1                    5 14  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _4ZV0UAQMP1259892997 5  0        5833.333 4270.833 1666.66717500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _4ZV0UBARZ1259893010 5  0        8020.833 4270.833 1666.66717500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _4ZV0UC2451259893033 8  0        7916.66767500.000 1875.000 9166.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _4ZV0UC9GB1259893039 5  0        8020.83357083.333 1666.667 9166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTF3 0F         WINDOWS _4ZV0UCPAV1259893045 6           10208.333 2291.667  104.16774791.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _4ZV0UCT251259893048 6           12395.833 2291.667  104.16774791.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _4ZV0UD1V31259893058 5  0       10520.833 5729.167 1666.667 7500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTF3 0F         WINDOWS _4ZV0UD95V1259893060 5  0       10520.83321770.833 1666.667 3333.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _4ZV0UMY4O1259893300 8  0      14791.667 5729.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                     0 10  1 0     FFFTF  F          0T         0       0 1  1TTF3 0F         WINDOWS _4ZV0UN0OW1259893302 8  0!   "   14791.66721875.000 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FTFTF  F          0T         0       0 1  1FTF3 0F         WINDOWS _4ZV0UO8YI1259893332 6           18958.333 2291.667  104.16774791.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _4ZV0UPPG81259893373 8  0    $    5729.16722916.667 1875.00013333.333                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _4ZV0UPYHI1259893376 8  0    &    7916.66722916.667 1875.00013333.333                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   (     0 10                                                     F               WINDOWS                     23              22.000   11.000   16.000   17.000                                6    0                                   )     5 14                                                     F               WINDOWS                     25   *   +                                                        F                                                                                                                      F                 R   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   "Liste der PC-Gehalt-Texte"                                   Courier New                                                   "von Datensatz-Nummer:"                                       Courier New                                                   "bis Datensatz-Nummer:"                                       Courier New                                                   date()                                                        Courier New                                                   
"Druckdatum:"                                                 Courier New                                                   "Datensatz"                                                   Courier New                                                   "Text"                                                        Courier New                                                   nr                                                            str(int(pcg_f1),10,0)                                         ""                                                            Courier New                                                   text                                                          pcg_f2                                                        Courier New                                                   mtextvon                                                      Courier New                                                   mtextbis                                                      Courier New                                                   Courier New                                                   Courier New                                                   dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   "Liste der PC-Gehalt-Texte"                                   Courier New                                                   "von Datensatz-Nummer:"                                       Courier New                                                   "bis Datensatz-Nummer:"                                       Courier New                                                   date()                                                        Courier New                                                   
"Druckdatum:"                                                 Courier New                                                   "Datensatz"                                                   Courier New                                                   "Text"                                                        Courier New                                                   nr                                                            str(int(pcg_f1),10,0)                                         ""                                                            Courier New                                                   text                                                          pcg_f2                                                        Courier New                                                   mtextvon                                                      Courier New                                                   mtextbis                                                      Courier New                                                   Courier New                                                   Courier New                                                   dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0`   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4ZV1A89QD1259908165      /  F      ]                                                       WINDOWS _4ZV1A89QE1522233600                                                                     WINDOWS _4ZV1A89QD1259971515
      *
  7
  E
  R
                                                           WINDOWS _4ZV1A89QD1259971515
      
  
  
  
                                                           WINDOWS _4ZV1A89QF1479766721=  M  m  |                                                               WINDOWS _4ZV1A89QG1359701337$      9  N  [  h        
                                               WINDOWS _4ZV1A89QH1359701346      ,  A  U  b        $                                               WINDOWS _4ZV1A89QI1398109637%      :  O  `  m                                                       WINDOWS _4ZV1A89QJ1259960102                                                                       WINDOWS _4ZV1A89QE1259971515                                                                       WINDOWS _4ZV1A89QD1259908165-      :  G  [  h                                                           WINDOWS _4ZV1A89QD1259958671                                                                       WINDOWS _4ZV1AMHKI1522233600                  G                                                 WINDOWS _4ZV1A89QD1402232609      (  =  M  Z                                                        WINDOWS _4ZW0U8G2112599584768"      E"  R"  `"  m"                                                           WINDOWS _4ZW0U8G221479766721"      "  "  "  "      G#  u$                                               WINDOWS _4ZW0U8G231259958476%      %  &  &  &                                                           WINDOWS _4ZV1A89QD1259958671y&      &  &  &  &                                                           WINDOWS _4ZV1A89QD1259959992	'      '  #'  1'  >'                                                           WINDOWS _4ZV1A89QD1259959992'      '  '  '  '                                                           WINDOWS _4ZW0UGAM01259959992F(      S(  `(  n(  {(                                                           WINDOWS _4ZW0UGAM11259959992 )      )  )  %)  2)                                                           WINDOWS _4ZV1A89QD1259959992x)      )  )  )  )                                                           WINDOWS _4ZV1A89QE1259959992#*      0*  =*  K*  X*                                                           WINDOWS _4ZW0UGALQ1259959992*      *  *  *  +                                                           WINDOWS _4ZV1A89QF1259959992y+      +  +  +  +                                                           WINDOWS _4ZV1A89QG1259959992$,      1,  >,  L,  Y,                                                           WINDOWS _4ZV1A89QH1259959992,      ,  ,  ,  -                                                           WINDOWS _4ZV1A89QI1259959992z-      -  -  -  -                                                           WINDOWS _4ZV1A89QJ1259959992%.      2.  ?.  M.  Z.                                                           WINDOWS _4ZV1A89QK1259959992.      .  .  .  /                                                           WINDOWS _4ZV1A89QL1259959992{/      /  /  /  /                                                           WINDOWS _4ZV1A89QD1259959992)0      60  C0  R0  _0                                                           WINDOWS _4ZV1AH39712599599920      0  0   1  
1                                                           WINDOWS _4ZV1A89QD14022330331      1  1  1  1                                                           WINDOWS _4ZV1A89QE140223303332      @2  M2  \2  i2                                                           WINDOWS _4ZW0UGALQ14022330332      2  2  
3  3                                                           WINDOWS _4ZV1A89QF14022330333      3  3  3  3                                                           WINDOWS _4ZV1A89QG1402233033=4      J4  W4  f4  s4                                                           WINDOWS _4ZV1A89QH14022330334      4  5  5  !5                                                           WINDOWS _4ZV1A89QI14022330335      5  5  5  5                                                           WINDOWS _4ZV1A89QJ1402233033G6      T6  a6  p6  }6                                                           WINDOWS _4ZV1A89QK14022330336      7  7  7  +7                                                           WINDOWS _4ZV1A89QL14022330337      7  7  7  7                                                           WINDOWS _4ZV1A89QD1402233033S8      `8  m8  }8  8                                                           WINDOWS _4ZV1AH39714022330339      9  9  -9  :9                                                           WINDOWS _4ZV1A89QD12599599929      9  9  9  9                                                           WINDOWS _4ZV1A89QE1259959992d:      q:  ~:  :  :                                                           WINDOWS _4ZW0UGALQ1259959992;      ";  /;  ?;  L;                                                           WINDOWS _4ZV1A89QF1259959992;      ;  ;  ;  ;                                                           WINDOWS _4ZV1A89QG1259959992w<      <  <  <  <                                                           WINDOWS _4ZV1A89QH1259959992(=      5=  B=  R=  _=                                                           WINDOWS _4ZV1A89QI1259959992=      =  =  >  >                                                           WINDOWS _4ZV1A89QJ1259959992>      >  >  >  >                                                           WINDOWS _4ZV1A89QK1259959992;?      H?  U?  e?  r?                                                           WINDOWS _4ZV1A89QL1259959992?      ?  @  @  $@                                                           WINDOWS _4ZV1A89QD1259959992@      @  @  @  @                                                           WINDOWS _4ZV1A89QD1259959992RA      _A  lA  }A  A                                                           WINDOWS _4ZV1A89QD1259959992B      B  B  +B  8B                                                           WINDOWS _4ZW0V05031259959992B      B  B  B  B                                                           WINDOWS _4ZW0V05041259959992WC      dC  qC  }C  C                                                           WINDOWS _4ZW0V05051259959992 D      
D  D  &D  3D                                                           WINDOWS _4ZW0V05061259959992D      D  D  D  D                                                           WINDOWS _4ZW0V05071259959992RE      _E  lE  xE  E                                                           WINDOWS _4ZW0V05081259959992E      F  F  !F  .F                                                           WINDOWS _4ZW0V05091259959992F      F  F  F  F                                                           WINDOWS _4ZW0V050A1259959992MG      ZG  gG  sG  G                                                           WINDOWS _4ZW0V050B1259959992G      H  H  H  *H                                                           WINDOWS _4ZW0V050C1259959992H      H  H  H  H                                                           WINDOWS _4ZW0V050D1259959992LI      YI  fI  sI  I                                                           WINDOWS _4ZW0V050E1259959992I      J  J  !J  .J                                                           WINDOWS _4ZV1A89QE1259971515J      J  J  J  J                                                           WINDOWS _4ZV1A89QD1382110883IK      VK  cK  oK  |K                                                           WINDOWS _4ZV1A89QD1382110883K      K  K  L  L                                                           WINDOWS _4ZV1A89QD1382110883qL      ~L  L  L  L                                                           WINDOWS _4ZV1A89QD1382110883L      
M  M  *M  7M                                                           WINDOWS _4ZW0VA3371259959992M      M  M  M  M                                                           WINDOWS _4ZW0VA3381382110883ZN      gN  tN  N  N                                                           WINDOWS _4ZW0VHVO21398110346N      O  O  .O  ;O      O  NP                                               WINDOWS _4ZV1A89QD1259971515Q      Q  Q  Q  Q                                                           WINDOWS _4ZV1A89QE1259971515;R      HR  UR  rR  R                                                           WINDOWS _4ZW0VHVO51259959992S      S  S  *S  7S                                                           WINDOWS _4ZV1A89QD1412519707S      S  T  T  #T      T  DV                                               WINDOWS _4ZW0VHVO61480687118X      X  X  X  X      CY  Y                                               WINDOWS _4ZW0VXF5R1479766721Z      Z  Z  Z  Z                                                           WINDOWS _4ZW0VXF5S1479766721[      ,[  9[  H[  U[                                                           WINDOWS _4ZW0VXF5T1479766721[      [  [  [  \                                                           WINDOWS _4ZW0VXF5U1479766721\      \  \  \  \                                                           WINDOWS _4ZW0VXF5V1479766721
]      "]  7]  D]  Q]      ]  ^                                               WINDOWS _4ZW0YJ1E71480686573_      _  ._  =_  J_      _  d                                               WINDOWS _4ZW0YJ1E81493259612i      i  i  j  j      j  mu                                               WINDOWS _4ZW16T0S41480676698                    Y                                               WINDOWS _4ZW17M4R41480688096        č  ߍ                                                         WINDOWS _5ZR0MDZX21479766721z#     # # # #                                                          COMMENT RESERVED                                !$                                                          $J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 444
Width = 532
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Hier ermitteln Sie fr Zeile 6 den Beginn der Stufenlaufzeit"
ControlBox = .T.
ClipControls = .T.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
mystufenlaufzeit = thisform
IF EMPTY(mystufenlaufzeit.BDAdatum.value)
	mystufenlaufzeit.BDAdatum.value = CTOD("  .  .  ")
ENDIF
PUBLIC ARRAY stufenbetrag(603)
STORE 0.00 TO stufenbetrag
mystufenlaufzeit.stufenlaufzeitladen.click


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     )                                 %   i                       U  J %    
$  T     
 T    %C   g  T   C   .  .  #  7 [ J        ( 
     %   	 
   T C
    	 T  
 T  
    
  T      	   T      	  
     T   a U  THISFORM TOP MYSTUFENLAUFZEIT BDADATUM VALUE STUFENBETRAG STUFENLAUFZEITLADEN CLICK HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize6    1 AA  QA  Q   A    2 1                                       )                           shape      shape      frame2      FORM1      TTop = 42
Left = 308
Height = 98
Width = 218
SpecialEffect = 0
Name = "frame2"
      shape      shape      Frame3      FORM1      RTop = 78
Left = 3
Height = 62
Width = 304
SpecialEffect = 0
Name = "Frame3"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 429
Left = 513
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      hilfe      FORM1      PTop = 3
Left = 5
Height = 28
Width = 172
Caption = "Hilfe"
Name = "hilfe"
      PPROCEDURE Click
inet = 110
Msg = "S/Stufenlaufzeit"
DO insinternet
ENDPROC
                                      h   %   |                          U  4 
 T  n T  S/Stufenlaufzeit   U  INET MSG INSINTERNET Click,     1  q 1                       E       )                            
commandbutton      
commandbutton      vorschriften      FORM1      `Top = 3
Left = 179
Height = 28
Width = 172
Caption = "Vorschriften"
Name = "vorschriften"
      RPROCEDURE Click
inet = 110
Msg = "Grundgehaltsstufen"
DO insinternet
ENDPROC
                                      Q   %   ~                          U  6 
 T  n T  Grundgehaltsstufen   U  INET MSG INSINTERNET Click,     1  q 1                       G       )                            
commandbutton      
commandbutton      	schlieen      FORM1      hTop = 3
Left = 353
Height = 28
Width = 172
Cancel = .T.
Caption = "Schlieen"
Name = "schlieen"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            label      label      Stichtag      FORM1      vFontBold = .T.
FontSize = 10
Caption = "STICHTAG"
Height = 18
Left = 8
Top = 41
Width = 277
Name = "Stichtag"
      label      label      Frame31      FORM1      XCaption = " Vorgaben "
Height = 16
Left = 11
Top = 69
Width = 59
Name = "Frame31"
      label      label      Stufenbeginn      FORM1      fCaption = "Beginn der Stufe 1"
Height = 16
Left = 14
Top = 87
Width = 103
Name = "Stufenbeginn"
      label      label      Stufenbewegung      FORM1      eCaption = "Stufenbewegung"
Height = 16
Left = 14
Top = 114
Width = 103
Name = "Stufenbewegung"
      textbox      textbox      BDAdatum      FORM1      Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 161
MaxLength = 10
Top = 84
Width = 112
Name = "BDAdatum"
     PROCEDURE InteractiveChange
*this.programmaticchange
ENDPROC
PROCEDURE ProgrammaticChange
If startflag = True 
	RETURN
ENDIF
IF vartype(mystufenlaufzeit.BDAdatum.Value) <> "D"
	mydatumxx = CTOD(mystufenlaufzeit.BDAdatum.Value)
ELSE
	mydatumxx = mystufenlaufzeit.BDAdatum.Value
endif
If Day(mydatumxx) < 1 .Or. Day(mydatumxx) > 31
	RETURN 
Endif
If Month(mydatumxx) < 1 .Or. month(mydatumxx) > 12
	RETURN 
Endif
If Year(mydatumxx) < 1950 .Or. Year(mydatumxx) > jahr5 &&hs vorher 2015 Jahreswechsel
	RETURN 
ENDIF

If .not. EMPTY(mystufenlaufzeit.BDAdatum.value)
   mystufenlaufzeit.durchrechnen.click
EndIf

ENDPROC
PROCEDURE Valid

IF vartype(mystufenlaufzeit.BDAdatum.Value) <> "D"
	mystufenlaufzeit.BDAdatum.Value = CTOD(mystufenlaufzeit.BDAdatum.Value)
endif
If Day(mystufenlaufzeit.BDAdatum.Value) < 1 .Or. Day(mystufenlaufzeit.BDAdatum.Value) > 31
	RETURN .f.
Endif
If Month(mystufenlaufzeit.BDAdatum.Value) < 1 .Or. Month(mystufenlaufzeit.BDAdatum.Value) > 12
	RETURN .f.
Endif
If Year(mystufenlaufzeit.BDAdatum.Value) < 1950 .Or. Year(mystufenlaufzeit.BDAdatum.Value) > jahr5 &&hs vorher 2015 Jahreswechsel
	RETURN .f.
ENDIF
mystufenlaufzeit.durchrechnen.click
RETURN 1

ENDPROC
                                   I6   %         k  &               U    U   %     B  %C    DI  T C   # d  T       %C %
 C %  B   %C H
 C H  B ! %C i
 C i   B  %C   

      U	 	 STARTFLAG TRUE MYSTUFENLAUFZEIT BDADATUM VALUE	 MYDATUMXX JAHR5 DURCHRECHNEN CLICK  %C     D6  T    C    # , %C    %
 C    %m  B- , %C    H
 C    H  B- - %C    i
 C    i   B- 
     	 B U  MYSTUFENLAUFZEIT BDADATUM VALUE JAHR5 DURCHRECHNEN CLICK InteractiveChange,      ProgrammaticChange3      Valid    1 3 A A Q 1A A A A A A A b A 3 A q A q A q A   2                       5         ^   w                )                           
commandbutton      
commandbutton      Kalender      FORM1      qTop = 82
Left = 273
Height = 25
Width = 20
Picture = prgicons\dropbutt.bmp
Caption = ""
Name = "Kalender"
     PROCEDURE Click
*thisform.olecontrol2.height=182

DO FORM kalender WITH IIF(VARTYPE(mystufenlaufzeit.BDAdatum.value)="C",CTOD(mystufenlaufzeit.BDAdatum.value),mystufenlaufzeit.BDAdatum.value) TO xbdadat

IF .not. EMPTY(xbdadat)
	mystufenlaufzeit.BDAdatum.value = SUBSTR(xbdadat,7,2) + "." + SUBSTR(xbdadat,5,2) + "." + SUBSTR(xbdadat,1,4) &&vorher stod(xbdadat)
ENDIF

mystufenlaufzeit.bdadatum.ProgrammaticChange 
 

ENDPROC
                                   I   %         <     .            U   D  kalender( CC    C C   #	    6 %C 
 = T   C \ .C \ .C \ 
     U  KALENDER MYSTUFENLAUFZEIT BDADATUM VALUE XBDADAT PROGRAMMATICCHANGE Click,     1 CA  3                             )                           label      label      Label1      FORM1      PCaption = ""
Height = 16
Left = 149
Top = 114
Width = 12
Name = "Label1"
      spinner      spinner      Monate      FORM1      AHeight = 21
Left = 162
Top = 111
Width = 57
Name = "Monate"
     &PROCEDURE InteractiveChange
If startflag = True 
	RETURN
endif
If EMPTY(mystufenlaufzeit.Monate.value) &&= "" Or Monate.Text = " " Then Exit Sub
	RETURN
endif
If Not EMPTY(mystufenlaufzeit.Monate.value) && = "-" Then durchrechnen
	mystufenlaufzeit.durchrechnen.Click
ENDIF

ENDPROC
     j    Q  Q                           %                            U  `  %     B  %C   2  B  %C   
Y 
      U 	 STARTFLAG TRUE MYSTUFENLAUFZEIT MONATE VALUE DURCHRECHNEN CLICK InteractiveChange,     1 A A QA A a A 2                             )   Q                        label      label      Label2      FORM1      UCaption = "Monate"
Height = 16
Left = 222
Top = 114
Width = 43
Name = "Label2"
      label      label      Label4      FORM1      SCaption = "Stufe"
Height = 16
Left = 15
Top = 150
Width = 30
Name = "Label4"
      label      label      Label5      FORM1      VCaption = "Laufzeit"
Height = 16
Left = 53
Top = 150
Width = 49
Name = "Label5"
      label      label      Label6      FORM1      mWordWrap = .T.
Caption = "Stufen- beginn"
Height = 31
Left = 115
Top = 150
Width = 44
Name = "Label6"
      label      label      Label7      FORM1      }WordWrap = .T.
Caption = "Beginn nach der Stufenbewegung"
Height = 31
Left = 208
Top = 150
Width = 98
Name = "Label7"
      line      line      Line1      FORM1      >Height = 0
Left = 8
Top = 182
Width = 303
Name = "Line1"
      label      label      Stufe1      FORM1      nFontBold = .T.
Alignment = 0
Caption = "1"
Height = 16
Left = 18
Top = 188
Width = 18
Name = "Stufe1"
      label      label      Stufe2      FORM1      nFontBold = .T.
Alignment = 0
Caption = "2"
Height = 16
Left = 18
Top = 205
Width = 18
Name = "Stufe2"
      label      label      Stufe3      FORM1      nFontBold = .T.
Alignment = 0
Caption = "3"
Height = 16
Left = 18
Top = 222
Width = 18
Name = "Stufe3"
      label      label      Stufe4      FORM1      nFontBold = .T.
Alignment = 0
Caption = "4"
Height = 16
Left = 18
Top = 239
Width = 18
Name = "Stufe4"
      label      label      Stufe5      FORM1      nFontBold = .T.
Alignment = 0
Caption = "5"
Height = 16
Left = 18
Top = 256
Width = 18
Name = "Stufe5"
      label      label      Stufe6      FORM1      nFontBold = .T.
Alignment = 0
Caption = "6"
Height = 16
Left = 18
Top = 273
Width = 18
Name = "Stufe6"
      label      label      Stufe7      FORM1      nFontBold = .T.
Alignment = 0
Caption = "7"
Height = 16
Left = 18
Top = 290
Width = 18
Name = "Stufe7"
      label      label      Stufe8      FORM1      nFontBold = .T.
Alignment = 0
Caption = "8"
Height = 16
Left = 18
Top = 307
Width = 18
Name = "Stufe8"
      label      label      Stufe9      FORM1      nFontBold = .T.
Alignment = 0
Caption = "9"
Height = 16
Left = 18
Top = 324
Width = 18
Name = "Stufe9"
      label      label      Stufe10      FORM1      pFontBold = .T.
Alignment = 0
Caption = "10"
Height = 16
Left = 18
Top = 341
Width = 18
Name = "Stufe10"
      label      label      Stufe11      FORM1      pFontBold = .T.
Alignment = 0
Caption = "11"
Height = 16
Left = 18
Top = 358
Width = 18
Name = "Stufe11"
      label      label      Stufe12      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 18
Top = 375
Width = 18
Name = "Stufe12"
      label      label      Normal1      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 188
Width = 52
Name = "Normal1"
      label      label      Normal2      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 205
Width = 52
Name = "Normal2"
      label      label      Normal3      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 222
Width = 52
Name = "Normal3"
      label      label      Normal4      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 239
Width = 52
Name = "Normal4"
      label      label      Normal5      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 256
Width = 52
Name = "Normal5"
      label      label      Normal6      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 273
Width = 52
Name = "Normal6"
      label      label      Normal7      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 290
Width = 52
Name = "Normal7"
      label      label      Normal8      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 307
Width = 52
Name = "Normal8"
      label      label      Normal9      FORM1      pFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 324
Width = 52
Name = "Normal9"
      label      label      Normal10      FORM1      qFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 341
Width = 52
Name = "Normal10"
      label      label      Normal11      FORM1      qFontBold = .T.
Alignment = 0
Caption = "11"
Height = 16
Left = 56
Top = 358
Width = 52
Name = "Normal11"
      label      label      Normal12      FORM1      qFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 56
Top = 375
Width = 52
Name = "Normal12"
      label      label      Datumab1      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 188
Width = 79
Name = "Datumab1"
      label      label      Datumab2      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 205
Width = 79
Name = "Datumab2"
      label      label      Datumab3      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 222
Width = 79
Name = "Datumab3"
      label      label      Datumab4      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 239
Width = 79
Name = "Datumab4"
      label      label      Datumab5      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 256
Width = 79
Name = "Datumab5"
      label      label      Datumab6      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 273
Width = 79
Name = "Datumab6"
      label      label      Datumab7      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 290
Width = 79
Name = "Datumab7"
      label      label      Datumab8      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 307
Width = 79
Name = "Datumab8"
      label      label      Datumab9      FORM1      rFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 324
Width = 79
Name = "Datumab9"
      label      label      	Datumab10      FORM1      sFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 341
Width = 79
Name = "Datumab10"
      label      label      	Datumab11      FORM1      sFontBold = .T.
Alignment = 0
Caption = "11"
Height = 16
Left = 116
Top = 358
Width = 79
Name = "Datumab11"
      label      label      	Datumab12      FORM1      sFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 116
Top = 375
Width = 79
Name = "Datumab12"
      label      label      neu1      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 188
Width = 90
Name = "neu1"
      label      label      neu2      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 205
Width = 90
Name = "neu2"
      label      label      neu3      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 222
Width = 90
Name = "neu3"
      label      label      neu4      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 239
Width = 90
Name = "neu4"
      label      label      neu5      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 256
Width = 90
Name = "neu5"
      label      label      neu6      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 273
Width = 90
Name = "neu6"
      label      label      neu7      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 290
Width = 90
Name = "neu7"
      label      label      neu8      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 307
Width = 90
Name = "neu8"
      label      label      neu9      FORM1      nFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 324
Width = 90
Name = "neu9"
      label      label      neu10      FORM1      oFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 341
Width = 90
Name = "neu10"
      label      label      neu11      FORM1      oFontBold = .T.
Alignment = 0
Caption = "11"
Height = 16
Left = 210
Top = 358
Width = 90
Name = "neu11"
      label      label      neu12      FORM1      oFontBold = .T.
Alignment = 0
Caption = "12"
Height = 16
Left = 210
Top = 375
Width = 90
Name = "neu12"
      label      label      Datumab0      FORM1      wFontBold = .T.
Alignment = 0
Caption = "Datumab0"
Height = 16
Left = 18
Top = 396
Width = 90
Name = "Datumab0"
      label      label      frame21      FORM1      ^Caption = " Dies gilt fr "
Height = 16
Left = 316
Top = 33
Width = 69
Name = "frame21"
      label      label      Land      FORM1      MCaption = ""
Height = 16
Left = 313
Top = 48
Width = 208
Name = "Land"
      label      label      Dienstverhltnis      FORM1      YCaption = ""
Height = 16
Left = 313
Top = 62
Width = 208
Name = "Dienstverhltnis"
      label      label      Gruppe      FORM1      OCaption = ""
Height = 16
Left = 313
Top = 76
Width = 208
Name = "Gruppe"
      label      label      Bezeichnung      FORM1      TCaption = ""
Height = 16
Left = 313
Top = 90
Width = 208
Name = "Bezeichnung"
      label      label      	Datumab16      FORM1      FontBold = .F.
Alignment = 0
Caption = "(wie im Hauptfenster)"
Height = 16
Left = 313
Top = 118
Width = 208
Name = "Datumab16"
      label      label      Bezeichnung2      FORM1      VCaption = ""
Height = 16
Left = 313
Top = 104
Width = 208
Name = "Bezeichnung2"
      
commandbutton      
commandbutton      	Ermitteln      FORM1      `Top = 142
Left = 312
Height = 29
Width = 210
Caption = "VDZ ermitteln"
Name = "Ermitteln"
      PROCEDURE Click
hsxxbdadatum = mystufenlaufzeit.BDAdatum.value
thisform.visible = .f.

DO FORM vdz WITH hsxxbdadatum
mystufenlaufzeit.visible = .t.
ENDPROC
     7                                 %                             U  A  T      T  -  vdz   T  a U  HSXXBDADATUM MYSTUFENLAUFZEIT BDADATUM VALUE THISFORM VISIBLE VDZ Click,     1 1   1                              )                           shape      shape      Beginnstufenlaufzeit      FORM1      cTop = 182
Left = 308
Height = 79
Width = 218
SpecialEffect = 0
Name = "Beginnstufenlaufzeit"
      label      label      Beginnstufenlaufzeit1      FORM1      {Caption = " Beginn der Stufenlaufzeit  "
Height = 16
Left = 316
Top = 173
Width = 143
Name = "Beginnstufenlaufzeit1"
      label      label      Beginn      FORM1      FontBold = .T.
FontSize = 18
Alignment = 2
Caption = "01.05.2000"
Height = 28
Left = 349
Top = 192
Width = 137
ForeColor = 255,0,0
Name = "Beginn"
      
commandbutton      
commandbutton      Command1      FORM1      iTop = 223
Left = 312
Height = 29
Width = 210
Caption = "bertragen nach Zeile 6"
Name = "Command1"
     PROCEDURE Click
SET CENTURY on
myform1.bdabeginn.value = ALLTRIM(mystufenlaufzeit.Beginn.Caption)
bdatext =  ALLTRIM(mystufenlaufzeit.Beginn.Caption)
SET CENTURY off
myform1.bdabeginn.value = bdatext
zi(1+1) = 0
myform1.z1.Caption = zt1(1+0)
wvw.BDA = mystufenlaufzeit.Beginn.Caption
myPut(13, fileneu, "wnw")
myform1.bdabeginn.SetFocus
keyboard "{ENTER}"
zti = 1
DO zgridaktivieren
thisform.release
ENDPROC
     F    -  -                        M   %                          U    G  T    C    T C    G T      T   T    C	  T
      C
 
  wnw 
      \ {ENTER}
 T   
    U  MYFORM1	 BDABEGINN VALUE MYSTUFENLAUFZEIT BEGINN CAPTION BDATEXT ZI Z1 ZT1 WVW BDA MYPUT FILENEU SETFOCUS ZTI ZGRIDAKTIVIEREN THISFORM RELEASE Click,     1 a Qa 11qaq  q  1                             )   -                        
commandbutton      
commandbutton      Bescheid      FORM1      bTop = 262
Left = 312
Height = 29
Width = 210
Caption = "Bescheid drucken"
Name = "Bescheid"
      tPROCEDURE Click
*Druckvorschau.druckstufenlaufzeit Druckvorschau.Blatt, dRatio
DO druckstufenlaufzeit

ENDPROC
                                      f   %   O       d      ^             U  
     U  DRUCKSTUFENLAUFZEIT Click,     1 r 2                       i       )                            shape      shape      frame1      FORM1      UTop = 303
Left = 308
Height = 52
Width = 218
SpecialEffect = 0
Name = "frame1"
      label      label      frame11      FORM1      pCaption = " Ergeb. der Stufenvernderung  "
Height = 16
Left = 316
Top = 294
Width = 172
Name = "frame11"
      textbox      textbox      Leistung      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 320
ReadOnly = .T.
Top = 319
Width = 106
Name = "Leistung"
      label      label      Euro      FORM1      QCaption = "Euro"
Height = 16
Left = 429
Top = 322
Width = 29
Name = "Euro"
      
commandbutton      
commandbutton      Liste      FORM1      gTop = 312
Left = 471
Height = 37
Width = 44
Picture = icons\094.ico
Caption = ""
Name = "Liste"
      FPROCEDURE Click
Msg = "1999"
inet = "111"
DO insinternet
ENDPROC
                                      i   %   s                          U  +  T   1999 T  111   U  MSG INET INSINTERNET Click,     1 q 1                       ;       )                            
commandbutton      
commandbutton      bundalt      FORM1      tTop = 396
Left = 96
Height = 19
Width = 64
Caption = "Bundalt"
Enabled = .F.
Visible = .F.
Name = "bundalt"
     PROCEDURE Click
With mystufenlaufzeit
	.Normal1.Caption = "24"
	.Normal2.Caption = "24"
	.Normal3.Caption = "24"
	.Normal4.Caption = "24"
	.Normal5.Caption = "36"
	.Normal6.Caption = "36"
	.Normal7.Caption = "36"
	.Normal8.Caption = "36"
	.Normal9.Caption = "48"
	.Normal10.Caption = "48"
	.Normal11.Caption = "48"
	.Normal12.Caption = "  "

	IF zi(1+2) = 0 &&BW
		IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
			.Stufe11.visible = .t.
			.Stufe12.visible = .t.
			.Normal11.visible = .t.
			.Normal12.visible = .t.
			.Datumab11.visible = .t.
			.Datumab12.visible = .t.
			.neu11.visible = .t.
			.neu12.visible = .t.			
		ELSE
			.Normal1.Caption = "36"
			.Normal2.Caption = "36"
			.Normal3.Caption = "36"
			.Normal4.Caption = "36"
			.Normal5.Caption = "36"
			.Normal6.Caption = "36"
			.Normal7.Caption = "48"
			.Normal8.Caption = "48"
			.Normal9.Caption = "48"
			.Normal10.Caption = "48"
			.Normal11.Caption = "  "
			.Normal12.Caption = "  "		
			.Stufe11.visible = .f.
			.Stufe12.visible = .f.
			.Normal11.visible = .f.
			.Normal12.visible = .f.
			.Datumab11.visible = .f.
			.Datumab12.visible = .f.
			.neu11.visible = .f.
			.neu12.visible = .f.		
		endif
	endif
EndWith
ENDPROC
                                   +   %   ,        1   ;            U  
    T   24 T   24 T   24 T   24 T   36 T   36 T   36 T	   36 T
   48 T   48 T   48 T
      %C  * % 
    	 T  a T  a T  a T
  a T  a T  a T  a T  a  T   36 T   36 T   36 T   36 T   36 T   36 T   48 T	   48 T
   48 T   48 T      T
      T  - T  - T  - T
  - T  - T  - T  - T  -    U  MYSTUFENLAUFZEIT NORMAL1 CAPTION NORMAL2 NORMAL3 NORMAL4 NORMAL5 NORMAL6 NORMAL7 NORMAL8 NORMAL9 NORMAL10 NORMAL11 NORMAL12 ZI WELCHESJAHR MONAT STUFE11 VISIBLE STUFE12	 DATUMAB11	 DATUMAB12 NEU11 NEU12 Click,     1  111111111111R         111111111111        A A A 1                             )                           
commandbutton      
commandbutton      durchrechnen      FORM1      Top = 426
Left = 300
Height = 19
Width = 82
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     
PROCEDURE Click

SET CENTURY on

IF .not. VARTYPE(mystufenlaufzeit.BDAdatum.value) = "C"
	mystufenlaufzeit.Datumab1.Caption = DTOC(mystufenlaufzeit.BDAdatum.value)
ELSE
	mystufenlaufzeit.Datumab1.Caption = mystufenlaufzeit.BDAdatum.value
endif
SET CENTURY off
For i = 1 To z9
	xxx=ALLTRIM(STR(i,3,0))
    If mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14) 
    	j = i
    endif
NEXT

k = 0
For i = 1 To j - 1
	xxx=ALLTRIM(STR(i,3,0))
    k = k + INT(VAL(mystufenlaufzeit.Normal&xxx..caption))
NEXT

If mystufenlaufzeit.Monate.value > k 
	mystufenlaufzeit.Monate.value = k
endif
SET CENTURY on

IF VARTYPE(mystufenlaufzeit.BDAdatum.value) = "D"
	mystufenlaufzeit.neu1.Caption = DTOC(DateAdd("m", mystufenlaufzeit.Monate.value, mystufenlaufzeit.BDAdatum.value))
else
	mystufenlaufzeit.neu1.Caption = DTOC(DateAdd("m", mystufenlaufzeit.Monate.value, CTOD(mystufenlaufzeit.BDAdatum.value)))
endif
For i = 2 To z9
	xxx=ALLTRIM(STR(i,3,0))
	yyy=ALLTRIM(STR(i-1,3,0))
    mystufenlaufzeit.Datumab&xxx..Caption = DTOC(DateAdd("m", INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..Caption))), CTOD(ALLTRIM(mystufenlaufzeit.Datumab&yyy..Caption))))
    mystufenlaufzeit.neu&xxx..Caption = DTOC(DateAdd("m",INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..caption))), CTOD(ALLTRIM(mystufenlaufzeit.neu&yyy..Caption))))
Next
SET CENTURY off
For i = 5 To 12
    If z9 = i Then
       For m = i + 1 To 12
       	   xxx=ALLTRIM(STR(m,4,0))
           mystufenlaufzeit.Datumab&xxx..Visible = False
           mystufenlaufzeit.Stufe&xxx..Visible = False
           mystufenlaufzeit.Normal&xxx..Visible = False
           mystufenlaufzeit.neu&xxx..Visible = False
       Next
    EndIf
NEXT

xxz9 = ALLTRIM(STR(z9,4,0))
mystufenlaufzeit.Normal&xxz9..Caption = "Endstufe"

mystufenlaufzeit.Beginn.Caption = mystufenlaufzeit.neu1.Caption
 
Msg = "0" + ALLTRIM(STR(zi(1+ 20) + 1,4,0))
Msg = "01." + Right(Msg, 2) + "." + welchesjahrc
msg = CTOD(msg)

For i = 2 To z9
		xxx=ALLTRIM(STR(i,3,0))
       If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab&xxx..caption)), Msg) <= 0 
          j = i
          Exit For
       Else
          j = z9
       EndIf
NEXT

For i = 1 To 12
	xxx=ALLTRIM(STR(i,4,0))
    mystufenlaufzeit.neu&xxx..BackColor = QBColor(15)
Next

j = 0
For i = 1 To z9
		xxx=ALLTRIM(STR(i,3,0))
		rrr = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg)
       If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg) < 0 
          j = i - 1
          Exit
       EndIf
Next
If j = 0 
	j = z9
ENDIF

jjj=ALLTRIM(STR(j,4,0))
mystufenlaufzeit.neu&jjj..BackColor = QBColor(14)


mystufenlaufzeit.Leistungberechnen.click
ENDPROC
     
(    
  
                           %   	      	  Q   $	            U  : G  %C     C
=  T    C    * ^  T          G  (   T CC  ZA If mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)  
 T    
 T	    ( e T CC  Z: k = k + INT(VAL(mystufenlaufzeit.Normal&xxx..caption))
  %  
  	  T  
  	   G  %C     D, T    CC m  
       * . T    CC m  
  C    # *   (  T CC  Z T
 CC  Z mystufenlaufzeit.Datumab&xxx..Caption = DTOC(DateAdd("m", INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..Caption))), CTOD(ALLTRIM(mystufenlaufzeit.Datumab&yyy..Caption))))
 mystufenlaufzeit.neu&xxx..Caption = DTOC(DateAdd("m",INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..caption))), CTOD(ALLTRIM(mystufenlaufzeit.neu&yyy..Caption))))
  G  ( %     ( T CC  Z1 mystufenlaufzeit.Datumab&xxx..Visible = False
/ mystufenlaufzeit.Stufe&xxx..Visible = False
0 mystufenlaufzeit.Normal&xxx..Visible = False
- mystufenlaufzeit.neu&xxx..Visible = False
    T CC  Z6 mystufenlaufzeit.Normal&xxz9..Caption = "Endstufe"
 T        $ T  0CCC  Z" T  01.C R .  T C #  ( S T CC  Z[ If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab&xxx..caption)), Msg) <= 0 :
 T   ! O
 T      ( T CC  Z5 mystufenlaufzeit.neu&xxx..BackColor = QBColor(15)
 
 T    (  T CC  ZP rrr = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg)
V If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg) < 0  T   !   %  
 T    T CC  Z5 mystufenlaufzeit.neu&jjj..BackColor = QBColor(14)

      U  MYSTUFENLAUFZEIT BDADATUM VALUE DATUMAB1 CAPTION I Z9 XXX J K MONATE NEU1 DATEADD YYY M XXZ9 BEGINN MSG ZI WELCHESJAHRC JJJ LEISTUNGBERECHNEN CLICK Click,     1 b  A a qq A A  qA r1A a  A qq
A
A a qqA A A raB! rq A   A A rqQA  qqaA A A  A rQ 1                       
      )   
                        
commandbutton      
commandbutton      Leistungberechnen      FORM1      Top = 420
Left = 165
Height = 16
Width = 123
Caption = "Leistungberechnen"
Enabled = .F.
Visible = .F.
Name = "Leistungberechnen"
     PROCEDURE Click
If zi(1+4) = 13 .Or. zi(1+4) > 14 
   mystufenlaufzeit.Frame1.Visible = False
   mystufenlaufzeit.Frame11.Visible = False
   mystufenlaufzeit.leistung.Visible = False
   mystufenlaufzeit.euro.Visible = False
   mystufenlaufzeit.liste.Visible = False      
Else
   mystufenlaufzeit.Frame1.Visible = True
   mystufenlaufzeit.Frame11.Visible = True
   mystufenlaufzeit.leistung.Visible = True
   mystufenlaufzeit.euro.Visible = True
   mystufenlaufzeit.liste.Visible = True
ENDIF

l = j
l = 0
k = 0

For i = 0 To 13
    sicht(1+1,1+ i) = 0
    sicht(1+2,1+ i) = 0
NEXT
 
k = 0
For j = 1 To z9 &&- 1
	xxx=ALLTRIM(STR(j,3,0))
    For i = 1 To INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
        k = k + 1
        stufenbetrag(k) = grundbetrag(1+ j - 1) / 100
    Next
NEXT

m = 600 - k
stufenbetrag(601) = 0
stufenbetrag(602) = 0
stufenbetrag(603) = 0

For i = k + 1 To 600
    stufenbetrag(i) = grundbetrag(z9) / 100
NEXT

Op1 = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab1.Caption)), CTOD(ALLTRIM(mystufenlaufzeit.Datumab0.Caption)))
Op2 = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu1.Caption)), CTOD(ALLTRIM(mystufenlaufzeit.Datumab0.Caption)))

For i = 1 To Op1
    stufenbetrag(601) = stufenbetrag(601) + stufenbetrag(i)
NEXT

For i = 1 To Op2
    stufenbetrag(602) = stufenbetrag(602) + stufenbetrag(i)
NEXT

If Op1 > Op2 
   Op3 = Op1 - Op2
   stufenbetrag(460) = stufenbetrag(602) + stufenbetrag(600) * Op3
Else
   Op3 = Op2 - Op1
   stufenbetrag(601) = stufenbetrag(601) + stufenbetrag(600) * Op3
ENDIF

stufenbetrag(603) = stufenbetrag(601) - stufenbetrag(602)

mystufenlaufzeit.Leistung.value = STR(stufenbetrag(603),10,2)
ENDPROC
     9                                ]   %   \        6   k            U  Y$ %C  
 C    T     T     T     T     T       T   	  T   	  T   	  T   	  T   	  
 T
  
 T
  
 T   
  (
f T 
   T 
   
 T    ( ) T CC  ZL For i = 1 To INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))% T  # T  C  d   T X  T Y  T Z  T [  
  (X T 
 C   d , T C mCC   #CC   # , T C mCC   #CC   #  
 ( H" T YCY C 
    
 ( " T ZCZ C 
    %   T   & T CZ CX    T   & T YCY CX   " T [CY CZ   T   CC[ 
Z U  ZI MYSTUFENLAUFZEIT FRAME1 VISIBLE FALSE FRAME11 LEISTUNG EURO LISTE TRUE L J K I SICHT Z9 XXX STUFENBETRAG GRUNDBETRAG M OP1
 DATEDIFF_2 DATUMAB1 CAPTION DATUMAB0 OP2 NEU1 OP3 VALUE Click,     1 A11111 11111A    rA  qq1A A "AAAA r!A r!A a aA "1                             )                            
commandbutton      
commandbutton      stufenlaufzeitladen      FORM1      Top = 420
Left = 36
Height = 16
Width = 126
Caption = "stufenlaufzeitladen"
Enabled = .F.
Visible = .F.
Name = "stufenlaufzeitladen"
     [dPROCEDURE Click
startflag = True
myClose(87)

With mystufenlaufzeit
*.Top = form1.Top + form1.SSPanel1.Top
*.Left = form1.Left + form1.Abereich(12).Left
hsxx = ALLTRIM(STR(zi(1+20),2,0))
mystufenlaufzeit.Stichtag.Caption = "Berechnung fr den Monat " + myform1.Mon&hsxx..Caption + " " + welchesjahrc

mystufenlaufzeit.Land.Caption = zt2(1+ zi(1+2))
mystufenlaufzeit.Dienstverhltnis.Caption = zt4(1+ zi(1+4))
mystufenlaufzeit.Gruppe.Caption = zt5(1+ zi(1+5))
mystufenlaufzeit.Bezeichnung.Caption = zt6(1+ zi(1+6))
  
z7 = 1
z8 = 0
z9 = 6

do Case &&zi(1+4)
Case zi(1+4) = 0
     mystufenlaufzeit.bundalt.click
      do Case &&zi(1+2)
      Case zi(1+2) = 0 &&BW
*!*	           mystufenlaufzeit.Normal5.Caption = "36"
*!*	           mystufenlaufzeit.Normal9.Caption = "48"
      Case zi(1+2) = 1
           mystufenlaufzeit.Normal4.Caption = "36"
           mystufenlaufzeit.Normal5.Caption = "36"
           mystufenlaufzeit.Normal8.Caption = "48"
           mystufenlaufzeit.Normal9.Caption = "48"
      Case INLIST(zi(1+2),4, 5, 8, 9, 10, 12, 13, 15, 16)
      Case zi(1+2) = 11 &&Rheinland-Pfalz
           do Case &&welchesjahr
           Case welchesjahr = 2012 &&fragehs nur bei 2012 ?????
              mystufenlaufzeit.Normal11.Caption = "60"
           Case welchesjahr > 2012 &&fraghs
              mystufenlaufzeit.Normal11.Caption = "60"
           Endcase
      
      Case zi(1+2) = 3 .or. zi(1+2) = 14
           mystufenlaufzeit.Normal1.Caption = "24"
           mystufenlaufzeit.Normal2.Caption = "36"
           mystufenlaufzeit.Normal3.Caption = "36"
           mystufenlaufzeit.Normal4.Caption = "36"
           mystufenlaufzeit.Normal5.Caption = "48"
           mystufenlaufzeit.Normal6.Caption = "48"
           mystufenlaufzeit.Normal7.Caption = "48"

           If zi(1+5) < 5 
              mystufenlaufzeit.Normal5.Caption = "36"
              mystufenlaufzeit.Normal6.Caption = "36"
              mystufenlaufzeit.Normal7.Caption = "36"
           ENDIF
           
           If welchesjahr < 2009 And zi(1+2) = 3
           		mystufenlaufzeit.bundalt.click
           	ENDIF
           	
      Case zi(1+2) = 6 &&Hamburg
           mystufenlaufzeit.Normal1.Caption = "36"
           mystufenlaufzeit.Normal2.Caption = "24"
           mystufenlaufzeit.Normal3.Caption = "36"
           mystufenlaufzeit.Normal4.Caption = "48"
           mystufenlaufzeit.Normal5.Caption = "48"
           mystufenlaufzeit.Normal6.Caption = "72"
           mystufenlaufzeit.Normal7.Caption = "72"
      Case zi(1+2) = 7 &&Hessen
           If welchesjahr = 2014 And zi(1+20) > 1
              mystufenlaufzeit.Normal1.Caption = "24"
              mystufenlaufzeit.Normal2.Caption = "36"
              mystufenlaufzeit.Normal3.Caption = "36"
              mystufenlaufzeit.Normal4.Caption = "36"
              mystufenlaufzeit.Normal5.Caption = "48"
              mystufenlaufzeit.Normal6.Caption = "48"
              mystufenlaufzeit.Normal7.Caption = "48"
           EndIf
           If welchesjahr > 2014
              mystufenlaufzeit.Normal1.Caption = "24"
              mystufenlaufzeit.Normal2.Caption = "36"
              mystufenlaufzeit.Normal3.Caption = "36"
              mystufenlaufzeit.Normal4.Caption = "36"
              mystufenlaufzeit.Normal5.Caption = "48"
              mystufenlaufzeit.Normal6.Caption = "48"
              mystufenlaufzeit.Normal7.Caption = "48"
           EndIf
      EndCASE

Case zi(1+4) = 4 &&Richter Hessen ab 2014
     For i = 1 To 12
     	xxx=ALLTRIM(STR(i,2,0))
         mystufenlaufzeit.Normal&xxx..Caption = "24"
     Next
Case zi(1+4) >= 10 .or. zi(1+4) <= 12
        If welchesjahr >= 2018 And zi(1+4) = 11
          If zi(1+4) < 12 .And. zi(1+5) < 7 
          		z9 = 6
          endif
        Else
          If zi(1+4) < 12 .And. zi(1+5) < 7 
          		z9 = 5
          endif
        EndIf
     mystufenlaufzeit.Normal1.Caption = "12"
     mystufenlaufzeit.Normal2.Caption = "24"
     mystufenlaufzeit.Normal3.Caption = "36"
     mystufenlaufzeit.Normal4.Caption = "48"
     mystufenlaufzeit.Normal5.Caption = "60"
     
     If zi(1+5) = 14 Then && EG1
        mystufenlaufzeit.Normal1.Caption = "0"
        mystufenlaufzeit.Normal2.Caption = "48"
        mystufenlaufzeit.Normal3.Caption = "48"
        mystufenlaufzeit.Normal4.Caption = "48"
        mystufenlaufzeit.Normal5.Caption = "48"
     EndIf
Case zi(1+4) = 13 .or. zi(1+4) = 16 .or. zi(1+4) = 17 &&Pflege
     mystufenlaufzeit.Normal1.Caption = "12"
     mystufenlaufzeit.Normal2.Caption = "24"
     mystufenlaufzeit.Normal3.Caption = "36"
     mystufenlaufzeit.Normal4.Caption = "48"
     mystufenlaufzeit.Normal5.Caption = "60"
     
     do Case &&zi(1+5)
     Case zi(1+5) = 0 &&12
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "36"
          
     Case zi(1+5) = 2 &&11a
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 3 &&10a
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "36"
     
     Case zi(1+5) = 4 &&9d
          mystufenlaufzeit.Normal3.Caption = "48"
          mystufenlaufzeit.Normal4.Caption = "24"
     
     Case zi(1+5) = 5 &&9c
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 6 &&9b
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 7 &&9a
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Endcase
     If welchesjahr > 2011
        do Case &&zi(1+4)
        Case zi(1+4) = 17
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "24"
                mystufenlaufzeit.Normal3.Caption = "36"
                mystufenlaufzeit.Normal4.Caption = "48"
                mystufenlaufzeit.Normal5.Caption = "60"
         Endcase
     EndIf
Case zi(1+4) = 14 &&SundE
    If welchesjahr < 2015 .Or. (welchesjahr = 2015 .And. zi(1+20) < 6) 
        mystufenlaufzeit.Normal1.Caption = "12"
        mystufenlaufzeit.Normal2.Caption = "36"
        mystufenlaufzeit.Normal3.Caption = "48"
        mystufenlaufzeit.Normal4.Caption = "48"
        mystufenlaufzeit.Normal5.Caption = "60"
        If zi(1+5) = 10 &&S8
            mystufenlaufzeit.Normal4.Caption = "96"
            mystufenlaufzeit.Normal5.Caption = "120"
        EndIf
    Else && > 07/2015
        do Case &&zi(1+5)
            Case zi(1+5) = 21 &&8b=21
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "72"
                mystufenlaufzeit.Normal5.Caption = "96"
            Case zi(1+5) = 10 &&S8=10
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "72"
                mystufenlaufzeit.Normal5.Caption = "96"
            otherwise &&alle anderen stufen
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "48"
                mystufenlaufzeit.Normal5.Caption = "60"
        Endcase
    EndIf
Endcase


do Case &&m
Case m >= 7 .and. m <= 12
     If zi(1+4) < 10 
        mystufenlaufzeit.Height = .Stufe12.Top + 100
     Else
        mystufenlaufzeit.Height = .Stufem.Top + 60
     EndIf
Case m = 13
     mystufenlaufzeit.Height = .Stufe12.Top + 100
Endcase

EndWith


&&z7 = Beginnstufe
&&z8 = Monatevorschub
&&z9 = Endstufe
DO Case &&zi(1+4)
Case zi(1+4) = 4 &&Richter Hessen
     z7 = 1
     z8 = 0
     z9 = 12
Case zi(1+4) >= 0 .and. zi(1+4) <= 3
   
   z9 = 12
   do Case &&zi(1+2)
   Case zi(1+2) = 0 &&BW
           do Case &&zi(1+5) =
           Case zi(1+5) >= 0 .and. zi(1+5) <= 7
                  z7 = 1
                  z8 = 0
                  IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
                 	  z9 = 10
                  ELSE
	                  z9 = 8
	              endif
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
              IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
             	  z9 = 11
              ELSE
                  z9 = 9
              endif                
           Case zi(1+5) = 13
                z7 = 3
                z8 = 48
              IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
             	  z9 = 12
              ELSE
                  z9 = 10
              endif                  
           Case zi(1+5) = 14
                z7 = 4
                z8 = 72
              IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
             	  z9 = 12
              ELSE
                  z9 = 10
              endif                 
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 5
                z8 = 96
              IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
             	  z9 = 12
              ELSE
                  z9 = 10
              endif                 
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
              IF welchesjahr < 2022 .or. (welchesjahr = 2022 .and. monat <= 11)
             	  z9 = 12
              ELSE
                  z9 = 10
              endif                 
           Endcase
    Case zi(1+2) = 1 && Bayern
           z9 = 11
           do Case && zi(1+5) =
           Case zi(1+5) >= 0 .and. zi(1+5) <= 7
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) >= 8 .and. zi(1+5) >= 12
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) = 13
                z7 = 2
                z8 = 24
           Case zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 72
           Case zi(1+5) > 18
                z7 = 5
                z8 = 108
           Endcase
    Case zi(1+2) = 2 &&Berlin
            z7 = 1
            z8 = 0
            z9 = 8
    Case zi(1+2) = 3 &&Bund
            z7 = 1
            z8 = 0
            z9 = 8
    
    Case zi(1+2) = 4 &&Brandenburg
           
           do Case  &&zi(1+5) =
           Case zi(1+5) >=0 .and. zi(1+5) <= 2
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 5 &&Bremen
           do Case &&zi(1+5)
           Case zi(1+5) >=0 .and. zi(1+5) <= 2
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 6 &&Hamburg
            z7 = 1
            z8 = 0
            z9 = 8
   
   Case zi(1+2) = 7 &&Hessen
           If welchesjahr < 2015 
              do Case &&zi(1+5)
              Case zi(1+5) < 3
                   z7 = 1
                   z8 = 0
                   z9 = 7
              Case zi(1+5) = 3 .or. zi(1+5) = 5
                   z7 = 1
                   z8 = 0
                   z9 = 8
              Case zi(1+5) = 4 .or. zi(1+5) = 6
                   z7 = 1
                   z8 = 0
                   z9 = 9
              Case zi(1+5) = 7
                   z7 = 1
                   z8 = 0
                   z9 = 10
              Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                   z7 = 2
                   z8 = 24
                   z9 = 11
              Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                   z7 = 3
                   z8 = 48
              Case zi(1+5) > 18
                   z7 = 6
                   z8 = 132
              Endcase
              If welchesjahr = 2014 And zi(1+20) > 1
                 z7 = 1
                 z8 = 0
                 z9 = 8
              EndIf
           EndIf
           
           If welchesjahr > 2014
              z7 = 1
              z8 = 0
              z9 = 8
           EndIf
           
   Case zi(1+2) = 8 &&MV
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8  .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 9 &&NS
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) =7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 10 &&NRW
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
           If welchesjahr = 2013 .and. zi(1+20) > 4 
              do Case &&zi(1+5)
              Case zi(1+5) = 14
                   z7 = 4
                   z8 = 72
              Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                   z7 = 5
                   z8 = 96
              Endcase
           endif
           If welchesjahr > 2013 
              do Case &&zi(1+5)
              Case zi(1+5) = 14
                   z7 = 4
                   z8 = 72
              Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                   z7 = 5
                   z8 = 96
              Endcase
           endif
           
   Case zi(1+2) = 11 &&Rheinland
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) =7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
 Case zi(1+2) = 12 &&Saarland
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13 .or. zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 96
           Case zi(1+5) > 18
                z7 = 5
                z8 = 132
           Endcase
  Case zi(1+2) = 13 &&Sachsen
           do Case &&zi(1+5)
           CASE zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .and. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
  Case zi(1+2) = 14 &&Sachsen-Anhalt
            z7 = 1
            z8 = 0
            z9 = 8
   Case zi(1+2) = 15 &&Schleswig
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 14 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 72
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 16 &&Thringen
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13 .or. zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 72
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
    Endcase
Endcase
sicht(1+0,1+ 0) = 0
&&Leistung.Caption = Format(sicht(0, 0), "###,##0.00")
If z7 > 1 And zi(1+4) < 9 Then
   kommentar(1+0) = "Ist " + Trim(myform1.z5.Caption) + " das Eingangsamt, beginnt die Stufenlaufzeit " + ALLTRIM(STR(z8,4,0)) + " Monate "
   kommentar(1+1) = "vor der Einstellung. Anfangsstufe ist dann Stufe " + ALLTRIM(STR(z7,4,0)) + ". Anrechenbare Vordienstzeiten"
   kommentar(1+2) = "sind auch hier noch zustzlich zu bercksichtigen."
   mystufenlaufzeit.Eingangsamt.Caption = Trim(kommentar(1+0)) + " " + Trim(kommentar(1+1)) + " " + Trim(kommentar(1+2))
Else
   mystufenlaufzeit.Eingangsamt.Caption = ""
 
EndIf
Msg = ""

If zi(1+20) <= 9 
   mystufenlaufzeit.Datumab0.Caption = "01.0" + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
Else
   mystufenlaufzeit.Datumab0.Caption = "01." + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
EndIf
For i = 1 To 12
	xxx=ALLTRIM(STR(i,2,0))
    mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(15)
Next
If Left(wvw.BDA, 2) = "01" Then
   mystufenlaufzeit.BDAdatum.value = wvw.BDA
   k = zi(1+7) + 1
   xxx = ALLTRIM(STR(k,4,0))
   mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
Else
   j = 0
   k = zi(1+7) + 1
   If k > z9
   		k = z9
   endif
   If k < z7 
   		k = z7
   endif
   If k <= 2
   		k = 1
   endif
   For i = 1 To k - 1
   		xxx= ALLTRIM(STR(i,4,0))
       j = j + INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
   Next
   mystufenlaufzeit.BDAdatum.value = DateAdd("m", -j, CTOD(mystufenlaufzeit.Datumab0.Caption))
 	xxx=ALLTRIM(STR(k,4,0))
   mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
EndIf

If zi(1+4) > 8 
	mystufenlaufzeit.Height = mystufenlaufzeit.Stufe6.Top + 100
endif


startflag = False


mystufenlaufzeit.durchrechnen.click
ENDPROC
     9    l9  l9                        #B   %   3      #9    3            U  1
 T   
 CW 
  c T CCC  Zt mystufenlaufzeit.Stichtag.Caption = "Berechnung fr den Monat " + myform1.Mon&hsxx..Caption + " " + welchesjahrc
 T   CC   T 	  CC 
  T   CC   T 
  CC  
 T 
 T  
 T 
 Hf
 C  
    
 H C   C  T    36 T    36 T    48 T    48. CC 	

A C 
 Hc   T    60   T    60 $ C  C  T    24 T    36 T    36 T    36 T    48 T    48 T    48 %C 
 T    36 T    36 T    36 ! % 
 C 	
      C  T    36 T    24 T    36 T    48 T    48 T    72 T    72 C ! %  C 	g T    24 T    36 T    36 T    36 T    48 T    48 T    48  %  T    24 T    36 T    36 T    36 T    48 T    48 T    48   C   ( T  CC  Z/ mystufenlaufzeit.Normal&xxx..Caption = "24"
 $ C 
 C 3! %  C 	$ %C 
 C 
	
 T   E$ %C 
 C 
	A
 T    T    12 T    24 T    36 T    48 T    60 %C / T    0 T    48 T    48 T    48 T    48 3 C 
 C  C > T    12 T    24 T    36 T    48 T    60
 H
 C  	 T    24 T    36 C Z	 T    24 T    60 C 	 T    24 T    36 C 	 T    48 T    24 C 
 T    60 T    60 C V
 T    60 T    60 C 
 T    60 T    60  % :
 H
6 C 6 T    12 T    24 T    36 T    48 T    60   C 
. % 
   C 
	. T    12 T    36 T    48 T    48 T    60 %C 
* T    96 T    120  

 HC
 C  T    12 T    36 T    48 T    72 T    96 C 
?
 T    12 T    36 T    48 T    72 T    96 2
 T    12 T    36 T    48 T    48 T    60   
 H
_ !  ! 	6 %C 

 T " # $ d 2 T " % $ <  ! 
_ T " # $ d  
 Ht, C 
 T 
 T  
 T $ C   C 	,
 T 
 H, C  ;
 H7$ C   C 	
 T 
 T  * % 
   & 	
 T 
 
 T  $ C  C 	,
 T 
 T * % 
   & 	
 T  (
 T 	  C 

 T 
 T 0* % 
   & 	
 T  
 T 
  C *
 T 
 T H* % 
   & 	
 T  &
 T 
 $ C  C 	
 T 
 T `* % 
   & 	
 T  
 T 
  C 7
 T 
 T * % 
   & 	
 T  3
 T 
   C 
 T 
 Hj$ C   C 	
 T 
 T  
 T 	$ C  C 	 
 T 
 T  
 T 
 C 
/
 T 
 T  C ^
 T 
 T 0$ C  C 	
 T 
 T H C 
 T 
 T l  C 
 T 
 T  
 T  C G
 T 
 T  
 T  C B
 Hi>$ C   C 	
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C J
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	
 T 
 T 0 C >
 T 
 T   C =
 Hd9$ C   C 	
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C E
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	

 T 
 T 0 C 9
 T 
 T   C y
 T 
 T  
 T  C  % 

 Hs C 

 T 
 T  
 T $ C  C 4
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	D
 T 
 T 0 C s
 T 
 T  ! %  C 	
 T 
 T  
 T    %  
 T 
 T  
 T   C 
 H& C 
b
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C 4
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	
 T 
 T 0 C 
 T 
 T   C 	
 H C 
N
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C  
 T 
 T  
 T 
$ C  C 	k
 T 
 T 
 T $ C 
 C 	
 T 
 T 0 C 
 T 
 T   C 
!
 H  C 
:
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C  
 T 
 T  
 T 
$ C  C 	W 
 T 
 T 
 T $ C 
 C 	 
 T 
 T 0 C  
 T 
 T  ! %  C 	g!
 H c! C %!
 T 
 T H$ C  C 	c!
 T 
 T `   % !
 H!! C !
 T 
 T H$ C  C 	!
 T 
 T `   C #
 H!"# C 
]"
 T 
 T  
 T $ C  C "
 T 
 T  
 T $ C  C "
 T 
 T  
 T 	 C /#
 T 
 T  
 T 
$ C  C 	z#
 T 
 T 
 T $ C 
 C 	#
 T 
 T 0 C #
 T 
 T   C &
 H
$& C 
I$
 T 
 T  
 T $ C  C $
 T 
 T  
 T $ C  C $
 T 
 T  
 T 	 C %
 T 
 T  
 T 
$ C  C 	f%
 T 
 T 
 T $ C 
 C %
 T 
 T 0$ C  C 	%
 T 
 T ` C &
 T 
 T   C 
(
 H7&' C 
s&
 T 
 T  
 T $ C  C 	&
 T 
 T  
 T $ C  C 	'
 T 
 T  
 T 	 C E'
 T 
 T  
 T 
$ C  C 	'
 T 
 T 
 T $ C 
 C 	'
 T 
 T 0 C '
 T 
 T   C =(
 T 
 T  
 T  C X*
 H_(T* C 
(
 T 
 T  
 T $ C  C (
 T 
 T  
 T $ C  C 1)
 T 
 T  
 T 	 C m)
 T 
 T  
 T 
$ C  C 	)
 T 
 T 
 T  C 
)
 T 
 T 0$ C  C 	%*
 T 
 T H C T*
 T 
 T   C ,
 Hz*~, C 
*
 T 
 T  
 T $ C  C +
 T 
 T  
 T $ C  C L+
 T 
 T  
 T 	 C +
 T 
 T  
 T 
$ C  C 	+
 T 
 T 
 T $ C 
 C ,
 T 
 T 0$ C  C 	O,
 T 
 T H C ~,
 T 
 T     T'    %  C 	
	!.n T(  Ist C) *  `-  das Eingangsamt, beginnt die Stufenlaufzeit CC  Z  Monate t T( 1 vor der Einstellung. Anfangsstufe ist dann Stufe CC  Z . Anrechenbare VordienstzeitenE T( 2 sind auch hier noch zustzlich zu bercksichtigen.7 T +  CC( `  CC( `  CC( ` <. T +     
 T,    %C 	.6 T -   01.0CCC  Z ..  .5 T -   01.CCC  Z ..    (@/ T  CC  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(15)
  %C/ 0 = 01/ T 1 2 / 0  T3 C  T  CC3  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
 Z1
 T4   T3 C  %3  "0
 T3    %3  
D0
 T3    %3 f0
 T3    (3 0 T  CC  ZC j = j + INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
 ' T 1 2 C m4 cC -  #5  T  CC3  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
  %C 1 T "  6 $ d 
 T  7 
  8   U9 	 STARTFLAG TRUE MYCLOSE MYSTUFENLAUFZEIT HSXX ZI LAND CAPTION ZT2 DIENSTVERHLTNIS ZT4 GRUPPE ZT5 BEZEICHNUNG ZT6 Z7 Z8 Z9 BUNDALT CLICK NORMAL4 NORMAL5 NORMAL8 NORMAL9 WELCHESJAHR NORMAL11 NORMAL1 NORMAL2 NORMAL3 NORMAL6 NORMAL7 I XXX M HEIGHT STUFE12 TOP STUFEM MONAT SICHT	 KOMMENTAR MYFORM1 Z5 EINGANGSAMT MSG DATUMAB0 WELCHESJAHRC WVW BDA BDADATUM VALUE K J DATEADD STUFE6 FALSE DURCHRECHNEN Click,     1    A    Q  QSQQQQQ !Q!QA BQQQQQQQRQQQA  A RQQQQQQQQQQQQQQQA !QQQQQQQA A RqqA AA A  A A A QQQQQRAQQQQA 1QQQQQ QQQRQQRQQRQQRQQRQQRQQB ! QQQQQQA A QQQQQQQQaA   QQQQQQQQQQQQ QQQQQA A A  Q A A B  Q   A  Q A     A A     A Q     A Q     A A     A Q     A A Q  A   A   Q  Q  A  Q  A Q   Q   R A   A   A   Q   A   A  Q  A Q A   A   A   Q   B   A  Q  A Q   R! Q   A   A   Q   A   A  Q  A    A A "   A R Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  Q  A  Q  A  A A ! Q  A  A A R Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  A  Q  A Q Q   A   A   Q   A   A  Q  A Q   Q Q   A   A   Q   A   Q  A  Q  A Q Q   A   A   Q   A   A  A  Q  A A A AQq 1B  Ra QA qqA aQq  Q A  A  A q1A qqA RA   1                       Y[      )   l9                        label      label      eingangsamt      FORM1      eWordWrap = .T.
Caption = ""
Height = 70
Left = 308
Top = 359
Width = 218
Name = "eingangsamt"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
5   %   C        )H 
}q[    U  
     U  BEITRAGSJAHRESNACHWEISN? 7          	 
   
  E J  (          	 
   
   7   J  (   T     F  #) ?
 kontrolle1(!"9+C+

 T  R
 F ? <          	 
   
   <  
     U  1	 AN1_ZEILE AN1_TEXT AN1_SP1 AN1_SP2 AN1_SP3 AN1_SP4 AN1_SP5 AN1_SP6 AN1_SP7 AN1_SP8 AN1_SP9 AN1_SP10 AN1_SP11 AN1_SP12	 HS_PRFIX HS_SUFIX MYFORM3 CAPTION ANSICHT
 KONTROLLE1 IIII	 OLDSELECT
 SSCOMMAND3 SETFOCUSL 7    7     7   / 7	 
   
        7     7  J  (    J  (     J  (   5 J  (	 
   
        J  (    
 J  (    %C 3     T C	   T C   T C   T C    (
   (! T      
   F T  Anlage zur Abrechnung fr CCC" ! `  # 
 T  # 
 T$   
 T%   
 T&   
 T'    T( C
 C
   (8 %C  )  43 T$ $ C ! C 
 (    69 T% % CCC  ) 
 ZC 
 (    6' T* CCCC  ) <+  Z( T, CCCCC  ) <G+  Z %C, 
> T,  0,  0 T& & *  :, C 
 (    69 T' ' CCC  ) 
ZC 
 (    6   T CCC
) 
Z& T* CCCC
) <+ 
 Z' T, CCCCC
) <G+  Z %C, 
> T,  0,   T  *  :, " T  CCC
) 
Z T C"  %C"  S T	 CC" !  l T	 C!   %C"   T
 CC" !   T
 C!   T C"  T C"  T
 CC- ` T CC- ` T CC- ` T CC- ` T CC- ` T CC- ` T CC- ` T CC- ` T CC	- `X T.  15. Urlaubsentgelt (CC- `   X  CC- `   X  CC	- ` ) = T CC
- `
 T    T/ C0  +a %CC/ >  T C /  $1  %  } T  / 
 T/    !  T  C/  = T/ C/ C/ > R   !    <    <     <   / <	 
   
        <     <  U2  1 2 BES1_SP1 BES1_SP2 BES1_SP3 BES1_SP4
 BES_SUMME_SP2
 BES_SUMME_SP3
 BES_SUMME_SP4 SP1_2 SP1_3 SP1_4 SP1_5 SP1_6 SP1_7 SP1_8 SP1_9 SP1_10 SP1_11 SP1_12 SP2_1 SP2_2 SP2_3 SP2_4 BL_FUSS 24
 MONATLADEN ZI TV_FLEX SICHT I J OBJPRINT SUMONATTEXT DAUER WELCHESJAHRC BES_SP1 BES_SP2 BES_SP3 BES_SP4 CRLF JAE STDS FIX MINS BOZ
 BL_ZEILE15	 DRUCKTEXT DITEXT7 ISINSTR
 %C   ~  F  #) % aO " ? arbeitszeit_druck(!9+C+
 z # ? arbeitszeit_druck(!"9+C+
      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  p T 
 Druckvorschau T	 a T
  T  T 
  T   T   T   T a  C     T C ReportListener T   T    F  #)& ? arbeitszeit_druck9. +C+
 <  <   U  DIREKTZUMDRUCKERQ TRUE LOHNTABELLE
 HSSERIENDRUCK ARBEITSZEIT_DRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINERR 7    7     7    7	 
   ' 7
          7    7  J  (    J  (     J  (    J  (	 
   - J  (
          J  (   
 J  (    %C G     T C	   T C   T C   T C    (    (! T       = T  Arbeitszeiten im CCC" !   # 
 T  # 
 T$   
 T%   
 T&   
 T'    T( C
 C
   (6 %C  )  23 T$ $ C ! C 
 (    69 T% % CCC  ) 
 ZC 
 (    6' T* CCCC  ) <+  Z( T, CCCCC  ) <G+  Z %C, 
> T,  0,  0 T& & *  :, C 
 (    69 T' ' CCC  ) 
ZC 
 (    6   T CCC
) 
Z& T* CCCC
) <+ 
 Z' T, CCCCC
) <G+  Z %C, 
> T,  0,   T  *  :, " T  CCC
) 
Z T- . / 0  T1 . 2 0  T3 . 4 0  T5 . 6 0 
 T
   
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T    T. 7 8   (~ T. 7 9   %C. 7 : ` Montag> T;   ] T;     T  C. 7 : (   T. 7 8    ( T. 7 9   T
 
 C. 7 : (  
 T   T< CC   Z T= CC   Z T> CC   Z T? CC   Z  (o	" myArbeitszeit.Std&xxx..Row = i
/ If Len(myArbeitszeit.Std&xxx..Text) > 0F	/ msg1 = Alltrim(myArbeitszeit.Std&xxx..Text)
# myArbeitszeit.Std&xxx1..Row = i
0 msg2 = Alltrim(myArbeitszeit.Std&xxx1..Text)
# myArbeitszeit.Std&xxx2..Row = i
6 msg3 = Alltrim(myArbeitszeit.Std&xxx2..Text) + ":"
# myArbeitszeit.Std&xxx3..Row = i
8 msg4 = Alltrim(myArbeitszeit.Std&xxx3..Text) + " = "
# myArbeitszeit.Zeit&xxx..Row = i
0 msg5 = Alltrim(myArbeitszeit.Zeit&xxx..Text)
 % T  @ A B C D (  
 T   T< CC   Z T= CC   Z T> CC   Z T? CC   Z  (" myArbeitszeit.Std&xxx..Row = i
/ If Len(myArbeitszeit.Std&xxx..Text) > 0/ msg1 = Alltrim(myArbeitszeit.Std&xxx..Text)
# myArbeitszeit.Std&xxx1..Row = i
0 msg2 = Alltrim(myArbeitszeit.Std&xxx1..Text)
# myArbeitszeit.Std&xxx2..Row = i
6 msg3 = Alltrim(myArbeitszeit.Std&xxx2..Text) + ":"
# myArbeitszeit.Std&xxx3..Row = i
8 msg4 = Alltrim(myArbeitszeit.Std&xxx3..Text) + " = "
# myArbeitszeit.Zeit&xxx..Row = i
0 msg5 = Alltrim(myArbeitszeit.Zeit&xxx..Text)
 % T  @ A B C D (  
 T  	 T< CC   Z T= CC   Z T> CC   Z T? CC   Z  (" myArbeitszeit.Std&xxx..Row = i
/ If Len(myArbeitszeit.Std&xxx..Text) > 0l/ msg1 = Alltrim(myArbeitszeit.Std&xxx..Text)
# myArbeitszeit.Std&xxx1..Row = i
0 msg2 = Alltrim(myArbeitszeit.Std&xxx1..Text)
# myArbeitszeit.Std&xxx2..Row = i
6 msg3 = Alltrim(myArbeitszeit.Std&xxx2..Text) + ":"
# myArbeitszeit.Std&xxx3..Row = i
8 msg4 = Alltrim(myArbeitszeit.Std&xxx3..Text) + " = "
# myArbeitszeit.Zeit&xxx..Row = i
0 msg5 = Alltrim(myArbeitszeit.Zeit&xxx..Text)
 % T  @ A B C D (  
 T  
 T< CC   Z T= CC   Z T> CC   Z T? CC   Z  ((" myArbeitszeit.Std&xxx..Row = i
/ If Len(myArbeitszeit.Std&xxx..Text) > 0/ msg1 = Alltrim(myArbeitszeit.Std&xxx..Text)
# myArbeitszeit.Std&xxx1..Row = i
0 msg2 = Alltrim(myArbeitszeit.Std&xxx1..Text)
# myArbeitszeit.Std&xxx2..Row = i
6 msg3 = Alltrim(myArbeitszeit.Std&xxx2..Text) + ":"
# myArbeitszeit.Std&xxx3..Row = i
8 msg4 = Alltrim(myArbeitszeit.Std&xxx3..Text) + " = "
# myArbeitszeit.Zeit&xxx..Row = i
0 msg5 = Alltrim(myArbeitszeit.Zeit&xxx..Text)
 % T  @ A B C D (    (E T. E 8   T. E 9   %C. E : > A TF F  1(  T. E 8  T. E 9  % T  CC. E : 
Z(  T. E 8  T. E 9   TG . E : % T  CC. E : 
Z(    T. E 8   T. E 9 ! T C. E :  T. E 8  T. E 9 ! T C. E :  T. E 8  T. E 9 ! T C. E : 
 T    TH CI  +a %CCH >  T C H  $J  %   T  H 
 TH    !  T  CH  = TH CH CH > R   !   <    <     <    <	 
   ' <
          <    <  UK  1 2 BES1_SP1 BES1_SP2 BES1_SP3 BES1_SP4
 BES_SUMME_SP2
 BES_SUMME_SP3
 BES_SUMME_SP4 STDSATZ1 STDSATZ2 STDSATZ3 STDSATZ4 BL_SP1A BL_SP1B BL_SP2 BL_SP3 BL_SP4 BL_SP5 BL_SP6A BL_SP6B BL_SP6C
 BL_SUMME_SP6A
 BL_SUMME_SP6B
 BL_SUMME_SP6C BL_FUSS 24
 MONATLADEN ZI TV_FLEX SICHT I J SUMONATTEXT DAUER WELCHESJAHRC BES_SP1 BES_SP2 BES_SP3 BES_SP4 CRLF JAE STDS FIX MINS	 STD_SATZ1
 MYARBEITSZEIT SATZ1 VALUE	 STD_SATZ2 SATZ2	 STD_SATZ3 SATZ3	 STD_SATZ4 SATZ4 BLATT COL ROW TEXT	 DATUMDIFF XXX XXX1 XXX2 XXX3 MSG1 MSG2 MSG3 MSG4 MSG5	 QUERSUMME BL_6A MSG	 DRUCKTEXT DITEXT7 ISINSTRQ 7    ? 7      	 
   
     # 7         7         7! " # $ % & '  7( ) * + , - .  7/ 0 1 2 3 4 5  76 7 8 9 : ; <  7= > ? @ A B C  7D E F G H  J  (    E J  (      	 
   
     ) J  (        % J  (        % J  (! " # $ % & ' % J  (( ) * + , - . % J  (/ 0 1 2 3 4 5 % J  (6 7 8 9 : ; < % J  (= > ? @ A B C  J  (D E F G H 
 TI 9 J ( TK J    J (R L (N! TM J L    O T  " B E I T R A G S N A C H W E I S   N     fr  CCP O  T ه In dieser Aufstellung sind die AG-Anteile, die an die Arbeitnehmer als Zuschsse zur Soz.Vers. ausgezahlt worden sind, nicht enthalten. %Q X
 T     %C beitrag2R   FS  G. S G.  h beitrag2T  CU  CV  C#W  C
X  C
Y  C
Z  C
[  C
\  C
]  C
^  C
_  C
`  C
a  C
b  C
c  C
d  C
e  C
  f (M C f  h  wvwg  FS   [ %Q N Ti Cj k . Tj k Cj k Cj k  
 H_" CC4j l  	G TM CM CCj k CC&j m CCj k  C4j l 
'G TM CM CCj k CC&j m CCj k  CC4j l G TM CM CCj k CC&j m CCj k  
 H< C'j l   C'j l  C'j l : TM CM CCj k CC(j m  C'j l c: TM CM CCj k CC(j m  CC'j l : TM CM CCj k CC(j m  
 Hx	" CC(j l  	&	: TM CM CCj k CC)j m  C(j l x	: TM CM CCj k CC)j m  @ >S U Cf 

  0Cf  Z Cf  Z6 .N % >S V CCC.j l n % >S W CCCBj m d
Z& TK CK CBj m d% >S X CCCj m d
Z& TK CK Cj m d %C&j m  _< >S Y CCCj k dCj k d
ZB TK CK CCj k dCj k dT& >S Z CCC&j m 
Z, TK CK C&j m d " >S Y CC        
Z" >S Z CC        
Z & >S [ CCCj k 
Z( TK CK CCj k d
 H
% CC&j l  
 %C&j m  % >S \ CCCj k d
Z& TK CK Cj k d& >S ] CCC'j m 
Z, TK CK C'j m d 0
" >S \ CC        
Z" >S ] CC        
Z & >S ^ CCCj k 
Z, TK 	C	K Cj k d" CC&j l " >S \ CC        
Z" >S ] CC        
Z" >S ^ CC        
Z 
 H+ Cj l 	 Cj l 	 %C(j m  % >S _ CCCj k d
Z& TK 
C
K Cj k d& >S ` CCC(j m 
Z, TK CK C(j m d " >S _ CC        
Z& TK 
C
K Cj k d" >S ` CC        
Z, TK CK C(j m d % >S a CCCj k d
Z& TK CK Cj k d& >S b CCC)j m 
Z, TK 
C
K C)j m d% >S c CCCj k d
Z& TK CK Cj k d% >S d CCCj k d
Z& TK CK Cj k d %o p q + TM C#j k r   Ts CCM G %s x4 TM CCM t d{Gz? ( TM CCM t d   TM   ! >S e CCCM 
Z+ TK CK CM dd  %Q I Tj k i   
 Tu  J ( Tv CCu  Z' an_sp&xxx = ROUND(colon(1+i - 2),2)
 Tu u   Tw C T T CCCK 
Z T CCCK 
Z T CCCK 
Z TK CK 
 T  1 T CCCK CK CK 
Z T CCCK 
Z T CCCK 
Z T CCC	K 
Z, T CCCK CK C	K 
Z T! CCC
K 
Z T" CCCK 
Z$ T$ CCC
K CK 
Z T( CCCK 
Z T) CCC
K 
Z$ T+ CCCK C
K 
Z T/ CCCK 
Z T2 CCCK 
Z T6 CCCK 
Z T9 CCCK 
Z" Tx CCr 
Z  % T= CCCK 
Z T@ CCCK 
ZG TK CK CK C
K CK CK CK CK / TK CK CK CK C
K  TK CK C	K / TK CK CK CK CK  TD CCCK 
Z TF CCCK 
Z TG CCCK 
Z TE CCCK 
Z TH CCCK 
Z# T CCCM d
Z" T CCCM d
Z" T CCCM d
Z, T CCCK CK C	K 
Z" T% CCCM d
Z" T& CCCM d
Z" T' CCCM d
Z" T, CCCM d
Z" T- CCCM d
Z T3 CCCK 
Z T: CCCK 
Z TA CCCK 
Z FS  #) +C+
 %CS V    H  #) %C+" C Keine Daten gefunden!y  <    ? <      	 
   
     # <         <         <! " # $ % & '  <( ) * + , - .  </ 0 1 2 3 4 5  <6 7 8 9 : ; <  <= > ? @ A B C  <D E F G H  FS  Q  %Cz q  %{ aU" ? beitragsnachweis2(!9+C+
 # ? beitragsnachweis2(!"9+C+
   } ~  T} 
 V} 3 T C MyInWindowFixer preview_fixer.prg
 } v T 
 Druckvorschau T a T  T  T   T   T   T   T a  C  }   T~ C ReportListener T~   T~  } & ? beitragsnachweis29.~ +C+
 <~  <}   FS  Q <    ? <      	 
   
     # <         <         <! " # $ % & '  <( ) * + , - .  </ 0 1 2 3 4 5  <6 7 8 9 : ; <  <= > ? @ A B C  <D E F G H  U  1 2 3 AN_SP1 AN_SP2 AN_SP3 AN_SP4 AN_SP5 AN_SP6 AN_SP7 AN_SP8 AN_SP9 AN_SP10 AN_SP11 AN_SP12 AN_SP13 AN_SP14 AN_SP15 G_SP3 G_SP3_AG G_SP4 G_SP5 G_SP6 G_SP8 G_SP10 G_SP13 P_SP3 P_SP4 P_SP5 P_SP6 P_SP8 P_SP10 P_SP13 L_SP3 L_SP4 L_SP5 L_SP6 L_SP8 L_SP10 L_SP13 M_SP3 M_SP4 M_SP5 M_SP6 M_SP8 M_SP10 M_SP13 U1_SP3 U1_SP4 U1_SP5 U1_SP6 U1_SP8 U1_SP10 U1_SP13 U2_SP3 U2_SP4 U2_SP5 U2_SP6 U2_SP8 U2_SP10 U2_SP13 U3_SP3 U3_SP4 U3_SP5 U3_SP6 U3_SP8 U3_SP10 U3_SP13	 SUMME_SP3 SUMME_SP3_AG	 SUMME_SP4	 SUMME_SP5	 SUMME_SP6 MYINDEXE I COLON J SICHT WELCHESJAHRC ZT0 ZI WELCHESJAHR
 GIVESELECT BEITRAG2 NR HSMONAT NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 MONATE MYGET FILENEU OLDEFFZ0 WVW EFFZ ZNAM TNAM ZT46 WNW ZUMLAGE3 TRUE
 INSOLVENZGELD HS_REST FIX XXXA XXX AN_SP5_DOPPELT U3_SP0 HINWEIS DIREKTZUMDRUCKERQ
 HSSERIENDRUCK BEITRAGSNACHWEIS2 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER 7     J  (    / 7      	 
   
 = J        (      	 
   
 
 T 3  (  T    
 H  C  	 T  J A N U A R C 8 T 
 F E B R U A R C a T  M  R Z C  T 	 A P R I L C  T  M A I C  T  J U N I C  T  J U L I C 2 T  A U G U S T C e T  S E P T E M B E R C 	 T 
 O K T O B E R C 
 T  N O V E M B E R C  T  D E Z E M B E R 
 T  C T C   C \  C \  C R? T  # B E I T R A G S N A C H W E I S          C T 6 B U N D E S K N A P P S C H A F T   (Minijob-Zentrale)  %C knappschaft   F  G. S G.   h knappschaft  C  C  C#  C
  C
  C
  C
  C
  C
   C
!  C
"  C
#  C
  T$ C   (%  F   [ C
   wnw&  C $    wvw&  T  * %C.' ( " C' )  	
' >  CC  Z . * + % >  CCCB' ) d
Z" T C CB' ) % >  CCC' , d
Z" T C C' , " T C C' , % >  CCC' , d
Z" T C C' , " T C C' ,  %C'' ( % >  CCC' , d
Z" T C C' , " T C C' ,  >  CC 
Z >  CC 
Z  %C'' (  >  CC 
Z% >  CCC' , d
Z" T C C' , " T C C' , & >  CCC(' ) 
Z" T C C(' ) " T C C(' )  % >   CCC' , d
Z" T C C' , " T C C' , % > ! CCC' , d
Z" T 	C	 C' , " T C C' ,  %* - . :
+ T/ C#' , 0   T1 CC/ G %1 
4 T/ CC/ 2 d{Gz? 6
( T/ CC/ 2 d  [
 T/   ! > " CCC/ 
Z& T 
C
 C/ d& T C C/ d" > # CCC d
Z T C C   [   (
 T3 CC  Z8 sum_sp&xxx = ALLTRIM(STR(colon(1+i - 1) / 100,10,2))
  T CCC d
Z( T CCC C d
Z F  #) +C+
 %C     H  #) %C+. C! Keine Daten zum Drucken gefunden!4  <    / <      	 
   
  F  Q B  %C5 . 
 %6 a$ ? knappschaftnachweis(!9+C+
 
% ? knappschaftnachweis(!"9+C+
   8 9  T8 
 V8 3 T: C MyInWindowFixer preview_fixer.prg
 8  T; 
 Druckvorschau T< a T=  T>  T? @  TA B  TC   TD   TE a  C : 8 F  T9 C ReportListener T9 G  T9 H 8 ( ? knappschaftnachweis9.9 +C+
 <9  <8   <    / <      	 
   
  F  Q UI  1 2	 SUMME0100 SUM_SP1 SUM_SP2 SUM_SP3 SUM_SP4 SUM_SP5 SUM_SP6 SUM_SP7 SUM_SP8 SUM_SP9 SUM_SP10 SUM_SP11 MYINDEXE I COLON ZI MSG MSG1 WELCHESJAHRC
 GIVESELECT KNAPPSCHAFT NR MONAT NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 MONATE
 SATZANZAHL MYGET WVW ZNAM TNAM WNW PERSONALFALL EFFZ ZUMLAGE3 TRUE SICHT
 INSOLVENZGELD HS_REST FIX XXX HINWEIS DIREKTZUMDRUCKERQ
 HSSERIENDRUCK KNAPPSCHAFTNACHWEIS LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
     U  BUNDESKNAPPSCHAFT
     U  JAHRESLOHNSTEUERNACHWEISL 7    C 7      	 
   
      # 7        # 7       ! "  7# $ % & ' ( )  7* + , - . / 0  71 2 3 4 5 6 7  78 9 : ; < = >  7? @ A B C D E  7F G H I J  J  (    I J  (      	 
   
      ) J  (        ) J  (       ! " % J  (# $ % & ' ( ) % J  (* + , - . / 0 % J  (1 2 3 4 5 6 7 % J  (8 9 : ; < = > % J  (? @ A B C D E  J  (F G H I J 
 TK 2
 H CL   TM  J A N U A R CL F TM 
 F E B R U A R CL o TM  M  R Z CL  TM 	 A P R I L CL  TM  M A I CL  TM  J U N I CL  TM  J U L I CL @ TM  A U G U S T CL s TM  S E P T E M B E R CL 	 TM 
 O K T O B E R CL 
 TM  N O V E M B E R CL  TM  D E Z E M B E R 
 TN O C TN CN   CN \  CN \  CN R> T  " B E I T R A G S N A C H W E I S   M     N  T CQ P  T ه In dieser Aufstellung sind die AG-Anteile, die an die Arbeitnehmer als Zuschsse zur Soz.Vers. ausgezahlt worden sind, nicht enthalten.C
 C
  %R n T      %C beitrag1S   FT  G. S G.  h beitrag1U  CV  CW  C#X  C
Y  C
Z  C
[  C
\  C
]  C
^  C
_  C
`  C
a  C
b  C
c  C
d  C
e  C
f  C
  g ( Th g    g (V i (R! Tj g i     g (k  FT   [ C
 g  wnwl  C m  g  wvwl  FT * %C.n o p  Cn q  	z >T W r s  %R H	 Tt Cn u . Tn u Cn u Cn u  
 HY	
" CC4n o  		G Tj Cj CCn u CC&n q CCn u  C4n o 
!
G Tj Cj CCn u CC&n q CCn u  CC4n o 
G Tj Cj CCn u CC&n q CCn u  
 H
< C'n o   C'n o  C'n o : Tj Cj CCn u CC(n q  C'n o ]: Tj Cj CCn u CC(n q  CC'n o : Tj Cj CCn u CC(n q  
 Hr" CC(n o  	 : Tj Cj CCn u CC)n q  C(n o r: Tj Cj CCn u CC)n q  % >T X CCCBn q d
Z& Th Ch CBn q d% >T Y CCCn q d
Z& Th Ch Cn q d %C&n q  
< >T Z CCCn u dCn u d
ZB Th Ch CCn u dCn u dT& >T [ CCC&n q 
Z, Th Ch C&n q d @" >T Z CC        
Z" >T [ CC        
Z & >T \ CCCn u 
Z( Th Ch CCn u d
 H% CC&n o   %C&n q  y% >T ] CCCn u d
Z& Th Ch Cn u d& >T ^ CCC'n q 
Z, Th Ch C'n q d " >T ] CC        
Z" >T ^ CC        
Z & >T _ CCCn u 
Z, Th 	C	h Cn u d" CC&n o " >T ] CC        
Z" >T ^ CC        
Z" >T _ CC        
Z  %C(n q  \% >T ` CCCn u d
Z& Th 
C
h Cn u d& >T a CCC(n q 
Z, Th Ch C(n q d " >T ` CC        
Z& Th 
C
h Cn u d" >T a CC        
Z, Th Ch C(n q d % >T b CCCn u d
Z& Th Ch Cn u d& >T c CCC)n q 
Z, Th 
C
h C)n q d% >T d CCCn u d
Z& Th Ch Cn u d% >T e CCCn u d
Z& Th Ch Cn u d %r v w 	+ Tj C#n u x   Ty CCj G %y 4 Tj CCj z d{Gz? ( Tj CCj z d  * Tj   ! >T f CCCj 
Z+ Th Ch Cj dd  Tt Cn u   FT  [ 
 T{  g ( T| CC{  Z' an_sp&xxx = ROUND(colon(1+i - 2),2)
 T{ {   T C T T CCCh 
Z T CCCh 
Z T CCCh 
Z Th Ch 
 T  1 T CCCh Ch Ch 
Z$ T CCCh Ch 
Z" T CCCj d
Z T CCCj 
Z T CCCh 
Z T CCCh 
Z T CCC	h 
Z, T CCCh Ch C	h 
Z, T  CCCh Ch C	h 
Z T# CCC
h 
Z T$ CCCh 
Z$ T& CCC
h Ch 
Z" T' CCCj d
Z" T( CCCj d
Z T) CCCj 
Z T* CCCh 
Z T+ CCC
h 
Z$ T- CCCh C
h 
Z" T. CCCj d
Z T/ CCCj 
Z T1 CCCh 
Z T4 CCCh 
Z T5 CCCh 
Z T8 CCCh 
Z T; CCCh 
Z T< CCCh 
Z" T} CCx 
Z  % T? CCCh 
Z TB CCCh 
Z TC CCCh 
ZG Th Ch Ch C
h Ch Ch Ch Ch / Th Ch Ch Ch C
h  Th Ch C	h / Th Ch Ch Ch Ch  TF CCCh 
Z TH CCCh 
Z TI CCCh 
Z TG CCCh 
Z TJ CCCh 
Z %R  Tn u t   FT  #) +C+
 %CT W    H  #) %C~ w | % aN! ? beitragsnachweis(!9+C+
 x" ? beitragsnachweis(!"9+C+
      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  n T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T   % ? beitragsnachweis9. +C+
 <  <   <    ? <     	 
   
      # <        # <       ! "  <# $ % & ' ( )  <* + , - . / 0  <1 2 3 4 5 6 7  <8 9 : ; < = >  <? @ A B C D E  <F G  I J  FT  Q U  1 2 3 AN_SP1 AN_SP2 AN_SP3 AN_SP4 AN_SP5 AN_SP5_DOPPELT AN_SP6 AN_SP7 AN_SP8 AN_SP9 AN_SP10 AN_SP11 AN_SP12 AN_SP13 AN_SP14 AN_SP15 G_SP3 G_SP3_AG G_SP4 G_SP5 G_SP6 G_SP8 G_SP10 G_SP13 P_SP3 P_SP3_AG P_SP4 P_SP5 P_SP6 P_SP8 P_SP10 P_SP13 L_SP3 L_SP4 L_SP5 L_SP6 L_SP8 L_SP10 L_SP13 M_SP3 M_SP4 M_SP5 M_SP6 M_SP8 M_SP10 M_SP13 U1_SP3 U1_SP4 U1_SP5 U1_SP6 U1_SP8 U1_SP10 U1_SP13 U2_SP3 U2_SP4 U2_SP5 U2_SP6 U2_SP8 U2_SP10 U2_SP13 U3_SP3 U3_SP4 U3_SP5 U3_SP6 U3_SP8 U3_SP10 U3_SP13	 SUMME_SP3 SUMME_SP3_AG	 SUMME_SP4	 SUMME_SP5	 SUMME_SP6 MYINDEXE ZI MSG MSG1 WELCHESJAHRC ZT46 INDEX1 WELCHESJAHR
 GIVESELECT BEITRAG1 NR MONAT NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 I COLON RJ SICHT
 SATZANZAHL MYGET MONATE WVW ZNAM J TNAM WNW PERSONALFALL OLDEFFZ0 EFFZ ZUMLAGE3 TRUE
 INSOLVENZGELD HS_REST FIX XXXA XXX U3_SP0 DIREKTZUMDRUCKERQ
 HSSERIENDRUCK BEITRAGSNACHWEIS LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
 SUMME_SP43
     U  KASSEDRUCKEN
     U  LOHNSTEUERBESCHEINIGUNGDRUCKEN? 3 7          	 
   7 
  9 J  (          	 
   J  ( 
  
 T -  
 T  x T  1 L O H N S T E U E R B E S C H E I N I G U N G    C   C \  C \  C R T  Steuer-Nr. C 
 HT    b{ T  Herrn    c T  Frau  T     T C   T C  
 H C3   T  EINS C3 5 T  ZWEI C3 [ T  DREI C3  T  VIER C3  T  FNF C3  T  SECHS C3  T 
 pauschal 20 % C3 , T 
 pauschal 25 % C3 Z T  AG=2%, AN=0% C3 	 T  AG=0%, AN=2% 
 T  & T CCC: 
Z   T C    T	 CCC  % T
 CCC$ d
Z  % T CCC% d
Z   T  C
 C
  T  1.   T C  n T
   Dauer des Dienstverhltnisses = CCC  Z
  Tage von CC " ! 	  366  3656  
 T    T   2.  Z T
 
 * Zeitrume ohne Anspruch auf Arbeitslohn = CCC  Z  Tage   T     %C# 
 T    4 T
 
  Grobuchstaben (E, S, M, F, FR)   T  #     T   3.  J T
 
 5 Bruttoarbeitslohn einschl. Sachbezge ohne 9. und 10.  - T  CCC d
Z     T   4.  3 T
 
  Einbehaltene Lohnsteuer von 3.  - T  CCC d
Z     T   5.  > T
 
 ) Einbehaltener Solidarittszuschlag von 3.  - T  CCC d
Z     T   6.  H T
 
 3 Einbehaltene Kirchensteuer des Arbeitnehmers von 3.  - T  CCC d
Z     T   7.  E T
 
 0 Einbehaltene Kirchensteuer des Ehegatten von 3.   - T  CCC d
Z     T   8.  7 T
 
 " In 3. enthaltene Versorgungsbezge  - T  CCC d
Z     T   9.  T T
 
 ? Ermigt besteuerte Versorgungsbezge fr mehrere Kalenderjahre  - T  CCC	 d
Z     T   10.  M T
 
 8 Ermigt besteuerter Arbeitslohn fr mehre Kalenderjahre  - T  CCC
 d
Z     T   11.  ; T
 
 & Einbehaltene Lohnsteuer von 9. und 10.  - T  CCC d
Z     T   12.  X T
 
 C Einbehaltener Solidarittszuschlag des Arbeitnehmers von 9. und 10.  - T  CCC d
Z     T   13.  P T
 
 ; Einbehaltene Kirchensteuer des Arbeitnehmers von 9. und 10.  - T  CCC
 d
Z     T   14.  L T
 
 7 Einbehaltene Kirchensteuer des Ehegatten von 9. und 10.  - T  CCC d
Z     T   15.  c T
 
 N ATZ-Aufstockung, Zuschuss zum Mutterschaftsgeld u.. mit Progressionsvorbehalt  - T  CCC d
Z     T   16a.  M T
 
 8 Steuerfreier Arbeitslohn nach Doppelbesteuerungsabkommen  - T  CCC d
Z     T   16b.  K T
 
 6 Steuerfreier Arbeitslohn nach Auslandsttigkeitserlass  - T  CCC d
Z     T   17.  T T
 
 ? Steuerfreie Arbeitgeberleistungen fr Fahrten zur Arbeitssttte  - T  CCC d
Z     T   18.  [ T
 
 F Pauschalbesteuerte Arbeitgeberleistungen fr Fahrten zur Arbeitssttte  - T  CCC d
Z     T   19.  R T
 
 = Steuerpflichtige Entschdigungen und Arbeitslohn fr mehrere    T    Y T
 
 D Kalenderjahre, die nicht ermigt besteuert wurden - in 3. enthalten   T    - T  CCC d
Z     T   20.  L T
 
 7 Steuerfreie Verpflegungszuschsse bei Auswrtsttigkeit  - T  CCC d
Z     T   21.  U T
 
 @ Steuerfreie Arbeitgeberleistungen bei doppelter Haushaltsfhrung  - T  CCC d
Z     T   22a.  I T
 
 4 Arbeitgeberanteil zur gesetzlichen Rentenvesicherung  - T  CCC d
Z     T   22b.  S T
 
 > Arbeitgeberanteil an berufsstndische Versorgungseinrichtungen  - T  CCC" d
Z     T   23a.  K T
 
 6 Arbeitnehmeranteil zur gesetzlichen Rentenversicherung  - T  CCC d
Z     T   23b.  T T
 
 ? Arbeitnehmeranteil an berufsstndische Versorgungseinrichtungen  - T  CC        
Z     T   24a.  Z T
 
 E Steuerfreie Arbeitgeberzuschsse zur gesetzlichen Krankenversicherung  - T  CCC d
Z     T   24b.  V T
 
 A Steuerfreie Arbeitgeberzuschsse zur privaten Krankenversicherung  - T  CCC# d
Z     T   24c.  Y T
 
 D Steuerfreie Arbeitgeberzuschsse zur gesetzlichen Pflegeversicherung  - T  CCC& d
Z     T   25.  N T
 
 9 Arbeitnehmerbeitrge zur gesetzlichen Krankenversicherung  - T  CCC d
Z     T   26.  I T
 
 4 Arbeitnehmerbeitrge zur sozialen Pflegeversicherung  - T  CCC d
Z     T   27.  F T
 
 1 Arbeitnehmerbeitrge zur Arbeitslosenversicherung  - T  CCC d
Z     T   28.  R T
 
 = Beitrge zur privaten Kranken- und Pflege-Pflichtversicherung  - T  CCC d
Z     T   29.  L T
 
 7 Bemessungsgrundlage fr den Versorgungsfreibetrag zu 8.  - T  CCC d
Z     T   30.  L T
 
 7 Magebendes Kalenderjahr des Versorgungsbeginns zu 8/9.   %C  `- T  CCC d
Z      T   -       T   31.  d T
 
 O Zu 8. bei unterjhriger Zahlung: Erster und letzter Monat des Versorgungsbezugs   T   -      T   32.  D T
 
 / Sterbegeld, Kapitalauszahlungen/Abfindungen und   T    P T
 
 ; Nachzahlungen von Versorgungsbezgen (in 3 und 8 enthalten)   T    - T  CCC  d
Z     T   33.  , T
 
  Ausgezahltes Kindergeld   %C - T  CC        
Z     5$ %C#  C# - T  CCC! d
Z     1- T  CC        
Z       T   34. %$  = T
 
 ( Arbeitnehmerbeitrag zur Zusatzversorgung   %% & ' 4 T
 
   aus nicht versteuertem Entgelt   . T
 
   aus versteuertem Entgelt    kF T
 
 5 Arbeitnehmeranteil an der Umlage zur Zusatzversorgung - T  CCC' d
Z     T( C W h dummy*  C F)   [ F)  #) %C+ ' b %, a-( ? lst_bescheinigung(!9 ^) ? lst_bescheinigung(!"9   . /  T. 
 V. 3 T0 C MyInWindowFixer preview_fixer.prg
 . T T 
 Druckvorschau T1 a T2  T3  T4 5  T6 7  T8   T9   T: a  C 0 . ;  T/ C ReportListener T/ <  T/ = . , ? lst_bescheinigung9./  </  <.   F)  Q
 F( 3 <          	 
   < 
   U>  1
 STEUERNUMMER ADR1 ADR2 ADR3 ADR4 D_STKL
 D_STKL_FAKTOR	 D_KI_FREI	 D_REL_BEK D_STFR_JAHRESBETRAG
 D_JAHRESHINZU AN_SP1 AN_SP2 AN_SP3 MYINDEXE COMBOLOHNSTEUER MSG WELCHESJAHRC DISTEUERNUMMER WNW ANREDE MYFORM1 Z0 CAPTION ZTEXT5 ZTEXT6 ZI WERT Z51 ZT28	 COMBOZAHL CRLF ISSCHALTJAHR WELCHESJAHR MYGROSSBUCHSTABEN ZVKKAPITALAN WVW ZNR63 TRUE	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK LST_BESCHEINIGUNG LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
     U  LSTRNACHWEISDRUCKEN 7   / 7       	 
    7
    7    7    7    7    7    7   !  7" # $  7% &  J  (   5 J  (       	 
    J  (
    J  (    J  (    J  (    J  (    J  (    J  (   !  J  (" # $  J  (% & 
 T' +
 T( 
 ) ( T* )    %C+ 
4 T  Steuer-Nr. +  J T  = L O H N S T E U E R   -   N A C H W E I S    fr den Monat   
 H C,   T-  J A N U A R C,  T- 
 F E B R U A R C,  T-  M  R Z C, ? T- 	 A P R I L C, f T-  M A I C,  T-  J U N I C,  T-  J U L I C,  T-  A U G U S T C,  T-  S E P T E M B E R C, 	G T- 
 O K T O B E R C, 
x T-  N O V E M B E R C,  T-  D E Z E M B E R  T    -   .  T/ C, ! %C lstrnachweis0   F1  G. S G.   h lstrnachweis2  C#3  C
4  C
5  C
6  C
7  C
8  C
9  C
:  C
;  C
<  C
=  C
  ) (>  C /  )  wvw?  %C.@ A  ; TB a N TB -  %B - C
 )  wnw?  F1   [ >1 2 CC D * %C!@ E 5 C!@ E 6" >1 3 CC        
Z Y2 >1 3 CCC"@ A C@ F 
Z2 T* C* C"@ A C@ F  2 >1 4 CCC$@ A C@ F 
Z2 T* C* C$@ A C@ F + TG C%@ A C@ F * TG CG CC%@ A H 
 H# C@ E   TG CG  TG   TG   T* C* CG  C@ E 	 TG   TG CG  TG   T* C* CG  C@ E 	 TG   TG   TG CG  T* C* CG  C@ E 
 TG CG CG  TG CG  TG   T* C* CG  T* C* CG  C@ E 
 TG CG CG  TG   TG CG  T* C* CG  T* C* CG  C@ E \ TG   TG CG CG  TG CG  T* C* CG  T* C* CG  C@ E  TG   TG   TG   " >1 5 CCCG d
Z" >1 6 CCCG d
Z" >1 7 CCCG d
Z TI C!@ A  >1 8 CCI d
Z T* C* I  TI C@ F  >1 9 CCI d
Z T* C* I  TG C@ A * TG CG CC@ A H 
 H
 C@ E  v
 TG CG  TG   TG   T* 	C	* CG  C@ E 
 TG   TG CG  TG   T* 
C
* CG  C@ E ^ TG   TG   TG CG  T* C* CG  C@ E  TG CG CG  TG CG  TG   T* 	C	* CG  T* 
C
* CG  C@ E  TG CG CG  TG   TG CG  T* 	C	* CG  T* C* CG  C@ E ; TG   TG CG CG  TG CG  T* 
C
* CG  T* C* CG  C@ E  TG   TG   TG   " >1 : CCCG d
Z" >1 ; CCCG d
Z" >1 < CCCG d
Z %C"@ E 
U% >1 = CCC#@ A d
Z" T* C* C#@ A  " >1 = CC        
Z   [  T CCC* d
Z T CCC* d
Z T CCC* d
Z T CCC* d
Z T CCC* d
Z T CCC* d
Z T CCC* d
Z T	 CCC	* d
Z T
 CCC
* d
Z T CCC* d
Z T CCC* d
Z T
 CCC* d
Z T CCC* d
Z( T CCC* C* d
Z  T CCC* 
Z T CC        
Z  T CCC* 
Z( T CCC* C* d
Z# TJ CC* C* dT T CCC* d
Z TK CC* dT0 T CCC* C* C* d
Z+ TL CC* C* C* dT T CCC* d
Z TJ J CC* dT T CCC* d
Z TK K CC* dT( T CCC* C* d
Z' TL L CC* C* dT T CCC* d
Z TJ J CC* dT T CCC	* d
Z TK K CC	* dT( T CCC* C	* d
Z' TL L CC* C	* dT T CCC* d
Z TJ J CC* dT T CCC
* d
Z TK K CC
* dT( T CCC* C
* d
Z' TL L CC* C
* dT T CCC* d
Z TJ J CC* dT T  CCC* d
Z TK K CC* dT( T! CCC* C* d
Z' TL L CC* C* dT T" CCJ 
Z T# CCK 
Z T$ CCL 
Z F1  #) +C+
) %C1 2 !   H  #) %C+," C Keine Daten gefunden!M  <   / <       	 
    <
    <    <    <    <    <    <   !  <" # $  <% &  F1  Q B  %CN O  %P ao ?
 lstrnachweis1(!9+C+
  ?
 lstrnachweis1(!"9+C+
   R S  TR 
 VR 3 TT C MyInWindowFixer preview_fixer.prg
 R  TU 
 Druckvorschau TV a TW  TX  TY Z  T[ \  T]   T^   T_ a  C T R `  TS C ReportListener TS a  TS b R " ?
 lstrnachweis19.S +C+
 <S  <R   <   / <       	 
    <
    <    <    <    <    <    <   !  <" # $  <% &  F1  Q Uc  1 2 SUM_SP1 SUM_SP2 SUM_SP3 SUM_SP4 SUM_SP5 SUM_SP6 SUM_SP7 SUM_SP8 SUM_SP9 SUM_SP10 SUM_SP11 L_SP1 L_SP2 L_SP3 K_SP1 K_SP2 K_SP3 Z_SP1 Z_SP2 Z_SP3 S_SP1 S_SP2 S_SP3 E_SP1 E_SP2 E_SP3 R_SP1 R_SP2 R_SP3 A_SP1 A_SP2 A_SP3 AS_SP1 AS_SP2 AS_SP3 E_SP0 R_SP0 MYINDEXE J I COLON DISTEUERNUMMER ZI MSG WELCHESJAHRC MONATE
 GIVESELECT LSTRNACHWEIS NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11
 SATZANZAHL MYGET WVW TNAM ZUDRUCKSPRINGEN WNW PERSONALFALL ZNAM EFFZ SICH FIX NUMBR ZWI_SP1 ZWI_SP2 ZWI_SP3 HINWEIS DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK
 LSTRNACHWEIS1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER 7    + 7      	 
    7
    7    7    7    7    7    7   !  7" #  J  (    1 J  (      	 
    J  (
    J  (    J  (    J  (    J  (    J  (    J  (   !  J  (" #  $  ( T% $   
 T& ,
 T' 

 H C(  2 T) 	 ev.KiStr. T* 	 ev.KiStr. C( s T) 	 rk.KiStr. T* 	 rk.KiStr. C(  T) 	 ak.KiStr. T* 	 ak.KiStr. C(  T) 	 ev.KiStr. T* 	 rk.KiStr. C( 6 T) 	 ev.KiStr. T* 	 ak.KiStr. C( w T) 	 rk.KiStr. T* 	 ak.KiStr. C(  T) 	 vd.KiStr. T* 	 vd.KiStr.  $ ( T% $    %C+ 
 T  Steuer-Nr. +  
 T, -  T  - L O H N S T E U E R   -   N A C H W E I S    C,   C, \  C, \  C, R	    fr   C. / 0 fe T CC( 
  ohne  mit67  Lohnsteuerjahresausgleich des Arbeitgebers im Dezember T1 C( " %C
 lstrnachweis22  k F3  G. S G.  . h
 lstrnachweis24  C#5  C
6  C
7  C
8  C
9  C
:  C
;  C
<  C
=  C
>  C
  T? C(  $ (* C $  A  wvw@  %C.B C   TD a  TD -  %D -& F3   [
 H $   T,  JANUAR $ % T,  FEBRUAR $ G T,  MRZ $ j T,  APRIL $  T,  MAI $  T,  JUNI $  T,  JULI $  T,  AUGUST $ 	 T, 	 SEPTEMBER $ 
? T,  OKTOBER $ e T,  NOVEMBER $  T,  DEZEMBER  >3 4 , & >3 5 CCCB C d
Z" T% C% CB C * %C!B E 5 C!B E 63	" >3 6 CC        
Z 	2 >3 6 CCC"B C CB F 
Z2 T% C% C"B C CB F  2 >3 7 CCC$B C CB F 
Z2 T% C% C$B C CB F ) TG CC%B C CCB F  TG CG 
 HX
+ CB E   CB E 	
 TG CG  TG   T% C% CG  CB E X TG CG CG  TG CG  T% C% CG  T% C% CG  CB E  TG CG CG  TG CG  T% C% CG  T% C% CG  CB E p TG CG CG  TG CG  T% C% CG  T% C% CG  CB E  TG   TG   TG   " >3 8 CCCG d
Z" >3 9 CCCG d
Z TH C!B C  >3 : CCH d
Z T% C% H  TH CB F  >3 ; CCH d
Z T% C% H  TG CB C * TG CG CCB C I 
 H
Q CCB E  \ TG CG  TG   T% 	C	% CG  CB E  TG CG CG  TG CG  T% 	C	% CG  T% 
C
% CG  CB E t TG CG CG  TG CG  T% 	C	% CG  T% 
C
% CG  CB E   TG CG CG  TG CG  T% 	C	% CG  T% 
C
% CG  CB E Q TG   TG   TG   " >3 < CCCG d
Z" >3 = CCCG d
Z %C"B E 
% >3 > CCC#B C d
Z" T% C% C#B C  "" >3 > CC        
Z    #)
 TJ  
 TK  
 TL  
 TM  
 TN  
 TO  
 TP  
 TQ  
 TR  
 TS   +C+
 TJ J C3 5 g TK K C3 6 g TL L C3 7 g TM M C3 8 g TN N C3 9 g TO O C3 : g TP P C3 ; g TQ Q C3 < g TR R C3 = g TS S C3 > g H  #6
 T J 
 T K 
 T L 
 T M 
 T N 
 T O 
 T	 P 
 T
 Q 
 T R 
 T S  T
 CCC% d
Z
 T
  
 T   T 
    T CCC% 
Z T C g T CC        
Z T C g  T CCC% 
Z T C g T 
   T    T    T CCC% d
Z T C g T CCC% d
Z T C g( T CCC% C% d
Z T C g
 H C(  # T)  + evang. Kirchensteuer C( K' T)  + rm.-kath. Kirchensteuer C( + T)  + altkatholische Kirchensteuer C( # T)  + evang. Kirchensteuer' T*  + rm.-kath. Kirchensteuer C( M# T)  + evang. Kirchensteuer+ T*  + altkatholische Kirchensteuer C( ' T)  + rm.-kath. Kirchensteuer+ T*  + altkatholische Kirchensteuer C(  T)  + Kirchensteuer 2 T)  Keine Zuordnung
 T*    
 H'% C(   C( 	
 T" )  T CCC% d
Z T C g
 T 
  T CC% dT  2
 T  
 T  
 T   
 H% C(  C( 	
 T# *  T CCC% d
Z T C g T CCC
% d
Z
 T  ( T CCC% C
% d
Z T CC% dT  2
 T  
 T  
 T   K T% CC% 8CC% 8CC% 8CC% 8CC% 8CC% 8A T% CC% 8CC% 8CC	% 8CC
% 8CC% 8 T      T       T!      F3  #) +C+
 %C3 4    H  #) %C+" C Keine Daten gefunden!T  <    + <      	 
    <
    <    <    <    <    <    <   !  <" #  F3  Q  %CU V d %W a9 ?
 lstrnachweis2(!9+C+
 ` ?
 lstrnachweis2(!"9+C+
   X Y  TX 
 VX 3 TZ C MyInWindowFixer preview_fixer.prg
 X V T0 
 Druckvorschau T[ a T\  T]  T^ _  T` a  Tb   Tc   Td a  C Z X e  TY C ReportListener TY f  TY g X " ?
 lstrnachweis29.Y +C+
 <Y  <X   <    + <      	 
    <
    <    <    <    <    <    <   !  <" #  F3  Q Uh  1 2 3 SUM_SP1 SUM_SP2 SUM_SP3 SUM_SP4 SUM_SP5 SUM_SP6 SUM_SP7 SUM_SP8 SUM_SP9 SUM_SP10 L_SP1 L_SP2 L_SP3 K_SP1 K_SP2 K_SP3 Z_SP1 Z_SP2 Z_SP3 S_SP1 S_SP2 S_SP3 E_SP1 E_SP2 E_SP3 R_SP1 R_SP2 R_SP3 AS_SP1 AS_SP2 AS_SP3 E_SP0 R_SP0 I COLON MYINDEXE J ZI MSG1 MSG2 DISTEUERNUMMER MSG WELCHESJAHRC MYFORM1 Z0 CAPTION MONATE
 GIVESELECT
 LSTRNACHWEIS2 NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 OP1 MYGET FILENEU WVW TNAM ZUDRUCKSPRINGEN ZNAM EFFZ SICH NUMBR FIX SUM_ZWI_SP1 SUM_ZWI_SP2 SUM_ZWI_SP3 SUM_ZWI_SP4 SUM_ZWI_SP5 SUM_ZWI_SP6 SUM_ZWI_SP7 SUM_ZWI_SP8 SUM_ZWI_SP9 SUM_ZWI_SP10 HINWEIS DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER*1 7    
 T    
 T   
 T  ' 7     	 
   - J  (     	 
   # 7
        ) J  (
        # 7        ) J  (        # 7     ! " # $ ) J  (     ! " # $ # 7% & ' ( ) * + , ) J  (% & ' ( ) * + , # 7- . / 0 1 2 3 4 ) J  (- . / 0 1 2 3 4 # 75 6 7 8 9 : ; < ) J  (5 6 7 8 9 : ; < # 7= > ? @ A B C D ) J  (= > ? @ A B C D # 7E F G H I J K L ) J  (E F G H I J K L # 7M N O P Q R S T ) J  (M N O P Q R S T # 7U V W X Y Z [ \ ) J  (U V W X Y Z [ \ # 7] ^ _ ` a b c d ) J  (] ^ _ ` a b c d # 7e f g h i j k l ) J  (e f g h i j k l # 7m n o p q r s t ) J  (m n o p q r s t  Tu   %v 
 Tu <  Tu \D 
 Tw x 
 Tx w  y  C
 w  wnwz  T{ CCv  Z`C T{ C{   C{ \  C{ \  C{ R5 T  $ A R B E I T G E B E R A U F W A N D {  %| } , T        (Monate einzeln) in EURO ) T        (akkumuliert) in EURO  T  fr CC~  f
 H3+ C    C  		u T 
 Bes.Gruppe+ C  
 C  	 T  Entg.Gruppe  T      (7 T CC  Z8 an1_sp&xxx = an1_sp&xxx + Alltrim(Bgruppe(i)) + crlf
  Tm m  
 HY+ C    C  		 T  DA-Stufe+ C  
 C  	 T  Entgeltstufe  T      ([ T CC  Z7 an1_sp&xxx = an1_sp&xxx + Alltrim(BStufe(i)) + crlf
  Tm m  
 H}	+ C    C  		 T  Fam.Z.Stufe+ C  
 C  		# T  Besitzstand fr Kinder  T      (	 T CC  Z4 an1_sp&xxx = an1_sp&xxx + Alltrim(BOZ(i)) + crlf
  Tm m   T  Arbeitsstunden T      (2
 T CC  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BVoll(i)) + crlf
  Tm m   T  Tage T      (
 T CC  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BTage(i)) + crlf
  Tm m   T  Kostenstelle T      (x T CC  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BKost(i)) + crlf
  Tm m    (~! %C u  
z % % T  CC      % 5% T  CC      % 	o% T  CC      % 
% T  CC      % i
$ %C 
 C 
	%
C T CC `CC= d ##0.00   CCC  ` P
# T CC `CC    T      % 
% T  CC      % 

% T  CC      % % T  CC      % Q% T  CC      % % T  CC      % % T  CC      % % T  CC      % 9% T  CC      % ( T   B R U T T O G E H A L T  (
 T CC  ZI an2_s_sp&xxx = an2_s_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ j - 7),10,2))	
  v  (
r T CC  ZK an2_sp&xxx = an2_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ j - 7),10,2)) + crlf
      ( % q %C(u  m1 T         davon Leistungsentgelt   (
i T CC  ZH an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 39),10,2)) + crlf
    % 53 T         monatl. Steuerfreibetrag   (
1 T CC  ZJ an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 14),10,2)) + crlf		
   % 
' T         Steuerklasse   (
 T CC  Z8 an3_sp&xxx = an3_sp&xxx + ALLTRIM(BEhe(i)) + crlf			
   % 4 T         Steuerpflichtiges Entgelt   (
 T CC  ZL an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 17),10,2)) + crlf				
   % e1 T         KV-pflichtiges Entgelt   (
a T CC  ZK an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 18),10,2)) + crlf			
   % 1 T         RV-pflichtiges Entgelt   (
 T CC  ZI an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 19),10,2)) + crlf	
 % 

' %C u dCu 
3 %C u  C u \D
	 Tu       % {2 T         ZVK-pflichtiges Entgelt   (
w T CC  ZL an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 16),10,2)) + crlf				
   % 4' T         Krankenkasse   ( T CC  Z: an3_sp&xxx = an3_sp&xxx + ALLTRIM(BKasse(i)) + crlf			
  To o    % * T         KV-Beitragssatz   ( T CC  ZK an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(BBeitragsatz(i),10,2)) + crlf				
  To o      ('*# %  Cu  	 %v GK %	 gleitzoneCCC5  @  
 bergangsbCCC5  @( %	 gleitzoneCCC5  @! T   KV-Gleitzone  # T   KV-bergangsb.   C# T  CCC5     p! T  CC5      (
 T CC  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 20),10,2)) + crlf		
  # %  Cu  	! T  CC'     (
 T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 21),10,2)) + crlf			
  # %  Cu  	z! T  CC(     (
v T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 22),10,2)) + crlf			
  # %  Cu  	@! T  CC)     (
< T CC  ZL an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 23),10,2)) + crlf				
  # %  Cu  	B
 Ht C  > T  Versorgungsumlage CCC  d
Z  % C @ T  Versorgungsrcklage CCC  d
Z  % C q@ T  Versorgungsaufwand  CCC  d
Z  % C * T  Versorgungsaufwand lt Eingabe C ^ %C 
$J T  Vers.Aufw.=Juli(Endst.+FZ+StZ)*CCC  d
Z % Z. T ! Anderweitig mit Versorgungszusage  C ; T  ATV-AG-Umlageanteil (CC  
Z  %)  T      (
> T CC  ZI an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 24),10,2)) + crlf	
  # %  C"u  	+ E T   ATV-AG-Kapitalbeitrag (CC  
Z  %)   (
'  T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 33),10,2)) + crlf			
  # %  Cu  	!5 T    Lohnst.+Sol.Z. fr ATV-AG-Anteil   (
 ! T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 25),10,2)) + crlf			
  # %  Cu  	!4 T   Kirchensteuer fr ATV-AG-Anteil   (
! T CC  ZL an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 26),10,2)) + crlf				
  # %  C u  	"B T   AG-Sanierungszuschu ATV CC 
Z  %   (
" T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 31),10,2)) + crlf			
  # %  Cu  	#$ T   ATZ-Aufstockung   (
# T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 27),10,2)) + crlf			
  # %  C!u  	^$/ T   Vom AG bernommene Steuern   (
Z$ T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 32),10,2)) + crlf			
  # %   C%u  	$%( T   N E B E N K O S T E N :  (
 % T CC  ZE an5_sp&xxx = an5_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 36),10,2))				
  # % ! Cu  	%1 T	 	  Sonst. Zahlungen Zeile 25-26   (
% T CC  ZL an6_sp&xxx = an6_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 28),10,2)) + crlf				
  # % " Cu  	&1 T	 	  Sonst. Zahlungen Zeile 44-46   (
& T CC  ZK an6_sp&xxx = an6_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 29),10,2)) + crlf			
  # % # C#u  	'. T	 	  U1 fr Entgeltfortzahlung   (
' T CC  ZM an6_sp&xxx = an6_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 34),10,2)) + crlf					
  # % $ C$u  	p(( T	 	  U2 fr Mutterschutz   (
l( T CC  ZL an6_sp&xxx = an6_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 35),10,2)) + crlf				
  # % % C)u  	W)C T	 	  U3 fr Insolvenzgeld CC 
Z  %   (
S) T CC  ZK an6_sp&xxx = an6_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 40),10,2)) + crlf			
   % &	*( T
 
  G E S A M T K O S T E N  (
* T CC  ZC an7_sp&xxx = an7_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 37),10,2)) 	
   % '*B T   AG KV-Zusatzbeitrag /2 (CC 
Z  %)   (
* T CC  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 41),10,2)) + crlf			
    %Cu ,Q T < Die Berechnung dient der Information und ergeht ohne Gewhr.   T  ^ Gegebenenfalls ergnzt der Beschftigte den monatlichen RV-Beitrag bis zum vollem Beitrag aus CCCu d
Z9  Euro  (Mindestbeitragsbemessungsgrundlage bei Minijobs).   T C  +a, %CC > , T C $  %  , T   
 T    , T  C  \ T C  \  , !  .  T C W h dummy  C F   [ F  #) %C } - % am-  ?	 ag_sicht1(!9 -! ?	 ag_sicht1(!"9  /    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  . T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T   $ ?	 ag_sicht19.  <  <   F  Q
 F  <    ' <     	 
   # <
        # <        # <     ! " # $ # <% & ' ( ) * + , # <- . / 0 1 2 3 4 # <5 6 7 8 9 : ; < # <= > ? @ A B C D # <E F G H I J K L # <M N O P Q R S T # <U V W X Y Z [ \ # <] ^ _ ` a b c d # <e f g h i j k l # <m n o p q r s t  U  1 2 2_JAHR WELCHESJAHRC AN1_TEXT AN2_TEXT AN3_TEXT AN4_TEXT AN5_TEXT AN6_TEXT AN7_TEXT AN8_TEXT
 AN2_S_TEXT AN1_SP1 AN2_SP1 AN3_SP1 AN4_SP1 AN5_SP1	 AN2_S_SP1 AN6_SP1 AN7_SP1 AN1_SP2 AN2_SP2 AN3_SP2 AN4_SP2 AN5_SP2	 AN2_S_SP2 AN6_SP2 AN7_SP2 AN1_SP3 AN2_SP3 AN3_SP3 AN4_SP3 AN5_SP3	 AN2_S_SP3 AN6_SP3 AN7_SP3 AN1_SP4 AN2_SP4 AN3_SP4 AN4_SP4 AN5_SP4	 AN2_S_SP4 AN6_SP4 AN7_SP4 AN1_SP5 AN2_SP5 AN3_SP5 AN4_SP5 AN5_SP5	 AN2_S_SP5 AN6_SP5 AN7_SP5 AN1_SP6 AN2_SP6 AN3_SP6 AN4_SP6 AN5_SP6	 AN2_S_SP6 AN6_SP6 AN7_SP6 AN1_SP7 AN2_SP7 AN3_SP7 AN4_SP7 AN5_SP7	 AN2_S_SP7 AN6_SP7 AN7_SP7 AN1_SP8 AN2_SP8 AN3_SP8 AN4_SP8 AN5_SP8	 AN2_S_SP8 AN6_SP8 AN7_SP8 AN1_SP9 AN2_SP9 AN3_SP9 AN4_SP9 AN5_SP9	 AN2_S_SP9 AN6_SP9 AN7_SP9 AN1_SP10 AN2_SP10 AN3_SP10 AN4_SP10 AN5_SP10
 AN2_S_SP10 AN6_SP10 AN7_SP10 AN1_SP11 AN2_SP11 AN3_SP11 AN4_SP11 AN5_SP11
 AN2_S_SP11 AN6_SP11 AN7_SP11 AN1_SP12 AN2_SP12 AN3_SP12 AN4_SP12 AN5_SP12
 AN2_S_SP12 AN6_SP12 AN7_SP12 AN1_SP13 AN2_SP13 AN3_SP13 AN4_SP13 AN5_SP13
 AN2_S_SP13 AN6_SP13 AN7_SP13 SICHT WELCHESJAHR
 NAMENSFILE FILENEU JAHRESBERSICHT2 MYGET MSG1 DBB TRUE WNW PERSONALFALL WVW ZNAM MSG CRLF I XXX J ZT7 ZI ZT8 ZT9 ZT10 VORSPANN MYFORMAT WERT ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 ZT52 ZT38 ZT39 ZT40 TNAM	 ZVKUMLAGE ZVKHALB
 ZVKKAPITAL ZVKKAPITALAN	 SANIERUNG
 INSOLVENZGELD ZUSATZKV	 DRUCKTEXT DITEXT7	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK	 AG_SICHT1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER 7    
 T    
 T   
 T    7      ! J  (       7	 
   
   % J  (	 
   
    7       % J  (        7       % J  (        7    ! " # $ % J  (    ! " # $  7% & ' ( ) * + % J  (% & ' ( ) * +  7, - . / 0 1 2 % J  (, - . / 0 1 2  73 4 5 6 7 8 9 % J  (3 4 5 6 7 8 9  7: ; < = > ? @ % J  (: ; < = > ? @  7A B C D E F G % J  (A B C D E F G  7H I J K L M N % J  (H I J K L M N  TO C
 C
  TP Q a! T  CCP S T R . T  1. Monatsgehlter des Jahres U # %P V W  akkumulieren* T    (Monate einzeln) in EURO . T    (Monate akkumuliert) in EURO - T   O   O   O   O   f T	  GrundgehaltO  OrtszuschlagO  Allg-ST.Zul.O  Verm.wirks.LO 
 Leist.Zul.E T  +O  sonstigeO  laufendeO  ZulagenO   H T  +O  berstd.O 	 EinmaligeO 	 ZahlungenO   ; T  =O  Brutto-O  gehaltO   O   W T%  -O 
 LohnsteuerO 
 Solidaritts-O  zuschlagO 
 Ki.-SteuerN T,  -O  Sozial-O 	 versich.-O  und ATV-O  beitrgeB T3  +O 
 ATZ Aufst.O 
 KindergeldO   O   F T:  +/-O  AuszahlungenO 
 EinbehalteO   O   D TA  =O  N E T T O -O  G E H A L TO   O   8 TH  +O 
 SachbezgeO   O   O    X (	 #X 
 HD X  X 	 Y  (
  TZ CY /< T[  an2CY    _text  _spCCY  Z6: &varname = &varname + alltrim(ansicht2.&hsfeld) + crlf
  X 
 . X  Y  (
 TZ CY /< T[  an3CY    _text  _spCCY  Z6: &varname = &varname + alltrim(ansicht2.&hsfeld) + crlf
   ' T  2. Arbeitgeberaufwand U # %P V W  akkumulierenJ	* T    (Monate einzeln) in EURO 	. T    (Monate akkumuliert) in EURO  X (H
	 #X  Y  (
D
 TZ CY /< T[  an4CY    _text  _spCCY  Z6: &varname = &varname + alltrim(ansicht2.&hsfeld) + crlf
   X (#	 #X 
 Hy
 X  X !	9 Y  (
5 TZ CY /< T[  an5CY    _text  _spCCY  Z6: &varname = &varname + alltrim(ansicht2.&hsfeld) + crlf
  X "N . X # Y  (
 TZ CY /< T[  an6CY    _text  _spCCY  Z6: &varname = &varname + alltrim(ansicht2.&hsfeld) + crlf
    %C\ ] y %^ aL  ?	 ag_sicht2(!9 u! ?	 ag_sicht2(!"9  M ` a  T` 
 V` 3 Tb C MyInWindowFixer preview_fixer.prg
 ` k
 TW 
 Druckvorschau Tc a Td  Te  Tf g  Th i  Tj   Tk   Tl a  C b ` m  Ta C ReportListener Ta n  Ta o `  Tp C W h dummyr  C Fq   [ Fq  #)$ ?	 ag_sicht29.a  <a  <`  Fq  Q
 Fp   <     <       <	 
   
    <        <        <    ! " # $  <% & ' ( ) * +  <, - . / 0 1 2  <3 4 5 6 7 8 9  <: ; < = > ? @  <A B C D E F G  <s I J K L M N  Ut  1 2 3 AN1_TEXT AN2_TEXT AN3_TEXT AN4_TEXT AN5_TEXT AN6_TEXT AN1_SP1 AN2_SP1 AN3_SP1 AN4_SP1 AN5_SP1	 AN2_S_SP1 AN6_SP1 AN1_SP2 AN2_SP2 AN3_SP2 AN4_SP2 AN5_SP2	 AN2_S_SP2 AN6_SP2 AN1_SP3 AN2_SP3 AN3_SP3 AN4_SP3 AN5_SP3	 AN2_S_SP3 AN6_SP3 AN1_SP4 AN2_SP4 AN3_SP4 AN4_SP4 AN5_SP4	 AN2_S_SP4 AN6_SP4 AN1_SP5 AN2_SP5 AN3_SP5 AN4_SP5 AN5_SP5	 AN2_S_SP5 AN6_SP5 AN1_SP6 AN2_SP6 AN3_SP6 AN4_SP6 AN5_SP6	 AN2_S_SP6 AN6_SP6 AN1_SP7 AN2_SP7 AN3_SP7 AN4_SP7 AN5_SP7	 AN2_S_SP7 AN6_SP7 AN1_SP8 AN2_SP8 AN3_SP8 AN4_SP8 AN5_SP8	 AN2_S_SP8 AN6_SP8 AN1_SP9 AN2_SP9 AN3_SP9 AN4_SP9 AN5_SP9	 AN2_S_SP9 AN6_SP9 AN1_SP10 AN2_SP10 AN3_SP10 AN4_SP10 AN5_SP10
 AN2_S_SP10 AN6_SP10 CRLF MYFORM3
 LOCKSCREEN ZT0 HSCROLL1 VALUE WELCHESJAHRC
 SSCOMMAND4 CAPTION I HSA HSFELD VARNAME DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK	 AG_SICHT2 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER	 OLDSELECT DUMMY FELD	 AN1_SP910) 7  
 T     7 
 T   7      	 % J  (      	  7
   
   ! J  (
   
    7      ! J  (       7      ! J  (       7      ! ! J  (      !  7" # $ % & ' ! J  (" # $ % & '  7( ) * + , - ! J  (( ) * + , -  7. / 0 1 2 3 ! J  (. / 0 1 2 3  74 5 6 7 8 9 ! J  (4 5 6 7 8 9  7: ; < = > ? ! J  (: ; < = > ?  7@ A B C D E ! J  (F A B C D E  7G H I J K L ! J  (G H I J K L  7M N O P Q R ! J  (M N O P Q R  7S T U V W X ! J  (S T U V W X  TY   %Z 
 TY <  TY \D 
 T[ \ 
 T\ [  ]  C
 [  wnw^  T_ CCZ  ZC T_ C_   C_ \  C_ \  C_ R0 T  CC` a f  - Monatsgehlter   _  %b c , T        (Monate einzeln) in EURO ) T        (akkumuliert) in EURO 
 H$+ Cd e   Cd e 		f Tf 
 Bes.Gruppe+ Cd e 
 Cd e 	 Tf  Entg.Gruppe  T  f g  h (( Ti CCh  Z8 an1_sp&xxx = an1_sp&xxx + Alltrim(Bgruppe(i)) + crlf
  TS S g 
 HJ+ Cd e   Cd e 		 Tf  DA-Stufe+ Cd e 
 Cd e 	 Tf  Entgeltstufe  T  f g  h (L Ti CCh  Z7 an1_sp&xxx = an1_sp&xxx + Alltrim(BStufe(i)) + crlf
  TS S g 
 Hn+ Cd e   Cd e 		 Tf  Fam.Z.Stufe+ Cd e 
 Cd e 	# Tf  Besitzstand fr Kinder  T  f g  h (z Ti CCh  Z4 an1_sp&xxx = an1_sp&xxx + Alltrim(BOZ(i)) + crlf
  TS S g  Tf  Arbeitsstunden T  f g  h (#	 Ti CCh  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BVoll(i)) + crlf
  TS S g  Tf  Tage T  f g  h (	 Ti CCh  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BTage(i)) + crlf
  TS S g  Tf  Kostenstelle T  f g  h (i
 Ti CCh  Z6 an1_sp&xxx = an1_sp&xxx + Alltrim(BKost(i)) + crlf
  TS S g  j (o! %Cj Y  
k %j 
% T  CCj l k g   %j &% T  CCj l m g   %j 	`% T  CCj l n g   %j 
% T  CCj l o g   %j Z$ %Cl 
 Cl 
	C Tf CCp `CC=r d ##0.00q   CCCl s ` A# Tf CCp `CCl s   T  f g   %j % T  CCj l t g   %j 
% T  CCj l u g   %j 
% T  CCj l v g   %j B
% T  CCj l w g   %j |
% T  CCj l x g   %j 
% T  CCj l y g   %j 
% T  CCj l z g   %j *% T  CCj l { g   %j ( T	 	  B R U T T O G E H A L T h (
 Ti CCh  ZI an2_s_sp&xxx = an2_s_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ j - 7),10,2))	
  g h (
c Ti CCh  ZK an2_sp&xxx = an2_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ j - 7),10,2)) + crlf
     j ( %j b %C(Y  ^1 T         davon Leistungsentgeltg  h (
Z Ti CCh  ZH an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 39),10,2)) + crlf
    %j &3 T         monatl. Steuerfreibetragg  h (
" Ti CCh  ZJ an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 14),10,2)) + crlf		
   %j 
' T         Steuerklasseg  h (
 Ti CCh  Z8 an3_sp&xxx = an3_sp&xxx + ALLTRIM(BEhe(i)) + crlf			
   %j 4 T         Steuerpflichtiges Entgeltg  h (
 Ti CCh  ZL an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 17),10,2)) + crlf				
   %j V1 T         KV-pflichtiges Entgeltg  h (
R Ti CCh  ZK an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 18),10,2)) + crlf			
   %j 1 T         RV-pflichtiges Entgeltg  h (
 Ti CCh  ZI an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 19),10,2)) + crlf	
 %h 

' %Ch Y dCY 
3 %Ch Y  Ch Y \D
	 TY       %j l2 T         ZVK-pflichtiges Entgeltg  h (
h Ti CCh  ZL an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 16),10,2)) + crlf				
   %j %' T         Krankenkasseg  h ( Ti CCh  Z: an3_sp&xxx = an3_sp&xxx + ALLTRIM(BKasse(i)) + crlf			
  TU U g   %j * T         KV-Beitragssatzg  h ( Ti CCh  ZK an3_sp&xxx = an3_sp&xxx + ALLTRIM(STR(BBeitragsatz(i),10,2)) + crlf				
  TU U g    %CY  ! T  CC"l | g  h (
 Ti CCh  ZK an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 20),10,2)) + crlf			
   %CY  i! T  CC$l } g  h (
e Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 21),10,2)) + crlf		
   %CY   ! T  CC%l ~ g  h (
 Ti CCh  ZH an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 22),10,2)) + crlf
   %C)Y  ) T   Pauschale Lohnsteuerg  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 40),10,2)) + crlf		
   %C*Y  ) T   Pauschale Lohnsteuerg  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 41),10,2)) + crlf		
   %C+Y  f, T   Pauschale Kirchensteuerg  h (
b Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 42),10,2)) + crlf		
   %CY  ! T  CC5l  g  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 23),10,2)) + crlf		
   %C"Y   T  CCCl   h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 33),10,2)) + crlf		
   %CY  ! T  CC'l  g  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 24),10,2)) + crlf		
   %C#Y  S, T   PV-Zusatzbeitrag 0,25 %g  h (
O Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 34),10,2)) + crlf		
   %CY  ! T  CC(l  g  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 25),10,2)) + crlf		
   %CY  ! T  CC)l  g  h (
 Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 26),10,2)) + crlf		
   %CY  x  T     g  h (
t  Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 27),10,2)) + crlf		
   %CY  1!! T  CC#l  g  h (
-! Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 28),10,2)) + crlf		
   %CY  !! T  CC+l  g  h (
! Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 29),10,2)) + crlf		
   %CY  "! T  CC,l  g  h (
" Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 30),10,2)) + crlf		
   %C Y  \#! T  CC-l  g  h (
X# Ti CCh  ZJ an4_sp&xxx = an4_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 31),10,2)) + crlf		
  $ T   A U S Z A H L U N G h (
# Ti CCh  ZC an5_sp&xxx = an5_sp&xxx + ALLTRIM(STR(sicht(1+i,1+ 32),10,2))		
  %CY +%Q T < Die Berechnung dient der Information und ergeht ohne Gewhr.g g  T  ^ Gegebenenfalls ergnzt der Beschftigte den monatlichen RV-Beitrag bis zum vollem Beitrag aus CCCY d
Z9  Euro  (Mindestbeitragsbemessungsgrundlage bei Minijobs).g   T C  +a% %CC > % Th C $  %h  % T   
 T    % T  C h \ T C h \  % !  .  %C c f& % a9&  ?	 an_sicht1(!9 b&! ?	 an_sicht1(!"9  :(    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  X' T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T    T C W h dummy  C F   [ F  #)$ ?	 an_sicht19.  <  <  F  Q
 F   <   <      	  <
   
    <       <       <      !  <" # $ % & '  <( ) * + , -  <. / 0 1 2 3  <4 5 6 7 8 9  <: ; < = > ?  <@ A B C D E  <G H I J K L  <M N O P Q R  <S T U V W X  U  1 2_JAHR WELCHESJAHRC AN1_TEXT AN2_TEXT AN3_TEXT AN4_TEXT AN5_TEXT AN6_TEXT
 AN2_S_TEXT AN1_SP1 AN2_SP1 AN3_SP1 AN4_SP1 AN5_SP1	 AN2_S_SP1 AN1_SP2 AN2_SP2 AN3_SP2 AN4_SP2 AN5_SP2	 AN2_S_SP2 AN1_SP3 AN2_SP3 AN3_SP3 AN4_SP3 AN5_SP3	 AN2_S_SP3 AN1_SP4 AN2_SP4 AN3_SP4 AN4_SP4 AN5_SP4	 AN2_S_SP4 AN1_SP5 AN2_SP5 AN3_SP5 AN4_SP5 AN5_SP5	 AN2_S_SP5 AN1_SP6 AN2_SP6 AN3_SP6 AN4_SP6 AN5_SP6	 AN2_S_SP6 AN1_SP7 AN2_SP7 AN3_SP7 AN4_SP7 AN5_SP7	 AN2_S_SP7 AN1_SP8 AN2_SP8 AN3_SP8 AN4_SP8 AN5_SP8	 AN2_S_SP8 AN1_SP9 AN2_SP9 AN3_SP9 AN4_SP9 AN5_SP9	 AN2_S_SP9	 AN1_SP910 AN2_SP10 AN3_SP10 AN4_SP10 AN5_SP10
 AN2_S_SP10 AN1_SP10 AN1_SP11 AN2_SP11 AN3_SP11 AN4_SP11 AN5_SP11
 AN2_S_SP11 AN1_SP12 AN2_SP12 AN3_SP12 AN4_SP12 AN5_SP12
 AN2_S_SP12 AN1_SP13 AN2_SP13 AN3_SP13 AN4_SP13 AN5_SP13
 AN2_S_SP13 SICHT WELCHESJAHR
 NAMENSFILE FILENEU JAHRESBERSICHT1 MYGET MSG1 WNW PERSONALFALL DBB TRUE WVW ZNAM MSG CRLF I XXX J ZT7 ZI ZT8 ZT9 ZT10 VORSPANN MYFORMAT WERT ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 ZT33 ZT35 ZT36 ZT52 ZT26 ZT38 ZT39 ZT40 MYFORM1 Z41 CAPTION ZT34 ZT42 ZT43 ZT44	 DRUCKTEXT DITEXT7 DIREKTZUMDRUCKERQ
 HSSERIENDRUCK	 AN_SICHT1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER	 OLDSELECT DUMMY FELD  %   m C@ Diese Funktion steht nur fr die einzelnen Monate zur Verfgung.  Nicht fr das Jahresgehalt.x B    U  INDEXM ANLAGEi
 T     (   T CC  ZB If myStufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)   
 T    = If myStufenlaufzeit.neu&xxx..BackColor = QBColor(14)  
 T     7    	  J  (    	  7
 
 T
    7 
 T    % 
   3 T   Demnach wurde erreichtC
 C
  T  C
 C
  T  C
 C
  7   ; T  Berechnung fr den Monat CC     % T  im CC      %C    Nw T L Der Wert der Stufenbewegung beluft sich bis zum Erreichen der Endstufe auf CC   
Z  Euro. 0o T L Der Wert der Stufenbewegung beluft sich bis zum Erreichen der Endstufe auf C     Euro.   (   T CC  Z %  
Cy sp1 = sp1 + "Stufe " + hsrrr + "  (Laufzeit " + mystufenlaufzeit.Normal&hsrrr..Caption + " Monate)" + CHR(13)+CHR(10)
W sp2 = sp2 + "am  " + mystufenlaufzeit.neu&hsrrr..Caption + "  mit"+ CHR(13)+CHR(10)
 7 T   Stufe     (Endstufe)C
 C
 W sp2 = sp2 + "am  " + mystufenlaufzeit.neu&hsrrr..Caption + "  mit"+ CHR(13)+CHR(10)
 ; T  CC  d ###0.00 C
 C
   T  C
 C
  T  C
 C
  T  C
 C
  %   : T   Voraussichtlich wird erreichtC
 C
  T  C
 C
  T  C
 C
     (  T CC  Z %  
y sp1 = sp1 + "Stufe " + hsrrr + "  (Laufzeit " + mystufenlaufzeit.Normal&hsrrr..Caption + " Monate)" + CHR(13)+CHR(10)
W sp2 = sp2 + "am  " + mystufenlaufzeit.neu&hsrrr..Caption + "  mit"+ CHR(13)+CHR(10)
 7 T   Stufe     (Endstufe)C
 C
 W sp2 = sp2 + "am  " + mystufenlaufzeit.neu&hsrrr..Caption + "  mit"+ CHR(13)+CHR(10)
 ; T  CC  d ###0.00 C
 C
    5 T
 ( In der folgenden Darstellung wurde eine  % 
   F T
 
 
 Verlngerung  j T
 
  Verkrzung  j T
 
 
 der Stufe C   Z  um CC 
   Z  Monate bercksichtigt.C
 C
 h T
 
 K Dadurch hat sich der Beginn aller Stufen fiktiv mit Wirkung fr die ZukunftC
 C
 9 T
 
  um CC 
   Z
  Monate nach  % 
   	" T
 
  spter verlagert. 	" T
 
  frher verlagert.   (  T CC  Z' T  CC  ZC
 C
  %  k
% T   EndstufeC
 C
  
H sp2 = sp2 + mystufenlaufzeit.Normal&hsrrr..Caption + CHR(13)+CHR(10)
  %   
 
 I sp3 = sp3 + mystufenlaufzeit.datumab&hsrrr..caption + CHR(13)+CHR(10)
 %  6 > E sp4 = sp4 + mystufenlaufzeit.neu&hsrrr..caption + CHR(13)+CHR(10)
; T	 	 CC  d ###0.00 C
 C
   
 T   
 Hg C  
 H C  5 T 
  31 LBesG BW C f T  Art. 30 BayBesG C - T    1 BesG Berlin i.v.m  27 BBesG C  T 
  27 BBesG C 
* T   1 BbgBesG i.V.m.  27 BBesG C V
. T !  1 BesG Bremen i.V.m.  27 BBesG C 
 T 
  27 HambBesG C 
( T   1 HBesG i.V.m.  27 BBesG C 
 T   21 LBesG M-V C 	/( T   1 NBesG i.V.m.  27 BBesG C 
p, T   1 LBesG NRW i.V.M.  27 BBesG C  T   2c LBesG Rhl.Pf. C ( T   1 SBesG i.V.m.  27 BBesG C 
#- T    17 SchsBesG i.V.m.  27 BBesG C S T   23 LbesG LSA C  T   28 SHBesG C  T 
  24 ThrBesG  CC 

 T 	  16 TVD CC  T 	  16 TV-L C g; T . TVD Bes.Teil Verwaltung Abschn. VKA VIII  56  T C W h dummy  C F   [ F  #) % 
   % ?
 EDZ_Bescheid1(!"9 % ?
 EDZ_Bescheid2(!"9  F  Q
 F # <    	     <
  <  U  OP1 I Z9 XXX OP2 SP1 SP2 SP3 SP4 SP5 MYTEXT1 MYRECHTSGRUNDLAGETEXT MYSTUFENLAUFZEIT MONATE VALUE MYMONATSZEILE1 MYMONATSZEILE2 MYSTUFENWERT GETMONATSNAMESHORT ZI WELCHESJAHRC LEISTUNG HSRRR MYFORMAT GRUNDBETRAG STUFENLAUFZEIT	 OLDSELECT DUMMY FELD
 EDZ_BESCHEID1
 EDZ_BESCHEID2< 4   T C
 C
 
 T   
 T   
 T   
 T   
 T   
 T   
 T   
 T	   
 T
   
 T   T /  T
 @ % 
, %C 
 T    %C  - T   m i t    P T  
 o h n e    < T  + Lohnsteuer-Jahresausgleich des Arbeitgebers 
 HG C  % T ?C C  C % T ?C C  C G T ?C   %C7  
# T    fr mehrere J.  # T  CCC"    T   aus ' T  CCC d
Z 0 T  CCC" C d
Z ' T /C/ C" C  %C7  
# T  CCC7 
Z # T /C/ C7 d  T     T  C    0 T  CCC$ C d
Z ' T /C/ C$ C  %C7  
# T  CCC8 
Z # T /C/ C8 d  T     T    T    T  C    0 T  CCC% C d
Z ' T /C/ C% C  %C7  
# T  CCC9 
Z # T /C/ C9 d  T     T    T    %C  
) T   Pauschale Lohnsteuer ' T  CCC d
Z  T /C/ C  T    T    T   - T   Pauschaler Soli-Zuschlag ' T  CCC d
Z  T /C/ C  T    T    T   , T   Pauschale Kirchensteuer ' T  CCC d
Z  T /C/ C  T    T    T     %C  

 H	C	 C5 
 %    d/ T  C      C      T  C      C5 	 %    / T  C      C     
	 T  C      C5 C	 T  C      T   aus  G
( % " T      @@ T 
 H	  	 T Gz@@ T   T! QI&?  @
 T GzЀ@ T   T! cZB>?  
 T Gz`@ T  , T! mV}b?  
 T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?   T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		 ) T"     # d  d  T" CB  # T  CC" d
Z ' T  CCC& d
Z  T /C/ C&  T     %C$  HH T   Zusatzbeitrag zur Krankenvers. CC% Z  %  T   aus  G
( %  T      @@ T 
 H]
  
 T Gz@@ T   T! QI&?  
 T GzЀ@ T   T! cZB>?  ; T Gz`@ T  , T! mV}b?   T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?  6 T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		) T"     # d  d  T" C  # T  CC" d
Z ' T  CCC$ d
Z  T /C/ C$  T     %C  
2
 T&    %' (  : T&   -  PV Ki. CC' (       ?Z % ! T  C )  &   T   aus  G
( %  T      @@ T 
 HG   T Gz@@ T   T! QI&?   T GzЀ@ T   T! cZB>?  % T Gz`@ T  , T! mV}b?  o T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?    T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		) T"     # d  d  T" CB  # T  CC" d
Z ' T  CCC' d
Z  T /C/ C'  T     %C$  $ %C5  C 	5 T  
 Zusatzb. PV. CC* Z %  T   aus  G
( %  T      @@ T 
 H	{  S T Gz@@ T   T! QI&?   T GzЀ@ T   T! cZB>?   T Gz`@ T  , T! mV}b?  1 T Gz؂@ T  [ T! H.?  { T Gz؂@ T  [ T! H.?   T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		]) T"     # d  d v T" C  # T  CC" d
Z ' T  CCC$ d
Z  T /C/ C$  T    F T   Zusatzbeitrag zur Pflegevers. CC* Z %  T   aus  G
( %  T      @@ T 
 H   T Gz@@ T   T! QI&?  ; T GzЀ@ T   T! oT?   T Gz`@ T  , T! mV}b?   T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?   T       @ T @
 HU   T Gz@@ T   T! Y8m?   T GzЀ@ T   T! oT?  3 T Gz`@ T  , T! mV}b?  } T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?  N %  C 			   C'  C' 		F) T"     # d  d _ T" C  # T  CC" d
Z ' T  CCC$ d
Z  T /C/ C$  T      %C  
h  T  C +    T   aus  G
( %  T      @@ T 
 H}   T Gz@@ T   T! QI&?   T GzЀ@ T   T! oT?  [ T Gz`@ T  , T! mV}b?   T Gz؂@ T  [ T! H.?   T Gz؂@ T  [ T! H.?  V T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		) T"     # d  d  T" C  # T  CC" d
Z ' T  CCC( d
Z  T /C/ C(  T     %C   
# T  C ,    T   aus  G
( % z" T      @@ T 
 H!v"  N! T Gz@@ T   T! QI&?  ! T GzЀ@ T   T! oT?  ! T Gz`@ T  , T! mV}b?  ," T Gz؂@ T  [ T! H.?  v" T Gz؂@ T  [ T! H.?  " T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		X#) T"     # d  d q# T" C  # T  CC" d
Z ' T  CCC) d
Z  T /C/ C)  T     %C*  
v' T  C -    T   aus  G
( % & T      @@ T 
 H$%  $ T Gz@@ T   T! QI&?  % T GzЀ@ T   T! oT?  i% T Gz`@ T  , T! mV}b?  % T Gz؂@ T  [ T! H.?  % T Gz؂@ T  [ T! H.?  d& T       @ T @ T Gz@@ T   T! Y8m? N %  C 			   C'  C' 		&) T"     # d  d & T" C  # T  CC" d
Z ' T  CCC* d
Z  T /C/ C*  T     %C#  
($ %C  C 
	'= T  C .    (mit Progressionsvorbehalt)  ( T  C .    ' T  CCC# d
Z  T /C/ C#  T    T    T     / *(,* %C/   
* T0 CC/  ZF abzge_text = abzge_text + ALLTRIM(myform1.z&xxx..Caption) + crlf
+ T  CCC/  d
Z # T /C/ C/   %C / 1  ) T2  x ) T2  -  T  2    %C / 1  ) T2  x * T2  -  T  2    %C / 1  H* T2  x ^* T2  -  T  2     T    T     6 T ) Summe der Abzge und sonstigen Zahlungen: T CCC/ d
Z) T	  A U S Z A H L U N G          %C3 4 `  a+' T	 	  IBAN: C3 5  ,   +( T	 	  Konto: C3 4  ,    %C3 6 `  + T	 	  BIC: C3 7  + T	 	  BLZ: C3 6  ( T
 CCC C/ d
Z <# T  CCC"    T   aus' T  CCC d
Z 0 T  CCC" C d
Z ' T /C/ C" C  T    T  C    0 T  CCC$ C d
Z ' T /C/ C$ C  T    T    T    T  C    0 T  CCC% C d
Z ' T /C/ C% C  T    T    T    %C  
;0) T   Pauschale Lohnsteuer ' T  CCC d
Z  T /C/ C  T    T    T   - T   Pauschaler Soli-Zuschlag ' T  CCC d
Z  T /C/ C  T    T    T   , T   Pauschale Kirchensteuer ' T  CCC d
Z  T /C/ C  T    T    T     %C  
62
 Hb01 C5 
0 %    0/ T  C      C     0 T  C      C5 j1 %    A1/ T  C      C     f1 T  C      C5 1 T  C      T   aus ' T  CCC d
Z ' T  CCC& d
Z  T /C/ C&  T     %C  
f3
 T&    %' (  2: T&   -  PV Ki. CC' (       ?Z % ! T  C )  &   T   aus ' T  CCC d
Z ' T  CCC' d
Z  T /C/ C'  T     %C  
34 T  C +    T   aus ' T  CCC d
Z ' T  CCC( d
Z  T /C/ C(  T     %C   
 5 T  C ,    T   aus ' T  CCC  d
Z ' T  CCC) d
Z  T /C/ C)  T     %C*  
5 T  C -    T   aus ' T  CCC d
Z ' T  CCC* d
Z  T /C/ C*  T     %C  
"9 %C c84 T   Zusatzbeitrag zur Krankenvers.   T   aus ' T  CCC d
Z  %C& 
6' T  CCC/ d
Z  T /C/ C/  7' T  CCC/ d
Z  T /C/ C/   T   9 T  $ Zusatzbeitrag zur Pflegevers. 0,25 %  T   aus ' T  CCC d
Z  %C& 
 8' T  CCC0 d
Z  T /C/ C0  N8' T  CCC0 d
Z  T /C/ C0   T    
9 T  C 8    T   aus ' T  CCC d
Z ' T  CCC/ d
Z  T /C/ C/   T     %C#  
K:$ %C  C 
	9C T   + C .    (mit Progressionsvorbehalt)  9# T   + C .    ' T  CCC! d
Z  T /C/ C!  T    T    T     / *(,b; %C/   
^; T0 CC/  ZF abzge_text = abzge_text + ALLTRIM(myform1.z&xxx..Caption) + crlf
+ T  CCC/  d
Z # T /C/ C/   T    T    T     6 T ) Summe der Abzge und sonstigen Zahlungen: T CCC/ d
Z) T	  A U S Z A H L U N G          %C3 4 `  !<' T	 	  IBAN: C3 5  ,   Q<( T	 	  Konto: C3 4  ,    %C3 6 `  < T	 	  BIC: C3 7  < T	 	  BLZ: C3 6  ( T
 CCC C/ d
Z  G
( U9  X1 CRLF ABZGE_TEXT
 ABZGE_SP1
 ABZGE_SP2
 ABZGE_SP3
 ABZGE_SP4 SUMME_ABZGE_TEXT SUMME_ABZGE_SP3 AUSZAHLUNG_TEXT AUSZAHLUNG_SP3 LASTT WERT SP INDEXM ZI LSTAUSGLEICH SICHT ZT33	 COMBOZAHL MYFORM1 Z35 CAPTION Z36 Z53 VISIBLE TRUE Z52 WELCHESJAHR GLEITOBERGRENZE GOBER GLEITUNTERGRENZE GUNTER	 HSFAKTORF GESAN VOLLENTGELT EFFZAHL ZUSATZKV
 KIANZABZPV WVW RESERVE5 Z38 ZUSATZPV Z39 Z40 Z41 Z34 I XXX	 SCHLSSEL MSG WNW KONTO ZIBAN BLZ ZBIC Z26c 4   7      J  (      7   	 
   
                     ! " # $ % & ' (  J  (   	 
   
                     ! " # $ % & ' (  7) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K  J  () * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K  7L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n  J  (L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n  7o p q r s t u v w x y z { | } ~                     J  (o p q r s t u v w x y z { | } ~                     7                                     J  (                                     7                                     J  (                                       T  -C T  A N L A G E  zu :  CC   f  fr C    %C    T  erstellt am CC$*  T  erstellt am C       1000 T # A T V   - B E T R I E B S R E N T E %   (" T CC  Z4 LStSozZVK(1+i, 5) = myTablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 6) = myTablett.Kasten&xxx..Caption
  n	  (!j	 T CC  Z4 LStSozZVK(1+i, 5) = myTablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 6) = myTablett.Kasten&xxx..Caption
    (	 T CC  Z! atv_z&xxx = LStSozZVK(1+i, 5)
! atv_w&xxx = LStSozZVK(1+i, 6)
    T  -   T  - T 
 S T E U E R N  ("p T CC  Z4 LStSozZVK(1+i, 1) = myTablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 2) = myTablett.Kasten&xxx..Caption
 % 
 T CC  Z  st_z&xxx = LStSozZVK(1+i, 1)
 l T CC  Z  st_z&xxx = LStSozZVK(1+i, 1)
  st_w&xxx = LStSozZVK(1+i, 2)
     T  -   0 T  -0 T # S O Z I A L V E R S I C H E R U N G  ( %   T CC  Z4 LStSozZVK(1+i, 3) = myTablett.zeile&xxx..Caption
5 LStSozZVK(1+i, 4) = myTablett.Kasten&xxx..Caption
! soz_z&xxx = LStSozZVK(1+i, 3)
6 soz_w&xxx = STR(VAL(LStSozZVK(1+i, 4)) / 100,10,2)
   T  weitere SV-Werte4 T  Rentenversicherung EZ aus CC - T CC dd"@
ZD T  Rentenversicherung lfd aus CCCC
 gd
Z- T CC	 dd"@
Z3 T  Arbeitslosenvers. EZ aus CC  % 
A) T CC dd
Z z1 T CC dd      @
Z 3 T  Arbeitslosenver. lfd aus CC	  % 
) T CC	 dd
Z %1 T CC	 dd      @
Z    (" T CC  Z! atv_z&xxx = LStSozZVK(1+i, 5)
! atv_w&xxx = LStSozZVK(1+i, 6)
 , Tm  Lohnsteuer insgesamt (16+19+30)5 T CC dC dC d
Z. Tn ! Soli-Zuschl. insgesamt (17+20+31)5 T CC dC dC  d
Z, T  Kirchenst. insgesamt (18+21+32)5 T CC
 dC dC! d
Z T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T C W h dummy  C F   [ F  #) T  - %C  L % a" ? anlage(!9 H ? anlage(!"9      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  > T 
 Druckvorschau T a T  T  T  T T  T  Ta  C    T C ReportListener T  T 	 ! ? anlage9.  <  <   F  Q
 F  <      <   	 
   
                     ! " # $ % & ' (  <) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K  <L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n  <o p q r s t u v w x y z { | } ~                     <                                     <                                     T  - U
 X1 BER1	 BERDATUM BER_ATV BER_STEUERN BER_SOZVERS ATV_Z1 ATV_Z2 ATV_Z3 ATV_Z4 ATV_Z5 ATV_Z6 ATV_Z7 ATV_Z8 ATV_Z9 ATV_Z10 ATV_Z11 ATV_Z12 ATV_Z13 ATV_Z14 ATV_Z15 ATV_Z16 ATV_Z17 ATV_Z18 ATV_Z19 ATV_Z20 ATV_Z21 ATV_Z22 ATV_Z23 ATV_Z24 ATV_Z25 ATV_Z26 ATV_Z27 ATV_Z28 ATV_Z29 ATV_Z30 ATV_Z31 ATV_Z32 ATV_Z33 ATV_Z34 ATV_Z35 ATV_W1 ATV_W2 ATV_W3 ATV_W4 ATV_W5 ATV_W6 ATV_W7 ATV_W8 ATV_W9 ATV_W10 ATV_W11 ATV_W12 ATV_ZW13 ATV_W14 ATV_W15 ATV_W16 ATV_W17 ATV_W18 ATV_W19 ATV_W20 ATV_W21 ATV_W22 ATV_W23 ATV_W24 ATV_W25 ATV_W26 ATV_W27 ATV_W28 ATV_W29 ATV_W30 ATV_W31 ATV_W32 ATV_W33 ATV_W34 ATV_W35 ST_Z1 ST_Z2 ST_Z3 ST_Z4 ST_Z5 ST_Z6 ST_Z7 ST_Z8 ST_Z9 ST_Z10 ST_Z11 ST_Z12 ST_Z13 ST_Z14 ST_Z15 ST_Z16 ST_Z17 ST_Z18 ST_Z19 ST_Z20 ST_Z21 ST_Z22 ST_Z23 ST_Z24 ST_Z25 ST_Z26 ST_Z27 ST_Z28 ST_Z29 ST_Z30 ST_Z31 ST_Z32 ST_Z33 ST_Z34 ST_Z35 ST_W1 ST_W2 ST_W3 ST_W4 ST_W5 ST_W6 ST_W7 ST_W8 ST_W9 ST_W10 ST_W11 ST_W12 ST_ZW13 ST_W14 ST_W15 ST_W16 ST_W17 ST_W18 ST_W19 ST_W20 ST_W21 ST_W22 ST_W23 ST_W24 ST_W25 ST_W26 ST_W27 ST_W28 ST_W29 ST_W30 ST_W31 ST_W32 ST_W33 ST_W34 ST_W35 SOZ_Z1 SOZ_Z2 SOZ_Z3 SOZ_Z4 SOZ_Z5 SOZ_Z6 SOZ_Z7 SOZ_Z8 SOZ_Z9 SOZ_Z10 SOZ_Z11 SOZ_Z12 SOZ_Z13 SOZ_Z14 SOZ_Z15 SOZ_Z16 SOZ_Z17 SOZ_Z18 SOZ_Z19 SOZ_Z20 SOZ_Z21 SOZ_Z22 SOZ_Z23 SOZ_Z24 SOZ_Z25 SOZ_Z26 SOZ_Z27 SOZ_Z28 SOZ_Z29 SOZ_Z30 SOZ_Z31 SOZ_Z32 SOZ_Z33 SOZ_Z34 SOZ_Z35 SOZ_Z36 SOZ_W1 SOZ_W2 SOZ_W3 SOZ_W4 SOZ_W5 SOZ_W6 SOZ_W7 SOZ_W8 SOZ_W9 SOZ_W10 SOZ_W11 SOZ_W12 SOZ_ZW13 SOZ_W14 SOZ_W15 SOZ_W16 SOZ_W17 SOZ_W18 SOZ_W19 SOZ_W20 SOZ_W21 SOZ_W22 SOZ_W23 SOZ_W24 SOZ_W25 SOZ_W26 SOZ_W27 SOZ_W28 SOZ_W29 SOZ_W30 SOZ_W31 SOZ_W32 SOZ_W33 SOZ_W34 SOZ_W35 SOZ_W36 SOZ_W13 ANLAGEGEMEINSAM	 MYTABLETT VISIBLE MYFORM1 Z20 CAPTION Z0 DITEXT6 VBLAUFBAUEN VBLINSTRING WELCHESJAHR I XXX LOHNSTRAUFBAUEN LOHNSTRINSTRING SOZVERSAUFBAUEN SOZVERSZINSTRING	 LSTSOZZVK SOZVERSZ LSTRZ ST_Z36 ST_W36 SOZ_Z37 SOZ_W37	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK ANLAGE LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER       U  KOPF
 ABRECHNUNGO
 T    
 T   
 T   
 T   
 T   
 T   
 T   
 T    T C
 C
  C
 
  wnw	  %C 

 H R   VTB@ T
  Vollzeit T  Teilzeit %C  T  50 % ATZ < T 	 Teilmonat    -VT T  Vollzeit %C  T  50 % ATZ  T  Teilzeit    -VB) T  Vollzeit %C  T  50 % ATZ % T 	 Teilmonat    --VR T  Vollzeit 
 Hc   VTB* T  fr CCC  Z %C  T    * T  fr CCC  Z    -VTg %C 1 T    c* T  fr CCC  Z    -VB %C  T    * T  fr CCC  Z    --V T    
 H   VTB* T  von CCC  Z %C j T  ATZ * T  von CCC  Z    -VT %C  T  ATZ * T  von CCC  Z    -VB} %C G T     y* T  von CCC  Z    --V T     
 H   VTB T 
 Wochenstunden T  Tagen   -VT
 H C  A T 
 Wochenstunden C r T  Teile v. Normal C  T  Proz. v. Normal    -VB %C  T      T  Tagen   T    T    T   
 H8   VTB T  EURO T  EURO T  EURO T 
 L  S  Z  T  B C  -VT -VB2 T    T  EURO T  EURO %  -VT T 
 L  S  Z  T . T 
 L  S  Z  B    --V T    T    T  EURO T  L  S  Z   (9 %C   
5 %  1 % G
 %C 
 H 	 C 

~	 T CC  ZR bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf
 C  %C >j T C C	 C
 C C
 C C C C C C C  T C CC
 6 C
 Y	
 C
   6CC 6 C Y	
 C   6CC 6 C Y	
 C   6 T  CC d
Z T! CC d
Z T CC  ZF T    CCC= d
Z % v.   
  - 0.5% v.!    T CC  Z~ bruttozeilen_text = bruttozeilen_text + Alltrim(Str(wert(1+60) / 100,10,2)) + " " + Alltrim(myform1.z&xxx..Caption) + crlf
   C

 H?
$ C 
 C 
 T CC  ZR bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf
% C  C 
	?
 T CC  Z~ bruttozeilen_text = bruttozeilen_text + Alltrim(Str(wert(1+60) / 100,10,2)) + " " + Alltrim(myform1.z&xxx..Caption) + crlf
    T CC  Z % f %C 
| bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + " MS " + ALLTRIM(STR(wvw.reserve7,2,0)) + crlf
 bR bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf
  R bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf
  
 H   VTBd+ T  CCC  d
Z ( T  CCC  " d
Z ( T  CCC  # d
Z    -VT+ T  CCC  d
Z ( T  CCC  " d
Z  T      -VBT+ T  CCC  d
Z ( T  CCC  # d
Z  T      --V( T  CCC  # d
Z  T    T     T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.lst&xxx..Caption) + "  "
 T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.soz&xxx..Caption) + "  "
 T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.zvk&xxx..Caption) + "  "

 H   VTB T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.tei&xxx..Caption) + "  "
 T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.bru&xxx..Caption) + "  "
   -VTa T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.tei&xxx..Caption) + "  "
   -VB T CC  ZR bruttozeilen_sp4 = bruttozeilen_sp4 + Alltrim(myform1.bru&xxx..Caption) + "  "
   --V T CC  Z T       T       %$ 
( %CC% & ' R GEHALT T( CCC
) f " T(  BRUTTO-CC* + ' f  " T(  BRUTTO-CC* + ' f 
 H   VTBF T, CCC d
Z T- CCC d
Z C  -VT -VB T- CCC d
Z  T. CCC d
Z %/  %C  
 T  C* 0 ' # T  CCC d
Z %C(1  , T2  x B T2  -  T  2    %C(1   T2  x  T2  -  T  2    %C(1   T2  x  T2  -  T  2     %C0  
 T    T    T    T  C* 3 ' # T  CCC0 d
Z %C)1   T2  x  T2  -  T  2    %C)1  
 T2  x # T2  -  T  2    %C)1  c T2  x y T2  -  T  2      1  (p %C  "  
l %  h %  %C 
A
 H= C 

 T CC  ZR bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf
 C = T CC  Z~ bruttozeilen_text = bruttozeilen_text + ALLTRIM(STR(wert(1+60) / 100,10,2)) + " " + Alltrim(myform1.z&xxx..Caption) + crlf
  
 HV C 
 T CC  Z\ bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf										
 C  T CC  Z~ bruttozeilen_text = bruttozeilen_text + ALLTRIM(STR(wert(1+60) / 100,10,2)) + " " + Alltrim(myform1.z&xxx..Caption) + crlf
   	 T CC  ZZ bruttozeilen_text = bruttozeilen_text + Alltrim(myform1.z&xxx..Caption) + crlf								
 ( T  CCC  " d
Z  T    T    T       %$ 
( %CC% & ' R GEHALT T( CCC
) f " T(  BRUTTO-CC* + ' f  " T(  BRUTTO-CC* + ' f  T. CCC d
Z %/ - %C"4  
 T  C* 0 ' # T  CCC"4 d
Z  %C#4  
) T    T    T    T  C* 3 ' # T  CCC#4 d
Z    T 1C  U5  BRUTTOZEILEN_TEXT BRUTTOZEILEN_SP1 BRUTTOZEILEN_SP2 BRUTTOZEILEN_SP3 BRUTTOZEILEN_SP4 ERWEITERUNG_TEXT ERWEITERUNG_SP1 ERWEITERUNG_SP4 CRLF MYGET FILENEU ZI BSP SP1_1 SP2_1 SP3_1 SP2_2 WERT SP3_2 SP2_3 SP3_3 SP2_4 SP3_4 EURO1 EURO2 EURO3 LSTZEILE I NETTOJA XXX
 HSBETRAGALLES HSBETRAGTEIL
 HSZ7PLUSAMTSZ HS05PROZ TEILZAHL	 BRUCHZAHL AUSDRUCK
 MYSERIENDRUCK LABEL3 CAPTION SUMMENZEILE_TEXT ZT20 MYFORM1 Z20 SUMMENZEILE_SP1 SUMMENZEILE_SP2 SUMMENZEILE_SP3 MYINDEXE Z24	 SCHLSSEL MSG Z47	 COMBOZAHL	   
 T   T / 
 T   
 T   
 T    %C  ! T  C  	 !
 ' T  CCC! d
Z
  T  C!  T   - - -
  ' %C   C( 	h! T  C 
 	 !
 ' T  CCC" d
Z
  T  C"  %C(   T  x  T  -  T      %C(   T  x  T  -  T      %C(  4 T  x J T  -  T     
  ' %C0   C) 	! T  C  	 !
 ' T  CCC# d
Z
  T  C#  %C)   T  x , T  -  T      %C)  l T  x  T  -  T      %C)   T  x  T  -  T     
    *(, %C    %C    T CC  ZJ ag_aufw_text = ag_aufw_text + Leftc(myform1.z&xxx..Caption, 33) + crlf
+ T  CCC  d
Z
  T  C   %C     T  x % T  -  T      %C    f T  x | T  -  T      %C     T  x  T  -  T     
     %C  
	
 H  C5   %C  	 %C& W T   + AG-Anteil KV-Beitrag: CCCC&  
Z % /2 + AN-Anteil
  D T  
 + AG-Anteil: CCC&    + AN-Anteil
    %C& rL T   + AG-Anteil KV-Beitrag: CCCC&  
Z % / 2
  4 T  
 + AG-Anteil: CCC&  
    C5 p %C& .N T   + AG-Zuschuss KV-Beitrag: CCCC&  
Z % / 2
  l6 T   + AG-Zuschuss: CCC&  
   C5 . T   + CCC5    
  ' T  CCC d
Z
  T  
  T  C   %  %C5 
 %C  

\ T  , + AG-Anteil: Zusatzbeitrag zur Krankenvers. CC 
Z  % /2
 . %  C 			  E
F T  CCC  CC ddd
Z
 0 T C  CC dd 
 T  1 T  CCC  dd
Z
  T C  d  T    T  
    %C  
\ T  , + AG-Anteil: Zusatzbeitrag zur Krankenvers. CC 
Z  % /2
 ( T  CCC cd
Z
  T  C c T  
    
 H  
1 T CC 

   1,025%
   1,525%6    
	I1 T CC 

   1,025%
   1,525%6    	/ T CC 
   1,20%	   1,70%6  / T CC 
   1,20%	   1,70%6  %C  
 %C'  
 %C  V
9 T   + PV-AG-Anteil:    + AN-Anteil
  
) T   + PV-AG-Anteil:  
   
' T   + PV-AG-Anteil 
  ' T  CCC d
Z
  T  C  T  
   %C	  
 %C(  :$ %C  C 4 T  
 + AG-Anteil: CCC(  
  6 %C  D T  
 + AG-Anteil: CCC(    + AN-Anteil
  24 T  
 + AG-Anteil: CCC(  
    $ %C  C / T   + CCC(   *)
  ) T   + CCC(  
   ' T  CCC	 d
Z
  T  C	  T  
   %C
  
h %C)   %C  D T  
 + AG-Anteil: CCC)    + AN-Anteil
  4 T  
 + AG-Anteil: CCC)  
   ) T   + CCC)  
  ' T  CCC
 d
Z
  T  C
  T  
   %C  
,
 H$ C   C ~
 Hz% C   C 		)D T   + C   	   CCC d
Z  %
  C 	z< T   + C   	   CC! 
Z  %
   CC D T   + C   	   CCC d
Z  %
  ' T  CCC d
Z
  T  C  T  
  $ %C   C  C T   + ATV-Kapitalbeitrag  CC" # 
Z  %
 ' T  CCC d
Z
  T  C  T  
   %C  
? T   + ATV-Sanierungsgeld  CC$ 
Z  %
 ' T  CCC d
Z
  T  C  T  
   %C  
* T   + bernommene Steuern
 ' T  CCC d
Z
  T  C  T  
   %C  i$ %C/ # C/ !Z T  # + Umlage U1 fr Entgeltfortzahlung CCC!% d
Z  %
  ^ T  # + Umlage U1 fr Entgeltfortzahlung CCCC/ % d
Z  %
  ' T  CCC d
Z
  T  C  T  
   %C  $ %C/ # C/ !T T   + Umlage U2 fr Mutterschutz CCC!% d
Z  %
  ZX T   + Umlage U2 fr Mutterschutz CCCC/ % d
Z  %
  ' T  CCC d
Z
  T  C  T  
   %& ' ( 7 %C  3M T   + Umlage U3 fr Insolvenzgeld  CC) 
Z  %
 ( T* C# )   T+ CC* G %+ 4 T* CC* , d{Gz? ( T* CC* , d ' T  CCC d
Z
  T  C  T  
   + T-  Summe der Personalnebenkosten: T. . CC d
Z T /  %/  / & T0  Personalkosten insgesamt:( T1 CCC/ C1 d
Z  U2  COMBOZAHLEN LASTT WERT AG_AUFW_TEXT AG_AUFW_SP3 AG_AUFW_SP4 ZI MYFORM1 Z34 CAPTION CRLF	 COMBOZAHL	 SCHLSSEL Z24 MSG Z47 I XXX WVW ZNAM	 GETKVPROZ ZT37 ZT52 WELCHESJAHR EFFZAHL ZUSATZKV XLASTT VOLLENTGELT HSPVAGANTEIL MONAT ZT39 ZT40 Z25 ZVKUMLAGEAG
 ZVKKAPITAL ZVKKAPITALAN	 SANIERUNG GETKVBEITRAG WNW ZUMLAGE3 TRUE
 INSOLVENZGELD SICHT HS_REST FIX SUMME_AG_AUFW_TEXT SUMME_AG_AUFW_SP3 MYINDEXE INSG_SUMME_AG_AUFW_TEXT INSG_SUMME_AG_AUFW_SP3 4   %  av' 7        	  7
   
  7      7     7    7    7   7   - J  (        	  J  (
   
  J  (      J  (     J  (    J  (    J  (   J  (    ' 7        	  7
   
  7      7     7    7    7   7     U!  X SP1_1 SP2_1 SP2_2 SP2_3 SP2_4 SP3_1 SP3_2 SP3_3 SP3_4 EURO1 EURO2 EURO3 LSTZEILE BRUTTOZEILEN_TEXT BRUTTOZEILEN_SP1 BRUTTOZEILEN_SP2 BRUTTOZEILEN_SP3 BRUTTOZEILEN_SP4 SUMMENZEILE_TEXT SUMMENZEILE_SP1 SUMMENZEILE_SP2 SUMMENZEILE_SP3 ERWEITERUNG_TEXT ERWEITERUNG_SP1 ERWEITERUNG_SP4 AG_AUFW_TEXT AG_AUFW_SP3 AG_AUFW_SP4 SUMME_AG_AUFW_TEXT SUMME_AG_AUFW_SP3 INSG_SUMME_AG_AUFW_TEXT INSG_SUMME_AG_AUFW_SP3A 4   %  a' 7        	  7
   
  7      7     7    7       7  !  7" # - J  (        	  J  (
   
  J  (      J  (     J  (   ! J  (       J  (  !  J  (" #  :' <        	  <
   
  <      <     <    <       <  !  <" #   U$  X SP1_1 SP2_1 SP2_2 SP2_3 SP2_4 SP3_1 SP3_2 SP3_3 SP3_4 EURO1 EURO2 EURO3 LSTZEILE BRUTTOZEILEN_TEXT BRUTTOZEILEN_SP1 BRUTTOZEILEN_SP2 BRUTTOZEILEN_SP3 BRUTTOZEILEN_SP4 SUMMENZEILE_TEXT SUMMENZEILE_SP1 SUMMENZEILE_SP2 SUMMENZEILE_SP3 ERWEITERUNG_TEXT ERWEITERUNG_SP1 ERWEITERUNG_SP4 LSTAUSGLEICH ABZGE_TEXT
 ABZGE_SP1
 ABZGE_SP2
 ABZGE_SP3
 ABZGE_SP4 SUMME_ABZGE_TEXT SUMME_ABZGE_SP3 AUSZAHLUNG_TEXT AUSZAHLUNG_SP3 4   %  a' 7        	  7
   
  7      7     7    7       7  !  7" #  7$ % &  7' (  7) * - J  (        	  J  (
   
  J  (      J  (     J  (   ! J  (       J  (  !  J  (" #  J  ($ % &  J  (' (  J  () *  ' <        	  <
   
  <      <     <    <       <  !  <" #  <$ % &  <' (  <) *   U+  X SP1_1 SP2_1 SP2_2 SP2_3 SP2_4 SP3_1 SP3_2 SP3_3 SP3_4 EURO1 EURO2 EURO3 LSTZEILE BRUTTOZEILEN_TEXT BRUTTOZEILEN_SP1 BRUTTOZEILEN_SP2 BRUTTOZEILEN_SP3 BRUTTOZEILEN_SP4 SUMMENZEILE_TEXT SUMMENZEILE_SP1 SUMMENZEILE_SP2 SUMMENZEILE_SP3 ERWEITERUNG_TEXT ERWEITERUNG_SP1 ERWEITERUNG_SP4 LSTAUSGLEICH ABZGE_TEXT
 ABZGE_SP1
 ABZGE_SP2
 ABZGE_SP3
 ABZGE_SP4 SUMME_ABZGE_TEXT SUMME_ABZGE_SP3 AUSZAHLUNG_TEXT AUSZAHLUNG_SP3 AG_AUFW_TEXT AG_AUFW_SP3 AG_AUFW_SP4 SUMME_AG_AUFW_TEXT SUMME_AG_AUFW_SP3 INSG_SUMME_AG_AUFW_TEXT INSG_SUMME_AG_AUFW_SP3}   a       T C W h dummy  C F   [ F  #) %C    %	 a # ? abrechnung_1(!9  $ ? abrechnung_1(!"9  V    T 
 V 3 T
 C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T  T   T   T   T   T a  C 
    T C ReportListener T   T   ' ? abrechnung_19.  <  <   F  Q
 F    - U  ABRECHNUNG1_VARS KOPF BRUTTO	 AGAUFWAND	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK ABRECHNUNG_1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINERh   a         T C W h dummy  C F   [ F  #) %C 	   %
 a # ? abrechnung_2(!9  $ ? abrechnung_2(!"9  A  
  T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T   T   T   T a  C     T
 C ReportListener T
   T
   ' ? abrechnung_29.
  <
  <   F  Q
 F    - U  ABRECHNUNG2_VARS COMBOZAHLEN KOPF BRUTTO ABZGE	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK ABRECHNUNG_2 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
 T     a        
 T      T	 C W h dummy  C F
   [ F
  #) %C   %
 a # ? abrechnung_3(!9  $ ? abrechnung_3(!"9  ~    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T   ' ? abrechnung_39.  <  <  
 T    F
  Q
 F	   - U  
 TEXTKORREKTUR FALSE ABRECHNUNG3_VARS COMBOZAHLEN KOPF BRUTTO ABZGE TRUE	 AGAUFWAND	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK ABRECHNUNG_3 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER 
 T     %C    4  T   x N  T     -  %C    }  T     x   T     -  %C      T     x   T     -  U  MSG	 SCHLSSEL J %C   ` T C   T C"  c T C$  c T C%  c T C#  + T C C 
 T  T C    T C   0 T C C '0 T 	C C ' T CC	 ddG % 11 T 	CC	 d d 
, T 	CC	 d d  %C  M$ T 
C	   , T 
C	 )\(? $ T C	 	 + T C	 C + T 
C
 C + T C C 6 T C C
 C   %C
   T C W h dummy  C F
   [ F
  #)" ?
 atz_druck6(!"9     T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T     T C W h dummy  C F
   [ F
  #)% ?
 atz_druck69.  <  <   F
  Q
 F  U!  WERT SICHT LZZ RE4 STEUER CLNG LSTLZZ HS_REST FIX	 KISTRSATZ DIREKTZUMDRUCKERQ TRUE	 OLDSELECT DUMMY FELD
 ATZ_DRUCK6 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER 7        7  7   7	 
  7  
  7        7        7      ! "  7# $ % & ' ( )  7* + , - . / 0  71 2 3 4 5 6 7  78 9 : ;  7< = > ? ! J  (       
 J  (  J  (   J  (	 
  J  (  
 % J  (       % J  (       % J  (      ! " % J  (# $ % & ' ( ) % J  (* + , - . / 0 % J  (1 2 3 4 5 6 7  J  (8 9 : ;  J  (< = > ?  %C@  A    TB C	B   TB CB   TB CB   TB CB  C  ( D  (! TB C D     TE C
 C
 - T    L F D .  B R U T T O E N T E L T T  Vollzeit T  Teilzeit %C@ * T 	 ATZ-Quote H T 	 Teilmonat  T  Str  SV  ZV  GB T  B E T R A G %CF CF  TG    1 ! TG CCF CF Z  %CF CF  TH    1 0! TH CCF CF Z  %C@ /M T  8 Entnahmen aus dem Wertguthaben in der FreistellungsphaseE  T  E  T  E  T  E  T  E  T8 8 E  T9 9 E  T: : E  T; ; E  T  E   D (5
 HWG D u
 TC  D 
 TC 	 D 
 TC  D 
 TC  D 
 TC 
 D 
 TC  D )
 TC 
 D G
 TC   %C C I  1 TJ CCC  Z %C T %C@ 
j eb2_text = eb2_text + Alltrim(myform1.z&xxx..Caption) + " MS " + ALLTRIM(STR(wvw.reserve7,2,0)) + crlf
 P@ eb2_text = eb2_text + Alltrim(myform1.z&xxx..Caption) + crlf
  @ eb2_text = eb2_text + Alltrim(myform1.z&xxx..Caption) + crlf
 ) T  CCC F d
ZE  %C C K L  T  G E  	 T     1E   %C C M C	 T  H E  c	 T     1E   %C C N L 	 T8 8  +E ) TB CB C C I  	 T8 8  0E   %C C O L 3
 T9 9  +E ) TB CB C C I  Q
 T9 9  0E   %C C P L 
 T: :  +E ) TB CB C C I  
 T: :  0E   T; ;  JE ) TB CB C C I & T  CC C I d
ZE    %CI  
 T  CQ R S E ' T  CCCF d
ZE  %CK L  T  G E   T     1E   %CM 
 T  H E  * T     1E   %CN L  T8 8  +E ( TB CB CI   T8 8  0E   %CO L  T9 9  +E ( TB CB CI  
 T9 9  0E   %CP L k
 T: :  +E ( TB CB CI  
 T: :  0E   T; ;  JE ( TB CB CI % T  CCI d
ZE   %CI   T  Q T S E % T  CCF d
ZE  %CK L s T  G E   T     1E   %CM  T  H E   T     1E   %CN L 8 T8 8  +E ( TB CB CI  V T8 8  0E   %CO L  T9 9  +E ( TB CB CI   T9 9  0E   %CP L " T: :  +E ( TB CB CI  @ T: :  0E   T; ;  JE ( TB CB CI % T  CCI d
ZE  ( %CF  
 C(U  	
 HR C@   C@ 		 C@ 
 C@  C@  T  CQ V S E % T  CCF d
ZE  T     1E  T     1E 
 H C(U   T8 8  0E  C(U 5 T8 8  -E ( TB CB CF  C(U  T8 8  +E ( TB CB CF  
 Hv C(U   T9 9  0E  C(U   T9 9  -E ( TB CB CF  C(U v T9 9  +E ( TB CB CF  
 Hi C(U   T: :  0E  CC(U  T: :  -E ( TB CB CF  CC(U i T: :  +E ( TB CB CF  
 HzC C@   C@ 	 C@  C@ 	  T; ;  JE ( TB CB CF % T  CCF d
ZE 3 C@  C@  C@ 	 T; ;  NE % T  CCF d
ZE    ( %C0F  
 C)U  	v
 HrC C0@   C0@ 		 C0@ 
 C0@ r T  CQ W S E % T  CC0F d
ZE  T     1E  T     1E 
 Hk C)U   T8 8  0E  C)U  T8 8  -E ( TB CB C0F  C)U k T8 8  +E ( TB CB C0F  
 H|V C)U   T9 9  0E  C)U   T9 9  -E ( TB CB C0F  C)U V T9 9  +E ( TB CB C0F  
 HgI C)U   T: :  0E  CC)U  T: :  -E ( TB CB C0F  CC)U I T: :  +E ( TB CB C0F  
 HZnC C0@   C0@ 	 C0@  C0@ 	  T; ;  JE ( TB CB C0F % T  CC0F d
ZE 3 C0@  C0@  C0@ 	n T; ;  NE % T  CC0F d
ZE    ( %C+F  
 C*U  	U9 %C*U C*U C*U C*U  Q T  CQ X S E % T  CC+F d
ZE  T     1E  T     1E 
 HZ4 C*U   T8 8  0E  C*U  T8 8  -E ( TB CB C+F  C*U 4 T8 8  +E ( TB CB C+F  
 HE C*U  s T9 9  0E  C*U  T9 9  -E ( TB CB C+F  C*U  T9 9  +E ( TB CB C+F  
 H0 C*U  ^ T: :  0E  CC*U  T: :  -E ( TB CB C+F  CC*U  T: :  +E ( TB CB C+F   T; ;  NE % T  CC+F d
ZE   ( %C,F  
 C+U  	4"9 %C+U C+U C+U C+U  0" T  CQ Y S E % T  CC,F d
ZE  T     1E  T     1E 
 H9  C+U  g T8 8  0E  C+U  T8 8  -E ( TB CB C,F  C+U   T8 8  +E ( TB CB C,F  
 H$   C+U  R  T9 9  0E  C+U   T9 9  -E ( TB CB C,F  C+U   T9 9  +E ( TB CB C,F  
 H!! C+U  =! T: :  0E  CC+U ! T: :  -E ( TB CB C,F  CC+U ! T: :  +E ( TB CB C,F   T; ;  NE % T  CC,F d
ZE   ( %C-F  
 C,U  	&9 %C,U C,U C,U C,U  & T  CQ Z S E % T  CC-F d
ZE  T     1E  T     1E 
 H## C,U  F# T8 8  0E  C,U # T8 8  -E ( TB CB C-F  C,U # T8 8  +E ( TB CB C-F  
 H$$ C,U  1$ T9 9  0E  C,U $ T9 9  -E ( TB CB C-F  C,U $ T9 9  +E ( TB CB C-F  
 H$% C,U  % T: :  0E  CC,U v% T: :  -E ( TB CB C-F  CC,U % T: :  +E ( TB CB C-F   T; ;  NE % T  CC-F d
ZE   % %C#F  
 C@ 	1' T  CQ [ S E  T  E  T  E  T  E  T8 8  0E  T9 9  0E  T: :  0E  T; ;  JE % T  CC#F d
ZE ( TB CB C#F  % %C#F  
 C@ 	D)B T  - ATZ-Aufst.d.RV-pfl.Entg.+volle Beitragsz.d.AGE  T  E  T  E  T  E  T8 8  0E  T9 9  +E  T: :  0E  T; ;  NE ) T  CCB d
ZE @ T  + Rckstellung fr die ATZ-FreistellungsphaseE  T  E  T  E  T  E  T8 8   E  T9 9   E  T: :   E  T; ;  NE ) T  CCB d
ZE   %C3@ 	q*: T  % Gutsch.d.v. AG berw. pausch. Lohnst.E  T  E  T  E  T  E  T8 8  -E  T9 9  0E  T: :  0E  T; ;  NE & T  CC"F cd
ZE ) TB CB C"F c 4 T   L A U F E N D E S   B R U T T OE  T8 8   E  T9 9   E  T: :   E  T; ;   E ( T  CCB d
ZE A T  0 + S O N S T I G E S    B R U T T O E N T G E L T %CI  . T  Q \ S E % T  CCF d
ZE  %CK L + T  G E  	, T     1E   %CM 7, T  H E  W, T     1E   %CN L , T< <  +E ( TB CB CI  , T< <  0E   %CO L #- T= =  +E ( TB CB CI  A- T= =  0E   %CP L - T> >  +E ( TB CB CI  - T> >  0E   T? ?  JE % T  CCI d
ZE ( TB CB CI   %CI  0 T  Q ] S E % T  CCF d
ZE  %CK L . T  G E  . T     1E   %CM . T  H E  / T     1E   %CN L e/ T< <  +E ( TB CB CI  / T< <  0E   %CO L / T= =  +E ( TB CB CI  / T= =  0E   %CP L O0 T> >  +E ( TB CB CI  m0 T> >  0E   T? ?  JE % T  CCI d
ZE ( TB CB CI   %CI  3 T  CQ ^ S E % T  CCF 

ZE  %CK L Y1 T  G E  y1 T     1E   %CM 1 T  H E  1 T     1E   %CN L 2 T< <  +E ( TB CB CI  <2 T< <  0E   %CO L 2 T= =  +E ( TB CB CI  2 T= =  0E   %CP L 3 T> >  +E ( TB CB CI  &3 T> >  0E   T? ?  JE % T  CCI d
ZE ( TB CB CI  ( %CF  
 C(U 	
8 T  CQ V S E % T  CCF d
ZE  T     1E  T     1E 
 H845 C(U  f4 T< <  0E  C(U 4 T< <  -E ( TB CB CF  C(U 5 T< <  +E ( TB CB CF  
 H#55 C(U  Q5 T= =  0E  C(U 5 T= =  -E ( TB CB CF  C(U 5 T= =  +E ( TB CB CF  
 H66 C(U  <6 T> >  0E  CC(U 6 T> >  -E ( TB CB CF  CC(U 6 T> >  +E ( TB CB C+F  
 H78C C@   C@ 	 C@  C@ 	7 T? ?  JE ( TB CB CF % T  CCF d
ZE $ C@  C@ 	8 T? ?  NE % T  CCF d
ZE   ( %C0F  
 C)U 	b< T  CQ W S E % T  CC0F d
ZE  T     1E  T     1E 
 H89 C)U  8 T< <  0E  C)U 99 T< <  -E ( TB CB C0F  C)U 9 T< <  +E ( TB CB C0F  
 H9z: C)U  9 T= =  0E  C)U $: T= =  -E ( TB CB C0F  C)U z: T= =  +E ( TB CB C0F  
 H:m; C)U  : T> >  0E  CC)U ; T> >  -E ( TB CB C0F  CC)U m; T> >  +E ( TB CB C0F  
 H~;9<C C0@   C0@ 	 C0@  C0@ 	; T? ?  JE ( TB CB C0F $ C0@  C0@ 	9< T? ?  NE  % T  CC0F d
ZE  ( %C+F  
 C*U 	i@9 %C*U C*U C*U C*U  e@ T  CQ X S E % T  CC+F d
ZE  T     1E  T     1E 
 HF= > C*U  t= T< <  0E  C*U = T< <  -E ( TB CB C+F  C*U  > T< <  +E ( TB CB C+F  
 H1>? C*U  _> T= =  0E  C*U > T= =  -E ( TB CB C+F  C*U ? T= =  +E ( TB CB C+F  
 H?? C*U  J? T> >  0E  CC*U ? T> >  -E ( TB CB C+F  CC*U ? T> >  +E ( TB CB C+F   T? ?  JE ( TB CB C+F % T  CC+F d
ZE   ( %C,F  
 C+U 	pD9 %C+U C+U C+U C+U  lD T  CQ Y S E % T  CC,F d
ZE  T     1E  T     1E 
 HMA'B C+U  {A T< <  0E  C+U A T< <  -E ( TB CB C,F  C+U 'B T< <  +E ( TB CB C,F  
 H8BC C+U  fB T= =  0E  C+U B T= =  -E ( TB CB C,F  C+U C T= =  +E ( TB CB C,F  
 H#CD C+U  QC T> >  0E  CC+U C T> >  -E ( TB CB C,F  CC+U D T> >  +E ( TB CB C,F   T? ?  JE ( TB CB C,F % T  CC,F d
ZE   ( %C-F  
 C,U 	wH9 %C,U C,U C,U C,U  sH T  CQ Z S E % T  CC-F d
ZE  T     1E  T     1E 
 HTE.F C,U  E T< <  0E  C,U E T< <  -E ( TB CB C-F  C,U .F T< <  +E ( TB CB C-F  
 H?FG C,U  mF T= =  0E  C,U F T= =  -E ( TB CB C-F  C,U G T= =  +E ( TB CB C-F  
 H*GH C,U  XG T> >  0E  CC,U G T> >  -E ( TB CB C-F  CC,U H T> >  +E ( TB CB C-F   T? ?  JE ( TB CB C-F % T  CC-F d
ZE   % %C#F  
 C@ 	I %CB  I< T  ' Rckstellung fr ATZ-FreistellungsphaseE  T< <   E  T= =   E  T> >   E  T? ?  NE  T  E  T  E  T  E ) T  CCB d
ZE    %CB  J  TB CB $ T   - k e i n e s -E % T  C        
ZE  T  E  T  E  T  E  T  E  T< <   E  T= =   E  T> >   E  T? ?   E  8 T + = G E S A M T E S   B R U T T O E N G E L T+ TB CB CB   T CCB d
Z %C3@ 
oL* T# #  Steuern aus lauf. Entgelt$ T% % CCB d
Z" T& & CC_ cd
Z" T' ' CC_ cd
Z" T( ( CC
_ cd
Z- TB C_ C_ C
_ % T) ) CCB cd
Z M T# # E CQ ` S ( T% % E CCB d
Z% T& & E CC"F d
Z% T' ' E CC$F d
Z% T( ( E CC%F d
Z3 TB C"F C$F C%F ( T) ) E CCB d
Z  %CB  CP %C3@ 
?P2 T# # E  Steuern aus sonstigem Entgelt( T% % E CCB d
Z& T& & E CC_ cd
Z& T' ' E CC_ cd
Z& T( ( E CC_ cd
Z- TB C_ C_ C_ ) T) ) E CCB cd
Z7 T# # E " Summe fr lfd. und sonst. Steuern.4 T% % E CCB CB d
Z/ T& & E CC_ C_ cd
Z/ T' ' E CC_ C_ cd
Z/ T( ( E CC_ C
_ cd
ZE TB C_ C_ C
_ C_ C_ C_ ) T) ) E CCB cd
Z  * T* *  Laufendes SV-pfl. Entgelt! T, , CCa d
Z! T- - CCa d
Z! T. . CCa d
Z! T/ / CCa d
Z
 T0 0 $ %C@  C@ l, T* * E  davon beitragspflichtig% T, , E CCa d
Z TB C	a $ %C(@  C(@ UR
 HQQR b 
R %Ca <
R TB <  b QR %Ca \D
MR TB \D   ' %C@  CB  	R R TB   4 T- - E CCB CB d
Z4 T. . E CCB CB d
Z% T/ / E CCa d
Z T0 0 E 4 T* * E       daraus SV-Beitrge (AG/AN)3 TB 
CC&@ c 

 HST CC5@  
S, TB Ca CB d CC5@ DT, TB Ca CB d CC5@ 	T" TB C&F cd% C5@  C5@ 	T TB   C5@ T" TB C&F cd + Td CB dCCB dc  %d \(\?dU% TB d       ? U TB d   %d \(\?U1 TB CCB dc d V, TB CCB dc d  %C@ 9V TB    %C@ V2 T* * E  Der AG trgt alle SV-Beitrge V% T, , E CCB c
Z 
 HVrY C(@  	W2 TB C	a CB e ' CC(@ >W TB   C(@ X
 H`WX b 
-X %Ca <
W/ TB Ca e '; TB CB <Ca e ' )X/ TB Ca e '  b X %Ca \D
X/ TB Ca e '; TB CB \DCa e ' X/ TB Ca e '  $ C(@  C(@ DY" TB C(F cd C(@ rY TB   + Td CB dCCB dc  %d \(\?Y% TB d       ?  Z TB d   %d \(\?NZ1 TB CCB dc d Z, TB CCB dc d  %C@ Z TB    %C@  Z% T- - E CCB c
Z [ T- - E  
 H[[ C)@  W[& TB 
C	a f ' CC)@  [" TB 
C)F cd CC)@ [ TB 
  + Td C
B dCC
B dc  %d \(\?7\% TB d       ? X\ TB d   %d \(\?\1 TB 
CC
B dc d \, TB 
CC
B dc d  %C@ ] TB 
   %C@  J]% T. . E CC
B c
Z c] T. . E   TB g 
 H]] CC@ ] TB g h  
 H]_ C'@  4^K TB Ci j   Ca CB ' C'F cd6 CC'@ 	z^- TB Ca CB ' C'@ ^K TB Ci j   Ca CB ' C'F cd6 C'@ _- TB Ca CB ' C'@ J_ TB   C'@ _" TB C'F cd CC'@ _" TB C'F cd + Td CB dCCB dc  %d \(\?,`% TB d       ? M` TB d   %d \(\?`1 TB CCB dc d `, TB CCB dc d  %C@ a TB    %C@  ?a% T/ / E CCB c
Z Xa T/ / E  A TB CB CB C
B CB % T0 0 E CCB c
Z2 T* * E       daraus AN-Zusatzbeitrge$ %C5@  C5@ 	wb %Ca Ca Nb TB Ca  sb TB Ca   b %Ca Ca b TB Ca  b TB Ca   
 Hbg C@  6c TB   TB   C@ &dN %b  C@ 			 b  C'@  C'@ 		c& TB Ck d TB   "d) TB CB l ' TB    C@ eN %b  C@ 			 b  C'@  C'@ 		d TB  & TB Ck d e TB  ) TB CB h '  C@ #fN %b  C@ 			 b  C'@  C'@ 		e& TB Ck d& TB Ck d f) TB CB l ') TB CB h '  C@ sf" TB CF cd TB   C@ f TB  " TB CF cd C@ g %Cl 
<g& TB CF cl d. TB CF cdCB  g& TB CF ch d. TB CF cdCB   C@ g TB   TB   + Td CB dCCB dc  %d d \(\?Th% TB d       ? uh TB d   %d \(\?h1 TB CCB dc d h, TB CCB dc d  %C@ )i TB   + Td CB dCCB dc  %d d \(\?i% TB d       ? i TB d   %d \(\?	j1 TB CCB dc d =j, TB CCB dc d  %C@ oj TB    %C@  j% T, , E CCB c
Z j T, , E   %C@  k% T- - E C        
Z k T- - E   %C@  [k% T. . E C        
Z tk T. . E  + Td CB dCCB dc  %d \(\?k1 TB CCB dc d !l, TB CCB dc d  %C@ Sl TB    %C@  l% T/ / E CCB c
Z l T/ / E  + TB CB CB % T0 0 E CCB c
Z  %CB  . T* * E  Sonstiges SV-pfl. Entgelt/ T, , E CCa cCa d
Z/ T- - E CCa cCa d
Z/ T. . E CCa cCa d
Z/ T/ / E CCa cCa d
Z T0 0 E  %C@ , T* * E  davon beitragspflichtig% T, , E CCa d
Z% T- - E CCa d
Z% T. . E CCa d
Z% T/ / E CCa d
Z T0 0 E 4 T* * E       daraus SV-Beitrge (AG/AN)
 H<osp CC5@  
o, TB Ca CB d CC5@ o, TB Ca CB d CC5@ 	o TB  % C5@  C5@ 	<p TB   C5@ sp" TB C&F cd + Td CB dCCB dc $ %CB d       ?p1 TB CCB dc d +q, TB CCB dc d  %C@ ]q TB    %C@  q% T, , E CCB c
Z q T, , E  
 Hqr C(@   r& TB Ca e ' CC(@ 5r TB   C(@ yr/ TB Ca e '$ C(@  C(@ r TB   C(@ r" TB C(F cd + Td CB dCCB dc $ %CB d       ?qs1 TB CCB dc d s, TB CCB dc d  %C@ s TB    %C@  t% T- - E CCB c
Z .t T- - E  
 H?tt C)@  zt& TB 
Ca f ' CC)@ t TB 
  CC)@ t TB 
  + Td C
B dCC
B dc $ %CB d       ?eu1 TB 
CC
B dc d u, TB 
CC
B dc d  %C@ u TB 
   %C@  	v% T. . E CC
B c
Z "v T. . E  
 H3vw C'@  uv- TB Ca CB ' CC'@ 	v- TB Ca CB ' C'@ v- TB Ca CB ' C'@ ?w- TB Ca CB ' C'@ mw TB   C'@ w" TB C'F cd CC'@ w TB   + Td CB dCC
B dc $ %CB d       ?]x1 TB CCB dc d x, TB CCB dc d  %C@ x TB    %C@  y% T/ / E CC
B c
Z y T/ / E  A TB CB CB C
B CB % T0 0 E CCB c
Z2 T* * E       daraus AN-Zusatzbeitrge
 Hy| C@  
z TB   TB   C@ ^z& TB Ca l ' TB   C@ z TB  ) TB Ca -C6> C@ {& TB Ca l ') TB Ca -C6> C@ f{ TB  (s.o.) TB   C@ { TB   TB  (s.o.) C@ 4|2 TB CF cffffff?l d: TB CF cffffff?      ?d C@ |& TB Ca l ' TB   + Td CB dCCB dc $ %d CB       ?}1 TB CCB dc d @}, TB CCB dc d  %C@ r} TB   + Td CB dCCB dc $ %d CB       ?}1 TB CCB dc d *~, TB CCB dc d  %C@ \~ TB    %C@  ~% T, , E CCB c
Z ~ T, , E   %C@  ~ T- - E C 
Z  T- - E   %C@  8 T. . E C 
Z Q T. . E   %C@  % T/ / E CCB c
Z  T/ / E  + TB CB CB % T0 0 E CCB c
Z - T* * E  = LAUFENDES NETTOENTGELTJ TB 
CB dCB dCB CB $ T0 0 E CC
B 
Z T, , E  T- - E  T. . E  T/ / E - T* * E  + SONSTIGES NETTOENTGELTJ TB CB dCB dCB CB $ T0 0 E CCB 
Z T, , E  T- - E  T. . E  T/ / E   %CB  7 T	 * = G E S A M T E S  N E T T O E N T G E L T ?& T	  = N E T T O E N T G E L T J TB 
CB dCB dCB CB J TB CB dCB dCB CB , TB C
B CB  T
 CCB 
ZS Tm F + S O N S T I G E  B E Z  G E  bzw. -  S O N S T I G E    A B Z  G E$ %C#F   C#@ 
	 T1 1 CQ [ S ! TB C#F d  T7 7 CCB 
Z  %C&F  - T1 1 CC1     E 6CQ n S ! TB C&F d4 T7 7 CC7     E 6CCB 
Z  %C'F  
 To    %i j  : To   -  PV Ki. CCi j       ?Z % 6 T1 1 CC1     E 6CQ p S   o ! TB C'F d4 T7 7 CC7     E 6CCB 
Z  %C(F  )- T1 1 CC1     E 6CQ q S ! TB C(F d4 T7 7 CC7     E 6CCB 
Z  %CF   %C@ 

9 T1 1 CC1     E 6 - (CQ V S  )" TB CF cd4 T7 7 CC7     E 6CCB 
Z   %C0F   %C0@ 

9 T1 1 CC1     E 6 - (CQ W S ` )" TB C0F cd4 T7 7 CC7     E 6CCB 
Z   C *(,҉ %CC F  
Ή TJ CCC  ZY eb7_text = eb7_text + IIF(EMPTY(eb7_text),"",crlf) + ALLTRIM(myform1.z&xxx..Caption) 
- TB C CC F d9 T7 7 CC7     E 6CCC F d
Z4 IF "(Firmenzahler)" $ myform1.z&xxx..Captionʉ T1 1 CC1     E 6X + ausgleich von AN-Pflegebeitrag da in Firmenzahler enthalten und oben bereits abgezogenE 4 T7 7 CC7     E 6CCB 
Z+ TB CB CB     %C*F  
m- T1 1 CC1     E 6CQ r S ! TB C*F d4 T7 7 CC7     E 6CCB 
Z  C (/ TB CB CC B   %CB CB 1* T1 1 CC1     E 6 keine- T7 7 CC7     E 6C 
Z " T  = A U S Z A H L U N G %Cs t    T  IBAN: Cs u   T  Konto: Cs t   %Cs v    Tw  BIC: Cs x   Tw  BLZ: Cs v  $ T
 
 CCB 
ZE  Ty C W h dummy{  C Fz   [ Fz  #) %C| L ֌ %} a ? eb(!9 Ҍ ? eb(!"9  F    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  ȍ TS 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T    ? eb9.  <  <   Fz  Q
 Fy  <        <  <   <	 
  <  
  <        <        <      ! "  <# $ % & ' ( )  <* + , - . / 0  <1 2 3 4 5 6 7  <8 9 : ;  << = > ?  <   U  EB1_1 EB1_2 EB1_3 EB1_4 EB1_5 EB1_6 EB3_1 EB4_1 EB4_6 EB7_1 EB7_6 EB8_1 EB8_2 EB8_6 EB2_TEXT EB2_W1 EB2_W2 EB2_W3 EB2_W4 EB2_W5 EB2_W6 EB3_TEXT EB3_W1 EB3_W2 EB3_W3 EB3_W4 EB3_W5 EB3_W6 EB4_TEXT EB4_W1 EB4_W2 EB4_W3 EB4_W4 EB4_W5 EB4_W6 EB5_TEXT EB5_W1 EB5_W2 EB5_W3 EB5_W4 EB5_W5 EB5_W6 EB6_TEXT EB6_W1 EB6_W2 EB6_W3 EB6_W4 EB6_W5 EB6_W6 EB7_TEXT EB7_W1 EB7_W2 EB7_W3 EB7_W4 EB7_W5 EB7_W6 EB2_W5_1 EB2_W5_2 EB2_W5_3 EB2_W5_4 EB3_W5_1 EB3_W5_2 EB3_W5_3 EB3_W5_4 ZI TV_FLEX SICHT I J CRLF WERT MSG1 MSG2	 BRUCHZAHL XXX TEIZ TRUE BRUZ LSTZ SOZZ ZVKZ MYFORM1 Z15 CAPTION Z16	 SCHLSSEL Z24 Z47 Z42 Z43 Z44 Z34 Z17 Z18 Z19 LSTRZ Z50 SOZVERSZ WELCHESJAHR FIX HS_REST RVOREIN AVOREIN PVPROZ ZUSATZPV WVW RESERVE5 EFFZAHL ZUSATZKV EB7_2 Z52
 KIANZABZPV Z38 Z39 Z41 WNW KONTO ZIBAN BLZ EB8_3 ZBIC	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ
 HSSERIENDRUCK EB LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER EB_K1 EB_K2b 4   7   J  (     %C F      T C	   T C   T C   T C    (   (! T       T	 C
 C
  T  C
 	  %C3 | T   Faktor	   T  	 Ki.Freib.	  T   Rel.Bek.	  T  	 Str.-Tage	  T   SV-Tage	  T  C 	  %C3 F& T  CC: Z	  ! T  C
   	 ' T  CCC  	  T  C 	  T  C 	  % 

 H C  # T   Str.Freib.mtl.	  C O% T   Hinzur.Betr.mtl.	  C % T   Versorg.Bez.mtl.	  ' T  CCC d
Z	  
 Hw C  % T   Str.Freib.jhrl.	  C ;' T   Hinzur.Betr.jhrl.	  C w' T   Versorg.Bez.jhrl.	    T  CCC 
Z	  %C  %C # T   Str.Freib.mtl.	 ( T  CCC cd
Z	   
 H%" CC5 # T   KV  10-3 EStG	 ' T  CCC; d
Z	 # T   PV  10-3 EStG	 ' T  CCC< d
Z	   %C H %C '
D# T   ZV-pfl.Entgelt	  % O T C'  h T C  # T  CC d
Z	  %C & T   (wegen ATZ * 1.8)	  T  	  4 T   ZV-Umlage (CC Z %)	  % 5 T C  N T C	  # T  CC d
Z	  %C C.  ! T   Zusatzumlage	  %  T C.   T C  # T  CC d
Z	   T   davon:	  T    	  %C+ C  	( T      steuerfrei 3.56	  % 	 %C C+ ' T  CCC d
Z	  	' T  CCC+ d
Z	   	 %C	 C [	' T  CCC	 d
Z	  	' T  CCC d
Z	    ) T      AG verstr.pausch.	  % 	 T C(  	 T C  # T  CC d
Z	  %C  6
 >
 ( T      AN verstr.indiv.	  % 
 T C)  
 T C  # T  CC d
Z	  T C  %C  
  $ T      SV-pflichtig	  % P T C*  i T C  # T  CC d
Z	  T C  %  X6 T  
 ZV-AN-Beitr.(CC Z %)	  %  T C, c 1 T C* c # T  CC d
Z	   %  
 %  ~  ( T      steuerfrei 3.63	  %  '
 %  T C, c  
 T C* c # T  CC d
Z	  V
' T  CC        
Z	   %  
( T C C*   : T  
 ZV-AG-Beitr.(CC  Z %)	  % 
 T C   T C   d # T  CC d
Z	    T  U  X1 EB_K1 EB_K2 COMBOZAHLEN ZI TV_FLEX SICHT I J CRLF REPORT_STKL REPORT_STKL_WERT WERT MYFORM1 Z51 CAPTION ZT28 REPORT_STRTAGE
 REPORT_SVTAGE INDEXM REPORT_STRFREIJHR OP1	 COMBOZAHL VBLZ ZVKUMLAGEAG EFFZAHL ZVKKAPITALAN NR63 TRUE
 ZVKKAPITAL GEFUNDEN 
   z  T  333333@ T    T    T    T     	 
   U 
 DRUCKVORSCHAU I WIDTH COMMAND1 COMMAND2 LEFT	 SSSCROLL1 TOP HEIGHT BLATT CLS
   (*  T      %    (0i  T        (  T     T        ( C      wvw   (F+ T  C   C ) 	 ' T  C   C  	  " T C C 	 " T C C 	 " T 	C	 C 	 " T 
C
 C 	 " T C C  
 Y T C C 	 C 	 C 	 C 	 C! 
 C 
  %C"  " T 
C
 C# 
  " T C C 	 " T C C 
 " T C C 	 " T C C 	  T C    T C  
  T C    %   k+ T C# 	    T CC G % 4 T CC  d{Gz? A( T CC  d & T C C d " T C CB 
 " T C C 
 " T  C  C> 
 " T !C! C# 
 " T "C" C 
 " T #C# C0 
 " T $C$ C+ 
 " T %C% C, 
 " T &C& C- 
 " T 'C' C 
 " T (C( C 	 " T )C) C( 	 " T *C* C) 	 " T +C+ C/ 	 " T ,C, C0 	 " T -C- C 
 " T .C. C 	 " T /C/ C 	 " T 0C0 C 	    T C 	  T C 	  T 	C 	  T 
C 	  T C  
 Q T C 	 C 	 C 	 C 	 C! 
 C 
  %C"   T 
C# 
   T C 	  T C 
  T C 	  T C 	  T    T  
  T    %   	+ T C# 	    T CC G % X	4 T CC  d{Gz? 	( T CC  d  T C d  T CB 
  T C 
  T  C> 
  T !C# 
  T "C 
  T #C0 
  T $C+ 
  T %C, 
  T &C- 
  T 'C 
  T (C 	  T )C( 	  T *C) 	  T +C/ 	  T ,C0 	  T -C 
  T .C 	  T /C 	  T 0C 	   %   	 T  --V [ %  %   T  -VB  W % ; T  -VT S T  VTB    T       @ T @ T 	ffffff@ T 
@ T @ T 
(\? T @ U  I	 COMBOZAHL INDEXM TEILZAHL	 BRUCHZAHL MYGET FILENEU J WVW EFFZ TNAM ZNAM	 PAUSCHLST
 PAUSCHSOLI PAUSCHKISTR WNW ZUMLAGE3 TRUE SICHT
 INSOLVENZGELD HS_REST FIX TEILZEITFAKTOR BRUCHTEILFAKTOR BSP SP  T   %C teilzeit   z h teilzeit  L  C#  C
  C
  C
  C
	  L   teilzeit_rechner
 T    U  OP1
 GIVESELECT TEILZEIT FETT SP_TEXT SP_1 SP_2 SP_3 SP_4 STRICH TEILZEIT_RECHNER]' %     %C teilzeit   z h teilzeit  L  C#  C
  C
  C
  C
	  L  F  %C
  
 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
V F   [ >  CC	 
 ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
' F   [ >  CC
  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
2 F   [$ %C 
 C 
	9 >  CCC= d
Z  CCC  `  >  CC   ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC
  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C	
  
v F   [ >  CC  ! >  CCC	
 
Z! >  CCC	
 
Z! >  CCC	
 
Z! >  CCC	
 
Z [  %C

  
G	 F   [ >  CC  ! >  CCC

 
Z! >  CCC

 
Z! >  CCC

 
Z! >  CCC

 
Z [  %C
  

 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  

 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
l
 F   [ > 	 a [ F   [ >  a >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [ F   [! >   Pro Arbeitsstunde) >  CCC
 C 
Z) >  CCC
 C 
Z) >  CCC
 C 
Z [ F   [ > 	 a [  %C
  
= F   [ >  CC  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC"  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC$  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC%  ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  
 KV-Beitrag! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
P F   [ >  CC'   ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
! F   [ >  CC( ! ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC) " ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  # $ % ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC & ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
_ F   [ >  CC# ' ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
0 F   [ >  CC+ ( ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC+ ( ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  %C
  
 F   [ >  CC- ) ! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z! >  CCC
 
Z [  F   [ > 	 a [ F   [ >  a >  CC. * ! >  CCC 
 
Z! >  CCC 
 
Z! >  CCC 
 
Z [  [! >   Pro Arbeitsstunde) >  CCC 
 C 
Z) >  CCC 
 C 
Z) >  CCC 
 C 
Z [ F   [ > 	 a [ %C!
  
1 F   [ >   Bruttogehalt! >  CCC!
 
Z! >  CCC!
 
Z! >  CCC!
 
Z! >  CCC!
 
Z [  %C"
  
 F   [/ >   + AG-Anteil Krankenversicherung! >  CCC"
 
Z! >  CCC"
 
Z! >  CCC"
 
Z! >  CCC"
 
Z [  %C#
  
 F   [. >   + AG-Anteil Pflegeversicherung! >  CCC#
 
Z! >  CCC#
 
Z! >  CCC#
 
Z! >  CCC#
 
Z [  %C$
  
 F   [- >   + AG-Anteil Renteversicherung! >  CCC$
 
Z! >  CCC$
 
Z! >  CCC$
 
Z! >  CCC$
 
Z [  %C%
  
 F   [- >   + AG-Anteil Arbeitslosenvers.! >  CCC%
 
Z! >  CCC%
 
Z! >  CCC%
 
Z! >  CCC%
 
Z [  %C&
  
 F   [ %C 
+- >   + Umlage an die Pensionskasse `- >   + AG-Anteil an der ATV-Umlage ! >  CCC&
 
Z! >  CCC&
 
Z! >  CCC&
 
Z! >  CCC&
 
Z [  %C'
  
  F   [* >   + AG-Anteil am ATV-Beitrag! >  CCC'
 
Z! >  CCC'
 
Z! >  CCC'
 
Z! >  CCC'
 
Z [  %C(
  
! F   [$ >   + ATV-Sanierungsgeld! >  CCC(
 
Z! >  CCC(
 
Z! >  CCC(
 
Z! >  CCC(
 
Z [  %C)
  
z" F   [! >   + ATZ-Aufstockung! >  CCC)
 
Z! >  CCC)
 
Z! >  CCC)
 
Z! >  CCC)
 
Z [  %C*
  
T# F   [% >   + bernommene Steuern! >  CCC*
 
Z! >  CCC*
 
Z! >  CCC*
 
Z! >  CCC*
 
Z [  %C+
  
4$ F   [+ >   + Sonstiges (Z.25,26,44-46)! >  CCC+
 
Z! >  CCC+
 
Z! >  CCC+
 
Z! >  CCC+
 
Z [  %C,
  
% F   [ T+ 	 + Umlagen %C,  $ T+ +   U1,  %C,  $ T+ +   U2,  %C*,  $ T+ +   U3  >  + ! >  CCC,
 
Z! >  CCC,
 
Z! >  CCC,
 
Z! >  CCC,
 
Z [  F   [ > 	 a [ F   [ >  a$ >   = ARBEITGEBERAUFWAND! >  CCC-
 
Z! >  CCC-
 
Z! >  CCC-
 
Z! >  CCC-
 
Z [ F   [! >   Pro Arbeitsstunde) >  CCC-
 C 
Z) >  CCC-
 C 
Z) >  CCC-
 C 
Z [ F   [ > 	 a [ U-  OP1
 GIVESELECT TEILZEIT FETT SP_TEXT SP_1 SP_2 SP_3 SP_4 STRICH SICHT ZT7 ZI ZT8 ZT9 ZT10 WERT ZT11 ZT12 ZT13 ZT14 ZT15 ZT16 ZT17 ZT18 ZT19 ZT20 ZL ZT24 ZT33 ZT35 ZT36 ZT38 ZT39 ZT40 MYFORM1 Z41 CAPTION ZT26 ZT34 ZT42 ZT44 ZT45 U1BIS3_TEXT EFFZAHL   (E . T    C    d  T       ( ; T  C  C     % T  C d. T  C C0 d% T  C d% T  C d% T  C" d% T  C$ d% T  C% d% T  C& d% T  C' d% T  C( d% T  C) d% T  C* d% T  C d% T  C# d% T  C+ d% T  C, d% T  C- d% T   C. d% T  !C d% T  "C d% T  #C d% T  $C d% T  %C d% T  &C  d% T  'C d% T  (C d %C# % T  )C# d  T #  N T  *C! C C C C C d T  +  %CC( R 1! T  +C   %CC) R 10 T  +C + C0   %CC* R 1%0 T  +C + C+   %CC+ R 1t0 T  +C + C,   %CC, R 10 T  +C + C-  , T  +C + d6 T  ,C C C* d T  -     (+; T  -C - C      U	  I SICHT J	 BRUCHZAHL WERT VBLZ EFFZAHL ZI SCHLSSE    (T = T   C   C       ( 7 T   C   C     %C    T C    T      ('X= T   C   C     %C   T )C)   T )     )(,
= T   C   C     U  I SICHT WERTOLDe
 T   
 T   T C  T C  T C  T C  T C  T C  T C  T C  T C $ %C  C   T #   T   T  T C   
 T  	  T C  T C  T C  T C  T C  T C  T C  T C  T   %C i
 T
   
 T
   T C	  T   
 T
  
 T  	  T C  T C  T C  T C  T C  %C  T   T   T @KL  T @KL   T C  T C  T C  T C   T  T C
   
 T  	    
  ( T 
 C
   T 
 C
    T C  T C  T C	  T C
  T   T    
 T    T   U 
 IMMERFOLGE FALSE TEILZEITFAKTORZ WERT WERTOLD BETRAG ZI
 BERECHNUNG J HOLENBRUCHTEIL WEIHATZ1 TRUE HOLENDIFFERENZ I TEILZAHL	 BRUCHZAHL TEIZ TEIZOLD BRUZ BRUZOLD
 T   
 T   %   M  T   - T   - w  T   a T   a  T  	 
  T CC
  $ %C
  C
   T   
  * T C  
 `  C  
   T   
  T   
  T  Vollzeit T  Teilzeit %C
  T  50 % ATZ T     T     T     T     D T 	 Teilmonat T     T     T     T      T 	 Differenz %C
 s {  %C
    F  G. S G.   [4 >  $ Wochenstunden * 4.348 = Stunden/Mon.* T C   1Zd@1 > ! CCC   1Zd@
Z' T C C  C  . > " CCC C  C  
Z' T C C  C  . > # CCC C  C  
Z [  > $ a [  [ > !  EURO > "  EURO > #  EURO > %  EURO [  > $ a [ U&  OP1 5 MSG MYTEILZEITRECHNER LABEL3 VISIBLE LABEL4 1 MYFORM1 Z20 CAPTION 2 ZT0 ZI 3 Z4 Z2 4 Z5 Z6 7 8 9 BRUCH2 ENABLED FALSE BRUCH3 TRUE 10 TEILZEIT SP_TEXT ZL WERT SP_1 SP_2 SP_3 STRICH SP_4
 7    7   ' 7    	 
   
  J  (    J  (   5 J        (    	 
   
 
 T 5  (  T    
 H  C   T  J A N U A R C D T 
 F E B R U A R C m T  M  R Z C  T 	 A P R I L C  T  M A I C  T  J U N I C  T  J U L I C > T  A U G U S T C q T  S E P T E M B E R C 	 T 
 O K T O B E R C 
 T  N O V E M B E R C  T  D E Z E M B E R 
 T  C T C   C \  C \  C R0 T  # Z  V  K  -  A U F W E N D U N G E N- T  fr den Monat           T C  %C zvk1   F  G. S G.   h zvk1  C#  C
  C
  C
  C
  C
  C
  C
   C
!  C
   (" 6	 C
   wnw#  C     wvw#  %C$ % .	* %C$ &   C$ &  *	< %C$ %  C$ % '
	 C$ &  	&	 F   [' >  CC  Z . ' ( % >  CCC$ & d
Z+ T C CC$ & dT1 >  CCC $ & C$ ) d
Z< T C CC $ & dC$ ) dT+ Cy* + 2C$ %  ATV #  %, -  & >  CCC*$ & cd
Z+ T C CC*$ & dT " >  CC        
Z % >  CCC$ ) d
Z+ T C CC$ ) dT %C$ )   >  CC.  Z % >  CCC$ ) d
Z+ T C CC$ ) dT% >  CCC$ ) d
Z+ T C CC$ ) dT% >   CCC$ & d
Z+ T C CC$ & dT %, /  & > ! CCC*$ & cd
Z+ T 	C	 CC*$ & dT "	" > ! CC        
Z     [ 
 T0   (
	 T1 CC0  Z sum_sp&xxx = colon(1+i - 1)
 T0 0   T
 C d' T C C C  T CCC 
Z T CCC 
Z$ T CCC C	 
Z F  #) +C+
w
 %C  o
   H  #) %C+
" C Keine Daten gefunden!2  <    <   ' <    	 
   
  F  Q B  %C3 4 Z %5 a8 ? zvk1(!9+C+
 V ? zvk1(!"9+C+
   6 7  T6 
 V6 3 T8 C MyInWindowFixer preview_fixer.prg
 6 L T9 
 Druckvorschau T: a T;  T<  T= >  T? @  TA   TB   TC a  C 8 6 D  T7 C ReportListener T7 E  T7 F 6  ? zvk19.7 +C+
 <7  <6   <    <   ' <    	 
   
  F  Q UG  1 2 SUM_UM SUM_SG SUM_KD SUM_SP1 SUM_SP2 SUM_SP3 SUM_SP4 SUM_SP5 SUM_SP6 SUM_SP7 SUM_SP8 SUM_SP9 MYINDEXE I COLON ZI MSG MSG1 WELCHESJAHRC MONATE
 GIVESELECT ZVK1 NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9
 SATZANZAHL MYGET WVW ZNAM TNAM WNW PERSONALFALL EFFZ WELCHESJAHR JAHR1 ATV DATVUMLAGEAN ZVKZU
 DATVKAPITALAN XXXA XXX HINWEIS DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
     U 
 ZVKDRUCKENa 7    7   ' 7    	 
   
  J  (    J  (   5 J        (    	 
   
 
 T 6  (  T    
 T  C T C   C \  C \  C R8 T  ' Z  V  K  -  A U F W E N D U N G E N     ! T  fr   C     %C zvk1   F  G. S G.  _ h zvk1  C#  C
  C
  C
  C
  C
  C
   C
!  C
"  C
   ( C   $  wvw#  %C% & w* %C% '   C% '  s F   [
 H   T(  J A N U A R  E T( 
 F E B R U A R  j T(  M  R Z   T( 	 A P R I L   T(  M A I   T(  J U N I   T(  J U L I  ' T(  A U G U S T  	V T(  S E P T E M B E R  
 T( 
 O K T O B E R   T(  N O V E M B E R   T(  D E Z E M B E R  >  ( % >  CCC% ' d
Z+ T C CC% ' dT1 >  CCC % ' C% ) d
Z< T C CC % ' dC% ) dT+ Cy* + 2C% &  ATV #  %, -  <& >  CCC*% ' cd
Z+ T C CC*% ' dT f" >  CC        
Z % >  CCC% ) d
Z+ T C CC% ) dT %C% )   >  CC. 
Z % >  CCC% ) d
Z+ T C CC% ) dT% >   CCC% ) d
Z+ T C CC% ) dT% > ! CCC% ' d
Z+ T C CC% ' dT %, /  E& > " CCC*% ' cd
Z+ T 	C	 CC*% ' dT o" > " CC        
Z    [ 
 T0   (
 T1 CC0  Z sum_sp&xxx = colon(1+i - 1)
 T0 0   T
 C d' T C C C  T CCC 
Z T CCC 
Z$ T CCC C	 
Z F  #) +C+
	 %C  	   H  #) %C+F
! C Keine Daten gefnden!2  <    <   ' <    	 
   
  F  Q B  %C3 4 
 %5 a
 ? zvk1(!9+C+
 
 ? zvk1(!"9+C+
   6 7  T6 
 V6 3 T8 C MyInWindowFixer preview_fixer.prg
 6  T 
 Druckvorschau T9 a T:  T;  T< =  T> ?  T@   TA   TB a  C 8 6 C  T7 C ReportListener T7 D  T7 E 6  ? zvk19.7 +C+
 <7  <6   <    <   ' <    	 
   
  F  Q UF  1 2 SUM_UM SUM_SG SUM_KD SUM_SP1 SUM_SP2 SUM_SP3 SUM_SP4 SUM_SP5 SUM_SP6 SUM_SP7 SUM_SP8 SUM_SP9 MYINDEXE I COLON MSG1 WELCHESJAHRC UCASE MYFORM1 Z0 CAPTION
 GIVESELECT ZVK1 NAME SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 MYGET FILENEU WVW ZNAM TNAM MSG EFFZ WELCHESJAHR JAHR1 ATV DATVUMLAGEAN ZVKZU
 DATVKAPITALAN XXXA XXX HINWEIS DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER
     U  ZVKJAHRDRUCKEN  B U  
     U  ANLAGE9
 H
 2   %      =      U    C  
q                  '      (      )  	    * 
    +     ,1     -I 
    1a     2r   3     5     6     7 	    8     9     <     =2    U  MYINDEXE
 BRUTTODRUCKEN BRUTTONETTO
 BRUTTONETTOAG	 ZVKLSTSOZ TEILZEIT
 BESCHEINIGUNG
 AG_BERSICHT2 ANSICHT AGSICHT FLEXTV LSTRNACHWEISDRUCKEN JAHRESLOHNSTEUERNACHWEIS LOHNSTEUERBESCHEINIGUNGDRUCKEN KONTROLLEDRUCKEN2 BUNDESKNAPPSCHAFT
 ZVKDRUCKEN ZVKJAHRDRUCKEN DRUCKSTUFENLAUFZEIT BEITRAGSJAHRESNACHWEIS ARBEITSZEITDRUCK
 ZEITERFASSUNGy %  r T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T C	  T C
  T   T	 
   
 T 
  T    U  MYINDEXE WERT WERTOLD BETRAG ZI TEILZAHL	 BRUCHZAHL TEIZ TEIZOLD BRUZ BRUZOLD
 BERECHNUNG
 IMMERFOLGE TRUE  %  
     U  KEYASCII
 EFFEKTIVSTART beitragsjahr,      kontrolledrucken2R      arbeitszeitdruck     zeiterfassung_druckv    
 zeiterfassung     beitragsjahresnachweism&     bundesknappschafteH     BundesknappschaftvorspannY     jahreslohnsteuerY     kassedruckenZ     kassedruckenvorspann>}     lohnsteuerbescheinigungZ}     lohnsteuerbescheinigungdrucken}     LStrNachweisU     lstrnachweisdruckenx     jahreslohnsteuernachweis     agsicht    
 AG_bersicht2    ansicht,   
 anlagedrucken\    druckstufenlaufzeit3]    abzgeo    anlage   
 bescheinigungb    Brutto   	 AGAufwand    abrechnung1_vars    abrechnung2_vars    abrechnung3_vars   
 bruttodrucken    bruttonetto   
 bruttonettoAGt     schlsselauswertenbrutto$    FlexTV%   
 abrechnung,    Kopf    scrollbalkenj    combozahlenF    teilzeitE    teilzeitrechnerv    holenbruchteil    holendifferenz   
 spaltenfllen    teilzeitrechnerkopf   
 zvkdrucken    ZVKdruckenvorspann+.    zvkjahrdruckenE.    ZVKJahrdruckenvorspann=    druckschleifeneu,=   	 ZVKlstsoz7=    Command1_ClickM=    Command2_Click@    effektiv_keyPressB   : q 4 Q r Q  R    5  1 1q QQ r Sq A rqA A  Pa     Qq2r1!A A A cq1!A $pQY A W A 768;666664   Qa A  A  A A B B  1 1q 3 !q Q  ! 1A     2         A r Q br q A 3  1 1q q QQ s Sq A rqA A p     Qq2r1!A A A cq1!A $ 1333@         2q1q qA I 4r1B  qq%11b11A RA  qr%11b11A RA  qr%11b11A RA  qr%11b11A RA u51c11R111TA B ;1R11R11R   Qa A  A  A A B  1 1q q 4  1qQQQQQQQQ qqA qqA A pE	! A q a A a  A rq Q A #AA  !qqqA  A  !A TWaUa"e %&B e QUae %&B e"%%%A  Uae %a%A WaeWaUaB!A A  A A !aA A  qrqA a q EE&|1))*))*)z Q  !A A A A Q  ! 1qq A A " ! 1A     2         A cr q A r A  1q4  Q @qqA @ QQQAQaQ!QAQAQQQQQA  13Pq a A a  q
A Rqq Q A q1tT!T!!T!!R!!B S!!b!!A T!!R!!B!A A  A aa"A A A zA  q Q  !A A A A Q   q A A A ! A QA     2         A r q A  q A 3  3  3  111qQQQQQQ  QQQAQaQ!QAQAQQQQQA  1S
!A  q a A a  A rqA rqA A rq Q A sr 3"AA  !qqqA  A  !A TaRa"b "#B b QRab "#B b!"""A Rab "a"A TabTaRaB!A A  A  AA q A A  qrqA bq D$B##B#){$aA r Q  !A A A A Q !  !A     2         A Sr q A  11qq A 3  3  3 1 Q r   `  Q"QA 4#$P QQQQQQ!QQQQA  fSSX1 yCQA ys3sssSsssC4C#S3Ccc#Q A CCS A A A IAB A  bA  q Q A r Q "  A     2         A r q A q A  2 6  q 3           QQQQQQQQQ  vqA 0A  QQQAQaQ!QAQAQQQQQA  Qq a A a  A r   A  qq Q A # #!A &! q111q111qq11q1q111A $$$CB q111q111qq11q1q111A $$$S! #B A A A 1qqqq{rrx Q  !A A A A Q  !          q A A A !  A     2         A #r q A           q A 3          RQQQQQQQrqA    QaaQaaQaaQaaQaaQaaQaaB wqA 0A  Y Q"q a A a  A Rr   A  q Q A  1A!1aAQQA d!# #!A &! q1qqq111A $$CC q1qqq111A $%S! #B A A Q            aaaaaaaaaaA A Q                     Q1QqQQ1qQ1QqQ  A  Q       A  Q       A y Q  !A A A A Q  !         r A A "  A     2         A #r q A          r A 3     q1111111111111! A    q qs1`Q A  qA QtrA  QA QurqA  1A SrrAA SqraA SqraA SqraA vRA RA RA RA B2 1A RA RA RA RA RA RA RA RA RA rrA  qrA A E F rqrA B A 2qrA B rqrA B BqrA B qrA B qrq1A A A A B "qrA B rqrA B qrA B A v2! 1A  1A  A rrA B 2qrA B 2qrA B 2qrA B 2 QQQQQQ A QA RqrA B 2RqrA B 2RqrA B 2BqrA B 2"qrA B 2BqrA B 3qrA B 2qrQA B 2qrA B 2qrA B 2qrA B 2qrA B 22qrA B qr1A B "qrA B B A   R1  aA  A A B A  q Q A r Q "  A     2         A Er q A r A   q1111111111111p&1     QQQQQQQQQQR 1 A aQq!aAr  q1A A q1A A A r2 A r q1A A r  q1A A q1A A A #  A     2         A  q Q A r Q Br q r A  A  4 q  q  Q! A    q  qs1p A  qA QtrA  QA QurqA  1A SrrAA SrraA SqraA SqraA vRA RA RA RA B2 1A RA RA RA RA RA RA RA RA RA rrA  qrA A E F rqrA B A 2qrA B rqrA B BqrA B qrA B qrq1A A A A B "qrA B rqrA B qrA B A qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B qrA B Iqr1A A   R1  aA  A A B A #  A     2         A  q Q A r Q Br q q A  A r 4 A A ~ p1 p qq! A  A A rq  q  r6 Qq A rqs qsB B qs qsB B A  Zr B r! !B qqsQ B  C  C QD A   Q QQQQqQQQQQQQQQQQQQA aaQA p q Q A r Q rQ QA r A  2q q 01 q Q          1R Q A A  QQQQQA a2 B 4rqa21 A qa21 A qa21 A QrrrA d Qr A Rs A RA  !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA T !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA d AA  !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA TAR !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1r b !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q  !Q Q!Q Q!Q Q!Q Q!Q QA B  A 2rA A c !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA c !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA c !Q  !Q Q!Q Q!Q Q!Q Q!Q QA  Q Q QA  A 1rA cC A rA rsa1   A c   A c   A A A fdr A a A  3BrqqqQrrrA d Qq A Qr A QA rrA d AA rrA crrA crrA crrA cRCrQr rA rQr rA  rrA A bC2 1A rA rrb1A A fcr A a A F  3 q qQ	Q	Q	Q	2		1		t  :4 A t #qqAQA  qqAQA A rpA s  q  sqAQs rA A s    s yAQcA A CC3" A 4" A vA SSSAAAAABAAAA q Q A r Q  "  A     2         A r q A t A  r1	1	 3 s q 7         Qq\ ASSSS bA ASSS RA ASSS bA ATA  AR  A AR  A AR  A A A  AR A AR A AR  A A A  A#I QQQA GQ  "A G     A Fs rA A  EA uQ Qr!QR	ra qA A   Ar!QrA B  rQ !A  !A A  AAAAA s!s!s! As!s!As!As!As1A A A A R "A  "A  AA a2   A c   A c   A cA c2   A c   A c   A cA A P qR Qr!QrA   QrQrA A  rA A A A R "A  "A a2A c2A A A q6 q  1   QrQA trQ   A c   A c   A A srQ   A c   A c   A A ts   A c   A c   A A A A f QUq AA  R AA A QR aA QA rQA "Rab 2A A  aaA A A  !!A bS A  rA tQA bRAB D BA A  A A A sQA bRD BA  A sQA d A QBQA BA rQA C3rQA csQA csQA TD A sQA SCB A rQA DQ!A A rQA A 1cD 1 q  q1q1    QQ q1q1    A 4 q  q1q1   Q q1q1   A 4 q  q1q1      QQ q1q1      A 4  q q q  q Q A r Q " 1 AA     2         A tr q A r A   3  q q q q  q Q A r Q " 1 AA     2       A sr q A r A   3   q q q q  q  q Q A r Q " 1 AA     2         A sr q A  r A   3    "A ! "A ! "A 3 S Aq  A A A BbA " q Q A r Q "    2         A  q Q A r Q Rr q A s A  1 q    11 QQQQQQQRq A rqA A RTSRc bA  A  A RA t         A brQ A  A bR A bR A cb bA cb bA cb bA ceB A TuRR A RR A Sb bA Rb bA Rb bA cUB RURR A RR A Sb bA Rb bA Rb bA cUB  !U bbbA  bbbA  bbbA  1bT1bTB A B  1U bbbA  bbbA  bbbA  1bT1bUB A B U bbbA  bbbA  bbbA cUC A U bbbA  bbbA  bbbA cUC A U bbbA  bbbA  bbbA cUC A SkaaaSB R#jaaaeaaaB RkaaafB HeaaaTURR A RR A Rb bA Rb bA Rb bA cTB RURR A RR A Rb bA Rb bA Rb bA cTB RURR A RR A Rb bA Rb bA Rb bA cTB U bbbA  bbbA  bbbA  1bRAbSB D U bbbA  bbbA  bbbA  1bAbA TC U bbbA  bbbA  bbbA dSB A U bbbA  bbbA  bbbA cSB A U bbbA  bbbA  bbbA cSB A RdaaaB A FVaaaaA 0QE$$$T TTT1A T"dddvEQB A 0 BUA !aA !aA A A q A EDTF4 !QQ!A Q A  A QA R" RA  Q!Q !a A !a A A D!QA Q A  A QA TU A  Qa!A Q A  A QA TU A  A  QQQQQ!!A Q A  A QA TU A T)D A   A A  QQa A Qa A Qaa A Q!Q!Qa aA RA Q A  A QA Q A  A QA SU A TU A TU A  A QA TU A WA RUTTTG QQ!A A A QA RU A  QaQBQ!A A A QA RU A  QaA A A QA RU A  QQQQQ!A A A QA RU A T& RQaQQaQQQ!QaB A A QA A A QA SU A T A T A TU A TA  DDB r bA 8BB RDB R AA aDB RDB RR"DB A RR"DB A tuAAA B A SDB rA C *c A a A B q Q A r Q "  A     2         A r q A r A  q    11 3 q  t Rq A rqA A Q`aRA aQdA ta@a$ Q2QRQRA rA  QRQrQrA  RQ3B A  !4s4sA Ra3 A 2QcA G A 2 A 2A ar rA  r rA A A  A 2S B  A 2S B B A 2c! !A 2A  B ! !A 2 rA A C  A 2A A 14  Q A 3 r1A s2B r21A rqqA !!!!!!A #!!!A!B A aA !!!!!!!!!!!!!!!!!!!B  A aaaA!B A A C   A   A A A 3  A  3 (B A r q Q A A A q Q A A A q Q A A A q Q A A A q Q A B A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A t Q A  A s Q A  A s Q A A t Q A  A D q Q A A A  q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A gA A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A B s Q A  A t Q A  A W A A s Q A  A q Q A A A q Q A A A q Q A A A q Q A A A q Q A A A q Q A R A A A q Q A A A q Q A GA A q Q A A A q Q A WA A q Q A A A q Q A cQRA RRA RBA A A v Q A  A y Q A  AA w Q A A s Q A  A ; rA qA QQQRQQQQQQQQQQQQRRQQQQQQQQQ 2A A A A A A bqA 4 sA qqA Q A rA R A sA 4   rqqqqqqqrA1A 21qq  q tqqqqqqq1Q A  q1q   q sqqqqQbaaa qqqqA 2qq  q r sB qrqq41s  14  p  B :B2 A 43TRSR1111 b1111A b] H \ H ~ a A a R A BqqG Q  A V A AAAAA Q  A 9   qQQ qqA P QQQAQaQ!QAQAQQQQQA  1`Qq a A a  1
A rqr Q A rSAb "A TA STVCc "A A A A A A  qqA RpqDs Q  !A A A A Q  !  qq A A A " Q aA     2         A r q A   qq A 3  3   qQQ qqA @ 1`q a A a  1
A sq Q A  Aa!AAA TAb "A TA STUCc "A A A A A   qqA RPqDs Q  !A A A A Q    qq A A A ! Q aA     2         A r q A   qq A 3  3 A 1 r =  q q q Qq q q q q q q q q q q q q q q q q q q B 5 rqqqqqqqqqqq11q  1A 6 r A 1                    	    
      I  o           T7  :   ~   7  ;       8<  |    x  |          5 }  /  6 7   1  7 C9   3  9    Q  F    S      U   &   I  ' (   L  )        c    H l   	  * q   s
   C3 4  2  k3 j5 O  9  8 q z    t ) J    0* l "  S  -l l #  V  #m / #     6& &    _& , ~(    , 3 (    +3 S; (  #  ; B (  Q  KB G 2)  ~  G M m)    M N )    N <Y )  
  + < +    K=  6    ۘ u 9     P 9  1  q  ]:  8  _ ag	 k:  R  g	 r	 =    /r	 t	 ?>    t	 /|	 a>    |	 6	 >  7  	 	 ?    	 0	 @    	 f	 @  x  	 	 9B  z  n	 ! 
 KB  }  C 
  
 gB    
 
 vB    
 
 B    S	
 	
 B  0	   H                    FELD1      C                  
                                                                                                                                                                                                                                                                        10+   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5CK0MPQP01299600532 1 53           1.000 5000.000 1000.000111900.00            F    T              0    0                                        0 10   10T1212FFFTF00F           T    F T               1TFF0 0F         WINDOWS _5CK0MPQP21299600532 9  1                          11146.000    0.000                                                                                             FFF  00F  FFF           F                  FFF0 0F         WINDOWS _5CK0MPQP31299600532 9  4                           2917.000    0.000                                                                                             FFF  00F  FFF           F                  FFF0 0F         WINDOWS _5CK0MPQP41299600532 9  7                           3021.000    0.000                                                                                             FFF  00F  FFF           F                  FFF0 0F         WINDOWS _5CK0MPQP51299600532 6  0         2604.167  208.333  416.66792083.333            F    F             -1   -1   -1   -1   -1   -1    4    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _5CK0MPQP61299600532 5  0        3437.500  729.167 2395.83310729.167            F    F             -1   -1   -1   -1   -1   -1    0    0    0     1 14  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 0  1FTF3 0F         WINDOWS _5CK0MPQP71299600532 8  0        5937.500  625.000 1666.667 6979.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     2  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  1FTF3 0F         WINDOWS _5CK0MPQP81299600532 6  0         8020.833  208.333  416.66792083.333            F    F             -1   -1   -1   -1   -1   -1    4    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _5CK0MPQP91299600532 7  4        13229.167  208.333 2812.50091458.333            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FTFTF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FTF3 0F         WINDOWS _5CK0MPQPA1299600532 5  0        8645.833 2187.500 1562.500 2708.333                               -1   -1   -1    0    0    0                    1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPB1299600532 8  0       13750.000 1041.667 1666.667 4166.667                   N           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1FTF3 0F         WINDOWS _5CK0MPQPC1299600532 6  0        13333.333 5833.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MPQPD1299600532 5  0        8645.83310729.167 1562.500 1354.167                               -1   -1   -1    0    0    0                    1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPE1299600532 8  0       13750.000 7083.333 1666.667 5104.167                  N           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1FTF3 0F         WINDOWS _5CK0MPQPF1299600532 6  0        13333.33314062.500 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MPQPG1299600532 5  0        8645.83315625.000 1562.500 5520.833                               -1   -1   -1    0    0    0                    1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPH1299600532 8  0       13750.00015416.667 1666.66729687.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF00T 0     0  2T         0  0    0 1  1FTF3 6F         WINDOWS _5CK0MPQPI1299600532 6  0        13333.33346250.000 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MPQPJ1299600532 5  0         8645.83347708.333 1562.500 5729.167                               -1   -1   -1    0    0    0               !     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPK1299600532 8  0    "   13750.00048333.333 1666.667 4166.667    #              N           -1   -1   -1   -1   -1   -1               $     0  8  1       FFFTF00T 0     0  2T         1  0    0 1  1FTF3 6F         WINDOWS _5CK0MPQPL1299600532 6  0        13333.33354375.000 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MPQPM1299600532 5  0    %    8645.83355833.333 1562.500 6770.833                               -1   -1   -1    0    0    0               &     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPN1299600532 8  0    '   13750.00056875.000 1666.667 4166.667    (              N           -1   -1   -1   -1   -1   -1               )     0  8  1       FFFTF00T 0     0  2T         1  0    0 1  1FTF3 6F         WINDOWS _5CK0MPQPO1299600532 6  0        13333.33363541.667 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MPQPP1299600532 5  0    *    8645.83365104.167 1562.500 3958.333                               -1   -1   -1    0    0    0               +     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPQ1299600532 8  0    ,   13750.00064791.667 1666.667 4166.667    -              N           -1   -1   -1   -1   -1   -1               .     0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1FTF3 6F/        WINDOWS _5CK0MPQPR1299600532 5  0    0    8645.83375000.000 1562.500 1562.500                               -1   -1   -1    0    0    0               1     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPS1299600532 8  0    2   13750.00073333.333 1666.667 4166.667    3              N           -1   -1   -1   -1   -1   -1               4     0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1FTF3 6F5        WINDOWS _5CK0MPQPT1299600532 5  0    6    8645.83381562.500 1562.500 1562.500                               -1   -1   -1    0    0    0               7     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPU1299600532 8  0    8   13750.00079895.833 1666.667 4166.667    9              N           -1   -1   -1   -1   -1   -1               :     0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1FTF3 6F;        WINDOWS _5CK0MPQPV1299600532 5  0    <    8645.83388020.833 1562.500 1562.500                               -1   -1   -1    0    0    0               =     1  9  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _5CK0MPQPW1299600532 8  0    >   13750.00086458.333 1666.667 4166.667    ?              N           -1   -1   -1   -1   -1   -1               @     0  8  1 0     FFFTF00T 0     0  2T         1  0    0 1  1TTF3 6FA        WINDOWS _5CK0MPQPX1299600532 6  0        10416.667  208.333  416.66792083.333            F    F             -1   -1   -1   -1   -1   -1    4    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _5CK0MSWSL1299600587 6  0        13333.33371770.833 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MT7591299600593 6  0        13333.33378750.000 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS _5CK0MTEE41299600598 6  0        13333.33385208.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8    0         0  0       FTFTF00F                     0             FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   B     0 10                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                   C     1 14                                                     F               WINDOWS                     23              14.000    5.000   11.000   21.000                                3    0                                   D     2  8                                                     F               WINDOWS                     23              15.000    6.000   12.000   32.000                                3    0                                   E     1  9                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   F     0  8                                                     F               WINDOWS                     25   G   H                                                        F                                                                                                                      F               WINDOWS                     26   J   K                                                                                                                                                                               F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         "GKV LISTE"                                                   Arial                                                         DATE()                                                        Arial                                                         "Jahr"                                                        Arial                                                         JAHR                                                          Arial                                                         "Nr"                                                          Arial                                                         NR                                                            "9999"                                                        Arial                                                         	"Gkvname"                                                     Arial                                                         GKVNAME                                                       Arial                                                         
"Satznorm"                                                    Arial                                                         SATZNORM                                                      "99.99"                                                       Arial                                                         "Satzminder"                                                  Arial                                                         
SATZMINDER                                                    "99.99"                                                       Arial                                                         "Zusatz"                                                      Arial                                                         ZUSATZ                                                        "99.99"                                                       Arial                                                         
zusatz > 0                                                    "U1"                                                          Arial                                                         U1                                                            "99.99"                                                       Arial                                                         u1 > 0                                                        "U2"                                                          Arial                                                         U2                                                            "99.99"                                                       Arial                                                         u2 > 0                                                        "U3"                                                          Arial                                                         U3                                                            "99.99"                                                       Arial                                                         u3 > 0                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               cursor                                                        EAlias = "gkv_liste"
CursorSource = gkv-liste.dbf
Name = "cursor1"
                                                         DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         "GKV LISTE"                                                   Arial                                                         DATE()                                                        Arial                                                         "Jahr"                                                        Arial                                                         JAHR                                                          Arial                                                         "Nr"                                                          Arial                                                         NR                                                            "9999"                                                        Arial                                                         	"Gkvname"                                                     Arial                                                         GKVNAME                                                       Arial                                                         
"Satznorm"                                                    Arial                                                         SATZNORM                                                      "99.99"                                                       Arial                                                         "Satzminder"                                                  Arial                                                         
SATZMINDER                                                    "99.99"                                                       Arial                                                         "Zusatz"                                                      Arial                                                         ZUSATZ                                                        "99.99"                                                       Arial                                                         
zusatz > 0                                                    "U1"                                                          Arial                                                         U1                                                            "99.99"                                                       Arial                                                         u1 > 0                                                        "U2"                                                          Arial                                                         U2                                                            "99.99"                                                       Arial                                                         u2 > 0                                                        "U3"                                                          Arial                                                         U3                                                            "99.99"                                                       Arial                                                         u3 > 0                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               cursor                                                        ^Alias = "gkv_liste"
CursorSource = ..\..\..\..\..\pc-gehalt\gkv-liste.dbf
Name = "cursor1"
                          0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5K80YGP751326940307      /  F      ]                                                       WINDOWS _5K80YGP761522686225                                                                     WINDOWS _5K80YGP771326940307          )  6                                                       WINDOWS _5K80YGP781394102347	      	  	  	  	      G
  (                                               WINDOWS _5K80YGP791399423850            
      i
                                                 WINDOWS _5K80YGP7A1326940307g      t                                                                 WINDOWS _5K80YGP7B1389781668       0  @  P  ]                                                           WINDOWS _5K80YGP7C1522686225                  P  HR                                               WINDOWS _5T80L01VW1389786053Y  i                                                                   COMMENT RESERVED                                @                                                            i                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 2
Height = 146
Width = 287
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Fallgruppe"
ControlBox = .F.
ClipControls = .T.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS cap_tion

myfallgruppen = thisform

this.Caption = cap_tion
thisform.eingabe.Value = ALLTRIM(wvw.Entgeltcode)
thisform.command3.setfocus


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     _    F  F                           %                          U    C     U  THISFORM SIZER	 FRMRESIZE  4  
 T   T     T   C  
  	 
 
     T 
  
   T     
    T  a U  CAP_TION
 MYFALLGRUPPEN THISFORM THIS CAPTION EINGABE VALUE WVW ENTGELTCODE COMMAND3 SETFOCUS SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 q    rq  1                       ,         G         )   F                        
commandbutton      
commandbutton      Command1      FORM1      XTop = 6
Left = 11
Height = 25
Width = 264
Caption = "abbrechen"
Name = "Command1"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      Command2      FORM1      ]Top = 31
Left = 11
Height = 25
Width = 264
Caption = "Erluterungen"
Name = "Command2"
      PROCEDURE Click
myLink = 0
Do Case && zi(1+4)
	Case zi(1+4) = 10
		inet = "131"
		Msg = "Entgeltordnung-Bund/Anleitung"

	Case zi(1+4) = 11
		inet = 183
		Msg = "Anleitung"
Endcase
DO insinternet
ENDPROC
         s  s                        }   %         *                 U   
 T   
 H   C 
i  T  131* T  Entgeltordnung-Bund/Anleitung C  
 T  T 	 Anleitung    U  MYLINK ZI INET MSG INSINTERNET Click,     1   QR aA q 1                              )   s                        
commandbutton      
commandbutton      Command3      FORM1      ^Top = 57
Left = 11
Height = 25
Width = 264
Caption = "Entgeltordnung"
Name = "Command3"
     PROCEDURE Click

myLink = 0
Do Case && zi(1+4)
	Case zi(1+4) = 10
		inet = "131"
		Msg = "Entgeltordnung-Bund/1-00-00-15"

	Case zi(1+4) = 11
		inet = "183"
		Do Case && zi(1+4)
			Case zi(1+4) = 11
				Msg = "1-00-00-15"
			Case zi(1+4) = 17
				Msg = "4-01-01-15"
		ENDCASE
	CASE zi(1+4) = 12 .or. zi(1+4) = 15
		inet = "001"
		msg = "ego_vka_final.pdf#page=13"
Endcase
DO insinternet
ENDPROC
     M    4  4                        k   %                          U  `
 T   
 H R C 
j  T  131+ T  Entgeltordnung-Bund/1-00-00-15 C   T  183
 H   C   T 
 1-00-00-15 C   T 
 4-01-01-15 $ C  C R T  001& T  ego_vka_final.pdf#page=13    U  MYLINK ZI INET MSG INSINTERNET Click,     1   QR QqQqA AaA q 1                             )   4                        label      label      Label1      FORM1      |Caption = "Hier den Schlssel der Fallgruppe reinkopieren"
Height = 15
Left = 11
Top = 90
Width = 264
Name = "Label1"
      checkbox      checkbox      weiblich      FORM1      gTop = 115
Left = 11
Height = 25
Width = 72
Alignment = 0
Caption = "weiblich"
Name = "weiblich"
      textbox      textbox      Eingabe      FORM1      BHeight = 25
Left = 86
Top = 115
Width = 187
Name = "Eingabe"
     >PROCEDURE GotFocus
hslastkey = 0
ENDPROC
PROCEDURE Valid
hslastkey = LASTKEY()
IF EMPTY(this.Value)
	RETURN .t.
endif
 
If hslastkey = 13 .or. hslastkey = 9
	i = 0
	If Substr(Thisform.Eingabe.Value, 2, 1) = "-"
		i = 1
	Endif

	If Substr(Thisform.Eingabe.Value, 5, 1) = "-"
		i = i + 1
	Endif

	If Substr(Thisform.Eingabe.Value, 8, 1) = "-"
		i = i + 1
	Endif

	If i = 3


		myclose("#99")

		&&J= startzeile in der EGO-Datei K= Endzeile in der EGO-Datei (hat er als Indexersatz programmiert)

		Do Case && zi(1+4)
			Case zi(1+4) = 10 &&Bund
				myopen(eigdat + "\Texte\ego_Bund" , 99 ,"Bundstring")

				Msg = Leftc(Alltrim(Thisform.Eingabe.Value), 13)
				Do Case && leftc(Msg, 1)
					Case VAL(Leftc(Msg, 1)) = 1
						j = 1
						k = 24
					Case VAL(Leftc(Msg, 1)) = 2
						j = 25
						k = 33

					Case VAL(Leftc(Msg, 1)) = 3
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 34
								k = 35
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 36
								k = 48
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 49
								k = 55
							Case Val(Substr(Msg, 3, 2)) = 4
								j = 56
								k = 58
							Case Val(Substr(Msg, 3, 2)) = 5
								j = 59
								k = 64
							Case Val(Substr(Msg, 3, 2)) = 6
								j = 65
								k = 67
							Case Val(Substr(Msg, 3, 2)) = 7
								j = 68
								k = 69
							Case Val(Substr(Msg, 3, 2)) = 8
								j = 70
								k = 76
							Case Val(Substr(Msg, 3, 2)) = 9
								j = 77
								k = 78
							Case Val(Substr(Msg, 3, 2)) = 10
								j = 79
								k = 86
							Case Val(Substr(Msg, 3, 2)) = 11
								j = 87
								k = 94
							Case Val(Substr(Msg, 3, 2)) = 12
								j = 95
								k = 98
							Case Val(Substr(Msg, 3, 2)) = 13
								j = 99
								k = 103
							Case Val(Substr(Msg, 3, 2)) = 14
								j = 104
								k = 111
							Case Val(Substr(Msg, 3, 2)) = 15
								j = 112
								k = 114
							Case Val(Substr(Msg, 3, 2)) = 16
								j = 115
								k = 179
							Case Val(Substr(Msg, 3, 2)) = 17
								j = 180
								k = 189
							Case Val(Substr(Msg, 3, 2)) = 18
								j = 190
								k = 195
							Case Val(Substr(Msg, 3, 2)) = 19
								j = 196
								k = 203
							Case Val(Substr(Msg, 3, 2)) = 20
								j = 204
								k = 217
							Case Val(Substr(Msg, 3, 2)) = 21
								j = 218
								k = 315
							Case Val(Substr(Msg, 3, 2)) = 22
								j = 316
								k = 316
							Case Val(Substr(Msg, 3, 2)) = 23
								j = 317
								k = 318
							Case Val(Substr(Msg, 3, 2)) = 24
								j = 319
								k = 331
							Case Val(Substr(Msg, 3, 2)) = 25
								j = 332
								k = 343
							Case Val(Substr(Msg, 3, 2)) = 26
								j = 344
								k = 346
							Case Val(Substr(Msg, 3, 2)) = 27
								j = 347
								k = 370
							Case Val(Substr(Msg, 3, 2)) = 28
								j = 371
								k = 394
							Case Val(Substr(Msg, 3, 2)) = 29
								j = 395
								k = 396
							Case Val(Substr(Msg, 3, 2)) = 30
								j = 397
								k = 401
							Case Val(Substr(Msg, 3, 2)) = 31
								j = 402
								k = 408
							Case Val(Substr(Msg, 3, 2)) = 32
								j = 409
								k = 412
							Case Val(Substr(Msg, 3, 2)) = 33
								j = 413
								k = 414
							Case Val(Substr(Msg, 3, 2)) = 34
								j = 415
								k = 423
							Case Val(Substr(Msg, 3, 2)) = 35
								j = 424
								k = 428
							Case Val(Substr(Msg, 3, 2)) = 36
								j = 429
								k = 445
							Case Val(Substr(Msg, 3, 2)) = 37
								j = 446
								k = 447
							Case Val(Substr(Msg, 3, 2)) = 38
								j = 448
								k = 455
							Case Val(Substr(Msg, 3, 2)) = 39
								j = 456
								k = 459
							Case Val(Substr(Msg, 3, 2)) = 40
								j = 460
								k = 467
							Case Val(Substr(Msg, 3, 2)) = 41
								j = 468
								k = 470
							Case Val(Substr(Msg, 3, 2)) = 42
								j = 471
								k = 474
							Case Val(Substr(Msg, 3, 2)) = 43
								j = 475
								k = 477
							Case Val(Substr(Msg, 3, 2)) = 44
								j = 478
								k = 484
							Case Val(Substr(Msg, 3, 2)) = 45
								j = 485
								k = 493
							Case Val(Substr(Msg, 3, 2)) = 46
								j = 494
								k = 495
							Case Val(Substr(Msg, 3, 2)) = 47
								j = 496
								k = 498
							Case Val(Substr(Msg, 3, 2)) = 48
								j = 499
								k = 504
						Endcase
					Case VAL(Leftc(Msg, 1)) = 4
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 505
								k = 521
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 522
								k = 539
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 540
								k = 553
							Case Val(Substr(Msg, 3, 2)) = 4
								j = 554
								k = 555
							Case Val(Substr(Msg, 3, 2)) = 5
								j = 556
								k = 558
							Case Val(Substr(Msg, 3, 2)) = 6
								j = 559
								k = 577
							Case Val(Substr(Msg, 3, 2)) = 7
								j = 578
								k = 583
							Case Val(Substr(Msg, 3, 2)) = 8
								j = 584
								k = 589
							Case Val(Substr(Msg, 3, 2)) = 9
								j = 590
								k = 642
							Case Val(Substr(Msg, 3, 2)) = 10
								j = 643
								k = 645
							Case Val(Substr(Msg, 3, 2)) = 11
								j = 646
								k = 647
							Case Val(Substr(Msg, 3, 2)) = 12
								j = 648
								k = 650
							Case Val(Substr(Msg, 3, 2)) = 13
								j = 651
								k = 657
							Case Val(Substr(Msg, 3, 2)) = 14
								j = 658
								k = 660
							Case Val(Substr(Msg, 3, 2)) = 15
								j = 661
								k = 665
							Case Val(Substr(Msg, 3, 2)) = 16
								j = 666
								k = 669
							Case Val(Substr(Msg, 3, 2)) = 17
								j = 670
								k = 678
							Case Val(Substr(Msg, 3, 2)) = 18
								j = 679
								k = 681
							Case Val(Substr(Msg, 3, 2)) = 19
								j = 682
								k = 692
							Case Val(Substr(Msg, 3, 2)) = 20
								j = 693
								k = 694
							Case Val(Substr(Msg, 3, 2)) = 21
								j = 695
								k = 697
							Case Val(Substr(Msg, 3, 2)) = 22
								j = 698
								k = 702
							Case Val(Substr(Msg, 3, 2)) = 23
								j = 703
								k = 757
							Case Val(Substr(Msg, 3, 2)) = 24
								j = 758
								k = 760
							Case Val(Substr(Msg, 3, 2)) = 25
								&&j = 761: k = 822
								Messagebox( "Bitte whlen Sie das Dienstverhltnis <TVD Pflege> in Programmzeile 4 aus.", 0, "Sorry")
								Return
							Case Val(Substr(Msg, 3, 2)) = 26
								j = 823
								k = 827
							Case Val(Substr(Msg, 3, 2)) = 27
								j = 828
								k = 829
							Case Val(Substr(Msg, 3, 2)) = 28
								j = 830
								k = 842
							Case Val(Substr(Msg, 3, 2)) = 29
								j = 843
								k = 850
							Case Val(Substr(Msg, 3, 2)) = 30
								j = 851
								k = 852
							Case Val(Substr(Msg, 3, 2)) = 31
								j = 853
								k = 859
							Case Val(Substr(Msg, 3, 2)) = 32
								j = 860
								k = 863
						Endcase
					Case VAL(Leftc(Msg, 1)) = 5
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 864
								k = 939
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 940
								k = 981
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 982
								k = 1010
							Case Val(Substr(Msg, 3, 2)) = 4
								j = 1011
								k = 1052
							Case Val(Substr(Msg, 3, 2)) = 5
								j = 1053
								k = 1063
							Case Val(Substr(Msg, 3, 2)) = 6
								j = 1064
								k = 1071
						Endcase
					Case Leftc(Msg, 1) = 6
						j = 1072
						k = 1093
				Endcase
				Do bundlisteprfen &&Do attached
				&&***************************************************************************************************



			Case zi(1+4) = 11 &&Land
				myopen(eigdat + "\Texte\ego_TVL" , 99 ,"TVLstring")

				Msg = Leftc(Thisform.Eingabe.Value, 13)
				Do Case && leftc(Msg, 1)
					Case VAL(Leftc(Msg, 1)) = 1
						j = 1
						k = 21
						Do listeprfen
					Case VAL(Leftc(Msg, 1)) = 2
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 22
								k = 33

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 34
								k = 50

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 51
								k = 57

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 4
								j = 58
								k = 66

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 5
								j = 67
								k = 85

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 6
								j = 86
								k = 89

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 7
								j = 90
								k = 93

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 8
								j = 94
								k = 130

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 9
								j = 131
								k = 167

								DO listeprfen
							Case Val(Substr(Msg, 3, 2)) = 10
								j = 168
								k = 275

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 11
								j = 276
								k = 316

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 12
								j = 317
								k = 334

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 13
								j = 335
								k = 339

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 14
								j = 340
								k = 370

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 15
								j = 371
								k = 394

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 16
								j = 395
								k = 409

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 17
								j = 410
								k = 423

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 18
								j = 424
								k = 431

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 19
								j = 432
								k = 451

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 20
								j = 452
								k = 502

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 21
								j = 503
								k = 542

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 22
								j = 543
								k = 613

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 23
								j = 614
								k = 627

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 24
								j = 628
								k = 688

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 25
								j = 689
								k = 750

								Do listeprfen
						Endcase
					Case VAL(Leftc(Msg, 1)) = 3
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 751
								k = 760

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 761
								k = 819

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 3
								Do Case && Val(substr(Msg, 6, 2))
									Case (Val(Substr(Msg, 6, 2)) >= 1 .And. Val(Substr(Msg, 6, 2)) <= 3)
										j = 820
										k = 851

										Do listeprfen
									Case (Val(Substr(Msg, 6, 2)) >= 4 .And. Val(Substr(Msg, 6, 2)) <= 7)
										j = 852
										k = 910

										Do listeprfen
									Case (Val(Substr(Msg, 6, 2)) >= 8 .And. Val(Substr(Msg, 6, 2)) <= 10)
										j = 911
										k = 963

										Do listeprfen
									Case (Val(Substr(Msg, 6, 2)) >= 11 .And. Val(Substr(Msg, 6, 2)) <= 16)
										j = 964
										k = 1000

										Do listeprfen
								Endcase
						Endcase
					Case VAL(Leftc(Msg, 1)) = 4
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								Do Case && Val(substr(Msg, 6, 2))
									Case (Val(Substr(Msg, 6, 2)) >= 1 .And. Val(Substr(Msg, 6, 2)) <= 4)
										j = 1001
										k = 1046

										Do listeprfen
									Case (Val(Substr(Msg, 6, 2)) >= 5 .And. Val(Substr(Msg, 6, 2)) <= 8)
										j = 1047
										k = 1079

										Do listeprfen
								Endcase

							Case Val(Substr(Msg, 3, 2)) = 2
								j = 1080
								k = 1093

								Do listeprfen
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 1094
								k = 1119

								Do listeprfen
						Endcase
				Endcase
				&&***************************************************************************************************

			Case zi(1+4) = 12 &&VKA
				myopen(eigdat + "\Texte\ego_vka" , 99 ,"VKAstring")

				Msg = Leftc(Thisform.Eingabe.Value, 13)
				Do Case && leftc(Msg, 1)
					Case VAL(Leftc(Msg, 1)) = 1
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 1
								k = 34
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 35
								k = 75
						Endcase
					Case VAL(Leftc(Msg, 1)) = 2
						Do Case && Val(substr(Msg, 3, 2))
							Case Val(Substr(Msg, 3, 2)) = 1
								j = 76
								k = 77
							Case Val(Substr(Msg, 3, 2)) = 2
								j = 78
								k = 83
							Case Val(Substr(Msg, 3, 2)) = 3
								j = 84
								k = 92
							Case Val(Substr(Msg, 3, 2)) = 4
								j = 93
								k = 94
							Case Val(Substr(Msg, 3, 2)) = 6
								j = 95
								k = 101
							Case Val(Substr(Msg, 3, 2)) = 7
								j = 102
								k = 104
							Case Val(Substr(Msg, 3, 2)) = 8
								j = 105
								k = 110
							Case Val(Substr(Msg, 3, 2)) = 10
								j = 111
								k = 116
							Case Val(Substr(Msg, 3, 2)) = 11
								j = 117
								k = 228
							Case Val(Substr(Msg, 3, 2)) = 12
								j = 229
								k = 234
							Case Val(Substr(Msg, 3, 2)) = 13
								j = 235
								k = 260
							Case Val(Substr(Msg, 3, 2)) = 14
								j = 261
								k = 273
							Case Val(Substr(Msg, 3, 2)) = 15
								j = 274
								k = 296
							Case Val(Substr(Msg, 3, 2)) = 16
								j = 297
								k = 301
							Case Val(Substr(Msg, 3, 2)) = 17
								j = 302
								k = 309
							Case Val(Substr(Msg, 3, 2)) = 18
								j = 310
								k = 329
							Case Val(Substr(Msg, 3, 2)) = 19
								j = 330
								k = 333
							Case Val(Substr(Msg, 3, 2)) = 20
								j = 334
								k = 348
							Case Val(Substr(Msg, 3, 2)) = 21
								j = 349
								k = 353
							Case Val(Substr(Msg, 3, 2)) = 22
								j = 354
								k = 368
							Case Val(Substr(Msg, 3, 2)) = 23
								j = 369
								k = 373
							Case Val(Substr(Msg, 3, 2)) = 24
								j = 374
								k = 417
							Case Val(Substr(Msg, 3, 2)) = 25
								j = 418
								k = 459
							Case Val(Substr(Msg, 3, 2)) = 26
								j = 460
								k = 465
							Case Val(Substr(Msg, 3, 2)) = 27
								j = 466
								k = 517
							Case Val(Substr(Msg, 3, 2)) = 28
								j = 518
								k = 520
							Case Val(Substr(Msg, 3, 2)) = 29
								j = 521
								k = 526
							Case Val(Substr(Msg, 3, 2)) = 30
								j = 527
								k = 531
							Case Val(Substr(Msg, 3, 2)) = 31
								j = 532
								k = 536
							Case Val(Substr(Msg, 3, 2)) = 32
								j = 537
								k = 538
						Endcase
				Endcase
				Do vkalisteprfen &&Do attached
				&&***************************************************************************************************
		Endcase

	ELSE
		IF immerfolge = True &&durchschreiben bis Dezember
			For iii = zi(1+20) + 1 To 12
				myget(iii, fileneu,"wvw")
				wvw.Sparte = " "
				wvw.Entgeltcode = ""
				myput(iii, fileneu,"wvw")
			NEXT
			myget(zi(1+20) + 1, fileneu,"wvw")
		ELSE
			myget(zi(1+20) + 1, fileneu,"wvw")
			wvw.Sparte = " "
			wvw.Entgeltcode = ""
			myput(zi(1+20) + 1, fileneu,"wvw")	
			myget(zi(1+20) + 1, fileneu,"wvw")
		endif
		thisform.command1.click
	Endif
ENDIF
hslastkey = 0
Do anzeige &&Do attached
thisform.release
RETURN .t.
ENDPROC
PROCEDURE RightClick
IF .not. EMPTY(this.Value)
	IF ok("Soll die Zuordnung gelscht werden?")
		this.Value = "0"
		hslastkey = 13
		this.Valid
	ENDIF
ENDIF

ENDPROC
     0	    /  /                        G   %   *      /  `  *            U   
 T    U 	 HSLASTKEY( T  C| %C  %  Ba  %  
   	(
 T    %C   \ - 
 T    %C   \ -  T     %C   \ -  T    % @' C #99 
 H<' C 
E0 C	  \Texte\ego_Bundc
 Bundstring  T
 CC   

 H: CC
 g
 T 
 T  CC
 g
 T 
 T ! CC
 g?
 H; CC
 \gI
 T "
 T # CC
 \g~
 T $
 T 0 CC
 \g
 T 1
 T 7 CC
 \g
 T 8
 T : CC
 \g
 T ;
 T @ CC
 \gR
 T A
 T C CC
 \g
 T D
 T E CC
 \g
 T F
 T L CC
 \g	
 T M
 T N CC
 \g
&
 T O
 T V CC
 \g[
 T W
 T ^ CC
 \g
 T _
 T b CC
 \g

 T c
 T g CC
 \g
 T h
 T o CC
 \g/
 T p
 T r CC
 \gd
 T s
 T  CC
 \g
 T 
 T  CC
 \g
 T 
 T  CC
 \g
 T 
 T  CC
 \g8
 T 
 T  CC
 \gn
 T  T ; CC
 \g T < T < CC
 \g T = T > CC
 \g T ? T K CC
 \gJ T L T W CC
 \g T X T Z CC
 \g T [ T r CC
 \g T s T  CC
 \g& T  T  CC
 \g] T  T  CC
 \g T  T  CC
 \g  T  T  CC
 \g!	 T  T  CC
 \g"9	 T  T  CC
 \g#p	 T  T  CC
 \g$	 T  T  CC
 \g%	 T  T  CC
 \g&
 T  T  CC
 \g'L
 T  T  CC
 \g(
 T  T  CC
 \g)
 T  T  CC
 \g*
 T  T  CC
 \g+( T  T  CC
 \g,_ T  T  CC
 \g- T  T  CC
 \g. T  T  CC
 \g/ T  T  CC
 \g0; T  T   CC
 g
 He CC
 \g T  T 	 CC
 \g T 
 T  CC
 \g

 T  T ) CC
 \gA
 T * T + CC
 \gx
 T , T . CC
 \g
 T / T A CC
 \g
 T B T G CC
 \g T H T M CC
 \g	T T N T  CC
 \g
 T  T  CC
 \g T  T  CC
 \g T  T  CC
 \g
0 T  T  CC
 \gg T  T  CC
 \g T  T  CC
 \g T  T  CC
 \g T  T  CC
 \gC T  T  CC
 \gz T  T  CC
 \g T  T  CC
 \g T  T  CC
 \g T  T  CC
 \gV T  T  CC
 \g T  T  CC
 \gb CK Bitte whlen Sie das Dienstverhltnis <TVD Pflege> in Programmzeile 4 aus.  Sorryx B CC
 \gE T 7 T ; CC
 \g| T < T = CC
 \g T > T J CC
 \g T K T R CC
 \g! T S T T CC
 \gX T U T [ CC
 \g  T \ T _  CC
 g
 H CC
 \g T ` T  CC
 \g' T  T  CC
 \g^ T  T  CC
 \g T  T  CC
 \g T  T ' CC
 \g T ( T /  C
 : T 0 T E  
  C . C	  \Texte\ego_TVLc	 TVLstring  T
 C   

 H CC
 g
 T 
 T    CC
 g

 H	 CC
 \gJ
 T 
 T !   CC
 \g
 T "
 T 2   CC
 \g
 T 3
 T 9   CC
 \g
 T :
 T B   CC
 \g:
 T C
 T U   CC
 \gv
 T V
 T Y   CC
 \g
 T Z
 T ]   CC
 \g
 T ^
 T    CC
 \g	*
 T 
 T    CC
 \g
g
 T  T    CC
 \g T  T <   CC
 \g T = T N   CC
 \g
! T O T S   CC
 \g_ T T T r   CC
 \g T s T    CC
 \g T  T    CC
 \g T  T    CC
 \gW T  T    CC
 \g T  T    CC
 \g T  T    CC
 \g T  T    CC
 \gO T  T e   CC
 \g T f T s   CC
 \g T t T    CC
 \g	 T  T     CC
 g/
 H3+ CC
 \gq T  T    CC
 \g T  T 3   CC
 \g+
 H'1 CC
 \g CC
 \g	+ T 4 T S  1 CC
 \g CC
 \g	 T T T   1 CC
 \g CC
 \g
	 T  T   1 CC
 \g CC
 \g	' T  T      CC
 g
 HU CC
 \g)
 H}%1 CC
 \g CC
 \g	 T  T   1 CC
 \g CC
 \g	% T  T 7    CC
 \gg T 8 T E   CC
 \g T F T _     C <'. C	  \Texte\ego_vkac	 VKAstring  T
 C   

 H 1' CC
 g 
 H<   CC
 \gq 
 T 
 T " CC
 \g 
 T #
 T K  CC
 g1'
 H -' CC
 \g!
 T L
 T M CC
 \g:!
 T N
 T S CC
 \go!
 T T
 T \ CC
 \g!
 T ]
 T ^ CC
 \g!
 T _
 T e CC
 \g"
 T f
 T h CC
 \gC"
 T i
 T n CC
 \g
x"
 T o
 T t CC
 \g"
 T u
 T  CC
 \g"
 T 
 T  CC
 \g
#
 T  T  CC
 \gO# T  T  CC
 \g# T  T ( CC
 \g# T ) T - CC
 \g# T . T 5 CC
 \g+$ T 6 T I CC
 \gb$ T J T M CC
 \g$ T N T \ CC
 \g$ T ] T a CC
 \g% T b T p CC
 \g>% T q T u CC
 \gu% T v T  CC
 \g% T  T  CC
 \g% T  T  CC
 \g& T  T  CC
 \gQ& T  T  CC
 \g& T 	 T  CC
 \g& T  T  CC
 \g& T  T  CC
 \g -' T  T       ( %  '  C (' C     wvw  T     T     C     wvw   CC    wvw  r( CC    wvw  T     T     CC    wvw  CC    wvw  
      
 T     
    Ba U 	 HSLASTKEY THIS VALUE I THISFORM EINGABE MYCLOSE ZI MYOPEN EIGDAT MSG J K BUNDLISTEPRFEN LISTEPRFEN VKALISTEPRFEN
 IMMERFOLGE TRUE III MYGET FILENEU WVW SPARTE ENTGELTCODE MYPUT COMMAND1 CLICK ANZEIGE RELEASEz  %C   
s 4 %C# Soll die Zuordnung gelscht werden? o  T    0
 T 
       U  THIS VALUE OK	 HSLASTKEY VALID GotFocus,      ValidK     
 RightClick)    1  2  !q A   A A A  Q                                                                                                      A                                                  "A               A              A q  A q U   q    r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r A    r   r    r   r   r   r A A     r   r A   r   r A A S      A                                                              A A q B  A  A  A A  q  q 2 1A  A A 2                       !         =   6>     X  W>  >     )   /                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 126
Left = 273
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %   wP      wX  V  Q  }<Z{    U    4   %    B 
 T    T CC  Z dc = myjda.Datum&yyy..value
   myjda.Datum&yyy..value = dc

 T      U  INDEXI	 STARTFLAG TRUE MYINDEX YYY
 DATUMCHECK DATUMAUSWERTEN> %  &  T C    ; 
 T   
 T   
  
 T CC   ZL If EMPTY(.Datum&xxx..value) .or. ALLTRIM(.datum&xxx..value) = ".  ."
 H     T C Mit dem Lschen des Geburtstags werden   a l l e   Daten gelscht. Sie knnen es noch verhindern, indem Sie <Nein> anklicken und noch vor der nchsten Enter-Taste einen neuen Geburtstag eingeben.* Mit der kompletten Lschung einverstanden?x %  B    B* C  	
 T CC  Z .Tage&yyy..value = 0
 .Monat&yyy..value = 0
 .Jahr&yyy..value = 0
 	  B  	 T CC   Z. If isInstr(.Datum&yyy..value, "_") > 0 .Datum&yyy..value = ""
 B    %   0 
       U
  INDEXI EG FIX DI MYJDA XXX RESPONSE ALLESLEEREN YYY JDASUBTRAKTION INRENTE INRENTEI VERARBEITEN 
      (i  T CC  Z .Datum&yyy..SetFocus
 \ {ENTER};     \ {ENTER};  U  MYJDA J YYY DATUM21 SETFOCUS[
   T  (U  T CC  Z .Datum&yyy..value = ""
   (  T      ( T CC  Z .Tage&yyy..value = 0
 .Monat&yyy..value = 0
 .Jahr&yyy..value = 0
   (	P T CC  Z .Eingabe&yyy..value = ""
   U  MYJDA I YYY	 DATUMDIFF
    %C  
i
 H. C CC  Rg
e 
 T A
 T   CC  Rg 
 T A
 T  CC  Rg 
 T A
 T  CC  Rg

 T A
 T  CC  RgA
 T A
 T  CC  Rgx
 T A
 T  CC  Rg
 T A
 T  CC  Rg
 T A
 T  CC  Rg
 T A
 T  CC  RgT
 T A
 T 	 CC  Rg
 T A
 T 
 CC  Rg
 T A
 T  CC  Rg
 T B
 T   CC  Rg0
 T B
 T  CC  Rgg
 T B
 T  CC  Rg
 T B
 T  CC  Rg
 T B
 T  CC  Rg
 T B
 T 
 CC  RgC
 T C
 T    T    T     T  C T      U  MYJDA DATUM0 VALUE	 RUHESTAND	 RUHEMONAT ALTER	 MONTHSPIN
 H
 H CC    Rg
F 
 T A
 T   CC    Rg 
 T A
 T  CC    Rg 
 T A
 T  CC    Rg 
 T A
 T  CC    Rg*
 T A
 T  CC    Rgc
 T A
 T  CC    Rg
 T A
 T  CC    Rg
 T A
 T  CC    Rg
 T A
 T  CC    RgG
 T A
 T 	 CC    Rg
 T A
 T 
 CC    Rg
 T A
 T  CC    Rg
 T B
 T   CC    Rg+
 T B
 T  CC    Rgd
 T B
 T  CC    Rg
 T B
 T  CC    Rg
 T B
 T  CC    Rg
 T B
 T 
 CC    RgH
 T C
 T    %   %  2 T     Erreichen der Regelaltersgrenze , T     Eintritt in den Ruhestand  , T     Eintritt in den Ruhestand  U  MYJDA DATUM0 VALUE
 RUHESTANDI
 RUHEMONATI	 RUHESTAND	 RUHEMONAT TEXT13$
   J %C  
 C   C   .  . C   .  .W   T   ! T C yyyy  c    T C m  c   " T C d	  c    T
     T  C yyyy     T  C yyyy(     T
  C yyyy2   , %C m        T    T  C   T    T  C  , %C m        T    T  C  F T    T  C  , %C m  
      T    T
  C   T    T
  C   T C m      T C yyyy      T      U  MYJDA DATUM20 VALUE DATUM1 MSG BEGINNDATUM DATEADD JAHR14 MONAT14 TAGE14 DATUM21 DATUM23 DATUM24 DATUM25
 DATEDIFF_2 DATUM0	 RUHESTAND	 RUHEMONAT TEXT5 VISIBLE TRUE	 BACKCOLOR QBCOLOR FALSE TEXT6 TEXT7 DATUM22
 T   % T CC \gCC \g T CC RgCC Rg %  
  T   T    T CC \g T CC Rg T CC \g T CC g
 H $ C 
T % P
 T  T   T      %CCC RgG  % 
 T 
 T     % 
 T 
 T     C 	  T	 CC g
 H-$ C 
s %	 o
 T	     %CCC RgG  %	 
 T	    %	 
 T	    C 	  %	  : T
 	      %	  ` T
     %	  
 T
 	     T    %
 	
 T
   T   % 
 T   T     U  FEBRUARTAGE DIFFERENZMONATE
 SPTERESDATUM
 FRHERESDATUM DIFFERENZJAHRE LFDMONAT LFDJAHR	 ENDEMONAT FRHERERTAG SPTERERTAG
 DIFFERENZTAGET
   M
 T   T C  ( %C   C   .  .n  T    I T CC  Z! If .Datum&yyy..value = ""  T    E T CC  Z% If VAL(.Datum&yyy..value) < 1  T    A %    

	 T	 CC  Z If .Box&xxx..Value = 0 T    F datumdiff(1+i) = DateDiff_2("d", .Datum0.value, .Datum&yyy..value)
   %  =F datumdiff(1+i) = DateDiff_2("d", .Datum0.value, .Datum&yyy..value)
      U
  MYJDA I DI EG FIX DATUM1 VALUE	 DATUMDIFF YYY XXX %     B 
   %C \ X C2 Zwischen Geburtstag und Ernennung liegen mehr als CC  Z  Jahre.x  %    
	  T CC  Z If .Box&xxx..Value = 0  B   %C  C 
 T CC  Zq Messagebox( ("Das Datum " + .Datum&yyy..value + " liegt   v o r   dem Geburtstag am " + .Datum0.value + "."))
 T    .Tage&yyy..value = 0
 .Monat&yyy..value = 0
 .Jahr&yyy..value = 0
 .Datum&yyy..value = ""
 B  %   
	 T CC  Z %C   h  %C  C  Messagebox( ("Das Datum " + .Datum&yyy..value + " liegt   n a c h   dem Beginn der Dienstbezge am " + .Datum1.value + " und damit auerhalb des hier zu prfenden Zeitraums."))
 T    .Tage&yyy..value = 0
 .Monat&yyy..value) = 0
 .Jahr&yyy..value = 0
 .Datum&yyy..value = ""
 B    % 
  
	 %C     %C  C  T CC	  Z Messagebox( ("Das Datum " + .Datum&yyy..value + " liegt   V O R   dem Beginn der Dienstbezge am " + .Datum1.value + " und damit auerhalb des hier zu prfenden Zeitraums."))
 T    T CC  Z .Tage&yyy..value = 0
 .Monat&yyy..value = 0
 .Jahr&yyy..value = 0
 .Datum&yyy..value = ""
 B     U
 
 KEINSPEICHERN TRUE MYJDA	 DATUMDIFF	 RUHESTAND EG XXX DI YYY D1}
   v
 H r9 CC  \g CC  \g	$ T   31.03.C  R
 H    4 T   31.12.CCCC  Rg8 Z  4 T   30.11.CCCC  Rg8 Z  S4 T   31.10.CCCC  Rg8 Z  4 T   30.09.CCCC  Rg8 Z 9 CC  \g CC  \g	$ T   30.06.C  R
 H  ;$ T   31.03.C  R  p$ T   28.02.C  R  $ T   31.01.C  R  4 T   31.12.CCCC  Rg8 Z 9 CC  \g CC  \g		0$ T   30.09.C  R
 HX,  $ T   30.06.C  R  $ T   31.05.C  R  $ T   30.04.C  R  ,$ T   31.03.C  R 9 CC  \g
 CC  \g	r$ T   31.12.C  R
 Hn  $ T   30.09.C  R  $ T   31.08.C  R  9$ T   31.07.C  R  n$ T   30.06.C  R    U  MYJDA DATUM20 VALUE DATUM28 MONATEVORAUS DATUM27
   6
( %C   C   .  .9  B ( %C   C   .  . > T  CCC$\ .CCC$\ .CCC$\  T     T       +a
 H    ! C 
* 	  C I 	  C YJ %C  
 C
   C   .  . C
   .  .   B  	  T     T
     T     T    T      T    T    T   * C 	
 T C   T CC  ZJ %C
  
 C   C
   .  . C   .  .   B  	  T CC  Z T CC  Z If EMPTY(.Datum&yyy..value) .Or. EMPTY(.Datum&yyy1..value) .or. ALLTRIM(.datum&yyy..value) = ".  ." .or. ALLTRIM(.datum&yyy1..value) = ".  ."# .Tage&xxx..value = 0
 .Monat&xxx..value = 0
 .Jahr&xxx..value = 0
 !  %  % 

 T CC  Z If .Box&xxx..Value = 0 .Tage&xxx..value = 0
 .Monat&xxx..value = 0
 .Jahr&xxx..value = 0
    % 
% %C  C  
l T CC  Z T CC  Z Messagebox( ("Das Datum " + .Datum&xxx..value + " liegt   v o r   dem Datum " + .Datum&xxx1..value + " und damit nicht in der richtigen Zeitrichtung."))
 .Datum&xxx..value = ""
 T    T CC  Z .Tage&xxx..value = 0
 .Monat&xxx..value = 0
 .Jahr&xxx..value = 0
 B  T CC  Z T CC  Z& frheresdatum = .Datum&xxx1..value
% spteresdatum = .Datum&xxx..value
   T CC  Z If .Box&xxx..value = 1$ .Tage&xxx..value = differenztage
' .Monat&xxx..value = differenzmonate
% .Jahr&xxx..value = differenzjahre
  .Tage&xxx..value = 0
 .Monat&xxx..value = 0
 .Jahr&xxx..value = 0
    !   
 T   
 T!  
 T"    ( T CC  Z" sTag = sTag + .Tage&xxx..value
' sMonat = sMonat + .Monat&xxx..value
$ SJahr = SJahr + .Jahr&xxx..value
  %  	 T! ! C    T  C  G  %! G	 T" " C!   T! C! G  T#     T$  !  T%  " ! T  C d  c  & ! T  C m! c  & $ T  C yyyy" c  &  T       T! !    T" "    %  _
 T! ! C    T  C  G  %! 
 T" " C!   T! C! G  T'     T(  !  T)  "   
 T   
 T!  
 T"    (	 T CC  Z" sTag = sTag + .Tage&xxx..value
' sMonat = sMonat + .Monat&xxx..value
$ SJahr = SJahr + .Jahr&xxx..value
  %   T! ! C    T  C  G  %!  T" " C!   T! C! G  T*     T+  !  T,  "  T  '     T! (  !  T" )  "  %   
 T     T! !   %!  
 T! !  T" "   T-     T.  !  T/  "     (
 T CC  Z: myjda.aufkleber.Kndigung&xxx..BackColor = QBColor(15)
 
   ) %C  
 C   .  .	V
 H
 "   T0 1 2 C^ T3    
 H9 CC  \g2 T4   31.12.CCC  Rg Z9 CC  \g CC  \g		E T4   28.0CCC  \g Z .C  R CC  \g
K$ T4   28.09.C  R9 CC  \g CC  \g	D T4   28.CCC  \g Z .C  R  "  " 	 T0 5 2 C^
 H9 CC  \g CC  \g	p$ T3   31.03.C  R9 CC  \g CC  \g	$ T3   30.06.C  R9 CC  \g CC  \g		*$ T3   30.09.C  R9 CC  \g
 CC  \g	$ T3   31.12.C  R ! T4  C d3  &  "  " 	 T0 6 2 C^
 T7  8  "  " 		H T0 9 2 C^
 T7  8  " 
 " 	 T0 : 2 C^
 T7  8  "  " 	 T0 ; 2 C^
 T7  8  " 
 T7  8 
 H+ CC  RgCC
  Rg'
^ T0 < 2 C^+ CC  RgCC
  Rg(
 H1 CC  \gCC
  \g 
 T0 ; 2 C^1 CC  \gCC
  \g % %C  C
  W T0 < 2 C^ | T0 ; 2 C^ 1 CC  \gCC
  \g T0 < 2 C^ + CC  RgCC
  Rg( T0 < 2 C^  
 H/! "   " !
 HX22 CCC4  \g
  T4   31C4  R CC4  \g  T4   28C4  R) CCC4  \g	2  T4   30C4  R 
 HC2 CCC3  \g
  T3   31C3  R CC3  \g  T3   28C3  R) CCC3  \g	  T3   30C3  R   T=  4    *) T>  3    T=     T>       ?  U@  MYJDA DATUM1 VALUE DATUM20 LABEL14 CAPTION LABEL19 DATUMDIFFNEU INDEXI
 PLAUSIBILITT DATUM0 ALLESLEEREN DATUM26 LABEL9
 FRHERESDATUM
 SPTERESDATUM DATUMSDIFFERENZ TAGE11
 DIFFERENZTAGE MONAT11 DIFFERENZMONATE JAHR11 DIFFERENZJAHRE J FIX XXX YYY YYY1 EG	 DATUMDIFF XXX1 I STAG SMONAT SJAHR TAGE10 MONAT10 JAHR10 DATEADD TAGE12 MONAT12 JAHR12 TAGE13 MONAT13 JAHR13 TAGE14 MONAT14 JAHR14	 AUFKLEBER
 KNDIGUNG0	 BACKCOLOR DATUM28 DATUM27
 KNDIGUNG1
 KNDIGUNG2 MONATEVORAUS QUARTAL
 KNDIGUNG3
 KNDIGUNG4
 KNDIGUNG5
 KNDIGUNG6 TERMIN ZIEL JDASUBTRAKTION= 4  
 T  
  
 T CC   Z  T CC   Z$ T CC   Z  T CC   Z T CC   Z T	 CC   Z# intdatum1 = .Datum&yyy2..value 
# intdatum2 = .Datum&yyy3..value 
 T
 C   " T C   $ inteingabe = .Eingabe&yyy..value
$ intzhler = .Zhler&yyy..caption
 intbox = .Box&yyy..Value
 inttag = .Tage&yyy..value
  intmonat = .Monat&yyy..value
 intjahr = .Jahr&yyy..value
+ .Datum&yyy2..value = .Datum&yyy5..value
+ .Datum&yyy3..value = .Datum&yyy4..value
, T   C   4 T   C   . .Eingabe&yyy..value = .Eingabe&yyy6..value
0 .Zhler&yyy..caption = .Zhler&yyy6..caption
& .Box&yyy..Value = .Box&yyy6..Value
( .Tage&yyy..Value = .Tage&yyy6..Value
* .Monat&yyy..Value = .Monat&yyy6..Value
( .Jahr&yyy..Value = .Jahr&yyy6..Value
" .Datum&yyy5..value = intdatum1
! .Datum&yyy4.value = intdatum2
 T   
  T    % .Eingabe&yyy6..value = inteingabe
% .Zhler&yyy6..caption = intzhler
 .Box&yyy6..Value = intbox
 .Tage&yyy6..Value = inttag
! .Monat&yyy6..Value = intmonat
 .Jahr&yyy6..Value = intjahr
 
 T 
  %  
6    U  MYINDEX
 KEINSPEICHERN TRUE MYJDA YYY YYY2 YYY3 YYY4 YYY5 YYY6 INTDAT1DIFF	 DATUMDIFF INTDAT2DIFF FALSE DATUMDIFFNEU6 4   T CC   Z  T CC   Z$ T CC   Z  T CC   Z T CC   Z T CC   Z
 T  
 	 ! intdatum1 = .Datum&yyy2.value
! intdatum2 = .Datum&yyy3.value
 T
 C   " T C   $ inteingabe = .Eingabe&yyy..value
" intzhler = .Zhler&yyy..value
 intbox = .Box&yyy..Value
 inttag = .Tage&yyy..Value
  intmonat = .Monat&yyy..Value
 intjahr = .Jahr&yyy..Value
+ .Datum&yyy2..value = .Datum&yyy5..value
+ .Datum&yyy3..value = .Datum&yyy4..value
- T   C   5 T   C   . .Eingabe&yyy..value = .Eingabe&yyy6..value
, .Zhler&yyy..value = .Zhler&yyy6..value
& .Box&yyy..Value = .Box&yyy6..Value
( .Tage&yyy..Value = .Tage&yyy6..Value
* .Monat&yyy..Value = .Monat&yyy6..Value
( .Jahr&yyy..Value = .Jahr&yyy6..Value
" .Datum&yyy5..value = intdatum1
" .Datum&yyy4..value = intdatum2
 T   
   T    % .Eingabe&yyy6..value = inteingabe
# .Zhler&yyy6..value = intzhler
 .Box&yyy6..Value = intbox
 .Tage&yyy6..value = inttag
! .Monat&yyy6..value = intmonat
 .Jahr&yyy6..value = intjahr
 
 T 
  %  
/    U  MYINDEX YYY YYY2 YYY3 YYY4 YYY5 YYY6
 KEINSPEICHERN TRUE MYJDA INTDAT1DIFF	 DATUMDIFF INTDAT2DIFF FALSE DATUMDIFFNEUu  4   %  n  T     T     T       U  MYINDEX
 KEINSPEICHERN FALSE	 DATUMDIFF INDEXI VERARBEITEN
 H
       T     T     T     T     T     T 	   M T 
 
 Wann erhlt  CCC     eine Jubilumszuwendung?    T   
  T   
  T   
  T   
  T   
  T 	  
 S T 
  Beschftigungszeit von  CCC     nach  34 TVD/TV-L  U  OPTINDEX MYJDA	 AUFKLEBER VISIBLE FALSE LABEL10 LABEL11 LABEL12 TERMIN ZIEL CAPTION ZT0 ZI TRUE jda_datum_lostfocus,      datumauswerten    
 jdaaktivieren     allesleereny     inrente     inrentei     jdasubtraktion5     datumsdifferenzF     datumdiffneu    
 plausibilitt     quartalg"     verarbeiten(     ab_ClickB    	 auf_ClickG    	 box_ClickM    
 umschalterLN    p1 q A A  qq  r 4 Q  A   s 1A A r A uq A B  qA A A B q q A r  1  q!A  !E 3  qqA qqA rqA qqA E 3  A                                       A  B A 3                                        A ! A  A 4    "Q QA Q QA Q QA A A 1  QA rAqR A A   A    A A A S A A  A   A A A A A A   A A 3   Qq qq qQq qq aA A aA A A A B 4 A A  aA qA A B qqB A q AqB A A A  q!qB A A A  A 4   A AAAAA A AAAAA A AAAAA A AAAAA B A 3  A A A RQr   q q Rq A A r RRQr Qrq A A r qR	B A rB A A Qq	rqA A qaQr rAqQ A A A B B t    rq!qAA !A !A AUQQ!A !A s    rq!qAA !A !A SQQA A B rqA   Q !QAAA  AAAAA  q  q  q  q  q   Q A A A A   !A  !A A Q A A r 4 q   Aq21!AAAc#QQB  q A ? q Aq  !A!Qc#!Q1B  q A 3 q Qr B ;1  1111111111111A 1                    (    8      /    J   6     V     @   z  S     T   s            !  
     !  ,  S    .  r6    K  6  9    i  9  C  ?    C  ,M      PM  w      ;w  ~  "      ̆  h  9        B  2    i                (       @                                                                  fffffff  fffffffffffff 33 fffffffffff`3333fffffffffff    fffffffffff`3333fffffffffff    fffffffffff`3333fffffffffff330ffffffffffff    ffffffffffffxfffffffffff`xffffffffff`xffffffffffxffffffffffxfffffffff`wwffffffff`{fffffffffffffffffffffff`ffffff`ffffffffffffffffffffffffffffffffffff`ffffff`fffffffffffffffffffffff`fffffffff`fffffffffff`  ffffff                                                                                                                                GIF89a!h     RR1cc9ccssB{cJcck1kcs{9{c)J R9cΜΜkƔΜk {{)c)c省祽c1cƵƽΥΔ{J9J9Rƭc1JssέRssƜΔΥ{!!Jεεƽ))BRｽν1JcsƔΌΜνֵֽƜƜƜ)Ɯ9ƜJƜRƜcƜƥƥƥƭcƭsƵƵƽ)ΥΥέ)έJεJενkJcƄƔs֔֜ ֥֥)֥9֥Rֵֵ!ֵ)ֵJֵcֵֽֽk!)1ƔZc΄kքcބcscޭޭ)ޭ9޵1BRƥ!1ΔR֥֜)RsckcsccJ)Jk֥޵Jcs)J1J֜1Jc!     ,    !h  Gp 8a~7p0X.|(74H!ŉB6b<X"e>"L%ň=!Zp#āN&\}5}o8Xa=T
SUJjԬeUTݻxۯVv+0Ƅ
{~̹ϠCӥ-N}oנ]mg|,ӌ|}nm|xp=-=سkνڣ_<v䳧o>}{L9щ<M$QD$ATPM
?Y4I"KCqI,LN8`L5
5JtPUZh1Wl5YW9eUZE]W=V<GV5<?,?e?8i%88QC%?KVe<8&_8̩fi^Ce?s's:YfYڝy%gzNeP6\s!w\pp97nknĝpzxQrJtFlo\~gѶWzM+amyvg"'>D;PL"DM
E2HDL-u"88NANaYSPE8_Vg[E閕u>^[qLr_j->jfaTc<ψ9GEa=YktԭescZ<uYڙd_
ٗnp9ܬZ[u:f"{o嚫q&+rm%x|wn砇yRP9Ew4FpTT.GE,ޡL1 H~(!|:9Tbf41kqEU=}T1̄F[`dd)3U9Y}_GKVK?6MPZQI=~ILa8Ø43`Ӏih@8=䁷X	n8,f`8!MVZT;\t+AreŇ=`"(..ZgV#ьjD,6zȹ4'\S0l {q\id"U5DBz܅`QT@A]
q,{ȺC|UYvHeSTJȄf>0*u_@+MfmbsfUeK!(p5`(C|Fz=[ og&+{͠uC(oh+#&G۱R=VСp-XܢGǒqpcJ895Q{Eq6)xSk4OvӒZ٫vFH(8Dw{HVKRyUB(!(CT ,dГB0Y/֛%'1#yE^!eji`^~RrI.Qb%$NYV
h!Т3$-1Za@xR
jZv'LM=Q3[ڶ3a@ߖnHrXVٍpmb	'E*h.Jc$cGfͱu\i;ԍ;;^Qs*wDRHxGv%aHH桺y]֥NS#M4!whB(M'QtQXpׯr+>q\*2$KXBKH~Q>A	L^)U.^Rԕ&%;y)k$/ӕLI!̘yPZ+aJ6aR-\afײB[e*~<GXEɚb&Q'׫-AԎJǟEiOMzRsۋDu
!H45BGPU#^S0ApHRrن0BE,.}F46]8㲦E*w f%-_9&7ed-ì QboɛSecɠyS>&o
<\C3[1x|ի`*qю<h1iF#C`#0h!3VtF\_FpAH';ٯnS}l{յ	7hf0?BlPD"o'bp'n7BPGP`vLV:9_2<_(˰/6ooA{_;?=PD|;-iJ`	AϑhpIMǟCejTq:#5bZP
W%ȁ$%Tq&i!cc6'Qdt&c&gLRY$%XU&J傔&QY4GS6g)YFBw%6	waWf,6rЄQ,$qV*!*$7!7#qEqE5srmroX,@`
0	 @	s0	TWt VWtHu}vt`ywpYumepHOWtp*pIG`D7@th0	uSWt0Yv/؋07 Y/gGexfwpZ`(wPGCH*h'`Sp?'[@ȋ/ƸxS{Z{S{PzNP
`v~_V/RI
"nT#ё#Half:IAa`u  aL0Pm(8 6 Rр72[16dD%xam{a1JX4MU4aYUWApQs'1fj_%T,dqOOTOBD+gfa\E*`8V
9ZX]9m 	 
pzt8u@ivpuXtGGYpmWyV'?`GUfp(wewP	 w\X/PPO͸wyI盹{/NP[MVxw/ /?7p(/Owix[|7`PSPz[z ԗidf.SA	r`0쒒c}VF_sg:"!#c=6
`h<=D2.VbCBLE?PIcU(WC&e(cCc0eebu%Ges&l24E4(ap%dD6d!p[aT)ryfQ*C$+qe+8ShȲ+,S]A	5g@		tJwǉx 
tyu:wj@9wYmB? WwP{F^e	Zu{}{9Oʋ%z8Hux/p/Yppf0JG	
*+h@O?0x{[w(YG (7`( 	S Op!ڢ.j	ix7lC/vs:<t.e+!A/SU΃a=a.UcnUK#k1٣h$K44(\#WCBXe2 dXs2*S43幚YX:X*45$5O&
wQ#-B/4[Np|cvvAtDuygQDIt,'+Qӥ8ۢEC@	3	p
 	@	p

P)w
Pp vvswY \Лgutu:v:f0v
I)yw77p	*YyOwz
x\ W?PZx 

 yP*P/p
jZ8[O 9\pe ? i<L[VzpxNs
ǶvuVeն?sȼfl-~:_{;.alaQ1Js!K=^
 Ơ1K9Dn֓W$[??3reMM	($AiM(e(VC\CD)AaA:kCZ!246qD}3gE+Oau*f(U,EfE `J@	@pp'	 
JuS7w uYpBVSgM,*t+{)a7tX'zxJ\99u(	fpښyB/`Oj*
Ct7}
*ƸB`8+.(ř+^z|fЌ[ݢV<%.O 
O@pCeV(1C%ņ`_l~ba/FzHUr!Г);=TKPKK DeMe>U;˗{=d&7>qLT?M*&	6M$tA@߽AjNm"B\'['\BAb"$FU"B252OQ[qqe7Q\PI}3'כE,\Q8nt		O'
	@]t0uTU劊e)zGPu7txztt@#O`̿h(;O?NI[QuP	Y)[u8z\l\%G?ׇB xv}|hzTy)U;TNpYk7NW}a\dkG:=Ƿ$[%.3
kT*BlmU&-b
ChT[\wbkK2UK{Ao׳݃E3@b)4>S"!KQ3B\ZodZm)]Zpb6Cuuq7~CxsCa^CzS8+n8\ҥQ8иw}
p
 
P	V'	Pp
_gH)ymu	|	<vtfΉ&ɉO(	,P	Jm<8{u|W	{xPG{8Pw("tl*.EYz>R@wJu]l?9{	}3lT>`D.`0
 mjD:<Xj<d_a2k\=ڧHӃ14&,֓P
$LW7ck#2-3?T&$U$%PnPNu:MEerR()e-)WS^# q{G`.w/BN(E=B8QGUgc|×K1g|)fΛ6oyhΘD_R|\%D]*S>Jӕ9L0ɋ$F{|a:Q#3"_3G1è/⿍1bȯ^Ci,P3|ݽ(I~!3#FM$j3VlC|DrX,L6˛6œ'GP0<#xBn)xb-^= Q?'EaEWL1Ed1hjQX%xI"qAI2xJ[&,㡑QV|'uGw|EdF5YD}N~|';9h!FW}(}'I':'3E'=hES>>gRBZՁpUF_քreu؍}4YVy$2"uH(YH[J""txT]o
ҷ{'ri&i᧨*GizX+kDLD3;OSc21ˌ2ȭ*l2p9LFhLk6l
C$GjP6s{M3K{PPª- =/gH!T󋯗6rIԣ#DBpB(sLQU}Q ruLu+kܑG-yg6YlEU,^ya(\>p90(H 92@(>xpAA@GbX~W @1p~C1⡋hD='7+QQ,t` 0
D
FQVP P.d FB8C~"P
: 
@
092 $"bX"^AEbl͸:>1(EYA;!U,FF17w FB$vF#F-=71O*9<a$p8 w`%p0蠓w-J,aŰ@KB>,"!	1xc18X .  PӕAB1pV::i	EtDaK̂H1qN.xOK\x1#(!t`$a: yPBh?Ak,#DgL)h 9.1_b`qF.\Li6'/_1/=eD#6&'Pq|HC8QjldcrPeH7!|)݋"~pT6A!$d\f9
(a@;`4bJ!БHDSke7;-IE.Ģ
vD$䩨H7살\RYE`
^a ˀ'W#A 98!
Pp.:<о"tb~_1@|a]X͈@ X$2xxDg$A {ˡ qN:8ăkG;r: סcQ!- A~b8b[X1~rЃ0A=xHDT>!"PeB| rEr`dS	0O4`6afCF&aäL'!L2@$?'I9"dx\ӄj\R̄G<h`	f̶h\бӾ@OzZǰԡ2C70d NRA4%i#!JH#8$`Cu&d`XUH3@֜JiU+aѰ7bn!7jx*
r,g]$!=XjHD x4bXK淼G29,WY7"&BCZBl78VuB!wA	߀nd[hGkQI[6.h 	[HB  }P0BZP #0rs?)J!8/#E U|xY,$=Q
!"`aA?ҡq >('6x# 92:"7?;j3#A L#%81(A*;1 8 :%0cGk910Aw14$Z 4#01(;235623 9K7$`#%L'J,T4B C2u1p%BZ,X4r2EБ1((ĂQ;B\DЂ9900CKXeg[gCH G@(f;F|t06JDKضhCK@4H\Hp-ɀOs0 - 	{pȇHkވH{FXP0EFH*pF(I JHFtjJ i(+*F 9*.
؂x8Ʀ+F8Ѝhì2
HRFH'0-(c
ك=HDë-1C<hБdh0A.*Kjp0Kq  (Ȁx/02Ȁ3.(؂ 0x3 '.0:/yy@jphHʃ@X/..X 0AcȖh H cP0K#C3C3>{{
NM0 ++l1?b
11GdEl$@0DxA"`9h!$:,1 9x@B!14z#;3S2A0Od0AAB;PZ!;$B15e33, 0$(Y5`4T;%q50 'ګbȴ;t;@dHJB 1(6KH4(KPKEtGe6KpGe@e8$&w PB,p| I cFFx
PZFCAUFIF+
+y#CH*Ɉ*IE}
zpG:C'J`խثF_l(Ch
Ha.('X9Z5U.؂
p2P*<%x]8n$xbm4Xp zCVWɜq.<Q"ő&ab. 1塒'-,ɼr ((/
hDP/H  ЀX1z /AHhuV/@/ﳅyЅ
uPH
W(A9!A@3: [dꄱA00M;@@!0xL0:VKKrEV4rEG0(\;  4B:05*4d%%0V4cA G;3D0B:0GWAEeuK$1@Zʴ u37aˀEt6`+ xbW
0D_M7BlｃR\8(P']bCGexI_c#fD K$ \a03@,ir7wj6
3H#&<	zkk跴
koCHݐZW# W'y{
hEV`kECʹQCSxPp`X<_ܫ7~+Ɠ|,!8p,,IF7n0b0XFȸ9H`	0S͎CW+OUk2d?Cxy2X?X$aJQ)<i*XءoH4(p4-6H708 
 t/WH/`@pdpIc.~+0ȯ4:!ڴc0D1RH MC[Ck;(:@h@@?Ǎ\T20X#6OF5;0:{zm2gjFz$1#1|A?i
1 E`\

@s'ON+aVAL{^"?KcCM9$H^7u60:\OC97mdYGR6*\ncn ` kn( #6  ;k_d{<TQ=9X(d j3-`lx,x,+.8)-n Tr;
pŀpF3|ыF-p
I7zpU0
#ʹSCǈkE59I(+
C	8(
9x,EB98=Ђ==	.1Q7a
} e,f5Upթ p04Yɒ.9K`# 2~55 
  Bg~@WU+ ?HR 
[҅W@#DU_?7@AgD0@;j\9Ƚt!&u;$:9  019 B}\4>2ߍN335,10?nGORu4C!ĴbuE]NDQ 4U4#x604-ѷ1Q 4pr&BHEk)L%$OC-lP|as%^7nC+D$p7[#pBRtH!$(g[Se(U`ZDirs=q-h9
rhy(+r(F{	gI`,8P)΂,FH$&2pPrf[)֋~4Uʇ+
Rx<,tvU.8\m|89@rŚyii8ۂHw~
@Gh(قPʁdWу=(~O-L-A;PDXXdZ<oa(_~.7w¾	W/\dزAK-|xLS^qÄ9&P
jFLAbʜOW{
'V.]j W0ϩ{r*8~1gʄ9h 9 T:o ѩjf:a-5L;KLAx%F	0@Ns 
"LLDf.,"1-4˝+%4n7
=zjYZhEN]z4٪ǰJDu!	eQ	%s`%@|{aNDX$a!!$-l]kwraxG,
"D#P421G,!aN.IqG
|FE"G.Ds9=C	95HC,(BI#&L"4!0b!`/y!Hfpq#/GblS`p!VjƢsr`bB!gpi,4BI$*I%f>HE*$<?#͜ɈްTbHR'H&fP
(~H¨Gz"/X
KH駃!!iڋ(	 4*͢R<QmŅzBT,'Gs22'l<,377/9|2a53=<0	@I#<1xsi8XA%uppp`lL@Z FLt,#*yn yPĢ STRE3KT$M4wgH	ZtR!"qA!rR0ft[V
$(>T
c!JF)Ʉfq6e@0Ŵo%%
૨YirlGH+9``|@c@^js dXc8rp@ X.tgABB2>
#C8x@8 ,>YIiďcpox:>B#C"CPDA+.'<,Ȑ!!
r<D>&!,WCƲR&FăOf%TCTX#QTR|2SՈN=!' u#A*Q	JB`fNp'>Ů- N(ŧJ9*C$jİq,_3G6YBW.0xsTYJԥ|i&CAkCh5tN}jw9M2Qm,çI@S"=S*d3YA3%B.%I_
l*2;A14I)OVhi8*BҦti e$`A 
% v 7`.YA\?׏}JIZ")P?
Bꐊ.bv{b+iSaioDL<f3!a;+o谺]0#Dg.(°6![@LD:%B"ou G0ahoоuv19֢U!ٌwsvgxABswg"A$Xq4Ex`E/ 4(?GraAD
|BG & Ux H܂&}IG>]p&AiHcdT	FibT\xR(F_yȹ,Fz<%EP&ɩR4(4-r@l< zL3r֢)JTeĶ5	?*.puOت(3	`uHHP	
Ga&'z H=6RB+YNӜf)Nvӓg@E)JTwQk+ =3S,-pQzA:ha~
@@Ё&$*\CP2d~HѿpOqDLVX
L0,Fl!fR,|wafGΛNZYr8 &|ECm u4s‵AnD0v B08Ő|hk	&;DCv@BAbg7= #ȁ
Cc"0BF#0|peo~#C>M
CSB}b(BuXx2,BX i!@%A"d؊A8 T%̚$D5"0,#ڙLC&ۥɪX/d!UJڋ(
ʣpY
Lh1I4=`5 &J>44BÀ[7Q 
Yp5@nA9
PҿL0ҡ@u] -!+mҝ@bDᓜ`I!L$Ta,&H 88KMNM[/<D7JI2#A8QU4\PҸ6b\y @hA0 x@ Z@@PH@	t
X'\L"<̂:(2C::|u0Ax==\<:L.H]C4@2dh!h	BpE)yؕEAdhXL AfmWFP( 1f4!lE^A؁@i"8<#FjІdJ!|h,%jsՁiEV ^aA\V1(H|,=\.MؓU&`it@T<UE#,.,-@o|yA"T=!l$DA>`I>XC5TB$XS$0<H,,竼!%*$AWiӜIٟA	fb+)
`JlA=m LKr!$+]ٳL,4\aӥq#4L S%Z#
 @dAA2Dl+щhnA!@I!C	j:Ĩ|
0ቡٜ$
AD!D>AFE!xhL$B!(B+jHbT0N\JC4T2F>j@,S9Ѽԧ7lAD$Ac:`Ah@d@qڤU=& @
 1@
d+:C?@8Ox
XA \$5T.NT%l\jd(lF^BTHea
^ PXe]YlemAB\!( r)h<Kb^lI, #[feisVs-ls$e>Fȁb(xP`q a懂Awlg2Ib
uAn DkZehUqG$Yu&w(Y1k"jTFm#~AoiA8|D1 %|\%C1}Z%)I`!'I"'@ʆA+B
Y	lR˴hB9I2l6	~2	 2hX$0#@RBD`|92
I䒗Y
2颙ɣҤAR< q-Qt0>]Ԟ!i!$"A!쩡ތAC1jC\̬/C( P0RUc2jOBD@F`1\8lh pgD<MIxTtA*@XpL?܃.8*:DC?$:ܘ- B PD
- TedCueeEVV!(CXZ BY|e Ll^AxOtBuF B1 oV0A 
_]Ytl+l W8]m!"`Kh|"AdgQ be܁OXj;v>qAGdmih1Id^aވzqa}w<Y@ݎFm!A+$Գt]-`f=rjvt܁pgAmN;?c>p(h0
0,TB'=(ɞ/VLH6 ĉibp!F?Ӝz .0镉1YI2JS[8қa YhZiSɠ R"e26	#,<n,]̋n>5E
!!hU̾K#4
CیC41JùL'LJ7Θ*76*8(-ɴ@*%II!Ge@jcxA 8$xؕL,̃:2;CB> DX"Z$L$d@LlI+ Q|K-MO6e
/^hzVemm2"E!is̏^; 8B.`.$C2h A\ exEqK%
Fg86 I'lt},.	w{  Alj&6ߊpQfB`d}ԟa)Ч'e A͂A PH0E
ӺCuf@?%C$PXZ}KgT3®ݚ#DB\"%0F0'%|iSU˜8/&'60
ZJ$ tux
P	$T4 &l|7aI
nc@Z
 9Ӫ/d(09R#|%	
 ｈ[$=8L0omoTsC,*BFe
j"D,Q]*,k*M1p0NDC}
,ԽA}<*07j/Lϰ*|@xXP[hlA"dUl~xA`mOA' -8(T%>%dw1\ CSd?8<V,hxŪ+!8d+|C11CSH]ND,h n-F Bԕ\tel]f]gyƦbiW Fm|lXd@ rhY5WZD0D"ȎAC"4PPIDA	B($qܹa4y!Ea8B8H$I|Z@qјxCÇ;A3Gg$ǌ6OpȲDIjE`2<bG̠aH(s~H($X4%;N
,xԈ4IkĈ!Fe`5n"J̑2_D7!L|.zF5(9#Qċ
(Tx1!36$Pŧ;bn0cFQL*	J©N|̘{0x?X;$5r$Ca830X:+n.l
,!J,;FCo0(''2.9DE?)?(dp'>OXCOdlQpfFy`@
QDME&oTRUT!C
oYU0@y(1\hA9I
(Å:8#bx@ec
>CWgdQ~ urcbAށ{t_]g_X_AdETZw8h$x)$9A( :$d+D**
A"C	#Bꠃ ":َ9yAJZ$;8yE #1,AĒeǒq/k!a/ "H:Jj#D'A8\8JQX;`,0Bǅ!0IsKnlOB$,缘Aᤒ:鯅FO
zKz׍c 4xgx0GJtGFI01I;d*{J%9)2f2"H}tTBwdFd	6u7$wMM#%8KA^@x#B㡡E`"KQ##SOa68w!'9mjD6QSх(߼O9HsB%UgOt
g
`z4=бRD^;eN8D!)Dlz05C%S|"T\(M9Qd<*X|jQJuJLjbeK7
q&2ehA_sU"2xE/y`36
YDQ.~\Xr1K`,y(;桋}M`!@̡$t@9ԡoV(7 $eHE	!E B2 th	҃ӡ$"zDg"Wx"zzhG:`P&)F7<ʼa+= B+"a #A"שn+G򗤌!XX@ x
\(ŒO:O	L}1\;(
iJJrF8p0c#! NӁ0dL,G0pF
4&! 1"8 ۤ9 "̠%Q9fD$#AJΙ`
='	$Q7QOhiXBhLOРKou^CԈ<5C`xrx:0o&	!}y{WIN껅'7x0?L}44AI}T(aL$KeP2$-sJ 81
UesTUgpd<@BDV2-3BIsC>T
oC'Їb:ty#XF4d=.	,RǾ  :~}J%"=ld<
iC*jR}p$gxn&,r5>FdgCT99!%G{FnZbz @tdHqy[6W"NII0:$%/BK@vc<6SD PB'h)kފ$c+F~P`A'A
>:$BЄKaI	Cᒀ1F	J^Tf$ vQDcHD8g- V64PpuJDBo$ޘFLA|oAc8z%N('H G[#9@,D(
opB8A60d"'A"{8!#4*&'(BڳN"mar\O	7c~[8{'ăGA: йFLI@@~ ~L`k`!
dA``BO.T$)ɬO:I-V2eQl!UL	WPP%
!
n3\
 		"X:8 @Ҽza
ڀ؀-.Ada`! q_ AXA
i0j
`Be^dfR%@vf0$f
$  &eHG|N."x2h~F~JN#F'#r ""`V&eVAg oĠp"N'2 	px'-B"DR
'Ƣ"^~
v6Ȯ΢꬇2@Hp: $"*"N^
$""a.BqZ	Cȁăt7*a?x(a}`!$A7xPޯ">J*!$-O0	P@>vB:?㿦cJh<0
$FCF/bAf6£}KU`6L53(aE*8T`J^O<nÄg4 A#9vH ̠7>^	D>	END6s0"F:)@	*%bVb
TZES\EyU*IlLTQ%
@L	\ 
 Z)%
9L!TtZ΁qrGATa_A_& Q@fa!&R( Rtfv""YMa!(&l`(MI"*eĠO%cppd<b22y(g1Xaf
`&& q>B#   	  ,!W*-','U/@Ү
jn ά|"2 6\2
gZ![>lF@L
vf촢X&%(*%$j zu`6BR" `5 RC!"!-Ga(7HFg`x#βH:|c9TP T@rA|?9~@n 0`H$7XD0.@,9H$8 <sĶ,p$^ eV«,lJЄ A6 PVsv;;5<N<@Db"3@ehҌ?/cБd7vc U8EQAL,$y@B3
o)	Z`Y%8
%0\`
8!7-lЁq4-S~1&&O~mVI#1At_ ff#atf('TaeJjM4UaAoNGMPY""!t"#=XpAfn1
$f">J$ $TqVn@rbVsu1-p`*$[\)F $; L@& 4.  /a&`&WW pUl ]M %@j p j _Y}	>\rb!ҧ,1a )-KRyAH!/ׇR/d#J Jvcq̄6 ^`:5v7BJKq9;,.,JCžnE҇2  7@j-Z0r#Bs7^~3~<r<Lrv? `A=`4w
SLL|Z`Nip0vt_ ˶Q\uY4x-u
ePAO謒TLQ -\Xm{	xEx\ , R z
B
6֠ڀ
m73eebt!`&K% Laހ!tQJ1);e if5ejRU&Jro A<o "0A[n0
# Vm1MUKDaԊA$F.e>j*o`" $stX!+o-rU'"@A Lpn)k ,҂	Ww* r Fܠ+jg@O)K{^E`=b&2 *B
t	 ,"6:C$08o7>/fa#ܲ,~$-FcCdJ##_D8F,@ ^,hc69T,<!<=CL?zjGD16{8hֱcaHҀ`?9j죍F$~Kv>c`d?s)N<2)@ivPcPw)POU4@P`S@WM3|%P-X. `
B ֡6Fi  aa4Ֆa^-?-q-g_I1[Q $J,UA%Tgft ya<&	0<f!({`\nja\RjY!W@i>4JU%cn ! uH8"
(FN)|{bsr*#n`@@$dPB%^"%RVaf!o$X'2  BN#F7+_>x0kIR#L0EbԈ,3$Ib4Ф2̄E2!PG^eL%La!C4c#f0rbB1DFV:
tTI76(:tFfbt+FhC57Ҕˋ
u2$c"WWr>I_zm&i5(W9A桷e<FE9O^ܘɓ-?xlE
gϟD
)2.♿w|<pͻx}lO>X_~З̀`6
'>
M|OM"!fB6dX 9꓇>l
>
'E9Ȇd>Mds倗(`ݓ 	#H6胈>v On3&#Agu" ,CA"uQv u Hv _,bGs a@7<",Hs%."%s"_b,!"QǮL7xC 2 u" vHK ώ:!c,r؋c|@HX4paX,!AEo`PF&ʲ#eDC:k8@	P@16A&|!
ȡt }("
4Rs1"/ 0FBA?CI>fpVQ#DRW#$A4JLb$)I(T/NI#;a!<1R8S!GL	YBWpQvDm(l mp&o.W0ΛdN%La\ϖדz%FQPTNW\``A$H=&H&	<`2K%U[|e"{.W!`
n:zPD!*PDvx'<AO<Ӟ{' !8f\@P~Ґd @7!aD*⁐!}ExA} F5
>h"BdCE}|AC'rt$?d#<ʆ}8Ba
]cP\dC	!(0R6Þ:Q qސ>JG}R!\A.DCЕ+Az!QA] Foj(8
RkW5%-08bXԾ"\A)C
QЁVO@TQMBt`K9@`YqЁaeъT$); g5C &1v~_`aY|M*,X L@4fm8fEiù7,B\H !/tEը?ri9C	-CqxsG>a
$~<QiHHvFTN1CEHbXPq99DѐVql]qϱP6O7oQ|H3!Ye~e-\*w`#I~sCL)QJf-` |afS/Dh'R	
`7*	:!p$$aea>gz(vo-` (7Qx"9wg'D	-, fH $Q@@!a1h!ŘAGa}D!b4"B
4rQ\#!S O{#!
GZC6@(EiB#ϑ+1E64J˰c<6LB^
5
jGsZS)'&MXDik0tt)#؁^#U/Qa`A0(5AB"qb
RsDhHRZu AψZ  V"z4J;RmZp{Yr,&bE	e7
wFhx$F2D#HDF&q]
5{kD'F.!L#\1.]աDD">(d^(&#5xixH]KLI|Rtp&IcgIK{Xv?xnJ"p)^Rjc۽ h$
{/^))nΪPjg,@,~PTr?1|_"X}!i*,Rg%)pPR?<!?(-<FxNac#_Pϯ.K#|~CJl"o"(B"
('"&BVE GtPGkd 


T
T%g
%!$P&rQIp
OC͠~ePIg$u&I'b$s
Ia>@ir.Pa .`75PEKu`u "`naP.

R0,22N@
 O
 ذ
~@&6._q`Pr *rwPL= -Hpn&Vnc`a n,a//&3oo#,`^@R+ R=03S	 83SXH&8B,.N4.KT4&rO` rP.x0/0- X	A@]pPt)!P	ct>1`?{\y.P.Pu
q<v8'`*P9 my!%Ahq>C\?Vғ;*[x(A;P8eBu>ad
^ 
yqC<Zg	@{f[\N_O0T?Op{Af
FP{7*
B`a(
(!qHtCr% b%1'Ea=!N
!"5"3Bω"G"c@#9C#V}P$vFFdr @~'!p!dB&}&agH$t 'LLIu LȠ
q@V.P.. @)P(o)Yqu `+@p`kn"-Pph	H`΂bb 
,
4M5P &2Fpac0Ɗ:Pc0h=s/X0A`Xpc0Fo1xooi莗E ` ( # 0Goc03#6_apix..Y4UCG#U
 
`r.v a`P:@kP	>uEtL0M	 _^@YQC{%[[\11\YPP;f;sqQwEq^y>q\*q@H19awB*%qpZUت%[Sa5!	=(0)qJae[? ÁyxPxa
p
Ww}HBܧq} P}CJbIb7T&fY~I~WDGDr% 3vG6#@#;vdGVٰciE:cEW
DkD@G %+!UR%
!
-h~& Ɵ|
p}
&tD
}2')P)"'*v0

U`:OZP` / mv1j)+0bk+6b0b*`~ W@(5Ucꎓq"-;H Xw_map6
E5XЊX 18êڈ6Pia # 
oPS9թ
w`p
oqHrVhOlOХR
Z
(
4`PA@Q@ZeePN`QQ@	h0hhQ0	8e-Q.N@#1Q;a_a\$qQpm
spQZ{*ZDa*W5Q!'*71m#+!1ZKqΆy~ٺ<W8YYvq={~akG\e7<x@R|!}aApAkщ0}s%q% }b;!8Cneck ELD!ET}UD#&)"K"٠fP	`իC#]-Gt'HB~b
 fg
 R'
@'tobI6'}R'zBB> (x*`Bj,p#9 b0rh=k 2z
+}##bف` P
 
~ ~4[:.҆v`q` apnbpn2nކHȊw`v1>ŋcXF _P X 9038#1Ë00x4UO(Kc
(e*]
 
l
^'
쨎2:AP:*:,,IhIpHhIIIQK0sMFn60 0chP/Z : 
ǐjR0
9`4 wm@=
!vu0`A9{dݴLAK˵Ce3A:FvA`n惕.=QY	}~ZW[W^'B y?` v`Ap֐BaBIa!}kӿ3= 4%Pײ	C:\H~B "ؙct'":
"-
kY{GBFBF]MGbQ2!	֌TDؠ<%efUImҠMJJxq?d`ל$bС2᫽EUk.E59 /]LbhE -Nդض&u 
+Pl Nh,p+Ǌ.~ 
P

[(Muƍ:kx>p2b/Cv:`Qn|JQso1sh8%`@ݩ33gS3
1 *m`kG^NR5
P0
&@OZZ.A)3Zpap%~P.Z0hƂp	p	pPd`Qh ƠY4kKfA摝
 f*d'B,XrK!Xdy#wD*ϒ+fjD,dhf!Cf0:2G1$V#!(Tt}3bO9Nm$V,#bfJaԨ)F$EjГ'/͔$C>[Q[<!i
bȐ".{OBzxI'<p%_\{Ey۞o>7o>yɿO=8lg.~ ,/0)4 !CI"1&1AB4p}2Ȧ}(DȦY#`1Ql)/FGt}l="E%{O}ɦ}Ȇg ч}чAA$7	SKDL}pRlDDd0ycDZBÎEy9 bc$@dK&t:Qi  p@1qDưd!UU-CG0ĕ@avXy&`\Do\&eVEesD	O uUr ` x#B<C	^BW,: LxL0a7 	xx/!F!ap 7Fcr	lh7fa	pt:dhGyXCYAbX&WaŕgSA	"B, 2!), '8\
4@c\MSK 1&4.1K> cH )XИ$K°> A%ܰ#y':B܈
7#<yvYX^P|0'$Cff`#`gk!fb&D3Ҫ̠'(0BB4pI,9(FT1Q! [$\cm- 7	la aBG؃pC=Hg9׹q#u{tHYXqHb$i<QAG@bFi}t (؁lL@o'!e
`7#]81!?i;؈"2V]`LO81L D6h%9\	NT*S22
bJQZ!PAr*7b02\e	GNu*T:DN!@gJ9%Xa
G,f@
cӞ<"zBWdZLnSw81f6S&  0 =xFs62(ЁR)8 K)PtlؘR@@J:СZٲYVFKdDf3\qov"0qNA0@$
	xtPk_Ӛ.&%1\b(\2dPЂ#Bo8%<`
R84
`2x@
Ac&27!9CטG+Q}4C
K°``h:
6\ʲai
m*Af 8w
SsxAذU86	TBC3h 
C8Q0Āga6L
wwMeHD8QC",N?QJ$s4gb-|E.ȋsO4tx 9@ G}豐)%!Idт}!C6RGnb[R6aHI>ԡt %X$D(C/KdL^I^9iLPVY"O&p
 J0-@ǕBu Uu"ԫ)PKJ ^E>< ik]~E@+ H(F5BTkPr'gX[U_@j#Nn%`
 <Ze-gZ+o[#ye]Y
ZLjX@,m0]N@ޮxP#HȰYK`=^`ķ!JT&	5dB
ix@6A*7ڠ	0ˉ@A
k^BNhx`&HM
/6B
A_30PX0]0^pC XO+⠉< xBp8IŰ{x6`(xfxaЅw> Cx=,p2 . C1X`='زB與$"3h@d&Lh"(#437ciZQ59%;3*"(
C3D<l(Ȇ`
xB8lG;CKۤ.$9N-qZR"%TW3Ze% $Q (J`%2$/+15} aˆ5+)}S|06}19 :?=YX@sxb WspWÓC!Dgj7AgB;qt=)qJ>Y0 (D61 7|pj?+qGAhPC/xu1Vo9۩;q)0`;ˁyhȄ*HHz0q 0;Y I \:ؓ7('@x@H[)eQJW}V0,EB3pB -Ђs8&$8X1H2 $XEdx  h>P>N/7ȃZ4=)>N0U`>6_ &-%0L1k|c Y<0L/ Bp7äTNPD`C课0+mxsp	x,A-I?h5f@0FH?hPR5-X2yfP`.ވFXP d08)ŰC8/+BJkY+
Ҳ=8  y(Bp!""&<&J pD-Ѣ6H5Z1R%X#3,kC} $/$Js4+Bʐl} SHU8Dt0p%/:Zjg %2522(RP2P
B̆4GE*aEe
Y0eb_T}Q8Y$0 @h\8A8Z[LI\[:N=(CB H<jM)pU	(@{<69(CAhVRGcIjI+mTV>INu'$( EBf9C
hW 0/H}Ł4X9I@ q́7R7J4+ARJQhiSJfYcQ2_q'-$Ёƺ2pB  #@p,lDȬ\H$K4hGx $p*x4P0$?5` حML>PzsLP<X=&E(-,UІu*OW2;9Mu7KjGeqz_*?0Հ7N_(P
ڌ-:5\+a((?y9p`0_*L	R::07H	-
Fo(6
  E`2(- =""}Q&dBX긇yB5|"63,JC5b#!^
>2*C+t<=Ӈ	aE
xBja}H-TDa7a4/ }}4Ȇ*Їh$L҇b "!i9;d^ ;"Jlgx\"7ђ^J-1T-!^^24yT*8 T}0h:Wj8j[jGH[xjt@[q1x}J;IN; AEjʧEadMK;@;dR);D	k/X}\i+=<єK)TׂĂo0UHWv1fJ;#RzM1I:ז"X~py *CXڹyq6676?~v=?UiAX_iV`Wh'B ,'Ђ a-рph9x$ځpy3HDЁU)q(@K:8EHoXc<M@T 5P(M `N5؄^hT*:N bOކ^ <:[|&:腶>L&<hx# G kf>3(1E1/0fp2@
+2&[;8,P!x'@lɃMp
:?)X@0BC
P7X;!رhd@VPo
<L
 a@"$BFon8#BX;3>43.:(B+$7YaB
6hg`$/Ї+ЇlllT%};qP&3/+3;s`ǆB]C^*Ke6C-0vGۓA:vYxXHU[HYYr[XdV(;hyC[N	]rTuGodn1p(b͗V $0S;,`:Da0}(/Hd]Ѧ5sg40(qFw
u
Qw;WaɄ*A8"0"h9$(ؒIYI:X*Sר75m6-vŽ@hG7g~^cWX~jtXII(ЁЁ1' (Di ~
v08188Yq
 (@K820@(Pjxe&^ce&ϵ*(dd[&b_k^PȬ?_c[5fȃv 
]]:0U _ *`w(b@hi(Hb`^̣vP"PHЂ0 ?M`h(Vp'[Pg1-O6a`betR!Fi18)BP{PӅz^fp2PE؂ׂ=ЂoP!DB0d%Q,,2p"y@R+>3Їg"A$`6ɆvK}lx2=H
3eBW:PM lM{٢esh
*[+}Qd9(Qώ>:5gQA	e\5\%Å+٣d:HַbJsvE9Z$1!W#uv]hYGi""]AعN;X{vL sG DtVj.YLf$	fǋ$#I;@ H:oL nb
@|B_p(ՁY&9	_ A&(ѦF
+Ys
Mkч~ xSN,ϔ
4RH $ZsZ]:dd`3`F6$F$eEh`5fp$%$Q|P8 nx
'mJ3 CL*/p
3w2
;KhM7M'PQ&|@G|Lhb'&q/M/s>
82|1ĬC3`(s8c(l/ll
:=3<
'J08ܓO>8z3B-8#
=13+8=;at|?S0g<O<j4qs6*ǓMA3.cS2ߣ81s;r0Ct62r:\aseC>P>c>IOeB6AaO
OpB>>kÆ>>`Ӱ\7(>=YKTTyAdHhK>0DR62F8dSL6@$GAe꜃2,K:Ǽ2%R+xs:S= |YY1j
rVbq
Yp\im!aGZv؁"fObscc1kr ,xoހ  P/PN`hgMq,0g8@(P`
y ĭ@~0 /EpErLCp7nAb,cB08p 8A=(2 r24RFq&Q(p8F$"4h`28A.P
npC ьNh#p1\aw@pG3֑<ĭL^00a`x &J),G;+b;(tQzF	zcH9)j`_xc?!wCH61mXvdЁ[jH&U	tXq_Ї>1lG<䑏~
8p<*Fcȃ&԰5!ʆU-̓8DD!?ÆQ3r^23&"W)$),^ҳy,Z"Ae-=Ԇm(B6@o{F7 p'l(NP>t\"3ƽ Hc}2j FV
ݽA$w!!flvGdb5Vu!,A0-䂈Gv?Q}(FO|/4l Bӓ,X@ķ|zp)	a$	$A,J%ƀo|Â1A|*>@$(LP B(Ё+aYV\ xF 
XyCqr^8џ
	@Rh(dQ Q8Cq76d h?0d@d42pX7hp'`p`Q0`D1&QkBD-x"ʐZcxA'р5
ELV5vhT#lD 
6B([iX>Ρvh;衏rV4TgPLֻMb9!"zHǺw,vyP)i<0Wq;kyrcb`gh E&U87*?T
4]
|C*z	5hbhZ
5&Zݚ3-ԔC\؊(VAl_}w۵
n1aj2y[Ʀ6uiˆ򀺳eno

xѲ}tTrk6.$٘EbU`÷x76k7u[m$$4y6Rx{ѕZ/5E?4c+ZR3^cD% %E^AO AX1XakdOWd1 a A1lW yXgY4P&A$O
zTYqtP@
p@āepFyPoY@T@5!x	yP@ lBAH 	B ܂>TH,B	B-!PAd@ 
"(y "@ȁXe ( ܆i(|4I"0R@@A´eE,\[/2B4X1<@B1A	H6lX0l˙BXMGH1?4&=:YLD0.C;JBMD3< <@
A	JX:B8BTO6>P<8C( 0CFrK@,L (LG*;dƸP~X)b-9T
])ULbL]LALxdeeMIW|>ڼjՍ^j^ݰA6Kd18Ce
B0YtX2D neLn
MmXMH|GBY.B- +8B-"0O5TFlgO^}{XmZS4WZ |@CkԁyX`AYEY c\PX,xJ_P@XYG_G{8	%x  @@ @ @aB *<4C-Ё(-䠩X,hbpڳm 40L'ʚbzX
<qqR*y@A"t$%.c/R[-F.v[΂5XCFCmA49~\dBƩCTA>Xm&P62rѥA/Ѓ7EA tC,T	0C@*6¼DC"'hB0üB@
0A3qKW4Ch0A?jq3ԃ5yJ:9
TT,?QKZC"|ʤF̓_]S^TZ]de_eUZCde%A6dCdNI%Pl>>\>ȞddC,mFd:&wYGܝW@T(WbM؄JlmvDNKDԁml"5&.9P"B,|EOOf@{MZdxO .j4yr
xځcl ΆO]AAyP!Ygz@l _܁pG,xQ	}Yq8.@T@.BjH3B ¢-+BBf@ z@!d`A#%AjAAR$~@  `AR&lATڒd$LAP$܃.L,̂-j[b/r[/))5"b!DA*(#6xB26'@=>;0CBPAp3K݃91۠L>,=;B4
BI
C"МH .Հu*3Tw43)k	|8f*Wyu;B(=8:= X?8(P,CY	DCP]
*^Dce7LD^uTT".ʌʆldd˦%AfCیMMgl<mlـܼA6DV*Ą> ,:TMoaBDs-ڌDHt@M|A BxCRԂ# 9-9t^P؃MEłe RA醁Y zh+1ځWb,H.`d`!!kche AܒP #<Wp
xx!p\8 q^a
qV D &P|Q)  !"<+<C)!+m
|A/'vR"d@@A'9A8Alk@l;AAFXiArR'$A8A$Ak$$\.-b|i/.c
j*#j~_5A4B=dC= &1?8h8 CC,9C	4d8@C0<C5?,8C)B/W'/7r /þT/B:/ C7΁UOD&A* 67|CC5:8>==+̂ļFYy]Bl<,H]-V:2,R*$M646Wl|ͦ{9A>lV<̫dZA3ެMlm4LDtN14
dV͌a9eG3h>I4MD Y+k-ZPEDz{tMOPO^Ax5U&S{`8菆55mlΆF<($FO܁6u"[k<@g"<!<B|`bG`Wy8 | p z$A1<몈\  Bga vg6"4!h߁ %BĶ@P7 Ah@@sW@Z$h$pCD>@%L-
),\>)#~#'L>3tC(䉞*1>^= - 1yl(|0CB*ly3x+|C5@5C10%0*xCp/6@4ã/6Կ6 &&|LFPj֬l_{C_%;v3U3?+W/0a`
\4pwދrD}6oh6Sl:JUUTBu4ZհcN-ڔQ[f
Q'E_}eՅ-(+>
Rϋ@Cr.٬㓍>?'贾6z3VnGHOy7ӝuV3Ѳ:G_ֈjgn>eώ:ڵg{/N)0v !hPrpU֫E'4(/`,"DGAAP@B	p1\ABDdGA	B1Îi #ABhq$8EG;b0#0È2;	"; È( ϿG{19ȁ(0a@N<+328fb	3X$,4B t K,l;JTVFA UA V˛#;1 - ,
 (\ Dtx ,@2p
,n
 \pB,(; -^H( ut1hAoH$X)8YQ`kN8ka`%k(k<8lcozF^z66q曘>ƛmѧAf&`Xayřg'Dx"0oBg\# %.d:p <s%҄mm|Í^jP+lCYJv}jI'k%΂7l17
J*FwJj2jwꩰ
#
@sF/2}ǭsfB<",lVL6NF92%HccN1}F D2@l:)E60;Yx<u \@x+!4Dh4@c!CC'B ChH;@A
Pд v#uCZADSJd1b<%
, "v 81A%!00HN6t1!AFaĤ済GXC 0	P'
$J@YwЇP$'a@)Q$d ::`3X*RjUBQVX.=(BFC!3`).Ȕ4P;X \Է8)	AЀpT:"(O}k`Fã
(1a%uX4V1rd֐nC(	N4D
L(Ћ50`/
-hF(Dg<<_9AVCMA|`xZV״Ł E@
mC08:x
g
vP1rc	K4YL-u?a<H&TA[ ,[Wr;6JR}D)D1nltx31
{F}tzѮ>` }
!W_]Adc4Ajk|4  "Թm9P'#"p) fXA,态9^QEPDa!;ԡo
AQ\LFP%rɣr@E@}Ġ$^CoUjUC 1CPv,i	=R|0!	0>@f!o*fd'ki{2A 
vt CEH.pK(C@X$C 4826]aMYU`0XI &u4$,02`\AupoI#,lŉFA LhZ3> \`.u<$4\%t1D
;"ưk[A{,cÎqMhcx;X	Qbqcm
@6|:o<x8ԡ7y.7t
!Z^
?
S?:=Oӣd'i]Ra]'W)qc\Ўya
Ģe*F\[2xJm6w٘*)/xB4m^(_{=E?|(h~N`b#:a6٘w@0C 1h_3|(n~Ɛ: 4]%FP q
$?St1JV?>@ݪHA*& ON`*ZApFa<*@>p>@OF Pd   ,@,	 L`t @ڰL
M
!]2`At@>`>` ~mX8<n*@
aS	
IWƍ\XaaT`aFʣr` .FR
Abb>f8
%!@
2
ezA!̪ڑs.*1m܊'mqQꦎ 7k:%.x´FG'H'&%|'V
#a`82@`<rcc%ӱ1&QQQ 5! {'(
ꊒny&q&2r&1%r+%9ᥘc,)aRyQavq$G#B2$?m/	/$#;r0s0?00130
1I/0-232$?12!#'3E2O2CS3-#!s05;R/`ڲ`>Rzq{`J
f$&c*n%2V,¡%Q:ѱ+%gR1m)Smr)wNS)s=CG%&Lk&.H'hb'*'&,R22`#
s@6~ߖS,9S;3*<rRC.txR=1T= s';rBѬ%a:c:9%
A<F,`2H1F7azHmS2/4666CJ0KeS$41LJTMK4M4/MLNENMML۴3AJ2``$cAjAIQqac
A$c|GY+%FaT&&
T[TٱBSDDs2CG4(N!'ru"]%P&|??m@%2/
7!cX:5+s\C9tC'=[cC(<ES<<WT&WTa:^9FG2%c
Ic:a.
6wQ<6MJN	S5a6=JbN#NbOcXRbqM4NEJ+V0//3V0aX=@-a6ImbHr85b,G1SAS:ҬjTWtEUk\[=Dr\ӳ'&zu'")R"abKTYvc:TUBa5Du[v E\ŶDY5]6<)B6(!FR;]ZitjR^B,AR'U%N-[*bN
cJjBGB*XY6͔eqO/3vaugra=jci3caxxyIrg[SPgztzKw6@wyka۴{gsQ?j76QHU63cJB3G+uFjYE9wk3sqUM4llU(7t(2?1&WEXm#6#
/IASwaFEՁwD)qXC(VՁ*j;UFa]rTEG%YR,_18vvvy1P5gSXP?2׍7;Jg;aom3/׎r473X8yX՗axa8y

fُa=J.qw7MRYm7	c_+,tpki;Xu)rϕrle5Dk!6n&0&'n"w1Tr`a Uu	wߕ[('7rǕlr#UlM4E;8saTFvZ9X[iHq*H֛6=*.-ڢ[7yhx4֤6w֣=Y/Cw}آKڦ1Q}G}ZyS:qZa3b:cts_.Ͳ%g+ҫmy^_*'4SخnrUclõ/Xu(b&WSWWVoaa@oV$O`FvMjpE5UskRYqw;7;8E;xS7+RPi	v|Zaw7$Z~GIYڤs;giڣyQ-=S:ۺKr{{;Թ	ոFy{61&IviY*HG9uԆxZ*:q1wyeU!㓚S'V#oQ8Ob2ӒYr:S=\})7q;[AI5ݱuYBGU;S'A桅`h7iz`ƩGzɝʙʟOˡb\1̭Û˷\<ˑ;<ϜI;㜦\ͩΩ̉wa]jA2-cJRY2ZQ%}|ĵӬny&xg빘'[=r>NW'bt2\0AZsxﲻUv^8K[W+Xr٘wg<=9EE{9[Y[uvٻё-'ZGbp߉Q=߇}=ߒb{__%q[҆}}TQ5s;[IݘK'zRWIk?99A&RMjHeiA& yRŃX\iݹ K(A^sWر[^:^QGrx8ȑqY׾ٞԥ~~Y>^۞W*i~^?_ߡhSCpoĳӿ9kK}zCnL'pBo1G
sF㍾6c(~rZl]ޗƭګ6tUB9-6U:_޻_ )Hp`Y;8P!C#BLÉ
VTtmᵏBviɏNc>^$'se>4cڼZ>@
JT(͢ES'ӧM)t*UUbݪUY[0db筝7^Yw	\D~oቃ)$H2d!*tYӨeLFUϠCڵ*魟?k|Us׮=z4P<ig
7moƔ<<2̓ȓ_fУKNسkνkg#y['>yeΙ5u	Tn
֨fgVWXaeV<u ZdC]f%RH"Ha!]D@DP=do?V[R] jh6 Zf'VOSoz-wzdɁy'Ye*Ghf]&ѹysvɧ){Yc'"jh\(D{Tee4f[Q)ITjCvj^-(ՏZbʖUWYl՗"%`va*摊**¢sUZ|_Tz%歶am<yF'꺷5٩O;&p7MܕFJR ,ps"
l+ÑN1}Lzz#׆\*:bKnVU`*jj̱*]"|a$,]Ñt&e9Ӧ
U:rkuhz&ښI&$٦I[q"e/rםxy)1k1oɤqٞ"#⦺mIur5"r,]ς	t5Qmb.fg{W[s]l2_/AN^_JꮥAwGƁ\K^6ן[o?>rG'/J3ħ
j~kPoF¹OıT^iDѠZf.RE"8䳿 XȢHĢy$IJN-	x)
E YNQbBPmS*۔=hR!ioJқ8mg||,I;"1ԑJcx>~t WH:^y$qhG8R$ARIBv2$&-GH֯DMHRjd&wQR##A%JaؐkUbPZ.
& XKBFQQGi&ᡊGɺF2k1O]Rwr^8IX^hFQFF8ы׳h5QJԢ"m)+e
R4\G_Jt0%`IyҔԨ3iGӦ
5D=*F/RTAeSUN)3vUqBaM5Ve¦YhBz8WE1."vK!F8S)ShO~v[_(ye>q}WҎմkcG[Zպ:Ei_֢lS֖
o[-rwk\=nr
׺ut\zWk(Z#$2la$Ъ ųElM*,Y8:pu$*a0hKc7'-QkZ<1G^(>cb+Meb873qu|c;r<6F2,d&1jɄ0P82TUk誴uqihH>Tm"͝<ĈwmYeRG@n!d";I%dJ;Ґ+Kw:ӜE
QԨUFȬ;=3z]br-BAsUZ^Mʗ/cqH~a-$QHZd:6qhOpM3sTlB[YOz˻ko/.78x;FqC<
5O5*>;4^VD#./oYB3e!v88;KLwn2f.@=<^>2
Y[Xk_u]&qXl睚5,//le)^Fiv@.1G8JP8Z	n3}ިOWֻgO^34\rUVsҠJbQykvoS`,"҉<Byr햦+A]w	?o/Ͽ xȀ
e66I-n4x0d:cVlq'xh3fFxxE445g
#EcEnOEY-y_OEQOFg{DXFxHJL؄N{%z{`|+fr=4Wa
{Qf1<FtNoD/;#-#ҲV~Vt<O3pXx'#9є<bw9YH/W+0C6+g1{_baDE"!Xˁ`̑;pRg
;fg'7~BZ.h8XxȘo=hr
r
j1 
_l!,8x
AGS4,(`&Dwz7#榋8#L	
ɐ	ɑ"$%	&(S3Y2r2y'"gMbk12
3No&f6;qm޶={s<Ha;Ve8rR7*ɕ+`yaٕbYdy_iicnٖpqɖx.M0
"!dlb6s>iM_!gD")r}LT;˲#W^VSɇ1tYY96zYyٚ9Yyٛ0d+Ѱx073Tfw:3|3m;
6f;p`܆J5a5yy'9YyٟɟȞAC;D!  ;3bXfe3Nw%MDubHryuxY-	~,-.0:2Z4z6J=s3ǅr8f(2sBDЗs"A
َ8A15hE깋f08:bZdzfhjڦz5+· g>	s%xDҘxFXmBar^:ZztHZ!&
x򜁗 ,ѠAv"a
S7 T钗z~l:nZzƚȺʪa7)Ȝw xM@Y,~4#
"x
0)VdjPک:Zz"xZ*JdVxP>`V}qh"a}8nxڱ ";$[%WDM_,zv
DGM6ece)jD[F{HJ)|6s3شfRzӊ
>gEǮ@Hȴjl۶npr5ʁ l_gNN
줂zXmy$d;ZpJF*И!z,,RT#;oZ^l;[{MpA*:ev	z}!jNp8hkY{؛ڻM9fz_a ۍ!C:4ƒm}) 4gPgB˽ \ "H߀7
r@𵪅xC)	ޙ`rV:&|(´|y!x'4|_D3"ZKؗIt^by
"*n*NP̶S5\m!: c|l8v4U;五 h*uǱQ|xz|8X	
	z	f>EqHAwfY%{ɞɠ/H*p6"a<N4ƭ"T*Iu48Y֥\|O<ʦZX
j*X,ÐmA^Dro|«P>	,l	:WkfFS8;SVsk
+,͉lҬ0
8s?4;<>, <-f$%*,
9vȤ*<,g},
pwrKE9wy-PiTP+C3sq
&"Rj4JMRr=#Ո܉/WʦZ}{ѧ܊O
`Lm2Lג=ٔtsuwX3x/}LնqEN~-UXٲ=۴=~x"r~Aʿ|%,Hfo&;&40BQ#,Ե==ٷ}+57=F$}ۊǢPs!2x$
'-~]=R
tZ!b/lΩEM:5!Ew#>;֝5YwG^sCrW} ۪3ۆܙ;{o<
>4Њ 9xdń\f@Xf};mȰ"HG>`@k5^Vn7M5+3P;DsA}mTj
};W^v^jr\Xr/l]-Ӈj",LHZI,Fw>键Hz+嘮_|N~1;J,}
j}w-9X yݠs|_"
n̒;|oxI~,Wz{9<9sa!Ds 4D[p.׊͜4YX!pI;/Ǝ~τt젙ݚx-!h|n}?k=,}ya_B_ ς+Ok<tkKH󊭼B~9!z5!B, 
tSKh6wW}>mNH,BNywf8rj)5k֭@xA1z?3b/>ǰو?ϩb6|nmС$m=Zڒz?oݨbLrRsʘ0Wcx~!1;ٰ|
TA*_?Lxdb~X+` \>DB9|ϡD-^ĘQF=~RH%MDRJ-]SL5mN'8a<	syCwFSطxԙV"QMt5TXEu֬k_E֚B].kt-7ކ}'FI`
FXbƍ?\TPa	f
C3pUajUV~;ZܵkýZ8s<JD/D?]tխ_g9P"SSC>QZJ:׬F#rM/븿(j;dA0B	5Ɇ"'v*j)p$+<xGLT?RS
^خF|ǂ$@JA&D2I%dI'<ʛR6̳f*Bڪ`<knq.7-HO?4&+9͞ʨB	k/F^fn7:ch9#UW_5VY	KV6<tBJCE4˪*5JK4eypkS<PY[oݖםzO\̠NCmKz1-f$.
D7
rHl"pfa~h$k¡pL)
u=Rʴ1˜5Mˊ欳fk!uZr,NU8=!gZ#A3jɦLPzDz0D}ެF٬6]SnU|ZT
sՠfmPJ!+SehѮimU|;r'Ɋ%M3Kt1GBQ$Ҵ7Oi;ZŁh@4Y<x'F)*{ǧ
^%Dm]틑ƲDjv.}߇#q=\$P{]+VY{kPkqq|*,~`ݗ+
cP%X 3@~ŀi4pT*>
Ї?B7j\°g.pDyV&ŕ 6ikll:_zw3gDces3Zur{<EP8L2hXW5Eva]nDqjd$%)+TP0*1M4BDEKYє"e;ɉ`84#)IҖt7KRI3 SFDp #Szt=uaFV2Ev~D'O!.9Nrf~BJʵ~ٜLĞdk%.<dkWR7˹P6'Fֹit2߃@j^9W9#""($G*"thLe:SqQul!HfC)OQB#>wjM֨|C[F`JSv:*Q\#x0)4fenVM6#RV:X=EiJ<2n_ZiJ7S泩)^@mZ+clHE*h¶ֵIБF$'!JV2dYEM.K)naJ̈́Y9[}mv?18='YȢ3ȞwRHiW#@R8=	vpw}=8iSnӈv7)SS2SWOcm-kj
-F""]lMp#
pU6a߭#Y%VL,ŜRԥ"΄}=E2[VS6mu)kW<e*̷5pZB648]N;5ͮΞf2B Yŝ"Mw3fLTEbg.0'y=spkr#&N9<wZǓ:FԎs21٣7vFڄlR5[)uib[e쮌 9Jj8$VY~ 
68HUMVm^&;,3h\t p#b+(YҙV5=q3?S<}7sa!`̈́dJ!jҌTls/}CHOxu `(==lA7==mSn-^j3w2C): R)+lJ|;o~GL.Ήx2 \]9f6uMu%ֳUw?Dތ/@ƒo^-!l^L,ޫ>Ɖn9OK&ts4(K٧$bqaS\%HտDo4~ʖ(1u{*/+$qs[ݑ.b7K?@	 &r10D(;92
=CkX%߃`3Պ[[Ļ>
3[4p#$3X
,B`;2:3{#yYJy
Т/;Y).)<\yؒ]I,!58A(3c4RC!y /=Ŀ85yS2{(ґ0>p@hÙK9:C?_<!j\9
I,Qb/cQr{2E'0"1oq9
Z,ܚ)ams;MI؀Bҗ
sáѡoǂT1BH`)ċ(Wz!|r
+-'úlQ_4Ȓ$6/LBѿ:کc?ࣥsnBE|d.0RF3ɢ|QSHec6
c7z| 5-ȪʡI<4ʳLͨL9
^kY#Rx
!LDCìÐ*yaґ\&oӔ0~*2#ˑJȫDI*D튛@,DqK1k3\Ѱٸ=fq3܉C˻d-L.SLMr4;@dPdXK [A=D')Aɱ;Ń,C2([ב*¢Z(~$-_,Y7DP*a|0::Ҷ8Ï:A,
7HAa28TLQ:"cﺾ='Oon[jB7m/@OUR5}5ExYJa*kG8I%eG@̣8jҰ;c,I&y<fΗ*#Кk;6eTIjRq?+"c'=2˒!cC۱;LL([Fe!Ƌ"9M>+'5dR%|r	TGVs3(Xb@kd%JyS+%
];G {IN+D2"Je5"h
/t
ҿ'kKIhэhK`̡,N<׃}P%[E!b؏>*i
;T#Dؓa\z^ID=9.5zBҍ}WL<ZU5ZiB):-ܐ0V|*ej" l43Dd5[e?$24P1AnSHΏQӺ*<uMRT{ɲBȵDK>8VdȍtA8EM\1RC[p`9rM[TI܁&(3\E^(A7)e}>2.+5{YH@Tժ5_彨804R9Ƚ(jUXDXɋ"5Q*-%5$ CKHߍ)2Pg
K&#K*$Q8
DaVZ˾5ۣЍ_^{ :`4&oaܣCB8XP#wP c6čE\6-1[mJ-f#d23>5<4H<FD%[m1Y2d>qV_CAኦXj4<cȼn2	@۵U2UeQM#	CK']15L.-޲^Ad:A;.䌉 UVP
 
I;,NondX2͌xМI	,tmB1ܯ#IN~	6:Z5cj89vS4pXWKC:dh&A/!J^>I<k{6
b90A蝎Ҹʢ=8Kj<XWMt)fj(hzuMBVpFV5AـZ6T\9¥^+Cxu&aZX/MѢgY}$g븉Bghf5c#8n@+躈Cj5!=^2ˊd˘'~)"ӌ
URMy
;ƍ'C֜[Z]>h6vǞXHX.$n|.^>$H6.˛G;l}ǪԈdiH7YlOukxlahٍhDXΚcJ"]?f%@?aRX,AjCi4E+o	#Rk<	նGY묓^ի< >9>e/g
aکl;!233I6N=r55]:gsEX|b)?=Ӛ+5smSg	DRL
aMpOeI$_NqTjn'<ʣ?Phs*Q%pẁ]7jU./"i|ښArr٩/ho@p/E1)nΨdjW&XÑBhABͰRtta8H_th< Nf:ie7*GҾ_
fh>ЛTJH+KSM+ןHnHXwP
I{ױGùjmAMSl'`&]
	#'{W
	9Wv!{71/Vg	"gzQPМo6"ffz|/WN3a}O6?lVOZYHҠ5+#ϞzQ_>"nj3@Xɶ(#q~`}i{6a+ x&,D$jE`YS1,k;Fv5k*Wg9#WM4woϠAZ(ҤJ2m)ԨRRj*֬Zr+ذbǒ-k,ڥo=8wnxwD+Kc" G䵒QN<k/c)͙:u$s(jBe5زgӮm6ܺw.*/N.o("ዋg||#Ǔ/G^i͐<1ü9z@ׯn=ӯo>~6|<Wr
t2hu9a0Bمa>ahwOkj"18#5އ\x'`^`r{Ts	8aFבX4֔GxVӖwډȔk6y&i&5	!t 8t5qsSa6D59!Gyt5X桕1Ùg#Si?&&z)~&}V	!QbL4Q(eHIIMRNj_ke,:,g*C Aa[Drs㎫c1R^R!VnH8uI"k銛*-<0eH ⭞}DEGJywb	\NJ()R21<n<$\]oCDZHv(,Krg^/Q5a=vTCAq
E48~vuM&K.[^N3[zCȲd;8qm#syfցFcbK歱Zhz+5xOi˒~;	WC
[{9iH U,txJHuWJ^S	)9"J2q];?>϶BoJ3oj!X9G.kwU*vZ̧2WQv#ToHVҩظlPցu$PD%Ё6!G͹/U=w-l(sHD4
9]YR{14/尋^3(xCapYh+)$dY^2^JE~RjA
u9Ɂ,D)cǞ+:JCገ0耆<%*SiiEUdA0XR)i܊7݊1du%*$Bٗd?
R|&4atj.\x*HFn+e<)JUVRL\Bhҳ|HUxtA\$,]8s!LWsɣJ`-SyύrZov R.qG`PD0a(.E)*jԓ"x+Y+[G*ԡ>PwpXh9@J6o#'듆^O`ɓf=+Z&ቩbo8h1Ham4/W;	CxS2AUQ0m)Hz*]$AFVFfQ o%fmS+٦2@ROݞ+FEy1U
{]dMbi+2nkER2J HJ^Pj0S:Lv%1W"ĺ6.~U-c۹hwp˞YrUT$WX1(yQ^w_[P6ApTˠ-iɗ 3=-:2)K1	6bpv.R&=h]R
f+t<{OE@)^2s#^$"+uVt#x)=j
A:`nq0lms؟7]1gIf,٘kOhAԦnVT *ڗhX.f'v%W3I0ߋ+5}T,S3֑'˷.xdAͥK,fq!&*j)&P?=u6M#G[݅_ڄ!Yj[:,z7ri6JꖫZwҷ݁7#Z0hl);
I9$횒Jf<$`K6x|hk3S~KX<WE.avuYѥͳus9"EL
!$fČ}dPh
u^,|{eo~纘ۗ (]œԘ#O+nNпrGfgIs׺;);C%$U<|i#/vý$Ƅ@o؊E/_E![T8u_4;P]~v2ne̝hwG
jM|^5BDxd&S:[Xy;}]Cm %QyHt	EFu ߜ
B<vC]U)Q)q	yW6S햝ПF@9^ɽXYCHlZ1`ݻ!F\ăx-R<r42D uTVl`X
pl!"n	қeTPrB$
BXVaQY IdA%*FH<_4aHQDal"/FLF!]]۱"3
	5
[4!DХ`ܕy//DY6<+#RbQB#%FyybM9)J \s!XuO<V$%=F6bQ#em%8FdhB&1vY
X$M-V5ZP#Z6"%Қऀ^YθUrEJ292RdMf%mY?
N_cG,֣^`
b\&ֆTٞMYTi^vT_)GeHFN5&4fS\L
Ky_BjUT2n%h!%="#M)
}LmMqݕ%D&pON;ܣa^#G aȁ
Ǹ(	hGe,|]O
'y0,`Nd0D,B9&Kʊہf݅#!%&fA$h#.GsNE!e^P@HetFwfk=Wta偮(41Oz&xUXqIfoo&](nOBG"#Nhax0B:YD ]ޥb3DSInQ(iW,"ڭ)Cf8pCZTR))VW,r%\!CࣚfyƔ	eZ<]̒6RȒ6=P*Ed"	JYIܡjy^p*!Qd$OQ%QAa1ލbD*g&+?Z1R., OM%WhL  \d^X?b
_D$-	9HJOLh!¶v1XqF$#s$.pa9_JfI jݰ
`bFIrO=T: 
d%FdlJiw!-شb%nBY&jEHfھW^-厍!]!w' Qa}HYdܞjyh2رV톍DP
E"|M@JdTIqvD!&LVo
Nnc.ȑ)(>ٮ-߰y_fZ/ʌ#=ŁPl_։` 
ҭ
\^.!~&/T@d$$&`ڙnv׷v_DBq^NppLq\ `(` CA!v$O`+*
_2x0Bk2<xQ}~)tǌ)㶯)#񲼨ʕ&01/
6S1A-
1%GBĉ-/
	O&'ߦ2g5qܩm
jW1=]*V2-	AEHSF~%5`H6	V}
[#$Kn-W3Hn3VPMӤ9d(rJ@]+NFM5n(.V/sCcZgKS"䋁"Tsӎ	ҳ=g`i	q Ʃpji"0Da,`y2UʭF4|0f$qhR>,N$ σً=
BRC-Oo|`Ѕ$#(]m~Gt\DưES/W5o,SMD)(i]I qUYIɡ@[i)V2eӆ?q܌:6R%ByT\$В[ކTµ֤i]'evm.`J'?](pIi\g6t׆EG?2ZB[a!̏8NrڂnJs<-FG7|cLSQuGQwŃ8ڧu:X BCRu\sd{7/zrX#(74Z8`.-\0UY#Gh8Xt+~kh'IuGznsG87Heve%.rRL7
8!2B%ɸpʨ7yt؂Nx{uGZ`
BȮ
љ,|wo2'VFe(-hO!9+W[K#O3V:TL{y+  ^aJ
4ۦ϶"0sH_aQyכhU{uBqj=0lױN;EŲ6ayI1i)LdN]XCzv'uBzwampuSa$M!\`4J4Wx{|Oiq#Wv
]!ޟ/nJfx>x|ח{k'Eס!OcIk.`J2viV%&$%ܪk|nxYgP^0o}o+О3"v6 N˳lOcN%WO8=$BJ´YI1BR6;bzO5M3uAjVr "*rX6q|+!|Bw֗VHc`K&<39"^cc^,HJ`n.T
: Z:{5RmSv
Te(hkxbڮN4ðZN?0@O A%L.
&!D	c!%5HX`ESdh]Rh]y|>ɑ/PD"N{:jUWfպkW_;lYgѦUm[oƕ;ֈ͋6Oo
P"8	"+l2elFc
s|
Ü絡>M%z4)R*)mSoսwo߿>xqW/h`)L!o
+D<ȕ]FӦ5+IٳtϡU}ziڳ	,LP &z(
S#hhB<JBi\lHO(ϵ`6xlR!,ȩ&gB Bp!.x(clOJi7=s'Fp̱ ;S=SH&NC""Q
,DeX|	>
y	M4
O6 *U?YmWauρzN!
P(SօÍBPIWjq̕6sE܃iEV5UNUsUY
Wq--n}(:,DV<hp	N')Y3uMXԤNs!X).LJ;4ѻ.DWW%X[iY8)D85lq/S⟁ZLhl.W9,ؐ\1&;xhIGR;JlsN{n:Zn92DxDb&O̘r4=
kIev1\s֘t<DI?Qk&QW˽T́^<:J+Uo>h0e%LcZF`Y|[Ӗ}Jmo:?',v5;+9KT%.hM[vA~1!OH'XJ%8졨EBÙp>U#3g^!cy87 xyN&CXTKxG%J|JC3l|ڂF51x`79~0h^@wY1#RNT3y&j٬(7U'݆l%1)+;xL7%8jy
HyD: W"&g=[GFwCU&LaX4%1]t))/<(t*D!W2m
p:L^B-Z#[̘Jtgn5GTgT'g&0ylR
`J8k5u^T|E1QkQnHI~&ٯ.S61iFh!(N=-KG5vXQ?ԝYlR&S2	9A>אQgOVeJ{&-dQQKDԕ$-s	!1΄4j_sHX.d?ٝ;Ut*%B ΊEx2)`װG
2ag*ca۱r_HzYS8֭0=/Fni\\E N 23+'0I
7E4dlH
H`[ Ts.N_ZBЯ%i_/^_6II,u5%vk#~p7zHԍ
UnHr/]"`^ףǯ+
M!
I=q0)ŝ먢F
-X$jrլwAvoԅævlh~f1KltW	E$Fq:fi\,hLMZkhM[ǜhEm^2-r4XRUwFX^Sp|hUs*u	8N+5C)v5M[[ò[¨
$TF2\-$TVINVw	+PXD;.RHz5r60pgա0Vjٛ/|f_VJv/&1\G;
0:wx5ppX"&֮HicIdI sYԀECsL.Ga7$9/K1ddXs.e
^24iHw2WͱweZo4N1/A
;P3.U)61XiFv{h9~l彦8M!
3nQ"Y=[y} ڽ՚!*.&!wqǙ˵q^Q/$}!an?2խ+L7947˟IV"]h4F/9m4b2<&LVϮqMNkޭx Aފ.4z.e6Cq<f /Jrė$(}0x%($#cNXd3,"h*E~1O Cj"jE>RR_ǮS\*fJKK
dK0!
%bJ2BOZfY
Tl*v1oi&K//ƣR|mi20ݲO>1E1BMb6.P D$8+=ʤ

gpgȵ.OǠ#0>Nn1CRR'p	,U.khf\.b.qgڔu%
:#0Tu${`n(r
#qlߢC Nr<#<T2 &>nn'?F$}R#R R1:E Ez,L eCoΡ&xǫR+*+	W2F0>RKThAMv^&Cpg:a$)/M!(Mnl;N/fL,jlZJṵf/=s ]^Ic0%Š\bW"j͜M>38eB$ E!
NCB)y@Pʬ( f$,v 
!J#QS8œa]Q^.0NqTIuhqeNΠ^HkN,rr<4(Ci0,m5:EVgRz%\DbkH?'o
 4`@It0,m*CI	_QȖbfvQ'??* JH38FEh0[S	5
UY
	Eݬ
#COzR+  zHtrx:'L0zKעlB*Ԛ.f(zs/A47F4M!Lb0hK LNenF$O#ALP5U+h9I)],\4(CLij_=΋{^? 7/DL{`HUYgIb5fB|13!t"EXET="k-{q)z{hT,PZ\Rl%y*=C	
-i*eN"3"!*'+w7sL@f^^b^4_Ev\VNt4a0T$3[3X%N$2cltlSô5Pr4b
u,4vd !߶U[1f16Հ3fȽ7}4h'.ՊYq@ +6dm[C"/bf9(@,@$RƩƄ02q=t^Vm8V 6 | ,cvsWSI/io^b	f̮
jе`GB%P'Bc+^h-6w"xL9wxDUb9f9AI6iVBNϊ*ERgS|+wr*4V @mVs/xxHo/lIa ![A;n-O$uv.|)̷r/hy7}} ~B~9mwDwVnzo%j/W9MFTzX7S"#/:taַr
UwEt^ٗ}B~YI8UEI\:0
^<`G2)L,qO_gkw*r7B~8 R@yA_	E
I@w/<t
2$E[全jMv?c8x}}54
")
E79 W9	Kf㑀7Xmq'pB|'LQ^y7{
?xT r`c;֕8dPyÐsoa T)SQE΅fJcϔW (|+A~y8%:8RdE<ۙu# :ώ>g1k=hoC;YNU혦{c=xz.Vy9!!:hB2#c&zdnL&#s`ڧXEz.EQؑsgUT9L'H
g\*s3Ga?H-9|ؠ}zmb[]8ZIlHpdlS̤^U*:6}	ZٗsW1dQ;P cUZȎjzOf鐙M^(KrX	;K8y:"6X*VNW)*PEj=Y~B	dhDٺ ?[ٚ9'ΡM	)_1!f!f/od51# qlrT麿&+[b9'ɡW|m٩("`oYuT
g؎&kF?2]ܛU1P	,}3A}ŖP0(i=.P|9uL:̕hE.
?;:5̓{C}v՜ :-<!:}˯IXS4/I\B9@zdv
7헝jA4;>c
5+5] fƛ{{ jzAߛzMV\!џc0eWsZ:*K%s=`IK3aؔϗ=} ̫9ƙe|<Cۡ;X,׊-~=RPjZz6î\`~: }A}g6y ]|/赻+qzZ
bVz_U`O$C>&쓥]䒹%]sz	rq^~Ӂ~k^7=;ۭ "d/ӹ#"-UZHX:;}Sa6G?	7K?~E{ϼYq94hzY/
%V~fvU#@cG @u Bz$"B.|p =x ȑ:( ǿ,[|	3̙4kڼ3Ν<{	4СD=4ҥ7s<p͋NxƋ7oxXa3"p`-Nhэ(ܹEe-okذbrk89?DXRF5x@;S\h!:VLhрB7Ze)
<ċ?<rTRya޻zXͣ(ܺʳ[n޹y#{-p4[*W)@
@jE4E6[i
e ȑg&	\"Hb&b*洕tڹX5OW[aeUvUigV"pZ衇zE56})֘~RJd1`gM-XBPcZdљJQqx o&gzg~S5R5s.z=ZqW;>O]&w||i_w<XUw
Y(`^h&C i1!
ZP	fZtP|R .l>mG50Z([i]WOuUSU}W=u^lE[7_0Ҥ5]ceTG AJC-@j:=R4of(m"Lr&xRUZbՎjKT5,m^E֞%~S:PǨ-	kjS,'}rjvn=P5ShT%M}JkBdz_5bJj&H.*:(qɆ5z+
kVlm(uvN{!:*hͨ.\񔞧׼d\~W+cQ~à#nzڂ]O۴X."t٘o};)O"S8")b/>+RBB
P29&|\I`ǵitp5,,5S_FdC+npm#t#p+aیx<b[©ȇW}*/ip.r&1k^;NgH'f5a@zq|죊=oܚT9GF։Ta!$e.T셗=0cd((ͪG 1Պ,l@ $4$P>Ag  JU~,1L%+O!W7a̍P# (d#LFѻF8edu:IGH!^N4`
G @R_h4t#9C̈JtN
** pR*iL	>GFJ;2g(-=WUc%DX$ VJ $%.Fqy(NBѬjuΣŭe:G\b]- u9iRj¨r5CRSC8K JFZ哟8 -[=Y|G Xuwg?ڑQG\NV2H$92tB)<] 3HICI։N/eƝ"5䒅,*-:ֱa%ѵэ#@
"冃ihϋ)x*T![HOAtUPnNkBwUUA:\q$%l\m,
A'vK&5}CA_YF`zx!dKԔ(gnѸOqhPu@ja!Υ?!pXH8@*dlFҽP@*䑃t}GE0WV9gCbIUd5Kd}'u6
 f(OeV[0̎5AqS[.!{fX
H Rμy;9$TvQ?T|[eM&
БRcA&BD9|X
P ET`"ni	+ro~HҊ]qPxQ`i\4g'*ItD
Ō]E0Lj⠱yq u7:	7яnje5c[֢
oFR-z<)h^n%[~^B`ú"O6/[YA.j+8 $oJ^g]?Esha{+WS[)oo٫;fO-ӍbT-}R3o>Wr@f8Z(D\V1P&z{xѸ
0<ĄF*q?Uϼ[blD!gB|>zkǀ
hL%}!d#DDDl!5)D\uh*"=P1z-vJb b&Ba?\{7s4Xn<@w7jWo+T:"+CC!~YOCtqcQ7S1F7/}'u<_IB4`<S*4~GvK1{&jFs94n4n)`jG5b5O]P:cPȈH?ecԂDزQ"6):S8R$@E7`WRRv_;9pF$j{f.>{9qTDbKǗEǈZ((u37VMP$vAvTXcY]avnyh{(j8ha6PTFecO#s(ZZUwDcHdudU7)3GQIzIQJ,E >O+jW{]K6i9tZ Wԗgh?#.wq)QS4: Y
XwTÒhzh{؎.WTKU]Wveq&Ov6ui3۲8-2s! ~|Q~<D#=*h*Amhc]%{qwxx9h6 ef4UGt=pI+ZBpfQΡlEf!";}Rvh$&H&zIASv4a'jivnkXO'BfGr 
uGI@5pV#<-I(+@rR3Iƍh99`9J%fb{;wWd7ԥFV+۶`$d/
tb"#2"Hf_j}@3h[WvĄB,ijk{-	i):Xj7'p>azY1iZcyVlP!l1l3$޷J"ycW!XrsKly a9s%١䙥uС!ZH^]%A'f:^Ĥ*:1lLc8huDDIȉ8}ᘍ8`EW5u߶=dK󆞝額JYz:s*ٙs1|ŧ:$QU5ʭ0<(h[
.sVǘ昼:\
F zUG5jwZ\8zrOFtp.ڭ;6bu&-::7%I@{v<q5E\`5ޅT{h	̊KṎfBDblr U=L .p0;Na_$ȓR@Q!JCrbJ]iXgi	H+Bjj[?մoRPVK	DT34V0Va-b{(W8DKDէ(W`U!`eևհzXK烩)f[`!u3	
}ZG-j-&@~'N`f" cbo$١2 ̚z%ndmD!YS[8@t[!`Vb@VkKmap`"~0@Pe5ϊ)iE{t0)^:f]BDMsfS̈!-Ŧ0߫CTR(Ky[4OiUI'7ȸ{b陏Z *ăZZzɴwTWTJTȌ<"D*.<qw3n4A3NPl+&4j(7{kF+*|wxbbڵJH+h쀪"HU7<D[i+Ip)hNpfv%,`|<6&WGǧtI|>XQHQ^K^łrM>uZ~M$0{fPۨܿLJHKJ.vbͧśHPA_Vq)$tVW 
|\k	9]"X>wT'-cTK\LȾ8e}t8i2Q(sukqɓ$3M2`跂ͥ촕5aTÐg+jv5a#km5I\3efFAD"[|p	i@MhDv$p$y{jv8l˅ۻ=w]v:>Jc꾕bsɭه2Mk
H4yf3ƃ<3uyR7'{\Xy!vFe~z!XJǭo)Mly;7==#E[Vɲ٧i,`iX4qY*5#UJ9hWs%X㴯Q!gyՏmv7Uw(֧Z!'kvj\'<%->óazngˋM}Z+M:QPeګyo
mlZ(|Lz
?֮E=
%/4z\K>u{w7-F=]g$I|MsQq@p3l``ş-:"Lŵb.1mq_IC\rVi>[flbvl_IfkYNc7Z}@L4
/Rw~XI,^ [&f\rrn}-Ǻ^ifμQA^d-y. MH`k-ۋC.C<(ם[pkE$X*艸Pc\OK>ۥޭZ&7/o5(
:Z/:~࣋,{ZzIs9i~ ,1Rtܥ{Le {XP#SW["| 
0
鞽BB<	zdK_t߼*iK>i+Yi}ϝ{ci|x"jgNǟLZ[#{hd<8`bN5K;;|Pi*_.sOEOF(zU|QKȯt3}7p
TH0D%QEEES65kѬuDYHk  zУgO= (`@aB(k
^nzU,W	@t(TPqš yۗ?&\aĉ/fcȑ%O\e̙5ogЂ*4Ҧ\/B%
u\hsG%#GF^StqkŬfNq=Zݺ]|HA	 KVBdæ窞B2vto+44@TpAtA!c(oyM5
P:B<h&Rڬ$SɚbB&xΧ:+ <A"N,	)o/? 
 B4TsM6tM8l ^·&
!,	H%yE.YV:ƓhrN'~ɧ1ӣ)!CR<񸂯=loN]
oA?4
̼/95XdUvYf%pC\hעpk
5,
:b$Fn9\Q61SN;SQ"%[K[2=Hr`+,j~Nb_'O@3xc;c[Z>yRNȵG&
xLB6-я
k1n4x5z̡),`R=,  u;q}b۴̐vm;4=[knL!
=LB%ʨCwhYiCƚl):0U;@P޺j/Z/LD߆#b&~Lbw<5MOРjn`F'Zr.s/KRaz#}VշWm.yp)dʀ^@F@}Ӆ"P2!|z&瑕$q<KmX|A0^P1 `_ p؏-Sb[ꓝ4(!}%ÝĘE0Q\s`nP<2n*ox3	g)ߥxe/IŔ8e)>hõUt+b}nv֮ lQ)\N6FTRɔi/*$8f֛܈7&o\0& iM'?<RR;m״d <]U< )A9K9g?̂˞Aa #|m>$T/")x1.)yfGy0dCD%)LZ>t>O2el,J)$?zT&u2AB>P֨C((8!=E|z7׊.*LK(#raOr7QGDzF.lk^"GAK`a3@e,XFV,2j\cˬUDPO6KE{ӑGg?ҺĖ ?_N)FN#?l%u콚&6`W:
Rne{]s!ɻADeݥk
DDјwQQ%-<kUI>hK[3Q"!-0J^
ͶeƝlǫn=/bBSߢՏ{P+ehSC[h$z"I)h5~}_Cr,Zc`HiP\$ ڹM:v.
N	b0Yr#*Pi(,`A6܈pvg)yq8&-cX#S="PE&:*VriPY%@De`AE?H
|mԵel=h m())0UY)`uKs0A˽um4 wbQc͠MFc	BF,G%E+{
]Vգ6
``(
0T@(OF:~x?my,&`7P^?<~"Iv}
{ڿo},k˚2P6I;{HV\(=~ug]dU'	OE&)
| :Jpind--?v;YLiwZg|/Fթ3E(
oX.95{v4bBsFOtuN_b}?Ϛx}]p*Yg<DakM]CsW> Kw|I|nAX7
1/5;[`	9?~5C=Oj9
?*"6
N#ݛN#+AӨu2b1͚p`0i-/$##佽4ۤ*bB'2 B.4ːQX"R-8(bR!#=*!K<C؋hJ=!*r-.aasY.DKd%3
?#TsrCꑳ[/97 	:3a?QSļʏ\ډ/@ LBDe\sl?XpjQT9:5#k	yC^1{/2@쨛 ڲ\lz	,{ɑ+$AfHoh(ᓞbʓ3?52#=`[s|R}4α}!*$("LHI)#gtk>7(Rd/0!)CS;:`+PԶ2QB`$ĭ[41lKԘ>AUl2
6DQ-r;?#IhzI:GG3ʹJPʧ6`˷MҌRTgTJD?Y[7o4&Q	xHsªlg
ɳ	+QB3l*p(MpK3ppF4D8ظ$
CHd#k7;BS?N6wY? 	=ZꌁN̟HPE"yʅ<aP1,HWc"EC1!AHϵN	 -NC+㔦3RYP  xى |ЂR/k1L5U`BK1t79<@@bԓN7h76 6-»~DF,?N7(
(
RP
`Ksϑ1?ۘL[!ѻB>SLМCH!ܢE]m@_V  UlVňUTC/(M,nA)`@z#ѣ|c-uY#4??iT⌁	><`T@
·6mXkK1D%`{Ubә)5 -{pNp}Uj6 ad5/c"ޙ}I]p>m 	ZQ2aUEɓ_t>JңCWkE-rYӧW
R6(*,PgK"h S	Y|
|m^ua5SEcx ۑzU7z@˯آYصUZ@ԁ;4m ܽҷ
 S`	__؇eޅ͇O\-MrU#5m	ER	9ͧdVٚ]U_$h m+< PZ?!2Y􋆅\f^_r]`<#<<j{ڄb
zQ &)rO?em_MޅV6h nD3a  >D^ŕZ!!.b"-e`%h4hSe5Xެ
E&Dqř>3+!YR	޵mmK@u-c@WAAdU%NJ)RJJ->s[Jr@7@c5]ȭ_aޑ]}e;ae>&\"[^ce\f\.Udc4sF)FGXX*JBS*2se4R.eễ	.,veX~ed?r__ca5gzۚՂb>f^=Uu<u;P<Q|[EL^Qg>es.8~~Œg|_ni7eti}fiibh;RU3nlx8w+9bSb>grNcT>g
BW[g|VcϔԴhNNk蝮xH3D3YXhTj9#DE)&=[t)\_4Vr~_m Ww>SPSl6nSk#U`>USO4s
RÉj9a#c
jl`gvXLL`TwpNa5FknmSvDk~oQK
ojApP4S3
Ehk0NhnRlӖRlg]fNqVҜoen
m&C^&V(є @b-	ifv$WWlaegRNЉ/骎0Wa	ONq91*kרC1^
u3FH>pnr4nn_{mc>a pe/'q0Q7u5?79oj1m̽^*9jI/%Wnn6m7P`&5Ou7pup'NGdW_:lYn
Y zbw?7J8ScQpqnQppfgv'jvhWVt-nOmqxQsgvlOuov/"W#&{b\Sn%7m45U\tJir%opov?s(t_	j,og.xov煟zGcV7yĕhuuo}wń8(zH
r¬lyQt_햆x^kR)ueߜsHHglpeh{'۠sji5r^s6u)þ(9,	iW>ȓ|_oz'	ˎx,`mz@Hlzwr|z||_1bB9
vyٛȲsfm`4k
Z6Ca$Y(VqF7=	M6$Ma2ƌ,gH)1!Q#E4ZsšC73bύU3˪u+׮^
+v,ٲfϢMv-۶n+w.ݺvu{{</޽y
Gbp.KD<Kt4EO3*Z®8T(o:~Trd)̖3aBAKϟPbƉ;i7vPգZWkϣO~=Ïo6c!Ɵ88d|aHXih6fiYh6A]Cj
eD֌BAGGH'o!CK0Sr1Du JUMvQԎ;5xפOBSRY唊c%_Pd66_%B4,o~vZ)b"
#^ck9ZS8F%"bo*K124va*hD7O8sI"ц>EQS&bVZcǗ0[͗d[	*&bhR!Th
l:͍EF閮H.m".M^cD6DuI|1$vaOv2^BS\ga_
8s̯_i`qzV˰D-ט}b;)OGv&*ۻ'oK4ib{vOˆjEUZ
R6]g6]51
,,屏
bZ÷ҲɦU;@q[A`
l(a"E&ع.[?ܓRjC6QW]C>;a#LEaڿKk~6qübX`z߲p?k2s3kغQUDJ"3_ݾPaP]C!qryFB0`^'hiXw1R =#pQg"!҈ }RD6jظf"㗇@&sCnH2ki C"^n\9TE*}XF31jLcܘ_gcuɨ#q֚Ҵ8L4:@RCȾ\C$IzFar8.ifgWĆkv&J،C*WWEV**WY#-ki[J?#d]?~J(=E MK
4-lFO2HgB1C
4]*rTJt뾅\#	Rru\,q4#gU0ɲ`<=i@hGhk\lXM򅒋YdJ&Iq%g$ZHP6e'#ɳ4r5e)У"5J=b_8a{(l{V2,YM֊fRÏ6C7tIj(ofJO4wH8PAYO(
Pu:T6ؖB֟ O382(&y2Ld&f^(!	gi]5MJ;BV2EI,(6 MakH׶J.uK/9Fo.U1zŪ^i1e
KçYdC"ٽG+8)N7$_@
(WTWmk]d5QRSu;G>ne,
Dzc d3iGYD:>
)\>/H?mv[J42*M'ϵR~\W7S
KWbH(FgX0l3?)t
惾}÷/YX	8B߷lI-\<`x_LRӊ9=fKQ4[Zͪ^5ژMUz$sZ:ȫz|ViQZѼ8\#ɶG!Q{hJ.u6o,ॅE:KMhXN5ŦASܣnƘ[m{.f̫y[*|x8YF5]#ډ`=li3;xֿ#TD`l-Z{vU_iwcs7ыnV\[WLN	&7쑗WvdR5M'faԊgMdiئ:'2{,on%/z.FhZALc''V0l/x""*`Ftt+\gUVZDӏ>$f0/NYfp奄 ̎=iOG:]I"w_ɜ)eH3[εà5}uچU_Zc]V	}ï HBi~La0yiўyO_AdU]\C-ID8[!GAaH"j\^[6]r?Uv1]f0MH`ׂ̠XT	[YEBDX_"ǭV|JOc]#|PZEb
-`[8^rb'QE E!݇LzXʨL>$qBT\B\C8\9/C/950LȉJv]I Y ќϧUN'c8ϰhcaǰHF,fEP"kc01#1
11	QVQcZY|a;U"ɗZti$Gb4p eQVf=cͯL9Ai,j>/?"1Z0A1nHGxD5rF;6HGdWz%Đ;ZbTeģ3PX^A$N"?1#QeAQRW$fUUUUbC#c2qV~eb&Kp;:Iz(ȉ\-FɃ5"9$?1enn*<cʕ7Rcc'd%%ffs:wZ:>
WiMJA?-CPf1%_Ajw$K!("Z蘎Ieשe=&T`d֮C5כj!YA'?&0%{ d!ݽ}'"TY"h($*zvŚɑcMaLXE5g?r=%n$bElʵӃq֐>TdG=$
]U挒iVLJ,X
\5Ofbg΃̌I.V\O֦^e@QJi>HMo*Z8dnY!>fRiZꭌh).	iubW< Șftߘ_X,詅*O*y*D@%G\
S[[W$`"kRɜbTg_\މ9YiW5\٣Y(kiBO'1Bi~?kN~SEBfEFf#.a*k꫓~ȁZbcX'jkgߐeLi(e?FFLE6N#c֐n侪ʺ9JTF̚	J&|cT:L!#!A	.%0
*k3
I,Ff|ZMrmy4u%Ou"LFصMڌ.c0bn1K(E(N헖,d'vm:[aXz	yI}tv&H4DT	4i!&kk+߲nC\
hD~~bB=nnZ6l~#(n횼i\(꒢mPf{Zǿ\ԫvro~	~7(2aݐ[̐^=(%*E,hYP-riJ7,V-Fy`ǀW(28D3-m/Oڦ-ӢbźJ'lFfbor0BkEJR<

}.i$]z~h{ߺNe-W<X/ɚ1'1˒c*+VFm`W#
ii被j"0V9҅'R%[r/y}l2d(gJl-ܶFк[!˰61BAhqr~f^r0*͎qǌ͢i5t]B$)jjf
0L`fŽ0sfGɜ!އf0B(j!?1{Vf1YخV챦sDW*(Iо1T8HL
k]jp z+r2'8rV^%KtNWje}XEi<;",mJS)jLB6K.LӲ.V,tZLVN"*e#3dţ)ฌy@r^mU0j-۴VG#vaCM*:T10Atܢ/0
dU"c5`6$"k7ObAϾ9M<a4Ϛ&e*.c6u/:Һ72V?B#vuc6kT.P	zfrT"mƶ'pjwEWZ~db~	wc
E^fn|ڣ4]! J$s6j6yp#yw\788Ga6:	oƳ-xM-ej3ꥇZUӷ9W1Kv
?H_,Іve_7jy_0 yy2yyyyyzz#zy@  ;        h     (                                        f f f3f fff 33 f      3 f 3 3        /  -P  ?p  Q  c  v    1 Q q          ,/  KP  hp          1 Q q          /!  P7  pL  c  y  Ϗ    1 Q q          /  P  p"  ,  6  @  J [ 1q Q q         /  P  p    
        =1 [Q yq         /  "P  0p  =  L  Y  g  x 1 Q q         &/  @P  Zp  t         1 Q q         /&  PA  p[  t    ϩ     1 Q q         /  P"  p0  >  M  [  i  y 1 Q q  ұ       /  P  p  	  
        >1 \Q zq         /  P  p !  +  6  @  I Z 1p Q q         /   P 6 p L  b  x      1 Q q         , / K P i p          1 Q q          / - P ? p R  c  v     1 Q q ϑ ܱ        /  P  p   !  &  ,  > X1 qQ q       
 

 


	
 

	 

 

 
	  
  
   
                                                                      BM^      6   (               (  a  a          ¿¾                                  ݀~~~  ÿ    }~~       ~     ¿¾                             ¿                                   ¾     ¿     ¾~~~  ľ¿         0+   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4YQ0P12TV1257140490      /  F      ]                                                       WINDOWS _4YQ0P12TW1519542274                      Qv                                               WINDOWS _4YQ0P12TX1257347370i  y        º                                                           WINDOWS _4YQ0P12TY1485081348P      c  v                                                           WINDOWS _4YQ0P12TZ1385857280        0  ?  L                                                       WINDOWS _4YQ0P12U01389524018                  j                                                 WINDOWS _4YQ0P12U11385857280                  .  Y                                              WINDOWS _4YQ0P12U21385857280L     a v                                                      WINDOWS _4YQ0P12U31385857280
     " 7 F S                                                    WINDOWS _4YQ0P12U41519542274
     
 
 	      u                                               WINDOWS _4YQ0P12U51519537579             :                                               WINDOWS _4YQ0P12U61519474989             N                                               WINDOWS _4YQ0P12U71364087169        )                                                          WINDOWS _4YQ0P12U81364087169                                                                  WINDOWS _4YQ0P12U91364087169d     q ~                                                            WINDOWS _4YQ0P12UA1364087169     ) 6 D Q                                                          WINDOWS _4YQ0P12UB1364087169        
                                                          WINDOWS _4YQ0P12UC1364087169                                                                  WINDOWS _4YQ0P12UD1364087169G     T a o |                                                          WINDOWS _4YQ0P12UE1364087169      
  ( 5                                                          WINDOWS _4YQ0P12UF1364087169                                                                  WINDOWS _4YQ0P12UG1364087169r                                                                  WINDOWS _4YQ0P12UH1364087169+     8 E T a                                                          WINDOWS _4YQ0P12UI1364087169                                                                   WINDOWS _4YQ0P12UJ1364087169                                                                  WINDOWS _4YQ0P12UK1364087169\     i v                                                            WINDOWS _4YQ0P12UL1364087169     $ 1 @ M                                                          WINDOWS _4YQ0P12UM1364087169                                                                  WINDOWS _4YQ0P12UN1364087169                                                                  WINDOWS _4YQ0P12UO1364087169H      U  b  q  ~                                                           WINDOWS _4YQ0P12UP1364087169!     ! ! ,! 9!                                                          WINDOWS _4YQ0P12UQ1364087169!     ! ! ! !                                                          WINDOWS _4YQ0P12UR1364087169y"     " " " "                                                          WINDOWS _4YQ0P12US13640871694#     A# N# ]# j#                                                          WINDOWS _4YQ0P12UT1364087169#     # 	$ $ %$                                                          WINDOWS _4YQ0P12UU1364087169$     $ $ $ $                                                          WINDOWS _4YQ0P12UV1364087169e%     r% % % %                                                          WINDOWS _4YQ0P12UW1364087169 &     -& :& I& V&                                                          WINDOWS _4YQ0P12UX1364087169&     & & ' '                                                          WINDOWS _4YT14Q1YK1519475020'     ' ' ' '     W( W                                              WINDOWS _75U0NWUU41519475020$     3 B V c                                                          COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 630
Width = 378
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Zulage auswhlen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     rPROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
PARAMETERS xpara
thisform.originalwert.Value = xpara

myzulagen = thisform

IF thisform.Top < 0
	thisform.Top = 0
endif
PUBLIC startkasten
startkasten = 0
PUBLIC hsoption
hsoption = 0

WITH thisform
FOR ara = 1 TO 27
	rrr=ALLTRIM(STR(ara,2,0))
	.optiongroup1.option&rrr..caption = ""
	sss=ALLTRIM(STR(ara-1,2,0))
	.zeile&sss..caption = ""
next

Do Case && zi(1+4)

	Case (zi(1+4) >= 0 .And. zi(1+4) <= 7)&&4
		.Kasten0.Caption = "Allgemein"
		.Kasten1.Caption = "Behrden"
		.Kasten2.Caption = "Ministerien"
		.Kasten3.Caption = "LBesO. Teil 1"
		.Kasten4.Caption = "LBesO. Teil 2"
		.Kasten5.Caption = "%-Zulagen"

		Do Case && zi(1+2)
			Case zi(1+2) = 0
				.Kasten0.Caption = " 48-56 LBesG"
				.Kasten1.Caption = " 57 LBesG"
				.Kasten2.Caption = " 44 LBesG,MinZul."
				.Kasten3.Caption = "LBesO A Lehrer"
				.Kasten4.Caption = "LBesO sonst."
				.Kasten5.Caption = "LBesO R, kw-Zul."

			Case  Inlist(zi(1+2), 3, 17)
				.Kasten0.Caption = "Anl.IX Nr. 1-5a"
				.Kasten1.Caption = "Anl.IX Nr. 5a-7"
				.Kasten2.Caption = "Anl.IX Nr. 7-8b"
				.Kasten3.Caption = "Anl.IX Nr. 8b-13c"
				.Kasten4.Caption = "Anl.IX Nr. 13c-30"
				.Kasten5.Caption = "Anl.IX Amtszulagen"
			Case zi(1+2) = 7
				If welchesjahr = 2014 .And. zi(1+20) > 1
					.Kasten1.Caption = "Lehrer (Hess.Bes.Ordn.)"
					.Kasten3.Caption = "Hess.Bes.Ordn. Vorb."
					.Kasten4.Caption = "Hess.Bes.Ordn. A"
					.Kasten5.Caption = "Hess.Bes.Ordn, B,C,W,R"
				Endif
				If welchesjahr > 2014
					.Kasten1.Caption = "Lehrer (Hess.Bes.Ordn.)"
					.Kasten3.Caption = "Hess.Bes.Ordn. Vorb."
					.Kasten4.Caption = "Hess.Bes.Ordn. A"
					.Kasten5.Caption = "Hess.Bes.Ordn. B,C,W,R"
				Endif

			Case zi(1+2) = 14
				If welchesjahr = 2011 .And. zi(1+20) > 2
					.Kasten0.Caption = "Vorbem. Bes.Ordn."
					.Kasten1.Caption = "Amtszulagen"
					.Kasten2.Caption = "Ministerialzulage"
				Endif
				If welchesjahr > 2011
					.Kasten0.Caption = "Vorbem. Bes.Ordn."
					.Kasten1.Caption = "Amtszulagen"
					.Kasten2.Caption = "Ministerialzulage"
				Endif
		Endcase

	Case (zi(1+4) >= 8 .And. zi(1+4) <= 9) .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or. zi(1+4) =  18 .Or. (zi(1+4) >= 20 .And. zi(1+4) <= 27)&&5 To 22
		.Kasten0.Caption = "Allgemein"
		.Kasten1.Caption = "Behrden"
		.Kasten2.Caption = "Ministerien"
		.Kasten3.Caption = "TV zu  33"
		.Kasten4.Caption = "Schichtzul."
		.Kasten5.Caption = "Verg.Gr.-Zulagen"

	Case zi(1+4) = 10
		If welchesjahr < 2014
			.Kasten0.Caption = "Allgemein"
			.Kasten1.Caption = "Behrden"
			.Kasten2.Caption = "Ministerien"
			.Kasten3.Caption = "TV zu  33"
			.Kasten4.Caption = "Schichtzul."
			.Kasten5.Caption = "Verg.Gr.-Zulagen"
		Else
			.Kasten0.Caption = "Entgeltgruppenzulagen"
			.Kasten1.Caption = "Pflegezulagen"
			.Kasten2.Caption = "Ministerien"
			.Kasten3.Caption = "TV zu  33"
			.Kasten4.Caption = "nicht belegt"
			.Kasten5.Caption = "nicht belegt"
		Endif

	Case  Inlist(zi(1+4), 11, 17, 19)
		If welchesjahr < 2012
			.Kasten0.Caption = "Allgemein"
			.Kasten1.Caption = "Behrden"
			.Kasten2.Caption = "Ministerien"
			.Kasten3.Caption = "TV zu  33"
			.Kasten4.Caption = "Schichtzul."
			.Kasten5.Caption = "Verg.Gr.-Zulagen"
		Else
			.Kasten0.Caption = "Allgemein"
			.Kasten1.Caption = "Funktionszulagen"
			.Kasten2.Caption = "Ministerien"
			.Kasten3.Caption = "TV zu  33"
			.Kasten4.Caption = "Pflegedienstzulagen"
			.Kasten5.Caption = "Entgeltgruppenzulagen"
		Endif
Endcase

For i = 0 To 4
	xxx=ALLTRIM(STR(i,2,0))
	*.Kasten(i).Outline = True
	.Kasten&xxx..Visible = True
NEXT

.Kasten5.Visible = false

If INLIST(zi(1+4),0,1,2,3,4,5,6,7,8,9,11,17,19) && < 10 .Or. zi(1+4) > 27)
	*.Kasten5.Outline = True
	.Kasten5.Visible = true
ENDIF

*!*	If welchesjahr > 2011
*!*		Do Case && zi(1+4)
*!*			Case  Inlist(zi(1+4), 11, 17, 19)
*!*				*.Kasten5.Outline = True
*!*				.Kasten5.Visible = True
*!*		Endcase
*!*	Endif

If zi(1+2) = 14 .And. zi(1+4) < 6
	If welchesjahr = 2011 .And. zi(1+20) > 2

		For i = 3 To 5
			xxx=ALLTRIM(STR(i,2,0))
			.Kasten&xxx..Visible = False
		Next
	Endif
	If welchesjahr > 2011
		For i = 3 To 5
			xxx=ALLTRIM(STR(i,2,0))
			.Kasten&xxx..Visible = False
		Next
	Endif
Endif
Endwith

&&Do zulagenaufbauen &&Do attached

If zi(1+4) < 8 
	Knopf = 0 
Else 
	Knopf = 6 &&5
ENDIF

thisform.knoepfe.click

With thisform
	Op1 = 0
	Do Case && zi(1+2)
		Case zi(1+2) = 0
			If zi(1+4) < 6
				Op1 = 23
			Endif
		Case  Inlist(zi(1+2), 3, 17)
			Op1 = 22
		Case zi(1+2) = 7
			If welchesjahr = 2014 .And. zi(1+20) > 1
				Op1 = 25
			Endif

			If welchesjahr > 2014
				Op1 = 25
			Endif
	Endcase
	If welchesjahr > 2011
		Do Case && zi(1+4)
			Case  Inlist(zi(1+4), 11, 17, 19)
				Op1 = 24
		Endcase
	Endif

	If Op1 = 22
		&&If Knopf > 6 Then j = Knopf - 7 Else j = Knopf
		If Knopf > 5
			j = Knopf - 6
		Else
			j = Knopf
		Endif
	Else
		If Knopf > 5
			j = Knopf - 6
		Else
			j = Knopf
		Endif
	Endif

    &&hier werden die Bezeichnungen eingelesen
    If welchesjahr >= 2017 And zi(1+2) = 10 And zi(1+4) <= 5 &&Beamte NRW ab 2017
        do Case &&j
        Case j = 0
            thisform.optiongroup1.option1.Caption = zt12(1+0)
            thisform.optiongroup1.option2.Caption = zt12(1+1)
            thisform.optiongroup1.option3.Caption = zt12(1+2)
            thisform.optiongroup1.option4.Caption = zt12(1+3)
            thisform.optiongroup1.option5.Caption = zt12(1+4)
            thisform.optiongroup1.option6.Caption = zt12(1+5)
            thisform.optiongroup1.option7.Caption = zt12(1+6)
            thisform.optiongroup1.option8.Caption = zt12(1+7)
            thisform.optiongroup1.option9.Caption = zt12(1+8)
            thisform.optiongroup1.option10.Caption = zt12(1+9)
            thisform.optiongroup1.option11.Caption = zt12(1+10)
            thisform.optiongroup1.option12.Caption = zt12(1+11)
            thisform.optiongroup1.option13.Caption = zt12(1+12)
            thisform.optiongroup1.option14.Caption = zt12(1+13)
            thisform.optiongroup1.option15.Caption = zt12(1+14)
            thisform.optiongroup1.option16.Caption = zt12(1+15)
            thisform.optiongroup1.option17.Caption = zt12(1+16)
            thisform.optiongroup1.option18.Caption = zt12(1+17)
            thisform.optiongroup1.option19.Caption = zt12(1+18)
            thisform.optiongroup1.option20.Caption = zt12(1+19)
            thisform.optiongroup1.option21.Caption = zt12(1+20)
            thisform.optiongroup1.option22.Caption = zt12(1+21)
            thisform.optiongroup1.option23.Caption = zt12(1+22)
            thisform.optiongroup1.option24.Caption = zt12(1+23)
            thisform.optiongroup1.option25.Caption = zt12(1+24)
            thisform.optiongroup1.option26.Caption = zt12(1+25)
            thisform.optiongroup1.option27.Caption = zt12(1+26)
        Case j = 1
            thisform.optiongroup1.option1.Caption = zt12(1+27)
            thisform.optiongroup1.option2.Caption = zt12(1+28)
            thisform.optiongroup1.option3.Caption = zt12(1+29)
            thisform.optiongroup1.option4.Caption = zt12(1+30)
            thisform.optiongroup1.option5.Caption = zt12(1+31)
            thisform.optiongroup1.option6.Caption = zt12(1+32)
            thisform.optiongroup1.option7.Caption = zt12(1+33)
            thisform.optiongroup1.option8.Caption = zt12(1+34)
            thisform.optiongroup1.option9.Caption = zt12(1+35)
            thisform.optiongroup1.option10.Caption = zt12(1+36)
            thisform.optiongroup1.option11.Caption = zt12(1+37)
            thisform.optiongroup1.option12.Caption = zt12(1+38)
            thisform.optiongroup1.option13.Caption = zt12(1+39)
            thisform.optiongroup1.option14.Caption = zt12(1+41)
            thisform.optiongroup1.option15.Caption = zt12(1+42)
            thisform.optiongroup1.option16.Caption = zt12(1+43)
            thisform.optiongroup1.option17.Caption = zt12(1+44)
            thisform.optiongroup1.option18.Caption = zt12(1+45)
            thisform.optiongroup1.option19.Caption = zt12(1+46)
            thisform.optiongroup1.option20.Caption = zt12(1+47)
            thisform.optiongroup1.option21.Caption = zt12(1+48)
            thisform.optiongroup1.option22.Caption = zt12(1+49)
            thisform.optiongroup1.option23.Caption = zt12(1+50)
            thisform.optiongroup1.option24.Caption = zt12(1+51)
            thisform.optiongroup1.option25.Caption = zt12(1+52)
            thisform.optiongroup1.option26.Caption = zt12(1+53)
            thisform.optiongroup1.option27.Caption = ""
        Case j = 2
            thisform.optiongroup1.option1.Caption = zt12(1+54)
            thisform.optiongroup1.option2.Caption = zt12(1+55)
            thisform.optiongroup1.option3.Caption = zt12(1+56)
            thisform.optiongroup1.option4.Caption = zt12(1+57)
            thisform.optiongroup1.option5.Caption = zt12(1+58)
            thisform.optiongroup1.option6.Caption = zt12(1+59)
            thisform.optiongroup1.option7.Caption = zt12(1+60)
            thisform.optiongroup1.option8.Caption = zt12(1+61)
            thisform.optiongroup1.option9.Caption = zt12(1+62)
            thisform.optiongroup1.option10.Caption = zt12(1+63)
            thisform.optiongroup1.option11.Caption = zt12(1+64)
            thisform.optiongroup1.option12.Caption = zt12(1+65)
            thisform.optiongroup1.option13.Caption = zt12(1+66)
            thisform.optiongroup1.option14.Caption = zt12(1+67)
            thisform.optiongroup1.option15.Caption = zt12(1+68)
            thisform.optiongroup1.option16.Caption = zt12(1+69)
            thisform.optiongroup1.option17.Caption = zt12(1+70)
            thisform.optiongroup1.option18.Caption = zt12(1+71)
            thisform.optiongroup1.option19.Caption = zt12(1+72)
            thisform.optiongroup1.option20.Caption = zt12(1+73)
            thisform.optiongroup1.option21.Caption = zt12(1+74)
            thisform.optiongroup1.option22.Caption = zt12(1+75)
            thisform.optiongroup1.option23.Caption = zt12(1+76)
            thisform.optiongroup1.option24.Caption = zt12(1+77)
            thisform.optiongroup1.option25.Caption = zt12(1+78)
            thisform.optiongroup1.option26.Caption = zt12(1+79)
            thisform.optiongroup1.option27.Caption = zt12(1+80)
        Case j = 3
            thisform.optiongroup1.option1.Caption = zt12(1+81)
            thisform.optiongroup1.option2.Caption = zt12(1+82)
            thisform.optiongroup1.option3.Caption = zt12(1+83)
            thisform.optiongroup1.option4.Caption = zt12(1+84)
            thisform.optiongroup1.option5.Caption = zt12(1+85)
            thisform.optiongroup1.option6.Caption = zt12(1+86)
            thisform.optiongroup1.option7.Caption = zt12(1+87)
            thisform.optiongroup1.option8.Caption = zt12(1+88)
            thisform.optiongroup1.option9.Caption = zt12(1+89)
            thisform.optiongroup1.option10.Caption = zt12(1+90)
            thisform.optiongroup1.option11.Caption = zt12(1+91)
            thisform.optiongroup1.option12.Caption = zt12(1+92)
            thisform.optiongroup1.option13.Caption = zt12(1+93)
            thisform.optiongroup1.option14.Caption = zt12(1+94)
            thisform.optiongroup1.option15.Caption = zt12(1+95)
            thisform.optiongroup1.option16.Caption = zt12(1+96)
            thisform.optiongroup1.option17.Caption = zt12(1+97)
            thisform.optiongroup1.option18.Caption = zt12(1+98)
            thisform.optiongroup1.option19.Caption = zt12(1+99)
            thisform.optiongroup1.option20.Caption = zt12(1+100)
            thisform.optiongroup1.option21.Caption = zt12(1+101)
            thisform.optiongroup1.option22.Caption = zt12(1+102)
            thisform.optiongroup1.option23.Caption = zt12(1+103)
            thisform.optiongroup1.option24.Caption = zt12(1+104)
            thisform.optiongroup1.option25.Caption = zt12(1+105)
            thisform.optiongroup1.option26.Caption = zt12(1+106)
            thisform.optiongroup1.option27.Caption = zt12(1+107)
        Case j = 4
            thisform.optiongroup1.option1.Caption = zt12(1+108)
            thisform.optiongroup1.option2.Caption = zt12(1+109)
            thisform.optiongroup1.option3.Caption = zt12(1+110)
            thisform.optiongroup1.option4.Caption = zt12(1+111)
            thisform.optiongroup1.option5.Caption = zt12(1+112)
            thisform.optiongroup1.option6.Caption = zt12(1+113)
            thisform.optiongroup1.option7.Caption = zt12(1+114)
            thisform.optiongroup1.option8.Caption = zt12(1+115)
            thisform.optiongroup1.option9.Caption = zt12(1+116)
            thisform.optiongroup1.option10.Caption = zt12(1+117)
            thisform.optiongroup1.option11.Caption = zt12(1+118)
            thisform.optiongroup1.option12.Caption = zt12(1+119)
            thisform.optiongroup1.option13.Caption = zt12(1+120)
            thisform.optiongroup1.option14.Caption = ""
            thisform.optiongroup1.option15.Caption = ""
            thisform.optiongroup1.option16.Caption = ""
            thisform.optiongroup1.option17.Caption = ""
            thisform.optiongroup1.option18.Caption = ""
            thisform.optiongroup1.option19.Caption = ""
            thisform.optiongroup1.option20.Caption = ""
            thisform.optiongroup1.option21.Caption = ""
            thisform.optiongroup1.option22.Caption = ""
            thisform.optiongroup1.option23.Caption = ""
            thisform.optiongroup1.option24.Caption = ""
            thisform.optiongroup1.option25.Caption = ""
            thisform.optiongroup1.option26.Caption = ""
            thisform.optiongroup1.option27.Caption = ""
        Case j = 5
            thisform.optiongroup1.option1.Caption = zt12(1+135)
            thisform.optiongroup1.option2.Caption = zt12(1+136)
            thisform.optiongroup1.option3.Caption = zt12(1+137)
            thisform.optiongroup1.option4.Caption = zt12(1+138)
            thisform.optiongroup1.option5.Caption = zt12(1+139)
            thisform.optiongroup1.option6.Caption = zt12(1+140)
            thisform.optiongroup1.option7.Caption = zt12(1+141)
            thisform.optiongroup1.option8.Caption = zt12(1+142)
            thisform.optiongroup1.option9.Caption = zt12(1+143)
            thisform.optiongroup1.option10.Caption = zt12(1+144)
            thisform.optiongroup1.option11.Caption = zt12(1+145)
            thisform.optiongroup1.option12.Caption = zt12(1+146)
            thisform.optiongroup1.option13.Caption = zt12(1+147)
            thisform.optiongroup1.option14.Caption = zt12(1+148)
            thisform.optiongroup1.option15.Caption = zt12(1+149)
            thisform.optiongroup1.option16.Caption = zt12(1+150)
            thisform.optiongroup1.option17.Caption = zt12(1+151)
            thisform.optiongroup1.option18.Caption = zt12(1+152)
            thisform.optiongroup1.option19.Caption = zt12(1+153)
            thisform.optiongroup1.option20.Caption = zt12(1+154)
            thisform.optiongroup1.option21.Caption = ""
            thisform.optiongroup1.option22.Caption = ""
            thisform.optiongroup1.option23.Caption = ""
            thisform.optiongroup1.option24.Caption = ""
            thisform.optiongroup1.option25.Caption = ""
            thisform.optiongroup1.option26.Caption = ""
            thisform.optiongroup1.option27.Caption = ""
        Endcase
    Else
		For i = j * 18 To j * 18 + 17
			xxx=ALLTRIM(STR(1+i - (j * 18),4,0))
			.optiongroup1.Option&xxx..Caption = zt12(1+i)
		Next
		If Knopf = 0 .Or. Knopf = 6
			.optiongroup1.Option1.Caption = wvw.Zulagen(1+zti - 10)
		Endif
	endif
	If zi(1+4) > 10 .And. Knopf = 6
		&&>4
		.optiongroup1.Option17.Caption = "Besitzstandszulage (dynamisch)"
		.optiongroup1.Option18.Caption = "Besitzstandszulage (nicht dynamisch)"
	Endif
	If zi(1+4) = 10
		If welchesjahr < 2014
			.optiongroup1.Option17.Caption = "Besitzstandszulage (dynamisch)"
			.optiongroup1.Option18.Caption = "Besitzstandszulage (nicht dynamisch)"
		Endif
	ENDIF

	Do Case && Knopf
		Case (Knopf >= 0 .And. Knopf <= 4) .Or. (Knopf >= 6 .And. Knopf <= 10)
			Do Case && zi(1+4)
				Case (zi(1+4) >= 0 .And. zi(1+4) <= 5)&&Beamte
					i = 100 &&625
					&&If altesland = 1 And leiz(8) = 1 Then i = 112
				Case  Inlist(zi(1+4), 10, 18 )&& TVD Bund
					i = 110 - 6
				Case  Inlist(zi(1+4), 11, 17, 19 )&&TVD Land
					i = 120 - 6
				Case (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or. (zi(1+4) >= 20 .And. zi(1+4) <= 23)&&TVD VKA
					i = 130 - 6
			Endcase
			myget(filenummer, zi(1+2) * 440 + Knopf + i,"employee ")&&288 + westost, employee
			Do getvalues &&Do attached

			For i = 0 To 17
				xxx=ALLTRIM(STR(i,2,0))
				numbr = grundbetrag(1+i) * anpassungsfaktor
				Do Case && zi(1+2) * 440 + Knopf + i
					Case  Inlist(zi(1+2) * 440 + Knopf + i, 0, 6)
						If i = 0
							numbr = betrag(1+zti)
						Endif
				ENDCASE
				
				Do zahlintextnumbr &&Do attached

				.zeile&xxx..Caption = wer

				If i = 12
					If Knopf = 1 .Or. Knopf = 7
						If Not Op1 = 22 .Or. Op1 = 25
							myget(filenummer, myposition,"employee")
							numbr = (wert(1+7) + wert(1+9) + employee.Feld(1+15)) * 0.19
							If zi(1+4) = 4 .Or. zi(1+4) > 5
								numbr = 0
							Endif
							Do zahlintextnumbr &&Do attached
							.zeile12.Caption = wer &&vorher .zeile(i)
						Endif
					Endif
				Endif
				If Knopf = 3 .And. i = 9
					If Not Op1 = 22
						If Not Op1 = 25
							myget(filenummer, myposition + 1,"employee")
							numbr = (employee.Feld(1+zi(1+7)) - wert(1+7)) / 2
							
							Do zahlintextnumbr &&Do attached
							
							.zeile9.Caption = wer &&vorher .zeile(i)
						Endif
					Endif
				Endif

			Next
			If Knopf = 0 .Or. Knopf = 6
				.zeile0.Caption = "manuell"
			Endif

		Case Knopf = 5
			Do Case && Op1
				Case Op1 = 22 &&Bund
					myget(filenummer, 1405,"employee")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next

				Case Op1 = 23 &&BW
					myget(filenummer, 105,"employee ")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next
				Case Op1 = 24
					myget(filenummer, 125,"employee ")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next
				Case Op1 = 25 &&Hessen
					myget(filenummer, 7 * 440 + 105,"employee ")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next

				Case Op1 < 22
					&&A 5
					&&If altesland = 0 Then i = 0 Else i = 660
					myget(filenummer, zi(1+2) * 440 + 4,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+7) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+0) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile0.Caption = wer
					&&A 9
					myget(filenummer, zi(1+2) * 440 + 10,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+9) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+1) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile1.Caption = wer
					&&A 13
					myget(filenummer, zi(1+2) * 440 + 16,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+2) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile2.Caption = wer
					&&A 15
					myget(filenummer, zi(1+2) * 440 + 20,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+3) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile3.Caption = wer

					&&B 3
					myget(filenummer, zi(1+2) * 440 + 25,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+4) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile4.Caption = wer

					&&B 6
					myget(filenummer, zi(1+2) * 440 + 28,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+5) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile5.Caption = wer

					&&B 9
					myget(filenummer, zi(1+2) * 440 + 31,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+6) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile6.Caption = wer

					&&R 1
					myget(filenummer, zi(1+2) * 440 + 40,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+14) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+7) = numbr
					
					Do zahlintextnumbr &&Do attache
					
					.zeile7.Caption = wer

					&&R 3
					myget(filenummer, zi(1+2) * 440 + 42,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+8) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile8.Caption = wer

					&&R 6
					myget(filenummer, zi(1+2) * 440 + 45,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+9) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile9.Caption = wer

					&&R 9
					myget(filenummer, zi(1+2) * 440 + 48,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor
					Beamtenzulage(1+10) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile10.Caption = wer

					&&A 15
					myget(filenummer, zi(1+2) * 440 + 20,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+11) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile11.Caption = wer

					&&A 16
					myget(filenummer, zi(1+2) * 440 + 21,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+12) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile12.Caption = wer

					&&B 3
					myget(filenummer, zi(1+2) * 440 + 25,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+13) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile13.Caption = wer

					&&B 4
					myget(filenummer, zi(1+2) * 440 + 26,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+14) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile14.Caption = wer

					&&B 5
					myget(filenummer, zi(1+2) * 440 + 27,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+15) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile15.Caption = wer

					&&B 6
					myget(filenummer, zi(1+2) * 440 + 28,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+16) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile16.Caption = wer

					&&B 7
					myget(filenummer, zi(1+2) * 440 + 29,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor
					Beamtenzulage(1+17) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile17.Caption = wer

			Endcase

			&&Get #filenummer, knopf + 288 + westost, employee
			&&getvalues

			&&For i = 12 To 17

			&&    numbr = grundbetrag(1+i)
			&&    zahlintextnumbr
			&&    .zeile(i).Caption = wer

			&&Next

		Case Knopf = 11
			myget(filenummer, myposition,"employee")
			Do getvalues &&Do attached
			numbr = grundbetrag(1+0) * 0.05 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile0.Caption = wer
			numbr = grundbetrag(1+0) * 0.055 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile1.Caption = wer
			numbr = grundbetrag(1+0) * 0.06 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile2.Caption = wer
			numbr = grundbetrag(1+0) * 0.065 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile3.Caption = wer
			numbr = grundbetrag(1+0) * 0.07 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile4.Caption = wer
			numbr = grundbetrag(1+0) * 0.075 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile5.Caption = wer
			numbr = grundbetrag(1+0) * 0.08 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile6.Caption = wer
			numbr = grundbetrag(1+0) * 0.09 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile7.Caption = wer
			numbr = grundbetrag(1+0) * 0.095 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile8.Caption = wer
			numbr = grundbetrag(1+0) * 0.1 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile9.Caption = wer
			numbr = grundbetrag(1+3) * 0.045 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile10.Caption = wer
			numbr = grundbetrag(1+3) * 0.05 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile11.Caption = wer
			numbr = grundbetrag(1+3) * 0.06 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile12.Caption = wer
			numbr = grundbetrag(1+3) * 0.065 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile13.Caption = wer
			numbr = grundbetrag(1+3) * 0.07 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile14.Caption = wer
			numbr = grundbetrag(1+3) * 0.08 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile15.Caption = wer
			numbr = grundbetrag(1+3) * 0.09 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile16.Caption = wer
			numbr = grundbetrag(1+3) * 0.1 * anpassungsfaktor
			Do zahlintextnumbr &&Do attached
			.zeile17.Caption = wer

			If welchesjahr > 2011
				Do Case && zi(1+4)
					Case  Inlist(zi(1+4), 11, 17, 19)
						myget(filenummer, zi(1+2) * 440 + 125,"employee ")&&288 + westost, employee
						Do getvalues &&Do attached
						For i = 0 To 17
							xxx=ALLTRIM(STR(i,2,0))
							numbr = grundbetrag(1+i) * anpassungsfaktor
							Do zahlintextnumbr &&Do attached
							.zeile&xxx..Caption = wer
						Next
				Endcase
			Endif
	ENDCASE
	FOR ara = 27 TO 1 STEP -1
		rrr=ALLTRIM(STR(ara,2,0))
		sss=ALLTRIM(STR(ara-1,2,0))
		IF EMPTY(thisform.optiongroup1.option&rrr..caption)
			thisform.optiongroup1.option&rrr..visible = false
			thisform.zeile&sss..visible = false
		endif
	NEXT

	IF welchesjahr >= 2017 And zi(1+2) = 10 And zi(1+4) <= 5 Then &&Beamte NRW ab 2017
		xkasten = INT(((xpara + 1) / 27))
		IF xkasten < 0
			xkasten = 0
		endif
		IF xkasten > 5
			xkasten = 5
		endif
		hskasten = ALLTRIM(STR(xkasten,4,0))

		IF xkasten = 0
			hsoption = xpara + 1
		ELSE		
*alte version			hsoption = (xpara + 1) - (27 * (INT((xpara + 1) / 27))) 
			hsoption = (xpara) - (27 * (INT((xpara) / 27))) + 1
		endif
		thisform.kasten&hskasten..click &&HS hinzugefgt fr start
		thisform.optiongroup1.Value = IIF(hsoption = 0, hsoption + 1,hsoption)
	ELSE
		xkasten = INT(((xpara) / 18)) &&vorher xpara + 1
		IF xkasten < 0
			xkasten = 0
		endif
		hskasten = ALLTRIM(STR(xkasten,4,0))	
		
		IF xkasten = 0
			hsoption = xpara && + 1
		ELSE
*alte version			hsoption = (xpara + 1) - (18 * (INT((xpara + 1) / 18))) &&((xpara + 1) - (18 * (INT((xpara + 1) / 18))))
			hsoption = (xpara) - (18 * (INT((xpara) / 18))) &&((xpara + 1) - (18 * (INT((xpara + 1) / 18))))

		endif
		
		thisform.kasten&hskasten..click &&HS hinzugefgt fr start
		thisform.optiongroup1.Value = hsoption + 1
	ENDIF
	startkasten = xkasten
	thisform.Tag = "I:"+ALLTRIM(STR(hsoption,4,0))
ENDWITH

thisform.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     D    C  C                           %   =      C    ,>            U    B    U  THISFORM TAG9 4   T     
 T   %   
K  T     7 
 T   7 
 T  
  8  ( T	 CC  Z* .optiongroup1.option&rrr..caption = ""
 T
 CC  Z .zeile&sss..caption = ""
 
 H$|
% C   C 	7 T 
 	 Allgemein T 
  Behrden T 
  Ministerien T 
 
 LBesO. Teil 1 T 
 
 LBesO. Teil 2 T 
 	 %-Zulagen
 H3 C   T 
 
  48-56 LBesG T 
 
  57 LBesG# T 
   44 LBesG,MinZul. T 
  LBesO A Lehrer T 
  LBesO sonst.! T 
  LBesO R, kw-Zul. CC   T 
  Anl.IX Nr. 1-5a  T 
  Anl.IX Nr. 5a-7  T 
  Anl.IX Nr. 7-8b" T 
  Anl.IX Nr. 8b-13c" T 
  Anl.IX Nr. 13c-30# T 
  Anl.IX Amtszulagen C #! %  C 	t( T 
  Lehrer (Hess.Bes.Ordn.)% T 
  Hess.Bes.Ordn. Vorb.! T 
  Hess.Bes.Ordn. A' T 
  Hess.Bes.Ordn, B,C,W,R  % ( T 
  Lehrer (Hess.Bes.Ordn.)% T 
  Hess.Bes.Ordn. Vorb.! T 
  Hess.Bes.Ordn. A' T 
  Hess.Bes.Ordn. B,C,W,R  C 3! %  C 	" T 
  Vorbem. Bes.Ordn. T 
  Amtszulagen" T 
  Ministerialzulage  % /" T 
  Vorbem. Bes.Ordn. T 
  Amtszulagen" T 
  Ministerialzulage  r C  C 		 C  C 	 C  C  C 	P T 
 	 Allgemein T 
  Behrden T 
  Ministerien T 
 
 TV zu  33 T 
  Schichtzul.! T 
  Verg.Gr.-Zulagen C 
 % 
 T 
 	 Allgemein T 
  Behrden T 
  Ministerien T 
 
 TV zu  33 T 
  Schichtzul.! T 
  Verg.Gr.-Zulagen & T 
  Entgeltgruppenzulagen T 
 
 Pflegezulagen T 
  Ministerien T 
 
 TV zu  33 T 
  nicht belegt T 
  nicht belegt  CC |
 % 
	 T 
 	 Allgemein T 
  Behrden T 
  Ministerien T 
 
 TV zu  33 T 
  Schichtzul.! T 
  Verg.Gr.-Zulagen x
 T 
 	 Allgemein! T 
  Funktionszulagen T 
  Ministerien T 
 
 TV zu  33$ T 
  Pflegedienstzulagen& T 
  Entgeltgruppenzulagen     (
 T CC  Z .Kasten&xxx..Visible = True
  T   : %CC  	- T    $ %C  C 
	4! %  C 	  ( T CC  Z  .Kasten&xxx..Visible = False
   % 0  (, T CC  Z  .Kasten&xxx..Visible = False
     %C 
^
 T   s
 T  
    
  8
 T  
 Hv
 C   %C 

 T   CC 

 T  C v
! %  C 	O

 T   % r

 T    % 

 H

 CC 

 T    %  % 
 T   
 T    Y % @ T   U
 T    0 %  C 
	 C 	4
 H0   i T   
 C   T  ! 
 C   T  " 
 C   T  # 
 C   T  $ 
 C   T  % 
 C   T  & 
 C   T  ' 
 C   T  ( 
 C	   T  ) 
 C
   T  * 
 C   T  + 
 C   T  , 
 C
   T  - 
 C   T  . 
 C   T  / 
 C   T  0 
 C   T  1 
 C   T  2 
 C   T  3 
 C   T  4 
 C   T  5 
 C   T  6 
 C   T  7 
 C   T  8 
 C   T  9 
 C   T  : 
 C    4 T   
 C   T  ! 
 C   T  " 
 C   T  # 
 C   T  $ 
 C    T  % 
 C!   T  & 
 C"   T  ' 
 C#   T  ( 
 C$   T  ) 
 C%   T  * 
 C&   T  + 
 C'   T  , 
 C(   T  - 
 C*   T  . 
 C+   T  / 
 C,   T  0 
 C-   T  1 
 C.   T  2 
 C/   T  3 
 C0   T  4 
 C1   T  5 
 C2   T  6 
 C3   T  7 
 C4   T  8 
 C5   T  9 
 C6   T  : 
      T   
 C7   T  ! 
 C8   T  " 
 C9   T  # 
 C:   T  $ 
 C;   T  % 
 C<   T  & 
 C=   T  ' 
 C>   T  ( 
 C?   T  ) 
 C@   T  * 
 CA   T  + 
 CB   T  , 
 CC   T  - 
 CD   T  . 
 CE   T  / 
 CF   T  0 
 CG   T  1 
 CH   T  2 
 CI   T  3 
 CJ   T  4 
 CK   T  5 
 CL   T  6 
 CM   T  7 
 CN   T  8 
 CO   T  9 
 CP   T  : 
 CQ     T   
 CR   T  ! 
 CS   T  " 
 CT   T  # 
 CU   T  $ 
 CV   T  % 
 CW   T  & 
 CX   T  ' 
 CY   T  ( 
 CZ   T  ) 
 C[   T  * 
 C\   T  + 
 C]   T  , 
 C^   T  - 
 C_   T  . 
 C`   T  / 
 Ca   T  0 
 Cb   T  1 
 Cc   T  2 
 Cd   T  3 
 Ce   T  4 
 Cf   T  5 
 Cg   T  6 
 Ch   T  7 
 Ci   T  8 
 Cj   T  9 
 Ck   T  : 
 Cl    i T   
 Cm   T  ! 
 Cn   T  " 
 Co   T  # 
 Cp   T  $ 
 Cq   T  % 
 Cr   T  & 
 Cs   T  ' 
 Ct   T  ( 
 Cu   T  ) 
 Cv   T  * 
 Cw   T  + 
 Cx   T  , 
 Cy   T  - 
    T  . 
    T  / 
    T  0 
    T  1 
    T  2 
    T  3 
    T  4 
    T  5 
    T  6 
    T  7 
    T  8 
    T  9 
    T  : 
     0 T   
 C    T  ! 
 C    T  " 
 C    T  # 
 C    T  $ 
 C    T  % 
 C    T  & 
 C    T  ' 
 C    T  ( 
 C    T  ) 
 C    T  * 
 C    T  + 
 C    T  , 
 C    T  - 
 C    T  . 
 C    T  / 
 C    T  0 
 C    T  1 
 C    T  2 
 C    T  3 
 C    T  4 
    T  5 
    T  6 
    T  7 
    T  8 
    T  9 
    T  : 
     #   ( $ T CC   Z1 .optiongroup1.Option&xxx..Caption = zt12(1+i)
  %    # T  
 C= 
; <     %C 
  	 2 T 0 
  Besitzstandszulage (dynamisch)8 T 1 
 $ Besitzstandszulage (nicht dynamisch)  %C 
"! % 
!2 T 0 
  Besitzstandszulage (dynamisch)8 T 1 
 $ Besitzstandszulage (nicht dynamisch)  
 H3!54     	    
	%%
 Ht!F"% C   C 	!
 T d CC 
!
 T h CC !
 T rD C  C 	 C  C 	F"
 T | . C ? C   	 employee >  @    ($ T CC  Z TA C B C 
 H"##& CC    ## %  # TA C= D    E  .zeile&xxx..Caption = wer
 % 8$ %   4$ % 
  0$ C ?  F  employee> 1 TA CG C
G CH I RQ?$ %C  C $
 TA    E  TJ 
 K     %   		$ % 
$ % 
$  C ? F  employee> ) TA CC H I CG  E  TL 
 K      %    !% TM 
  manuell   0
 HC%0  % C ? } employee>  @    (% T CC  Z TA C B C  E  .zeile&xxx..Caption = wer
   & C ? i	 employee >  @    (& T CC  Z TA C B C  E  .zeile&xxx..Caption = wer
   /' C ? }	 employee >  @    (+' T CC  Z TA C B C  E  .zeile&xxx..Caption = wer
   ' C ? q	 employee >  @    (' T CC  Z TA C B C  E  .zeile&xxx..Caption = wer
   
0) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TM 
 K ) C ? C 
 employee>  @ ! TA C
B       ?C  TN A  E  TO 
 K ) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TP 
 K ) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TQ 
 K ) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TR 
 K ) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TS 
 K ) C ? C  employee>  @ ! TA CB       ?C  TN A  E  TT 
 K ) C ? C ( employee>  @ ! TA CB       ?C  TN A  E  TU 
 K ) C ? C * employee>  @ ! TA CB       ?C  TN 	A  E  TV 
 K ) C ? C - employee>  @ ! TA CB       ?C  TN 
A  E  TL 
 K ) C ? C 0 employee>  @ ! TA CB       ?C  TN A  E  TW 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  TX 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN 
A  E  TJ 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  TY 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  TZ 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  T[ 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  T\ 
 K ) C ? C  employee>  @ ! TA CB HzG?C  TN A  E  T] 
 K    5 C ?  F  employee>  @ ! TA CB ?C  E  TM 
 K ! TA CB )\(?C  E  TO 
 K ! TA CB Q?C  E  TP 
 K ! TA CB p=
ף?C  E  TQ 
 K ! TA CB Q?C  E  TR 
 K ! TA CB 333333?C  E  TS 
 K ! TA CB {Gz?C  E  TT 
 K ! TA CB 
ףp=
?C  E  TU 
 K ! TA CB RQ?C  E  TV 
 K ! TA CB ?C  E  TL 
 K ! TA CB 
ףp=
?C  E  TW 
 K ! TA CB ?C  E  TX 
 K ! TA CB Q?C  E  TJ 
 K ! TA CB p=
ף?C  E  TY 
 K ! TA CB Q?C  E  TZ 
 K ! TA CB {Gz?C  E  T[ 
 K ! TA CB 
ףp=
?C  E  T\ 
 K ! TA CB ?C  E  T] 
 K  % 5
 H45 CC 5* C ? C }	 employee >  @    (5 T CC  Z TA C B C  E  .zeile&xxx..Caption = wer
      (6 T	 CC  Z T
 CC  Z; IF EMPTY(thisform.optiongroup1.option&rrr..caption)65 thisform.optiongroup1.option&rrr..visible = false
' thisform.zeile&sss..visible = false
  0 %  C 
	 C 	7 T^ C  8 %^  
7
 T^    %^ 77
 T^   T_ CC^  Z %^  t7 T    7# T   C  8 $ thisform.kasten&hskasten..click 
) T   C  
    6 8 T^ C  8 %^  
+8
 T^    T_ CC^  Z %^  d8
 T    8 T   C  8 $ thisform.kasten&hskasten..click 
 T     
 T ^   T `  I:CC  Z 
  a  % b c d ?9 Te Cd  b c T T9
 Te  
  f g  T b  b c e  T h  h c e 
  i  T j a Uk  XPARA THISFORM ORIGINALWERT VALUE	 MYZULAGEN TOP STARTKASTEN HSOPTION ARA RRR SSS ZI KASTEN0 CAPTION KASTEN1 KASTEN2 KASTEN3 KASTEN4 KASTEN5 WELCHESJAHR I XXX VISIBLE FALSE TRUE KNOPF KNOEPFE CLICK OP1 J OPTIONGROUP1 OPTION1 ZT12 OPTION2 OPTION3 OPTION4 OPTION5 OPTION6 OPTION7 OPTION8 OPTION9 OPTION10 OPTION11 OPTION12 OPTION13 OPTION14 OPTION15 OPTION16 OPTION17 OPTION18 OPTION19 OPTION20 OPTION21 OPTION22 OPTION23 OPTION24 OPTION25 OPTION26 OPTION27 WVW ZULAGEN ZTI MYGET
 FILENUMMER	 GETVALUES NUMBR GRUNDBETRAG ANPASSUNGSFAKTOR BETRAG ZAHLINTEXTNUMBR
 MYPOSITION WERT EMPLOYEE FELD ZEILE12 WER ZEILE9 ZEILE0
 BEAMTENZULAGE ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE10 ZEILE11 ZEILE13 ZEILE14 ZEILE15 ZEILE16 ZEILE17 XKASTEN HSKASTEN TAG REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Unload,      InitN      Resize=    1  2 q 1 BA q  q   qqA  R Q1!!1QQqA !QqA R!!A !!!A A "R! aA ! AaA A rqA A JrqA A !qqA A A A T   A     QQ A  Q A " A A !  A A   A    A A  aaaaaaaaaaaaaaaaaaaaaaA  1AA 1A A "A Q!!A A  A Q   A A q rq aQA A r A A q A A A !!r A A A B A  q qqq A q qqq A q qqq A q qqq A q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r q 1r B q q q q q q q q q q q q q q q q q q q " q qqq A A A A qQqA A  A  A q 2A A Q A q  B BqA  A    A    2 1                       %         @   Zr       wr  r  @   )   C                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 607
Left = 357
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      optiongroup      optiongroup      Optiongroup1      FORM1     =ButtonCount = 27
Value = 1
Height = 534
Left = 16
Top = 57
Width = 344
Name = "Optiongroup1"
Option1.Caption = "Option1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 63
Option1.Top = 5
Option1.Width = 272
Option1.Name = "Option1"
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 63
Option2.Top = 23
Option2.Width = 272
Option2.Name = "Option2"
Option3.Caption = "Option3"
Option3.Height = 17
Option3.Left = 63
Option3.Top = 41
Option3.Width = 272
Option3.Name = "Option3"
Option4.Caption = "Option4"
Option4.Height = 17
Option4.Left = 63
Option4.Top = 59
Option4.Width = 272
Option4.Name = "Option4"
Option5.Caption = "Option5"
Option5.Height = 17
Option5.Left = 63
Option5.Top = 77
Option5.Width = 272
Option5.Name = "Option5"
Option6.Caption = "Option6"
Option6.Height = 17
Option6.Left = 63
Option6.Top = 95
Option6.Width = 272
Option6.Name = "Option6"
Option7.Caption = "Option7"
Option7.Height = 17
Option7.Left = 63
Option7.Top = 113
Option7.Width = 272
Option7.Name = "Option7"
Option8.Caption = "Option8"
Option8.Height = 17
Option8.Left = 63
Option8.Top = 131
Option8.Width = 272
Option8.Name = "Option8"
Option9.Caption = "Option9"
Option9.Height = 17
Option9.Left = 63
Option9.Top = 149
Option9.Width = 272
Option9.Name = "Option9"
Option10.Caption = "Option10"
Option10.Height = 17
Option10.Left = 63
Option10.Top = 167
Option10.Width = 272
Option10.Name = "Option10"
Option11.Caption = "Option11"
Option11.Height = 17
Option11.Left = 63
Option11.Top = 185
Option11.Width = 272
Option11.Name = "Option11"
Option12.Caption = "Option12"
Option12.Height = 17
Option12.Left = 63
Option12.Top = 203
Option12.Width = 272
Option12.Name = "Option12"
Option13.Caption = "Option13"
Option13.Height = 17
Option13.Left = 63
Option13.Top = 221
Option13.Width = 272
Option13.Name = "Option13"
Option14.Caption = "Option14"
Option14.Height = 17
Option14.Left = 63
Option14.Top = 239
Option14.Width = 272
Option14.Name = "Option14"
Option15.Caption = "Option15"
Option15.Height = 17
Option15.Left = 63
Option15.Top = 257
Option15.Width = 272
Option15.Name = "Option15"
Option16.Caption = "Option16"
Option16.Height = 17
Option16.Left = 63
Option16.Top = 275
Option16.Width = 272
Option16.Name = "Option16"
Option17.Caption = "Option17"
Option17.Height = 17
Option17.Left = 63
Option17.Top = 293
Option17.Width = 272
Option17.Name = "Option17"
Option18.Caption = "Option18"
Option18.Height = 17
Option18.Left = 63
Option18.Top = 311
Option18.Width = 272
Option18.Name = "Option18"
Option19.Caption = "Option19"
Option19.Height = 17
Option19.Left = 63
Option19.Top = 329
Option19.Width = 272
Option19.Name = "Option19"
Option20.Caption = "Option20"
Option20.Height = 17
Option20.Left = 63
Option20.Top = 347
Option20.Width = 272
Option20.Name = "Option20"
Option21.Caption = "Option21"
Option21.Height = 17
Option21.Left = 63
Option21.Top = 365
Option21.Width = 272
Option21.Name = "Option21"
Option22.Caption = "Option22"
Option22.Height = 17
Option22.Left = 63
Option22.Top = 383
Option22.Width = 272
Option22.Name = "Option22"
Option23.Caption = "Option23"
Option23.Height = 17
Option23.Left = 63
Option23.Top = 401
Option23.Width = 272
Option23.Name = "Option23"
Option24.Caption = "Option24"
Option24.Height = 17
Option24.Left = 63
Option24.Top = 419
Option24.Width = 272
Option24.Name = "Option24"
Option25.Caption = "Option25"
Option25.Height = 17
Option25.Left = 63
Option25.Top = 437
Option25.Width = 272
Option25.Name = "Option25"
Option26.Caption = "Option26"
Option26.Height = 17
Option26.Left = 63
Option26.Top = 455
Option26.Width = 272
Option26.Name = "Option26"
Option27.Caption = "Option27"
Option27.Height = 17
Option27.Left = 63
Option27.Top = 473
Option27.Width = 272
Option27.Name = "Option27"
     PROCEDURE Click
&&Attribute VB_Name

IF register = 112 .or. register = 113 .or. register = 114
   For iii = 1 To 27 && nrw ab 2017 nur beamte
*!*	        If (welchesjahr < 2017 .or. zi(1+2) <> 10 .or. zi(1+4) > 5) .And. iii > 17 
*!*	            Exit
*!*	        ENDIF
		hsxx = Alltrim(Str(iii,2,0))
		If .not. EMPTY(thisform.optiongroup1.Option&hsxx..Value)        
            do Case &&Knopf
            Case knopf = 1
               If iii = 12 
                  If Op1 = 22 
                     betrag(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                     wert(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                  Else &&Bundesbankzulage
                     betrag(1+register - 100) = (wert(1+7) + wert(1+9)) * 0.19
                     wert(1+register - 100) = betrag(1+register - 100)
                     If register - 100 = 12 
                        weiz(register - 100) = False
                        hsxx = ALLTRIM(STR(register - 100,3,0))
                        myform1.Wei&hsxx..Caption = "-"
                     EndIf
                  EndIf
               Else
                  betrag(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                  wert(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
               EndIf
            Case knopf = 3
                If iii = 10 
                   If Op1 = 22
                      betrag(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                      wert(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                   Else &&Stationsschwesterzulage
						betrag(1+register - 100) = wert(1+7)
						myGet(filenummer, myposition + 1, "employee")
						DO getvalues
						betrag(1+register - 100) = (grundbetrag(1+zi(1+7)) - betrag(1+register - 100)) / 2 * anpassungsfaktor
						wert(1+register - 100) = betrag(1+register - 100)
						myGet(filenummer, myposition + 1, "employee")
						DO getvalues
                   EndIf
                Else
                  betrag(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                  wert(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                EndIf
            Case knopf = 0 .or. knopf = 2 .or. (knopf >= 4 .and. knopf <= 6)
               &&If zi(register - 100) > 0 Then
                  betrag(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
                  wert(1+register - 100) = grundbetrag(iii) * anpassungsfaktor
               &&End If
            Endcase
   
            &&mit_Berechnung = True
            If welchesjahr >= 2017 .And. zi(1+2) = 10 .And. zi(1+4) <= 5 &&NRW ab 2017 nur Beamte
                If Knopf * 27 + iii - 1 > 0 && vorher 18
                	hsxx = ALLTRIM(STR(register - 100,3,0))
                    myform1.z&hsxx..Caption = zt12(Knopf * 27 + iii - 1) &&vorher 18
                    thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 27 + iii - 1,4,0))
                Else
                    For k = zi(1+20) + 1 To 12
                        myGet(k, fileneu, "wvw")
                        lasttext = thisform.optiongroup1.option1.Caption
                        hsxx = ALLTRIM(STR(zti,3,0))
                        myform1.z&hsxx..Caption = lasttext
                        wvw.tnam(1+zti) = INT(wert(1+zti))
                        wvw.Zulagen(1+zti - 10) = lasttext
                        myPut(k, fileneu, "wvw")
                     Next
                EndIf

               &&form1.z(register - 100).Caption = zt12(Knopf * 18 + iii)
                zi(1+register - 100) = Knopf * 27 + iii - 1 &&vorher 18
                thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 27 + iii - 1,4,0))
            Else
                If Knopf * 18 + iii - 1 > 0 Then
               		hsxx = ALLTRIM(STR(register - 100,3,0))
                    myform1.z&hsxx..Caption = zt12(1+Knopf * 18 + iii - 1)
                    thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 18 + iii - 1,4,0))
                Else
                    
                    For k = zi(1+20) + 1 To 12
                        myGet(k, fileneu, "wvw")
                        lasttext = thisform.optiongroup1.option1.Caption
                        hsxx = ALLTRIM(STR(zti,3,0))
                        myform1.z&hsxx..Caption = lasttext
                        wvw.tnam(1+zti) = INT(wert(1+zti))
                        wvw.Zulagen(1+zti - 10) = lasttext
                        myPut(k, fileneu, "wvw")
                     Next
                EndIf
*!*	               'form1.z(register - 100).Caption = zt12(1+Knopf * 18 + iii - 1)
                zi(1+register - 100) = Knopf * 18 + iii - 1
                thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 18 + iii - 1,4,0))
            EndIf
            DO vergtungsgruppenzulagen
            lastclick = register
            lastz = zi(1+register - 100)
            DO berechnungauslsen
*!*	            'Form1.z(register - 100).ListIndex = knopf * 18 + iii
*!*	            Unload Tablett
            i = register - 100
*!*	            If Knopf = 0 And iii = 0 Then
*!*	               demfarbig
*!*	            Else
*!*	               demnichtfarbig
*!*	            End If
*!*	            form1.SSPanel1.Visible = True
            Exit 
        EndIf
    Next	
ELSE

	For iii = 1 To 18 &&vorher 0 to 17
		hsxx = Alltrim(Str(iii,2,0))
		If .not. EMPTY(thisform.optiongroup1.Option&hsxx..Value) && vorher = 1 &&voher = True

			If Knopf = 7 .And. iii = 13 &&vorher 12
				myget(filenummer, myposition - 6,"employee")
				betrag(1+register - 1100) = (wert(1+7) + wert(1+9) + employee.Feld(1+15)) * 0.19
				wert(1+register - 1100) = betrag(1+register - 1100)
			Else
				If zi(1+register - 1100) > 0
					betrag(1+register - 1100) = grundbetrag(iii)
					wert(1+register - 1100) = grundbetrag(iii)
				Else
					numbr = wert(1+zti)
					betrag(1+register - 1100) = numbr
					wert(1+register - 1100) = numbr
				Endif
			Endif

			If (Knopf - 6) * 18 + iii - 1 > 0
				hsxx = ALLTRIM(STR(register - 1100,3,0))
				myform1.z&hsxx..Caption = zt12(1+(Knopf - 6) * 18 + iii - 1)
				zi(1+register - 1100) = (Knopf - 6) * 18 + iii - 1
				thisform.Tag = "I:" + ALLTRIM(STR((Knopf - 6) * 18 + iii - 1,4,0))
			Else
				For k = zi(1+20) + 1 To 12
					myget(k, fileneu,"wvw")
					lasttext = ALLTRIM(thisform.optiongroup1.Option1.Caption) &&vorher opt(0).caption
					hsxx = ALLTRIM(STR(zti,3,0))
					myform1.z&hsxx..Caption = lasttext
					wvw.tnam(1+zti) = INT(wert(1+zti))
					wvw.Zulagen(1+zti - 10) = lasttext
					myput(k, fileneu,"wvw")
				Next
			Endif

			&&mit_Berechnung = True
			zi(1+register - 1100) = (Knopf - 6) * 18 + iii - 1
			thisform.Tag = "I:" + ALLTRIM(STR((Knopf - 6) * 18 + iii - 1,4,0))
			
			Do vergtungsgruppenzulagen &&Do attached
			lastclick = register - 1000
			lastz = zi(1+register - 1100)
			Do berechnungauslsen &&Do attached

			&&zi(1+register - 1100) = (knopf - 6) * 18 + iii
			&&Unload Tablett
			i = register - 1100
	*!*			If Knopf = 6 .And. iii = 0
	*!*				Do demfarbig &&Do attached
	*!*			Else
	*!*				Do demnichtfarbig &&Do attached
	*!*			ENDIF
			
	*!*			myform1.SSPanel1.Visible = True
	*!*			Return
		Endif
	NEXT
endif
thisform.release

ENDPROC
     Y    @  @                        m   %                          U  H
' %  p   q   r  ( T CC  ZH If .not. EMPTY(thisform.optiongroup1.Option&hsxx..Value)        
 H x  N %  % %$ T   dC    $ T   dC     4 T   dC C
 RQ?' T   dC  d  %  d T	   d
  T CC  d Z# myform1.Wei&hsxx..Caption = "-"
   J$ T   dC    $ T   dC        % 
 % $ T   dC    $ T   dC      T   dC   C  
  employee   @ T   dCC  C  d  ' T   dC  d   C  
  employee     $ T   dC    $ T   dC     3         	x$ T   dC    $ T   dC     0 %  C 
	 C 	 %   I T CC  d Z9 myform1.z&hsxx..Caption = zt12(Knopf * 27 + iii - 1) 
, T   I:CC   Z 9  C (5 C     wvw  T      T CC  Z& myform1.z&hsxx..Caption = lasttext
$ T   CC  8 T   
  C     wvw   ' T   d  , T   I:CC   Z } %   6 T CC  d Z: myform1.z&hsxx..Caption = zt12(1+Knopf * 18 + iii - 1)
, T   I:CC   Z &  C (" C     wvw  T      T CC  Z& myform1.z&hsxx..Caption = lasttext
$ T   CC  8 T   
  C     wvw   ' T   d  , T   I:CC   Z   
 T    T  C  d  !  T"   d !   7
  (3
 T CC  ZA If .not. EMPTY(thisform.optiongroup1.Option&hsxx..Value) /
 %   
		  C  
  employee @ T   LC C
 C# $ RQ?) T   LC  L  
 %C  L  V
! T   LC   ! T   LC    
 T% C   T   L%  T   L%   " %    T CC  L Z@ myform1.z&hsxx..Caption = zt12(1+(Knopf - 6) * 18 + iii - 1)
- T   L  1 T   I:CC   Z   C (} C     wvw  T C     T CC  Z& myform1.z&hsxx..Caption = lasttext
$ T   CC  8 T   
  C     wvw   - T   L  1 T   I:CC   Z   T    T  C  L  !  T"   L   
  &  U'  REGISTER III HSXX KNOPF OP1 BETRAG GRUNDBETRAG ANPASSUNGSFAKTOR WERT WEIZ FALSE MYGET
 FILENUMMER
 MYPOSITION	 GETVALUES ZI WELCHESJAHR THISFORM TAG K FILENEU LASTTEXT OPTIONGROUP1 OPTION1 CAPTION ZTI WVW TNAM ZULAGEN MYPUT VERGTUNGSGRUPPENZULAGEN	 LASTCLICK LASTZ BERECHNUNGAUSLSEN I EMPLOYEE FELD NUMBR RELEASE Click,     1 sqt AA AqQq1A A  AAA AA q qq A  AAA 1BAB  aqaAA A s  aqaAA A rA q  q G A A  rq  QA A " qaAA A r !q $I A A  2                             )   @                        
commandbutton      
commandbutton      kasten0      FORM1      UTop = 6
Left = 16
Height = 25
Width = 115
Caption = "kasten0"
Name = "kasten0"
     "PROCEDURE Click
myindex = 0
If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6 &&6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 0 .or. knopf = 6
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T    %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %      0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  Q  A  2 A 1A 1                             	        
    )                           
commandbutton      
commandbutton      kasten1      FORM1      VTop = 6
Left = 130
Height = 25
Width = 115
Caption = "kasten1"
Name = "kasten1"
     %PROCEDURE Click
myindex = 1

If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6  &&6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 1 .or. knopf = 7
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T   %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %     0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  R  A  2 A 1A 1                             	            )                           
commandbutton      
commandbutton      kasten2      FORM1      VTop = 6
Left = 244
Height = 25
Width = 115
Caption = "kasten2"
Name = "kasten2"
     #PROCEDURE Click
myindex = 2
If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6  &&6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 2 .or. knopf = 8
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T   %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %     0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  Q  A  2 A 1A 1                             	        
    )                           
commandbutton      
commandbutton      kasten3      FORM1      VTop = 30
Left = 16
Height = 25
Width = 115
Caption = "kasten3"
Name = "kasten3"
     "PROCEDURE Click
myindex = 3
If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6 &&6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 3 .or. knopf = 9
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T   %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %     	0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  Q  A  2 A 1A 1                             	        
    )                           
commandbutton      
commandbutton      kasten4      FORM1      WTop = 30
Left = 130
Height = 25
Width = 115
Caption = "kasten4"
Name = "kasten4"
     #PROCEDURE Click
myindex = 4
If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6 &&6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 4 .or. knopf = 10
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T   %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %     
0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  Q  A  2 A 1A 1                             	        
    )                           
commandbutton      
commandbutton      kasten5      FORM1      WTop = 30
Left = 244
Height = 25
Width = 115
Caption = "kasten5"
Name = "kasten5"
     !PROCEDURE Click

myindex = 5
If zi(1+4) < 8  
	Knopf = myindex 
Else 
	Knopf = myindex + 6
ENDIF
thisform.knoepfe.click
ENDPROC
PROCEDURE Refresh
IF knopf = 5 .or. knopf = 11
	this.BackColor = qbcolor(14) &&hellgelb
ELSE
	this.backcolor = thisform.BackColor
endif
ENDPROC
                                      %   ;      y     [            U  \ 
 T   %C 
/ 
 T    H  T    
     U  MYINDEX ZI KNOPF THISFORM KNOEPFE CLICKR  %     0  T  C  K  T      U  KNOPF THIS	 BACKCOLOR QBCOLOR THISFORM Click,      Refresh     1  Q  A  2 A 1A 1                             	            )                           
commandbutton      
commandbutton      
SSCommand3      FORM1      XTop = 596
Left = 91
Height = 25
Width = 103
Caption = "Hilfe"
Name = "SSCommand3"
      IPROCEDURE Click
 inet = "111"
 Msg = "20520"
DO insinternet
ENDPROC
                                      Ё   %   t                          U  ,  T   111 T  20520   U  INET MSG INSINTERNET Click,     1 !q 1                       >       )                            
commandbutton      
commandbutton      
SSCommand2      FORM1      {Top = 597
Left = 206
Height = 25
Width = 103
Caption = "Schlieen"
Enabled = .T.
Visible = .T.
Name = "SSCommand2"
     PROCEDURE Click

*!*	IF welchesjahr >= 2017 .And. zi(1+2) = 10 .And. zi(1+4) <= 5 &&NRW ab 201
*!*		thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 27 + thisform.optiongroup1.value - 1,4,0))
*!*	else
*!*		thisform.Tag = "I:" + ALLTRIM(STR(Knopf * 18 + thisform.optiongroup1.value - 1,4,0))
*!*	endif
thisform.Tag = "I:"+ALLTRIM(STR(thisform.originalwert.Value,4,0))
thisform.release

ENDPROC
     	                                    %                             U  3 & T    I:CC     Z
     U  THISFORM TAG ORIGINALWERT VALUE RELEASE Click,     1 g 2                             )                            label      label      zeile0      FORM1      {Caption = "Label0"
Height = 16
Left = 22
Top = 63
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile0"
      label      label      zeile1      FORM1      {Caption = "Label0"
Height = 16
Left = 22
Top = 81
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile1"
      label      label      zeile2      FORM1      {Caption = "Label0"
Height = 16
Left = 22
Top = 99
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile2"
      label      label      zeile3      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 116
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile3"
      label      label      zeile4      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 135
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile4"
      label      label      zeile5      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 152
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile5"
      label      label      zeile6      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 171
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile6"
      label      label      zeile7      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 189
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile7"
      label      label      zeile8      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 207
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile8"
      label      label      zeile9      FORM1      |Caption = "Label0"
Height = 16
Left = 22
Top = 225
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile9"
      label      label      zeile10      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 243
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile10"
      label      label      zeile11      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 261
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile11"
      label      label      zeile12      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 279
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile12"
      label      label      zeile13      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 297
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile13"
      label      label      zeile14      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 315
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile14"
      label      label      zeile15      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 333
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile15"
      label      label      zeile16      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 351
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile16"
      label      label      zeile17      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 369
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile17"
      label      label      zeile18      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 387
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile18"
      label      label      zeile19      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 405
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile19"
      label      label      zeile20      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 423
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile20"
      label      label      zeile21      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 441
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile21"
      label      label      zeile22      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 458
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile22"
      label      label      zeile23      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 477
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile23"
      label      label      zeile24      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 495
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile24"
      label      label      zeile25      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 514
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile25"
      label      label      zeile26      FORM1      }Caption = "Label0"
Height = 16
Left = 22
Top = 531
Visible = .T.
Width = 53
BackColor = 255,255,255
Name = "zeile26"
      
commandbutton      
commandbutton      knoepfe      FORM1      sTop = 592
Left = 5
Height = 22
Width = 67
Caption = "knoepfe"
Enabled = .F.
Visible = .F.
Name = "knoepfe"
     aPROCEDURE Click
thisform.kasten0.refresh
thisform.kasten1.refresh
thisform.kasten2.refresh
thisform.kasten3.refresh
thisform.kasten4.refresh
thisform.kasten5.refresh

With thisform

	Op1 = 0
	Do Case && zi(1+2)
		Case zi(1+2) = 0
			If zi(1+4) < 6
				Op1 = 23
			Endif
		Case  Inlist(zi(1+2), 3, 17)
			Op1 = 22
		Case zi(1+2) = 7
			If welchesjahr = 2014 .And. zi(1+20) > 1
				Op1 = 25
			Endif

			If welchesjahr > 2014
				Op1 = 25
			Endif
	Endcase
	If welchesjahr > 2011
		Do Case && zi(1+4)
			Case  Inlist(zi(1+4), 11, 17, 19)
				Op1 = 24
		Endcase
	Endif

	If Op1 = 22
		&&If Knopf > 6 Then j = Knopf - 7 Else j = Knopf
		If Knopf > 5
			j = Knopf - 6
		Else
			j = Knopf
		Endif
	Else
		If Knopf > 5
			j = Knopf - 6
		Else
			j = Knopf
		Endif
	Endif


*****************************
        If welchesjahr >= 2017 And zi(1+2) = 10 .And. zi(1+4) <= 5  &&Beamte NRW ab 2017
            do Case &&j
	           Case j = 0
	                .optiongroup1.Option1.Caption = zt12(1+0)
	                .optiongroup1.option2.Caption = zt12(1+1)
	                .optiongroup1.option3.Caption = zt12(1+2)
	                .optiongroup1.option4.Caption = zt12(1+3)
	                .optiongroup1.option5.Caption = zt12(1+4)
	                .optiongroup1.option6.Caption = zt12(1+5)
	                .optiongroup1.option7.Caption = zt12(1+6)
	                .optiongroup1.option8.Caption = zt12(1+7)
	                .optiongroup1.option9.Caption = zt12(1+8)
	                .optiongroup1.option10.Caption = zt12(1+9)
	                .optiongroup1.option11.Caption = zt12(1+10)
	                .optiongroup1.option12.Caption = zt12(1+11)
	                .optiongroup1.option13.Caption = zt12(1+12)
	                .optiongroup1.option14.Caption = zt12(1+13)
	                .optiongroup1.option15.Caption = zt12(1+14)
	                .optiongroup1.option16.Caption = zt12(1+15)
	                .optiongroup1.option17.Caption = zt12(1+16)
	                .optiongroup1.option18.Caption = zt12(1+17)
	                .optiongroup1.option19.Caption = zt12(1+18)
	                .optiongroup1.option20.Caption = zt12(1+19)
	                .optiongroup1.option21.Caption = zt12(1+20)
	                .optiongroup1.option22.Caption = zt12(1+21)
	                .optiongroup1.option23.Caption = zt12(1+22)
	                .optiongroup1.option24.Caption = zt12(1+23)
	                .optiongroup1.option25.Caption = zt12(1+24)
	                .optiongroup1.option26.Caption = zt12(1+25)
	                .optiongroup1.option27.Caption = zt12(1+26)
	            Case j = 1
	                .optiongroup1.option1.Caption = zt12(1+27)
	                .optiongroup1.option2.Caption = zt12(1+28)
	                .optiongroup1.option3.Caption = zt12(1+29)
	                .optiongroup1.option4.Caption = zt12(1+30)
	                .optiongroup1.option5.Caption = zt12(1+31)
	                .optiongroup1.option6.Caption = zt12(1+32)
	                .optiongroup1.option7.Caption = zt12(1+33)
	                .optiongroup1.option8.Caption = zt12(1+34)
	                .optiongroup1.option9.Caption = zt12(1+35)
	                .optiongroup1.option10.Caption = zt12(1+36)
	                .optiongroup1.option11.Caption = zt12(1+37)
	                .optiongroup1.option12.Caption = zt12(1+38)
	                .optiongroup1.option13.Caption = zt12(1+39)
	                .optiongroup1.option14.Caption = zt12(1+41)
	                .optiongroup1.option15.Caption = zt12(1+42)
	                .optiongroup1.option16.Caption = zt12(1+43)
	                .optiongroup1.option17.Caption = zt12(1+44)
	                .optiongroup1.option18.Caption = zt12(1+45)
	                .optiongroup1.option19.Caption = zt12(1+46)
	                .optiongroup1.option20.Caption = zt12(1+47)
	                .optiongroup1.option21.Caption = zt12(1+48)
	                .optiongroup1.option22.Caption = zt12(1+49)
	                .optiongroup1.option23.Caption = zt12(1+50)
	                .optiongroup1.option24.Caption = zt12(1+51)
	                .optiongroup1.option25.Caption = zt12(1+52)
	                .optiongroup1.option26.Caption = zt12(1+53)
	                .optiongroup1.option27.Caption = ""  
	            Case j = 2                               
	                .optiongroup1.option1.Caption = zt12(1+54)
	                .optiongroup1.option2.Caption = zt12(1+55)
	                .optiongroup1.option3.Caption = zt12(1+56)
	                .optiongroup1.option4.Caption = zt12(1+57)
	                .optiongroup1.option5.Caption = zt12(1+58)
	                .optiongroup1.option6.Caption = zt12(1+59)
	                .optiongroup1.option7.Caption = zt12(1+60)
	                .optiongroup1.option8.Caption = zt12(1+61)
	                .optiongroup1.option9.Caption = zt12(1+62)
	                .optiongroup1.option10.Caption = zt12(1+63)
	                .optiongroup1.option11.Caption = zt12(1+64)
	                .optiongroup1.option12.Caption = zt12(1+65)
	                .optiongroup1.option13.Caption = zt12(1+66)
	                .optiongroup1.option14.Caption = zt12(1+67)
	                .optiongroup1.option15.Caption = zt12(1+68)
	                .optiongroup1.option16.Caption = zt12(1+69)
	                .optiongroup1.option17.Caption = zt12(1+70)
	                .optiongroup1.option18.Caption = zt12(1+71)
	                .optiongroup1.option19.Caption = zt12(1+72)
	                .optiongroup1.option20.Caption = zt12(1+73)
	                .optiongroup1.option21.Caption = zt12(1+74)
	                .optiongroup1.option22.Caption = zt12(1+75)
	                .optiongroup1.option23.Caption = zt12(1+76)
	                .optiongroup1.option24.Caption = zt12(1+77)
	                .optiongroup1.option25.Caption = zt12(1+78)
	                .optiongroup1.option26.Caption = zt12(1+79)
	                .optiongroup1.option27.Caption = zt12(1+80)
	            Case j = 3                                
	                .optiongroup1.option1.Caption = zt12(1+81)
	                .optiongroup1.option2.Caption = zt12(1+82)
	                .optiongroup1.option3.Caption = zt12(1+83)
	                .optiongroup1.option4.Caption = zt12(1+84)
	                .optiongroup1.option5.Caption = zt12(1+85)
	                .optiongroup1.option6.Caption = zt12(1+86)
	                .optiongroup1.option7.caption = zt12(1+87)
	                .optiongroup1.option8.Caption = zt12(1+88)
	                .optiongroup1.option9.Caption = zt12(1+89)
	                .optiongroup1.option10.Caption = zt12(1+90)
	                .optiongroup1.option11.Caption = zt12(1+91)
	                .optiongroup1.option12.Caption = zt12(1+92)
	                .optiongroup1.option13.Caption = zt12(1+93)
	                .optiongroup1.option14.Caption = zt12(1+94)
	                .optiongroup1.option15.Caption = zt12(1+95)
	                .optiongroup1.option16.Caption = zt12(1+96)
	                .optiongroup1.option17.Caption = zt12(1+97)
	                .optiongroup1.option18.Caption = zt12(1+98)
	                .optiongroup1.option19.Caption = zt12(1+99)
	                .optiongroup1.option20.Caption = zt12(1+100)
	                .optiongroup1.option21.Caption = zt12(1+101)
	                .optiongroup1.option22.Caption = zt12(1+102)
	                .optiongroup1.option23.Caption = zt12(1+103)
	                .optiongroup1.option24.Caption = zt12(1+104)
	                .optiongroup1.option25.Caption = zt12(1+105)
	                .optiongroup1.option26.Caption = zt12(1+106)
	                .optiongroup1.option27.Caption = zt12(1+107)
	            Case j = 4                              
	                .optiongroup1.option1.Caption = zt12(1+108)
	                .optiongroup1.option2.Caption = zt12(1+109)
	                .optiongroup1.option3.Caption = zt12(1+110)
	                .optiongroup1.option4.Caption = zt12(1+111)
	                .optiongroup1.option5.Caption = zt12(1+112)
	                .optiongroup1.option6.Caption = zt12(1+113)
	                .optiongroup1.option7.caption = zt12(1+114)
	                .optiongroup1.option8.Caption = zt12(1+115)
	                .optiongroup1.option9.Caption = zt12(1+116)
	                .optiongroup1.option10.Caption = zt12(1+117)
	                .optiongroup1.option11.Caption = zt12(1+118)
	                .optiongroup1.option12.Caption = zt12(1+119)
	                .optiongroup1.option13.Caption = zt12(1+120)
	                .optiongroup1.option14.Caption = zt12(1+121) 
	                .optiongroup1.option15.Caption = ""   
	                .optiongroup1.option16.Caption = ""   
	                .optiongroup1.option17.Caption = ""   
	                .optiongroup1.option18.Caption = ""   
	                .optiongroup1.option19.Caption = ""   
	                .optiongroup1.option20.Caption = ""
	                .optiongroup1.option21.Caption = ""
	                .optiongroup1.option22.Caption = ""
	                .optiongroup1.option23.Caption = ""
	                .optiongroup1.option24.Caption = ""
	                .optiongroup1.option25.Caption = ""
	                .optiongroup1.option26.Caption = ""
	                .optiongroup1.option27.Caption = ""
	            Case j = 5
	                .optiongroup1.option1.Caption = zt12(1+135)
	                .optiongroup1.option2.Caption = zt12(1+136)
	                .optiongroup1.option3.Caption = zt12(1+137)
	                .optiongroup1.option4.Caption = zt12(1+138)
	                .optiongroup1.option5.Caption = zt12(1+139)
	                .optiongroup1.option6.Caption = zt12(1+140)
	                .optiongroup1.option7.Caption = zt12(1+141)
	                .optiongroup1.option8.Caption = zt12(1+142)
	                .optiongroup1.option9.Caption = zt12(1+143)
	                .optiongroup1.option10.Caption = zt12(1+144)
	                .optiongroup1.option11.Caption = zt12(1+145)
	                .optiongroup1.option12.Caption = zt12(1+146)
	                .optiongroup1.option13.Caption = zt12(1+147)
	                .optiongroup1.option14.Caption = zt12(1+148)
	                .optiongroup1.option15.Caption = zt12(1+149)
	                .optiongroup1.option16.Caption = zt12(1+150)
	                .optiongroup1.option17.Caption = zt12(1+151)
	                .optiongroup1.option18.Caption = zt12(1+152)
	                .optiongroup1.option19.Caption = zt12(1+153)
	                .optiongroup1.option20.Caption = zt12(1+154)
	                .optiongroup1.option21.Caption = ""  
	                .optiongroup1.option22.Caption = ""  
	                .optiongroup1.option23.Caption = ""  
	                .optiongroup1.option24.Caption = ""  
	                .optiongroup1.option25.Caption = ""  
	                .optiongroup1.option26.Caption = ""  
	                .optiongroup1.option27.Caption = ""  
            ENDCASE
            
        ELSE
 
			For i = j * 18 To j * 18 + 17
				xxx=ALLTRIM(STR(1+i - (j * 18),4,0))
				.optiongroup1.Option&xxx..Caption = zt12(1+i)
			Next        
        endif

*****************************

	If Knopf = 0 .Or. Knopf = 6
		.optiongroup1.Option1.Caption = wvw.Zulagen(1+zti - 10)
	Endif

	If zi(1+4) > 10 .And. Knopf = 6
		&&>4
		.optiongroup1.Option16.Caption = "Besitzstandszulage (dynamisch)"
		.optiongroup1.Option17.Caption = "Besitzstandszulage (nicht dynamisch)"
	Endif
	If zi(1+4) = 10
		If welchesjahr < 2014
			.optiongroup1.Option16.Caption = "Besitzstandszulage (dynamisch)"
			.optiongroup1.Option17.Caption = "Besitzstandszulage (nicht dynamisch)"
		Endif
	ENDIF

	Do Case && Knopf
		Case (Knopf >= 0 .And. Knopf <= 4) .Or. (Knopf >= 6 .And. Knopf <= 10)
			Do Case && zi(1+4)
				Case (zi(1+4) >= 0 .And. zi(1+4) <= 5)&&Beamte
					i = 100 &&625
					&&If altesland = 1 And leiz(8) = 1 Then i = 112
				Case  Inlist(zi(1+4), 10, 18 )&& TVD Bund
					i = 110 - 6
				Case  Inlist(zi(1+4), 11, 17, 19 )&&TVD Land
					i = 120 - 6
				Case (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or. (zi(1+4) >= 20 .And. zi(1+4) <= 23)&&TVD VKA
					i = 130 - 6
			Endcase
			myget(filenummer, zi(1+2) * 440 + Knopf + i,"employee")&&288 + westost, employee
			Do getvalues &&Do attached

			For i = 0 To 26
				IF (welchesjahr <  2017 .or. zi(1+2) <> 10 .or. zi(1+4) > 5) .and. i > 17
					EXIT
				endif
				xxx=ALLTRIM(STR(i,2,0))
				numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&HS
				Do Case && zi(1+2) * 440 + Knopf + i
					Case  Inlist(zi(1+2) * 440 + Knopf + i, 0, 6)
						If i = 0
							numbr = betrag(1+zti)
						Endif
				ENDCASE
				
				Do zahlintextnumbr &&Do attached

				.zeile&xxx..Caption = wer

				If i = 12
					If Knopf = 1 .Or. Knopf = 7
						If Not Op1 = 22 .Or. Op1 = 25
							myget(filenummer, myposition,"employee")
							numbr = ((wert(1+7) + wert(1+9) + employee.Feld(1+15)) * 0.19) / 100
							If zi(1+4) = 4 .Or. zi(1+4) > 5
								numbr = 0
							Endif
							Do zahlintextnumbr &&Do attached
							.zeile12.Caption = wer &&vorher .zeile(i)
						Endif
					Endif
				Endif
				If Knopf = 3 .And. i = 9
					If Not Op1 = 22
						If Not Op1 = 25
							myget(filenummer, myposition + 1,"employee")
							numbr = ((employee.Feld(1+zi(1+7)) - wert(1+7)) / 2) / 100
							
							Do zahlintextnumbr &&Do attached
							
							.zeile9.Caption = wer &&vorher .zeile(i)
						Endif
					Endif
				Endif

			Next
			If Knopf = 0 .Or. Knopf = 6
				.zeile0.Caption = "manuell"
			Endif

		Case Knopf = 5
			Do Case && Op1
				Case Op1 = 22 &&Bund
					myget(filenummer, 1405,"employee")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&vorher ohne / 100
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next

				Case Op1 = 23 &&BW
					myget(filenummer, 105,"employee")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&vorher ohne / 100
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next
				Case Op1 = 24
					myget(filenummer, 125,"employee")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&vorher ohne / 100
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next
				Case Op1 = 25 &&Hessen
					myget(filenummer, 7 * 440 + 105,"employee")&&288 + westost, employee
					Do getvalues &&Do attached
					For i = 0 To 17
						xxx=ALLTRIM(STR(i,2,0))
						numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&vorher ohne / 100
						Do zahlintextnumbr &&Do attached
						.zeile&xxx..Caption = wer
					Next

				Case Op1 < 22
					&&A 5
					&&If altesland = 0 Then i = 0 Else i = 660
					myget(filenummer, zi(1+2) * 440 + 4,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+7) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+0) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile0.Caption = wer
					&&A 9
					myget(filenummer, zi(1+2) * 440 + 10,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+9) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+1) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile1.Caption = wer
					&&A 13
					myget(filenummer, zi(1+2) * 440 + 16,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+2) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile2.Caption = wer
					&&A 15
					myget(filenummer, zi(1+2) * 440 + 20,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+3) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile3.Caption = wer

					&&B 3
					myget(filenummer, zi(1+2) * 440 + 25,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+4) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile4.Caption = wer

					&&B 6
					myget(filenummer, zi(1+2) * 440 + 28,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+5) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile5.Caption = wer

					&&B 9
					myget(filenummer, zi(1+2) * 440 + 31,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+6) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile6.Caption = wer

					&&R 1
					myget(filenummer, zi(1+2) * 440 + 40,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+14) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+7) = numbr
					
					Do zahlintextnumbr &&Do attache
					
					.zeile7.Caption = wer

					&&R 3
					myget(filenummer, zi(1+2) * 440 + 42,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+8) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile8.Caption = wer

					&&R 6
					myget(filenummer, zi(1+2) * 440 + 45,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+9) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile9.Caption = wer

					&&R 9
					myget(filenummer, zi(1+2) * 440 + 48,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.125 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+10) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile10.Caption = wer

					&&A 15
					myget(filenummer, zi(1+2) * 440 + 20,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+11) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile11.Caption = wer

					&&A 16
					myget(filenummer, zi(1+2) * 440 + 21,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+11) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+12) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile12.Caption = wer

					&&B 3
					myget(filenummer, zi(1+2) * 440 + 25,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+13) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile13.Caption = wer

					&&B 4
					myget(filenummer, zi(1+2) * 440 + 26,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+14) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile14.Caption = wer

					&&B 5
					myget(filenummer, zi(1+2) * 440 + 27,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+15) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile15.Caption = wer

					&&B 6
					myget(filenummer, zi(1+2) * 440 + 28,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+16) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile16.Caption = wer

					&&B 7
					myget(filenummer, zi(1+2) * 440 + 29,"employee")
					Do getvalues &&Do attached
					numbr = grundbetrag(1+0) * 0.135 * anpassungsfaktor / 100 &&vorher ohne / 100
					Beamtenzulage(1+17) = numbr
					
					Do zahlintextnumbr &&Do attached
					
					.zeile17.Caption = wer

		           If welchesjahr >= 2017 And zi(1+2) = 10 And zi(1+4) <= 5 &&NRW ab 2017 nur Beamte
		                &&A 7 Stationsschwester
		              *  Get #filenummer, zi(2) * 440 + 9, employee
		                myget(filenummer, zi(1+2) * 440 + 9,"employee")
		                DO getvalues
		                numbr = (grundbetrag(1+zi(1+7)) - wert(1+7)) * 0.5 * anpassungsfaktor / 100 &&50% der Diff der gleichen Stufe von A8
		                Beamtenzulage(1+18) = numbr
		                DO zahlintextnumbr
		                .zeile18.Caption = wer
		                
		                &&A 9 wenn in Krankenhausbetriebsleitung zeitweise zugewiesen
		               * Get #filenummer, zi(2) * 440 + 10, employee
		                myget(filenummer, zi(1+2) * 440 + 10,"employee")
		                DO getvalues
		                numbr = grundbetrag(1+10) * 0.08 * anpassungsfaktor / 100
		                Beamtenzulage(1+19) = numbr
		                DO zahlintextnumbr
		                .zeile19.Caption = wer
		            EndIf    
			Endcase

		Case Knopf = 11
			myget(filenummer, myposition,"employee")
			Do getvalues &&Do attached
			numbr = grundbetrag(1+0) * 0.05 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile0.Caption = wer
			numbr = grundbetrag(1+0) * 0.055 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile1.Caption = wer
			numbr = grundbetrag(1+0) * 0.06 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile2.Caption = wer
			numbr = grundbetrag(1+0) * 0.065 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile3.Caption = wer
			numbr = grundbetrag(1+0) * 0.07 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile4.Caption = wer
			numbr = grundbetrag(1+0) * 0.075 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile5.Caption = wer
			numbr = grundbetrag(1+0) * 0.08 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile6.Caption = wer
			numbr = grundbetrag(1+0) * 0.09 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile7.Caption = wer
			numbr = grundbetrag(1+0) * 0.095 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile8.Caption = wer
			numbr = grundbetrag(1+0) * 0.1 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile9.Caption = wer
			numbr = grundbetrag(1+3) * 0.045 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile10.Caption = wer
			numbr = grundbetrag(1+3) * 0.05 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile11.Caption = wer
			numbr = grundbetrag(1+3) * 0.06 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile12.Caption = wer
			numbr = grundbetrag(1+3) * 0.065 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile13.Caption = wer
			numbr = grundbetrag(1+3) * 0.07 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile14.Caption = wer
			numbr = grundbetrag(1+3) * 0.08 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile15.Caption = wer
			numbr = grundbetrag(1+3) * 0.09 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile16.Caption = wer
			numbr = grundbetrag(1+3) * 0.1 * anpassungsfaktor / 100 &&vorher ohne / 100
			Do zahlintextnumbr &&Do attached
			.zeile17.Caption = wer

			If welchesjahr > 2011
				Do Case && zi(1+4)
					Case  Inlist(zi(1+4), 11, 17, 19)
						myget(filenummer, zi(1+2) * 440 + 125,"employee")&&288 + westost, employee
						Do getvalues &&Do attached
						For i = 0 To 17
							xxx=ALLTRIM(STR(i,2,0))
							numbr = grundbetrag(1+i) * anpassungsfaktor / 100 &&vorher ohne / 100
							Do zahlintextnumbr &&Do attached
							.zeile&xxx..Caption = wer
						Next
				Endcase
			Endif
	ENDCASE

	IF myindex <> startkasten
		thisform.optiongroup1.Value = 0
	else
		thisform.optiongroup1.Value = hsoption + 1
	endif	
	thisform.Tag = "I:"+ALLTRIM(STR(thisform.optiongroup1.Value,4,0))
Endwith
ENDPROC
     2    2  2                        r   %   2.      c2    A.            U  *
     
     
     
     
     
     
   *
 T  
 Hu @ C	    %C	 
 
 T   CC	  
 T  C	 @! %
  C	 	
 T   %
 <
 T    %
 
 Hc CC	 
 T    %  %  T   
 T    # % 
 T   
 T    0 %
  C	 
	 C	 	
 Hd    T
   C  T
   C  T
   C  T
   C  T
   C  T
   C  T
   C  T
   C  T
   C	  T
   C
  T
   C  T
   C  T
   C
  T
   C  T
   C  T
   C  T
    C  T
 !  C  T
 "  C  T
 #  C  T
 $  C  T
 %  C  T
 &  C  T
 '  C  T
 (  C  T
 )  C  T
 *  C    T
   C  T
   C  T
   C  T
   C  T
   C   T
   C!  T
   C"  T
   C#  T
   C$  T
   C%  T
   C&  T
   C'  T
   C(  T
   C*  T
   C+  T
   C,  T
    C-  T
 !  C.  T
 "  C/  T
 #  C0  T
 $  C1  T
 %  C2  T
 &  C3  T
 '  C4  T
 (  C5  T
 )  C6  T
 *      +
 T
   C7  T
   C8  T
   C9  T
   C:  T
   C;  T
   C<  T
   C=  T
   C>  T
   C?  T
   C@  T
   CA  T
   CB  T
   CC  T
   CD  T
   CE  T
   CF  T
    CG  T
 !  CH  T
 "  CI  T
 #  CJ  T
 $  CK  T
 %  CL  T
 &  CM  T
 '  CN  T
 (  CO  T
 )  CP  T
 *  CQ    T
   CR  T
   CS  T
   CT  T
   CU  T
   CV  T
   CW  T
   CX  T
   CY  T
   CZ  T
   C[  T
   C\  T
   C]  T
   C^  T
   C_  T
   C`  T
   Ca  T
    Cb  T
 !  Cc  T
 "  Cd  T
 #  Ce  T
 $  Cf  T
 %  Cg  T
 &  Ch  T
 '  Ci  T
 (  Cj  T
 )  Ck  T
 *  Cl   ) T
   Cm  T
   Cn  T
   Co  T
   Cp  T
   Cq  T
   Cr  T
   Cs  T
   Ct  T
   Cu  T
   Cv  T
   Cw  T
   Cx  T
   Cy  T
   Cz  T
      T
      T
       T
 !     T
 "     T
 #     T
 $     T
 %     T
 &     T
 '     T
 (     T
 )     T
 *       T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
   C   T
    C   T
 !  C   T
 "  C   T
 #  C   T
 $     T
 %     T
 &     T
 '     T
 (     T
 )     T
 *      B# +  ( >$ T, CC+   Z1 .optiongroup1.Option&xxx..Caption = zt12(1+i)
   %    # T
   C/ 
- .    %C	 
  	2 T
    Besitzstandszulage (dynamisch)8 T
    $ Besitzstandszulage (nicht dynamisch)  %C	 
 %
 
2 T
    Besitzstandszulage (dynamisch)8 T
    $ Besitzstandszulage (nicht dynamisch)  
 H{*4     	    
	 
 H% C	   C	 	0
 T+ d CC	 
V
 T+ h CC	 
 T+ rD C	  C	 	 C	  C	 	
 T+ | - C 1 C	  +  employee0  2  +  (< %
 
 C	 
 C	  + 	_ !  T, CC+  Z T3 C+ 4 5 d
 H& CC	  +   %+   T3 C/ 6    7  .zeile&xxx..Caption = wer
 %+  %   
 % 
   C 1  8  employee0 6 T3 C9 C
9 C: ; RQ?d$ %C	  C	 
 T3    7  T<  =     %  + 		 % 
 % 
  C 1 8  employee0 . T3 CC	 : ; C9 d 7  T>  =      %     T?   manuell   %
 H%   C 1 } employee0  2  +  ( T, CC+  Z T3 C+ 4 5 d 7  .zeile&xxx..Caption = wer
   m C 1 i employee0  2  +  (i T, CC+  Z T3 C+ 4 5 d 7  .zeile&xxx..Caption = wer
    C 1 } employee0  2  +  ( T, CC+  Z T3 C+ 4 5 d 7  .zeile&xxx..Caption = wer
    C 1 q employee0  2  +  ( T, CC+  Z T3 C+ 4 5 d 7  .zeile&xxx..Caption = wer
   
%) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  T?  = ) C 1 C	 
 employee0  2 % T3 C
4       ?5 d T@ 3  7  TA  = ) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  TB  = ) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  TC  = ) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  TD  = ) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  TE  = ) C 1 C	  employee0  2 % T3 C4       ?5 d T@ 3  7  TF  = ) C 1 C	 ( employee0  2 % T3 C4       ?5 d T@ 3  7  TG  = ) C 1 C	 * employee0  2 % T3 C4       ?5 d T@ 	3  7  TH  = ) C 1 C	 - employee0  2 % T3 C4       ?5 d T@ 
3  7  T>  = ) C 1 C	 0 employee0  2 % T3 C4       ?5 d T@ 3  7  TI  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TJ  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 
3  7  T<  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TK  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TL  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TM  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TN  = ) C 1 C	  employee0  2 % T3 C4 HzG?5 d T@ 3  7  TO  = 0 %
  C	 
	 C	 	%) C 1 C	 	 employee0  2 6 T3 CC	 4 C9       ?5 d T@ 3  7  TP  = ) C 1 C	 
 employee0  2 % T3 C4 {Gz?5 d T@ 3  7  TQ  =     {* C 1  8  employee0  2 % T3 C4 ?5 d 7  T?  = % T3 C4 )\(?5 d 7  TA  = % T3 C4 Q?5 d 7  TB  = % T3 C4 p=
ף?5 d 7  TC  = % T3 C4 Q?5 d 7  TD  = % T3 C4 333333?5 d 7  TE  = % T3 C4 {Gz?5 d 7  TF  = % T3 C4 
ףp=
?5 d 7  TG  = % T3 C4 RQ?5 d 7  TH  = % T3 C4 ?5 d 7  T>  = % T3 C4 
ףp=
?5 d 7  TI  = % T3 C4 ?5 d 7  TJ  = % T3 C4 Q?5 d 7  T<  = % T3 C4 p=
ף?5 d 7  TK  = % T3 C4 Q?5 d 7  TL  = % T3 C4 {Gz?5 d 7  TM  = % T3 C4 
ףp=
?5 d 7  TN  = % T3 C4 ?5 d 7  TO  =  %
 w*
 H)s* CC	 s*) C 1 C	 } employee0  2  +  (o* T, CC+  Z T3 C+ 4 5 d 7  .zeile&xxx..Caption = wer
     %R S * T  
 T   * T  
 T U  & T  V  I:CC  
 T  Z  UW  THISFORM KASTEN0 REFRESH KASTEN1 KASTEN2 KASTEN3 KASTEN4 KASTEN5 OP1 ZI WELCHESJAHR KNOPF J OPTIONGROUP1 OPTION1 CAPTION ZT12 OPTION2 OPTION3 OPTION4 OPTION5 OPTION6 OPTION7 OPTION8 OPTION9 OPTION10 OPTION11 OPTION12 OPTION13 OPTION14 OPTION15 OPTION16 OPTION17 OPTION18 OPTION19 OPTION20 OPTION21 OPTION22 OPTION23 OPTION24 OPTION25 OPTION26 OPTION27 I XXX WVW ZULAGEN ZTI MYGET
 FILENUMMER	 GETVALUES NUMBR GRUNDBETRAG ANPASSUNGSFAKTOR BETRAG ZAHLINTEXTNUMBR
 MYPOSITION WERT EMPLOYEE FELD ZEILE12 WER ZEILE9 ZEILE0
 BEAMTENZULAGE ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE7 ZEILE8 ZEILE10 ZEILE11 ZEILE13 ZEILE14 ZEILE15 ZEILE16 ZEILE17 ZEILE18 ZEILE19 MYINDEX STARTKASTEN VALUE HSOPTION TAG Click,     1          QQ A  Q A " A A !  A A   A    A A  AAAAAAAAAAAAAAAAAAAAAA  2AA A 1A "A Q!!A A  A Q   A A q rA A q aQA A r aA A q A A A !!r A A A B A  q qqq A q qqq A q qqq A q qqq A q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q Q1r q a1q q Q1q A A q Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq Qq " q qqq A A A A 1 qA aA 1                       a      )   2                        textbox      textbox      originalwert      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 310
Top = 598
Visible = .F.
Width = 50
Name = "originalwert"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
 JFIF        		

	


 "" $(4,$&1'-=-157:::#+?D?8C49:7




7%%77777777777777777777777--77.57-77775777+7+77777777                    %           1A!"R                           !1A   ? .gY'E'jn)nDdw-v1ojBQlWzznN6N,*fҲ#@[rj{s]`f_ JFIF  ` `  Exif  MM *    ;      Ji      R            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Harald                   39      39                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2016:04:13 14:44:55 2016:04:13 14:44:55   H a r a l d   http://ns.adobe.com/xap/1.0/ <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"/><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:xmp="http://ns.adobe.com/xap/1.0/"><xmp:CreateDate>2016-04-13T14:44:55.393</xmp:CreateDate></rdf:Description><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"><dc:creator><rdf:Seq xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:li>Harald</rdf:li></rdf:Seq>
			</dc:creator></rdf:Description></rdf:RDF></x:xmpmeta>
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                            <?xpacket end='w'?> C 

		
'!%"."%()+,+ /3/*2'*+* C
	
***************************************************   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? aVuy$a9Pq9$ $	!h|P<)\讖j\˽&,Um]XɬnJo1UpN.TVx'4(B#`@N b>TJݮϺ/Kd! YH$2
*TTErAXyo6w_ 0`I]NWM90 F +YɭI!IdU
q \vrQI7rI8_C+kHcPGQ(U@P  0 *?       p      (                                            @  |||||||| JFIF  ` `  Exif  MM *    ;      Ji      R            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Harald                   79      79                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2016:04:13 14:54:34 2016:04:13 14:54:34   H a r a l d   http://ns.adobe.com/xap/1.0/ <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"/><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:xmp="http://ns.adobe.com/xap/1.0/"><xmp:CreateDate>2016-04-13T14:54:34.788</xmp:CreateDate></rdf:Description><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"><dc:creator><rdf:Seq xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:li>Harald</rdf:li></rdf:Seq>
			</dc:creator></rdf:Description></rdf:RDF></x:xmpmeta>
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                            <?xpacket end='w'?> C 

		
'!%"."%()+,+ /3/*2'*+* C
	
***************************************************   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? xI/(,-Y.ZFIԀVh B;<oMiZ~-Gib4*)Fc{K-oZ\hho#vs]s7O  fعp'O啟fh0VN[[}%ꚃk6ܖsOߋeݡWSogre#vT ǋ2AiEteg_FGyJ1oդ%&CkwlʶƪT30$21\ZOCE=~[fPFWUJ4ZMy]:i&;xy<?L/5	~<~XbZF (b^޴QET!qPZ$n    

          (   
                                                                                                                                                                                                                                                                             A@A@A@A5@A9@A1@A?@A @A A         H     (                                                                                                                                                                   A A A A A A A APNG

   
IHDR         2   sRGB    gAMA  a   	pHYs    od  IDAT8OKoqQeDIAS*!%uKa>$(BD$DvRS;qZwu;R#~ =b6z-"DpL&/BvN'jh4JR^o۽^o:#\.OOOx>HˋR (l6nj5"Ɂ 43L\N&D"A$0HR!/*˝s\,,fB!p8,~R,ïVT*%|>ht!l6[4
#` y<<^/Ј㗃j=	9CTs8x椝x*H&hn7M&{xx4|dXN"N5ٳl&Bq
Fo3ynnnϋkZ򫫫[zSTJRV]__+
ѹL&;#ِ:#?ބRr>6^}M    IENDB`PNG

   
IHDR         ԲiG   sRGB    gAMA  a   	pHYs    od  IDAT8O+Qe#,P
S,Dh
))2ȭ$Ԙ4%LcRbhhȥ|o>,\~yw^ߡi"}wrtxdCQ<nGC'~ Z¾)EBVd>W'}/fua/e]TOHAś`Ralh[~1d!g/w#S*x:0'1EIgb%N{S u\֝QсcG3{M/gAá*E{tnѰ"y57`TX;$<&+S,$-:-˯\w,:M>9ױe*lIaOI:	"g~+~F'Z|jz@F*{7V3$n&Aړk#Cr6AZ'{0Qd!WdXR$,Rɂ-\i߉tvEN    IENDB`PNG

   
IHDR         )d   sRGB    gAMA  a   	pHYs    od   TIDAT8O
 @Q<Y4bBn{r
,hf7}é3Իp%uDO}՜om=~}ް[k<
f5p    IENDB`PNG

   
IHDR   '      /a   sRGB    gAMA  a   	pHYs    od   IDATHKA0gWBuBWs@b`똍in%hc8&x$VN!͍Vk0>j5jOqua3F05"%!*`jDJBTd*XJ&߸E)E[L5r,
==kDoՑ]lg<    IENDB` JFIF  ` `  Exif  MM *    ;      Ji      R            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Harald                   33      33                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2016:04:29 14:27:47 2016:04:29 14:27:47   H a r a l d   http://ns.adobe.com/xap/1.0/ <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"/><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:xmp="http://ns.adobe.com/xap/1.0/"><xmp:CreateDate>2016-04-29T14:27:47.333</xmp:CreateDate></rdf:Description><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"><dc:creator><rdf:Seq xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:li>Harald</rdf:li></rdf:Seq>
			</dc:creator></rdf:Description></rdf:RDF></x:xmpmeta>
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                            <?xpacket end='w'?> C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? o]GhM
IH+0s:	KgHLSR?2пm/.O/SWil.n+oF[a"$,H>_7h-U<TwĞIҴ9V]=K>yq8lw"@=gQ
[蚇čj/>k+O\j$Y-̈Ge_`|K WS84Խם]jmeҍNI);_]4ksx#.*c)A`~\Wஏ*
CVP0s&7Ms*E4H$Ɗ*SzL1#?6W7>ZbOx綂+ꬤ\7Py5/FOxw<mu&z֯\@],{9*-U(b0.\7-e~w:$߲G\jrv1eINI QE}bv         0     (       @                                  ?;??;?                                                                                                                                0H   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5Q90O5W361350130189 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               1T               WINDOWS _5Q90O5W37           9  1                          68542.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W38           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W39           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0OL4S21445747593 5  0       64895.833 4479.167 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS _5Q913XIJJ1350145292 5  0       59791.667 2812.500 3333.33361041.667                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Q90OHF2P1350130476 8  0        6562.50063645.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90O7T7D1350130251 8  0        4479.167 2812.500 1666.66721354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OAEJF1350130305 8  0        6562.500 2812.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OB2001350130318 8  0        6562.50067395.833 1666.66711145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90OBPDZ1350130354 5  0         9895.833 2812.500 2083.33345208.333                               -1   -1   -1   -1   -1   -1               !     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q90OXX561350130891 8  0    "   11979.167 2812.500 2187.50045208.333                   C           -1   -1   -1   -1   -1   -1               $     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90P3E8L1350131023 6           14895.833 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5Q90P4YDR1350131075 8  0    %   15729.167 2812.500 1875.00027500.000                   C           -1   -1   -1   -1   -1   -1               &     1 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5Q90P606F1350131092 5  0    '   15625.00047395.833 1666.667 5000.000                               -1   -1   -1   -1   -1   -1               (     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q90P69SO1350131097 5  0    )   15625.00057708.333 1666.667 5416.667                               -1   -1   -1   -1   -1   -1               *     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q90P6HDO1350131105 5  0    +   15625.00066354.167 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               ,     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q90P73MH1350131115 5  0    -   17083.33343229.167 1666.66710729.167                               -1   -1   -1   -1   -1   -1               .     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q90P73MI1350131115 5  0    /   17083.33359375.000 1666.667 3750.000                               -1   -1   -1   -1   -1   -1               0     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q90P73MJ1350131115 5  0    1   17083.33370520.833 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               2     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q90P9D761350131172 6           29479.167 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5Q90PANFC1350131204 8  0    3   17604.167 2812.500 1875.00023437.500                   C           -1   -1   -1   -1   -1   -1               4     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90PCRIV1350131255 8  0    5   19479.167 2812.500 1875.00023437.500                   C           -1   -1   -1   -1   -1   -1               6     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90PDAQW1350131270 8  0    7   21354.167 2812.500 1875.00023437.500                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90PDAQX1350131270 8  0    9   23229.167 2812.500 1875.00023437.500                   C           -1   -1   -1   -1   -1   -1               :     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90PDAQY1350131270 8  0    ;   25104.167 2812.500 1875.00023437.500                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90PF40V1350131314 8  0    =   26979.167 2812.500 1875.00074791.667                   C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F@        WINDOWS _5Q90PHWPP1350131383 6           32395.833 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5Q90PI2NC1350131388 5  0    A   30000.00048854.167 2083.333  937.500                               -1   -1   -1   -1   -1   -1               B     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q90PI6MS1350131393 5  0    C   30000.00061875.000 2083.333  937.500                               -1   -1   -1   -1   -1   -1               D     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q90PI9K31350131395 5  0    E   29895.83372187.500 2083.333  937.500                               -1   -1   -1   -1   -1   -1               F     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q90Q672Q1350132141 8  0    G   33020.833 2812.500 1875.00037708.333                   C           -1   -1   -1   -1   -1   -1               H     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5Q90QDF981350132297 6           35416.667 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q90QDF991350132297 6           38437.500 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q90QE9SM1350132316 8  0    I   35833.333 2812.500 2187.50037708.333                   C           -1   -1   -1   -1   -1   -1               J     1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90QFORC1350132353 8  0    K   38958.333 2812.500 1979.16737708.333                   C           -1   -1   -1   -1   -1   -1               L     0 10  1 0     TTFFF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5Q90QJD0T1350132443 6           41354.167 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q90QJD0U1350132443 6           44270.833 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q90QJJIT1350132449 8  0    M   41770.833 2812.500 2187.50037708.333                   C           -1   -1   -1   -1   -1   -1               N     1 12  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90QL24V1350132487 8  0    O   44791.667 2812.500 1979.16737708.333                   C           -1   -1   -1   -1   -1   -1               P     0 10  1 0     TTFFF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5Q90QMDVW1350132520 8  0    Q   48125.000 2916.667 2187.50061250.000                   C           -1   -1   -1   -1   -1   -1               R     1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90QNM1S1350132550 6           47291.667 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q90QNXGL1350132558 6           50937.500 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5Q913VYPB1350145184 5  0    S   51979.167 2812.500 3333.33357187.500                               -1   -1   -1   -1   -1   -1               V     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Q913WRHT1350145202 5  0    W   55833.333 2812.500 3333.33349062.500                               -1   -1   -1   -1   -1   -1               Z     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Q913ZS2Y1350145273 8  0    [   61354.16745104.167 1875.000 6979.167                   N           -1   -1   -1   -1   -1   -1               \     1 10  1 0     TFFFF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q9140WCW1350145299 5  0    ]   61458.33352500.000 1666.66712395.833                               -1   -1   -1   -1   -1   -1               ^     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Q914EMBE1350145636 8  0    _   33020.83344166.667 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               `     0 10  1 0     FTFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q914M9RT1350145826 8  0    a   33020.83358229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     FTFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q914PKJI1350145907 8  0    c   33020.83367395.833 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               d     0 10  1 0     FTFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q914UATV1350146154 8  0    e   38958.33344166.667 1979.167 7187.500                   C           -1   -1   -1   -1   -1   -1               f     0 10  1 0     TTFFF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q914WQW51350146215 8  0    g   35833.33341875.000 2187.500 9479.167                   N           -1   -1   -1   -1   -1   -1               h     1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q914YHYT1350146258 5  0    i   36041.66752083.333 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               j     1 10  1       TFFFF  F          0T                      1FTT0 0F         WINDOWS _5Q914Z18L1350146272 8  0    k   35833.33365312.500 2187.500 9479.167                   C           -1   -1   -1   -1   -1   -1               l     1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q914Z18M1350146272 5  0    m   36041.66775520.833 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               n     1 10  1       TFFFF  F          0T                      1FTT0 0F         WINDOWS _5Q91513DX1350146322 8  0    o   38958.33367604.167 1979.167 7187.500                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TTFFF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q9157URI1350146490 8  0    q   41770.83341875.000 2187.500 9479.167                   N           -1   -1   -1   -1   -1   -1               r     1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9157URJ1350146490 5  0    s   41979.16752083.333 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               t     1 10  1       TFFFF  F          0T                      1FTT0 0F         WINDOWS _5Q9157URK1350146490 8  0    u   41770.83365520.833 2187.500 9479.167                   C           -1   -1   -1   -1   -1   -1               v     1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9157URL1350146490 5  0    w   41979.16775729.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               x     1 10  1       TFFFF  F          0T                      1FTT0 0F         WINDOWS _5Q9159T0G1350146539 8  0    y   44791.66744166.667 1979.167 7187.500                   C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     TTFFF  F          0T         1       0 1  1FTT0 0F         WINDOWS _5Q915ADHZ1350146553 8  0    {   48020.83365625.000 2187.500 9479.167                   C           -1   -1   -1   -1   -1   -1               |     1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q915ADI01350146553 5  0    }   48229.16775833.333 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               ~     1 10  1       TFFFF  F          0T                      1FTT0 0F         WINDOWS _6AR0KP28V1417563371 8  0       44791.66767916.667 1979.167 7187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  1FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         " 3) Wegen des Progressionsvorbehalts nach  32 b Abs. 1 des Einkommensteuergesetzes werden bei
	    der Einkommensteuerveranlagung voraussichtlich fr diesen Monat"                         Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                8"Berechnung des A U F S T O C K U N G S B E T R A G E S"      Arial                                                         X"fr das Altersteilzeitgehalt des Monats  " + getmonthname(zi(1+20))+ " " + welchesjahrc                                      Arial                                                         myform1.z0.Caption                                            Arial                                                         
"Fiktives"                                                    Arial                                                         
"Gehalts-"                                                    Arial                                                         "Altersteilzeit-"                                             Arial                                                         "Vollzeitgehalt 1)"                                           Arial                                                         "anteil"                                                      Arial                                                         "gehalt 2)"                                                   Arial                                                         myform1.z2.Caption                                            Arial                                                         myform1.z4.Caption                                            Arial                                                         myform1.z5.Caption                                            Arial                                                         myform1.z6.Caption                                            Arial                                                         myform1.z36.Caption                                           Arial                                                         tAlltrim(myform1.z23.Caption) + " " + Alltrim(Str(myform1.t23.Value,10,2)) + " EURO (wird nur in Sp.3 bercksichtgt)"          Arial                                                         wert(1+23) > 0                                                "1"                                                           Arial                                                         "2"                                                           Arial                                                         "3"                                                           Arial                                                         hs1_sp2                                                       Arial                                                         hs1_sp2_summ                                                  Arial                                                         hs2_sp2                                                       Arial                                                         hs2_sp2_summ                                                  Arial                                                         hs3_sp2                                                       Arial                                                         hs3_sp2_summ                                                  Arial                                                         "1) Grundgehalt, Familienzuschlag, Amtszulagen, Stellenzulagen, Zuschsse zum Grundgehalt,
   Bankzulage bei der Deutschen Bundesbank, berleitungszulagen und Ausgleichszulagen."            Arial                                                         "2) Steuerfreie Bezge, Erschwerniszulagen und Vergtungen werden entsprechend der
   tatschlich geleisteten Ttigkeit gewhrt und bleiben deshalb hier auer Betracht."                     Arial                                                         round(sicht(1+10,1+26),2)                                     Arial                                                         "EURO nachbelastet."                                          Arial                                                         hs1_sp3                                                       Arial                                                         hs1_sp4                                                       Arial                                                         hs1_sp5                                                       Arial                                                         hs2_sp3                                                       Arial                                                         hs1_sp3_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs1_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs2_sp5                                                       Arial                                                         hs2_sp3_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs2_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs3_sp3                                                       Arial                                                         hs3_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs3_sp5                                                       Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         " 3) Wegen des Progressionsvorbehalts nach  32 b Abs. 1 des Einkommensteuergesetzes werden bei
	    der Einkommensteuerveranlagung voraussichtlich fr diesen Monat"                         Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                8"Berechnung des A U F S T O C K U N G S B E T R A G E S"      Arial                                                         X"fr das Altersteilzeitgehalt des Monats  " + getmonthname(zi(1+20))+ " " + welchesjahrc                                      Arial                                                         myform1.z0.Caption                                            Arial                                                         
"Fiktives"                                                    Arial                                                         
"Gehalts-"                                                    Arial                                                         "Altersteilzeit-"                                             Arial                                                         "Vollzeitgehalt 1)"                                           Arial                                                         "anteil"                                                      Arial                                                         "gehalt 2)"                                                   Arial                                                         myform1.z2.Caption                                            Arial                                                         myform1.z4.Caption                                            Arial                                                         myform1.z5.Caption                                            Arial                                                         myform1.z6.Caption                                            Arial                                                         myform1.z36.Caption                                           Arial                                                         tAlltrim(myform1.z23.Caption) + " " + Alltrim(Str(myform1.t23.Value,10,2)) + " EURO (wird nur in Sp.3 bercksichtgt)"          Arial                                                         wert(1+23) > 0                                                "1"                                                           Arial                                                         "2"                                                           Arial                                                         "3"                                                           Arial                                                         hs1_sp2                                                       Arial                                                         hs1_sp2_summ                                                  Arial                                                         hs2_sp2                                                       Arial                                                         hs2_sp2_summ                                                  Arial                                                         hs3_sp2                                                       Arial                                                         hs3_sp2_summ                                                  Arial                                                         "1) Grundgehalt, Familienzuschlag, Amtszulagen, Stellenzulagen, Zuschsse zum Grundgehalt,
   Bankzulage bei der Deutschen Bundesbank, berleitungszulagen und Ausgleichszulagen."            Arial                                                         "2) Steuerfreie Bezge, Erschwerniszulagen und Vergtungen werden entsprechend der
   tatschlich geleisteten Ttigkeit gewhrt und bleiben deshalb hier auer Betracht."                     Arial                                                         round(sicht(1+10,1+26),2)                                     Arial                                                         "EURO nachbelastet."                                          Arial                                                         hs1_sp3                                                       Arial                                                         hs1_sp4                                                       Arial                                                         hs1_sp5                                                       Arial                                                         hs2_sp3                                                       Arial                                                         hs1_sp3_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs1_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs2_sp5                                                       Arial                                                         hs2_sp3_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs2_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs3_sp3                                                       Arial                                                         hs3_sp5_summ                                                  Arial                                                         "EURO"                                                        Arial                                                         hs3_sp5                                                       Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0s   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5Q915V52M1350147069 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5Q915V52N           9  1                          107396.00    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q915V52O           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q915V52P           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0OLOYR1445747606 5  0       105104.17 2916.667 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS _5Z10O8F6M1380145740 7  4        24583.333 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10O8UW41380145751 7  4        28958.333 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10O8ZTS1380145754 7  4        33437.500 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10O95MN1380145757 7  4        44895.833 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10O9EXM1380145766 7  4        49166.667 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10O9S7L1380145774 7  4        71666.667 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10OA1WF1380145780 7  4        75833.333 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10OA5PS1380145783 7  4        80000.000 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z10OAAUT1380145786 7  4        84270.833 4166.667 1875.00074375.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Q915WJS91350147106 8  0        6562.50064375.000 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q915WJSA1350147106 8  0        4479.167 4479.167 1666.66722395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q915WJSB1350147106 8  0        6562.500 4479.167 1666.66721562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q915WJSC1350147106 8  0        6562.50070937.500 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q9163MMH1350147285 8  0       10312.500 4479.167 1875.00053958.333                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q91643TA1350147299 5  0        12291.667 4479.167 1666.66710625.000                               -1   -1   -1   -1   -1   -1               !     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9165V9E1350147339 5  0    "   14583.333 4479.167 1666.66757083.333                               -1   -1   -1   -1   -1   -1               $     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9167IKF1350147380 5  0    %   16666.667 2916.667 1666.66749687.500                               -1   -1   -1   -1   -1   -1               '     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q91680C11350147392 5  0    (   18541.667 4479.167 1666.66743020.833                               -1   -1   -1   -1   -1   -1               *     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9168CDS1350147405 5  0    +   20520.833 4479.167 1666.66724166.667                               -1   -1   -1   -1   -1   -1               ,     4 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q9168NDV1350147421 5  0    -   22604.167 4479.167 1666.66741354.167                               -1   -1   -1   -1   -1   -1               /     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9169E2Z1350147432 8  0    0   22500.00065833.333 1875.000 7708.333    1              N           -1   -1   -1   -1   -1   -1               2     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916A5MG1350147445 5  0    3   22708.33374166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916ATEQ1350147461 5  0    5   24791.667 4479.167 1666.667 8229.167                               -1   -1   -1   -1   -1   -1               6     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916B4T31350147473 8  0    7   24687.50065833.333 1875.000 7708.333    8              N           -1   -1   -1   -1   -1   -1               9     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916BOFF1350147481 5  0    :   24791.66774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               ;     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916C9QV1350147498 5  0    <   26979.167 4479.167 1666.66734375.000                               -1   -1   -1   -1   -1   -1               =     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916CQYZ1350147512 8  0    >   26875.00065833.333 1875.000 7708.333    ?              N           -1   -1   -1   -1   -1   -1               @     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916D33C1350147516 5  0    A   26979.16774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               B     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916E2ZZ1350147542 5  0    C   29166.667 4479.167 1666.66729270.833                               -1   -1   -1   -1   -1   -1               D     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916E85V1350147544 8  0    E   29062.50065833.333 1875.000 7708.333    F              N           -1   -1   -1   -1   -1   -1               G     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916E85W1350147544 5  0    H   29166.66774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               I     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916F2D31350147567 5  0    J   31354.167 4479.167 1666.66726041.667                               -1   -1   -1   -1   -1   -1               K     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916F5TW1350147568 8  0    L   31250.00065833.333 1875.000 7708.333    M              N           -1   -1   -1   -1   -1   -1               N     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916F5TX1350147568 5  0    O   31354.16774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               P     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916G3AK1350147592 5  0    Q   36979.167 2916.667 1666.66733333.333                               -1   -1   -1   -1   -1   -1               R     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q916H3QD1350147619 8  0    S   33437.500 4479.167 1875.00060312.500                   C           -1   -1   -1   -1   -1   -1               U     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q916JL9O1350147677 8  0    V   33437.50065833.333 1875.000 7708.333    W              N           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916JL9P1350147677 5  0    Y   33541.66774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               Z     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916O6OZ1350147798 5  0    [   38958.333 4791.667 1666.66755312.500                               -1   -1   -1   -1   -1   -1               ]     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916OG551350147809 5  0    ^   40729.167 4791.667 1666.66722083.333                               -1   -1   -1   -1   -1   -1               _     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916OTPY1350147811 5  0    `   42916.667 5000.000 1666.66732708.333                               -1   -1   -1   -1   -1   -1               a     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916PKH91350147827 8  0    b   42812.50065833.333 1875.000 7708.333    c              N           -1   -1   -1   -1   -1   -1               d     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916PKHA1350147827 5  0    e   42916.66774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               f     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916QFB41350147851 5  0    g   45104.167 4791.667 1666.66731979.167                               -1   -1   -1   -1   -1   -1               h     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916QKFA1350147852 8  0    i   45000.00065833.333 1875.000 7708.333    j              N           -1   -1   -1   -1   -1   -1               k     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916QKFB1350147852 5  0    l   45104.16774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               m     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916RIVX1350147877 5  0    n   47291.667 4791.667 1666.66728750.000                               -1   -1   -1   -1   -1   -1               o     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916RMGM1350147879 8  0    p   47187.50065833.333 1875.000 7708.333    q              N           -1   -1   -1   -1   -1   -1               r     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916RMGN1350147879 5  0    s   47291.66774166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               t     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916SBZQ1350147896 5  0    u   49375.000 4791.667 1666.667 4687.500                               -1   -1   -1   -1   -1   -1               v     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916SFHE1350147898 8  0    w   49270.83363645.833 1875.000 9895.833    x              N           -1   -1   -1   -1   -1   -1               y     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q916SFHF1350147898 5  0    z   49375.00074166.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               {     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916X6BP1350148144 5  0    |   52500.000 2916.667 1666.66713229.167                               -1   -1   -1   -1   -1   -1               }     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q916Y1ZD1350148168 5  0    ~   54375.000 4791.667 1666.66749895.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916Y9W21350148173 5  0       56250.000 4791.667 1666.66755000.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916YHR11350148178 5  0       58020.833 4791.667 1666.66735520.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q916ZDJH1350148200 5  0       60625.000 2916.667 1666.66738645.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q91705C11350148220 5  0       62395.833 4375.000 1666.66757500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9170KCI1350148230 5  0       64062.500 4375.000 1666.66757395.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9170SQJ1350148236 5  0       65729.167 4375.000 1666.66745416.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q91719YY1350148247 5  0       67604.16747604.167 1666.667 7395.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9171GHT1350148253 5  0       67604.16756979.167 1666.667 7604.167                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9171MBZ1350148257 5  0       67604.16767083.333 1666.667 6562.500                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9172FJP1350148277 5  0       69791.667 4375.000 1666.66721875.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9172KGX1350148278 8  0       69687.50033020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9173KFA1350148303 8  0       69687.50046979.167 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9173V071350148310 8  0       69687.50056458.333 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917415M1350148314 8  0       69687.50065937.500 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9175FP71350148349 5  0       69791.66774270.833 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9176CVW1350148374 5  0       71979.167 4375.000 1666.66722187.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9176N2I1350148379 8  0       71770.83333020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9176N2J1350148379 5  0       71875.00041354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9177Q481350148408 5  0       73958.333 4375.000 1666.66725208.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9177WUW1350148411 8  0       73854.16733020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q9177WUX1350148411 5  0       73958.33341354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q9178XPS1350148438 5  0       76041.667 4375.000 1666.66717604.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917913Z1350148439 8  0       75937.50033020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q91791401350148439 5  0       76041.66741354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917A1VD1350148465 5  0       78125.000 4375.000 1666.66717812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917A4KG1350148466 8  0       78020.83333020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917A4KH1350148466 5  0       78125.00041354.167 1666.667 1250.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q917AXCZ1350148489 5  0       80208.333 4375.000 1666.66723750.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917B6TL1350148493 8  0       80104.16733020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917B6TM1350148493 5  0       80208.33341354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917C0P21350148515 5  0       82291.667 4375.000 1666.667 8125.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917C41J1350148517 8  0       82187.50046979.167 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917C41K1350148517 5  0       82291.66774270.833 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917DLL11350148553 8  0       82187.50056458.333 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917EGTX1350148576 8  0       82187.50065937.500 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917FH2P1350148599 8  0       84375.00046979.167 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917FH2Q1350148599 5  0       84479.16774270.833 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917FH2R1350148599 8  0       84375.00056458.333 1875.000 8333.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917FH2S1350148599 8  0       84375.00065937.500 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917FXUR1350148613 5  0       84479.167 4375.000 1666.66725833.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917H29W1350148641 5  0       86666.667 4375.000 1666.66722500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917HBLB1350148646 8  0       86562.50033020.833 1875.000 7708.333                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Q917HBLC1350148646 5  0       86666.66741354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917IIB71350148676 5  0       90312.500 2916.667 1666.66710729.167                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Q917JTG51350148709 5  0       92083.333 4375.000 1666.66755729.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917JZXP1350148716 5  0       93645.833 4375.000 1666.66755000.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917K7ED1350148722 5  0       95312.500 4375.000 1666.66751875.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917KGNP1350148728 5  0       96979.167 4375.000 1666.66754375.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917KO271350148730 5  0       98541.667 4375.000 1666.66753333.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Q917KX7Z1350148738 5  0       102291.67 2916.667 1666.66751250.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5Z10ONHIZ1380146116 5  0      69895.83341354.167 1666.667 3854.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                       0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                       1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       4 10                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                \ "Berechnung des Gehalts fr  " + Alltrim(myform1.z0.Caption) + "  bei Altersteilzeitarbeit"                                  Arial                                                         "- ohne Gewhr -"                                             Arial                                                         `"Sie erhalten die o.g. Berechnung auf beiliegendem Blatt. Bitte beachten Sie folgende Hinweise:"                              Arial                                                         J"1. Aufstockung der Beitrge zur Rentenversicherung durch den Arbeitgeber"                                                    Arial                                                         I"Der Arbeitgeber entrichtet zustzliche Beitrge zur Rentenversicherung."                                                     Arial                                                         *"Die Beitrge werden wie folgt berechnet:"                    Arial                                                         F"Sozialversicherungspflichtiges Vollzeit-Entgelt abz. Einmalzahlungen"                                                        Arial                                                         sicht(1+12,1+ 1)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "davon 90 % ="                                                Arial                                                         sicht(1+12,1+ 4)                                              	"9999.99"                                                     Arial                                                         "EURO"                                                        Arial                                                         7"+  vom AG aus Einmalzahlungen zu versichernder Betrag"       Arial                                                         sicht(1+11,1+ 8)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         6" -  sozialversicherungspflichtiges Teilzeit-Entgelt "        Arial                                                         sicht(1+10,1+ 2)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         ," = vom AG zu versichernder Differenzbetrag"                  Arial                                                         sicht(1+12,1+ 5)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         5"2. Erstattungen nach dem Altersteilzeitgesetz (AtG)"         Arial                                                         W"Bei einem Beitragssatz von " + "18,6" + " % ergibt sich ein zustzlicher Beitrag von "                                       Arial                                                         sicht(1+12,1+ 6)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         W"Unter den im AtG genannten Voraussetzungen ergeben sich folgende Erstattungsansprche"                                       Arial                                                         %"des Arbeitgebers an das Arbeitsamt:"                         Arial                                                         7"a) Aufstockung um 20 % des Teilzeit-Bruttoentgelts = "       Arial                                                         sicht(1+10,1+ 6)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         6"b) Aufstockung auf 70 % des Vollzeit-Nettoentgelts ="        Arial                                                         sicht(1+10,1+ 7)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         1"c) Zustzliche Beitrge zur Rentenversicherung "             Arial                                                         sicht(1+13,1+ 8)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "Summe"                                                       Arial                                                         sicht(1+10,1+ 8)                                              "999999.99"                                                   Arial                                                         "EURO"                                                        Arial                                                         "3. Steuerfreibetrge"                                        Arial                                                         T"Ein Steuerfreibetrag fhrt zu einem hheren Nettogehalt und vermindert dadurch die"                                          Arial                                                         \"Aufstockungsbetrge. Bitte bedenken Sie, ob es fr Sie gnstiger ist, die steuermindernden"                                  Arial                                                         :"Umstnde erst bei der Steuererklrung geltend zu machen."                                                                    Arial                                                         <"4. Progressionsvorbehalt nach  32 b Abs. 1 Buchst. g EStG"                                                                  Arial                                                         ^"Die Aufstockungsbetrge nach dem Altersteilzeitgesetz unterliegen dem Progressionsvorbehalt."                                Arial                                                         Z"Die aus diesem Grund zu zahlenden Steuern knnen erst bei der Einkommensteuerveranlagung"                                    Arial                                                         J"ermittelt werden. Zur Abschtzung kann Ihnen folgende Berechnung dienen:"                                                    Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli.Zuschl."                                                Arial                                                         "Ki.-Steuer"                                                  Arial                                                         #"Steuerpflichtiges Monatseinkommen"                           Arial                                                         sicht(1+10,1+ 9)                                              
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 13)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 20)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 23)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         #"+ Aufstockungsbetrge nach TV ATZ"                           Arial                                                         sicht(1+10,1+ 12)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         '"= magebl. zu versteuerndes Einkommen"                       Arial                                                         sicht(1+10,1+ 14)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "darauf entfallende Lohnsteuer"                               Arial                                                         sicht(1+10,1+ 15)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "Durchschnittlicher Steuersatz"                               Arial                                                         sicht(1+10,1+ 16)                                             
"99999.99"                                                    Arial                                                         "%"                                                           Arial                                                         ("Wird dieser Steuersatz angewandt auf  "                      Arial                                                         sicht(1+10,1+ 9)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "ergeben sich "                                               Arial                                                         sicht(1+10,1+ 17)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         sicht(1+10,1+ 21)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 24)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 18)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         sicht(1+10,1+ 22)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 25)                                             
"99999.99"                                                    Arial                                                         +"= Nachbelastung je Monat und je Steuerart"                   Arial                                                         $"= Nachbelastung je Monat insgesamt"                          Arial                                                         sicht(1+10,1+ 26)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "5. Kirchensteuer"                                            Arial                                                         \"Bei der Berechnung des pauschalierten Bruttoentgelts als Basis fr die Aufstockungsbetrge"                                  Arial                                                         \"wird eine Zugehrigkeit zu einer Kirche und ein Kirchensteuersatz von 8 % zugrunde gelegt."                                  Arial                                                         Y"Bei Personen, die nicht kirchensteuerpflichtig sind, wird das hhere Nettoentgelt durch"                                     Arial                                                         Y"einen entsprechend niedrigeren Aufstockungsbetrag ausgeglichen. Eine Person erhlt also"                                     Arial                                                         _"den gleichen   A u s z a h l u n g s b e t r a g , unabhngig von ihrer Kirchensteuerpflicht."                               Arial                                                         T"Bitte wenden Sie sich wieder an uns, wenn Sie Fragen haben. Wir beraten Sie gerne."                                          Arial                                                         "EURO"                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                \ "Berechnung des Gehalts fr  " + Alltrim(myform1.z0.Caption) + "  bei Altersteilzeitarbeit"                                  Arial                                                         "- ohne Gewhr -"                                             Arial                                                         `"Sie erhalten die o.g. Berechnung auf beiliegendem Blatt. Bitte beachten Sie folgende Hinweise:"                              Arial                                                         J"1. Aufstockung der Beitrge zur Rentenversicherung durch den Arbeitgeber"                                                    Arial                                                         I"Der Arbeitgeber entrichtet zustzliche Beitrge zur Rentenversicherung."                                                     Arial                                                         *"Die Beitrge werden wie folgt berechnet:"                    Arial                                                         F"Sozialversicherungspflichtiges Vollzeit-Entgelt abz. Einmalzahlungen"                                                        Arial                                                         sicht(1+12,1+ 1)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "davon 90 % ="                                                Arial                                                         sicht(1+12,1+ 4)                                              	"9999.99"                                                     Arial                                                         "EURO"                                                        Arial                                                         7"+  vom AG aus Einmalzahlungen zu versichernder Betrag"       Arial                                                         sicht(1+11,1+ 8)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         6" -  sozialversicherungspflichtiges Teilzeit-Entgelt "        Arial                                                         sicht(1+10,1+ 2)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         ," = vom AG zu versichernder Differenzbetrag"                  Arial                                                         sicht(1+12,1+ 5)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         5"2. Erstattungen nach dem Altersteilzeitgesetz (AtG)"         Arial                                                         W"Bei einem Beitragssatz von " + "18,6" + " % ergibt sich ein zustzlicher Beitrag von "                                       Arial                                                         sicht(1+12,1+ 6)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         W"Unter den im AtG genannten Voraussetzungen ergeben sich folgende Erstattungsansprche"                                       Arial                                                         %"des Arbeitgebers an das Arbeitsamt:"                         Arial                                                         7"a) Aufstockung um 20 % des Teilzeit-Bruttoentgelts = "       Arial                                                         sicht(1+10,1+ 6)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         6"b) Aufstockung auf 70 % des Vollzeit-Nettoentgelts ="        Arial                                                         sicht(1+10,1+ 7)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         1"c) Zustzliche Beitrge zur Rentenversicherung "             Arial                                                         sicht(1+13,1+ 8)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "Summe"                                                       Arial                                                         sicht(1+10,1+ 8)                                              "999999.99"                                                   Arial                                                         "EURO"                                                        Arial                                                         "3. Steuerfreibetrge"                                        Arial                                                         T"Ein Steuerfreibetrag fhrt zu einem hheren Nettogehalt und vermindert dadurch die"                                          Arial                                                         \"Aufstockungsbetrge. Bitte bedenken Sie, ob es fr Sie gnstiger ist, die steuermindernden"                                  Arial                                                         :"Umstnde erst bei der Steuererklrung geltend zu machen."                                                                    Arial                                                         <"4. Progressionsvorbehalt nach  32 b Abs. 1 Buchst. g EStG"                                                                  Arial                                                         ^"Die Aufstockungsbetrge nach dem Altersteilzeitgesetz unterliegen dem Progressionsvorbehalt."                                Arial                                                         Z"Die aus diesem Grund zu zahlenden Steuern knnen erst bei der Einkommensteuerveranlagung"                                    Arial                                                         J"ermittelt werden. Zur Abschtzung kann Ihnen folgende Berechnung dienen:"                                                    Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli.Zuschl."                                                Arial                                                         "Ki.-Steuer"                                                  Arial                                                         #"Steuerpflichtiges Monatseinkommen"                           Arial                                                         sicht(1+10,1+ 9)                                              
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 13)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 20)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 23)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         #"+ Aufstockungsbetrge nach TV ATZ"                           Arial                                                         sicht(1+10,1+ 12)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         '"= magebl. zu versteuerndes Einkommen"                       Arial                                                         sicht(1+10,1+ 14)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "darauf entfallende Lohnsteuer"                               Arial                                                         sicht(1+10,1+ 15)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "Durchschnittlicher Steuersatz"                               Arial                                                         sicht(1+10,1+ 16)                                             
"99999.99"                                                    Arial                                                         "%"                                                           Arial                                                         ("Wird dieser Steuersatz angewandt auf  "                      Arial                                                         sicht(1+10,1+ 9)                                              
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "ergeben sich "                                               Arial                                                         sicht(1+10,1+ 17)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         sicht(1+10,1+ 21)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 24)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 18)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         sicht(1+10,1+ 22)                                             
"99999.99"                                                    Arial                                                         sicht(1+10,1+ 25)                                             
"99999.99"                                                    Arial                                                         +"= Nachbelastung je Monat und je Steuerart"                   Arial                                                         $"= Nachbelastung je Monat insgesamt"                          Arial                                                         sicht(1+10,1+ 26)                                             
"99999.99"                                                    Arial                                                         "EURO"                                                        Arial                                                         "5. Kirchensteuer"                                            Arial                                                         \"Bei der Berechnung des pauschalierten Bruttoentgelts als Basis fr die Aufstockungsbetrge"                                  Arial                                                         \"wird eine Zugehrigkeit zu einer Kirche und ein Kirchensteuersatz von 8 % zugrunde gelegt."                                  Arial                                                         Y"Bei Personen, die nicht kirchensteuerpflichtig sind, wird das hhere Nettoentgelt durch"                                     Arial                                                         Y"einen entsprechend niedrigeren Aufstockungsbetrag ausgeglichen. Eine Person erhlt also"                                     Arial                                                         _"den gleichen   A u s z a h l u n g s b e t r a g , unabhngig von ihrer Kirchensteuerpflicht."                               Arial                                                         T"Bitte wenden Sie sich wieder an uns, wenn Sie Fragen haben. Wir beraten Sie gerne."                                          Arial                                                         "EURO"                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0$   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QA0J9UMI1350190961 1 53           1.000    0.000    0.000116900.00                 F                                                       
     0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QA0J9UMJ           9  1                          30834.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0J9UMK           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0J9UML           9  7                           4271.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0JBAEA1350191124 8  0        5520.83394479.167 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F
        WINDOWS _5QA0JBAEB1350191124 8  0        3437.500 3958.333 1875.00023645.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0JBAEC1350191124 8  0        5520.833 3958.333 1875.00019583.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0JBAED1350191124 8  0        5520.833101041.67 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QA0JD44R1350191171 8  0       13437.500 3958.333 2187.500102812.50                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QA0JHAWR1350191282 5  0       15937.50012916.667 2083.33322291.667                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5QA0JO1ZY1350191452 5  0       21458.333 3958.333 1666.66778333.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JOJSU1350191462 5  0       23333.333 3958.333 1666.66775416.667                               -1   -1   -1   -1   -1   -1               !     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JOW5V1350191465 5  0    "   25208.333 3958.333 1666.66745416.667                               -1   -1   -1   -1   -1   -1               $     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JQG3L1350191502 6           30625.000 3958.333  104.167108854.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0JQMM01350191508 5  0    %   28541.66752395.833 1666.667 4583.333                               -1   -1   -1   -1   -1   -1               &     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JQU4F1350191513 5  0    '   28541.66766458.333 1666.667 7395.833                               -1   -1   -1   -1   -1   -1               (     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JQZTD1350191517 5  0    )   28541.66781145.833 1666.667 9270.833                               -1   -1   -1   -1   -1   -1               *     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0JR6C91350191524 5  0    +   28541.667100937.50 1666.667 6562.500                               -1   -1   -1   -1   -1   -1               ,     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0M3QVW1350193752 8  0    -   33125.000 3958.333 1875.00028437.500                   C           -1   -1   -1   -1   -1   -1               .     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT3 0F         WINDOWS _5QA0M7Z541350193858 6           32916.667 3958.333  104.167108854.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F/        WINDOWS _5QA0M8CKQ1350193867 8  0    0   33125.00047291.667 1875.00010000.000                   C           -1   -1   -1   -1   -1   -1               1     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT3 0F2        WINDOWS _5QA0MDZC91350194006 5  0    3   33229.16757916.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      1FTT3 0F5        WINDOWS _5QA0MIFV71350194118 8  0    7   33125.00064062.500 1875.00010000.000                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT3 0F9        WINDOWS _5QA0MIFV81350194118 5  0    :   33229.16774687.500 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               ;     0 10  1       FFFTF  F          0T                      1FTT3 0F<        WINDOWS _5QA0MK91R1350194163 8  0    =   33125.00080833.333 1875.00010000.000                   C           -1   -1   -1   -1   -1   -1               >     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT3 0F?        WINDOWS _5QA0MK91S1350194163 5  0    @   33229.16791458.333 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               A     0 10  1       FFFTF  F          0T                      1FTT3 0FB        WINDOWS _5QA0MKVNK1350194179 8  0    C   33125.00097708.333 1875.00010000.000                   C           -1   -1   -1   -1   -1   -1               D     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT3 0FE        WINDOWS _5QA0MKVNL1350194179 5  0    F   33229.167108333.33 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               G     0 10  1       FFFTF  F          0T                      1FTT3 0FH        WINDOWS _69U0VJRFU1415148902 6           28125.000 3958.333  104.167108854.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _69U0VR9GF1415149089 5  0    I   33229.16757916.667 1666.667 1666.667                               -1   -1   -1   -1   -1   -1               J     0 10  1       FFFTF  F          0T                      1FTT3 0FK        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   M     0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   N     1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   O     1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   P     1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   Q     0 10                                                     F               WINDOWS                     25   R   S                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                "ANLAGE zur Berechnung des Altersteilzeitgehalts fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc + " fr " + alltrim(myform1.z0.caption)                                        Arial                                                         "hier: Progressionsvorbehalt"                                 Arial                                                         "Die steuerfreien Aufstockungsbetrge bei Altersteilzeit unterliegen dem Progressionsvorbehalt nach  32b Abs. 1 Buchstabe g des"                                                             Arial                                                         t"Einkommensteuergesetzes. Die aus diesem Grund zu zahlenden Steueren knnen erst bei der Einkommensteuerveranlagung"          Arial                                                         J"ermittelt werden. Zur Abschtzung kann Ihnen folgende Berechnung dienen:"                                                    Arial                                                         	"Entgelt"                                                     Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli. Zuschlag"                                              Arial                                                         "Ki. Steuer"                                                  Arial                                                         PROGRESSGRID.sp1                                              Arial                                                         0recno("progressgrid") = reccount("progressgrid")              PROGRESSGRID.sp2                                              Arial                                                         PROGRESSGRID.sp2 > 0                                          "EURO"                                                        Arial                                                         WPROGRESSGRID.sp2 > 0 .and. alltrim(PROGRESSGRID.sp1) <> "Durchschnittlicher Steuersatz"                                       PROGRESSGRID.sp3                                              Arial                                                         PROGRESSGRID.sp3 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp3 > 0                                          PROGRESSGRID.sp4                                              Arial                                                         PROGRESSGRID.sp4 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp4 > 0                                          PROGRESSGRID.sp5                                              Arial                                                         PROGRESSGRID.sp5 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp5 > 0                                          " %"                                                          Arial                                                         VPROGRESSGRID.sp2 > 0 .and. alltrim(PROGRESSGRID.sp1) = "Durchschnittlicher Steuersatz"                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                "ANLAGE zur Berechnung des Altersteilzeitgehalts fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc + " fr " + alltrim(myform1.z0.caption)                                        Arial                                                         "hier: Progressionsvorbehalt"                                 Arial                                                         "Die steuerfreien Aufstockungsbetrge bei Altersteilzeit unterliegen dem Progressionsvorbehalt nach  32b Abs. 1 Buchstabe g des"                                                             Arial                                                         t"Einkommensteuergesetzes. Die aus diesem Grund zu zahlenden Steueren knnen erst bei der Einkommensteuerveranlagung"          Arial                                                         J"ermittelt werden. Zur Abschtzung kann Ihnen folgende Berechnung dienen:"                                                    Arial                                                         	"Entgelt"                                                     Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli. Zuschlag"                                              Arial                                                         "Ki. Steuer"                                                  Arial                                                         PROGRESSGRID.sp1                                              Arial                                                         0recno("progressgrid") = reccount("progressgrid")              PROGRESSGRID.sp2                                              Arial                                                         PROGRESSGRID.sp2 > 0                                          "EURO"                                                        Arial                                                         WPROGRESSGRID.sp2 > 0 .and. alltrim(PROGRESSGRID.sp1) <> "Durchschnittlicher Steuersatz"                                       PROGRESSGRID.sp3                                              Arial                                                         PROGRESSGRID.sp3 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp3 > 0                                          PROGRESSGRID.sp4                                              Arial                                                         PROGRESSGRID.sp4 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp4 > 0                                          PROGRESSGRID.sp5                                              Arial                                                         PROGRESSGRID.sp5 > 0                                          "EURO"                                                        Arial                                                         PROGRESSGRID.sp5 > 0                                          " %"                                                          Arial                                                         VPROGRESSGRID.sp2 > 0 .and. alltrim(PROGRESSGRID.sp1) = "Durchschnittlicher Steuersatz"                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                   0"   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QA0NHR001350194996 1 53           1.000    0.000    0.00082666.000                 F                                                       
     0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QA0NHR01           9  1                          28542.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0NHR02           9  4                           1875.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0NHR03           9  7                           3438.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _69V0PNJNP1415208773 8  0       30625.000 6666.667 1875.00048541.667                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F
        WINDOWS _5QA0NIWJG1350195025 8  0        6354.16764166.667 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QA0NIWJH1350195025 8  0        4270.833 2812.500 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0NIWJI1350195025 8  0        6354.167 2812.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0NIWJJ1350195025 8  0        6354.16770625.000 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QA0NIWJK1350195025 8  0       10208.333 2916.667 2187.50075937.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QA0NIWJL1350195025 5  0       16145.83313229.167 2083.33358854.167                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5QA0NKQHO1350195200 6           20416.667 2812.500  104.16778541.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0NLTKA1350195226 5  0       21145.83356354.167 1666.667 9479.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0NM3TH1350195238 5  0        21145.83368020.833 1666.667 9479.167                               -1   -1   -1   -1   -1   -1               !     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0NMCA41350195244 5  0    "   24375.00056354.167 1666.667 9166.667                               -1   -1   -1   -1   -1   -1               #     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0NMNRY1350195247 5  0    $   24375.00068020.833 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               %     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0NND441350195265 6           28229.167 2812.500  104.16778541.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0NO5K31350195284 8  0    &   30625.000 6666.667 1875.00048541.667                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F(        WINDOWS _5QA0NO5K41350195284 8  0    )   30625.00056041.667 1875.00011041.667                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F+        WINDOWS _5QA0NO5K61350195284 8  0    ,   30625.00069270.833 1875.00011041.667                   C           -1   -1   -1   -1   -1   -1               -     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F.        WINDOWS _5YZ0PL9TQ1380015884 5  0    /   22708.33356354.167 1666.66710000.000                               -1   -1   -1   -1   -1   -1               0     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5YZ0PMD3P1380015911 5  0    1   22708.33368020.833 1666.66712187.500                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5YZ0PN4TO1380015929 5  0    3   25937.50068020.833 1666.667 4791.667                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5YZ0PQJUS1380016143 8  0    5   12500.000 2916.667 2187.50075937.500                   C           -1   -1   -1   -1   -1   -1               6     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _69V0PKSLU1415208705 8  0    7   30625.000 3020.833 1875.000 3229.167                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F9        WINDOWS _69V0PNJNQ1415208773 8  0    :   30625.00056041.667 1875.00011041.667                   C           -1   -1   -1   -1   -1   -1               ;     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F<        WINDOWS _69V0PNJNR1415208773 8  0    =   30625.00069270.833 1875.00011041.667                   C           -1   -1   -1   -1   -1   -1               >     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F?        WINDOWS _69V0PNJNS1415208773 8  0    @   30625.000 3020.833 1875.000 3229.167                   C           -1   -1   -1   -1   -1   -1               A     1 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0FB        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   C     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   D     1 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   E     1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   F     1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   G     0 10                                                     F               WINDOWS                     25   H   I                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         erstattung.sp1                                                Arial                                                         .not. empty(erstattung.sp0)                                   ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                n"ANLAGE zur Berechnung des Altersteilzeitgehalts fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc                Arial                                                         J"hier: Erstattung durch das Arbeitsamt und zustzliche SV-Beitrge des AG"                                                    Arial                                                         "Berechnung der"                                              Arial                                                         "Berechnung der"                                              Arial                                                         "das Arbeitsamt"                                              Arial                                                         "versicherungs-"                                              Arial                                                         erstattung.sp1                                                Arial                                                         empty(erstattung.sp0)                                         erstattung.sp2                                                Arial                                                         .empty(erstattung.sp0) .and. erstattung.sp2 > 0                erstattung.sp3                                                Arial                                                         .empty(erstattung.sp0) .and. erstattung.sp3 > 0                "Erstattung durch"                                            Arial                                                         "zustzlichen Sozial-"                                        Arial                                                         
"beitrge"                                                    Arial                                                         %" fr " + alltrim(myform1.z0.caption)                         Arial                                                         erstattung.sp0                                                Arial                                                         empty(erstattung.sp0)                                         erstattung.sp2                                                Arial                                                         5.not. empty(erstattung.sp0)  .and. erstattung.sp2 > 0         erstattung.sp3                                                Arial                                                         4.not. empty(erstattung.sp0) .and. erstattung.sp3 > 0          erstattung.sp0                                                Arial                                                         .not. empty(erstattung.sp0)                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                n"ANLAGE zur Berechnung des Altersteilzeitgehalts fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc                Arial                                                         J"hier: Erstattung durch das Arbeitsamt und zustzliche SV-Beitrge des AG"                                                    Arial                                                         "Berechnung der"                                              Arial                                                         "Berechnung der"                                              Arial                                                         "das Arbeitsamt"                                              Arial                                                         "versicherungs-"                                              Arial                                                         erstattung.sp1                                                Arial                                                         empty(erstattung.sp0)                                         erstattung.sp2                                                Arial                                                         .empty(erstattung.sp0) .and. erstattung.sp2 > 0                erstattung.sp3                                                Arial                                                         .empty(erstattung.sp0) .and. erstattung.sp3 > 0                "Erstattung durch"                                            Arial                                                         "zustzlichen Sozial-"                                        Arial                                                         
"beitrge"                                                    Arial                                                         %" fr " + alltrim(myform1.z0.caption)                         Arial                                                         erstattung.sp0                                                Arial                                                         empty(erstattung.sp0)                                         erstattung.sp1                                                Arial                                                         .not. empty(erstattung.sp0)                                   erstattung.sp2                                                Arial                                                         5.not. empty(erstattung.sp0)  .and. erstattung.sp2 > 0         erstattung.sp3                                                Arial                                                         4.not. empty(erstattung.sp0) .and. erstattung.sp3 > 0          erstattung.sp0                                                Arial                                                         .not. empty(erstattung.sp0)                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0w   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QA0W70Z91350203432 1 53           1.000    0.000    0.000116900.00                 F                                                          0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QA0W70ZA           9  1                          80938.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0W70ZB           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0W70ZC           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QA0YFB0L1350205557 8  0       13333.333 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QA10CR741350207285 8  0       77083.333 9166.667 1666.66724270.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0ZYHPJ1350206930 8  0       37500.000 9166.667 1666.66724166.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0W8WAW1350203478 6            2083.333 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5QA0W9CTV1350203491 6            4375.000 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5QA0WACC71350203514 6            6562.500 6770.833  104.16726875.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0WAYJA1350203530 6            8750.000 6666.667  104.167101145.83                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0WDUMB1350203601 6            6979.16755625.000  104.16752187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QA0WEBJ51350204307 5  0        5729.16738958.333 1666.66711562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0WEWD91350203628 6           15312.500 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5QA0WULET1350204018 6           15520.833 8854.16763645.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QA0WWM0P1350204284 5  0        2604.16734791.667 1666.66746145.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0WXPOJ1350204099 8  0        2395.83381145.833 1875.00016250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QA0WZHP01350204142 8  0        2395.833 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  9  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X0TL81350204173 8  0        4583.333 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  9  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X23RI1350204238 5  0        5000.00062083.333 1666.66740000.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0X3O011350204253 5  0        7083.33356458.333 1666.66721562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0X456U1350204262 5  0        7083.33383229.167 1666.66717916.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QA0X7GDE1350204340 8  0        6770.833 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  9  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X8OV01350204369 8  0        8958.333 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X8UWJ1350204373 8  0       10416.667 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X8YO61350204375 8  0       11875.000 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0X93JO1350204378 8  0       13333.333 7291.667 1770.83325625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QA0XFBP81350204552 5  0        8958.33334166.667 6250.000 6041.667                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XI8B71350204605 5  0        8958.33342812.500 6250.000 2500.000                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XJFNM1350204636 5  0        8854.16749375.000 6250.000 3229.167                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XKR8L1350204668 5  0        8854.16756979.167 6250.000 5937.500                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XMBZC1350204868 5  0       10416.66765520.833 4687.500 6250.000                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XRAWU1350204833 5  0       10416.66774375.000 4687.500 5208.333                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XTL741350204890 5  0        9062.50065208.333 1562.50014687.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XVZOM1350204948 5  0       10416.66791770.833 4687.500 6250.000                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XVZON1350204948 5  0       10416.667100625.00 4687.500 5208.333                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XVZOO1350204948 5  0        9062.50091458.333 1562.50014687.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0XWZ6Y1350204973 5  0        8854.16783229.167 6250.000 5937.500                              -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA0YJ3G01350205651 8  0       15520.833 9166.66721562.50022812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA0ZTL061350206808 6           15416.66732083.33321875.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QA0ZZN781350206959 8  0       39375.000 9166.66714895.83324270.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA104SAM1350207087 8  0       54583.333 9166.66714895.83324270.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA109WRG1350207215 8  0       69895.833 9166.667 1666.66724270.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA10AMLE1350207234 8  0       71875.000 9166.667 4895.83324270.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QA10IOP91350207561 8  0       37500.00033854.167 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA10IOPA1350207561 8  0       15520.83334166.66721562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA10IOPN1350207561 8  0       39375.00034166.66714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA10IOPW1350207561 8  0       54583.33334166.66714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA10IOQ21350207561 8  0       69895.83333854.167 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA10R7N71350207772 8  0       15520.83332291.66721562.500 1250.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         2       0 1  0FTT0 0F         WINDOWS _5QA11J1GC1350208466 8  0       15520.83342187.50021562.500 3958.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KBI81350208497 8  0       37500.00047187.500 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KBI91350208497 8  0       15520.83347500.00021562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KBIM1350208497 8  0       39375.00047500.00014895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KBJ21350208497 8  0       71875.00047500.000 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KJZB1350208503 8  0       37500.00056041.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KJZC1350208503 8  0       15520.83356354.16721562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KJZP1350208503 8  0       39375.00056354.16714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KK051350208503 8  0       71875.00056354.167 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KQM21350208507 8  0       37500.00064791.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KQM31350208507 8  0       15520.83365104.16721562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KQMG1350208507 8  0       39375.00065104.16714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KQMV1350208507 8  0       69895.83364791.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KQMW1350208507 8  0      71875.00065104.167 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX731350208513 8  0      37500.00073541.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX741350208513 8  0      15520.83373854.16721562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX7H1350208513 8  0      39375.00073854.16714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               	    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX7Q1350208513 8  0    
  54583.33373854.16714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX7W1350208513 8  0      69895.83373541.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               
    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX7X1350208513 8  0      71875.00073854.167 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11KX801350208513 8  0      77083.33373541.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QA11L2ZZ1350208517 8  0      37500.00082500.000 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L3001350208517 8  0      15520.83382812.50021562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L30D1350208517 8  0      39375.00082812.50014895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L30T1350208517 8  0      71875.00082812.500 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L8IV1350208521 8  0      37500.00091145.833 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L8IW1350208521 8  0      15520.83391458.33321562.500 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L8J91350208521 8  0      39375.00091458.33314895.833 7187.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L8JO1350208521 8  0       69895.83391145.833 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               !    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11L8JP1350208521 8  0    "  71875.00091458.333 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               #    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE581350208524 8  0    $  37500.00099583.333 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               %    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE591350208524 8  0    &  15520.83399895.83321562.500 7187.500                   C           -1   -1   -1   -1   -1   -1               '    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE5M1350208524 8  0    (  39375.00099895.83314895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               )    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE5V1350208524 8  0    *  54583.33399895.83314895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               +    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE611350208524 8  0    ,  69895.83399583.333 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               -    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE621350208524 8  0    .  71875.00099895.833 4895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               /    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA11LE651350208524 8  0    0  77083.33399583.333 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               1    0  8  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QA124C9R1350209009 5  0    2  58541.66765104.167 4687.500 8437.500                               -1   -1   -1   -1   -1   -1               3    0  9  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA126URK1350209059 5  0    4  55416.66791458.33312500.000 8229.167    6                         -1   -1   -1   -1   -1   -1               7    0  9  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QA12BMUI1350209177 8  0    8  77083.33347187.500 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               9    0  8  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QA12DUAL1350209232 8  0    :  54583.33347604.16714895.833 7187.500                   C           -1   -1   -1   -1   -1   -1               ;    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QA12DUAR1350209232 8  0    <  69895.83347291.667 1666.667 7187.500                   C           -1   -1   -1   -1   -1   -1               =    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YZ11AZVH1380027146 6            2187.500 6562.50076875.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11BK9K1380027159 6            2187.50033645.83376875.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11BXHC1380027170 6            4583.33355520.83374479.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11CB251380027178 6            8958.33364270.83370104.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11CL8B1380027185 6           10937.50073020.83368125.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11CVOW1380027192 6            7083.33381875.00071979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11D5FG1380027200 6            8958.33390729.16770104.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11DFMH1380027207 6           10937.50099270.83368125.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11DO8B1380027212 6            2187.500107812.5076875.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5YZ11ENTP1380027237 6           37291.667 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11F38S1380027247 6           39270.833 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11FJBQ1380027258 6           54479.167 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11G2MS1380027272 6           69687.500 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11GDNA1380027279 6           71666.667 6562.500  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11GVMP1380027291 6           76979.167 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5YZ11H6ZR1380027301 6           79062.500 6666.667  104.167101250.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _6AY0JBWHT1418086437 8  0    >  15520.833 6875.00021562.500 1875.000                   C           -1   -1   -1   -1   -1   -1               ?    0  8  1 0     FFFTF  F          2T         2       0 1  0FTT0 0F         WINDOWS _6AY0JDPFF1418086483 5  0    @  37500.000 7187.500 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               A    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6AY0JEZVH1418086513 5  0    B  69895.833 7187.500 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               C    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6AY0JFO261418086530 5  0    D  77291.667 7187.500 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               E    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6AY0JHU5U1418086583 8  0    F  39375.000 6875.00014895.833 1875.000                   C           -1   -1   -1   -1   -1   -1               G    0  8  1 0     FFFTF  F          2T         2       0 1  0FTT0 0F         WINDOWS _6AY0JISJ81418086607 8  0    H  54583.333 6875.00014895.833 1875.000                   C           -1   -1   -1   -1   -1   -1               I    0  8  1 0     FFFTF  F          2T         2       0 1  0FTT0 0F         WINDOWS _6AY0JJBBD1418086619 8  0    J  71875.000 6875.000 4895.833 1875.000                   C           -1   -1   -1   -1   -1   -1               K    0  8  1 0     FFFTF  F          2T         2       0 1  0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   L    0 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   M    0  8                                                     F               WINDOWS                     23              15.000    5.000   12.000   32.000                                3    0                                   N    0  9                                                     F               WINDOWS                     25   O  P                                                       F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Arial                                                         ("AN-Anteil " + Alltrim(zt41(1+zi(1+41)))                      Arial Narrow                                                  zi(1+41) <> 403                                               hs6_sp1                                                       Arial Narrow                                                  hs1_sp1_sum                                                   Arial Narrow                                                  "G   E   H   A   L   T"                                       Arial                                                         Y"B e r e c h n u n g   d e s   A l t e r s t e i l z e i t g e h a l t s  fr den Monat "                                     Arial                                                         *getmonthname(zi(1+20))+ " " + welchesjahrc                    Arial                                                         myform1.z0.Caption                                            Arial                                                         myform1.z5.Caption                                            Arial                                                         W"N     e     b     e     n     r     e     c     h     n     u     n     g     e     n"                                       Arial                                                         %"nach dem Altersteilzeitgesetz (AtG)"                         Arial                                                         "Nach dem Tarifvertrag TV ATZ"                                Arial                                                         BAlltrim(myform1.z50.Caption) + "  " + Alltrim(myform1.z51.Caption)                                                            Arial                                                         myform1.z36.Caption                                           Arial Narrow                                                  BAlltrim(myform1.z52.Caption) + "  " + Alltrim(myform1.z53.Caption)                                                            Arial Narrow                                                  @"AG-Anteil an der ATV  " + alltrim(str(zvkumlageag,10,3)) + " %"                                                              Arial Narrow                                                  !"AN-Anteil " + Alltrim(zt41(1+4))                             Arial Narrow                                                  zi(1+41) = 403                                                ,"fr Arbeit
im bisherigen
Umfang
(Vollzeit)"                  "@I"                                                          Arial Narrow                                                  "Teil-
zeit-
anteil
%"                                        "@I"                                                          Arial Narrow                                                  "fr
Alters-
teilzeit-
arbeit"                                "@I"                                                          Arial Narrow                                                  ."20 %
Aufstockung
vom Teilzeit-
Bruttoentgelt"                "@I"                                                          Arial Narrow                                                  '"Pauschaliertes
Vollzeit-
Nettoentgelt"                       "@I"                                                          Arial Narrow                                                  !"Fiktives
Teilzeit-
Nettoentgelt"                             "@I"                                                          Arial Narrow                                                  %"Erhh. -> 70% Vollzeit-Nettoentgelt"                         Arial Narrow                                                  '"Pauschaliertes
Vollzeit-
Nettoentgelt"                       "@I"                                                          Arial Narrow                                                  !"Fiktives
Teilzeit-
Nettoentgelt"                             "@I"                                                          Arial Narrow                                                  %"Erhh. -> 83% Vollzeit-Nettoentgelt"                         Arial Narrow                                                  ."20 %
Aufstockung
vom Teilzeit-
Bruttoentgelt"                "@I"                                                          Arial Narrow                                                  hs1_sp1                                                       Arial Narrow                                                  hs2_sp1                                                       Arial Narrow                                                  hs3_sp1                                                       Arial Narrow                                                  hs4_sp1                                                       Arial Narrow                                                  hs5_sp1                                                       Arial Narrow                                                  hs1_sp3_sum                                                   Arial Narrow                                                  hs1_sp3                                                       Arial Narrow                                                  hs2_sp3                                                       Arial Narrow                                                  hs3_sp3                                                       Arial Narrow                                                  hs4_sp3                                                       Arial Narrow                                                  hs1_sp2                                                       Arial Narrow                                                  hs1_sp4                                                       Arial Narrow                                                  hs1_sp5_sum                                                   Arial Narrow                                                  hs1_sp5                                                       Arial Narrow                                                  hs2_sp5                                                       Arial Narrow                                                  hs5_sp5                                                       Arial Narrow                                                  hs1_sp7_sum                                                   Arial Narrow                                                  hs1_sp7                                                       Arial Narrow                                                  hs2_sp7                                                       Arial Narrow                                                  hs5_sp7                                                       Arial Narrow                                                  hs1_sp8_sum                                                   Arial Narrow                                                  hs1_sp8                                                       Arial Narrow                                                  hs2_sp8                                                       Arial Narrow                                                  hs4_sp8                                                       Arial Narrow                                                  hs5_sp8                                                       Arial Narrow                                                  hs1_sp9_sum                                                   Arial Narrow                                                  hs1_sp9                                                       Arial Narrow                                                  hs2_sp9                                                       Arial Narrow                                                  hs3_sp9                                                       Arial Narrow                                                  hs4_sp9                                                       Arial Narrow                                                  hs5_sp9                                                       Arial Narrow                                                  hs6_sp9                                                       Arial Narrow                                                  hs1_sp11_sum                                                  Arial Narrow                                                  hs1_sp11                                                      Arial Narrow                                                  hs2_sp11                                                      Arial Narrow                                                  hs5_sp11                                                      Arial Narrow                                                  hs1_sp12_sum                                                  Arial Narrow                                                  hs1_sp12                                                      Arial Narrow                                                  hs2_sp12                                                      Arial Narrow                                                  hs4_sp12                                                      Arial Narrow                                                  hs5_sp12                                                      Arial Narrow                                                  hs1_sp13_sum                                                  Arial Narrow                                                  hs1_sp13                                                      Arial Narrow                                                  hs2_sp13                                                      Arial Narrow                                                  hs3_sp13                                                      Arial Narrow                                                  hs4_sp13                                                      Arial Narrow                                                  hs5_sp13                                                      Arial Narrow                                                  hs6_sp13                                                      Arial Narrow                                                  )"Laut Mindest
Nettoentgelt-
Tabelle 2008"                     Arial                                                         X"Laut 
Mind.-Netto-
entgelt-Tab. 
fr 83%
(GMBl.2005, 
Seite 107,
die immer
noch gilt.)"                                      "@I"                                                          Arial                                                         hs6_sp5                                                       Arial Narrow                                                  hs3_sp5                                                       Arial Narrow                                                  hs4_sp5                                                       Arial Narrow                                                  hs1_sp0                                                       Arial Narrow                                                  "14"                                                          Arial Narrow                                                  "33"                                                          Arial Narrow                                                  "37"                                                          Arial Narrow                                                  hs2_sp0                                                       Arial Narrow                                                  hs3_sp0                                                       Arial Narrow                                                  hs5_sp0                                                       Arial Narrow                                                  Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Arial                                                         ("AN-Anteil " + Alltrim(zt41(1+zi(1+41)))                      Arial Narrow                                                  zi(1+41) <> 403                                               hs6_sp1                                                       Arial Narrow                                                  hs1_sp1_sum                                                   Arial Narrow                                                  "G   E   H   A   L   T"                                       Arial                                                         Y"B e r e c h n u n g   d e s   A l t e r s t e i l z e i t g e h a l t s  fr den Monat "                                     Arial                                                         *getmonthname(zi(1+20))+ " " + welchesjahrc                    Arial                                                         myform1.z0.Caption                                            Arial                                                         myform1.z5.Caption                                            Arial                                                         W"N     e     b     e     n     r     e     c     h     n     u     n     g     e     n"                                       Arial                                                         %"nach dem Altersteilzeitgesetz (AtG)"                         Arial                                                         "Nach dem Tarifvertrag TV ATZ"                                Arial                                                         BAlltrim(myform1.z50.Caption) + "  " + Alltrim(myform1.z51.Caption)                                                            Arial                                                         myform1.z36.Caption                                           Arial Narrow                                                  BAlltrim(myform1.z52.Caption) + "  " + Alltrim(myform1.z53.Caption)                                                            Arial Narrow                                                  @"AG-Anteil an der ATV  " + alltrim(str(zvkumlageag,10,3)) + " %"                                                              Arial Narrow                                                  !"AN-Anteil " + Alltrim(zt41(1+4))                             Arial Narrow                                                  zi(1+41) = 403                                                ,"fr Arbeit
im bisherigen
Umfang
(Vollzeit)"                  "@I"                                                          Arial Narrow                                                  "Teil-
zeit-
anteil
%"                                        "@I"                                                          Arial Narrow                                                  "fr
Alters-
teilzeit-
arbeit"                                "@I"                                                          Arial Narrow                                                  ."20 %
Aufstockung
vom Teilzeit-
Bruttoentgelt"                "@I"                                                          Arial Narrow                                                  '"Pauschaliertes
Vollzeit-
Nettoentgelt"                       "@I"                                                          Arial Narrow                                                  !"Fiktives
Teilzeit-
Nettoentgelt"                             "@I"                                                          Arial Narrow                                                  %"Erhh. -> 70% Vollzeit-Nettoentgelt"                         Arial Narrow                                                  '"Pauschaliertes
Vollzeit-
Nettoentgelt"                       "@I"                                                          Arial Narrow                                                  !"Fiktives
Teilzeit-
Nettoentgelt"                             "@I"                                                          Arial Narrow                                                  %"Erhh. -> 83% Vollzeit-Nettoentgelt"                         Arial Narrow                                                  ."20 %
Aufstockung
vom Teilzeit-
Bruttoentgelt"                "@I"                                                          Arial Narrow                                                  hs1_sp1                                                       Arial Narrow                                                  hs2_sp1                                                       Arial Narrow                                                  hs3_sp1                                                       Arial Narrow                                                  hs4_sp1                                                       Arial Narrow                                                  hs5_sp1                                                       Arial Narrow                                                  hs1_sp3_sum                                                   Arial Narrow                                                  hs1_sp3                                                       Arial Narrow                                                  hs2_sp3                                                       Arial Narrow                                                  hs3_sp3                                                       Arial Narrow                                                  hs4_sp3                                                       Arial Narrow                                                  hs1_sp2                                                       Arial Narrow                                                  hs1_sp4                                                       Arial Narrow                                                  hs1_sp5_sum                                                   Arial Narrow                                                  hs1_sp5                                                       Arial Narrow                                                  hs2_sp5                                                       Arial Narrow                                                  hs5_sp5                                                       Arial Narrow                                                  hs1_sp7_sum                                                   Arial Narrow                                                  hs1_sp7                                                       Arial Narrow                                                  hs2_sp7                                                       Arial Narrow                                                  hs5_sp7                                                       Arial Narrow                                                  hs1_sp8_sum                                                   Arial Narrow                                                  hs1_sp8                                                       Arial Narrow                                                  hs2_sp8                                                       Arial Narrow                                                  hs4_sp8                                                       Arial Narrow                                                  hs5_sp8                                                       Arial Narrow                                                  hs1_sp9_sum                                                   Arial Narrow                                                  hs1_sp9                                                       Arial Narrow                                                  hs2_sp9                                                       Arial Narrow                                                  hs3_sp9                                                       Arial Narrow                                                  hs4_sp9                                                       Arial Narrow                                                  hs5_sp9                                                       Arial Narrow                                                  hs6_sp9                                                       Arial Narrow                                                  hs1_sp11_sum                                                  Arial Narrow                                                  hs1_sp11                                                      Arial Narrow                                                  hs2_sp11                                                      Arial Narrow                                                  hs5_sp11                                                      Arial Narrow                                                  hs1_sp12_sum                                                  Arial Narrow                                                  hs1_sp12                                                      Arial Narrow                                                  hs2_sp12                                                      Arial Narrow                                                  hs4_sp12                                                      Arial Narrow                                                  hs5_sp12                                                      Arial Narrow                                                  hs1_sp13_sum                                                  Arial Narrow                                                  hs1_sp13                                                      Arial Narrow                                                  hs2_sp13                                                      Arial Narrow                                                  hs3_sp13                                                      Arial Narrow                                                  hs4_sp13                                                      Arial Narrow                                                  hs5_sp13                                                      Arial Narrow                                                  hs6_sp13                                                      Arial Narrow                                                  )"Laut Mindest
Nettoentgelt-
Tabelle 2008"                     Arial                                                         X"Laut 
Mind.-Netto-
entgelt-Tab. 
fr 83%
(GMBl.2005, 
Seite 107,
die immer
noch gilt.)"                                      "@I"                                                          Arial                                                         hs6_sp5                                                       Arial Narrow                                                  hs3_sp5                                                       Arial Narrow                                                  hs4_sp5                                                       Arial Narrow                                                  hs1_sp0                                                       Arial Narrow                                                  "14"                                                          Arial Narrow                                                  "33"                                                          Arial Narrow                                                  "37"                                                          Arial Narrow                                                  hs2_sp0                                                       Arial Narrow                                                  hs3_sp0                                                       Arial Narrow                                                  hs5_sp0                                                       Arial Narrow                                                  Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0	   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QE0V1EXZ1350466459 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1               
     0 10  121F 3 3FFFTF  T          0T    F T  0       0 1  0TTT0 0F        WINDOWS _5QE0V1EY0           9  1                          108021.00    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QE0V1EY1           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QE0V1EY2           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QE0W4DSG1350467430 8  0       10104.16726562.500 1875.000 7604.167                   C           -1   -1   -1   -1   -1   -1               
     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5Z011RLC81380093095 7  4        61145.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011RUQ81380093101 7  4        64895.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011RZV91380093104 7  4        68645.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011S53R1380093108 7  4        72812.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011SCJK1380093113 7  4        76875.000 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011SK9R1380093120 7  4        80520.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011SQ321380093123 7  4        89791.667 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011SWY21380093128 7  4        93645.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011T1X11380093131 7  4        97395.833 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011TCT71380093138 7  4        103020.83 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011QNGU1380093071 7  4        56666.667 3645.833 1875.00047083.333                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011O5TS1380093009 7  4        20312.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011OK5G1380093018 7  4        24062.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011OTBN1380093026 7  4        27812.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011OZAL1380093030 7  4        31562.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011P4PL1380093034 7  4        35208.333 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011PB6Q1380093038 7  4        38958.333 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011PJ4A1380093043 7  4        42708.333 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011POOX1380093047 7  4        46562.500 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011PZX81380093056 7  4        52395.833 3645.833 1875.00047083.333                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5Z011KTGV1380092925 7  4        16666.667 3645.833 1875.00073020.833                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5QE0W4DS41350467430 8  0       10104.16743229.167 1875.000 6875.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DSB1350467430 5  0        8437.50043333.333 1666.667 6666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0TTT0 0F        WINDOWS _5QE0W4DSH1350467430 8  0       10104.16744687.500 1875.000 5416.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DSF1350467430 8  0       10104.16734687.500 1875.000 7708.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QE0W4DSE1350467430 5  0       10208.333 6666.667 1666.66715104.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5QE0W39G01350467401 8  0        3125.000 4375.000 2291.66771770.833                   C           -1   -1   -1   -1   -1   -1                     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F!        WINDOWS _5QE0W39FZ1350467401 8  0    "    3125.000 4375.000 2291.66771770.833                   C           -1   -1   -1   -1   -1   -1               $     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F%        WINDOWS _5QE0W39G11350467401 8  0    &    5520.833 4375.000 2291.66742708.333                   C           -1   -1   -1   -1   -1   -1               '     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F(        WINDOWS _5QE0W39G21350467401 8  0    )    5520.833 4375.000 2291.66742708.333                   C           -1   -1   -1   -1   -1   -1               *     1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F+        WINDOWS _5QE0W4DS31350467430 5  0    ,    9895.83352916.667 1666.66723125.000                               -1   -1   -1   -1   -1   -1               -     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0W4DS51350467430 5  0    .    8437.50042812.500 1666.667 7187.500                               -1   -1   -1   -1   -1   -1               /     0 10  1       FFFTF  F          0T                      0TTT0 0F0        WINDOWS _5QE0W4DS61350467430 7  4         8541.667 4479.167 1562.500 1562.500                               -1   -1   -1    0    0    0    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QE0W4DS71350467430 5  0    1    8437.500 6666.667 1666.66719062.500                               -1   -1   -1   -1   -1   -1               2     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0W4DS81350467430 7  4         8541.66750729.167 1562.500 1562.500                               -1   -1   -1    0    0    0    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QE0W4DS91350467430 5  0    3    8437.50026666.667 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0W4DSA1350467430 5  0    5    8437.50035104.167 1666.667 7083.333                               -1   -1   -1   -1   -1   -1               6     0 10  1       FFFTF  F          0T                      0FTT0 0F7        WINDOWS _5QE0W4DSC1350467430 5  0    8    8437.50035937.500 1666.667 6145.833                               -1   -1   -1   -1   -1   -1               9     0 10  1       FFFTF  F          0T                      0FTT0 0F:        WINDOWS _5QE0W4DSD1350467430 5  0    ;   10208.333 6666.667 1666.66711666.667                               -1   -1   -1   -1   -1   -1               <     0 10  1       FFFTF  F          0T                      0FTT0 0F=        WINDOWS _5QE0W4DSI1350467430 5  0    >   12500.00052500.000 1666.667 6041.667                               -1   -1   -1   -1   -1   -1               ?     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0W4DSJ1350467430 5  0    @   11250.00060625.000 1666.667 5833.333                               -1   -1   -1   -1   -1   -1               A     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0W4DSK1350467430 5  0    B   12187.50026458.333 1666.667 8437.500                               -1   -1   -1   -1   -1   -1               C     0 10  1       FFFTF  F          0T                      0FTT0 0FD        WINDOWS _5QE0W4DSL1350467430 5  0    E   12083.33345729.167 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               F     0 10  1       FFFTF  F          0T                      0TTT0 0FG        WINDOWS _5QE0W4DSM1350467430 5  0    H   12083.333 6666.667 1666.66711875.000                               -1   -1   -1   -1   -1   -1               I     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0W4DSN1350467430 5  0    J   12708.33368437.500 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               K     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0W4DSO1350467430 8  0    L   14687.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               M     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DSP1350467430 8  0    N   16562.500 4479.167 1875.00022604.167                   C           -1   -1   -1   -1   -1   -1               O     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DSQ1350467430 8  0    P   18437.500 4479.167 1875.00022500.000                   C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DSR1350467430 8  0    R   20312.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               S     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DSS1350467430 8  0    T   14687.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               U     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FV        WINDOWS _5QE0W4DST1350467430 8  0    W   14687.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FY        WINDOWS _5QE0W4DSU1350467430 8  0    Z   14687.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               [     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F\        WINDOWS _5QE0W4DSV1350467430 8  0    ]   14687.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               ^     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F_        WINDOWS _5QE0W4DSW1350467430 8  0    `   14687.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               a     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fb        WINDOWS _5QE0W4DSX1350467430 8  0    c   14687.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               d     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fe        WINDOWS _5QE0W4DSY1350467430 8  0    f   16562.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fh        WINDOWS _5QE0W4DSZ1350467430 8  0    i   16562.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fk        WINDOWS _5QE0W4DT01350467430 8  0    l   16562.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fn        WINDOWS _5QE0W4DT11350467430 8  0    o   16562.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fq        WINDOWS _5QE0W4DT21350467430 8  0    r   16562.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               s     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Ft        WINDOWS _5QE0W4DT31350467430 8  0    u   16562.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fw        WINDOWS _5QE0W4DT41350467430 8  0    x   18437.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               y     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fz        WINDOWS _5QE0W4DT51350467430 8  0    {   18437.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F}        WINDOWS _5QE0W4DT61350467430 8  0    ~   18437.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DT71350467430 8  0       18437.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DT81350467430 8  0       18437.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DT91350467430 8  0       18437.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTA1350467430 8  0       20312.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTB1350467430 8  0       20312.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTC1350467430 8  0       20312.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTD1350467430 8  0       20312.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTE1350467430 8  0       20312.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTF1350467430 8  0       20312.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTG1350467430 8  0       22187.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DTH1350467430 8  0       24062.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DTI1350467430 8  0       25937.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DTJ1350467430 8  0       27812.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DTK1350467430 8  0       22187.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTL1350467430 8  0       22187.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTM1350467430 8  0       22187.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTN1350467430 8  0       22187.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTO1350467430 8  0       22187.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTP1350467430 8  0       22187.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTQ1350467430 8  0       24062.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTR1350467430 8  0       24062.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTS1350467430 8  0       24062.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTT1350467430 8  0       24062.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTU1350467430 8  0       24062.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTV1350467430 8  0       24062.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTW1350467430 8  0       25937.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTX1350467430 8  0       25937.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTY1350467430 8  0       25937.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DTZ1350467430 8  0       25937.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU01350467430 8  0       25937.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU11350467430 8  0       25937.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU21350467430 8  0       27812.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU31350467430 8  0       27812.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU41350467430 8  0       27812.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU51350467430 8  0       27812.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU61350467430 8  0       27812.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU71350467430 8  0       27812.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DU81350467430 8  0       29687.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DU91350467430 8  0       31562.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DUA1350467430 8  0       33437.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DUB1350467430 8  0       35312.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DUC1350467430 8  0       29687.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DUD1350467430 8  0       29687.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DUE1350467430 8  0       29687.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DUF1350467430 8  0       29687.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DUG1350467430 8  0       29687.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUH1350467430 8  0      29687.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUI1350467430 8  0      31562.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUJ1350467430 8  0    	  31562.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               
    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUK1350467430 8  0      31562.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               
    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUL1350467430 8  0      31562.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUM1350467430 8  0      31562.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUN1350467430 8  0      31562.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUO1350467430 8  0      33437.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUP1350467430 8  0      33437.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F       WINDOWS _5QE0W4DUQ1350467430 8  0      33437.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F        WINDOWS _5QE0W4DUR1350467430 8  0    !  33437.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               "    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F#       WINDOWS _5QE0W4DUS1350467430 8  0    $  33437.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               %    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F&       WINDOWS _5QE0W4DUT1350467430 8  0    '  33437.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               (    0 10  1 0     FTFTF  T          0T         1       0 1  0FTT0 0F)       WINDOWS _5QE0W4DUU1350467430 8  0    *  35312.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               +    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F,       WINDOWS _5QE0W4DUV1350467430 8  0    -  35312.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               .    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F/       WINDOWS _5QE0W4DUW1350467430 8  0    0  35312.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               1    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F2       WINDOWS _5QE0W4DUX1350467430 8  0    3  35312.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               4    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F5       WINDOWS _5QE0W4DUY1350467430 8  0    6  35312.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               7    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F8       WINDOWS _5QE0W4DUZ1350467430 8  0    9  35312.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               :    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F;       WINDOWS _5QE0W4DV01350467430 8  0    <  37187.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               =    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DV11350467430 8  0    >  37187.50027812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               ?    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F@       WINDOWS _5QE0W4DV21350467430 8  0    A  37187.50035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               B    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FC       WINDOWS _5QE0W4DV31350467430 8  0    D  37187.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               E    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FF       WINDOWS _5QE0W4DV41350467430 8  0    G  37187.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               H    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FI       WINDOWS _5QE0W4DV51350467430 8  0    J  37187.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               K    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FL       WINDOWS _5QE0W4DV61350467430 8  0    M  37187.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               N    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FO       WINDOWS _5QE0W4DV71350467430 8  0    P  39062.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               Q    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DV81350467430 8  0    R  40937.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               S    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DV91350467430 8  0    T  39062.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               U    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FV       WINDOWS _5QE0W4DVA1350467430 8  0    W  40937.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               X    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0FY       WINDOWS _5QE0W4DVB1350467430 8  0    Z  42812.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               [    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0W4DVC1350467430 8  0    \  42812.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               ]    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F^       WINDOWS _5QE0W4DVD1350467430 5  0    _   8437.50052916.667 1666.66718020.833                               -1   -1   -1   -1   -1   -1               `    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0W6CHI1350467605 7  4         1666.667 3645.833105416.6773125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QE0W6NLG1350467613 6           14375.000 3750.000  104.16772916.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5QE0WCZT11350467770 8  0    a  44687.500 4479.167 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               b    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0WHXMP1350467894 8  0    c  44687.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               d    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fe       WINDOWS _5QE0WHXMQ1350467894 8  0    f  44687.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               g    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fh       WINDOWS _5QE0WHXMR1350467894 8  0    i  44687.50060416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               j    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fk       WINDOWS _5QE0WHXMS1350467894 8  0    l  44687.50068229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               m    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fn       WINDOWS _5QE0WKVBD1350467968 8  0    o  46562.500 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1               p    0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0Fq       WINDOWS _5QE0WKVBE1350467968 8  0    r  46562.50043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1               s    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Ft       WINDOWS _5QE0WKVBF1350467968 8  0    u  46562.50052604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               v    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fw       WINDOWS _5QE0WKVBG1350467968 8  0    x  48645.83360416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               y    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0Fz       WINDOWS _5QE0WKVBH1350467968 8  0    {  48645.83368229.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1               |    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F}       WINDOWS _5QE0WO4YC1350468048 8  0    ~  48541.667 4479.167 1875.00021354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0WO4YD1350468048 8  0      48541.66743437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WO4YE1350468048 8  0      48541.66752604.167 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WO4YF1350468048 8  0      48645.83360416.667 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WO4YG1350468048 8  0      48645.83368125.000 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WOSJ81350468066 8  0      48541.66727812.500 1875.000 6145.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WOSJ91350468066 8  0      48541.66735416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WSYV51350468169 8  0      50520.833 4479.167 1875.00038333.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0WWDH31350468253 8  0      50520.83343437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   5 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0WY0JG1350468295 8  0      50625.00051250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X12XK1350468370 8  0      52604.16751250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X24B21350468397 8  0      54583.33351250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X2ZYQ1350468419 8  0      56562.50051250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X4BUZ1350468452 8  0      50625.00051250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X4BV01350468452 8  0      52604.16751250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0X6P6P1350468509 8  0      54583.33351250.000 1875.00025104.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5QE0XBN851350468633 6           58750.000 3854.167  104.16772916.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QE0XDBFO1350468676 7  4        59375.000 4479.167 1562.500 1562.500                               -1   -1   -1    0    0    0    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QE0XDYTB1350468694 5  0      59270.833 6875.000 1666.66748020.833                               -1   -1   -1   -1   -1   -1                   1 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XH31G1350468772 5  0      61354.167 4791.667 1666.66711562.500                               -1   -1   -1   -1   -1   -1                   0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XHBZF1350468775 5  0      63229.167 4791.667 1666.66728958.333                               -1   -1   -1   -1   -1   -1                   0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XIICR1350468806 5  0      65104.167 4687.500 1666.66724687.500                               -1   -1   -1   -1   -1   -1                   0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XIRSH1350468815 5  0      66979.167 4895.833 1666.66727291.667                               -1   -1   -1   -1   -1   -1                   0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XIZSG1350468818 5  0      68854.167 4791.667 1666.66711458.333                               -1   -1   -1   -1   -1   -1                   0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XJF7Z1350468843 8  0      70625.000 4895.833 1875.00037291.667                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0XO0LZ1350469031 8  0      72812.50035625.000 1875.00040520.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0XS3431350469042 7  4        75520.833 4479.167 1562.500 1562.500                               -1   -1   -1    0    0    0    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QE0XS3441350469042 5  0      75416.667 6875.000 1666.66729687.500                               -1   -1   -1   -1   -1   -1                   1 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0XU0XV1350469092 8  0      61250.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XU0XW1350469092 8  0      63125.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XU0XX1350469092 8  0      65000.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XU0XY1350469092 8  0      66875.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XU0XZ1350469092 8  0      68750.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XU0Y01350469092 8  0      70625.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   5 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0XVKDD1350469129 6           74895.833 3854.167  104.16772916.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QE0XZTLP1350469236 5  0      76979.16734062.500 1666.667 7812.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0Y072V1350469255 8  0      76875.00042812.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y28NU1350469296 5  0      78854.167 5000.000 1666.667 9687.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0Y2ICK1350469303 8  0      78750.00035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y31IU1350469319 8  0      78750.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y4PPY1350469357 5  0      80729.167 5000.000 1666.66718229.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0Y4PPZ1350469357 8  0      80625.00035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y4PQ01350469357 8  0      80625.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y5S611350469384 5  0      82604.167 5000.000 1666.667 5937.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0Y5S621350469384 8  0      82500.00035416.667 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y5S631350469384 8  0      82500.00043437.500 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   5 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QE0Y8WJM1350469461 6           84583.333 3854.167  104.16772916.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QE0Y95SV1350469467 7  4        85104.167 4479.167 1562.500 1562.500                               -1   -1   -1    0    0    0    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QE0Y95SW1350469467 5  0      85000.000 6875.000 1666.66747708.333                               -1   -1   -1   -1   -1   -1                   1 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QE0YEN0M1350469736 5  0      86354.167 6979.167 1666.66748541.667                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YIUDG1350469841 5  0      88229.16750312.500 1666.667 4583.333                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YJ3H21350469849 5  0      88229.16757395.833 1666.667 5312.500                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YJEBX1350469856 5  0      88229.16766250.000 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YJM1U1350469857 5  0      88229.16771770.833 1666.667 4062.500                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YKFDA1350469876 5  0      90000.000 7187.500 1666.66718541.667                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QE0YMWWF1350469937 8  0      89895.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YMWWG1350469937 8  0      91770.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YMWWH1350469937 8  0      93645.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YMWWI1350469937 8  0      95520.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YMWWJ1350469937 8  0      97395.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YMWWK1350469937 8  0      99270.83348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YNOQS1350469957 8  0      104895.8348645.833 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                    5 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YO29D1350469966 5  0      91875.000 7187.500 1666.66713229.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOIUX1350469977 5  0      93750.000 7187.500 1666.66722291.667                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOIUY1350469977 5  0      95625.000 7187.500 1666.66717812.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOYC71350469989 5  0      97500.000 7187.500 1666.66717812.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOYC81350469989 5  0    	  99375.000 7187.500 1666.66720833.333                               -1   -1   -1   -1   -1   -1               
    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOYC91350469989 5  0      101250.00 7187.500 1666.667 7708.333                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YOYCA1350469989 5  0    
  103125.00 7187.500 1666.66717604.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YPUUN1350470010 5  0      105000.00 7187.500 1666.66716875.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QE0YQPCA1350470032 8  0      103020.8356354.167 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YQPCB1350470032 8  0      101145.8356354.167 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YQVE81350470036 8  0      103020.8363750.000 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YQVE91350470036 8  0      101145.8363750.000 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YR2FQ1350470040 8  0      103020.8370416.667 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YR2FR1350470040 8  0      101145.8370416.667 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YTXD61350470113 8  0      89895.83356354.167 1875.000 6354.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YTXD71350470113 8  0      89895.83363750.000 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YTXD81350470113 8  0    !  89895.83370416.667 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1               "    0 10  1 0     FFFTF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QE0YVY1N1350470164 5  0    #  97500.00055312.500 1666.667 1250.000                               -1   -1   -1   -1   -1   -1               $    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5Z00WM5ZK1380088234 8  0    %  72812.500 4895.833 1875.00030416.667                   C           -1   -1   -1   -1   -1   -1               &    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Z012PIK81380094066 8  0    '  10104.16726562.500 1875.000 7604.167                   C           -1   -1   -1   -1   -1   -1               (    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6F90Z4J5S1428718314 5  0    )  12708.33361979.167 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               *    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6F90Z4ZA01428718324 5  0    +  11250.00070625.000 1666.667 3437.500                               -1   -1   -1   -1   -1   -1               ,    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   -    0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   .    1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   /    1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   0    5 10                                                     F               WINDOWS                     25   1  2                                                       F                                                                                                                      F                `   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         sicht(1+0,1+ 0) > 0                                           	"aus dem"                                                     Arial                                                         
zi(1+22) <> 5                                                 alltrim("Betrge")                                            Arial                                                         
zi(1+22) <> 5                                                 "ATZ-Regel-"                                                  Arial                                                         zi(1+22) = 5                                                  alltrim("arbeits-")                                           Arial                                                         zi(1+22) = 5                                                  4"(" + alltrim(str(wert(1+1) / 200000,6,2)) + " Std)"          Arial                                                         zi(1+22) = 5                                                  "in der Freistellungsphase"                                   Arial                                                         
zi(1+22) <> 5                                                 A"Anwendung des TV-Falter auf das " + alltrim(myform1.z20.caption)                                                             Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                A"Anwendung des TV-FlexAZ auf das " + alltrim(myform1.z20.caption)                                                             Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             $"von " + alltrim(myform1.z0.Caption)                          Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             $"von " + alltrim(myform1.z0.Caption)                          Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                #"Einstellungen in das Wertguthaben"                           Arial                                                         
"Aufzustock."                                                 Arial                                                         
zi(1+22) <> 5                                                 "Berechnung des ATZ-Gehalts"                                  Arial                                                         "Basisentgelt"                                                Arial                                                         
"ATZ-Entgelt"                                                 Arial                                                         zi(1+22) = 5                                                  
"Entnahme"                                                    Arial                                                         
zi(1+22) <> 5                                                 "in der Arbeitsphase"                                         Arial                                                         zi(1+22) = 5                                                  
"lfd.Entgelt"                                                 Arial                                                         "sonstiges"                                                   Arial                                                         "Wertguthaben"                                                Arial                                                         zi(1+22) = 6                                                  	"entgelt"                                                     Arial                                                         zi(1+22) = 5                                                  "Entgeltbezeichnung"                                          Arial                                                         "Steuerfrei"                                                  Arial                                                         alltrim(myform1.z7.Caption)                                   Arial                                                         alltrim(myform1.z8.Caption)                                   Arial                                                         alltrim(myform1.z9.Caption)                                   Arial                                                         alltrim(myform1.z10.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+0,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+1,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+2,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+3,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+4,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+5,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+0,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+1,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+2,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+3,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+4,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+5,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+0,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+1,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+2,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+3,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+4,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+5,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+0,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+1,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+2,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+3,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+4,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           alltrim(myform1.z11.Caption)                                  Arial                                                         alltrim(myform1.z12.Caption)                                  Arial                                                         alltrim(myform1.z13.Caption)                                  Arial                                                         alltrim(myform1.z14.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+0,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+1,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+2,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+3,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+4,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+5,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+0,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+1,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+2,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+3,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+4,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+5,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+0,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+1,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+2,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+3,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+4,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+5,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+0,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+1,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+2,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+3,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+4,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           alltrim(myform1.z15.Caption)                                  Arial                                                         alltrim(myform1.z16.Caption)                                  Arial                                                         alltrim(myform1.z17.Caption)                                  Arial                                                         alltrim(myform1.z18.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+0,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+1,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+2,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+3,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+4,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+5,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+0,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+1,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+2,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+3,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+4,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           2alltrim(str(round(sicht(1+5,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+0,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+1,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+2,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+3,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+4,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+5,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+0,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+1,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+2,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+3,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+4,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          alltrim(myform1.z19.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+5,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+0,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+1,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+2,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+3,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+4,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          alltrim(myform1.z42.Caption)                                  Arial                                                         alltrim(myform1.z43.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 13) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 13) = 0                                    2alltrim(str(round(sicht(1+1,1+ 14) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 14) = 0                                    alltrim(myform1.z44.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 15) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 15) = 0                                    "Whrend der Arbeitsphase:"                                   Arial                                                         alltrim(myform1.z41.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+2,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+3,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+4,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          "SV-pfl. Anteil an ZV-Umlage"                                 Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+1,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+2,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+3,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+4,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          "S U M M E"                                                   Arial                                                         2alltrim(str(round(sicht(1+1,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+2,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+3,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+4,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+5,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+0,1+ 20) / 100,2),10,2))            Arial                                                         ;"20 %-ige Aufstock.,steuerfr. Progressionsvorbh. 32b EStG"                                                                   Arial                                                         ,alltrim(str(round(wert(1+34) / 100,2),10,2))                  Arial                                                         ("Soweit wie mglich werden die Entgelte"                      Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                '"in der Freistellungsphase mit den fr"                       Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                ("den jeweiligen Zahlungsmonat aktuellen"                      Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                %"Betrgen weitergezahlt (Regelfall)."                         Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                $"Das Wertguthaben wird in der Frei-"                          Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             ("stellungsphase in mtl. gleichen Raten "                      Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             
"ausgekehrt."                                                 Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             G"Aufstockung des Beitrags zur Rentenversicherung durch den Arbeitgeber"                                                       Arial                                                         "Regelarbeitsentgelt"                                         Arial                                                         ."90 % der BBG  als Obergrenze der Aufstockung"                Arial                                                         )"Maximaler Spielraum fr die Aufstockung"                     Arial                                                         -"Aufstockungssoll: 80% des Regelarbeitsgelts"                 Arial                                                         "Somit Aufstockung"                                           Arial                                                         S"bei " + alltrim(str(rvorein * 2,10,2)) + " % RV-Beitrag hat AG zzl. aufzubringen:"                                           Arial                                                         alltrim(str(RVGrenze(1+altesland) / 100,10,2)) + " - " + alltrim(str(sicht(1+6,1+ 0) / 100,10,2))+ " - " + alltrim(str(sicht(1+6,1+ 4) / 100,10,2))+ " = " + alltrim(str(((RVGrenze(1+altesland) - sicht(1+6,1+ 0) - sicht(1+6,1+ 4)) / 100),10,2))           Arial                                                         ."Aufstockung der betriebl. Zusatzversicherung"                Arial                                                         1alltrim(str(round(sicht(1+6,1+ 0) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 1) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 2) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 3) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 4) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 5) / 100,2),10,2))             Arial                                                         "vers.pfl.Entg."                                              Arial                                                         1"Umlage " + alltrim(str(zvkumlageag,10,2)) + " %"             Arial                                                         "aus ATZ-Entgelt"                                             Arial                                                         ,alltrim(str(round(vblz(1+28) / 100,2),10,2))                  Arial                                                         <alltrim(str(round(vblz(1+28) * zvkumlageag / 10000,2),10,2))                                                                  Arial                                                         "Aufstockung auf das 1.8-fache"                               Arial                                                         +alltrim(str(round(vblz(1+7) / 100,2),10,2))                   Arial                                                         ;alltrim(str(round(vblz(1+7) * zvkumlageag / 10000,2),10,2))                                                                   Arial                                                         "also mehr"                                                   Arial                                                         :alltrim(str(round((vblz(1+7) - vblz(1+28)) / 100,2),10,2))                                                                    Arial                                                         Xalltrim(str(round((vblz(1+7) * zvkumlageag - vblz(1+28) * zvkumlageag) / 10000,2),10,2))                                      Arial                                                         G"Vorschau auf die Wirkung des Progressisonsvorbehalts nach  32 b EStG"                                                       Arial                                                         R"(Die zeitliche Streckung der Auszahlung schtzt nicht vor der Steuerprogression)"                                            Arial                                                         	"Entgelt"                                                     Arial                                                         
"Lohnstr."                                                    Arial                                                         "Soli."                                                       Arial                                                         	"Ki-Str."                                                     Arial                                                          "Steuerpflichtiges Monatsgehalt"                              Arial                                                         1alltrim(str(round(sicht(1+7,1+ 0) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 4) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 5) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 6) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 7) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 0) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 14) / 100,2),10,2))            Arial                                                         "+ Aufstockungsbetrag"                                        Arial                                                         %"= magebl. zu versteuerndes Entgelt"                         Arial                                                         "Darauf entfallende Lohnsteuer"                               Arial                                                         "Durchschnittlicher Steuersatz"                               Arial                                                         ""Wird dieser %-Satz angewandt auf"                            Arial                                                         "ergeben sich"                                                Arial                                                         "= Nachbelastung je Steuerart"                                Arial                                                         "= Nachbelastung insgesamt"                                   Arial                                                         2alltrim(str(round(sicht(1+7,1+ 11) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 8) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 12) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 9) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 13) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+7,1+ 10) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 1) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 2) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 3) / 100,2),10,2))             Arial                                                         "%"                                                           Arial                                                         0"Sonstiges Entgelt kann verbeitragt werden bis:"              Arial                                                         4"(" + alltrim(str(wert(1+1) / 100000,6,2)) + " Std)"          Arial                                                         	"Entgelt"                                                     Arial                                                         "davon"                                                       Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         sicht(1+0,1+ 0) > 0                                           	"aus dem"                                                     Arial                                                         
zi(1+22) <> 5                                                 alltrim("Betrge")                                            Arial                                                         
zi(1+22) <> 5                                                 "ATZ-Regel-"                                                  Arial                                                         zi(1+22) = 5                                                  alltrim("arbeits-")                                           Arial                                                         zi(1+22) = 5                                                  4"(" + alltrim(str(wert(1+1) / 200000,6,2)) + " Std)"          Arial                                                         zi(1+22) = 5                                                  "in der Freistellungsphase"                                   Arial                                                         
zi(1+22) <> 5                                                 A"Anwendung des TV-Falter auf das " + alltrim(myform1.z20.caption)                                                             Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                A"Anwendung des TV-FlexAZ auf das " + alltrim(myform1.z20.caption)                                                             Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             $"von " + alltrim(myform1.z0.Caption)                          Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             $"von " + alltrim(myform1.z0.Caption)                          Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                #"Einstellungen in das Wertguthaben"                           Arial                                                         
"Aufzustock."                                                 Arial                                                         
zi(1+22) <> 5                                                 "Berechnung des ATZ-Gehalts"                                  Arial                                                         "Basisentgelt"                                                Arial                                                         
"ATZ-Entgelt"                                                 Arial                                                         zi(1+22) = 5                                                  
"Entnahme"                                                    Arial                                                         
zi(1+22) <> 5                                                 "in der Arbeitsphase"                                         Arial                                                         zi(1+22) = 5                                                  
"lfd.Entgelt"                                                 Arial                                                         "sonstiges"                                                   Arial                                                         "Wertguthaben"                                                Arial                                                         zi(1+22) = 6                                                  	"entgelt"                                                     Arial                                                         zi(1+22) = 5                                                  "Entgeltbezeichnung"                                          Arial                                                         "Steuerfrei"                                                  Arial                                                         alltrim(myform1.z7.Caption)                                   Arial                                                         alltrim(myform1.z8.Caption)                                   Arial                                                         alltrim(myform1.z9.Caption)                                   Arial                                                         alltrim(myform1.z10.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+0,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+1,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+2,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+3,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+4,1+ 0) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 0) > 0                                           1alltrim(str(round(sicht(1+5,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+0,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+1,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+2,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+3,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+4,1+ 1) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 1) > 0                                           1alltrim(str(round(sicht(1+5,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+0,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+1,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+2,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+3,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+4,1+ 2) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 2) > 0                                           1alltrim(str(round(sicht(1+5,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+0,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+1,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+2,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+3,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           1alltrim(str(round(sicht(1+4,1+ 3) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 3) > 0                                           alltrim(myform1.z11.Caption)                                  Arial                                                         alltrim(myform1.z12.Caption)                                  Arial                                                         alltrim(myform1.z13.Caption)                                  Arial                                                         alltrim(myform1.z14.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+0,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+1,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+2,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+3,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+4,1+ 4) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 4) > 0                                           1alltrim(str(round(sicht(1+5,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+0,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+1,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+2,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+3,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+4,1+ 5) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 5) > 0                                           1alltrim(str(round(sicht(1+5,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+0,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+1,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+2,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+3,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+4,1+ 6) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 6) > 0                                           1alltrim(str(round(sicht(1+5,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+0,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+1,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+2,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+3,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           1alltrim(str(round(sicht(1+4,1+ 7) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 7) > 0                                           alltrim(myform1.z15.Caption)                                  Arial                                                         alltrim(myform1.z16.Caption)                                  Arial                                                         alltrim(myform1.z17.Caption)                                  Arial                                                         alltrim(myform1.z18.Caption)                                  Arial                                                         1alltrim(str(round(sicht(1+5,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+0,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+1,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+2,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+3,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+4,1+ 8) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 8) > 0                                           1alltrim(str(round(sicht(1+5,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+0,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+1,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+2,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+3,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           1alltrim(str(round(sicht(1+4,1+ 9) / 100,2),10,2))             Arial                                                         sicht(1+0,1+ 9) > 0                                           2alltrim(str(round(sicht(1+5,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+0,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+1,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+2,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+3,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+4,1+ 10) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 10) > 0                                          2alltrim(str(round(sicht(1+5,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+0,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+1,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+2,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+3,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          2alltrim(str(round(sicht(1+4,1+ 11) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 11) > 0                                          alltrim(myform1.z19.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+5,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+0,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+1,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+2,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+3,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          2alltrim(str(round(sicht(1+4,1+ 12) / 100,2),10,2))            Arial                                                         sicht(1+0,1+ 12) > 0                                          alltrim(myform1.z42.Caption)                                  Arial                                                         alltrim(myform1.z43.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 13) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 13) = 0                                    2alltrim(str(round(sicht(1+1,1+ 14) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 14) = 0                                    alltrim(myform1.z44.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 15) / 100,2),10,2))            Arial                                                         .Not. sicht(1+1,1+ 15) = 0                                    "Whrend der Arbeitsphase:"                                   Arial                                                         alltrim(myform1.z41.Caption)                                  Arial                                                         2alltrim(str(round(sicht(1+1,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+2,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+3,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+4,1+ 17) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          "SV-pfl. Anteil an ZV-Umlage"                                 Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+1,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+2,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 16) > 0                                          2alltrim(str(round(sicht(1+3,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          2alltrim(str(round(sicht(1+4,1+ 16) / 100,2),10,2))            Arial                                                         sicht(1+1,1+ 17) < 0                                          "S U M M E"                                                   Arial                                                         2alltrim(str(round(sicht(1+1,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+2,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+3,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+4,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+5,1+ 20) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+0,1+ 20) / 100,2),10,2))            Arial                                                         ;"20 %-ige Aufstock.,steuerfr. Progressionsvorbh. 32b EStG"                                                                   Arial                                                         ,alltrim(str(round(wert(1+34) / 100,2),10,2))                  Arial                                                         ("Soweit wie mglich werden die Entgelte"                      Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                '"in der Freistellungsphase mit den fr"                       Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                ("den jeweiligen Zahlungsmonat aktuellen"                      Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                %"Betrgen weitergezahlt (Regelfall)."                         Arial                                                         zi(1+4) = 10 .or. zi(1+4) = 18                                $"Das Wertguthaben wird in der Frei-"                          Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             ("stellungsphase in mtl. gleichen Raten "                      Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             
"ausgekehrt."                                                 Arial                                                         !zi(1+4) <> 10 .and. zi(1+4) <> 18                             G"Aufstockung des Beitrags zur Rentenversicherung durch den Arbeitgeber"                                                       Arial                                                         "Regelarbeitsentgelt"                                         Arial                                                         ."90 % der BBG  als Obergrenze der Aufstockung"                Arial                                                         )"Maximaler Spielraum fr die Aufstockung"                     Arial                                                         -"Aufstockungssoll: 80% des Regelarbeitsgelts"                 Arial                                                         "Somit Aufstockung"                                           Arial                                                         S"bei " + alltrim(str(rvorein * 2,10,2)) + " % RV-Beitrag hat AG zzl. aufzubringen:"                                           Arial                                                         alltrim(str(RVGrenze(1+altesland) / 100,10,2)) + " - " + alltrim(str(sicht(1+6,1+ 0) / 100,10,2))+ " - " + alltrim(str(sicht(1+6,1+ 4) / 100,10,2))+ " = " + alltrim(str(((RVGrenze(1+altesland) - sicht(1+6,1+ 0) - sicht(1+6,1+ 4)) / 100),10,2))           Arial                                                         ."Aufstockung der betriebl. Zusatzversicherung"                Arial                                                         1alltrim(str(round(sicht(1+6,1+ 0) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 1) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 2) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 3) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 4) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+6,1+ 5) / 100,2),10,2))             Arial                                                         "vers.pfl.Entg."                                              Arial                                                         1"Umlage " + alltrim(str(zvkumlageag,10,2)) + " %"             Arial                                                         "aus ATZ-Entgelt"                                             Arial                                                         ,alltrim(str(round(vblz(1+28) / 100,2),10,2))                  Arial                                                         <alltrim(str(round(vblz(1+28) * zvkumlageag / 10000,2),10,2))                                                                  Arial                                                         "Aufstockung auf das 1.8-fache"                               Arial                                                         +alltrim(str(round(vblz(1+7) / 100,2),10,2))                   Arial                                                         ;alltrim(str(round(vblz(1+7) * zvkumlageag / 10000,2),10,2))                                                                   Arial                                                         "also mehr"                                                   Arial                                                         :alltrim(str(round((vblz(1+7) - vblz(1+28)) / 100,2),10,2))                                                                    Arial                                                         Xalltrim(str(round((vblz(1+7) * zvkumlageag - vblz(1+28) * zvkumlageag) / 10000,2),10,2))                                      Arial                                                         G"Vorschau auf die Wirkung des Progressisonsvorbehalts nach  32 b EStG"                                                       Arial                                                         R"(Die zeitliche Streckung der Auszahlung schtzt nicht vor der Steuerprogression)"                                            Arial                                                         	"Entgelt"                                                     Arial                                                         
"Lohnstr."                                                    Arial                                                         "Soli."                                                       Arial                                                         	"Ki-Str."                                                     Arial                                                          "Steuerpflichtiges Monatsgehalt"                              Arial                                                         1alltrim(str(round(sicht(1+7,1+ 0) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 4) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 5) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 6) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 7) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 0) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 14) / 100,2),10,2))            Arial                                                         "+ Aufstockungsbetrag"                                        Arial                                                         %"= magebl. zu versteuerndes Entgelt"                         Arial                                                         "Darauf entfallende Lohnsteuer"                               Arial                                                         "Durchschnittlicher Steuersatz"                               Arial                                                         ""Wird dieser %-Satz angewandt auf"                            Arial                                                         "ergeben sich"                                                Arial                                                         "= Nachbelastung je Steuerart"                                Arial                                                         "= Nachbelastung insgesamt"                                   Arial                                                         2alltrim(str(round(sicht(1+7,1+ 11) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 8) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 12) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 9) / 100,2),10,2))             Arial                                                         2alltrim(str(round(sicht(1+7,1+ 13) / 100,2),10,2))            Arial                                                         2alltrim(str(round(sicht(1+7,1+ 10) / 100,2),10,2))            Arial                                                         1alltrim(str(round(sicht(1+7,1+ 1) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 2) / 100,2),10,2))             Arial                                                         1alltrim(str(round(sicht(1+7,1+ 3) / 100,2),10,2))             Arial                                                         "%"                                                           Arial                                                         0"Sonstiges Entgelt kann verbeitragt werden bis:"              Arial                                                         4"(" + alltrim(str(wert(1+1) / 100000,6,2)) + " Std)"          Arial                                                         	"Entgelt"                                                     Arial                                                         "davon"                                                       Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0v   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QH0LPDTC1350717683 1 53           1.000    0.000    0.00082666.000                 F                                                       
     0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QH0LPDTD           9  1                          73855.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTE           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTF           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6270TYUAD1388080988 8  0       24166.66741250.000 1666.667 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F
        WINDOWS _5QH0TPVAY1350725244 8  0       24166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QH0MODHL1350718553 8  0       13750.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QH0MPBS51350718577 8  0       13854.167 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QH0MCH341350718257 7  4        16562.500 5937.50015208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QH0MDNGG1350718287 6           18854.167 6458.333  104.16733125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QH0MEPTX1350718314 7  4         3854.16740833.33332500.00018645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MFN5E1350718337 7  4         3854.16759375.00032500.00020312.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MLQ821350718498 8  0        3854.167 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMC561350718503 8  0        6145.833 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMG4M1350718506 8  0        8125.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MNQPA1350718538 8  0       11458.333 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MUA2P1350718720 8  0    !   16875.000 6354.167 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1               #     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MX4ID1350718778 8  0    $   19583.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               %     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWX1350718810 8  0    &   22708.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWY1350718810 8  0    (   24687.500 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0N0Z0T1350718874 8  0    *    4166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               +     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N1TB21350718896 8  0    ,    4166.66748750.000 1666.66710208.333                   C           -1   -1   -1   -1   -1   -1               -     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351O1350718921 8  0    .    5833.33341250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               /     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351P1350718921 8  0    0    5833.33348750.000 1666.66710208.333                   C           -1   -1   -1   -1   -1   -1               1     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8A1350718964 8  0    2    7500.00041250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               3     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8B1350718964 8  0    4    7500.00048750.000 1666.66710208.333                   C           -1   -1   -1   -1   -1   -1               5     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSY1350718985 8  0    6    9166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSZ1350718985 8  0    8    9166.66748750.000 1666.66710208.333                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0SYTGH1350724571 8  0    :   10833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0THWLC1350725056 8  0    <   12500.00041250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TIIA81350725063 8  0    >   14166.66741250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               ?     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TJFKT1350725092 8  0    @   15833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               A     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FB        WINDOWS _5QH0TKP8G1350725116 8  0    C   17500.00041250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               D     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLAS41350725132 8  0    E   17500.00048750.000 1666.66710312.500                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQO1350725143 8  0    G   19166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               H     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQP1350725143 8  0    I   19166.66748750.000 1666.66710312.500                   C           -1   -1   -1   -1   -1   -1               J     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHD1350725166 8  0    K   20833.33341250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHE1350725166 8  0    M   20833.33348750.000 1666.66710312.500                   C           -1   -1   -1   -1   -1   -1               N     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3F1350725194 8  0    O   22500.00041250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               P     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3G1350725194 8  0    Q   22500.00048750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FS        WINDOWS _5QH0TPVAZ1350725244 8  0    T   24166.66748750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1               U     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FV        WINDOWS _5QH0TR1311350725273 8  0    W   24166.66748750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1               X     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FY        WINDOWS _5QH0TTCF01350725331 8  0    Z   25833.33341250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1               [     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TTCF11350725331 8  0    \   25833.33348750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1               ]     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F^        WINDOWS _5QH0TTCF21350725331 8  0    _   25833.33348750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1               `     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fa        WINDOWS _5QI0LRD2E1350783285 8  0    b   37291.66776770.833 1354.167 1041.667                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0Fd        WINDOWS _5QI0N2KKV1350784450 8  0    e   40000.00034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               f     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N3WEI1350784475 8  0    g   40000.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               h     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N6F9B1350784538 6           39166.66746041.66711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N6JOR1350784541 6           39166.66757708.33311041.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N91EU1350784603 6           39166.66769479.16711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0NB26S1350784654 8  0    i   40000.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               j     1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAM1350784691 8  0    k   41875.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAN1350784691 8  0    m   41875.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJM1350784693 8  0    o   43750.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJN1350784693 8  0    q   43750.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT21350784695 8  0    s   45625.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT31350784695 8  0    u   45625.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NEVZ51350784757 5  0    w   39583.33369895.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               x     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NF8QH1350784758 5  0    y   41041.66769895.833 1666.667 7604.167                               -1   -1   -1   -1   -1   -1               z     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NG1C31350784778 5  0    {   42500.00069895.833 1666.667 8750.000                               -1   -1   -1   -1   -1   -1               |     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NGNNH1350784793 5  0    }   43958.33369895.833 1666.667 6979.167                               -1   -1   -1   -1   -1   -1               ~     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NH8R41350784808 5  0       45520.83369895.833 1666.667 8854.167                               -1   -1   -1   -1   -1   -1                    0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NIUML1350784848 6           48020.833 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NJ1N81350784852 6           50208.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NRYGG1350785202 6           53125.000 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NWBVR1350785322 8  0       50729.167 3020.833 1875.00031562.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0NX2P81350785330 8  0       50729.16734895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NY8LO1350785359 8  0       50729.16746562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NYN1O1350785368 8  0       50729.16758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OQB731350786058 6           50312.50069479.167 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQHHQ1350786062 6           50312.50057708.333 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQOHX1350786066 6           50312.50046041.667 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QL0JKGOV1350977784 8  0       50729.16770104.167 1875.00010416.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFCSW1350785784 6           57708.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OFQHM1350785795 8  0       53645.833 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFQHN1350785795 8  0       53645.83334895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHO1350785795 8  0       53645.83346562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHP1350785795 8  0       53645.83358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OKWGM1350785930 5  0       59895.833 3020.833 1666.66727604.167                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QI0OLUR61350785946 8  0       61979.167 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OLUR71350785946 8  0       61979.16758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OT88D1350786130 6           64270.833 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OTJ2T1350786137 8  0       64687.500 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OTJ2U1350786137 8  0       64687.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OUDED1350786158 8  0       66770.833 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OUDEE1350786158 8  0       66770.83358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OWFYG1350786211 6           68958.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OWOO61350786227 5  0       69791.667 3020.833 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0VVYS01350792857 8  0       48229.16740625.000 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VY7BG1350792908 8  0       48229.16752187.500 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VYDW41350792913 8  0       48229.16763958.333 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0W0E2G1350792967 8  0       48229.16770000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0Y9CQM1350795106 8  0       55625.000 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0YD7JK1350795330 8  0       55625.00034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QL0JL4KL1350977802 8  0       55625.00070000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QL0JZRUU1350978165 6           53229.16769479.167 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K07EK1350978177 6           53229.16757708.333 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K0G4Q1350978183 6           53229.16746041.667 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0VH51C1350989092 5  0       59895.833 3020.833 1666.66714270.833                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QL0VO7GJ1350989267 8  0       61979.16769791.667 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13DTQD1362989776 8  0       29166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13DTQE1362989776 8  0       27500.00048750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13DTQF1362989776 8  0       30833.33341250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13DTQG1362989776 8  0       27500.00041250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5VH13DTQH1362989776 8  0       27500.00048750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13DTQI1362989776 8  0       29166.66748750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13DTQJ1362989776 8  0       30937.50048750.000 1666.667 6354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13EQ711362989799 8  0        4166.66759791.66731354.16712395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13EQ721362989799 8  0        4166.66772604.16731354.167 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _7610VAJWJ151994073710  0           63.000    8.000                                                                                                                                                          F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    4.000   13.000   14.000                                3    0                                        0  9                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                         ("Weitere Aufwendungen des Arbeitgebers:"                      Arial                                                         
myIndexe = 16                                                 AG_Aufw_text                                                  Arial                                                         AG_Aufw_sp3                                                   Arial                                                         summe_AG_Aufw_text                                            Arial                                                         summe_AG_Aufw_sp3                                             Arial                                                         insg_summe_AG_Aufw_text                                       Arial                                                         insg_summe_AG_Aufw_sp3                                        Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         "Personalnebenkosten"                                         Arial                                                         
myIndexe = 12                                                 AG_Aufw_sp4                                                   Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                         ("Weitere Aufwendungen des Arbeitgebers:"                      Arial                                                         
myIndexe = 16                                                 AG_Aufw_text                                                  Arial                                                         AG_Aufw_sp3                                                   Arial                                                         summe_AG_Aufw_text                                            Arial                                                         summe_AG_Aufw_sp3                                             Arial                                                         insg_summe_AG_Aufw_text                                       Arial                                                         insg_summe_AG_Aufw_sp3                                        Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         "Personalnebenkosten"                                         Arial                                                         
myIndexe = 12                                                 AG_Aufw_sp4                                                   Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0x   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QH0LPDTC1350717683 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QH0LPDTD           9  1                          74584.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTE           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTF           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6270UBMCP1388081434 8  0       24166.66741250.000 1666.667 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QH0MPBS51350718577 8  0       13854.167 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QH0MCH341350718257 7  4        16562.500 5937.50015208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QH0MDNGG1350718287 6           18854.167 6458.333  104.16733125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QH0MEPTX1350718314 7  4         3854.16740833.33332500.00018645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MFN5E1350718337 7  4         3854.16759375.00032500.00020312.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MLQ821350718498 8  0        3854.167 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMC561350718503 8  0        6145.833 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMG4M1350718506 8  0        8125.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MNQPA1350718538 8  0       11458.333 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MODHL1350718553 8  0       13750.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MUA2P1350718720 8  0    !   16875.000 6354.167 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1               #     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MX4ID1350718778 8  0    $   19583.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               %     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWX1350718810 8  0    &   22708.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWY1350718810 8  0    (   24687.500 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0N0Z0T1350718874 8  0    *    4166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               +     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N1TB21350718896 8  0    ,    4166.66748541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               -     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351O1350718921 8  0    .    5833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               /     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351P1350718921 8  0    0    5833.33348541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               1     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8A1350718964 8  0    2    7500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               3     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8B1350718964 8  0    4    7500.00048541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               5     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSY1350718985 8  0    6    9166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSZ1350718985 8  0    8    9166.66748541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0SYTGH1350724571 8  0    :   10833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0THWLC1350725056 8  0    <   12500.00041250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TIIA81350725063 8  0    >   14166.66741250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               ?     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TJFKT1350725092 8  0    @   15833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               A     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FB        WINDOWS _5QH0TKP8G1350725116 8  0    C   17500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               D     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLAS41350725132 8  0    E   17500.00048541.667 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQO1350725143 8  0    G   19166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               H     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQP1350725143 8  0    I   19166.66748541.667 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               J     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHD1350725166 8  0    K   20833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHE1350725166 8  0    M   20833.33348541.667 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               N     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3F1350725194 8  0    O   22500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               P     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3G1350725194 8  0    Q   22500.00048541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FS        WINDOWS _5QH0TPVAZ1350725244 8  0    T   24166.66748541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               U     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FV        WINDOWS _5QH0TR1311350725273 8  0    W   24166.66748541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               X     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FY        WINDOWS _5QH0TTCF01350725331 8  0    Z   25833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               [     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TTCF11350725331 8  0    \   25833.33348541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               ]     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F^        WINDOWS _5QH0TTCF21350725331 8  0    _   25833.33348541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               `     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fa        WINDOWS _5QI0LRD2E1350783285 8  0    b   37291.66776770.833 1354.167 1041.667                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0Fd        WINDOWS _5QI0N2KKV1350784450 8  0    e   40000.00034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               f     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N3WEI1350784475 8  0    g   40000.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               h     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N6F9B1350784538 6           39166.66746041.66711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N6JOR1350784541 6           39166.66757708.33311041.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N91EU1350784603 6           39166.66769479.16711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0NB26S1350784654 8  0    i   40000.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               j     1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAM1350784691 8  0    k   41875.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAN1350784691 8  0    m   41875.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJM1350784693 8  0    o   43750.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJN1350784693 8  0    q   43750.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT21350784695 8  0    s   45625.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT31350784695 8  0    u   45625.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NEVZ51350784757 5  0    w   39583.33369895.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               x     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NF8QH1350784758 5  0    y   41041.66769895.833 1666.667 7604.167                               -1   -1   -1   -1   -1   -1               z     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NG1C31350784778 5  0    {   42500.00069895.833 1666.667 8750.000                               -1   -1   -1   -1   -1   -1               |     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NGNNH1350784793 5  0    }   43958.33369895.833 1666.667 6979.167                               -1   -1   -1   -1   -1   -1               ~     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NH8R41350784808 5  0       45520.83369895.833 1666.667 8854.167                               -1   -1   -1   -1   -1   -1                    0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NIUML1350784848 6           48020.833 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NJ1N81350784852 6           50208.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NRYGG1350785202 6           53125.000 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NWBVR1350785322 8  0       50729.167 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0NX2P81350785330 8  0       50729.16734895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NY8LO1350785359 8  0       50729.16746562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NYN1O1350785368 8  0       50729.16758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OQB731350786058 6           50312.50069479.167 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQHHQ1350786062 6           50312.50057708.333 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQOHX1350786066 6           50312.50046041.667 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QL0JKGOV1350977784 8  0       50729.16770104.167 1875.00010416.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFCSW1350785784 6           57708.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OFQHM1350785795 8  0       53645.833 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFQHN1350785795 8  0       53645.83334895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHO1350785795 8  0       53645.83346562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHP1350785795 8  0       53645.83358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OKWGM1350785930 5  0       58854.167 3020.833 1666.66719687.500                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QI0OLUR61350785946 8  0       62708.333 3020.833 1875.00038020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OLUR71350785946 8  0       62708.33358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OT88D1350786130 6           65000.000 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OTJ2T1350786137 8  0       65416.667 3020.833 1875.00038020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OTJ2U1350786137 8  0       65416.66758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OUDED1350786158 8  0       67500.000 3020.833 1875.00054270.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OUDEE1350786158 8  0       67500.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OWFYG1350786211 6           69687.500 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OWOO61350786227 5  0       70520.833 3020.833 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS _5QI0VVYS01350792857 8  0       48229.16740625.000 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VY7BG1350792908 8  0       48229.16752187.500 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VYDW41350792913 8  0       48229.16763958.333 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0W0E2G1350792967 8  0       48229.16770000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0Y9CQM1350795106 8  0       55625.000 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0YD7JK1350795330 8  0       55625.00034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QL0JL4KL1350977802 8  0       55625.00070000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QL0JZRUU1350978165 6           53229.16769479.167 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K07EK1350978177 6           53229.16757708.333 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K0G4Q1350978183 6           53229.16746041.667 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0VO7GJ1350989267 8  0       62708.33369791.667 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0K1PBW1351043750 8  0       62708.33346562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0K301K1351043783 8  0       62708.33341875.000 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0KACOS1351043972 8  0       60625.000 2916.667 1875.00042500.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13GA9Z1362989837 8  0       29166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13GAA01362989837 8  0       27500.00048541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13GAA11362989837 8  0       30833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13GAA21362989837 8  0       27500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5VH13GAA31362989837 8  0       27500.00048541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13GAA41362989837 8  0       29166.66748541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13GAA51362989837 8  0       30937.50048541.667 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13H3H91362989858 8  0        4166.66759791.66731354.16712395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13H3HA1362989858 8  0        4166.66772604.16731354.167 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6270UBMCO1388081434 8  0       24166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VJ0PHV2Q136323858210  0           62.000    8.000                                                                                                                                                          F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    4.000   13.000   14.000                                3    0                                        0  9                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                          "Abzge und sonstige Zahlungen:"                              Arial                                                         
myIndexe = 11                                                 abzge_text                                                   Arial                                                         
abzge_sp3                                                    Arial                                                         summe_abzge_text                                             Arial                                                         summe_abzge_sp3                                              Arial                                                         auszahlung_text                                               Arial                                                         auszahlung_sp3                                                Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         
abzge_sp4                                                    Arial                                                         
abzge_sp2                                                    Arial                                                         
abzge_sp1                                                    Arial                                                         lstausgleich                                                  Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                          "Abzge und sonstige Zahlungen:"                              Arial                                                         
myIndexe = 11                                                 abzge_text                                                   Arial                                                         
abzge_sp3                                                    Arial                                                         summe_abzge_text                                             Arial                                                         summe_abzge_sp3                                              Arial                                                         auszahlung_text                                               Arial                                                         auszahlung_sp3                                                Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         
abzge_sp4                                                    Arial                                                         
abzge_sp2                                                    Arial                                                         
abzge_sp1                                                    Arial                                                         lstausgleich                                                  Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QH0LPDTC1350717683 1 53           1.000    0.000    0.00082666.000                 F                                                       
     0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QH0LPDTD           9  1                          82500.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTE           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTF           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6270UC30G1388081447 8  0       24166.66741250.000 1666.667 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F
        WINDOWS _5QH0MPBS51350718577 8  0       13854.167 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QH0MCH341350718257 7  4        16562.500 5937.50015208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QH0MDNGG1350718287 6           18854.167 6458.333  104.16733125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QH0MEPTX1350718314 7  4         3854.16740833.33332500.00018645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MFN5E1350718337 7  4         3854.16759375.00032500.00020312.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MLQ821350718498 8  0        3854.167 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMC561350718503 8  0        6145.833 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMG4M1350718506 8  0        8125.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MNQPA1350718538 8  0       11458.333 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MODHL1350718553 8  0       13750.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5QH0MUA2P1350718720 8  0       16875.000 6354.167 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MX4ID1350718778 8  0        19583.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               !     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWX1350718810 8  0    "   22708.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWY1350718810 8  0    $   24687.500 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0N0Z0T1350718874 8  0    &    4166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               '     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N1TB21350718896 8  0    (    4166.66748541.667 1666.66710416.667                   C           -1   -1   -1   -1   -1   -1               )     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351O1350718921 8  0    *    5833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               +     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351P1350718921 8  0    ,    5833.33348541.667 1666.66710416.667                   C           -1   -1   -1   -1   -1   -1               -     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8A1350718964 8  0    .    7500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               /     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8B1350718964 8  0    0    7500.00048541.667 1666.66710416.667                   C           -1   -1   -1   -1   -1   -1               1     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSY1350718985 8  0    2    9166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               3     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSZ1350718985 8  0    4    9166.66748541.667 1666.66710416.667                   C           -1   -1   -1   -1   -1   -1               5     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0SYTGH1350724571 8  0    6   10833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0THWLC1350725056 8  0    8   12500.00041250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TIIA81350725063 8  0    :   14166.66741250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TJFKT1350725092 8  0    <   15833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F>        WINDOWS _5QH0TKP8G1350725116 8  0    ?   17500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               @     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLAS41350725132 8  0    A   17500.00048541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               B     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQO1350725143 8  0    C   19166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               D     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQP1350725143 8  0    E   19166.66748541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHD1350725166 8  0    G   20833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               H     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHE1350725166 8  0    I   20833.33348541.667 1666.66710520.833                   C           -1   -1   -1   -1   -1   -1               J     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3F1350725194 8  0    K   22500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3G1350725194 8  0    M   22500.00048541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1               N     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FO        WINDOWS _5QH0TPVAZ1350725244 8  0    P   24166.66748541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1               Q     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FR        WINDOWS _5QH0TR1311350725273 8  0    S   24166.66748541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1               T     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FU        WINDOWS _5QH0TTCF01350725331 8  0    V   25833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1               W     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TTCF11350725331 8  0    X   25833.33348541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1               Y     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FZ        WINDOWS _5QH0TTCF21350725331 8  0    [   25833.33348541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1               \     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F]        WINDOWS _5QI0LRD2E1350783285 8  0    ^   36979.16776770.833 1354.167 1041.667                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F`        WINDOWS _5QI0N2KKV1350784450 8  0    a   39687.50034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N3WEI1350784475 8  0    c   39687.50046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               d     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0N6F9B1350784538 6           38854.16746041.66711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N6JOR1350784541 6           38854.16757708.33311041.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0N91EU1350784603 6           38854.16769479.16711145.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QI0NB26S1350784654 8  0    e   39687.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               f     1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAM1350784691 8  0    g   41562.50046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               h     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCKAN1350784691 8  0    i   41562.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJM1350784693 8  0    k   43437.50046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCNJN1350784693 8  0    m   43437.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT21350784695 8  0    o   45312.50046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NCQT31350784695 8  0    q   45312.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NEVZ51350784757 5  0    s   39270.83369895.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               t     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NF8QH1350784758 5  0    u   40729.16769895.833 1666.667 7604.167                               -1   -1   -1   -1   -1   -1               v     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NG1C31350784778 5  0    w   42187.50069895.833 1666.667 8750.000                               -1   -1   -1   -1   -1   -1               x     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NGNNH1350784793 5  0    y   43645.83369895.833 1666.667 6979.167                               -1   -1   -1   -1   -1   -1               z     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NH8R41350784808 5  0    {   45208.33369895.833 1666.667 8854.167                               -1   -1   -1   -1   -1   -1               |     0  9  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QI0NIUML1350784848 6           47708.333 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NJ1N81350784852 6           49895.833 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NRYGG1350785202 6           52812.500 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0NWBVR1350785322 8  0    }   50416.667 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0NX2P81350785330 8  0       50416.66734895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NY8LO1350785359 8  0       50416.66746562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0NYN1O1350785368 8  0       50416.66758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OQB731350786058 6           50000.00069479.167 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQHHQ1350786062 6           50000.00057708.333 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QI0OQOHX1350786066 6           50000.00046041.667 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5QL0JKGOV1350977784 8  0       50416.66770104.167 1875.00010416.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFCSW1350785784 6           57395.833 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OFQHM1350785795 8  0       53333.333 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OFQHN1350785795 8  0       53333.33334895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHO1350785795 8  0       53333.33346562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OFQHP1350785795 8  0       53333.33358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OKWGM1350785930 5  0       69479.167 3020.833 1666.66727604.167                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QI0OLUR61350785946 8  0       71562.500 3020.833 1875.00037604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OLUR71350785946 8  0       71562.50058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OT88D1350786130 6           73854.167 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0OTJ2T1350786137 8  0       74270.833 3020.833 1875.00037604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OTJ2U1350786137 8  0       74270.83358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OUDED1350786158 8  0       76354.167 3020.833 1875.00037604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0OUDEE1350786158 8  0       76354.16758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0OWFYG1350786211 6           78541.667 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QI0VVYS01350792857 8  0       47916.66740625.000 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VY7BG1350792908 8  0       47916.66752187.500 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0VYDW41350792913 8  0       47916.66763958.333 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QI0W0E2G1350792967 8  0       47916.66770000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0Y9CQM1350795106 8  0       55312.500 3020.833 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QI0YD7JK1350795330 8  0       55312.50034895.833 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         1       0 1  0FTT0 0F         WINDOWS _5QL0JL4KL1350977802 8  0       55312.50070000.000 1875.00010520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  T          0T         0       0 1  0FTT0 0F         WINDOWS _5QL0JZRUU1350978165 6           52916.66769479.167 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K07EK1350978177 6           52916.66757708.333 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0K0G4Q1350978183 6           52916.66746041.667 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QL0VH51C1350989092 5  0       69479.167 3020.833 1666.66714270.833                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QL0VO7GJ1350989267 8  0       71562.50069791.667 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0RMDCR1351050919 5  0       58020.833 3020.833 1666.66719687.500                               -1   -1   -1   -1   -1   -1                    1 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5QM0RMDCS1351050919 8  0       61875.000 3020.833 1875.00037604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0RMDCT1351050919 8  0       61875.00058333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0RMDCU1351050919 6           64166.667 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QM0RMDCV1351050919 8  0       64583.333 3020.833 1875.00037604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0RMDCW1351050919 8  0       64583.33358333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0RMDCX1351050919 8  0       66666.667 3020.833 1875.00054270.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0RMDCY1351050919 8  0       66666.66758333.333 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0RMDCZ1351050919 6           68854.167 3020.833  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QM0RMDD01351050919 8  0       61875.00069791.667 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0RMDD11351050919 8  0       61875.00046562.500 1875.00010729.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0RMDD21351050919 8  0       61875.00041875.000 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QM0RMDD31351050919 8  0       59791.667 2916.667 1875.00042500.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13II7R1362989893 8  0        4166.66759791.66731354.16712395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13II7S1362989893 8  0        4166.66772604.16731354.167 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH13IT8O1362989900 8  0       29166.66741250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13IT8P1362989900 8  0       27500.00048541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13IT8Q1362989900 8  0       30833.33341250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13IT8R1362989900 8  0       27500.00041250.000 1666.667 6875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5VH13IT8S1362989900 8  0       27500.00048541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13IT8T1362989900 8  0       29166.66748541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH13IT8U1362989900 8  0       30937.50048541.667 1666.667 6562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6270UC30F1388081447 8  0       24166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6IT0OJ9B71445747545 5  0       79270.833 2916.667 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS _5VJ0PIB52136323859510  0           62.000    8.000                                                                                                                                                          F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    4.000   13.000   14.000                                3    0                                        0  9                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                         ("Weitere Aufwendungen des Arbeitgebers:"                      Arial                                                         
myIndexe = 16                                                 AG_Aufw_text                                                  Arial                                                         AG_Aufw_sp3                                                   Arial                                                         summe_AG_Aufw_text                                            Arial                                                         summe_AG_Aufw_sp3                                             Arial                                                         insg_summe_AG_Aufw_text                                       Arial                                                         insg_summe_AG_Aufw_sp3                                        Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         "Personalnebenkosten"                                         Arial                                                         
myIndexe = 12                                                 AG_Aufw_sp4                                                   Arial                                                          "Abzge und sonstige Zahlungen:"                              Arial                                                         
myIndexe = 12                                                 abzge_text                                                   Arial                                                         
abzge_sp3                                                    Arial                                                         summe_abzge_text                                             Arial                                                         summe_abzge_sp3                                              Arial                                                         auszahlung_text                                               Arial                                                         auszahlung_sp3                                                Arial                                                         
abzge_sp4                                                    Arial                                                         
abzge_sp2                                                    Arial                                                         
abzge_sp1                                                    Arial                                                         lstausgleich                                                  Arial                                                         eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     " "                                                           Arial                                                         abrechnung_1_vars()                                           sp1_1                                                        Arial                                                         sp2_1                                                        Arial                                                         sp3_1                                                        Arial                                                         sp2_2                                                        Arial                                                         sp3_2                                                        Arial                                                         sp2_3                                                        Arial                                                         sp3_3                                                        Arial                                                         sp2_4                                                        Arial                                                         sp3_4                                                        Arial                                                         "L = steuerpflichtig"                                         Arial Narrow                                                  "S = soz.vers.pflt."                                          Arial Narrow                                                  "Z = ZVK-Umlagepfl."                                          Arial Narrow                                                  "T = Teilzeitfaktor"                                          Arial Narrow                                                  "B = Teilmonatsfaktor"                                        Arial Narrow                                                  bruttozeilen_text                                             Arial                                                         bruttozeilen_sp1                                              Arial                                                         bruttozeilen_sp2                                              Arial                                                         bruttozeilen_sp3                                              Arial                                                         bruttozeilen_sp4                                              Arial                                                         summenzeile_text                                              Arial                                                         summenzeile_sp1                                               Arial                                                         summenzeile_sp2                                               Arial                                                         summenzeile_sp3                                               Arial                                                         ("Weitere Aufwendungen des Arbeitgebers:"                      Arial                                                         
myIndexe = 16                                                 AG_Aufw_text                                                  Arial                                                         AG_Aufw_sp3                                                   Arial                                                         summe_AG_Aufw_text                                            Arial                                                         summe_AG_Aufw_sp3                                             Arial                                                         insg_summe_AG_Aufw_text                                       Arial                                                         insg_summe_AG_Aufw_sp3                                        Arial                                                         >"Die Berechnung dient der Information und ergeht ohne Gewhr."                                                                Arial                                                         euro1                                                         Arial                                                         euro2                                                         Arial                                                         euro3                                                         Arial                                                         lstzeile                                                      Arial                                                         Erweiterung_text                                              Arial                                                         Erweiterung_sp1                                               Arial                                                         Erweiterung_sp4                                               Arial                                                         "Personalnebenkosten"                                         Arial                                                         
myIndexe = 12                                                 AG_Aufw_sp4                                                   Arial                                                          "Abzge und sonstige Zahlungen:"                              Arial                                                         
myIndexe = 12                                                 abzge_text                                                   Arial                                                         
abzge_sp3                                                    Arial                                                         summe_abzge_text                                             Arial                                                         summe_abzge_sp3                                              Arial                                                         auszahlung_text                                               Arial                                                         auszahlung_sp3                                                Arial                                                         
abzge_sp4                                                    Arial                                                         
abzge_sp2                                                    Arial                                                         
abzge_sp1                                                    Arial                                                         lstausgleich                                                  Arial                                                         eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                   0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QM0Y9HLM1351057253 1 53           1.000    0.000    0.000116900.00                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QM0Y9HLN           9  1                          78750.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QM0Y9HLO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QM0Y9HLP           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QN0LAKV3135111041417  0        24583.33339166.66726145.83339895.833                                                                                    1       FFFTF  F       2   F         0             FTT0 0F         WINDOWS _5QM0YFG761351057528 6           65833.333 3750.000  104.167110312.50                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QM0YHM141351057591 8  0        3750.000 3958.333 2187.50068437.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YK0SG1351057650 8  0        4062.50084166.667 1875.00025937.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0YL22E1351057683 8  0        7500.000 4166.667 1875.00032187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0YMA171351057700 8  0        7500.00041666.667 1875.00032187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0YMTDB1351057712 8  0        7500.00079375.000 1875.00030104.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QM0YPK0P1351057780 8  0       10000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQ3KV1351057795 8  0       11666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQDEH1351057801 8  0       13333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQDEI1351057801 8  0    !   15000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               "     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQJ231351057805 8  0    #   16666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               $     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQJ241351057805 8  0    %   18333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               &     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQJ251351057805 8  0    '   20000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               (     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQJ261351057805 8  0    )   21666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               *     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQCV1351057810 8  0    +   23333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               ,     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQCW1351057810 8  0    -   25000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               .     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQCX1351057810 8  0    /   26666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               0     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQCY1351057810 8  0    1   28333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               2     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQCZ1351057810 8  0    3   30000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               4     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQD01351057810 8  0    5   31666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               6     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQD11351057810 8  0    7   33333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               8     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YQQD21351057810 8  0    9   35000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               :     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7VZ1351057821 8  0    ;   36666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               <     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W01351057821 8  0    =   38333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               >     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W11351057821 8  0    ?   40000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               @     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W21351057821 8  0    A   41666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               B     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W31351057821 8  0    C   43333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               D     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W41351057821 8  0    E   45000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W51351057821 8  0    G   46666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               H     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W61351057821 8  0    I   48333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               J     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W71351057821 8  0    K   50000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W81351057821 8  0    M   51666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               N     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7W91351057821 8  0    O   53333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               P     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7WA1351057821 8  0    Q   55000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7WB1351057821 8  0    S   56666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               T     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7WC1351057821 8  0    U   58333.333 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               V     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7WD1351057821 8  0    W   60000.000 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               X     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0YR7WE1351057821 8  0    Y   61666.667 4166.667 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               Z     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJG1351058124 8  0    [   10000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               \     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJH1351058124 8  0    ]   11666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               ^     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJI1351058124 8  0    _   13333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               `     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJJ1351058124 8  0    a   15000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               b     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJK1351058124 8  0    c   16666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               d     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJL1351058124 8  0    e   18333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               f     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJM1351058124 8  0    g   20000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               h     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJN1351058124 8  0    i   21666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               j     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJO1351058124 8  0    k   23333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               l     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJP1351058124 8  0    m   25000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               n     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJQ1351058124 8  0    o   26666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               p     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJR1351058124 8  0    q   28333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               r     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJS1351058124 8  0    s   30000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               t     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJT1351058124 8  0    u   31666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               v     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJU1351058124 8  0    w   33333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               x     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJV1351058124 8  0    y   35000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               z     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJW1351058124 8  0    {   36666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               |     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJX1351058124 8  0    }   38333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               ~     0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJY1351058124 8  0       40000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CJZ1351058124 8  0       41666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK01351058124 8  0       43333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK11351058124 8  0       45000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK21351058124 8  0       46666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK31351058124 8  0       48333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK41351058124 8  0       50000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK51351058124 8  0       51666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK61351058124 8  0       53333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK71351058124 8  0       55000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK81351058124 8  0       56666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CK91351058124 8  0       58333.33330625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CKA1351058124 8  0       60000.00030625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z3CKB1351058124 8  0       61666.66730625.000 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YH61351058263 8  0       10000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YH71351058263 8  0       11666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YH81351058263 8  0       13333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YH91351058263 8  0       15000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHA1351058263 8  0       16666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHB1351058263 8  0       18333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHC1351058263 8  0       20000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHD1351058263 8  0       21666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHE1351058263 8  0       23333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHF1351058263 8  0       25000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHG1351058263 8  0       26666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHH1351058263 8  0       28333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHI1351058263 8  0       30000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHJ1351058263 8  0       31666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHK1351058263 8  0       33333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHL1351058263 8  0       35000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHM1351058263 8  0       36666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHN1351058263 8  0       38333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHO1351058263 8  0       40000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHP1351058263 8  0       41666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHQ1351058263 8  0       43333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHR1351058263 8  0       45000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHS1351058263 8  0       46666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHT1351058263 8  0       48333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHU1351058263 8  0       50000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHV1351058263 8  0       51666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHW1351058263 8  0       53333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHX1351058263 8  0       55000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHY1351058263 8  0       56666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YHZ1351058263 8  0       58333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI01351058263 8  0       60000.00041770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI11351058263 8  0       61666.66741770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI21351058263 8  0       10000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI31351058263 8  0       11666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI41351058263 8  0       13333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI51351058263 8  0       15000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI61351058263 8  0       16666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI71351058263 8  0       18333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI81351058263 8  0       20000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YI91351058263 8  0       21666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIA1351058263 8  0       23333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIB1351058263 8  0       25000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIC1351058263 8  0       26666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIE1351058263 8  0       30000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIF1351058263 8  0       31666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIG1351058263 8  0       33333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIH1351058263 8  0       35000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YII1351058263 8  0       36666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIJ1351058263 8  0       38333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIK1351058263 8  0       40000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIL1351058263 8  0       41666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIM1351058263 8  0      43333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIN1351058263 8  0      45000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIO1351058263 8  0      46666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIP1351058263 8  0      48333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIQ1351058263 8  0    	  50000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               
    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIR1351058263 8  0      51666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIS1351058263 8  0    
  53333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIT1351058263 8  0      55000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIU1351058263 8  0      56666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIV1351058263 8  0      58333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIW1351058263 8  0      60000.00068229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z8YIX1351058263 8  0      61666.66768229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKS1351058275 8  0      10000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKT1351058275 8  0      11666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKU1351058275 8  0      13333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKV1351058275 8  0      15000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKW1351058275 8  0    !  16666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               "    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKX1351058275 8  0    #  18333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               $    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKY1351058275 8  0    %  20000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               &    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DKZ1351058275 8  0    '  21666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               (    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL01351058275 8  0    )  23333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               *    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL11351058275 8  0    +  25000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               ,    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL21351058275 8  0    -  26666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               .    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL31351058275 8  0    /  28333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               0    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL41351058275 8  0    1  30000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               2    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL51351058275 8  0    3  31666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               4    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL61351058275 8  0    5  33333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               6    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL71351058275 8  0    7  35000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               8    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL81351058275 8  0    9  36666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               :    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DL91351058275 8  0    ;  38333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               <    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLA1351058275 8  0    =  40000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               >    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLB1351058275 8  0    ?  41666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               @    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLC1351058275 8  0    A  43333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               B    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLD1351058275 8  0    C  45000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               D    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLE1351058275 8  0    E  46666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               F    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLF1351058275 8  0    G  48333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               H    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLG1351058275 8  0    I  50000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               J    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLH1351058275 8  0    K  51666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               L    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLI1351058275 8  0    M  53333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               N    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLJ1351058275 8  0    O  55000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               P    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLK1351058275 8  0    Q  56666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               R    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLL1351058275 8  0    S  58333.33379270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               T    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLM1351058275 8  0    U  60000.00079270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               V    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLN1351058275 8  0    W  61666.66779270.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1               X    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLO1351058275 8  0    Y  10000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               Z    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLP1351058275 8  0    [  11666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               \    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLQ1351058275 8  0    ]  13333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               ^    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLR1351058275 8  0    _  15000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               `    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLS1351058275 8  0    a  16666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               b    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLT1351058275 8  0    c  18333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               d    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLU1351058275 8  0    e  20000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               f    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLV1351058275 8  0    g  21666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               h    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLW1351058275 8  0    i  23333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               j    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLX1351058275 8  0    k  25000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               l    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLY1351058275 8  0    m  26666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               n    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DLZ1351058275 8  0    o  28333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               p    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM01351058275 8  0    q  30000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               r    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM11351058275 8  0    s  31666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               t    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM21351058275 8  0    u  33333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               v    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM31351058275 8  0    w  35000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               x    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM41351058275 8  0    y  36666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               z    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM51351058275 8  0    {  38333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               |    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM61351058275 8  0    }  40000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1               ~    0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM71351058275 8  0      41666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM81351058275 8  0      43333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DM91351058275 8  0      45000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMA1351058275 8  0      46666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMB1351058275 8  0      48333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMC1351058275 8  0      50000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMD1351058275 8  0      51666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DME1351058275 8  0      53333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMF1351058275 8  0      55000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMG1351058275 8  0      56666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMH1351058275 8  0      58333.333105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMI1351058275 8  0      60000.000105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QM0Z9DMJ1351058275 8  0      61666.667105729.17 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0JVXS81351109142 8  0      66666.667 4166.667 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JVXS91351109142 8  0      68645.833 4166.667 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JVXSA1351109142 8  0      66666.66730625.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QN0JVXSB1351109142 8  0      68645.83330625.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QN0JW7AG1351109148 8  0      66666.66741770.833 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JW7AH1351109148 8  0      68645.83341770.833 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JW7AI1351109148 8  0      70625.00041770.833 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JW7AJ1351109148 8  0      66666.66768229.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QN0JW7AK1351109148 8  0      68645.83368229.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QN0JW7AL1351109148 8  0      70625.00068229.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QN0JWPFS1351109162 8  0      66666.66779270.833 1875.00026875.000                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JWPFT1351109162 8  0      68645.83379270.833 1875.00026875.000                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JWPFU1351109162 8  0      70625.00079270.833 1875.00026875.000                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JWPFV1351109162 8  0      72604.16779270.833 1875.00026875.000                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JWPFW1351109162 8  0      74583.33379270.833 1875.00026875.000                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QN0JWPFX1351109162 8  0      66666.667106562.50 1875.000 6979.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0JWPFY1351109162 8  0      68645.833106562.50 1875.000 6979.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0JWPFZ1351109162 8  0      70625.000106562.50 1875.000 6979.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0JWPG01351109162 8  0      72604.167106562.50 1875.000 6979.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0JWPG11351109162 8  0      74583.333106562.50 1875.000 6979.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5QN0K4RG31351109362 6           36666.667 3229.167  104.16737083.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K4VHX1351109364 6           40000.000 3229.167  104.16737083.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K52O91351109369 6           13333.33340312.500  104.16736250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K5MWV1351109384 6           16666.66740312.500  104.16736250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K5Z731351109392 6           13333.33340312.50026666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QN0K6NHJ1351109410 6           13333.33378229.167  104.16736875.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K6NHK1351109410 6           15000.00078229.167  104.16736875.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K7L5R1351109432 6           50000.000 3229.167  104.16736875.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K7L5S1351109432 6           51666.667 3229.167  104.16736875.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QN0K8SX11351109462 6           50104.16740104.167 1562.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QN0K9R091351109486 6           13437.50078229.16712291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QM0Z8YID1351058263 8  0      28333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5V40QBEQQ1362125334 8  0      70625.000 4166.667 1875.00025729.167                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V40QBEQR1362125334 8  0      70625.00030625.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _6770Z39781400406730 8  0      63333.33341770.833 1770.83325729.167                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6770Z39791400406730 8  0      63333.33368229.167 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                       0  8                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                       1 10                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                          "icons\anlage_schrge_linie.jpg"anlage_schrge_linie.jpg"                                                                     ber1                                                         Arial                                                         	berdatum                                                     Arial                                                         ber_atv                                                      Arial                                                         ber_steuern                                                  Arial                                                         ber_sozvers                                                  Arial                                                         atv_z1                                                        Arial Narrow                                                  atv_z2                                                        Arial Narrow                                                  atv_z3                                                        Arial Narrow                                                  atv_z4                                                        Arial Narrow                                                  atv_z5                                                        Arial Narrow                                                  atv_z6                                                        Arial Narrow                                                  atv_z7                                                        Arial Narrow                                                  atv_z8                                                        Arial Narrow                                                  atv_z9                                                        Arial Narrow                                                  atv_z10                                                       Arial Narrow                                                  atv_z11                                                       Arial Narrow                                                  atv_z12                                                       Arial Narrow                                                  atv_z13                                                       Arial Narrow                                                  atv_z14                                                       Arial Narrow                                                  atv_z15                                                       Arial Narrow                                                  atv_z16                                                       Arial Narrow                                                  atv_z17                                                       Arial Narrow                                                  atv_z18                                                       Arial Narrow                                                  atv_z19                                                       Arial Narrow                                                  atv_z20                                                       Arial Narrow                                                  atv_z21                                                       Arial Narrow                                                  atv_z22                                                       Arial Narrow                                                  atv_z23                                                       Arial Narrow                                                  atv_z24                                                       Arial Narrow                                                  atv_z25                                                       Arial Narrow                                                  atv_z26                                                       Arial Narrow                                                  atv_z27                                                       Arial Narrow                                                  atv_z28                                                       Arial Narrow                                                  atv_z29                                                       Arial Narrow                                                  atv_z30                                                       Arial Narrow                                                  atv_z31                                                       Arial Narrow                                                  atv_z32                                                       Arial Narrow                                                  atv_w1                                                        Arial Narrow                                                  atv_w2                                                        Arial Narrow                                                  atv_w3                                                        Arial Narrow                                                  atv_w4                                                        Arial Narrow                                                  atv_w5                                                        Arial Narrow                                                  atv_w6                                                        Arial Narrow                                                  atv_w7                                                        Arial Narrow                                                  atv_w8                                                        Arial Narrow                                                  atv_w9                                                        Arial Narrow                                                  atv_w10                                                       Arial Narrow                                                  atv_w11                                                       Arial Narrow                                                  atv_w12                                                       Arial Narrow                                                  atv_w13                                                       Arial Narrow                                                  atv_w14                                                       Arial Narrow                                                  atv_w15                                                       Arial Narrow                                                  atv_w16                                                       Arial Narrow                                                  atv_w17                                                       Arial Narrow                                                  atv_w18                                                       Arial Narrow                                                  atv_w19                                                       Arial Narrow                                                  atv_w20                                                       Arial Narrow                                                  atv_w21                                                       Arial Narrow                                                  atv_w22                                                       Arial Narrow                                                  atv_w23                                                       Arial Narrow                                                  atv_w24                                                       Arial Narrow                                                  atv_w25                                                       Arial Narrow                                                  atv_w26                                                       Arial Narrow                                                  atv_w27                                                       Arial Narrow                                                  atv_w28                                                       Arial Narrow                                                  atv_w29                                                       Arial Narrow                                                  atv_w30                                                       Arial Narrow                                                  atv_w31                                                       Arial Narrow                                                  atv_w32                                                       Arial Narrow                                                  st_z1                                                         Arial Narrow                                                  st_z2                                                         Arial Narrow                                                  st_z3                                                         Arial Narrow                                                  st_z4                                                         Arial Narrow                                                  st_z5                                                         Arial Narrow                                                  st_z6                                                         Arial Narrow                                                  st_z7                                                         Arial Narrow                                                  st_z8                                                         Arial Narrow                                                  st_z9                                                         Arial Narrow                                                  st_z10                                                        Arial Narrow                                                  st_z11                                                        Arial Narrow                                                  st_z12                                                        Arial Narrow                                                  st_z13                                                        Arial Narrow                                                  st_z14                                                        Arial Narrow                                                  st_z15                                                        Arial Narrow                                                  st_z16                                                        Arial Narrow                                                  st_z17                                                        Arial Narrow                                                  st_z18                                                        Arial Narrow                                                  st_z19                                                        Arial Narrow                                                  st_z20                                                        Arial Narrow                                                  st_z21                                                        Arial Narrow                                                  st_z22                                                        Arial Narrow                                                  st_z23                                                        Arial Narrow                                                  st_z24                                                        Arial Narrow                                                  st_z25                                                        Arial Narrow                                                  st_z26                                                        Arial Narrow                                                  st_z27                                                        Arial Narrow                                                  st_z28                                                        Arial Narrow                                                  st_z29                                                        Arial Narrow                                                  st_z30                                                        Arial Narrow                                                  st_z31                                                        Arial Narrow                                                  st_z32                                                        Arial Narrow                                                  st_w1                                                         Arial Narrow                                                  st_w2                                                         Arial Narrow                                                  st_w3                                                         Arial Narrow                                                  st_w4                                                         Arial Narrow                                                  st_w5                                                         Arial Narrow                                                  st_w6                                                         Arial Narrow                                                  st_w7                                                         Arial Narrow                                                  st_w8                                                         Arial Narrow                                                  st_w9                                                         Arial Narrow                                                  st_w10                                                        Arial Narrow                                                  st_w11                                                        Arial Narrow                                                  st_w13                                                        Arial Narrow                                                  st_w14                                                        Arial Narrow                                                  st_w15                                                        Arial Narrow                                                  st_w16                                                        Arial Narrow                                                  st_w17                                                        Arial Narrow                                                  st_w18                                                        Arial Narrow                                                  st_w19                                                        Arial Narrow                                                  st_w20                                                        Arial Narrow                                                  st_w21                                                        Arial Narrow                                                  st_w22                                                        Arial Narrow                                                  st_w23                                                        Arial Narrow                                                  st_w24                                                        Arial Narrow                                                  st_w25                                                        Arial Narrow                                                  st_w26                                                        Arial Narrow                                                  st_w27                                                        Arial Narrow                                                  st_w28                                                        Arial Narrow                                                  st_w29                                                        Arial Narrow                                                  st_w30                                                        Arial Narrow                                                  st_w31                                                        Arial Narrow                                                  st_w32                                                        Arial Narrow                                                  soz_z1                                                        Arial Narrow                                                  soz_z2                                                        Arial Narrow                                                  soz_z3                                                        Arial Narrow                                                  soz_z4                                                        Arial Narrow                                                  soz_z5                                                        Arial Narrow                                                  soz_z6                                                        Arial Narrow                                                  soz_z7                                                        Arial Narrow                                                  soz_z8                                                        Arial Narrow                                                  soz_z9                                                        Arial Narrow                                                  soz_z10                                                       Arial Narrow                                                  soz_z11                                                       Arial Narrow                                                  soz_z12                                                       Arial Narrow                                                  soz_z13                                                       Arial Narrow                                                  soz_z14                                                       Arial Narrow                                                  soz_z15                                                       Arial Narrow                                                  soz_z16                                                       Arial Narrow                                                  soz_z17                                                       Arial Narrow                                                  soz_z18                                                       Arial Narrow                                                  soz_z19                                                       Arial Narrow                                                  soz_z20                                                       Arial Narrow                                                  soz_z21                                                       Arial Narrow                                                  soz_z22                                                       Arial Narrow                                                  soz_z23                                                       Arial Narrow                                                  soz_z24                                                       Arial Narrow                                                  soz_z25                                                       Arial Narrow                                                  soz_z26                                                       Arial Narrow                                                  soz_z27                                                       Arial Narrow                                                  soz_z28                                                       Arial Narrow                                                  soz_z29                                                       Arial Narrow                                                  soz_z30                                                       Arial Narrow                                                  soz_z31                                                       Arial Narrow                                                  soz_z32                                                       Arial Narrow                                                  soz_w1                                                        Arial Narrow                                                  soz_w2                                                        Arial Narrow                                                  soz_w3                                                        Arial Narrow                                                  soz_w4                                                        Arial Narrow                                                  soz_w5                                                        Arial Narrow                                                  soz_w6                                                        Arial Narrow                                                  soz_w7                                                        Arial Narrow                                                  soz_w8                                                        Arial Narrow                                                  soz_w9                                                        Arial Narrow                                                  soz_w10                                                       Arial Narrow                                                  soz_w11                                                       Arial Narrow                                                  soz_w12                                                       Arial Narrow                                                  soz_w13                                                       Arial Narrow                                                  soz_w14                                                       Arial Narrow                                                  soz_w15                                                       Arial Narrow                                                  soz_w16                                                       Arial Narrow                                                  soz_w17                                                       Arial Narrow                                                  soz_w18                                                       Arial Narrow                                                  soz_w19                                                       Arial Narrow                                                  soz_w20                                                       Arial Narrow                                                  soz_w21                                                       Arial Narrow                                                  soz_w22                                                       Arial Narrow                                                  soz_w23                                                       Arial Narrow                                                  soz_w24                                                       Arial Narrow                                                  soz_w25                                                       Arial Narrow                                                  soz_w26                                                       Arial Narrow                                                  soz_w27                                                       Arial Narrow                                                  soz_w28                                                       Arial Narrow                                                  soz_w29                                                       Arial Narrow                                                  soz_w30                                                       Arial Narrow                                                  soz_w31                                                       Arial Narrow                                                  soz_w32                                                       Arial Narrow                                                  atv_z33                                                       Arial Narrow                                                  atv_z34                                                       Arial Narrow                                                  atv_w33                                                       Arial Narrow                                                  atv_w34                                                       Arial Narrow                                                  st_z34                                                        Arial Narrow                                                  st_z35                                                        Arial Narrow                                                  st_z36                                                        Arial Narrow                                                  st_w34                                                        Arial Narrow                                                  st_w35                                                        Arial Narrow                                                  st_w36                                                        Arial Narrow                                                  soz_z33                                                       Arial Narrow                                                  soz_z34                                                       Arial Narrow                                                  soz_z35                                                       Arial Narrow                                                  soz_z36                                                       ""                                                            Arial Narrow                                                  soz_z37                                                       Arial Narrow                                                  soz_w33                                                       Arial Narrow                                                  soz_w34                                                       Arial Narrow                                                  soz_w35                                                       Arial Narrow                                                  soz_w36                                                       Arial Narrow                                                  soz_w37                                                       Arial Narrow                                                  st_w12                                                        Arial Narrow                                                  atv_z35                                                       Arial Narrow                                                  atv_w35                                                       Arial Narrow                                                  st_z33                                                        Arial Narrow                                                  st_w33                                                        Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         9"..\..\..\..\..\pc-gehalt\icons\anlage_schrge_linie.jpg"                                                                     ber1                                                         Arial                                                         	berdatum                                                     Arial                                                         ber_atv                                                      Arial                                                         ber_steuern                                                  Arial                                                         ber_sozvers                                                  Arial                                                         atv_z1                                                        Arial Narrow                                                  atv_z2                                                        Arial Narrow                                                  atv_z3                                                        Arial Narrow                                                  atv_z4                                                        Arial Narrow                                                  atv_z5                                                        Arial Narrow                                                  atv_z6                                                        Arial Narrow                                                  atv_z7                                                        Arial Narrow                                                  atv_z8                                                        Arial Narrow                                                  atv_z9                                                        Arial Narrow                                                  atv_z10                                                       Arial Narrow                                                  atv_z11                                                       Arial Narrow                                                  atv_z12                                                       Arial Narrow                                                  atv_z13                                                       Arial Narrow                                                  atv_z14                                                       Arial Narrow                                                  atv_z15                                                       Arial Narrow                                                  atv_z16                                                       Arial Narrow                                                  atv_z17                                                       Arial Narrow                                                  atv_z18                                                       Arial Narrow                                                  atv_z19                                                       Arial Narrow                                                  atv_z20                                                       Arial Narrow                                                  atv_z21                                                       Arial Narrow                                                  atv_z22                                                       Arial Narrow                                                  atv_z23                                                       Arial Narrow                                                  atv_z24                                                       Arial Narrow                                                  atv_z25                                                       Arial Narrow                                                  atv_z26                                                       Arial Narrow                                                  atv_z27                                                       Arial Narrow                                                  atv_z28                                                       Arial Narrow                                                  atv_z29                                                       Arial Narrow                                                  atv_z30                                                       Arial Narrow                                                  atv_z31                                                       Arial Narrow                                                  atv_z32                                                       Arial Narrow                                                  atv_w1                                                        Arial Narrow                                                  atv_w2                                                        Arial Narrow                                                  atv_w3                                                        Arial Narrow                                                  atv_w4                                                        Arial Narrow                                                  atv_w5                                                        Arial Narrow                                                  atv_w6                                                        Arial Narrow                                                  atv_w7                                                        Arial Narrow                                                  atv_w8                                                        Arial Narrow                                                  atv_w9                                                        Arial Narrow                                                  atv_w10                                                       Arial Narrow                                                  atv_w11                                                       Arial Narrow                                                  atv_w12                                                       Arial Narrow                                                  atv_w13                                                       Arial Narrow                                                  atv_w14                                                       Arial Narrow                                                  atv_w15                                                       Arial Narrow                                                  atv_w16                                                       Arial Narrow                                                  atv_w17                                                       Arial Narrow                                                  atv_w18                                                       Arial Narrow                                                  atv_w19                                                       Arial Narrow                                                  atv_w20                                                       Arial Narrow                                                  atv_w21                                                       Arial Narrow                                                  atv_w22                                                       Arial Narrow                                                  atv_w23                                                       Arial Narrow                                                  atv_w24                                                       Arial Narrow                                                  atv_w25                                                       Arial Narrow                                                  atv_w26                                                       Arial Narrow                                                  atv_w27                                                       Arial Narrow                                                  atv_w28                                                       Arial Narrow                                                  atv_w29                                                       Arial Narrow                                                  atv_w30                                                       Arial Narrow                                                  atv_w31                                                       Arial Narrow                                                  atv_w32                                                       Arial Narrow                                                  st_z1                                                         Arial Narrow                                                  st_z2                                                         Arial Narrow                                                  st_z3                                                         Arial Narrow                                                  st_z4                                                         Arial Narrow                                                  st_z5                                                         Arial Narrow                                                  st_z6                                                         Arial Narrow                                                  st_z7                                                         Arial Narrow                                                  st_z8                                                         Arial Narrow                                                  st_z9                                                         Arial Narrow                                                  st_z10                                                        Arial Narrow                                                  st_z11                                                        Arial Narrow                                                  st_z12                                                        Arial Narrow                                                  st_z13                                                        Arial Narrow                                                  st_z14                                                        Arial Narrow                                                  st_z15                                                        Arial Narrow                                                  st_z16                                                        Arial Narrow                                                  st_z17                                                        Arial Narrow                                                  st_z18                                                        Arial Narrow                                                  st_z19                                                        Arial Narrow                                                  st_z20                                                        Arial Narrow                                                  st_z21                                                        Arial Narrow                                                  st_z22                                                        Arial Narrow                                                  st_z23                                                        Arial Narrow                                                  st_z24                                                        Arial Narrow                                                  st_z25                                                        Arial Narrow                                                  st_z26                                                        Arial Narrow                                                  st_z27                                                        Arial Narrow                                                  st_z28                                                        Arial Narrow                                                  st_z29                                                        Arial Narrow                                                  st_z30                                                        Arial Narrow                                                  st_z31                                                        Arial Narrow                                                  st_z32                                                        Arial Narrow                                                  st_w1                                                         Arial Narrow                                                  st_w2                                                         Arial Narrow                                                  st_w3                                                         Arial Narrow                                                  st_w4                                                         Arial Narrow                                                  st_w5                                                         Arial Narrow                                                  st_w6                                                         Arial Narrow                                                  st_w7                                                         Arial Narrow                                                  st_w8                                                         Arial Narrow                                                  st_w9                                                         Arial Narrow                                                  st_w10                                                        Arial Narrow                                                  st_w11                                                        Arial Narrow                                                  st_w13                                                        Arial Narrow                                                  st_w14                                                        Arial Narrow                                                  st_w15                                                        Arial Narrow                                                  st_w16                                                        Arial Narrow                                                  st_w17                                                        Arial Narrow                                                  st_w18                                                        Arial Narrow                                                  st_w19                                                        Arial Narrow                                                  st_w20                                                        Arial Narrow                                                  st_w21                                                        Arial Narrow                                                  st_w22                                                        Arial Narrow                                                  st_w23                                                        Arial Narrow                                                  st_w24                                                        Arial Narrow                                                  st_w25                                                        Arial Narrow                                                  st_w26                                                        Arial Narrow                                                  st_w27                                                        Arial Narrow                                                  st_w28                                                        Arial Narrow                                                  st_w29                                                        Arial Narrow                                                  st_w30                                                        Arial Narrow                                                  st_w31                                                        Arial Narrow                                                  st_w32                                                        Arial Narrow                                                  soz_z1                                                        Arial Narrow                                                  soz_z2                                                        Arial Narrow                                                  soz_z3                                                        Arial Narrow                                                  soz_z4                                                        Arial Narrow                                                  soz_z5                                                        Arial Narrow                                                  soz_z6                                                        Arial Narrow                                                  soz_z7                                                        Arial Narrow                                                  soz_z8                                                        Arial Narrow                                                  soz_z9                                                        Arial Narrow                                                  soz_z10                                                       Arial Narrow                                                  soz_z11                                                       Arial Narrow                                                  soz_z12                                                       Arial Narrow                                                  soz_z13                                                       Arial Narrow                                                  soz_z14                                                       Arial Narrow                                                  soz_z15                                                       Arial Narrow                                                  soz_z16                                                       Arial Narrow                                                  soz_z17                                                       Arial Narrow                                                  soz_z18                                                       Arial Narrow                                                  soz_z19                                                       Arial Narrow                                                  soz_z20                                                       Arial Narrow                                                  soz_z21                                                       Arial Narrow                                                  soz_z22                                                       Arial Narrow                                                  soz_z23                                                       Arial Narrow                                                  soz_z24                                                       Arial Narrow                                                  soz_z25                                                       Arial Narrow                                                  soz_z26                                                       Arial Narrow                                                  soz_z27                                                       Arial Narrow                                                  soz_z28                                                       Arial Narrow                                                  soz_z29                                                       Arial Narrow                                                  soz_z30                                                       Arial Narrow                                                  soz_z31                                                       Arial Narrow                                                  soz_z32                                                       Arial Narrow                                                  soz_w1                                                        Arial Narrow                                                  soz_w2                                                        Arial Narrow                                                  soz_w3                                                        Arial Narrow                                                  soz_w4                                                        Arial Narrow                                                  soz_w5                                                        Arial Narrow                                                  soz_w6                                                        Arial Narrow                                                  soz_w7                                                        Arial Narrow                                                  soz_w8                                                        Arial Narrow                                                  soz_w9                                                        Arial Narrow                                                  soz_w10                                                       Arial Narrow                                                  soz_w11                                                       Arial Narrow                                                  soz_w12                                                       Arial Narrow                                                  soz_w13                                                       Arial Narrow                                                  soz_w14                                                       Arial Narrow                                                  soz_w15                                                       Arial Narrow                                                  soz_w16                                                       Arial Narrow                                                  soz_w17                                                       Arial Narrow                                                  soz_w18                                                       Arial Narrow                                                  soz_w19                                                       Arial Narrow                                                  soz_w20                                                       Arial Narrow                                                  soz_w21                                                       Arial Narrow                                                  soz_w22                                                       Arial Narrow                                                  soz_w23                                                       Arial Narrow                                                  soz_w24                                                       Arial Narrow                                                  soz_w25                                                       Arial Narrow                                                  soz_w26                                                       Arial Narrow                                                  soz_w27                                                       Arial Narrow                                                  soz_w28                                                       Arial Narrow                                                  soz_w29                                                       Arial Narrow                                                  soz_w30                                                       Arial Narrow                                                  soz_w31                                                       Arial Narrow                                                  soz_w32                                                       Arial Narrow                                                  atv_z33                                                       Arial                                                         atv_z34                                                       Arial                                                         atv_w33                                                       Arial                                                         atv_w34                                                       Arial                                                         st_z34                                                        Arial                                                         st_z35                                                        Arial                                                         st_z36                                                        Arial                                                         st_w34                                                        Arial                                                         st_w35                                                        Arial                                                         st_w36                                                        Arial                                                         soz_z33                                                       Arial                                                         soz_z34                                                       Arial                                                         soz_z35                                                       Arial                                                         soz_z36                                                       ""                                                            Arial                                                         soz_z37                                                       Arial                                                         soz_w33                                                       Arial                                                         soz_w34                                                       Arial                                                         soz_w35                                                       Arial                                                         soz_w36                                                       Arial                                                         soz_w37                                                       Arial                                                         st_w12                                                        Arial Narrow                                                  atv_z35                                                       Arial                                                         atv_w35                                                       Arial                                                         st_z33                                                        Arial Narrow                                                  st_w33                                                        Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QH0LPDTC1350717683 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5QH0LPDTD           9  1                          71667.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTE           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QH0LPDTF           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0OP01A1445747689 5  0       68750.000 6458.333 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6270V7PAV1388082232 8  0       24166.66741250.000 1666.667 6979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QN0X77ZK1351121837 7  4        38229.167 6041.667 2083.33374062.500                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QH0TZ3CW1350725476 8  0       29166.66741250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QH0TUUNO1350725369 8  0       27500.00048333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QH0TZYJO1350725496 8  0       30833.33341250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QH0MPBS51350718577 8  0       13854.167 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F!        WINDOWS _5QH0MCH341350718257 7  4        16562.500 5937.50015208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5QH0MDNGG1350718287 6           18854.167 6458.333  104.16733125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QH0MEPTX1350718314 7  4         3854.16740833.33332500.00018645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MFN5E1350718337 7  4         3854.16759375.00032500.00020312.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5QH0MLQ821350718498 8  0    "    3854.167 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1               #     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMC561350718503 8  0    $    6145.833 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MMG4M1350718506 8  0    &    8125.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MNQPA1350718538 8  0    (   11458.333 6770.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1               )     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MODHL1350718553 8  0    *   13750.000 6770.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               +     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F,        WINDOWS _5QH0MUA2P1350718720 8  0    -   16875.000 6354.167 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1               /     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0MX4ID1350718778 8  0    0   19583.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               1     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWX1350718810 8  0    2   22708.333 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               3     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0MYPWY1350718810 8  0    4   24687.500 6458.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               5     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QH0N0Z0T1350718874 8  0    6    4166.66741250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N1TB21350718896 8  0    8    4166.66748333.333 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351O1350718921 8  0    :    5833.33341250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N351P1350718921 8  0    <    5833.33348333.333 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8A1350718964 8  0    >    7500.00041250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               ?     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N4V8B1350718964 8  0    @    7500.00048333.333 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               A     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSY1350718985 8  0    B    9166.66741250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               C     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0N5PSZ1350718985 8  0    D    9166.66748333.333 1666.66710625.000                   C           -1   -1   -1   -1   -1   -1               E     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0SYTGH1350724571 8  0    F   10833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               G     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0THWLC1350725056 8  0    H   12500.00041250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               I     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TIIA81350725063 8  0    J   14166.66741250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               K     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TJFKT1350725092 8  0    L   15833.33341250.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1               M     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FN        WINDOWS _5QH0TKP8G1350725116 8  0    O   17500.00041250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               P     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLAS41350725132 8  0    Q   17500.00048333.333 1666.66710729.167                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQO1350725143 8  0    S   19166.66741250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               T     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TLSQP1350725143 8  0    U   19166.66748333.333 1666.66710729.167                   C           -1   -1   -1   -1   -1   -1               V     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHD1350725166 8  0    W   20833.33341250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               X     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TMOHE1350725166 8  0    Y   20833.33348333.333 1666.66710729.167                   C           -1   -1   -1   -1   -1   -1               Z     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3F1350725194 8  0    [   22500.00041250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               \     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TNT3G1350725194 8  0    ]   22500.00048333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               _     0  8  1 0     FFFTF  F          2T         0       0 1  0TTT0 0F`        WINDOWS _5QH0TPVAZ1350725244 8  0    a   24166.66748333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               b     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fc        WINDOWS _5QH0TR1311350725273 8  0    d   24166.66748333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               e     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Ff        WINDOWS _5QH0TTCF01350725331 8  0    g   25833.33341250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               h     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TTCF11350725331 8  0    i   25833.33348333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               j     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fk        WINDOWS _5QH0TTCF21350725331 8  0    l   25833.33348333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               m     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fn        WINDOWS _5QH0TUUNM1350725369 8  0    o   27500.00041250.000 1666.667 6666.667                   C           -1   -1   -1   -1   -1   -1               p     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QH0TUUNN1350725369 8  0    q   27500.00048333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               r     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fs        WINDOWS _5QH0TZ3CX1350725476 8  0    t   29166.66748333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1               u     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0Fv        WINDOWS _5QI0LRD2E1350783285 8  0    w   36666.66777708.333 1354.167 1041.667                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0Fy        WINDOWS _5QN0X8FSI1351121867 7  4        42916.667 5937.500 2083.33374062.500                               -1   -1   -1  242  242  242    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0X9D2K1351121891 7  4        59583.333 5937.500 2083.33374062.500                               -1   -1   -1  242  242  242    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0XAP2M1351121924 7  4        47604.167 5937.500 2083.33374062.500                               -1   -1   -1  242  242  242    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0XC3ZO1351121959 7  4        50312.500 5937.500 2083.33374062.500                               -1   -1   -1  255  255  255    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0XCX0E1351121977 7  4        55000.000 5937.500 2083.33374062.500                               -1   -1   -1  255  255  255    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0XFMIE1351122045 7  4        66250.000 5937.500 2083.33374062.500                               -1   -1   -1  242  242  242    1    8    1            0       TFFFF  F                     0             FTT0 0F         WINDOWS _5QN0XJ7QC1351122157 8  0    z   38333.333 6666.667 1875.00024895.833                   C           -1   -1   -1   -1   -1   -1               {     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QN0XX9CO1351122484 8  0    |   38333.33332500.000 1875.000 7395.833                   C           -1   -1   -1   -1   -1   -1               }     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0Y0FDE1351122564 8  0    ~   38333.33341041.667 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0Y1R6S1351122597 8  0       38333.33349375.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0Y3ZMW1351122651 8  0       38333.33369479.167 1875.00010104.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0YM85E1351123242 8  0       40520.833 6666.667 1875.00024895.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QN0YR2MI1351123354 8  0       40520.83332500.000 1875.000 7395.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0YR2MJ1351123354 8  0       40520.83341041.667 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0YR2MK1351123354 8  0       40520.83349375.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QN0YR2ML1351123354 8  0       40520.83358541.667 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QN0YR2MM1351123354 8  0       40520.83370208.333 1875.000 9375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0LV94J1351176582 8  0       43020.833 6666.667 1875.00050208.333                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QO0LXG1D1351176635 8  0       47708.333 6666.667 1875.00049895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QO0MZ6IV1351177575 8  0       45208.333 6666.667 1875.00024895.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QO0MZ6IW1351177575 8  0       45208.33332500.000 1875.000 7395.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0MZ6IX1351177575 8  0       45208.33341041.667 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0MZ6IY1351177575 8  0       45208.33349375.000 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0MZ6J01351177575 8  0       45208.33370208.333 1875.000 9375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0N0LRL1351177610 8  0       52604.167 6666.667 1875.00024895.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QO0N0LRM1351177610 8  0       52604.16732500.000 1875.000 7395.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0N0LRN1351177610 8  0       52604.16741250.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0N0LRO1351177610 8  0       52604.16750208.333 1875.000 7500.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0N0LRP1351177610 8  0       52604.16760416.667 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QO0N0LRQ1351177610 8  0       52604.16770208.333 1875.000 9375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0LM6X81351241892 8  0       47708.33369479.167 1875.00010104.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0LY0TS1351242189 5  0       50520.833 6562.500 1666.66710104.167                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0LYQQ01351242210 5  0       50520.83331666.667 1666.667 8020.833                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0LZLBE1351242226 5  0       50520.83341666.667 1666.667 6666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0M0BS61351242245 5  0       50520.83349687.500 1666.667 8125.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0M0Z8M1351242260 5  0       50520.83360208.333 1666.667 8333.333                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MSD561351242940 5  0       55208.33331875.000 1666.667 7812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MSD571351242940 5  0       55208.33341666.667 1666.667 7083.333                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MSD581351242940 5  0       55208.33350312.500 1666.667 7812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MSD591351242940 5  0       55208.33361979.167 1666.667 6562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MSKZE1351242947 5  0       55208.333 6562.500 1666.66724375.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5QP0MVIDU1351243019 8  0       57291.667 6666.667 1875.00024895.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP0MVIDV1351243019 8  0       57291.66732500.000 1875.000 7395.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0MVIDW1351243019 8  0       57291.66741250.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0MVIDX1351243019 8  0       57291.66750208.333 1875.000 7500.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0MVIDY1351243019 8  0       57291.66760416.667 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP0MVIDZ1351243019 8  0       57291.66770208.333 1875.000 9375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP152M6W1351260472 8  0       59687.500 6666.667 1875.00049895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP1538T21351260488 8  0       59687.50069479.167 1875.00010104.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP155KNE1351260547 8  0       61875.000 6666.667 1875.00061770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP157POG1351260599 8  0       63958.333 6666.667 1875.00061875.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP157POL1351260599 8  0       63958.33370208.333 1875.000 9375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP15QW5G1351261076 8  0       66354.167 6666.667 1875.00018854.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP15RA3Y1351261085 8  0       66354.16769479.167 1875.00010104.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QP15V0V31351261184 8  0       66354.16726354.167 1875.00021562.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QP15VA951351261186 8  0       66354.16750937.500 1875.00016145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VG10KR7Q1362921596 8  0       30937.50048333.333 1666.667 6770.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5VH0OL6HT1362975634 8  0        4166.66759791.66731354.16712395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH0OMHH41362975658 8  0        4166.66772604.16731354.167 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VH11JYGV1362988009 8  0       40520.83361250.000 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VH11K56O1362988013 8  0       40520.83363854.167 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VH11K56P1362988013 8  0       40520.83366562.500 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VH11M1961362988061 5  0       38437.50058437.500 1666.667 2187.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VH11M6AB1362988068 5  0       38437.50061250.000 1666.667 1875.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5VH11MJFY1362988073 5  0       38437.50063854.167 1666.667 1666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VH11MUWH1362988081 5  0       38437.50066562.500 1666.667 1979.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VJ0XPHW51363246451 8  0       45208.33358541.667 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VJ0XPHW61363246451 8  0       45208.33361250.000 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VJ0XPHW71363246451 8  0       45208.33363854.167 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5VJ0XPHW81363246451 8  0       45208.33366562.500 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0F         WINDOWS _6270V7PAU1388082232 8  0       24166.66741250.000 1666.667 7812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                       0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                       1 10                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         ""                                                            Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  " "                                                           Arial                                                         abrechnung_1_vars()                                           eb1_1                                                        Arial                                                         eb1_2                                                        Arial                                                         eb1_3                                                        Arial                                                         eb1_4                                                        Arial                                                         eb1_6                                                        Arial                                                         eb2_text                                                      Arial                                                         eb2_w2                                                        Arial                                                         eb2_w3                                                        Arial                                                         eb2_w4                                                        Arial                                                         eb2_w5_1                                                      Arial                                                         eb2_w6                                                        Arial                                                         eb3_1                                                        Arial                                                         eb4_1                                                        Arial                                                         eb3_text                                                      Arial                                                         eb3_w2                                                        Arial                                                         eb3_w3                                                        Arial                                                         eb3_w4                                                        Arial                                                         eb3_w6                                                        Arial                                                         eb5_text                                                      Arial                                                         eb5_w2                                                        Arial                                                         eb5_w3                                                        Arial                                                         eb5_w4                                                        Arial                                                         eb5_w5                                                        Arial                                                         eb5_w6                                                        Arial                                                         eb4_6                                                        Arial                                                         " - S T E U E R N"                                            Arial                                                         "str.pfl.Entgelt"                                             Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli-Zuschlag"                                               Arial                                                         "Kirchensteuer"                                               Arial                                                         "Krankenvers."                                                Arial                                                         
"Rentenvers."                                                 Arial                                                         "Arbeitsl.vers."                                              Arial                                                         
"Pflegevers."                                                 Arial                                                         *" - S O Z I A L V E R S . B E I T R  G E"                    Arial                                                         eb6_text                                                      Arial                                                         eb6_w2                                                        Arial                                                         eb6_w3                                                        Arial                                                         eb6_w4                                                        Arial                                                         eb6_w5                                                        Arial                                                         eb6_w6                                                        Arial                                                         eb7_1                                                        Arial                                                         eb7_6                                                        Arial                                                         eb7_2                                                        Arial                                                         eb7_text                                                      Arial                                                         eb7_w6                                                        Arial                                                         eb8_1                                                        Arial                                                         eb8_6                                                        Arial                                                         eb8_2                                                        Arial                                                         eb8_3                                                        Arial                                                         report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         eb2_w5_2                                                      Arial                                                         eb2_w5_3                                                      Arial                                                         eb2_w5_4                                                      Arial                                                         "Str."                                                        Arial                                                         "SV"                                                          Arial                                                         "ZV"                                                          Arial                                                         "GB"                                                          Arial                                                         eb3_w5_1                                                      Arial                                                         eb3_w5_2                                                      Arial                                                         eb3_w5_3                                                      Arial                                                         eb3_w5_4                                                      Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         "Gleitzone"                                                   Arial                                                         Cctod(iif(empty(ditext6),dtoc(date()),ditext6)) < ctod("01.07.2019")                                                           
"SV-Schl."                                                    Arial                                                         zi(1+4) >= 8                                                  "Nein"                                                        Arial                                                         wert(1+29) = 0                                                	"Eheg.D"                                                     Arial                                                         zi(1+4) < 8                                                   !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         alltrim(myform1.z20.Caption)                                  Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         
"Pers.Nr."                                                    Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         
"Vers.Nr."                                                    Arial                                                         /allTrim(wnw.SVNummer1) + allTrim(wnw.SVNummer2)               Arial                                                         "Steuer-ID"                                                   Arial                                                         allTrim(wnw.ztext3)                                           Arial                                                         "Einzugsst."                                                  Arial                                                         )substr(alltrim(myform1.z46.Caption),1,15)                     Arial                                                         report_tarifetc()                                             Arial                                                         alltrim(myform1.z5.Caption)                                   Arial                                                         alltrim(myform1.z6.Caption)                                   Arial                                                         alltrim(wnw.ztext7)                                           Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  	"Geb.tag"                                                     Arial                                                         
wnw.ztext0                                                    Arial                                                         
"Eintritt"                                                    Arial                                                         
wnw.ztext1                                                    Arial                                                         "Stuf.LZ.ab"                                                  Arial                                                         
wnw.ztext2                                                    Arial                                                         	"Wo.Std."                                                     Arial                                                         %alltrim(str(wert(1+1) / 100000,10,2))                         ""                                                            Arial                                                         zi(1+21) = 0                                                  "JA"                                                          Arial                                                         zi(1+52) = 2 .or. zi(1+52) = 9                                "Nein"                                                        Arial                                                         !zi(1+52) <> 2 .and. zi(1+52) <> 9                             "Ki.los PV"                                                   Arial                                                         "JA"                                                          Arial                                                         INLIST(zi(1+26), 2, 3, 5, 6, 7)                               "Nein"                                                        Arial                                                         INLIST(zi(1+26), 0, 1, 4)                                     
"Mehrf.B."                                                    Arial                                                         "JA"                                                          Arial                                                         wert(1+29) > 0                                                report_svSchl_eheg()                                          Arial                                                         zi(1+4) >= 8                                                  " "                                                           Arial                                                         abrechnung_1_vars()                                           eb1_1                                                        Arial                                                         eb1_2                                                        Arial                                                         eb1_3                                                        Arial                                                         eb1_4                                                        Arial                                                         eb1_6                                                        Arial                                                         eb2_text                                                      Arial                                                         eb2_w2                                                        Arial                                                         eb2_w3                                                        Arial                                                         eb2_w4                                                        Arial                                                         eb2_w5_1                                                      Arial                                                         eb2_w6                                                        Arial                                                         eb3_1                                                        Arial                                                         eb4_1                                                        Arial                                                         eb3_text                                                      Arial                                                         eb3_w2                                                        Arial                                                         eb3_w3                                                        Arial                                                         eb3_w4                                                        Arial                                                         eb3_w6                                                        Arial                                                         eb5_text                                                      Arial                                                         eb5_w2                                                        Arial                                                         eb5_w3                                                        Arial                                                         eb5_w4                                                        Arial                                                         eb5_w5                                                        Arial                                                         eb5_w6                                                        Arial                                                         eb4_6                                                        Arial                                                         " - S T E U E R N"                                            Arial                                                         "str.pfl.Entgelt"                                             Arial                                                         "Lohnsteuer"                                                  Arial                                                         "Soli-Zuschlag"                                               Arial                                                         "Kirchensteuer"                                               Arial                                                         "Krankenvers."                                                Arial                                                         
"Rentenvers."                                                 Arial                                                         "Arbeitsl.vers."                                              Arial                                                         
"Pflegevers."                                                 Arial                                                         *" - S O Z I A L V E R S . B E I T R  G E"                    Arial                                                         eb6_text                                                      Arial                                                         eb6_w2                                                        Arial                                                         eb6_w3                                                        Arial                                                         eb6_w4                                                        Arial                                                         eb6_w5                                                        Arial                                                         eb6_w6                                                        Arial                                                         eb7_1                                                        Arial                                                         eb7_6                                                        Arial                                                         eb7_2                                                        Arial                                                         eb7_text                                                      Arial                                                         eb7_w6                                                        Arial                                                         eb8_1                                                        Arial                                                         eb8_6                                                        Arial                                                         eb8_2                                                        Arial                                                         eb8_3                                                        Arial                                                         report_svSchl_eheg()                                          Arial                                                         zi(1+4) < 8                                                   eb_k1                                                         Arial                                                         eb_k2                                                         Arial                                                         eb2_w5_2                                                      Arial                                                         eb2_w5_3                                                      Arial                                                         eb2_w5_4                                                      Arial                                                         "Str."                                                        Arial                                                         "SV"                                                          Arial                                                         "ZV"                                                          Arial                                                         "GB"                                                          Arial                                                         eb3_w5_1                                                      Arial                                                         eb3_w5_2                                                      Arial                                                         eb3_w5_3                                                      Arial                                                         eb3_w5_4                                                      Arial                                                         
"bergangsb."                                                 Arial                                                         Dctod(iif(empty(ditext6),dtoc(date()),ditext6)) >= ctod("01.07.2019")                                                          Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               09   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QT0YMFE31351516453 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QT0YMFE4           9  1                          43438.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QT0YMFE5           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QT0YMFE6           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QT0YO4QQ1351516506 5  0        3854.167 2500.000 2083.33343333.333                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QT0YPEJ21351516529 8  0        6041.667 2500.000 2083.333111666.67                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QT0YQ0GS1351516541 8  0        8125.000 2500.000 2083.33345729.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QT0YQHXY1351516554 8  0       12916.667 2500.000 2083.33345729.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QT0YR5DA1351516572 5  0       17395.833 2500.000 1562.500 4166.667                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QT0YRTOA1351516587 6           19062.500 2500.000  104.167112083.33                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5QT0YS0ZM1351516604 8  0       19583.33310208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YSU4I1351516613 8  0       19583.33315208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT04M1351516616 8  0       19583.33320208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT04N1351516616 8  0       19583.33325208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT8L21351516622 8  0    !   19583.33330208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               "     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT8L31351516622 8  0    #   19583.33335208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               $     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT8L41351516622 8  0    %   19583.33340208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               &     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YT8L51351516622 8  0    '   19583.33345208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               (     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLK1351516682 8  0    )   19583.33350208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               *     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLL1351516682 8  0    +   19583.33355208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               ,     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLM1351516682 8  0    -   19583.33360208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               .     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLN1351516682 8  0    /   19583.33365208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               0     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLO1351516682 8  0    1   19583.33370208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               2     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLP1351516682 8  0    3   19583.33375208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               4     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLQ1351516682 8  0    5   19583.33380208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               6     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0YVNLR1351516682 8  0    7   19583.33385208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               8     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0Z084W1351516795 8  0    9   19583.33390208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               :     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0Z084X1351516795 8  0    ;   19583.33395208.333 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               <     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0Z084Y1351516795 8  0    =   19583.333100208.33 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               >     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0Z084Z1351516795 8  0    ?   19583.333105208.33 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               @     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0Z1MG01351516832 5  0    A   17395.83312395.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               B     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z25341351516844 5  0    C   17395.83317395.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               D     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z2FNO1351516850 5  0    E   17395.83322291.667 1562.500  520.833                               -1   -1   -1   -1   -1   -1               F     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z2FNP1351516850 5  0    G   17395.83327291.667 1562.500  520.833                               -1   -1   -1   -1   -1   -1               H     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z37IH1351516871 5  0    I   17395.83332291.667 1562.500  520.833                               -1   -1   -1   -1   -1   -1               J     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z37II1351516871 5  0    K   17395.83337291.667 1562.500  520.833                               -1   -1   -1   -1   -1   -1               L     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z37IJ1351516871 5  0    M   17395.83342187.500 1562.500  520.833                               -1   -1   -1   -1   -1   -1               N     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z37IK1351516871 5  0    O   17395.83347187.500 1562.500  520.833                               -1   -1   -1   -1   -1   -1               P     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AG51351516898 5  0    Q   17395.83352395.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AG61351516898 5  0    S   17395.83357395.833 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AG71351516898 5  0    U   17395.83362291.667 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AG81351516898 5  0    W   17395.83367291.667 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AG91351516898 5  0    Y   17395.83372291.667 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               Z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AGA1351516898 5  0    [   17395.83377291.667 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               \     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AGB1351516898 5  0    ]   17395.83382187.500 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               ^     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z4AGC1351516898 5  0    _   17395.83387187.500 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               `     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z5RB71351516934 5  0    a   17395.83391875.000 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z5RB81351516934 5  0    c   17395.83396875.000 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z5RB91351516934 5  0    e   17395.833101770.83 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0Z5RBA1351516934 5  0    g   17395.833106770.83 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT0ZRVOE1351517484 8  0    i   19583.333110208.33 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               j     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QT0ZRVOF1351517484 5  0    k   17395.833111770.83 1562.500 1041.667                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QT12HRKM1351520048 8  0    m   19583.333 2500.000 1770.833 7500.000                   C           -1   -1   -1   -1   -1   -1               n     0  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   o     0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   p     1 12                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                   q     0 12                                                     F               WINDOWS                     25   r   s                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  -"PC-Programm GEHLTER IM FFENTLICHEN DIENST"                 Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         "Datensatz"                                                   Arial Narrow                                                  sp1                                                           Arial Narrow                                                  sp2                                                           Arial Narrow                                                  sp3                                                           Arial Narrow                                                  sp4                                                           Arial Narrow                                                  sp5                                                           Arial Narrow                                                  sp6                                                           Arial Narrow                                                  sp7                                                           Arial Narrow                                                  sp8                                                           Arial Narrow                                                  sp9                                                           Arial Narrow                                                  sp10                                                          Arial Narrow                                                  sp11                                                          Arial Narrow                                                  sp12                                                          Arial Narrow                                                  sp13                                                          Arial Narrow                                                  sp14                                                          Arial Narrow                                                  sp15                                                          Arial Narrow                                                  sp16                                                          Arial Narrow                                                  sp17                                                          Arial Narrow                                                  sp18                                                          Arial Narrow                                                  sp19                                                          Arial Narrow                                                  sp20                                                          Arial Narrow                                                  "1"                                                           Arial Narrow                                                  "2"                                                           Arial Narrow                                                  "3"                                                           Arial Narrow                                                  "4"                                                           Arial Narrow                                                  "5"                                                           Arial Narrow                                                  "6"                                                           Arial Narrow                                                  "7"                                                           Arial Narrow                                                  "8"                                                           Arial Narrow                                                  "9"                                                           Arial Narrow                                                  "10"                                                          Arial Narrow                                                  "11"                                                          Arial Narrow                                                  "12"                                                          Arial Narrow                                                  "13"                                                          Arial Narrow                                                  "14"                                                          Arial Narrow                                                  "15"                                                          Arial Narrow                                                  "16"                                                          Arial Narrow                                                  "17"                                                          Arial Narrow                                                  "18"                                                          Arial Narrow                                                  "19"                                                          Arial Narrow                                                  "20"                                                          Arial Narrow                                                  sp21                                                          Arial Narrow                                                  "21"                                                          Arial Narrow                                                  sp0                                                           Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  -"PC-Programm GEHLTER IM FFENTLICHEN DIENST"                 Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         "Datensatz"                                                   Arial Narrow                                                  sp1                                                           Arial Narrow                                                  sp2                                                           Arial Narrow                                                  sp3                                                           Arial Narrow                                                  sp4                                                           Arial Narrow                                                  sp5                                                           Arial Narrow                                                  sp6                                                           Arial Narrow                                                  sp7                                                           Arial Narrow                                                  sp8                                                           Arial Narrow                                                  sp9                                                           Arial Narrow                                                  sp10                                                          Arial Narrow                                                  sp11                                                          Arial Narrow                                                  sp12                                                          Arial Narrow                                                  sp13                                                          Arial Narrow                                                  sp14                                                          Arial Narrow                                                  sp15                                                          Arial Narrow                                                  sp16                                                          Arial Narrow                                                  sp17                                                          Arial Narrow                                                  sp18                                                          Arial Narrow                                                  sp19                                                          Arial Narrow                                                  sp20                                                          Arial Narrow                                                  "1"                                                           Arial Narrow                                                  "2"                                                           Arial Narrow                                                  "3"                                                           Arial Narrow                                                  "4"                                                           Arial Narrow                                                  "5"                                                           Arial Narrow                                                  "6"                                                           Arial Narrow                                                  "7"                                                           Arial Narrow                                                  "8"                                                           Arial Narrow                                                  "9"                                                           Arial Narrow                                                  "10"                                                          Arial Narrow                                                  "11"                                                          Arial Narrow                                                  "12"                                                          Arial Narrow                                                  "13"                                                          Arial Narrow                                                  "14"                                                          Arial Narrow                                                  "15"                                                          Arial Narrow                                                  "16"                                                          Arial Narrow                                                  "17"                                                          Arial Narrow                                                  "18"                                                          Arial Narrow                                                  "19"                                                          Arial Narrow                                                  "20"                                                          Arial Narrow                                                  sp21                                                          Arial Narrow                                                  "21"                                                          Arial Narrow                                                  sp0                                                           Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5QU0LNJFP1351569603      /  F      ]                                                       WINDOWS _5QU0LNJFQ1430476476                      x                                               WINDOWS _5QU0LNJFR1351570789H	      U	  b	  p	  }	                                                           WINDOWS _5QU0LNJFS1351570789
      +
  @
  P
  ]
      
  
                                               WINDOWS _5QU0LNJFT1360222385                   W  &                                               WINDOWS _5QU0LNJFU1351570789                  %                                                 WINDOWS _5QU0LNJFV1351570789      
    0  =                                                       WINDOWS _5QU0LNJFW1351570789                    1                                               WINDOWS _5QU0LNJFX1360222385        '  7  D                                                       WINDOWS _5QU0LNJFY1351570789                                                                       WINDOWS _5QU0LNJFZ1351570789i      y                                                                 WINDOWS _5QU0LNJG01399156363        +  ;  H                                                        WINDOWS _5QU0LNJG11351570789          !  !  %!      !  !                                               WINDOWS _5QU0LNJG21351570789"      "  "  "  "      U#  #                                               WINDOWS _5QU0LNJG31351570789f$      {$  $  $  $      %  Z%                                               WINDOWS _5QU0LNJG41351570789,&      A&  V&  j&  w&      &   '                                               WINDOWS _5QU0LNJG51351570789'      (  (  0(  =(      (  (                                               WINDOWS _5QU0LNJG61351570789)      )  )  )  *      m*  *                                               WINDOWS _5QU0LNJG71351570789~+      +  +  +  +      3,  r,                                               WINDOWS _5QU0LNJG81351570789D-      Y-  n-  -  -      -  8.                                               WINDOWS _5QU0LNJG91351570789
/      /  4/  H/  U/      /  /                                               WINDOWS _5QU0LNJGA13515707890      0  0  1  1      1  1                                               WINDOWS _5QU0LNJGB13515707892      2  2  2  2      R3  3                                               WINDOWS _5QU0LNJGC1351570789d4      y4  4  4  4      5  \5                                               WINDOWS _5QU0LNJGD1351570789.6      ;6  H6  V6  c6                                                           WINDOWS _5QU0LNJGE13515707896      6  6  7  7                                                           WINDOWS _5T80L71PH13575328437  7  7  7  7  7                                                           COMMENT RESERVED                                r8                                                            8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 3
Height = 455
Width = 929
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Umschichten der Tarifdateien"
ControlBox = .T.
ClipControls = .T.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     sPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
PUBLIC mytarifekopieren
mytarifekopieren = thisform
DO tarifekopieren
*vorherige dateien schlieen
FOR xaa = 41 TO 52
	USE
next


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
                                   0   %   
      V     (            U    C     U  THISFORM SIZER	 FRMRESIZE %    
$  T      7 
 T       )(4^  Q  %       T C     T  
 T  
   	 
  T         T        
     T  
 a U  THISFORM TOP MYTARIFEKOPIEREN TARIFEKOPIEREN XAA HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 AA q  q rA A   A    1                       ,         G   h      )                           label      label      Label1      FORM1      FontBold = .T.
FontSize = 16
Caption = "Selektives Kopieren der Tarifdateien"
Height = 24
Left = 39
Top = 24
Width = 375
Name = "Label1"
      
commandbutton      
commandbutton      Command1      FORM1      ZTop = 12
Left = 677
Height = 51
Width = 211
Caption = "Schlieen"
Name = "Command1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            combobox      combobox      	quelljahr      FORM1      OHeight = 24
Left = 39
Style = 2
Top = 116
Width = 294
Name = "quelljahr"
     PROCEDURE InteractiveChange

this.click

ENDPROC
PROCEDURE Click
thisform.Quelltabelle.Clear
For i = 1 To 12
	thisform.Quelltabelle.AddItem(thisform.Quelljahr.value + "_" + STR(i,2,0) + "er Tarife")
Next
thisform.Quelltabelle.ListIndex = 1
*thisform.Quelltabelle.Visible = True

If startflag = True
	Return
Endif

thisform.Zieljahr.ListIndex = thisform.Quelljahr.ListIndex


ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
     \    C  C                        9O   %   v                       U  
 
     U  THIS CLICK 
       ([ 7 C     _C  Z	 er Tarife      T     % 	   B  T  
       U  THISFORM QUELLTABELLE CLEAR I ADDITEM	 QUELLJAHR VALUE	 LISTINDEX	 STARTFLAG TRUE ZIELJAHR
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChangeX    1  3  qqA 1A A 4  1                       +         G        
           )   C                        combobox      combobox      quelltabelle      FORM1      RHeight = 24
Left = 39
Style = 2
Top = 177
Width = 294
Name = "quelltabelle"
      PROCEDURE InteractiveChange
If startflag = True
	Return
Endif

ENDPROC
PROCEDURE Click
If startflag = True
	Return
Endif
ENDPROC
     <    #  #                        h(   %             	                U    %     B  U 	 STARTFLAG TRUE  %     B  U 	 STARTFLAG TRUE InteractiveChange,      Click]     1 A A 3 A A 1                       B         ^          )   #                        combobox      combobox      quellgebiet      FORM1      QHeight = 24
Left = 39
Style = 2
Top = 241
Width = 294
Name = "quellgebiet"
     PROCEDURE InteractiveChange
If startflag = True
	Return
Endif

thisform.Zielgebiet.ListIndex = thisform.Quellgebiet.ListIndex
ENDPROC
PROCEDURE Click
If startflag = True
	Return
Endif

thisform.Zielgebiet.ListIndex = thisform.Quellgebiet.ListIndex
ENDPROC
                                   2   %         \     F            U  5  %     B  T       U 	 STARTFLAG TRUE THISFORM
 ZIELGEBIET	 LISTINDEX QUELLGEBIET5  %     B  T       U 	 STARTFLAG TRUE THISFORM
 ZIELGEBIET	 LISTINDEX QUELLGEBIET InteractiveChange,      Click     1 A A 2 A A 1                                         )                           combobox      combobox      quelldienst      FORM1      QHeight = 24
Left = 39
Style = 2
Top = 303
Width = 294
Name = "quelldienst"
     PROCEDURE InteractiveChange
If startflag = True
	Return
Endif

thisform.Zieldienst.ListIndex = thisform.Quelldienst.ListIndex
ENDPROC
PROCEDURE Click
If startflag = True
	Return
Endif

thisform.Zieldienst.ListIndex = thisform.Quelldienst.ListIndex
ENDPROC
                                   2   %         \     F            U  5  %     B  T       U 	 STARTFLAG TRUE THISFORM
 ZIELDIENST	 LISTINDEX QUELLDIENST5  %     B  T       U 	 STARTFLAG TRUE THISFORM
 ZIELDIENST	 LISTINDEX QUELLDIENST InteractiveChange,      Click     1 A A 2 A A 1                                         )                           combobox      combobox      zieljahr      FORM1      OHeight = 24
Left = 348
Style = 2
Top = 116
Width = 294
Name = "zieljahr"
     ,PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
For i = 1 To 12
	xxx = ALLTRIM(STR(i,2,0))
	thisform.Zieltabelle&xxx..Caption = "nach " + ALLTRIM(thisform.Zieljahr.value) + "_" + xxx + "er Tarife kopieren"
NEXT



ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                      %         x  
   d            U  
 
     U  THIS CLICK    (  T CC   Zu thisform.Zieltabelle&xxx..Caption = "nach " + ALLTRIM(thisform.Zieljahr.value) + "_" + xxx + "er Tarife kopieren"
  U  I XXX
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChange     1  2 qqQA 5  1                       '         C              !  
    )                           combobox      combobox      
zielgebiet      FORM1      QHeight = 24
Left = 348
Style = 2
Top = 241
Width = 294
Name = "zielgebiet"
      combobox      combobox      
zieldienst      FORM1      QHeight = 24
Left = 348
Style = 2
Top = 303
Width = 294
Name = "zieldienst"
      
commandbutton      
commandbutton      Command2      FORM1      xTop = 164
Left = 348
Height = 55
Width = 295
Caption = "Alle 12 Monate kopieren"
Enabled = .F.
Name = "Command2"
      8PROCEDURE Click
DO zieltabelle_click WITH 13
ENDPROC
                                         %   S       h      b             U   
   
 U  ZIELTABELLE_CLICK Click,     1  1                       -       )                            
commandbutton      
commandbutton      zieltabelle1      FORM1      bTop = 118
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle1"
Name = "zieltabelle1"
      7PROCEDURE Click
DO zieltabelle_click WITH 1
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle2      FORM1      bTop = 145
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle2"
Name = "zieltabelle2"
      7PROCEDURE Click
DO zieltabelle_click WITH 2
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle3      FORM1      bTop = 172
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle3"
Name = "zieltabelle3"
      7PROCEDURE Click
DO zieltabelle_click WITH 3
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle4      FORM1      bTop = 199
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle4"
Name = "zieltabelle4"
      7PROCEDURE Click
DO zieltabelle_click WITH 4
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle5      FORM1      bTop = 226
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle5"
Name = "zieltabelle5"
      7PROCEDURE Click
DO zieltabelle_click WITH 5
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle6      FORM1      bTop = 253
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle6"
Name = "zieltabelle6"
      7PROCEDURE Click
DO zieltabelle_click WITH 6
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle7      FORM1      bTop = 280
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle7"
Name = "zieltabelle7"
      7PROCEDURE Click
DO zieltabelle_click WITH 7
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle8      FORM1      bTop = 307
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle8"
Name = "zieltabelle8"
      7PROCEDURE Click
DO zieltabelle_click WITH 8
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      zieltabelle9      FORM1      bTop = 334
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle9"
Name = "zieltabelle9"
      7PROCEDURE Click
DO zieltabelle_click WITH 9
ENDPROC
                                         %   S       h      b             U   
   	 U  ZIELTABELLE_CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      
zieltabelle10      FORM1      dTop = 361
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle10"
Name = "zieltabelle10"
      8PROCEDURE Click
DO zieltabelle_click WITH 10
ENDPROC
                                         %   S       h      b             U   
   
 U  ZIELTABELLE_CLICK Click,     1  1                       -       )                            
commandbutton      
commandbutton      
zieltabelle11      FORM1      dTop = 388
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle11"
Name = "zieltabelle11"
      8PROCEDURE Click
DO zieltabelle_click WITH 11
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       -       )                            
commandbutton      
commandbutton      
zieltabelle12      FORM1      dTop = 415
Left = 669
Height = 25
Width = 226
Caption = "zieltabelle12"
Name = "zieltabelle12"
      8PROCEDURE Click
DO zieltabelle_click WITH 12
ENDPROC
                                         %   S       h      b             U   
    U  ZIELTABELLE_CLICK Click,     1  1                       -       )                            label      label      Label2      FORM1      rFontBold = .T.
FontSize = 16
Caption = "Quelle"
Height = 24
Left = 39
Top = 81
Width = 87
Name = "Label2"
      label      label      Label3      FORM1      qFontBold = .T.
FontSize = 16
Caption = "Ziel"
Height = 24
Left = 348
Top = 81
Width = 87
Name = "Label3"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 435
Left = 909
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
DO  WITH 13zieltabelle_clickDO zieltabelle_click WITH 130v   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                       
     0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          33750.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F
        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66717083.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66716875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.000105000.00 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4375.00020937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LPLPP1351635192 6           12291.667 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LPSUN1351635196 6           14791.667 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQ0OL1351635203 6           19583.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQ8HZ1351635209 6           22187.500 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQIED1351635215 6           24583.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LWFLX1351635368 8  0       10208.333 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0LX2971351635384 8  0       10208.33332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0LY8FU1351635409 5  0        8020.83328854.167 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QV0LYXE61351635425 5  0        8020.83336145.833 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZCJQ1351635435 5  0        8020.83341770.833 1666.667 3750.000                               -1   -1   -1   -1   -1   -1                     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZVN81351635447 5  0    !    8020.83348541.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               "     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M082G1351635458 5  0    #    8020.83356875.000 1666.667 2500.000                               -1   -1   -1   -1   -1   -1               $     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0MMC1351635467 5  0    %    8020.83363437.500 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               &     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0YAC1351635474 5  0    '    8020.83370312.500 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               (     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1I8E1351635489 5  0    )    8020.83377187.500 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               *     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1RYY1351635496 5  0    +    8020.83383541.667 1666.667 3229.167                               -1   -1   -1   -1   -1   -1               ,     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M260I1351635505 5  0    -    8020.83390520.833 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               .     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2MH01351635515 5  0    /    8020.83398020.833 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               0     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2YZK1351635526 5  0    1    8020.833104375.00 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               2     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M3DSC1351635542 8  0    3    7812.500107916.67 1770.833 5729.167                   C           -1   -1   -1   -1   -1   -1               4     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M53PS1351635577 8  0    5   10208.33324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               6     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4U1351635594 8  0    7   10208.33346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               8     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4V1351635594 8  0    9   10208.33339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               :     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G261351635636 8  0    ;   10208.33359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               <     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G271351635636 8  0    =   10208.33352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               >     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G281351635636 8  0    ?   10208.33373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               @     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G291351635636 8  0    A   10208.33367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               B     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9U1351635650 8  0    C   10208.33387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               D     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9V1351635650 8  0    E   10208.33380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9W1351635650 8  0    G   10208.333101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               H     0  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0M7Z9X1351635650 8  0    I   10208.33394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1               J     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M8Y8G1351635673 8  0    K   10208.333107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6L1351635793 8  0    M   12708.333 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1               N     0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MDR6M1351635793 8  0    O   12708.33332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               P     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6N1351635793 8  0    Q   12708.33324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6O1351635793 8  0    S   12708.33346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               T     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6P1351635793 8  0    U   12708.33339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               V     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6Q1351635793 8  0    W   12708.33359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               X     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6R1351635793 8  0    Y   12708.33352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               Z     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6S1351635793 8  0    [   12708.33373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               \     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6T1351635793 8  0    ]   12708.33367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               ^     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6U1351635793 8  0    _   12708.33387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               `     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6V1351635793 8  0    a   12708.33380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1               b     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6W1351635793 8  0    c   12708.333101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               d     0  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0MDR6X1351635793 8  0    e   12708.33394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1               f     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6Y1351635793 8  0    g   12708.333107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               h     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAP1351635844 8  0    i   17395.833 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1               j     0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MFRAQ1351635844 8  0    k   17395.83332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               l     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAR1351635844 8  0    m   17395.83324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               n     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAS1351635844 8  0    o   17395.83346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               p     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAT1351635844 8  0    q   17395.83339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               r     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAU1351635844 8  0    s   17395.83359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               t     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAV1351635844 8  0    u   17395.83352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               v     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAW1351635844 8  0    w   17395.83373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               x     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAX1351635844 8  0    y   17395.83367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               z     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAY1351635844 8  0    {   17395.83387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               |     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAZ1351635844 8  0    }   17395.83380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1               ~     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRB01351635844 8  0       17395.833101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0MFRB11351635844 8  0       17395.83394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRB21351635844 8  0       17395.833107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ331351635887 8  0       20000.000 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MHJ341351635887 8  0       20000.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ351351635887 8  0       20000.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ361351635887 8  0       20000.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ371351635887 8  0       20000.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ381351635887 8  0       20000.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ391351635887 8  0       20000.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3A1351635887 8  0       20000.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3B1351635887 8  0       20000.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3C1351635887 8  0       20000.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3D1351635887 8  0       20000.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3E1351635887 8  0       20000.000101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0MHJ3F1351635887 8  0       20000.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3G1351635887 8  0       20000.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML03X1351635974 8  0       15104.167 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0ML03Y1351635974 8  0       15104.16732083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML03Z1351635974 8  0       15104.16724895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0401351635974 8  0       15104.16746250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0411351635974 8  0       15104.16739375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0421351635974 8  0       15104.16759791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0431351635974 8  0       15104.16752604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0441351635974 8  0       15104.16773958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0451351635974 8  0       15104.16767083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0461351635974 8  0       15104.16787187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0471351635974 8  0       15104.16780416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0481351635974 8  0       15104.167101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0ML0491351635974 8  0       15104.16794479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML04A1351635974 8  0       15104.167107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62R1351636003 8  0       22500.000 4687.500 1770.83318750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MM62S1351636003 8  0       22500.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62T1351636003 8  0       22500.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62U1351636003 8  0       22500.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62V1351636003 8  0       22500.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62W1351636003 8  0       22500.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62X1351636003 8  0       22500.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Y1351636003 8  0       22500.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Z1351636003 8  0       22500.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6301351636003 8  0       22500.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6311351636003 8  0       22500.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6321351636003 8  0       22500.000101354.17 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5QV0MM6331351636003 8  0       22500.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6341351636003 8  0       22500.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RT0Z2PS01354007227 8  0       25000.000 4687.500 1770.833109062.50                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         2_jahr                                                       Arial                                                         an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an1_sp12                                                      Arial Narrow                                                  an1_sp11                                                      Arial Narrow                                                  an1_sp13                                                      Arial Narrow                                                  an2_text                                                      Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an2_sp12                                                      Arial Narrow                                                  an2_sp11                                                      Arial Narrow                                                  an2_sp13                                                      Arial Narrow                                                  an3_text                                                      Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an3_sp12                                                      Arial Narrow                                                  an3_sp11                                                      Arial Narrow                                                  an3_sp13                                                      Arial Narrow                                                  an4_text                                                      Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an4_sp12                                                      Arial Narrow                                                  an4_sp11                                                      Arial Narrow                                                  an4_sp13                                                      Arial Narrow                                                  
an2_s_text                                                    Arial Narrow                                                  	an2_s_sp2                                                     Arial Narrow                                                  	an2_s_sp1                                                     Arial Narrow                                                  	an2_s_sp4                                                     Arial Narrow                                                  	an2_s_sp3                                                     Arial Narrow                                                  	an2_s_sp6                                                     Arial Narrow                                                  	an2_s_sp5                                                     Arial Narrow                                                  	an2_s_sp8                                                     Arial Narrow                                                  	an2_s_sp7                                                     Arial Narrow                                                  
an2_s_sp10                                                    Arial Narrow                                                  	an2_s_sp9                                                     Arial Narrow                                                  
an2_s_sp12                                                    Arial Narrow                                                  
an2_s_sp11                                                    Arial Narrow                                                  
an2_s_sp13                                                    Arial Narrow                                                  an5_text                                                      Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_sp12                                                      Arial Narrow                                                  an5_sp11                                                      Arial Narrow                                                  an5_sp13                                                      Arial Narrow                                                  an6_text                                                      Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         2_jahr                                                       Arial                                                         an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an1_sp12                                                      Arial Narrow                                                  an1_sp11                                                      Arial Narrow                                                  an1_sp13                                                      Arial Narrow                                                  an2_text                                                      Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an2_sp12                                                      Arial Narrow                                                  an2_sp11                                                      Arial Narrow                                                  an2_sp13                                                      Arial Narrow                                                  an3_text                                                      Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an3_sp12                                                      Arial Narrow                                                  an3_sp11                                                      Arial Narrow                                                  an3_sp13                                                      Arial Narrow                                                  an4_text                                                      Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an4_sp12                                                      Arial Narrow                                                  an4_sp11                                                      Arial Narrow                                                  an4_sp13                                                      Arial Narrow                                                  
an2_s_text                                                    Arial Narrow                                                  	an2_s_sp2                                                     Arial Narrow                                                  	an2_s_sp1                                                     Arial Narrow                                                  	an2_s_sp4                                                     Arial Narrow                                                  	an2_s_sp3                                                     Arial Narrow                                                  	an2_s_sp6                                                     Arial Narrow                                                  	an2_s_sp5                                                     Arial Narrow                                                  	an2_s_sp8                                                     Arial Narrow                                                  	an2_s_sp7                                                     Arial Narrow                                                  
an2_s_sp10                                                    Arial Narrow                                                  	an2_s_sp9                                                     Arial Narrow                                                  
an2_s_sp12                                                    Arial Narrow                                                  
an2_s_sp11                                                    Arial Narrow                                                  
an2_s_sp13                                                    Arial Narrow                                                  an5_text                                                      Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_sp12                                                      Arial Narrow                                                  an5_sp11                                                      Arial Narrow                                                  an5_sp13                                                      Arial Narrow                                                  an6_text                                                      Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0
   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          44584.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66717291.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 6770.83314791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.000105000.00 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        3645.83320937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6           11770.833 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5QV0LPLPP1351635192 6           14166.667 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LPSUN1351635196 6           16666.667 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQ0OL1351635203 6           21458.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQ8HZ1351635209 6           24062.500 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LQIED1351635215 6           26458.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LWFLX1351635368 8  0       12083.333 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0LX2971351635384 8  0       12083.33332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0LY8FU1351635409 5  0         9895.83328229.167 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               !     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QV0LYXE61351635425 5  0    "    9895.83335520.833 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               #     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZCJQ1351635435 5  0    $    9895.83341145.833 1666.667 3750.000                               -1   -1   -1   -1   -1   -1               %     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZVN81351635447 5  0    &    9895.83347916.667 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               '     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M082G1351635458 5  0    (    9895.83356250.000 1666.667 2500.000                               -1   -1   -1   -1   -1   -1               )     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0MMC1351635467 5  0    *    9895.83362812.500 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               +     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0YAC1351635474 5  0    ,    9895.83369687.500 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               -     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1I8E1351635489 5  0    .    9895.83376562.500 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               /     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1RYY1351635496 5  0    0    9895.83382916.667 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               1     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M260I1351635505 5  0    2    9895.83389895.833 1666.667 3229.167                               -1   -1   -1   -1   -1   -1               3     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2MH01351635515 5  0    4    9895.83397395.833 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               5     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2YZK1351635526 5  0    6    9895.833103750.00 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               7     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M3DSC1351635542 8  0    8    9687.500107916.67 1770.833 5729.167                   C           -1   -1   -1   -1   -1   -1               9     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M53PS1351635577 8  0    :   12083.33324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4U1351635594 8  0    <   12083.33346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4V1351635594 8  0    >   12083.33339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               ?     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G261351635636 8  0    @   12083.33359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               A     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G271351635636 8  0    B   12083.33352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               C     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G281351635636 8  0    D   12083.33373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               E     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G291351635636 8  0    F   12083.33367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               G     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9U1351635650 8  0    H   12083.33387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               I     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9V1351635650 8  0    J   12083.33380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1               K     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9W1351635650 8  0    L   12083.333101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               M     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9X1351635650 8  0    N   12083.33394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1               O     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M8Y8G1351635673 8  0    P   12083.333107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               Q     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6L1351635793 8  0    R   14583.333 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1               S     0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MDR6M1351635793 8  0    T   14583.33332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               U     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6N1351635793 8  0    V   14583.33324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               W     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6O1351635793 8  0    X   14583.33346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               Y     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6P1351635793 8  0    Z   14583.33339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               [     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6Q1351635793 8  0    \   14583.33359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               ]     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6R1351635793 8  0    ^   14583.33352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               _     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6S1351635793 8  0    `   14583.33373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               a     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6T1351635793 8  0    b   14583.33367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               c     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6U1351635793 8  0    d   14583.33387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               e     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6V1351635793 8  0    f   14583.33380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1               g     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6W1351635793 8  0    h   14583.333101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               i     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6X1351635793 8  0    j   14583.33394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1               k     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6Y1351635793 8  0    l   14583.333107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1               m     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAP1351635844 8  0    n   19270.833 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1               o     0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MFRAQ1351635844 8  0    p   19270.83332083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               q     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAR1351635844 8  0    r   19270.83324895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               s     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAS1351635844 8  0    t   19270.83346250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               u     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAT1351635844 8  0    v   19270.83339375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1               w     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAU1351635844 8  0    x   19270.83359791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               y     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAV1351635844 8  0    z   19270.83352604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               {     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAW1351635844 8  0    |   19270.83373958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               }     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAX1351635844 8  0    ~   19270.83367083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAY1351635844 8  0       19270.83387187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAZ1351635844 8  0       19270.83380416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRB01351635844 8  0       19270.833101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRB11351635844 8  0       19270.83394479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRB21351635844 8  0       19270.833107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ331351635887 8  0       21875.000 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MHJ341351635887 8  0       21875.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ351351635887 8  0       21875.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ361351635887 8  0       21875.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ371351635887 8  0       21875.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ381351635887 8  0       21875.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ391351635887 8  0       21875.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3A1351635887 8  0       21875.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3B1351635887 8  0       21875.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3C1351635887 8  0       21875.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3D1351635887 8  0       21875.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3E1351635887 8  0       21875.000101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3F1351635887 8  0       21875.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3G1351635887 8  0       21875.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML03X1351635974 8  0       16979.167 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0ML03Y1351635974 8  0       16979.16732083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML03Z1351635974 8  0       16979.16724895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0401351635974 8  0       16979.16746250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0411351635974 8  0       16979.16739375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0421351635974 8  0       16979.16759791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0431351635974 8  0       16979.16752604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0441351635974 8  0       16979.16773958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0451351635974 8  0       16979.16767083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0461351635974 8  0       16979.16787187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0471351635974 8  0       16979.16780416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0481351635974 8  0       16979.167101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML0491351635974 8  0       16979.16794479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0ML04A1351635974 8  0       16979.167107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62R1351636003 8  0       24375.000 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0MM62S1351636003 8  0       24375.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62T1351636003 8  0       24375.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62U1351636003 8  0       24375.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62V1351636003 8  0       24375.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62W1351636003 8  0       24375.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62X1351636003 8  0       24375.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Y1351636003 8  0       24375.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Z1351636003 8  0       24375.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6301351636003 8  0       24375.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6311351636003 8  0       24375.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6321351636003 8  0       24375.000101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6331351636003 8  0       24375.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6341351636003 8  0       24375.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RT0Z2PS01354007227 8  0       31875.000 4687.500 1770.833109062.50                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RU0N0CYV1354061188 8  0        5625.00020937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5RU0N2KD71354061242 8  0       26875.000 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RU0N2KD81354061242 8  0       26875.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KD91354061242 8  0       26875.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDA1354061242 8  0       26875.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDB1354061242 8  0       26875.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDC1354061242 8  0       26875.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDD1354061242 8  0       26875.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDE1354061242 8  0       26875.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDF1354061242 8  0       26875.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDG1354061242 8  0       26875.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDH1354061242 8  0       26875.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDI1354061242 8  0       26875.000101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDJ1354061242 8  0       26875.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2KDK1354061242 8  0       26875.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N2XWP1354061253 6           28958.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RU0N4VJN1354061300 8  0       29375.000 4687.500 1770.83319791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RU0N4VJO1354061300 8  0       29375.00032083.333 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJP1354061300 8  0      29375.00024895.833 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJQ1354061300 8  0      29375.00046250.000 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJR1354061300 8  0      29375.00039375.000 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJS1354061300 8  0      29375.00059791.667 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1               	    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJT1354061300 8  0    
  29375.00052604.167 1770.833 6458.333                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJU1354061300 8  0      29375.00073958.333 1770.833 5833.333                   C           -1   -1   -1   -1   -1   -1               
    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJV1354061300 8  0      29375.00067083.333 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJW1354061300 8  0      29375.00087187.500 1770.833 5937.500                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJX1354061300 8  0      29375.00080416.667 1770.833 6041.667                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJY1354061300 8  0      29375.000101354.17 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VJZ1354061300 8  0      29375.00094479.167 1770.833 6145.833                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N4VK01354061300 8  0      29375.000107916.67 1770.833 5625.000                   C           -1   -1   -1   -1   -1   -1                   0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RU0N53YZ1354061305 6           31458.333 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                       0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                       0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                       1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                       1  8                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                :   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       ""                                                            Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         2_jahr                                                       Arial                                                         an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an1_sp12                                                      Arial Narrow                                                  an1_sp11                                                      Arial Narrow                                                  an1_sp13                                                      Arial Narrow                                                  an2_text                                                      Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an2_sp12                                                      Arial Narrow                                                  an2_sp11                                                      Arial Narrow                                                  an2_sp13                                                      Arial Narrow                                                  an3_text                                                      Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an3_sp12                                                      Arial Narrow                                                  an3_sp11                                                      Arial Narrow                                                  an3_sp13                                                      Arial Narrow                                                  an4_text                                                      Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an4_sp12                                                      Arial Narrow                                                  an4_sp11                                                      Arial Narrow                                                  an4_sp13                                                      Arial Narrow                                                  
an2_s_text                                                    Arial Narrow                                                  	an2_s_sp2                                                     Arial Narrow                                                  	an2_s_sp1                                                     Arial Narrow                                                  	an2_s_sp4                                                     Arial Narrow                                                  	an2_s_sp3                                                     Arial Narrow                                                  	an2_s_sp6                                                     Arial Narrow                                                  	an2_s_sp5                                                     Arial Narrow                                                  	an2_s_sp8                                                     Arial Narrow                                                  	an2_s_sp7                                                     Arial Narrow                                                  
an2_s_sp10                                                    Arial Narrow                                                  	an2_s_sp9                                                     Arial Narrow                                                  
an2_s_sp12                                                    Arial Narrow                                                  
an2_s_sp11                                                    Arial Narrow                                                  
an2_s_sp13                                                    Arial Narrow                                                  an5_text                                                      Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_sp12                                                      Arial Narrow                                                  an5_sp11                                                      Arial Narrow                                                  an5_sp13                                                      Arial Narrow                                                  an8_text                                                      Arial Narrow                                                  2                                                            Arial                                                         an6_text                                                      Arial Narrow                                                  an6_sp2                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  an6_sp4                                                       Arial Narrow                                                  an6_sp3                                                       Arial Narrow                                                  an6_sp6                                                       Arial Narrow                                                  an6_sp5                                                       Arial Narrow                                                  an6_sp8                                                       Arial Narrow                                                  an6_sp7                                                       Arial Narrow                                                  an6_sp10                                                      Arial Narrow                                                  an6_sp9                                                       Arial Narrow                                                  an6_sp12                                                      Arial Narrow                                                  an6_sp11                                                      Arial Narrow                                                  an6_sp13                                                      Arial Narrow                                                  an7_text                                                      Arial Narrow                                                  an7_sp2                                                       Arial Narrow                                                  an7_sp1                                                       Arial Narrow                                                  an7_sp4                                                       Arial Narrow                                                  an7_sp3                                                       Arial Narrow                                                  an7_sp6                                                       Arial Narrow                                                  an7_sp5                                                       Arial Narrow                                                  an7_sp8                                                       Arial Narrow                                                  an7_sp7                                                       Arial Narrow                                                  an7_sp10                                                      Arial Narrow                                                  an7_sp9                                                       Arial Narrow                                                  an7_sp12                                                      Arial Narrow                                                  an7_sp11                                                      Arial Narrow                                                  an7_sp13                                                      Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       ""                                                            Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         2_jahr                                                       Arial                                                         an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an1_sp12                                                      Arial Narrow                                                  an1_sp11                                                      Arial Narrow                                                  an1_sp13                                                      Arial Narrow                                                  an2_text                                                      Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an2_sp12                                                      Arial Narrow                                                  an2_sp11                                                      Arial Narrow                                                  an2_sp13                                                      Arial Narrow                                                  an3_text                                                      Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an3_sp12                                                      Arial Narrow                                                  an3_sp11                                                      Arial Narrow                                                  an3_sp13                                                      Arial Narrow                                                  an4_text                                                      Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an4_sp12                                                      Arial Narrow                                                  an4_sp11                                                      Arial Narrow                                                  an4_sp13                                                      Arial Narrow                                                  
an2_s_text                                                    Arial Narrow                                                  	an2_s_sp2                                                     Arial Narrow                                                  	an2_s_sp1                                                     Arial Narrow                                                  	an2_s_sp4                                                     Arial Narrow                                                  	an2_s_sp3                                                     Arial Narrow                                                  	an2_s_sp6                                                     Arial Narrow                                                  	an2_s_sp5                                                     Arial Narrow                                                  	an2_s_sp8                                                     Arial Narrow                                                  	an2_s_sp7                                                     Arial Narrow                                                  
an2_s_sp10                                                    Arial Narrow                                                  	an2_s_sp9                                                     Arial Narrow                                                  
an2_s_sp12                                                    Arial Narrow                                                  
an2_s_sp11                                                    Arial Narrow                                                  
an2_s_sp13                                                    Arial Narrow                                                  an5_text                                                      Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_sp12                                                      Arial Narrow                                                  an5_sp11                                                      Arial Narrow                                                  an5_sp13                                                      Arial Narrow                                                  an8_text                                                      Arial Narrow                                                  2                                                            Arial                                                         an6_text                                                      Arial Narrow                                                  an6_sp2                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  an6_sp4                                                       Arial Narrow                                                  an6_sp3                                                       Arial Narrow                                                  an6_sp6                                                       Arial Narrow                                                  an6_sp5                                                       Arial Narrow                                                  an6_sp8                                                       Arial Narrow                                                  an6_sp7                                                       Arial Narrow                                                  an6_sp10                                                      Arial Narrow                                                  an6_sp9                                                       Arial Narrow                                                  an6_sp12                                                      Arial Narrow                                                  an6_sp11                                                      Arial Narrow                                                  an6_sp13                                                      Arial Narrow                                                  an7_text                                                      Arial Narrow                                                  an7_sp2                                                       Arial Narrow                                                  an7_sp1                                                       Arial Narrow                                                  an7_sp4                                                       Arial Narrow                                                  an7_sp3                                                       Arial Narrow                                                  an7_sp6                                                       Arial Narrow                                                  an7_sp5                                                       Arial Narrow                                                  an7_sp8                                                       Arial Narrow                                                  an7_sp7                                                       Arial Narrow                                                  an7_sp10                                                      Arial Narrow                                                  an7_sp9                                                       Arial Narrow                                                  an7_sp12                                                      Arial Narrow                                                  an7_sp11                                                      Arial Narrow                                                  an7_sp13                                                      Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0f   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                       
     0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          32292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66719062.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0    
    3958.333 3125.000 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        3958.333102500.00 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        3645.83325416.667 1875.00065937.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LX2971351635384 8  0        9062.50023854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M53PS1351635577 8  0        9062.50013541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4U1351635594 8  0        9062.50040625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4V1351635594 8  0        9062.50032708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G261351635636 8  0        9062.50061354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G271351635636 8  0        9062.50051354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G281351635636 8  0         9062.50080208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1               !     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7G291351635636 8  0    "    9062.50070729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               #     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9U1351635650 8  0    $    9062.500100312.50 1770.83310625.000                   C           -1   -1   -1   -1   -1   -1               %     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0M7Z9V1351635650 8  0    &    9062.50089479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               '     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6M1351635793 8  0    (   11770.83323854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1               )     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6N1351635793 8  0    *   11770.83313541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               +     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6O1351635793 8  0    ,   11770.83340625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               -     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6P1351635793 8  0    .   11770.83332708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1               /     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6Q1351635793 8  0    0   11770.83361354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               1     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6R1351635793 8  0    2   11770.83351354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               3     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6S1351635793 8  0    4   11770.83380208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1               5     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6T1351635793 8  0    6   11770.83370729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6U1351635793 8  0    8   11770.833100312.50 1770.83310625.000                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MDR6V1351635793 8  0    :   11770.83389479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               ;     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAQ1351635844 8  0    <   14270.83323854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAR1351635844 8  0    >   14270.83313541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               ?     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAS1351635844 8  0    @   14270.83340625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               A     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAT1351635844 8  0    B   14270.83332708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1               C     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAU1351635844 8  0    D   14270.83361354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               E     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAV1351635844 8  0    F   14270.83351354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               G     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAW1351635844 8  0    H   14270.83380208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1               I     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAX1351635844 8  0    J   14270.83370729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               K     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAY1351635844 8  0    L   14270.833100312.50 1770.83310625.000                   C           -1   -1   -1   -1   -1   -1               M     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MFRAZ1351635844 8  0    N   14270.83389479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               O     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0L9QUJ1354125038 6            8541.667 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RV0LY0GV1354125770 6           11250.000 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0LZ3X51354125797 6           13854.167 2395.833  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0LZDLH1354125804 6           16354.167 2395.833  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0M4KE81354125933 8  0    P   11770.833 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               Q     1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RV0M4KE91354125933 8  0    R   14270.833 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               S     1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RV0MTR3X1354126560 6            8541.66713020.833 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFTTF  F                     0             FTT0 0F         WINDOWS _5RV0MXFHH1354126650 6            8541.66740208.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFTTF  F                     0             FTT0 0F         WINDOWS _5RV0MXSA11354126660 6            8541.66750520.833 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFTTF  F                     0             FTT0 0F         WINDOWS _5RV0MYK7B1354126679 6            8541.66788958.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFTTF  F                     0             FTT0 0F         WINDOWS _5RV0MYXXR1354126689 6            8541.66799583.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFTTF  F                     0             FTT0 0F         WINDOWS _5RV0OMWYT1354128308 8  0    T    9062.500 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1               U     1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0MHJ341351635887 8  0    V   20208.33323854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1               W     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ351351635887 8  0    X   20208.33313541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               Y     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ361351635887 8  0    Z   20208.33340625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               [     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ371351635887 8  0    \   20208.33332708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1               ]     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ381351635887 8  0    ^   20208.33361354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               _     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ391351635887 8  0    `   20208.33351354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               a     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3A1351635887 8  0    b   20208.33380208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1               c     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3B1351635887 8  0    d   20208.33370729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               e     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3C1351635887 8  0    f   20208.333100312.50 1770.83310625.000                   C           -1   -1   -1   -1   -1   -1               g     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MHJ3D1351635887 8  0    h   20208.33389479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               i     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62S1351636003 8  0    j   22812.50023854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1               k     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62T1351636003 8  0    l   22812.50013541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               m     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62U1351636003 8  0    n   22812.50040625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               o     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62V1351636003 8  0    p   22812.50032708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1               q     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62W1351636003 8  0    r   22812.50061354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               s     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62X1351636003 8  0    t   22812.50051354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1               u     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Y1351636003 8  0    v   22812.50080208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1               w     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM62Z1351636003 8  0    x   22812.50070729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1               y     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6301351636003 8  0    z   22812.500100312.50 1770.83310625.000                   C           -1   -1   -1   -1   -1   -1               {     0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5QV0MM6311351636003 8  0    |   22812.50089479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1               }     1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0M4KEB1354125933 8  0    ~   22812.500 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RV0MBAIV1354126100 8  0       25416.66723854.167 1770.833 8125.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAIW1354126100 8  0       25416.66713541.667 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAIX1354126100 8  0       25416.66740625.000 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAIY1354126100 8  0       25416.66732708.333 1770.833 7187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAIZ1354126100 8  0       25416.66761354.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAJ01354126100 8  0       25416.66751354.167 1770.833 9166.667                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAJ11354126100 8  0       25416.66780208.333 1770.833 8229.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAJ21354126100 8  0       25416.66770729.167 1770.833 8541.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAJ41354126100 8  0       25416.66789479.167 1770.833 9583.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RV0MBAJ51354126100 8  0       25416.667 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RV0MKQDD1354126336 6           22395.833 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0MM3UQ1354126370 6           24895.833 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0MM3UR1354126370 6           27604.167 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0NAMUU1354126980 6           19791.66713020.833 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5RV0NAMUV1354126980 6           19791.66740208.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5RV0NAMUW1354126980 6           19791.66750520.833 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5RV0NAMUX1354126980 6           19791.66788958.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5RV0NAMUY1354126980 6           19791.66799583.333 7812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFTFF  F                     0             FTT0 0F         WINDOWS _5RV0ONUP91354128332 8  0       20208.333 7916.667 1770.833 4583.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RV0MKQDC1354126336 6           19687.500 2604.167  104.167108958.33                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5RV0LAKVN1354125065 8  0        6041.667 7812.500 2291.66789270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RV0MHVO41354126263 8  0       17291.667 7812.500 2291.66789270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Z20O065Y138021107210  0            5.000   42.000                                                                                                                                                          T               WINDOWS _68E0V9FWK141167523710  0            6.000   40.000                                                                                                                                                          F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        1  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                >   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an2_text                                                      Arial                                                         an3_text                                                      Arial                                                         an1_text                                                      Arial                                                         an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_text                                                      Arial                                                         an6_sp2                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  an6_sp4                                                       Arial Narrow                                                  an6_sp3                                                       Arial Narrow                                                  an6_sp6                                                       Arial Narrow                                                  an6_sp5                                                       Arial Narrow                                                  an6_sp8                                                       Arial Narrow                                                  an6_sp7                                                       Arial Narrow                                                  an6_sp9                                                       Arial Narrow                                                  an6_text                                                      Arial                                                         an4_text                                                      Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  an1_sp5                                                       Arial Narrow                                                  an1_sp8                                                       Arial Narrow                                                  an1_sp7                                                       Arial Narrow                                                  an1_sp10                                                      Arial Narrow                                                  an1_sp9                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp8                                                       Arial Narrow                                                  an2_sp7                                                       Arial Narrow                                                  an2_sp10                                                      Arial Narrow                                                  an2_sp9                                                       Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp8                                                       Arial Narrow                                                  an3_sp7                                                       Arial Narrow                                                  an3_sp10                                                      Arial Narrow                                                  an3_sp9                                                       Arial Narrow                                                  an2_text                                                      Arial                                                         an3_text                                                      Arial                                                         an1_text                                                      Arial                                                         an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp8                                                       Arial Narrow                                                  an4_sp7                                                       Arial Narrow                                                  an4_sp10                                                      Arial Narrow                                                  an4_sp9                                                       Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp4                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an5_sp6                                                       Arial Narrow                                                  an5_sp5                                                       Arial Narrow                                                  an5_sp8                                                       Arial Narrow                                                  an5_sp7                                                       Arial Narrow                                                  an5_sp10                                                      Arial Narrow                                                  an5_sp9                                                       Arial Narrow                                                  an5_text                                                      Arial                                                         an6_sp2                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  an6_sp4                                                       Arial Narrow                                                  an6_sp3                                                       Arial Narrow                                                  an6_sp6                                                       Arial Narrow                                                  an6_sp5                                                       Arial Narrow                                                  an6_sp8                                                       Arial Narrow                                                  an6_sp7                                                       Arial Narrow                                                  an6_sp9                                                       Arial Narrow                                                  an6_text                                                      Arial                                                         an4_text                                                      Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               05   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                       
     0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                           7396.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           1667.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           4896.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L692V1351634582 8  0        2291.667100937.50 1666.66712395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F
        WINDOWS _5QV0LB0NG1351634708 8  0        2187.500 4375.000 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            7291.667 4166.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LWFLX1351635368 8  0        9479.167 8437.500 1666.66731145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          0T         0       0 1  0FTT3 0F         WINDOWS _5QV0LX2971351635384 8  0        9479.16746875.000 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F        WINDOWS _5QV0LY8FU1351635409 5  0        5416.66743125.000 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5QV0LYXE61351635425 5  0        5416.66749791.667 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZCJQ1351635435 5  0        5416.66755000.000 1666.667 3750.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0LZVN81351635447 5  0        5416.66760625.000 1666.667 4062.500                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M082G1351635458 5  0        5416.66768645.833 1666.667 2500.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0MMC1351635467 5  0        5416.66774687.500 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M0YAC1351635474 5  0    !    5416.66780833.333 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               "     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1I8E1351635489 5  0    #    5416.66786354.167 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               $     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M1RYY1351635496 5  0    %    5416.66792604.167 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               &     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M260I1351635505 5  0    '    5416.66798541.667 1666.667 3229.167                               -1   -1   -1   -1   -1   -1               (     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2MH01351635515 5  0    )    5416.667104687.50 1666.667 3333.333                               -1   -1   -1   -1   -1   -1               *     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M2YZK1351635526 5  0    +    5416.667110833.33 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               ,     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5QV0M53PS1351635577 8  0    -    9479.16740208.333 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               .     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F/        WINDOWS _5QV0M5R4U1351635594 8  0    0    9479.16759375.000 1666.667 5312.500                   C           -1   -1   -1   -1   -1   -1               1     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F2        WINDOWS _5QV0M5R4V1351635594 8  0    3    9479.16753333.333 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               4     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F5        WINDOWS _5QV0M7G261351635636 8  0    6    9479.16771770.833 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F8        WINDOWS _5QV0M7G271351635636 8  0    9    9479.16765208.333 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               :     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F;        WINDOWS _5QV0M7G281351635636 8  0    <    9479.16784375.000 1666.667 5312.500                   C           -1   -1   -1   -1   -1   -1               =     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F>        WINDOWS _5QV0M7G291351635636 8  0    ?    9479.16778333.333 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               @     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FA        WINDOWS _5QV0M7Z9U1351635650 8  0    B    9479.16796354.167 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               C     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FD        WINDOWS _5QV0M7Z9V1351635650 8  0    E    9479.16790208.333 1666.667 5520.833                   C           -1   -1   -1   -1   -1   -1               F     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FG        WINDOWS _5QV0M7Z9W1351635650 8  0    H    9479.167108645.83 1666.667 5104.167                   C           -1   -1   -1   -1   -1   -1               I     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FJ        WINDOWS _5QV0M7Z9X1351635650 8  0    K    9479.167102395.83 1666.667 5625.000                   C           -1   -1   -1   -1   -1   -1               L     0  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FM        WINDOWS _5RY0M9K711354322663 5  0    N    5416.667 8854.167 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               O     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RY0MA35T1354322676 5  0    P    5416.667 4270.833 1666.667 3229.167                               -1   -1   -1   -1   -1   -1               Q     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RY0MAMG91354322690 8  0    R    9479.167 4479.167 1666.667 3125.000                   C           -1   -1   -1   -1   -1   -1               S     0  8  1 0     FFFTF  F          0T         0       0 1  0FTT3 0F         WINDOWS _5VD0OSNKF1362713682 5  0    T   13229.167 4270.833 1562.50023125.000                               -1   -1   -1   -1   -1   -1               V     0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6BI0KIYDT1419398227 8  0    W    9479.16746875.000 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               X     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0FY        WINDOWS _6BI0KIYDU1419398227 8  0    Z    9479.16740208.333 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               [     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F\        WINDOWS _6BI0KIYDV1419398227 8  0    ]    9479.16759375.000 1666.667 5312.500                   C           -1   -1   -1   -1   -1   -1               ^     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0F_        WINDOWS _6BI0KIYDW1419398227 8  0    `    9479.16753333.333 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               a     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fb        WINDOWS _6BI0KIYDX1419398227 8  0    c    9479.16771770.833 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               d     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fe        WINDOWS _6BI0KIYDY1419398227 8  0    f    9479.16765208.333 1666.667 5937.500                   C           -1   -1   -1   -1   -1   -1               g     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fh        WINDOWS _6BI0KIYDZ1419398227 8  0    i    9479.16784375.000 1666.667 5312.500                   C           -1   -1   -1   -1   -1   -1               j     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fk        WINDOWS _6BI0KIYE01419398227 8  0    l    9479.16778333.333 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               m     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fn        WINDOWS _6BI0KIYE11419398227 8  0    o    9479.16796354.167 1666.667 5416.667                   C           -1   -1   -1   -1   -1   -1               p     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fq        WINDOWS _6BI0KIYE21419398227 8  0    r    9479.16790208.333 1666.667 5520.833                   C           -1   -1   -1   -1   -1   -1               s     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Ft        WINDOWS _6BI0KIYE31419398227 8  0    u    9479.167108645.83 1666.667 5104.167                   C           -1   -1   -1   -1   -1   -1               v     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fw        WINDOWS _6BI0KIYE41419398227 8  0    x    9479.167102395.83 1666.667 5625.000                   C           -1   -1   -1   -1   -1   -1               y     5  8  1 0     FFFTF  F          0T         1       0 1  0FTT3 0Fz        WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   {     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   |     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   }     1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   ~     5  8                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
ansicht.texte                                                 Arial Narrow                                                  ansicht.februar                                               Arial Narrow                                                  ansicht.isgelb2 = "N"                                         "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         januar                                                        Arial Narrow                                                  ansicht.isgelb1 = "N"                                         
ansicht.april                                                 Arial Narrow                                                  ansicht.isgelb4 = "N"                                         ansicht.marz                                                  Arial Narrow                                                  ansicht.isgelb3 = "N"                                         ansicht.juni                                                  Arial Narrow                                                  ansicht.isgelb6 = "N"                                         ansicht.mai                                                   Arial Narrow                                                  ansicht.isgelb5 = "N"                                         ansicht.august                                                Arial Narrow                                                  ansicht.isgelb8 = "N"                                         ansicht.juli                                                  Arial Narrow                                                  ansicht.isgelb7 = "N"                                         ansicht.oktober                                               Arial Narrow                                                  ansicht.isgelb10 = "N"                                        ansicht.september                                             Arial Narrow                                                  ansicht.isgelb9 = "N"                                         dezember                                                      Arial Narrow                                                  ansicht.isgelb12 = "N"                                        ansicht.november                                              Arial Narrow                                                  ansicht.isgelb11 = "N"                                        
"Bezeichnung"                                                 Arial                                                         "Zeile"                                                       Arial                                                         ansicht.hszeile                                               Arial Narrow                                                  9"Die fett gedruckten Eintrge sollten untersucht werden."                                                                     Arial Narrow                                                  ansicht.februar                                               Arial Narrow                                                  ansicht.isgelb2 = "Y"                                         januar                                                        Arial Narrow                                                  ansicht.isgelb1 = "Y"                                         
ansicht.april                                                 Arial Narrow                                                  ansicht.isgelb4 = "Y"                                         ansicht.marz                                                  Arial Narrow                                                  ansicht.isgelb3 = "Y"                                         ansicht.juni                                                  Arial Narrow                                                  ansicht.isgelb6 = "Y"                                         ansicht.mai                                                   Arial Narrow                                                  ansicht.isgelb5 = "Y"                                         ansicht.august                                                Arial Narrow                                                  ansicht.isgelb8 = "Y"                                         ansicht.juli                                                  Arial Narrow                                                  ansicht.isgelb7 = "Y"                                         ansicht.oktober                                               Arial Narrow                                                  ansicht.isgelb10 = "Y"                                        ansicht.september                                             Arial Narrow                                                  ansicht.isgelb9 = "Y"                                         dezember                                                      Arial Narrow                                                  ansicht.isgelb12 = "Y"                                        ansicht.november                                              Arial Narrow                                                  ansicht.isgelb11 = "Y"                                        Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial Narrow                                                  date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
ansicht.texte                                                 Arial Narrow                                                  ansicht.februar                                               Arial Narrow                                                  ansicht.isgelb2 = "N"                                         "JAN."                                                        Arial                                                         "FEB."                                                        Arial                                                         "MRZ"                                                        Arial                                                         "APRIL"                                                       Arial                                                         "MAI"                                                         Arial                                                         "JUNI"                                                        Arial                                                         "JULI"                                                        Arial                                                         "AUG."                                                        Arial                                                         "SEP."                                                        Arial                                                         "OKT."                                                        Arial                                                         "NOV."                                                        Arial                                                         "DEZ."                                                        Arial                                                         januar                                                        Arial Narrow                                                  ansicht.isgelb1 = "N"                                         
ansicht.april                                                 Arial Narrow                                                  ansicht.isgelb4 = "N"                                         ansicht.marz                                                  Arial Narrow                                                  ansicht.isgelb3 = "N"                                         ansicht.juni                                                  Arial Narrow                                                  ansicht.isgelb6 = "N"                                         ansicht.mai                                                   Arial Narrow                                                  ansicht.isgelb5 = "N"                                         ansicht.august                                                Arial Narrow                                                  ansicht.isgelb8 = "N"                                         ansicht.juli                                                  Arial Narrow                                                  ansicht.isgelb7 = "N"                                         ansicht.oktober                                               Arial Narrow                                                  ansicht.isgelb10 = "N"                                        ansicht.september                                             Arial Narrow                                                  ansicht.isgelb9 = "N"                                         dezember                                                      Arial Narrow                                                  ansicht.isgelb12 = "N"                                        ansicht.november                                              Arial Narrow                                                  ansicht.isgelb11 = "N"                                        
"Bezeichnung"                                                 Arial                                                         "Zeile"                                                       Arial                                                         ansicht.hszeile                                               Arial Narrow                                                  9"Die fett gedruckten Eintrge sollten untersucht werden."                                                                     Arial Narrow                                                  ansicht.februar                                               Arial Narrow                                                  ansicht.isgelb2 = "Y"                                         januar                                                        Arial Narrow                                                  ansicht.isgelb1 = "Y"                                         
ansicht.april                                                 Arial Narrow                                                  ansicht.isgelb4 = "Y"                                         ansicht.marz                                                  Arial Narrow                                                  ansicht.isgelb3 = "Y"                                         ansicht.juni                                                  Arial Narrow                                                  ansicht.isgelb6 = "Y"                                         ansicht.mai                                                   Arial Narrow                                                  ansicht.isgelb5 = "Y"                                         ansicht.august                                                Arial Narrow                                                  ansicht.isgelb8 = "Y"                                         ansicht.juli                                                  Arial Narrow                                                  ansicht.isgelb7 = "Y"                                         ansicht.oktober                                               Arial Narrow                                                  ansicht.isgelb10 = "Y"                                        ansicht.september                                             Arial Narrow                                                  ansicht.isgelb9 = "Y"                                         dezember                                                      Arial Narrow                                                  ansicht.isgelb12 = "Y"                                        ansicht.november                                              Arial Narrow                                                  ansicht.isgelb11 = "Y"                                        Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0!   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5Q90O5W361350130189 1 53           1.000    0.000    0.00082666.000                 F                                                       	     0 10   21F 3 3   TF              T    F T               1T               WINDOWS _5Q90O5W37           9  1                          17813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W38           9  4                           1875.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W39           9  7                           3959.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _67X0NZ529           9  8                           8855.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5Q90OHF2P1350130476 8  0    
    6562.50063645.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90O7T7D1350130251 8  0    
    4479.167 2812.500 1666.66718750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OAEJF1350130305 8  0        6562.500 2812.500 1666.66718750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OB2001350130318 8  0        6562.50068125.000 1666.66710416.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90OXX561350130891 8  0       11979.167 2812.500 2187.50076041.667                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90P3E8L1350131023 6           14895.833 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RY0OC6DS1354324648 6           17395.833 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RY0OCBW41354324655 5  0       15416.667 3020.833 1666.66715625.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OD4C01354324672 5  0       15416.66734375.000 1666.667 8333.333                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0ODNCG1354324684 5  0       15416.66750208.333 1666.667 6041.667                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OE3481354324695 5  0       15416.66760520.833 1666.667 7604.167                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OEEWO1354324704 5  0       15416.66772395.833 1666.667 6145.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OFKRC1354324731 8  0        19895.833 3229.167 1875.00030520.833                   C           -1   -1   -1   -1   -1   -1               !     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _5RY0OG2U61354324745 8  0    "   19895.83334270.833 1875.00015416.667                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _5RY0OG7RO1354324748 8  0    $   19895.83350104.167 1875.000 9791.667                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _5RY0OGFRG1354324753 8  0    &   19895.83368854.167 1875.00010208.333                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F         WINDOWS _5RY0OGJM21354324756 8  0    (   19895.83360208.333 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F         WINDOWS _5RY0OLCYW1354324882 5  0    *   31458.333 3229.167 1666.66719687.500                               -1   -1   -1   -1   -1   -1               +     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RY0OLOKE1354324887 5  0    ,   31458.33351041.667 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               -     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RY0OM4PI1354324896 6           36979.167 3229.167  104.16727812.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RY0OMA0M1354324900 6           36979.16751562.500  104.16727812.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _67X0O00KA1402231162 6           30625.000 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   .     0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   /     0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   0     1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   1     1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   2     0 10                                                     F               WINDOWS                     25   3   4                                                        F                                                                                                                      F                 d   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              %ORIENTATION=0
PAPERSIZE=9
COLOR=2
                         Courier New                                                   ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         "Name des Bediensteten"                                       Arial                                                         "Konto / IBAN"                                                Arial                                                         "BLZ / BIC"                                                   Arial                                                         
"Nettogehalt"                                                 Arial                                                         "Flligkeit"                                                  Arial                                                         ueberweisungsliste.f0                                         Arial                                                         ueberweisungsliste.f1                                         Arial                                                         ueberweisungsliste.f2                                         Arial                                                         ueberweisungsliste.f4                                         Arial                                                         ueberweisungsliste.f3                                         Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               %ORIENTATION=0
PAPERSIZE=9
COLOR=2
                         Courier New                                                   ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         "Name des Bediensteten"                                       Arial                                                         "Konto / IBAN"                                                Arial                                                         "BLZ / BIC"                                                   Arial                                                         
"Nettogehalt"                                                 Arial                                                         "Flligkeit"                                                  Arial                                                         ueberweisungsliste.f0                                         Arial                                                         ueberweisungsliste.f1                                         Arial                                                         ueberweisungsliste.f2                                         Arial                                                         ueberweisungsliste.f4                                         Arial                                                         ueberweisungsliste.f3                                         Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5Q90O5W361350130189 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               1T               WINDOWS _5Q90O5W37           9  1                          79584.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W38           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90O5W39           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5Q90OHF2P1350130476 8  0        6562.50063645.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90O7T7D1350130251 8  0        4479.167 2812.500 1666.66720104.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OAEJF1350130305 8  0        6562.500 2812.500 1666.66720104.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5Q90OB2001350130318 8  0        6562.50070208.333 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5Q90OXX561350130891 8  0       19583.333 2812.500 2187.50076041.667                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5Q90P3E8L1350131023 6           25000.000 2812.500  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5RY0OC6DS1354324648 6           48750.000 2708.333  104.16776250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5RY0OCBW41354324655 5  0       23020.833 4270.833 1666.667 1145.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OD4C01354324672 5  0       23020.83337916.667 1666.667 5000.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0ODNCG1354324684 5  0       23020.83350729.167 1666.667 4895.833                               -1   -1   -1   -1   -1   -1                     1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OE3481354324695 5  0    !   23020.83360833.333 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               "     1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RY0OEEWO1354324704 5  0    #   23020.83375416.667 1666.667 1145.833                               -1   -1   -1   -1   -1   -1               $     1 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5RZ0P7CJZ1354390959 8  0    %   25729.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               &     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0P7CK01354390959 8  0    '   25729.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               (     0 10  1 0     FTFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0P7CK11354390959 8  0    )   25729.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FTFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0P7CK21354390959 8  0    +   25729.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FTFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0P7CK31354390959 8  0    -   25729.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               .     0 10  1 0     FTFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0PBGKN1354391061 8  0    /    8645.833 2812.500 1666.66720104.167                   C           -1   -1   -1   -1   -1   -1               0     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0PEXZ31354391148 8  0    1   10729.167 2812.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               2     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0PHWJH1354391222 5  0    3    9791.66763750.000 1458.333 8750.000                               -1   -1   -1   -1   -1   -1               4     0  8  1       FFFTF  F          0T                      1FTT0 0F5        WINDOWS _5RZ0PLPUU1354391316 8  0    6   12708.333 2812.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0PMNQU1354391340 8  0    8   14583.333 2812.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               9     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F:        WINDOWS _5RZ0PNVXO1354391371 8  0    ;   16145.833 2812.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               <     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F=        WINDOWS _5RZ0XJEVX1354398939 8  0    >   49583.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XJEVY1354398939 8  0    @   49583.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               A     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XJEVZ1354398939 8  0    B   49583.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               C     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XJEW01354398939 8  0    D   49583.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               E     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XJEW11354398939 8  0    F   49583.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               G     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNT6L1354399050 8  0    H   27604.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               I     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XNT6M1354399050 8  0    J   27604.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               K     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNT6N1354399050 8  0    L   27604.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               M     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNT6O1354399050 8  0    N   27604.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               O     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNT6P1354399050 8  0    P   27604.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY071354399053 8  0    R   29479.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               S     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XNY081354399053 8  0    T   29479.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               U     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY091354399053 8  0    V   29479.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               W     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0A1354399053 8  0    X   29479.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0B1354399053 8  0    Z   29479.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               [     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0C1354399053 8  0    \   31354.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               ]     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0D1354399053 8  0    ^   31354.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0E1354399053 8  0    `   31354.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               a     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0F1354399053 8  0    b   31354.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XNY0G1354399053 8  0    d   31354.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               e     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M31354399058 8  0    f   33229.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M41354399058 8  0    h   33229.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               i     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M51354399058 8  0    j   33229.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               k     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M61354399058 8  0    l   33229.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M71354399058 8  0    n   33229.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               o     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M81354399058 8  0    p   35104.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               q     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XO5M91354399058 8  0    r   35104.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               s     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MA1354399058 8  0    t   35104.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               u     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MB1354399058 8  0    v   35104.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1               w     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MC1354399058 8  0    x   35104.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               y     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MD1354399058 8  0    z   36979.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               {     0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XO5ME1354399058 8  0    |   36979.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               }     0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MF1354399058 8  0    ~   36979.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MG1354399058 8  0       36979.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MH1354399058 8  0       36979.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MI1354399058 8  0       38854.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MJ1354399058 8  0       38854.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MK1354399058 8  0       38854.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5ML1354399058 8  0       38854.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XO5MM1354399058 8  0       38854.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODGV1354399063 8  0       40729.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XODGW1354399063 8  0       40729.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODGX1354399063 8  0       40729.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODGY1354399063 8  0       40729.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODGZ1354399063 8  0       40729.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH01354399063 8  0       42604.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XODH11354399063 8  0       42604.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH21354399063 8  0       42604.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH31354399063 8  0       42604.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH41354399063 8  0       42604.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH51354399063 8  0       44479.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XODH61354399063 8  0       44479.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH71354399063 8  0       44479.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH81354399063 8  0       44479.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODH91354399063 8  0       44479.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODHA1354399063 8  0       46354.167 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XODHB1354399063 8  0       46354.16746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODHC1354399063 8  0       46354.16734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODHD1354399063 8  0       46354.16771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XODHE1354399063 8  0       46354.16759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXO8F1354399296 8  0       51458.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XXO8G1354399296 8  0       51458.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXO8H1354399296 8  0       51458.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXO8P1354399296 8  0       51458.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXO8Q1354399296 8  0       51458.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPH1354399300 8  0       53333.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPI1354399300 8  0       53333.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPJ1354399300 8  0       53333.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPK1354399300 8  0       53333.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPL1354399300 8  0       53333.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPM1354399300 8  0       55208.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPN1354399300 8  0       55208.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPO1354399300 8  0       55208.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPP1354399300 8  0       55208.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XXUPQ1354399300 8  0       55208.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AN1354399309 8  0       57083.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AO1354399309 8  0       57083.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AP1354399309 8  0       57083.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AQ1354399309 8  0       57083.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AR1354399309 8  0       57083.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AS1354399309 8  0       58958.333 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AT1354399309 8  0       58958.33346875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AU1354399309 8  0       58958.33334375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AV1354399309 8  0       58958.33371666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0XY8AW1354399309 8  0       58958.33359583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5RZ0Y1YTG1354399402 8  0       66354.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5RZ0Y1YTH1354399402 8  0       68229.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5RZ0Y1YTI1354399402 8  0       70104.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5RZ0Y1YTJ1354399402 8  0       71979.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5RZ0Y1YTK1354399402 8  0       73854.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5RZ0Y1YTL1354399402 8  0       75729.167 4270.833 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          2T         0       0 1  0TTT0 0F         WINDOWS _5V30ZFQYX1362068486 8  0       25729.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZGKQ51362068500 8  0       27604.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZH4AQ1362068515 8  0       29479.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZH4AR1362068515 8  0       31354.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHB661362068520 8  0       33229.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHB671362068520 8  0       35104.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHB681362068520 8  0       36979.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHB691362068520 8  0      38854.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHT8L1362068531 8  0      40729.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHT8M1362068531 8  0      42604.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZHT8N1362068531 8  0      44479.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1               	    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V30ZIT7E1362068557 8  0    
  46354.167 2708.333 1875.000 1250.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _75Z0X7P9J1519811512 8  0      60937.500 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1               
    0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _75Z0X7P9K1519811512 8  0      60937.50046875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7P9L1519811512 8  0      60937.50034375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7P9M1519811512 8  0      60937.50071666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7P9N1519811512 8  0      60937.50059583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7WIC1519811517 8  0      62916.667 4270.833 1875.00019062.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _75Z0X7WID1519811517 8  0      62916.66746875.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7WIE1519811517 8  0      62916.66734375.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7WIF1519811517 8  0      62916.66771666.667 1875.000 5000.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _75Z0X7WIG1519811517 8  0      62916.66759583.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   !    0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   "    0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   #    1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   $    1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   %    0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   &    0  8                                                     F               WINDOWS                     25   '  (                                                       F                                                                                                                      F                L   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                $myweihnachtenanzeigen.zeile0.Caption                          Arial                                                         "1)"                                                          Arial                                                         
"Vollzeit"                                                    Arial                                                         
"Teilzeit"                                                    Arial                                                         
"Tatschlich"                                                 Arial                                                         "3)"                                                          Arial                                                         an1_text                                                      Arial                                                         an1_sp2                                                       Arial                                                         an1_sp1                                                       Arial                                                         an1_sp4                                                       Arial                                                         an1_sp3                                                       Arial                                                         
ditext_anrede                                                 Arial                                                         myform1.z0.Caption                                            Arial                                                         '"Dienstanschrift:"'                                          Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext5)                                           Arial                                                         Alltrim(wnw.ztext7)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext6)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  	an13_text                                                     Arial                                                         an13_sp2                                                      Arial                                                         an13_sp1                                                      Arial                                                         an13_sp4                                                      Arial                                                         an13_sp3                                                      Arial                                                         an2_text                                                      Arial                                                         an2_sp2                                                       Arial                                                         an2_sp1                                                       Arial                                                         an2_sp4                                                       Arial                                                         an2_sp3                                                       Arial                                                         an3_text                                                      Arial                                                         an3_sp2                                                       Arial                                                         an3_sp1                                                       Arial                                                         an3_sp4                                                       Arial                                                         an3_sp3                                                       Arial                                                         an4_text                                                      Arial                                                         an4_sp2                                                       Arial                                                         an4_sp1                                                       Arial                                                         an4_sp4                                                       Arial                                                         an4_sp3                                                       Arial                                                         an5_text                                                      Arial                                                         an5_sp2                                                       Arial                                                         an5_sp1                                                       Arial                                                         an5_sp4                                                       Arial                                                         an5_sp3                                                       Arial                                                         an6_text                                                      Arial                                                         an6_sp2                                                       Arial                                                         an6_sp1                                                       Arial                                                         an6_sp4                                                       Arial                                                         an6_sp3                                                       Arial                                                         an7_text                                                      Arial                                                         an7_sp2                                                       Arial                                                         an7_sp1                                                       Arial                                                         an7_sp4                                                       Arial                                                         an7_sp3                                                       Arial                                                         an8_text                                                      Arial                                                         an8_sp2                                                       Arial                                                         an8_sp1                                                       Arial                                                         an8_sp4                                                       Arial                                                         an8_sp3                                                       Arial                                                         an9_text                                                      Arial                                                         an9_sp2                                                       Arial                                                         an9_sp1                                                       Arial                                                         an9_sp4                                                       Arial                                                         an9_sp3                                                       Arial                                                         	an10_text                                                     Arial                                                         an10_sp2                                                      Arial                                                         an10_sp1                                                      Arial                                                         an10_sp4                                                      Arial                                                         an10_sp3                                                      Arial                                                         	an11_text                                                     Arial                                                         an11_sp2                                                      Arial                                                         an11_sp1                                                      Arial                                                         an11_sp4                                                      Arial                                                         an11_sp3                                                      Arial                                                         	an12_text                                                     Arial                                                         an12_sp2                                                      Arial                                                         an12_sp1                                                      Arial                                                         an12_sp4                                                      Arial                                                         an12_sp3                                                      Arial                                                         	an14_text                                                     Arial                                                         an14_sp2                                                      Arial                                                         an14_sp1                                                      Arial                                                         an14_sp4                                                      Arial                                                         an14_sp3                                                      Arial                                                         	an15_text                                                     Arial                                                         an15_sp2                                                      Arial                                                         an15_sp1                                                      Arial                                                         an15_sp4                                                      Arial                                                         an15_sp3                                                      Arial                                                         	an16_text                                                     Arial                                                         an16_sp2                                                      Arial                                                         an16_sp1                                                      Arial                                                         an16_sp4                                                      Arial                                                         an16_sp3                                                      Arial                                                         	an17_text                                                     Arial                                                         an17_sp2                                                      Arial                                                         an17_sp1                                                      Arial                                                         an17_sp4                                                      Arial                                                         an17_sp3                                                      Arial                                                         	an18_text                                                     Arial                                                         an18_sp2                                                      Arial                                                         an18_sp1                                                      Arial                                                         an18_sp4                                                      Arial                                                         an18_sp3                                                      Arial                                                         an19_text_x                                                   Arial                                                         an20_text_x                                                   Arial                                                         an21_text_x                                                   Arial                                                         an22_text_x                                                   Arial                                                         an23_text_x                                                   Arial                                                         an24_text_x                                                   Arial                                                         mark1                                                         Courier New                                                   mark2                                                         Courier New                                                   mark3                                                         Courier New                                                   mark4                                                         Courier New                                                   mark5                                                         Courier New                                                   mark6                                                         Courier New                                                   mark7                                                         Courier New                                                   mark8                                                         Courier New                                                   mark9                                                         Courier New                                                   mark10                                                        Courier New                                                   mark11                                                        Courier New                                                   mark12                                                        Courier New                                                   	an19_text                                                     Arial                                                         an19_sp2                                                      Arial                                                         an19_sp1                                                      Arial                                                         an19_sp4                                                      Arial                                                         an19_sp3                                                      Arial                                                         	an20_text                                                     Arial                                                         an20_sp2                                                      Arial                                                         an20_sp1                                                      Arial                                                         an20_sp4                                                      ""                                                            Arial                                                         an20_sp3                                                      Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                $myweihnachtenanzeigen.zeile0.Caption                          Arial                                                         "1)"                                                          Arial                                                         
"Vollzeit"                                                    Arial                                                         
"Teilzeit"                                                    Arial                                                         
"Tatschlich"                                                 Arial                                                         "3)"                                                          Arial                                                         an1_text                                                      Arial                                                         an1_sp2                                                       Arial                                                         an1_sp1                                                       Arial                                                         an1_sp4                                                       Arial                                                         an1_sp3                                                       Arial                                                         
ditext_anrede                                                 Arial                                                         myform1.z0.Caption                                            Arial                                                         '"Dienstanschrift:"'                                          Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext5)                                           Arial                                                         Alltrim(wnw.ztext7)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext6)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  	an13_text                                                     Arial                                                         an13_sp2                                                      Arial                                                         an13_sp1                                                      Arial                                                         an13_sp4                                                      Arial                                                         an13_sp3                                                      Arial                                                         an2_text                                                      Arial                                                         an2_sp2                                                       Arial                                                         an2_sp1                                                       Arial                                                         an2_sp4                                                       Arial                                                         an2_sp3                                                       Arial                                                         an3_text                                                      Arial                                                         an3_sp2                                                       Arial                                                         an3_sp1                                                       Arial                                                         an3_sp4                                                       Arial                                                         an3_sp3                                                       Arial                                                         an4_text                                                      Arial                                                         an4_sp2                                                       Arial                                                         an4_sp1                                                       Arial                                                         an4_sp4                                                       Arial                                                         an4_sp3                                                       Arial                                                         an5_text                                                      Arial                                                         an5_sp2                                                       Arial                                                         an5_sp1                                                       Arial                                                         an5_sp4                                                       Arial                                                         an5_sp3                                                       Arial                                                         an6_text                                                      Arial                                                         an6_sp2                                                       Arial                                                         an6_sp1                                                       Arial                                                         an6_sp4                                                       Arial                                                         an6_sp3                                                       Arial                                                         an7_text                                                      Arial                                                         an7_sp2                                                       Arial                                                         an7_sp1                                                       Arial                                                         an7_sp4                                                       Arial                                                         an7_sp3                                                       Arial                                                         an8_text                                                      Arial                                                         an8_sp2                                                       Arial                                                         an8_sp1                                                       Arial                                                         an8_sp4                                                       Arial                                                         an8_sp3                                                       Arial                                                         an9_text                                                      Arial                                                         an9_sp2                                                       Arial                                                         an9_sp1                                                       Arial                                                         an9_sp4                                                       Arial                                                         an9_sp3                                                       Arial                                                         	an10_text                                                     Arial                                                         an10_sp2                                                      Arial                                                         an10_sp1                                                      Arial                                                         an10_sp4                                                      Arial                                                         an10_sp3                                                      Arial                                                         	an11_text                                                     Arial                                                         an11_sp2                                                      Arial                                                         an11_sp1                                                      Arial                                                         an11_sp4                                                      Arial                                                         an11_sp3                                                      Arial                                                         	an12_text                                                     Arial                                                         an12_sp2                                                      Arial                                                         an12_sp1                                                      Arial                                                         an12_sp4                                                      Arial                                                         an12_sp3                                                      Arial                                                         	an14_text                                                     Arial                                                         an14_sp2                                                      Arial                                                         an14_sp1                                                      Arial                                                         an14_sp4                                                      Arial                                                         an14_sp3                                                      Arial                                                         	an15_text                                                     Arial                                                         an15_sp2                                                      Arial                                                         an15_sp1                                                      Arial                                                         an15_sp4                                                      Arial                                                         an15_sp3                                                      Arial                                                         	an16_text                                                     Arial                                                         an16_sp2                                                      Arial                                                         an16_sp1                                                      Arial                                                         an16_sp4                                                      Arial                                                         an16_sp3                                                      Arial                                                         	an17_text                                                     Arial                                                         an17_sp2                                                      Arial                                                         an17_sp1                                                      Arial                                                         an17_sp4                                                      Arial                                                         an17_sp3                                                      Arial                                                         	an18_text                                                     Arial                                                         an18_sp2                                                      Arial                                                         an18_sp1                                                      Arial                                                         an18_sp4                                                      Arial                                                         an18_sp3                                                      Arial                                                         an19_text_x                                                   Arial                                                         an20_text_x                                                   Arial                                                         an21_text_x                                                   Arial                                                         an22_text_x                                                   Arial                                                         an23_text_x                                                   Arial                                                         an24_text_x                                                   Arial                                                         mark1                                                         Courier New                                                   mark2                                                         Courier New                                                   mark3                                                         Courier New                                                   mark4                                                         Courier New                                                   mark5                                                         Courier New                                                   mark6                                                         Courier New                                                   mark7                                                         Courier New                                                   mark8                                                         Courier New                                                   mark9                                                         Courier New                                                   mark10                                                        Courier New                                                   mark11                                                        Courier New                                                   mark12                                                        Courier New                                                   	an19_text                                                     Arial                                                         an19_sp2                                                      Arial                                                         an19_sp1                                                      Arial                                                         an19_sp4                                                      Arial                                                         an19_sp3                                                      Arial                                                         	an20_text                                                     Arial                                                         an20_sp2                                                      Arial                                                         an20_sp1                                                      Arial                                                         an20_sp4                                                      ""                                                            Arial                                                         an20_sp3                                                      Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0,   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          12709.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000 2188.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000 2709.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _60010ZQSI           9  8                           5000.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _69S0KIEO41415007302 8  0       15000.00038333.333 1770.833 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _69S0KIEO61415007302 8  0       15000.00062604.167 1770.833 8750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5QV0L692S1351634582 8  0        1666.66764687.500 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        1666.667 3125.000 1666.66718854.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66717291.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        1666.66769270.833 1666.66710208.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4895.83321041.667 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  2  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0         9895.833 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5QV0LWFLX1351635368 8  0    !   15000.000 8020.833 1770.83318750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F#        WINDOWS _5QV0LX2971351635384 8  0    $   15000.00038333.333 1770.833 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0%     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F&        WINDOWS _5QV0M53PS1351635577 8  0    '   15000.00027916.667 1770.833 9375.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F)        WINDOWS _5QV0M5R4U1351635594 8  0    *   15000.00062604.167 1770.833 8750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0+     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F,        WINDOWS _5QV0M5R4V1351635594 8  0    -   15000.00050312.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F/        WINDOWS _5S00MMY3Q1354454070 8  0    0    6979.16721041.667 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    01     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  2  0  0 0 1  0FTT0 0F         WINDOWS _5S00NR6NL1354455204 8  0    2   10520.833 4583.333 1770.83316145.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    03     0  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00NRG9Z1354455206 8  0    4   10520.83325625.000 1770.83311666.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    05     0  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NS35V1354455221 8  0    6   10520.83337916.667 1770.833 9687.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    07     0  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NSU5J1354455241 8  0    8   10520.83351354.167 1770.833 9687.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    09     0  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NT39B1354455247 8  0    :   10520.83361666.667 1770.833 9687.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0;     0  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NZ3R81354455397 8  0    <   15000.000 4479.167 1770.833 3020.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0=     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F>        WINDOWS _5S00OJE0P1354455900 8  0    ?   24479.16738333.333 1770.833 9270.833    @       F    F C           -1   -1   -1   -1   -1   -1    0    0    0A     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S00OJE0Q1354455900 8  0    B   24479.16727916.667 1770.833 9375.000    C       F    F C           -1   -1   -1   -1   -1   -1    0    0    0D     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S00OJE0R1354455900 8  0    E   24479.16762604.167 1770.833 8750.000    F       F    F C           -1   -1   -1   -1   -1   -1    0    0    0G     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S00OJE0S1354455900 8  0    H   24479.16750312.500 1770.83310729.167    I       F    F C           -1   -1   -1   -1   -1   -1    0    0    0J     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S00OJKIL1354455906 6  0        24062.500 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00OM67X1354455974 5  0    K   24583.333 5000.000 1562.500 7083.333                               -1   -1   -1   -1   -1   -1               L     1  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5S00ON74T1354455995 6  0        26666.667 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _600110I3U1382713861 6  0        12500.000 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _69S0KHWO11415007288 6  0        14895.833 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT3 0FM        WINDOWS _69S0KIEO31415007302 8  0    N   15000.000 8020.833 1770.83318750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0O     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0FP        WINDOWS _69S0KIEO51415007302 8  0    Q   15000.00027916.667 1770.833 9375.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0R     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0FS        WINDOWS _69S0KIEO71415007302 8  0    T   15000.00050312.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0U     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0FV        WINDOWS _6IT0OYI3C1445747925 5  0    W   26979.167 4166.667 1666.66745625.000                               -1   -1   -1   -1   -1   -1               Y     0 10  1       TFFFF  F          0T                      0TTF0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   Z     0  8                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   [     1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   \     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   ]     1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   ^     0 10                                                     F               WINDOWS                     25   _   `                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp4                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp13_3                                                       "999999.99"                                                   Arial Narrow                                                  msp3                                                          "999999.99"                                                   Arial Narrow                                                  msp13_4                                                       "999999.99"                                                   Arial Narrow                                                  msp4                                                          "999999.99"                                                   Arial Narrow                                                  
"Gesamtsumme"                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp14                                                 Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp4                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp13_3                                                       "999999.99"                                                   Arial Narrow                                                  msp3                                                          "999999.99"                                                   Arial Narrow                                                  msp13_4                                                       "999999.99"                                                   Arial Narrow                                                  msp4                                                          "999999.99"                                                   Arial Narrow                                                  
"Gesamtsumme"                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               08   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          14063.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           1875.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           3334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6000ZLKJC           9  8                           5000.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66720208.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66717291.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.000101666.67 1666.66711562.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4583.33320937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        6666.66720937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S00NR6NL1354455204 8  0       10520.833 3020.833 1770.83317187.500                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5S00NRG9Z1354455206 8  0       10520.83320729.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1                     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NS35V1354455221 8  0    !   10520.83328854.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               "     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NSU5J1354455241 8  0    #   10520.83336979.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               $     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NT39B1354455247 8  0    %   10520.83345104.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               &     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0    '   16250.000 3125.000 1770.83316979.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0    )   16250.00028854.167 1770.833 7708.333    *       F    F N           -1   -1   -1   -1   -1   -1    0    0    0+     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0    ,   16250.00020729.167 1770.833 7812.500    -       F    F N           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    /   16250.00045104.167 1770.833 7708.333    0       F    F N           -1   -1   -1   -1   -1   -1    0    0    01     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    2   16250.00036979.167 1770.833 7708.333    3       F    F N           -1   -1   -1   -1   -1   -1    0    0    04     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTH1354515543 8  0    5   16250.000 3125.000 1770.833 2604.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    7   16250.00061458.333 1770.833 7708.333    8       F    F N           -1   -1   -1   -1   -1   -1    0    0    09     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    :   16250.00053229.167 1770.833 7708.333    ;       F    F N           -1   -1   -1   -1   -1   -1    0    0    0<     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    =   16250.00077916.667 1770.833 7708.333    >       F    F N           -1   -1   -1   -1   -1   -1    0    0    0?     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    @   16250.00069687.500 1770.833 7708.333    A       F    F N           -1   -1   -1   -1   -1   -1    0    0    0B     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IMUCE1354515764 8  0    C   10520.83353229.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               D     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IN6YU1354515772 8  0    E   10520.83361458.333 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               F     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10INN1G1354515785 8  0    G   10520.83369687.500 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               H     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IO1LW1354515794 8  0    I   10520.83377916.667 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               J     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IOAW21354515800 8  0    K   10520.83386145.833 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               L     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IONHE1354515810 8  0    M   10520.83394479.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               N     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IY4PL1354516045 8  0    O   16250.00094375.000 1770.833 7708.333    P       F    F N           -1   -1   -1   -1   -1   -1    0    0    0Q     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    R   16250.00086250.000 1770.833 7708.333    S       F    F N           -1   -1   -1   -1   -1   -1    0    0    0T     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           13125.000 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    U   26145.83328854.167 1770.833 7708.333    V       F    F N           -1   -1   -1   -1   -1   -1    0    0    0W     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    X   26145.83320729.167 1770.833 7812.500    Y       F    F N           -1   -1   -1   -1   -1   -1    0    0    0Z     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    [   26145.83345104.167 1770.833 7708.333    \       F    F N           -1   -1   -1   -1   -1   -1    0    0    0]     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    ^   26145.83336979.167 1770.833 7708.333    _       F    F N           -1   -1   -1   -1   -1   -1    0    0    0`     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    a   26145.83361458.333 1770.833 7708.333    b       F    F N           -1   -1   -1   -1   -1   -1    0    0    0c     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    d   26145.83353229.167 1770.833 7708.333    e       F    F N           -1   -1   -1   -1   -1   -1    0    0    0f     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    g   26145.83377916.667 1770.833 7708.333    h       F    F N           -1   -1   -1   -1   -1   -1    0    0    0i     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    j   26145.83369687.500 1770.833 7708.333    k       F    F N           -1   -1   -1   -1   -1   -1    0    0    0l     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WR1354516195 8  0    m   26145.83394375.000 1770.833 7708.333    n       F    F N           -1   -1   -1   -1   -1   -1    0    0    0o     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    p   26145.83386250.000 1770.833 7708.333    q       F    F N           -1   -1   -1   -1   -1   -1    0    0    0r     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           25625.000 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    s   26250.000 3645.833 1562.500 4270.833                               -1   -1   -1   -1   -1   -1               t     1  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6GK0TWIRX1431924516 8  0    u   10520.833102604.17 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               v     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _6GK0TWIS01431924516 8  0    w   16250.000102708.33 1770.833 7708.333    x       F    F N           -1   -1   -1   -1   -1   -1    0    0    0y     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _6GK0TWIS21431924516 8  0    z   26145.833102708.33 1770.833 7708.333    {       F    F N           -1   -1   -1   -1   -1   -1    0    0    0|     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0TTF0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   }     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   ~     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid.sp2                                                   Arial Narrow                                                  kstgrid.sp4                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp3                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp6                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp5                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp1                                                   Arial Narrow                                                  kstgrid.sp8                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp7                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp10                                                  "@Z"                                                          Arial Narrow                                                  kstgrid.sp9                                                   "@Z"                                                          Arial Narrow                                                  8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  kstgrid.sp12                                                  "@Z"                                                          Arial Narrow                                                  kstgrid.sp11                                                  "@Z"                                                          Arial Narrow                                                  msp4                                                          "@Z"                                                          Arial Narrow                                                  msp3                                                          "@Z"                                                          Arial Narrow                                                  msp6                                                          "@Z"                                                          Arial Narrow                                                  msp5                                                          "@Z"                                                          Arial Narrow                                                  msp8                                                          "@Z"                                                          Arial Narrow                                                  msp7                                                          "@Z"                                                          Arial Narrow                                                  msp10                                                         "@Z"                                                          Arial Narrow                                                  msp9                                                          "@Z"                                                          Arial Narrow                                                  msp12                                                         "@Z"                                                          Arial Narrow                                                  msp11                                                         "@Z"                                                          Arial Narrow                                                  "Summen"                                                      Arial Narrow                                                  14                                                           Arial Narrow                                                  kstgrid.sp13                                                  "@Z"                                                          Arial Narrow                                                  msp13                                                         "@Z"                                                          Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid.sp2                                                   Arial Narrow                                                  kstgrid.sp4                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp3                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp6                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp5                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp1                                                   Arial Narrow                                                  kstgrid.sp8                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp7                                                   "@Z"                                                          Arial Narrow                                                  kstgrid.sp10                                                  "@Z"                                                          Arial Narrow                                                  kstgrid.sp9                                                   "@Z"                                                          Arial Narrow                                                  8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  kstgrid.sp12                                                  "@Z"                                                          Arial Narrow                                                  kstgrid.sp11                                                  "@Z"                                                          Arial Narrow                                                  msp4                                                          "@Z"                                                          Arial Narrow                                                  msp3                                                          "@Z"                                                          Arial Narrow                                                  msp6                                                          "@Z"                                                          Arial Narrow                                                  msp5                                                          "@Z"                                                          Arial Narrow                                                  msp8                                                          "@Z"                                                          Arial Narrow                                                  msp7                                                          "@Z"                                                          Arial Narrow                                                  msp10                                                         "@Z"                                                          Arial Narrow                                                  msp9                                                          "@Z"                                                          Arial Narrow                                                  msp12                                                         "@Z"                                                          Arial Narrow                                                  msp11                                                         "@Z"                                                          Arial Narrow                                                  "Summen"                                                      Arial Narrow                                                  14                                                           Arial Narrow                                                  kstgrid.sp13                                                  "@Z"                                                          Arial Narrow                                                  msp13                                                         "@Z"                                                          Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         01   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          43542.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L692S1351634582 8  0        1666.66763854.167 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        1666.667 4270.833 1666.66718020.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        3645.833 4270.833 1666.66718020.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        1666.66767187.500 1666.66711562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        6354.167 4062.500 1875.00061875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0        13645.833 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        8437.500 4062.500 1875.00061875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00NRG9Z1354455206 8  0       16875.000 4166.667 1875.00013750.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00NS35V1354455221 8  0        16875.00018645.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0!     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NSU5J1354455241 8  0    "   16875.00030833.333 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0#     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NT39B1354455247 8  0    $   16875.00042812.500 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0%     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10OYIGS1354521813 8  0    &   10520.833 4062.500 1875.00061875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0'     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10P215W1354521901 8  0    (   16875.00054791.667 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0)     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P36YC1354521930 8  0    *   16875.00066770.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0+     0 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P99B71354522082 6  0        16354.167 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10P9EIF1354522085 8  0    ,   14166.667 4166.667 1875.00013750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0-     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10P9EIG1354522085 8  0    .   14166.66718645.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0/     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P9EIH1354522085 8  0    0   14062.50030833.333 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    01     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P9EII1354522085 8  0    2   14062.50042812.500 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    03     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P9EIJ1354522085 8  0    4   14062.50054791.667 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    05     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10P9EIK1354522085 8  0    6   14062.50066770.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    07     1 10  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10PRQXG1354522669 6  0        19270.833 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10Q8U4P1354523094 8  0    8   19895.833 4166.667 1875.00013750.000    9       F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4Q1354523094 8  0    ;   19895.83318645.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4R1354523094 8  0    =   19895.83330833.333 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4S1354523094 8  0    ?   19895.83342812.500 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4T1354523094 8  0    A   19895.83354791.667 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4U1354523094 8  0    C   19895.83366770.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0D     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q8U4V1354523094 6  0        25000.000 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10Q9Y0J1354523122 8  0    E   22395.833 4166.667 1875.00026041.667    F       F    F C           -1   -1   -1   -1   -1   -1    0    0    0G     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q9Y0M1354523122 8  0    H   22395.83342812.500 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0I     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q9Y0N1354523122 8  0    J   22395.83354791.667 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0K     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q9Y0O1354523122 8  0    L   22395.83366770.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0M     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10Q9Y0P1354523122 6  0        27916.667 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10QA59X1354523126 6  0        28229.167 4166.667  104.16774895.833            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5V610LBYE1362266251 8  0    N   25520.833 4166.667 1875.00026041.667    O       F    F C           -1   -1   -1   -1   -1   -1    0    0    0P     0 10  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5V610LBYH1362266251 8  0    Q   25520.83342812.500 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0R     0 10  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5V610LBYI1362266251 8  0    S   25520.83354791.667 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0T     0 10  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5V610LBYJ1362266251 8  0    U   25520.83366770.833 1875.00011354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0V     0 10  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   W     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   X     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   Y     1 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   Z     0 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   [     1 10                                                     F               WINDOWS                     25   \   ]                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp1                                                       "@!"                                                          Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  3                                                            Arial                                                         an1_sp5                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  an2_sp1                                                       "@!"                                                          Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an3_sp1                                                       "@!"                                                          Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an4_sp1                                                       "@!"                                                          Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp1                                                       "@!"                                                          Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  3                                                            Arial                                                         an1_sp5                                                       Arial Narrow                                                  an1_sp6                                                       Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  an2_sp1                                                       "@!"                                                          Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an2_sp6                                                       Arial Narrow                                                  an3_sp1                                                       "@!"                                                          Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an3_sp6                                                       Arial Narrow                                                  an4_sp1                                                       "@!"                                                          Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  an4_sp6                                                       Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0,   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          43855.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L692S1351634582 8  0        1666.66764687.500 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        1666.667 4479.167 1666.66719895.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        3854.167 4479.167 1666.66719895.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        1666.66767604.167 1666.66711979.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        7187.500 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0        14375.000 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        9270.833 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0P1354455900 8  0       15104.16734270.833 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0Q1354455900 8  0       15104.167 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0R1354455900 8  0    !   15104.16757708.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0S1354455900 8  0    #   15104.16745937.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10USHO71354527421 8  0    %   11354.167 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VQSEK1354528275 8  0    '   15104.16769479.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LQ1354528361 8  0    )   17604.16734270.833 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LR1354528361 8  0    +   17604.167 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LS1354528361 8  0    -   17604.16757708.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LT1354528361 8  0    /   17604.16745937.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LU1354528361 8  0    1   17604.16769479.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    02     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2461354528381 8  0    3   20312.50034270.833 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2471354528381 8  0    5   20312.500 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2481354528381 8  0    7   20312.50057708.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2491354528381 8  0    9   20312.50045937.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV24A1354528381 8  0    ;   20312.50069479.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H41354528386 8  0    =   22812.50034270.833 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H51354528386 8  0    ?   22812.500 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H61354528386 8  0    A   22812.50057708.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H71354528386 8  0    C   22812.50045937.500 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0D     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H81354528386 8  0    E   22812.50069479.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0F     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VZ1N41354528482 6  0        22395.833 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10VZY7W1354528503 6  0        25000.000 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10W0AFC1354528519 5  0    G   25937.500 4375.000 1562.50013958.333                               -1   -1   -1   -1   -1   -1               H     0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S10W0NSQ1354528522 6           31458.333 4375.000  104.16728437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10W0RVO1354528524 5  0    I   25937.50050312.500 1562.500 5104.167                               -1   -1   -1   -1   -1   -1               J     0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S10W0RVP1354528524 6           31458.33350312.500  104.16728437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5U0110E771359448579 6  0        17187.500 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   K     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   L     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   M     1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   N     1  8                                                     F               WINDOWS                     25   O   P                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  3                                                            Arial                                                         an1_sp5                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  #"Sachlich und rechnerisch richtig:"                           Arial Narrow                                                  "Festgestellt:"                                               Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp4                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  3                                                            Arial                                                         an1_sp5                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp4                                                       Arial Narrow                                                  an2_sp3                                                       Arial Narrow                                                  an2_sp5                                                       Arial Narrow                                                  an3_sp2                                                       Arial Narrow                                                  an3_sp1                                                       Arial Narrow                                                  an3_sp4                                                       Arial Narrow                                                  an3_sp3                                                       Arial Narrow                                                  an3_sp5                                                       Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp4                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an4_sp5                                                       Arial Narrow                                                  #"Sachlich und rechnerisch richtig:"                           Arial Narrow                                                  "Festgestellt:"                                               Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0%   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          42396.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L692S1351634582 8  0        1666.66764687.500 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        1666.667 4479.167 1666.66717187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        3854.167 4479.167 1666.66717187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        1666.66769062.500 1666.66710416.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        7187.500 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0        14375.000 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        9270.833 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0P1354455900 8  0       15104.16738958.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0Q1354455900 8  0       15104.167 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0S1354455900 8  0    !   15104.16755729.167 1770.83321041.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10USHO71354527421 8  0    #   11354.167 4479.167 1875.00048541.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VU6LR1354528361 8  0    %   20833.333 4479.167 1770.83375312.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2461354528381 8  0    '   22708.33338958.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2471354528381 8  0    )   22708.333 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV2491354528381 8  0    +   22708.33355729.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VV6H51354528386 8  0    -   28437.500 4479.167 1770.83375729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S10VZY7W1354528503 6  0        30625.000 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S10W0AFC1354528519 5  0    /   31562.500 4375.000 1562.50013958.333                               -1   -1   -1   -1   -1   -1               0     0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S10W0NSQ1354528522 6           37083.333 4375.000  104.16728437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10W0RVO1354528524 5  0    1   31562.50050312.500 1562.500 5104.167                               -1   -1   -1   -1   -1   -1               2     0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S10W0RVP1354528524 6           37083.33350312.500  104.16728437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10Z9YKI1354531696 6  0        17395.833 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S110H3FS1354532898 8  0    3   25208.33338958.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S110H3FT1354532898 8  0    5   25208.333 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S110H3FU1354532898 8  0    7   25208.33355729.167 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6A40M3TKZ1416057433 8  0    9   18125.00038958.333 1770.83310729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6A40M3TL01416057433 8  0    ;   18125.000 4479.167 1770.83328229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _6A40M3TL11416057433 8  0    =   18125.00055729.167 1770.83321041.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0?     0  8  100F 0 0TTFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0TTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   @     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   A     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   B     1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   C     1  8                                                     F               WINDOWS                     25   D   E                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  3                                                            Arial                                                         an3_sp1                                                       Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  #"Sachlich und rechnerisch richtig:"                           Arial Narrow                                                  "Festgestellt:"                                               Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp3                                                       ""                                                            Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  3                                                            Arial                                                         an3_sp1                                                       Arial Narrow                                                  an4_sp2                                                       Arial Narrow                                                  an4_sp1                                                       Arial Narrow                                                  an4_sp3                                                       Arial Narrow                                                  an6_sp1                                                       Arial Narrow                                                  #"Sachlich und rechnerisch richtig:"                           Arial Narrow                                                  "Festgestellt:"                                               Arial Narrow                                                  an5_sp2                                                       Arial Narrow                                                  an5_sp1                                                       Arial Narrow                                                  an5_sp3                                                       Arial Narrow                                                  an2_sp2                                                       Arial Narrow                                                  an2_sp1                                                       Arial Narrow                                                  an2_sp3                                                       ""                                                            Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0h   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          17500.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5UW0L20H0           9  8                           7500.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66720208.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66717083.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.000105000.00 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4791.66720937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        6875.00020937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0       19895.833 3125.000 1770.83316875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0       19895.83333958.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0    !   19895.83325208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    #   19895.83352291.667 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    %   19895.83342604.167 1770.833 8229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    '   19895.83370104.167 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    )   19895.83360729.167 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    +   19895.83385625.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    -   19895.83379270.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PL1354516045 8  0    /   19895.83399270.833 1770.833 8750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    1   19895.83391770.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    02     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           17395.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    3   29375.00033958.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    5   29375.00025208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    7   29375.00052291.667 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    9   29375.00042604.167 1770.833 8229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    ;   29375.00070104.167 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    =   29375.00060729.167 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    ?   29375.00085625.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    A   29375.00079270.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WR1354516195 8  0    C   29375.00099270.833 1770.833 8750.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0D     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    E   29375.00091770.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0F     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           28854.167 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    G   29479.167 3645.833 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               H     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    I   10416.667 3020.833 1562.500 3750.000                               -1   -1   -1   -1   -1   -1               J     0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5S20KK1BE1354583150 5  0    K   10416.66725625.000 1562.500 6354.167                               -1   -1   -1   -1   -1   -1               L     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KOUJ91354583270 5  0    M   10416.66735312.500 1562.500 5520.833                               -1   -1   -1   -1   -1   -1               N     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    O   11875.00035312.500 1562.500 5520.833                               -1   -1   -1   -1   -1   -1               P     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR911354583292 5  0    Q   10416.66743645.833 1562.500 7187.500                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    S   11875.00044166.667 1562.500 6666.667                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KR1H71354583323 5  0    U   10416.66758020.833 1562.50017083.333                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    W   10416.66786041.667 1562.500 6666.667                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KSGI51354583361 5  0    Y   10416.66799687.500 1562.500 7708.333                               -1   -1   -1   -1   -1   -1               Z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KSZGX1354583373 5  0    [   11979.167103437.50 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               \     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           10000.00024583.33311979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20KUNC71354583414 5  0    ]   13541.66739166.667 1562.500 1666.667                               -1   -1   -1   -1   -1   -1               ^     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KZJW11354583536 5  0    _   13541.66748645.833 1562.500 2187.500                               -1   -1   -1   -1   -1   -1               `     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L01EB1354583547 5  0    a   11875.00055104.167 1562.500 4375.000                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L0IHB1354583560 5  0    c   11875.00061562.500 1562.50015833.333                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L1NTN1354583589 5  0    e   11979.16783229.167 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L260X1354583601 5  0    g   11979.16789583.333 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L2F7H1354583607 5  0    i   11979.16795729.167 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L3L3U1354583636 6           10000.00032812.50011979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L3VPS1354583643 6           10000.00041562.50011979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L42ZQ1354583650 6           10000.00051875.00011979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4AV21354583655 6           12083.33360208.333 9791.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4KEY1354583661 6           10000.00078541.66711979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           10000.00098125.00011979.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LA6XI1354583800 5  0    k   13541.66757291.667 1562.500 2187.500                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LF0BG1354583921 5  0    m   13541.66763229.167 1562.500 4687.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LFCAU1354583928 5  0    o   13541.66772291.667 1562.500 5000.000                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LKFUN1354584183 5  0    q   15208.33338333.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    s   15208.33329583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    u   15208.33348020.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    w   15208.33357187.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               x     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM56P1354584227 5  0    y   15208.33365104.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM9IJ1354584230 5  0    {   15208.33374479.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               |     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMDTJ1354584233 5  0    }   15208.33382083.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               ~     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMHV31354584235 5  0       15208.33388437.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LML6T1354584237 5  0       15208.33394583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMQ5Z1354584241 5  0       15208.333105208.33 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LOPE91354584291 6           21666.66760208.333  208.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LUPTJ1354584439 5  0       31458.333 3645.833 1562.500 8437.500                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LVJPX1354584460 6           28645.83332812.500 4895.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJPY1354584460 6           28645.83341562.500 4895.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJPZ1354584460 6           28645.83351875.000 4895.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ01354584460 6           28645.83378541.667 4895.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ11354584460 6           28645.83398125.000 4895.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVWMX1354584469 6           33437.500 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S20LWWWH1354584494 5  0       31458.33339166.667 1562.500 1250.000                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LXC171354584504 5  0       31458.33348645.833 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LXRCM1354584516 5  0       31458.33357916.667 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LYSL61354584540 6           28437.50060208.333 5104.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LZ8ZG1354584553 5  0       31458.33365833.333 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LZLNA1354584561 5  0       31458.33375208.333 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LZW1G1354584568 5  0       31458.33383645.833 1562.500 1250.000                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20M0GVG1354584583 5  0       31458.33390000.000 1562.500 1250.000                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20M0X7I1354584594 5  0       31458.33395104.167 1562.500 2291.667                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20M2OXE1354584637 5  0       33750.00063645.833 1562.500 6875.000                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20M3IVQ1354584658 8  0       33645.83371354.167 1770.833 5625.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6340K5HV41390299909 6           19479.16724583.333 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K5SQE1390299916 6           19479.16732812.500 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K5XEZ1390299919 6           19479.16741562.500 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K621T1390299922 6           19479.16751875.000 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K67KA1390299926 6           19479.16760208.333 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K6CHI1390299929 6           19479.16778541.667 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340K6JKB1390299933 6           19479.16798125.000 2500.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                >   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         knappschaft.name                                              Arial Narrow                                                  knappschaft.sp2                                               Arial Narrow                                                  knappschaft.sp1                                               Arial Narrow                                                  knappschaft.sp4                                               Arial Narrow                                                  knappschaft.sp3                                               Arial Narrow                                                  knappschaft.sp6                                               Arial Narrow                                                  knappschaft.sp5                                               Arial Narrow                                                  knappschaft.sp8                                               Arial Narrow                                                  knappschaft.sp7                                               Arial Narrow                                                  knappschaft.sp10                                              Arial Narrow                                                  knappschaft.sp9                                               Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  
"P A U S C H"                                                 Arial Narrow                                                  
"S T E U E R"                                                 Arial Narrow                                                  "K R A N K E N -"                                             Arial Narrow                                                  "V E R S I C H ."                                             Arial Narrow                                                  %"R E N T E N V E R S I C H E R U N G"                         Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "ABLIEFERUNGS-"                                               Arial Narrow                                                  "BETRAG"                                                      Arial Narrow                                                  "2 %"                                                         Arial Narrow                                                  "13 %"                                                        Arial Narrow                                                  "b e f r e i t"                                               Arial Narrow                                                  -"v e r s i c h e r u n g s p f l i c h t i g"                 Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "15 %"                                                        Arial Narrow                                                  "AG = 15 %"                                                   Arial Narrow                                                  "AN = 3,6 %"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Beitragsschlssel"                                           Arial Narrow                                                  "ST"                                                          Arial Narrow                                                  "6000"                                                        Arial Narrow                                                  "0500"                                                        Arial Narrow                                                  "0100"                                                        Arial Narrow                                                  "0100"                                                        Arial Narrow                                                  "U1"                                                          Arial Narrow                                                  "U2"                                                          Arial Narrow                                                  "INSO"                                                        Arial Narrow                                                  "Summe 0100 ="                                                Arial Narrow                                                  	summe0100                                                     "999999.99"                                                   Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         knappschaft.name                                              Arial Narrow                                                  knappschaft.sp2                                               Arial Narrow                                                  knappschaft.sp1                                               Arial Narrow                                                  knappschaft.sp4                                               Arial Narrow                                                  knappschaft.sp3                                               Arial Narrow                                                  knappschaft.sp6                                               Arial Narrow                                                  knappschaft.sp5                                               Arial Narrow                                                  knappschaft.sp8                                               Arial Narrow                                                  knappschaft.sp7                                               Arial Narrow                                                  knappschaft.sp10                                              Arial Narrow                                                  knappschaft.sp9                                               Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  
"P A U S C H"                                                 Arial Narrow                                                  
"S T E U E R"                                                 Arial Narrow                                                  "K R A N K E N -"                                             Arial Narrow                                                  "V E R S I C H ."                                             Arial Narrow                                                  %"R E N T E N V E R S I C H E R U N G"                         Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "ABLIEFERUNGS-"                                               Arial Narrow                                                  "BETRAG"                                                      Arial Narrow                                                  "2 %"                                                         Arial Narrow                                                  "13 %"                                                        Arial Narrow                                                  "b e f r e i t"                                               Arial Narrow                                                  -"v e r s i c h e r u n g s p f l i c h t i g"                 Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "15 %"                                                        Arial Narrow                                                  "AG = 15 %"                                                   Arial Narrow                                                  "AN = 3,6 %"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Beitragsschlssel"                                           Arial Narrow                                                  "ST"                                                          Arial Narrow                                                  "6000"                                                        Arial Narrow                                                  "0500"                                                        Arial Narrow                                                  "0100"                                                        Arial Narrow                                                  "0100"                                                        Arial Narrow                                                  "U1"                                                          Arial Narrow                                                  "U2"                                                          Arial Narrow                                                  "INSO"                                                        Arial Narrow                                                  "Summe 0100 ="                                                Arial Narrow                                                  	summe0100                                                     "999999.99"                                                   Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          19375.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5S60Y086T           9  8                          26980.000    0.000                                                                                                    F  FFF         FTF                  F               WINDOWS _6820V3HCH1402565584 7  4        48750.000 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V3BIR1402565580 7  4        45104.167 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V33ZX1402565575 7  4        41562.500 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V28IB1402565553 7  4        38020.833 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5S60KPZPT1354910978 5  0       45208.33382083.333 1562.50012604.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _5S60KTVB41354911074 5  0       45208.33395833.333 1562.50012708.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _5S60KTVB51354911074 5  0       46979.16795833.333 1562.50012812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _5S60KPZPU1354910978 5  0       46979.16782083.333 1562.50010729.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _5S60KPZPV1354910978 5  0       48750.00082083.333 1562.50010625.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66722708.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66716875.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0         4375.000105000.00 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1               !     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F"        WINDOWS _5QV0LB0NG1351634708 8  0    #    4375.00020937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1               $     1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6           12812.500 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0    %    6458.33320937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1               &     1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0    '   21770.833 2083.333 1770.83315729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0    )   21770.83326250.000 1770.833 6770.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0    +   21770.83318750.000 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    -   21770.83340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    /   21770.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    1   21770.83354270.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    02     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    3   21770.83347604.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    5   21770.83366979.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    7   21770.83360729.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PL1354516045 8  0    9   21770.83380000.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    ;   21770.83373541.667 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           19166.667 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    =   31458.33326250.000 1770.833 6770.833    >       F    F C           -1   -1   -1   -1   -1   -1    0    0    0?     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    @   31458.33318750.000 1770.833 7187.500    A       F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    C   31458.33340625.000 1770.833 5937.500    D       F    F C           -1   -1   -1   -1   -1   -1    0    0    0E     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    F   31458.33333750.000 1770.833 5937.500    G       F    F C           -1   -1   -1   -1   -1   -1    0    0    0H     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    I   31458.33354270.833 1770.833 5625.000    J       F    F C           -1   -1   -1   -1   -1   -1    0    0    0K     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    L   31458.33347604.167 1770.833 5625.000    M       F    F C           -1   -1   -1   -1   -1   -1    0    0    0N     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    O   31458.33366979.167 1770.833 5625.000    P       F    F C           -1   -1   -1   -1   -1   -1    0    0    0Q     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    R   31458.33360729.167 1770.833 5625.000    S       F    F C           -1   -1   -1   -1   -1   -1    0    0    0T     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WR1354516195 8  0    U   31458.33380000.000 1770.833 5625.000    V       F    F C           -1   -1   -1   -1   -1   -1    0    0    0W     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    X   31458.33373541.667 1770.833 5625.000    Y       F    F C           -1   -1   -1   -1   -1   -1    0    0    0Z     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           30937.500 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    [   31562.500 2604.167 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               \     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    ]   13333.333 1979.167 1562.500 3750.000                               -1   -1   -1   -1   -1   -1               ^     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KK1BE1354583150 5  0    _   13333.33323541.667 1562.500 6354.167                               -1   -1   -1   -1   -1   -1               `     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    a   15104.16735729.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR911354583292 5  0    c   13333.33339895.833 1562.500 7604.167                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    e   15104.16742604.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KR1H71354583323 5  0    g   13333.33360625.000 1562.500 6666.667                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    i   13333.33388645.833 1562.500 8125.000                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           12916.66718333.33310833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTT0 0F         WINDOWS _5S20L1NTN1354583589 5  0    k   15208.333103020.83 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L260X1354583601 5  0    m   15208.333107812.50 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L2F7H1354583607 5  0    o   15208.333112604.17 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L3L3U1354583636 6           12916.66733333.33310833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L3VPS1354583643 6           12916.66753541.66710833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4KEY1354583661 6           12916.66773020.83310833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           12916.66786041.66710833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LKFUN1354584183 5  0    q   17083.33336875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    s   17083.33330208.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    u   17083.33348958.333 1562.500 4166.667                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    w   17083.33357083.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               x     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM56P1354584227 5  0    y   17083.33369791.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM9IJ1354584230 5  0    {   17083.33376354.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               |     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMDTJ1354584233 5  0    }   17083.33382812.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               ~     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMHV31354584235 5  0       17083.33389583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LML6T1354584237 5  0       17083.33396041.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMQ5Z1354584241 5  0       17083.333101770.83 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LVWMX1354584469 6           33750.000 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S20NZMB71354586481 8  0        8437.50020937.500 3645.83374687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S20O6SN71354586660 6           12916.66799479.16710833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20O83DP1354586693 5  0       15208.33323125.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20O90CD1354586714 5  0       15208.33330104.167 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OA1IP1354586740 5  0       15729.16748541.667 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OBB2G1354586772 5  0       13333.33375833.333 1562.500 6979.167                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OC8ZU1354586796 5  0       13333.333104479.17 1562.500 6666.667                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OCQMU1354586807 5  0       17083.33323125.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OCYS61354586812 5  0       17083.33343750.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHVY1354586827 5  0       15104.16755937.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHVZ1354586827 5  0       15104.16762395.833 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHW01354586827 5  0       15104.16768020.833 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODSU41354586834 5  0       17083.33363541.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OE6UA1354586843 5  0       15104.16775208.333 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OE6UB1354586843 5  0       15104.16781666.667 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OEYQQ1354586863 5  0       15104.16788437.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OEYQR1354586863 5  0       15104.16794895.833 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OFGFY1354586874 5  0       17083.333106562.50 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OFK321354586877 5  0       17083.333111354.17 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20TRRYV1354591917 8  0       21770.83393229.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TRRYW1354591917 8  0       21770.83386770.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDV1354591930 8  0       21770.833100104.17 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDW1354591930 8  0       21770.833109687.50 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDX1354591930 8  0       21770.833104895.83 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TWHAP1354592035 8  0       31458.33386770.833 1770.833 5625.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S20TWV971354592044 8  0       31458.33393229.167 1770.833 5625.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3V1354716408 8  0       31458.333100104.17 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3W1354716408 8  0       31458.333104895.83 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3X1354716408 8  0       31458.333109687.50 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60K0N801354910347 5  0       34166.667 2604.167 1562.500 9479.167                               -1   -1   -1   -1   -1   -1                    1  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2G801354910391 5  0       34166.66735729.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2G811354910391 5  0       34166.66749687.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2G821354910391 5  0       34166.66755729.167 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2QQ21354910397 5  0       35937.50036875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2QQ31354910397 5  0       35937.50057500.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K2QQ41354910397 5  0       35937.50050833.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K36XO1354910410 5  0       34166.66761562.500 1562.500 5312.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K36XP1354910410 5  0       34166.66768750.000 1562.500 8020.833                               -1   -1   -1   -1   -1   -1                    1  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K36XQ1354910410 5  0       35937.50076875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K36XR1354910410 5  0       35937.50068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K47LY1354910436 5  0       35937.50089895.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K4J2Q1354910443 5  0       35937.500101458.33 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K5QHS1354910473 5  0       35937.50063958.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K6FSM1354910490 6           37708.333 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S60K7I561354910517 5  0       39895.833 2604.167 1562.50011250.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K7O001354910520 5  0       41666.667 2604.167 1562.50010937.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K7O011354910520 5  0       43437.500 2604.167 1562.50013437.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K7RNO1354910523 5  0       45208.333 2604.167 1562.50016770.833                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K7RNP1354910523 5  0       46979.167 2604.167 1562.50017916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60K7Y781354910529 5  0       48750.000 2604.167 1562.50011979.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KCUMD1354910649 6           50833.333 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S60KIN331354910794 5  0       51458.333 2604.167 1562.500 6875.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KKRXH1354910848 8  0       38020.83347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KKRXI1354910848 8  0       38020.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KKRXJ1354910848 8  0       38020.83361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KKRXK1354910848 8  0       38020.83354687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KKRXL1354910848 8  0       38020.83374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KMEEZ1354910888 8  0       38020.833100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KN13N1354910903 8  0       38020.83387083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KNLDN1354910918 5  0       38125.00068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDO1354910918 5  0       39895.83368750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDP1354910918 5  0       41666.66768750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDQ1354910918 5  0       43437.50068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDR1354910918 5  0      45208.33368750.000 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDS1354910918 5  0      46979.16768750.000 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KNLDT1354910918 5  0      48750.00068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KPZPQ1354910978 5  0      38125.00082083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1               	    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KPZPR1354910978 5  0    
  41666.66782083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KPZPS1354910978 5  0      43437.50082083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1               
    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KTVB01354911074 5  0      38125.00095833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KTVB11354911074 5  0      41666.66795833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KTVB21354911074 5  0      43437.50095833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5S60KVYE21354911125 8  0      39791.66747708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KVYE31354911125 8  0      39791.66733750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KVYE41354911125 8  0      39791.66761354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60KVYE51354911125 8  0      39791.66754687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KVYE61354911125 8  0      39791.66774062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KVYE71354911125 8  0      39791.667100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KVYE81354911125 8  0       39791.66787083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0!    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48M1354911129 8  0    "  41562.50047708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0#    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48N1354911129 8  0    $  41562.50033750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0%    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48O1354911129 8  0    &  41562.50061354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0'    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48Q1354911129 8  0    (  41562.50074062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0)    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48R1354911129 8  0    *  41562.500100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0+    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW48S1354911129 8  0    ,  41562.50087083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0-    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JQ1354911132 8  0    .  43333.33347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0/    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JR1354911132 8  0    0  43333.33333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    01    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JS1354911132 8  0    2  43333.33361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    03    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JU1354911132 8  0    4  43333.33374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    05    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JV1354911132 8  0    6  43333.333100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    07    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KW9JW1354911132 8  0    8  43333.33387083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    09    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWCXF1354911136 8  0    :  45104.16733750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0;    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWCXG1354911136 8  0    <  45104.16761354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0=    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWCXI1354911136 8  0    >  45104.16774062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0?    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWIW51354911140 8  0    @  46875.00033750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0A    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWIW61354911140 8  0    B  46875.00061354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0C    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWIW81354911140 8  0    D  46875.00074062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0E    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWOR91354911144 8  0    F  48645.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0G    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWORA1354911144 8  0    H  48645.83361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0I    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60KWORC1354911144 8  0    J  48645.83374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0K    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S60L77431354911405 8  0    L  51458.33347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0M    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60L77441354911405 8  0    N  51458.33333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0O    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60L77451354911405 8  0    P  51458.33361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0Q    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60L77461354911405 8  0    R  51458.33354687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0S    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60Y1Z2P1354923689 6           30833.33318333.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2Q1354923689 6           30833.33333333.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2R1354923689 6           30833.33353541.667 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2S1354923689 6           30833.33399479.167 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2T1354923689 6           30833.33373020.833 2916.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60ZJKUJ1354925149 8  0    T  48645.83315104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0U    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTF0 0F         WINDOWS _5S70THZ5O1354984887 5  0    V  38125.000 2604.167 1562.50011666.667                               -1   -1   -1   -1   -1   -1               W    0  8  1       TFFFF  F          0T                      0FTT0 0FX       WINDOWS _5S70THZ5P1354984887 5  0    Y  38125.000 2604.167 1562.50011666.667                               -1   -1   -1   -1   -1   -1               Z    0  8  1       TFFFF  F          0T                      0FTT0 0F[       WINDOWS _6330ZVEE71390249350 6           21562.50018333.333 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6330ZZBJX1390249448 6           21562.50033333.333 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6330ZZQMW1390249458 6           21562.50053541.667 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6330ZZYQJ1390249463 6           21562.50073020.833 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6331006EK1390249468 6           21562.50086041.667 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _633100CQH1390249474 6           21562.50099479.167 2291.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _67Q0WVGKY1401780874 5  0    \  51562.50060520.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               ]    0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _67Q0WVY9K1401780884 7  4        51145.83333229.167 2500.00034166.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _67Q0WZC2U1401780969 5  0    ^  51562.50053958.333 1562.500  520.833                               -1   -1   -1   -1   -1   -1               _    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _67Q0WZN181401780976 5  0    `  51562.50039895.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               a    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _6800UC5P01402433832 5  0    b  34166.66741979.167 1562.500 4583.333                               -1   -1   -1   -1   -1   -1               c    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UC5P11402433832 5  0    d  35937.50043750.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               e    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UC5P21402433832 8  0    f  38020.83340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0g    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UD6CY1402433858 8  0    h  51458.33340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0i    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UDGRD1402433865 5  0    j  51562.50046875.000 1562.500  520.833                               -1   -1   -1   -1   -1   -1               k    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _6820MSQ4R1402557638 5  0    l  14583.33348541.667 1562.500 4583.333                               -1   -1   -1   -1   -1   -1               m    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6820V43XV1402565600 6           33854.16767812.50017083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _69S0OJH3K1415011168 5  0    n  48750.00095833.333 1562.500 8958.333                               -1   -1   -1   -1   -1   -1               o    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _69S0OKZ1R1415011205 8  0    p  48645.833105937.50 1770.833 5625.000    q      F    F C           -1   -1   -1   -1   -1   -1    0    0    0r    1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0TTF0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   s    0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   t    0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   u    1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   v    1  8                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   w    0 10                                                     F               WINDOWS                     25   x  y                                                       F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  "3000 = ermigter KV-Beitrag"                                Arial Narrow                                                  "6000 = pauschaler KV-Beitrag"                                Arial Narrow                                                  "0500 = pauschaler RV-Beitrag"                                Arial Narrow                                                  "0300 = halber RV-Beitrag"                                    Arial Narrow                                                  "0020 = halber AV-Beitrag"                                    Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         
beitrag1.name                                                 Arial Narrow                                                  beitrag1.sp2                                                  Arial Narrow                                                  beitrag1.sp1                                                  Arial Narrow                                                  beitrag1.sp4                                                  Arial Narrow                                                  beitrag1.sp3                                                  Arial Narrow                                                  beitrag1.sp6                                                  Arial Narrow                                                  beitrag1.sp5                                                  Arial Narrow                                                  beitrag1.sp8                                                  Arial Narrow                                                  beitrag1.sp7                                                  Arial Narrow                                                  
beitrag1.sp10                                                 Arial Narrow                                                  beitrag1.sp9                                                  Arial Narrow                                                  an_sp2                                                        "999999.99"                                                   Arial Narrow                                                  an_sp1                                                        "999999.99"                                                   Arial Narrow                                                  an_sp4                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp3                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp6                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp5                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp8                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp7                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp10                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp9                                                        
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "KRANKENVERS."                                                Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  
"PFLEGEVERS."                                                 Arial Narrow                                                  "ARBEITSL.-VERS."                                             Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"je  EURO"                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  3                                                            Arial Narrow                                                  	"KV-pfl."                                                     Arial Narrow                                                  	"RV-pfl."                                                     Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  
"RENTENVERS."                                                 Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
beitrag1.sp12                                                 Arial Narrow                                                  
beitrag1.sp11                                                 Arial Narrow                                                  
beitrag1.sp13                                                 Arial Narrow                                                  
beitrag1.sp15                                                 Arial Narrow                                                  
beitrag1.sp14                                                 Arial Narrow                                                  an_sp11                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp12                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp13                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp14                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp15                                                       	"9999.99"                                                     Arial Narrow                                                  "Zusammenstellung:"                                           Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "Beitragsgruppen"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "normal"                                                      Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  'P   = Pflege-Versicherung"'                                  Arial Narrow                                                  "L   = Rentenversicherung"                                    Arial Narrow                                                   "M  = Arbeitslosen-Versicherung"                              Arial Narrow                                                  $"U1 = Umlage Krankheitsaufwendungen"                          Arial Narrow                                                  '"U2 = Umlage Mutterschaftsaufwendungen"                       Arial Narrow                                                  "U3 = Umlage Insolvenzgeld"                                   Arial Narrow                                                  "Gesamtsumme:"                                                Arial Narrow                                                  g_sp4                                                         Arial Narrow                                                  g_sp3                                                         Arial Narrow                                                  g_sp6                                                         Arial Narrow                                                  g_sp5                                                         Arial Narrow                                                  g_sp8                                                         Arial Narrow                                                  g_sp13                                                        Arial Narrow                                                  g_sp10                                                        Arial Narrow                                                  "1000 ="                                                      Arial Narrow                                                  "0001 ="                                                      Arial Narrow                                                  "0100 ="                                                      Arial Narrow                                                  "0010 ="                                                      Arial Narrow                                                  "U1 ="                                                        Arial Narrow                                                  "U2 ="                                                        Arial Narrow                                                  "0050 ="                                                      Arial Narrow                                                  "3000 ="                                                      Arial Narrow                                                  "0300 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  "6000 ="                                                      Arial Narrow                                                  "0500 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  p_sp4                                                         Arial Narrow                                                  p_sp3                                                         Arial Narrow                                                  p_sp6                                                         Arial Narrow                                                  p_sp5                                                         Arial Narrow                                                  p_sp8                                                         Arial Narrow                                                  p_sp13                                                        Arial Narrow                                                  p_sp10                                                        Arial Narrow                                                  l_sp4                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  l_sp6                                                         Arial Narrow                                                  l_sp8                                                         Arial Narrow                                                  l_sp13                                                        Arial Narrow                                                  l_sp10                                                        Arial Narrow                                                  m_sp4                                                         Arial Narrow                                                  m_sp3                                                         Arial Narrow                                                  m_sp6                                                         Arial Narrow                                                  m_sp8                                                         Arial Narrow                                                  m_sp13                                                        Arial Narrow                                                  m_sp10                                                        Arial Narrow                                                  u1_sp3                                                        Arial Narrow                                                  u1_sp6                                                        Arial Narrow                                                  u1_sp8                                                        Arial Narrow                                                  u2_sp3                                                        Arial Narrow                                                  u2_sp6                                                        Arial Narrow                                                  u2_sp8                                                        Arial Narrow                                                  u3_sp3                                                        Arial Narrow                                                  u3_sp6                                                        Arial Narrow                                                  u3_sp8                                                        Arial Narrow                                                  	summe_sp4                                                     Arial Narrow                                                  	summe_sp3                                                     Arial Narrow                                                  	summe_sp6                                                     Arial Narrow                                                  	summe_sp5                                                     Arial Narrow                                                  u3_sp0                                                        Arial Narrow                                                  "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr < 2019                                            "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr >= 2019                                           "="                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  g_sp3_AG                                                      Arial Narrow                                                  summe_sp3_AG                                                  Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "Summe Zusatzb. KV"                                           Arial Narrow                                                  an_sp5_doppelt                                                
"99999.99"                                                    Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  "3000 = ermigter KV-Beitrag"                                Arial Narrow                                                  "6000 = pauschaler KV-Beitrag"                                Arial Narrow                                                  "0500 = pauschaler RV-Beitrag"                                Arial Narrow                                                  "0300 = halber RV-Beitrag"                                    Arial Narrow                                                  "0020 = halber AV-Beitrag"                                    Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         
beitrag1.name                                                 Arial Narrow                                                  beitrag1.sp2                                                  Arial Narrow                                                  beitrag1.sp1                                                  Arial Narrow                                                  beitrag1.sp4                                                  Arial Narrow                                                  beitrag1.sp3                                                  Arial Narrow                                                  beitrag1.sp6                                                  Arial Narrow                                                  beitrag1.sp5                                                  Arial Narrow                                                  beitrag1.sp8                                                  Arial Narrow                                                  beitrag1.sp7                                                  Arial Narrow                                                  
beitrag1.sp10                                                 Arial Narrow                                                  beitrag1.sp9                                                  Arial Narrow                                                  an_sp2                                                        "999999.99"                                                   Arial Narrow                                                  an_sp1                                                        "999999.99"                                                   Arial Narrow                                                  an_sp4                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp3                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp6                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp5                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp8                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp7                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp10                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp9                                                        
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "KRANKENVERS."                                                Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  
"PFLEGEVERS."                                                 Arial Narrow                                                  "ARBEITSL.-VERS."                                             Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"je  EURO"                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  3                                                            Arial Narrow                                                  	"KV-pfl."                                                     Arial Narrow                                                  	"RV-pfl."                                                     Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  
"RENTENVERS."                                                 Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
beitrag1.sp12                                                 Arial Narrow                                                  
beitrag1.sp11                                                 Arial Narrow                                                  
beitrag1.sp13                                                 Arial Narrow                                                  
beitrag1.sp15                                                 Arial Narrow                                                  
beitrag1.sp14                                                 Arial Narrow                                                  an_sp11                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp12                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp13                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp14                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp15                                                       	"9999.99"                                                     Arial Narrow                                                  "Zusammenstellung:"                                           Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "Beitragsgruppen"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "normal"                                                      Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  'P   = Pflege-Versicherung"'                                  Arial Narrow                                                  "L   = Rentenversicherung"                                    Arial Narrow                                                   "M  = Arbeitslosen-Versicherung"                              Arial Narrow                                                  $"U1 = Umlage Krankheitsaufwendungen"                          Arial Narrow                                                  '"U2 = Umlage Mutterschaftsaufwendungen"                       Arial Narrow                                                  "U3 = Umlage Insolvenzgeld"                                   Arial Narrow                                                  "Gesamtsumme:"                                                Arial Narrow                                                  g_sp4                                                         Arial Narrow                                                  g_sp3                                                         Arial Narrow                                                  g_sp6                                                         Arial Narrow                                                  g_sp5                                                         Arial Narrow                                                  g_sp8                                                         Arial Narrow                                                  g_sp13                                                        Arial Narrow                                                  g_sp10                                                        Arial Narrow                                                  "1000 ="                                                      Arial Narrow                                                  "0001 ="                                                      Arial Narrow                                                  "0100 ="                                                      Arial Narrow                                                  "0010 ="                                                      Arial Narrow                                                  "U1 ="                                                        Arial Narrow                                                  "U2 ="                                                        Arial Narrow                                                  "0050 ="                                                      Arial Narrow                                                  "3000 ="                                                      Arial Narrow                                                  "0300 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  "6000 ="                                                      Arial Narrow                                                  "0500 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  p_sp4                                                         Arial Narrow                                                  p_sp3                                                         Arial Narrow                                                  p_sp6                                                         Arial Narrow                                                  p_sp5                                                         Arial Narrow                                                  p_sp8                                                         Arial Narrow                                                  p_sp13                                                        Arial Narrow                                                  p_sp10                                                        Arial Narrow                                                  l_sp4                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  l_sp6                                                         Arial Narrow                                                  l_sp8                                                         Arial Narrow                                                  l_sp13                                                        Arial Narrow                                                  l_sp10                                                        Arial Narrow                                                  m_sp4                                                         Arial Narrow                                                  m_sp3                                                         Arial Narrow                                                  m_sp6                                                         Arial Narrow                                                  m_sp8                                                         Arial Narrow                                                  m_sp13                                                        Arial Narrow                                                  m_sp10                                                        Arial Narrow                                                  u1_sp3                                                        Arial Narrow                                                  u1_sp6                                                        Arial Narrow                                                  u1_sp8                                                        Arial Narrow                                                  u2_sp3                                                        Arial Narrow                                                  u2_sp6                                                        Arial Narrow                                                  u2_sp8                                                        Arial Narrow                                                  u3_sp3                                                        Arial Narrow                                                  u3_sp6                                                        Arial Narrow                                                  u3_sp8                                                        Arial Narrow                                                  	summe_sp4                                                     Arial Narrow                                                  	summe_sp3                                                     Arial Narrow                                                  	summe_sp6                                                     Arial Narrow                                                  	summe_sp5                                                     Arial Narrow                                                  u3_sp0                                                        Arial Narrow                                                  "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr < 2019                                            "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr >= 2019                                           "="                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  g_sp3_AG                                                      Arial Narrow                                                  summe_sp3_AG                                                  Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "Summe Zusatzb. KV"                                           Arial Narrow                                                  an_sp5_doppelt                                                
"99999.99"                                                    Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          19375.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5S60Y086T           9  8                          26980.000    0.000                                                                                                    F  FFF         FTF                  F               WINDOWS _6820V7UWE1402565692 7  4        48750.000 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V7UWF1402565692 7  4        45104.167 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V7UWG1402565692 7  4        41562.500 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _6820V7UWH1402565692 7  4        38020.833 2291.667 1770.83365416.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66721770.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66717812.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4687.50021770.833 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6           12812.500 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0       21770.833 7708.333 1770.83310208.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0       21770.83326250.000 1770.833 6770.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0       21770.83318750.000 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    !   21770.83340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    #   21770.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    %   21770.83354270.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    '   21770.83347500.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    )   21770.83366979.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    +   21770.83360729.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PL1354516045 8  0    -   21770.83380000.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    /   21770.83373541.667 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           19166.667 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    1   31458.33326250.000 1770.833 6770.833    2       F    F C           -1   -1   -1   -1   -1   -1    0    0    03     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    4   31458.33318750.000 1770.833 7187.500    5       F    F C           -1   -1   -1   -1   -1   -1    0    0    06     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    7   31458.33340625.000 1770.833 5937.500    8       F    F C           -1   -1   -1   -1   -1   -1    0    0    09     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    :   31458.33333750.000 1770.833 5937.500    ;       F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    =   31458.33354270.833 1770.833 5625.000    >       F    F C           -1   -1   -1   -1   -1   -1    0    0    0?     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    @   31458.33347500.000 1770.833 5625.000    A       F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    C   31458.33366979.167 1770.833 5625.000    D       F    F C           -1   -1   -1   -1   -1   -1    0    0    0E     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    F   31458.33360729.167 1770.833 5625.000    G       F    F C           -1   -1   -1   -1   -1   -1    0    0    0H     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WR1354516195 8  0    I   31458.33380000.000 1770.833 5625.000    J       F    F C           -1   -1   -1   -1   -1   -1    0    0    0K     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    L   31458.33373541.667 1770.833 5625.000    M       F    F C           -1   -1   -1   -1   -1   -1    0    0    0N     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           30937.500 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    O   31562.500 2604.167 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               P     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    Q   13333.333 1979.167 1562.500 3541.667                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KK1BE1354583150 5  0    S   13333.33323541.667 1562.500 6354.167                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    U   15104.16735729.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR911354583292 5  0    W   13333.33339895.833 1562.500 7604.167                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    Y   15104.16742604.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               Z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KR1H71354583323 5  0    [   13333.33360625.000 1562.500 6666.667                               -1   -1   -1   -1   -1   -1               \     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    ]   13333.33388645.833 1562.500 8125.000                               -1   -1   -1   -1   -1   -1               ^     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           12916.66718333.33310937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L1NTN1354583589 5  0    _   15208.333103020.83 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               `     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L260X1354583601 5  0    a   15208.333107812.50 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L2F7H1354583607 5  0    c   15208.333112604.17 1562.500 1562.500                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L3L3U1354583636 6           12916.66733333.33310937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L3VPS1354583643 6           12916.66753541.66710937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4KEY1354583661 6           12916.66773020.83310937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           12916.66786041.66710937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LKFUN1354584183 5  0    e   17083.33336875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    g   17083.33330208.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    i   17083.33348958.333 1562.500 4166.667                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    k   17083.33357083.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM56P1354584227 5  0    m   17083.33369791.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM9IJ1354584230 5  0    o   17083.33376354.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMDTJ1354584233 5  0    q   17083.33382812.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMHV31354584235 5  0    s   17083.33387395.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LML6T1354584237 5  0    u   17083.33393541.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMQ5Z1354584241 5  0    w   17083.333101770.83 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               x     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LVWMX1354584469 6           33750.000 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S20NZMB71354586481 8  0    y    6666.66721770.833 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S20O6SN71354586660 6           12916.66799479.16710937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20O83DP1354586693 5  0    {   15208.33323125.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               |     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20O90CD1354586714 5  0    }   15208.33330104.167 1562.500 2916.667                               -1   -1   -1   -1   -1   -1               ~     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OA1IP1354586740 5  0       15625.00048541.667 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OBB2G1354586772 5  0       13333.33375833.333 1562.500 6979.167                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OC8ZU1354586796 5  0       13333.333104479.17 1562.500 6666.667                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OCQMU1354586807 5  0       17083.33323125.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OCYS61354586812 5  0       17083.33343750.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHVY1354586827 5  0       15104.16755937.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHVZ1354586827 5  0       15104.16762395.833 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODHW01354586827 5  0       15104.16768020.833 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20ODSU41354586834 5  0       17083.33363541.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OE6UA1354586843 5  0       15104.16775208.333 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OE6UB1354586843 5  0       15104.16781666.667 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OEYQQ1354586863 5  0       15104.16787812.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OEYQR1354586863 5  0       15104.16793229.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OFGFY1354586874 5  0       17083.333106562.50 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20OFK321354586877 5  0       17083.333111354.17 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20TRRYV1354591917 8  0       21770.83393229.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TRRYW1354591917 8  0       21770.83386770.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDV1354591930 8  0       21770.833100104.17 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDW1354591930 8  0       21770.833109687.50 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TSCDX1354591930 8  0       21770.833104895.83 1770.833 4479.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S20TWHAP1354592035 8  0       31458.33386770.833 1770.833 5625.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S20TWV971354592044 8  0       31458.33393229.167 1770.833 5625.000           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3V1354716408 8  0       31458.333100104.17 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3W1354716408 8  0       31458.333104895.83 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S40MUS3X1354716408 8  0       31458.333109687.50 1770.833 4479.167           F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S60Y1Z2P1354923689 6           30833.33318333.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2Q1354923689 6           30833.33333333.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2R1354923689 6           30833.33353541.667 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2S1354923689 6           30833.33399583.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S60Y1Z2T1354923689 6           30833.33373020.833 2916.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S70J7RPI1354975035 5  0       13333.333 7708.333 1562.500 4375.000                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S70J8AUO1354975049 6           12916.667 7395.83310937.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S70J8S881354975061 8  0       21770.833 1562.500 1770.833 5416.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S70JL4NZ1354975497 8  0        8645.83321770.833 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _6340JTV5D1390299620 6           21458.33318333.333 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340JU1Y71390299624 6           21458.333 7395.833 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340JUFEO1390299633 6           21458.33353541.667 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340JUOBR1390299638 6           21458.33373020.833 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340JUX2T1390299644 6           21458.33386041.667 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340JV3DF1390299650 6           21458.33399479.167 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6800UPS4C1402434170 5  0       45208.33382083.333 1562.50012604.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS4D1402434170 5  0       45208.33395833.333 1562.50012708.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS4E1402434170 5  0       46979.16795833.333 1562.50012812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS4F1402434170 5  0       46979.16782083.333 1562.50010729.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS4G1402434170 5  0       48750.00082083.333 1562.50010625.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS4H1402434170 5  0       34166.667 2604.167 1562.500 9479.167                               -1   -1   -1   -1   -1   -1                    1  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4I1402434170 5  0       34166.66735729.167 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4J1402434170 5  0       34166.66749687.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4K1402434170 5  0       34166.66755729.167 1562.500 4583.333                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4L1402434170 5  0       35937.50036875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4M1402434170 5  0       35937.50057500.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4N1402434170 5  0       35937.50050833.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4O1402434170 5  0       34166.66761562.500 1562.500 5312.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4P1402434170 5  0       34166.66768750.000 1562.500 8020.833                               -1   -1   -1   -1   -1   -1                    1  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4Q1402434170 5  0       35937.50076875.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4R1402434170 5  0       35937.50068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4S1402434170 5  0       35937.50089895.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4T1402434170 5  0       35937.500101458.33 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4U1402434170 5  0       35937.50063958.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4V1402434170 6           37708.333 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _6800UPS4W1402434170 5  0       39895.833 2604.167 1562.50011250.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4X1402434170 5  0       41666.667 2604.167 1562.50010937.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4Y1402434170 5  0       43437.500 2604.167 1562.50013437.500                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS4Z1402434170 5  0       45208.333 2604.167 1562.50016770.833                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS501402434170 5  0       46979.167 2604.167 1562.50017916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS511402434170 5  0       48750.000 2604.167 1562.50011979.167                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS521402434170 6           50833.333 1979.167  104.167112187.50                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _6800UPS531402434170 5  0       51458.333 2604.167 1562.500 6875.000                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS541402434170 8  0       38020.83347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS551402434170 8  0       38020.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS561402434170 8  0       38020.83361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS571402434170 8  0       38020.83354687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS581402434170 8  0       38020.83374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS591402434170 8  0       38020.833100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5A1402434170 8  0       38020.83387083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5B1402434170 5  0       38125.00068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5C1402434170 5  0       39895.83368750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5D1402434170 5  0      41666.66768750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5E1402434170 5  0      43437.50068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5F1402434170 5  0      45208.33368750.000 1562.500 2083.333                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5G1402434170 5  0      46979.16768750.000 1562.500 2083.333                               -1   -1   -1   -1   -1   -1               	    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5H1402434170 5  0    
  48750.00068750.000 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5I1402434170 5  0      38125.00082083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1               
    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5J1402434170 5  0      41666.66782083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5K1402434170 5  0      43437.50082083.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5L1402434170 5  0      38125.00095833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5M1402434170 5  0      41666.66795833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5N1402434170 5  0      43437.50095833.333 1562.500 2916.667                               -1   -1   -1   -1   -1   -1                   0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS5O1402434170 8  0      39791.66747708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5P1402434170 8  0      39791.66733750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5Q1402434170 8  0      39791.66761354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS5R1402434170 8  0      39791.66754687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5S1402434170 8  0       39791.66774062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0!    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5T1402434170 8  0    "  39791.667100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0#    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5U1402434170 8  0    $  39791.66787083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0%    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5V1402434170 8  0    &  41562.50047708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0'    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5W1402434170 8  0    (  41562.50033750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0)    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5X1402434170 8  0    *  41562.50061354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0+    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5Y1402434170 8  0    ,  41562.50074062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0-    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS5Z1402434170 8  0    .  41562.500100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0/    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS601402434170 8  0    0  41562.50087083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    01    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS611402434170 8  0    2  43333.33347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    03    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS621402434170 8  0    4  43333.33333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    05    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS631402434170 8  0    6  43333.33361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    07    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS641402434170 8  0    8  43333.33374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    09    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS651402434170 8  0    :  43333.333100104.17 1770.833 4166.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0;    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS661402434170 8  0    <  43333.33387083.333 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0=    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS671402434170 8  0    >  45104.16733750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0?    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS681402434170 8  0    @  45104.16761354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0A    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS691402434170 8  0    B  45104.16774062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0C    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6A1402434170 8  0    D  46875.00033750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0E    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6B1402434170 8  0    F  46875.00061354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0G    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6C1402434170 8  0    H  46875.00074062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0I    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6D1402434170 8  0    J  48645.83333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0K    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6E1402434170 8  0    L  48645.83361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0M    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6F1402434170 8  0    N  48645.83374062.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0O    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _6800UPS6G1402434170 8  0    P  51458.33347708.333 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0Q    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6H1402434170 8  0    R  51458.33333750.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0S    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6I1402434170 8  0    T  51458.33361354.167 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0U    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6J1402434170 8  0    V  51458.33354687.500 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0W    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6K1402434170 8  0    X  48645.83315104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0Y    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6L1402434170 5  0    Z  38125.000 2604.167 1562.50011666.667                               -1   -1   -1   -1   -1   -1               [    0  8  1       TFFFF  F          0T                      0FTT0 0F\       WINDOWS _6800UPS6M1402434170 5  0    ]  38125.000 2604.167 1562.50011666.667                               -1   -1   -1   -1   -1   -1               ^    0  8  1       TFFFF  F          0T                      0FTT0 0F_       WINDOWS _6800UPS6N1402434170 5  0    `  51562.50060520.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               a    0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6800UPS6O1402434170 7  4        51145.83333229.167 2500.00034166.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6800UPS6P1402434170 5  0    b  51562.50053958.333 1562.500  520.833                               -1   -1   -1   -1   -1   -1               c    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _6800UPS6Q1402434170 5  0    d  51562.50039895.833 1562.500  520.833                               -1   -1   -1   -1   -1   -1               e    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _6800UPS6R1402434170 5  0    f  34166.66741979.167 1562.500 4583.333                               -1   -1   -1   -1   -1   -1               g    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _6800UPS6S1402434170 5  0    h  35937.50043750.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               i    0  8  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6800UPS6T1402434170 8  0    j  38020.83340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0k    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6V1402434170 8  0    l  51458.33340625.000 1770.833 5937.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0m    0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _6800UPS6W1402434170 5  0    n  51562.50046875.000 1562.500  520.833                               -1   -1   -1   -1   -1   -1               o    0  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _6820V8M2V1402565711 6           33750.00067916.66717187.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6820XCSG91402567735 6           21458.33333333.333 2395.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6820XHL2O1402567854 5  0    p  14583.33348541.667 1562.500 4583.333                               -1   -1   -1   -1   -1   -1               q    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _69S0ORS5L1415011374 5  0    r  48750.00095833.333 1562.500 8958.333                               -1   -1   -1   -1   -1   -1               s    0  8  1       TFFFF  F          0T                      0FTF0 0F         WINDOWS _69S0ORS5M1415011374 8  0    t  48645.833105937.50 1770.833 5625.000    u      F    F C           -1   -1   -1   -1   -1   -1    0    0    0v    1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0TTF0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   w    0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   x    0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   y    1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   z    1  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   {    0 10                                                     F               WINDOWS                     25   |  }                                                       F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
beitrag2.name                                                 Arial Narrow                                                  beitrag2.sp2                                                  Arial Narrow                                                  beitrag2.sp1                                                  Arial Narrow                                                  beitrag2.sp4                                                  Arial Narrow                                                  beitrag2.sp3                                                  Arial Narrow                                                  beitrag2.sp6                                                  Arial Narrow                                                  beitrag2.sp5                                                  Arial Narrow                                                  beitrag2.sp8                                                  Arial Narrow                                                  beitrag2.sp7                                                  Arial Narrow                                                  
beitrag2.sp10                                                 Arial Narrow                                                  beitrag2.sp9                                                  Arial Narrow                                                  an_sp2                                                        "999999.99"                                                   Arial Narrow                                                  an_sp1                                                        "999999.99"                                                   Arial Narrow                                                  an_sp4                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp3                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp6                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp5                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp8                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp7                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp10                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp9                                                        
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  "MONAT"                                                       Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "KRANKENVERS."                                                Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  
"PFLEGEVERS."                                                 Arial Narrow                                                  "ARBEITSL.-VERS."                                             Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"je  EURO"                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  2                                                            Arial                                                         	"KV-pfl."                                                     Arial Narrow                                                  	"RV-pfl."                                                     Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  
"RENTENVERS."                                                 Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
beitrag2.sp12                                                 Arial Narrow                                                  
beitrag2.sp11                                                 Arial Narrow                                                  
beitrag2.sp13                                                 Arial Narrow                                                  
beitrag2.sp15                                                 Arial Narrow                                                  
beitrag2.sp14                                                 Arial Narrow                                                  an_sp11                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp12                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp13                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp14                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp15                                                       	"9999.99"                                                     Arial Narrow                                                  "K A S S E"                                                   Arial Narrow                                                  beitrag2.hsmonat                                              Arial Narrow                                                  3                                                            Arial                                                         "3000 = ermigter KV-Beitrag"                                Arial Narrow                                                  "6000 = pauschaler KV-Beitrag"                                Arial Narrow                                                  "0500 = pauschaler RV-Beitrag"                                Arial Narrow                                                  "0300 = halber RV-Beitrag"                                    Arial Narrow                                                  "0020 = halber AV-Beitrag"                                    Arial Narrow                                                  "Zusammenstellung:"                                           Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "Beitragsgruppen"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "normal"                                                      Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  'P   = Pflege-Versicherung"'                                  Arial Narrow                                                  "L   = Rentenversicherung"                                    Arial Narrow                                                   "M  = Arbeitslosen-Versicherung"                              Arial Narrow                                                  $"U1 = Umlage Krankheitsaufwendungen"                          Arial Narrow                                                  '"U2 = Umlage Mutterschaftsaufwendungen"                       Arial Narrow                                                  "U3 = Umlage Insolvenzgeld"                                   Arial Narrow                                                  "Gesamtsumme:"                                                Arial Narrow                                                  g_sp4                                                         Arial Narrow                                                  g_sp3                                                         Arial Narrow                                                  g_sp6                                                         Arial Narrow                                                  g_sp5                                                         Arial Narrow                                                  g_sp8                                                         Arial Narrow                                                  g_sp13                                                        Arial Narrow                                                  g_sp10                                                        Arial Narrow                                                  "1000 ="                                                      Arial Narrow                                                  "0001 ="                                                      Arial Narrow                                                  "0100 ="                                                      Arial Narrow                                                  "0010 ="                                                      Arial Narrow                                                  "U1 ="                                                        Arial Narrow                                                  "U2 ="                                                        Arial Narrow                                                  "0050 ="                                                      Arial Narrow                                                  "3000 ="                                                      Arial Narrow                                                  "0300 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  "6000 ="                                                      Arial Narrow                                                  "0500 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  p_sp4                                                         Arial Narrow                                                  p_sp3                                                         Arial Narrow                                                  p_sp6                                                         Arial Narrow                                                  p_sp5                                                         Arial Narrow                                                  p_sp8                                                         Arial Narrow                                                  p_sp13                                                        Arial Narrow                                                  p_sp10                                                        Arial Narrow                                                  l_sp4                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  l_sp6                                                         Arial Narrow                                                  l_sp8                                                         Arial Narrow                                                  l_sp13                                                        Arial Narrow                                                  l_sp10                                                        Arial Narrow                                                  m_sp4                                                         Arial Narrow                                                  m_sp3                                                         Arial Narrow                                                  m_sp6                                                         Arial Narrow                                                  m_sp8                                                         Arial Narrow                                                  m_sp13                                                        Arial Narrow                                                  m_sp10                                                        Arial Narrow                                                  u1_sp3                                                        Arial Narrow                                                  u1_sp6                                                        Arial Narrow                                                  u1_sp8                                                        Arial Narrow                                                  u2_sp3                                                        Arial Narrow                                                  u2_sp6                                                        Arial Narrow                                                  u2_sp8                                                        Arial Narrow                                                  u3_sp3                                                        Arial Narrow                                                  u3_sp6                                                        Arial Narrow                                                  u3_sp8                                                        Arial Narrow                                                  	summe_sp4                                                     Arial Narrow                                                  	summe_sp3                                                     Arial Narrow                                                  	summe_sp6                                                     Arial Narrow                                                  	summe_sp5                                                     Arial Narrow                                                  u3_sp0                                                        Arial Narrow                                                  "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr < 2019                                            "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr >= 2019                                           "="                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  g_sp3_AG                                                      Arial Narrow                                                  summe_sp3_AG                                                  Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "Summe Zusatzb. KV"                                           Arial Narrow                                                  an_sp5_doppelt                                                
"99999.99"                                                    Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
beitrag2.name                                                 Arial Narrow                                                  beitrag2.sp2                                                  Arial Narrow                                                  beitrag2.sp1                                                  Arial Narrow                                                  beitrag2.sp4                                                  Arial Narrow                                                  beitrag2.sp3                                                  Arial Narrow                                                  beitrag2.sp6                                                  Arial Narrow                                                  beitrag2.sp5                                                  Arial Narrow                                                  beitrag2.sp8                                                  Arial Narrow                                                  beitrag2.sp7                                                  Arial Narrow                                                  
beitrag2.sp10                                                 Arial Narrow                                                  beitrag2.sp9                                                  Arial Narrow                                                  an_sp2                                                        "999999.99"                                                   Arial Narrow                                                  an_sp1                                                        "999999.99"                                                   Arial Narrow                                                  an_sp4                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp3                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp6                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp5                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp8                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp7                                                        
"99999.99"                                                    Arial Narrow                                                  an_sp10                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp9                                                        
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  "MONAT"                                                       Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "KRANKENVERS."                                                Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  
"PFLEGEVERS."                                                 Arial Narrow                                                  "ARBEITSL.-VERS."                                             Arial Narrow                                                  "U 1"                                                         Arial Narrow                                                  "U 2"                                                         Arial Narrow                                                  "U 3"                                                         Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"je  EURO"                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  2                                                            Arial                                                         	"KV-pfl."                                                     Arial Narrow                                                  	"RV-pfl."                                                     Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  
"RENTENVERS."                                                 Arial Narrow                                                  "U M L A G E N"                                               Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
beitrag2.sp12                                                 Arial Narrow                                                  
beitrag2.sp11                                                 Arial Narrow                                                  
beitrag2.sp13                                                 Arial Narrow                                                  
beitrag2.sp15                                                 Arial Narrow                                                  
beitrag2.sp14                                                 Arial Narrow                                                  an_sp11                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp12                                                       
"99999.99"                                                    Arial Narrow                                                  an_sp13                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp14                                                       	"9999.99"                                                     Arial Narrow                                                  an_sp15                                                       	"9999.99"                                                     Arial Narrow                                                  "K A S S E"                                                   Arial Narrow                                                  beitrag2.hsmonat                                              Arial Narrow                                                  3                                                            Arial                                                         "3000 = ermigter KV-Beitrag"                                Arial Narrow                                                  "6000 = pauschaler KV-Beitrag"                                Arial Narrow                                                  "0500 = pauschaler RV-Beitrag"                                Arial Narrow                                                  "0300 = halber RV-Beitrag"                                    Arial Narrow                                                  "0020 = halber AV-Beitrag"                                    Arial Narrow                                                  "Zusammenstellung:"                                           Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "AN-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "Beitragsgruppen"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "normal"                                                      Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  'P   = Pflege-Versicherung"'                                  Arial Narrow                                                  "L   = Rentenversicherung"                                    Arial Narrow                                                   "M  = Arbeitslosen-Versicherung"                              Arial Narrow                                                  $"U1 = Umlage Krankheitsaufwendungen"                          Arial Narrow                                                  '"U2 = Umlage Mutterschaftsaufwendungen"                       Arial Narrow                                                  "U3 = Umlage Insolvenzgeld"                                   Arial Narrow                                                  "Gesamtsumme:"                                                Arial Narrow                                                  g_sp4                                                         Arial Narrow                                                  g_sp3                                                         Arial Narrow                                                  g_sp6                                                         Arial Narrow                                                  g_sp5                                                         Arial Narrow                                                  g_sp8                                                         Arial Narrow                                                  g_sp13                                                        Arial Narrow                                                  g_sp10                                                        Arial Narrow                                                  "1000 ="                                                      Arial Narrow                                                  "0001 ="                                                      Arial Narrow                                                  "0100 ="                                                      Arial Narrow                                                  "0010 ="                                                      Arial Narrow                                                  "U1 ="                                                        Arial Narrow                                                  "U2 ="                                                        Arial Narrow                                                  "0050 ="                                                      Arial Narrow                                                  "3000 ="                                                      Arial Narrow                                                  "0300 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  "6000 ="                                                      Arial Narrow                                                  "0500 ="                                                      Arial Narrow                                                  "0020 ="                                                      Arial Narrow                                                  p_sp4                                                         Arial Narrow                                                  p_sp3                                                         Arial Narrow                                                  p_sp6                                                         Arial Narrow                                                  p_sp5                                                         Arial Narrow                                                  p_sp8                                                         Arial Narrow                                                  p_sp13                                                        Arial Narrow                                                  p_sp10                                                        Arial Narrow                                                  l_sp4                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  l_sp6                                                         Arial Narrow                                                  l_sp8                                                         Arial Narrow                                                  l_sp13                                                        Arial Narrow                                                  l_sp10                                                        Arial Narrow                                                  m_sp4                                                         Arial Narrow                                                  m_sp3                                                         Arial Narrow                                                  m_sp6                                                         Arial Narrow                                                  m_sp8                                                         Arial Narrow                                                  m_sp13                                                        Arial Narrow                                                  m_sp10                                                        Arial Narrow                                                  u1_sp3                                                        Arial Narrow                                                  u1_sp6                                                        Arial Narrow                                                  u1_sp8                                                        Arial Narrow                                                  u2_sp3                                                        Arial Narrow                                                  u2_sp6                                                        Arial Narrow                                                  u2_sp8                                                        Arial Narrow                                                  u3_sp3                                                        Arial Narrow                                                  u3_sp6                                                        Arial Narrow                                                  u3_sp8                                                        Arial Narrow                                                  	summe_sp4                                                     Arial Narrow                                                  	summe_sp3                                                     Arial Narrow                                                  	summe_sp6                                                     Arial Narrow                                                  	summe_sp5                                                     Arial Narrow                                                  u3_sp0                                                        Arial Narrow                                                  "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr < 2019                                            "G   = Krankenversicherung"                                   Arial Narrow                                                  welchesjahr >= 2019                                           "="                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  g_sp3_AG                                                      Arial Narrow                                                  summe_sp3_AG                                                  Arial Narrow                                                  "+"                                                           Arial Narrow                                                  "AG-Zusatz"                                                   Arial Narrow                                                  "Summe Zusatzb. KV"                                           Arial Narrow                                                  an_sp5_doppelt                                                
"99999.99"                                                    Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                                         (       @                                                                                                    {{{{p                {{{{{                                {{                             	                                                          	               	    30            0            3         3    0     wp p;3      ?030    ;030    www??3       ;0      烿3      3     30       www 30        3                 w                       8|             &        (    (       @                                                                                w               w               w               wp              wp              wp              ww              ww              ww              wwp             wwp             wwp             www             www             www             wwwwwx wwx  wwx   ww    ww     ww      wx       wx        wx         w          w           w            x             x              x               ?  ?      ?          ?                  ?         ?     ? ?(                                                                                                                                      wwwww wwwww  wwww   www    ww     w      w                                      ?         ?               &        (    (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ?>?~(                                                                                                                                                                                                                   ?  ?                                  (       @                                                                             wwwwwwxwwwwwwxwwwwwwx                  wwwwwpwwwwwpwwwwwpwwwwwpwwwwwpwwwwwpwwwwwpwwww  pwwwwwwwp        wwwwwwwwwwww                                                                                                                                                (       @                                                                                                   




        

        
wwp
wwp
wwp
wwp
wwp
wwp
wwp
wwp 
  wwwww   
  w      	 
	www  p  
             
www  p   
 wwwwwp     
             

wwp 
                                                                                                                               ?                      (       @                                                                 wwwwwwwwwwww   wwwwwwwwwwwwwp              wp p w w  w  wp wp p w w  w  w  w  w  w  w  w  w  w          w w         w      w 
        p         	               p                                                                                                                                                BM6      6   (               (  a  a          ¿¾ m                               m݀~~~ mÿ   m}~~    m m~    m¿¾   m   ÿ   m¿      m            m                   m    m¾    m¿    m¾~~~ mľ¿    m m m                (       @                                                                                   wwwwwwwp               w                                                  w                                                  w       p             p                         wp    p    p      p     xp                                                                                                                                      ?                                &        (    (       @                                                                              www   wwpp     pp  pp   ppppppppwpwwpxwpwpwwpwpwpwwpx w                                                                                                                                          (                                                                                                       	  w                                                                         BM      6  (                                                 @ @@    @   @  @                         @  xI         ?  ,C                           [ [ K[ &]   
          [   c6  
          ?  [ #    / (y  [ .    /    F  J .;    ?''  /?''P;?              
   ;       <y/PA<?/    /?,C          
 ?     Y[ [ K[ [ [ J[ [ [ 5i[ aaA [ [ naA [ `A [ [ `A  [ aA [ [ %aA  [ ZA                         .           ^        p                  L         0]           ]   [ @       $] & # * X]             &        kreuz2.bmp  ]                              [ X[  K<[ &]    8  8  $P8  8  0P             8  r  Z              fPS88/nLd/           8  8     8    /8] 8  PS8)y쇬G&                                                                                                                                                                                                                     (       @                                                                                                                                                                                                                                                                                                                                                                                       ?  ?  ?  ?                                             (       @                                                                                                                                                                3333333333333300{{{{{{{{{{{{{{00{{{{{{{{{{{{{{00{{{{{{{{{{{{00{{{{|{{{{{0̷̼0{{{{{{{{{{{{0Ƿ0{{{{|||{{{{{0ǼǷ0{{{{{{|{|{{{{{0Ƿ0{{{{{{|{{{{{{{00{{{{{{{{{{{{{{00 wwwwwww {{{{{x                                                                                                                                                (       @                                                                                      w          3   w       333   w    333   w   333    0   0   0   0                0x   0 0   0  ;0 0     0              `      f     f0x       0     f    0       `             f              `             `                                                                                        GIF89a! !         3 3 3    ((00 0 000 333 333 00 8 88888333@@ @ @@@@@880H HHH   f f f  HHHHPP  3f f33f 3 ff 3f3 HH@H@HXX 3f333ff33`` ` `XX8 fff fff hh     f3f3ffff3  p ppp  33 3  3 33 333333xx x xfff  pXp f f ff f f xxP3ff33f3ff3f3  pppxhxX        3 3 ff 3 3ffff 33   33̙ 33  33333  f f ff f f f3f33f3f3ff3 fff ffffff   ̙    ̙  ̙ 3 3̙33 33 3 33̙̙3  3333  ff ff f fff̙f ̙f3ff3f33f     3ffff33 Й   ̙̙ 3333 fffffff  ̙  ̙ 333  fff̙   ̙3f!     ,    ! !   	H*\ȰC=|(=£I~>Z3o"I@,	OIPJ\9.%Iy`@%(Y}?	:TEI2M?sYfEץD[.KgL:=xX_yUQXJ.'ڰHKbKؼ9@ϠCVtBX(2tgC)j}tM3h(U; c6XşC,ɗ.߽>Hinc1j">J#XwMp2GP)2G	>P_x󁧈((P!2ކ"CX(	p6 .=(plȖT Gi$KV@#TVIeTXfeA ;                (       @                                                                                                                                 ww                                      wwp                 wwp              w                         w     """""""'  "   * *""'"(w   "
 
      *
 "(" wwww * *"

ww"""𠈀
* *" *
p " * "  **"

 
  "* * 


" """""""""** *"""""""""""""""
 
  * * 


  """""""""**   """"""""""""""                                  ?                                                                GIF89a4f     ¥¦çĨĨũũƪƫǬȭȭɮʯ˰˰̱̲ͳδδϵϵжжѷѷҸҹӺԻԻռռֽֽ׾׾ؿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !     ,    4f  H*\ȰÇ#JHŋ3jȱǏ CIɓ(9ˑ,Gs#c9f/G<%P2iӥP2{
݂ ,G5W-cT!UlѮW&yP:t 7DTĽ+Mla+LBezd@Wj)+PhJfi[;ebB/2dx+XBw\̕;IseΝ=.S6i^0e2yڧ^F,㡿ve\VY;V\b]Wr:UY=mM!e䑧QiHZ6xfMDKR7|0d46bRu"z`E{@EZNgWayaDbG6YqDY2t	eH^f7%P^ F$]N=8t&םR@5@	X ((ӌv6` Vj饔O#^{WYFXOMo94J}[6yH@8݁BLqߞkKE閁iut!RBV+N95hR\Zhl=HafhQ&kNxJ	֫fP冨)[`)k^]ÏYbC%rJ+^4U`>ɔvU,ho͈bRg֫'Og瓁^Ey!T:o>na
wҵ)0a. ``fL0*so8`衊$bIflemf9
	fmGM]TwPiWm4eC=XS^`b[Xi;=@_f[F'%v۪y׭^g2=WB>	WԈ\*b=I-l,ԖUhZwMΈ~]YE`e:X6 řȤEmN{֪7%mQ\w@Czr<a] ({[KWǙ	Ueb+a.\4D!` `JZ_
2Ec[*05P2e2;|oXaC6 8	ȃޡd_{e{XBK(<-TGj(a3	\,M,/P	jb*"1WW`jxye'1H$dci!H?iޘB1q䛆ɸs0en'eL'er
7&
IftJ
 -{]⿶Ej,4&4G-ךg}Ѕ`s`.ĸPX|'/l 
)H!=$Tr	 	C\Ʋ(C
Ȋ<y	@7INH/Ї( 		C&Y2fZBW=%R6Ͳ)Zp(1O(CQv
(]\Xy~6()4o&Q'8SԢ0.VB>,jqUGu$X}&5fF6<IAxiRX34N:
L#Ӽ)._s( Ȃ¤p2Z(Ue`hEțaDaxKLw(JR+5^#s
*k$Iݔ68FNk[:HƎYWNI9j5SBsdZ6V&(c\U˥6`zk
e@N,l+ȤJUF iYϘIlPe3|ҕ4"T9m|klBwxQzug]u0w_Qmz婹r%52˸ G @Nt]w:v%_:	47)	@Rԥ-{N&H[N5*-RVCP^$}2z9u(ukI;h'2_Obܱ7|2>yKm6m(̕hC5DZu9va%jT}hb+|WyI=qC_SU]!Ɗ=VY=Q(akMDl3V*Y	O.r;< "4)ZI)N=feK'FAS5<G,J;۹&2t+	&kDg]`Cn֍:
u-+Z?̛3s*N"4)N`Ԥ\Wn+Xx롡5ڨO<L̏d}3=)A*)$(4~iI[G4L@߶<MǵN[K1y%*Ns_h{6/ww&|'Wr"I5]KQ6M
"+{"1`ui1Q>.OlfWeC4lmt;W3eJB[>#Sb'9HqA[ز4@yzxGnZBJlT,i;Y"CFNTK("};b%0<a*7%Iu^}&bJr@R|5q9Sa)pU_~VU-q!%;N-.{eTل(x^4"bx{^yFAahM艽AkTV8l$3&NSŌ p9(KX&C25Q5uaXj38()6@!̘RlrEXU#U\Z4ہhx%Hd-;U
lTm6;gj&Ear%
{5 Zg9DsF3V}{"Nt(YNj4~W_qD	"	M	!Az3G{B)e=Vwb!FFBR|xm۸F3)&e)<EFy3J3>&e:W[Ҳd!m!Vp>BmHP7$]eIIх8瘁+puV\]X4$8CYTv}8,W:BW8UYc1gFd994wUEeP[Ka#	2!hU=>@S兯WE-ss^%`wZ[b3S	}D>WHHcL٢q?3b\@W$Uc-c>9h+Hpr^^-zwl9.V%KvCvUBii絍ynH?I3zU)U  ]p>  ×"։G<;@訁6~rNwyIR64j$/'y-j؄y{45Ӡ4gs?=10*`GjxiLgdR6z7}a}(rG]ZqeV3D-#X!jRٔ5tE=97A,v
m[5DNPX/ NW2mr`Q6#өi4U/W1YHnV]bb93+J<h[K!6iJ4%ydts)Iec52 ,q c˨yLC`q[ꥋ+I&۱(B/l0_7O/pe,TFc8D@C0B@PZ36! G9@6m0K-櫑D,D-?:GTG!V7Kpt?j[Xfq'h;DMƩc4xJukr!XkN;idP_]nYTd++@9:gpGcRҲC)]I5|Qr#_ 8rka["Y	AC2 +KsP ڻ۽cX{!Foj&{*pKZ5yWaJ8ZSRN:˳>BiH먋Ǵ9&OyV,jfd~hk)i$C>Y#jz]CgƔ9s;&Sd:y9K9
$*'DwZn#P L$66\4~?Cԇ;XB-ˋbcR50+}ʶn[p}?G7+F[f{3\_&BCB{W~4SB:5  {OKhSsGQB%l* Յ?Qa+yCes1Wҕ[;۳?C[G˨ݙТ/Y13ű#PyICtU<BWqfe1b)@FWJQw%dL	#W9Ŕt|wrFb'ڪP5ֳ2bJH;Xkd\$cUAUK')f¡1,G h!Nl3f<,i6 3/kD|d@[k	*pHJJ~i.m*k:25Z>fb>7d\
tA(lK\I[\;LTs_?!U+|	O ~%
"iơw3Ho6!'Hw=\oz.̬9bp0y3 r?148|)P nM{o9<hn6#3
25Z`w(f\zEmKiz0MOU]WbYa/]-+*hփ(FrZF>Ȇ  >HfqSqƋ"*Xq0hQTܿjJk\l <~a}<i_X%[sq2[2-7+1퍡8d1YlI>FJěkTU	"&!	EB@q2aߵq62SϐĵQ8^Rx6DjRck߄jk<-kZhsọúD
 qff5uW3MU5es~^.<g
LNs<>>FVd96;-ЃߪrW-Іyt@<d0/!g'ָ|pD QqiqEqZzCfQY}g(< {bͅg^5T&Nޒ/ͧJq0I]<E%-7\9-jppR.-wEy%;-} [EwJes(X0Vg{<mĔ쀢xggn#/TrY]0c Oz&L-PۧO{]&W xzzENnQGp%Eՠ3lb3C@hRh>k=)∴ n?`.T㲃EPx`a=9N@3XbREؒUI@&')ʡKpDSNTqܶa|*X6._0/nZ
>*oޢ nmp2 qˑ-G"H#WAH-L0!C-Lxb/G::<X.lH#d"9eǖ`IO6m&4S)D48P&H	O␣BJKҤgɒEk><RƈT8ɅśDH$0qB	*Zؑҁ)3D3;N%bܲ+\LaM#D"$?zؑ#3bĀBb#B сC*L
$#ӗͷ	$B]:b7xcr}*l
*":/"PK*5*,j!!J,:+ȣ+;тh$͓ +K	a;(r,+k)+:2Ȁ>:
;1s1`8.3+I+LD *k@Ԋz˼et%-hBZShF+*h4Hl),)3Lh"1!I;T"\5&" pt-pn&|RM3b<@E)E6d!KD0IsNvђdKEfKO-AaK!6t7#8c9褣:λ@@)4oZB/o><!6!	Wςh\J`QeȡlV!䴣T|گD 0\<<W|
I^uhB#sS^S4t{ )K-[2[8f[lbVtGyu}]pED/,(H-&Et
[PR\rV]Wy14 2Vp5KH%訩D>y/5s.^ n[d3r: 	|Iėzv+;9	u|a@ @d=-WIJ/h쑦 >kd45%3Ph)aFb3Y>$e؂Ց@RLRO"5:f1ZK`3Yd3Ek	H0l@&<+>p۴G
MjP1	wIѝY2GGk^g'6:*EVB4!2{b)͑9GAj{+Hl-t	']>QQHL<T+ҖL"zbP^:{%[s$1#	+!HuxU}_Pa,@ &%y{	
Yp2=h/b4K}-U TqF;0[,$țf*#Z
Қ&:xp30*^18ۖ/v	_[h3okp@JAVU.[Ty7P$8ry]2"@$t4I3(>eRLG&uj5	B
TH"]y%VֲkG[2YN*6\L0Wю"1icS h:;걭	$Yg1ټu?8
6H'`n '2Qml3fF`;2!ZlVRhՐE#JfbBZft
&4!fQ%k<"HKIv.jBt7tߙjz6(tm"OS)1[x5*U89`4 WQe]֊lv/؄}j+2!86olԵ#l&=an'z Fn	 PCե#z<)R-5=V3\ˌ+TkmU U]T!-H)dX9k~_#L+v
n`2T1suG-9	
^9EsK'&v=TG욎꒎d̀ߢ
Yu9mmԚ$ #bsʶ+?GT6$йl3Z=]ck	j3б94_p%KmOҚx%itH3-M;HV 7j
rslSs+%wgW)oZA
)F/vNRLJj^d-j .u0 [(]mJIhCcuSoNh$Z"nxsq?Ȅn8>0!
AW.oU陛&%ړ{vCTa1MHⴙxp1
fl8ԈO=\Ηr{w.[t=HxB^9g'bѽao	IA
i*9몶c@ @d>++y ;2>Z)	H9a:yYj58(W+5<rLں`<_bKС<1##㋘˙L4+T`>3rYy$8#
{b7ii
#8>[kC 0	x¾S8pCJMzkFܺ)<77\Y
q;cNA.2 B	 $ :;)+sD8J1F>1RóA!i=)+#qIE4C63'b  #6Ayj<.rBDB 
0?c:;*{
C$uy' ]ԣri:<$p*Ы1 hD7)`29wDŇR<E8m#?%Pe-'rsG9AB\!GfG]Ĥ}lFX@ >H	Ɨ
\ᛐd#j7<9aM֔Ր9JʄH8-z6+s"ɣyȚ+!:qhJ!&*/0EKXC&H`tS)5<(;B'j02B`ʶLC̰	cux`bZ
!H~DƈJlGJ,pN	y/Yy1>
  Ϥ*
 <(KMk;ZQa@$sI7]O=`C4l+"\Ff&tB`P55RX'ġڔ9c=ؠ p0B4=M71	b3ՂHZN KC.X.ꀻl!Ԛc8AH+Fb7 R<<A'(Ф;rNSCָ+TM@pdT𐌠FtЪJ1+A
bC"=['>#ECŶQ  yō!Q0A4Տ8 |ӤSƹ=8D SS?#T*<TMԶk0G=RtBu(ӈ`Ә%QJ":;XaD4N;ܺBPCi(iتJ̭C% `i(
U1U"QBxGG/q+GA^xˣlIжZNk=`־D6WUᛤ.  lmM>SpKI4꒕KQlQvxxW!{%HM{Y%)E Te+,+ )ZRKZ\Zz.Mpn RFLY'9 PH+˷5s@:K44ۊ>l,02|ۊJ?m,YH
(+HLR*UEO@D&G)P
7НlM=M"Լ
t
M>)PK3ޢ@b,DUYT/PWmQڥW]ڠcem6-:mHuѭ 5'ҥN;`ѧdS߭O	Xs$MUBR		VOR0#ߝǡ:2ë*TlIA̴RQRrqQ<K-Sc!# N)5:Q(`ᵣ	='"rZ<'$6
ޥ
  J]KqT740=睽bV.N ڒcy9O3ME7Wyc{W:cCvU	fphZ-e
Cȁ>`hyIqc&,Ha?7ɧ@ahFLٽ['d2QV&cK6SA AܹҺ4+&9R)fO$&Y	Tõqn1M]CY.E
sOA>
1+GYObBt ."B[<,V
= *P	~f
ר#`؝]]9i
^M/R@߃(k٬`9%
|3a#l=NlK AU	Y3#2o!CJv0
=Pqk0=#(ؘBMLnH:ٓf6O*h<"azMV@f \4ڄaDձXVd0ڿoiAԪp>>Ce8;mܲuF;3X˖76MoFmƌ,T
qԋG7jqi`o;\(qqd,X?ڭ|pFӊvP>$&;%-I|[Ͼ4K/_n`x79	ëUD
3.`'ί8l	@5
%~lbT[
vq,T:Gc]Ci֦g?	/ t5nı;"uN#r
iMUo:	
-,ì!JBUSL7_s7tOjCfwpw蓦z'"f tH3AOTUm>$Ce?KnáJƝe:TH2^txOAّ*Lx>xCN
UPvY$r8脽/<#5
rȈnn&+:&6MDfȞ'!$bР
r9ҰGrˑb#ad9H lh"K ˜8Uba#X*})Ύ%9Gbڒ(Ǝ4,IȘ#_Ǌ-K/ ƌdi"21t@"0P(%Y(lasՆ &f&NpVˏC>BsʸH->ȒYDXΆVIe~92bם#irD
`R_jװSˆ-AYvvY&0[L>Clx3GTPHbGD%EjtLmIDQmAGDŕtFdiGĕQyQdQ 8 P t٩TRZ	בU:Gum@xD	A!BI$NQ
eEC}!cRm,4D4ih0K%&]w!y6Q\CbQWzE^yJ*[ QTE%v_j*:
eM	DUv	癮+FdJiG\X)uș_I:&Hv'\P
UI4}ŧE4
7RX~%ӋRp:k>Ef$dtpJg0`54*Eՠ$RH%*KjKNNt*;[jEU 9Ay_=VQ] }tةDy	bi&h	ثxM^s*T}Tu,O 5m:7t򜸷3vk4I hVqZzW^u5>;_whCOjYf
Eq96aI6#_\EK1\x}!CKdYѤ &EQuRJqБ/t"r(01cO{xJ_ic6bv)T`R$Íݍh+TךEqJJ,B{݋n"D)ϋF)M <T !E|ډ,p Tǵ @3ܤd	!Icsnc@el@
b&%$lDasB:%aPCxBf(,^٤gIZ('E$|"_:4`թu&Y]򲗼HL0L{PRўrT#d"9I3G9_qRu
DXEPD	n/,w-8'%Y70gJvND=tm3|*ȏ*'tS,HӚ+OJRğ-sJ+L	Ev
:'qNǤ96?ݝbD4R(~F
()"R^cֵֶm>Bu-LcD!gLz<p!,iNo
sIk1VTI̒6fS4' ;eͲW
 .Pte?FK%6.}[_b	tNc
X[u:޼g.4q+芘j#{:H:q^01
Gh&C@g>?qC('cܿx>6-.N-غ7%)EN"d&׈6d~)ɄZjHT4)P
(?nu]bJƲH HUKdJQqm==-`1i.DJ;BW7Js7q$-H=i]HAw14
Ί K*7U@gF#H2Mg9EX	VtnUr{/s/>AV+:#?RHġGoJRΎ%GgCᖕ36OB`*_,QzǲeɁ#
$ʀ&8щ$,L#]2NߢӺc0sP1U%Hg	{Bu gD#4WlѬNjWQnntI^c0}~Jlb]4̏-fʛݳ~ZPY=1DTcDGcQt5hE/tbERSxTB_۔h$
԰`$*ia{K66Uu)l,%Џ#5gCje|KDD<XDCeB9X5VcS"6ˏS-\87KHfN)6Npt&CNuǑw=j0]=2X1Y=D#uXYm
&U
0]QHp$^=X9]I}TyS]jHTǌ I|ycC 62!ׯ	ϫ)EYEPdIGijȄ<L]ɗ1n]mXQR%P&uE^!j[WI!WIx	ɋDJtMuEXtd
nxpMI`ˇtDiT`@_ʅ-5Y (u&1	JHa0Un!uta=}aa㲴t.\XaH `dd@U
ʜFL$EVD>"-q%ө ]v|KZ	R4JUHY
Y#$TSP(	SYDߘuX9G9TAT{##iQHCߺ!)t'2`EY
E}vdJ뽠MǄ|
G K5END8%DxG12rW!3Dc~\|8M%]BbfͰI|\ 
ơy,Dŋ(HJӕ|$)
LPNZ
uE%NxQCB@IuEvgDXWXpi0ԕPLHa>F!LƘIx!HDܦTN%F `ؿHS9U|q5b@̰Ԋ\hDDye% (My:9Q(Mxx_L[(it]s.⤸БtDb #0icIQ& ff:Y#Y9̜iiD(FcZuLN~X̊D{	Q|}"UPd~^~fLz΀ xAVFJeaaVC*NnfQ(J]|x۫ƥ*	iw氕i莰fZO54Pb1ECMN|ŅP#*8peX;uд($MaЕaķD0\dx\"SmŰyڕēșEA A^id&㖢e
 4ܓϝPƘҦ&N}j腪Jjnl,NjP>Gc䪔fuׁfI]K&jʔRDftACtZZg 2U$N)K|WU'e$R\Gy\`M&eH@I|i޽Ay'1MGO'@S@Pt4u%6ą!0XD[lTeI'S0O\l.n tJK.UY˦E@eHhV<GC8`dâ|XPZ)@fjUf *YfH5QHGDemOhVQJTL~BRŭL`ŭݒٿh|0X	QjUx$̑}]~00]GK_YY=ɒ}1OTґ
&5qEsi!/˒`98NHgdkgXԹK|D[hH]_K#fPWXXMiGEEX5MbEESēgAlo^b)22`4[~^:sX	B	-bRH!PBALdڈD \J|Me#mXgus(%W1cԡ	;u̕kg
3ƄXpmdTZJP|H)cLb1')R8[^H!,(rŞ\1x jı~)j``nZE517KY
DI:m QL͗՘ڹ,`Sb$D's/((O&ǂUbQ4s@	(:&M i(D^/ko00
46
 |3ŕ@}!t]1~CD{(\Ķls&$*2fD(}JS\2QtM\t.Q-]S9jns=rh]E
k74L+4"@BKawF'5uPg.$GB0jPϔJδ~D@ڊz6FCqctB|'{XKf9NyH'A[d 5\6j}ԬL0tRkCAva6 'cc?vǬmw
1BrWq`Wwu7uC0i8SJU	d0lǹbZq)	H89Oa]ԆϩU,:1]Jf=zmGjKֺ͢ jLZW08P暴{E~F@I7Fg铏}R\`󂞁
9RRĊ:ep`jcԬͤDa4ohUs$'w/f$ɷgjh^WcEyRF8\/

x_5%	Nɑra6bb/ "K8Miϲ%NG}	 lYV3|h&nqmp0@1r챚nvT'Y]Ğ6Kl%Gk$0L/=o`t#c<1eY~@5󰖍KQPHM5lW(-|Du5vP`2թm`;X8LĥyH-;\{~{˻
>
؀ @ײ@HBaooSd?9
(eR }c/f7=@~j@X+iUj|TcJH<|t_X~!@t9或#^rȕ#YF\BL)x̑/\ȅ!ƅ'#Tn\RȖ,H?$H#oB$!Bb*bǏBH*8a,	!zLyd%Ro#r{t/!V=b%#QH9V,#ЂPLA҅/̕L2$HȘ#P	J#D|bɗcW%Ʌ#D	q%D.1G@12C;rQkDB\(;"ADp*/hЯCA@J(ZA\hЅ 	iBr08;| H" n{H!8BFatE!('"r4")kȅjH-dZ+7PR%`j.4Jx1 ̘J2J9n#>OI)2A%C!lbBIO")$4BюiB&Lb"IDȵ*>ꈳlUB$L]ȥQ"+5Ҕ3T,B$&&2 ^ciRv|VvROZ#ɪr-E̅<)EN<ϳn4trH#vU Wm4T
p ? $@OXA#1԰C?qD8_s#;Iѻ!B
H=&34NPrԇۚJUWu-`uT5a[F}8:̬6VT*
?W8h>'E=+f׹:}JoΒxW*_JUP݋h%Z	&`) okrMp6-nBȕ.⒯]zw=`ze}-
v+0ŉ!>I&;
%ȻmOR
|+dDv~<Dm~`Vm%

5BHș@  9AP.
uC<8THaN[	o# ml>R@'N->B)lTIȧ!Ef4# B}MoHC:mFf.t!	g4(w>#O^'Qp#\G=Ml#S*ZdFUB#g/P\RLP7YUvt5XxaR%t)$8KCrS+TI;rJP׬uMv	\8U:<o-+)	&0&Ls&*};L-}@}	gE<Д &&Lb.IDV"5ka##~tFr+7K+!!Aly2)F# @w>"7uIeU$uJbv3dhGTPrTX*B,o$%xaü*;AIR96,nz-2|롤o6׬mBK5ͧ7¥f]%i.um#㧎$v4:0|\6.vf.E~M(%W*З\Tzb=pwkUZ8 җ36 $mHsҢY~1:θؕų)
ds	`KfͳYt&|{93x"Zq-IuMUvpޤq5="©t#ƻTj#YGD @NьcRŮ802$Q|n&L"z&=D -6-c.Z&eX~L;;:v$\#@{6Tu<-8mZ1k׫o2x1Ɨ-RƖ+1\GRR`B@p]
q ZB=YYj$q	@F1G@vmyڑ9(OP"/"%@j0#+Z |wJy	qIkU4JG!ѫfvKQ"#MqeU]Ij%7gkEچ
|ÏD^6÷[:	*,i[l-	<N,SʅM_ܳt׀7c_WZ5FJ9)FlwNJw
;*,n[?5&S4&/,Hjn,R1>Ռ7`˷Z"t;G3z8"-Au:}&cJpձEeRuQTKla,)n5J#0#Twu&2<*CNI_ʇ0B<G|E<'YZJGtGK`˳ 8O K]#,èɽX"֦JF`Ԃ+
ži^X%'"!`[۾-l ,@Э@(lA%N|"Q0:l|w8/&
0	'-I#͚'sR(bpPO㎬$MQhw>ixgd[P	[mUH
^Fؼ*rZpHP͎EbɦѳL4b<fܦKTJ)u+"9Tʾ
zm#~@mɸȊ].'Sĳ,	!~-|CK|LgPb袵"#Kw+*ґfgrl [mgFltǱR$2|3k!HkGZHqn"I(	 (ۼ!oO T#XbU^8	졦i#'p(D!#]Io%l6DT4 b2#H+3 i# i   C0@K03~)S~h.2wJ4j	-s\(`yP/H4㺈d
Ma@Q$RΪ!#"J$0{I.#&T`BZ0Q-3 ^keD$br&Y&0gЈ^ujJ^RAPFvĚ/&
Hʵs:0T8Ŵ3
<a@Ÿ.JB/H*o3IP;DRѐb8a4{֬k`'RB|L"NlLSQS^4"s̸n5..ÌU+ E/t_2!-	2ǾV"0c+:3`(^dԾpHH0	SڒO21?b EO䆒ǂ"6mmT]ZE5EB&gm?qRy?gz1ٲttz,F϶2%h$/Զ4<33-J:3-M# 
Gвg|)\_U mP'Ќnj-C3c`KL'^F돊һH8ZGJцCw"	r-JkQc+zZ/a
!#h`mDMu`s~v3Fj@vRFP//>5
SK."U/X,GjBb-3lȇ.ОQ02|3='f	ER&]>[J? ַ֙svGi_M/V-jKj
V%bcg ;t% auEg rwJL$N԰gOeshG"02(14fYV@LִV8"u]0 /cʷ<u޷-Uvwg04q5Orc6Ou5QƳ{P:	T,R.n䋎G#|zsE΢z|^adRt2Ta8!%vLnmupx{	is-<ĖBpX2{=c{<v k  !ĆCx馓&[S	)35yӸc\w.Nyqnb{vvOƏqq#M2cU|s\KTx29[Pd7Ҧu%K*Lo<XK t]6!MJvY8Dٯ8DQQP%d׆^ Z3ԅKKR,jMKPIlk	tp-8iXjR Q[{ĐY\ƑwH:÷v"U:LJؤFye
u8Jj<2Sn boȧ֦2^W~mSv߶IZ}Z]㑉|.Kd7"/p zѣْ&gqT
+	Huh +v:3p٤2WZYLFKv[+f 4pړWqK<+s)r$/׹tDD?	Ůc_#YZ/pȦwO}*\;Cq	Y}۵@ifItEQ fUё>"/lYBSZ$6TWش稡HKft^Z| < vLrVy%gƢR7T}kvn(U͞:O-{Dյk},	Tʖ^(N{Př-oN
sTmGaXK׺H*)
Pq*:
iH  &HD=6Nd<1iM9`k;eY05/Eμ+h	#"Wv#,5=4%ط!/Z?%o2
ޞӘX<NR}w |ׁ+ۚwXc
$i|`ӓ5e=mLCzS/IM1zr8<0`|39!0`Nt{vFC/@9lҟ֙h={ڪz =3aY"ѧݘ=^F]颺GXR*0=r.:d))tG}1_l[	 
ܢknN]DhDYԏ zd[D#e8Ta8CL&f
EOPG~s)NMQyK<kcBS2Tz15K%Q)r*QrKt}?& CS	)4ZS"!4C_ՍMjӷ8H]4^`+y עI?$}m5r+&Ɏ؈$bGLON38#y0ܚ£7ε5CV Md/>/"FǨd
"-(>LcD3 B;FfQx!~` ʑ*G(@` r$LćGr#S2RQE5f9I1b9RM#1TiqJ5JT	$&0/652G@t
"-:D99ETcԸ3Ex%
-UnJtۢ'Nxl!'͜;w$Nyc#FPC!B
L{IlnNq)Ʋ:i$if -INKw#6t !	N1Z$ިǥzl`k?D5[vWrF@U\IeHmJ9xDDITSTG!ignۥ=GG#D1B=]VBm".TrчUVi= D?yu ZD?ɃYC	g/NBPDJm*4DR}TpyqRJaqE
S8R*E4u
er穠U$RdH%}rhՁVVo !Hۀ`Dx%
Adad~qyFgR)GHxD]kAD\p
^xu3
$PpMnY=-yK{
@Z块	A^j\\xu\ D"\*MR TvsX\g5w-5)^A<џJl+Çho-g܍9أBy$aiVj[`%Z
%  Bi=qEgaH	pgB̷".1(hwEMԽܱjoe
/o2ʳq0KE/
(Zft%^?ixS'V~9mMhTZz;d(Vɩ&[ZZ@g
nip_o7vLj3znMh

L;xXFH# x#A0rinë[@ťpҳ|IMh8_r$,#8MGPO8W/1J"9ٮ-ux #LD@0`;Dp-`oPF3Ɓ*|z4F(1W?Q^x?@݋XS~h!
Xjb!)dc@Lb<e-+y
AH5q%m>Wc¥=P%ea[D^㒖?*W|(*D%{kEe+jbDa	Tex3"q ɦk6(&i]YGF=asHsWlSG7u\hU=Vb*y#Uy-f}j&>lRTU4,iR&qJUHFg\0ᎏ㙡W4
1x[5S	\蓝`87FҜtوC ύ:ʮX$QdFX!A(CL%#
(iO\	PS=qg.3mH̯2§uUd9
54N^:-mF?zi{0ݠ$|hʕ2=UMTPѭlJ[6dm%e".}V
\/u3'Uy=If0
lQDD8 lGo[jTx4֐G:0 iD 9\kO<eeVz*
@e+iULugjʎMY7@:T6&Cw(BFV&HG :D٬b5f-/P {DS{jO4DW=$^hX!QFS~zNt	'`vyUkJؔn!;bbxswYvvW93}JrCK-%PHqiW" @ o!I|6.m
Smc1ܚ]oxx=:17'c՟nHp!Y٢>IӟZ4:Xʅ5%G
T!Q U
y4ļvd]e$gC@3q\׿la͑pGtgT.^Y|)*YnwϮ9kg	>`=#	QqЗy&݅b֠{ގ,#BEsH*t]}]Att*}v]h1Bu8^~w罙(0Wa"7cm<R My+8|8{F2gu3<c
$wrN8;]P5*gPq;?C>WS*SA>'JG2!I^& 5\j UY޶Cuvu5@5h7HӡG($2K4HqX챁V5JT`'at!!l/A%gjP^r%%8rm&AtOGX7;Q{IdE*/~vd~>Cvg(5(4FXlav9M>A<Q|&o ʧc 0Pp $`o7T%6 ^}-`=95ɘ@cYn!uEt$uPA$D21#1!zxKj@ס_r!PhtaRPGJ4QST,SY0AرD+rO&YVu<8n	6Rh>CQY(%ŀTv"X*2+3Ww2؂.&#TP6jH92\e9E]A9Zq?sBX>un,Y%O|S}6h]*DkQ$aXYx|hȊ1}o#v}B@HCy f90Θ~Xg"^x; .(/YH(mnxm\y|
2Rz,%amBF#!IC8*GQyR".L	hUKleg0wJvenZ9ŗ9ymᙂ1fev2ͱda8]Q69NPѱ4EX{Xhhf˴5D,Qs'_h]cA
lHaLlxQ*yrt	Gn&W瘩XoX   ;}ֹ+{yzJe	
PJMtN_)^m6QWHQj0%@ۨ:Z$?`~wC*Zi3(;]YCɪzQ_>Yd3Axf_p2[㟚U3?
Ncx~+)mZZkFPY\!?^P.RQ6wjgvu#.ٱ0
ר[3VPa>Z+(#Zڏ"|be*hJjX6H*5 t#>[ GI"bښ eAM"(W*	";A/YS7s?njt
 q$QWwC*N61QaS.:^*aj)#ѝf~-juCKKDWWe>YY_	>C28S"DRy&D
Os)tx&F
9CFrs8gAA9(%S#a֫3ۡx1xts^"vg`ژ3gJ7{ئd4R)r`Sje'дJ
tDIbcR)󕀕/f_es+$X$rNQs*Q3sHt!TS(UsHf)SO!f!WY	yP¥P3ӤHwĔ3uZ:uNڅeFk. GRI? F ,;ȨˆN)#2#Dc&^!#A6X_٤]5VŪT/qu\¬8(<GbХazd){9ۦNxDNy|<>\{ahKHR_k91uBD>T85lę+{3IR]K6vTQN?b~;*R,h2YF
`/[ !y4bc;{;AaT)E׫Gixr|x} ,T6wa޶NSspA4 /S8qƭ^ɹ<Vngv?͟|!h5ķ)l˦պA <.]$S؋yLNfh2)'\%;LYZ_"-]6:3@!Y0ԤY[CA|8K<<IEHB޵  -Ҍ٭(82޻ټ\@ҤJu5>tuk-MǸ
<ԄlQW98RD0DMq2N9@3_6p݊]#k͸'f<G%lMgj0m׻{m(/s M	! *l(8v/Aݒ-5|56lPC#Z_IR[ȦYyZrޥe)rz1yj?s8 EVoE91!z .Bw$1=-Qݙ>iĜHAvo\F!R:^$+4mV{I5k*Oyk/#GPY9Dõ/PlJ^ז4'Hn;:NEJ$nYP)\a*\Sh.zjl~1k4˿hx~my2x#G,(,Qa~rG\آyFt%"s=E$BL+GvG+yR˸vyQI,cV+jWu)&邕^NWkRO-S EgL'J1)\.&M
:Hn.+޻)ˎ;\߇],"?S'@SO(#K>}%n'5"-7^U6u3>fH.-ɯa.!2bl)rrs+N%"z;(
2f@<VI5<].=LrsM6H׵'Cd_d9刖#X\)xR9R`1*dHa#-T<qI$BC0GiY͛
Th BQ*pK  P(P|H[/$[ ؞
F83fL+E%VCk%NpW#1Gibp1f̨#=~A-1r"Eϋq	T9X
-hݶ^THwþq-ƅES0	l|tiSQZ
aB2TxC~80ZϪܫ 8Hpl0bk&(&12   b(.fiRTQ"Z2!zFbR(["
6oBDT:(B(#c!:˨/,"h&[1Hʽi1;3 Ҏ"kH$q"o AsHx"&2+GRLHi]`7NCu4
#
3R3)=")r*j)2Jb!9t`gb;&cW(4J,1l.+*W)<J"4Vc- L%ˢ0(8U

qH:GksJ# 
Z03<Yӓދ/ ʋ|KCPo$Ψذ (ҡ<RU$e@`
-!M;
E
<w
Qpj,B6e:-
8

M(zn!h94"2.o {STbSHitK/15J /KXϛU=@3졟:
PaDfZiޔS2(AZ=Vk ky{ڙpw<K^uHV"M	$U
Z̔5l-#@zrtA c̖)lm
F|c:tkSy ȷilJK5,'& $$I#؄$!CCag`JtjuMYze#	!SnJ8yYD#/@X	6ِiCDFp3I8%#%Sd%M૆yrRE;Y=v*4( D;^LC~G[lB2Yc"BbҠl]o[Ix̨i$&Kk烮R(EȟG!J8CuhTqMKQ6FxrH$L*i̀pqH^<ޙN	LygjC2£R<D!C.t
u
  W1	QXlSM[*j:xK]ْ ȍpm7!M,Bc4.@GW]0kO
	z;Hmj\BUs+CU<,j+l(7Fy,A~hV+MJ]L'6r1y%OjԤ$3$3`	3g T7DQ.wË6:Mi	KˤVJ،pH0myAl
D_o}TT(m9xhDu6
?$ޓ@$<
ЙhlelޣcqSkTjeh>bIbHfUʉfr$!:JeRWD,-M	WS9ѐ/YY( "4\|"2Qk63ZJC&HE>ͻ_IZ+ۙF%#WټN$fO\@bփ#K;*w>  H@xNC9"g'4[0(|7IXR&!mᨅҎ=_cӦ[&;*xcplUv^` ߏ E,P8Fk]@aWSY`lg'ITdәĀ.):{9qWKӯ&%%PD;S``#YބYC!5@w
c}Un%)3"^8'$?fOZ"bR	,6@epY[T}Y>x@  Ȫ^'̲]Xd1SN,&e7e۾(lg.tGmʠ)"!/l3oq+r
]l,As+1kD/f1{:kfRN
	~	|qBb)ӻ5R\Z\%l)T\RO؄XmhEQ=Gq	S|~Jο;\
QF9u)m !!X
0:(Nc"0c3!13J:ʳ,AYXZ:4Q.H=d)=69x>Yh'j;Q RԖ d#c1
٢⻩@>P#	h3/;+C:'	3. {'aI'Q	8qcПA-
̉69"CErk'AcYDa
9#F:AA|Yc#bi 
ds$Dq0;e\Fflơ83*p,)0@T@<xٚ1ǛWDQa@yS?=2xAZdm2_*A"J
83H$iA>Q&AB9sD,,3('*G6;*ıīŅ2+9U	@C5$/ȓ(ɋ!8<Cdۏ:xt56 pQ8ܯ0Ɏg<<+#J39Ab{B:"=R YߘD! '
&DyX[[V$%bd+	
<LyJI{mo,8\@"h@[/* XȴĸӓAD
fz&r"[0@$&Ԥ33VE7@4[L+
<ژ?Ԟ |˶lʚQLCI65,@BY	PPPJl|A+6%R>8-@ɑEɰI8s!c>-
9P8`,%8mEuWY(	S&$Z8S9 }ģFc Gl@%9 N?X,*,A0p`,G),3J,!t#uE}\4ѧ»,PD(!u$ռО5s5!]Cɰp;LI0Ħ])fc]Œ@cJ )"Lk7AJQSL7=a#EZxt42H:ө)8kL(QYU|%H[2-ؿFT٤MqM86YqL 8ڍOW'GNu|
,U*&)K]3/&{Jl1IY͊\d[y4z/w jM@=(TiUZ@`pX!Ae)n. * 	s]pXWΣK}K>0#񗃻ʭ5 t?:K`?V"9բiI11j#X{
!ѤU(:%>!ŇB3AI!
__#Š.+SFGc2틲 
ZH% "P+.]]%<NvQBt5"ާ## Jիu]7]E1 P)dVvJqd&7X:HV hc7ncԏ]]!WW>/	 nEKMP/Ӽ+ʱ+$8:i%+@BN8rb 9%q93Ec+
˚2BqvTҲ_\e?EX>Z&ZA%@NsM؂GZxxNN
.,0~<)(;D:v΃kRA8W<.!7cWe@Ƹ3{Bޤ )nܖ|hbɥ\!h
vܻ
ΥP]CR  $̒z~؁90b~\]aA]Tq##:v43#(]:"M|!"zXMg(i6r)i*qQXN>3EՕ#ckke]B3A`? <C5EBB)
g`i^	HN5-pq^˯)FV
F
&iRs`؅*j^^2ŵt\pDm#hhݏ>60Nn%cF &^; }ooJ霥A[,̆@ڗlo910Ef>Ё
b1k`]Y$!:3GYcc1Dl"!׆3s;@ߢp!$ @Sr"/r#7U#켈JllB}#pʾh6 P)m
qRH:Iܸ?\3Lψ% ˙;%<&#6DSP|Vlarh+nDh<)1&i5iD Y\//] /u,%Ͼ"=Ok[	aqғ[|Gަ[\9˺na+!qa縿K\vj]*[g&q^hIpu?xOW/kK`O_5*OZ+[rˆ5 rNm*MUP"uY>W[+O
 #uߓfEa7?OU*!vbeg"8ɉb\n~,u"SnU7Q.o=Isg1 1]u(قu6a#B٘)h9̡k$3GdB1#=6'Tvt&HzޭJަmp0bNQqSÝ#0}x≗,͖aaj"-(@?~O'HDgz˂r2B괸pH]y-3y&'
$ю{lY9rˑ+Gr-T9x$KÄ-bQC	2H1"BT1
čG(!ʎGPiСƈ;/"trDE2dh$H81fc=~ 	D"D5rHZ#fG\s1#F*N1"2dPahh% QHΞ;SԈ]vs\xDC9Ж=^T(C-
R0xEP,r9 CNFQft+vr_1ry" Wq1A)@1K(i^K
x6j&QI
#X"L6iD6aXuqSPIUWeUW=|Y܀)d
2l`A,Mut < T`A1{"RhVf	WEann`
:lРdw礱!4ECqH[oj>D\}Jt~zsG<TU`EYmř[q1W]wW_6Xa%Xcmۨ Q!\5vyZx_yEazqoKb8B1'	iQ	1GoaTZ\)s
kRn@	/``1G_N)L,mwWGn0mT$K3ݴOC_:FSx#V8UAtZAcK@hkÑI.Q>\B
]daYL)bAějeĜD +}Xr3ݮ(Ȳ?K]nQmnqwm<x~GnǋVѿGl+)+UV}խaUYi֯rF^|`fb1DZ@QSn!J؃뾥nJıD9a6)9s%tNfkR, ;<sIP@)TQ
HApMarxjiBm0S]@(BsӦuԺEQeL`#Ȭ0AvY!Orƥ0mHRXb%K`<$K	Q A"C$G8`VFa~
;°};\CDSV~%Ϛc$sA:W+yWg="{^w)K|͚0UH# ;gtiz Vv*JdS#3pGuA~a8,\c_qΟ:T(tASРBQ!AƸ9`MƋ(m\ULF PIj_FPc
})XA,Z*WU1*$6|MNst(@(7(*CSkQl8RCr)c8@Y,%ܭ<[X5P (!"Q" 2_
fϟo%l@QBП=	mBP>PTDd5Mjzl=r{KVenȥk Ek5 xp:.)2us"]bELyL:tP2\mÚ6la<KSGlT&EOUFkL`5sK?m"'l	Ah'i*g/b:0d##9JS)cfvXCGwǾ\>>I^["3d E"'AkI:9V4cdҊ(1.[|Dǻs&E:պ,f"_Oo43 tXdĜ
l_
6ǶM2si!| 7+D}B;ދl,-ʚׂMfi|nxce߉9+cO &@5POdMRY~AڰϾ)$"P:',EXBݢx
jH"\0hΊ[<n	
)NLus蕬x2[\7'Vufc0 5om$vqv3isLw^V0$

v _m([B.AzCs:zpWwG*U6+oet	lta(+ )e^  [Oe^E)C۱@W˪?2271S6>17KF2-3Ԩt>H74
UJϱ{"C56D[N(z VqE 
 `MH҂}Ȋ9NQnU~@ӭY`aYT%-AN]AazKMMd]@UQc)OĽCUv!`AEJEߕeAHڴZtS`Дi F>y aҡ&E|Řq؁ypՐE~FvYX_ɑ ŸD!w;JjD!jlaUL
D	leHZaKZDԄ<q&-22ƠKWVS$"Xzm`ś@MM	@B
VHϬ
ŝ`&uzƔF~нj͸aiNEJ"
!]`׵yi[xY#b$*^@fc~vS8t( lF9d96GDa8]]Q)yZ23:Dst#CBǣX WG8EM
.4ʔqlDCad_3_%L7
$LPhh`x`ALAXddDf`EbfzC
BEhhOCU,ǡ].M TH F`M] B
;2IҐ :_=$qIYTQ]lDQ($e2tv
ь1(9%X;u{U"VJ'[TO晡J a'!SYC%<K@A 0hj~8
AmtئPTK0L߂b/iVBDxX|GǅG%nlAJP@)gduKPDF<&HA\X\HdBc:ltT&db)TdA`e`jAPI![Qi)i*jʋmaV?Ȓކ<@EnJ	mEcZT]NQ@VfjA2lVhLst[lht.Hd(0J\Kx¦e&%|\"bYhe)8+[$+ZdiM^`RtAlvxHd+f2=15'8QhvJZrP4aLVBd+rrAMޫallMzʩRТi͖Jb>fZbiaVAFLaak+\DBiA!Tև|L\;itVʌ`0E0n#	xIyLUGۡe m^nA^&jҪԮ)Z-j-erd~"0͌5 EVêI1Yڦr,$1]xl+fQ
PV AhVATmnBen$fjFbL)ϚTmMv^AlMllsǇ*H	Fs'~)_
- odnh.z lornϖ|$پlN&0
wWo^/n/tjiJ:b/oV1ZbNo- /ϒ)Oai,
j",c6T캮ꮮai+	of*
%A
+5o
߰	ijA01#[/j/piCmoȇmTڟ0%.q硽Jr Y1h0 ĩrX
W&.e&mbV&^1;XidAiL1Jfͦn
lpdjm `3,Dsb lbT~tj5|@K͂FF׬EwI{AoPAX2q"pl,ai10
3)@V3q l`sH3<j=?mc?ntA_i&4c.t14eK4J+PcntվGI+II#mJTkK+Lg/MV`)>VkJul'Q'RTBu斖DG'Iw5X^5Z&u[u\ϵYuu;A<5=vsa	#@o4Sj Zͥa3GSƄ|^:}hJ_NS
O'ݩ>JED  ǩ;fDWfΎ6bs\_Ư+Bl;ji4\AcTk4GЩi)
cdq+M#ylneӫg%vaf;8gW)Lb[?fYc
onAՊ$f͂8:Vpw+HtvT'&y
u԰\pAVt?61\,ʱSFkiEӬfR7mxtxCglLAkt'&SCFK4_ymk9f;{A7Ct/ù$'9+9[ytX{#W/z:Y,*`V+fo7@:K5usκ8:z{xx]VOLxTȟlN6Fvi]Tw qH^SjevvpVSkt77BaJ2Zic/&ɻw^^
xȻ+>fW&Hwn`V4-A/#fX+c?5*/?T~!35䇩
C{"A&fS׬|{;g	r=~}H#==.CCwct}ݯsiߛߋAdX_H#>cD,ZdrE-Y\EXjK0ŀ%_x1K2cx鲅K.?f҅K^h.CqjrMǈ)1f95aYKN+_bb*p%*Z!,+tA^%ZXV-cr9-dr#]pm*GIYLѲIlӦ?o-snҿIK)S4P!C%lFA$Ydʕ-_4	b*TuzE(}2$.{/2
-l
0j	.Cɋ1bX.ڨڨn/JRZ*0-Zd%LbE1+RRl(Bp!zO
)
ˤl2娈>"B,Ⲳ
3K
"i>=s
	
i2P'`R.$B=/JC/8ɌB$LQ'Ӯ0^|HƝxZF2}\	H.H#5%|#	r.l/
sLxM5*meL<u2Ot/Mt?k?Hi-46-8۬BB1R)'VI4(Xe]ns2y-4GvD/YMY'VJ`ϰ>!Ê$>b(cO%	TZbRT#qLɖI.dM )Yfep=%jи	0($CBȡnD4}BI.,p~R˹RKɂL+ݥ`"AhVZj*w.%
d0-ZR4daP[Fpbh'啔&
iãD\+B2/d錂9A(T&
ZA@
#";خv|G-3we'yM{ڗ7EIzHÚNv=TF[3]ȆM|cVnOTD=%_:?0U|%G^n`O( +AJvx5}ED31$!jIɮN+ZLRƒX*v$Y1K7ʂLBDti/ wTre	ƃЁT2K,@.Ĕ5}%:#
9>R ėY#
e}wOc->ďU*9Bj@GBȆYYRFUK$PdҴP>ew")%§(Ygd%K`g	bPȌ2)%5cMN!ə7s)̉) pwKiʳ$=I}J$JI*
UY'PQEUjErURʕmR[ⲤD|IRݩ..5LВ,%^hɠ εuJqI!]&W**RN-fDW eZ!FW62VB-UCh-LѣiOqi\]WL|yk"BWUZxQAuJloHLF}R)
XJ$BiJ%>DO9RmPj-RXZBlg[V_.m yK0.q;)w!i*;/Hf.ݯ xݥl˼PJy9ւ[O~_f0elZx
ljڜ64kîleG3)|LYHڈ_)	"35sܤDaݱ{l P4Og xXFXTΤ.S͵~B]p.c,7Yf妇_=n&#7Qͼ§@}BUPƒ<%z;^TZ.l"YdKDF` 6]$t(VkM[JQz@20ѰMdFf<=^t-ήKloyP6;6[nM6gU]"sh}ߏ%ȖBxIpQ?|S8(>VӉOV8+::L{ {jl2榴y|sOi6%=^'4 $Vq%ۯ'g'8!6/!LS{ʵ.x{44H
O{쥗nALznt g/yB4gY|=IiN2cF؟TfqhmžUr+l%
Olvo#y<DN*rMJD 
v&ǝ`jzn"C#y6ϗ&e|`/ZbO ljGZv&D1VJ'i=P
O?ķkЧB"r.*b#9(&/
,0t-P '!*v.Х2""$E
HX
"]/`o
d.@b0҇ gvA
o 00	"
-$Nl>p #2+
p  L- &e-c2"	`t2qc^>xy$
en%lj>D.Mхf' B٬%qn"`AK"z'_΢j/w*-@	OA!!?RE+4d|hR(1&I' d@e|oCB<>:(D9#H
B!r )r%eqNploRi[&hH; 2,e.]f#c#[J.$&
IDBR#V/R`%)!j
dr8¢''
r=R%Rߦ%)*Ǳ!*ב1RR_RtK,R '
.MG.a"R//-r.0&4#SD21,+w-+^C\Vr
PĦMz_,Gk!NLJWF-ԋ)~$7IPI CWL\0tG"I[f"ojqV42/G0B&6:NÜKT)2=?h`)>E(>o
?E??@ц't2~&J40k|EB'xt";LDIrR"JHpT%Xt\Y`!mF,&Ud'|T"bH&=b=
=>{IisAG+Q"VDBK#LGL&Д%[dMMG"N34*C>DO<Ň^R!n;;R*FsƳn<8P.u܄&fnbI#&@v"1s3S״_GBB\@rFv4o+i.,V0lhvTVs&	:T*Uj$u-Al\am@]SK]-]A]^-e Y1jbFP_}_7]XFTi& &[PDH
@^Mbb
q31Vccc*CNzde-"$eITfhlS(:Kgyg/Ĉ&jh}h2UVci5jbj_`vkk
a6Vƶab_Cje`n4fwm-]io
|<wgh=kLY
E	^wew®Gin2:4*"X6J\|ϵr E@",rMH>b`@
BNLLMǧ<0G_nwZvvӏeRGxUx+yEpy]!Wr<zC'WhbJ.o77"ow(}|~eB~5~C-+*koʂ=--HX!""8V&xW*X9w5sD/u<OHwLyS8}5NzmzN3IiYܤ|Y2}'b3V.B-'2.P zx(^MH-E
!%n(lr1"^)	[XWQh$L! "Ikmb)#!gUEӊuF+2bG .Kkhd-r4@C?"
nm"?[Bi#jy&n9Lr9-wE◷ǆR٢Af /EBXĚ_M9yy)йh9^ 
\4q{
QrZ29xTy	͕
 Lu9&ڗe4)+yy(>Bz6Lz(#Xk]z`0sx G^:'2 ɆNtuHA0ZqT5&ՈǮ&GԵt*'V	FQt [xZ)ΏXu0v-!(	xb
x7₾8gTe Ǚ[L71?裱O& [Pf(.,;.xMzĳ=l;OP{
:l\;d{h{+EͣlO**"Ĺ̜<{ʺBbPfQa*{P;-[+,;#)V{/u\qj;A("<ߒ; tNV1
L2%f;TZXQbRt2;Fbtpڌ'F*E#%+IPbN_lДTq;/u6B61BʮwH#VPQ<|w(vHע!'?+]?.2Cut9>®,L}_V*B'%/ROb^y=Lּ]Z|5zG(BBA| ەC˂]}]L',=۽ߝӕpE  += McRG3b%x{"US1BQ7װvPK!q%E>xFSl(G
0*mi	*t u"S27)9-cJcC,RY+1# مGp$^C:oJdU#y;~Jū"<? ;ҩe!kAbgm/	Vk "-GK [-modk(X ȌŊ+^	-]K-[ip_nɒ+WĒeKLb+Y"zRE
*,QBr)3TKMT^#[FEZJ,Z9Jej+Qd嬖JsⓊW%YiEkh,NF2`&q!ɬrŨs(%eK#(ka+(/|[sJR/8lq'uxnֺ,A;.vSJ̵ښY]ƄwKbΟKP1S\9Uh)DIUU`PŅ_GQVLjo-[iS<vWeG}hhԚ&ن[AfWa$XJ2C5TSDt]]KZ]XGHW[a{`7_})f~]Q3	h%
]YAhVx! 6"VV։Ad_ffhu"lhk
	gecJTNeTQɔeҖuy݊ډ)Ut&yZ	{X'}\ eX)cMdѧ9hDuuz+C-%$ThS
W[qԮwTRo/[JU1b͉um%WVՁFWQq4LF%DET8hYuJ$AƘa`9X-Z1Π+qV2n.ފ٭+Nj֫$K瑦|{-!m[GkÌE\؆)uqakyV;qLɒL}^m1LsN]3^|@щnHvґwRBV-wUY[I]knI;ُoͫot#jux
W,1!*αKcr#H9Z0_9R߬*JB4N?U޷$.E6@d#]针¾/!I ,8R0\&]!2tB;a@dHzRX1	]R:BdMQFrׇgz=B2(m$)U)e1a@-,d"5-0k vta~HXHG])cXChHNZTEh8	n$gL=+RFe(wq$:%HX!2JnI8ȇ|䍧:`qǑ{餄 2`;I	Tp4ur҆GiR**gD2Y@cLC.iHK<c
(12&K%UDnI?eYHD/4[#u3+lbdP@CX#Bah#V◎|(2v^SC$|	e VaȣQgCU^%uE1QmZC
$tJ61eXҖ;ijh^Y9I֓W*"Ԥ7jƚ:ԫ_
UXZV	1/b
CURt]PtóBD؊Z`hTEKTYd,l`ũC+5U
j1.jNjX̰"DV}*+Wрg\AVԅeKsKX;@b3QRtx)Qgf! |dw5JɊ"WCA);@PŅ	]V1$]$HސN±i.T	ݖaВ zɈa7@Z1KZl53>VCD+EzWa	y!DN.GN&]X'Vy#WM\:x%`.gTfCiEZ7nrVo>drt!ܱ?#$33C3aD,vLd2t}w,j:CSFV*hg-ZivZ3]v@XE!*CFA^Qfai(㹣$S0iN@U
c @VY+
;9H.N8#ҮSa.E-:g9jh4X4_}:WJf&4h*{;06ޫDU;<DYї'$W9Sj+ܐ~tEϚb!5BMXD#VST~UR_wϊCi=팖etn(rrW
Nvc
ʝ- %KFnx]Ǉ4,TA*s<=WyEtsHu5/guwv{ 1&"+.+JRN+D=!2}Dqs=cwHAsYpNr%WRuu1248e421cBko'G1=RR6d&wAƃV1ׅ]cG Q GAsS%9bzwEzS(3H63xH<R$(4'X>)()2y-X+u=a<#?l#IB"!G8MI/KU%Y~D_aA!R8^`HPbHR`䂆{;YGHC@cq.w} k7&xxȂ.؈X!3AQ4s>AȉEpHI64éHx #trU;-6Ybq*"8Py<"K"*8QR>7ƑdS]ЅrSCgw !$wO 6%}ac%LuQea!7)1,X`Ka,>nQy-iP0@	20t{VvFHrBbPd@DUQiᴐmSQ9WkwbY%g"D%)'9@YDQ%'Rq25Q3/;A:ɓBT3)XSnIÔ	RP7phXQ'_X1M_DbRі"]dsqҔwk8@~Y1ɑh!D&I$(<-s0iQn9=^?Ii n1QFԂ	1OQ8S12Gɲ1@K!d17c~u`CW|{`>eAQAYXPhFI/[ Is_aha4W&=EbBJ$]pQ00ich9VPC1l{qAZ&5]PDKáIs!-Q=BW3Q1b3$,hz@#"JYH2.6I7
9\g@*CZ)K*MO3nV7XzrC%#H!q_70[-Ԧ-~z1_p!dAzy*LWl*:!! lӁ74s+zS;"B58ڣjzRsNQNG*/Wƺ٥TLѬQ  y6tQ}1g9r=^73LќF
B=2cwRgR^!:[Pq'kyO _ ϳه'(
(47/X0
W+{8y4AoD<0tzy5ea7#vHOSp3q6]!}reLSu3mTqbF.\	=볞Z54^?㇭ebO˳RKQx][_#)q/kaJi{*)㶵,1sS &7|*V+PEe[Ga/u͓2+br<wCn4?qB6G?۴BU{5=\[)dB%aˈ0i(8QxE^F(Wys
C5b2V!77="Q't>?\@VTIX U(| : Db)0v'W&U2w3rhaoYPkuFaQ4VT;ep;PE(gBNcëúmT}"WXW&wT(c3R<T
Z^G;0Hs9Ʊ7ml}.	r|gg<">EPec~\$,5,QjhW1.S2"4=,2CFRĕC˝7$is[_b|3%d\l,ewL3Pu!lѫ:ң5tAVBeATovrZL2<RNK[3AR|\%8"AE!91EH1"Q0rlzZ&22@p=,vEJ^rEl5hXZ65G{/Ռ^.=xӞQ3pc ӻ?A;C$aH]KN
RMjjX-v)]X"SLg2;cf/(CS<ע"Rs׻h{
^[lؤHpv2})S86,
+Fb2m5@mj:=nn!&EԥI7*S]UY!r)շ
ٻ5ּm֍E>MymAZ]"K^U1;"Sȅbq"/".w;WDN=|r/ֶ5D/y,CUz~|YO%pQAu!dYւG
_Ÿ$җ:$d-g[$:gjZyڭ%^-1*(@R/4+B8{>@CDwTYv ACTbRrBi-$渳3f^QhBqU7WETuQ~&tjl>A,/S^,EufP?^BD^,L^`
.Q^孎' @`cmN&xwBJ##@mT
<Ú-na'Shb6i*ta*ܡ2h2il_6h1q^^R[LE/8/(FiSc|MAޙ?+Z"BAECt
iBF To/80iӁ;֊%"iVT[f'V<_!>ӌ"CKFOّW͇b4Y`$
jS6_3a_$_z֑)'Nj/:{O!ײ6a02GD!1QvrBfol/ PiBSJ1I.(;V e/[h.]h
+h0lRe`ah
V4Q,l%LGY`A/1|80]vrCuu֬Q.]hF8r	SE,S\,WfH*SX|a]VN2v|萮],]"dqd/ȅUNEϿ{b4(-XeUU6~V A	q:(ŵ=~9䖓)WmgPD"S0P-5cFة2L zK꺫$D8*	B1.!23k<d"*mRWm&6`:ߐ
.BH!hB9@$CX0;N'M(BO#S>ë -t, Ȋ)ěH3젡6v",ɘ˔(DS
նM*r
c)2'/tM4I"*8#c.ttV7<$F#"CnW8UTM	zl*H
*&0"( 4$r=հ)PB#2̮J#<:Hr)=ȧD-Ѣ"5KRHӗګOu70UU!^YtҕW_-a/icʠeuuڥk#N|[h)tXWmw#Y^M޷_1_(FX)h%nLb4CEBц?
Rƀd9MaTR5S]gW9:&/h-:[KW,~]*X 6jcZ0ZkV7l޶[mM\sB	ؠ+>u|{j#Tԙ^!犲pqR(@!C`(vE#qBz #N2Cy&SB/`D/R
_V[%.lT'CHa]9EKR|=`StM^jYr(*CQJ\<`NZ}3[AG&~`Ae?zVA`EJ
`&z g$HH
tVA9z胰'=dPae9$8!*k8PRajD
1$E%&noXŐy"Ȳ$c<H!%^Xcq~#?=~d 'H-Qt
"{1L`$7xε%\$	U3O0$l!`DTjQsp҇$MǐE,u
UC#sȆn
Q
R2+Ef@@/&gXJ4	)iH Ej3PAGo/}QKV)Dd`Ě;:I9|2$trV	;~JCg~e3VDxK<2
*_Xrzmvi?יħԙYK󄬢HR3P&_U%z0m
Zm̺z21bYYx$=
bVF&\SG+3)O\$CqH{N壍)dK:YT7*5Kf]*qW\D҆pjZJQSkU_v3o[A5.q4Vqꏹ`  Y!':
v&UBVhdív<~d"Xȝ*$_G1fdoy	yO
Ld
TB_0V\rrghHAOqٍX$6
RB-*.<	5	8b徉B"J֑Ŋ]Kb#+,MGpa؍?ru6Bn\&s.+Rm,|Y<-fF-.n~a:oӖɖF.5^RF:sUM<Jӌd80q_{S!;UJ;rXhZk2$*7Y5%L"9i4mSy<jP\iTxn;Wt+ݵg!BqP0LDK.VѪhɻ|Fԩl"jw;UͦTe׹ ʹt#]j`PU8Vk	s!ߺqt~Ř&+浻yr|VdwGtI!{?P_'D^XP_TK3JN3%rsG@WU
3\e?C$9_VAxl:"%kǦ;?IO`Q2IW=`{J:ڣ::#iC;1PDc:q;- 
*Zxf?L
5Zn 8G@P5@,/:rr!꧳;4
 	X((x(`y2y	Y
Ȋ
P8*t;A4Q1hD[TĦ5A8'Xڂ lfʖKSCB[B;jB*ݻ*?B9B,x041|4\67T89:t<d
=D>l++ÐA3CD4KEDFdрDIJdĲ)CNOBB6>T@U\'E)Zܛ+\lqCzR:F F  )0Dkfi:1D)h@0
*qPAP1p1Pc3AJB程p)$
21	H(0vKp6TH-0?@'\T1ŵz/HH Ig	LÕ$)'	9dۚ:Gɼ\*^D; 3*CɣQ`JJC苪|B,>mʍD#LְT
K
7:cH̫.L<gBLmT̰`:LLLr̟ܡ#ѼSt<ל|k.hM+͉ 
17I,!o<2a=)рx1
m)Kt/X

	d
p9(+::RP=;89`% ޤ
ї

(Tp*J{'ٵ	͊
5SЌAQM`6=r]ʒ
62ˠ	QGG@RY㔸'@,RR/s*#Ix-l3Y"B3%?6x/ӲSS	aT?%L15!Tl2Te	ų=mHїTذԲr3RO5%P]Qp(EU. 27EB樎I$
F

 Sj-0yr	qLõ+]z
 vML*ЁOAK⠖հOS"W!r{z)JB	mrV]#^٦mQ=xپqXXc<xcaXq+ ϛ؊%,0hYx9	m)$=*BA3I0Y/j)Z\&TZTY03cըڵfY:ƠXnZ [[WE4I[㘌>4|[TX;ۻݠX[eE%
%Yĵ*HYőMjUݡٲ:JiA΅1We -(m000ʷ)Z^	+ !,Sz9D#-&cU}n<j3aݝ: Ԫ
|)Ah8Y
yT"PbPd1~Zj/Hl4t:Xq$`>`j*
ym-\a4
9>qJ2%.-a)ђv҉ "".+<Hb&ީ->)9*V, 4,TeDp0+({]3(45v6.)
c;<8a=6a
6SD֍FGDIJ&K/6N n!Ʊ5d @qb(T+AV H+C͈cً]d+ Th#j&;a
˟2ˣ(V
9VL9--	V<~
-7ҽi0_&Q.	~~8+	Azwih$ɚވ&]v:gڟnӵ i1DTi`i2ЧQT)?i͞`t)ν qB}jQjej~^jp"n&ko3@גh?Ri4if);끘֚>N15" ,: 
9q >"\{Иi0ţk,,&
̵L-5 	ݱД|QV|ku==!TC,j2nnVޛ-bMF,ȣfƨogo5;
Ƒe
ߌCpҋ`4qRp	pDhspDpwӆ]e>(g#9QֳnI>nqA!o*qfJBvƚ'+&Z'C=֝凞O,ײ2IxpÈp 2!y4Q.(/޴ʰ)0*5mH2	
ajil8W(,kꉢ
VD) AR#&xRƊ Zprs$jTUgy37O׀MC@đ4 uu\,Hu/`1v͢b/cgd'&av1ҼWk7vH-%n$$w*s?1TwqF"!NAz_|W}owC
x͂遼Ojxd.-xθȍ`x?\Wv׉fi
hyl2opg:wuwp 
KRmy%^lbЛ.b$sM0Rܦ6Z2!5t䔨J	y~AÀ$;)HUFFEoۈn-_%0Xyr0zݣ2/,}Xn0Կɞ +UVɒ
+pْ]F̢%+XrXHʔXf٢ʔ+XliJɓ$q"hТB_cJ)JԂ(PHaPM;eF%TFuLYLXؠ˗<!,Z0]x.eQV&[A贤-(O\=hբ`(>z%̗]o]
&T!Ŋ^&>4x1ƎC*XɔSж|͕9С2itiӧQV}vV+ hq;SU+ߤ<]Z0QE@idWUd]a}?y!i4x^VRJ8A]e+)L8ԞQPQTnDw}GU5d``XY5$[)NυCN%9COQhdCBE9B[RJeP?Y4$_8SVhm%)bUpg_G-şv }d\}3ւ]z XuSXQі1mח@SRG襸"M-rbEgi}]cA
_X"9@K6(#MI^KAm鞗9;	
Iy)ygX	bP*`(zңF8i

z!#KLʢjJ$+@ٚ@XF	n21i-$%X #[UA2Kl
eIQ=wPELPa|=w$id)s`KDd%螈jAed&Ad.^L6\Ua`$
E7	)T7}gclLlC5bD]<D,+
\T،:"B>M`$3I
osOQ-IEu\'YG`Ldsf6^]WnmV	Adv77EicݬU4Vh\D>ӗwĹ,xoJϠ0k yOhCƝ̏iVrA^Wy%Ζm4A>e" ^ph
Mp'&:R,B:Q
,Ӑ*
2L&IiԖNFGILaP0"2<&7NH'2B9wCW6&*d ",!DZ!G1b )7o$TPKIha5A+'LHD#^H+DHU(,z1!y@F1>jt";eQc(92P4άGV	R(\i$E<f$Jf&9O%H5pH	SY|+KR
̋SfK+YBaј4&ͳ(N(bEjĚa4
F͌഍88A	;='tX=|RGt_%	 ESX%
pI WF>&8
L7EU	$I OBAO0Z TKFcCD$)hLXq1b20tk lapK)ɘu㙔z 5NQS*9Ē!!|{>-	շ2D)1YX,Rd޺ȮQ+6ȼRa}kKŌb5Xȱ] gSx-ni5i6zAZ`Z/4-nuv/]JJ473X@Ts4.nB]+X">*[Hr!ٚ^Ne]u,_ H[lx`*
F]aLֲHՅqF/ķyP߾8qqZUhSNT@W
i7!ζ9j76Jt
xð!6咝r}ix76FނG(s
HB- |YISpnf|l;MuLMt|l3-uNe$D-As.(h9鴇>
PԦNwZ:b=k՚,u3q^gW6K֟1lw0R6=fyWV@
Go/b7Eb"v-qy%ڤI|Sa߿
>[>86sRᚅ8k$ayuq/tZC^IV^l&aX6fl\;iϵ-n@cWQerP#rDcyKc "|I2Q Zp	8ˊ򑧄1+q>K+y/S¹d8Uo@]_kD.tƓ@dZԶ|K3cҝ/og
6){.hAGJx^ޫ\[
YK^xF_1݆uQT8O@LYe
ylR 
VQ_gH-)]i	  TlUF%^mpx `
_Z-	g !`DȠ`!mny  @,y	0\<Y\DlF(X[DXE9_ 1VW"V1M-z1	^,1)*Fb԰.Hф5ص[HrLC 
\4z<M
|[\("Nx)I**+¢hbq-J.B/6,bm1o)yA3>IJQP56!q|c7C#ɘ_ԅ#c$<<`Jico81@VFOAJf d(rCΌ)DޅD+YYdM`$-.ybHH^I#JzJJ23LE5>MzA6NzDO~OPR9"NQ"s[
1c9*Q%=%k~YI`֬}/֚IcgpfբAcH",XFz*GqĄp[i%Hh-W#\"y NQzHhtxdTG[S7K,TGt&|fmhiiJh%ffl&_6()f&*&rp
'q֭Zor߃8rXmFuڄy`g8
wwje'^Gfdghy:%.!E?'{D|&}Kt[f'[.QˁIj͂Vmf3JhmVhP\no懆&j)Thtz؋AZuLNt'E|ʜsφpA	M5LV_lhD5(*&%
NБy0FI&_}``ڣLF*!sXɅ_\Gb\3ND唬iY4!H
[<TiO]Pd.х٭l[A&_:=^*`dm긝Y|jR(&تJHpF:*&"j>J[ҳZDZTSWQ/YOԐ\Đ+߬
ֺ.!ȫ++tI~~EӿH
땪6c&l-:zŬJZCjnǺzkg,}ظ6ƋDPٸ}[dA		':{LetQ
{G^ D3FHƠ`mbIGS],:cKB-2VPUtVX/yV/g9GP(0.!5㲍P:Jjԍh1V Z>-.*ކ.EVzOoqH*/V0/`8/Sv&`/Th/vcFgFf:aB=[S/// { nO겮%<XD1MV0]pOd^'G}Y8*ZaJa:EѦt8+v^@2IHdDreԏIpά)eQnJ$IG+r['i	!XbHU<n텪=EQFH,ܥR8H<4h͞q.Z1ݞb k!g!^%#I<HP37&?&M'{2Yh2]2er52JE#,jgt-wc.c!N/++Y NyiJD63GB5(6k37[D3s̚9r/	r3]su%,2&iX$F#%=@4hݘAD)*M@2EO-FÅFWGӖ!us1-ǊARܘ@8yP}
s
YHTF6C_pVnN<ҊZێBg(1JCt	'	$KpSZJdAi8AxEM<l̞Ivy^uYC,GhZ<`s>
r`H`6hAaa3b3<6D>eL<vCPGghKhshicک$;Akׇ6mXncDoo[
wq߉fss_jEu7uuvz17q7"w_coz{`{+|k|};vLEwmAe7f_̀g[+h{YAV#6dSx(؅mkx8o/v7( W=DaT H<[tFa|jv$@lo\Ti>>HxemqZ䁜qM\%fʌq NvI"RF0;+1FˏGZT[JH+JVxt:K
908[9źZ,'
"og:s[I;Q)0{;{B{yo{1m;jdHCĸGh-GPt^ihzwܻA._;:LHc:-jAĻQT<j:D,WآDcA)Xe
GUpdy}u¥ğJ""/16LX%73ÈZSWύ|\3>|`fʀ JG EM&bG	mR0GapcnXy>ݸ*=}=,K}ʖOA/b+Fc峮{/EL>z>WB2@d/cpr%/YPre`.^tEK[8nbQcIPdE\`R%#+V^"ʔ){JBY$bhE+>Tj%HPU*bJղ%K ;-7vr1c̝ft\Nh)l*XƬJˢrc2+]Όe(ӹxɂ.,;ƔrJ ͞E_J1jL뛥XS%̗w_z%:ܨ˳sg'"^. .%w첾g[%c","Mbb
鰅#ͥ/H,6B+-V"3-h*'C
Z(.JEbh2³MZh~N.8~Z6"*:,	<B"ϼSr4:o"M.۰Ȃk-?-"P$oT+C8|CELi[lHnq$}rK,<IoS7)(tή0̪@.R
&7/sΫS==OD
ݯCPQF2(%]P.K!BN/S bK/z/гK$	j
)Xp)R[H0 #h.<:È.pˋ\+8- O֍OpNUޢ"
(kWejQ|h#t]M.CY96ڳ:!0 #F*.Z(E.\)0X*4hճ^[vaxs.4c@dONTS[6,eV.6Y78wPNh`Z:VHjk4>ۧ֞M/ή<N5j«0q-Ozr8-abuڜ(\,c*qHuRKXש$f3nvqIw?dOiL3Ӣf%jB֢7=TAcQƽm `S,IN[D"
BGQN>K$vY2L-p9G#@/y"*FșBM(cǜH2F4(X*g)XpDTD@RRlZ6U&/+HŨPGb\X]CT\@'D	It>=v
",9`1e*Qkb
kcG$lacG\dG<֦q# E&"fE24ی$+Y@Sxzɐi܎(J?9z%Kb	Y*U.2^&L,TL))QT΋fAfg!#ϙN=s|Z<4HztY>OJR̈@I %VJ <N?PgG!EnE#[r4%H(dW8!as8E'-
)HUX/(f)dl}Fr%&Qc'ɴM()@]O2@np&UU'$䢨$LQؚo+rvW/U*u,_kIۆMhhdϙʒH%OB8QVqidauSEcۚȶYtۿDq&{k5]` 5f紽nrV_wm$i5~y׍䯗Q`"6E}]b_uѤ-/:n*\XF<ݩ=90m;Mg!H01rY(&s.KYj̊2ͦtcLU#Y
p͙yH^J`z$͝&5tr&Ce]8H15oM=daI|2EYbu_c;ZMl0s6hyl:UE&l{Oa<:t#tjM"S/zI筃*"3XbzAvGf%Fb"j]ݳ=n{wg3;i
GbWaN}D|Kڬ-wVQSjk)aC'?qtxF\108M]/TN<7i=v)OW7yX<	)+ Ly,O%Bɰq
[;RIQvae5𦅂?]D#)8:%dvr
j*[X9I
i{Q~KM(~%i|ȋ%<._zn<YLoDE!lT//XI]^fo!j/<Tn
xܜO&Eo孔dO/ʦ(#fB&vO`/OOVoroܯM$^('#0H`:* 
IFG
 D`iFo  n$>4B+;"ڢIM.	D$]lCM<gHeNpqA:P$&aLFl!$bfmFk&$xb
(0&e-&&CB|2.fH\pHK\R%3E>bcϩY.:"TRA#qix
p[F]Fq5b@(POT*.b`QydqL""pq323
y$D+PXK%7ЖbQ$[0Ođ1n!qܑ?n1#Qq#<QCq$/ 2rj.z.!.b2+ j,}?
0,pڔ
HHѮ6FMRmb&l@CrjrN$omj*ϽCF2&k^h*IC $Ek-&C %(rr$&!Rj/$Wảl>//om/[F[&n222M"3/3c4F7JgTXs0cӔ6,q0#x3r- I8Յ..0:l0=0;Ӟd3b22.=
  E&<-4@7eq^AiܳT~GV⿾)ު2^J*!E#-'?i	zA9.<Q"vvn
nN,Nt L9b _Q=1#Md4PdlKBG
;GgQ;qRNH*t.g\ooI}cKgbRjMNtLiLLC	qؔcn|MNNNO_/?$O#	R?jDU#U%[4H3U6UG:?u&#JGUgJ]SUIU'7hKeULYA@#Wo Zub& &Kb4`.6
LZ#"[JnF%XpȌ&N!exE[bz1%J|bK+Hǌ[2l̑NX.iCL>[GhfjQ(\D Fvfޤ  V#$#b	cR9,<h@DvpPd
eBeTl Jff	gJg#zhh=Vii;iwpjjQ̶VV; [ql1qb7b)c6ܖ
>%BVVFnnG$o`e5>fuBpi
	q
.wR_4hfh  !0	L'B
>KwJUllL.#O"O2#XB|G7b]k6l5+<2
GHo$$xKnN5\۷Q*m.bt`{f'7<fȷx|XI,%U}",O7XN'ӝf_,XvF8MF*m,6j+x9?0IdX;>xHK/PǞNS8F]{WF9֜~eć۷8~T!7b-\v%b|/8}-΋&/ VcgR#]%m.Eif"Y@76
uX&ʈV#@&JXRlĀeXbrGa68
DB0l  cJi`AB3h|`&!ե=>1̼xL-LrMp@Kk d\`ԅ]qSne,mPxYC|!7O՘	C'L]wku]"`DY
yEHÝZdK&:wcAh:\
Iqġ"ږu*1.zUM9f/<m$ݨ))^ V٥'@gQ㎷yޙ  .C_d0CRϰJd6@c&60)"KDG|D8"
GFWb=zvR5Ll*iL+Lf>N c4BB~b
 j"N
'b'(dO/3kڰP%vX6c.0:4;
8#<g.´QKT[t
@-DBt{ϭ
3QUI>;Ϡ[t5_pe[&e57*u
/d[VU/E2{W6:<|ݢ%W{]%FÈ{{3ܷE"QB<t{'ۆūf[-[s[,HH«B%305pƨGo
!9CB`_e?1<?,2 9JfKI^ks` ,53IVa j,%8r W?-ZU$kj8\ߣ ?
zReB
ѳ
e/Z+Z.Mku	!UyE.HYwՃ7W}4-m%bd֥l	}~~]-|wE
](ًbȊB5"ڙGSK;dSyD
]yї'=SޯB]Ufԯ{+]?q9UOP^Fb2<>7kyChMU6F1hUgQ-)E$J'Lʯ%Y{X"p#K1gdeX\V+.TQ5$@9b~-ɴ53W%@dLKDGE6D	$OP?Jo%Wž~GInT
QTEcr8/l~#~ǌ.U;[g"Fu7r0f=DRK+6lwM;iKT-"˖.^pɂE/`|E	!_x@-X%K-\B-Vl"Ȝ颰1dȈ1eXJ&Mʅ)TX193*̹șXTre
)TC)
TYҊY*WR
=,XK `7>IP܆^Qp =l*&+TLI/b\"#-^x:^:"d.Ōx fFc;TZM2`*m0ET_-hDխ4IJFYPd1a>ELmmqqaPJ,-$FQbUT&b6V!\Qfef}YS͍Vi]ZkFmFZE
GG-rO1wNEuiv"rWwWy}wz		{Am|aRFyBf`V^4hBV7]xᛓ!√}y")#kf^[;p?ِer*5$tMWKPf^TzxXUI-aIXg F&mYYaVB>YʗQM(dh]U-eAXIpB-D[]Q/F|vFWpA1b_ceFC%eh+1
9\>GAy[T^Yc*_\'uGa-~amߖ$aZ[띺Vur摚vehX'7T'3PI0kJw9[]p\/1O%;Q3Dj*&LQ>-4ITj,P;]-CRg[5UW5arPm/oit;yߴ`
n~Uĸ=yf7e/E_WA4I!oEN	CɺԇUWwk%zI6a,){"i!A!ɩrPaVaKEM"b.R,/AP4G7(pBz ț*Y+Xfefc JɴU&ڔ(+1 }48N'*wmP'"d
$"	ƫL~Tcy	g $0a\CtfsC*"TA>vT^jb'B{HFhE F.ZLS2 *P,cmX4ʟC([v4Dȑ&BɐN"AFJ8T	'BKbR!1ܤ.ID<K 7^.Ft!Mc*
W8PͅHFKȨ F&$1<z@<E
Q`+yLնP܋6@yԑlJE*Hu'EFFg;Ә{;3CSK "6IB+О5
%HD93сTTeF.'^ iL9թzDbl-2	MmSt= v:=iQaTTњDX5Vqz	ViZ/1ʕ+jUš(/i4GC=4I'e,VR}IX15ekzӜrg*ZǨ9-ۼa
 OBh53(X  Z0[QZ7+P;ɀdN)@&TayLu)Yj*aiB(*'COȐ$Eu0zM&'8'.\0) ŇFA٨3x&)KX'[-2/L[jP+%\!Ĉ0
%.@3AıHRks:ƉRc67	Rz qV()(y'L6mWi\2ei2g&f	<\6QGoK`;G ̳&
?y˰aC[P4J|bGo+MK1qyL;Mt_hreDZ) g5B,VQ5r%jWS%܃2]Rj
RI0sNYb*l㥖9WgІOEDFC(˨&)_hftOaW®ܳ|{7~5]U"j}ɟq"$E$qW0'CƇU6{\a]Ҟ*]LpAIAoy9?t=G?5\йt5P7nn)X:ץu}cgI.lwtu/=Uӽ&}xIq+XOc'PX/1z$$}/w{t.1MG{Jgu{{ڲ+  ps[]s=Wis!2tpWe*qE8'7UY`D|7K!WPr.f[fM(քf`@a;
`>ASWaDU`43uq_	*C-	V0?ҧ+[x[Am#U(68vy/W3QNs3k7-/h?)$Bq$"?GBcg<`#
!:saݱ
Ycb83Th0҆eqjBWvxYTjUjHd YBۄ,0.H3Vj5؉9t؃8ka!Ic؄cSa%S҅a: `NGu}9iEBMU(LZ!3h
#+0X13v!/mpgQC AL
u@)qEzU7uA*Ջ3$A`!}f^&"71vg1\ D+$~vbx!%&IxEё/C"MQXp:q ,9vq0B249)Mq-g5(X#'DFYHzܕME1afYi\a#_5hSzhA`Qc- EW1 hr!0^З!5YFh钍/1	F($=@l!d@FgL)	SɚA,ZI-v XˇO&*KzNY/Gx>qff7ayTa\Ft6qGF$EB)oH*1m[x ?;r;o5-V/d^Xq}YSiQS nU b-NcȄҠcv`e{V*HJ71%F'j#z?l72z4:!)xZ;E:G8-DjC!!!ݣKhVPALdWY[Z^*Wr7|7)qch&/nZC
;Wtvj摧 j30Br$jyz=jAz33"-/s £!4F:[QLfpXXt!+XŒ[ucU8kdbNHXf?3?s1W"bU]XJ#tF]mS[AáfzzZ?x<t6d`+l9)Ȉ k0}gq9d@
)}A&ak
.; D7S8qSr[R&	]3$5()[$/0(Vt$ű=>mAKcơ%M{^PK3RBTc#ۣ_kb{
(fk0*&'j;mkou)$[."Mb}-N[fE(F1k#UT[ @륕 aB%%`3jGG2dp6Gs1]uva+d*q
fr68!(QTQ1h3E#U8!Q*J>d,Uw*;%	 Ԙ	QFJA	{=!<sˣ0vWb56<XuCXӫ&\
qצv|xاj$,&܅(<*V?Lg2LtTh"PZSG/B̾_#LFl
Q1Ō{ l[L\`L\2_LluTm+o7S +NXE+S1BȬXWCHA'N!F*K{
C-s^i<Ed%%`rVKɘG#2[ #I |sL fDzLD57uM WFvXQzZ.\A̻BC<&Dko"|Ͱa,+tlB[_#m4\A!$iWpZ#W9{jtDJ9&!.|i6]Fdt6E7$c# {
RC(]YܜQi/4&6;ӊJls4F=ՕvÆv!7~F #qA?snXg(+$.I*~C3r	4Vj]JSAIn)mზTqqK6yup'H8eϬYAǸo1Ky9HV |^Ta1H[2OZ٥(aVYnA3XN30)ZY8-тۋ3-OzAȽBUs;DU
F`حG=]c2gYPvx`-&m<y#K$=
Ff^4K}}VR~j#>*>-h iKD
7n:ؓ>S@#=\$}SUƋ&[t%oT[BO(W="2%OЃ[т'zHH
r"ZϚMBa75YwyTùq*\ХV*O1JG%j2Շ	qSOV`$aqXRti0jE."}G:9(Sn`%2⼉3ܙ @ĮǾ8;AˎN.ٹ9wB/"=(o\ӘB1JQrs6rE8µb2f?e	Q~Ꝓ!=GOz1@f뽾S엂&c3юP$Y2_(4AQ.f3 T3{d
_zf3%R!1~cI+)KT%ƙXaѲW1AR,(@a.5K/^.s ?4:X M ^װ6aeC0=x@#:ϑ/sޕ/DQ= l4
W#Qtт,YneK:ԢaÊd-^dda>r邒Rr%˖."'šXXJ*Wt24KˋQaN쩑P,`dsJ,P@f̗[<ecQnXjN
[-	EdLh*XX[r)5l4tB5*tPH B7>-qwE0?wS$I.l	d蘤iĩbK?o%_|ovKygGXɒ]S4H4nQ>Jezu."~
,Īp줞xbJ2,BHFB1`B+>C.Fˤ1p(cj#<j80,/I9`#F,b++RO&r-2M# !`[=sx[H)+!oS-,j"l
E2m4DÍ<=H4W<EblΤ%dRt++|4G#ы%rJ)U2P,DK*YHYC"5ϫMi9u>+|q?>'w*E5Sd;j,ԱK萡MELU,GaLHFTiF\2yR(p,;<^8#eh1 ,((<$34F
]2eFK/8K	2('T44BWb0xbafT0H/۠*&x"
*ȶ`2u9ڋ3]OG#9-ONٱ3SebY1G1窀Ih06褗i:zBzŨƜˮ'{ܖ,NNM{N0Z_gV?h -bop$ܴej\c8y\3e'c\At4+RDhui]Є&!Min;ajTH9֒TV}0S(IIm"&DBZ ȀB\г.uz(]D_H3FG-d w4(#^3F4}

k@}'!&,d꼠*zrk5/!!IKDh8嬢Ta.
BRĆ4!}&lAt$lА.).%axƍTA1Wx8G&,~ $B^
I"ȃ<2ɛdka"l	'a̈)yJ 2E *","KbrIŖY	ԂEP9˒L#Qu99BbbY
E!YႲ=&<-_mq:Vj$ؒT1Qr)-!Z"SpBD*)Є("ɏJ
~;b%+G3_"SZұ4Mb32a@Xְ:
5Ř$ZifwCSٔM*ZA BQ5bԣ(<kcST@5V	USUj5@VtւլhMkl\&k)R|pzR_yb}1,],ؖ,&+kXlT9{Bδ&-NKSK$YmfZ[7-ܮVk퀀믊;ֲ
2SsjꟗG
Zc%8Ϙ )C/!備hFыn8iU/=x-٧`s&:+J5SeaAޟʮc8PG$&i*y[n5tњQ`cX/;B_B"8+ٛnp8!ɄxUΙer(X3ç1d6VBԜTunf/<!:ǈ'wJg;%}BTCfM7G2ƏٍPf;`"dN&HF2Bt&;-PUMeLzub=J/b֍͜2/6b9fPǘ'z)D!
Ǔ#)H
0{pUxSȑT\؅=Q$(dI$.&]ᩞ,^F
O1IGbQ2(QZ8eDꝌ(slᏺRpUvERh"v8<r|-&GUr<;vch=&]>%2/ht. =K~vFJS+tŇ^'v3=O^Cn?y?Y"0_~	hpGȯ5q
)_i"QG	z'f	~+9y[=c:ˁ=1:8:ޣ)0"C; फ़1K	*PjB6<(:,Y	00-x8J:qHj %19B+̐iXAs&'!X,aQa^:I7h-)/A A$-HB'sa,
	aJyJC!8Bx9lҚiB¸B>NB2BG 523la56
'ɘBE*:I?d,E$AěC BSDFGċ,08AD@pDD0O$,bɐV䖲 Bƪ?Z$	[/\]\E=E,Ē-$F/<03')á@glhl 
kǽ(9X
'"HÁ2'd6Bb{,h;➫!qɟ)#!K=0-irh!(q:1$:R(t,D#ILL7Zr
J8ʀ,ɔLzʸ>Y>ut 烿dQLdPKE40lKsFyJBt'3Lk3YLhLzL͐ʼI̚[<<ͷ3RlּMt
d	lNߌ	D㤈tKNXNj[$ xa13F9E9=`D̧JK##,# (Yx+٘OU300X6-ɜ١,Qh)$Bù.C.XHJI! 2X,IQ	{	1Ĺ$ņP- )ݒ%0i35BQQ0]# RRW#UPRa.pRg蠴ҡBR
0Պ25S 2LӸ3qsn#Ӣ)#SY2/SIT],0TDEMF}ݱgKQuU*2S5PڡV&'U*=+L,Ul^R`%#aS0֢@S  ("Z؁њlO04"zM:ڷ	i۱esx7}鞧908,5X?(C>5F3Cꉀ0PJa2RrT$Z/$l8}͌Eŉ,ܾTŖ%YYpSAǠKJQ鿦ՌZݠڍZ]g]I!U9[ЩKq[}[۳ M[[\"-ܽL%my(i\y\.]8M\.\\M"5]ӅDEZK @̠sխ"YGyB)09/-}u;T7Y"0] Sͱ`j"1@죴嗐&s%\ɨP94-#EC[LH$)a @`Pea
`ȋ2njI)fSüJwIaJQ.5a !1aUO2R .A!N:"^Ĉ;&jbRn	bӱmaJ`[ix`icg|>Ǣ
cc/:ad[aCn3TEV	vdHl8LdN] aɠ"ثS7ހY{#X,2k
fd]J[Qb[mlpd/*͈A]Q!N!:=)HBj	T1`LvV[=Q"iS,:|U_z4{f|ַg6B*9hh%ay\=;}hBh*2t.!3biK6@#-x駉iiii<iUiN*ƬoIyjjóLlC*jx识,- Z1k
Qfp늀kh9hiVVvi "XvpZejT#6ey2IN
NTsΙNhM.ȍtCee vBG% 	쌜4-pSU*6ZW/\bѬ|
L)s oPʅ\ov2
vӃ(*I]HﾆN#$۱ NpXpp.76*P

N| ^ϩP{ڊ/qDe1B
rZ"#ooZArڳ O3'xٷ}ep2/sQMYB䌈ȂY^ƘT]))!G5h=3J`1ۍ0a#ÊHY#J쵒@a?Q:wE,`-Ùb=q#7Y
f20x n5κ:Mf(,&|N9s*{/q% R&&v0vNSv p]jGvq	s_ydyw{WG_
瀗ڊ,Ix(A.qu"<>U-//]Wz')OGςeoiGmvp犑紹UO'2̡z˱yz_<fCGxY P	+#}"ԇPcĉLfr.sQ}
ނ	E8W+7A*(x' 9	
8#&[+XNIA"	)TJ"eJ+YpEK/d|˗/^pFŋcJb.[P̂.Yt2QL0af	*ThSP)
LI b"v(H\bE1`hQ1aQ$\,Vds.X"S_"6T,9'e%o,#ei+_jIS(Mp
дte,\8̢j¢	"4D1jcȑ%ɜreKAgּyYO]ZtaJ!eAk[P[EYfUZmitwW^uԠ_ 
aZKcMVzUy!:ZR#fK0Yk6[mi͔AG	RTEVr5'AEtMTEmw"TRxd@H=q1^EV'ZZ3RtdDaq%FH	ť
QQ_	Eh=ZA!viqWUa6w/QJHՓN.=X0qF=qW&uڅYB=jlAQЅYvuNtDVGDb}Ahv&5yrRAv!P{'
G>G%h%iRf)ShZ·BjE*ǧ%ҪU:7+L:mqUgѰŶ{,KR]Z_AZm fᕓDxiӚmKۼsTgغa+({q"Ջ
F|iUe*q*!L򇯒+*20{(H4Ű h9nIE:c>o^*8I1>xuWHQI-:7ZS)CW?]`
{_S?Bej8au]~	YfpX`EYBEo3^d#aW] d`bPL,bސдϑ[j
dxWɠ)u/jh

ނG+&KD׼)*ң^tܛm2#a(_· NǚoMßpV<mHH"	u0@]"@1<0"b0tTJeZj3a̎w7I/6	v=b.E"	{TО=QwQ$wԨOY"b^Er6$?KdZaFyI!,)qB;"̛)'#NSK	C9#r6<f*NBrUù#%^C]	7qH`4g;Q&ì(đ~i(=G]y(>B`9xsxZzO2L5s3ДKB
a)lY7ړKB;tJ$k]ީxrf׉=kF}"ɟ$H@ȥvx	]hCGPDLVp-d=<kICym}4'#Si3q"ZrzLE*ch:5TqN
T:ժ	jH}.aI'|?KV瑫C62ֲ 6X{72y:^kF.Ā}j!\.N2AYy7`hew_ܚ[t!1hRP)R@6,gMUWA@gޝFXeJv$B뙐}tNiŻZY/L!,y<fd.M*}_XviD`ΣCe	F3FP4aؽHJܱ+J+fUBpTn\X4<>%m7+|NF
d4LU<G*ן~e:ُbs23o^b3,1PX!%;x#!s@ Lo.ZbcD-
,2!7j.6T"l'9?i}Z-e\T<rݰ0Cg
Of\T.T[-U ='=B&7
դ̷&C >jv).˾^䃒MZldUz

NZhH
jiv3Dۜ>?wu[> b@޺;F,~~/JtMp2kJYx +^juW9r5NPYTPNL.dN)&lh 8k<c6^T*U]xNz4o@^5Ԍe&[O>{X.w/7{0MuVu)^W$
A ^!"ɍoґ/F5;=үF/K[{濘(IHZٓVLQ8X)ZχEk$0A ȑpD,Zd
O<D_MVF	K		%܉YD_Xѭm]H߁T	
_4Q OAjVG&<Iعh`bF Rq u #IQ߽Xj #6#ԤD(aK_<!ajGUbli N%& h7Tu	AQ:4K	\H	ɀKeX؝G}K,IХ"S0KXU3=
7G%5hEQ]mu_jA.ىW0a+DD` F4IaUXdDǟ,n$DIIM|F*O([j3F#LcET]-6r?}#\#O^#:#p6!<VӁOc0]DKU=jABZ˴a@dihE_d\$יִF"4GnLgHkIJJ$ #LLMҐRdNV#OH66PQ89*۞#J;Fe#U#kݣVcWWcXbYvD$ZIcEmRxBq%	\x>rnqՕd*AM	GVF0GFGfDC^4DHJЈ_D` 5DW Ә #kIf
g0T<(CF8ʪ	D|ݯDs
<E'R 'c(;
O8'|FY'4vt`\'9XyBğc@'X
§'m}RO~n LΏhSdGLD(1_8TBIąEYxhhHh)fI_(eĨpVhLbrNtiu!rw.ix'yyNzP{ێ̅
֧|i)TLBi<VC$h,XPĜFApLJJb؛V҉#@z0~lFɠ	FF&,ԣTI^bۿIPHDboG$IFM  Ij_`p5(SDoa9bC1QzN+e	WyOF8+O+)Ljn`+h`W0B
,B&W,lGo<OQwܢlh,
DjRI
jJxɺOvKl>fl-l6X +(-Z>̫Ծk諙Hr-vQvϚ-o-B,N,Z,P+EVrIT̀DWO0Ju5z#į7eհ86DA|	dAˌQBs<
P_iꦺāҖĒ
hPNpL'h\l ݄L
IBUuEOYI/ẠQ+XopAM'Z.`pFRP/7o6pܯ@/@
U SGLL0̙+%Z40 t	DQA	u		

/p;
zE/0pŹG!2s#q;oB0q81bЯ~T\1d/p7w9ZchľoJDF]S$v	^Pt˴#Tdd_=Xk^UKCHAgh-J2^ G/>w#rR}5X=0͡EwU}_	9o3Js]2S	3_#ipQEsKM&Y`s_Y6cex
3s;<dI=賐iˇ3T5PSAAC!C΀XOGEcb4|EGGHGIIf@FĽ4
C[u_QeM7NI84HǞ5F: Roy.v;6TsU3Fb?bA07sqO+TQxdM
U6|I
LpXP[F_a
Yu-8vab^ơсeq3|m	]+>Ϧ!Dlj0kz'MGʦdZ{k6O6vq4o	\qs_	@+w5q2t7uu%p7wDw7zoࣩD NG7MyUNxۓζ%&,xs6x&L#7lxV8wWeti񠸁HwGϸ_i pqݟl>k<Si		Sw#-*~4fSAֈI,_ǡ$OK*]N0$ޒ-b(mPZL9mHFIFΈu՞WIذT٭Ta 5]`z\W{fF<Ik(:;ݪCprA
4d]#,%\;uk+S+98;7E[aDGYbaDE3
6ʉ+3X7:<ǋ_:mջMܻxzʸ;
7c::SgCGi;c#;z+!Rp!YWS(
hS%GnD|OT<R0F\bm!Z:53[ox7zKy^>9|~5/Wt5nx(_#reoXЀ!|U71X$Vj}>c>'
dEUZ)~0_8UQ7V^dZ̶㪅)k<D D*UdrJ-ZlR+Zl1xJF,Y|eA\xر/aĄhcElQ	c/,ŀ,*X3'.-4mƋ0d#1[tbJMc*R-@vv`\+O$Z%D\2
-Rdfɚ:T"J+VDTQwVF+T;4xK-Wd6)\
X_JBqdɨE)A
?8Ō9y% sW*sKX}#SN%s\1ɨ]rR%$3(*1j/;̨̭
C0kȡr$.bͭP
lB-, ,ɰRK%2j#A@
ӭl!ӄH\ƑNsJ2 ɸ(bSj8</̋)>H? l-6tsB,R0.p<lF\)NLXs꥔*FX,,|&! ҤI7%YI0jK
iKSCF,4SRSC63-<>wOASoCݻ06lo#LUBRɰ=LU@t
cUEX]gFtɢ!*#-)3 y#)%@:7,b
*Xh0A 6 )RjMJ'
Ĭة܆.<-R<+>(,¬r<i٘sVjR*Zl"(Q>Ji8*,,^xpjV *uZk`!D%v۪E{I;o5'_
spKܳ>rMBb[O<JXxJă!խn,";x`]v5K&/\T!x
V@IzԋԪv.e{^6>7fmos`_MJsW'}+h1A/%s\  1BĦd`ϐ,+,J@2-j$
Thd.@*	C"%kHIiYg #\D(2IG 0$JT$lO2xq["S(DM
qH@S0'Ԃ] H[qLC(eR#	#A2xt&9I&mrr\$(/tAGl*_eVfJd&-CNDd/̡f1fePjf7rpFm9G!XUQ#AtcB`ύM( )bR-IBCPl][zS9HVf;Əx)K̓OD	2 ~r,flڲ\	M4*#$Zby$h@)Eqg
NtCra x
ez·NkmI2Ui1;
xLdefoXSH{nxȲÚ%J.vgH/	^DuJᚭ!aX|6vVdaFHV3"Jf^Bn
F$ӶVbX@V0emIlnx=oyULi=q۸4.Q1;CM纃ɮ
݊x=]ܢ:
.{⋁}}"CB'e
>[)0gOЮu'
.iu¯li nIw)Ɋ#¸3awDG-"Hfb2ƼbYI*0,$%z֏W,҆H]LS$dƘ"RHi)1-R.VF$D߼DFuB-qրM))!H	ALUF~A.3[i2HMTuNB21}Mӂ@NziEoVիn+	O+n4oMم%̞^Nr#BqZ [삺"vA]o[ҺѷyNRԳ :fxjzgN
[[;&IٳH<R$ɓreF%'2[xEfQ[}՛j5bꅖɽÓtt;4MI$/ddc(U},zCKB5θ7.tAuIh\BD7̻G8ȱ'iɫoq<9:MuoH">owa}ĒR<"V@l/YLO|)"XϢ\4#xt'^z5I5zdo0'.[gҤV1*o莮q@(R%OF8# $,i0P'g)Q/4V<$Pfmh$cY|o52J&DAܐްK7" '	NLA>g!	flbKR)+{5c Tdf*QƩrt#O*H9n$CF'e[EZeӤ	c%<tp`D*|iy&>Fq:1=o$8)&(X1TEu`
|Ej!JNqRq6VFp-k,`Q'v#'hGZd 'xQ|J"`Ϣ}CGt:F>
+I!F(q 'gAшDQS +B q	\ )!gQ<j"3NŌB1Rb:һ\үYh(#ZmmDXI!Qvt!zxOhqCZbwr#2D.ꢝd^cVyI)&]$Xo8js,Y1M-w< H?RPj SsxH01@11AlH0"S)&2gSPT>f@F4cM3,PSVS'Z^b366m3,;"7˒7#-8-c88"9.9ҹӔy3%;}07"1;<;40ڳ(  CR 50?.6 *-]EJV +]09B
6	>\vd$l#2v٤ 
bM"JX%PPXc2rc2@
""c% BkΆ%85' x.*/vGGF"D&%F0.P&t>Je(J@T%]eL3b(LLMQ0Mi&NN>ZdDOucCPa 
Q{E-(R}bR ,JQSc(^:,>HEuHIHT*UqiUEI]?`8dJQJo:NW {U(´uJբ5jfM#N9YkDZZ#Os	 @
ö<n8b+?*癴Pv150!lO)b5|N 
 T]L eE餀6C-cu 	
$c팓>$y 
 El6fί1\LP2ւ!B-j(2
ƀj7`E4܂G-e]6(`6*d6fsUsvVzb5Ohn0O,iC #vj_ݞj#kx2J"@llldVoH#nnnۅ6Yowp;pqBq`W 7T1r`2<&`s0@%DwXmvIMQÜy6YZhs6vV#iioVjwi0xl7lyG[W?Wn_i{+ B+ghH׌OwjvՂmb1T0ZAO
n
2ǼȹU\DBM	,.d+B55esh)1ivdUjVMnvMw$%ybkq|C,nEp5=ƀIɈ^e#M
Bk׊VPl[Gz1"WI-`X2l+B0@CRv.Tͩ-fEQ?v2F2yR4ه?<ٹ/e85:"roEnaux9f9YTqO縯   !LC!깞p(xPh10(Gb8HV!v
$Tm:K/s)e.M8>\2ЊtMH)pr4{e#d$+q8yv&Mմ10`ߺKѤsֵRlY]y`AXI要-"§kɈZ$MzLpFsMځ{5PmZsZO"=bTq(cz#캜 i姤Eɹ;̂Y$xG"k Nv:N(YN1{k1f쳕-bNP;Ũ:q~u wUU7N/rW^\.
.0k&87m愂1ҤZ!s	J~2<T׺	zM⃐*vf!Gfx>ȥ!H˕j&E0g՝򄒤qCR1ѧׂ}y0ýF6<2:|5,ćwk<EOk_/L!/uEǝǵ"EqM΅ɇkܺϠ#M|7}
Y\5̩\ti(L<7@+=}%
bs}b}	:!G;#0YT(sBDH|R?P!̓M&BPx}vECi*GX\9hoۤ-Q<%֥4FῂׁfY[\q]?JFZW{Oi
 @y#z+]7R]
hޫ qh'[~#>>]v&>u""XⵯZy2H	XP?^Z}KA&峝]X"k^n܁Bc9ݝ"T#"5ޛ^,O^7/^9}R+ޯ܎O8dZ#"k"KbBugb1よ	Op5
sSA8#`wKMBmhx),?P(#DkiK&sf-\YR(0=8MS8n h٢EKY`R*W8Hq,	&˕TX2aVX%.YRBSʔ(U҅Ax '˗0b~ҳL	nyi'/Qw܂PJJ)oKn! .]|<9נYU^r6%X^e)'nBs5b$|~4KɔiEn^SAu.L
QbߝnѡH&Qd̚6qvP O"T*TT^u /^VgJGin6.] dleG-$Ga1Mq4ńNRQQX%QGR`EKQlw5N QAeFkyg[XEEb=NVHUb^	F"eV<XddZd`naT ]qPQ`J]A^]1YxuSן~FAzuu_
Em \6IX!TA	q*bWxK[.ըۍ「HDz$AI.dGTŕ*iɥF^v]iV9uS2'UX* [)jcccj$)B6xiYnjYj*D~∩b
W0V5#fJ#h$J2dQު{B%T-zZ 0J>8WJ[QaEn4j
Q"n uoeFUv*SEI۾U_œ@U7d]71N%SnwOju"]QDeG&<uP\;_N&F|_ѓC]MF[D?O>SbTvAaQ7=O(lBEujKwnQD5CbR
m}}}bbZ}hGSmf1wK}p~~w뱌q
S"7qr+:*^;,d|fo ;4˝v߁xw<My<!n(=Q^N"I*){M+	"Yvw*OlCZT?=-oܖg7х|ߪ8e<i`Aq!KtAis  XPmiG<Ȅ
\P	A"9ޥPd9LC =ya-p{|P#6G}!DhsɂE37X+<2XBħh	i@RKln_ B(x
#(3i!$`BLrdCG7ʱ+vbX]n |l)HnEvVP֩rH(0J**,H%Lzd($|p5A[Le2=&nCM̊Ms
B9έ9E&v}C~w(AjPx"x$LC$ɈZEIl5P9RVL)j	[Tti/#t:Ot$4dk.+
\ AQI@e.é%0(R

	5jK|Lf(4cP#&
MX\s'$24@$HKC))X}gv<W[Y1|F_|"incXW9.+1|r.v"e%?aLn;Ϩ23uo
$%7	dZ(vG*Sq0ta"]*] V)p.]^݌Wry\r2Cx#`|?B%R~)pDP7O//@X`᪅aogV|h+bӻsI1~5.e_7Wn9 +Tȹf%.ݢ3B(2|pǕnM L=*/C܉c9@ENUYIkַ'ۗnwL!0y>qE0\HfGuaUkES]P[o6/*ŒWuvw<C2bM@I$.u{GaǳF6Tچ~Í?DO)9|O&stͺyeY
'Yw^{ɑ,aorwυT"NqW<NB4K-"'QLEr᜜*˷2Wv|gey~oE׀.-9l-uVwMo.O.yg/I #",Jǆ(<GLVy7LԦ!n>A#l),8o.mhͰ^vAsPFFrF`aOlFvCp`EGE9NRQu!St	5[vC0CZ##"ͷ9_OTח(:lT7GG@GF~he`'~З(~t~z&3R$U6',%@
En36ڳ}x83Q7> 1la.x=0_7K68}9h}NăNܗgCh$w5 W6\OSV@asyx3nUehH9 c=XC45V*w5QttSbGv|\ROdEn׃X;aH`uANhQODq/
7~b{r1Ҕ{a($Y'='22 !LZPtTPjb iqdL%WqШ$Ex]G)rU/|3.T\X@`KC( ta.:cXPY!`dARF(ZH>_яGY:tE'LJxu8:R_fa)tRq<S8钟1Ɍ4`68)"Hgg=tǍe8Gc'MiMYHLU)SdY"$_%M'\  3
o`CICy3qVQpU$K&LzlCC$zIb"R\Pv&dU ~!+~Ij3;l1Q"uD@5C DȈ!yNLb44[d/rc^qtuӜyYItT>'AYrx(((6?aa!ĄB,/&=A8U𖠂.㠆x
"zp
 j17J+*t!.:u3zyS::u<zxCRa?5yk1jsj8u.w@x?v^vIFT	Q'Cq씜gjsyQvr:ѫDfq"@}FPMbqPz#L2&4nA011*)1R#rq!!kÝF1OxCG8PY_5%QzLKī.᫝^hźǪ~
U7T)d@y"Ar
ѫQ䲌o#:@Jʭ*1jqӯG,eo򢈪;16&kfD#UQBɱubK|1R̊MU%Va2m_܊B[$a"V.<E/Q7<c VY&M6Qji#*'2֍JS%dV*MB^ZYm~tHwMrR2&BgB:y^'Qd71q* 0sX[93a7=Q:&+k$D9đFR˹kR :˾	IS5Di]к13KR\++Ԩ<l9ɻT˫+;$CV(ѽH)+[ZPK6C>H_{}zkl+YPtaLkK{8`R#c 3)Ipc5bJ]ҟ\:@2eOQ`'}B_"A19* 3jZS B(![9Qj
ZHcX?&>Pgdj$P5YOԸ$T %`#QRNQL쵮;c^k wsZ#<^R bs6\/3|jȋZw;"S`81h",EdcNc(M<f_!&Vl<ˈ356a'dAZavL$u|ќӜ(BQ+I!ͦEq/1RER|ρ\dPȎ53M}M?G|ʿu˴UHҵLҮ.=q(}qCDc9jf#Q!,<8xR/0s&]x#ARZqM"A3b!pT#] $3ҎMq"w2S3S#m,OQa""R)&3#^td[Vompb+g}cJ6k
#BLg
bҾ
R=(hLvC}=Íc}d-Lۺu#>ҽԭ9L
"m
-=77b]55=ߖM|glSMO^A^[])V#]3'1["α @DxK%tG95U3!"ϛ/3&<T2K]^zr*R.RU DJMw3XE\A5'Abٶf(rWʋfGEXo"ߋ(	6(3iW<qEtJ|ncXEnǟSrkI*G[N.>5DN~eH䖂_777tUδ{^n78.R#1RS}o46TQ*$2(.ͥ,k:b\}邒xruK+	iR
O'?!DtQut
v'u;7C~qKF2@J%G]YT60(qw>};itRG:.zw&H	fC@N@[(8ȂڥeN#($<fi'GqAjh<+b_[2Gat|1&#yF㲔E[jD	\t]Y#LLOo7R+_1}L& 0bpK,
lE.T0c4vᲅK-+ܲ$-b\тʓ*
\r1%cb1	䖊[L%C_\"/c<vR,KR#&e+W8 ŬѱqdxJܬIb2E!/$lEH/_
Zfߢ|x]ve*\[WFJ
	! 0<fa"Qb|"lŊ^ ,ԅKUaV.w3\6{QS'sY]?2b@l+И4-;.>B>B#|	'sm.jêEB2<"h+;"#1NTmcl,(
7j+,-ܾb~n;nCj0{kSP;@,j<-C/1j=5zʣOͷJcA",BbJú:
ĵ
-ĝl\ѺQQ,h	Gb>)!<C%kbHʂJ,#K/'033$4m-#u
ƿ92U>P
-7̰kG%hR
 :+`Cƴ͆H4,ָl"Sk^4՛K,84a 5D
])RM`8)*=֌⡗hn6?bo.
.f(ȸcf%.#"\˘um-,`NzѤ&~8M_b0Vt7a;D~KRe}Z5ٴgfn	bAG"wHThcV1*ꩫ:촖k8HAJ{m.|nH,H7ҿ	̼_᱔R|8ǿɃdI:0me?Jp:*]놔9]f>AcSi` W( L,z9`+
JcUS<MВ1 Buр2 /d-]\nbMA0eRN 57 3./
B:lI!K8@ED=ܫ,D4Ho
!QA
	NT`&cM9ȇjYhLI@]	h$00<QXhh1.Rrdia5Q)F4Ne&&
8T0̼X18dܐsy5qkn|)$GViIRzi=2-ɌC$H-YwɌhu'w	ua0|cϮ Tg(jyY%BK7.<I0b2$@1|HFX3ylɸз|j p(:°^efYn#	LB@dQiPIkʬ8i8#y¬g#Sy8@]a&}GGDg( R@ua(p4KP-`L09]BVƊ(o)#*p=z!KP3u}H%VJT䣩:u>jȦ0F*YSh1Y0,{rs"R^wmP^W8b0D9b{ڶ#a,$;łōX4Yϒ
Ki$+	ak
 b$HQ:vrg)sUWu0Ӯո/2J5zu"_WwLaK"ͱ\	JbLa)]+ڐPhU$
	|gB!JMLM9ɔ
~ hRÙ


Bf'jPI228Y[ HndO p$aq`61(]P4D5a*U&H:̘WM/`4d3 g͙We3Ǜ4)9k\YM#8.ڇlortBH#6]
11̨K}̤׈S^-UYZPh
ʰPb RvlҮC#v_h2c-Gq[x3pgNݒ}hxacK.{#ݘIҘFi:6Z*: #$) 
b&^ڐ]
PtW#%	BvB>̎-&?u
E#i'
v'Ӏw}*49	J
s̐v'ߤ{6'_ opŮAuͥ$MBN^Ve:{90<[hε$~8Y_z2GlؕgNyr&E;㘠{3I=q+qqX,
ۋs8 s9䓒 
q32!S>>>#3&#?EA\R?35cKӂ[[ӿ< D=)!Al$h@z@@05
ޓ@ 襀" ԣ%*61ȍ=J#"kB6{َ0Qx&9C2$QA)
+y*@ qI!0e*$)	˭)G13z2g$<zicbǃ85: Df
xFCT
D1pDrD:?sĜDĄEq%
STV<FFn{YlZ<[\$=Ƶ*cEQrҜ]A:;FyCFq,AxT"Fu=psG=L4p{:Od}|>~$>"THI40 
<0@:KB Dp,x\HF/H,Q0
0 HvԴ	Ga}6u6N#8و@%'hFL oxp(KrxM"XK^®QF˻l
:g	L.	TLhאȤ|D!8̷L	4#<2YJ;9/شMͥMyE,K>ANQNaaKNK(D(+$ļdGLS+mӂ0I!		5.
A<$2pŘBl&a"۹@,a'OT\3:pR)!	z2a#@\yB؂-wA2SX5x)AS\pT+,"	FIj\	$mELZz:)*%
θR=	-<ؠvRg죒!S34@Q+6	>k|B ZӔ81,@@
ABCD
QF=P>Im͉hJ0L5("*A
	-RM%&UAqUѥX1Z݂-Up
S_ţ2@a4-)hSdef<r<u>%n@meCEI@c@=
)
QEB!*vmȟ`SJZO\+ZӇ)=<Y#iՊ?tӒ< %PEA%P
 8,aؓp!y?+r-ܪ@ҙMʼYٜٴͺ=hy͜ڗZZC9D4;uŎ=ӓd[D}[ۂ۾K'<ہK"܇1\L7Z[-	ƥq4ɸAmDZ5/
d]L|ቩeXݴh]]]]]ܥݽ̴] ^KO:۱ʔR݀i9!J1Q*<@g85=/c:+R<DZ
Ђ|_);pS:]G7%)iJ`?c	
9'րLa,:%6	">O.j
KW)lc"#`b
sъ(gÐRm/-ذY(w\	Zcf)c1Hc$)vcc̵`ƽ;`=cd݈AB^aD.Evjd
~dJI dWӐJ(Pe _	ȶn1>(h!$QȂ"
h!̓RUoI\z>2B)IBҸ06(h()	bZS`<M~'c͒*0H2h	10
Jk.7<Rzv{Fʶr*C$v+0ƈ@hɨ2K܊$Πh15A?X
hw
3]HZIEi-ii|"i?Z<LK&Nii#+ j1bKdjx~66.)Il4~nI4Ύ6Vk"a&nc:k/k:~+lz:fdFϘɶiC]RTsQ #HXe(IcOQ*zAuz,p( %
aܠ EH?R$Q͋)7CmOa8\<ҾvE9q3pEy }i|&d~E)l
x ?[ŶwR<jצx	?B"jwrD!QqxDqΙq3eqq !G78*z]wir6
(woo,o?oﮈq"s4p5O6?7wp9:pg#
>tҠ>BCםltc2Rl]L7~WucSS	-W
8`$ڥ9h'#iZZ9Z'
|#dոPH,3)-G!ĬРӳ28C3zaj,~+Z'U(Qޭ iv_tmbE߸xy៰|w  c -z xej3pve-"0N59xY0
'7[B|	yߝgW껼ېu?*q$wY]˞1}Ww\lxz!oQ"xO׈'>n{9汍Z>ikT
Pc1X!-+UNO>ɵǍq?Av30%Ӓhi.\|"0bƐi8&0nɂL-\"fK/^dɢeK0X<YJ+%KdiJ+XXfb+XPbJ)Whr'TUtJX|
ݙ!hKȌTOz4eܸpQ4$H2J+THرN\X'ΝX޹%JRS@SfÌĴ-jRE#'\bɳ=pa߇'vx#Gv	,y2ʖp{Ɯ<#e:y*hƣI6}
fGj+b)[cZM$]xW^zyWC6Rnb=Pv|]ag6ZYN5Q4lyنn^45@qrA$YaQt
FWˉ$G%Aɴłcs[	EA Y[$ŊI&N&TWgRF&ORQ^1b[UaPv}!ҏh%YdBiA!`^L!Ė@,[[`hWyWI*ETDLEvIŬvǒdX
}gEWt%[u֒Q	HW2ǅues>KEݧWk'RVvE8)|UIM
X(lRiO;Q֐vjstj~7eh%4NkI®SA:Py1myq n-y	cU[6+ZtxJahSHeZ(Yprǹ]j^* tFz7]H]T,*MjjeX&ty\C	D"5҅;I<aXH>44\xp`#j@Ilj15j%}A֖	j{V5J15Kr)V=Uo8` ޖH/( 76ނc'sI<WнotZ(ݫPAuiJudG;vo*)H"s$'Z^7exkg=e'{jD;c_W8~"ⶴDPQG4倝S`DB3$~X5׽DVH݂ܽ%X*1Yxwa:0zV&_CP|(<@X}!i-M>ىH%Jg}XIȒ$cbwl_EB6l2p.K$#deX1wͮTqk9%drkJJ$|!|c
}9ZP$XYA98YКbr6,g+]IXe#T-r.Lɻ3Z`LgNAdeSP)ce:NQ2Sl}Jٺ'XӟU:;zh
B)YKfB9ʌba\@>RK]x5LxSN;SDa@PQXTm"[j8ZNN Nd61i,|[[^nxB&`= :q} 3U=(?X+1I@PpQh&cҤԧX<.cW2uPiTk=3(ॲPHIʊEiAְ-(+3kC3][rP0IpG UnSKr	.H۝\W(%
wݸW,ۈ-0B;쭱{i/ބj}A_^X^,kSB4@$L
K£$%85qm+b.zbxQ0vE]gqv"9\ZrQ<'[S~e d>4XvSE9.R#X޲J\[BF'Vz,ru *H@kEl)'
%Sf|EXYHJY @11BJa:Tk1s6[1hcq}h
Rxa|R4[zqVL|<UvbO P+gm?1L;n{dZFms2ݰnx8=&c|5u
-נUʺ8qv yHkQ:
NFlȦog\ړ]lRE't{~6.0&%{6m؝E cgs [P
^Ҳ/c(ܦ֪""\N.FAG$h8NjvSkA
YqiCR(OR@"zR=Q7C	8d0g	8J9uME(G<XLǌ
ҸƅМ}SsDV|to 1ʲ5Nu=_I	iYN1mH4HVK
TKoDK	_a<O_LF \EyMɈHR9xER b	
bA~E
	"[>it_z_@`N`E
\`!Q0*  qpD[WxAd]o$qy/1H^!˸H˻XeP75Ew%ɗ|p[O|\Fb9!aex	at[ʊ
ӹ_eSFE^(V_X<T!ȆQ[o@Aa3[@}4:QHX#`lh#pC7V#a|f	O#JXE=ZDIL	>?nԼwFCdN(~CaߢTdJ`Fz G^G&\HKpI҈JHKH3MbM&YuO6Ovcs䨓Q"9.e:EL<KأVOWKcx%Le{dZeXe @Wƌ$n<gjM&iZFyGZXXRLԄ	va̠d3U٫T8AHAYO94|lg$an$pFlČf~
@IYdSlIIQVDRVՕ)pT:VF<op%k7eLA_UEZDH' g-VRxufF"҅wˈdxgi{'`YaQ%'LfT~~^r
T*jɄƌy`F`hhWh=ˈegIvSnhZhs[tZcxagw
'ʑ'V8)zzzN{JM|b|E}N|)`hiżi
 D|k̹O װ#ȝpq9S~БɂhMk|@	EZO`D@rǱɷ	ˇV&qnYw\*#O$M4tt}՟I߳NU+6yȋjdb(:n RtqF+?:Ha~8odtTQ°LL$T,>aSKTV2J[ȢENU;F>ԵƬlHxk΂Le,mD-mux2>+H8-^@Lm]m\fAm-zmI$, ,DE ZJ@IhהUP]e UHZuOP<jfqOT[Dς4JI\j	QN5jj_Лo+}mȟj~
VPK<W-I_OL
1AMbخM/$D{4/VN^oZDx/M}~v$MYF//}o+/gx  ៰,N0F*Hzpz"OF0yVXKR/SX/j/0v(1o91X(FRq ЂBfjGXeP(fR
nLD6=I@-K1[o
_-J_È2u
iV<?=RėpAwmGe
l n BXp,Ees4#Y|I5A{%6aM-7n.ˡYPt4,s2WH23",MT5O<Op7RGznsgs-:Z;۝t<Գ/C>sUs1B4"BD08jWJEErc`t2GgyHSӔ1INJ73K[-E4QXA6tNO+sP
oVxJn:npO$
<ڤ:KeØ%sҀ2`mQXUql4
F,`z]5!8ĒD[0Z~(pWj+ˡ<A8x`aDYxviaȠsrҖ	3l׍tN҉^gTn+KM	]7ww8.sUҐDwG]LTdnj7wwwu
6yGyRB7F)rI>aw|m}3H䷂aC	>/66l+xm78ng
NoۅC[
Sp+*7Js#
%sXe7 4A.k%
rv%V`YInyWG`(8IeRV[mĘ%[	 >a3.~DXOzz5D.X K1aAm#MB',B4Da\ɮyNŐoW8A)E`HBcOd0c⎃)0;VcDP|ĥE7qzF7ے'zSz:bh&:p8ʮE
%{cOFpx=
KP}X(amBy;x;E:QӺ{O+߻SǣgJoĤg?ľ;W"}z	%|c0z,|V~zOēAcTDsDZ*NŻiVtD?)ĴlA{_\`A(IEJ{bqjA ­Z7(ۡ $)P;<#D`WY
JUЭ$vPy.]tPdHy*͚
E\J`rX}!o	~f<;E>8>ME~3a_U~O}
TWu&7-uM@\beK+U\ɲ.\zѡ0YhqإY|Çh))-^ ы2d|Lc0ҊB(5rXZdvr)S8**S*E"(TXK*QHQDY\b,Yf"p1ÌTWX)fb[To,a(/WD+rWxJ+_΄)ߒ`ĀBd':T0Js$h؆'J8bƍ?Tmb-ΖI&N<KRLRh{$yJ5:n+ʂ
ȦB\
-
)*
(Z+&rI"&C/Dڢ+"*"%J#:D3J71-:
Q7Ҡ(+b(RҊ1Ǆ#cڋĜ+ Jx[K,L>XL!ȺLȸ[kD±&P>g.<1~+1DPr_L
gi.rϤMC%tH;2ɩ'ۋ,E61%*H/+#sNӾ8o/P U5tTB
4C<=iDQ/S`T#\Vo5(YV k:U_$ kL2̋hM;ʷ=Zp0v*^޵>TKS cK[h#3Q{6Q#21D0C+/
R"-K+wE頄20PrL5ĈHpQFV:$Јd*{u2kҋi/mP{ֺ<
3iyi:\VIi(C"&n{ZM;6C(&oYn.-<V/JqײmȥoF0*Gˉ!sxT:'Й#{كN7EfAHt&LvAld4.iS'v1xTkIǼ,t
`z
m	۔en䳛Tv,Ն}r[ 5S-$3V˚-@%_iH$ȑ/!^Hi"DIMm'1܄RۋCOW0$/T~2'@Hgs#_J*S
HjDF)J ?X!"H󬒉mщJD-oW!YL1wVd\e
`_$!3Biݨ8
sMmE6D4{#@~da!D-r$HH,iĹ;.<R$Z)JrJTZYCFyKq (5=VB29*^4"IEn]s3o!u:|'<&O1])]7]ª@SةĠ"KB3ņ>kL(zTB# 82j <Ù|o&ہU*I0F@*UDTBWZ#%QDm!ʁX#/~SA^"Ѕ,<;-u,KGDQ.Ts8)^;V(QR5#(T]kq((E!&bwYhnjgy֑QT8Z&Ƅud;1m-oqւ 1J;>Vsa͒u]l߭fUK|U/s +$װbr_:$+M]A
S!BF3p^ud-VY #)\\
jFA	J95+aWAaWe[)X.5^BñJnl@Sw!EA\v̢P:i$H(F3z*CzCMڀLt&ns=1].N%uBR&SPC#XئQHSٰDL߬Q'4DlSUeJ1FDRkG	sb/fڲ|2<[~BվntiW/c{Rs37݅Ux֋+}|g).kPn[zQjO~x}f=TC1tQG^bJr!'Wf0;@yEj	t&:X6%)# @ɂ]Q#ZνS,TQM.ShvW8}-N8QSbz/S*3q%k{A!im(^!<?*VdbSoEcbagĄyoboKDSuͣi ^/B	H&Vg\KaN̠(/'
Bю~Dm#0t#8U/B6 "ƏЏo>ZD"l,/cH>n0ed)L$islA B1
ZH#qR ކ;DB#2[~N,e.g*0eDABMF'M#o,shdN/ IRB* f3 +G
)H	 bA(GCЧ @pZ«f$yJ}*2eA)!xIj%h-WI&`-'HɛD*	1+Q8☆R`3k6vkϠGnDR*C!V}/bk1Qnr1(V~"@Q 
]uiLk^H-@eQ(7@	_L3wK1Wc1h":
2Ii!!QU"[*0ۦJ# C$Ir"LRPJTX T@'| `
f+2N`$mHfR"lҋFêff`dNdCJLrjB}Vk%)A DJPt>aHb
$526v''(b(8Ďz)F(&kHtD#n8q5=I0FF1"SE S272.+I33P$@s*S 4I5IH%VZ5WDvc6O7B7=tj/~3lP,8mez,@9G9S-ziDE@;"Ӊl&<Kc<ub)̓$Гֳ<)'s6:S?u?@B@-34-6SWAXDB@BOU*3*K66A6dDD{E+8Yl8cT"vFFqTII-  ~gMJ$
^z8;E@2jL:KXǑc1Jv/6lEK@l]H-);7N ԪnRƠJhkp"L*Jñ,hHWI5IBe@"'2o| {斌C@{Oiw,0;6SAS]&T0NjŪVKZPlgkFKV?ADCsGmGllgXXb5Y-B'u-5GUKarZuAZ<Sb@u^"]dF5x`]U]^;(U65uB8sEZTeLvYV64aa$dubkUncu<u;8c5$D'IvϾ4YGeeU`Zնhl, @x.(V/Seݰ#Rdnx:vjfb Z3ghDٔɎiDR#}6$#)%5&vX'2I%Vl)ĵB*>:%Q:vwgVR}ږEcrٴ1J0Ndh%<tDtt	tU#RVt\1bwDf#j">[bvWg{wԦW;=WNymlz	Ca"{͊*&2Ʒ.ʷO}N֗$}q*w~Ê2sWcG?Cuuvy7h4l)wgkI[0x)N88Z<&@xx[s7O 7K@>DJZHdAOXKiYuc[Mbxۈ`EjXbfg"'zҵH>7F$^Ē4SlHNL^"󤾆  HKoov2 賄V>`NbF )h t.Vua7T$t+rǎ Y"T9kA'rhao(`;9q1GyRvXReA|b9{f;4tYTǗש׆/y098*lٙ``QFYJˆ1=.)5ocZFؙ
ꝓ+!cI$5NgY[ӠUMDQjNx%([,##
 
i%fޥm&=¬x''H'x
tc&8=I@=!
|LV u$ֈd_Ubr3
DA.BJb|# @ACKp0e3Z⊹ŃEvV0;zrdqXL 
g:;<±a%0tBf%)BP 3{ 7*d$SMGE )DQ|M;38bCK$Wu7yBO'OY9;<㼇Rf۲q[>ۿC;/ǴEUY\ h+-ڈ Gr$ћq6
$t$=1HnG9˄5Oy7LC\ }hXQI9()Z$t@F@oZMz1g)h13v#"e^u/Z\3cL3{I͇C<uPγ%)@Z|u&2"o	b7]2)c/lҝ"d}3Z8\=d #KF\*\:0)lN0ˤx}Oϼ9
4a<A֔y	3+Ͽ!yTГ)8=ѿ!ѿҷe(~݆]!aZ'z]:_C'敛H%&d%t=AčX~\FE`8"I>",^Y$HJ05
-|"g@)4,0IKWo|+(pd+9dе=jU6Tfd㯳Ko\=ׯW[F[Ȼ A	0kqV[>B>L f\ 4E`<^!.B(H1>7#_|H
FQ*SҖ?H?$Y/
d)<6+#DT~QDK-Ytf̘0xђK.@Բ0] n!x%H-pƁY>jb
+23>J+WhnBE`ĉȂVF~̂NQ %Kɨ!XBJ(QPbو`n5K
-,C$&Ϭ%\1;^ `C,SҝE%E.[ fqŊ.C(H2Ԗ8|Uo̞yTBw(HWPE)\(RR1_NSԦ/X:vqj
>J/^Db%*=ev	4DM%j*Tv4مdtbtaA$(AؙiZLWhVeq6"JFmI^(ԡS7Vf\laPEbXcIA&Yd]feeEivZlufnoP)ǜsE7V]Gwwux块뵇{I}uJF		.`4FqaXe'r^ؑP0z8Y5Zqc[:aDuHiEi%6ejVRlVP֛wgfr-לkknfupj'5x^'#GS9&_1z_(Jj F TFIv4FVM1\7vO<aefAyOx-SdیõT=^PFKKR@h;t_R5Z$]_AFdF~$њNl|:Lbq]`[`zN*
F,BIhdnoPbsdz	1Jnw5$5'OebsqD
S1_VAeq8nr!.YnQ21|#}=	W}41tEyU_eX֕uIaKDaǄ60Wƶۋ7E=E]{TG$1X
$]ZsÜ%1ЍblNԍuuT6f),uw?ˉ׆f<ESY^ӜEO(ӳg.8V$mKF 2d" Y
lc1I;B㵾;RJ&|yKV2m
}$@Ō&˫"4A34yIZe8C8j^	!G#Ev!$1K@ 4!S	RpVmbK8 4_v^/D.Td^h>}8<1/KF1O;@9ºc^0ˏ` db0Hm,"H()%uK)DFdIMDf%JqJ^iX2ae[|\*ieLaV<s8-:τ=wiIgLFn̛q'ƹF;_Z@
򨄌!]<"'$C#I>$)&TPVBJ)SzKMJS8	
E8,od_}P"EXfP⅄hGPL ;lFA:"fB߈䴯F%]G[%KvqbVpH0$|ãdF3$zu la{=V@vRo\"h.xWӵ:}f 
`	۰~Xb5b,O
ːugؑp&=dfK,ֺvnЕ&V[V8}ܩ
T:rT15aϕ%o(-Y9v)ݸʕ5/3qYYo|̾;AĈF"H)F_bvMqړt˝Qa6E_Xkp\*da-
})ʳ)ˉXdaA
$V2߻q*BnTRW!`s#rppD |tN^h(-r!g1&Id*qщ#z-et8M%<3e+<
WZ>,F'D/ZiN2+iQNj,tzfPD]]Ř@Y&rf6ֱ5t_\3g0A!R\0Nm,;/ͶNNm*)QnWKU*oʺw/jRtGw>
G_N8	P2FDj[rkYk:~W	5:? 'S~:r~̅Bk J,޺L`NB4BbDTE(Dw@l7bZ:k[b!cۯZ\ \R@v*U"wUl2)јމpl(s21aEDwb*/Ә>$I|2
򋛼o9qcA/p*azGOzz:{<U{s{Ey3ZgI5FWr|9|RA;LE&'ٗP!@ޗ5w@D~ON1xx xx*gyHd', (z^WzaKÀC"{4{ؗn[6#|  ZIj5TCdF}W%RT_I<Gxo'{.1HOWC1QPQgV"YFRfgQXa'Xt(!5/nxRU2a0aFqls=s!Q9y3sFmXs;Ouuw~UiTsy6XFmшdNdit4SE8O}=d":V@xhX}R)_}TVNbfGNX38#zqs8RzqzY|4$DBTeqxF8i.C!`<('M//5iMW HAWziU`wW3ӥ*5[\0:8p3f$wGYиFGUXOSHFK:6efR1y|8_8U%qWnuQV8-SWk{LXTr5%ѕ܄114Qr\󳖹Y*bsGuMg:}	"E!.Vq5UiS9yiu'aљG.Qn:煚[3=Vk#rYrVaD(RC`%GeÜBg%1vU|T	=1)ISY*2iϧ:yaC K'MDE#bUC/QcC2[\u;%	2fq^MJaSfH(ÃcuTQ2x!fRU YsU/2"?2DP\ɠz5D|*!.ITzz9qĥ_7a*"*v*ڱҦ62V1Ga
ӎc>Q#yWƨ{ZjSEUzZ<-өϗHxT<o$fpcХJ7`ʅb*e\'6sZD"Jjrzf%t^ʧ!\' Ba/93!:dQ 13"B-!gsG"}ZzdM,"$fI1L1yO&PC
1Iqq}RqX@53fPG['CLa~WM57!zoPHL[Q$U^õӤ$Hao2i8kwCBo8qsKuT{[9j*1ZPu{9U@Q+r'PKA77Vpv=ӺIA]K{O[;]g`ۻceKEk$+CŶ;cHW
wkwD!4,kAb[{] FAUbE6a&Fe	)0F,ea<*<)ѷ:R8!?_#Q;92yϹ!XǓ'Ì.AXe||AT3Ɗ.3{jSZGgFT"qp3(P7C\F@ĄPGtT|(V\MZ|\is`,^x(G,cP^o,@`"F#Yp{WUjFeLuBR6SՎ:\}<<?쉖|ZD<lc\LU|<_Qlbn4TB2D|F+3Ƹ,LZqƶj<Ǵ8lǄÜIzmA%hmmA"CY|*CRra!x6˱ r:)wf[|ᲬamMaϗYr9z(UR3S{́19qQզa"!ħ!3T_]M#S3*Y+C#!6QAWӇĵB@3<nHSڻԐ$+&1PSpvՁLegP6qfi=͊>F t%=y+oF|HX.Tw]*>h1/1[Ԛ];}LE0SBX P]VV\Iy"RҝGY/uq(%eeQ`䯎31kAYKb%[-IB&1I$|ApccJ371"=+ҀQ,5j%sasS]DSoc
f6;ݴ~n&Q]q
ⲥ |abSE{qxu\/.1;rXH5TL*d*=.zRK1Bx5KOi
bkp|U3mCqwFfg_bQN\^GHk]{fnu.x_A]t+ndN
uo3.6j8ޙ 0&r'I1sG0	Ku5Qv(])A"&{a&f*Ge)Xd#,IԀb5=-'1l88+_:sZ!^zu7N;)ޑ5^!E~̢禮硣FmtOKa
m(	d"!?T$>K?ݸCF,#5Eٍ.d,ox9BK=f8/A<ǜnF!DO3Fr1QF~( 
/YCn?YP 
 @ /&icJVks-,4Ggd.óB%wNAF	Fn2Cw#F1.&,T)QJ+$b[jRA	K,Z%+56|K.dH*VĤJ-EdΤYf#xtْeBGrrI,UTQ	b+"-pd+R"E-\L	2K0d̝$СuTko-`!:tS` ʕZ>bQeGTF|bUũS
֊)dcWSiZ85nY$ɓ(UJK3tO0CFs(Oxw%jqRKz*jǫfKd͢UV[rj7/ȽK0Zrn.-*?-43BqDK)(,-.⨊̚<@+H$T *)1q$*("Х"+ӲB"ɼjGͲs%sD䂣4!UtQFu(ˢzHT詟(bزQ1)/:I{V\oh.ҶƄl3LsN6{Z;H"d)4ִ Ւ<Cs]T˾@b5QcR/QS2H@wԒJTW5
WU,mҵ),⒱_L*dY-ڴh[- afkfgɡBUT^4:")rjzxB
Ȍ{
)b)tq,ן죬^1T"
]ʻA{,*6pO+Lɋ*򄂶b7RU2
銩 Δ$.^pr	s{ ŝa#1ػo)_;xrs(Z$c])443Ɠ/7}}9wh֚_tڐ.,
fյn([fWTK6c]Yw2Xbе
$y\0x#mn<Bd~3c PP;a}C QC$b?'SYIT:81֔&S
gUx'
Vt	٢p-T^[|=QJ"!d@FSQ%e@lH-:`HΆlIi	\BIPQ\!t1u{C,D;N\>|AL	/a,Hd&Sdf3٘hTI &&-iC:U"?'Z*Kf!C|t6mQQxL'$@9)'eL@2WH,Zd(2 DThE-zQfThG=QjIaXJFe4ɔTl&JT;EU{LfSVVJ 1AJT-L"f ġUC}L-uՔ%8XVLsk]zWU`B+MsԅMq*TJU>'ZUUʺw>OZ3(|h)K"iKOJ2e4^]k*  mmm{[Vmo}[WDZ |&wy̼2\FWÅcuƴX#W$B1a/ 	I'eo{^W?o}{_W/}hLy/r^l-A6#R2!	N6YYN4RFaoDܔ\Ee}0X3qm|cX;q}c YC&rwS$'YKfrd(GYLA|e,gY[r|eیILP}GS(l!%etC:CaNLPt4ˋ2 <hHGZғt-}iLgZӛt=iPZԣ&uD<u]jXZֳu\Z׻u}k`Z-Sl45u* Cp`6Yy$imp @hC2pnt[fwnx[w}o|[s"o|$Ѷ$-gRwpG\8gpqg\x=q\DXG8p'\39 p( 90y}s]C'zэ~t']KgzӝYi<H5y7w $GyVTt'	v]s{u]{{w^'|
x'^"7'X$y@-yg^|=yЇ^'}My:
1jD_A*,ۏNe3Vb_
WQ
c%)g9scy訨#wovA'CU-_󧿾i{G>A炭  
11S @	@
@@@
@@@Rz"090!!1 8٤<3Y:ki1Yh"@Y@xAP0 -X(x+;á{"(. 1 h6jsQ AC=C>D!B1;@$T@ 8FlDG|D#@?ˮ?ٌ:/EQER,ES<ETLEU\EVlEW|U 	0b
`$K38
|	-qB!)4g0(.
3K\+M<NL.BF2h$f:H`-X
/aٌ8/iɩ/&pM1 ,(ܠa
֩YӻH{ bkD
lDmDL;\IlM[d
0*MqH*F/b$2-( J,J<JLJ\JlJ|ʣ,(CR@;|=k&7&ZJ +4ٕ@ˮK<0A*6<t D2ɕ:F0I:t Ì)&CpF C1+.=p9	⹊e{?:lfтN&@HKF"̚,L!
4

NNNNOO,O<OLOl<D#!젚C>COC#0F؉P-P=PMP]PmUw
,8G+y24p
aBL
A ,):6U0hT˻s*vrk1!7rOxOOO	Щ:3
 ,	7/h	O;㐓Y'9(6]x
mP"P=yEC}x?a 0"mOHҟXRlR
UQUR-US=UTMUU]UVmUW}UXUUB㩋87l9OňR
j?#S/43sr@XiI&
?KQ\%ޠDUp=`LyJE	@V̯ŧ/h()@'Gj,#56ABAé (F[%/AVҾ]3%l1UcM谗fgM-VV9CmNL֓sA1wtŤaWOT8{]V+J- AX(i{P	/X]2R`
[[[[
\\ܢM\]\N*
	?A1(h+ǽX-mר񏆘(.؉b1p[	)80
\*YWn(Җ!)Fp Űl]%(1{WUiژm	_ًO%Ju	])y
=̆ӭҐ|`/h]+ݏݷ@V%ܽmٝM،)emأxάTOl^M^.A9Q_h9l"u*^=e_#ͦb.b/b0c1c2..f	a%a5[DjAsa2 gEr1y*s|Yn4wӶ"ؕA3: #m,#*#(~ƭp?1A	0p,)mJS$[h
JC1 /.e`%
*Dd$p3cFzWƙK
ds*`lJXy"E#pȁҎKP,MN"la{jW>6ٙSq]eD6Ĩ-8HfAŞxh~Njf@&
AEo>pviiiiiN g^Rn`fg
D `Ň&]=Z곪瑐DaP1J0]c*p*(	yC.,)\0j޺^7$ViI.i%A]1 	us\d-
X
UJ*ꖆ6e0_Bpm%zr չ4vMj}k	޶G.$637
kp깖O"^	F"lY	3t^lȵ0?yl1FLU
&ͶΦ|˖SvڨTΉ([ueٶchY3[njnP^8 oqqqqo.o85D7d~ok﬐l.>-*pq ɉ x\@0Ūp)ajh	CnB(9bKUDiq*e64x%86KZݐl"8 hfݏyd3ϝ]*aRtte}+/`f-DsbKe!_]-	FO.r),7v0p!s'1s<O67o8רsf$<=>ct!M%E:EgtGt>HyLWMN+Pg!u3E`9h(bXiu+\r^	_`^aFN3d_+bvzgsijCk==mspC'wEw FWtмCw/KI#U
Hz  _A	sZьBҲm9e
㑩J%X(4Ďaƶᰝm]cDó(NB4iól{YhK)%OxHS,W,z*W	Oϔ牵G_Ւ{og[{
WO]|(<|Qg|je)Oʷ
,oGfQr')}?
/	_؂Ŋ+XpI%*RT°,P\E˕*]>*ܲPF.|/I&EI"%Tȥ-ir0,lĢƔCEMSԪQ|qyp1dȴ+Y1]H̒U% &l(
/aqVK0bPPe)S\Is)yrXe@(,[U]Ɏ"զ@,Wn'ېȞʑ6ZH9VALƣlKj,mFh,ޢŶM2gK\a9AӶ_sFU4s%%EbDAP\]U]m4S_6ٖ\b1dQe!g
+f\kEFl٤m[P<GTsSmMWwtExn\K_M$YnqT(3`\G^&ayXE&ea%bhSUZkZՎ!&PE|-ٟ䜔Bԓ	Q\ XAc|o͵my)&f)ctVGGщV\d6^Y+TQTea}o懖n_EJP&s[X ǑRHSPJwT\!H~.pE}'u'm	$V_pPK-A 첼9;m1-t-EA"zFn+\8!yًo2")I7g@-p/A,
VqCe4wt%W{2}
 [Qb7O1ϒ5UL)]^4Rp^րquȑ;6Nvkoog
o\
x3
\u
^x.D7qG2  Dp]}=HN=[	~vXWxOiNs>f{D&>*IN3$!KGF).Hn&zV0ngO(@B̝$W,pJzdA&I۞D2ZNX%k	Nw?m2 Hs
$V0H-h
#A|E!?4!ă1(|x aC[aZg8Fg}DHdۢD)(1SL| ŌMTKK-b`"bح1Φ8T_DШ?}0GGɑ#.&%d炇y%OJ^R7$bq3COb
9e) 6D Т|-Gе>f)ЁJzA,g3J]%1ZyB`uur-JUO)h.!"/֘*J;`ZQ65xg%aD }!1BIE ;OtEI*?DWwP($=Ej! 	G]}RMmLz*!,FOF=zMs㝎>P#ԆO@FmRX]5G4y*}
N5I*N.CŬAJJĭ8B*%_RѿBCUÂT$mw;JG-&ӡt,I>
jZV/呔8T܉bǑ*rc]%3U(]vB"$_BbcBV0
3#@Vb%"7 f#{=.EP!vz%(i?U#lgH+IT)0 e%YRӒǰh!%$y@4#Jɰ9k4q#`?dIʋK,xr6)+s&.>.NYޝ %7yHSjLj6UYel
x/a>;
}Jּ6y
qvfgXH*"Hc|َ$:~vl-+r4XcLcP6dVT>j'׌;qua}4+:˹2  &/W4AiyB8!dn-Tđqen%9[:R
p5M%N3XVH䲚5M!\Sr[l<E/|ERCijMeNق3-2=!tt]B[>8pK\*Y8oqem
A }&7Iі7\֠ܜ+a9Lpm}&A/>BQJ)ԙ7u]߉3cXJ{7,ޝn'b
߽g%18,nx_ݪ1rǋ<%_9U~yH|
gΩDϱGY
y@4]RJ @pLT!GUDC@A8G\|8)UtEb0HADp050iW{i	ܫZʇZ<׺kXDlvƔ	EVx!P]tPtG݁́H̄ĉXI'5%Cm ɸ ::
ZP`젯``:h@!*x0a<("*2h&X*VA!ڨaKaxEf\Mf]C L!!"2bOH	ڗ	BbE( g,F))++a,z]-"a\0#VbH#.%5cb	4425fgS$= "uDO]A-]$bQ	p|㺌kI, ,MF!)W=o]}L}oqʬ5]`H\Ԭ`dLWҥVjIʀ|_Ņ_ipY6h]9Ae EUjb#VR)Τd(ENAdTO]0DER2DS>e^DTFUBdPVBVDWWVexQ<	DVC,eSb]N]^v^^H_``ea 7*&OcRcKdRd`Lzi&gngZVhBOPiR29efOHeB&VĮ,nZoXg'eq%rr6g< tJtEҏ
ie(@x@AJgĝ"EW-̙V
lm
| \PVBDT؅u!sKPE^p%Q! [ΐXBe#
KXIĕhՋ2MK6bM파GVJadXkit)Z))%P28it@isH)ϫ\Adiqi"(*)>&RݚX0 Sioj	ِ[~ş>ZiNc08humL⨦WO*O]")-_4i<iuVŬZjz)EՕ
kp)1 P=ZU`JǓVHJ_̋;]t"X0-J$eOsX̻t/
fJH UmwlX2)ń%Ir׺]]Ρ@PTi{9
k <MIn|I-쬔i,]q_lm^ϬŻI"TBEllv,ІjhxA4H<mԥ	Xl`mt!ka~
cF*چOi-F޲-z 	zJ).C0.LlHFlsi.r隅nӒKҢ@mN-$>Ktq^b&b. S.^%lJYġ<ŞL(%}&
^ctvlfpVp!fRNKJIE(N:5!vFP0|pBIiI`P@ZMoGrtA.Wg'Eˡa0VhppFv0	O
oY_0sڰwO1GPcpS<EfP:'LH3-@=7Myqq޺q1oEMK;Fԛz0Y!	Y"#"00$K%
%%g%3_We
1{#)׭*ĸE-RV@UZ{hvI\2Wٕ%OX]DdjPgqLGIO)KE~4-,Qڵ]AEN,cǅ
%2[
_lU~luXB~`
D
UHP[\3!Z06"BV,6JDNt.6dFzID*IIbHXKךGNeHL[	toUtŕ v5OGFh8@YSSi)TX5Z`6OW@5R$YCZS[D_#EEH]JG^5 t`JaFb45v>M[GN0BedPo' ܎dl5ZQxJh4ᜌRHxAm}Ō5Fτ
)jthҴi4EbLOP,|
mv+~|p*#PD陼Gr7Mķ]̷}w~{q}
 8+-uKdPreuxA.Vǐx/O_!rQ덽wHgq-q'b\yyuyyu&yZ,yD|
os
Jh9̀{ydy!
OC[8`8o8O߹yf{A/xN4`F/W+Gl/:
-Deqsl/'>i{^!AIZ΍}oDiՅꚦmZ	v8X_:ͽՖaDJ
zd{Ɏ\zM,Se8~;d]<t:]];h؈l;G_c3g_c7	E;=k2=;M<C.; |fDskQ)GI[ģT|r\de|!i7O
~{<gA|l֧k7=i='&}c{6	Oa)[cևN׫O5mG}P}6=j==MEE?H^Fk8Ҵ
C
i8$v-IXYA6FwY}H78ZyܻZv]]xA$VaYUה ,ZԢJ/aĀ%K1crcF/_|+)%˔)Y`be)NĐYK-+	b"+T`!1S.@i*ǪT"zTQ	P1[/`D|cPAÀe*hՂK%%YҮEޕWli+^Zµ*gn,EKT1[H2I؎v2)Xi֊ZWx+3Dr-n1//B|#)h
:(b5rR$I(ULcsS{СNͲ%MJjPڪJ,:0܂*ˢ4kC˦"*,"8hBbpBM5hdncJ-x7Hn$會j-*;;J:)%C/j=|" #E_H,,),J+\RH*.1%z*j/,*^,4:j^ӳET/nh%.Hj,@)î.բ8WڨG"ª7)z)Oihm;#Lo
f];"
NW?ϵ/H+U$;
Ύ;lk)7C/KttR$(.MP5Q$O
*Ut5XUV+xWK66d=g6*:[1FW\X0uiݩFzP䝷^ތSN:3:)<Pl)aF	7&RTNXBK%ydSȓ_=ەi֗syhaw޸ge` g]$4Ŝ̚B6d,H2p2eʶj=E8=Қ2NΉ("+zL	1^Rh0<}>Z(bZd~0JYUcL&iڒd"=_pQQ$ZD"/5yH`p^]fn(8y8=k;MBxWjW)>X6#%>L=Tu{ ʗ, EZ(Y_W-"ʏ~H %K蘶.pa+WH-KƁvM<Y a:HP$	5BU3o'!Ć#'$$RL̞IIQ|TDsEh$\<8ua+G41 `
2Y
k LSHT"YYQ\7^9`+>Ek/ xr#nEӎJ*HWS>R:A wYPJ|N'D]S fO@GA/0@AjQNl	}6Zpd[x w
raZhfBsd̍9-ljӂ7gypat9Ϭq'ٮ'$LQOn.窚vM_qMhHPvf-`TP~~с$*NRwTlvHKe,ZƦɩxGI$*3L*WZͩ~ӪLe91uN{nx+.UVg3[@ڪ@ӟIkJ.4#}B;Ft%lCz$vclBg\Qi=gЂ!W)&ZOgz3Tk^"`1	-vBs0|
Qw3R:UT0	YSѕȂ%s-c CfKNg Fr!8$1MMlJ"Rqq/~MGE NˀP`0Y0,NEX+#,C3$&ΕV̥/O0BcXغEycTK$AL#(eNA^,-
]I&1c-BZL"6SL`YqzHBgKXsĵ0DÅo}n?CBHkąR1!Dv,X}>މr>ͩ-  yXhwaNre-/aȱ]eL]*۔LS8Ȿ&N$`UP0[/Ǻu3RB[ǀRMzX8c%9+DQ"i $|cq@wNQ6ůqqgs4rpY4'\hk~s46<ӇK]d3I3&V;l)
Wg&֮`wIC D֝@^t>';W,\	|?^'H⟷a?/O^eۼ׹znKA%`F/$}&"$ *v./:B%'-\[~gbV@Hd(ve9>jK[>%].Eq";Nj9o*HbWV.'s.3B4H
)&b`p(?P>TJ	s! 2Z6#ЖPEnl4h^F'jVpSP>x#,+0:"nFRJ0_GQeQeqfPl$b^ds؊_fu!1`	c3P
pP<j	/m*$̐I

PQP Q{#WPcR#SE
X	/Q,G{0k.BQ$ `M KWH'~C*fIQ u) +l9	"%s>+)T"L'8Σ8 vLɊ)(`3rq(PdN
B%J'lM ;62p$Ćj^1/(
wJȉB.fFƠ }u@KÈ+
.rzj!_!G!'"j"if,rp2	3H-cNX"F2J(O2%aX^b2f+jnlrʅ'ݒ*r(:2R~)k*{p**>+.",b,,_-!.F9h.q\0R/?20>$l3Tr1u1{12..[j% 7(3=&<8'?SkrM4 $SW&ba5#MW]@p)}FOk*1@(.AB(ĠG>pD\#BB1֢..\\D.^>6}LRB35W*.lnD#d pWhKs6"B&3I3D")ۅ#nPA#??@G4.TW@CC-9+B躴G0DC;84DlJK4碥\|Pl^EsE'Fn<lFFsHbGs9"GHQf>#II@/JoJ!|JCMb?ѓKKLTt7oT9q,MIBt.Be#OCt.D5x
EQAOQ-BF
%"5st,GubOJ+b!`L	b?މ1GpAi-(.")/+=26!bp!qTzI74SlM&t*dJsJK!\r|^{yH@fC8*CT\OgU^8"hU):3^*_WSlW6rb6(v?V75 S4h-b	ce!t2TpNcaEPd'jevƳbiGf6fs*gF{JO.O
h}uL:B)Uˤ;jv2C5kw*
6F"l>dIΖovbٶ.6SVcE.0c	o7HdjCe h2bɮh,4IEwe\'GsHIME6e.)r-yTmx3uXDRM?/'v4yD(4+Xh?<czNE3?>j6*yE/뱢Co9b7̬5_Vx|p|pw\ЗC׷')޷*=2-xZk@OL`XE(N&f_*8vRu.**Xg22xW6XxA?DSH{Ox,R58r3||7|Y)}m'W$xؐ~#8iuᓀcXU
 @1XdNN	$Q3N#LdTBm4H<Bd2:ڧW	H-R^dxcIƬ `pL6l"B7y͒nMiRU^QThX?:Yp-I
|{ІUYfXdgFK1gr}vz!yRv/D+́% Ҫ(!l(Y_74y;̹i'eٝ	yٔO7I8s
5ZcϠ]qN|N :%(b0Zy!ģh  t:'z+p%tBH?W -Y	gX1B|sRN;,f#.3ZS0~oC$v.kF>9_xzuu洙+M:4W'>_8^l[xHi磊_	J`VHSJ@o]+iM_/u'[e>ɲyXWX$>#{>SY;4];4`[c[k;NnxrS0>/izz:#@/İpA=HO[[{%*ۺ;4[yۛj@Q/D   yBhCs53qLKY3g<f(1]D'LS愢ȗ]C (BIYEwdE|AǱ lܲ=)R7S/8E_>':<6 |u5ʮU"+nЁO)\<BPPI;.wa1H7tLż9|7wvƝiNE|_7op?ύگe-%]ׄ=e&с<ſ?&.-=0]7}8:[M:ՙ_@\͜<	6ta7Ŏ7Q\ QÌ	{'A>Yh|=3KJ'mSgyhcĀ>Dk9@(C!e~b/X^$nT]T
,btoT.@mx(N83| qZ{J6%,?cjNUY'
ZegB/2$87_j~LSvt;C3
^FXdkO"$%:\u0KIQ
Dw	]E/$>\+~D 8)\a~'ц~!U Cx`g
  x	%*_p+YhYL/dtE˕pŋB-XP%˕*U>Rh1L.fEL^lI2*]nђKJ,8xiYŊ+;IR%LF2c~~1ɱ]奔)ST:V)ъ^@ӃrN
O	qɩk͙lt'
H+fs,Ty2-=}%mjee
"T!D-b#H-DKL3ڼa}T(SU2zF-fLW`tHxŗ_&MaXOa$69VH4Zf]TB	Ug}!v*vFaj'kSIHoݶ!q!WA5PDxQFYz۩ĒKFɘx6Ey@-XGTiE5}VهX#zЀlW}u	 VBiaa!EN)jXpPHR[q6ԙWt[Bchy$UR(}$E![nNAW]Q1E\JQ%	chNՖDM]i ]I6YlLEdRi9Bt$"e+D#%y2
#8).]ةb*IuQjAeiJ\JukUi;l\"ӥ͌Z1-bu-Lb!.k[B`/&k*/c $Hj*5?\iǘ*WyQrL!mʱU-zx̽:h®l/CU4m!ݭwU UMEBV6ßԪiVбaW"Eˎt!Fzf؆z8j.OiPz}40Q!ZI?Tʂתb/1ia,d!y!^kD:&u|*w.zP;_SIR)佫=̛H)zNP=n{ځК/&}qY)TI{{hB6PFլ^Ft#A
ł:y|i
&ZHhBP(va'TxDϋlH=E^%;ND/*~(ATťOh
#^ }}9˛NXhRq
>3)@!p(@D5M	9y"Lӭ.'$J[!*'l]Jrv"|yPjZ
Sf.-\ZNO
p	y4$G}hqι1Y$J@菉Di2LCsqB28s'}&5l뇏B9q
1u#GswuFD7l} Ozj!1mbzOBC Ѥ$dThQ(Gҋb{%-I_T-!T̔E|fNYkN
iҚXn7|T޳,[-?j.#Rz6F HKs}HNʣb{	CM!#aB̝lPZcv5ѱ*8D{UI:W|HIh>JICJ;0DQ&+ |'{Ih1&X*k9Ɠjqݠ@;.݅tt8Bj2J+CotE+ףo>_. 8|F$hl$XUf0aXA=0
wB0y7Gu,gq1$cq\Ův(OȞ╂s&YmoqNya}-__Vb7T`2#^
fL/R3Y>dVTq"<Ҁ_I`H<_链RЙNn5" C%>43 'ÂIFp6&
1Fp4i.B	fR1	P*('M|!*(3k_(Xvvl)$ao6J f%m[):j=,rϼ6h+nwkZN!]vomj>ҿc6fN
o*DٸʹM`$#_Vr(!+/J_>ϫEnNpsՓϙtow(D_џ
dVIngމ}T}u~g=txU4p 3p8))G Jf4{5ZRi]V{JbM\'(
7Z$:%z$~$Sk7qQ)@qA1bfY!2sq!/a  c'Bw8{T|Z1VCO||k#Q|$}IVXHk=!Β!Prw~sIg-FEYg1]y##:Ar"g
h51%Q{{|	?5)&x|2D<0ӧdG٧R<)'ԃ@-A(}wgoJ3Q&GR RUdo:4Fl;J,NsyB3kT!.B2(&d.U[NbREEFAS	?`<d5pnrDosQb5c%x(BA'FU3TTAD,&``E*;C"Բk5*Ax+2X0BRZ H*xPQt<8Sq1B?ۘ!3w]c X9ad5~()"R`!{#8qŏ#Am9BQZА})"BDuYQ")0ek%9z[ђ2)oTrY:v<>	".AxrKٔEZ  %pxmka)hqR2&u@aWJtEU a$+cL6̹j"BN3`QBRRAGk9iXvLQ*c@l4,z5*gkW$TVTJǎ4B!2BSzAa> b
њeNiW; ø/1w!4V5mqeF96'y!(9RVBR[	QYq^(*i^*%/:ﱁ)Y))LYPIAY*?.8[gةW_A.0)Iy	J:v Y"#Q]'o@X2ZJyטtW A!bG:Sw^`?imB'R5b3;k$PJ2Mr_ѣOua@j+/t6=48ZMFhZ1nS|\B=hRycSI EqQ&6甮B
44l B!Ȃ.}0͊f_!ZoNj(pY@qa8.;K*>j[)ǥ6AxrA
76v?Б-
7֫ڱ
:3UΚ",+Ԛeխ7w'2 1$,v#5
qxg&H07AccDK4S/d.f,:(#I!JeyK"`gd5KoJgMR7-bdt7<RqqrNnɥ.w-FFךCl3C*t4Pۂq;H!Bb9sF[]<4sQkȳq)KEz$KO#H'Q6gD\IZ(Qm+;s{[6ё{}t"ʴ	\|5^܀<DbAl_bD[7(e6fNjjfɇtsNa(&AT0sMQ!!6y `&ᮝ5oYg+%PZNczEF)6ea!S3XE#%àFI)J)1֤{u5b?-o|"!ǹ#h(ȀjȭfR,)>d'z/*aɽf:w'Aʸc1\`!'\T,3ɓ}p˄a30>L,4\W7L>Ay\aS=,m,"#īuqm\1ϙ3DiN,#F;#_qХ
-˨/zhQѽlrbnm[ОJ+s/"bym02P:P^յCiD$ͣZBKN7$	IVpҁƅP!֊A(}t
B]u)!EA<1;3JAM[-1Jj=wo]q-spsn5x@|#~-̙I03"{m )M0[ t	!}}3r]ݠF͗r4\Ӻ2]y]$¥
/=qƲR=X}M?zN(Bbݨeܝx}IMޑ}ޖm}
dQC!H߳b̌X  ōҳ&22i&v&
1UhYܰd"(1=L"=g(E&PFL7Ha XBdEB,dR CˁE
ZʓUaC=o%v# GJNj5Q&X0UNWQTB`~Ka茟,UZM5tv>xN.S%[GZlQ_G؍]Ln]OZ>NR^\~ЬJޞ>UhfsmASgqtYΣ(TRF>>JqP'6զL/)BW%!q4a8HYV9x,1 ©9q4w@SaM#(l@#  93oe`:ƥk)E7F5T"n "3+'o*0N$1eon嶸m7ڧHGc,]3PPROj3|͒_B^_,d`lmjxYprLtkL|T~?i0Ї5i7:|D^
YooOoꂮ;T_/0XDZGoYsJ -ZpA-Zx/ZX%-NC/[<)0*VdC񋗁HBJ,[l2+[rb)R`
LLy*`r -XXVíWt$M4v,j2 /KBF$^Ƶ1n#B.t,R0.]	ff.LTɲe(T2akբ4EvH2_J)^bƍg"ÜI)LS&r8u	T(QHl4*Kfݪ+Jo-܂K.K/s"{l$ʢ20ӌ3
m$L#ȋVbm!p
|88[N$^ƪ! "4#+<sI.rکb:/)//j
++
$,s늽(+24C` >;:$ 	0-Tͧ1k
3
+Ro5B#bT++Y*5yO["*-Q3}$
ƚև,*Tk+Hˠʼ>묵BJdB6Pnz!RN.U'
 :Y)'*&hS@/LE4 ucZ,\ume}X#+cLY}6hÚ6kl)BUHrC7u^y^z/~_)+`"K:(n懻x/*8c6F@̍S?$K=5ՙYUunH5h/xm)ޢ<[ψfY60Z[[ý.Y*]r/֦wߍ{+6uhjeݰ&':#γ:#k986rjԭl炠\*DhHn@(īSgJ3M$pB~0
6<˻H
9'u
_'P-1DwfRcʤ&
Ph3d3'yF'6N 1Yjh/\N|)߭F`sZ(C_rE R+dDdXL7^J)pzG{T^6UYS|s'@c#jpBJLR8
>r%]sE
d蛉>0I!1k.@9ЀCK?I q	H&Ą޻\B5jtK_ZUQPD)BNMrBQB6I٬'Bx),Kf(lV=KȖ-eBcaNŘQD!c A"I[Թ^ND~e*:e#Z{q2xa#̚BF+2:O)MVƟ؜"%iS7yH>}ɄzL	IA4H
-*JG`G4DQ@tq?;ڴtltBu*BQ'TaMIGթJ93*,O3eX	Ӑ:9@F65!ed\2W!ū<ŲjBÖT)
kG(E6h4,ΝvxRM>ɦɅgVp*lMB92)RogCD1b`Sj!c̬;lMZÕʖg#/Dg/l%ԓ/
PxBoB2^HrF%}}?miݟP8z$ʕ
	a%d²i1Pqt=I3b[XB1UQ"Ԏ:IYRcyPsC"O{hxj0Bd%6<͓VMeM!.3$*ev-Y<Kp`6+t	OzI F
vKZ[<PH˸d){f^˅d}/w`/BL
!RIWZX"[8!blx3^&yGAw
}ַ/Zݱt
$D 0x Ld#Е
, jqDTc"Uvo	:zӋ>.ك$GYxxΖ8G18]6k<_T
aՎ&t{ʂ<$0cŞ9I{.O =
BJh }#Jc{wG&N>W9\?Yvgٗ?O-no/UxnX^ &Ҙ (PtSͥtlV.hJ=oiU-DiūwB.ЄAZ
)p`+)ySѬ/F

6[+u+
Q$PQ1
j8j1%𓉑*:Hb?Zq?:	z.m?s@| FQ@t,0
<z$Z9yIAZAhY.$!ѾYҗ\DPA;'#Q!B#\]RB.LA'»*4+,,/<@1\@+C@4B
TtC.
>:*,"!#3
 )

	t<(
)@qRԫ=&DR
㚎ol/"X !
!/S(*
4!H/]43rct 5k)y&9s~FlmQ
GcqrLs|u࠺GxkPq" JG!/lm/ Z3T|.<
\+HȠ?dnaF5rP1PJ)LLAƙ,lrsB34qG( 9JzT{l򢹽KJb<qayވj٪,)$|F'Z| 4!dfb'30(0$50sHƉxNH]~6y:"ā/p:pYج. ,E[7dsȬPMt#\<,3S͌	NOfbJN~|N<
η#２d3j$QZC|'AT 25t.WO*
Pt&,:lu*#yPPM
-U	/L8JKT#D6<
'0h8NNQ!\ Px-m{q@L]C@KЍ/!M
XeJqL11ሇR*hT)%$o+ɘ'a

Wuҧ!Ü@TRG2)0HRq%?)/pU|VLڂN; 
\	WM-jəCpР8^E4|)Fc)fug%hmV*mV
qur=(BUvX}y=!oa~TTT2M%'=Q]R}XT=?(	XX\Y]=1Fm	$֗uEe
=iV֟VS I< 3l	L5uٛ:=hJH"n:4IٯL)	1y )8DҒ?UтۋW)XF(k2
po
ëꞶ3;p%΋3͘2 ސIM[W"ݦML-uSݛQBV<دݓ1*<>ն<^%
ZނQ
rI
KW:


+-n]<}_)cE_	[_$#z%`\Yߟ`]VFV拳x]ݔ%6߽=Лz`$.a .aޤPa`f9^Ǜ^xFǰ|,0
3r1Cɸ|"(&);y$S|
-lBcXI^
Bd()	^V.ͬ`<p=ɳ#
ΰ3oL`hq)RJuC.VYRyYd"rd8[C۱1Lf_>Q"jw	e(eURQpe-emO[Ra^Y`N@(bƈcde:蠃I)f&f*
٤	 gsDVgFngHIvJ瀝|gOd"2hqXjx訒Z&1[>ee菖il AJ
d(٧3烨W=C0K2c @Ll9g45ƿi08C(քL/˿ĿQ׃3@u
E
9Nas'#8K`krk%eef9Xlk	+.VLYȦcʎ'pllI9KlޘіM)0mvfJֆ!*xkmMNӌ&Dmmʦ͸&qDA k8|Ͽk`֌.lA
oua,eFf.Ӿ^J|\ "pEn
`KLؠ
V (h6YBWC^/ڒL(a \iV3e\
-
BT8
(^ Yk)(V_%1،9#*?+,6@.g/0_13Osp4tI8/9:ӼLABCODEoFt6I'0*t;#N'Olu*SOUt=m+Ok*[\%,^7
5U,FnJvf
Ҟgmsưvl'5vn
pUP1I)3^An5֠yn|kYvi.S@:@IAs/AŗԢky&3Q<H.l
)`h
DXtfutG1z^EtN@_5/g?z*JCтgئ茨Az({wCw^%SPp'	ߍ.{Tg{1h}n''pqG|}u-}(;cu/_h҅-]K+TreKB#-^b/TT.2gveK0dv/bxI2L-,d`Zaz1KSpR3%ǎ}x1A+S Tʕ\`iH&aLg+Z ƛ`b/YOj+քZs̈́Dʔ(Rf58=Y{G+[BęŲ,	c_)cO!i<1ҋn<s1a~B$L^ɒb`e)WgBK0rM8sUV,yuVj|\ݕWCY	a/E-cMeeg[5Zbikɶݖne[
gy}EitDUw]m@@~H$[$N'_WPv_Se_W_}ViUk \re^[_XE!!Fak!Je%Yg}S	FXfbeEm<?'D2M)WyE|d{>QMVMw%D]RHś[PaVWE-ņH:iTTES\EpBKՕQMqEEVtS문WViXgeAbp9M7H;L	gw`adqIEURUyVKHu17:AƭEc*]!$RH>UcM	-Z(Jr4oAY/H%0[|p1̰kvP=Mcqm'!LTdYp4|si{EύZ}1J9U_r}l^,+6`HKhmܺ+wk}
VlG"f~a)㜮:/H!71P\D<كQUQD6"Wj7;@5hВ19Ʈ(L?aIf=	2ˊCgU"F`=kx0d
Oc(Hf3
w LTR^A
Z-(ڑOhj(o5cLTA*|Ș00k4TW6APWdX`]@ qNP86CiahN?|"yI}ęE1T".aTLp+36$*Q#Qv7Z#iR;Fcp@뉅b)յ>E꧑zc&18^%+(nR&(#Jr4:SWo\kiCR<T$Yaެ=e'6sUbE\4,FDNv@$y%"~$eq.DHSb3)F_GxC]}%2	1@'j0+>Y̴+Z*|ԛP3GKvƃU`"&qEWX8OUɡ=
qOY2n=u4:i2dXI]f*O땖WkHc.*oÌB*U,|$aXYRxT+fŒ筇\wCYyu_W8vo3AX5PG(%aVYZB&VPWVM	l"l"_mqVjpJ]츙MzA9Yjݴ+lYwҕ>kz

-1yw;%F^ &͌|Nt%
Kn4")Dlb<l
<K/Swa
mLbQgvퟝxsm/6j$jT	ԃfw\RBh)/d]sx
$>yAf\4,i5_\V0;D*Nɩ^r3\9q;gׄ2	4`'Y֙+6,.dH	W60`ZzٴOkDfLTH=kܮstnLְ$=ckY.]1C FsB`gsAm;Q'ctz݆vy7ސK%^n
tFQ!Yn.J7-xBǓ%ŲAX:^L,uᤢk6Y$H̯7"C1
]i%d5>,:q3bAYSIt!c#J+qy`|-B'G::R7{#0$I5wj"T.UHl&ewq'Aj}M1KG&jl,IwPL31a޻`E^s6I茇x81Aم;	h]2]XT@d]iʦ_ ^M
wB__eYP]1[DV2c n9wӅ1m퀓w|GNVmNbIt@_
Wc䄮|
``ߛ8^%Nlt|dX	XpiEU)ω4^rǽ!gRAYttYʈF  !
"2bQ@
@XkPb+[hRx"(F3b)֜5*Gu%V,*Vńsұgb "#*C0c {UN4aĠ56!7 ~8J8$9#cMNc&fcp|b(#?\LTPApQ}ECiJQeF]s8ǒ)xypI|8	O DȕYD،Qh`He@ȥTq]el")̚@bb|XEqQ]u@dMSJyT7UX\=p%hxleQYdZ갥r\"'_4d]֖M%]Կ&a
bBbVec
IJd#Q\Bp&zz	Y=JfZk
_DTS&1U>VVtpވ!rqGQrކ[F].v$dvF'_^wKxjx_bFF7Y<z]Ԇ9*H"@)(Պ,@`"JC
oZJi}H!lL,HGHr5]@
At#VhT xB
m@汌@
lJ-N
Vȷ\0=-LFHQ\5oˈފieN(0g8)A,DxڽX)R&htȖ~Fi`rƤi)!|`n(F)iHM戟":!
Bˤ2=Fj*qª)L)DVJBFHiɬVǭbD:ĮZ%ZVΙ+G)t*6+cr(,nŞrDz Fv`BP*jV
Q̀ytH`B!{apQjwYDFj>]|a7^|'L
hܝU
\X*D'FZilbԐB<oTj@RHAyӄ uHsI}[,$2-`ZGmߖbh,-4n<gI-~U\dl׆Q89޵OUܶW9-FӼk&@e \@3%.XMGiB&^/jϪВzNюn[h\9-P4n^ή֎fn:dok / Y
a\n]vo\7iL$<RD`t@D20 zIo.^cP"ADvdkb<ƌ{4!i͐eDD>q.PzZ6OȇP|DU^9ݗv|pKQp0gu00
05ҚiCpq(`KEiLiPhF`ő
/P1?[PHqqZu	2$2RU8rGd	%d\2&t~
wc)sEeIپ&N,1-Ӌ3rdq0sys2o,.M[6`]^jsB8M
&5	fd`p҅b8"U#AUipE\˪Q
һ5.#q+j]aPqF&gsDH"qt~>F֐LǄstaUL?MåMkNC(ROHP]ƐCۚK'TSD5oMXc`6u|u%X#).qZ55Z4 u5IL_[ėqN4b?G'":cFL7dcfb4`NoO3R	W]ui+5R6TTSjle]6WmoXauo[E6ATRA`uV^٠QEA(T)O3EOE]dAU>Q~g|F,5fL\iEľO[
R#yBpҵFX[GK1J!|4b	ӼEpZIKx4w_٬D'C8f
1Zj)8wpx;4
̏OkGX g(9HD
S@yHyάGl9^
͈9'cEKĚsW5Ky@Ԇǆt􄸠i-K+z 1z8_AO:ฎ_:RltJ}:yz:r1y?GuԒȫpц8dpg唑.hGʠ<=0q-$HoZɠVFM8дV )]7KAϯUFJ(i9jp]d;IdLكG{P	3I.ՎdDDxo0 . wՍ<%z'<RǶ}LIA|{U9(qR*GL#K35;0nJqq8=+*!a)N^Kg=XU}KOaQ;\sg_<_8}(%Яzߗ4|_ῼ*0~9䗎<'-滊+u9@vQ|uhAAd!@X2+X\BJ-ZXP,v%.a&v".\4rrQF-XTɢJ,XTZdϗT9H-GE̍Yt	SI6
|ΝZpK-X*]Zm-V&%˗1dȀٲtѢBirv')QN!pVE&rET˖KLUZeJn]0|3L/-"v)Y[_=>8ńWRv1H&de̙5ul'B5TmKժًYؽeҮ۸E.+(;3*{=/"30TJ3<kP4PS5`3n6z,
ۍ 0!$(+餔lR:	'xi
)<Zϊê
)TOGB("2NINZ#*
-ԆԨlѴz).Q*⋯[(%'#j*o⩪̒F"
CqZ/T3C*,,:Җ-B	1.6kWWQ
v*Ȗ|
Y1}/2Ƹ22#-4%]S8ЄS,sS
:S(*
=t%
QG!
!W)L5!O7u+QTdJM~l5{iVc6u^`;X/5"e%Wh_ZVmC[r]mf5ݤԭ]5ل5睩{]~*A.8Hx?I!L7S*>urH=>TyO^v%X[VIzym Rv-H):l֜
)ȋF(ڊN
<"*h*Z|e#,85&"ZZ)(<DC=cFB&%WF5bs]Dԍz/ZRd3K6Yd#x)FG.uQXCZUAvx&u(]⍋5Q^%zӓ{U>j&
>}[ˎ$Q6?iO7<Yu	P)<rr"<Bt.vBCD;ѐwt(@";CĈzIb'%vd18t?1@nr#P)",ռf\]/pA!a`Avr(h
/b ERLf%" X	)gQ82H	PBh4$̒hT,&"I0/S:.Y"15ݳOT!T7[Vkh/rf"RcC&kPj5tY,PxleahftFiR
dH6sMxs'9`ΘH#B;g|S+GgYv%ЍNHZ:t3Dɋr%J<UsDE!L:vK
ii".)Nӌj
P)T2FEjRZ%ќpFe5hdટ:rd'IӭFk^OkxW"n`-XؚHuc5QBJ/, ,S*z	NR;°-I=kMuĭ,Ӝ,^xuGbTH`N.ɔN5-{Y1Da\K KE,EMUӉSr;e S0x`@wkrmrԆ_՛o
dpL)8
|N/qO[-:e80&bhbo],Sֹ|ɣd<'XpHɱJ±Kސ|J/ YɊnrXLYVryy9OI\fGjVKg\%tF<
s4Ю0\
odp5UҘVQSOx4l5T5nuKZz,IƄ'ѐ,r+!\jV(,$IA	q#UFG%}Xmy&eCTn#|i,IaKP½&ʓg)Ox2ԗ<e'8&GI6oG7H=~^1#L1a.qSIIsD!8	yɄ>DGGV;:IX2	C|݄b'{u!4i;ZD1-'w9SkfŇ|'ߤ|W{ˣ ;Op2^y=c, J-ZHg@>˩Dڃ^8x&g*e8C4L;$"?2$'.f :&0*I(~c ,ڎm
 E%J*.M j(B!z;D
 C
P( +58bM&Bk/=Ƨ!R0M'DZpp΂XEeXg5rڧaB}.b
	Ќ"6	g򅑨P6F7'pQ'pq#ԐJZpаPh!p-Y0%4?0qQ'XоRc#V1DKQ=qI2 @zP4hbX4c{N50?܂;N{G~!6"d4(0.-ź(6:\ipq RH/d!pebGjPv#
x@
@
&Z/7&@(d-e
",#4L'u @ '  .!V.!%*/h""O#*Ydj#6Iv%N%cxQ^L˜K@"!z'B(F./=P #*"RR<[f,ƒ
蔯'R--U3.h.."#mB?2#/G\$1%0[R11e11bLB$@4#NE<<:zCfǇ§Fr6,Pl\g|rHɺJúb	y23^H3$#7\)"^ά)ŉ^*,h{Lÿ)&&z),5ĠA6s̈WP<é<>O.]K>' I"???=t%
`XjvEAAa(](4",Ժ"CJ`􉀆dQ#2[Dl
T_XT/*#FFm4/bKx4<}i+4=t=O=
J}p#SJdTI4K
nK2AtƴA4"FpOMoB[M'3CKȵ
ȳRv*U7nE*TbdZ/
sDzi<
ԒK
LETX.4&bfƾ'BeQrv4$f/
{Ҝ')\C%iA^Yd?'U,[u[#\G\9Lmյ5d15wf9^_D_g__a Vb`;``g-aO 1a(&M%&v-S;L6c
dCd&Z+dee\fWȝffBf-eƕɬgp]h'i"{'jՊ5a6
U<c6<P%'~$d(
bT4rt-C
ٶm.Q9:IOfOFbUb*infn؜H5A
IP^
($sh3H,lD
JP;FWW#Z7C5y6hƤplT"|TV.rx%.yBy
W27wm=Յ<Jy(愀Ru`|䠨
E2@WpC &,m~W}GDO
vlux8`fWlBOr
q&"P~7).88268n:&>"B8zL| O{1$V& KzvG6}7NIKsxW$B t,l%d^/Q,ܣv0B
X(7("y)&n,cqG{w@
$B d>"6FmC|=IV+N]$vQtr
9(-cJ/=ʪD!:h3*.'iLB9!Ƙ&_P<vb[y^qJev$
''dU.|JY+9cHBH
ɠ9NYzY-sي9uB5^yByߧ]-ꙓRy'lA z_Gc}"}#  SDn)mNRVL'tc$X(RT"&#D(5	QNWL#VJ]S9(	sP
8Of85D%Q 
$$/QWu`^"`
U ʧtM<
LKC1pb$iy&H KӬu!wBܺC:C'bĭO$B!D[D_"gbKR:>C'<ORh'XRnk.n(
 㷫#wܔBf[%{-rhzҚٚ
>zYL۰ߛ(`Ⱦn3ۿ9;O
|QдJ]E  ㇟zYC7󺉢'+TČb^:&sCzꂎ46M3q0$=#M*
wF'GP$O-O%C lPGN&(Gnj2K۰Se:̠3 p!WHbٕ̉[0$|$%޼='꜎+ܱlI;"%jp>&irE# ҁҕ"U"$«==@`D]L5P=ST&#
\؏d+֯re"A~ͼ)vS#O&݊,i6_%A}U}˨]0}Cֽ*g,8VӅ p<Z$8p&,c+m}6b98Bri]Adccإ@.HLnç 2U ʛcA||ct2EC SPA0lӉmYyfc!V
̵:#ޭ-⎡6~)^]
-FW}ނt̞q/NRm/>h<^2W9lY_1_6_P(_ςS
'&*1-4F.3<?Ke0J7~꫾G'$ K/]h2`.lK-^*rq˖+U\ɲJGX\2
HY\xpYb%Y."2D`DHL6T̆;&Ҥ x3KO+zFcbgvIO-9KiL
qre!յcbĹSE-lbJ-_ K¸/kl^YwUPSa׵i;Қʔ)RD2Y#KREk+G>؝]I|
ҿo
+qb+XVDmOp콖] 1[JWG	6D|md-MVمag%]ag}%S	vNZv`is%mPyVXA
Wq-]GA'xIq]م^ށXEx}ךy^{GW՗Yim`[ߌE`^{!_VWa$}؅YVņY~ԉZSNu ҉fHAuV`}vFm_u&aI]bƒL}ZtWPdVhEf*eV
P}OAי]a{%R+GՏ)xoUy/!Q <"	FjjEn[bXZЮ/X!+VlNa]n2mmB"*.HyQR.[~lPT6ܳ\kRmak+;/$qc[ťvZ!ollT/3R:-L_pmY;[PltrU L^QK|1ۙJ
lt=X.V\qS BtWV0$u}~N)ևcO@<5D6r}h`Z`
qpW#S.&L )uWȘFxqvI&ru'mz{~6*[BD>o~CD-;` œ) 6D$CZRA!I$S<hbF
*t+}'w-[EzØNx%!r2mӹNFD1{ۛqĖ<|tPEY~ߵ2
dF 0ŅN#8Ìpyz)5uU5;RؑL67bv7p*E0Bڱ&"t )T=^/?:e!
Z@-
3.#.$.e# C%+)B0-K2LÅb&ިyFkb3a$otI9w~3
d;%=}^g@ʘB&I(
"%})b-XQZAd )T)(,US^ʾH JpH/4s)|~uSЦQA3SMS)UPWϭV^>֛@	*
|kC
QHZ |O"yE
 㰰tPiݦe[P`޴TW`iJrLP`.] F r2ES`򨲌9 $H@"'%jTc0%ᖃtd0LB1=0pABx,nb8p0e2\Wlwͅ3-xΛ֬7neT9&/xr0SPi`E B
g	%00yִtEE?(Q1!${\1} YENl04T2,o9.8ʉfD>Jno;S߇9wtgˬVNpi
'I.HҴ4pidĬdV
LL3-o	|[_ 2kmdUgɍ 7;y+DE
ȢMԐDoT
h	Np%VƺTF*X8&p~`
HpZU>pdnQ9!< hÒm`AF*%ݳ]Cq7jT7޹+!Wȱ5h[*GBuxZp <	ӫoa.)zf>OO:v#D Y'Jڏ T"a:ٹelycy-oJ|gߵ	
Okqx<*;U]9M7BAss=wz@zWKFgw  B#,aAa`ewd*!:eQ5`JfѲgX6z "K{A1GU"|J6jT1[r.E'!pQ$u(tOu)V`WH K!HD-%EvIv`1_``cPu{],7dvKx+!Su:Pၭ !#a&n2Â,#1XvIVucS)DyDBFaRALX	7Zx\}`A bXpQr#iӆog^!Ccс\!8:!S-8An_!W+uTՇo8HY)Q+BS\]{ig,PbX4Q5V "!RxCu!&BZ+>UFesl1='	m9)c` -3Osx]-^1:dve1|DQ1n!7DbY^SĐ"9>FI&!#\>$I&	4rF?2,w)T98=?CbqL鐹Q1@Q[ws/R_.9"f/UTЖ,P1it)vwj8`) y[%)?JՒIQ2)4r/b;y>	\ (U<Ɍ}M9'ؚ PXe\:&ؚs#=;eWnDOv0WW5Fu+1:x@Q.SFq[0ÆQ}8xQu_d k^ q-(OZ
B%/bvY\Wg[UҠ#|T8sg
ĒܲL8vvq",)T#"X`EJB,aj'AFHUKڤP:>5PPWYC"k_3+'pVZd
GSЦwrbؚt\סd"A`kX"آ
uBJZX=:"?dAZZ#4A4L):m]C.%Kf`X^'vag4!|&*zĹBӉ\
0W9sl^{6v8V`,.caT PA:-UVjN<)+Nr@a8aV@̈Ke.ȯ4-	ne[+P3SKo+#7mC1`P?&?I,?.[(0[2o@Q7c	b"1?BE:aȴM;w@U ڵZ(Z%[dFUi{'
k+r++vYx뜢ຨ6!;{K.˸@[+p @B1)8G 9+VuXYfur`/HaNI5rnxO,ѢFCH .􆢷Q /)QU>.RN1>HobVuDA938[B4DQN쓿e[׿ؔe<#:HSX%TLO;#jH@Vpz"SHqc=&ª'TQ­?N²5CUbx(úAlCNaK,8CvQSUW|잦
`CƢc<`il(NƸ@L%Y[+j)EjGF"ca :z:aEVG9h)93ѱ10c;ehLx?1}Lcte2;4s*M~"6Xt'Z-C+l"{BY{	Di̵)<2ͣ?q#R<'༉1ndΈγb+3$#"TϫHϫK-QQb#
"FmL, 4xQJ~4Tl5F-mj͹C3#A;(S5?BS-,BϪ+1+
-Ԩ6W&EN6&kM (.ԕa!N+NQDUFadI:.QZhj+1)"z]/T2JhagܚfIܭ*> V*dBjqs<lԪus="M۶x:۷kNA72%r"d2ݪ-ݱRqU{Y\U2Abǳ-j!B]3?,fU%߷`,z3*oqv*yฑ]"-8R޳']==;s&$')N7
o3ݣ,޵X  g`"xch[7|VNRRMAƤPY-G&?㗸6wZt6!= `R[W#OYvFiz$=T`UN@~z^I)a7'f^.4LZO:Qe^LBzvI6B%E*y}@1.s&;%$1;7t.HVgV^ƎcQY'&ӮEMG$bdj'д&c!eA!z>_){'qO
?TN fX6~~#m-ŞǾN7ϡ~hܑ]f!FJe(+1zפ
tm/Zr
a
t&Pv3i-@*AX=zH!s"7̷E#̓Sr3wtH`Kkg7G/tUKÖTkE
:V/\΢^`r%+VLa8JV`9K.\T˖	hEK-^
ZX&	JŢM["
ł(VaYѣ$"%+Y˗[T^rҤl!X0!ڴub!XcwfD+S@J߄X@
-,%1ݣUS!#L^	Q,r^ŵ0m0cx{"Z[>4Paá'VqcǮ3G<ۗ1/1ԝ"}5ehQHBdTVܚ䕯 mmٸjk%z. n/#j\C1(!ł#0b3鲄 {%hl:I:"*.(!*.)(2B
UKˎ*B+(xb
+^K+,:ѾQK
2+]k+q[knPj ,B+x)~lϭƲ/ڍA~b?#6B #"D P/zBԐ=\1D#QI0b
AdE+^Lȴt\IH2dI(ʵՌ"]Q+1 S3]]Z+ub7钓N;}3=,@VA35ѪŪG#5NJ4	?2aG-Ju$<XY<֨n]'Qx
aiHc:rUeh(z6B+V{0oLZ -'mVB.NbҺbkŤ4w7dY".ssh`4їC1u8/*|K+r*
ģ(5
>N oLڏqqzGj"6/ rM+,x'DؖzZ߭..m^eJ/+!atuoyƳ5C=>(|<u9;P9/aNg';*] euAu ;dvp;F}"xȓ8jse/l3Am|]ihM}7/w]P߁8nt@z.`r6p
Vџ(#ih7A[8%݀+k6yVYVDH[q2^̙ƚDr;0p6ZŁN !oI
RɊhZD&am֗WZd6d  EȫAѠNR10s邂2R$_Hn3JS>`RDCqi{a"aY$dI)Őad<r>R)xؤ3ko̅3YF\ lKU)0 dsiJ&Ld܍wkvf4E	p2g	uw#<	GJA"s"'s IPB~eJ?T ZMC*Kc%/qRVD JK=l`l jOAUm"n[lyBxvۉSu28[LͶbǮiiU*dΤ<
Qp 9K>
0zE(v[mj:
A
\*pBYCSBq)}ŧ&˶{YM/_gm6]%+֋wwɶH&;bep{vb-MԸQ7A}5׌[[]\e/vI/x8kin{ِf7eagޫ%!};8aYCKnN-V֢䵕ݓlJH n%7y.n_TlIYn?3K aJI)~cnvM 1PL4uF+J(2qAfrP"- (()ÌzRKB3y%^
\z#~rB({iJP2*C^A-	'K^SvdenZixmΨSNa`u_%5S·=9 7laA=e)˻(Y,F=Z!UD ǷnS>2[3ɞmTx;%{3K\3z8c᥎xCYs[\M.a2nVfG5}ۃvɞpJ
IŘg$i%խ'"Xr*g "(@F5,íCPaA|}
eq}F]'P,c&҈` QS
ï+?I,F	]C+<RP9 X<jB!in+(,9=H=Kj=Z-ؓ=ۤ˽7 P+Jc>c .>ja.	3?Hh??)-ȿ) -P@`<n@29o=@@&$2ء_$:=[Jq,As$<\r>>3Bӊ$pKb*Jc2q𘂃d	&PHIc¤
ʕYےƵCdؠ[
>q%YcalڝGphcK$|.![
D2-.n"HrdWX=	JEp^_^cjbLJIdc"gܳFƑƝF5;mno	rBGPG>w$	xD4z{|(T9C,x[2{B6Ȱw>)H,@Fl\I`$FIy
ed8	| >I
sJ(J! ǥr&HXG$0%ĩ  
]b)S4H\4X
E7'ȸ	Cn"ۏEaq0A INXbF  k//@>A4#8MM/s08}ٓĘr"D*J
7M9$J#N0"JΦ`7|
/Χ'43rIɚl.ܪsэȝlܝJ=Q"Y0ЇA	/"/iD
M6a4O-MANrLQYQDS/Z|K!Q#
4P -ARf,R&LRAZR|;j* ZY	c/ypCEsL9q
!]C*hZt~51aIX!QE09/jZ/i08|0Q:JėJ!9!AեC?V>p]HdlVDi0d&XVigEؔ
i%	j(h#;B͈
+oparOLWDƤ׽WAY{|WWؗXU=V=XUXxU-j@X"(T9~2YHY.XYhYlmYo
$Ie*+4f[EE-qɝd9
2h',`S/j05%8Xϓ_J0ݬĚ˨ǅ<=
2'ZbJfAH$/џ#P*B
 wmFץ)N; ɕѠg}\ ]u%>iݑ->rhr]ŜuauDQ]߽mE!^0G*P^髎[Sn(+mUCIY\uV\H,_|"5Y`MV~.]ޅV%[``@ܼ }WCT%Z!1HT!qbzEy)X>iE&Lpc
?[ԼJ-R(KN+fpi/+ d**׀h:&v869:&P?_~(8*	)`d{d0y6	bK6aUNvIQc1MekYiSzm eee]>^e
a4Ck$@k\cuC栰ijJm^
f
(9皘upgNOP|cB~bX%-<	3&DL;
(y$Y[v?:)S1/Z}6MASb6()Uv/qΡ&p<욈	a/rW}3PQ@773(n'^2fǊQS2(ɓՒ:1i
>tdNn)ܸkk ll u]FX-lB'
,liN
퉤If`Dتf곸f3&.t]6n Fnk럞g1kn0X)ln-)Wb		Ɋ!ݫɣ:#4?h
|A&)m,%0"ǡsj(A(^a#Akur\	<@5aÐ5lS_}q]''HwEeq0"#W$$i&''C);_CCa:/O+234#KԸ78A:);	બ|O@疬 tɐC	8`FÀt X%u$u:*UgX-uJr=9Apu *>rm =Wմ^݀RXAD"FbJRDaFS2[ō^4p!0&8aTpA:CNe`:sԏ* yPJP	,XÑ>ި@RwBLvq97pHG
yŸJy2YpyHywyqyhr.0. ߞe/'7$g)hE_oj{iA{X]xx = WuO2i/hϥϝ|yo'\	I<V%ފ.˕+]hP,YLre+zrp-W$2+XpْE*T䒥J-YDR˕Y	!(S,/X"e+\HRg]?0f/^~1Qe|´hARdhʲpQ(J˗.*ja`R1HbHr2IyVef7:eп(96a(!#<L4xaÇ'^qcǏ!G<rC0QkN=aJ(ҤK>:լ[t/2X՚ޥlMcqE]!WE֗-bV(ƘcdmqYf}AO6B[bZkmC&#n1ƛoW7\qY7PAC|9'Q^i1]JՁviK^M7y?5ESNATTQaVZ~`a6fՖo!]v5 eAd\fS&p_
FL	FMHZA%TU"%jgZU@DQ.EheŮQ%I ŕPV@}%,L]F ʦ]|E
GFqdC;h֥GJ+e_m᱋mWIOiAONX38RIh}(IB
U(i*~/UB:Ԫj
[@rŮ+
۫!&X8{m][uzpe.*/ZegriP+hR]W6İI=As2U?zS2e
Ȟ誜.sRlR\rA7ѽ){tЊ$m.JR3D^}6mVPAyz'AQnn{
EWR0ޝtsKNnA lE<bXF6!HQҚ$3^8.<1`8Up*r:
5q6ٲ"V)E.BChԒ$mNzSCh&џf=H`7('sH7>|w/"CԩU?oYX 
nY0Ё`$
oTF63	!GHRQ)VqZ%2a2CpPM<!6/jF<bĲ8Q\Pg+.+A_>q@Q_04Jα/K -/ƀ ;IrS  Q=&9D<HJM3!?"K!)I}VaNT00 KV܉(w!,`@,2l^zd \&)7%6Cr))o>2e)$'kӑȳ4tIˠ9! Yiy	\'m3[3R=8 @AIѠYB&R &hR$N	q2KL!<dM\>ourNrӜReOU
)*-R-'TZu6`p'<AoW~rf
Ai%ǃo⭤ QN˓fd"rH)BҙEb/
Gdn$Q\F}=5Jꄯ 8yES[Cft~IK_Pb\otCȃfm@:3.-9c]ee@(]O0*ز-M"tQQ1I 1bS+_[T!E4Ϯb+ߦXWUJKWtLc3NJU'$ipİ`afJJ jɱ1:Et`^te5[cr{V[9C9Y{W2G_0ccVW,AY~i"X-tQl<}'bHk<Yk plUR,|AIi#vɊ"zwSH`ƕ!xmڅ0tiPWnzKz}Ը(dȯoR`7hZVJ]sĐ 7!Ds%u苺uPǖ:cr^
Z?hWB]';3WJx#i8a@vqe˛x\>n2oQ3U$p)gwq_푣ft*'1)t'U:ӿZK]ݾ.oވ
g'LiGYWwԻ]Xub%[Aay$QC~hSKk|ϋ627|],%7L ~XG=	IT
B1@qI\E{QMXGHA!=ो^PC0LiL T 
LJ8|e-4;FָFYDyg
,ⵍKDXT!I	F
 j ],`Pj@`]bAPPHPLXpVm
}	^t
JkKH|5FnA<ɍE
J \5LO4!<W amZM_ arj،!M͡P ]`ZaFb!""
)5[pEuMFrOS,;)/1$R@AFgXkAJB(-$UDx4a	IV%1] _8U}1	DI\
IicLٓ<0e9#)NccXc<G==6	ClA?$
dAf$^,$`4XD"KBI|SddVx$XHNEԠT$JJn)Kr0vLrOMڠ$OB`r|BQvRV,eFA;;2T#TeJddl%?j/%发Fe\LA8䓹DO\V$]b$d%GZGC$``^La&
 dt!t0;	B
|D*_]}ph Iu2Th֬LDcg$GLĘATIZTe-乁,L,5
eT@_JHKo_ȕ`ݴELkcpV||] iEwnc9ڜ'<Z.ȧ
q}
~Vb'G MK D&b_bɶiLphWć
XXRhd
M(AN`	miFMُ) Hx6铦DŔ<Y)|DŖ'~Dc짘m^
hhhϛ.@ɃT
)
-Ѡh9j  aM"՟QmLoHAbƑZNeQIiE UPӡjؐAD_~,Y˲PݔoRLp_jth`|nHGD~\L+j*Gd
k+^{lЄMM<eRDHRN1l
rņĠalWp,rTԆ,Z@TLB)DXf*g^lɬodrKvrO5arӖEJ Qmkkޖի|Ir2[زWXGٖdâM*žح_ulނX, KOA־ў.b~PJHz-{hF%	U$S4Y9AHMT@V͘sN"DTDg/4Յ<A(nV\KTk劅
NIk=YZ<L@JdAa
i\<|P޲nl|*.
MTLAޯB \
gDƊKAiLS4ZK0K<w8Fb}ƱsiF$L|

m	ZVWWK/<EN1Y1J K1q{11 @|U-XՎU([׾*Dn`p Yf8
j!qok\F[bW(Pt8
zE tdP?SDHZKDDh"mnd,
ٕ0s̕FHt5ꝜNh@qss1s9P	ѸPs9l3ʳ|3>>F?'!4BWVl,4'!CCE/lPFF(G\HcgqKIsIWK45;5t
WM/MMNk^F9!KP?PQ!R<WR.gPSs>KwPY5AðVP)tZ@8[YԋDHŬvpp0E?Nh1ċ<Y^T|K]q <񐃴4M_5h\tm$pDI6H44U#URfd)fPr%R_[|BbVk/lmDnn#07`*wirWDs?D#\u;uEvkyIU$yyÈG]{#I|w|CI}3}O~38怋XeD{Ȃk6߄gEnsoos8J߈Hs;@ts
u_ظxww78zz{OZ HweDT_30s$EGJR܇(9(*Dj ]A>X7;j.Fz(HJRl;RGgVXtpt9ݫcL;i4\IŦD
:蕺B8zMsziF{ɏzM;!Įgpΰ_';}!52

ݜ&Ml;Tv{|;ȸ7]C5#<xKb;/c{{5t
|%<: |(F8éK:^T<=V|O7;˃Ľ|B ݵS` mg䬸^"UE$R:xT}Z
g܏t_@zPt5]$+Ѵ(BD'1d,XjI
b^PtQPMqy^ur;L48Wnf|Slkk%O^SuD^	拗.[3FL0\(V(t)\hr2Zp%W*LŤ,Zx),;[
y]TRJG/8Th'2ctт/a0zytKڢf,Ah̴V)XZYA.]Ĉ*2JBYZޒr%Myʔ*R45 ?[iu0{,x0#NF%="9$ʔ+[9旛9Z{Ѱl4[^j+H9JTLbhi1<(|38/
i\"D-B{BFH!ȧLz҈D(0
,ȟ
J+0>l-C^H1K#Ʊ@(!*ĕb
)B
6csO(,x"
*k	% I,O>O./0ɫm<DI0
0è#HP9uk̏ŗ\%FrG 'Ȧ˒K"%{jC(+*Ҏ$jo2LIT@FtN9S
;S=l4lCϊk Iܼ
t*o3epWT,L
QCJYULT(Vf][uF^qkXGqb*#%Cɓ+ͨձJl8̒ʫzHRtն C+18
/( Fۦ«1`lXT=i")X+*T˵H0
K	nk%CH͋sX[)#>
8ӿFM\l*+	?頔pEx:꿱֌0Ið#Vmܮ3Ոo$)oQ['ۇv11h.yo2\rI^/s0IButb@X,3QJhgN
Op'a[g)yΣNPise-|]#_Jòk	I6+qAnL?o]['78q\\!y`E3kUps5"@g;t]8E @%[@"*QzǓ%
C|%=KKS*8?QB^H)
5$vH&e~
ȅȅV^ě"s((g2zyW˻t:s|5q/ e!VhX$`ø<iI;ibđ$\VK"Pn 7OVJA]NRl|+$KZ'$]tTU2f9M00L-rȴ1#7gpǑ%cMD7ڼJ7"
23g8FI;xk,L;KϨd>|ҰPLJ$'BxUՓ+QHiSĢD\e4rS-GK(8崄	"(W2

Aj̟Z;MOmwQD% i!^X~G2#d4Ap_&-o1H#Ǖ-T'^vE9eehS)
B"G-,ϴgD17e͠D%I'\3]eZYguLTTNԡe
K3jZi浶W[6[#o9`Dd#.\䏹H̢Mäw5rÀ"+q*oGdvY.5N(ˋJI1*T-棹G'{`v80f0l0BWڇs!&nִqɅ1K;c<ȿ8l"ȁ%2#O+QH/:S ҒِwV'U`,.LX cLaNŅEQJʲ5A+Vj;M.48iChtN󺖈:Y툢!0μFx}XWS
t!r| UjWH&D$IVe{ݼpp0%P]X$]"ckޭ5="/Vbݘ8[Ў6ώ;CrIq
o[	;SFw4*XWhފ3
Lڠ\-"%)ShfwT&xZ䅳uWsz"s ;tab~ҡoۅFo/#U続R}fͪ록/+8R1PKa3ZJ';Y竏Z8x4p!u]
}IΔqh%1m\98aDG$jF;|Of/H
V5µ#*J
]l
؄Ao^p-b<GGsjB"4)Tb@ &jCT/3o5|	<$4&0P8rrkrLbӢ煆2pM<^,'o>/z	WД]D"Ol7pIx,"D3p'p閰=p	O(b>
 l/;b7XTb5yzG60?:G>rXd!L)ތ`gr@C)ž`	=Y%.(Z&#nl|3Lc:̌mPLa(QNjcB3;"hH.$g$f)`qm(
g"Mbz;,a.1#j5cI9ռoڮıqKfMFQV)QRb3o RAX2E`"q"")%"### JGjAN%% krS^1q''(I(ӱ.3D
+G*o1J7*")L),Ǌj
)儰@#0c'N#'f'Q0$GNOnWZ"."0Vz؆'RgHf!þ\hƎFtIPC8K?&rT<fJ>	yH0LBZ.'&5`5-Hg:`Ӑ"1nu3>'Hk:/8er8AF	Xf
sSsY3,Si3=O</1 ?&=k==嗀	H>!'?]?lO@"NX0A[APT2hsB]Bh717[mbq*A8]D[9}/EQXEBFFF5GFG06ʓ7H 8 %R.ҋ&Ɣ $O ̚bN6OJfUbq>E']#%*:B`.rگGM
)2	䖧#fm׶i6
)WD3 nFT+qdG:%<uF$y"ppBDv#1{&0,./X(,Ul2557 M	TlH?P!Y bI$hWAqUv+|`zpgXœ$Y'5ZI#'5C!)o-ѾUYEPl̵S~H,]^@^btHU^%"_14&8`?5B5ada0jlUãbbLc9cgt,BWV|dT
+Z6
!`AeA:f
U& ($
Sz)hb"|G5/;70%,'N,nBo+Ϋ4pMTd,8CO=%bcqV-t)irn@	.iD	JǌtP] {Wg[K;LRgUu|B){t-17mbspat~H` HCueuu vcB fFjWB wFvVbfxwwQ吗ARy5W!dzz{u{{GyJؑR]o<xb}ABfwDwtw+bkxr](s	x,8(<qWGxJ0pu/Hbv?W"3y;d7r]y&
/w{X{y ,w#'c#&̈́B{I#*[FTs&^LhTR''w˼!-r
EdΈN?'CEHD9FKM%w+HjK+
"PX8c7Per320A5:">mk!P9TyX9m\q%b#r^lp#.֗\CՃs/YJt.@B&lig966@!$xYΙJ$ b6r)EyN@ٟi؝fBbZU:DzW^H(!,(Z7Z8%*^:"9!T:T^ CM (@);f$4Uͨ+qꂒ1c'd+n#b'nAU8Io gG^J4\Dh1"$ԗk6(}f&	cVn`/&E5lFbbgS U42(M,20;9Ti'h=cE*LF\D`[af&϶tQυf@%QcZ#
=B1&úko=Ʒ0;سo1i۽hՠ#j6$7;[ d@%Y"PY[GR)/-<o{$m3|ˤ;_At
C'3ۭD+ce.0g)B|dD\؍Ei&I#NLG8+*$CAsAR'io
㠤 luF:fDLC#mN4
pS#\GH*_aҵB-N\919^I=7茙q\Z',ՑGP?֧o.<xB|]
}4\ =$?ڄٛrg]1.O.06X0)ϝЇHU>Dyї=,eҡ\[ԥULGDm!`4^>/">(Tǹ3L6ll"A6FT]Y^TB@⃲!$dm+@-⨕$vԢ(j3Z-Z6M>xZ cGG	
#*&XOOT;.*j5*KnF=gq
@BʐiGJ>Z"t[{"~'OzGdRh)u0S:>_QDM"< hEK-]lb,P0*S.b1Ea,Xr0K+U\)EYbRJ-.Q,y.]x./MJ5	ӛ@eɍ[rTZuhȁBD&-@Zu]/
6m0\!CfL0cuaOv#LjE3y%PAJTaՆ$!K+TĒ'ȕVhVH B
0sjj]+o疠]EJP\`sSd/-UlֹNuaIhI!}C`RT@sMAEM>tWUdiZIU`O&X
$VPMQK-}֘V}pcctWф t[JTEVAMvDT5PNI{ucuYw
%qpS\`EfzqYŇSct_~]\
HP7!hmxJnSXapVlE&d(" K2VcLa=	dioZZWITNK~P@1QNQQWaِ]ps~]Acnfv&B^xicwg||ڇ~O*I&X`<AfᄘjJᨼxjꢐ@k	UՄW;d]՘qUUi
F?N(V!JP!2DSVl⎜XJa)oNB"RaPDa!SzFf,^OJ}UYYE_PW!PA9ݝ[/HmqhWuS#l2*OxBҬ8[3N<
CaT /1ӝ^-5S^訐]cCH-m3:FTu@3oWdxLC5O$ZXa:w&e+P\$R\Z
-E"=3f-iݚ~g	%S+Ր}k^Yzi \v-n	 0yQj±d	QBZC0nsIaB&9! wguD
RP%H!
AIn-(3qIB!T!*[lVkW s)BQ taAc54A]B,F
UL,l!
 -L
gcpK?ci'eF,ßh1CD#V1kJ&e(JQRX8krqGLGHhTX71%RAx3*%# )H,HF'"iF:g$+LE5d=JQFT0%R)UR"\,X[rUe`ZF3O̐9ezFI9M2T\QoN1!U"7˹Et1`\,xqW=WO}@2t!F:D_dI
hR'}Q*`g|Թ*8BW0'<A7r9kf2F<Hp?zk}
^Ɣ<md|n3XrNdwja!7?x,*SVDDEdMP-l1((,xPs%tT@NѰv#ejQhK"Z1
jCȵ\luMrm­N0?|.
k2j5gRȍr'UN@.b]sR.OwMEy˚	|ӒB,7D;wF1ͦ1pH*LZKúRmH͆X!1mCb'$,6PoXqJ҇K]"OG. ㅴ4&25'$o
lH|).Wyϸ\bf!`qIB+1mI?.̚#N",c0?F1MCOyH&&0EJ#_Xl.xG v,Fq3kWJOUimi[vAb%J6_]S`˥vmfp\휢mu+qH*a.xc-fIXBowAx\Ca6[rr._V=.86}k&AH~_j2G:tTQP}4jeS;$p.m=EG\kA&sK$o.{:D#(6KM
<do'2h2C:#g6ͱa?/8J%L
]C{/ρ[KA"A!(ev'C_R*o{'%bAa{{{}'|çcQCʇq·M>$q%.?'2>GK{S{w|&z7C~t~~E^i'.J1h^p	2HV:z4=:Aw疁p{{q{"'?d3Kׂ҇1h}B}7Xc7aიs9A8C^K8pl)xuNX3zc~jKd"S;5!X3~8Y
FSMk"h&'2p{'?r'EL4wDzdmW/}a!4bv sw4%uZQ'"ns,S`!4#"VK*h7%g@ELvC`q!Tb|x|![HH3e*޲2!̘UpҸoa_E(ߘAZa/>Ď!Ha! *P=42x1Uw
?	/Ԋ76V4UǑv]}$9葌)+)^CXl1s7)E9sȓT^1H!"7U+|*5DX]FEx#A\(W|AaS"&W'v]eT@#]1)+nQ"k2B3B#-r eaq<on|0sy	89Ax$E)a%)85LoiɋE]}
1ĄZC՜9Imiox1٩ۉyx	FiR"Rf QW}ܔ.)z	6i#Hh%Ơ#㖛hIʧ¡jJ/VٴDщ+sk/\/  KΖ%lP6b,v|&ǉby@S[S'FzsasÃ$["B)z<,1Uw_ gx{:G7/R"B>{IRT:Iv9|&R9ւ\&2T`V1QEB6e!.j"
m8FNJ;곪% ꭰ
Py*)Cz!cr-+"z#ۆP87*a3!%ѪDՊɒ7Ih,"Dmbs-MҮ
JUK@rz:[	5+AjV;WZ̚Fr `:9
{MRqA6C.ClpiQ'XӶXY-)Em!1I3HCcnʧ8Nƣן/raK5q#rg$EtuZ;[B:m (HQ|)#b+8SO:&$
a>cUOo~k6խƋ]hШJ0*[&ˬqVrFKDъ;7sWHn-r5v5Ҟk+'~D0+-+ȋ4hdJV`K^v;૛;lYYd,hkq2'(ji!1O]  E[SWnq-QIWbPh_SH2wl<HAc!)Fהz44ARs#AI{r^c\mY Zz")2[1k33$f0q\`zDR2Y0?],4_lae8ABg,il/S4ǰ1ג#wK'|?~)$
+쭆W|;2 *S ĖV:|%##lrB棚U2B$$! ŷe65cP1Qk3m<"K]ҬǷ7*ܹ7ˈ✭>RX|!X7#%)SבAKx)Jm%a1 K!vˎK0̱n6+2S4{0DtPSi'R8Ĩ?UDx3Z12o&i-yiavImSB#AjZu`vSkԷI!qjUvSmZV!Z}&7E
!%mոetgM*fto]!qs]lu)BSW׍P&3S?}
4t
>r+Vym
>ڣ"8ԧ=äQ2]A2Y;-BBq۶MG];ѳh	3)8}Jt$TQhb 3%%n]IV8s+q13jV|Cv^h">m;Yq49jR"$x#'6N;L^#cicoskY b$4=%9&2܏
M[B|+!5r9./<]V@qtDFp3xH3y;:%Y$VX1Z>~Q1.Q3a,e!n (NF
fGI{vp8YsZ:=!($3䮄q䛎J^(ǊTꐢ#z$d+xRdEά@˧#!l/ǉs:381vZLc$-Vw3FBb~LRdB}.}7
7.-#8mB#޺Z} 17sGGS؁M%m2rŖj6uyE4pVG[5%,9.ZI2uZ6#8r:/,a#F7>E\D?G]>6GnQ?AA[ouҖI"c/_Rk"N1p~r%*&/"(,*-O|a#Hs??A/|X<_ܷ*p;[a%|E:/qlR!~n~d<UC4 2p0^p/dtɂ%!/^BeK+V\RJ-ZF#Sd+%MZPXXr,[&5j0SPL"&b1c̊6Gzsgϗ/,2bĖqzم"Ύ]F
X>2T`N)tKU]a.EpiZuيԲ%*TDIݺI'KVB@*dqS47H(Ut	SgFsԧɠv10ivJUZ6زg"l33\Wֽ$ˋBl2#A83${(+H̴"S+Z{-6*fbm:(RN"$[i5f&°i;.< "i0rB@zdB3l&&
cI
+T4貨PCib*Xb
fӒ
;/~[SH@*.VBD\b, (T1+ye+XLΦDbUVK4'?zJ1-ܒ.'X4ׯP|ͧC;Uϕ*O#.CQQFR&eRLtT
<BRK:DTMv0XV[qյ Zv`5X.KvYZc!^6"jEDIl▮q-71)*6-䴬;~).QE8H#O/U86>(T?iU\]ܒ3:9 *d[>
<gAv
RHRz1˺8f䌼֨}
)©Z~s>D!g.t&egۍO*nM9ږZ/
)r"7*ߟZ[ߟgBwIT#23ʀAx)R2qtKZ׼,N#]n2Mw!
WG+mqhNw<[M-|</e~Mژ"(vCbtfe=}0ȁK @ε%C%L\_dv"ĝL(ޥPk!XM+]nJoE<l7E\<g[L\ ,I1XSl'%#몀
S꼸XB4v=L %FOhI:*ePE1Bk"X%q
tN$v'mBEa~<:}
{YS\@0Z{QHʦekQiV:/"LRJf)|	̀2G()0Q܈4!]3ZHfɜM'9ODD_O=IBv_,>YP~R/B{S"%)QUnO6|e,EZD'%/	t&)12e6<NMSk@6{e$o&q$HRTt>xj< gACT+%`CDf
P dh%r
Q`龴Y!Wxnpǉ%'YJB(n)+Iºo)Xun$\R18!8'⚯/{HrP'vBs(u$b<R	KJ==ĵftGf{>VOxKa.V=*qYg&PIݐPםvKNߵ]0[oQ/{"t obV~]/h"[b
S8HJe7XQ0X4aBjT?8 S7"𙸜Llqᶐ(dIqy)77
sEޮHVv])@9SƯy^*
Y<_w/Μ Q0psZ쵑)P dHbEeq]-}+QPTr!Rӭ*xYVI{pgaYʙ\F%[R/qI;t_Du^Y(2
-.C*"Y$7"+;?90ߋ:en5o"ڮIN-ѓ{_Hyt#s6̛8J ԽSo-]QcUW8[
!\|<t8>w$9vL^+wL`vҜ(69tQ@:WnU$I^ݪLRvճ
ˬU\QG>nFe_7ݽxÊj;h{c+Ȋ7^Ҹe'[^ܥ8nG 
1^Q+80Tsɒ<`irsӈ\)/B-=B_#z(ȝJ1$x)@'i#(#A5/Hy!	;zո
:j!P089a+*x'J/RTA#L@舰l@,	L
L;k'X
UAT'l7Կ)h\Q>1 LwYb
(B
$%Dr#t(̋HB,ġذ/1ď249\Ch`;  :;<)|@&)@DE@>|E1IJDbBD
DL/R8EiU,$̋WDY*?%`ۀUP7}:=jI0 
h	2JqZ{%;@bJ[
*`$p, !/d!ZA4Z2ѨH*8	U@<
qu	@,ų	E
XPFD{xś6uIZx.@4HHAKIq1@CI-PI|Uɕ.ɜɞ/ &JQ.jD #xJ˲0(K5DˡPKtD.6˩Ƚ$tL,L*8̷dLp̕ ܍II9I
ʌ2Lb-!yǹ4| 0Xw
B29֙L@BI1qaIy{K-9I1`
Bq%X(؂0G\')81ɜ/-Aac1Kz`ހUJTIJ	14'`& jv0K@qP[TY*Q1)1:bIjh
/*%2,!"EH@P`R%9ҐD'!,͉X/-1K3UIHS6(!ϒS 
HM	
=@'BTCj=QEEI]:HIQ.TQM%N-O-P5#%0]Q|'}ʙAX QA:P,Iiyz<aLΩ ̸-N(p'Nt>)8k
-bAA:J YŎ]mI/r̦Ve ڋtYnV	.PT-]X%*ٻظQJX:Yi!Y4Y@KU<ٙMQ5YDڿPZ:
WZ eZœ]AQuUH[b[%ۍ }U z咔!ѐƅY
ɽܠܟܡ%U1]uZW "e[4Ő.nil4ܾit	KbUɝH/|ѶRUCϓұkĶ)OaI"OI%%ab%	}`1˒_mʗ	4[:A+[V֎0Q$`%	N5ѺԀ`	w,ӬL4w2aDQ&paT
Fn 0M
ۻa("T#$V%&&bK5*U+D,>Q2
!	r"@|35)^5n`x㜑c"cccA4䖀V>dEFBJK^!᧍MN9Bg\Yᕌ
*6oA&wDt~_ŋONЯzfM޸r%5`lMÐP0;-퐳%X8,
X:g[gJ$&^d\xz览B
(#Ti%	6Z=K%>Й]Zy )cj!jC1PKꨲ>r)(F}1{j8}I
7E	 (kfhphӶ跶hh.
hh )lv'ޔ  z{3r.fYӗٻphd<"9#\aܹ̹#iv&
[K FIS'`V$S
*PVQ,ՙ`jP76ij<a6)CsF_(P0hRԌyݝ>RSoajuooZ
6@oors?w1	@Pp/`pp@	?
7ݫp3Tf$0q/,Xh
a㚝qq6Dq #2Cˍ.`rsrFpU,.[oo32345W"wsH2Ypk
pP	!`pB7C/qRlt+  c?-h
qF0ҿ3d*(/ji-X"+8Cf̸L<@R_f12nCoBram`#aqdCLl$Z
ʎڤ@!24zQmUFaqwwʱ3z{|} 19zxKAK_1	&UZx<qsmCdSg8Cy?ϯy>4'(יqZwEx壸	Ox?ʹW`x$x]dI{쎌/WB_bX' ƢZWGw"m'ܧV4}Iu	mA
	p   -WdE`/_hba/^`ɲXhRbhٲK)zقEd,VfVBeʔ+UHb"Ñ!I+34y1`yhRKL-XK6US$zp.
5iK)kڒ\ A_Zj:q~wꗃ[AbC+UlKRŪwCVd[Ro
^l9
ʵ+qdm=Yɽ+|Y(M8u	a+D@țn*ZU<V,qfUe-xW^xiJjeI=weV=Ygfiƙgr%iOEjIO%[fٖXn	-PoMdb_lG\Tq&J$St7SO?m[wgxOU aaT`CUHѤNfcFA-}bbڅH`FUaFm_I$ZEH嗁I
{WlS(eSNZUMUTdPCq'~t$d1}YbaUNY
)u^	^eTMJQ1E@T#e[eYeS6)QS)gYډbeoI~)(W[,$׏^ET[f)~zzuMt19ZkK1V띸jc+t.eܱm\.f`[bK٢$TH;}f韼y֛qdw 96u[(h^a@RlŚ܁tQȪTrZ'c!l|k+c 0_\d>R(a:UdV\pED`+Hq^PSʴײ֔bC&cX\K{F~`_Yjkr|a0$wg)4*~f9%=$KfPh
Q(K%)DL	PZ(֗թu)B`svӝDAx<,77	66ųJR=+t{q	E>}	Z,_$!>B "Nz
ZP+H&|lV O7u(Zx@w$aVRiBTihJAJ8%|x/PY-  }3
^0W
TBeL@1,+3Hbmr3%tĦV	&=3 DFhnZa^3?}#bNsM '@2
|Q(fT
AL"[Qf9S+XI<B*XiLQ00bᘦ2;Ű\4UMyRٜU6mMف^|g9%	P$)8K)S=m} 
*@W(ԚIBЁL(Eoe"r#\=-eV(icPŕԗAfj@T}:mfO	iFզzԾH&*XQZQ/Vm'hJzūT9V-IE@CZ9V R`!ՂSXc	%lea35ɰlth&P2ЎB˝18L.AU`9\:&3- _`|ԴLׯ-J>CH0D`=a
I%ю\%bm5+B
Wt9Tni[dyk֒Xt{C&]r~\+NX aZdE0fwJ1Za\E*[y9bOHlbDOv
sK%ԥacU+.K2-JƯ_K.s2}re\2㪑gLՌa &~v
.dgZD%~I!WF>k iGN,oʗr_
tTrT`ABΐsYy<+@bOHϱe,ïDI:_&`4Efhc_+uSqJYrl{<25 T~ =gLW69(rSܶBhhgvs0=3w]x<Q`6cJS 
ҥ$<E*9o(z[.^ؒ,G(_.e^G(O^)g326}sl|={ pCwgv2{ٞ!-{$VN
l=IH}&e;p<g'CvH&[BQ+~'8`bd69`4<21ʌmD	I	N`ȸW9ʵLKPu<DU^ƨԏ
I\T)kpPVxjva
^a)!V 
UU	dfT_ HEDL}i=G_-mp  t	 >Mi HH19 ^ʅzaqh ۀIą`ISU	E
iXfo` 5s 1NUDNZ`Mh$1*	Zam]t}aD@!׌JOa: ZDHKVED(R4	@hOFAX=x)h
cմ,ZiEEEKZ NNe(^M劯TXٓ%J55\Y7aZ(:Hf_ʷ_MIp4GHTXlcDtc|cҽGKL9tl:X\#=JP=:>.?\!f?
I4LMdB.$x5+AdR\Ud\|dlt\HFI_L"S$dJr5
LvHd\$I$d %QcRn%:6SdUU=cWND!?@A巘ZE[.dC:$\EEI^ Gb@LeE7Zऊ
ZPPKic190E[k)Yu
d~F@֘0L.]'t9Ĥf_]ĶO3摷qt>їY'qAv֍v'x>xjyF	ETQ ;'Q_HEaj~EҀ>EZāE:([@ۄH\gdhLl ݙɈΗ&}ϩhtV\jq'A 6x>gNN'gHgFħrJ}"@i~n6Rꈁ"hiv	w
%ĸQK!*FNxg^
N8ʃQTuʢd)gHW|%!ZS6IKưahIuY+"- ~b핍+]
dUGwf J(KB*zࠨG+x{O0+lJ]E^츊Tkd>:}6Wj
I>+D5[++k 
\[هV@8*6l^łIw&&6AɺlW^OX
!n20ҋҫk+ 
H&uMJ<M_#,FȄN(Vp L.eSY|%l<-n`9L؊ILh9hР{D/ZL̈(@9,*IЮPu
ÅԹ}|1ɻdΆv@rOrxBJa.MdbԠ˝H
ָhQڅ.j|.V:Ňj[M\xkExoMo:-9Bo"fo.Bl Epq"Gh0'pu.04pm<0=]X(/op	7/<
w+`qH JI^ް[~"th,@d
T݆&=RT$ſHϿ`k /
.NܕL&^[N|+\FqqRYv~9P]fG}Fe(~!](GPˤVGlJ{_)W0$Eֱ֬i2''(G̥xP(Z*ËQ@Vh N,kJ-Ho///N0Isv .IA33_f47M[LF`3Eh3/
U39'27:;O(%s&wE==GmTye)c2I@2A2BB+P%.gJHOtV40FWPG# Pʄ-4	A	IhPx*KKHȒ^[\JN5^0FGv'SEJu5O[e|>Q5~<r^HffHXӁE(g0N'WvRuJL5_ٵ0-5P_CVEI6ab3*E$LdUV^vfMpbIgPxh[(}tkll#pvIEVvv8귲8)(Dr#r
sWtD^cT_/iFwwb/+cGcǤ70ccJѷv7*j+	x``a~`zWl4ԕ t2k 4~]r\~cOyOJѨd\
pDH8T$giۅn 	lTrPblpjeY{(nցZU,8%KLCu|M99xy|hGD̔ng6=ǝ/+AEw[:>%1zİDMF$Eo[1(qqz6zC	WtEhsyWxyzHy/#X𺛃D'3;ṲT~l{Ku;s|	ō]$ tcs	[b7 0OZ7a-+R] %K3+^kD6kC%I|Or|X>p{b^9"(A(="ǭV	t^A8N*9I˙zP(ywɼмo"΋i;V6KA$<M7}<=;*ϗիLi=t=y{(٣J&=}Y}}LlN	Fs]pB/^8P (>]hpaP~먬g>mt9F~{+9@X2PK,hbXh˖,WTe0Y@Bȅ.Z~ٲ%ȈWP!)2!nA/bمhQLQJ
(R\&]z.2F XE+SBbQ{CRh;VRI.*lRSؼY
.V0'RdRL_:k*&Zx:+EׯYjUp*cbLS"0@bʕ}tU:ekkZ0ȷ,oJۜI$ZJrH9"S\R+1F+
i&ʮJk-ܪ+޺+"0.S)L2ʂ,͈F+V!,H-l
/͋ߴ.0;//Β{lȬLhCO=,sIh>|"
p3:0Qt$$k
e-p/ #1MEZ#-L3<r4M'ub
H6L$[A'-J䈢-N%N2ţM"4j('n"M(£0Q3>(9ڬ<1HH/IUdi',RKL bjÊ_LI@LPUxOɿh+/?w,~i-%&Y'0k803:
:=7-hCً,lUsڂ[K-=bڕ/6nWq˅#ԅwuU`@Z4rXP5,c9>,d8Y0+Xًz'f΢n>|pxn.+g-eZ%6Zj˫ӚMܨZNl[6\1T]}[i坻^קE0`Ocbr9=rp9e^6:mt EA&ʏnGWL0HGc@`N
V"V+JsCN@gG|5,1INՓUK":Df@a刾BV˔hd'aMZ}'dDdrѮPD JFh\	)1)x-B5)QSaLA9O	OB};.4CƆ@CamCi}	itMUt&Jbgzr+M2hܢP10&DeSec$llJ8α"GaIǄ
	bC폸YddJ2
$LM%-tcp*8D%Cp$@k@vG#2dbAERZU1X ӋYN$R& <i!TpAeǖG(KXȭĸɡ)g0DPi΃ LK׀ch~caF"2I2نMЋu,I"4
hEf^SjtY]t0h7
op
<AD,v.ԥWLQ0	x^C*v4oҢՠI-d*XfU 6[eW1dJ`*luf㺫zS]^eX8EhԵ@b$$=6)̈)>%d8gk4$
fG҃Z秶qPc%-"mSMTޖзUUrիT]nqm(BW=CVb6Mfwa j)Nd֤<_Tcҋz	`O?^eH<aM̴1s 7IEgW'sJJJ!U\Z3Mq~<ՙvRZ.Hn%q<vm!yy&1җYZIvВ>9Z2U,s+[FIV0`d⪙nۛH9ֹ򬑤-NWM.Rc^G6l_<Vi0\= )[>.{9"H^ȫ8Fl]k9\L1jfY`֦UBmCYv^nQnظ6lJ{`}My蜣3%䓘_8+O_1v.C A>i^D#iCC!^kMd[mhU",;v&ׄ-iأ1`u70j@'M`*G!Lj_>;]TK;<6l§kmz^dnZ
v[ ~SѴg9fId7'	|LxŔ~yϠWrZ|#X6&ѷJ{^J9L.VP,"X/2\QFdj/ƀrGERT dZD@/bO'o,"= < >f!fB`(dN,o`\T[Qc
".h'%azf*2ǫ`,$浤I&bxFWUOL+0/4Sfb3Dq1'?V
ң9xDjjH,%%0p
Q5&	Q		bP}p^
ä004&Mǐ<oJ
Un^
n!nB!J~*p%o; qж
q7T+_ގOeK&
1ee^D
Y?gB%H7*	'l[1(J
	RyM$bwǐsF
0Pt1Pl !t8iZCjN#@\cbbÒ
W
c"*K*B&
E
b)ЪW:fI6!&4CFae=Ȃ, s(&P!FBQ(gDXC(Nb"NU4 
3>\Q`R\]\4)h+c
	(hޤc&OEz(i(5(-)p))oy2q7r++),g,,'-UL-2.h.9t /˨4[@K0"
3=c1%22E
.ӳl3ð3M-@S4!J 5sr5yr5+6y(6 -zs*2&B88+uh9#HȒ99ֲ$..;_</=
s 3(pĢMb*2@1"GpBآf
㈒)7 hC @37h[`B&Y`
섦"
UCjcF<ldKN_afH
76-`!* Kr"(p
`/|ōBKU 2#IžU!I' J1BJk. $t&8T?BF4*3t1C,Ԅ h*NB0t
PC}N0{PUD) RR-uG"SSSq@UTd=cO5?RuUUBgVHVUWW"XXoXA25LLLil0yC[T*NNC\\\ՍQ1^^^5mRR 6k=eJ= 0JF*&nfB@t&s*+=KEl'(7Dg1B$Cs;d&@#sgV(BtnORuhGSKfbf##*D,>tCV",bx^=r!6ւk"gC.Elyl'Ѷ<`m9&xRA
AvHoobQkpp̈́Jwqt_(74c'7!:u>WZDkttm!DuUuu#2bn.3vk}7"xl[.mwyvy$nzFzun"ovNw%{{oxx|E3,|}AF}%W)}s^-OR7"B1D;+0DH-7eV);t@]
P2ٔ$<# 
2TƋ-yȢR
#_O!¥8 a&$iG*h(*a)G7=8L4fS)c"=mM(1bB"L,H)8(xx+8Lؘ)ܸ<,㗎l8]xd`@eQ<mFBۧcBS:/tDxNy+RYEE#e!\-{ }dgzڐWDXcX0ڸٛ{,ul6&g:S(Db&s"I@fit[Q(0'W+>$i06Zg0Z+1?o_M H.&0of=B"sj0H*0Z&[p ?M}Y90CיTDSd#h2:*pztxb
$ڙZnZ	KkLqE%&:"ZQīx:kA2=yٺ9:~8/ ሯȯEMSq,
)i&h( pĪ9T77:ᘨ
u:T7/#ZŲZkC{ڸ-9-ᚹa"m,6h
ے=K< 3p ذx"lfA*Y*o2
x`okme+={c"BL
k^X,* R5{1[#24
'3+^#:狙D&7Hb+$Ub94d\
h|5{cJ']w< A<ȣ|c2>]\=k|h<<~Z`'|W<87bE= W ݞ,|Y]]$"]2o܋r\6]8:l\}|$>:\_[U[ʍ֧\֫\k7˟dsy]|}̹EؓN53!hy4c%ސq߱M<&Z'P͓#1bp#f-=X1(+b"*i4~l
sF0h D
XL'VAeP].V#@1%sO3>V)˦hXLNA.Xbylٶ嵎6`~,u;Ȃ灹Г(!1>[+<J^;F2~$~imvS~5듨I;&ʾԊ0K;2\75HŖ\&t^L^P"$)b~$r)-G07^{J"N#vWaK,\pB劖-Y8,"EJZ`RK0^:\eK.\b/X|⥠+Vj^c]TcJ+TX%)/=X鑋ρ\Ted.^jgR;r2/aYR8%cH|$SS;%0^2ȊTB*)AXN|f/a|'Zj
Ny3tA-V"N}1ƎYdʕ-_J&N<eU9QZ\ݼpիY
vXϦ]۶[rEE^ԗRFGvX-6RYKᴅeiYNhl`akFnuoII[E\TAגtL2ev#]PR=ނvdVZGR|fZjŘ~qexE`~`m96a4D:D^rAc!FqԓpqeA]uJ_0$dXH!W'EUdAhJ(c;eqY4_*FceٕE])HJK2h5*sZ%L}~a]ъ6RLy}!Ƣb ܳي!a]p,p.)Sl}ꯨ\g*-$	lYpSW&ʅs.{kFk,g{mӪE_Y\}Fk-htFhU >6%K2A"*먀L)
Ӧ"u0b5*ŧʜƯqFL&#:F+ۊEsX	K|6פlζ	`AmГ-bzK-_vVӛ^1qy/JN||U[hxO!-X6Ru<GKrwӵFnR1S^rݤS4![1G?sKSؽWA 
p,
(MO#\;ň$3w(]1 KY_[18
&Qp,`r=UD{ŗ-&mS+o6g2#8ISPW?+Ck pDr:.M@Ixuq0\]`GRH^[>q!۞
W o}zLjr̞.Pq~x'JKNr-k)6paϰwdkOy/_JCډZx8
EiUnl2z[(]9A(9ωts4egPI'K%i&W`J
zY[dKQG΄*t\$ycFPt2gJ(frh&FԂFNaT(
MbPȓ
(/R-0dZeh$ r,ME	qc(YDܲNoKR;fO٘bgľB
:]׼U޺QCC0/sSR*vkȚB=H'Q<!bI$94kcOZ&WIINʵvmo_a
;`3Y1lH/vԭ.n?ΆƳ2Zv
?YShU*^r2 e#!}۲ T6r
Ķ"WZr_o\ZLĩ<@iYo
ItdH0fA%5h_x4ox;>ɬ.6T0Ӿ(K+"B^`\0ya>d
^XIMV`yFd0%I>LGLy;@*}G-n-@D46͙32
7oѦ[{A74&
`{.d+{ټeeRҎ(,alAd{.ύt{&7P3_qbZO`{
|+|o~p+QPTRm|qH:`Rhj-ORhsgr$o֤`<}D/я+}Loӟu`Tկk}\׿}d/ώ?h}tn''I@hbN	4y.8uXsY1X"
EA.+=.}u>Ћ~/Oԫ~o_~O=n~/+ouσKԯkbH`*\tňs;I@dlF@o4Q}(շ`	Ȁ
(Hhh!&Ia!CQ S!/1(3H5h79;ȃ=?88 CHEhGIKȄIx!](0y1>1E*qwb^M(c8  \ikȆmoq(sHuhwy{ȇ}! (HGΑ:7Q#!clvT?sȉ艟(Hh3芯(Hhȋ؋ Qs@hǈɨȌ(HhӘ5cc
a-6$6$>hI,\ ,(1"'R⨏ȏ鍾oPpRk6$
		/NAɑ	!)#I%i')i 6/ 1)3I5i79;ɓ=?	A)7}]NkJU& 4\?(Jb1m`Usd" 3C7_OSm!o	q)sIuiwb"D@AUUG$aB2_q]ɘ阏	s)=M-Ys/Qə陟t #a4*"Ev ɚ隯	)Ii)( $  /$c)BI?..2/aW!H7+S?)72Ji8b71G^kgj91eM`PUN`~EkaN9QQJY&x#S	1#-=-<ʡ
!*#J%:J)I?9BQI)	1G5j79y,,%$^I*brMO
Q*SJUjWYPRo%N`42	F
B2"£.-B(=dB95ˡXi>#.=:2sa5f wa0
J&wmdqb^DiW&/*@j-!Y!R(r zbX4' *JjǊɪȊDT-:zZ
*	 FV!JMCJj;au
Fʯ
++021Es} ^)T	AAzmH!%5(-$˕6_d'u!4:b!љ2UJLz){3.Y4=BAMgQ;3m^a"81&!*>Dq*P U@1SjbVJ&f8հ	q˚ G%+m3/zq?z1˸븏+Kk; b!B+Q"#gPB&r*]Z
)Pk(fR tRcFe i-@Zq*B2DwdV>#99?_0T.0:U#U	#ûS'dꓨ\0~>Z-kx*]@{UILѺ񺯂']2iayV>k/[/3;k9ߛGT)c$[*Q*E%'
E	S$ ܹ>#:qY]_a,cLelgikm\ rqt%V -ǅ(r>
A
z2g۰Xeli"tgaI9D~DFD 3dLT,?CY %Q?cRUvADcx^p/cv\@wdf!,,QBKrD4Aq(u<xKǲq#ǼsC<Y1(,LLّD
'3 \4"b|l5\B:E^@ Mm}	"/B/QL2˜rÕ#]BǺryI@5m79;=?ӝL@MEm8
 81Dq$61XduX%]!*q<5G!1	cTIw1Oh_[!+6{'+V>A,L!E,>-DS2"B!5\gN3XS! 11R6x$;AM>R#`7LN
~)1IWGsC&Z%`¤dm֌qjmlI*-<"+hyTk׿	;45gR8qOr=a$.ߤ،\4m>2KٙgdסՔ=AMaR՚*]
c+kFU
.Nnѽ;
7{~ -ؙB]:M
 @2AdGR-(S
LG
W3cb1Zt=ړ1c!촣5&kD&
BlBaR%y}9ڒ)mxdSF1yJє;d;A%_ <y.+2:1[x;8n:(+6A>CNDFsIK~vUb8GSkF+YEY/!壢>z-bw
;A[\>Q*q ;~1J MNa#LK1\2Q Ǝt˙1V	@nO[OrOg;漾뾞Siu!4~fApA78nM~V
$eت̜DqqY0Y\f{J`Rc=ǵ(aTt\DEϕG_sIQ*kY&RSΦM[V15lAn>Fu䣜.-T.T4R%.b}7bJ2).(*;/,GUZ-6IOeCo7y7So1w_1YR[>1 QROahclW '+uEy /jz!+2+sC7a9
49lP
vL_z *VBe+ZX
-t0cȐH)U#̗\"-1l8#H1YjɨQЌZ\re-WȼrK.Xh٘K1&,EL.Z5%0\nXW/ҭ(L=
͢v0^`ɲζWP*s)U
K"TUcy%\ƎYXR4Ǘ`^佑J,9yjRG##K\YK2iĩO/@[ypҥMF*V\Wwحff+mܹ/d/ CpBL1/*6Jƞ3-BXJ5ؼ6ݘ
86".Q9+j$N.I+=nbڪ+,H/urK/Zs$-
)kCʹ B	
 D)sIp/05IN8:SI240si'<-#;	0 hQӂjl`O
3JtsGKoT-fm'H[m
Nt*]ͮ`
)Вxhl]uRkKDUb4sR2}<HD
TSCOոhUbZsG]#,~5SOIX }61^xjS6{/X֤OqtIҺ)<ٕޒ5szY	|7#
8^䠦tlLI=Eb0,λTQUvAKVhsMNe1Xv/Mw1jffuڞZɉƉۭ@T1:1ZOkS&NJ)	LE`2&.Ȉʳi]|,-dS"BV1+תks1
.|WdKڎJ\~#yjr@H
FRJaa^ZYb{A;jڒ,j\64vP^u+.<	X
yR^<Eoztr{mbD3t#OO~tm
6F\<M8ĸeDA^0l:8Pu$t	E٭vqbHKn»!ظ$OU"něTz_RN&=G2|OVAx1d@X7C)y__OĸӉ [IxNW
YXe#]m`L.Ez
sd"[XNz0HDAwL)4zɠd~+f6IcB\XPU^f]$]7rdHMP<FJg]'W>B)dHXaCAC%3$!搎)dfjjd3_hFGRmvY gLę*38B:N
'mV|
4_U&c	E[=hA6(idhQvq$	RWR7$}[ƕR\2i^N"\)NӬ[*K:PZHMܖZP"MTwbMaY&cjӜd5	wb4[
|zu'^4²\IP:Q14lEQ2  ԏzD+X }8 yybDN%,9H^nB+?6wmU
RxY7gaPg""\"W>O:P -X&ǉ&;1	R+IP7YBЄ'LLMB6&%LeE̾XSS׀W+H{Nr
gU.|doP?.뙘!)~HD,XrG11>
mhC_tf;v.
?>)iMᓣ`*[Z/$sp̜%(E
a`fſ(3I8Dz>1;%~H-׆nSDS\jYNPi>P/ǤqN
伮sqΞfـHWP@6S7BuzW6EDNXiB ,Wœ9im@(xi/&ߦ㤇qKPtP
 $8啚bA	\ĉW^,t{<OC4-9h<'֜?7VsP@'н(S<>JNt~҃ܔ
iu,x!^ !LAƼqJ}#^ww$/YM֍u9
3*(O|qxq3&?)gA穙$5ǫޑ[
{e	
㾁58ѣɉ+1<
p+669֪* fئK) a ()#:ɺ6636k88I A|
Zԕ"2`e#5[W{@ @z
\
(S	d
0A$ԘAAn\%( D!"826b%&§Bذ)¸BkT
|A
{)eR>	d8xR{4|C :@L=3>ܿC1쥇)TAA+AzD4A6=M! O,@49 a*ӊzz֒$)ؓA~=;jH,j 8&0')LTJP0lfYɑ{3H
/8*'*p[36.GϰG?}p%/lQ	n!Hm3HpHHH 9QIat90P:lɍxPI::oiBL)b'$JDJQJKـ2,{|,N&
ȱ	 DV2PKiªKˌK/=q 2*Kl-0D^yt?,O4LqakP#A_y`,HI(0
0AJˋ3ѷ*lk1"h9(J̷t%3K9)O;(O@τC+yO
<*τ,HA AIA:PcRqP6
E9CsP'НѵT=4@ј0e휫(QKoNWQQYQzQ u!]hOARQҤaR'(O&DAmc
PNAP0]2;LSA;ZsSS3
Nz?
sűg/zm,艹isD$D.n+,'͇0+r#PBn9
횊訍 f
J-8_ 8<kԋ,}m2!be%dM#eu3f-*9j-k-
mo-6ڜq-""u]wr3zQ~ua&ȫNU-5
XK-&$za}IcA\lgMYa"eYJ"V/ לvBW=3}ײ*ˢŠǵxڶZ* ֞X׈<hQ00(j25ЖR
p1W=]5!tпYnTP
BߩQ@R,TmPtLj>M;
s	I\ǀE
A[|M/0 V?ɚr]c˪]MB=2ݾU2u4J.ky$t띎hy=mBk9_H_+Xߏhoau3X_{3]9%I֕@Bv{#ƶCs`A9	&L.Fޝ^e]^q3A{
,pA,( n:1 Je<H']R S<+YxIM+G 6x@5ު,MJdSke,YMٓ{!6@&=?&U#_BBG$QĨm<dN+L.Ɯds1Q>T5e鉍Pe`epSy~iZ8%]eaba9fHfyf_f0jE T/fC Idofd:9rstd0M^NwdAey&Qg9e|"	~3i`8Z=Jr0ܳ$2,aLaX$H@6]Y˽;sP&e1}啗`=	-%a)	z("a,°Θd	,]*P
/ y/Y˄!Ajj/=4m81KғkkMqa,vZfJ(l3CΈV삘>^ް6Pz=~l)K Ԗ&vy>)\)A~	m2j6n08?N\knjk$q#Ȼnމk	~>oN@WulN.a Шa#AnŖle:Yݫީ!%:v3%Z29Ùv,?N )(]"ȊH'1s\.SmBgAuU1>ؖ˜(g)*&P7./
Y4_?e#jseS^sѴ{sE	s7ٕF+(@D!F/+aH/,e"Ջ2!tDmOu'uYqTU_VO0+,/>[?(\]^>__`9a_K1v=sfgs\/jk?ytvo_F Oۉkh/vDڜW*I4kRaDjc+B0p3=T?_*xZ+BMp	(xl. d0*DHɌ_h
Nʽ;bziD8ʌ-y(y"AyUW4IgjE3'>C扬O(ԝ+{Y:j驳Mvm{Xit{M{(4"W7(3|Cfx'Ǉ|o|Ơgy-/}Vo׊ֿmȒE˖-ZVR0p"K*VnQ"-`ɲ-
3eXX(S&[TE
Z)XPʕ*RB*xE.bȐ220_z#f̚Z\,._
fZP+ޭ
bZe`ƎL-WTcGktX`YvQ0q	#['̒
(U~JJK`27ZjrJ,Ɏ'5s}Xbȹ_3}XͳϙՑXrXbuAYhU_(%]^!`Vb1vcZDvd3t_ݦg6h]FąkF)wnpčdF-s'tYGWh'w=vHw!zg]WxW%YUXcE]Zk)V=hWzW
6]PnXAfhfp&js:cn?ܐI ]TSYc!{qt
~Vlu
]nQ&H Va	Thj`ŧm:[MvN	-P&{{XDjrUv |epYWСzruB)wQqZcŮAgiTffl5r(YĂűirsIK]gm{[>nYKC3Z+%a/TEdld 'up6ĕ1&m䶝zL!7r'5r,g̵ftk{5zs9˷smtVCmVRXGDvYnk}}+Wp,
V0Y]	䶿p5TfR_]5X4|Vh1Q+Ыtyrx%j+Hq
?TXAf c$$Xuyp,[1Yzh'Y|f)(6 K
=EN ԥ0[9aP,|M`>.ϋI
>0&V6Q?p Vh
[`Cp`]A<rAVp,(
t7'942YlJAB4XX41m'51X⡦+0X/Q}d$F~m_fǦ)3uc@=Ry )A
^i"945R{^$4IŒv$7 D;^<r;GL!.{lD$2MƁR8 \VD.Dv0b%E˒RL(HA0!M?ѭ`B]|6]9 D-Qݬ(&pw
%D0"B)]0gJ? @Һ ԏC9k[EќGSK^#ҷT &=K0 +2/)akC4t9N5 !&jQ}գ$IK6DNSV
du0oWUfa*?0#h:zq
kZ*юբ>7*.x!HCR0[*K)T,fYumJPGK, bW_@峿g[WjK,r!OV#<e.[NiCfqGD<	T)=
ψ"CoB#>$WN& &CT
?yE
T7h4-tS,Z< F
pzb	  ,`*m+;.Ǡ`5;ĊpZ&Ƃ9L|H+9~Eb*%Vp؟5ᱏ䄔1rU%֋NnP%U9W&gEeMVpI毁g=UIʚf+rSgl%}ΟKh:YX
ED{%J4~HNc&W\*92f5C\m3l=#d]+eνzqQ>6`e^aY*sx1H=w(B>Z(>ˉߣ5M&%/9zH,tTGa
4_(	O`	BTrrˏ0ZYgJ 'P%RpNڬf))ܥ@Ez,%Rg^tf%
ZxӜ7KI0v&
z`F8Cs1vzcN\=b];D˃uz>%fG_ܼ
0oo
+Oܩ+yOy29Ȃ`$,|FeLX]G܉^`ތ^x|̑LMUdDJa0	E=]Ua-_XFMY5U]]ʍ
^=M
eUV<'u:LeI	TAMӣ oe ݠױMܸ٘E8MIPR0!#jޒy͐$TyUUX"hx|O!YpX%M ׅRpCe@oM	1Iu|
gb.XIF*&`N4eYQX!B!-Rh;$DM%^bFlb`y"Y)Zާ\*A+6 i"q|Ԫ͠b{bG c(a3>F4f?)V5F`#Wava8cO#!*E:"";>#<.JD"=R"Xb&N?.?@:H']j\ Mb@^pE%>E!u<HVo OTY~#"L0c8M٠4D`QGb#^sO(fዡ,l0HFbZ`$H6p@8GX}%V̘Q(ЌkF>VVxeO\֑eVeVyrej[N\" ]]
z F1y`vAaa6()b[cZ"dDefF
vfJ&C&CfAJiGj	\wHMmm&X&ElAWXҤr:8s`9t^\\|lgug}'@:PDz2bLC{B|Nf}2}M~~hEd]0Āz$y.DC0'`Ĵ(a f"QDG{xPWލMt҂y UaEAѤͽO`Va
P$HINe_͆N0M*kUxFe|IHbfgf#O쏚ziȖ K1Rj)|L֝yI,*4*>ɘ"AZ0٥
ehj[*D^

iaj̪*hߛ)Ņޤ鱦D̳BkUŴ^+*e϶&t$aANjk+mj+.Z *d
E R_ljyOYX0͠a)L;PT]A]U`tt{ELPEtdӶH(f)G~
bu2F)՞yj0}MJצ-U)ٮRڶP-QޚPbknB.JM0.8.}blPsbHΚErrDx"r Bzb-K▯mز.-m&MJm`BD.f^** F-ͦ5-L04d1͓8]QXt%*fe(Z˼VSH8Hp
`
k`HEl@<
jNaN$Wh)8{GC([#0)rOuMGLIKojNI1TPSpVhtnBVcOBDLo&-uØ^\ K!2˱fp>2E$K K&Km|tk22H*sV+SrIȲ2..Ş31Am	ZMe͘e[|
GAomwx:Qf䨡l`-0arYjy94$op.oi5u۵Ep&H`U|=ŝ-
STXx`hw}itJ4)N]ڌmicȴn}8OPf`u:,4=5iT
U[UM̨FevpXXWYuoZZ[õ%ϵԵ`m4"^HWJU:[rv4Z&TD+ADcgc۴$NW6O/fvmP_Q#"$Vuw,6j/K  Z*)Rs56Wؑ
-Fzq+[tI\I$Ldqt(XAO_訶X[X.pjdobnĭ(<X2Vl|:PTNh͗@xiuE Y<~׵޶_xV4ZE8pF`wVs[ALL8Q@>VJpP+88DKZɰ8ox{} 3.o?KkǄ8TْӘ7;+FiC.ME<`ŀMnu$CxJPx9Ě"
9:FuxĠ1̬)$zUobxV?hlQ:CXLdZqH6iX:
@[uUOW8	rE8K6BDW5V ws	1ШB,LD\xȧuTH2eIܰDo}aPфn|o(DA<A<n|{ieEx]W	
uq1O( <č'Iݼ?	b$+W#*	<<b |KP7<oIg\+ŷD^w|ϔD]\CƉ̟bGD3Po<}}Ѽgl[DgQ~L2»M]_t[Rg&<#/==gO[b'Y<᫙მ+~SLfL> KHR	jF_xc	uE 1EK0]lr
)]p⥋,
lK,ZQKG/^Te䖔XdbR.X\2*UL4z&B2K܂Q#̞?XR%U*Tl"e#1֬zҊDZh,S(QVGt[eE)>܊'._x!Cfȕǈ	xbvR)RY4hI3tYQ%a03N.^΄	T#D-BxcȺMQd2if8u	4nѣH.Mys߫^Wb}j),OWغ	wnԫ,⯌+l%LȠl0iΦ,4J+VcͱbѶ-&x53&"9$H/#Zz)۱PJ{
꫰Ʋ!LO( Nd9p/$ڭBC*4"/tPbPBl&Tb+"%
+/,1ӟhUmz')r,⪓:4S:(&q"-ʊ,+$- k؛
KӪ3%/;:i7J'DJ뤣Lz
OuTO#?
QEjNIM+.5jUTRzTB]Wc5Z\UZ_mbaB6يmԑBڀ3|Ҵ-%sB](wy?w6{I7}w8笳|sa|XPxQ}tcIstKE.ҡ?
uRYeUYUfաUWzը`&jhZ'gV?j
ی+ۢ5T-bPRJþЂݥf\@+iɊ(_(-%*޷`H]ӯ(!+r-5qO9(uD/[0G$Lvŝ.$>5ԥvٕ}&2TJU
g2d-g(y,A %$zd^D64Ph{21R8ri3ޢ}ЊE11~@pG.3ʁڲ+wE&
A0ǎSy#&4+c^p+¡x@duÔRMzң)'f~+dQ;_ň)+c+R `vH@ՉZ`GRlg2<f%	'0*2X}~ROP,IDG𑤂gHht\ͰDK"DUp5
*#HK)Vn*vYSi!N\AL[!Vj%Z[>Чλj|4t9ozΰQ9ao,c?xtm
j}E&Ugn".COB+л{HDeÊ^䢋i8V|S!%$K
.^O+iK SMTOJw-ZO܄0E
UB:SLVN뷲JR{vJ"^UN?*E^h5Z)64
h$jYYFѿI@ɷ1ZD\	IEV.)lT$3TZ%>Q,k+s`.ݳl:ȔR\WO7QZ
(W\<I-fL	qQ:i)ٸ*{}n8Bzk,H>
n^؄zyw7&d%Gq4
~>-d
vQqG6#d';<id%voZP,TI5	DBqat5
?.ȄLcHޖ?QF{eq|0+g.s_بm`),yp$SY}0%蒆X؂9
ES @qKJ*2dJ0~{YXŲ0ƈ,yD2[F
MKGd6gNx#MZnsHU.ua
Z4mN:hf!Y\m]fնa"XŹ6#Z
L,5#cDݧȑ1$[Yf=o+$·L*R 
F0	w:Å.d(▙8,תOF%(Q&AbX&-c~ϙ+kOz옝#e/}e(tEMޤEbb=SZu[
Vv6'n7%*43oa@8Ó|\;SxDiy`?7V	|1?5h+@xd#`RB"Z"
@g2?:BO@!vC,g%Ւp2`
 
 |gJii'r#V`z!j`97#& 
l(M(8*ںl$*24CX
f
~F.8MAB ld#d.(b/#O

@Pg[H0cBlnvP%|0%\tf,dbR
"	c	7	}	#NBs& bc#6Dɖnƴ/"ް0 0c1-
7O17Pd6VJ0$NpGR]`p''k3nP0>Z  V4j*N%@grF(PSFĦG	\#rKc0	$bGxn ¿P6D{(jrm2<&q"0nåVJ":E)"^N-8-0z01Cn"$"L~3'&jT/d:0
J$	2j4(RQ#,$%,#P$M#2T7F%[4 &gBT&	Y'{R(!PaRC$@/TR6rȀ#+f+u$"2Qƒ,,Y$B-W"g(.?.e123R3!"s##KMDr1ӎ"̽x .33i3/P>s'y'I3#6PSRr^)img*Q#7o77YB.0\)6m6(m`1	2d1(\ F.~GQB<RlQG/Y e J3]6E$~l%S_% ׮BXFTz""`zl8>9?t<4B-G,FIHJg1<^DCDK)]~N,T41XTQ_~dFgFG:dHA7G	THm,YzјtyJfJWJ3H/"g4.)Td4
T
]vT((&ƭT1TO7! u2C4ƘDQBQ#E(Rk4A3cG3GHD[nqZbY4)vOAUVUM (vC/qJLJӌB(F[&2"j1kRu7&$fDQGdA`BH'$-Sj ]33b
:&4,}r+ D#VeD46ļ<V(vVX VdE>k3686\v@d%j.eZPJb6Cf?jiqV ۈgb
|vbhh]4@ăJsͨkICk`MS"`taqllFdm+vC.Vvc=O=n9nK$oeoQvUo[e{dvohV"lnr;Kyh6TE1\68D\ @Nى鮴fJ86J$d" 
hNmOdPz~ !3L>VYqwt*ru-CnXs`Aʐ9g(dW2-jrNXZr#6.g"|ac||}@}i}?274Wp&1w'gQ;Hx.s
kg-BdX" ~#b*jpm =ؖBXANJxZ(JJU͂d
h؉|T|9|gD	YO+Ƀ~8TH8%)рI
"9s/ltF-xWo
b&E#K7F>Zo$1.T1f"̀0Wk
iS"z*:($jGjj$Vn&%%T\7օ"a9;.(FK7E)óFWfM;|O,.ؘaXҘj"Y?*=MS,mfz#Y%Eqف@	$.cѩP˟s&e =bF$zŠ3z۬놓DzHg~S׬Zyss8F툤N)e7yG%"@czNO:[,;4Hj>TxOJA5Fo°%g D1PZ{,4]l8%+%-j8є4O1}yCAC5vBZ;37ht+yN7xWm48.<{\@e\W#LeWR镼v1bV)xex/<yo݌{nȘ6cl[r{{8X3p(?=BUmMEw ;iۇ6;
̾OQDPna["Qw[(·m\m9OF6'ئHВX,c@?r..nctZuHGSjem˶B&K
uԇ1h'J!8m%B#2^Nx%r(*7/z_EDZ|pϏҢ8Tm8YQ+g7
J&$](=@,6Mhӿ\?}7I-ԉNX4ֹ
#{t4"9Ae}]<>h%	o5PnhG]Eѿjǽ]3*..]݅27]A]E%Z:%m"fB<d	-U=/K\z02]L*`s-	"f#rv(9odfoL4B%P{
obhR,bP.C^+X1jRu41-P|^Nx酳]bcj_uG 8c)[%~'~W7>^0;^K`i8Ib>+R?dr1*_G/*B\=BMZ*Z= t˗/^lYP*RH8 -YE!+U\q YPYYE*U`ɒ)8cf23ą4SKA/`rKL04Ĉ%  ;GIF89a! !        3 3 3   333 333 333  f f f   3f f33f 3 ff 3f3 3f333ff33 fff fff     f3f3ffff3   33 3  3 33 333333fff  f f ff f f 3ff33f3ff3f38h      3 3 ff 3 3ffff 33 33̙ 33  33333 f f ff f f f3f33f3f3ff3fffffffff   ̙    ̙  ̙   3̙33 33 3 33̙̙33  33 333333 f fff̙f ̙fff  ffff f33f3f3ff3f3   333ffffff  ̙̙ ̙   333333fff̙ffffff ̙   ̙̙  333333ffffff̙   ̙̙333fff                                                                                                         !     ,    ! !   	Hi $Ç$\83@Ł
)n1#Gb',"ɒ;Hyd嶖L,HҤ̙4m,ȑƓHjўQR=xeQQ!m2_E*Va׎p;zqT#.L5Աo
jW+HJoȲ]cmxw+˘~(qa/7uEmJ.c
KN] +*Zx[R/-YHg;qiv%z7ݽۿ%v~z>moi޽uC|8g T__B4$6  ;GIF89a         3 3 3  ( ( ((00 00 333 333 800H333 @@(P  ` @@@@ HH   f f f  HH 3f f33f 3 ff 3f3 @H@PP(PP3f333ff338PP``PPP fff fff  hhhh Xp0     f3f3ffff3``P   3 33 3 3333xx HHfffhp` f ff f 3ff33ff3@hh (@    Hxxx 3 3ff3 3 ff 3333X83xx`f  f ff X8f33f3ff3`xxf (00ffff(    ̙  `3̙3 33  3 3 83333` xpff  f ff̙`f33f3fPP `8 ̨ ff3̸  0h33HPfXXfPXX`Ѐhpp0  PPАXX 33``؀hhРppPxX`fؠpxhp 3hx!     ,        	H*\Ȱ!B^#a4vEK
lОM"H~aMdȂي孧ϟuѣ\-֨bgoݰaCͪ9qX;,Y.X~	b
`ǦMc,Y0UnZZVU+W	
^M{3ʝ.K7{ѓ	-c<P1XWO1aN_[ZOz)S&̘9kQS^?yΜ)O(+Sۻ#/yS}x\styeŲ,b5"Kom^T-(̅.P$%^fhX-00xT B&*Z$`@Dr-_3ǰ",2	70C$x̂SU&K,#f,V_Zow!GuԱ@2h`{?~( 餔N2C HJKϨZ8O)HBJjШ
P@ ;0b   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          16146.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           3230.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5UW0YXL5L           9  8                          15209.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66717291.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        2395.83320937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0        4479.16720937.500 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0       18541.667 3125.000 1770.83316875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0       18541.66733958.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0    !   18541.66725208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    #   18541.66752291.667 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    %   18541.66742604.167 1770.833 8229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    '   18541.66764270.833 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    )   18541.66760729.167 1770.833 2916.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F+        WINDOWS _5S10IGXF61354515618 8  0    ,   18541.66781770.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0-     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    .   18541.66773750.000 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0/     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    0   18541.66791145.833 1770.833 5625.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    01     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           15937.500 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    2   28541.66733958.333 1770.833 7187.500    3       F    F C           -1   -1   -1   -1   -1   -1    0    0    04     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WK1354516195 8  0    5   28541.66725208.333 1770.833 7187.500    6       F    F C           -1   -1   -1   -1   -1   -1    0    0    07     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WL1354516195 8  0    8   28541.66752291.667 1770.833 7708.333    9       F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WM1354516195 8  0    ;   28541.66742604.167 1770.833 8229.167    <       F    F C           -1   -1   -1   -1   -1   -1    0    0    0=     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WN1354516195 8  0    >   28541.66764270.833 1770.833 7187.500    ?       F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WO1354516195 8  0    A   28541.66760729.167 1770.833 2916.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 2 1  0FTF0 0FC        WINDOWS _5S10J43WP1354516195 8  0    D   28541.66781770.833 1770.833 5625.000    E       F    F C           -1   -1   -1   -1   -1   -1    0    0    0F     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WQ1354516195 8  0    G   28541.66773750.000 1770.833 5625.000    H       F    F C           -1   -1   -1   -1   -1   -1    0    0    0I     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J43WS1354516195 8  0    J   28541.66791145.833 1770.833 5625.000    K       F    F C           -1   -1   -1   -1   -1   -1    0    0    0L     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10J4A9Z1354516199 6           28020.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    M   28645.833 3645.833 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               N     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    O   10416.667 3020.833 1562.500 3750.000                               -1   -1   -1   -1   -1   -1               P     0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5S20KK1BE1354583150 5  0    Q   10416.66725625.000 1562.500 6354.167                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KOUJ91354583270 5  0    S   10416.66735729.167 1562.50011666.667                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    U   11875.00037187.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    W   11875.00046875.000 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KR1H71354583323 5  0    Y   10416.66756666.667 1562.50011354.167                               -1   -1   -1   -1   -1   -1               Z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    [   10416.66772708.333 1562.500 6666.667                               -1   -1   -1   -1   -1   -1               \     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KSGI51354583361 5  0    ]   10416.66782916.667 1562.50012083.333                               -1   -1   -1   -1   -1   -1               ^     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           10000.00024583.33310625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L01EB1354583547 5  0    _   11875.00057187.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               `     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L0IHB1354583560 5  0    a   11875.00068125.000 1562.500 3333.333                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L1NTN1354583589 5  0    c   11979.16776875.000 1562.500 2500.000                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L260X1354583601 5  0    e   11979.16783437.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L2F7H1354583607 5  0    g   11979.16792812.500 1562.500 3958.333                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L3L3U1354583636 6           10000.00032812.50010625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L3VPS1354583643 6           12083.33341562.500 8541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L42ZQ1354583650 6           10000.00051875.00010625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4AV21354583655 6           12083.33360208.333 8437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4KEY1354583661 6           10000.00072291.66710625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           10000.00098125.00010625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LKFUN1354584183 5  0    i   13854.16738333.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    k   13854.16729583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    m   13854.16748020.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    o   13854.16757187.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM56P1354584227 5  0    q   13854.16761458.333 1562.500 1145.833                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM9IJ1354584230 5  0    s   13854.16768645.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMDTJ1354584233 5  0    u   13854.16776562.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LMHV31354584235 5  0    w   13854.16784583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               x     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LML6T1354584237 5  0    y   13854.16793958.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LOPE91354584291 6           20312.50060208.333  208.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LUPTJ1354584439 5  0    {   31666.667 3645.833 1562.50012604.167                               -1   -1   -1   -1   -1   -1               |     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LVJPX1354584460 6           27604.16732812.500 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJPY1354584460 6           27604.16741562.500 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJPZ1354584460 6           27604.16751875.000 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ01354584460 6           27604.16772291.667 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ11354584460 6           27604.16798125.000 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVWMX1354584469 6           30833.333 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S20LYSL61354584540 6           27395.83360208.333 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WIU4C1355053390 6           10000.00080104.16710625.000  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WIU4E1355053390 6           27604.16780104.167 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WM7WT1355053475 6           12083.33363854.167 8437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WM7WV1355053475 6           27395.83363854.167 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WS32R1355053620 5  0    }   33333.333 3645.833 1562.50010729.167                               -1   -1   -1   -1   -1   -1               ~     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S80WSJCL1355053632 5  0       35104.167 3645.833 1562.500 9583.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S80WWJLX1355053732 8  0       31354.16725208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S80WWXH31355053741 8  0       33125.00025208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S80WX5GL1355053746 8  0       34895.83325208.333 1770.833 7187.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S80WYMJ51355053782 6           12083.33389479.167 8437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WYZMU1355053793 6           27604.16789479.167 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6340KWI821390300581 6           18020.83351875.000 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KWQWX1390300587 6           18020.83341562.500 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KWWUK1390300590 6           18020.83332812.500 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KX1S81390300594 6           18020.83324583.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KXD5B1390300601 6           18020.83360208.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KXHG01390300604 6           18020.83363854.167 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KXL2V1390300608 6           18020.83372291.667 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KXQ5B1390300611 6           18020.83380104.167 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KXW171390300615 6           18020.83389479.167 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KY1B01390300619 6           18020.83398125.000 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         	ZVK1.name                                                     Arial Narrow                                                  ZVK1.sp2                                                      Arial Narrow                                                  ZVK1.sp1                                                      Arial Narrow                                                  ZVK1.sp4                                                      Arial Narrow                                                  ZVK1.sp3                                                      Arial Narrow                                                  ZVK1.sp6                                                      Arial Narrow                                                  ZVK1.sp5                                                      Arial Narrow                                                  .not. empty(zvk1.sp5)                                         ZVK1.sp8                                                      Arial Narrow                                                  ZVK1.sp7                                                      Arial Narrow                                                  ZVK1.sp9                                                      Arial Narrow                                                  sum_sp2                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp1                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp4                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp3                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp6                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp5 > 0                                                   sum_sp8                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp7                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp9                                                       
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "N O R M A L U M L A G E"                                     Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "Z U S A T Z U M L A G E"                                     Arial Narrow                                                  
"SANIERUNGS-"                                                 Arial Narrow                                                  "K A P I T A L B E I T R A G"                                 Arial Narrow                                                  	"Entgelt"                                                     Arial Narrow                                                  "Umlage"                                                      Arial Narrow                                                  "GELD"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  " %"                                                          Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Summe der Umlagen (UM)"                                      Arial Narrow                                                  "Sanierungsgelder (SG)"                                       Arial Narrow                                                  "Kapitalbeitrge (KD)"                                        Arial Narrow                                                  sum_UM                                                        Arial Narrow                                                  sum_SG                                                        Arial Narrow                                                  sum_KD                                                        Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         	ZVK1.name                                                     Arial Narrow                                                  ZVK1.sp2                                                      Arial Narrow                                                  ZVK1.sp1                                                      Arial Narrow                                                  ZVK1.sp4                                                      Arial Narrow                                                  ZVK1.sp3                                                      Arial Narrow                                                  ZVK1.sp6                                                      Arial Narrow                                                  ZVK1.sp5                                                      Arial Narrow                                                  .not. empty(zvk1.sp5)                                         ZVK1.sp8                                                      Arial Narrow                                                  ZVK1.sp7                                                      Arial Narrow                                                  ZVK1.sp9                                                      Arial Narrow                                                  sum_sp2                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp1                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp4                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp3                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp6                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp5 > 0                                                   sum_sp8                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp7                                                       "999999.99"                                                   Arial Narrow                                                  sum_sp9                                                       
"99999.99"                                                    Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "E N T G E L T"                                               Arial Narrow                                                  "N O R M A L U M L A G E"                                     Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "Z U S A T Z U M L A G E"                                     Arial Narrow                                                  
"SANIERUNGS-"                                                 Arial Narrow                                                  "K A P I T A L B E I T R A G"                                 Arial Narrow                                                  	"Entgelt"                                                     Arial Narrow                                                  "Umlage"                                                      Arial Narrow                                                  "GELD"                                                        Arial Narrow                                                  "AG-Anteil"                                                   Arial Narrow                                                  "AN-Anteil"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  " %"                                                          Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Summe der Umlagen (UM)"                                      Arial Narrow                                                  "Sanierungsgelder (SG)"                                       Arial Narrow                                                  "Kapitalbeitrge (KD)"                                        Arial Narrow                                                  sum_UM                                                        Arial Narrow                                                  sum_SG                                                        Arial Narrow                                                  sum_KD                                                        Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0|   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          16355.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2396.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           3646.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5S90N7S0F           9  8                          25313.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 3125.000 1666.66722083.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 3125.000 1666.66718437.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4375.00022083.333 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0       18750.000 3125.000 1770.83316875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0       18750.00032708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0       18750.00025208.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    !   18750.00049270.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    #   18750.00040833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    %   18750.00065937.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    '   18750.00057395.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    )   18750.00081770.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    +   18750.00073750.000 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    -   18750.00089791.667 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           16250.000 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    /   29375.00032708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    1   29375.00025208.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    02     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    3   29375.00049270.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    5   29375.00040833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    7   29375.00065937.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    9   29375.00057395.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    ;   29375.00081770.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    =   29375.00073750.000 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    ?   29375.00089791.667 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           28854.167 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    A   29479.167 3645.833 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               B     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    C   10416.667 3020.833 1562.500 3750.000                               -1   -1   -1   -1   -1   -1               D     0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5S20KK1BE1354583150 5  0    E   10104.16738020.833 2083.33316145.833                               -1   -1   -1   -1   -1   -1               F     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    G   12500.00043854.167 1562.500 3541.667                               -1   -1   -1   -1   -1   -1               H     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    I   12500.00052604.167 1562.500 3229.167                               -1   -1   -1   -1   -1   -1               J     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    K   10104.16773437.500 2083.33323020.833                               -1   -1   -1   -1   -1   -1               L     0 12  1       FFFTF  F          0T                      0FTT0 0FM        WINDOWS _5S20KSGI51354583361 5  0    O   10416.667105937.50 2083.333 6875.000                               -1   -1   -1   -1   -1   -1               P     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           10000.00024583.33310833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L01EB1354583547 5  0    Q   12500.00060520.833 1562.500 3437.500                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20L42ZQ1354583650 6           10000.00065312.50010833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           10000.000104895.8310833.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LKFUN1354584183 5  0    S   14166.66744583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    U   14166.66728958.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    W   14166.66753020.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    Y   14166.66761145.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               Z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LOPE51354584291 6           18229.16765312.500 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _5S20LUPTJ1354584439 5  0    [   32500.000 3645.833 1562.500 9479.167                               -1   -1   -1   -1   -1   -1               \     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S20LVJPX1354584460 6           28541.66765312.500 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ11354584460 6           28541.667104895.83 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVWMX1354584469 6           31666.667 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S80WM7WV1355053475 6           28333.33365312.500 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WS32R1355053620 5  0    ]   32500.00035208.333 1562.500 6458.333                               -1   -1   -1   -1   -1   -1               ^     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S80WSJCL1355053632 5  0    _   32500.00052500.000 1562.500 8958.333                               -1   -1   -1   -1   -1   -1               `     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90M2LPU1355108923 8  0    a    6354.167 3125.000 1666.66718333.333                   C           -1   -1   -1   -1   -1   -1               b     0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5S90MGW4R1355109280 5  0    c   12500.00028333.333 1562.500 3437.500                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MHQDX1355109300 5  0    e   14166.66736458.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MHQDY1355109300 5  0    g   12500.00035625.000 1562.500 3645.833                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Q1355109576 5  0    i   12500.00084791.667 1562.500 3541.667                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7R1355109576 5  0    k   12500.00093125.000 1562.500 3229.167                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7S1355109576 5  0    m   12500.000100833.33 1562.500 3437.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7T1355109576 5  0    o   14166.66785520.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7U1355109576 5  0    q   14166.66769687.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7V1355109576 5  0    s   14166.66793541.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7W1355109576 5  0    u   14166.667101458.33 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7X1355109576 5  0    w   12500.00069062.500 1562.500 3437.500                               -1   -1   -1   -1   -1   -1               x     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Y1355109576 5  0    y   14166.66777500.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Z1355109576 5  0    {   12500.00076666.667 1562.500 3645.833                               -1   -1   -1   -1   -1   -1               |     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MWHL01355109668 8  0    }   18750.00097708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0~     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S90MWMGU1355109671 8  0       18750.000106250.00 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S90MZI661355109743 5  0       12500.000108333.33 1562.500 4479.167                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MZI671355109743 5  0       14166.667110000.00 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90N4RFU1355109873 6           28333.33324583.333 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S90N5SGB1355109899 8  0       29375.00097708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90N5YWT1355109903 8  0       29375.000106250.00 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NABNL1355110011 5  0       32500.00076562.500 1562.500 5833.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NBDX31355110038 5  0       34166.66758645.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NBDX41355110038 5  0       34166.66779583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NBDX61355110038 5  0       34166.66738854.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NDU111355110099 6           35833.333 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S90NE68R1355110107 5  0       36354.167 3645.833 1562.500 5416.667                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NEJRZ1355110117 5  0       38125.000 3645.833 1562.500 6562.500                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NEXQ71355110127 5  0       39895.833 3645.833 1562.500 8854.167                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NFB3L1355110135 5  0       41666.667 3645.833 1562.50010520.833                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NFRKX1355110148 5  0       43437.500 3645.833 1562.50011041.667                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NG6TJ1355110158 5  0       45208.333 3645.833 1562.50013020.833                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NGRL11355110171 5  0       46979.167 3645.833 1562.50011458.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NIULV1355110224 8  0       36250.00035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJCP91355110236 8  0       36250.00054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJOSU1355110245 8  0       36250.00075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSK1355110252 8  0       38020.83335104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSL1355110252 8  0       38020.83354895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSM1355110252 8  0       38020.83375833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC21355110267 8  0       39791.66735104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC31355110267 8  0       39791.66754895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC41355110267 8  0       39791.66775833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGI1355110413 8  0       41562.50035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGJ1355110413 8  0       41562.50054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGK1355110413 8  0       41562.50075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAA1355110426 8  0       45104.16735104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAB1355110426 8  0       45104.16754895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAC1355110426 8  0       45104.16775833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NMCIO1355110439 8  0       46875.00035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NMCIP1355110439 8  0       46875.00054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NMCIQ1355110439 8  0       46875.00075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE4Y1355110489 8  0       43333.33335104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE4Z1355110489 8  0       43333.33354895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE501355110489 8  0       43333.33375833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90OAGCX1355111040 5  0       10104.16773437.500 2083.33323020.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF0 0F        WINDOWS _5S90PD7EW1355112004 6           49062.500 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S90PDG0C1355112009 5  0       49583.333 3645.833 1562.50011458.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90PDG0D1355112009 8  0       49479.16735104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDG0E1355112009 8  0       49479.16754895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDG0F1355112009 8  0       49479.16775833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDQVQ1355112016 6           51666.667 3020.833  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _6340KBXAE1390300069 6           18229.16724583.333 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KCEB41390300080 6           18229.167104895.83 2812.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     23              20.000    6.000   16.000   19.000                                4    0                                        0 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         lstrnachweis.name                                             Arial Narrow                                                  lstrnachweis.sp2                                              Arial Narrow                                                  lstrnachweis.sp1                                              Arial Narrow                                                  lstrnachweis.sp4                                              Arial Narrow                                                  lstrnachweis.sp3                                              Arial Narrow                                                  lstrnachweis.sp6                                              Arial Narrow                                                  lstrnachweis.sp5                                              Arial Narrow                                                  lstrnachweis.sp8                                              Arial Narrow                                                  lstrnachweis.sp7                                              Arial Narrow                                                  lstrnachweis.sp9                                              Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "Steuern auf das ENTGELT"                                     Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  $"Pauschalsteuern auf die VBL-Umlage"                          Arial Narrow                                                  K(zi(1+4) >= 9 .And. zi(1+4) <= 11) .Or. (zi(1+4) >= 17 .And. zi(1+4) <= 19)                                                   "Kindergeld"                                                  Arial Narrow                                                  
"ak.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Zusammenstelliung"                                           Arial Narrow                                                  "Steuerabzge"                                                Arial Narrow                                                  "AG-Pauschalsteuer"                                           Arial Narrow                                                  2                                                            Arial                                                         
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  
"ak.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  lstrnachweis.sp10                                             Arial Narrow                                                  lstrnachweis.sp11                                             Arial Narrow                                                  "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  sum_sp11                                                      Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Lohnsteuer"                                                  Arial Narrow                                                  "./. Kindergeld"                                              Arial Narrow                                                  "= Zwischensumme"                                             Arial Narrow                                                  "+ Solidarittszuschlag"                                      Arial Narrow                                                  "+ Evang. Kirchensteuer"                                      Arial Narrow                                                  "+ Rm.-kath. Kirchensteuer"                                  Arial Narrow                                                  "+ Altkath. Kirchensteuer"                                    Arial Narrow                                                  l_sp1                                                         Arial Narrow                                                  l_sp2                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  k_sp1                                                         Arial Narrow                                                  k_sp2                                                         Arial Narrow                                                  k_sp3                                                         Arial Narrow                                                  z_sp1                                                         Arial Narrow                                                  z_sp2                                                         Arial Narrow                                                  z_sp3                                                         Arial Narrow                                                  s_sp1                                                         Arial Narrow                                                  s_sp2                                                         Arial Narrow                                                  s_sp3                                                         Arial Narrow                                                  r_sp1                                                         Arial Narrow                                                  r_sp2                                                         Arial Narrow                                                  r_sp3                                                         Arial Narrow                                                  a_sp1                                                         Arial Narrow                                                  a_sp2                                                         Arial Narrow                                                  a_sp3                                                         Arial Narrow                                                  e_sp1                                                         Arial Narrow                                                  e_sp2                                                         Arial Narrow                                                  e_sp3                                                         Arial Narrow                                                  $"Pauschalsteuern auf die ZVK-Umlage"                          Arial Narrow                                                  ](zi(1+4) >= 0 .And. zi(1+4) <= 8) .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or.  zi(1+4) > 20                                 "= Abzuliefernde Summe"                                       Arial Narrow                                                  as_sp1                                                        Arial Narrow                                                  as_sp2                                                        Arial Narrow                                                  as_sp3                                                        Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         lstrnachweis.name                                             Arial Narrow                                                  lstrnachweis.sp2                                              Arial Narrow                                                  lstrnachweis.sp1                                              Arial Narrow                                                  lstrnachweis.sp4                                              Arial Narrow                                                  lstrnachweis.sp3                                              Arial Narrow                                                  lstrnachweis.sp6                                              Arial Narrow                                                  lstrnachweis.sp5                                              Arial Narrow                                                  lstrnachweis.sp8                                              Arial Narrow                                                  lstrnachweis.sp7                                              Arial Narrow                                                  lstrnachweis.sp9                                              Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "Steuern auf das ENTGELT"                                     Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  $"Pauschalsteuern auf die VBL-Umlage"                          Arial Narrow                                                  K(zi(1+4) >= 9 .And. zi(1+4) <= 11) .Or. (zi(1+4) >= 17 .And. zi(1+4) <= 19)                                                   "Kindergeld"                                                  Arial Narrow                                                  
"ak.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Zusammenstelliung"                                           Arial Narrow                                                  "Steuerabzge"                                                Arial Narrow                                                  "AG-Pauschalsteuer"                                           Arial Narrow                                                  2                                                            Arial                                                         
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  
"ak.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  lstrnachweis.sp10                                             Arial Narrow                                                  lstrnachweis.sp11                                             Arial Narrow                                                  "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  sum_sp11                                                      Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Lohnsteuer"                                                  Arial Narrow                                                  "./. Kindergeld"                                              Arial Narrow                                                  "= Zwischensumme"                                             Arial Narrow                                                  "+ Solidarittszuschlag"                                      Arial Narrow                                                  "+ Evang. Kirchensteuer"                                      Arial Narrow                                                  "+ Rm.-kath. Kirchensteuer"                                  Arial Narrow                                                  "+ Altkath. Kirchensteuer"                                    Arial Narrow                                                  l_sp1                                                         Arial Narrow                                                  l_sp2                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  k_sp1                                                         Arial Narrow                                                  k_sp2                                                         Arial Narrow                                                  k_sp3                                                         Arial Narrow                                                  z_sp1                                                         Arial Narrow                                                  z_sp2                                                         Arial Narrow                                                  z_sp3                                                         Arial Narrow                                                  s_sp1                                                         Arial Narrow                                                  s_sp2                                                         Arial Narrow                                                  s_sp3                                                         Arial Narrow                                                  r_sp1                                                         Arial Narrow                                                  r_sp2                                                         Arial Narrow                                                  r_sp3                                                         Arial Narrow                                                  a_sp1                                                         Arial Narrow                                                  a_sp2                                                         Arial Narrow                                                  a_sp3                                                         Arial Narrow                                                  e_sp1                                                         Arial Narrow                                                  e_sp2                                                         Arial Narrow                                                  e_sp3                                                         Arial Narrow                                                  $"Pauschalsteuern auf die ZVK-Umlage"                          Arial Narrow                                                  ](zi(1+4) >= 0 .And. zi(1+4) <= 8) .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or.  zi(1+4) > 20                                 "= Abzuliefernde Summe"                                       Arial Narrow                                                  as_sp1                                                        Arial Narrow                                                  as_sp2                                                        Arial Narrow                                                  as_sp3                                                        Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0u   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          16355.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           2292.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           3646.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5S90N7S0F           9  8                          25313.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5QV0L692S1351634582 8  0        4375.00098437.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        2291.667 2916.667 1666.66721979.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        4375.000 2916.667 1666.66718750.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        4375.00098541.667 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        4583.33322395.833 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10IDYTC1354515543 8  0       18750.000 3125.000 1770.83316875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTD1354515543 8  0       18750.00032708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTE1354515543 8  0       18750.00025208.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0      0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTF1354515543 8  0    !   18750.00049270.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IDYTG1354515543 8  0    #   18750.00040833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF41354515618 8  0    %   18750.00065937.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF51354515618 8  0    '   18750.00057395.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF61354515618 8  0    )   18750.00081770.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IGXF71354515618 8  0    +   18750.00073750.000 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0,     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10IY4PM1354516045 8  0    -   18750.00089791.667 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0.     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S10J3A231354516173 6           15937.500 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0    /   29270.83332708.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    00     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0    1   29270.83325208.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    02     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0    3   29270.83349270.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0    5   29270.83340833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    06     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0    7   29270.83365937.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    08     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0    9   29270.83357395.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0    ;   29270.83381770.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0    =   29270.83373750.000 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0    ?   29270.83389791.667 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           28750.000 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0    A   29375.000 3645.833 1562.500 4895.833                               -1   -1   -1   -1   -1   -1               B     1  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KJSUE1354583149 5  0    C   10416.667 3020.833 1562.500 3750.000                               -1   -1   -1   -1   -1   -1               D     0  8  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5S20KK1BE1354583150 5  0    E   10104.16738020.833 2083.33316145.833                               -1   -1   -1   -1   -1   -1               F     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPBNX1354583281 5  0    G   12500.00052291.667 1562.500 3541.667                               -1   -1   -1   -1   -1   -1               H     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KPR921354583292 5  0    I   12500.00060729.167 1562.500 3229.167                               -1   -1   -1   -1   -1   -1               J     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KRX1L1354583346 5  0    K   10104.16773437.500 2083.33323020.833                               -1   -1   -1   -1   -1   -1               L     0 12  1       FFFTF  F          0T                      0FTT0 0FM        WINDOWS _5S20KSGI51354583361 5  0    O   10416.66799375.000 2083.333 6875.000                               -1   -1   -1   -1   -1   -1               P     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20KUAAH1354583405 6           10000.00024583.33310729.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L42ZQ1354583650 6           10000.00065312.50010729.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20L4XAK1354583669 6           10000.00098333.33310729.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LKFUN1354584183 5  0    Q   14166.66744583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               R     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLQ0V1354584215 5  0    S   14166.66728958.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               T     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LLWCN1354584219 5  0    U   14166.66753020.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               V     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LM15F1354584224 5  0    W   14166.66761145.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               X     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S20LOPE51354584291 6           18229.16765312.500 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _5S20LUPTJ1354584439 5  0    Y   32395.833 3645.833 1562.500 9479.167                               -1   -1   -1   -1   -1   -1               Z     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S20LVJPX1354584460 6           28437.50065312.500 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVJQ11354584460 6           28437.50098333.333 3229.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S20LVWMX1354584469 6           31562.500 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S80WM7WV1355053475 6           28229.16765312.500 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S80WS32R1355053620 5  0    [   32395.83335208.333 1562.500 6458.333                               -1   -1   -1   -1   -1   -1               \     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S80WSJCL1355053632 5  0    ]   32395.83352500.000 1562.500 8958.333                               -1   -1   -1   -1   -1   -1               ^     1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90M2LPU1355108923 8  0    _    6354.167 2916.667 1666.66718750.000                   C           -1   -1   -1   -1   -1   -1               `     0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5S90MGW4R1355109280 5  0    a   12500.00026145.833 1562.500 5625.000                               -1   -1   -1   -1   -1   -1               b     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MHQDX1355109300 5  0    c   14166.66736458.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               d     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MHQDY1355109300 5  0    e   12500.00043750.000 1562.500 3645.833                               -1   -1   -1   -1   -1   -1               f     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Q1355109576 5  0    g   12500.00084791.667 1562.500 3541.667                               -1   -1   -1   -1   -1   -1               h     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7R1355109576 5  0    i   12500.00093125.000 1562.500 3229.167                               -1   -1   -1   -1   -1   -1               j     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7T1355109576 5  0    k   14166.66785520.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               l     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7U1355109576 5  0    m   14166.66769687.500 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               n     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7V1355109576 5  0    o   14166.66793541.667 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               p     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7X1355109576 5  0    q   12500.00069062.500 1562.500 3437.500                               -1   -1   -1   -1   -1   -1               r     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Y1355109576 5  0    s   14166.66777500.000 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               t     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MST7Z1355109576 5  0    u   12500.00076666.667 1562.500 3645.833                               -1   -1   -1   -1   -1   -1               v     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MWHL01355109668 8  0    w   18750.00099687.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0x     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5S90MZI661355109743 5  0    y   12500.000101770.83 1562.500 4479.167                               -1   -1   -1   -1   -1   -1               z     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90MZI671355109743 5  0    {   14166.667103437.50 1562.500 2812.500                               -1   -1   -1   -1   -1   -1               |     0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90N4RFU1355109873 6           28229.16724583.333 3437.500  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5S90N5SGB1355109899 8  0    }   29270.83399687.500 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0~     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NABNL1355110011 5  0       32395.83376562.500 1562.500 5833.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NBDX31355110038 5  0       34062.50058645.833 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NBDX41355110038 5  0       34062.50079583.333 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NBDX61355110038 5  0       34062.50038854.167 1562.500 2812.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90NDU111355110099 6           35729.167 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S90NE68R1355110107 5  0       36250.000 3645.833 1562.500 5416.667                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NEJRZ1355110117 5  0       38020.833 3645.833 1562.500 6562.500                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NEXQ71355110127 5  0       39791.667 3645.833 1562.500 8854.167                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NFB3L1355110135 5  0       41562.500 3645.833 1562.50010520.833                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90NIULV1355110224 8  0       36145.83335104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJCP91355110236 8  0       36145.83354895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJOSU1355110245 8  0       36145.83375833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSK1355110252 8  0       37916.66735104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSL1355110252 8  0       37916.66754895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NJYSM1355110252 8  0       37916.66775833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC21355110267 8  0       39687.50035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC31355110267 8  0       39687.50054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NKMC41355110267 8  0       39687.50075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGI1355110413 8  0       41458.33335104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGJ1355110413 8  0       41458.33354895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLBGK1355110413 8  0       41458.33375833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAA1355110426 8  0       45000.00035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAB1355110426 8  0       45000.00054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NLUAC1355110426 8  0       45000.00075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE4Y1355110489 8  0       43229.16735104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE4Z1355110489 8  0       43229.16754895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90NOE501355110489 8  0       43229.16775833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90OAGCX1355111040 5  0       10104.16773437.500 2083.33323020.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5S90PD7EW1355112004 6           47083.333 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S90PDG0C1355112009 5  0       47604.167 3645.833 1562.50011458.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _5S90PDG0D1355112009 8  0       47500.00035104.167 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDG0E1355112009 8  0       47500.00054895.833 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDG0F1355112009 8  0       47500.00075833.333 1770.833 6562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S90PDQVQ1355112016 6           49687.500 3020.833  104.167105625.00                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S90Q6HCM1355112859 8  0        6458.33322395.833 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S90VD0X21355117756 5  0       12500.00035833.333 1562.500 3437.500                               -1   -1   -1   -1   -1   -1                    0  8  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5S90WY8D71355119309 8  0       45000.000 3645.833 1770.83316562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTF0 0F         WINDOWS _5S90WY8D81355119309 8  0       43229.167 3645.833 1770.83316562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTF0 0F         WINDOWS _6340KHB0H1390300202 6           18229.16798333.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS _6340KHP3W1390300212 6           18229.16724583.333 2604.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FTFTF  F                     0             FTF3 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     23              20.000    6.000   16.000   19.000                                4    0                                        0 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         lstrnachweis2.name                                            Arial Narrow                                                  lstrnachweis2.sp2                                             Arial Narrow                                                  lstrnachweis2.sp1                                             Arial Narrow                                                  lstrnachweis2.sp4                                             Arial Narrow                                                  lstrnachweis2.sp3                                             Arial Narrow                                                  lstrnachweis2.sp6                                             Arial Narrow                                                  lstrnachweis2.sp5                                             Arial Narrow                                                  lstrnachweis2.sp8                                             Arial Narrow                                                  lstrnachweis2.sp7                                             Arial Narrow                                                  lstrnachweis2.sp9                                             Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "Steuern auf das ENTGELT"                                     Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  $"Pauschalsteuern auf die VBL-Umlage"                          Arial Narrow                                                  K(zi(1+4) >= 9 .And. zi(1+4) <= 11) .Or. (zi(1+4) >= 17 .And. zi(1+4) <= 19)                                                   "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Zusammenstelliung"                                           Arial Narrow                                                  "Steuerabzge"                                                Arial Narrow                                                  "AG-Pauschalsteuer"                                           Arial Narrow                                                  3                                                            Arial                                                         "Str.Pfl.Entgelt"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  lstrnachweis2.sp10                                            Arial Narrow                                                  "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Lohnsteuer"                                                  Arial Narrow                                                  "./. Kindergeld"                                              Arial Narrow                                                  "= Zwischensumme"                                             Arial Narrow                                                  "+ Solidarittszuschlag"                                      Arial Narrow                                                  l_sp1                                                         Arial Narrow                                                  l_sp2                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  k_sp1                                                         Arial Narrow                                                  k_sp2                                                         Arial Narrow                                                  k_sp3                                                         Arial Narrow                                                  z_sp1                                                         Arial Narrow                                                  z_sp2                                                         Arial Narrow                                                  z_sp3                                                         Arial Narrow                                                  s_sp1                                                         Arial Narrow                                                  s_sp2                                                         Arial Narrow                                                  s_sp3                                                         Arial Narrow                                                  r_sp1                                                         Arial Narrow                                                  r_sp2                                                         Arial Narrow                                                  r_sp3                                                         Arial Narrow                                                  e_sp1                                                         Arial Narrow                                                  e_sp2                                                         Arial Narrow                                                  e_sp3                                                         Arial Narrow                                                  $"Pauschalsteuern auf die ZVK-Umlage"                          Arial Narrow                                                  ](zi(1+4) >= 0 .And. zi(1+4) <= 8) .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or.  zi(1+4) > 20                                 "= Abzuliefernde Summe"                                       Arial Narrow                                                  as_sp1                                                        Arial Narrow                                                  as_sp2                                                        Arial Narrow                                                  as_sp3                                                        Arial Narrow                                                  2                                                            Arial                                                         
"Lohnstr."                                                    Arial Narrow                                                  r_sp0                                                         Arial Narrow                                                  e_sp0                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         lstrnachweis2.name                                            Arial Narrow                                                  lstrnachweis2.sp2                                             Arial Narrow                                                  lstrnachweis2.sp1                                             Arial Narrow                                                  lstrnachweis2.sp4                                             Arial Narrow                                                  lstrnachweis2.sp3                                             Arial Narrow                                                  lstrnachweis2.sp6                                             Arial Narrow                                                  lstrnachweis2.sp5                                             Arial Narrow                                                  lstrnachweis2.sp8                                             Arial Narrow                                                  lstrnachweis2.sp7                                             Arial Narrow                                                  lstrnachweis2.sp9                                             Arial Narrow                                                  sum_sp2                                                       Arial Narrow                                                  sum_sp1                                                       Arial Narrow                                                  sum_sp4                                                       Arial Narrow                                                  sum_sp3                                                       Arial Narrow                                                  sum_sp6                                                       Arial Narrow                                                  sum_sp5                                                       Arial Narrow                                                  sum_sp8                                                       Arial Narrow                                                  sum_sp7                                                       Arial Narrow                                                  sum_sp9                                                       Arial Narrow                                                  "S U M M E"                                                   Arial Narrow                                                  	"N A M E"                                                     Arial Narrow                                                  "Steuern auf das ENTGELT"                                     Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  $"Pauschalsteuern auf die VBL-Umlage"                          Arial Narrow                                                  K(zi(1+4) >= 9 .And. zi(1+4) <= 11) .Or. (zi(1+4) >= 17 .And. zi(1+4) <= 19)                                                   "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Zusammenstelliung"                                           Arial Narrow                                                  "Steuerabzge"                                                Arial Narrow                                                  "AG-Pauschalsteuer"                                           Arial Narrow                                                  3                                                            Arial                                                         "Str.Pfl.Entgelt"                                             Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  
"ev.KStr."                                                    Arial Narrow                                                  
"rk.KStr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Lohnstr."                                                    Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  
"Sol.Zus."                                                    Arial Narrow                                                  lstrnachweis2.sp10                                            Arial Narrow                                                  "Kindergeld"                                                  Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  sum_sp10                                                      Arial Narrow                                                  "Quersumme"                                                   Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "EURO"                                                        Arial Narrow                                                  "Lohnsteuer"                                                  Arial Narrow                                                  "./. Kindergeld"                                              Arial Narrow                                                  "= Zwischensumme"                                             Arial Narrow                                                  "+ Solidarittszuschlag"                                      Arial Narrow                                                  l_sp1                                                         Arial Narrow                                                  l_sp2                                                         Arial Narrow                                                  l_sp3                                                         Arial Narrow                                                  k_sp1                                                         Arial Narrow                                                  k_sp2                                                         Arial Narrow                                                  k_sp3                                                         Arial Narrow                                                  z_sp1                                                         Arial Narrow                                                  z_sp2                                                         Arial Narrow                                                  z_sp3                                                         Arial Narrow                                                  s_sp1                                                         Arial Narrow                                                  s_sp2                                                         Arial Narrow                                                  s_sp3                                                         Arial Narrow                                                  r_sp1                                                         Arial Narrow                                                  r_sp2                                                         Arial Narrow                                                  r_sp3                                                         Arial Narrow                                                  e_sp1                                                         Arial Narrow                                                  e_sp2                                                         Arial Narrow                                                  e_sp3                                                         Arial Narrow                                                  $"Pauschalsteuern auf die ZVK-Umlage"                          Arial Narrow                                                  ](zi(1+4) >= 0 .And. zi(1+4) <= 8) .Or. (zi(1+4) >= 12 .And. zi(1+4) <= 16) .Or.  zi(1+4) > 20                                 "= Abzuliefernde Summe"                                       Arial Narrow                                                  as_sp1                                                        Arial Narrow                                                  as_sp2                                                        Arial Narrow                                                  as_sp3                                                        Arial Narrow                                                  2                                                            Arial                                                         
"Lohnstr."                                                    Arial Narrow                                                  r_sp0                                                         Arial Narrow                                                  e_sp0                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0,   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SC0JBTOC1355302946 1 53           1.000    0.000    0.00082666.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0 10  121F 3 3FFFTF00F 0FFF  0  0TFFFFFFT  2  0  0 0 1  1TTT0 0F         WINDOWS _5SC0JBTOD           9  1                          55105.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SC0JBTOE           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SC0JBTOF           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SC0JDUC21355302995 8  0        1770.83313125.000 1875.00056354.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  2  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JG5Z81355303053 7  4        15833.333 3125.00011145.83329687.500                               -1   -1   -1  233  233  233    1    8    1            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SC0JKQEU1355303168 8  0        5104.167 2916.667 1666.66720104.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JKQEV1355303168 8  0        6875.000 2916.667 1666.66720104.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JL2421355303175 8  0        8645.833 2916.667 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JL2431355303175 8  0       10416.667 2916.667 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JMPEF1355303216 8  0       12187.500 2916.667 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0JOMXD1355303265 8  0        5104.16755416.667 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5SC0JOMXE1355303265 8  0        5104.16755416.667 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OCMZR1355307700 8  0    !   16770.833 3645.833 1666.66728333.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0"     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OCYP71355307707 8  0    #   19270.833 3645.833 1666.66728333.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OEIG21355307747 8  0    %   21875.000 3645.833 1666.66728333.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0&     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OEIG31355307747 8  0    '   24375.000 3645.833 1666.66728333.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0(     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OH1DC1355307813 5  0    )   10520.83341666.667 1666.667 5416.667                               -1   -1   -1   -1   -1   -1               *     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OHIFF1355307821 5  0    +   12187.50041666.667 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               ,     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OI1D01355307834 5  0    -   13854.16741666.667 1666.667 6666.667                               -1   -1   -1   -1   -1   -1               .     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OICRY1355307843 5  0    /   15520.83341666.667 1666.667 5416.667                               -1   -1   -1   -1   -1   -1               0     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OIQIC1355307852 5  0    1   18854.16741666.667 1666.667 5104.167                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OJ67T1355307862 5  0    3   20520.83341666.667 1666.667 5208.333                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OJI5V1355307872 5  0    5   22187.50041666.667 1666.66715000.000                               -1   -1   -1   -1   -1   -1               6     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OJWC41355307881 5  0    7   23854.16741666.667 1666.66717187.500                               -1   -1   -1   -1   -1   -1               8     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OMYVU1355307957 5  0    9   17187.50041666.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               :     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5SC0OP14M1355308009 8  0    ;   10520.83360208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0<     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OPY4B1355308032 8  0    =   12187.50060208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0>     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OQG671355308044 8  0    ?   13854.16760208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0@     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0ORC421355308067 8  0    A   15520.83360208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0B     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OT63W1355308111 8  0    C   17187.50060208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0D     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OVGNV1355308169 8  0    E   18854.16760208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0F     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OWO8P1355308199 8  0    G   20520.83360208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0H     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OXLC61355308221 8  0    I   22187.50060208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0J     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0OZJDT1355308270 8  0    K   23854.16760208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0L     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5SC0PBDVE1355308564 8  0    M   30729.167 3333.333 1666.667 3437.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0N     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5SC0PBSEG1355308576 8  0    O   30729.167 8125.000 1666.66750833.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0P     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT3 0F         WINDOWS _5SC0PCAHP1355308587 8  0    Q   30729.16760208.333 1666.667 9270.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0R     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _5UX0MF7XT1361662837 6           33020.833 2916.667  104.16767604.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   S     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   T     1 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   U     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   V     0 10                                                     F               WINDOWS                     25   W   X                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   1                                                            Arial                                                         ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext8                                                       Arial                                                         ditext9                                                       Arial                                                         
steuernummer                                                 Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                adr1                                                          Arial                                                         adr2                                                          Arial                                                         adr3                                                          Arial                                                         adr4                                                          Arial                                                         "Pers. Nr."                                                   Arial                                                         "Steuer-ID"                                                   Arial                                                         "Geburtstag"                                                  Arial                                                         "Steuerkl."                                                   Arial                                                         "Ki.Freib."                                                   Arial                                                         
"Rel.Bek."                                                    Arial                                                         "Steuerfreier Jahresbetrag"                                   Arial                                                         "Jahreshinzurechnungsbetrag"                                  Arial                                                         "Faktor"                                                      Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         alltrim(wnw.Ztext3)                                           Arial                                                         alltrim(wnw.Ztext0)                                           Arial                                                         d_stkl                                                        Arial                                                         
d_stkl_faktor                                                 Arial                                                         	d_ki_frei                                                     Arial                                                         	d_rel_bek                                                     Arial                                                         d_stfr_jahresbetrag                                           Arial                                                         
d_jahreshinzu                                                 Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   1                                                            Arial                                                         ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext8                                                       Arial                                                         ditext9                                                       Arial                                                         
steuernummer                                                 Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                adr1                                                          Arial                                                         adr2                                                          Arial                                                         adr3                                                          Arial                                                         adr4                                                          Arial                                                         "Pers. Nr."                                                   Arial                                                         "Steuer-ID"                                                   Arial                                                         "Geburtstag"                                                  Arial                                                         "Steuerkl."                                                   Arial                                                         "Ki.Freib."                                                   Arial                                                         
"Rel.Bek."                                                    Arial                                                         "Steuerfreier Jahresbetrag"                                   Arial                                                         "Jahreshinzurechnungsbetrag"                                  Arial                                                         "Faktor"                                                      Arial                                                         alltrim(wnw.ZPersNr)                                          Arial                                                         alltrim(wnw.Ztext3)                                           Arial                                                         alltrim(wnw.Ztext0)                                           Arial                                                         d_stkl                                                        Arial                                                         
d_stkl_faktor                                                 Arial                                                         	d_ki_frei                                                     Arial                                                         	d_rel_bek                                                     Arial                                                         d_stfr_jahresbetrag                                           Arial                                                         
d_jahreshinzu                                                 Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5SD0MCJ4P1356291766      /  F      ]                          Q      Z                       WINDOWS _5SR0NVOP61417173593                                                                       WINDOWS _5SD0MCJ4Q1417173593c      o  {            K  Q                                               WINDOWS _5SD0MCJ4R1358383232f	      {	  	  	  	      
                                                 WINDOWS _5SD0MCJ4S1356302433            +        g                                               WINDOWS _5SD0MCJ4T13563024338      G  V  d  q                                                       WINDOWS _5SD0MCJ4U1356302433z                                                                   WINDOWS _5SD0MCJ4V1356302433                       C!  #                                               WINDOWS _5SD0MCJ4W1356302433$      $  %  %  !%      l%  H'                                               WINDOWS _5SD0MCJ4P1356291766)      )  ()  6)  C)                                                           WINDOWS _5SR0PFCZ41356291766)      )  )  )  )                                                           WINDOWS _5SD0MCJ4P13562917662*      ?*  L*  Z*  g*                                                           WINDOWS _5SD0MCJ4P1356291766*      *  *  *  *                                                           WINDOWS _5SR0PFCZ51356291766J+      W+  d+  r+  +                                                           WINDOWS _5SR0PFCZ61356291766+      +  +  ,  ,                                                           WINDOWS _5SD0MCJ4P1356291766h,      u,  ,  ,  ,                                                           WINDOWS _5SR0PFCZ71356291766-      -  -  *-  7-                                                           WINDOWS _5T80KYL0K1357532631-  -  -  -  -  -                                                           COMMENT RESERVED                                z.                                                            .                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      CAlias = "teilzeit"
CursorSource = teilzeit.dbf
Name = "Cursor1"
      2      1      form      form      FORM1      Height = 705
Width = 588
DoCreate = .T.
AutoCenter = .T.
Caption = "Druckvorschu"
ControlBox = .F.
FontBold = .T.
FontSize = 14
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
IF giveselect("teilzeit") = 0
	CREATE CURSOR teilzeit (fett l(1), sp_text c(35), sp_1 c(10), sp_2 c(10), sp_3 c(10) , sp_4 c(10), strich l(1))
endif
SELECT teilzeit
*!*	SET safety off
*!*	ZAP
*!*	SET SAFETY on
PUBLIC mydruckvorschau
mydruckvortschau = thisform
PUBLIC 1,2,3,4,5,6,7,8,9,10
STORE "" TO 1,2,3,4,5,6,7,8,9,10
THISFORM.grdTeilzeit.SetAll("DynamicFontBold", "teilzeit.fett", "Column")

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     
                                 %   c        
               U  P %C teilzeit    z h teilzeit  L  C#  C
  C
  C
  C
  L  F  7	 
 T
  + 7 
         1 J  ( 
         ; C DynamicFontBold
 teilzeit.fett Column    U 
 GIVESELECT TEILZEIT FETT SP_TEXT SP_1 SP_2 SP_3 SP_4 STRICH MYDRUCKVORSCHAU MYDRUCKVORTSCHAU THISFORM 1 2 3 4 5 6 7 8 9 10 GRDTEILZEIT SETALL  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize0    1 A q t  3 1                                       )                           
commandbutton      
commandbutton      Command1      FORM1      WTop = 3
Left = 333
Height = 28
Width = 115
Caption = "drucken"
Name = "Command1"
     PROCEDURE Click
*!*	Druckvorschau.blatt.Cls
select teilzeit
GO top

*!*	Unload Druckvorschau
*!*	Printer.ScaleMode = vbInches

do Case &&indexe
Case myindexe = 16 &&Bruttogehalt 1 Drucker
     DO bruttodrucken
Case myindexe = 11
     DO bruttonetto
Case myindexe = 12
     DO bruttonettoAG
Case myindexe = 13 .or. myindexe =  25
     DO ZVKlstsoz
Case myindexe = 20
*!*	     DO teilzeit
Case myindexe = 22
     DO bescheinigung
Case myindexe = 39
     DO AG_bersicht2 
Case myindexe = 40
     DO ansicht 
Case myindexe = 41
     DO agsicht 
Case myindexe = 42
    DO FlexTV 
Case myindexe = 43
     DO lstrnachweisdrucken 
Case myindexe = 44
     DO jahreslohnsteuernachweis 
Case myindexe = 45
     DO lohnsteuerbescheinigungdrucken 
Case myindexe = 49
     DO kontrolledrucken2 
Case myindexe = 50
     DO kassedrucken 
Case myindexe = 51
     DO bundesknappschaft 
Case myindexe = 53
     DO zvkdrucken 
Case myindexe = 54
     DO zvkjahrdrucken 
Case myindexe = 55
     DO agsicht 
Case myindexe = 56
     DO druckstufenlaufzeit 
CASE myindexe =  57
     DO beitragsjahresnachweis 
Case myindexe = 60
     DO arbeitszeitdruck 
Case myindexe = 61
     DO zeiterfassung 
ENDCASe
*!*	.EndDoc
*!*	.ScaleMode = vbTwips
ENDPROC
                                   h   %         `  3               U  L F   #)
 H E  1     I     a     
               '     (     )  	   *
 
   +%    ,=    -U 
   1m    2    3    5    6    7 	   8    9    <-    =E    U  TEILZEIT MYINDEXE
 BRUTTODRUCKEN BRUTTONETTO
 BRUTTONETTOAG	 ZVKLSTSOZ
 BESCHEINIGUNG
 AG_BERSICHT2 ANSICHT AGSICHT FLEXTV LSTRNACHWEISDRUCKEN JAHRESLOHNSTEUERNACHWEIS LOHNSTEUERBESCHEINIGUNGDRUCKEN KONTROLLEDRUCKEN2 KASSEDRUCKEN BUNDESKNAPPSCHAFT
 ZVKDRUCKEN ZVKJAHRDRUCKEN DRUCKSTUFENLAUFZEIT BEITRAGSJAHRESNACHWEIS ARBEITSZEITDRUCK
 ZEITERFASSUNG Click,     1 r Q  q q q q q q q q q q q q q q q q q q q q q q A 3                             )                           
commandbutton      
commandbutton      Command2      FORM1      YTop = 3
Left = 454
Height = 28
Width = 115
Caption = "schlieen"
Name = "Command2"
     PROCEDURE Click
thisform.release
*!*	If indexe = 20
*!*	&&Originalberechnung
*!*	     wert(0) = wertold(0)
*!*	     betrag(0) = wertold(0)
*!*	     wert(1) = wertold(1)
*!*	     betrag(1) = wertold(1)
*!*	     wert(2) = wertold(2)
*!*	     betrag(2) = wertold(2)
*!*	     wert(3) = wertold(3)
*!*	     betrag(3) = wertold(3)
*!*	     zi(18) = wertold(6)
*!*	     betrag(18) = wertold(7)
*!*	     teilzahl(18) = wertold(8)
*!*	     bruchzahl(18) = wertold(9)
*!*	     teiz(18) = teizold
*!*	     bruz(18) = bruzold
*!*	     DO Berechnung
*!*	     immerfolge = True
*!*	     wertold(5) = 0
*!*	EndIf
*!*	*!*	Druckvorschau.blatt.Cls
*!*	*!*	Druckvorschau.Visible = False
*!*	thisform.release
ENDPROC
                                      D   %   P       g      _             U  
 
     U  THISFORM RELEASE Click,     1  p1                             )                            textbox      textbox      bruch2      FORM1      ?Height = 25
Left = 36
Top = 19
Width = 75
Name = "bruch2"
     PROCEDURE Valid
If this.Value > wert(1+2) / 100000 * 2 
	thisform.effektiv0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
endif

wertold(1+2) = thisform.bruch2.Value * 100000
wertold(1+3) = thisform.bruch3.Value * 100000
Do spaltenfllen &&Do attached
*!*	Druckvorschau.Blatt.Cls
*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
DO teilzeitrechnerkopf
DO teilzeitrechner
RETURN .t.
ENDPROC
                                      %   ?      d     N            U   # %   C  6  T      T       T        	  
  Ba U  THIS VALUE WERT THISFORM	 EFFEKTIV0 WERTOLD BRUCH2 BRUCH3
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER Valid,     1 11A q t q q 1                             )                           textbox      textbox      bruch3      FORM1      ?Height = 25
Left = 36
Top = 46
Width = 75
Name = "bruch3"
     PROCEDURE Valid
If this.Value > wert(1+2) / 100000 * 2 
	thisform.effektiv0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
endif

wertold(1+2) = thisform.bruch2.Value * 100000
wertold(1+3) = thisform.bruch3.Value * 100000
Do spaltenfllen &&Do attached
*!*	Druckvorschau.Blatt.Cls
*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
DO teilzeitrechnerkopf
DO teilzeitrechner
RETURN .t.
ENDPROC
                                      %   ?      d     N            U   # %   C  6  T      T       T        	  
  Ba U  THIS VALUE WERT THISFORM	 EFFEKTIV0 WERTOLD BRUCH2 BRUCH3
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER Valid,     1 11A q t q q 1                             )                           textbox      textbox      	effektiv0      FORM1      CHeight = 25
Left = 168
Top = 19
Width = 75
Name = "effektiv0"
     PROCEDURE Valid
If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
	thisform.effektiv0.Value = 1
endif

wertold(1+0) = thisform.effektiv0.Value * 100000
wertold(1+1) = thisform.effektiv1.Value * 100000
Do spaltenfllen &&Do attached
*!*	Druckvorschau.Blatt.Cls
*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
DO teilzeitrechnerkopf
DO teilzeitrechner
RETURN .t.
ENDPROC
                                      %   7      \     F            U   & %    C  9  T       T        T             Ba U	  THISFORM	 EFFEKTIV0 VALUE WERT WERTOLD	 EFFEKTIV1
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER Valid,     1 a1A q t q q 1                             )                           textbox      textbox      	effektiv1      FORM1      CHeight = 25
Left = 168
Top = 46
Width = 75
Name = "effektiv1"
     PROCEDURE Valid
If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
	thisform.effektiv0.Value = 1
endif

wertold(1+0) = thisform.effektiv0.Value * 100000
wertold(1+1) = thisform.effektiv1.Value * 100000
Do spaltenfllen &&Do attached
*!*	Druckvorschau.Blatt.Cls
*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
DO teilzeitrechnerkopf
DO teilzeitrechner
RETURN .t.
ENDPROC
                                      %   7      \     F            U   & %    C  9  T       T        T             Ba U	  THISFORM	 EFFEKTIV0 VALUE WERT WERTOLD	 EFFEKTIV1
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER Valid,     1 a1A q t q q 1                             )                           label      label      Label5      FORM1      TCaption = "Teilzeit"
Height = 16
Left = 39
Top = 3
Width = 45
Name = "Label5"
      label      label      Label6      FORM1      VCaption = "Teilmonat"
Height = 16
Left = 172
Top = 3
Width = 62
Name = "Label6"
      label      label      Label7      FORM1      OCaption = "fr"
Height = 16
Left = 9
Top = 24
Width = 19
Name = "Label7"
      label      label      Label8      FORM1      OCaption = "von"
Height = 16
Left = 9
Top = 50
Width = 19
Name = "Label8"
      label      label      Label9      FORM1      QCaption = "fr"
Height = 16
Left = 143
Top = 24
Width = 19
Name = "Label9"
      label      label      Label10      FORM1      RCaption = "von"
Height = 16
Left = 143
Top = 50
Width = 19
Name = "Label10"
      label      label      Label11      FORM1      [Caption = "Wochenstunden"
Height = 16
Left = 20
Top = 74
Width = 93
Name = "Label11"
      label      label      Label12      FORM1      TCaption = "Tagen"
Height = 16
Left = 170
Top = 74
Width = 40
Name = "Label12"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 678
Left = 564
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      CArial, 1, 14, 9, 23, 18, 50, 4, 1
Arial, 0, 9, 5, 15, 12, 32, 3, 0
                (       @                                                                                                                                                                    p                    p||p    |                           x                   ?                                                      ?      JFIF  ` `   C 		



	
 C  |"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (  ~W0V-CN5w){%"LPm-.iKX"= e\xĭC"k(3OgBOY&Ci/$gkh
 ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( GO.kgյ 7C5m{^væG-璲$<#Ef ^?K𯁼w}i M/
FG<c3MͷV'X< C 5R	
-׊(Y<dxѧhR[m`t߆?dFKYY'ViggYgYI$wwf ? _;㦭i2uɤswk[cVeXtK/
i.Eamkao@8UQ@
   +B ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (Y/^ԵwR]E P/$/,$q+3;I Ps )h?	}O_g:O,,PJq4QA<K,qƎ|_'e,hsI]b6ǜEsn4w<d[W;|Rco K#hdςa:+4t  ?L/)q 	/Z
 -,4|Vd2$\j4/ΎAzsϫkWλ^j}R[%dxDyQ4ڊ= ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (kxW;_4 |Ql` K#YОibF+t! ᗼUK |tռ&_ ´4ؿ.okyyӬΐc34<Ya\xZ
oO-];\0iND:q2^b9A0}-bf<'xZo>5xO--GCiNwnq2^b83b	OKtB4Dm"tEQ 	h   @Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@k¶Ǎ|C6wkiGxl4חEmnM)]W ]c G~ElZnmmmWb-M㺈>:~c] hxl~,/xxo<͞lm,lfQ_? '3k_q#^[jP71XyKoOФ e~ړxOC>_:{qkAJIo/<IGj*
 'X[> 3c4M:>̑˂Xtvv'MtQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@W|WK?|I{l5
b79YaUxek⹁L0]@a i~𮥮뺖-pֶ!yfW!#Y؀H?CߴY~+miRm'N_ɭ[dwv{.{ cxM]KO+3u>8k[7E{Ȉgס'Tݣ(
~W?\xR>!xѬ'7o-њkh#Oa*X[iI^E QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QEy O_¿ uK͏Oۻ͍ 
< mo
w?/l~dk4,V:_4 h}buΐ<  ?ixZ /xR*̆G[}-x&%8`[¿	cogΗ}H4tO2FO.UcM;Y؞I4 ɾ*Ҿ:xcI^U|+|/5,ʷy	C&׸xOz_+Z&i[H(b HDUUE (   
( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( g4xWRuKOtM[CPKk[xK+ƈ@P	$@k¶Ǎ|C6wkiGxl4חEmnM)]W Hx?e~Y!xMm*V?<my5y#U?le|Rx#>
~W?\xR>!xѬ'7o-њkh#Oa*X[iI@%?j )z)Vͼe-&ex˩ y;_ORo	gյ +g]/n5m{^w>ݩ]-璲<q}i<mEUE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE WR+ox/Ú>(F|xKC{ hO4X~dCsm:@ ɾ*Ҿ:xcI^U|+|/5,ʷy	C&?kW~*Լ3zĝoGP/@~quWV^+4khNxO1g|eԴ 87XOctYnaq+zuK;h~]7Bд?E4[H4>-l-@CHG"(@  hPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEq ?x7t𭾱_
|s1{b++t
57[[JWj#7 |X?;x_Q[6񖦫l{kyc.>؂;wmx ~  e-7<',-ᱷwO3gK+2Am%yW  L)s ׅoZ
 ,yVd2<Rh4)-AzsϫkWλ^j}R[%dxDyQ4ڊ=9 	+;>O|? ~gNO$idV4#e]PEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPE 7?.^ ǻf/AC^Tm U qs]xŚ_+k&i-_%H^YHDVfv (  H |?>O^iZ]RIҭgQvH:"uj7hxO!ҵi,je]ũihıKm$|Ʌƥs4O}2WP~*F/|BXOoߥ[46G
6T	'KB( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (  ."7<76MGU՚="d9/.8<T@b><,O\O-xt9eeأ-c:R`~OڣJ%*<']v/_c灯976N15cS[y=o
%?:_=#Dӡ-<Y<!U7Hhgby$ & J & {WMhy/ȼְOo*<:u%\n3_@QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QY,f/
Zi.Kj	mkaoier8
$(B :xVXtt>9ֱzQI+ hO ]O~$5敫E.4*xuwhϸӢ),V@waSO\xP<y.Ѵx"b[[
amk0dkf@?wcx'.s
y͕Om[ג	"{M:H#_@.xpԛzmuۍ[^׼jWrKyy䬏_hO*<FQUGQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@x b+YVϊZUZ)˸K^A)ȼ\jQ3D%{ QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE QE   %   B.      ]4  /  /  MS    U   %C"  /
2  T $C"   S  T $  
 Hd      T % T &    T % T &  ' %CC/  C     _= T %CC/  C      T %  T &   T %{ T &  %   T ' / T '  T ( %    T ' T &  %  T (  % 
 T (  U  ZI SVERG GBK GETKVBEITRAG GBR HBO %  C  T %{ T & }  T % T &  %    T '	   T '
  T ( %   7 T ' T &  % e T (  % 
 T (  U  GBK SVERG GBR HBO8
 H
 1   \( |@
n A T   . Verzicht auf die Beitrags- Befreiung in der RV  &   \( |@	   R	F T   3 AN zahlt im bergangsbereich die vollen RV-Beitrge %           R1 T   	  
   U  HBMASSGEBEND MYSV GBCHECK1 CAPTION GB1MINI ANZAHL	 GB1GLEIT2	 GB1GLEIT1 VISIBLE FALSE	 GB1NORMAL %  C  T %{ T &   %C  y  T %   T %~  T &  %  %C    T '  T '  z %C  U T ' v T '   T ( U  GBK SVERG XPRIVAT TRUE GBR T      T      %C" /
X  T $C"  y  T $   % 
      T %{ T &  T '  T (  %	  	 S T ' T &  %	  T (  %	 
 T (  U
  MYSV GBCHECK1 VISIBLE FALSE PRIV1 ZI SVERG GBK KVBEITRAGHOLEN2 HBO %C"  /
2  T $C"   S  T $  
 Hd      T % T &    T % T &  ' %CC/  C     _= T %CC/  C      T %  T &   T %{ T &  %   T ' / T '  T ( %    T ' T &  %  T (  % 
 T (  U  ZI SVERG GBK GETKVBEITRAG GBR HBO %  C  T %{ T & }  T % T &  %    T '	   T '
  T ( %   7 T ' T &  % e T (  % 
 T (  U  GBK SVERG GBR HBO T      T $5 % o  T %{ T &   %C    T %   T %~  T &  % K %C  & T ' G T '   %C   T '  T '   T ( U  MYSV PRIV2 VISIBLE TRUE SVERG GBK XPRIVAT GBR T      %C" /
E  T $C"  f  T $   % 
      T %{ T &  T '  T (  %   @ T ' T &  % n T (  % 
 T (  U	  MYSV PRIV2 VISIBLE FALSE ZI SVERG GBK KVBEITRAGHOLEN2 HBOR %  *
 H   C  e  T % T &  }       T %{ T &  %C   T '	 
 T '
  T ( K
 H? C   T % T &       T %{ T &  %C 
 T ' . T '  T (  U  ANZAHL HBK SVERG KVBEITRAGHOLEN2 RVVOLL T  %{ T  & T  ' T  ( T     T     T     %    
 T   T  	   T     T      U
  SVERG MYSV LABEL5 VISIBLE FALSE HBEURO HBKV HBO HBE VALUE T  $5 % \  T  %{ T  &   %C    T  %   T  %~  T  &  % 8 %C   T  ' 4 T  '   %C  n T  '  T  '   T  ( U  SVERG GBK XPRIVAT TRUE GBR$  %      B  U  WELCHESJAHR HBNORMAL2013
 H
    R  %C" /
Q  T $C"  r  T $     T '  T ( &   \( |@	   R	  T         	   	c) %	 C
 C
 \( |@
=   _ T            T      U
  HBMASSGEBEND ZI SVERG KVBEITRAGHOLEN2 MYSV HR VISIBLE TRUE	 GLEITZONE HBE MONATSDURCHSCHNITT HBMINI VIELLEICHT0s     T C=    ( l   (h " C=   Sozvers    U  SVGRUNDSTELLUNG J LOF I
 SATZANZAHL MYPUT T   & 
 H*      	M
 HT I C/   ! T   %C& % C/  C/ !	h %C& CC/ C   0 C& CC/ C   9' %CC/ C    
 HK C  = T   %CC/ C     A T   %CC/ C    T   &  5 T   %   
 HN C  = T   %CC/ C     A T   %CC/ C    T   &   C/ "I T   %~    T   %{ T   &  U  SVERG MYINDEXE HBK ZI GETKVBEITRAG 4   %    B 
 H-       %    
 T   T   	  T 
  	   
 T 	      %   H
 T   %    T   	  T 
  	  D T     T 
     
 T 	  T   	  T 
  	      %   
 T
   
 T
 	   
     U  MYINDEX SVSTART TRUE MYSV KBCHECK0 VALUE REGELM KBCHECK2 VISIBLE FALSE	 KBCHECKB2 KBCHECK1 BER400 BERUFSM	 SVZENTRUM CLICK
      (d  T CC  Z) mysv.Arbeitgeber&xxx..value= .AG(1+i)
  T   T CC  Z$ mySV.HB.HBOpt&xxx..Value = true 
 T   T CC  Z% mySV.HBKV.HBKV&xxx..Value = true 
 T   T CC  Z+ mySV.schler.Schler&xxx..Value = true 
 T	 
  %C	 
| T  
   T  
    T   %C 
 T  
   T  
    T   T  
   T   T CC  Z' mySV.KBopt.KBopt&xxx..Value = true 
 T   %C 
 T  
   T  
    T   %C 
 T  
   T  
    T   %C 
) T  
  D T  
    T   T CC  Z% mySV.GBKV.GBKV&xxx..Value = true 
 T  CC!    6 %C  
 T " 
   T " 
     ( T# CC  Z T$  C    %  %CC  $ 
n mySV.priv&hsxx..Value = 1 
  mySV.priv&hsxx..Value = 0
  T&  C  '  T CC  Z! mySV.loh&xxx..Value = Lohn(i)
 T(  C  ) # mySV.Mon&xxx..Value = Monate(i)
 T*  C  + ( mySV.url&xxx..Value = urlaubsgeld(i)
 T,  C  - , mySV.Wei&xxx..Value = xweihnachtsgeld(i)
  T. /  %. 
 T CC.  Z. mySV.bertrag&xxx..BackColor = QBColor(14)
   U0  SOZVERS I XXX HBO HO HBK HK SCHULE SC STD20 HC MYSV HBCHECK VALUE RVVOLL HR HBE HE HBEURO KBO KO REGELM REG KBCHECK0 BER400 UEB KBCHECK1 BERUFSM BER KBCHECK2 GBK GK GBR GR GBCHECK1 HSXX XPRIVAT PRI LOHN LO MONATE MO URLAUBSGELD UR XWEIHNACHTSGELD WE WOHIN TRAG)  T      T      U  MYSV	 BERTRAG1 VISIBLE FALSE VIELLEICHT1 TRUE
 H
 o        T    ّ Es liegt keine zeitgeringfgige Beschftigung vor.     Bitte prfen Sie in der Spalte rechts, ob eine entgeltgeringfgige Beschftigung vorliegt.     o T    } Es liegt keine zeitgeringfgige Beschftigung vor.     Bitte bewerten Sie die Beschftigung in der Spalte HAUPTBESCHFTIGUNG.  T      T      U  MYSV KBCHECK1 VALUE VIELLEICHT1 VISIBLE TRUE	 BERTRAG1 FALSEz  T      T %{ T & T ' T ( U  MYSV VIELLEICHT1 VISIBLE FALSE SVERGY %      B 
 H. R  \( y@
 A T   . Verzicht auf die Beitrags- Befreiung in der RV  &  \( y@	   	&F T   3 AN zahlt im bergangsbereich die vollen RV-Beitrge %    " 	     R T  
      U
  WELCHESJAHR GB1KEINEHB2013 HBMASSGEBEND MYSV GBCHECK1 CAPTION GB1MINI ANZAHL	 GB1GLEIT2	 GB1GLEIT1 VISIBLE FALSE	 GB1NORMAL	 GB1Gleit1,     	 GB1Gleit2U     GB1keineHB2013	     GB1Mini    	 GB1Normall    	 GB2Gleit1s
    	 GB2Gleit2
     GB2MiniP    	 GB2NormalP    	 Gleitzone:    	 HBbefreit     HBmini     HBNormal     HBNormal2013"     sozversaufstocken0     kvbeitragholen2    
 KBCheck_Click     svreinholen"    
 geringprfungq)    	 pflichtig)     kurzfristig+    
 GB1keineHB_,    3 R A  q A A  A A A A 4  A  A A A A 3  q aar  q A !1q A 3  Q A A R A  Q A A 4 21S A r  A A A A 3 R A  q A A  A A A A 4  A  A A A A 5 2 Q A A R A  Q A A 3 3R A r  A A A A 4  Qq A   A   Qq A   A A 4 211  121A 4  Q A A R A  Q A A 4 "q A A 3  !Q A r a1q r  1q A 1A 5 r sq!A A 4   QQr QA  A   QA D QA A 3 q A A   11  C  21 11A   11A    A B  3  rqA  qA qQ q 1 1A  1 1A  1 qq 1 1A  1 1A  1 1A  qQ1 1A rqR A q1A  qA A 4 213  qA
q	A 114 23 "q A A  q aar  q A !1q A 1                            )       ;   A       \   Q     	  o   k   	          5                                  >         d    1      -        H    J    M  o        e  -        m  !  &      &  M*  3    r*  2  d  	   3  v3      3  5      5  b6      6  8     JFIF  ` `   C 		

 $.' ",#(7),01444'9=82<.342 C			

2!!22222222222222222222222222222222222222222222222222 "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? ๵kedPʪ
$ I>~ç H tEKtM$ : D-6Py=<Qǩ Wd#U)KC?G ( @}# =YMup!6	p9R(FAbyܩ?G ( @}# sagKtĞTCmrǰsKt . :A U͆7{wީ#aЃG,{4O > ?>ç H tE\j!&}q';il{pC?G ( @}# saװiЉn<ݤy[@N=C @}# }O > ?kc\;Ud`Jڥ$ړwL>KBFJ d'rt˹?t . :A T֗wlHʞUm>]%ʭ9EPcW g,NFAt;:A Q?G *ІVV Z}sNR:{ dX6yad۳$rsK7t . :A U͆Hiw)O > ?>ç H tE\hh`rt . :A So,XfX|bcq'O;XayrF u#rǰsKt . :A RC\\%Sn̪Llv$~ԑ궓jR<MB-
&݀3ގXv˸ ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.? ?] Gt . 

S @}# }O > ?Ѱ.XaYwXCoݑ;(Cz(V" BT 5Ĩ}氯cZ2mBiIH? )Y$--ai&R1ET0^FzֶV_
h)ʶjAR n<+XCOص{l,)#6)F,2@F3wjvmQ;'<ff"]~@	Q`+?n<(͹ WQn֟yZPoᶉ[P7l uswnɑKt9&XN]>n`]]}9LP=[6y ۟ 
=ncu|zjGt(2@ 0Ep
old(m,xm$mRc%au}wy^+?n<(͹ ewSho- yV)r5_i"^-NVȒed2
9'w5ٷ? f ?xS{ ZZV'LOyqyɼ`G8.dҴ{[HН-0(m}3Ԟ{]s < Gm ǅpjMǚ.4++͜=~^ā+`hZjQ]j:ݮ7\eSpنf!pp 6y ۟ 
M ´oek,7P<v	RHՂ ~tx.t=3í$:Ŝq2
Aas5ٷ? f ?xSrZ]vvSj-ے"61sSC׵a45`mGd݀g=f ?xQs < O7 5۱E}[y.0GirU) s8ۍ<sCkqgiڕBD~boqF;
 n<(͹ N6CˡU:UhjMw;~_'wݻWˌW.
5ua6y
H#.!z/m ǅٷ? ^=iG\i#PREsrK$pshj6mj1ې`b+6y ۟ 
wP|Z ϴ{Y$#DF@BHͺ Y\Zr4ډ&KwAF B`8<Wus < Gm ǅ
QI+
IM..n<(͹ ˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱֗m ǅٷ? sǸr˱ɵKzUf8fUl? o쿮PO3 " i Riͻ*K$Į˝S8ٮW?'V!+  QSቤ>&Ku A` UŰE-
#c$(x? <S5ht	l(զTꌅ9 J
_Oϭk2o&rjXǌ`9xXFKBcQI= \]^Zhk2dLPt)#Ft+
'Qx -!*qmzSA,I ۿjjۿjjkCq"&tUgF@<|s
@ۋLJc+1: y66 6 z_:}ť&%*;l$8nj߈SZ8岷k]Amay`fe0lHwJc^9bZ?ٷ??ٷ??s?5mfHq	dU, cQN%{Y5 	+)%&Wp2.
-=ۿjjۿjj[ۛou7V:B0$81yCXqr8&+,;i5BEP?)6p3?:\ͻ  |A ƨͻ  |A ƫ'D:~4֭
IaW'I'`=f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE b{a3y/LRDk+JA`' / ֕ av׺EܺxVf sP   UjL<?"Q'xH4o,-zp?
Q.]2NfƩ$a6E#%ם@8vIw AC Qw AC W3wkpF[ۋ;rCeM`|<=S׷1!cid4,do;%owo{~bm55Gm55X~#OhݭuI!+ʥxpkh(յ"'[KYTeF`c,	8lrוm55Gm55X,oQК/L"Qe})ઁ4/no]XvI
-Aa:Pv3ͻ  |A ƨͻ  |A ƫ8&+,;i5BEP?)6p5qZ5&_[Kk[a\2I$A=
oۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjjۿjj=RH[2Aʡ3VfEW 
iP-7M;j΁#HvO@:w AC W!qqemX]A"
3Ңu}A^y5
K#441#(i6) joa?n 9?n 9_jl/2+:{y[̱:Hv$woxvVhLm&xDi q2{k6 6 >inuK'S?ۮ睤|rUJaG9#ڮuoGgmw-	@(c#t1 n 9?n 99M@ݝn=Ѹ0c5<!4>'KY䑋3AIM;oDXͻ  |A ƨͻ  |A ƫJ@f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   Tf sP   UE f f sP   U.<Z%ͺYmwl*	<U ZWy 
 8u
D
R8'X8,FĄ,{ٷ??W-<xs_-5So4k*.o4+" 
ءjiw AC Qw AC W=.yM{jek60an7\3A.<Gb+m!+Xcaһ\ f sP   Tf sP   U1ב-5;uy&H`wHmmPTc0XnbpۑVu;Q&{Zhd% ;T y
ͻ  |A ƨͻ  |A ƫEk4R!HH$ǖN23mDs2_MH˱T"mPXdrHFm55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55Gm55ZTPom55U	oo7jH b  cjۮ~?  hbw#B$Gu,^K-^i 7(=	WC󟍖~+?躡ux[Ym! WWj~>Y汸4l,zՁ1f)2zh싟
_0fym?%*W_.WZ,ڋ
PzPH_
z_ ej=. ־2u?_WEo?c%O3 " i ]m==*%ջ3	\׆N ?BWh##daVzM!2i&9l
ONNx^l&<>VGF9-V?G @OMLV6iH<E$V"OM#UBDIcSG+KG MTZ[WS(m~TmE5?=ډh2_b
	5Qt*:}٣x$N dE2qtʊτ\_3\RJœ0UF{*Zڼ[ɕuWyo|'<穮u-|tt$eUvx%PryE}m
CT}Jm]cx&Y@"9pI뫢9_ɪGdnSo& b+2o;3G*OiW;J2
jS;X̛I'u _ %
xr=Bks4iPQ~uc
֕ 	 A}? Sh E  )5Yc ^w4 A _O  ? / JiQ@h %?ƏH4_ ZU  _ "
 	 A}? SkJ  E  )4A _O  Ҭ<% ˯% h %?ƏH4_ ZTPo$/ 	O
֕fE+  h %?ƏH4_ ZTPiwVCoY+^[mHVc / ֕ r]Ѵ6,EŔ1aLol9aV5I/jGQ0`ѸlgE+ iP9[_޴&k![E~cC l2zqSLK.U}Iu

#b0FzIY  kU 9@kj.n&U\M	7T`3:\KidD_?`ϒrK(9<fj(>6<kImQI 8$u+d#_P7)^7v#xVn smṳNҼ̃ZĖ&3&ÒIZIxr=Bks4iPQ~uE@f A _O  ? / JiVn ?~7H4_ G$/ 	O*(7
 	 A}? SkJa  9  E  )4A _O  Ң3 / Jh %?ƴ7M c DE@$/ 	O
֕ 	 A}? Sh E  )5Y'xK __>J ? / Jh %?ƴ{\4?Eb=K |A "֫ ^r X3{osqgoxDRNŔî9SE6f,bu re _?_ V rZ2"_Y1Mo[l41|劃=
KiQv1~^&U_E! /ygEēC[W16&o+[Us!(AOyR8 v  @@~`5I[:\@5:T㷷b>֧j''Z٬ȵ ל
 	 A}? SkJ  E  )4A _O  Ҭo<" _ h %?ƏH4_ ZTPo$/ 	O
֕f #-yp 	 A}? Sh E  )5E f A _O  ? / JiVl?2ם5 h %?ƏH4_ ZTPo$/ 	O
֕f  舨  E  )4A _O  Ң3 / J kJ 8ZU  @n-5+X^G',	(H=A##pET>>`}Nc =}7?_iP3jVfZvI%d(P39f;I1<cTxN;{=%
mk$*(j+Y:Ա  Y 1S"xB=Fk- Y7V#(&4O.|@o4]c45eW#T~Umxrk_:c;jyn8UzV\H4_ G$/ 	O -i_+J3 / Jh %?ƴ7-j/h  E  )4A _O  Ң3 / Jh %?ƴ7R  DK@$/ 	O
֕ 	 A}? Sh E  )5Yc ^w4 A _O  ? / JiQ@h %?ƏH4_ ZUo @$/ 	O
֕ 	 A}? Sk6)o
dC
nsLs+3GELC#]Vyph[>&),aALؑ0 IxI-͍GuiE?vr 1$V @OG MP:L,cӭ1
 U4[]`o {C?"-6?W!+x("H_@ `j=. ־2uw tVcv9_/?&6!+3( & D%vu>vQEdh_ @5Y  kU 9@mVю{H+/Fe]
J~ArW6\I/%P_Me9Sub*84%YaӮ#wdҦomς#& Sɢ:~?s.xvGo׳jGd[3<`m퓒9z-o<" _RmNG{HC刏'O>cX5XVX̽&C:ӿAGA Ǽ^si:VzvikM%ITr|b0\H9黨YA>",-/\N`oI`XGO$_ W/  D:mKȐ9XnbI<'RI'MCX{)WKcq{ƀ{;^7kI'F	bDG}SNH.-/%E*ɦڴ7͟< Sg~ݛӎю} ȋ> Ue ;dmpAky1D=6uUQ  U9c9<k:fHn=E\ؖ	tM'YjivW-:UK/>qg--y
Seގ mw_:\3n+
ݲ7jRʻ:,0_LdVntmB^f	8J+UbZ9m<eSR񧢫N@遣  _ "-6;k[; vZdʨ= 	*[%+=ҰŌX9px}q@-Cƚ/MF0ח<'&Gμӭsi4<=ė:? lܸYHdml DpI8M:ⴼF˦ 98 d7A]d?sl}Ėx9$B_w 3d 3w<% ˯%"k1Fo|*Ӏ  Tt}b;)$\7c3udN
G92{wRkkL[`4o4͑~tq9''j:$jX^˧
wh?~X
Fc7+\Ï*yy]#k0y⬶ct`w&#frssrK,S)w]F	h>qxǥh
jT*~  i U
Xlm+k30B{M]Xidét,t-:m*6&cFPp+ y'?EҵObH LfgrG?1Ξ<;4hd6<LgY\sck=J!rG'Z.o<" _iV[AGx-dzY 8cC D
$ մ3YW0Ozs"?GJl%ōխѵqȍ"8p5l]o8iQ'*mݟ/mstwNN;M2h堋~{u7q;8z
?Z_ (@SSG5	tD8࿗wM5i|?F_kYTG(zlGC^i_[ZwBq$yoC?玡  ˎ?1xyRy+H$z/99<;;ΧS ÝE7Ch3ZZxE _>:=SNx/m2鳂2~NN =Ʊm%j_.汙zLu~{|n  xtesazFyĒC<t&ICYA>"*2ƪ. 0?wO#:;~  
o LR  DKQêiј഼3MF$u$}T5gҘE}f9GNO=iݲڿ}JӮGs
ȡp:	mPxlkFc<=qvɌq]<;Ω/Z<\n8L.ta g
2qc_fʛݾ^1q"miTt>;h^Kh@A3Tp) CY: } ^v ^GVOӮ--Ԓ"Ҧ=x⠇X ʾְ(a<<dz]L-WI]SoڲǧO(~szUw&oovKng%TDĢ
_B]SN[[K;Gie'fH8Sbi;;i|t[`([~E#a7-_;
>~^E  _ "2;kK+ a"LUG0*[%+=ҰŌX9px}qMj#}K$ӵ6h
 8ci_cS&l5MF-6;#I	7c]Ʋv|5/G/SF{+>_ڴyeٞp?*\ix/Mn  3s%t)빣o<wV\BH5CG8'$@ _%2
SN8-/!5
ǦΪt SG-Z+M|37YN-v9}#OKEsr l=<lɖ?; }rEq=ϸ	csՇxPюxvPPZٳ\ţʲ>NNXGɧFZz<H0KJ%ajwȵ ל*b_QWUfQ 5'K =| +τ3+3$2M |W隥,WlE|9dSYt$UUeUUT
&\`~GN:;~ Sxg[C]EҫhyxQwVPY[@SRGK#}"S*xu=O"  @ڧo}>ћb_2y1lzŴ^ch-JJÄL*+_]o{7$$i2:<`~T
2֥wڤ4&~HkZy uM9nm/AϹg  dj[KJ53Zʠ9CԔN}&^lrͿL?ת mC  MЙI,ଇsy>%I!<K a h+K[  GQũ4
m+o8.'kŴQ|oe2׎
m!+"5K6ְ][Ig:6-# y 6MƯi,T6_lX?wH G0K͡,-*;&Y7Lўy4;N=`ҦD#4MϵӴoZG5]ڠHDr\ Pq3o3c ^w5ONAx&Kݷ:[idűUյH$q׷>, gرo#R}':w<N[3CVI+e3*Xs??s\%Z^J,Mr  q(]SN[[K;Gie'fH8:[ct
OI;cVbDk@@v @?/A\F[ 樭
.]mWvZdrIj:ŰUֵ@ s׿>ww%+SEjl
}"G4j@.PݵtVLs:iҘ3A?!e)b<c]OjR潄6Γ,
tk&Uml.`TbQ20NlKor֋WEh%c n8uS4 ?DU:nZ^DMAf9$:I&iŲ^b+XC'ۻ%++Ě}F1d_mIr>Y(pdҦηm=-W"Ѿ倣
9jUm:]_;> uN	8)y$b;%2^GS߽.*VVP^ kJ 8Gݧ?_? G Zҿ/ Sn씬o"* i@}=^v,tpz]*]3lk,D]Hϵ5ЙI,ଇsy>%i2Nukz_Gm,L[O֖Rt'ʞ~^7/5ǅ푙fԌjhM}Զ0DL|t=*ݧ?_? A	X4O.|.?5OM.EZyjIve7~UG-Z+M|37YN5jRʻ:,0_LdA]1<53M-[uRGb[g$h'	Y]"Cn4ɲqg {Jnx/ މ[ -i_+CoOtCa8I[]^[E66Ĥ8AЄ7z9:uʛv7g\qҥ,4kBg֮-j/j{&ЃmDk򴹗\^#2p:kRbֲ-c2P%0b?χxXdlHPn#x >m/-1mq=6qU`TE&sWI{{Vk}[7C>3`dy4'Lds,aɩZ~?s$.xvGo׳jGd[3<`m퓒9z-K?o-RmNG{HC刏'O>CX{)WKcq{Ǝ(xϲ7-|a|[~cu)cۺ^lnm9-6~e>ItꃩײTӦ)%wͦJ688$qؚ5\5t*ِ}ÿ2a\K1Yr,aZ 2䌂	ٛF[ ᨢ4'hlriL4'$9kryWVu#3g̑^zmܔ7_KlL`ʐp8	kcm4G&aM9!&EA	aUdCm9QImLo}.gF)9M:(济 4I  GH[ ]ȫK)"f9JVC[i#%v #-y sTqtRK$v$F]6p\ $`*:ŰUֵ@ s׿>wIX<C[}MmclfS
晲5o3#^Pn'$VZ&{\4Oueo;*yF5nǇoaZySͣ9XǑ5) GksdH3r tWz|/5ǅ푙fԌjM<% ˯%vP | E7@q.(`ur2<AcM#R(EP;}˿ ZƾkޯK~D| & D%v5\
脮
4(+7-j/kJ|A "֫ ^r .]Z[˘mRg2x(7vlB2wmq}]i-_Cq5ǻ_k:P>.{fF-zPDuq-kJԮ&Suv|AQ~Z mGF_CIS edqv >S[  GGA_kHM1>gI&llevo/(= vQZ0|dٽNq޽hat[7=h£f6JwenE⸧M&JIp:*̷?lCf83
-  C _w_Q%v 4 EMYbS%(3"}J-]7g[y..%cRI#UQԒx:`o-Uw<v|q "& ^Oh0;t,S#m~~G^k _Cm\J"I#`zGUe ;t 
7?q W%i4%="[Z֝e3.F}ppja}׏*s'3.5OMRKZyjH7d~u.Z:߲=|Ż BoS+Q?#xU8eq  _ "
SW+6̶eIN"z0<䎹::o"*24/
m廍dINGM ÿn3?#7v9X$ZxOmygԓ͆KFyq :jUǄo|ۛCu+-<fӃFO$r.aT<% ˯%hD#eYNA=?D 	 G@oITUII㊶v4k4̑dԁ?͍ l
qjq؍U~ 0r Av>ګ+Hhd鄉.0oØǧ"=
|? "֗ ^qA#sn>Rڌb '՚zvQjWy$ٜ;ICRkZVq4M| rZऺmUn`=;[t`T5pvBρN\kj$k)u`岲Hy;Wc r)[Qt:-o<" _iVn O
닉cby$AI
e~ofyn9 GM`/4;eʶy%%Bmq9__"ִ94ȵ;9/NUǪg#ޣZy M>j.-WY]z\=?Z_ jQpyfSvwH ^}+'S[/uz`ՏB??.RVoqtڤfܡ`l3ڽ:t):qmjl^k2:s|J:^SqJ,p#m8<ppAEKu}!%_[.7g[G59f hs ~! bpK+]s\m|zZ4m}Du	' u&kZ5ÈL$bp[8$0* /W=|94yyWvO{\(n!ʁF$pAUK?o-P_ W/  DK\4c5K7>_ڮ-gKaol>毕{oTӴ-] eKyeU` \ŏ#o_?>qUwޟבZivHʲ!# C #-y sVVsixTԴm>KhRKH1O2XpT$A8 } ^v tQ5zEԵ:f];8W-՜0L &9ocVƲ-ROzm坺>61a|m"m?r|E0Ѥ_6[6W_ü	䎼_?+FEf  舨WL7)mA)l@}ލ7?_6JwW$Ե'G 5;+7>_ڮ-q#R\ADdA
p=N8 ]Y#ᵛ-"{4V=aC,r7ta9dIiغT&c$!(1ra&;$ծ kuǄu VZ}n5SG du%Ԓ[o5	]R{sp$x8;9Zҧ"俌:Wz4Q6څڳ%cӏ_/(zn/4-VOlMepeתo%2_ט=?v~  kU 9ZU_ @5HIwY'S.kZ5ÈL$bp[8$0*  { W=|94y8z~ kZT:zdjNV&rzݪy5ˉYlč#^5^pzmbY4 r;9i-a_ѿsyq 1_oz/"ϱseC |o\l-h?WQ- DwS$``'V  9^%)-u5SգJO)Y%t<WLe@L7(9#[KGZ|.Or^yare˸nr{iZyx=(Rr	fm
V4_uow;
u}4Z\]B[[IdLf^1|/i7`珛 yKsҿ{WNҬ3G#D$lpATu-|u
x) V [|NQt"Sbs2ƥ#
:S,e}msi]8+֚v᛻-m_|6x+Q
^V4^hl~%rRRe۴3

HNb'Lm/Fm:3c ^w5ki׌tK/#X.\<x,8@M #-yp!h1j6>n|\$[2?:75l4!b "9O# =+3[QzBVg]62 j?RO\lJ,V3 l]G'K ]Go 3xn㸷&Ueu<Ta  9ռ-nmew%iEZD*>'?2ם56DR%3 o6q>(S`rHǮEs)VoҮcd0qMѾYHb)OP|G{i6^ed.ng"H`3:*	Koe[ X  Rx~MKCh
bU<,v?it ?DTތ<zHe	t3K&CǦK٦ Z%og'ڸYnO:%eomdpvJ6W9mn4|1hw̍\OrfF..$iVl8]*: ZWy 
n%[Xv
(@Z  @ތo"*h:r.Ș͜)5 ~/ r_^Ӏ&+o?s,7 ZKrҿz浥iek5=£I>PNO$tŮi7> u1<Q``'-76W[Ee嗎P0IǄu <GRִ)wn6+ KǄu u'FjjV"]:UE>q#󠮍 [P3G#$deϸm40=:)\Dcp6`vkD =cgxkFϙYX}1Rga&x@yȵ ך	^o&SY֠PHo~d{e<ҽ
TiJR޽ϊs<t1hR֑}#}כgCk	"NlnCKGZ|.Or^k `m; A Z׿ 1zP 2r<8Z9HE/oW1ixzvk<fi}6{i@Е's<VyHQy$IX^"712\YHT^R}ŎZҵ+h]0#zz "Z[Qѵ}WC5Ŕĺ0lY$\f<9Կ G  Dڎi,,K5- jQEr!V	k¹\ddgY.KԼ23_deA6r3BjPg*[
6̚K'18  Ye}iZ%ݍVϝA tlUf ?8k#4z^2׌ڔV)vU wg<tc ^w4؋wu_]Ckm7<rp2O*85M>N:!Ys+Es9V?ͤV}ٱ6bHo0$|%s2#-lu[i[ͽ6۸y'	uPC(e 2Y } ^v OScY$. )	ep3W!  9!Zޓc}
ީeoy><y$'j֕Co91:I>PNO'q>"נR4N?ٙ]_n@|07}.\/̭7C-s#?mtWK ^6;Z?_ T~\7pȬc&  VbFQH( ־-o5U_]z_ėO|,?B-BWW\GP:-BWQQ?vQEfXVo?Z_ ֕fEW 
 iQX'úZYbBfT|akci0={9ky\,t Ǆ_k V:WRH⯴IF
HK37u-|t Z5#cJO??µdm;A8[NN>꺆im_JqzH0I 16"TS&T:Iv SSO??tD2V[0jmTװ{'q<wnϗ#Guۜv& ?~7Tpn7:0Q{iyTV~ ch7}mߴ\VK-Ɓ%Us'qrUB}#MYc ^w4RЬ5?+]OݳrgM #-ypif#J5XJ+<]_<}  V{y/"LY7u`$Cbm$dC7?_>ڒqm[I|wl
AQ  _ "
*+Zo5BJ{kiؔG$ GnA]&y*yGo<R234³tO.|@>Ǆu 
*+5:vZfϵmQm ),:f\kAZi~Q>ze'[0c'~
Zko Zҿ/ VaǥP$x1`@PݕƕݑEsV&}6{/wVWF2*ͱ0TfubEw}J6(R@8\dv.~Z Ju-|uH ȵל_ * E>w4śݷ~pqӮ*3^U\\}l<|ܫ	|A "֫ ^r MRJHKEnLw`
@  kU 9@^P_L%oF?V vzO }zVlI4kQZ4rʗg	Y/Kc~q'qbS<F
Jl vzO }_Gc$Q37cLՆw±[+ p3IxE _>:SRjz0xyJ4}ѥE6F>3ykEտJɩ]nw~OAY-]s7R  DKKs[n'nhs٤Կ G  kg}K9kUQc'x:TK#gϙ{>ms67@tuo QZΝ٥,"͎H 29U' w$?2ם5 iQ\޳\iZ^eq{x[ﳀ X?q֫5nuDѴ"ӤJofC #>2HځQYo"*_ŪV*)2+0 U ?DTiْ*+Ro֛IҴkԂۂG,r< 2+h{Imi#yonjq:)-F77D 	 GZUix ]
*+<Q{iQ{ɹ$X96 
}h7]J})#.+2-*GG$nW-j/kJ|A "֫ ^r 7D 	 GZU2wv]y+Ǟ][4Vow>-]p;*+ECu)>hL2VFHaH=\3#XeHE bit7ug6ڦ vzO }|? "֕ ^q_֦uHNB-$;+8.2zZR/DpWʰxZi/;i =' T:
)˝vF4jAm`Vͻﬥ6lSEW 
9֫%&*V
ER4fW/|ZIMbmzm57[  GFi]jP_خDߝ$N>1J5-|tҢ^LN,\FI`z!;Cy-"SXu+sk{*;ܣ$ٿe ;c_Ut_Ohh!7,M #-ypkg}K9kUQc'x:Uckji>Z<MJD@]R %H^(e ;j]U֓gH

ʜ } ^v Eb:ŎcAq{x$xɂ=+0b;h1_iEtҴOhr
n2l|n t Xk7M c DEZ"+V7?_ iQ\'Km!&a6Rk`B`.p~vEǊ/FIIkGt]bf2EA 7 -i_+AdEt`*GB+? -i_(  X  Vf  舫ǾWu\ɦK[1]=6cF[&+[bCl`(2@\kijm&D0pFpGc@W?_ Vf/~]*浫\iZ^eq{xKﳀ X?qր:
+O2j:ZmqĒoq!#hc?5Eto5,l#/M RE+ f٬:@_,3P6)(VTz#UTujNOI Cacgmry7?#vm}~< /Ag^*?Z_ ӝj8ɊUQTM).EeUFs3$5-$
=
Q m9#Mݣ[\H%^6'1=f_  j}gg+8,QB K?o-4}wW$Ӡ=X#GNJ}s_PWGZ`u)H8o#$0qcM t7?q LyuX-
l{IaFGj|2 ם
 iQY:DVsyr,yQ v) H o]^\_ifyDZ9ݶ~\FU('o#P76o C:u?8}Jo @TW5yku(4&;ȴ͟jj+p۔?SYw0 tMq2Gi1dB4^K*dk0Vx=ptǄu umlI57U}<% ˯%@4 ( ǽwg?|O_m^̟־%|+S$}\" D-txdC>2i ZEv(|A "֫ ^r 7-j/h!%mh%ݼʮÀyW7ok췗Pў,Us@	X\Ew4P;z~6p6;5́J*<-/xC[  GZU Ǆ_k F^'AՔ
:͞IdB1 PYA'q#vtPC+lN%;]NdIP9/  DY "Z6OMdYBB@8+<#|Wkc7,j2
acgs벢.3Nh*YTqǥc ^w5Yc ^w4ۻueS-4nm!Ѵ?,N>`:T0x{Sk[I< %4QO8Sk\@2tM:ѯo5	"k鄲$$B) $I  _ "* X  P}c_i}k=B,J"@FTV<`[/Ci`&0Y$m#k=vG WwEB52*7l{gǄu *?_ P<=S#X8 DcƞH KFCK==ͬR[gd1cފv<c<W_E@z3n rdiqO7lb5F"`-ڶ+7 -i_(`sxB{\K
g7Nø1ʐHG9ӏOu?ⷰGf)U%YG%TPn 7[  GZT66tvEJXQ$(-8QBkp-[|ҢC2>;qk ZWy 
Ҡw94,-4+,FlwdCݨN9^  kU 9ZU_ @4qUši7M]ҬRqG<ҊCiR闚јhJ4>b / ֕f~Z 踍	TN)5xR"; [dooBG9z'guX:X6m;Fw$mgqp>K?o-iVn ?~7rc Eav7EEut}c| <`uژT1_qw;qUEOṋXjڗ:x% F"E$U,[?t` 9 } ^v եY } ^v q;CwZ5[VG,Fw/CVnO%'k˕W
%MI^AJ(^`A`[̓Z=U]7?_iVn ~/%"R >bTbS;<~ta8j"Z,) ,f`n%F-¯vTQw+nj&1T9# gڪ:`7wX#*?_ P3K[ijlq|J(P7FB&M\Biv7q|AT1ڄ s(QGV_ @5Y  kU 9ZT)}.V?J<	Aic\Ym -7sX#<% ˯%iP`cERDio)o#IiW#saQvDQ$cGE fE+ dXjzi[è\	{Gb"3=2:ֿ Zҿ/ Vh^}RQ%#,N29; ȵ ל*Zy mQU~ԧ[0.#%HNv<נHiѴ^i6[˵0Cs\& 7[  G@W:~uq5ѝWS?8=;U<?Mw}-!4Py.]w'</'0lukjOXK;Ami;9]ȝ x997?q ZU7?q @uZ~"lo,fuѕ`#u^]ON[m-dL|:i+_XhWn)dUxV+R #-y sVf #-y sSn%m
!ӯu!uB
ϧ?,Rc6wg9˳Y;h9Y-Vh-#e*p9?*
(3+wG01Dų##m۟|i4 ?DUYo"*/pޥ}i,sZR8X2  G%LXhrX6"q<	#u*nl1u2ߛȢH!(*aP ZWy 
Ҭ ȵל_ +ho"*.	Oeyn`\G{K0y7{M c DEZT
;wxt
	XHlT,yv[HӗI-427W#A)X?_ VmՖk⋽OLӮ7#F8 ZZ'xK __>JҠ},s:WZ[1TF]5Q},o Zҿ/ V\Y7|rX"aC={ -i_+J1o^hrF2@t;#1?<^f+W-j/kJ|A "֫ ^r mN@n#Vy
#yrX+
gϠZ˭[19m vi,Ȝy9(v=?]oXϊ_8I@TeZۗ<s _ %*Կ G  _~-~I[{[;[4\uu@
Ae<UKwڶeҴ4;I[GJFADہ·#zw0/O5yh( 	#vNyZF[ *͛F[ vcK9Ogz?ssfzwyW4˩!e@! vIIDnKJ8Frܓ9<bF[ *͇F[ ?x{QծFbqyt;<1팖 C35hqw^GG]Uo0nzJ(`z9t"OIQoC#ur:j-<% ˯%iVn  4 ( ˼} Z	v25UhIޤ}u? `OW? `OTb\>&QEdj_ @5Y  kU 9@;k᝖WSZKwkadS 5^;9aCLT<Mz퍶
uJ(F2=[x{JeULYLprn鿟a7=K]Jsys{a01oPĄ ~@tη 3wKqko 5)IV=V%v"5  TxE _>::1"	8!NWBw
~-CRqg-ơ4?Ȯ6;2
AAPT0kOIn]0_O<p`I2 GO	\Ms$I+
#;V@= aV/  DjNˍyHOY>]K?o- eo5Hث)
pA\o5h/n^[{J~T< xo+{9Sq*.дsqۙ<+w_qIuosyyfy$bPdy&M #-ypջ+;}:?.5$;UF U& ?8jӓhKc}=5j6WZ=g1nzU->\n﮾<2]y3,IMprHnE7QorѬLU$DnuxwJ6T6?h^1:A֥
y~_4WZ2cr9wUh3X2I X  U?MҭE>\{X;K3K1I$}7?_9[X񎲓k~=LMIp9ҰJ/u\[YM0I#
h]<60ϨXZMu4_:cϵW<TqU_A$.4
epD]gbs0xPow4Fp3׽gh/~]+AG!@s?<<% ˯%G+|/KןS5֙yiQKyb	0Ila) P;Eb]Co)SJ.FkƓ^Iu<32u,Q ,q㊴E6
 - 57^s׌80(ZXi56wى\M?0͞0+x
  '5τ'%Ku  Oafr
w{dTլN:ٽD#
xٖɼ?ZW˟ut	z$!s$c5l<5"yXb[zAz
M?:Nt	#Rn$`SbWb#^  0 U. 7[  GZTM4ےHث)pAX Yͺ\7H.JE89?~5V,n-,#TF1FG#\wlKP.>onq8NywVYVZgS}F᭤	Xأ*zȵ לao~ڰtʑ0!]"-r~`}MM_ @4^{ռE.iq{,l*Bޝ0pkЫ	<Ctf72[/w4Z<$";Xؑ6ў$zW-|ujkdR}
J Ǆ_k |^}+ʬuI%Vn]Mq97x~V9=v^JF
cM$Rv/!`mO>Dtw~_=%q5΋4$/4X[   =[Կ G  ի+m:?.6#q?3f<Uu/  D̝jj>2&٬neds&6Rpr]5#cT6o;?{v~]ݴu5jzst.x9-&`Aar	UI m3kF/gwg~;sBo:B[;55xYԮ%;r7q4!  9M7GEJۥY^Y$ `nw%Tp } ^v tSՄ~:{MvmSNԍBYy;GMwn s^Z8"՞(m,nzbŊI^6_x4GyT,TcKOn_>bXHv>ꁁ_?!tIMBdaA<>W|
p8'=
7?_ZM]`F#9
:$&  舩wrR+k˭e]F;eQk?f		ľ: c
rMej*]!Ỿ5_\Mmc7EE"0&8l @Q\prۻ.sl9 'MXl#xm(*(p :  8i+y,XeHEghn;~Jgi
6vVG,B2I'z'xK __>J%%r:Yӯ4e
ńlUYy*	fU[_
i&]Ndkx&b'b>O9/X]ż'ᄜL@ڣ 84Cmo#`!"3aCD[VAwo ~D  kU 9ZU_ @5H(ܐpE WZKvs9/,nsz"EPtFA PGM$Rv/!`mO>N:;/?2OsSď^rq"uThs	nRrqF)]
3bI+2=]jĒD'a0mYIGK`{ kJ 8\In5R-Dp4:Ѥ#ȉ#
ᘟH=+ ZWy 
uh]0ktc/FT]?hyj=ԍ,;2zV?Z_ ՈtH/dB	,Tc;ȵ לM.cJZƣv.人q9heT #czb=Xx"o>J7>ݱInRi}^}G4H_Fgz~o<" _YKx=ԂYw0ULUzUmo<" _7B*o?dn.ams$ ,PzۋE6l<4|7q<.Wq8'WERYlOĐ:6ҹ
)uQ{J/|}F;HK7  
K)CMַ<]]IpQ)V w` 9Τ2 ם
n25s4(FK6Ff7?q @{m4*mVWdk}21` |q+'UY׉5.yV@e_!LB\L>GbxQEKh	<\E#?2b8.ߝ-u o=E/o|$ *drz } ^v >Zi6#{ق9;rNђx F[ (<7w7)	D簱-̇*ՃUrA|@{\C>T{le yl?9;5=WZ&BO-ĐH8
L9clX30XXX$䞤[_+Ǫ6)Td
ÕTo"*geoaCl#2<w3lg<t ~/ܔrR}P:Τso<%ɰD`HFg8dúT-tD.cܤ	oțsK4"QI0g߽^hu|rڱwq$	Xeq3cR~Q)tKsNF)]
3bI* Zҿ/ VfE+ 7+Do"*{kS"ػky|Q͕S<qoo"*'Ict{U㸉x+;og?v%iY>{Iu_9xD_Gʤ$~p uǆ5^ܕiWvQxitNso'#ʸ!2 FESZkh t Q^$g/~]+}=5j6WZ=g1nzV։  Λ
}7ch&{[*@"7PpYWGu04N:mrvEq?q# 8qֻjoiZoj5
o B@Hة*N}j6_Qu3|? "֕ ^q/|Ulog"dS˄?na  @->u1[}1ӿ^jZi߁o.\8:)d-o7sr~p+Zy viS+Y[Em;7ݱy'4ȵ לM
3iG<֑;3DtV2	?M2dL.f
!f
wzOK,Z.^6Hd!PXhv41,I$~]38ԯs[&Ik_o.~s&6m`Կ G  Zt.n-mF!I*ĮF `
R  DKGA6a&Q3$AyeQӀ@<V>5i&Ku
O
puyqcmw=ǾKImbf6Ϩ~}Ǆb:rQ* 4R]{k83O|1,wbW 2 ם
OgZi]kث> ,p33c ^w4۸~){[Hm&t}k±)u\ <Xh"mb9[dC>67$<vzi[,*897FWRO$d#5
i,eR͚wذ g$	' ``qIu^VĢA:6%I*3T } ^v jkaBs'/Hf8<t } ^v ۸+|/KןS5֙yiQKyb	0Ila) Aj|Gyq@-fX-~tcG
/8a:VNy%PԱG8D`qG(Ƒ\y6G'<:,2FGsKQn}OZuV{uweq_ƝǄu D54TDUT` : +?D 	 GM$iQE( 5?_WٺKK~^ ; 
 	]q> ; 
 	]EO&QEVo?Z_ ֕fEW 
 KZ%_jy6ʬYԊI5>-Xir\sup"ű>Gl<7!oNdj?uZc5<UiT%L8RFDu/O6-)xi"(ѳAʒ0A*Mo<" _cIx hfEڼ" #uج		-e'8vu-|ttK 5FKyn]y.,g92< "& $JtvAaG}x#9OɀIhZue}mF<D#F*ßFR* ?~7xJkmhH8YyA{ _ %}{o\_][IڠdOUAXmIK
y=8yj z<Ie*qfbT 9&E5黬n{$vf	pygɊOg]m>󿲼lmm$-#Yb}nVǭTF[ [ohO4v0"e` 5bol CI)4"6j
c7dXVK[	6&4`2US<C[^,7X?٢yn3'sX	xQZ	-9-ņcF ֩i^h:قAy#iYS('vC+MV\GeJ0) EW X  U?4ZC}rS!GeX7Tބ2\ X  P"	<QG` _#NtB4EyG:VVٗf	݁SHo &oZ[^U"і# shZrSubڍ^h٧p~fH!2 =.tO.|+Č)R<<% ˯%D7(4ǵ<{DGd#_PPL.3N 8kבR
Zeav|M7Fp2N0Coz[AZ;LCl|
G~~;fztʑCn;UPIjAbmG BI"S&;1wl':tNY"Y"ZnZ?ﯘGr2Fz4 iZ[O/"ζ!2: #a}R4X0=`cIZ4f
%$ {fKGm_5.^f HIle.93]E / ֕f~Z Jm+<k}>9e}Q$rxν	tȾꀵoހo~uA5yMjGf&. k4FOm.cO{xeՍ&Kl>([4{bVar)]57?Z_ ,{
iM*-B٭0IM0P[$d6:ȵ לЍ*Ohpb]*gXJlonמs)u&Ԯ/b^dHU̥Bm
L
]Gk`|3
m}Z Ǆ_k >PI~$3dPj K 5*dluD͝S1ي290&	 %N WXhh5k082
yrsDuv~@6Wڌ
=dk#N>db9e"_  jfxdㅑJq!Gz "Z@bj~ -O:3UHq ,}i?! ~Ϳ Tg_nji2涾lnbgk@"5b2Vpfjj#o8Eo'9ͳju-]$kIMX2FFpr9EGo YC>[b;[{66yYض7qt!  9.W%tA&l+ka=b@$ƌJ_JB.t2T623RIޡsi}CIyRdd}j̻|A,)ҵ+9^+aB;D:ph[z~Gu\HC"GCe<qTt ?DT[
lfXc%X799i  舩)EnsՊCV$լ#K'k)|-~eX`0@ӧ{-q >Y- K7B`RH!wt?pyBJ"HɊY	l#;nRz] [c7D 	 GV.ZOhd]
2T"h:l(c	J%V^(5Դ]Kzr2~Rr=(<f2oyQ,28Q%+bx>}6ӦXëBY4-X
Cpc"Gʱ eS=φ&}lnDL&\V-2?#Zy Ҭȵ ל*@fN ] SZ,M`q;1UG tIJ
UMF}6b:}üAO.RނNiWgkq&YG$CnqyBj܎\4=uO
}qr+	L&w`P6 `0pW=m
Q;d@:[ܥ  @V=ʹ]`%'hoEB$5k -i_+x9Rin/D3ȉF$e wCO{%S(fP69`=vCګEW 
`KIҵW6ޏcP*댏z?Z_ I$U*SIV42u!H2y p
lגhе{۳.O$1_̉G%I_=F[HU_U-|uKÖH[x˩QG Ǆ_k |NvYh^4O*$IilXRzvCX\ދ6."x^.3#ːA1Y*?zmcmm$`A*[`:w.bћ/.	h%&2Mp4S:}7^YYP
ʹm<"F@AM #-yp]<Sekgy
$V[0bܓt'8ԛF[ Bj~ -O:3UHq ,}j.Ң`+4bJwDbBUVx֙{-.Kk㱹skm^!2#	韗TtMj~}4h</BmJ:_;_qX_jvQ^Y%Ql} 9Ao U|"?[w68bۈ1,xAjo Cܔ;S֬t%nc$q[<$j́QM?#~>#*[m# c8%Ǫ@Ȓ"j:dFya$QTTt$]'X--lwN#BȌѫG
t JpYo"*Ow&l L3B="M c DEMJ؇#K?h3yo٥<y|:EǊ4{[洚Edqy1r8,#W1,rzV3 d~}qL2?x v<<6Uܬ$[A0݃@؀i9\* _o Zҿ/ UxXw.ȁK u^ kJ 8MJ ~/ohj{+	O:c<8 X  Whе{۳.O$1_̉G%i_=P6\ngzC(z4Dcr{GIcY#utpYNAXڲ\麅\[̲%AS>=q	
iW!Vh-T!?
Lv  6j
c7dXVK[	6&4`2UT'xK __>JşPM#ծOalmp,30n^ ]M}gO+{k
CƥA`zuuWt<CK
oLFDmndxcSkEuS7 -i_(jqK <Wx<? "֕ ^q7P$ՌvWKPJ3!Wr}_.
#ӵ;V*,<]Rgcr]Qi  kU 9\ׁlo-&O c+󯛹y22:|A "֫ ^r I&jzbחuO1f`,I$z_ӵ&ahCռsmTҨd:O_ZJ-+YјPI;VN
ǋf:u0Ǧ\yvyK@'-|!m+S[ki$RyD&QգgP$$`T "ZƒAiesxD FY[BˀNq_  h!ڮe$
xy<i'wm5cIکI*!nu!%v]HB= sPxPuncg{h՚%;ՔHOm!a(:}ҾY$+"8'A;~/Y=ʮcu&чUdpOCF[ ske{ԩl  .ҁFd #-ypdmKTm{UFm#Ǣ(,ǂpiUƤI^HhQU<S5[^q\6E@d+c@5kꐵ8kdT5wQ dQ*M
K2Aj?2ם5UWZSilehVUIcPx
z#5jo C!F^=ġ&x8wt$U)=iڇt.u<aSѤdR# `5#5*>nd`x~TK.i/e[>l$D1)=p?osGIcY#utpYNAO.|
OxkN
An!>=SO.|FQH(sPw }t  Zʺ+|1Կ/}u? `OW? `OTTbiQYfEW 
iVo?Z_ ^DiC-ןHTS]nD("dfLE@s{慮֗f~Z >;wN]\Mo}'>,f'88
o<" _ iQMD:3\~kCҵFm6{+ՀIT262sVn ?~7Jm[Mu]n!0@΃<F} "Z*+3zG=Jcimd5I`o>dص/buBs4cYc ^w4x{PVޙΨ]Z3`	I8։e ;mYوҢvzfwZmilvve@ c֡Kmu'$C不(_sWP=t ?DUݵ힡K{c0Geu$2z4 ?DTEqs J`I6w0?~K0zo_yw.纂hcD-JȨ Q(ZVn  Aj?_ P'ԬXt3"_I5,O)uPrvc2q+R_V"%"\ØwPP=
 ZWy 
Ҭ;
kuojSC$ۡ`y=:һEqV>/H/nn/VѧiaEn@$.
G<i	G!xBb݄+xE _>:Ҭo<" _iR7 -i_+Jf>Jcit5 FpAU-|^cs9h³|A "֫ ^r #uۄ:UDMDx#d,CI]|~  kU 9E#J+\iWKIciqrm$YZ(d8#v<qv;: / z6.ya c|s*Mo<" _E6V)HpV:gzh^a[bD%?z@7R  DKL6s:Ʈw mgAԞp>K?o-ƕڿ$VVqcoq$V?h DOJ 	  .kcv?+v8PUY } ^v _J5K'U<DqmF>3e+r<re ;j Ңg*IĖb.3;T<_worZsȱ&>8, @t ?DUcLJf	S:U}7?_6JwW4S~!uAj^o	T)$-X:*I
ķVQim-C$Ă,N	UZoC<% ˯%iVnqL@.Eqz/Jbu4 \;Ns0⧏]OnWM6BF%v/SqmEW 
iVo?Z_ ֕ f/~]+J)0WDg\/޴6psVؑ;,vscOޡj켿;+[[Km^P,'HpU'kp2F~^)Rxc3u4C -i_+J|? "֕ ^q ė}ƕ}Ȇ8'_$%r_qcȵ ל:[ԤDRqe2oZ_ @4ڰTQ^qFkE2Fp
'HN@o<" _Gj73$jwke7瞹s*Mo<" _NCQm4-bҪ(߅WLꌾ Դϵ_Gks!Asr696ol Cj֚:fw?jnFFw،nM #-ypxsi֟bAsҵΧe,
d'Y+<O[(n.cp*o֎a  9Ԯ5m
4I_p&0BH$Py
rzӡ  9j4w֕5qY3jW4BWQˎI^ojxrm.w!4"a"y8.c7?_^x⸅*FH5GM c DECEqIjg^WG$69+#5<޸7ݚXjf?:D];Xs3.;kc ȵל_ Je8y kJ 8CIP X  Vf  舫֣"wsGkV8쓈'}@5Jh
nw7lW 2kvqζZj	D."cnOU?Cr-<% ˯%iVn  nuۯ]eޝk
3yFc ZIEs:_.{) #%ѹQheHq;3ӥtty kJ 8ZU  @|Yxmd A!s* Jo?Z_ W|GyIGҬO|$ ~Zy vb4j7fXėP[Ot_2UBJRp8Ȭ{Q\&ַYwV/*ˆ<d~cVn ?~7t̈́y#쐼mm!R	fo1N
sxԿ G  #J]͡_i	wtaPBD[q9%@Eҡj(/ o)mȂMU ;@wu7?q U|/k7%pEyhaPހp	*~fSajol CiQX&n$b#6+D&GU P7d
mB]:՛f +mB! u5o SiWVvSO8T0 } ^v 047X>g]ZsYYJId|K|W5FtaV."dݧbPF `7a.GY'xK __>JHWV-51T'?_ PQ@Q@k*7Pw tVcv9_/?'xV!+'?'xV!+
(5
Zy Ҭȵ לt{(+˹vWQn35mh#r.o^&u)h
6$jk[sqys
*@2LpO^-]4fQ8-2@ϽM?.c[Zsj^b;_%)CЃ$to<" _IeiZXjvwS@q4pN=j=o<" _ hHd73\]J;M^LEB򘱳{\	FH 	' u&<K?fӵ6{:)'-_Eyvݷn<Lc'g)5/  Dznc2A4rfBѰaIqAGR  DK@ui:
y?kx|ͻngX}r]6]$ko%ıj^I$`:O TGQSl
7@|ʿ n9;MЬ47%Amۿjd8M #-yp'T:IVSЂ8" #-ypmv"拫\j^eox;3AYScҘG-Vmy
,7
# j#okZu̻w7Iq7ekk^?4OsH}Jm5neUܾu6
N  I$h X  Uk{hmgx%]WZo"* ];KϽ.<3"nlhxYo%m%+omo?	Fqyrdnf.|OYsL[@OA~tJ; ol<?3~qnsvjqY=2q?_ Vf/~](w^%ol6g@Wkx
+ Ğǁ˘negd}j2[\xgoITUII㊶v4k4̑dԁy3n r@divlm4mh%e̧Y kK 8C0fR[^>hm129'8<bk}Qm_WKجXGk>ҡ;v dӵ'X23T0	&N:ʖZҵ+h]0#z[  GZU Ǆ_k *@si?a<'zbmݳt`gQG]]/X<'C9W| w
xm|'\\K0c$UBO U-֫}c6w<v/<m:WY[Y6&`GvBu<A "֫ ^r Zҧ"俌:Wz-j/hJ$+*MfS$Gb9IdgdyW;:tˏڏtZޚf[̛Uۜ`GP;LFw̲[ۑ8@G?s9xE _>:3<ѻB$U`J68 "~Z BE&q-ോM[d<7@cny̐$5մ׳uFq3	NgGu,Emyۮ'vݸ$i1Կ G  n!ʁF$pAUK?o-ԫhγgiK[FY]#`zc0qdٳo{>]wnSR45MRϗ~:qGR if i}<ϵymezOJ.-onuF.b/>Tqƹ!Q1$9' 	!  9͎eZ֟yownā-":*?2ם5 ,:_Wm|9>gLvRZ
jY(6)V0z="[Z֝e3.F}ppj+jsψt& `{F㻹aEyr7(dcĄwۓj ~/Ȭ7?_Kb-CN՞隬6$b9`k'HO$H8s465K}ER-ktf5%a[_ecUE7d~ujK!hYC3l3N'mvGa}h(m|c']nӦS _%iVn  ZlfBISRբ̀B
<K+' ?yVuƮh#olL(.2D'kzM6kYO{|xr4kZTdZ^'S*3vBG_ @5Y  kU 9ZT2t7]] y+"XمvHt͍oF=tR)' ]d%Lp]h#a2Ulxh[^֝!ѮkfeIt]*OTb7ޑcEDP
@*֕.f)jӨjG@fE+ f>Ejե0լih\22? ȵל_ xA>sy.Y2z
'#.Ev
P{Y1qb/<oz-j/jBnFgENpHȵ לz4 Qgx;+cw	d_}Ju}4Z\]B[[IdLfCMzOm֥7}Oو<ug<u[  GWva9& F`CЊ Ǆ_k H].94o`3OnfFn׵T ^K&Ե7R[B"yM?-F%$k:@wPlY.fXԷ\sZjvlm92~`q34{&\C#Xiw%3Me ;Nb'Lm/Fm:3c ^w4Yt76Kom6s<Pɠ[꺕"Ӎd''<1V5-sHьcT,l|jH7d~uVoxjbiC&A$Ec]rFAzQԳ\iz\vW7za%cc`0qge ;j[qo*M9#`y #-y sSw%&cqΙ-ѫ#$𙡑N:t;#<e[#NvSi_)e  9'$iEԯl-Is2ƥ2*͜w76>1IAi\VQ$PXpvGN=ҙ  _ "* X  PmχukIҍȸKjZp@bamǆ/dNWn5ٳ2$G.I'1n eRD ˧g=9ҖMkJSLSMBAiJDOC۵r"ƊUFV Zҿ/ VfE+  o"*n< .-n eYB<7NYvxM c DES_MgPRy ˍRM'W+!ܻx8sXAmXq=ϽGyiZtA}Zq1ps*'xK __>JyY[($VT'xK __>JMCzp--kNx#bb84b=7PKฎB7M$$!#w)ߨEչ8%C$hec,p7}ǭML ȵל_ |"%{(O_)!9H g  @djM%kyn^D0do{T3'totk{svSW|A "֫ ^r [_cpOQH(	pj?Z_ 6C|AKb'x#"Ep
RAێ 7>,kI%F#\]<mvoW1ixzvk<fi}6{i@Е'}Qm_WKجXGk>ҡ;v d _ %,+R
Nh&	>q r9G _ %tw>wno3>sJI>k4l[Jgwќ=cu];Hglfز\̱nT+LXG+^ #?Z&o5w>e%0m̠o
|2 ם
Zԭgɠ:6c ^w4~eyw-a~laz3!7 eܸ9<`'Q7},HFc3tP~l]
hWPGO D\䊎
SOӎok-Vcsm\;yhhp[Zidm"
17nnKo Z PAd޳  9CTu;}o{{C3+MᕀbOC%5y:>pk_9	6ܻX2\]kzM67zDL
NNORZVq
gk<<'8A9<$Ӭ k`D6idޫ/~]+JtO.|=@Ң( (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZUKX[,".@ hǶwᤶMg}
`}S]B$t-m\Fp9@?Oz/ ;G ;B;j:6zHfX
[+$Ǔv0 qtZxE _>:? pګ_]$Qxe;H\)F /WZ'f}iwC"ʯ-Mc0(ouqw @=C w @=C дw
  ҙ* ?~7+v_\\J%[y̯ 8\hc<q "& ^Oh0;t,S#m~~G] ;G ;I}> ĩt 
7?q G ;Ud}^h\PK22?ORwmrzNT,Du~|qGY\i2:#.[ 1.qv8= ;G ;Ii=L
SW+6̶eIN"z0<䎹::o"*? pګiq}os+n'$#Dr-QS'jI%<vT5*7m͡wʖn`HE3i|'9/+v+vn ׯ2<HxAVSGbz?_ Qw @=C ]:D,($Fq -:G/+;zE-J`6  F}YWV
7Mx-	4\a6}%1N{+v+v=MC(e 2\)73A&$v2!vAZW??U/+ItK$$LVH0J&BKV
/SӵJ5Ls[	.d,0Tuƻj:6zHfX
[+$Ǔv0 qt_W??W??U 5-|uX^^Eڪq!=+j~ $~ D
yC\iWXXt&wvZ]ei.|d	U 8_W??qymBtm~{bm+,Tcy.x`N-j/hһ  } jq}{^E_	'RAYHNiqDQ{k6%A`\yC	kgw?W??W??!qHrQM֖ +v7vz%eN +i
i#bt~H>Ump<a}~ҽSJz Jz .tC7S%_Կ G  w @=C [닛	SDo9$ {gzxHԯlm:3,j[̀,@򬕖?
h܉,y|kһ  } hһ  } hZ^wc+DԼWjZL6%)%$K8bT
Xe ;j? pګj7gD(yg* -:|ǋTygnOEͣLXovț{\E?.4i,d/͵ͥ(Ey#<v_W??W??xsM]2Xi]	z4 ?DTi] P  VW/N%LI F:OM]Y#ᵛ-"{4V=aC,r7ta9dIiغT&c$!(1ra&;w?W??W??- Vu->ݷCqʇ، 2~	 Ku?Jz u&|YQH:<Zu
%f%i6mMӵ+fK{'-i^Q"%"^i[GЭ]_؛Aż+UK7Sgһ  } hһ  } i_xEW 
iVq}{^E_	'RAYHNkr:_ GI^_>Ao#K^s>S^E4
^K;ҳ3 =* ;N.t]^ipcZ\̌\\H1^1q[V%J#c֩i] P  i] P  㴁 _0 ZWy 
t
?Tmd5 CE2N! ⷴ-"]	:qV pV[v9Ew,7hzf|}kZy ? pګ\_^hIx`RyӚ;
}{N Qn8̳<|gk p? pKqc7 /S I-o<" _W??Un/(K<2A$W?Ӯl^.ӵ/]Akm@Xڌj:bFcc-WK.ݠ`lg mWaw @=C w @=C Z;1u
;Zqpիa`w0黝e ;? pګ%cDXyg,ё -:|n=FOZMtK4W̃sӜJ<D<_s=*Բ]Z$Ϻ| VAg=wu W??W??-u >
kV𵹵ܗY#G39ibFܜrz } ^v i] P  V;nΉ}Q( U'ZtM>)VoҮcd0qMѾYHb)OP|G{i6^ed.ng"H`3:*	? p? p],Um=trxY@  舨һ  } j_J uʟқwdmN[+k'Ϋ羉w[)qx[i[.kZ#kّܲF0kՆ<8v;+v+vK]?ȫrmbY4 r;9j Zҿ/ Qw @=C Ժ<.br(qM ?DUW1^>|qf
xק%ݖ\G<*Ił<OjJz );:6}	KS\( JUrr>asom.uKdVYYx1 Jz Jz JǄu u'FjjV"]:UE>q#M:D,($Fq -:Zһ  } hKhE顁iH#ہm# p? pw/pp ZWy 
n7Go@կŋdA~iwZE%&+$%Tti] P  6g'|?/iZȵ לJz {i|$KIe g9~oyR(clI$`.#$x V>u/%wE7R+31Gp_a?.WWw @=C w @=C ԯUsmGF_CIS edqv >SR  DKG ;Un/.l%M-W̐rn~X~}K+c<\EI<&Tg*I?*|_nɤs2	A^=i] P  i] P  _s#4z^2׌ڔV)vU wg<tc ^w4i] P  VKƉ}0 Y#ZtEAiuuvlMؒ@A& 	!\ruKk-2=6kAeg4DgaoDpIiw @=C w @=C ~_;%=1!B1 P>ro C+vq|/`%dʴ N8hn9\
F)opV}W̮ >pz>wE[VEǟ6Pd|= ;G ;GK|}nGxnm-x	l!/>`qRh/~](һ  } i4SC<-<lA*Waww/E( 5?_WٺKK~^ ; 
 	]q> ; 
 	]EO&QEUmBm gٜn	{t5_ @4 y 5G?O  U|Yxmd A!s* RD֝]wl#5۩\'FE ;;  j;Z ~  ƨӵ?\._w{:ď; \/8ĚΎ>/+#lܳ+$8gjo 5G?O  U4##	(8U%fRYKvlc
\>ê/-K+!$2wm
N-M_;Z ~  ƨ  jj5E9X
kJVv`;Z ~  ƨ  jo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPo?O  Ty 5ZTPLK1MLcfadz֬o<" _iP=ŧXePׯdg]yk? lSºke pVNHd/aηaD6X2nhZ  j;Z ~  ƫ>Oǩhl/PGi5T@9ޣ88Vk
\G-QEF@,~y."o;Z ~  ƨ  je}cu&wvfH9&`GRI?	liЭෞBHEn$Uۿq j 5G?O  UxXEίmA{u-['qV®xݏ$%X63k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң3|k? ֿ s Ң15
^]:m+|'lVo?Z_ ֕ d]	$1,DKV;Hd<k? Mj"	RVY8j4gklddG?wqj;Z ~  ƨ  j4OMm8^S}#\[260M_UKEm=:o	$4k? ֿ s Ʒ%闷h|hĘvrX11rpj[[\XRW{!#\%C|8 5<k? ֿ s gPU]B;)-/<_{*q~q	N f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5G?O  UE f 5Vt鶷6}fsp֬o Zҿ/ PM56V"2%ۏv @?  Slbv
tV^sj8D,A?aꭁڅv @?  Qk_ 9 V=-uvW^-MHcY>MIb>[xQmo Dr"K88cXc֏k? ֿ s Ώ6	fnt^?Z)	
Υ7Ffm[Ե=z{=>A?z<nyg{oֿ s <k? 	I# o=a2JySFqfW_iRGcqGE4QpJ̤$ǆm 5k? ֿ s ʵ5K}RI-?qh$Bs<
_j5E9X
hZ~ v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  Qk_ 9 iQ@v @?  TmıH$&E}vC砫uǄu 
*(
(9CUnk*sR$_׆N ?BWm\ON ?BWmQSቤ>&QEdj_ @5Y  kU 9@rDKQ%ڞ1R Bs=+Qt=%]*a`'Si =O i =O ֚fI K}07D?s=ޱ	0XXꚭW:OEs+0!8 b -?綡 	 ipZF\j
'󟕥EaE 5$zq[Ȭ*'hQ&C6xkhe֝}[d+ef苎L KO.KO.pidH<ͻwP3g~-?綡 	 }
ޚjf) |#c?6w`oYؖP  ]ؖP  ] 4KO.Kºݭ<-v_+Dߝ oYؖP  ]ؖP  ] iQYؖP  ]RRI.5܄}~ʍXƀ7KO.KO.4KO.iz\76<0|Y]T}@Vo%?a? G%?a? @TVo%?a? T}.kA7v|,TxZ ߢ-?綡 	 ?-?綡 	  5-|uXomm%eW_9Vb[Zj^ѿ5(lY"ȳA' ~Xiڪ[OǦO[yȁ9=ִt=_4&!oQ> {j0 wf|R~ۏjV |yϕ׶ط.|?yj"+ o)v:¬bZmC  uKX/!XtopIv)xR-
]2mJhgtq:2B򹐖 4WZ|.\^]}Pfcʄ"%\8 HKO.KO.دu]jѯ.Dn&1ƊAnʶTmE^KO.j\6֑W	|iQX}Eߢ-?綡 	 ?-?綡 	  Ң-?綡 	 }
ޚjf) |#c? oYؖP  ]ؖP  ] iQYؖP  ]RKsqyQBof* ߢ-?綡 	 ?-?綡 	  Ң-?綡 	 c5ޤ\ja	|/c? oYؖP  ]ؖP  ] iQYؖP  ]Rnm$yn5as:ʲ7KO.KO.ȵ ל*/R,ŖVa5#.kZUդZv}̷p\c3ɓ]A#Á\y+S{ 6"1xHq9=֗O+x.r#{XUKO.4 fvl<x6yX&xQ?J$V	W{[卄ldܞ V%?a? G%?a? Go z͋ǨQV l}eG!v298z!,o^ygf@ `T>
։aq5Ơm}q*	<?]Ĵ ڇ' Z];KϽ.<3"nlhxZ5i =O -cKDPYbѾ9$_ր7KO.KO.4KO.j\6֑W	|iQX}@Vo%?a? G%?a? @TVo%?a? T]n\jT;/啢  Fo΀7KO.KO.4KO.Eչ<u_3J	 oYؖP  ]ؖP  ] iQYؖP  ]RRI.5܄}~ʍXƀ7KO.KO.47 -i_(Ĵ ڇ'  ZWy 
 ?iؙi=Ҥ0{F{g5BhgX5G*RVw
b-.M^I^X]*+c"}%?a? G[^hLޣ[Z7"`RI(Tiu&c֗^i[q(9\+6 t_ؖP  ]ؖP  ];ǀӴ=+um9^x p19 }&k^;dfE1|8Pȧ瓞*z\76<0|Y]T}W-?綡 	 m1g,ouMV+nŢcqÁ@1Nw|@Qno"(dDۛ,ui =O i =O 6ui_aE
Y"#EMidH<ͻwP3gph\j
,ѻbKO.Ң-?綡 	 ipj,V:78`~Ĵ ڇ' Ĵ ڇ' JĴ ڇ' 7zjGq䤃TEf bZmC  tbZmC  tEf bZmC  uJ].mơIm3~YZ f~Ĵ ڇ' Ĵ ڇ' JĴ ڇ' Z\-[CʎU|34Pi =O i =O f/~](Ĵ ڇ' K[wO$ Ԣ( (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4CƷ]*&mUO'ax-nY>=[laqU}{c;H8(@;p9ϵe7J|4cVIY
=c#!'W5
15o<MH"rؠ+k~Z 굗Ե Ȍdm*qgNl~Z "VpB+/5_h!.~Զx`TT(#9ètd=`;co6^Xl6HJ!;#Vm3B_/ -bQeO2E|;=@/  D6ä5
##M,A;vs2 ?~7{/^im$m'
H8<}koꍩxjn6#vqG<.xnjt:w37P.ѐ8#?fMp%7fXpz[,x^Q{w'qqg73 $p9& ?8j}/OIlXRi,U@8 gJol CM9;	ld
KR:mmeo*P($#s*kRiKzlO$,D!\2wcF^XSֵ>yH$[e Y~vE{5k=My_q(o]Դ*-Э*2Rx2A  X X  TVM,gg ̀@      *=7?_9+jRkZݺz
A|)%9q 	.9][W{{+'gdG6|̌K-6i^'1SA<Ik	t)y.eJC!XnsBashg={v  JF@ c-qV~  #bR]FN-P7ݣ \R1VZkj6q2^l*B8ć=+R<Zi}sI%zVMiʱݳ3ȤoRqUBmh]/_@Zñ{
jtq|rtZO,mqV(.
C6wI	#ERG#)=5oeR	&{=V[J%Lc+,C_)ru}PXQĂ'(-2!A͘<1ږ}%EDݐ d2r/
Gm{osqj e#`ېUAss8<Qtȳ Ǆ_k * / ֕ 9kۍ;s^I\Hh;XEpx<sxR3MHykˌ8s;vM:_m:u$.ѐ3Q4A+϶ Xmw͏1=@doXmQKibVQ`a1C_ @5F	Z,o`pv!O!Y08\^Zy niW
ֵ k;RC+̈Ìc;<u\x6 >ɦ;%y"&.KěwG#"Qb΁\j!h8㎼}jַ !&y08 / }>B/a)"ŚԾu/,mȞ1q^F8nPG
$_5%ץSz{1Dw_\:LIHQ'uQǢ> ?~74tFdi'tzXڡԿ G  3u.|Uv֟wm ÷@*յCq &_$"<qͷ-l	u[uK>)!WII1L ^;hG	 <nqݻvvB__Tֺ֍{zʖsĨ.Y\ U8+B#&?2ם5^-\\m\ʹڸEUP2xUI9$!  9.9j_\iͫ6V$isw1sI2@Y&5o<K[KIbFT3w<nG"aXդ3CP9y	!աxuY!X08A?wW"ޘVj1$W
VL
rx{  _ "VSs=ɅyӐd|wb   舩[$ NLqح4Ĝˑ[-V~tZU#wo.9eeT[91]%n}<b)Z"U$Gn@I[1E4K,jrǜƒ^e;3Ps6: UAcaoh2$ I WFPt7w@Q/!/35}Z
Bjwrofwf#il[L``ݜq:V%fT0I6F!HeF
zH<jZ+ICjzŝn1@!pBm7{iJ`C}&o NwSL+y
y
Tq _^Zy Ҭȵ ל*@e,WJaWd+f/:yF{K!w#p2'p;Wq(}6t=y+2PG
$_5%ץSz{1N;bzƏ+}Q[g(Lˇb0Rr]o0u,df|'ms$od2\i"29l1䪰SGo Zҿ/ V$)jھ`ݠ@cɍ}ї B:߇ Zҿ/ U	+^Z F;]r:0#"O ψ.NF}.a !~R>UڵA "֫ ^r E件V}6!ہ RxEW 
TJź>&1]}_%H$yp1	993^\ҧX[KLCK.RzܥoĹK-oV(F6'~fcϭY / Ԗ\tB3^L'90לzxE _>:oȅG^P^޴RFϴC#yrg\ڦ=ގoM}w dc;m*X`.x'wYWX)3C5X1FCF#𽡴kk,g)&<$E2WtZڕ:IqK,Nr?v
#c ^w5龹/5/I` UFHdd
ol C^).m|EY.YZk<ts#:Ar<\3sۚ54fx/KZ[i\yi#.ͳ^^ɦ.o3I*6rsҭUFM\19(yOAtiu hmg@fQ³.G$e ;j~EiM%D+3cL>U3e ;jo}	F5(f<qnteaG%N[%Q t5x];.Ոi.e:ŹvUp6cjz0n d[R62:HSs?Y朣+I13nv d  u(a{_[6."YcoUa  _ ">-.Z4J308To"*o}	[js2jzŶFS};YlܾJ/ 4ۂ34zƏ+}Q[g(Lˇb0RrΙ&fQ_=N
_v0
 6qIs;k'Cs!NIɕd.%Ur>fb o0u,dfE+ ifE+ 7P X  WujQy >/G<ۃM c DEYSxJ)cyn,WQ1.K0S1KrտSwZjJ 8WII+
PrF5E}P5IVuS
9Uw7SOohPIk"h'rV1
1YZCkm(#~=<% ˯%d
KR:mmeo*P($#s+[D 	 GU|::ĺ
A",X܃B(+6^WԸ؀,4qJ8j&Ö:}Քj;y`@_v#+;1<,=kS{/먺 kJ 8\V<@d<ߵt kJ 8U%6omU*__A7֣y7GU̲yۀ:^:qZy F垆NlkEiN8/?Z_ ɦ݅~_]hWOk4yѪ3*2#`8+1
eY'IՑ'):IߔSF' Zcִq=%d
éUA^MFUx
=6~@=2p9bW_2:iuI}?hbAf
\ SR  DKU5ƥ_?dDe#nAUӍX<sgR  DKGA>2Ԯtw7)H*?2p>\^6!KK[dҕXF4bؔP;dMV=x98M6u}QO>$T$3w_wLZ%Է2Z<K;(U,ʹ szol Ch9[I%\Nӈr8Ib7?q M&R>5K,CKFcX)83fIٍ[^-~gYr>PBs]NGEEŭy\ە``G>"-/k˰#MpS.B!UT $v(úzgG$ryh2RUGno SXv<nf31Q Ns5?2ם57g_I.yC`RMg(
nэĂr.	ڶy&R%-\Ԓp0$b#x=B;vK!e%@c/L<Zj:V YFw+;F7!V9a-
[uBH9'YNT7|L'xK __>Jkk6ѬPB8z*?*Ǆu 4@QE sKCU[I|S ȝ Z脮ڸ ȝ Z脮ڢH|L(+7-j/kJ|A "֫ ^r G_ G#/ O+n%e02)z|O~ڝǡ|&Q*	nq? 2P4="+(=*[+n2:t Yl%9=wWO0ٷbBW? QF:cg[  G@'Q  @}? *Ĉ$ 8#\5
JKş$k"H*Za  @}? *	{*iV*t[<NRxJki'I\_ iڷ 9  {
 _ %: ?G_ Uc<緖HfVI#b)r
rUWՠeym)S_Hwsi7d;~ ? O d 
6Y4Z̿gL,cO	f<Ic1ff(2I<V& ?8jG_ G#/ OYq]j+vڄ`NTrI4b|Nu̱&]6m#')k=?O  @}? *{V,tۡ<OEus-67*K3uV_c1I8#$M7?_  ?G_ \r_YI5HThm_&&NI8CXMwtmqSQ.-&YwA. dZoK ] G_ T4}HFJvW
[L  ~gz?_ P  E > ? O d 
uzrCf/>M?j)o:A&	-9e8'h[lRKhm1[J`s0)EۘHA [  2P="o˥Xk35Ġ'kv<[]gqUc ⇰-˿ ?G_ \k]z+5k;Ӧqvoa121@$0F6eoz41]<`cfޡA\F	`.j>kmm2׎V
߬o<" _iR="o˥Xk35Ġ'j #/ O]FyM=C4z66*D\G ?|3nW
GNNOws
#/ O懤CJX-eee@T8 bZkL2w5#];04k;aT0 ryS_ @4ڶW? O d 
? 2iW5oijKZ\^>3E
"6qLC'U
cC"ҬQպ83 #B	/<A!ߢƎĈ$Ԛ Ǆ_k Մ ?G_ W$A!)JkR	xnյvv\Ng%rA]Rޟt  ?¨jRbL
ɔ'&fyq  z "ZA  @}? ( E > ZGZ]75̬ux@$N7_Z[ t_]}jy_g7n˻;慪O  @}? *:|AyҬLkk*0	yrqB[;55xYԮ%;r7q4!  9p` E > ? O d 
a-ߎ];fTӵ#lyAftyw5[ז%lgpabsz;kc E > COUTU@mLGI?m-/#lP&XPO*q	jM c DEM;'Q  @}? +VחZːvʢI~<ّǙu  2N<U4Cw}ykDolDaLp I
#/ O>Ke#IX&pN ?
GY]2ʑЊ6v,wG'=j/#/ O'W#:M]PXKwϵXFeU֙e_Qki&Fwa+(h"v(J`@o k\|?Kb%
u|A "֫ ^r ]մ\isJח;Hw*#/ OiD&䃂.nGvZԟ^mFݥݤycwc|saGWoO:\G_ G#/ ObdúT-tD.cܤ5Rg@O:PzM6YtbffBX$_ E > xE+ sbǉ%uHd3F"&Ȍ6Æb~e ȥ}'U
sC!,ZUH۠*Bq֨xKVյWFc?	ۙT=+{-j/j'Q  @}? +JZƣv.人q9heT #c!s? 2P4="+(=*[+n2:t Ӽ9q<ibT;~	$IxE _>:v%;#/ O'Vok `d[\:%`#T*Gl-O;M%1wON	v:G_ T&8b#kYٗCŃu?·;[ɭo-y FS!f L sIe ; ? 2 ?¹xI[m^lŃ1c
c'tVAg^$(luYq21
As2tv;G_ T!Ȏbc[XWK˓u87-'CHOĘ`AlNOZo CVv%;#/ O'V_ỹHMŪ$=nd9P2. jXך<e,0$I[ag0ʾX 2P=!uU}*ŕ.Pt;GげOk[KUm/Rq+q4 ?DTڳ)\? 2 ?¹)>mBR9jvud"{0`$#`ųM2OsSď^rq"uThs	nRrq}.ʵݑ ? O d 
<? "֕ ^qZ+FtT 	#R ZWy 
mYؔUSWAtXUD\d  @}? ( X  WkZ^nܗWS[';lccxRW=#'Q  @}? ++'ui.cg0oHT`ے40JwW)h-&b.C:  * #/ OD 	 GXQV,-8	3<#uҁ  @}? ( E > :ψty8*4G` qv&lsM6YtbffBX$_ E > xE+ q_AEmf?%<Ili#/ O懤CJX-eee@T8 dXEi6Bvw7'_ȵ לv? O d 
? 2PH4(9;	'ӢH^y%5i7S$eϗyu%ϕ$[6i0Sg(+_ ? O d 
hzB^JU27&S# UYl%9=wWO0ٷbBW? QF:cgR  DK@'Q  @}? +L$Р=FdH4o,!zp?
ԢWFM?@wSIcX<@3 N v?#/ Ohz@CJt!:^[
K2pgiᏀRF%,JxԛF[ Մ'Q  @}? *cI57_g0JD6pW!H,5>创Xio-GGPχi>M	# g[  @}? *:|AyҬLkk*0	yrqkjH'\06Fބ%Xp@<o CG_ G#/ OW__ꗯ>$1k2`ÖSЂUSZ̰ZXǔR_8p u3k'St-#KUQN zQ?
i׷%Ziݔ`9=v  сER (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4jPa̍%In#OU-=Y̲f&,bg&A89`ASj`ڄM2>l`"McOV\*yd l`r}h[OΓ-ŭHԤ"[%XX؈׀0 :R~Z =?VtH󭤈LFΠH9*H5-|teH#4 doQDʩ 2 V0U,x d&S-Qt?丱 V$dHCRNˍyHOY>]K?o-Z`id#Y"v#aϣ)WR  DK@+{9Sq*.дsqۙ<+w_qW/m<kxY_i;TҪ4}5
){Axo'/<ӭԷegoXZGƱD'j<=j2 ם
[lmm$-#Yb}nVǭTF[ }DE7QorѬLU$DnuxwJ6T6?h^1:A֙m7NormV$LhduxK7&XnDgDN@ZM*[YǸe31$MW X  U?RmE͜d{6T#

U}7?_ Zh#%Ծtq;jy¨ҪI\iOj䈻r9q$`$F5)|:TF 0
f>4Kr/pt!Y[kf] 'v:ѸȂ8
 IMg/~]+JtO.|4BK<	+bp?xd㏘U,_Nhnw󜎼`1U/Qi׏ksq(x;id<JG#C&k3Ę?0\g qм ڠrsYz,1\ONxXd7PP=AZfztʑCn;UPIG<c1uw-=U|mdg=&'K[[yHDJ)+ a  tO.$PK<r$^q[YmGw(F@QFm+S[ki$RyD&QգgP$$`SI Ǆ_k * / ֕ 1+}KV7q*n#r##T.;߶%iVc8c~m+<k}>9e}Q$rxν	tȾꀵoހo~t/ ̆hyICr"Z'
'  kU 9P{K7(kyg(1<CSxEW 
XI.S10=Q}xyOhpb]*gXJloCmcmi5GK|w>\ӅQǥU / իkkMZ6c2=j 4YC)R2x)DX#%,
! 	߾ka*< 2k!<Uɤ{;i<cQdrP([vBNˍyHOY>]K?o-Z`id#Y"v#aϣ)WR  DK@	~sкYFH䶼݂ce%W'#WOaͮ 3g9.
?H4<qYpT`֓/'O'Oyx߿<l:6i	"Fm,,07;́p*8e ;jM,t$r6b'Hedr9?2ם5 ZKh	<\E#<*1ӂi'ۀR/}ʱ,$;ru@㊩]7NormV$Lhdu'o=-o1Kc%Cac 	<Ѹcec^FrtbIMU X  UfD::){  _ "}IVj>K[<6[wev$d㩫]oEVE.B@ }MUEnsՊCV$լ#K'k)|-~eX`0@ӧ!JRňP0I$5OD 	 GZUǄu _HKx&&-Ou+	98'F ph=GjC*Dg9t4YxH/RVywy.ҤSmN9Ih߭\ɽ1G+[Ȱ9DnxEW 
iVo?Z_ ֕ fNH7w@ *)DX#%,
! 	߾j}1
xEI6w,yN<f*PqmbI"Ȱg6n,VcxGkIdVG(a^PZ#=ElQ: kJ 8Un#^\
q_ΑLvWA sV? "֕ ^qxGK֬D
HQ@Vp҇NKȡ	<$,lBF:nnWZy i=qLxI@8傜9j_ @4;Jd,nb
w7%gmnحohj{+	O:c<8hZ[YKs%[A,q;*y=* ^sAiX9=j t[-e [ş0I\Im+ѲG^{/]din1󴄳p <  5]jFHyQ$NK`,jǢӵGo.\ qq\;[n25s4(FK6Ff7?q FiCl,vKy6lU# c & ?8himQ1<(KtT%z.f"PQoΪj~ -O:3UHq ,}j.Ң`+4bJwDbBUVxZviڛ[Pogf
X;FIp;
o CX_jvQ^Y%Ql} 9Ao @[_kI	>\A"g+`dgS4{
0
abqbIbIbXǒzM#[1>\VO#	`dd#S_Hʫ&[nA0h^@VvV6R3#ɷq?31fzAڪ  舫Jt ?DT	oțsK4"QI0g߽^hu|rڱwq$	Xeq3cR~Q( H%Gi|7v/vx玼Qq&YG$CnqyBj܎.lVo Zҿ/ VfE+  o"*'Ict{U㸉x+;og?vX X  T
4Qqea3As!GRc' =Gju;=ͼc O*H:,	r}Mj$Qq 
 YZ2s<aCѤdR# `֪:Kr=4?_ TWuAlw-k=RHF7_ZD 	 GQ_Mӵ\k+%U 0*}(66i5Z@$t֯U}gO+{k
CƥA`zuuW7 -i_)[}&yv Zcc8c~E+ _mN!t7`Q
㟗3HzӴM?Jek+(Vf{/$9_ @4;[ӵb-ou&v7 uu_ @4降=.Xk;wx2e!AaikL4N$KdwHv~\SzbחuO1f`,I$z_ӵ&ahCռsmTҐjGgIA$jR-Ē
zJDk@  u/  Dm+S[ki$RyD&QգgP$$`T "Z qcmw=ǾKImbf6Ϩ~}Ǆb:rQ*VZ2@׍>gʉ wv[cV=.ҢR\hUє 1(# ,4gZi]kث> ,p33c ^w56Y=ʮcu&чUdpOCF[ 	-.VX/#fTq"4r4o2H#GBjNӤY-ʥ4+`,Ic N ԵKM&g]h<z*x' = q\jI;km䆍pq،uw
t-[s,(UdeBVo C*M
K2Aj?2ם5@E{'Pxg(eX"0Y8#_cHԮ<g#ɞHVdEFE##F^=ġ&x8wt$U)=iڇt.u<aSѤdR# `zkh t V~  XH]VSAA<% ˯%4 ( 5?_WٺKK~^ ; 
 	]q> ; 
 	]EO&QEVo?Z_ ֕fEW 
 Q:vz"XICXծ&3ZNͥ^XJTc$a5P;
OFLk+\ݫ 7] \sgg[  GZU Ǆ_k E0H *pҸ2yohXjQB,Dw`$Gl*(Z?fxdㅑJq!Gz "ZҬK?o-ղ z<Ie*qfbT 9&E5黬n{$vf	pygɊj({}/ $M(ȥYX  
XF[ *͛F[ 'vؑ>G5]E#OK+Xf4`ܽ}jqc_X]$6K_>e2x;AlIi=cK_S{imW)jO*[oB .i  舫Jt ?DTi7 kP--PG[e/*DhG4-i|9s)mF4a`lɸF|3${ =.;y
 ^66WCeRpyCY'xK __>JҬ<% ˯%9my+U-խFV,iWltg$6Mץy1셣ΐ: zwPPFpFyx~ iɳc=3[  @=A;k0YX>u|Xذ]3
 t%Sѣ//wj b $$2 pc7[  GZU Ǆ_k *@rz]|'xYѶqfbb 9&Jd84׷_,X	xygɊ? "֕ ^qL>|0UZ[G+=a2(arXHlu>  kU 9ZU_ @4۾[U|)xy4I+أW"s)PBl'
Cv 	/ѣwR[»z3
^ / ֕f~Z q $J
UMF}6b:}üAO.RނNkh.t+yY"sxdRk\HAjޥ ?~77R  DKH:dWCN5cs=]ҳm>#6fPQy/y>oy~mݴw4P_{t}GķvmkmqB2m 7`n98C #-y sVf #-y sQ4M׎
CO6(LCJ$m#~n{Veދ	gMΕ_Y[( g-PӃ]ܡaXֶ,v#Ġ`+#47?_iVn ~/ww%++~ 	oin] Xʐ.ATEeKXZTV	DLTLJL{dP);stR]J^t{Hh)P!#%H<*?k:?_ PtfNec
BdA`60-
 ,U* ݕL>|0UZ[G+=a2(arXHlwtS3|A "֫ ^r 7-j/kJZP'I d ];Ttkn+3 a<;qd-$D 	 GZTK4=uO
}qr+	L&w`P6 `0pW=m
Q;d@:ԴR| ȵל_ ~T>HӵI۬:|Γ"%.R2X ȵל_ *V?ZM7q{͹U\d~cַA "֫ ^r 7-j/j*[U:cvc	d 2K2Zӱy|@C$k-eԀxFG#
] / ֕f~Z ܔfF鷺ky)U)le޲`֮﵋;Fl&ȘI6`n$z`sE%O_m+[;mlI'ݝ)U+6c	9Ƥ2 ם
iVl2 ם
2u2 Z\ח1cr88BdGQ?/֩ωI4fOiux^9
7QGK FTGxtg\Xq 0f%-C #-y sVf #-y sSnJ_ dI52#<W(}u*@*:
bk`CkMq;y!dFhգąYٺH%A8E+if;MoAy
g.w{67E. ~/7M c DEMJXluXgk 1ls.(d~"aKdy|;xmXHva32 !Ӏrhm,ʽm
Q;d@:/ ȵל_ * ZWy 
mܔo"*{U:cvc	d 2K2H X  V"xՒM.
ݭ^eHY*9덏
OxkN
An!>=V_q)X?_ V,i8n.u{dKm>{,1aр#r<% ˯%iP>8N:m̤ͤdAFF@lg8]Su  @\i&c0ZW!r3 -i_+Jùxhͤi62:##Ȯ-j/kJ|A "֫ ^r OEByI] }:3	8 jlN˛o2[o6Iva屏c<㷢r^?5=;m2٬~rvv+0BKc(Yp	1K?o-iVn ?~7*/>][5f|FNe #*SHXu}J#t$0f/	
	PN߭uQ~ k\^puEcyu*an ,@Q~0y:sc ^w5Yc ^w4\E?ƍki,׮o6 P+9;J
s-il#.7"U?DDTd!*=X,/ЬF$8*Fj?2ם5iVl?2ם5 r<W[A[]܌0YQ;c鱆Ioy'D漣Uv2H|C*\smtl݄g+4ꎪr;D 	 GZUǄu ؍*(Q@k*7Pw tVcv9_/?'xV!+'?'xV!+
(5
Zy Ҭȵ ל
.tO2yĉ0%N;Z˽Hm2-&Kdɑ_,8Ykt{(+˹vWQn35mh#r.o^&u)h
6$j_=Quk{<H^6e7wa9<hk~Z ꕾ}g6V,^#YiP; O2IL] / FR'aTs_3i^X-$H|ҠG
aq0{	|lFkӼ+Ci^VȠh^S6oc+2 (do{Ԧմ.gX#
:gޟ _ %tϻny4OM|Rj_  hzG=Jcimd5I`o>dص/buBs5ko΃yO3n훁Fz2<.ocܤf?M{{1o.3QQfgX
qϭc ^w4MЬ47%Amۿjd8M #-yp[W׊.2N\ټ#H1ʀǭC5-S1OIybqmPP#'ڼuaWK,oGubr+*cazS[>:*yO1\ᵗzdC~_֚tMFl[R< C+$<'ɦ  _ "GқM[n.~{w/q6̀@ }I$4 ?DT燉]5l`/q81~z aON:&]ouǢ[sP;;垣Wkiǝ}\mۍyk-$$1Ey-A#8#T#д} q<% ˯%h qY=2q?_ P$sǉ+=j+*ȶRMK ]Td
ԺE209$ AT  SA:K߮m΀63V=*i0$6ϪdWm'*=3Bp~_w:ñַVu4:rIXFQדӡq+#Kglml#A,
(>e=±}A{sq}j<NS/Hfr!pP9N;wN]\Mo}'>,f'88Sk'-
&7&G$Moj2_Yͫ{H|gT<qBqQt.~Z Ju-|uHiRXk])fdeqC}.ơ&&XpxqxZ3~צ,>f7Fq~UK^bt1wXz?=-Gi	dtDG!\X#r8A "֫ ^r m\j6k"<V f  t@HQyΧ?Z_ v#Ju6{4d6!EFC|7m\O
jbҤmNu<Kv,FvO0WsLiu5mV]NW1PAe09=rӌTxE _>:4$iz(u	/{z3:ѭ Ǆ_k FR'aT|u}н+¶ĉeKR~w.3oo_l;$QFf7s] c{ڶ%B`9Ry/  D.`wymۏ2FMK?o- {} Eaiw6}Kujƍ@dL<j_
?7c7nsq5^մ}FY4Bkx%ͣNsȄw=jyEj8

l2lٷ.;|- !/BΕjڗ:Ny."'6%F$}f*Wxx } ^v \Z:]"^(|rBb9bI,rO` C #-y sQ]L
g*IĖb.3;T<_worZsȱ&>8, ]l:_Wm|9>gLvRZ
jY(6)V0! 3SLJf	S:U}7?_Z"[@NbB;~WM c DEMmLoMzE$KR&h<`@PNI$7jkYEi./gxe8$3AUjiڳ3UdG,q	s!־Fio[
snƠ0c)- L7E8Ӧ gw\zJa}h(m|c']nӦS _%9Zss1uvLWzH.pqSǮi	dtDG!\X#r8BISRբ̀B
<K+' ?yVuƮh#olL(.2D'` 5<A "֫ ^r 7-j/kJzCu[3 ]RZoZO۸b+lHQ9ı'WW2t7]] y+"XمvHt͍oF=q] byqo54m6>t	7Rv$gb'9c9GPq\ǆ/dNWn5ٳ2$G.I'1oH(UQF Zҿ/ VB TSOңO3.K;: ȵל_ 5
R]?Zf<џ-#;&FP4jĺ[ԤDRqe2oZ_ @54mBId8Jňȵ ל ]*j0[],gw4vm3Xn8BpGݯ@.FU+#t쭍%}gKr7mR}FWdV` 0.}8I Ǆ_k Kn) 3"|lD?s9xE _>:oȅ{jUi6dM}t`in`iUD«O^F_jZg/Ԑi o9kIbXutNM:{-nlnۙCU?;ɵ-CԮ|VЈSnF/щcI=	Kg}ZkP隻H
߳wb00	7?q U4{&\C#Xiw%3Me ;cxsi֟bAsҵΧe,
d'Y+<O[(n.cp*oֺt76Kom6s<Pɠ[꺕"Ӎd''<1GOz_/#9\jhL` H9<0C #-y sS[/KL$s:yCn3o M+6uMgwz}ڕM$l2-EWĚ^[{imf3Hcȹ^N9ﯩ3AsjKi4j<&hdS@HVӝZjjd)WYd}:  I4_̭?	⺷te# 7?_?F4H,6q؝O\.{3M c DEMϥ 001Imr;H&WvFjyqo54m6>t	7Rv$gsF}b9tr.Rږ\8(0`|9q"Ӡ:5ۻMol̡.˸RIF8ڵ_+KR,g(N;j Zҿ/ V"ƊUFV Zҿ/ SvP X  W#qFkE2Fp
'HNi  舫 Qgx;+cw	d_}ܵn5Jh
nw7lW 2kvqζZj	D."cnOU?CfhZwW2i:vq^`$q.@@8]:
/MCoƛN I}̅~}<% ˯%f^^(4˽:kHg-sf󳴍 * ;Ǆu 7.<Aqz-H^AeL=J
 :_.{) #%ѹQheHq;3ӥtՁb=7PKฎB7M$$!#w)ߦ_Qu3|? "֕ ^q/S-[ [2D8nyAkw -i_+._uy/$S#DN>ǽKV¾#$nwiVwR>y|Ò~_c^MjEW 
R]~~>^;nȵ לڍ晤,&q%]̕P2+>^|>	r%ûʳ'rs: ҥtk[L<rICG"C) QTPyo$#[[sn.@.y62_X.l&dki
PK3ypWvsƆ ?~7[Zsj^b;_%)CЃ$tK?o-f]CM3ʾӬ%֠||zrJwͥB'P^A<RۑwҺGK}sy`i9<IJ6k5wys1h_c "{bY䶸Xn(-7J ;n%O*y-M #-yp4-;y,D!)n/v~e;xS ?8iMi60Im%G-m$VLAܠn8B7u\k6
or@VbC
	l.Ⅼ/͝2oFd2FVD<A dt7sj>tIfn-s).aUzU]T8e~?2ם5&Eqmk奓e  `7(ݹn,?2ם56$sǉ+=j+*ȶRMK ]Td
&j7ˤ"q%.<ʆW0N8ڦxuxM]]"m( gzQ.[9u/Z(MTgpq:t u54Eum"PH!qsuBz*-<% ˯%XӬ k`D6idޫ/~])č*(Q@k*7Pw tVcv9_/?'xV!+'?'xV!+
(5
Zy Ҭȵ ל
*+jpZFOgA\ΧyͬZ3-WpFPU?}R+Ǫn ӧV=S^C5ylyNH9赿-|tҢ= p *+IҴ_SӴK]bo*Mo
+AM@4-_Cҫ7R  DKT<  )#{ 2UK?o- hҢ<qπ N 0ͮnԜ"yl?`v$MzOaOٿe ;t 
7?q U%fБEqNT쯄Zutf^|p8YZ[ji˽(t(gq>f"W9d%=t ?DUUjMNR#KƞO9 ~/4?b<i\M4c
yxϋBpbl|=:9&J<Is\&͍˅FI3/w #7D 	 GZ `gh/~])Ң:e:i%0i#V20rNN$ukIbբO(1~.ўk`zY kJ 8ZU΂/dOu%P9kVtTWIg'RXZuUmLu)$!WO:~j53Z!;[{d~ctZxE _>:Ҭo<" _iR7 -i_+JcC D
$ մ3YW0Ozs"?Gv՛_ @5iCm\oOn 'gXa2/AcZy mXFWGhx/Wk|Ă0a-qAz]f~Z 7ΧS ÝE7Ch3ZZxE _>:mXF /W	xgIW6gI$;3Bd*ޟt՛ _ %  ҙ* ?~7=4O[_zEak{
N#dPd8`Fy?dOI(<65mF|zg8kyוCe ;j-4nCmm(&b*$'Vo C4UWT|6:|ރtb]ݢ4ۧU1(°=p3  _ "tx%Fޔ~N|(z ~/Vv%;TW-_rzđY:vY>lm8\`jwDMŦGx$i!/b븘@vnϙ)y [ Vzef/~]*[EqT:# 
LF.'|=7cNm#OKEsr l=<lɖ?; }rEq=ϸ	csՇxPч`gi_ @5Y  kU 9ZT?_ Vd %y~tesazFyĒC<t&IqWvCfJ:޷|"
/@h\cFǖ7C翷2M:.f?$? "֕ ^q7 -i_+C/Oj}7ľd(-9Y>c#W_W;Zy <5Ƶ,۾&3Gc]?Z_ IY_iQEx4x;cmf8A ~Qs7[  GY "Mik~Z JwFxQԼ3i}kմxãbb2
cjImjvECeŃqqyilc M%zYc ^w5kah3-എk9d@2*ܠ$g6f ?8h#J<Y ixGKձctFc_.OtyOGE5flVfT$~K ]v=6a  95aIui#1ljHs: } ^v ڳ)\Ң_jGH"Z"m`3Us9=΁giu9A4O)EGv@cYJm؏UJ7?_?E^~\ 7:)o"*mYؔiQ^o&motѷj:2yW1gC!ܪOF.l3w!OpiUȆ4oy`(t;WK ]
=|? "֕ ^qۙZ&BPc֩xE+ 6JwW
7?_iVn ~/x?ĚP<_O}{ם63  KI\z+];Eկ|AY2m>7Z[JОco;*yx7gkFgaR0ON'xK __>JҬ<% ˯%`ˢi:
SSKi֞_ڭ]y8s
LxG"Flرx!$	0km3|? "֕ ^q7 -i_+CoOtCa8I[R4Lȵ לKBg֮-j/jWa_Es^9+$ɨ$ȡF A}f/^^[b+}"{l
M`mhZ?w _ %t.xvGo׳jGd[3<`m퓒9z-K?o-4?Vn}QokSӨO }kTc𗇦+cw#im)N[TO>\vv="f ?8kıw!:l?r.H e ;mXiQ\"$ؙ.K;&! q*+$i7"M5>c4rCL$0ɜۆs+=a  9/'"K՚x*]Ym>jo M*+C[}MmclfS
晲5o3#^Pn'$VZ&{\4Oueo;*yF'e[S<% ˯%Gyn<-xl 7`sRh/~]*ER (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4zkxnP$*W
S<b*8,e]Y# G}O&k巇t5+tB[,GRSQ\xN֎3:ؽ@% <J?R՞3v,*492y$Q~Z 굟L4u Y76;yNニ:xE _>:  A5aJNiw+ڤme@8'`z(sw㿊]S{$P.Feذ8 }
6ј89X(ĒxI$ _ %JZѮ`Yia"@8u/  Dzx!H."IaJr(e`zT_>o;3wKvn:sJfã:bd$YE˸-<UǼ8?6`+h#(cPjUG@ 
7?q SzZgB" `#<c ^w4Bj{qhuʻ6#qɫ7zmdllm3+>R1g^t]Q'FhU\_!'nkSig-{V!	wR.ն%Q UA 
  _ "4VZ	8Xd1Oo:$. %[A $Tzo"* 01LeP 8 d6f[Ciw6>KezIɬI$Uе;i25MnW9UF-_idkFfT\tqtȉkh t V~  :?_ P!z{
csw<Gtd`YkKf٭0K̈#N}sX-.oi6$۸?.*
C^+B]f-^L%kˣ.
@<`9U  0 Y kK 8ZU^˷W;UcO?0K-i4iV6M.<mnL=M-3v,*492y$Y)x(]!$Knە8<:~$K{k3P~hg@Tk8Y / ֕f~Z JZ4xON$,bWE
U	gn%y~ݛ\qҲ5t[jW#kαX3ǭ;hpaF*o;8? ]FlPa;A "֫ ^r ie->ADxFoxEW 
YqkAQыDRy+iq۱kRc
jiC<I~D&%(C'&c4i|v> Uo<" _KesK k)+s=9E Ǆ_k 
"zTIQUWOUUTW FstS=*ӰDf=d|qMZujW1CEެs(^_`:mᶌ1ąơF$rI'K?o-MjP֍sȨK	 ݐ'ǵC _ %ZΩXyYn\nQ؍78Y[/7V1튣Nml!R6#4I[
ϗ>m۶c:civk[$Eoƀo FǩKqn6WL!wvQXUB"e ;j ,1B<FQz2q4oM3Gh6JFoS==.k:BHD$+7xwWLwV(@auk[{+h #H@Zo"*eyco{jek,o7+j ~/hN jivWV|[3p?*\!rP7 /沶/+HI
IJsMXtF-M@?08 dXR@8 ්8aBqUP:  U<% ˯%iVn@$Oozc.bErrdicѴ9584${D82z6Ŷk}ok}^L8,0\,7=x[K,i2D%f8\ cfP2X{-j/kJ|A "֫ ^r 7E 2
A Tˤ騪*ƪ+#9:)z4[q ]|qMZujW1CEެs(^_`5Ѵ8)9/S*xzX>,y
};E108lSeR9<oG@fE+ 6Z
ޡMpoIiI#9; -i_**)}oEa 	E;8
I4,1B<FQz2q5G-j/ilMCPسJ !}9'?Z_ ՀҪm鬌eWd;:1r<sǠjCuim4a{2Tn	:tQ[Jm+o]OQ / Ԗ+Y  (=0ӜzxE _>:MZvZ­cdP2&gc*'=~P1UuƂ{Ɍ0m,仪=Mj,漵ШtV8M+<
PEؽifŦi֖1ntc}HP2je ;NVu$7b2d@@,Tc ^w4x	pgE(N	  q([xV@s(=H8uj6wڅRLjbQ
Iuu隬(_|9Ot$Fl<傂Z`	=ݽ["@Ku$5No Cҵ85}:;DV,eldd0 o C'4?W!aY7OR[YZY0*F(0"jv8j.soi³T YG\ >=
=ZE#i|ybXgMN	I"bxmՖcY"䓎I:o"*Ҭ7?_ <zCjUm*#ٷO;>3ӎ)eѴ8)9/S*xz X>Cٌo1ݳin|Ymm$4iw"b`pʤrx8K77 -i_+H ZWy 
 4 ?DU3i:k##iYdFYy>C  _ "<sǠjCuim4a{2Tn	:l^V4_iwRۜHWĉms46f~-5Ԗ`݂fs#:P^Cum"$ף)E=<% ˯%&W^̫Isj0_L']<% ˯%Vk閺.O)<l*`$BO
Qkn&QBHE8ʃaSVMlt,vU0gkZ kJ 8VNdf󍝹v7gv:Uo ȵל_ 6\1ί(kM '9<q94Է ZACʌ/ȹڼv8MUZy FȶNjKhl9ӓSxEW 
6zjR{[X.09GifŦi֖1ntc}HP2j=kVEӾ%8R(6wwneXu"[kl 2^ygtC8hԁg###-^s=͎gk=Hs'O> ?~7Y.omtCO7Y+ݢqk1S88 _ %[4I,1fPJ68$qؚ
-p
ftR!QTP³itc0yag9.aOz7&sVkۘm*!PX6ޮ@qZ[A<CorCM" 
! HsT ?8iF[m=ie9VR$`f ?8h啦hְ[Itl
K袊8U  2@'Ťh'_& | n!FX8xmnsr
%.0Þw5)%8cI&`2 Os=0 } ^v v+HnmL"PFERF[ 桫h-zE7U8#k6Om0<
9RGҳu[\ mHp,~]T16;>T$hmAm5̶aCm@qcntO.|rHnY`e# UOD 	 GFiQE QEj. ־2u?_WEo?c%O3 "w i j|3 "w i jM!0+#Pȵ ל*Zy  :}SI/5df<(&X#Hye2rLyD֖`_[4ŻNO$G"YUbI+p'xE _>:Ҭo<" _/ʥ@*@#Mn1zC(7WɈJFbI@@ sh:Ӵ`ˑnp?+짏U`j}K?o-iVn ?~7r/Y\j^m#..-%$*@<ƹk;[oi|Sy1݂x1J(w2|/gqxSH˸)S e@RM #-yp֕f #-ypn2nP^XFD!5VHtY-5ab/n[?kϔKUFeE%1tKşRo_̮4HC'qcM c DEZU  _ "7{|GjwlYmwҤn-8S+rqލK[/Q5	>yF  ݍWGktwX! GY'xK __>JҬ<% ˯% s曨K^ImP>ɨ鷢ALd	mn\H,Ds~,TKe ?=붢=D2:Ջa+xTKLLLcOC[u  @=Ahr[ie=D\d}6@0@R5}oPG}:<M+eUi$[;!dtSxE _>:Ҭo<" _iRԾ5~eƐ#7X'bkT}zY`ťn%6u]O Zҿ/ V->ct&;f9u63)k(e ~cZy Ҭȵ לb4[ {RЮQ..^,i]H\_μkamƟ{ѕd&xʰҭk~Z Ju-|t۸hdP2J+ͬ'EiZ a&9N$>>U9wf2,cxbNe?.F
;=U/  DY "ZAnRI 	HU+ӌ#t&#UaSxuwd@W||vݏ*(Z^wA}u]k7Mbn[YQ 1dp.C #-y sVf #-y sQeMῷxQdv8^X:n޳/w;Ym;RUaaG 2zWuE)[ m`qh
6P  舫Jt ?DTۻ)YX
3hwBs^[Nv2ǹT	#xOZ֭j61Xp>`~B{(Тi^A\jep;AhΛiuFG+NtO.|=D9;HV8'V
|ۖ!CJ:%Ҽ<L1w`a IΊ  kU 9ZU_ @5@zJҮuv {?	ie%IS`G]D 	 GZTӳ,qV= m5nZqF!DIwXFN޺om
IX 'IE 3|? "֕ ^q}gJյؚuLi8
N:ҷ<? "֕ ^qrև]0f]^|۽kEW 
iVo?Z_ n4o<%Kj6قI)_9y7>>e9f:CN&aseIqĺYa;ܢ<t>g[  GZU Ǆ_k b7z%힟=ie_iDAz͹5MbWkgp
,MHd>cFX.EvTPs Ԯt{($DHYd}?f@_\zs7?q ZU7?q @΀ڿۙEgp%"1+{qj}ԵFVԬm:{k]BX:rNˑN\޻
(aŽͧnRx3l$ "7͒s54?2ם5iVl?2ם56晴CĶri'<gp 0dL) 9Fk*/
VjV3w4HJnήy yIA7o>Lف2y@oƗM c DEZU  _ "nI[Dsr隘]t;wKR&3,>RLd I-mvIVtbIYqUd쨥m,}n@zU ȵל_ * ZWy 
mݒi  舫.Gf
%|S$H|4 ?DUHs
yM$SƂ7
˽28'mN}#AdU]aKwqZ4PJV3tO.|pu-7w͕J64$G^m<% ˯%iP>9Al>(Ln
,G AМ 8]uS`s7 -i_+ګ;qk@X`BuÓҺ ȵל_ *!Qҥm5տ{x'_ @5Y  kU 9U'wq|[kwwZ^[OȬ.piZ4t{XVwy%06`QIiyXw95}oPG}:<M+eUi$[;!dj_  kJu/  DmMfDP֖wt_&E2ez7akeq=Jd;<EApۅn{WWE; t۽O!bؾi7Ꞓ9$a[=׎0e ;Ҭٿe ;/qKk-Ռ!4bIK#,]I;C/Iu-;OXF̙adBVZMmI,v󸷸co 0X0>bo C6o C9sM%ԯ$(dtn~ҦE2ml irE\uPi
}A:MƩ/PPA@wQEE`zFc"$D 	 GZUǄu 
*(
(9CUnk*sR$_׆N ?BWm\ON ?BWmQSቤ>&QEdj_ @5Y  kU 9@;k᝖WSZKwkadS 5^;9aCLT<Mv5VOO4&Qt`xnU-Y`ULnɐ[,0(VMOFR\;Ll1!+(#1 Ǆ_k 㬝>wKqkf$JB%L@*}c\%cl]ջx!'@?nHBS>鐾_PԤYqM2O+̠Ă@{FRW#%?ưi[QƯ$ÁQ$2 G:,O4@1cn$ s  oR  DKU/i4m#GŘى5
sH{)UeKg"2ydɼc<緖HfVI#b)r
rUWՠeym)S_Hwsk;X\X|rnR0FA*f^sqs'n;َyosyyfy$bPdy&M #-ypZt{+MSO5$Z d=j|Ag(lLkk:}0	x35riɴ%R}=5j6WZ=g1nzU->\n﮾<2]y3,IMprHn^uXXZ5Yr$#AfR\\[Y>(mqވ^1:0e ARR4WZ2cr9wUh3X2I X  U]> ZUԴ]vǒŉf=$O4Y[WVBnnLC#FAF%r_YI5HThm_&&NI8CXMwtmqSQ.-&YwA. gԼ9i5jzzIu/1ZϵW<*=*.4ӚYػ;#Ky s^Ǆu MwD5E,HP vNO\"dlQ 839B?F&/^}NHb#ZeɧE-[$%,CmIvv
+iLf33(s	 <^Iu>lPG8DpqG*x]4 Sj7o쎼`1B7ݧO @pf'q66DX6x8_@ņ 7Hf:4V)d ee'4N^ȩY.3u{
ĉG!$M6-xSѤԯ7?g6HB

0HL>?"cQ6!;m c8(~tbHԤ"]Dʰ)+ a  t _ / ֕`jƗum6ҵԎuf8 ߤ'5iHfFܒFYH׿:φmAvS)snؘHgN
 pAF;߶%.>ݏ:wd*ZkL2w5#];04k;aT0 ryS_ @5
m; !":0!]"/r~`}MY5"oQEؼk*ġ=i#=O
j"ԗP6}BfsHEm!BoN85A _O  M?ipeLcp`}^F[yo(ɳw47u=֡>I4v$F
-g'o<" _WԼ9i5jzzIu/1ZϵW<*=*
c\%cl]ջx!'@?7#vbDpB*ֵ'[Q7iwi5r^XX$?Ez;k#)SXx*$RN8_Bۢ'~:;/	\Ms$I+
#;V@= aV/  D^RAk<}OY-ݘP4ҙ5[Tfr.L'HvAZGZ]75̬ux@$N7_Z[ t_]}jy_g7n˻;53]^^dKmU+Xf7\UzQd f<9<ݞs{C?HWӼK}uqqf\Ʒ43:nFq0?2ם5Qn|/$iنK,l07;fd8@U
!zQ]LmXKw㫻go`ٕ4H$%PYst<Vm/G5寉n-n+=Yb f,X䞵ۦ	SѤR?וBF7c	5
8rt$;r	P08iiiyf5yP|pN{To"*c{MVX @އ!GAbOj
?\UglU^Y	Ay1y~ww%++|Emyul-tG!-yR ,pTNISSAk<7wןfK뉭f !vȨFD
 +\ƭw
_k5;XX2qՋKFZiFUnSnBp 㯩SGY]2ʑЊ6v,wG'(l[ƦX d'>Gc"ɪX7W-A=zAh:M]PXKwϵXFeU֙e_Qki&Fwa+(h"v(J`@;X]žjLZ(Sgsq3N	j@
m; !":0!]"/r~`}M; _7?#c-j/kJs\&Z!,J 3ֺ@eiD&䃂.nGvZԟ^mFݥݤycwc|sa麾oiqou 
Gi਒5K8㷉yngw}tw~_=3$><Hl/ۧB!wUF;6',pG-ibУ:*ҹ_5ܷEĒD5g>n,V$/ 	OxE+ sbǉ%uHd3F"&Ȍ6Æb~e ȭ\!H++\ *B3֩Yx6mR=L4$H;BѬP#iw !կ5mU纑{vs6U=3JZy /dQӒybHYb*1nnCkDԢUyUU[%CzI_גkZ^nܗWS[';lccxH E  )5%etMY|;KrK.xry,I"~v$"2IWu-|u^Qݔ2[zz=ԂY`UGiF.݈[<	נ !hx6I̐3V 0leAڲn.{۹4[y}]L
gƲ-m$bx5#m+ѺG^͗t މn1Y   R_יLKksk[iH.(єëHY;Fq Rol Ct,[j<ԍěGE#NNikAU1%z#7m4*mVWdk}21` |q+'UY׉5.yV@e_!LB\LxqS1<( k^ݎJ/Bj^Pu=<\E#~eBF7cQo=E/o|$ *drz } ^v SNΓjmlu+#``Nܱ2OTp@U
!zSnExnoRsqj#ac}[T+L+ZÖ:}O4-+	%RA-2rwssx_WZUBO-`3հp23)l.<-j667ĒIbXǒzIm_ȯtK\Dagt*
7?_AgvTH̏&ߵ62Aګ搗>bJM
Ɉds#4OjPԎo򚝭d68	?1lLwT#ꗶܼ;nAU`B|۔bqk]/ЍM
&sÿ-;~=yWw-wq$
@2ہ)?(%_VUZ+FtT 	#R ZWy 
? / J kJ 8MJ ~/Zƣv.人q9heT #cwej]n2#ȋӃT$L=ΜU㸉y+;ogw7>ݱInZi}Ed%֡ll~{* 1;S֝{rU]F};Bw{Bdj&!2 GESZQFǪȈ   BB/~]+}=5j6WZ=g1nzU\"dlQ 839B?WzkF32[U$Dr(8,}h+N:mrvEq?q# 8qֻj<)i5lMi[@Hة*qߏ^ E  )4]E<? "֕ ^q/|Ulog"dS˄?nCD>bUI%ekHAFz[1[stךfgo.\8:)d-o7sr~p+Zy MM)j?~==77=Ny\4?Eb=K Mm ТH6'x&hcN2FA#޲uy	\Li7>]ԗ>Tl,N| rN֧ybŬuK7lX2PX
i3C$I.#p?.O˜r}jWCMOFR\;Ll1!+(#1 _ %>wKqkf$JB%L@*}C\JdlYRȸCy2x ~"*xIG߲̓ItmD27N çXRC։Hi,a\+y>7 	{Uƥ˹gSKIYIY>>bmOO7PxF*Xcv9(S4R]{k83O|1,wbW 2 ם
TΟ5ܶmw/0> ,8j9 QؘufB``g=NiqLwsCi3\H )&Z@k-%v'ɽՁ$dԯ<3[,*8;ã+SpHMCbӤY-+3*>lڇX K3,pIR]ùsjH'\06Fބ%Xp@<o C;k5̰
2y B8QҫîiVFְ*#92?1MhbkR">u^|~RuL[rq:ZjjwY_]<+ª@rK`}/$R(eSh"8Y8#;Roòu
̃ȨH$a$w4[ے40;D 	 GHkz*  h$[KW,!A5(@QE sKCU[I|S ȝ Z脮ڸ ȝ Z脮ڢH|L((|A "֫ ^r 4~/Ccwoy><y)$8Trx? O d 
 ҢN I4Rm)h94aC+)AP  @}? )h%fclMF775hG_ G#/ O
*+[o	[QiCG}0vΑ	\sSzƝeeӣў%P9}E nQX6.-l.n-'#arZTMm*(8=
j+7'Q  @}? (J E > ? O d 
 Ң 2 ?4G_ G#/ O
*+7'Q  @}? (J E > ? O d 
 Ң 2 ?4
SGmMU3[ Q\ΙhxZM5I( 3mk;}k=6<IF[8rq
+$[m7LXe29hFY28 '=hV E > ? O d 
 Ңom%7薲6Rtt=bcӤђTGמB#; ܢRRjo$:#jjG%:ެ.{ut:(wAS1>5G_ G#/ O
*+7'Q  @}? (J E > ? O d 
 Ң 2 ?4G_ G#/ O
*+7'Q  @}? (J E > ? O d 
 Ң 2 ?4{\|?Kb%
u
+Ӭt9˥ݦ%Wl,hd,	䁑Gx~g"th[dFJ6ヂb(Z E > ? O d 
 Ң 23@ٚgyȏv8L
Z+7'Q  @}? (Jŵ:%űB;Ds0 	泇>mkF;p0::
+ Mq:uTh94aC+)AP  @}? ( E > Ef ? O d 
? 2 iQY ?G_ @TVo#/ O'P  @}? ( E > Ef ? O d 
? 2 iQY ?G_ @TVo#/ O -i_(JŖmd
/=hB #7@945|<|р\Ze*L( 2 ?4G_ LE-2ͦi8@Vo#/ O'P{m-6h!DHd<(=O#9+%Ҧ8qS}1!Pn{UH89)GnatoۮCb*pq4Ef ? O d 
? 2 iQY ?G_ @TVo#/ O'P  @}? ( E > Ef ? O d 
? 2 iQY ?G_ @TVo#/ O'P  @}? )iDʪP'| =(R((sPw }t  Zʺ+|1Կ/}u? `OW? `OTTbiQYfEW 
iVo?Z_ +;zE-J`6   p+YDmJdw[*2˒dJ'һ  } hһ  } hZX݋Z{t5)5K'P0`
bukx~=N("]"#hźq(DWʐ䞀x9)#I+̈́݋1^ROMmytmAT;?30U;K| mݿ49}^;n0Mm{i+Ӭq>gqT>lo,/u+ȴ=rY弐59xcnʂpF8  p? p??Cϵ=Nt7vSFywz~j~!ߠ*{q$M\SI-+v;Gz+һ  } j95FL#嶖E'/j
χ Nsy7*I*)J%p2{sjJX@vP0a#J  p? p]-y g)GAleVV[Xt;CH>Qל myKK8cbēo	$I$I$[W??FrF<Wt  i:w[֢ p? p@iQYW??G4Lځh_dt6 Y4Ef i] P  i] P  Ef i] P  1FC+aPw @=C w @=C w @=C vV\Cj
t*FAJ ֢ p? p 5-|uXFU
o-$Q+~8ۆN:-Nz/pF^q6RA-3tt\,PA:]PO騺=􊶱 À*  ;@_Ӵp\ɯ&'=oaǝ U[%mXN.tuvkh2];%:)#? pڎZ[mAbn@<IGK]m _8JX{I4!En5YQ<XyWp	+:]PԼ;
ޣ4KR`D",#J2F i] P  i] P  ֟ו_źƅu{Y¢Eo99Qv={%wTs+js7iK?xU	&H`vW??G>5aѵRTH =N^W;}> NOUT\;I<6-M<ylm33y,ē  +v+v 4+vZ!I4m@4ϲ1[ilR
 ֢ p? p Ң pڍuƍy.8V, Y~TEf i] P  i] P  Ef i] P  zI2Gj}
pCcgw @=C w @=C w @=C pkS\^-PeN̬U@Vo ;G ;@?Z_ ֕srԑ{խe	WC@{6u6C5Av?CRSrOXɯ$zs@(`0ULp# KxJE$
~78?]һ  } hZ/  cԵ8bXuvvb(lL%y張9$ӴIxK}o.#)O>Y6Ig$dvW??W??z 8'Nh>~0,%
FU
6sbOӯ^Q.2GyOD9
qVV\Cj
t*FAJJz    #ԵMk-D֢MFh̑_7m#,(O˴=/P伺Gi]9U
 QV ;QkSZKq6,Q!wm('({X_?O+zMŮa%Ԩf@w(@U[r}oâT$+
+k
r;"cb v Jz Jz <sM=#U&OeP*̄o@ݻL`Vx. \һ  } j9.*Ttf
gr@Ef i] P  i] P  㴀Ң pڍ-΍y#:9U*	 YtEf i] P  i] P  Ef i] P  S5ۍPcEv]pXZһ  } hһ  } hJһ  } j8dFB$ᶆF
j+7Jz Jz 
* ZWy 
? p<? "֕ ^q0|K " 뜟Kjfh?w֗һ-(˜o/ %s'sꚺE]\S& ;@= \8/uM)f;K`
1VղYv.hԡJ!Փ4yp|E,i)/.RTry7 ;G ;GO ![m/,Siq,g
Iu=W`6RjlWNҲHӸvMPv
1MsxmA;!;2V;EIw @=C 	}Kq5Ƅ5Hmƫ*'bv78O7j%rKjafiw:[يLhEi@VHz+v+v3nC]h^wyu}p[mpw>qݏ@ioڜŚg/BI89]5մWڃE*F ʑyһ  } iGG{ _0z_v}o},\;Bwؒycm:Zix]KX|+YdggrY'' [_W??GqMkm-6Dݷ@pd$hj+7Jz Jz 
*+7Jz ֦HRMP
3n[=5+v+v4+vmjeKsjlΫUJ kQYW??W?? iQYW??FrF<]t+   e* ֢ p? p Ҭ<% ˯%W??7@b[;#FurJ62~	 Ԣ( (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4.Yh
}M#*ff
8POR)$4arxmזA'ֳ|gd@󇾴ވA:$z}5k֓iW!R0"9Izv;?VtH󭤈LFΠH9*H5-|u%Sѣ//wj b $$2  / F0U,x d&S-Qt?丱 V$dHؘ }+' "k	HL{?& RI$vɡj{ՕOk'}H "Z+yY"sxdRk\HAjޥ ?~7{aq}w'moK+'jp9<zUV]a%/h67 Mzu0kP[%ƥS LuBY'mI&)=tQ̷eXdGRol CB	mA<OU Չe ;$؊ n5mcYY-l'ڬHрVOoamznLc fyʈ71cϨ&FQh'HR7/_ZyXf	`ϙeLdpq$JOԭ5[Qsg7⍕*Â;_M c DET;]jKm
ʼLcTyRz sM c DE@$F5)|:TF 0
f>4Kr/pt!Y[kf] 'v:M#I ]:inڂ:,QyW
 FX>Vw5ɡkK˙M֧-j7Myc{fM3 0d.[?_ Vl2
H>O.|	xHӯP<v;y*G5~MB-Bg0~`=;<㡮7^G UKh5kk?j'`Us,}608
uog^Lkg$F;!h39p66Ak+E+o	*Ev1UBI'gg &mL<>Mݳ4j,%9d	gD+uk-h b(MjwKmm<d^/:H:lr{^YKdbł%hј6l/lW?h{W@n!%,uCg[  GZU Ǆ_k *@cio쯮D`ҧ:%"OϪkz=_q._	'i4mjY Idҵ<C!
>;V6v08_Dbm/uGlM!9ZEG$v3pxO  kU 9\|5a4fV{w"e&Q660Bl0|A "֫ ^r B4	<aMt&6w`W)
{^{
̧MԛR5{	/!W2	+2p)u;kkMZ6c2=j n{]C|r%4n@xWpQF}AxE _>:oF0U,x dBxEI6w,yN<f*V$ d8^Uaꩢ/ݬVgO xw)[I_[j04y;Hє _ %E9'7E*vĄ{Aƭ_  i݉O.`7M<vs\1U 1j  KI6 /Sfv~^71<bxKKe[	 ՈVY϶inټ7<?6nznⅪoM,t$r6b'Hedr9?2ם5gon-+hegb nrq	ЇF[ 棠_Mӵ\k+%U 0*}*	cqh[LadXPfXkFx5JM&zZUoE&!%I6H?7=2EJԯ{xQAl3X(`pGmm3Ess"IU=Q X  SAl4+`Etdx`t晦  _ "dt3SL!vLvֲ2'M#V*p}
XV,eBAa8N
NdT[.	,LrGHi *	@nCY-*K+"{&*&%d&=(Lg IwnS]C<% ˯%Zk>顒5vT*HR 鳀'(ZYxH/RVywy.ҤSmN9Ih߭\ɽ1G+[Ȱ9DnfNec
BdA`60-
 ,U* ݕL>|0UZ[G+=a2(arXHl?` -j/kJ|A "֫ ^r ]:f<wtO Ohi6:^eO)ǘTc
~	n@& i+4}U4]۵@OBc<Kz	9]=z
Ǌ4{[洚Edqy1r8,#Vp<<6Uܬ$[A0݃@؀i9\6D]?@Ilr Zҿ/ U[hw6IwՂHPi
(
N <կ ȵל_ ~T>HӵI۬:|Γ"%.R2XOGQi=qLxI@8傜9j_ @5-&J^z=@	BfܪǮ2?1[  kU 9U$_iV3xEM&TkYXL\bԅ#5^K}BcnwP`!?3I2&_Q%[knc{"m#kW=~VSǭV / /[#Yo._2=FAPj !;ڮe$
xy<i'wm5cIڣqasz.LP x̎.AdrgF鷺ky)U)le޲`֮﵋;Fl&ȘI6`n$z`_בL{OfggC76[ɴdW9Q7?q Yv\M6v$Zn*rN1Rol C	O.`7M<vs\1U 1j Je4K1=*
YV2W%[kZe -/c=ͬq	xpȎ8'~_S5i(-sHo22		}(}YamEyg(	FUA  yj?2ם5U9oYN+w#n İ`0Ae ;jorPOZ<yoo$>:6FN02=E7{LȏUPmndx N7O"H儒F#VRQАktc\Xbkk8	"3F$*ЂA*	Kozf  舩<?-ܚ߬0]
t;KlnЊ]7?_7+bJ4/_0yfmgnx(okrJ-0W/<Q\ıZc2]Q3GE3LwTiW/rngveb C
 r\k_sY kJ 8Wmhmbܻ",֩xE+ 7+To"*U}5,&h.d1?Bd@M c DE^o}BcnwP`!?3I2&_Q=CVpa]IVʰ2)	0	kU%dee9bojsaqn֯2O,FAL|Wǆ'<5Y\YTuStt(!1'xK __>J n5mcYY-l'ڬHрVR/~]+}A4j7VA=G%=WhzWGu7>kXV (	ߟ^'Aӯssi,+%3)y#=:WmM]L ȵל_ kcM.,x
0]sh ZWy 
4@xV1\u-@A+N9_ʙ|T4NXK[t>F_IvF9EW 
s^#si< hZ|G͌ξn2+Zy $H_Mꖚ=^^!?wř
$8
NԚeI$wV[ͶEScJ5Q<pO7}i+gFbA' Y:7-psm]m. Y01gJt:Nm̑K[IGV@rTqRj_  kKGm_5.^f HIle.93 _ %jՖ5OH-ݶXՏE'j'uԄ8Fte!J /$AB k5չmVhWȔdVP	 r;j:.?WԢ0JC	fb𐯘пtzng4r;*H7FUe=zol C<ͭwT[7Rʄ JW7?q M-RIY$eWq,q#	O@j<AiWNwB$ey!`v#'#ETLhֶmz
s`OhX	aA ?B֖9jcy%SDIFBЁ_Gw4),L7Pá } ^v W±^YiO_eYV&%!@I+pTըe ;joK̆Fx7h㶖H̑T|~b8 9j%ҴDJbUOFHpNXOc\ּjw#+kN6Xla3q/[IQ/4餽n ̒)J# 2W[_έ%dee9?_ S|7a>:*8N?_ S{TQE 
(9CUnk*sR$_׆N ?BWm\ON ?BWmQSቤ>&QEdj_ @5Y  kU 9@?O  Ty 5I$ԮHQ
lHOEqm:Z:db9Xrs(P7?O  UCXW6Q6*j[<ɁqsߥMgD5
<gv|

NvSxη ;Z ~  ƨ  j#1'i/+tmNg<@|wbg$n?O  UCPW7Vx'ɗ3=FCZ5",$H ;vCО2 ?~7;Z ~  ƨ  jut}"RYXZgX,Bd=k9W`wtg
 X~v @?  U	  &,W폂7œ+N1:^0+7PȲ + FpH>2 ם
6<k? ֿ s {'%-t]GPRy٠UUrHK'Mvw]1ZHT&G8Hk_ 9 Pı]8b~둌sS铧jH42!{y	!p*$t 	A" X  Pk_ 9 v @?  UOI$Uе;i25MnW9UF-_idkFfT\t
o;Z ~  ƪ6,lY~q׎9#Q9翷JA:?_ Pk_ 9 v @?  UCŖ74{mwpͅ!n.ii5eї@ zGjav @?  U
m\xMXشb-׎(dCXe+۹<{}>9e|V0I@-Ik? ֿ s mWQҊ۵/D퍹\gD5
<gv|

NvSxm /[nh~:>YxE _>:Ҡ{CWDV6-k5#`#8>5ֿ s iãRY]5&u,`d=i}C$f
0Syqyϝ?O  UC\W>Ԅ6+s-a>Y`vOEo'+1.2x瑛  kU 9@?O  Ty 5ZUGemSM:K!1)G(THdvp984k_ 9 P&͔~eڭV>r`gZZ77DA!`0XG=0ӜZxE _>: <k? ֿ s vǢW94ɴ+XXnJ;hc(՝v y=EP4k? ڹҷ؆M9>Lp1y=r5tJZѮ`Yia"@8u/  D y 5G?O  U;QK.n"eKSڈTLL?&Gng/6/c>^38n۷ݎhϝ?O  UBH/>c
׌vs/YRnl-mnBUll28<E } ^v  y 5G?O  UZOmKZ躎<P5@ 	?#tM6k`+tzfۡk_ 9 Pı]8b~둌sS铵eyco{jek,o7+j ~/k_ 9 v @?  TEY[ipG$$	%[r~SLI:\#I da2U~(Z/?O  UCGWRyv6,jkϑۥt548 mֿ s <k? 6-_{[eEqaAaWY`vOEo'+1.2x瑒&6|?	llV3k.[bÒ2}+ȵ ל* qogg$_l]213}?O  T3gcnwaƙ6k
ב\mezXn'j?O  Ty 5T|Ymm$4iw"b`pʤrx8#"09m\xMXشb-׎(d ;Z ~  ƨ ZWy 
7__QXH#BQNs2l+z M ^  jkjc6ev l9 yC'",MCPسJ !}9'?Z_ Հ<k? ֿ s ҮfOqyeMḘzdk_ 9 P&͔~eڭV>r`gZv+Y  (=0ӜzxE _>: <k? ֿ s n.47WLao,1`%T)PkQgw5ݔօD9mY_qm':(ǝ?O  UBiH,ɱ>>cdӌw=1ͽ;][csiמ_݈ɑ npHg##RM #-ypk_ 9 v @?  T:tF.PI-LCj!PI2:3Uc5ih퇔PKL?#}G _  jC6 	6>g`ܿl|\]zîxҵ85}:;DV,eldd0 o C;Z ~  ƨ  jkKEeu}ypok6&FU Q'p<OBVgH_%ednVSkxRFx;Z ~  ƪ6/u]6%\c:Lt ?DT y 5G?O  UGoc`W? Kf1 vg9el/1j(adnB*9v @?  Q  @FEfE+  UPMSWKrќqNsVk? M c DEYrxK@u.h.em݌$t4O;Z ~  ƨ  j^x-fL/źC8,Nvc8gVHnY`e# Tͫ)<_\d| Txyү 5F  ^t]Q'FhU\_!'n;Z ~  ƨ  j
ݕbv΅n*<ckP=ͫ+Zŵԑ`lk_ 9  kJ 8UGl
ֹnc_FPQNrxrhk? ڹ%XͬoHPȫ:75Et-eT]Gan-j/iӳ   j;Z ~  Ʃ֭}Ky3,pPm@:EV,	]RA	dpѻFFG#(,Ok_ 9 P&0m^9e끌A5L4u Y76;yNニ: "Z <k? ֿ s n.47WLao,1`%T)TDZڟj{sD*fb} ?O  UBiH,ɱ>>cdӌw=1Ύǫ9Oo){{pYNU	4ٿe ; <k? ֿ s vŤh'_& | n!FX8xmnsr
%.0Þv @?  Uf  ",폀7˃+^1u1^ZCundY2*?2ם5
Xֿ s <k? :-.oi6$۸?.*
C^*[Gos46m[EBn pX!c8dpgֿ s n\leUY
V |
ku7V,LHz2*Ǆu `4 ( 5?_WٺKK~^ ; 
 	]q> ; 
 	]EO&QEVo?Z_ ֕fEW 
 WN>moG]|23}\~$uc2]ٙL
BHHeH<עQBoK0FbCc?'Iepm$gs8]o<" _iVn RȠd Wk7^|=qXZ`d%X	#1$  	9 TPwoXL]G׷RvSǪ5> ?~77R  DK@u5/	6ns \wV޵)ra<~mwP;>Ӽ)Y][vdpy& ?8kJf ?8iwq7R|a}{[\[įk,k#JH"Iu隫gj,-[Ȋ%rH\G#Pz
ϩj7iW[}$T
X@8ɱ  _ "* X  PV὾#5;F,;R7Ak)̹8aF%-ܗɨttf#hcrG n+裵FQ	FW#<% ˯%iVn  9sM%ԯ$(dtn~ҦE2ml irE6ZԷZۮEr$Q"9?t*Xo%2QBJAjŰiivLr*%&&&1Á' ZWy 
9Xn쭴GGXen".qH>_ l ` iw
 hI&E²ŴW-2N:z)o<" _iVn \j_?2Hě,k1|5>k,b7D
v	f: -i_+JYDԺWA≔52	?1EW 
iVo?Z_ nZUEi =xthW(חj/d4$.pg^5Hw0
6Ohqx@Łނ<tXsV-|uYxE _>:mET2(%H~"ӴY- KEo{*3^E	11csi2u#^J~WO "ZҬK?o- s7Y]BZnkjEgqm$* XTF:2 +vf>ns]-?;Ҡ.&WKh-tip(l 2y8!  9Ja  9`2ۼgy};cgo/m},^Rn7crxYe\\,0UYN@lt=+[ 6K8AHARFlvt ?DUYo"*mܔdxiE;!cүg'r;c܇*@	'kV5{[VZBW8vrY	0A?!=wRQ^Ky/ .Z52ŸFA U4l gMk##|Y'xK __>JZΝj+}mZE擆azޫXȅHa>cmhz![f}R^Lvrlf&S;P0 $wgE ȵ ל*Zy Ҡ%KiW
I \=ȴ2K@l$)āʰg#uǄu *i8lm öO-8PJȤܻ
#'o]o$hb kJ 8XpjwbMm:4H s'[ kJ 8ZTXw9o~CdM.f3./P>e޵A "֫ ^r 7-j/iwqU7%ҵH[d{2Ϝ3^E!cA$b]^QI:|ßJ Ǆ_k * / rRGޛOY^Ư"dyýfqywR&$21,qbc "*(]9TuoZWZdm"Gq$M,>ܟݳ /I=9ЛF[ *͛F[ g@m_Zm̢l೸GKvQXSZ+]jVpծ,nL'kܧ.S]tcbַv)g<6yNI}9皚o C6o CwIX[9ne]F	]h2&C 5}V+H5+{e;b$%V7gWV<y $T۠fx~]7lU	U~?7K  _ "* X  U7wv$9tLjֺE՝
K)~KIr)&2wc $Z;mrӈu:1
$LH}˸r2vTRcDv{hRJƁ=N* Zҿ/ VfE+ 6J4 ?DUxK\Jm#nRr)o$}|>s`wo"*ҤRv9][CEw҉)Ajeʂv>HI*0zg8(%+'xK __>Jɸ:t;B%{Y`YRAHLֶ  K6Zys|z&7ci N av)u  @UA}q5e0`f:]G Zҿ/ VMsnR׶P]߽޼rZy Ҭȵ ל-Ql^h-cdVedvr8SԊ4Cr|TIa=+t;d0	(;iw
 hI&E²ŴW-2N5u/  DY "ZQ6&w(YK;p:/"Y[2LK 
{K2J"}·RG=:mޏixgl_4OI[~02 ם
iVl2 ם
%b1$dPpAaCi$\na
ỲL|2 &m6ᤖ;y[HSt	
 ,Wwo ZUo @W[hlj:mPviS"6A9"F·u4Ծ &hTTa(r\ cF܁=LN}#AdU]aKwqIǄu *?_ PQ@Q@k*7Pw tVcv9_/?'xV!+'?'xV!+
(5
Zy Ҭȵ ל
5l<8S7soo67ʪx A=7krlw܋f@7ξS3޻OMU	ET)BQ<eF}.U	CM
N UQ??ǡ	:iuI}?hbAf
\ S[  GU5ƥ_?dDe#nAUӍX<sg[  GGAbÂ\FyZcF
ιu{76&*aDVdC!+yJaDjPa	mo:,Ry-@ITqO _ %6&ѭiig&B	#q8u/  DݑxN{i'sog,>vRA\xTmKVq28s;vUӡ6av0A+5|%oVK)7x0bOfcyc4۹<ˋ8'ϥI7?q Sz|ZNg@HAb <zTc ^w5riKc&jZ/!/tkk+yU-bgiA$1U5mSZJ[g:}w!g%
wc5|::ĺ
A",X܃B(٭6Wv3Ynpe_v'p< C~_ւ7w>_N.fQn6iQ2a  gƛ ~/Ҵt$Hif=9 l :      Q  舨E]xTZԆl
(I,ˌtoIuIzڻ[X1>;$?7~cd`WYi\HZq<`t5BOXKMIp+(`$V8*ǎ;s
C8޳O.|R5Vvr osʳO.|	޿z7t1m6,rFH'(P2[Q?E57gaP~b$9ZH/?˜I, 3ךm&NU홞E#zN:
 hBjkWӣ[Ӑۤ
ych<3!@$divpj
MOar.Hʔ 9QI49|C}{,I3bQ*cQXdLH'<듫蚆ZĚ7x$9F`lPq\rlሷԵXy/-畄G 8&['1Yxj;k{KP.~܈F܂y溋~Eo<" _iVn ]^iO*HDA,ֳĺԼ5>bjC_޸\`1۵nin9!v4`d)Ū
A^8^}n(ŷfly%ou}ĳj*\$Nhr#CY$F:ȵ ל0J`C}&o NwSL+y
y
Tq?Z_ v#JXnG/ o];Y]<]vdFeSp{NM6iy,1w.XF$۸789Kt
JPiEox@؆uV-|u-
4gL 5 ~V+8!I~,֥]3wo|.dcnDcPz0spJ8Q%V.-2նc(#@.bQeO2E|;=@/  D6ä5
##M,A;vs2 ?~7=ٛs7Kծ%Cm, XTG7 P&nۍf0wn~mkgUNê_i6I
G*H"HuEg"fE< }H~1gs6۷۷ Z ҧ.k־TK.%DYp\ppy7!  9hn.hU*¨I$o GAu9cT Nm_Y	#M7N["MuqZ<A5Cy]vZmlZM27p8WyZΦ!u$m
sϥVoXIê^9#Zǁ|~#ǼJQ"hPF*`ns}7?_Z66ZL(Μ# 'WM c DEMJ%֩jv`;6n$H\ rn:yt̻.*bavz/#w~o5K6J־Q$"8r <O}:h!)XYdm߻U\#<4)ٚdVnwXwX{EY1$`2H g2ӦV  y	yjcUn㻓41;Kbe ĮZ,|K6I1
G+(0P0嘂AdcVZMjS.,u;m$MV4ys"e9\SVb2?Z_ ֕fEW 
iR/IbU# \E5|'{3_%yYہ<c⻍C鳡w@YJ8Q%V.-2նc(q_ {֮4{ [
<F`xf\;߹zyŴS!d@#5s;k'Cs!NIɕd.%Ur>f@83|? "֕ ^q!McV.؆Lo:ֶ? "֕ ^qO_2xuRB1بp2QсA|Aur4%vK yz~խ_ @4Z-%ݲ{lDg~-j/jUw^-֡%1r*Dq#ˁ8IQ&&<RXbz\9v?w`c4+~% \]kzB6L>83}jη ӧa< 0EN8 / }>D->&]Vz"X6}V:V4szon[e Cި[iRs=	;Ί_]YOg12FR0ǵA
Ww^3]Le;9M06F9&)ZNԭ`KYbt+PTANxЛF[ lMΡyy~JMvc8h2@$'' Tc ^w4Nsk-2u-RkYs؋բHBᛜ^I3}]zNσLIiw4ضm*B<uM6u}QO>$T$3wnޠw<PGo"6
mBqaGOz_"
s[KCn:gMc2v8$`t #-y sS}*-MOi-'YgAwC #-y sS{J3MqC5澶ӈsus[-l
9*r*AɬMCw֬EHw3,!-͇WFڨˁSцq7vp"ZQ!ՔBFF8#L-tВ4ZI%s  X `|  Eu>ٷAqz]7?_OivbWv@|р8 X  S{JSS-7Vrf
2Uy~֮4{ [
<F`xf\;߹tυ!32Ji?phvyolcK	\:rHLN[$uy*6WK_yŴS!d@#5G -i_+Hp0+7 -i_)%^چ ~/[PGwq9|"8$wZo"*ʛTKwbupުY\[_[ZWNQ1NZMI\R 1/6:rO
n>*熣{}OPBKY,A;эUxյ[h(!Ah@+)/~]+&jZ/!/tkk+yU-bgiA$1Z'xK __>J{׹%uGOhR	`eeBFA]ѵB]^e8W {W]Y6^T	Yىd9kZ]E ZWy 
O8ZV'HtD"8! ZWy 
/#~pe7n(Ew
(=R

ֵVHF?"ejcV?Z_ Z7,7Vw+gX-O rw|A "֫ ^r M6/*EF{Y΍QVI\Pk/P5
:O6a=?iHHƨ
r0y9 t֓}K,s$mގHܬ:
U
j7Zm<#,hq 1MCLkbMF<SC0h(8.pG9: "Zemn5-B $wr#,r
.vnr瓛: "Z:s8/l㹼1M%FPs<fZI> 
Z\Z&rZ0Ģ'vl7v2f3(09iˬyA$
\$e?P.&xr\@@!B1`>U 㜛c ^w4+GI(v@l@'-O$ٿe ;lW4ڔ60<$fqbYgZ4`CI`7OFn1m4;<n˖au]*=R(.-n ͂ܨxnH C9l9oix]^]ikv*1
F'9'4_D4=B9#L;D8#p84e ;jO[+s1ڌ@o2sI!  9Do_u=JIu:Bk9@PXH#vn$pFpM_VյE5y4B+j.ˁ(p9#|1ũ^ݬ
9۴Y)* ;zg4^iQ4." 
3X1
1	m_orރF<*Ϊrg8?_ U[X,!bƋTU=<% ˯%7ER (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4r^\o
8E$Afn"MCo(m댐3\mIm'ܚ6=YԦIt[46hs2~Z#+ǤkZVq4M| rZ[  G\j:6zHfX
[+$Ǔv0 qtZxE _>::$ I85a]U6鷗-[$I8	 _9ҵ}/SO:XEa^[r|`2P	8뷩jCq
fH&TZ67) ;>_  j 7oJ _ %[y..%cRI#UQԒx:`o-Uw<v|q "& ^Oh0;t,S#m~~GI \J"I#`zGUe ;t 
7?q W%i4%="[Z֝e3.F}ppja}׏*s'3.5OMRKZyjH7d~u.Z:߲=|Ż BoS+Q?#xU8eq  _ "
SW+6̶eIN"z0<䎹::o"*24/
m廍dINGM ÿn3?#7v9X$ZxOmygԓ͆KFyq :jUǄo|ۛCu+-<fӃFO$r.aT<% ˯%hD#eYNA=?D 	 G@oITUII㊶v4k4̑dԁ?͍ l
qjq؍U~ 0r Av>ګ+Hhd鄉.0oØǧ"=
|? "֗ ^qA#sn>Rڌb '՚zvQjWy$ٜ;ICRkZVq4M| rZऺmUn`=;[t`T5pvBρN\kj$k)u`岲Hy;Wc r)[Qt:-o<" _iVn O
닉cby$AI
e~ofyn9 GM`/4;eʶy%%Bmq9__"ִ94ȵ;9/NUǪg#ޣZy M>j.-WY]z\=?Z_ j4.?h3j?kzko1n2nWnsjWGix/WEڼJqd'p43<ѻB$U`J68 "~Z 7ƧQ!ˍE7Sh3ZZxE _>:mmH pRjkv[\8RF'UIO  xoiʳM\,!yϯ8QwoO=nc2A4rfBѰaIqAGR  DKT<  )#{ 2UK?o- {?R45MRϗ~:qGR if i}<ϵymw[4#zEƥkeiH$cRdbx?d i<xpkFH1ct WeϜsB]7w6:jZ}ݻH8 } ^v Օ\j^+5-&DOS̥V1U*	?2ם5MCzp--kNx#bb85ǋ|5g9:L 	[հFA=񬇋TygnOEͣLXovț{\E?.4i,d/͵ͥ(Ey#<;koOYo"*<<,G4.
Ŋ[FJ[%( ~9M c DEM;5-oIMNϗ~1n#8ԗB,Fff{`SN?WVzwmfH!fաmsg;PCKeNAE}.Iau
l\EmI	5krz]f/~]*Յ:o{nۡeCFET ? p:D$Bm>T\#I#ibִ94ȵ;9/NUǪg#޸M"Mive~od-60d^$K6hkh8\eusw_O?Z_ ֕fEW 
iR7E ipI T˫igmp8f)IV	'
 n t~i*M6r8t>hN*ޟ=zĚ֕.f)jӨj^yuykCdmr{[21qq#HzǗ.ޣa}n%[Xv
(@ZK`{? "֕ ^qqmPη{/仍d6Ν  @~-^^k,d
C +CH{u3:(w0ܪsGP>EW 
s
jXo49G_ @5RVv_뱥TίKZkw)<r쉁zW+//8b}F2})+q*4r4M@	F8>G[  GY "Mik~Z 鵷ȄWN Y;[(Y,3,j[b9ӭ5;
BW6Uӎ08<]}ij^=E<so0'`umCLrZ%%&]A1@h_L"ytF4mӬO*N
C7?q XֺxD8lǂc;2 ם
kFcccUEq#xVO&!2	"/{Cd2#ҳ5<w.ukm7u/sl)_26NsU+~5ΛRuj>Yzrtv;X';yRhePWS 5Fo C)[Wr^FdPBrp1oC #-y sSj̔Oj~n.5+[(Kl\̱oL<ʟ3gໃ첅1
n$zW;,um6]N-*8H//chw唆!A\2 wkvVOr.	C3K!
" m UJ7?_'Դ;i6+ṠlM c DEMCηW(_']>ОwMs9NkZT:zdjNV&rzݫ{I]VJf^6Gh?esxKև|,dbF/a/8]FÅ2C ȵל_ Ug`҄^ kJ 8MN  _ "KZkw)<r쉁zP  舫ʯ/8b}F2}-+kZV<_jvV\qs*4GJ\Z:6}	KS\( JUrr>asom.uKdVYYx1 N'xK __>JMCzp--kNx#bb84'xK __>J[toeb%ӭ<\$[2?:
s4q	2JH8˨XnZ
FGC/mҐ5F1hFa]6O]lfE+ YIu[Q(9x[ -i_+AWV/q.sT=e|Ʋ*@FNCU|A "֫ ^r ? {L xEW 
\+{}gڽO D\ӵ}3X5KѶN>853*Ez$UEdO 
nHEufb(  gݞ7
\v:-kJԮ&Suv|AQ_  kmGF_CIS edqv >SR  DKGAj:@wPlY.fXԷ\sO
GmIX&,#c
qpqg.R'Q}O	<ʆRx
Co4ۿ2i,̃PW;C<;_;ehv7P][>vMѰppGEUF[ ᬏY-xʺ^3jP"Xڪ6.IUTIݜk #-ypb-^i֏u}u
x4E<H486؅f71̭``1X/6[WWf]!tl`G,0pkT#oYnxmo#DFv6HnI%3A#gC #-y sU?	Oql/Dk{HmfD `@'19ϥ\F[ ćkzM67zDL
NNORZVq
gk<<'8A9<^j6QK{ҵ8{Ffeu
À ߏSr/V2pJ(< !'-]/z_pk7D 	 GQ^ip+["rT'xK __>JmYTQE 
(9CUnk*sR$_׆N ?BWm\ON ?BWmQSቤ>&QEdj_ @5Y  kU 9@TV?&XٸuzU;Zoe,$GA+'^hZ ^W%f~Z ꕾ}gg+8,QB o<" _ iQMFόm;:vE~",+e $C8Huu _ %uO{|vr4y]lj_  hJ5?m S|[Vqt!$d>V6|>bJOVl2 ם
?DԿ4+
O~n{lܠ8})c ^w4iوҢkV> Ҵ.O$Wg  >՞0xKȬ,mFmqp"X<	&PA>!7M c DEF1\[}_&l[rA Ai  舨JֵcPҬm}Av%!a ۵Pjɦ^kFʴd [)?'i?)!wc<% ˯%hgh/~](J<M|yCEnrAx.Pk֚_OyIǖƤcI߂րz  @Xv7~&I;m9&ue,`7eqwdnQ\տ{_MmyՕѺJlL1!㙭F+8u}&+8]_i`6g]˺xE _>:Ҭo<" _iR7 -i_+J?oj~OM1fm߶0qt늌Eׇ6xW2f+>7*÷B}ȵ לSx`ԧҒ=b[*$trF9Ư?Z_ W'CguIZ"yTc8HdgAx[<,u Ǆ_k LՆw±[+ p3IxE _>: Ң#l	q<5٥dԮk;Hvv@j쿫Vn ?~7E?O۳8vI _ %
*+V5mfKt[ r7m Nt?(Gg_c3g3|۶mo|6o Cҵ{۝;QKKtYJE7@drO*AF&He ;j ҢgV> Ҵ2O$Wg  >՞WokgiEH"2$ @F>|dӵt ?DUcLUҭ5U+RdW`  舩ӳ%;TVE6iWQK0XNx ey煹<VN!G0,C)u'<RZoVn  7E8Ӧ<wu@TW1xS[+ңM&ws
іH	rl?A6 oRG]:,W+ueW #[ U$H28,?Z_ ֕fEW 
iPn  /Gmd8 V
< 
hiY5+ Rݷ)3}hZ/vTW3qĆQR}%Xdl*z'i<gGY]2ʑЊ  ZWy 
Ҭ ȵל_ R-?EӦ=G,I ˌPKY  kU 9Pi^!X$<,#wYKmڧZy m5TQ\l=3jM&M6X \ݷvqʳu-|tiz֥AߘL[  G@*+]4,l0"paEnӽT>'+;R1mklc^
0A@::͛F[ :WLm.fLH@ap8ی	2 ם
 iQXzk6z^MqhU>XܒwåV:&&mqSdԤDU"[Yҏ0:Z͇F[ еQi1^>Kx~஌Qn\Io @TV.\X6:mG\ܘ#ڀn-(^F*֛4WM+D !V̡QNLt ?DU"0eaA X  P{뫩dm6e,ܖF
&aݎ\x!mFwIn&a+#$[0ʤ	p:\-|? "֕ ^qDWF2t"? "֕ ^q
7?_iVn ~/|{xgZΚLm԰%#߻o civ;*+]eHbȅi..T>X}$ƶ_adMgv>
}<% ˯%iVn  kZƕvWgy$x>8 ht &%F\I&6N<=[X ȵל_ * ZWy 
-mYtYg$l>SQߨpo?Z_ yMN [v 鳯|{-j/jiفEeUFs3$5-$
=
Q m9#Mݣ[\H%^6'tU _ %V:WRH⯴IF
HK37u/  DҢ^LN,\FI`z!;)~-BM]MkfԤ"# Ἄ|ьu4l2 ם
3CcKd6R

$aU9c ^w4EdiZ,0G5@MG~w0I cwyq}/,)hvrV,q@Xެe ;jǨ 0#*?2ם5 iQ\牯QԠӴ"6}}nP #oOe55ƻwu{py,\}X}$on  ijm&D0pFpGcUO.|= Ң( (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFY  kU 9ZU_ @4 t6дav	XWa<N+5v[˨Loiuhw*a cps^(Zmtv=?]oXϊ_8I@TeZۗ<s Ǆ_k * / #BU/@qnQMAmw$M!B(,r;:(Z]6m'Mv'2H$} "ZҬK?o-xNW֧۲,VB!!Ae g ~]j+5֖5a01yێQ@f{OIޙNZd,@8҉e ;Ҭٿe ;m݈ͺm|Qw閚u76VdhC'0w*<=ki{c5֤ڒ(HX)
GUE z:&wh׷5YLq U`XI$ X  Vf  舨>v1S/>{W%Fn#*w+zo-!S0j_[AL6ܑO#+]ơsU@=p3
?_ Vf/~](ukt{؜^]1O$ L{c%#x!
%߃nf-eoE;OʞY+=D7 9 41Z}#M?[  @09ȼ!qy=V.mr3|aeH$gq#ǧ뺍k[Ki#\Qrgz*(7[  GZU Ǆ_k * NWjm"u,(qU(!v5nݭiQ!A^{̝5xE+ iP;hz̖#KxG2
n'hF~]ȵ ל*Zy w*D4ǦcwqpZ.iV)eg8v#yiE!Ѵt^Ghwwk4AI%TC`u^1Rk~Z Ju-|t\F^'AՔm<	Aic\Ym -7sX#,exMIdgk638az~ ?~77R  DK@uGW "t{"ky"x>F՞0:QLyֿFyE/wc8{skpҬ5K[U<wĐGom#H"~*f-0 Me ;jҬe ;j ϸ𝎡⻭WSؚ+##p;+7P{5gyæ$ S]ܯaϰA-v-I * ~/7M c DEC{\ tX*1kD?:0L`py5@xoLZig]T07ǣW޻*(;|c7b5*_3Ut`N0TVf/~](zhs%-lg5K6e]vȁ(n	&Iai\b4g>h BvX9g(Zy Ҭȵ ל* p]]%rvԠ,ȶ  Yf9Ьq]v  NtOcyYb4۷$YGר;~n(c1E
qO3|? "֕ ^q,5=i}-.=܊#1
k_ -i_+J/>H(i֑'yhfj ?Z_ ֕fEW 
6嗀*jS^[Ř$yL';zMkh4d\u4-BI
!9P[  GZU Ǆ_k IX?Qne\+ӆT|&Rhf(<._s Q@6V:޵%axgdN ]d\F[ *͛F[ 
:-uX^j6V7VֳFaIhʰVpzTi:ί}.Xe-62
M>NqQGKg/4[{+ym[+
HTpN)a  9Ja  9}X_׺Dig)AW
TH;,Z+Aocy4BP2bQFvRfoa;ebىIϾy4o"*Ҭ7?_l`^oRVY49í)yA¬~OI#i]u,o4K9,Fvv8:r76oGKdQ$cGxE+ iVo Zҿ/ Pĕ
7?_r~ԧ[0.#%HNv<_  _ "*qwN:@ntky6*U;AJr˭iˤzHҋxՏWhf/~]+6]EާZiPC[ǁi~X|t-<% ˯%iP>9+WZ~a{-SM*HJpkNzu(7 -i_+	ˮ\^ >E9,aEy۞  @Es/49#k pU򘟞/3qx_ @5Y  kU 9M؈|M^jzBb 7Ap<U,\gu-~YŭEg;MɍdN~Uv<uR_;7
goa/
s RJ-FKm9Կ G  ֕f_  h|?qͽŝњx.P:N w2}*[M2ZlMQݣ m[ϽtP;~ѧI
X|?y
 n'p<M #-yp֕f #-yp{ni{yd٥v'
3mbA`gd`
<eԈUN;B$tPNɢZXhy#|9nI_1RC #-y sVf #-y sP<=S#X8 DcƞH KFCt{LkXHy#.B*INr7`%t=JZFNi(!XO5  7D 	 G@TQE QE sKCU[I|S ȝ Z脮ڸ ȝ Z脮ڢH|L(+7-j/kJ|A "֫ ^r 3<vc;,%(tȧAk=3jvs;$D/8$y?+mB?24&Q:0e<z
Tg2(<>?1oz41]<`cfޡA\F	鍝o<" _EgIA$jR-Ē
zJDk@  u-|ttzbDpBLhZ%[Bi5\lve$ l,`&Laj?㸾x(9U d@$
EIWF,vĀ{  ­_  jՕAkH򑸟س}Y "Z1kos$3Ge+$VR9SIj^x/$y;5Y[V7qr7)##U1(]h%÷2y^V;َy'$%.Hř$MXF[ vVvu~]kIv֪M #-ypɧ&Ж,zj8mg;mB{u0cA'jZ}ֹqe]}1yx'hdfX.H嶑 :n5mXoܪI AfOsamdm|mqм<ct!2	JJh}1eR	frѫf<]I'dɹ  _ "~iZk8|lfv<f$cܒIo"*re'##{mQ|1:$sߥa5Ѷ^!MFTԛTaf	F?;лLxl`Qh#%Ծtq;jy¨ҪI\iOj䈻r9q$`io/zhgz?_ V 5E,B,y?SY'xK __>JW__ꗯ>$1k2`ÖS~vŶ${;vS3]zE{'Pxg(eX"0Y8#iӮl[jn#v#<q`P=Knӧ kkl?ʸ",a<`VTNk/E+	OK1YJ A4N^ȩY.3u{
ĉG!$M6-xSѤԯ7?g6HB

0HLjxkKӤ2E
ܷU1t.n-mF!I*ĮF `
_גB]o<" _iVn 3miѷ$VR"9 γuo<] 8p7rskl/YX[XGc GS~ؖ\}[÷/݌q@ů.z[I25Ӽ	YCFF
UC'>  kU 9Pmo#`!"3aCD[VA-j/i#J<)xKR]BX	/ T1):`סVx?EK(n};@d-_g;^iuứyHDw豣"0mm=I8&k~Z յSA.;UsNGW[  GM1"	8!NWXZKvs9/,nsz"a2# Ǐ$I8_>Bۢ} {Jki'I\_ iڷ 9  {
 _ %VV6t
~\m#F~gbyf&_  iݙ:ը|eMs}Xky-WLl3u帺kGEƨmMϞw;~hk
?W],#$r[^MnX1ғ+'0f̌_3~wg慷 t};ķ<wWkkkq3L3]Kvn'8 hC #-y sTne$iK,H@K6'  9./	nuwl2d0v瑪ݭ 漵-ŽpEsg<PۃX<ŋ#ֽ%,m&Hs4iXNQdnH}*İ	<}([~Biyf5yP|pN{To"*cec^FrtbIMU X  SnecVחZːvʢI~<ّǙu  2N<U4Cw}ykDolDaLp ]?T[Smnv\kK r@9N:iFZ$QUdQT( t qWK)YGY]2ʑЊ6v,wG'v(l픬 5,X dOTO.|KKt}^i˪	n@4?u#P0T̪<L7
m$NL%e
N|)Us_HKx&&-Ou+	98'F ph=GjC*Dg9t4_@ A "֫ ^r 7-j/kJZQ#I  ];ֵ'[Q7iwi5r^XX$?Ez>锌wt $I8_>Bۢ}tw~_=~dúT-tD.cܤ5Rg@O:Veǅ{滖Ջ$O"+a A[3|? "֕ ^qm1u}cĒj:2[^huHGdFa1?2{WA  @V:=`h_5p
4ї-ZV^{=X'`w3neS8ȵ ל֐^y!'$XAw  kU 9U&]ƕy-浩 [F]uu5s(ʩ@F87œz$=*D߼|3n}bܤȼ9q<ibT;~	$IxE _>:kame-̖l{`ʪ8xE _>:oȅ3|U\~]C$HA+ Y62YWZ=e}tmmyi-nx\pOu:ex	<؞ tmr6Sшޣoase_:L;M>vn ' S3m·;[ɭo-y FS!f L sIe ;4OekhiP5̗m<989ol Ci<Uڭweb1VN ׯk]Yvy6:MB ~}F+7P<#,1ӒP6_x4G~eBF:p]::[; _qCr{4^9<4LI6T  9};LmMF(7,rv䝣$8Ao MQxnoRsqj#ac}[T+L+ZÖ:}O4-+	%RA-2rwsjz-L$.[{ 3p23)=siٰvfa$$,Ic=IW_?KUm/Rq+q4 ?DUj
Fdy6'f,Ax;U]7?_7(muH )yK`q4=χuO>{o[=ö]Q'͹I:} ߵߑ6hEԢ9a͝{qmbI"Ȱg6n,R]YW杼5Rg@O:U/ ȵל_ * ZWy 
orV4 ?DU֧En5w%G*9 y+4 ?DU^O	 q~Vv(KrK3b}~VP6s{akvtHI| 띏
ϩkN*On>5:O1G'q$Bd@9>Q(8QUQ  HH?_ V,zj8mg;mB{u0cA'j<% ˯%E7QorѬLU$Dnu`h:ψty8*4G` qvFF&"kH RTQ}m迮fE+ q_AEmf?%<I -i_)[}&yv Zcc8c~Ե9^]pt->S[.nこWK_ @4;DVj>voGbOMSi  kU 9W&<f
$yo"wf4)d8='W	Mpe&ss]IsIͮB90$ziX;]_rlX2Cڠ45hcY'PIuq%òf;y?.q_<MOFR\;Ll1!+(#1 _ % :]Z$JB%UOU]x . ?~71|m$M
fI$O6ʢ[ ya}J)!tkDM$gu40.<ho{Y|a;YI9mQ1<(KtT/ iФ.
q]f$bXĮ@'
Ie ;L滖#]LV| X)8g g& ?8iqSL 5魡<1bR'!
A`	yV/,DsK|o:=ݢ:|<m#Iou`Ix-.VX/#fTq"4r4o2H#GBjNӤY-ʥ4+`,Ic N vȼ1kDu3	#dmJU+gȩa  9ս2^O6_ʹ.px(Ua  9q-W__ꗯ>$1k2`ÖSЂUSZ̰ZXǔR_8p uέ4BK<	+bp?xd㏘Q#Rm; O&y!YtY	d0#K^{ے40;D 	 GZkh t V~  HҢ) QEj. ־2u?_WEo?c%O3 "w i j|3 "w i jM!0+#Pȵ ל*Zy  M\&wBVe(@}j+i֚&gV[yRĤMN>moG]|23}\~$uc2]ٙL
BHHeH<??u6~$K{k3P~hg@Tk8,~Z (_[4ŻNO$G"YUbI+p'xE _>::vǢW=x;neѵ;++gLl\ef]݋ 3A*E$6YƋ\\K&!* I%   I@[ ]jP֍sȨK	 ݐ'ǵC _ %<1csi2u#^J~WO "Zɵ]FHԮG0' gZo,,~]m]¯=<p1yoY\j^m#..-%$*@<ƹk;[oi|Sy1݂x1JOf;+}cjMu
L gPM #-yp~Ӽ)Y][vdpy& ?8j䒓k=.k:D$Y<Mjm,峵qU8}B69@7R|a}{[\[įk,k#JH"Iu隫gj,-[Ȋ%rH\G#PߗiZ:<qbuH\ J	 AH ?DU_AY-Fm5o3DT1^pH'64 ?DT 	$jv6v-&X&5b * 84E:m,}ܣ7
oXK|ۈH1Z4pV2<(r_&=j}#3Aȡt[[ n  #bѫd$Q8?D 	 G@GPe
>ā{weC3aHc[hKEiMsteP ;sM%ԯ$(dtn~ҦE2ml irE6ZԷZۮEr$Q"9?t*Xo%2.vՍ^˷W;UcO	*	dt=)=V3Ȩ 𞆓kq)x(]!$Knە8<:~$K{k3P~hg@Tk89n쭴GGXen".qH>_ l ` iw
 hI&E²ŴW-2N+^bj~Z Ju-|uH+MFڕ3`!c$N !'/+4Q
x3Tl5/ciqqMnc ~5^X1im|A"cͳ~@zP=-pY`vOEo'+1.2x瑛  kU 9\3>Jch#Pc0<Q2ƹ߽P'8ȵ לFsQ7YnFNy LJQ36NMtEi =xthW(חj/d4$.pg^4Ku
,HX(L85 mƟ{ѕd&xʰҭk~Z 龟!Q!ƙ6k
ב\mezXn'U-IRyȴ2K@l$)āʰg#]{jP֍sȨK	 ݐ'ǵC _ %<1csi2u#^J~WO "Z@d:tF.PI-LCj!PI2:3L ;eI`ؾxݻnߛv9*uK]&P+;$[i!VVwN0К4T\}M
y^Gw1u۟v>j Z ǩKqn6WL!wvQXUB"e ;jA}u]k7Mbn[YQ 1dp.C #-y sQ]J׾"{mb]2Eu	&UW,dI5]W/oat,$[ Q_h
0$à5w5Gll3X0n_12z#K;ѣ!V4p
+)
=/~Ggeyco{jek,o7+j ~/ҷ d	,>%"mIڡ X  SvR
K"J8DGh#Bdu?)\$V.dSe2`0*Vf/c0J1er 2GCT&𞵭[Tmnb[Ukq	\d$|˰ 2Vn@$OXIq6o%EFX$j鶐wX$dh%JŶk}ok}^L8,0\,7=x[K,i2D%f8\ cfP3i[Gy^w2!RCr0>Z9iVYDԺWA≔52	?1 SZy Ҭȵ ל*@fhME'J͇d,7^Fs1]Aa w<t-\(& %p~"ӴY- KEo{*3N:?/ :۟[[I<M>CƢ6F)಩7Ȯ6[=jGN!<(12)!.«[-I+8G -i_**)}oEa 	E;8
I5{ -i_+t[_x~^݉YXƟ>p=)w !vZ5	--9Khn
ۃ RxEW 
dxgZ ivv0wz/n_ @5RI=iW3't
WXhn2"fVJ=2GC]5y焵tF;0V/+/2&G̳=[
R
F{aIH\ W㞘qj=o<" _Vl.l."ؗW,'p;Ag2Ҭ~Z 龟"uitc0yag9.aOz?Z;-n즴*%ni<Pw^+֖XxdL1Xw۝#T./5vw DDC4e,@l`RE?#sNVu$7b2d@@,Tc ^w5j]JLMDH$Gۓ`':c ^w4U׎Cj7I2mD*	&GAצja|la=@=
	i'oHk:j*neKg<ג[vx=RZR-u	cpe;_.F9pzz:_=?Z"+VAՊ22pHEEo Pbַv)g<6yNI}9皚o CBPSZ]6++˅gK{].7122 ;Z|zz:F-(#p:2X3b-2I..s4r
@!`NGQʋz1+A<lR_Vn ~/Zv֗e0fʨJ]7?_72%j/Gl~@vc &|sKski'_ɧHcQݼ<U sDf5Wk]"%%9O; Kg[h|չi:Vf&E$>xU`p9;WEGdFEfE+ ^[EV4	p1T|? "֕ ^qBUi  舫.OqyeMḘzd4 ?DUxK\Jm#nRr)o$}|>s`%i.ĉms46f~-5Ԗ`݂fs#:P^Cum"$ף)yWV5i>xxFZYw!r@ݭϤh6:|,A
)n(!_'xK __>J{'%-t]GPRy٠UUrHVtO.|pu-7w͕J64$G^iY1kygBɷ`YXCp1ƵtF\.b/^r4r	3S{/먺 kJ 8UGl
ֹnc_FPQNrxrjׇ Zҿ/ W/?Wvך2"c?'KGEx\d[hBP^5@%ݴpO6ɩA "֫ ^r j:T5F?:cwܼ9|A "֫ ^r I'vGl{)wP72:UG5j6WzTBn/<!4n@3<[kwwZ^[OȬ.piZ4t{XVwy%06`+ /L4u Y76;yNニ: "Z#W
1nwӡ$ȲVUXJ峹IƮ ?~7KaX#9wU
{)Q47Ú^$lmQ
ęuj_hk7z"^
2(!(T״P[[+S$*+u$p3څ}oHᜋy=]8 ,*Al2 ם
Qw},^&SG$ߌ+g 7?q MvŤh'_& | n!FX8xmnsr
%.0Þx[BiēG8 <.YBw/_Zvs.#")g22%.aW@ۢD>o U5auM4o;{
n6!@1V!  9"{}ͽ˶ʆ;8fb׊đ
-P9;;Hm94B]JKm풁MGM*dS&H6$UYڗۤjj%ApHې7.nZA{i
մ, 7^dʩ/~])t9OEH!UwQ-9&  HҢ) QEj. ־2u?_WEo?c%O3 "w i j|3 "w i jM!0+#Pڅ۫=>ſ۸wVj n #@|k  ֿ!  ڱxkEXUIYI uf7cs2 90"*y:4 ;Pi+U9F'^Q[ٖm ~*(4TGJJ6zp{@N A
?  _ _  k fXύ_&<+I#oڈ 'Z  / j^ki_Q
o!1da >6¢6Jܥ[	Es( R#'zoCO  y:4 ;Z ٖm ~(̰ o@N A
?  _ -}l|ȣx}*Oַ,?/Qa >62<k  ֿ!  ̰ oGeߥ 
 ui  vO湕5	_6OzaG[ٖm ~(̰ o@N A
?  _ _  k fXύ_2|m  dy:4 ;P-zVIN'\ ^c[ٖm ~(̰ o@N A
?  _ _  k fXύ_2|m  dy:4 ;PZ%-d!F{׊̰ oGeߥ 
 ui  v'Z  / k_2|m ٖm ~(k
RGfVٲ	%}
kTٖm ~(̰ o@Vz~ecoibc5KY>HQui  v ,?/Qa >62<k  o4^]FG<m|n fXύ_2|m  dy:4 ;GCO  㵯a >6 K_  CupRj6!VHl8q -zeEn fXύ_2|m  dy:4 ;GCO  㵯a >6 K_  C>Mm+6!2,Qҷ,?/Qa >62<k  ֿ!  ̰ oGeߥ 
 ui  v]?WKnƣcKDO)b?_a >6 K_  N A
?  _ ֿeߥ 
?,?/PGCO  ~o5̩ؖJ~EN?{
?Z̰ oGeߥ 
 ui  v'Z  / k_2|m ٖm ~(#ֿ!  چO!hlJJwY?WrZ̰ oGeߥ 
 ui  v'Z  / k_2|m ٖm ~(
Oln-%lDs1['0q޼Ka >6 K
j$DI*,٘or$H3ނui  v ,?/Qa >62<k  ֿ!  ̰ oGeߥ 
 ³{+{HJZB7CO  㵯a >6 K_  Cy76"9h8^kw2|m ٖm ~(#ֿ!  <k   KfXύ_'Z  / j?WbQ
G(dQÏk*+w2|m ٖm ~(#ֿ!  <k   KfXύ_'Z  / jw6>dQJ>'Z[ٖm ~(̰ o@N A
?  _ _  k fXύ_2|m  dy:4 ;PcQ%"a'ׯJ̰ oGeߥ 
 ui  v'Z  / k_2|m ٖm ~(#ֿ!  چ
?WTlK\H%|?"n fXύ_2|m  dy:4 ;GCO  㵬toT(	 +[ֿ!  ڳM߿[@n` t +j(UY 
fPkKTA)ImYʐDN'Z  / kJ ui  v'Z  / kJ ǵ{HZ($Oܹ 2Ʀui  v'Z  / hui  v{=?WQ1ĥ$(zSy:4 ;ZTPoCO  
柫ZK؈獢bO`y(7ֿ!  <k  *(7ֿ!  چ}?WWlC[eLY?$'??iGkk5̤C#3MTQ5t[4*dȪQl$_  N A
?  _ ԟn 5 Q^ ?\ֿ!  څ]:o>0I ~Aկ] A (urFֿ!  <k  >w @k  9s?'Z  / jtj6>dL>#ZVw @k  9s?'Z  / hui  vur] A (aΈk  Gee$.'SQIGH-
	!Z?dջka$BF2Ȥԓؖ(PQEj. ־2u?_WEo?c%O3 "w i j|3 "w i jM!0+#P 
 /X 
 / U  |O^Z c]iHTO_4*c΍XB6`yE&46<YծmΓ.m`&IKrSm?upT;sV7zn{)֦Fm&R0QАx*$yd̾3;bZ&Xb2>OJ%}c\[P0`+hU~Ovo6B8JIJCo̒FI	i፾wyĐ`
Q'MuSmbV
((((((((((((((((((((((((((((((((((((o~I˥<ZLAv *8$D;\q7?J͋X
z5ػ%'$q>ɵk$  Ʃ?JI ] э@QE QE QE QE QE QE QE Ƚ פcZap"o5BQ;=wEO% 
RΣN۬;vcq8soN<¬Yy}&]ffonv9eϯ 9Geiovwn߻<s6\<=3
iNbZlbdFiDX!`L '͕o
]KjܳrB<r%,u>G}zrz݆$z)peVHf
`v-;RӮI䷆HúHf
$SGTo~[W{'[I#O*3 u,x-&u=M4湺{;+8f(6?xN:19,m4YKtMu:UDVhH"ĊZ<J	Px(lUΜ7.G4lX^1>f3&Opqi7ʮ9c;y>lz?|
k#Du	gJ<)9s#3$aakqk[k%1#ˑJ[?O}&]ffonv9eϯ 9Geiovwn߻<s6\<cioe
Hn<3LrHF#9v. " ^MKJ$uvog;N:9^;Z " ^ToJ\Т+p(:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFU u \_U u \_ ע( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (fV}ؿՊ m~_1P?뼿1j(
(
(
(
(
(
(*Vy^ZTI4<Tΰ$&YŶn|=6Pqʎ9mz̏K-ee8 8"hJmeV'H5q357znjiwLm\5۰8|-p 9m bh 	 ?M:UiW#1QmM]sam>\ۆ[vW\[O;en?6M:Q 'O T 
=b5۰8|-p 9
g&0.wtv?~mؚ?t OG N {iWk=Ea5uqs[ |.snQmM]sam>\۶ 4 
G& @? S(WznjiwLm\5۰8|-p 9m bh 	 ?M:Q\>qɲgx\rPz6;Y
!#bBqTgBd@GЁhѤy=>Ym31$5˅5z(4
(9CUnk*sR$_׆N ?BWm\ON ?BWmQSቤ>&QEdj^ A_ ^ A_ 
z(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(Vl_i7?J͋X	?JI ] эS~
ܓ &( ( ( ( ( ( (?^ {S ISKu\mǽC|=6 q$4+<nw+(   'uNHp+"B ys ?Utu;w!.GC1Cs_ڞ.g-L+L!0;mʜ1w/Yj+Gz$3;13+FOLw7:bI/Vn
㍃Vk[-J[p#+OAOáu/Ye`k̍~Ȓu*Uۖc.RuF^if(pq c6ͧ9ޕϤ[Aqƙ0i2F0XG_AH5@&
1nc8B1FO94/׭~ĺ%Rwke@a.(ME]}}W; 1G&Pbۺt랚Mk{WlW
n962'y{t_.F16gs8'sdat2?j7({3MH
\G+ bg ZφۡH-HXT$RI'O 2&/uPmýC Ƚפ_ I$0 I5>Z 
 Т( (:]  |e_f. ־25/K]xgD * D%vgD * D%v>CaEVFU u \_U u \_ ע( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (fV}ؿՊ m~_1P?뼿1j(
(
(
(
(
(
(+\->M&;A8+$xlH45si{~`W? @5uQ#
OFyh) 4D O l9c%F,ϧ\FkD
̻9 o#K <O ?_ UY<]mvgHP]ī/0od>U8i,_Qx[mU_%rBۊݹ9 /?S ( i疉 TwpizK{ud(c&!FXa梲@.ֈD u39|SLյ4D O l Z'
eP<foVhL6Q._;$ېyR'kuu%VIwP<1=׆pÊAml[ i疉 G#K <O ʗIZŻZ\O;>v@_9 b
>/nO8Z^av	Y68RdQzKA {L H@QE QE sKCU[I|S ȝ Z脮ڸ ȝ Z脮ڢH|L(* n #V*gU 9'5vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @(vޓ 4Mvޓ 4M \ izO 4izO 4rm?I m?I * 
' G 
' @sҙSi9TFdqxe$|CF' i?xO&+i'Tk Zo _njկܓ y	b^鄟M%0m`YRj ((((((({EO% 
E<_K9Ȏh6`5|׶N٭-q((<OF$od|O??7"#ܶ^2 ~O=Ge X $zc./%-x^o.6?)ぎ\jJKu%p6 ݂q8{迳/  $ f_ ՏI ǨbZ+b{23M[^\DUA>Yaʩ<r9\&u ѣ6T֍AUFYy/?ٗ c ?/  $ p9yOw/ Woo^3UluHO.-$X4I[g21h<	 f_ ՏI Ǩ̿  RFuۼx`o\9￦;VK ?V?	' 2 ~O=@'DR?/i*f-}e#?iZۥ6k03@QE QEPwȫY\e`S@2?_W772 ?־65/K]xgD  * D%tڿ  W6?|M֖1G`b8#/gj(U T <U <Uhs#;\_W  j?? ֯?vxyi?vxyi={> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G` ? ֣W  jg疛 ~ g疛 ~ ǰ}}y ڿ  Q L | _M 
 Q _M 
 Qc> _c   ?  Zh  ߆   ߆ 1_^1  j  _4WTWT{?_W  j?? ֯?vxyi?vxyi={ן}/ L ڿ  W<U <U<U <U=> ?  Z_c  ]* Zoo*]* Zoo*cK j  G1  G.-77 G.-77 G`e$h]aAa\}޳_|o!# }3vxyi?vxyi={ן}rqi7͈ۗ9csU[^sY$mJR^_0Y   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SM10Z2RR1355975138 1 53           1.000    0.000    0.00082666.000                 F             -1   -1   -1  242  242  242    1    8    1
     0 10  021F 3 3FFFTF  F           T    F T  0            0TTT0 0F         WINDOWS _5SM10Z2RS           9  1                          107292.00    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RT           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RU           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM110TS31355975181 7  4        15729.167 2604.16715208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5SM110TS41355975181 8  0        1458.333 3437.500 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS51355975181 8  0    
    3750.000 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS61355975181 8  0        5729.167 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS71355975181 8  0        9479.167 3437.500 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS81355975181 8  0       11875.000 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5SM110TS91355975181 8  0       16041.667 3020.833 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSA1355975181 8  0       18750.000 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSB1355975181 8  0       21875.000 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSC1355975181 8  0       23854.167 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM111S5B1355975211 5  0        1562.50041458.333 1666.66713750.000                               -1   -1   -1   -1   -1   -1                     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1128EV1355975221 8  0    !    1354.16755416.667 1875.000 3958.333                   C           -1   -1   -1   -1   -1   -1               "     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM1138MR1355975241 7  4         4166.66740208.33326770.83311979.167                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM116TAF1355975330 7  4         4166.66752083.33326770.833 8020.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM1176GM1355975339 7  4         4166.66760000.00026770.833 8020.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM117DJ11355975343 7  4         4166.66767916.66726770.833 8020.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM1187I51355975365 6            6041.66740208.333  104.16735729.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5SM118ENZ1355975370 6           28437.50040208.333  104.16735729.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5SM1197MK1355975394 5  0    #   28750.00044895.833 1666.667 6354.167                               -1   -1   -1   -1   -1   -1               $     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM119V2T1355975408 8  0    %    6562.50040625.000 1875.00011041.667                   C           -1   -1   -1   -1   -1   -1               &     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11ADMH1355975418 8  0    '    6562.50052604.167 1875.000 7083.333    (              C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11B0OO1355975434 8  0    *    6562.50060520.833 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               +     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11B96J1355975440 8  0    ,    6562.50068437.500 1875.000 7083.333    -              C           -1   -1   -1   -1   -1   -1               .     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11DVYJ1355975507 5  0    /    4270.83356354.167 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               0     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM11E6GV1355975512 5  0    1    4270.83362291.667 1666.667 5000.000                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11EJA31355975522 5  0    3    4270.83370833.333 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11KO2M1355975674 8  0    5   28750.00052604.167 1875.000 7083.333    6              C           -1   -1   -1   -1   -1   -1               7     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11KO2N1355975674 8  0    8   28750.00060520.833 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               9     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11KO2O1355975674 8  0    :   28750.00068437.500 1875.000 7083.333    ;              C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11SZV21355975882 7  4        31770.83313958.33368645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11U7QJ1355975912 7  4        31770.83326979.16768645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11UDUD1355975916 7  4        31770.83340000.00068645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11UJBI1355975920 7  4        31770.83353020.83368645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11V4LY1355975936 7  4        31770.83366041.66768645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11VKP51355975946 7  4        31770.833  937.50068645.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SM11WI9X1355975970 6           38854.167 1041.667  104.16778020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5SM11XIEK1355976000 5  0    =   32187.50015937.500 1666.667 9062.500                               -1   -1   -1   -1   -1   -1               >     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM11XRXO1355976001 5  0    ?   32187.50029062.500 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               @     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11Y2GH1355976008 5  0    A   32187.50042083.333 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               B     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11YBPM1355976014 5  0    C   32187.50055208.333 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               D     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11YLH21355976020 5  0    E   32187.50066354.167 1666.66712291.667                               -1   -1   -1   -1   -1   -1               F     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS081355976050 5  0    G   34583.33314479.167 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               H     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS091355976050 5  0    I   34583.33327500.000 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               J     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS0A1355976050 5  0    K   34583.33340520.833 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               L     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS0B1355976050 5  0    M   34583.33353437.500 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               N     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM120UV01355976084 8  0    O   34479.16720833.333 1875.000 5520.833    P              C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM121R4L1355976100 8  0    R   34479.16733958.333 1875.000 5520.833    S              C           -1   -1   -1   -1   -1   -1               T     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM1226NB1355976110 8  0    U   34479.16746979.167 1875.000 5520.833    V              C           -1   -1   -1   -1   -1   -1               W     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM122IIT1355976118 8  0    X   34479.16760000.000 1875.000 5520.833    Y              C           -1   -1   -1   -1   -1   -1               Z     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM12330J1355976138 5  0    [   36770.83314791.667 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               \     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM123CJA1355976139 5  0    ]   36770.83319479.167 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               ^     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123MMX1355976146 5  0    _   36770.83324479.167 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               `     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123VVK1355976152 5  0    a   36770.83327916.667 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               b     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM123VVL1355976152 5  0    c   36770.83332604.167 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               d     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123VVM1355976152 5  0    e   36770.83337604.167 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               f     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1241LR1355976156 5  0    g   36770.83340625.000 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               h     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1241LS1355976156 5  0    i   36770.83345312.500 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               j     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1241LT1355976156 5  0    k   36770.83350312.500 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               l     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1247DN1355976161 5  0    m   36770.83353645.833 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               n     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1247DO1355976161 5  0    o   36770.83358333.333 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               p     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1247DP1355976161 5  0    q   36770.83363333.333 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               r     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ES91355976166 5  0    s   36770.83366562.500 1666.667 1458.333                               -1   -1   -1   -1   -1   -1               t     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ESA1355976166 5  0    u   36770.83370416.667 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               v     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ESB1355976166 5  0    w   36770.83375729.167 1666.667 2812.500                               -1   -1   -1   -1   -1   -1               x     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SN0KNJ321356025030 8  0    y   39375.000 1666.667 1875.000 5312.500                   C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LBXMB1356025637 8  0    {   39375.000 7291.667 1875.000 6250.000                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LRVPY1356026161 8  0    }   39375.00014375.000 1875.00012291.667                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LSCKJ1356026172 8  0       39375.00027500.000 1875.00012291.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LSJH41356026178 8  0       39375.00040416.667 1875.00012291.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LSU6V1356026185 8  0       39375.00053437.500 1875.00012291.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0LT11P1356026190 8  0       39375.00066458.333 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MGSFM1356026780 8  0       39375.00068750.000 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MH7NC1356026792 8  0       39375.00073020.833 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MK27D1356026862 8  0       100937.5066458.333 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MK27E1356026862 8  0       100937.5068750.000 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MK27F1356026862 8  0       100937.5073020.833 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0MKYO61356026885 7  4        100312.5066041.667 3020.83313125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5SN0N4TYV1356027379 8  0       100937.50 1250.000 1875.00063958.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _6IT0OJXD01445747563 5  0       104791.67 1145.833 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                        0 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                7   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         2                                                            Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         1                                                            Arial                                                         "S u m m e"                                                   Arial                                                         bes1_sp1                                                      Arial                                                         bes1_sp2                                                      "99999"                                                       Arial                                                         bes1_sp3                                                      Arial                                                         bes1_sp4                                                      "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         
bes_summe_sp2                                                 "99999"                                                       Arial                                                         
bes_summe_sp3                                                 Arial                                                         
bes_summe_sp4                                                 "999999.99"                                                   Arial                                                         "1. E i n s a t z "                                           Arial                                                         "2. E i n s a t z"                                            Arial                                                         "3. E i n s a t z"                                            Arial                                                         "4. E i n s a t z"                                            Arial                                                         "Q U E R S U M M E"                                           Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         stdsatz1                                                      	"9999.99"                                                     Arial                                                         stdsatz2                                                      	"9999.99"                                                     Arial                                                         stdsatz3                                                      	"9999.99"                                                     Arial                                                         stdsatz4                                                      	"9999.99"                                                     Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "Tg"                                                          Arial                                                         "Std"                                                         Arial                                                         "EUR"                                                         Arial                                                         bl_sp1a                                                       Arial Narrow                                                  bl_sp1b                                                       Arial Narrow                                                  bl_sp2                                                        Arial Narrow                                                  bl_sp3                                                        Arial Narrow                                                  bl_sp4                                                        Arial Narrow                                                  bl_sp5                                                        Arial Narrow                                                  bl_sp6a                                                       Arial Narrow                                                  bl_sp6b                                                       Arial Narrow                                                  bl_sp6b                                                       Arial Narrow                                                  
bl_summe_sp6a                                                 Arial Narrow                                                  
bl_summe_sp6b                                                 Arial Narrow                                                  
bl_summe_sp6b                                                 Arial Narrow                                                  bl_fuss                                                       Arial Narrow                                                  K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         2                                                            Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         1                                                            Arial                                                         "S u m m e"                                                   Arial                                                         bes1_sp1                                                      Arial                                                         bes1_sp2                                                      "99999"                                                       Arial                                                         bes1_sp3                                                      Arial                                                         bes1_sp4                                                      "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         
bes_summe_sp2                                                 "99999"                                                       Arial                                                         
bes_summe_sp3                                                 Arial                                                         
bes_summe_sp4                                                 "999999.99"                                                   Arial                                                         >"Die Berechnung dient der Information und ergeht ohne Gewhr."                                                                Arial                                                         "1. E i n s a t z "                                           Arial                                                         "2. E i n s a t z"                                            Arial                                                         "3. E i n s a t z"                                            Arial                                                         "4. E i n s a t z"                                            Arial                                                         "Q U E R S U M M E"                                           Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         stdsatz1                                                      	"9999.99"                                                     Arial                                                         stdsatz2                                                      	"9999.99"                                                     Arial                                                         stdsatz3                                                      	"9999.99"                                                     Arial                                                         stdsatz4                                                      	"9999.99"                                                     Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "Tg"                                                          Arial                                                         "Std"                                                         Arial                                                         "EUR"                                                         Arial                                                         bl_sp1a                                                       Arial Narrow                                                  bl_sp1b                                                       Arial Narrow                                                  bl_sp2                                                        Arial Narrow                                                  bl_sp3                                                        Arial Narrow                                                  bl_sp4                                                        Arial Narrow                                                  bl_sp5                                                        Arial Narrow                                                  bl_sp6a                                                       Arial Narrow                                                  bl_sp6b                                                       Arial Narrow                                                  bl_sp6b                                                       Arial Narrow                                                  
bl_summe_sp6a                                                 Arial Narrow                                                  
bl_summe_sp6b                                                 Arial Narrow                                                  
bl_summe_sp6b                                                 Arial Narrow                                                  bl_fuss                                                       Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                   0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SM10Z2RR1355975138 1 53           1.000    0.000    0.00082666.000                 F             -1   -1   -1  242  242  242    1    8    1
     0 10  021F 3 3FFFTF  F           T    F T  0            0TTT0 0F         WINDOWS _5SM10Z2RS           9  1                          80521.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RT           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RU           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0P4WC61445748084 5  0       78020.833 2500.000 1666.66745625.000                               -1   -1   -1   -1   -1   -1               
     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5ZK101H8T1381402140 7  4        42291.667 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK101U7J1381402150 7  4        46770.833 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK10228K1381402156 7  4        51250.000 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK1027RG1381402159 7  4        56250.000 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK102CZ31381402163 7  4        61458.333 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK102JQM1381402167 7  4        65625.000 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK102OF71381402170 7  4        69791.667 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK102TKO1381402173 7  4        74270.833 2083.333 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZK1030V91381402180 7  4        36770.833 2187.500 1666.66776250.000                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _5ZH0NXP2S1381194050 8  0       53958.33362187.500 1875.00014166.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS31355975181 7  4        15729.167 2604.16715208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5SM110TS41355975181 8  0        1458.333 3437.500 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS51355975181 8  0        3750.000 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS61355975181 8  0        5729.167 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS91355975181 8  0       16041.667 3020.833 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSA1355975181 8  0       18750.000 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSB1355975181 8  0       21875.000 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSC1355975181 8  0       23854.167 3125.000 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM111S5B1355975211 5  0        1562.50041458.333 1666.66713750.000                               -1   -1   -1   -1   -1   -1                     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0O405E1356028388 5  0    !   32291.667 2604.167 2395.83344166.667                               -1   -1   -1   -1   -1   -1               "     1 14  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0O50LU1356028411 5  0    #   34791.66750416.667 1666.667 7812.500                               -1   -1   -1   -1   -1   -1               $     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0O5DQQ1356028418 5  0    %   34687.50061041.667 1666.66710000.000                               -1   -1   -1   -1   -1   -1               &     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0O5ZB61356028435 5  0    '   36770.833 2500.000 1666.66717187.500                               -1   -1   -1   -1   -1   -1               (     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0O7YDM1356028486 8  0    )   36666.66762187.500 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SN0O9C8P1356028517 5  0    +   38645.833 2500.000 1666.66742395.833                               -1   -1   -1   -1   -1   -1               -     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OA08O1356028533 5  0    .   42291.667 2500.000 1666.66721875.000                               -1   -1   -1   -1   -1   -1               /     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OICJA1356028742 5  0    0   44479.167 2500.000 1666.66722395.833                               -1   -1   -1   -1   -1   -1               1     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OK4PQ1356028784 5  0    2   46770.833 2500.000 1666.66716666.667                               -1   -1   -1   -1   -1   -1               3     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OL80D1356028812 5  0    4   48958.333 2500.000 1666.66722708.333                               -1   -1   -1   -1   -1   -1               5     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OMBF81356028840 5  0    6   51250.000 2500.000 1666.66730833.333                               -1   -1   -1   -1   -1   -1               7     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0ONDKK1356028866 5  0    8   54062.500 2500.000 1666.66743645.833                               -1   -1   -1   -1   -1   -1               :     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OPL1N1356028920 5  0    ;   56250.000 2500.000 1666.66737916.667                               -1   -1   -1   -1   -1   -1               =     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0ORJ1V1356028970 5  0    >   59062.500 2500.000 1666.66725000.000                               -1   -1   -1   -1   -1   -1               ?     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OSJUY1356028995 5  0    @   61458.333 2500.000 1666.66725208.333                               -1   -1   -1   -1   -1   -1               A     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OUBLE1356029038 5  0    B   63541.667 2500.000 1666.66728125.000                               -1   -1   -1   -1   -1   -1               C     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OV8P21356029061 5  0    D   65625.000 2500.000 1666.66723333.333                               -1   -1   -1   -1   -1   -1               E     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OW5U21356029083 5  0    F   67708.333 2500.000 1666.66721770.833                               -1   -1   -1   -1   -1   -1               G     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OWZOX1356029104 5  0    H   69791.667 2500.000 1666.66724791.667                               -1   -1   -1   -1   -1   -1               I     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OXQPD1356029124 5  0    J   71979.167 2500.000 1666.66730104.167                               -1   -1   -1   -1   -1   -1               K     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0OYGAM1356029140 8  0    L   74166.66762187.500 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1               M     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFXB1381193795 7  4        19062.50042187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FN        WINDOWS _5ZH0NNFXC1381193795 7  4        20833.33342187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FO        WINDOWS _5ZH0NNFXD1381193795 7  4        22604.16742187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FP        WINDOWS _5ZH0NNFXE1381193795 7  4        24375.00042187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FQ        WINDOWS _5ZH0NNFXF1381193795 7  4        26145.83342187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FR        WINDOWS _5ZH0NNFXG1381193795 7  4         8437.50042187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FS        WINDOWS _5ZH0NNFXH1381193795 7  4         6562.50042187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0FT        WINDOWS _5ZH0NNFXI1381193795 5  0    U    6666.66745937.500 1666.667 3958.333                               -1   -1   -1   -1   -1   -1               V     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXJ1381193795 5  0    W    8437.50045312.500 1666.667 4583.333                               -1   -1   -1   -1   -1   -1               X     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXK1381193795 5  0    Y   19062.50045625.000 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               Z     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXL1381193795 5  0    [   20833.33343333.333 1666.667 6562.500                               -1   -1   -1   -1   -1   -1               \     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXM1381193795 5  0    ]   22604.16745104.167 1666.667 4791.667                               -1   -1   -1   -1   -1   -1               ^     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXN1381193795 5  0    _   24375.00043958.333 1666.667 5937.500                               -1   -1   -1   -1   -1   -1               `     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXO1381193795 5  0    a   26145.83343750.000 1666.667 6145.833                               -1   -1   -1   -1   -1   -1               b     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFXP1381193795 7  4        10208.33342187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0Fc        WINDOWS _5ZH0NNFXQ1381193795 7  4        11979.16742187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0Fd        WINDOWS _5ZH0NNFXR1381193795 7  4        13750.00042187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0Fe        WINDOWS _5ZH0NNFXS1381193795 7  4        15520.83342187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0Ff        WINDOWS _5ZH0NNFXT1381193795 7  4        17291.66742187.500 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0Fg        WINDOWS _5ZH0NNFXU1381193795 7  4         4166.66741770.83326770.83333645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZH0NNFXV1381193795 6            6041.66741875.000  104.16733437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5ZH0NNFXW1381193795 6           28437.50041875.000  104.16733541.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5ZH0NNFXX1381193795 5  0    h   28750.00043541.667 1666.667 6354.167                               -1   -1   -1   -1   -1   -1               i     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZH0NNFXY1381193795 8  0    j    6562.50052083.333 1875.000 7083.333    k              C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFXZ1381193795 8  0    m    6562.50060000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY01381193795 8  0    o    6562.50067916.667 1875.000 7083.333    p              C           -1   -1   -1   -1   -1   -1               q     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY11381193795 5  0    r    4270.83355833.333 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               s     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZH0NNFY21381193795 5  0    t    4270.83361770.833 1666.667 5000.000                               -1   -1   -1   -1   -1   -1               u     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFY31381193795 5  0    v    4270.83370312.500 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               w     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFY41381193795 8  0    x   28750.00052083.333 1875.000 7083.333    y              C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY51381193795 8  0    {   28750.00060000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY61381193795 8  0    }   28750.00067916.667 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY71381193795 5  0        4270.83346145.833 1666.667 3750.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFY81381193795 8  0        8333.33352083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFY91381193795 8  0        8333.33360000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYA1381193795 8  0        8333.33367916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYB1381193795 8  0       10104.16752083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYC1381193795 8  0       10104.16760000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYD1381193795 8  0       10104.16767916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYE1381193795 8  0       11875.00052083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYF1381193795 8  0       11875.00060000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYG1381193795 8  0       11875.00067916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYH1381193795 8  0       13645.83352083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYI1381193795 8  0       13645.83360000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYJ1381193795 8  0       13645.83367916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYK1381193795 8  0       15416.66752083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYL1381193795 8  0       15416.66760000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYM1381193795 8  0       15416.66767916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYN1381193795 8  0       17187.50052083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYO1381193795 8  0       17187.50060000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYP1381193795 8  0       17187.50067916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYQ1381193795 8  0       18958.33352083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYR1381193795 8  0       18958.33360000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYS1381193795 8  0       18958.33367916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYT1381193795 8  0       20729.16752083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYU1381193795 8  0       20729.16760000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYV1381193795 8  0       20729.16767916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYW1381193795 8  0       22500.00052083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYX1381193795 8  0       22500.00060000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYY1381193795 8  0       22500.00067916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFYZ1381193795 8  0       24270.83352083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ01381193795 8  0       24270.83360000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ11381193795 8  0       24270.83367916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ21381193795 8  0       26041.66752083.333 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ31381193795 8  0       26041.66760000.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ41381193795 8  0       26041.66767916.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NNFZ51381193795 5  0       10208.33346875.000 1666.667 3020.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFZ61381193795 5  0       11979.16747187.500 1666.667 2708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFZ71381193795 5  0       13750.00047708.333 1666.667 2187.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFZ81381193795 5  0       15520.83347500.000 1666.667 2395.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFZ91381193795 5  0       17291.66747916.667 1666.667 1979.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0NNFZA1381193795 6            4166.66751041.66726666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZH0NNFZB1381193795 6            4166.66759583.33326666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZH0NNFZC1381193795 6            4166.66767500.00026666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZH0NSVZ01381193930 8  0       36666.66749895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NU9TW1381193964 8  0       42187.50049895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NV3NP1381193986 8  0       44375.00049895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NVHO31381193995 8  0       46666.66749895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NVSMF1381194002 8  0       48854.16749895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NW20V1381194008 8  0       51145.83349895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0NXZGC1381194057 8  0       56145.83362187.500 1875.00014166.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5ZH0NZFQQ1381194093 8  0       61354.16749895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O04MF1381194109 8  0       63437.50049895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O0FTV1381194118 8  0       65520.83349895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O0RPK1381194126 8  0       67604.16749895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O15TV1381194135 8  0       69687.50049895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O1KGT1381194146 8  0       71875.00049895.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZH0O3AZJ1381194189 5  0       74270.833 2500.000 1666.66710937.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZH0O53I71381194314 8  0       74166.66714062.500 1875.00033645.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5ZH0OT08W1381194829 8  0       9791.667 3437.500 2187.50037083.333                   C           -1   -1   -1   -1   -1   -1                   1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5ZH0OT08X1381194829 8  0      12187.500 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F	       WINDOWS _5ZH0OT08Y1381194829 8  0    
  12187.500 3437.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5ZH0OUSBV1381194872 8  0    
   1354.16755520.833 1875.000 3958.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5ZK0ZX8ES1381402037 5  0      51041.66758645.833 1666.667 1250.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZXGE31381402042 5  0      63541.66758645.833 1666.667 2500.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZXM5N1381402048 5  0      65625.00058645.833 1666.667  729.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZXT2T1381402052 5  0      67708.33358645.833 1666.667 2500.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZXZZK1381402058 5  0      69791.66758645.833 1666.667  729.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZYBYA1381402066 5  0      71979.16758645.833 1666.667  729.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5ZK0ZYQV61381402075 5  0      74270.83370729.167 1666.667  729.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                       0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              23.000    7.000   19.000   22.000                                4    0                                   !    1 14                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   "    1 10                                                     F               WINDOWS                     25   #  $                                                       F                                                                                                                      F                G   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         %myarbeitszeit.teilurlaub.label8.value                         Arial                                                         alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         5"Auskunft ber den bisher erworbenen Urlaubsanspruch"         Arial Narrow                                                  
"WERKTAGE"                                                    Arial                                                         
"URLAUBSTAGE"                                                 Arial                                                         "1. Werktage im Kalenderjahr"                                 Arial                                                         *myarbeitszeit.teilurlaub.urlaubstage.value                    Arial                                                         D"   (52 Wochen zu je 6 Werktagen oder 12 Monate zu je 26 Werktagen)"                                                          Arial                                                         '"2. Erster voller Monat im Urlaubsjahr"                       Arial                                                         ("3. Letzter voller Monat im Urlaubsjahr"                      Arial                                                         "4. Anzahl der vollen Monate"                                 Arial                                                         ("5. Arbeitstage in diesem Zeitraum (4.)"                      Arial                                                         6"6. Anteil der Arbeitstage (5.) an den Werktagen (1.)"        Arial                                                         J"7. Prozentualer Anteil nach Zeile 6 nun bezogen auf den Jahresurlaub (1)"                                                    Arial                                                         ?"8. Rundung nach  5 Abs. 2 BUrlG (Bruchteile ab ,5 aufrunden)"                                                               Arial                                                         -"Berechnung des Urlaubsentgelts ( 11 BUrlG)"                 Arial Narrow                                                  ,"9. Arbeitstage in den letzten drei Monaten"                  Arial                                                         0"10. Arbeitsstunden in den letzten drei Monaten"              Arial                                                         )"11. Entgelt in den drei letzten Monaten"                     Arial                                                         '"12. Arbeitsstunden pro Tag (10. / 9.)"                       Arial                                                         ,"13. Durchschnittl. Stundenlohn (11. / 10.)"                  Arial                                                         0"14. Massgeblicher Stundenlohn nach  11 BBurlG"              Arial                                                         &myarbeitszeit.teilurlaub.label15.value                        Arial                                                         $myarbeitszeit.aktivermonat.value = 8                          $myarbeitszeit.aktivermonat.value = 9                          %myarbeitszeit.aktivermonat.value = 10                         %myarbeitszeit.aktivermonat.value = 11                         %myarbeitszeit.aktivermonat.value = 12                         $myarbeitszeit.aktivermonat.value = 2                          $myarbeitszeit.aktivermonat.value = 1                          "Januar"                                                      Arial                                                         	"Februar"                                                     Arial                                                         "August"                                                      Arial                                                         "September"                                                   Arial                                                         	"Oktober"                                                     Arial                                                         
"November"                                                    Arial                                                         
"Dezember"                                                    Arial                                                         $myarbeitszeit.aktivermonat.value = 3                          $myarbeitszeit.aktivermonat.value = 4                          $myarbeitszeit.aktivermonat.value = 5                          $myarbeitszeit.aktivermonat.value = 6                          $myarbeitszeit.aktivermonat.value = 7                          "S u m m e"                                                   Arial                                                         myarbeitszeit.text5.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text6.value                                     Arial                                                         myarbeitszeit.text7.value                                     "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         myarbeitszeit.text41.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text42.value                                    Arial                                                         myarbeitszeit.text43.value                                    Arial                                                         "Monat"                                                       Arial                                                         myarbeitszeit.text8.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text9.value                                     Arial                                                         myarbeitszeit.text10.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text11.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text12.value                                    Arial                                                         myarbeitszeit.text13.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text14.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text15.value                                    Arial                                                         myarbeitszeit.text16.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text17.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text18.value                                    Arial                                                         myarbeitszeit.text19.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text20.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text21.value                                    Arial                                                         myarbeitszeit.text22.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text23.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text24.value                                    Arial                                                         myarbeitszeit.text25.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text26.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text27.value                                    Arial                                                         myarbeitszeit.text28.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text29.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text30.value                                    Arial                                                         myarbeitszeit.text31.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text32.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text33.value                                    Arial                                                         myarbeitszeit.text34.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text35.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text36.value                                    Arial                                                         myarbeitszeit.text37.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text38.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text39.value                                    Arial                                                         myarbeitszeit.text40.value                                    "999999.99"                                                   Arial                                                         "Mrz"                                                        Arial                                                         "April"                                                       Arial                                                         "Mai"                                                         Arial                                                         "Juni"                                                        Arial                                                         "Juli"                                                        Arial                                                         %myarbeitszeit.teilurlaub.label1.value                         Arial                                                         %myarbeitszeit.teilurlaub.label3.value                         Arial                                                         %myarbeitszeit.teilurlaub.label4.value                         Arial                                                         %myarbeitszeit.teilurlaub.label5.value                         Arial                                                         %myarbeitszeit.teilurlaub.label6.value                         Arial                                                         %myarbeitszeit.teilurlaub.label7.value                         Arial                                                         %myarbeitszeit.teilurlaub.label9.value                         Arial                                                         &myarbeitszeit.teilurlaub.label11.value                        Arial                                                         &myarbeitszeit.teilurlaub.label12.value                        Arial                                                         &myarbeitszeit.teilurlaub.label10.value                        Arial                                                         &myarbeitszeit.teilurlaub.label13.value                        Arial                                                         &myarbeitszeit.teilurlaub.label14.value                        Arial                                                         &myarbeitszeit.teilurlaub.vorgabe.value                        Arial                                                         "15. Urlaubsentgelt"                                          Arial                                                         "("+alltrim(str(myarbeitszeit.teilurlaub.label16.value,10,3))+" Url. Tage x " + alltrim(myarbeitszeit.teilurlaub.label17.value) + " Std. x " + alltrim(str(myarbeitszeit.teilurlaub.label18.value,10,2)) + " ) = "                                           Arial                                                         e"Anlage zur Abrechnung fr " + getmonatsname(myarbeitszeit.aktivermonat.value,1) + " " + welchesjahrc                         Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         welchesjahrc                                                  Arial                                                         "%"                                                           Arial                                                         "Std."                                                        Arial                                                         ""                                                           Arial                                                         "Std."                                                        Arial                                                         ""                                                           Arial                                                         ""                                                           Arial                                                         ""                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         %myarbeitszeit.teilurlaub.label8.value                         Arial                                                         alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         5"Auskunft ber den bisher erworbenen Urlaubsanspruch"         Arial Narrow                                                  
"WERKTAGE"                                                    Arial                                                         
"URLAUBSTAGE"                                                 Arial                                                         "1. Werktage im Kalenderjahr"                                 Arial                                                         *myarbeitszeit.teilurlaub.urlaubstage.value                    Arial                                                         D"   (52 Wochen zu je 6 Werktagen oder 12 Monate zu je 26 Werktagen)"                                                          Arial                                                         '"2. Erster voller Monat im Urlaubsjahr"                       Arial                                                         ("3. Letzter voller Monat im Urlaubsjahr"                      Arial                                                         "4. Anzahl der vollen Monate"                                 Arial                                                         ("5. Arbeitstage in diesem Zeitraum (4.)"                      Arial                                                         6"6. Anteil der Arbeitstage (5.) an den Werktagen (1.)"        Arial                                                         J"7. Prozentualer Anteil nach Zeile 6 nun bezogen auf den Jahresurlaub (1)"                                                    Arial                                                         ?"8. Rundung nach  5 Abs. 2 BUrlG (Bruchteile ab ,5 aufrunden)"                                                               Arial                                                         -"Berechnung des Urlaubsentgelts ( 11 BUrlG)"                 Arial Narrow                                                  ,"9. Arbeitstage in den letzten drei Monaten"                  Arial                                                         0"10. Arbeitsstunden in den letzten drei Monaten"              Arial                                                         )"11. Entgelt in den drei letzten Monaten"                     Arial                                                         '"12. Arbeitsstunden pro Tag (10. / 9.)"                       Arial                                                         ,"13. Durchschnittl. Stundenlohn (11. / 10.)"                  Arial                                                         0"14. Massgeblicher Stundenlohn nach  11 BBurlG"              Arial                                                         &myarbeitszeit.teilurlaub.label15.value                        Arial                                                         $myarbeitszeit.aktivermonat.value = 8                          $myarbeitszeit.aktivermonat.value = 9                          %myarbeitszeit.aktivermonat.value = 10                         %myarbeitszeit.aktivermonat.value = 11                         %myarbeitszeit.aktivermonat.value = 12                         $myarbeitszeit.aktivermonat.value = 2                          $myarbeitszeit.aktivermonat.value = 1                          "Januar"                                                      Arial                                                         	"Februar"                                                     Arial                                                         "August"                                                      Arial                                                         "September"                                                   Arial                                                         	"Oktober"                                                     Arial                                                         
"November"                                                    Arial                                                         
"Dezember"                                                    Arial                                                         $myarbeitszeit.aktivermonat.value = 3                          $myarbeitszeit.aktivermonat.value = 4                          $myarbeitszeit.aktivermonat.value = 5                          $myarbeitszeit.aktivermonat.value = 6                          $myarbeitszeit.aktivermonat.value = 7                          "S u m m e"                                                   Arial                                                         myarbeitszeit.text5.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text6.value                                     Arial                                                         myarbeitszeit.text7.value                                     "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         myarbeitszeit.text41.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text42.value                                    Arial                                                         myarbeitszeit.text43.value                                    Arial                                                         "Monat"                                                       Arial                                                         myarbeitszeit.text8.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text9.value                                     Arial                                                         myarbeitszeit.text10.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text11.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text12.value                                    Arial                                                         myarbeitszeit.text13.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text14.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text15.value                                    Arial                                                         myarbeitszeit.text16.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text17.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text18.value                                    Arial                                                         myarbeitszeit.text19.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text20.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text21.value                                    Arial                                                         myarbeitszeit.text22.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text23.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text24.value                                    Arial                                                         myarbeitszeit.text25.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text26.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text27.value                                    Arial                                                         myarbeitszeit.text28.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text29.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text30.value                                    Arial                                                         myarbeitszeit.text31.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text32.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text33.value                                    Arial                                                         myarbeitszeit.text34.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text35.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text36.value                                    Arial                                                         myarbeitszeit.text37.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text38.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text39.value                                    Arial                                                         myarbeitszeit.text40.value                                    "999999.99"                                                   Arial                                                         "Mrz"                                                        Arial                                                         "April"                                                       Arial                                                         "Mai"                                                         Arial                                                         "Juni"                                                        Arial                                                         "Juli"                                                        Arial                                                         %myarbeitszeit.teilurlaub.label1.value                         Arial                                                         %myarbeitszeit.teilurlaub.label3.value                         Arial                                                         %myarbeitszeit.teilurlaub.label4.value                         Arial                                                         %myarbeitszeit.teilurlaub.label5.value                         Arial                                                         %myarbeitszeit.teilurlaub.label6.value                         Arial                                                         %myarbeitszeit.teilurlaub.label7.value                         Arial                                                         %myarbeitszeit.teilurlaub.label9.value                         Arial                                                         &myarbeitszeit.teilurlaub.label11.value                        Arial                                                         &myarbeitszeit.teilurlaub.label12.value                        Arial                                                         &myarbeitszeit.teilurlaub.label10.value                        Arial                                                         &myarbeitszeit.teilurlaub.label13.value                        Arial                                                         &myarbeitszeit.teilurlaub.label14.value                        Arial                                                         &myarbeitszeit.teilurlaub.vorgabe.value                        Arial                                                         "15. Urlaubsentgelt"                                          Arial                                                         "("+alltrim(str(myarbeitszeit.teilurlaub.label16.value,10,3))+" Url. Tage x " + alltrim(myarbeitszeit.teilurlaub.label17.value) + " Std. x " + alltrim(str(myarbeitszeit.teilurlaub.label18.value,10,2)) + " ) = "                                           Arial                                                         >"Die Berechnung dient der Information und ergeht ohne Gewhr."                                                                Arial                                                         e"Anlage zur Abrechnung fr " + getmonatsname(myarbeitszeit.aktivermonat.value,1) + " " + welchesjahrc                         Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         welchesjahrc                                                  Arial                                                         "%"                                                           Arial                                                         "Std."                                                        Arial                                                         ""                                                           Arial                                                         "Std."                                                        Arial                                                         ""                                                           Arial                                                         ""                                                           Arial                                                         ""                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  Arial Narrow                                                  dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                   0(   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                       	     0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          47500.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SN0U3LEF1356034131 8  0    
    8437.50060208.333 1666.66716354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0    
    3333.33360312.500 1666.66716354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        5416.66760312.500 1666.66716354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        8437.50066770.833 1666.667 9791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        2916.667 4166.667 2500.00055208.333                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            7812.500 4166.667  104.16773125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LPLPP1351635192 6           30937.500 4166.667  104.16773125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5QV0LWFLX1351635368 8  0       28750.000 8437.500 1875.00033854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0LX2971351635384 8  0       28750.00056562.500 1875.000 6458.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QV0M53PS1351635577 8  0       28750.00043333.333 1875.000 6458.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5QV0M5R4V1351635594 8  0       28750.00067812.500 1875.000 8645.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          2T         1       0 1  0TTT0 0F         WINDOWS _5RT0Z2PS01354007227 8  0       31354.167 4479.167 1770.83372500.000                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0THNFN1356033457 8  0        18854.167 4062.500 2187.50072708.333                   C           -1   -1   -1   -1   -1   -1               !     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SN0TI19D1356033466 8  0    "    9583.333 4375.000 1875.00038229.167                   C           -1   -1   -1   -1   -1   -1               #     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0TMPOD1356033583 8  0    $   21458.333 4166.667 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SN0TO0N51356033618 5  0    &   26354.167 4687.500 1666.667 1354.167                               -1   -1   -1   -1   -1   -1               '     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0TO9EG1356033623 5  0    (   26354.167 8437.500 1666.667 7812.500                               -1   -1   -1   -1   -1   -1               )     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0TOH2X1356033628 5  0    *   26354.16745520.833 1666.667 3958.333                               -1   -1   -1   -1   -1   -1               +     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0TOMEG1356033635 5  0    ,   26354.16755625.000 1666.667 7291.667                               -1   -1   -1   -1   -1   -1               -     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0TOVCF1356033640 5  0    .   26354.16768750.000 1666.667 7708.333                               -1   -1   -1   -1   -1   -1               /     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SN0TQ66O1356033669 8  0    0   28750.000 4479.167 1875.000 2708.333                   C           -1   -1   -1   -1   -1   -1               1     0 10  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SN0TRIOD1356033703 6           28333.333 4166.667  104.16773125.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5SN0TV82I1356033795 8  0    2   35520.833 4479.167 1875.00072500.000                   C           -1   -1   -1   -1   -1   -1               3     1 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0U5N1J1356034182 8  0    4   12395.833 4375.000 1875.00038229.167                   C           -1   -1   -1   -1   -1   -1               5     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0U5N1K1356034182 8  0    6   14375.000 4375.000 1875.00038229.167                   C           -1   -1   -1   -1   -1   -1               7     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0U9LJF1356034281 8  0    8   23333.333 4166.667 1875.00072604.167                   C           -1   -1   -1   -1   -1   -1               9     0 10  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SN0UU7XF1356034796 8  0    :   38958.333 4479.167 1770.83372500.000                   C           -1   -1   -1   -1   -1   -1               ;     0  8  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SN0UE8PK1356034395 8  0    <   28750.000 8437.500 1875.00057187.500                   C           -1   -1   -1   -1   -1   -1               =     0 10  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   >     0  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   ?     0  8                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                   @     1 14                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   A     0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   B     1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   C     1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   D     0 10                                                     F               WINDOWS                     25   E   F                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              %ORIENTATION=0
PAPERSIZE=9
COLOR=2
                         Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an_fuss1                                                      Arial Narrow                                                  2                                                            Arial                                                         alltrim(myform1.z0.Caption)                                   Arial                                                         3                                                            Arial                                                         "Nr"                                                          Arial                                                         
"Bezeichnung"                                                 Arial                                                         "Betrag"                                                      Arial                                                         "Multiplikator"                                               Arial                                                         "Jahresbetrag"                                                Arial                                                         an1_nr                                                        Arial Narrow                                                  an_fuss2                                                      Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         4                                                            Arial                                                         an_fuss3                                                      Arial Narrow                                                  
an1_text_long                                                 Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     %ORIENTATION=0
PAPERSIZE=9
COLOR=2
                         Arial Narrow                                                  ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         an1_text                                                      Arial Narrow                                                  an1_sp2                                                       Arial Narrow                                                  an1_sp1                                                       Arial Narrow                                                  an1_sp3                                                       Arial Narrow                                                  an_fuss1                                                      Arial Narrow                                                  2                                                            Arial                                                         alltrim(myform1.z0.Caption)                                   Arial                                                         3                                                            Arial                                                         "Nr"                                                          Arial                                                         
"Bezeichnung"                                                 Arial                                                         "Betrag"                                                      Arial                                                         "Multiplikator"                                               Arial                                                         "Jahresbetrag"                                                Arial                                                         an1_nr                                                        Arial Narrow                                                  an_fuss2                                                      Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         4                                                            Arial                                                         an_fuss3                                                      Arial Narrow                                                  
an1_text_long                                                 Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0/   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SR109LIO1356302055 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F         WINDOWS _5SR109LIP           9  1                          29063.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SR109LIQ           9  4                           2188.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SR109LIR           9  7                           3334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SR110ZJ41356302864 8  0      31354.167 2916.667 1875.00030625.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F        WINDOWS _5SR110ZJ51356302864 8  0      31354.16735937.500 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F        WINDOWS _5SR110ZJ61356302864 8  0      31354.16747291.667 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F        WINDOWS _5SR110ZJ71356302864 8  0      31354.16758645.833 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F        WINDOWS _5SR110ZJ81356302864 8  0       31354.16770000.000 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1               !     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F"        WINDOWS _5SR10ACNQ1356302073 8  0    #    5000.000 2812.500 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1               $     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SR10ACNR1356302073 8  0    %    7500.000 2812.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               &     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10ACNS1356302073 8  0    '    9479.167 2812.500 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               (     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10APDH1356302083 8  0    )    5000.00046875.000 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F+        WINDOWS _5SR10APDI1356302083 8  0    ,    5000.00046875.000 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               -     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F.        WINDOWS _5SR10C2WA1356302119 5  0    /   12708.333 3229.167 2083.33322500.000                               -1   -1   -1   -1   -1   -1               0     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10CB361356302127 5  0    1   14583.333 3333.333 1666.66729062.500                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10D85E1356302154 8  0    3   17708.333 3958.333 2187.50036145.833                   C           -1   -1   -1   -1   -1   -1               4     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SR10E3M91356302167 8  0    5   20104.167 3958.333 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               6     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10EILJ1356302178 8  0    7   21979.167 3958.333 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10ERKC1356302184 8  0    9   23854.167 3958.333 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               :     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10EZ601356302189 8  0    ;   25729.167 3958.333 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SR10FUTG1356302339 8  0    =   20104.16737395.833 1875.000 9479.167                   C           -1   -1   -1   -1   -1   -1               >     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10GSSR1356302361 8  0    ?   20104.16748020.833 1875.000 9479.167                   C           -1   -1   -1   -1   -1   -1               @     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10H3S61356302371 8  0    A   20104.16761041.667 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1               B     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10H3S71356302371 8  0    C   20104.16771354.167 1875.000 9479.167                   C           -1   -1   -1   -1   -1   -1               D     1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10QLM51356302607 5  0    E   22500.00045937.500 1666.667 1458.333                               -1   -1   -1   -1   -1   -1               F     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10QPFP1356302610 5  0    G   24583.33345416.667 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               H     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10QV2N1356302615 5  0    I   26666.66747812.500 1666.667 9791.667                               -1   -1   -1   -1   -1   -1               J     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10R1K61356302616 5  0    K   22500.00059166.667 1666.667 1458.333                               -1   -1   -1   -1   -1   -1               L     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10R1K71356302616 5  0    M   24583.33358645.833 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               N     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SR10R1K81356302616 5  0    O   26666.66766041.667 1666.667 3645.833                               -1   -1   -1   -1   -1   -1               P     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SR10RSCX1356302636 8  0    Q   22395.83361041.667 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1               R     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10RSCY1356302636 8  0    S   22395.83348020.833 1875.000 9479.167                   C           -1   -1   -1   -1   -1   -1               T     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10RYW21356302640 8  0    U   24479.16761041.667 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1               V     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10RYW31356302640 8  0    W   24479.16748020.833 1875.000 9479.167                   C           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SR10V67Z1356302721 5  0    Y   22395.83378229.167 1666.667 2604.167                               -1   -1   -1   -1   -1   -1               Z     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SR10V6801356302721 5  0    [   24479.16772708.333 1666.667 8125.000                               -1   -1   -1   -1   -1   -1               \     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SR10XXTZ1356302789 8  0]   ^   31354.167 2916.667 1875.00030625.000                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F`        WINDOWS _5SR10Y1941356302792 8  0a   b   31354.16735937.500 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0Fd        WINDOWS _5SR10Y3UJ1356302793 8  0e   f   31354.16747291.667 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0Fh        WINDOWS _5SR10Y6C81356302795 8  0i   j   31354.16758645.833 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1               k     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0Fl        WINDOWS _5SR10Y97J1356302797 8  0m   n   31354.16770000.000 1875.00010937.500                   C           -1   -1   -1   -1   -1   -1               o     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0Fp        WINDOWS _5SR1168C11356302995 6           32291.667 2500.000  104.16779270.833                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0Fq        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   r     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   s     1 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   t     1 12                                                     F               WINDOWS                     25   u   v                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         sp_text                                                       TEILZEIT.sp_text                                              Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp1                                                           
TEILZEIT.sp_1                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp2                                                           
TEILZEIT.sp_2                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp3                                                           
TEILZEIT.sp_3                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp4                                                           
TEILZEIT.sp_4                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   !"T E I L Z E I T - R E C H N E R"                             Arial                                                         0"auf Basis der Einstellungen im Programmfenster"              Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         4                                                            Arial                                                         5                                                            Arial                                                         7                                                            Arial                                                         8                                                            Arial                                                         9                                                            Arial                                                         10                                                           Arial                                                         "fr"                                                         Arial                                                         "von"                                                         Arial                                                         "Wochenstunden"                                               Arial                                                         "fr"                                                         Arial                                                         "von"                                                         Arial                                                         "Tagen"                                                       Arial                                                         myteilzeitrechner.bruch3.value                                Arial                                                         !myteilzeitrechner.effektiv1.value                             Arial                                                         myteilzeitrechner.bruch2.value                                Arial                                                         !myteilzeitrechner.effektiv0.value                             Arial                                                         "zum"                                                         Arial                                                         "Vollzeitgehalt"                                              Arial                                                         sp_text                                                       TEILZEIT.sp_text                                              Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp1                                                           
TEILZEIT.sp_1                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp2                                                           
TEILZEIT.sp_2                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp3                                                           
TEILZEIT.sp_3                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp4                                                           
TEILZEIT.sp_4                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               teilzeit.strich = .t.                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         sp_text                                                       TEILZEIT.sp_text                                              Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp1                                                           
TEILZEIT.sp_1                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp2                                                           
TEILZEIT.sp_2                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp3                                                           
TEILZEIT.sp_3                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               sp4                                                           
TEILZEIT.sp_4                                                 Arial                                                         /teilzeit.fett = .t. .and. teilzeit.strich = .f.               alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   !"T E I L Z E I T - R E C H N E R"                             Arial                                                         0"auf Basis der Einstellungen im Programmfenster"              Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial                                                         4                                                            Arial                                                         5                                                            Arial                                                         7                                                            Arial                                                         8                                                            Arial                                                         9                                                            Arial                                                         10                                                           Arial                                                         "fr"                                                         Arial                                                         "von"                                                         Arial                                                         "Wochenstunden"                                               Arial                                                         "fr"                                                         Arial                                                         "von"                                                         Arial                                                         "Tagen"                                                       Arial                                                         myteilzeitrechner.bruch3.value                                Arial                                                         !myteilzeitrechner.effektiv1.value                             Arial                                                         myteilzeitrechner.bruch2.value                                Arial                                                         !myteilzeitrechner.effektiv0.value                             Arial                                                         "zum"                                                         Arial                                                         "Vollzeitgehalt"                                              Arial                                                         sp_text                                                       TEILZEIT.sp_text                                              Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp1                                                           
TEILZEIT.sp_1                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp2                                                           
TEILZEIT.sp_2                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp3                                                           
TEILZEIT.sp_3                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               sp4                                                           
TEILZEIT.sp_4                                                 Arial                                                         /teilzeit.fett = .f. .and. teilzeit.strich = .f.               teilzeit.strich = .t.                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5SD0MCJ4P1356291766      /  F      ]                                                       WINDOWS _5SD0MCJ4Q1430476498                    #  H                                               WINDOWS _5SD0MCJ4R1362524621	        3  C  P        r                                               WINDOWS _5SD0MCJ4S1362451346                  *                                                 WINDOWS _5SD0MCJ4P1362524332             !  !      `!  %                                               WINDOWS _5SD0MCJ4U1362524332O(      ^(  m(  {(  (      (  T-                                               WINDOWS _5SD0MCJ4V1362524332/      /  /  /  /      E0  4                                               WINDOWS _5SD0MCJ4W13625243327      7  #7  47  A7      7  ;                                               WINDOWS _5SD0MCJ4P1356302433K>      W>  c>  v>  >                                                           WINDOWS _5SD0MCJ4Q1356290319B      B  *B  9B  ZB                                                           WINDOWS _5SD0MCJ4R1356302433B      B  B  B  B                                                           WINDOWS _5SD0MCJ4S1356290319^C      lC  zC  C  C                                                           WINDOWS _5SD0MCJ4T1362458840C      C  D  D  1D                                                           WINDOWS _5SD0MCJ4U1356290319D      D  D  D  E                                                           WINDOWS _5SD0MCJ4V1362458840YE      hE  wE  E  E                                                           WINDOWS _5SD0MCJ4W1356290319FF      TF  bF  qF  F                                                           WINDOWS _5SQ10994I1362458840F      F  F  F  G                                                           WINDOWS RESERVED  1356290319G      G  G  G  H                                                           WINDOWS           1362458840AH      PH  _H  lH  H                                                           WINDOWS _5SD0MCJ4P1362522891.I      =I  LI  [I  hI                                                           WINDOWS _5SR0NVOP61362522891J      J  &J  5J  BJ                                                           WINDOWS _5SD0MCJ4Q1362522891J      J  J  J  K                                                           WINDOWS _5SR0PFCZ21356302433K      K  K  K  K                                                           WINDOWS _5SD0MCJ4P1356302433fL      sL  L  L  L                                                           WINDOWS _5SD0MCJ4P1362459683 M      -M  :M  HM  UM                                                           WINDOWS _5SR0PFCZ31362459683M      M  M  N  N                                                           WINDOWS _5SD0MCJ4P1356291766N      N  N  N  N                                                           WINDOWS _5SR0PFCZ41356291766$O      1O  >O  LO  YO                                                           WINDOWS _5SD0MCJ4P1356291766O      O  O  O  O                                                           WINDOWS _5SD0MCJ4P1356291766CP      PP  ]P  kP  xP                                                           WINDOWS _5SR0PFCZ51356291766P      P  P  P  Q                                                           WINDOWS _5SR0PFCZ61356291766]Q      jQ  wQ  Q  Q                                                           WINDOWS _5SD0MCJ4P1356291766Q      Q  R  R  #R                                                           WINDOWS _5SR0PFCZ71356291766R      R  R  R  R                                                           WINDOWS _5SR0VWXCD1362459683S      'S  6S  @S  MS                                                           WINDOWS _5SR0VWXCE1362459683S      S  S  	T  T                                                           WINDOWS _5SD0MCJ4P1362459683T      T  T  T  T                                                           WINDOWS _5SD0MCJ4P1362459683UU      dU  sU  }U  U                                                           WINDOWS _5SD0MCJ4P1362459683V      V  -V  7V  DV                                                           WINDOWS _5SR0XT11Q1362459683V      V  V  V  V                                                           WINDOWS _5SD0MCJ4P1362459683W      W  W  W  W                                                           WINDOWS _5SR0NVOP61362459683MX      \X  kX  uX  X                                                           WINDOWS _5SR0XT11R13624596835Y      DY  SY  ]Y  jY                                                           WINDOWS _5SR0XT11S1362459683$Z      3Z  BZ  MZ  ZZ                                                           WINDOWS _5T80L818X1357532868[  $[  D[  S[  `[  m[                                                           WINDOWS _5V90YEL1H1362460772[      
\  \  '\  4\      \  ^                                               COMMENT RESERVED                                V`                                                            `                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 705
Width = 588
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Teilzeit-Rechner"
ControlBox = .T.
Closable = .F.
FontBold = .T.
FontSize = 14
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif

IF giveselect("teilzeit") = 0
	CREATE CURSOR teilzeit (fett l(1), sp_text c(35), sp_1 c(10), sp_2 c(10), sp_3 c(10) , sp_4 c(10), strich l(1))
endif
SELECT teilzeit
*!*	SET safety off
*!*	ZAP
*!*	SET SAFETY on

PUBLIC myteilzeitrechner
myteilzeitrechner = thisform

PUBLIC 1,2,3,4,5,6,7,8,9,10
STORE "" TO 1,2,3,4,5,6,7,8,9,10
THISFORM.grdTeilzeit.SetAll("DynamicFontBold", "teilzeit.fett", "Column")
With myteilzeitrechner
	zl(1+0) = wert(1+0)
	zl(1+1) = wert(1+1)
	zl(1+2) = wert(1+2)
	zl(1+3) = wert(1+3)
	For i = 0 To 3
		wertold(1+i) = wert(1+i)
	Next
	wertold(1+6) = zi(1+18)
	wertold(1+7) = betrag(1+18)
	wertold(1+8) = teilzahl(18)
	wertold(1+9) = bruchzahl(18)
	teizold = teiz(18)
	bruzold = bruz(18)
	teiz(18) = False
	bruz(18) = 0
	sp(1+0) = 1.2
	sp(1+1) = 0.7
	sp(1+2) = 4.2
	sp(1+3) = sp(1+2) + sp(1+0)
	sp(1+4) = sp(1+3) + sp(1+0)
	sp(1+5) = sp(1+4) + sp(1+0)
	startflag = True

	thisform.effektiv0.Value = betrag(1+0) / 100000 &&HS vorher 1+0
	thisform.effektiv1.Value = betrag(1+1) / 100000 &&HS vorher 1+1
	thisform.bruch2.Value = betrag(1+2) / 100000 &&HS vorher 1+2
	thisform.bruch3.Value = betrag(1+3) / 100000 &&HS vorher 1+3

	If thisform.bruch2.Value > wert(1+2) / 100000 * 2 
		thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
	endif

	wertold(1+2) = thisform.bruch2.Value * 100000
	wertold(1+3) = thisform.bruch3.Value * 100000
	Do spaltenfllen &&Do attached

	DO teilzeitrechnerkopf &&Druckvorschau.Blatt, dRatio
	DO teilzeitrechner &&Druckvorschau.Blatt, dRatio
	startflag = False
	SELECT teilzeit
	GO top
	thisform.grdteilzeit.refresh	
Endwith

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdTeilzeit.column1.text1.fontsize = thisform.grdTeilzeit.column1.fontsize
thisform.grdTeilzeit.column2.text1.fontsize = thisform.grdTeilzeit.column1.fontsize
thisform.grdTeilzeit.column3.text1.fontsize = thisform.grdTeilzeit.column1.fontsize
thisform.grdTeilzeit.column4.text1.fontsize = thisform.grdTeilzeit.column1.fontsize
thisform.grdTeilzeit.column5.text1.fontsize = thisform.grdTeilzeit.column1.fontsize
ENDPROC
     	    	  	                        s   %         G	  G               U  Z %    
$  T      %C teilzeit   z h teilzeit  L  C#  C
  C
  C
	  C

  L  F  7 
 T   + 7 
         1 J  ( 
         ; C DynamicFontBold
 teilzeit.fett Column    
   T C  T C  T C  T C    ( T  C    T C  T C  T 	C  T 
C  T  C!  T" C#  T! $  T#   T% 333333? T% ffffff? T% @ T% C% C%  T% C% C%  T% C% C% 
 T& '  T  ( ) C   T  * ) C   T  + ) C   T  , ) C  & %  + ) C  ( T  - )    T   + )    T   , )   .  /  0 
 T& $  F  #)
    1   %  2 3 4  T5 C4   2 3 T 
 T5  
   6 7  T  2   2 3 5  T  8   8 3 5 
   9  T  : a U;  THISFORM TOP
 GIVESELECT TEILZEIT FETT SP_TEXT SP_1 SP_2 SP_3 SP_4 STRICH MYTEILZEITRECHNER 1 2 3 4 5 6 7 8 9 10 GRDTEILZEIT SETALL ZL WERT I WERTOLD ZI BETRAG TEILZAHL	 BRUCHZAHL TEIZOLD TEIZ BRUZOLD BRUZ FALSE SP	 STARTFLAG TRUE	 EFFEKTIV0 VALUE	 EFFEKTIV1 BRUCH2 BRUCH3 BRUCH0
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C    " T           " T           " T           " T   	        " T   
         U  THISFORM SIZER	 FRMRESIZE GRDTEILZEIT COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 Init,      Resizes    1 AA A q u   qqqqqA qqqq11 b1A q r q  q Q  A   A    2 !!!!!1                       2     @   O  
  N    )   	                        
commandbutton      
commandbutton      Command1      FORM1      WTop = 3
Left = 333
Height = 28
Width = 115
Caption = "drucken"
Name = "Command1"
      PROCEDURE Click
*!*	Druckvorschau.blatt.Cls
select teilzeit
GO top

REPORT FORM teilzeit_drucken while .not. EOF() NOCONSOLE TO PRINTER prompt

SELECT teilzeit
GO top

ENDPROC
                                     u   %                             U  =  F   #)" ? teilzeit_drucken(!"9+C+
 F   #) U  TEILZEIT TEILZEIT_DRUCKEN Click,     1 r Q "r Q 2                              )                            
commandbutton      
commandbutton      Command2      FORM1      YTop = 3
Left = 454
Height = 28
Width = 115
Caption = "schlieen"
Name = "Command2"
     PROCEDURE Click
SELECT teilzeit
USE

If myindexe = 20
&&Originalberechnung
     wert(1+0) = wertold(1+0)
     betrag(1+0) = wertold(1+0)
     wert(1+1) = wertold(1+1)
     betrag(1+1) = wertold(1+1)
     wert(1+2) = wertold(1+2)
     betrag(1+2) = wertold(1+2)
     wert(1+3) = wertold(1+3)
     betrag(1+3) = wertold(1+3)
     zi(1+18) = wertold(1+6)
     betrag(1+18) = wertold(1+7)
     teilzahl(1+18) = wertold(1+8)
     bruchzahl(18) = wertold(1+9)
     teiz(1+18) = teizold
     bruz(1+18) = bruzold
     DO Berechnung
     immerfolge = True
     wertold(1+5) = 0
EndIf
*!*	Druckvorschau.blatt.Cls
*!*	Druckvorschau.Visible = False
thisform.release
ENDPROC
                                   W   %   Q           `            U   F   Q % } T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  T C	  T C
  T 	  T
    
 T
   T   
    U  TEILZEIT MYINDEXE WERT WERTOLD BETRAG ZI TEILZAHL	 BRUCHZAHL TEIZ TEIZOLD BRUZ BRUZOLD
 BERECHNUNG
 IMMERFOLGE TRUE THISFORM RELEASE Click,     1 q A rqqqqqqqqqqq11q  1A  1                             )                           textbox      textbox      bruch2      FORM1      @Height = 25
Left = 168
Top = 46
Width = 75
Name = "bruch2"
     |PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
	If this.Value > wert(1+2) / 100000 * 2 
		thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
	endif

	wertold(1+2) = thisform.bruch2.Value * 100000
	wertold(1+3) = thisform.bruch3.Value * 100000
	Do spaltenfllen &&Do attached
	*!*	Druckvorschau.Blatt.Cls
	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
	DO teilzeitrechnerkopf
	DO teilzeitrechner
	SELECT teilzeit
	GO top
	thisform.grdteilzeit.refresh
endif
ENDPROC
PROCEDURE Valid
*!*	If this.Value > wert(1+2) / 100000 * 2 
*!*		thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
*!*	endif

*!*	wertold(1+2) = thisform.bruch2.Value * 100000
*!*	wertold(1+3) = thisform.bruch3.Value * 100000
*!*	Do spaltenfllen &&Do attached
*!*	*!*	Druckvorschau.Blatt.Cls
*!*	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
*!*	DO teilzeitrechnerkopf
*!*	DO teilzeitrechner
*!*	RETURN .t.
ENDPROC
     c    J  J                           %                          U        %  
 # %  C  R  T      T       T  	    
      F
  #)
      U  NKEYCODE
 NSHIFTALTCTRL THIS VALUE WERT THISFORM BRUCH0 WERTOLD BRUCH2 BRUCH3
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER TEILZEIT GRDTEILZEIT REFRESH  U   KeyPress,      Valid    1  11A q t q q Q  A 2 >                       X        t  q      )   J                        textbox      textbox      bruch3      FORM1      @Height = 25
Left = 168
Top = 19
Width = 75
Name = "bruch3"
     |PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
	If this.Value > wert(1+2) / 100000 * 2 
		thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
	endif

	wertold(1+2) = thisform.bruch2.Value * 100000
	wertold(1+3) = thisform.bruch3.Value * 100000
	Do spaltenfllen &&Do attached
	*!*	Druckvorschau.Blatt.Cls
	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
	DO teilzeitrechnerkopf
	DO teilzeitrechner
	SELECT teilzeit
	GO top
	thisform.grdteilzeit.refresh
endif
ENDPROC
PROCEDURE Valid
*!*	If this.Value > wert(1+2) / 100000 * 2 
*!*		thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
*!*	endif

*!*	wertold(1+2) = thisform.bruch2.Value * 100000
*!*	wertold(1+3) = thisform.bruch3.Value * 100000
*!*	Do spaltenfllen &&Do attached
*!*	*!*	Druckvorschau.Blatt.Cls
*!*	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
*!*	DO teilzeitrechnerkopf
*!*	DO teilzeitrechner
*!*	RETURN .t.
ENDPROC
     c    J  J                           %                          U        %  
 # %  C  R  T      T       T  	    
      F
  #)
      U  NKEYCODE
 NSHIFTALTCTRL THIS VALUE WERT THISFORM BRUCH0 WERTOLD BRUCH2 BRUCH3
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER TEILZEIT GRDTEILZEIT REFRESH  U   KeyPress,      Valid    1  11A q t q q Q  A 2 >                       X        t  q      )   J                        textbox      textbox      	effektiv0      FORM1      BHeight = 25
Left = 34
Top = 46
Width = 75
Name = "effektiv0"
     RPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
	If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
		thisform.effektiv0.Value = 1
	endif

	wertold(1+0) = thisform.effektiv0.Value * 100000
	wertold(1+1) = thisform.effektiv1.Value * 100000
	Do spaltenfllen &&Do attached
	*!*	Druckvorschau.Blatt.Cls
	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
	DO teilzeitrechnerkopf
	DO teilzeitrechner
	SELECT teilzeit
	GO top
	thisform.grdteilzeit.refresh
endif
ENDPROC
PROCEDURE Valid
*!*	If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
*!*		thisform.effektiv0.Value = 1
*!*	endif

*!*	wertold(1+0) = thisform.effektiv0.Value * 100000
*!*	wertold(1+1) = thisform.effektiv1.Value * 100000
*!*	Do spaltenfllen &&Do attached
*!*	*!*	Druckvorschau.Blatt.Cls
*!*	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
*!*	DO teilzeitrechnerkopf
*!*	DO teilzeitrechner
*!*	RETURN .t.
ENDPROC
     ^    E  E                        K&   %                          U        %  
 & %   C  U  T      T       T        	  
  F  #)
   
   U  NKEYCODE
 NSHIFTALTCTRL THISFORM	 EFFEKTIV0 VALUE WERT WERTOLD	 EFFEKTIV1
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER TEILZEIT GRDTEILZEIT REFRESH  U   KeyPress,      Valid    1  a1A q t q q Q  A 2 >                       C        _  G      )   E                        textbox      textbox      	effektiv1      FORM1      BHeight = 25
Left = 34
Top = 19
Width = 75
Name = "effektiv1"
     RPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
	If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
		thisform.effektiv0.Value = 1
	endif

	wertold(1+0) = thisform.effektiv0.Value * 100000
	wertold(1+1) = thisform.effektiv1.Value * 100000
	Do spaltenfllen &&Do attached
	*!*	Druckvorschau.Blatt.Cls
	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
	DO teilzeitrechnerkopf
	DO teilzeitrechner
	SELECT teilzeit
	GO top
	thisform.grdteilzeit.refresh
endif
ENDPROC
PROCEDURE Valid
*!*	If thisform.effektiv0.Value > wert(1+0) / 100000 * 2 
*!*		thisform.effektiv0.Value = 1
*!*	endif

*!*	wertold(1+0) = thisform.effektiv0.Value * 100000
*!*	wertold(1+1) = thisform.effektiv1.Value * 100000
*!*	Do spaltenfllen &&Do attached
*!*	*!*	Druckvorschau.Blatt.Cls
*!*	*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
*!*	DO teilzeitrechnerkopf
*!*	DO teilzeitrechner
*!*	RETURN .t.
ENDPROC
     ^    E  E                        K&   %                          U        %  
 & %   C  U  T      T       T        	  
  F  #)
   
   U  NKEYCODE
 NSHIFTALTCTRL THISFORM	 EFFEKTIV0 VALUE WERT WERTOLD	 EFFEKTIV1
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER TEILZEIT GRDTEILZEIT REFRESH  U   KeyPress,      Valid    1  a1A q t q q Q  A 2 >                       C        _  G      )   E                        grid      grid      grdTeilzeit      FORM1     ColumnCount = 5
AllowHeaderSizing = .F.
DeleteMark = .F.
HeaderHeight = 0
Height = 469
Left = 12
Panel = 1
ReadOnly = .T.
RecordSource = "teilzeit"
RecordSourceType = 1
Top = 225
Width = 565
Name = "grdTeilzeit"
Column1.Alignment = 0
Column1.ControlSource = "teilzeit.sp_text"
Column1.Width = 230
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 1
Column2.ControlSource = "teilzeit.sp_1"
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "teilzeit.sp_2"
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "teilzeit.sp_3"
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "teilzeit.sp_4"
Column5.Width = 75
Column5.ReadOnly = .T.
Column5.Name = "Column5"
      header      header      Header1      FORM1.grdTeilzeit.Column1      0Caption = "Arbeitsverdienst"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTeilzeit.Column1      xAlignment = 0
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdTeilzeit.Column2      3Alignment = 1
Caption = "EURO"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTeilzeit.Column2      Alignment = 1
BorderStyle = 0
ControlSource = "teilzeit.sp_1"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdTeilzeit.Column3      3Alignment = 1
Caption = "EURO"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTeilzeit.Column3      Alignment = 1
BorderStyle = 0
ControlSource = "teilzeit.sp_2"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdTeilzeit.Column4      3Alignment = 1
Caption = "EURO"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTeilzeit.Column4      Alignment = 1
BorderStyle = 0
ControlSource = "teilzeit.sp_3"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdTeilzeit.Column5      3Alignment = 1
Caption = "EURO"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTeilzeit.Column5      Alignment = 1
BorderStyle = 0
ControlSource = "teilzeit.sp_4"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      textbox      textbox      ditext4      FORM1      FontBold = .T.
ControlSource = "ditext4"
Enabled = .F.
Height = 21
Left = 285
Top = 114
Width = 263
DisabledForeColor = 0,0,0
Name = "ditext4"
      textbox      textbox      ditext8      FORM1      ControlSource = "ditext8"
Enabled = .F.
Height = 21
Left = 285
Top = 134
Width = 263
DisabledForeColor = 0,0,0
Name = "ditext8"
      textbox      textbox      ditext9      FORM1      ControlSource = "ditext9"
Enabled = .F.
Height = 21
Left = 285
Top = 154
Width = 263
DisabledForeColor = 0,0,0
Name = "ditext9"
      label      label      Label1      FORM1      FontBold = .T.
FontSize = 12
Caption = "T E I L Z E I T - R E C H N E R"
Height = 18
Left = 308
Top = 40
Width = 222
Name = "Label1"
      label      label      Label2      FORM1      }Caption = "auf Basis der Einstellungen im Programmfenster"
Height = 16
Left = 282
Top = 64
Width = 276
Name = "Label2"
      label      label      Label3      FORM1      Caption = "Die Wochenstunden und Arbeitstage knnen"
Height = 16
Left = 282
Top = 81
Visible = .T.
Width = 276
Name = "Label3"
      label      label      Label4      FORM1      sCaption = "oben gendert werden."
Height = 16
Left = 281
Top = 97
Visible = .T.
Width = 276
Name = "Label4"
      label      label      Label5      FORM1      TCaption = "Teilzeit"
Height = 16
Left = 39
Top = 3
Width = 45
Name = "Label5"
      label      label      Label6      FORM1      VCaption = "Teilmonat"
Height = 16
Left = 172
Top = 3
Width = 62
Name = "Label6"
      label      label      Label7      FORM1      OCaption = "fr"
Height = 16
Left = 9
Top = 24
Width = 19
Name = "Label7"
      label      label      Label8      FORM1      OCaption = "von"
Height = 16
Left = 9
Top = 50
Width = 19
Name = "Label8"
      label      label      Label9      FORM1      QCaption = "fr"
Height = 16
Left = 143
Top = 24
Width = 19
Name = "Label9"
      label      label      Label10      FORM1      RCaption = "von"
Height = 16
Left = 143
Top = 50
Width = 19
Name = "Label10"
      label      label      Label11      FORM1      [Caption = "Wochenstunden"
Height = 16
Left = 20
Top = 74
Width = 93
Name = "Label11"
      label      label      Label12      FORM1      TCaption = "Tagen"
Height = 16
Left = 170
Top = 74
Width = 40
Name = "Label12"
      textbox      textbox      1      FORM1      FontBold = .T.
ControlSource = "1"
Enabled = .F.
Height = 21
Left = 12
Top = 94
Width = 263
DisabledForeColor = 0,0,0
Name = "1"
      textbox      textbox      2      FORM1      }ControlSource = "2"
Enabled = .F.
Height = 21
Left = 12
Top = 114
Width = 263
DisabledForeColor = 0,0,0
Name = "2"
      textbox      textbox      3      FORM1      }ControlSource = "3"
Enabled = .F.
Height = 21
Left = 12
Top = 134
Width = 263
DisabledForeColor = 0,0,0
Name = "3"
      textbox      textbox      4      FORM1      }ControlSource = "4"
Enabled = .F.
Height = 21
Left = 12
Top = 154
Width = 263
DisabledForeColor = 0,0,0
Name = "4"
      textbox      textbox      6      FORM1      ~ControlSource = "6"
Enabled = .F.
Height = 21
Left = 285
Top = 174
Width = 263
DisabledForeColor = 0,0,0
Name = "6"
      textbox      textbox      5      FORM1      }ControlSource = "5"
Enabled = .F.
Height = 21
Left = 12
Top = 174
Width = 263
DisabledForeColor = 0,0,0
Name = "5"
      textbox      textbox      7      FORM1      Alignment = 1
ControlSource = "7"
Enabled = .F.
Height = 21
Left = 255
Top = 203
Width = 74
DisabledForeColor = 0,0,0
Name = "7"
      textbox      textbox      8      FORM1      Alignment = 1
ControlSource = "8"
Enabled = .F.
Height = 21
Left = 331
ToolTipText = "Wochenstunden"
Top = 203
Width = 74
DisabledForeColor = 0,0,0
Name = "8"
      textbox      textbox      9      FORM1      Alignment = 1
ControlSource = "9"
Enabled = .F.
Height = 21
Left = 407
ToolTipText = "Tage (bei Teilmonat)"
Top = 202
Width = 74
DisabledForeColor = 0,0,0
Name = "9"
      textbox      textbox      10      FORM1      Alignment = 1
ControlSource = "10"
Enabled = .F.
Height = 21
Left = 483
ToolTipText = "zum Vollzeitgehalt"
Top = 202
Width = 74
DisabledForeColor = 0,0,0
Name = "10"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 687
Left = 570
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      bruch0      FORM1      ^Enabled = .F.
Height = 25
Left = 252
Top = 12
Visible = .F.
Width = 48
Name = "bruch0"
     PROCEDURE Valid
If this.Value > wert(1+2) / 100000 * 2 
	thisform.bruch0.Value = 1 &&vorher bruch0 (bruch0 gibt es aber nicht)
endif

wertold(1+2) = thisform.bruch2.Value * 100000
wertold(1+3) = thisform.bruch3.Value * 100000
Do spaltenfllen &&Do attached
*!*	Druckvorschau.Blatt.Cls
*!*	Druckvorschau.teilzeitrechnerkopf Druckvorschau.Blatt, dRatio
*!*	Druckvorschau.teilzeitrechner Druckvorschau.Blatt, dRatio
DO teilzeitrechnerkopf
DO teilzeitrechner
RETURN .t.
ENDPROC
                                      %   <      a     K            U   # %   C  6  T      T       T        	  
  Ba U  THIS VALUE WERT THISFORM BRUCH0 WERTOLD BRUCH2 BRUCH3
 SPALTENFLLEN TEILZEITRECHNERKOPF TEILZEITRECHNER Valid,     1 11A q t q q 1                             )                           dArial, 1, 14, 9, 23, 18, 50, 4, 1
Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5SS0Y1XHK1356365481      /  F      ]                                                       WINDOWS _5SS0Y1XHL1417629010                      
                                               WINDOWS _5SS0Y1XHM1361212668W      h  y          -                                                 WINDOWS _5SS0Y1XHN1361207555                  )  N                                               WINDOWS _5SS0Y1XHO1356421506h      h  h  h  i      i  "j                                               WINDOWS _5SS0Y1XHP1361267891j      k  k  +k  Ck      k  Zl                                               WINDOWS _5SS0Y1XHQ1356365481Jm      Ym  hm  |m  m      {n  n                                               WINDOWS _5SS0Y1XHR1356365481p      p  .p  >p  Vp      q  s                                               WINDOWS _5SS0Y1XHS1356365481	v      v  'v  4v  Lv      +w  w                                               WINDOWS _5SS0Y1XHT1356365481x      x  x  x  x      y  Fz                                               WINDOWS _5SS0Y1XHU1356365481`{      o{  ~{  {  {      |  |                                               WINDOWS _5SS0Y1XHV1356365481~      (~  7~  G~  _~      C                                                 WINDOWS _5SS0Y1XHW1361207555̀                    /                                               WINDOWS _5SS0Y1XHX1417629010f      u                                                                 WINDOWS _5SS0Y1XHY1356365481      +  :  M  e      ω                                                 WINDOWS _5SS0Y1XHZ1385463170          )  A        {                                               WINDOWS _5SS0Y1XI01397520157        #  3  K      9  &                                               WINDOWS _5SS0Y1XI11361207555X      m                                                             WINDOWS _5SS0Y8YQU1356365968D      Y  n  ~          7                                               WINDOWS _6841ADNKF1402711242     @  O  \  i                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Form1     BorderStyle = 2
Height = 194
Width = 202
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Taschenrechner"
ControlBox = .F.
HalfHeightCaption = .T.
ClipControls = .T.
TitleBar = 1
WindowType = 1
WindowState = 0
AlwaysOnTop = .T.
Name = "Form1"
     PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
PARAMETERS hsxhsx
x = hsxhsx

IF PCOUNT() = 0
	x = ""
ENDIF
IF VARTYPE(x) = "N" 
	x = "bertragen und schlieen" &&ALLTRIM(STR(x,10,0))
ENDIF
IF VARTYPE(myform1) = "O"
	thisform.Top = myform1.shape12.top + 1
	thisform.left = myform1.shape12.left - 1
endif
mycalc.container1.commandgroup1.command19.caption = x
IF hsxhsx < 0
	mycalc.container1.commandgroup1.command19.tag = "*"+ALLTRIM(STR(hsxhsx,4,0))
ELSE
	mycalc.container1.commandgroup1.command19.tag = ""
endif

ON KEY LABEL ENTER mycalc.container1.commandgroup1.command11.Click
ON KEY LABEL "0" mycalc.container1.commandgroup1.command10.Click
ON KEY LABEL "1" mycalc.container1.commandgroup1.command1.Click
ON KEY LABEL "2" mycalc.container1.commandgroup1.command2.Click
ON KEY LABEL "3" mycalc.container1.commandgroup1.command3.Click
ON KEY LABEL "4" mycalc.container1.commandgroup1.command4.Click
ON KEY LABEL "5" mycalc.container1.commandgroup1.command5.Click
ON KEY LABEL "6" mycalc.container1.commandgroup1.command6.Click
ON KEY LABEL "7" mycalc.container1.commandgroup1.command7.Click
ON KEY LABEL "8" mycalc.container1.commandgroup1.command8.Click
ON KEY LABEL "9" mycalc.container1.commandgroup1.command9.Click
ON KEY LABEL "+" mycalc.container1.commandgroup1.command15.Click
ON KEY LABEL "-" mycalc.container1.commandgroup1.command16.Click
ON KEY LABEL "*" mycalc.container1.commandgroup1.command17.Click
ON KEY LABEL "/" mycalc.container1.commandgroup1.command18.Click
ON KEY LABEL "." mycalc.container1.commandgroup1.command14.Click
ON KEY LABEL "," mycalc.container1.commandgroup1.command14.Click
ON KEY LABEL "%" mycalc.container1.commandgroup1.command14.Click
ON KEY LABEL BACKSPACE mycalc.container1.commandgroup1.command21.Click


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Load

mycalc = thisform

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     	G    .	  .	                        Z   %           7   G            U    B    U  THISFORM TAG 4  
 T    %Ct 2 
 T     %C  Np % T  bertragen und schlieen  %C  O  T      T       T  	 
    %   
( T  	 
   *CC   Z 4 T  	 
     @ 12 ENTER/ mycalc.container1.commandgroup1.command11.Click> 12 0/ mycalc.container1.commandgroup1.command10.Click= 12 1. mycalc.container1.commandgroup1.command1.Click= 12 2. mycalc.container1.commandgroup1.command2.Click= 12 3. mycalc.container1.commandgroup1.command3.Click= 12 4. mycalc.container1.commandgroup1.command4.Click= 12 5. mycalc.container1.commandgroup1.command5.Click= 12 6. mycalc.container1.commandgroup1.command6.Click= 12 7. mycalc.container1.commandgroup1.command7.Click= 12 8. mycalc.container1.commandgroup1.command8.Click= 12 9. mycalc.container1.commandgroup1.command9.Click> 12 +/ mycalc.container1.commandgroup1.command15.Click> 12 -/ mycalc.container1.commandgroup1.command16.Click> 12 */ mycalc.container1.commandgroup1.command17.Click> 12 // mycalc.container1.commandgroup1.command18.Click> 12 ./ mycalc.container1.commandgroup1.command14.Click> 12 ,/ mycalc.container1.commandgroup1.command14.Click> 12 %/ mycalc.container1.commandgroup1.command14.ClickD 12	 BACKSPACE/ mycalc.container1.commandgroup1.command21.Click %     T C    T 
 T  
     T       T      
    T  a U  HSXHSX X MYFORM1 THISFORM TOP SHAPE12 LEFT MYCALC
 CONTAINER1
 COMMANDGROUP1	 COMMAND19 CAPTION TAG ENTER	 BACKSPACE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER 
 T    U  MYCALC THISFORM  C     U  THISFORM SIZER	 FRMRESIZE Unload,      InitN      Load     Resize    1  2 q   A QQA QA  A A  A    2  3 1                       %         @   v     3       ;   5       @    )   .	                        	container      	container      
Container1      Form1      Top = 1
Left = 1
Width = 199
Height = 192
SpecialEffect = 2
Enabled = .T.
Visible = .T.
BackColor = 240,240,240
Name = "Container1"
     PROCEDURE Init

PUBLIC manzeige,mcaption,mwert1,mwert2,mdoublefunc,mdezifunc,moldrechfunc,manzeige,mrechenweg
manzeige="0"
mcaption=""
mwert1=0.00
mwert2=0.00
mdoublefunc=.f.
mdezifunc=.f.
moldrechfunc=""
manzeige="0"
mrechenweg=""
SET POINT TO "."
mycalc.container1.text1.Value=0
mycalc.container1.text2.Value=0
mycalc.container1.text1.refresh
mycalc.container1.text2.refresh
mycalc.container1.opinprogress.refresh
mycalc.container1.txtresultat.refresh

ENDPROC
         u  u                        ]   %         ,                 U  %' 7            T   0
 T    T          T          T - T -
 T    T   0
 T    G;( . T 	 
    T 	      	 
 
   	  
   	  
   	  
  U  MANZEIGE MCAPTION MWERT1 MWERT2 MDOUBLEFUNC	 MDEZIFUNC MOLDRECHFUNC
 MRECHENWEG MYCALC
 CONTAINER1 TEXT1 VALUE TEXT2 REFRESH OPINPROGRESS TXTRESULTAT Init,     1 r  QQ      aa2                             )   u                        commandgroup      commandgroup      
Commandgroup1      Form1.Container1     
ButtonCount = 21
BorderStyle = 1
Value = 1
Height = 144
Left = 7
Top = 46
Width = 186
Name = "Commandgroup1"
Command1.Top = 58
Command1.Left = 3
Command1.Height = 27
Command1.Width = 35
Command1.Caption = "1"
Command1.Name = "Command1"
Command2.Top = 58
Command2.Left = 39
Command2.Height = 27
Command2.Width = 35
Command2.Caption = "2"
Command2.Name = "Command2"
Command3.Top = 58
Command3.Left = 75
Command3.Height = 27
Command3.Width = 35
Command3.Caption = "3"
Command3.Name = "Command3"
Command4.Top = 31
Command4.Left = 3
Command4.Height = 27
Command4.Width = 35
Command4.Caption = "4"
Command4.Name = "Command4"
Command5.Top = 31
Command5.Left = 39
Command5.Height = 27
Command5.Width = 35
Command5.Caption = "5"
Command5.Name = "Command5"
Command6.Top = 31
Command6.Left = 75
Command6.Height = 27
Command6.Width = 35
Command6.Caption = "6"
Command6.Name = "Command6"
Command7.Top = 4
Command7.Left = 3
Command7.Height = 27
Command7.Width = 35
Command7.Caption = "7"
Command7.Name = "Command7"
Command8.Top = 4
Command8.Left = 39
Command8.Height = 27
Command8.Width = 35
Command8.Caption = "8"
Command8.Name = "Command8"
Command9.Top = 4
Command9.Left = 75
Command9.Height = 27
Command9.Width = 35
Command9.Caption = "9"
Command9.Name = "Command9"
Command10.Top = 85
Command10.Left = 3
Command10.Height = 27
Command10.Width = 35
Command10.Caption = "0"
Command10.Name = "Command10"
Command11.Top = 85
Command11.Left = 147
Command11.Height = 27
Command11.Width = 35
Command11.Caption = "ist"
Command11.Name = "Command11"
Command12.Top = 85
Command12.Left = 111
Command12.Height = 27
Command12.Width = 35
Command12.FontSize = 14
Command12.Caption = "%"
Command12.Name = "Command12"
Command13.Top = 85
Command13.Left = 39
Command13.Height = 27
Command13.Width = 35
Command13.Caption = "+/-"
Command13.Name = "Command13"
Command14.Top = 85
Command14.Left = 75
Command14.Height = 27
Command14.Width = 35
Command14.FontSize = 14
Command14.Caption = "."
Command14.Name = "Command14"
Command15.Top = 31
Command15.Left = 111
Command15.Height = 27
Command15.Width = 35
Command15.FontBold = .F.
Command15.FontSize = 14
Command15.Caption = "+"
Command15.Name = "Command15"
Command16.Top = 31
Command16.Left = 147
Command16.Height = 27
Command16.Width = 35
Command16.FontBold = .F.
Command16.FontSize = 14
Command16.Caption = "-"
Command16.Name = "Command16"
Command17.Top = 58
Command17.Left = 111
Command17.Height = 27
Command17.Width = 35
Command17.FontBold = .F.
Command17.FontSize = 14
Command17.Caption = "x"
Command17.Name = "Command17"
Command18.Top = 58
Command18.Left = 147
Command18.Height = 27
Command18.Width = 35
Command18.FontBold = .F.
Command18.FontSize = 14
Command18.Caption = "/"
Command18.Name = "Command18"
Command19.Top = 112
Command19.Left = 3
Command19.Height = 27
Command19.Width = 179
Command19.Caption = "bertragen nach Zeile : "
Command19.Name = "Command19"
Command20.Top = 4
Command20.Left = 111
Command20.Height = 27
Command20.Width = 35
Command20.FontSize = 14
Command20.Caption = "c"
Command20.ToolTipText = "clear"
Command20.Name = "Command20"
Command21.Top = 4
Command21.Left = 147
Command21.Height = 27
Command21.Width = 35
Command21.Picture = prgicons\backspace_klein.ico
Command21.Caption = ""
Command21.ToolTipText = "Backspace"
Command21.PicturePosition = 1
Command21.Name = "Command21"
     %PROCEDURE Command1.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command2.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command3.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command4.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command5.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command6.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command7.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command8.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command9.Click
mcaption=this.Caption
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command10.Click
mcaption="0"
mycalc.container1.command2.Click

ENDPROC
PROCEDURE Command11.Init
this.Caption="="

ENDPROC
PROCEDURE Command11.Click

IF EMPTY(mycalc.container1.opinprogress.Value)
	RETURN
ENDIF
crlf=CHR(13)+CHR(10)
IF mycalc.container1.opinprogress.Value="="

	mwert1=VAL(manzeige)
	mwert2=mycalc.container1.oldwert2.Value
	DO case
		CASE mycalc.container1.oldrechfunc.Value="+"
			manzeige=mwert1 + mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " + " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf
		CASE mycalc.container1.oldrechfunc.Value="-"
			manzeige=mwert1 - mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " - " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf
		CASE mycalc.container1.oldrechfunc.Value="X"
			manzeige=mwert1 * mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " X " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf
		CASE mycalc.container1.oldrechfunc.Value="/"
			IF mwert2 <> 0
				manzeige=mwert1 / mwert2
				mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " / " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf
			endif
	ENDCASE	
else
	mwert2=VAL(manzeige)

	mycalc.container1.text2.Value=mwert2
	mycalc.container1.text2.refresh
	mycalc.container1.oldwert2.Value=mwert2
	mycalc.container1.oldwert2.refresh
	
	DO case
		CASE mycalc.container1.opinprogress.Value="+"
			manzeige=mwert1 + mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " + " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf			
		CASE mycalc.container1.opinprogress.Value="-"
			manzeige=mwert1 - mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " - " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf			
		CASE mycalc.container1.opinprogress.Value="X"
			manzeige=mwert1 * mwert2
			mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " X " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf			
		CASE mycalc.container1.opinprogress.Value="/"
			IF mwert2 <> 0
				manzeige=mwert1 / mwert2
				mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " / " + ALLTRIM(STR(mwert2,13,2)) + " = " + ALLTRIM(STR(manzeige,13,2)) + crlf				
			ELSE
				hinweis("DIVISON durch NULL!")
				manzeige=0
			endif
	ENDCASE
	mycalc.container1.oldrechfunc.value=mycalc.container1.opinprogress.Value
	mycalc.container1.oldrechfunc.refresh
endif
IF VARTYPE(manzeige) = "N"
	manzeige=STR(manzeige,13,2)
endif

mycalc.container1.opinprogress.Value="="
mycalc.container1.opinprogress.refresh

mycalc.container1.txtresultat.refresh




ENDPROC
PROCEDURE Command12.Click
crlf=CHR(13)+CHR(10)
mwert2=VAL(manzeige)
DO case
	CASE mycalc.container1.opinprogress.Value="+"
      	manzeige=mwert1 + ((mwert1/100) * mwert2)
		mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " + " + ALLTRIM(STR(mwert2,13,2)) + "% = " + ALLTRIM(STR(manzeige,13,2)) + crlf      	
	CASE mycalc.container1.opinprogress.Value="-"
      	manzeige=mwert1 - ((mwert1/100) * mwert2)
      	mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " - " + ALLTRIM(STR(mwert2,13,2)) + "% = " + ALLTRIM(STR(manzeige,13,2)) + crlf
	CASE mycalc.container1.opinprogress.Value="X"
      	manzeige=mwert1 * ((mwert1/100) * mwert2) / 100
      	mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " X " + ALLTRIM(STR(mwert2,13,2)) + "% = " + ALLTRIM(STR(manzeige,13,2)) + crlf
	CASE mycalc.container1.opinprogress.Value="/"
      	manzeige=mwert1 / ((mwert1/100) * mwert2) * 100
      	mrechenweg=mrechenweg + ALLTRIM(STR(mwert1,13,2)) + " / " + ALLTRIM(STR(mwert2,13,2)) + "% = " + ALLTRIM(STR(manzeige,13,2)) + crlf
ENDCASE
IF VARTYPE(manzeige) = "N"
	manzeige=STR(manzeige,13,2)
endif
mycalc.container1.opinprogress.Value="="
mycalc.container1.opinprogress.refresh
mycalc.container1.txtresultat.refresh

ENDPROC
PROCEDURE Command13.Click
IF SUBSTR(ALLTRIM(manzeige),1,1)="-"
	manzeige=SUBSTR(ALLTRIM(manzeige),2)
ENDIF

	
ENDPROC
PROCEDURE Command14.Click
IF AT(".",ALLTRIM(manzeige)) = 0
	mcaption="."
	mycalc.container1.command2.Click
endif
ENDPROC
PROCEDURE Command15.Click

mycalc.container1.opinprogress.Value="+"
mwert1=VAL(manzeige)
mwert2=0.00
manzeige="0"
mycalc.container1.txtresultat.refresh
mycalc.container1.text1.Value=mwert1
mycalc.container1.text2.Value=mwert2
mycalc.container1.text1.refresh
mycalc.container1.text2.refresh
mycalc.container1.opinprogress.refresh

ENDPROC
PROCEDURE Command16.Init
this.Caption="-"

ENDPROC
PROCEDURE Command16.Click
*!*	IF thisform.container1.opinprogress.Value = "="
*!*		mwert1=VAL(manzeige)
*!*		mwert2=thisform.container1.text2.value
*!*		thisform.container1.text1.Value=mwert1
*!*		thisform.container1.text2.Value=mwert2
*!*		thisform.container1.text1.refresh
*!*		thisform.container1.text2.refresh
*!*		thisform.container1.opinprogress.Value="-"
*!*		thisform.container1.opinprogress.refresh
*!*		mdoublefunc=.t.
*!*		thisform.container1.commandgroup1.command11.click
*!*		return
*!*	endif

mycalc.container1.opinprogress.Value="-"
mwert1=VAL(manzeige)
mwert2=0.00
manzeige="0"
mycalc.container1.txtresultat.refresh
mycalc.container1.text1.Value=mwert1
mycalc.container1.text2.Value=mwert2
mycalc.container1.text1.refresh
mycalc.container1.text2.refresh
mycalc.container1.opinprogress.refresh
ENDPROC
PROCEDURE Command17.Click
*!*	IF thisform.container1.opinprogress.Value = "="
*!*		mwert1=VAL(manzeige)
*!*		mwert2=thisform.container1.text2.value
*!*		thisform.container1.text1.Value=mwert1
*!*		thisform.container1.text2.Value=mwert2
*!*		thisform.container1.text1.refresh
*!*		thisform.container1.text2.refresh
*!*		thisform.container1.opinprogress.Value="X"
*!*		thisform.container1.opinprogress.refresh
*!*		mdoublefunc=.t.
*!*		thisform.container1.commandgroup1.command11.click
*!*		return
*!*	endif
mycalc.container1.opinprogress.Value="X"
mwert1=VAL(manzeige)
mwert2=0.00
manzeige="0"
mycalc.container1.txtresultat.refresh
mycalc.container1.text1.Value=mwert1
mycalc.container1.text2.Value=mwert2
mycalc.container1.text1.refresh
mycalc.container1.text2.refresh
mycalc.container1.opinprogress.refresh
ENDPROC
PROCEDURE Command18.Click
*!*	IF thisform.container1.opinprogress.Value = "="
*!*		mwert1=VAL(manzeige)
*!*		mwert2=thisform.container1.text2.value
*!*		thisform.container1.text1.Value=mwert1
*!*		thisform.container1.text2.Value=mwert2
*!*		thisform.container1.text1.refresh
*!*		thisform.container1.text2.refresh
*!*		thisform.container1.opinprogress.Value="/"
*!*		thisform.container1.opinprogress.refresh
*!*		mdoublefunc=.t.
*!*		thisform.container1.commandgroup1.command11.click
*!*		return
*!*	endif

mycalc.container1.opinprogress.Value="/"
mwert1=VAL(manzeige)
mwert2=0.00
manzeige="0"
mycalc.container1.txtresultat.refresh
mycalc.container1.text1.Value=mwert1
mycalc.container1.text2.Value=mwert2
mycalc.container1.text1.refresh
mycalc.container1.text2.refresh
mycalc.container1.opinprogress.refresh
ENDPROC
PROCEDURE Command19.Click

thisform.Tag = "N:"+ALLTRIM(mycalc.container1.txtresultat.Value)+ALLTRIM(mycalc.container1.commandgroup1.command19.tag)
ON key
thisform.Release


*!*	xhs = ALLTRIM(STR(index,3,0))
*!*	thisform.t&xhs..value = ROUND(VAL(thisform.container1.txtresultat.Value),2)
*!*	thisform.dem&xhs..disabledbackcolor = QBcolor(13)
*!*	readout = ROUND(VAL(thisform.container1.txtresultat.Value),2)
*!*	If indexe = 50
*!*	   myform1.mencalc.Value = Readout
*!*	   indexe = 0
*!*	   Op1 = 0
*!*	   Op2 = 0
*!*	   DecimalFlag = False
*!*	   NumOps = 0
*!*	   LastInput = "NONE"
*!*	   OpFlag = " "

*!*	*!*	   thisform.container1.Visible = False
*!*	*!*	   return
*!*	EndIf

*!*	   If indexe < 4
*!*	      betrag(indexe) = Readout * 100000
*!*	      wert(indexe) = betrag(indexe)
*!*	   Else
*!*	      betrag(indexe) = Readout * 100
*!*	      wert(indexe) = betrag(indexe)
*!*	   EndIf
*!*	   
*!*	Readout = 0.00
*!*	Op1 = 0
*!*	Op2 = 0
*!*	DecimalFlag = False
*!*	NumOps = 0
*!*	LastInput = "NONE"
*!*	OpFlag = " "

*!*	*!*	thisform.container1.Visible = False


ENDPROC
PROCEDURE Command20.Click
mycalc.container1.Init
mycalc.container1.refresh
mrechenweg=""

ENDPROC
PROCEDURE Command21.Click
IF LEN(ALLTRIM(manzeige)) >= 1
	manzeige=SUBSTR(ALLTRIM(manzeige),1,LEN(ALLTRIM(manzeige))-1)
	IF LEN(manzeige)=0
		manzeige="0"
	ENDIF
	mycalc.container1.txtresultat.refresh
endif
	
ENDPROC
                                   /   %         @                 U  #  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK#  T          U  MCAPTION THIS CAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK!  T   0      U  MCAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK  T    = U  THIS CAPTION %C       B  T C
 C
  %      =o T C g T      
 H k    	   +  T   I T
 
 CC 
Z  + CC 
Z  = CC 
Z     	   -l T   I T
 
 CC 
Z  - CC 
Z  = CC 
Z     	   X T   I T
 
 CC 
Z  X CC 
Z  = CC 
Z     	   /k %  g T   I T
 
 CC 
Z  / CC 
Z  = CC 
Z    0 T C g T             T            
 H       +T T   I T
 
 CC 
Z  + CC 
Z  = CC 
Z        - T   I T
 
 CC 
Z  - CC 
Z  = CC 
Z        X> T   I T
 
 CC 
Z  X CC 
Z  = CC 
Z        / %   T   I T
 
 CC 
Z  / CC 
Z  = CC 
Z    C DIVISON durch NULL!
 
 T     T   	           	    %C  N^ T C 
Z  T      =             U  MYCALC
 CONTAINER1 OPINPROGRESS VALUE CRLF MWERT1 MANZEIGE MWERT2 OLDWERT2 OLDRECHFUNC
 MRECHENWEG TEXT2 REFRESH HINWEIS TXTRESULTAT T  C
 C
  T C g
 H1 9      +  T   d J T  CC 
Z  + CC 
Z % = CC 
Z        -1 T   d J T  CC 
Z  - CC 
Z % = CC 
Z        X T   d dJ T  CC 
Z  X CC 
Z % = CC 
Z        /9 T   d dJ T  CC 
Z  / CC 
Z % = CC 
Z    %C  Ng T C 
Z  T     =    	    
 	  U  CRLF MWERT2 MANZEIGE MYCALC
 CONTAINER1 OPINPROGRESS VALUE MWERT1
 MRECHENWEG REFRESH TXTRESULTAT7  %CC  \ -0  T  CC  \  U  MANZEIGE>  %C .C   7  T  .       U  MANZEIGE MCAPTION MYCALC
 CONTAINER1 COMMAND2 CLICK  T      + T C g T          T  0       T   	    T   
       	      
         U  MYCALC
 CONTAINER1 OPINPROGRESS VALUE MWERT1 MANZEIGE MWERT2 TXTRESULTAT REFRESH TEXT1 TEXT2  T    - U  THIS CAPTION  T      - T C g T          T  0       T   	    T   
       	      
         U  MYCALC
 CONTAINER1 OPINPROGRESS VALUE MWERT1 MANZEIGE MWERT2 TXTRESULTAT REFRESH TEXT1 TEXT2  T      X T C g T          T  0       T   	    T   
       	      
         U  MYCALC
 CONTAINER1 OPINPROGRESS VALUE MWERT1 MANZEIGE MWERT2 TXTRESULTAT REFRESH TEXT1 TEXT2  T      / T C g T          T  0       T   	    T   
       	      
         U  MYCALC
 CONTAINER1 OPINPROGRESS VALUE MWERT1 MANZEIGE MWERT2 TXTRESULTAT REFRESH TEXT1 TEXT2H 3 T    N:C    C      {  
     U	  THISFORM TAG MYCALC
 CONTAINER1 TXTRESULTAT VALUE
 COMMANDGROUP1	 COMMAND19 RELEASE* 
     
     
 T    U  MYCALC
 CONTAINER1 INIT REFRESH
 MRECHENWEGp  %CC  >i  T  CC  CC  >\ %C  > U  T   0        U  MANZEIGE MYCALC
 CONTAINER1 TXTRESULTAT REFRESH Command1.Click,      Command2.Click      Command3.Click      Command4.Click[     Command5.Click     Command6.Click%     Command7.Click     Command8.Click     Command9.ClickT     Command10.Click     Command11.Init
     Command11.Click4     Command12.Clickf
     Command13.Clickz
     Command14.Click
     Command15.Click:     Command16.Init]     Command16.Click     Command17.Click     Command18.Click     Command19.Click     Command20.Click     Command21.Click    1 3 3 3 3 3 3 3 3 3  3 3 A A Q a A A   ba   A A A QQA r6 Q  A QQA q3 AA 4  A 2 r Q aa3 3  Q aa2 ~ Q aa2  Q aa2 2  1    3 Q1 A A 2                       S         x                    
   4  m     
               )        N              $      
  C  )      i    .          3   !       7   [   1    |   r     l     v          {     K        p                              <  a          #       #  +$  .     Q$  %  4   )                           textbox      textbox      txtresultat      Form1.Container1      FontBold = .T.
Alignment = 1
Value = 
ControlSource = "manzeige"
Format = ""
Height = 25
InputMask = ""
Left = 10
ReadOnly = .T.
Top = 21
Width = 181
DisabledBackColor = 255,255,255
Name = "txtresultat"
      +PROCEDURE Init
this.Value="0"

ENDPROC
                                         %   Q       e      _             U    T    0 U  THIS VALUE Init,     1 2                               )                            
commandbutton      
commandbutton      Command1      Form1.Container1      Top = 2
Left = 179
Height = 16
Width = 18
FontBold = .T.
FontSize = 8
Caption = "X"
ForeColor = 255,255,255
BackColor = 255,0,0
Name = "Command1"
      kPROCEDURE Click
*thisform.container1.Visible = .f.
thisform.Tag = ""
ON key
thisform.release
ENDPROC
                                      '   %   m             |             U  %  T      {  
     U  THISFORM TAG RELEASE Click,     1   1                       `       )                            textbox      textbox      opinprogress      Form1.Container1      Alignment = 3
Value = 
ControlSource = ""
Enabled = .F.
Format = ""
Height = 21
InputMask = ""
Left = 97
ReadOnly = .T.
Top = 192
Visible = .T.
Width = 20
DisabledBackColor = 255,255,255
Name = "opinprogress"
      gPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                     /5   %                             U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 MouseLeave,     1 111                       \       )                            
commandbutton      
commandbutton      Command2      Form1.Container1      Top = 3
Left = 160
Height = 16
Width = 18
FontBold = .T.
FontSize = 8
Caption = "anzeige"
Enabled = .F.
Visible = .F.
ForeColor = 255,255,255
BackColor = 255,0,0
Name = "Command2"
     pPROCEDURE Click

IF thisform.container1.opinprogress.Value="="
	thisform.container1.opinprogress.Value=""
	thisform.container1.opinprogress.refresh
	manzeige="0"
	thisform.container1.command2.click
endif
IF ALLTRIM(manzeige)="0"
	manzeige=mCaption &&+".00"
ELSE
*!*		IF AT(".",ALLTRIM(manzeige)) > 0
*!*			manzeige=SUBSTR(ALLTRIM(manzeige),1,AT(".",ALLTRIM(manzeige))-1)+mcaption &&+".00"
*!*		ELSE
		manzeige=ALLTRIM(manzeige)+mcaption
*!*		endif
endif
thisform.container1.txtresultat.refresh
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     k    R  R                        u   %                          U    %      =_  T              T  0        %C  0 
 T     T C       	   U
  THISFORM
 CONTAINER1 OPINPROGRESS VALUE REFRESH MANZEIGE COMMAND2 CLICK MCAPTION TXTRESULTAT)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Click,     
 MouseLeaveL    1 a A A  4B 2 111                                 e      )   R                        textbox      textbox      Text1      Form1.Container1      Alignment = 3
Value = 
ControlSource = ""
Enabled = .F.
Format = ""
Height = 21
InputMask = ""
Left = 5
ReadOnly = .T.
Top = 192
Visible = .T.
Width = 47
DisabledBackColor = 255,255,255
Name = "Text1"
      gPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                     /5   %                             U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 MouseLeave,     1 111                       \       )                            textbox      textbox      Text2      Form1.Container1      Alignment = 3
Value = 
ControlSource = ""
Enabled = .F.
Format = ""
Height = 21
InputMask = ""
Left = 52
ReadOnly = .T.
Top = 192
Visible = .T.
Width = 45
DisabledBackColor = 255,255,255
Name = "Text2"
      gPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                     /5   %                             U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 MouseLeave,     1 111                       \       )                            textbox      textbox      oldrechfunc      Form1.Container1      Alignment = 3
Value = 
ControlSource = ""
Enabled = .F.
Format = ""
Height = 21
InputMask = ""
Left = 117
ReadOnly = .T.
Top = 192
Visible = .T.
Width = 19
DisabledBackColor = 255,255,255
Name = "oldrechfunc"
      gPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                     /5   %                             U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 MouseLeave,     1 111                       \       )                            textbox      textbox      oldwert2      Form1.Container1      Alignment = 3
Value = 
ControlSource = ""
Enabled = .F.
Format = ""
Height = 21
InputMask = ""
Left = 137
ReadOnly = .T.
Top = 192
Visible = .T.
Width = 53
DisabledBackColor = 255,255,255
Name = "oldwert2"
      gPROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
                                     /5   %                             U  )        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION
 MouseLeave,     1 111                       \       )                            
commandbutton      
commandbutton      Command3      Form1.Container1      Top = 2
Left = 10
Height = 16
Width = 65
FontBold = .T.
FontSize = 8
Caption = "Rech.-Weg"
Enabled = .T.
ToolTipText = "Anzeige des Rechenweges"
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Command3"
     PROCEDURE RightClick
mycalc.container1.edit1.Value= ""
mycalc.container1.edit1.visible=.f.
mycalc.container1.edit1.enabled=.f.
mycalc.container1.command4.Enabled=.f.
mycalc.container1.command4.visible=.f.
mycalc.container1.command5.Enabled=.f.
mycalc.container1.command5.visible=.f.
mycalc.container1.edit1.refresh

ENDPROC
PROCEDURE Click
IF thisform.container1.command4.Visible=.t.
	thisform.container1.command3.RightClick
	return
endif
thisform.container1.edit1.Value= mRechenweg 
thisform.container1.edit1.visible=.t.
thisform.container1.edit1.enabled=.t.
thisform.container1.command4.Enabled=.t.
thisform.container1.command4.visible=.t.
thisform.container1.command5.Enabled=.t.
thisform.container1.command5.visible=.t.
thisform.container1.edit1.refresh

ENDPROC
     /                                 %   l                       U    T        T     - T     - T     - T     - T     - T     -       U	  MYCALC
 CONTAINER1 EDIT1 VALUE VISIBLE ENABLED COMMAND4 COMMAND5 REFRESH  %     a,        B  T       T     a T    	 a T    	 a T     a T   
 	 a T   
  a       U  THISFORM
 CONTAINER1 COMMAND4 VISIBLE COMMAND3
 RIGHTCLICK EDIT1 VALUE
 MRECHENWEG ENABLED COMMAND5 REFRESH
 RightClick,      Click"    1 aAAAAAA3 A A aAAAAAA2                       D     
   `        )                           editbox      editbox      Edit1      Form1.Container1      kFontSize = 7
Enabled = .F.
Height = 169
Left = 6
Top = 19
Visible = .F.
Width = 187
Name = "Edit1"
      textbox      textbox      txtvonzeile      Form1.Container1      bEnabled = .F.
Height = 18
Left = 6
Top = 216
Visible = .F.
Width = 67
Name = "txtvonzeile"
      PROCEDURE Init
this.value="Zeile 17" &&hier den abgriff zur maske.
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     `    G  G                        ґ   %                             U    T    Zeile 17 U  THIS VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Init,     
 MouseLeaveX     1 2 111                       C         d          )   G                        textbox      textbox      txtpersonalfall      Form1.Container1      hEnabled = .F.
Height = 19
Left = 75
Top = 216
Visible = .F.
Width = 120
Name = "txtpersonalfall"
      PROCEDURE Init
this.Value=ALLTRIM(myform1.z0.caption) && hier abgriff zur maske
ENDPROC
PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.tip.caption=""
ENDPROC
     v    ]  ]                           %                            U    T   C    U  THIS VALUE MYFORM1 Z0 CAPTION)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM TIP CAPTION Init,     
 MouseLeaven     1 2 111                       P         q          )   ]                        
commandbutton      
commandbutton      Command4      Form1.Container1      Top = 2
Left = 75
Height = 16
Width = 54
FontBold = .T.
FontSize = 8
Caption = "drucken"
Enabled = .F.
ToolTipText = "Anzeige des Rechenweges"
Visible = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Command4"
     PROCEDURE Click
PUBLIC mrechenweg1,mrechenweg2,mrechenweg3
mrechenweg1=mycalc.container1.Txtvonzeile.value
mrechenweg2=mycalc.container1.Txtpersonalfall.value
mrechenweg3=mycalc.container1.edit1.value

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM rechenweg NEXT 1 NOCONSOLE TO PRINTER prompt

SELECT dummy
USE

SELECT(oldselect)

RELEASE mrechenweg1, mrechenweg2, mrechenweg3

ENDPROC
     *                                 %                          U    7     T       T      T      T	 C W h dummy  C F
   [ F
  #) ?	 rechenweg(!"9 F
  Q
 F	  <     U
  MRECHENWEG1 MRECHENWEG2 MRECHENWEG3 MYCALC
 CONTAINER1 TXTVONZEILE VALUE TXTPERSONALFALL EDIT1	 OLDSELECT DUMMY FELD	 RECHENWEG Click,     1  aaa q Q A r Q r A   2                             )                           
commandbutton      
commandbutton      Command5      Form1.Container1      Top = 2
Left = 129
Height = 16
Width = 48
FontBold = .F.
FontSize = 8
Caption = "zurck"
Enabled = .F.
ToolTipText = "Anzeige des Rechenweges"
Visible = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Command5"
      PROCEDURE Click
IF mycalc.container1.command4.Visible=.t.
	mycalc.container1.command3.RightClick
	return
endif

ENDPROC
                                   /    %                             U  3  %     a,        B  U  MYCALC
 CONTAINER1 COMMAND4 VISIBLE COMMAND3
 RIGHTCLICK Click,     1 A A 2                       t       )                           
commandbutton      
commandbutton      Command1      Form1      hTop = 195
Left = 21
Height = 28
Width = 163
Cancel = .T.
Caption = "schlieen"
Name = "Command1"
      4PROCEDURE Click
ON key
thisform.release
ENDPROC
                                         %   X       o      g             U    {  
     U  THISFORM RELEASE Click,     1   1                       )       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Form1      Top = 8
Left = 8
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 14, 8, 23, 18, 51, 4, 1
Arial, 1, 9, 6, 15, 12, 32, 3, 0
Arial, 1, 8, 5, 14, 11, 29, 3, 0
Arial, 0, 7, 4, 12, 9, 24, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
   %         ;      k8V    U  
 T    T         ({  %C  	 w  T 	      
 C 	   C 	   C 	 " T  
  C  " T    C  " T    C     (s %C   'o T      ! T    C  d! T    C  d! T    C  d   ( %C   '( T      T CC  ZH myzuschlge.satzberechnung.Satz&ccc..Value = wnw.zsBetrag(1+i) / 100
   T        T       T    T   
 T    U 	 STARTFLAG TRUE MYZUSCHLGE SATZBERECHNUNG GRUPPENBEZEICHNUNG	 LISTINDEX WNW ZSGRUPPE I ZSSTUFE MSTUFE_CLICK RSTUFE_CLICK ESTUFE_CLICK MOPT VALUE ZSOPTION ROPT ZOPT ZSINDIV MINDIVIDUELL RINDIVIDUELL INDIVIDUELL ZSBETRAG CCC ARBEITSSTUNDEN ZSWOSTD WOCHEN	 ZSWOMONAT DZSWOSTD
 DZSWOMONAT FALSE T        T       
 T   
 HF % C   C 	9 T     #  4 MehrarbeitsvergtungsverordnungF T     0 http://www.gesetze-im-internet.de/marbv/__4.html T  Fr Beamte sind die Mehrarbeitsvergtungen betragsmig in der Mehrarbeitsvergtungs-Verordnung zu  48 BBesG festgelegt. Verwenden Sie den hinterlegten Stundensatz. Fr den Schuldienst gelten besondere Werte.C C 
 C  C  C 	; T       7 TVDj T     T http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/7-Sonderformen-der-Arbeit.htm T ٛ Bitte beachten auch die Sonderregelungen zu  7 TVD, insb.  43 BT-V hinsichtlich berstunden. Danach richtet sich der Stundensatz hchstens nach Stufe 4. C  T       8 TV-Ll T     V http://www.pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm#TV-L-Allgemeiner-Teil/A8.htm T ٧ Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend, hchstens nach der Stufe 4. Ab EG 13 werden berstunden nur noch eingeschrnkt abgegolten. C 
 T       7 TVDj T     T http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/7-Sonderformen-der-Arbeit.htm T ٛ Bitte beachten auch die Sonderregelungen zu  7 TVD, insb.  43 BT-V hinsichtlich berstunden. Danach richtet sich der Stundensatz hchstens nach Stufe 4.% C  C 	$ T        T        C e T        T        C  T        T        C  T        T        C ( T        T        CC < T     	  10 TV-Vb T     L http://www.pc-gehalt.de/Tarifvertrag/TV-Versorgungsbetriebe/10-Ausgleich.htmz T m Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend gem Anlagen 3a und 3b zum TV-V.% C  C 	 T        T         T       U	  MYZUSCHLGE SATZBERECHNUNG BERSTUNDENLINK CAPTION TAG MSG ZI LABEL25 VALUE' T   a      F C Im NOVEMBER CC  Z  erarbeitete Zuschlge F C Im DEZEMBER CC  Z  erarbeitete Zuschlge   (? C Im CC        erarbeitete Zuschlge   
    < T	  Berechnung von Zuschlgen fr CC 
  %    T
     T
       ( CQ  woerter  T CC  Z+ .Textfeld&ccc..Caption = woerter.textee
  T 	  a) berstunden7 T 	 & b) Mehrarbeit, Rufbereitschaft, Urlaub1 T 	   c) Arbeit in der Rufbereitschaft3 T 	 " d) Zulage fr Wechselschichtarbeit, T 	  e) Zulage fr SchichtarbeitA T 	 0 f) Pausch. f. Rufbereitschaft >= 12 Std. (Mo-FR)A T 	 0 g) Pausch. f. Rufbereitschaft >= 12 Std. (SA,SO)> T 	 C 	   CCC   -Gehalt   Cf woerter  T 	  	    Cg woerter  T 	  	    T 	  Arbeiter
 HXC C 
 C 	 C  C )# T 	  Entgeltgr. 1 bis 9 T 	    T  	   ' T! 	  Entgeltgr. 10 bis 15 " T" 	  von 13 bis 21 Uhr C $ T 	  Entgeltgr. 1 bis 15 T 	    T  	    T! 	   " T" 	  von 13 bis 21 Uhr  # % %C  $ % 
 C  & % 	  T  & %   $ %  % %C  $ % 
 C  ' % 	B T  ' %   $ %  
   $ ( 
   ) ( 
   * ( 
 Hz  	 +  T$ % , $ .BackColor = hex2rgb("&HDDEEDD")
 T- 	  A T. 	  A T/ % 0  T1 % 2  T3 % 0  T4 5   T6 5     (g	 % l .  T CC  Z
 H    T/ % 0    T1 % 2   
 T3 % 0 >    		    
  t< .Prozent&ccc..Value = vorein.vorprozente(1+0,1+ i) / 100
 C < .Prozent&ccc..Value = vorein.vorprozente(1+0,1+ i) / 100
  %  T7     %C 7  <	 .Pfeil&ccc..Caption = "<--"
 c	 .Pfeil&ccc..Caption = "-->"
  5 T8 9 $ steuerfrei ist, was 100 % bersteigt5 T: 9 $ steuerfrei ist, was 100 % bersteigt ;   
 +  T$ % , $ .BackColor = hex2rgb("&H80EEFF")
 T- 	  B T. 	  B T/ % 0  T1 % 2  T3 % 0  T4 5   T6 5     ("
 % 
 .  T CC  Z) .Stunden&ccc..BackColor = QBColor(14)

 H   A T/ % 0   c T1 % 2   
 T3 % 0 >    		    
   T CC  Z< .Prozent&ccc..Value = vorein.vorprozente(1+1,1+ i) / 100
! C  T CC  Z< .Prozent&ccc..Value = vorein.vorprozente(1+1,1+ i) / 100
  %C 7   T CC  Z .Pfeil&ccc..Caption = "<--"
 
 T CC  Z .Pfeil&ccc..Caption = "-->"
  7 T  8 9 $ steuerfrei ist, was 100 % bersteigt7 T  : 9 $ steuerfrei ist, was 100 % bersteigt ;      < 
 T=  T> H T   C   < ?   T      @    T        <  T=  T> H T   C   < ?   A   T  
 H C  T  B   
   C D  C  T  B   
   E D    UF  MYZUSCHLGE VISIBLE COMBO1
 MONATLADEN ADDITEM WELCHESJAHR I SUMONATTEXT WELCHESJAHRC CAPTION ZT0 ZI REGISTER BERECHNUNGAUFRUFEN TRUE FALSE MYGET CCC	 TEXTFELD1
 TEXTFELD18
 TEXTFELD13
 TEXTFELD19
 TEXTFELD20
 TEXTFELD21
 TEXTFELD22	 TEXTFELD0	 TEXTFELD7 WOERTER TEXTEE
 TEXTFELD10
 TEXTFELD24	 TEXTFELD3	 TEXTFELD4	 TEXTFELD5
 TEXTFELD17
 DATENHOLEN	 STUNDEN19 VALUE	 PROZENT20	 PROZENT21 VALID	 STUNDEN20	 STUNDEN21 STUNDENSATZHOLEN JRE5 TEXTFELD22_1 TEXTFELD23_1 PROZENT0 JRE6	 PROZENT16 JRE7	 PROZENT10
 SSCOMMAND6 ENABLED
 SSCOMMAND4 PFEILE PFEIL6 TOOLTIPTEXT PFEIL8 ZUSCHLGENEUBERECHNEN VORGABEKOMMENTAR TOP LEFT ZORDER VORGABEWERTE_A_HOLEN VORGABEWERTE_B_HOLEN	 VORGABEWE STUNDEN9 SETFOCUS PROZENT1B T        T       
 T   
 HF %% C   C 	B5 T      MehrarbeitsvergtungsverordnungD T     . http://www.mehrarbeitsvergtungsverordnung.de/^ T Q Bei Beamten wird nicht zwischen Mehrarbeitsstunden und berstunden unterschieden. CC 	[C C 
 C  C  C 	 T       8 TVDm T     W http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/8-Ausgleich-fuer-Sonderformen.htmY T L Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend. C z T       8 TV-Ll T     V http://www.pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm#TV-L-Allgemeiner-Teil/A8.htmY T L Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend. C 
s T       8 TVDm T     W http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/8-Ausgleich-fuer-Sonderformen.htmY T L Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend.% C  C 	 C  C  C  C  CC   T     	  10 TV-Vb T     L http://www.pc-gehalt.de/Tarifvertrag/TV-Versorgungsbetriebe/10-Ausgleich.htmz T m Es ist das Tabellenentgelt der jeweiligen Entgeltgruppe und Stufe magebend gem Anlagen 3a und 3b zum TV-V.% C  C 	%  T       U	  MYZUSCHLGE SATZBERECHNUNG MEHRARBEITLINK CAPTION TAG MSG ZI LABEL24 VALUE, T                %      v 0 T               d   T       # %C     ddG2
 # T     C       
' T     C       # T          d T   	  C
 d %      0 T               d  T       # %C     ddG2
# T     C       3' T     C       # T          d T   
  C
 d %      0 T               d  T       # %C     ddG2
*# T     C       Y' T     C       # T          d T     C
 dE T     	 Gehalt / CC     
Z  Stunden =  U  MYZUSCHLGE SATZBERECHNUNG PROMONAT VALUE ARBEITSSTUNDEN WOCHEN	 PROSTUNDE
 MONATSGEHALT0 FIX TABELLENWERT GRUNDBETRAG
 MPROSTUNDE
 MONATSGEHALT1
 MTABELLENWERT
 RPROSTUNDE
 MONATSGEHALT2
 RTABELLENWERT LABEL7 CAPTION T  -$ %C  C 
	:  T  a  %  -* %  C V
  T  VC  
 H    V  % T CC  Z 11.ttt   V% T CC  Z 12.ttt   Va T   V# T  CC  Z .ttt   V 
 T C  % 
$ T CC  Z 1.ttt # T  CC  Z .ttt   C 127 , C
 	 \Tarife\t  employee	    C 
  employee      ( T CC  Z: myzuschlge.satzberechnung.EStufe&yyy..Visible = False
: myzuschlge.satzberechnung.MStufe&yyy..Visible = False
: myzuschlge.satzberechnung.AStufe&yyy..Visible = False
: myzuschlge.satzberechnung.RStufe&yyy..Visible = False
7 myzuschlge.satzberechnung.EStufe&yyy..Caption = ""
7 myzuschlge.satzberechnung.MStufe&yyy..Caption = ""
7 myzuschlge.satzberechnung.RStufe&yyy..Caption = ""
    ( T CC  Z %C   ^ myzuschlge.satzberechnung.EStufe&yyy..caption = ALLTRIM(STR(grundbetrag(1+i) / 100,10,2))
9 myzuschlge.satzberechnung.EStufe&yyy..Visible = True
F myzuschlge.satzberechnung.AStufe&yyy..Caption = Alltrim(zt7(1+i))
9 myzuschlge.satzberechnung.AStufe&yyy..Visible = True
^ myzuschlge.satzberechnung.RStufe&yyy..Caption = ALLTRIM(STR(grundbetrag(1+i) / 100,10,2))
9 myzuschlge.satzberechnung.RStufe&yyy..Visible = True
^ myzuschlge.satzberechnung.MStufe&yyy..Caption = ALLTRIM(STR(grundbetrag(1+i) / 100,10,2))
9 myzuschlge.satzberechnung.MStufe&yyy..Visible = True
         %   T     %a
 H% C   C 	3 T    CC  d     T CCC 
 ZA myzuschlge.satzberechnung.EStufe&ccc..BackColor = QBColor(6)
 CC 	`3 T    CC  d     T CCC 
 ZA myzuschlge.satzberechnung.EStufe&ccc..BackColor = QBColor(6)
4 C 
 C  C 	+ T    C d     T    C  C <

 H8
4 C   C 	 C t	+ T    C d     T    C  C 	+ T    C d     T    C % C  C 	8
+ T    C d     T    C   CC 
+ T    C d     T    C % C  C 	+ T    C d     T    C % C  C  	3 T    CC  d     T CCC 
 ZA myzuschlge.satzberechnung.EStufe&ccc..BackColor = QBColor(6)
% C ! C #	(+ T    C d      T      C  CC $%+ T    C d     T    C  
 H% C   C 	K
3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
 CC 	
3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
C C 
 C  C  C 	{+ T  !  C d  "   T  #  C  C 4
 H04 C   C 	 C  %C ++ T  !  C d  "   T  $  C  3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
 % C  C 	0+ T  !  C d  "   T  %  C   C 
x
 HVt% C   C 	
3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
% C  C 	t+ T  !  C d  "   T  %  C   CC + T  !  C d     T  &  C % C  C  	3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
% C ! C #	>3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
% C $ C %	3 T  !  CC  d  "   T CCC 
 ZA myzuschlge.satzberechnung.MStufe&ccc..BackColor = QBColor(6)
 3 T  '  CC  d  (   T CCC 
 ZA myzuschlge.satzberechnung.RStufe&ccc..BackColor = QBColor(6)
 &3 T    CC)  d    3 T  !  CC)  d  "  3 T  '  CC)  d  (    $ %C  C 
	   (
 T CC  Z: myzuschlge.satzberechnung.EStufe&yyy..Visible = False
: myzuschlge.satzberechnung.MStufe&yyy..Visible = False
: myzuschlge.satzberechnung.AStufe&yyy..Visible = False
: myzuschlge.satzberechnung.RStufe&yyy..Visible = False
7 myzuschlge.satzberechnung.EStufe&yyy..Caption = ""
7 myzuschlge.satzberechnung.MStufe&yyy..Caption = ""
7 myzuschlge.satzberechnung.RStufe&yyy..Caption = ""
   %   h! T  *  C+   T  ,  1Zd@  T  *  -   T  ,  .   /  %0 1  2   U3  LEERETABELLE ZI ZUSCHLAG BENUTZT MSG WELCHESJAHR I WELCHESJAHRC MYCLOSE MYOPEN EIGDAT GRUNDBETRAGHOLEN MYGET
 MYPOSITION	 GETVALUES YYY GRUNDBETRAG BERSTUNDENLABEL25 MEHRARBEITLABEL24 ZEITZUSCHLGEHINWEIS WNW	 ZSBENUTZT MYZUSCHLGE SATZBERECHNUNG
 MONATSGEHALT0 VALUE SATZ0 CCC ESTUFE2	 BACKCOLOR QBCOLOR ESTUFE0 ESTUFE
 MONATSGEHALT1 SATZ1 MSTUFE2 MSTUFE3 MSTUFE1 MSTUFE0
 MONATSGEHALT2 SATZ2 DZSSTUFE ARBEITSSTUNDEN WERT WOCHEN DZSWOSTD
 DZSWOMONAT STUNDENSATZBERECHNEN	 STARTFLAG TRUE AUSWNW
   $ .BackColor = hex2rgb("&H80C0FF")
 T   A T   A T    T  	  T
   | T n   Sie knnen die Werte in den gelben Feldern allgemeingltig als Werte des Assistenten A ndern und speichern. T  	 Speichernb T 
 Q   Speichert die Werte in den gelben Feldern als Vorgabewerte des Assistenten A.   T    T    T     (	 %  .  T CC  Z! .Stunden&yyy..Enabled = False
  .Prozent&yyy..Enabled = true
) .Stunden&yyy..BackColor = QBColor(15)
) .Prozent&yyy..BackColor = QBColor(14)
' .Pfeil&yyy..BackColor = QBColor(6) 

 H3    	  
  0< .Prozent&yyy..Value = vorein.vorprozente(1+0,1+ i) / 100
3        	< .Prozent&yyy..Value = vorein.vorprozente(1+0,1+ i) / 100
  %C  	  .Pfeil&yyy..Caption = "<--"
  .Pfeil&yyy..Caption = "-->"
   T    T    T    T  C  T  C  T  C   U  MYZUSCHLGE TEXTFELD22_1 CAPTION TEXTFELD23_1 PROZENT0 VALUE JRE5
 SSCOMMAND6 ENABLED TRUE
 SSCOMMAND4 FALSE
 SSCOMMAND1 TOOLTIPTEXT	 STUNDEN19 STUNDEN0 I YYY PFEILE	 PROZENT10	 PROZENT16	 BACKCOLOR QBCOLOR
   $ .BackColor = hex2rgb("&H80FFFF")
 T   B T   B T    T  	  T
   | T n   Sie knnen die Werte in den gelben Feldern allgemeingltig als Werte des Assistenten B ndern und speichern. T    	 Speichernd T   
 Q   Speichert die Werte in den gelben Feldern als Vorgabewerte des Assistenten B.   T    T    T     (
 %  .  T CC  Z! .Stunden&yyy..Enabled = False
  .Prozent&yyy..Enabled = true
) .Stunden&yyy..BackColor = QBColor(15)
) .Prozent&yyy..BackColor = QBColor(14)
' .Pfeil&yyy..BackColor = QBColor(14)

 H3    	  
  4< .Prozent&yyy..Value = vorein.vorprozente(1+1,1+ i) / 100
3        	< .Prozent&yyy..Value = vorein.vorprozente(1+1,1+ i) / 100
  %C  	  .Pfeil&yyy..Caption = "<--"
 	 .Pfeil&yyy..Caption = "-->"
   T    T    T    T  C  T  C  T  C   U  MYZUSCHLGE TEXTFELD22_1 CAPTION TEXTFELD23_1 PROZENT0 VALUE JRE5
 SSCOMMAND6 ENABLED TRUE
 SSCOMMAND4 FALSE
 SSCOMMAND1 TOOLTIPTEXT	 STUNDEN19 STUNDEN0 I YYY PFEILE	 PROZENT10	 PROZENT16	 BACKCOLOR QBCOLOR T        T       
 T   
 HF % C   C 	e6 T        4 ErschwerniszulagenverordnungK T     5 http://www.gesetze-im-internet.de/ezulv_1976/__4.htmly T l Fr Beamte sind die Zeitzuschlge betragsmig in der Erschwerniszulagenverordnung zu  47 BBesG festgelegt.C C 
 C  C  C 	 T       8 TVDm T     W http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/8-Ausgleich-fuer-Sonderformen.htm T ٔ Die Zeitzuschlge betragen je Stunde ..... % des auf eine Stunde entfallenden Anteils des Tabellenentgelts der Stufe 3 der jeweiligen Entgeltgruppe. C  T       8 TV-Lm T     W hhttp://www.pc-gehalt.de/TV-L/!SSL!/WebHelp/TV-L-Titel.htm#TV-L-Allgemeiner-Teil/A8.htmj T ] Fr Zeitzuschlge ist das Tabellenentgelt der Stufe 3 der jeweiligen Entgeltgruppe magebend. C 
 T       8 TVDm T     W http://www.pc-gehalt.de/Tarifvertrag/TVoeD/TVoeD-Text/8-Ausgleich-fuer-Sonderformen.htm T ٔ Die Zeitzuschlge betragen je Stunde ..... % des auf eine Stunde entfallenden Anteils des Tabellenentgelts der Stufe 3 der jeweiligen Entgeltgruppe.% C  C 	D C Y C n C  C  CC  T     	  10 TV-Vb T     L http://www.pc-gehalt.de/Tarifvertrag/TV-Versorgungsbetriebe/10-Ausgleich.htm T ٔ Die Zeitzuschlge betragen je Stunde ..... % des auf eine Stunde entfallenden Anteils des Tabellenentgelts der Stufe 1 der jeweiligen Entgeltgruppe.  T       U	  MYZUSCHLGE SATZBERECHNUNG ZEITZUSCHLAGLINK CAPTION TAG MSG ZI HINWEIS VALUEG 4  
 T      (  T CC  ZH myzuschlge.satzberechnung.EStufe&xxx..BackColor = rgb(240,240,240) 
  T    T CC   ZA myzuschlge.satzberechnung.EStufe&xxx..BackColor = QBColor(6)
/ T      	  C 
 d %  @ 
   U  MYINDEX J I XXX DZSSTUFE MYZUSCHLGE SATZBERECHNUNG
 MONATSGEHALT0 VALUE SATZ0 GRUNDBETRAG	 STARTFLAG FALSE STUNDENSATZBERECHNENq
 H
     U 7 C   \ZuschlgeAC R\ zuschlag     7 C   \ZuschlgeBC R\ zuschlag   C\   zuschlag  %C 	 d Z T
 C  d T C! d T
 C" d T    
  T      T    
  [ T     T     T    
 HWD C   C 		 C  C %	f T
 C d
 T 
 
 T
 
  T     T     T    % C 
 C 	?- T
 C C 1Zd@  %C
 

G T
 C 
    T
 C 
    T
 
 d5 T CC  C 1Zd@  %C 

G| T C     T C     T  d5 T
 CC  C 1Zd@  %C
 

G T
 C 
   * T
 C 
    T
 
 d C 5 T
 CC  1Zd@C   %C
 

G T
 C 
    T
 C 
    T
 
 d C 

 T
  % C ! C #	W1 T
 CC C 1Zd@   %C
 
G T
 C
 
   T
 C
 
  ( %        
  T   ) Berechnungsbasis ist ein Stundensatz von CC
 d
Z  EURO ( CCC d
Z	  EURO / (CCC '
Z  Std. *  4,348 Wochen) ) T   C  S T
     T   C
  T   l Der Stundensatz wurde nicht aus dem aktuellen Monatstabellenlohn berechnet sondern wurde manuell eingegeben.    C 92  U  REGISTER MYOPEN EIGDAT MUSER WELCHESJAHRC MYGET FILENEU FIX ZUSCHLAG BENUTZT JRE5 EFFZAHL JRE6 JRE7 MYZUSCHLGE SATZBERECHNUNG INDIVIDUELL VALUE MINDIVIDUELL RINDIVIDUELL MOPT ZOPT ROPT ZI GRUNDBETRAG WERT	 STUNDEN19 TOOLTIPTEXT	 BACKCOLOR QBCOLOR MYCLOSEG 4  
 T      (  T CC  ZH myzuschlge.satzberechnung.MStufe&xxx..BackColor = rgb(240,240,240) 
  T    T CC   ZA myzuschlge.satzberechnung.MStufe&xxx..BackColor = QBColor(6)
/ T      	  C 
 d %  @ 
   U  MYINDEX J I XXX DZSSTUFE MYZUSCHLGE SATZBERECHNUNG
 MONATSGEHALT1 VALUE SATZ1 GRUNDBETRAG	 STARTFLAG FALSE STUNDENSATZBERECHNENQ 4   T CC   Z % 3  B  % U 
 T    % w 
 T  1 If myzuschlge.Pfeil&yyy..Caption = "<--" * myzuschlge.Pfeil&yyy..Caption = "-->"
! T      J* myzuschlge.Pfeil&yyy..Caption = "<--"
! T       U  MYINDEX YYY REGISTER J PFEILE FALSE TRUEL$ T    T    T    %   t 
 T    %    
 T     ( %   .  T CC  Z T    
 H+I     
        	v  %C    ] sicht(1+0,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
! %CC   dG114 T   CC   d  i0 T   CC   d  Q myzuschlge.Zeile16&yyy..Value = myformat(sicht(1+0,1+ i) / 100, "##,##0.00")
 T    = myzuschlge.Zeile17&yyy..Value = myformat(0, "##,##0.00")
 *] sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
S myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 10000, "##,##0.00")
 T    = myzuschlge.Zeile16&yyy..Value = myformat(0, "##,##0.00")
 H myzuschlge.Zeile15&yyy..Value = myformat(sicht(1+2,1+ i), "##0.00")
>    		    
  g  %C    < sicht(1+0,1+ i) = myzuschlge.Prozent&yyy..Value * jre5 
) %CCC   
 
Gi0 T   CC     , T   CC     F sicht(1+0,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+0,1+ i)
 %    T    L sicht(1+0,1+ i) = myzuschlge.Stunden&yyy..Value * 100 * sicht(1+0,1+ i)
 % 
A sicht(1+1,1+ i) = (myzuschlge.Prozent&yyy..Value - 100) * 25
) %CCC   
 
G
, T   CC     K0 T   CC     F sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+1,1+ i)
) %CCC   
 
G
, T   CC     "0 T   CC     Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
J sicht(1+2,1+ i) = (myzuschlge.Prozent&yyy..Value - 100) * (jre5 - 25)
) %CCC   
 
G
	, T   CC     N	0 T   CC     F sicht(1+2,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+2,1+ i)
) %CCC   
 
G
	, T   CC     %
0 T   CC      T	 CC  ZQ myzuschlge.Zeile15&xxx..value = myformat(sicht(1+2,1+ i) / 100, "##,##0.00")
 D sicht(1+1,1+ i) = (myzuschlge.Prozent&yyy..Value - 100) * jre5 
) %CCC   
 
G
2, T   CC     j0 T   CC     F sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+1,1+ i)
) %CCC   
 
G
	, T   CC     A0 T   CC     Q myzuschlge.Zeile16&yyy..value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
Q myzuschlge.Zeile17&yyy..value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
  ) %CCC   
 
G
D
, T   CC     |
0 T   CC     Q myzuschlge.Zeile16&yyy..Value = myformat(sicht(1+0,1+ i) / 100, "##,##0.00")
 %   g %C    c T    = myzuschlge.Zeile17&yyy..Value = myformat(0, "##,##0.00")
   T    = myzuschlge.Zeile17&yyy..Value = myformat(0, "##,##0.00")
 N myzuschlge.Zeile15&yyy..Value = myformat(sicht(1+2,1+ i) / 100, "##0.00")
 c % 9 sicht(1+1,1+ i) = myzuschlge.Prozent&yyy..Value * 25
) %CCC   
 
G
, T   CC     0 T   CC     F sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+1,1+ i)
) %CCC   
 
G
, T   CC     0 T   CC     Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
 %   B  T    = myzuschlge.Zeile16&yyy..Value = myformat(0, "##,##0.00")
 B sicht(1+2,1+ i) = myzuschlge.Prozent&yyy..Value * (jre5 - 25)
) %CCC   
 
G
?, T   CC     w0 T   CC     F sicht(1+2,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+2,1+ i)
) %CCC   
 
G
, T   CC     N0 T   CC     Q myzuschlge.Zeile15&yyy..value = myformat(sicht(1+2,1+ i) / 100, "##,##0.00")
 _< sicht(1+1,1+ i) = myzuschlge.Prozent&yyy..Value * jre5 
) %CCC   
 
G
<, T   CC     t0 T   CC     F sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * sicht(1+1,1+ i)
) %CCC   
 
G
, T   CC     K0 T   CC     Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
 %    [ T    = myzuschlge.Zeile16&yyy..Value = myformat(0, "##,##0.00")
= myzuschlge.Zeile15&yyy..Value = myformat(0, "##,##0.00")
       %C    1] sicht(1+0,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
! %CC   dG1J4 T   CC   d  0 T   CC   d  Q myzuschlge.Zeile16&yyy..Value = myformat(sicht(1+0,1+ i) / 100, "##,##0.00")
 T    = myzuschlge.Zeile17&yyy..Value = myformat(0, "##,##0.00")
 z] sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
 % $ T  
C
  d Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
 T    = myzuschlge.Zeile16&yyy..Value = myformat(0, "##,##0.00")
 H myzuschlge.Zeile15&yyy..Value = myformat(sicht(1+2,1+ i), "##0.00")
  +  %C    ] sicht(1+0,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
! %CC   dG14 T   CC   d  0 T   CC   d  Q myzuschlge.Zeile16&yyy..Value = myformat(sicht(1+0,1+ i) / 100, "##,##0.00")
 T    = myzuschlge.Zeile17&yyy..Value = myformat(0, "##,##0.00")
 ] sicht(1+1,1+ i) = myzuschlge.Stunden&yyy..Value * myzuschlge.Prozent&yyy..Value * 10000
 % *$ T  
C
  d Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
 T    = myzuschlge.Zeile16&yyy..Value = myformat(0, "##,##0.00")
 N myzuschlge.Zeile15&yyy..Value = myformat(sicht(1+2,1+ i), "##0.00")						
  %C
 
'7 T   C   C   Q myzuschlge.Zeile17&yyy..Value = myformat(sicht(1+1,1+ i) / 100, "##,##0.00")
 T    > myzuschlge.Zeile15&yyy..Value = myformat(0, "##,##0.00") 
 / T  C  C   / T  C  C   / T  C  C    ( T  CC   d( T  CC   d( T  CC   d( T  CC   d( T  CC   d( T  CC   d) T  
 CC   ####0.00 ) T  
 CC   ####0.00 ) T  
 CC   ####0.00 
 T  
 T  
 T     (t# % z  .  T CC  ZA m1619 = m1619 + VAL(ALLTRIM(myzuschlge.zeile16&hsax..value))
A m1719 = m1719 + VAL(ALLTRIM(myzuschlge.zeile17&hsax..value))
C m1519 = m1519 + VAL(ALLTRIM(myzuschlge.zeile15&hsax..value))		
2 %C     C    !, myzuschlge.Stunden&yyy..FontBold = True
 !- myzuschlge.Stunden&yyy..FontBold = False
  %C    :"- myzuschlge.Zeile16&yyy..FontBold = False
 n", myzuschlge.Zeile16&yyy..FontBold = True
  %C    "- myzuschlge.Zeile17&yyy..FontBold = False
 ", myzuschlge.Zeile17&yyy..FontBold = True
  %C    <#- myzuschlge.Zeile15&yyy..FontBold = False
 p#, myzuschlge.Zeile15&yyy..FontBold = True
  h T   7 2. Zeitzuschlge auf der Basis eines Stundensatzes von CC  
 
Z  Euro:# T  
 C   ####0.00 # T  
 C   ####0.00 # T  
 C   ####0.00  U  SICHT REGISTER J I YYY PFEILE TRUE FIX JRE5 XXX ZI MYZUSCHLGE	 ZEILE1519 VALUE MYFORMAT	 ZEILE1619	 ZEILE1719 M1619 M1719 M1519 HSAX SSFRAME1 CAPTION	 STUNDEN19G 4  
 T      (  T CC  ZH myzuschlge.satzberechnung.RStufe&xxx..BackColor = rgb(240,240,240) 
  T    T CC   ZA myzuschlge.satzberechnung.RStufe&xxx..BackColor = QBColor(6)
/ T      	  C 
 d %  @ 
   U  MYINDEX J I XXX DZSSTUFE MYZUSCHLGE SATZBERECHNUNG
 MONATSGEHALT2 VALUE SATZ2 GRUNDBETRAG	 STARTFLAG FALSE STUNDENSATZBERECHNEN %   
 T    %  @ 
 T  
  # T V      (  T CC  ZF .Dstunden(1+zi(1+20),1+ i) = myzuschlge.Stunden&xxx..Value * 1000
  T	   
  d T	 !   d T	 " 
  d %C 
  C (   (Q %  .  %C %  %C    ! T CC  Z8 .Dstunden(1+k,1+ i) = myzuschlge.Stunden&xxx..Value
  s  %C    o" T       %C   %C     T CC  Z8 .Dstunden(1+k,1+ i) = myzuschlge.Stunden&xxx..Value
  M  %C    I" T        %C $ T   
    T     %C $ T   
    T       
 H4   |7 C   \ZuschlgeAC R\ zuschlag    7 C   \ZuschlgeBC R\ zuschlag   C\   zuschlag  C 92  U  REGISTER J ZUSCHLAG BENUTZT MYZUSCHLGE COMBO1	 LISTINDEX I XXX EFFZAHL	 STUNDEN19 VALUE PROZENT0	 PROZENT16 ZI K PFEILE TRUE DSTUNDEN FALSE MYOPEN EIGDAT MUSER WELCHESJAHRC MYPUT FILENEU MYCLOSE{ C 92  
 H  C  
 T  7 C   \ZuschlgeAC R\ zuschlag  %C   T 	 0  C 
 T 7 C   \ZuschlgeBC R\ zuschlag   C\   zuschlag
  %C 
 S  
   %C  d , %  V
   V T   C   T     V   T   C   %C  d ]
     ( T CC  ZH myzuschlge.Stunden&yyy..Value = .Dstunden(1+zi(1+20),1+ iii) / 1000
/ If myzuschlge.Stunden&yyy..Value > 300 & myzuschlge.Stunden&yyy..Value = 0
    T   C! d T   C" d T   C! d e  C 92   U  MYCLOSE REGISTER J MYOPEN EIGDAT MUSER WELCHESJAHRC ZI VOREIN VORPROZENTE MYGET FILENEU ZUSCHLAG DSTUNDEN FIX BENUTZT MYZUSCHLGE COMBO1	 LISTINDEX III YYY PROZENT0 VALUE EFFZAHL	 PROZENT16	 PROZENT10X 4   %C|
  B  T     %  @
  & T    T    T    T    T	   y T 
 h Der Stundensatz wurde manuell eingegeben und wurde nicht aus dem aktuellen Monatstabellenlohn berechnet.  T       
 
    U  MYINDEX JRE5 MYZUSCHLGE	 STUNDEN19 VALUE PROZENT0 JRE6	 PROZENT20	 PROZENT21	 PROZENT16 TOOLTIPTEXT SATZBERECHNUNG INDIVIDUELL ZUSCHLGENEUBERECHNEN REFRESH  4   %  
   %    %   
    T   y T  h Der Stundensatz wurde manuell eingegeben und wurde nicht aus dem aktuellen Monatstabellenlohn berechnet.      U	  MYINDEX
 VOMRECHNER TRUE MYZUSCHLGE JRE5	 STUNDEN19 VALUE TOOLTIPTEXT ZUSCHLGENEUBERECHNEN! 4  
 T     taschenrechner(    %C 
  T C    T CC  Z, myzuschlge.stunden&xxx..value = retwert
  T C  0. 
 T  
 T	  
 T
  
 T   T
  NONE T   
 T  
 T   U  MYINDEX4 MYINDEX TASCHENRECHNER RETWERT RCV XXX READOUT MYFORMAT OP1 OP2 DECIMALFLAG FALSE NUMOPS	 LASTINPUT OPFLAG
 VOMRECHNER TRUE
 T_GECLICKT auswnw,      berstundenlabel25g     neuanzeigenj
     Mehrarbeitlabel24     stundensatzberechnen&     stundensatzkalkulieren*     vorgabewerte_A_holenD     vorgabewerte_B_holenEJ     zeitzuschlgehinweisO     EStufe_ClickV     StundensatzholenX     MStufe_Clickfa     Pfeil_Click>c     zuschlgeneuberechnend     RStufe_Clickɉ     datenspeichern    
 Datenholenw     Stunden_Change֕    
 Stunden_Clickۗ     Knopf_Click.     1  qA A BAA"!!vA A vA qA  3 aa  Qa
1
QAQ
QaaQaaQaaQaaQaa!QaaA a3  q aarA A   A qqA q1 11q!QA!A r RB QB     r A!!rA A q A A  A A RQs q A!!rA A q qqA q qA A sqr    1A 1q 1   1A q A   Q2 Q2 A B 3 aa  QQA1QQQQQQQ!QA a3  aA 11 qA 1 aA 11 qA 2 aA 11 qA 2Q3  A A  A  QQQ1QA 1A A r q qqqqqA qqbA A s q q CA   Q11AQ AQQA QQ1QA  Q111Q AQ 1A QA Q Q1QA Q1Q1Q1A 2 111A A BqqqqqA A B A r q A 3  A!!!rA A qq 11A  A A QQQA 3  A!!AsA A qq 11B  A A QQQB 3 aa  Qa2
QQ
QQQQQ!
A a1 q  qqA 1qq A  1  qqA QQQaaa aaa AQ  aaaTa !A Qa !A Qa !A RQa !A R Sa QA 1q 1qA B A  1 q  qqA 1qq A 9 q qA A  A  A  A >  A  A rA A q A A  5B  A a A b A  A b A q A A b A B A  A A  A   A b A  A % A b A   A b A  A B A A A  AA B A A  AA B A RrA C     rA A q1! A  A  A  A A 111P1 q  qqA 1qq A 1  A  A  qqaA RqA A QqA  !A A RqA  !A A A QA A QA A A A A  qqA  3   Q qRA R qA aA  A  A  qqaA B A  C  0$1 q A A 2 QQA bB r  4 q C  A A r A 	1 q  0!qA b       0
1                      E     $   p  %  B   Q   I  0  q      1  9  K    9  C  o  E  C  Nl      {l  r  r  *  r  $y    U  Qy      v      6    J  ԗ  d    !    #    y    :        ^      u  *  
  R      J  =      u  A E f	    OE <G 	    jU <[ 4
  0&   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5T00VSIIK1357018688 1 53           1.000    0.000    0.000116900.00                 F C           -1   -1   -1   -1   -1   -1               
     0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5T00VSIIL           9  1                          15938.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T00VSIIM           9  4                           1875.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T00VSIIN           9  7                           3646.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T00VT7YT1357018704 8  0        3125.00077395.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1               
     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5T00VT7YU1357018704 8  0        1041.667 6250.000 1666.66717395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5T00VT7YV1357018704 8  0        3125.000 6250.000 1666.66717395.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5T00VT7YW1357018704 8  0        3125.00083958.333 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5T00VWTDU1357018809 8  0        6145.833 6250.000 2500.000102708.33                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5T00VXRD51357018830 8  0        8958.333 6250.000 2604.167102708.33                   C           -1   -1   -1   -1   -1   -1                    0 14  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5T00VYXLT1357018845 6           11875.000 5937.500  104.167104895.83                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5T00W279O1357018929 5  0       12187.50054583.333 1666.667 5000.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T00W2DG01357018933 5  0       12187.50068333.333 1666.667 2812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T00W2I3J1357018941 5  0       12187.50079062.500 3333.333 7916.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T00W2VJ91357018954 5  0        12187.50090625.000 3333.333 8750.000                               -1   -1   -1   -1   -1   -1               !     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T00W3DPR1357018967 5  0    "   12187.500102916.67 3333.333 6458.333                               -1   -1   -1   -1   -1   -1               #     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T00W3ZVO1357018972 6           15625.000 5937.500  104.167104895.83                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5T00WLABD1357019531 8  0    $   18020.833 6145.833 1875.00040625.000                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F&        WINDOWS _5T00WLDBT1357019533 8  0    (   18020.83350833.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F*        WINDOWS _5T00WLFP61357019534 8  0    ,   18020.83362395.833 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               -     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F.        WINDOWS _5T00WLIBT1357019536 8  0    0   18020.83371562.500 1875.000 3229.167                   C           -1   -1   -1   -1   -1   -1               1     0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F2        WINDOWS _5T00WLKS11357019538 8  0    4   18020.83377500.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               5     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F6        WINDOWS _5T00WLN5T1357019539 8  0    8   18020.83390625.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               9     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F:        WINDOWS _5T00WLP9I1357019541 8  0    <   18020.833100625.00 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               =     0 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0F>        WINDOWS _5T00WORBM1357019618 8  0    @   18020.833 6145.833 1875.00040625.000                   C           -1   -1   -1   -1   -1   -1               A     1 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0FB        WINDOWS _5T00WORBN1357019618 8  0    D   18020.83350833.333 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               E     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0FF        WINDOWS _5T00WORBO1357019618 8  0    H   18020.83362395.833 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               I     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0FJ        WINDOWS _5T00WORBP1357019618 8  0    L   18020.83371562.500 1875.000 3229.167                   C           -1   -1   -1   -1   -1   -1               M     1 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0FN        WINDOWS _5T00WORBQ1357019618 8  0    P   18020.83377500.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               Q     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0FR        WINDOWS _5T00WORBR1357019618 8  0    T   18020.83390625.000 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               U     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0FV        WINDOWS _5T00WORBS1357019618 8  0    X   18020.833100625.00 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               Y     1 10  1 0     FFFTF  F          0T         1       0 1  0FTF3 0FZ        WINDOWS _5T00WZWNK1357019894 6           18958.333 5937.500  104.167104895.83                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F\        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   ]     0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   ^     0  8                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                   _     1 14                                                     F               WINDOWS                     23              23.000    8.000   18.000   51.000                                4    1                                   `     0 14                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   a     1 10                                                     F               WINDOWS                     25   b   c                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         	"Stunden"                                                     Arial                                                         "Satz"                                                        Arial                                                         "Steuer- und
SV-pflichtig"                                    Arial                                                         "b e f r e i t
von Abgaben"                                   Arial                                                         "Soz.-vers.-
pflichtig"                                       Arial                                                         ZUSCHLGE.sp_text                                             Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp1                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp2                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp3                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp4                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp5                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp6                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_text                                             Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp1                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp2                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp3                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp4                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp5                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp6                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             %alltrim(zuschlge.sp_text) = "strich"                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         	"Stunden"                                                     Arial                                                         "Satz"                                                        Arial                                                         "Steuer- und
SV-pflichtig"                                    Arial                                                         "b e f r e i t
von Abgaben"                                   Arial                                                         "Soz.-vers.-
pflichtig"                                       Arial                                                         ZUSCHLGE.sp_text                                             Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp1                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp2                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp3                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp4                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp5                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp6                                              Arial                                                         Azuschlge.fett = .f. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_text                                             Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp1                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp2                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp3                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp4                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp5                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             ZUSCHLGE.sp_sp6                                              Arial                                                         Azuschlge.fett = .t. .and. alltrim(zuschlge.sp_text) <> "strich"                                                             %alltrim(zuschlge.sp_text) = "strich"                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SK0UY4NQ1355838283 1 53           1.000    0.000    0.000116900.00                 F                                                            0 10   21F 3 3   TF              T    F T               1T               WINDOWS _5SK0UY4NR           9  1                          78334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SK0UY4NS           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SK0UY4NT           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SK0UYVXY135583832317  0        4270.833 2500.00063437.500112291.67                                                                                     1       FFFTF  F       1   F         2             FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                     @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   alltrim(screenshot.feld1)                                     Courier New                                                   dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   alltrim(screenshot.feld1)                                     Courier New                                                   dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _4DY19MIQO1188997671 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               1T               WINDOWS _4DY19MIQP           9  1                          95938.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4DY19MIQQ           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4DY19MIQR           9  7                           5000.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _4DY19SRDX1188997832 8  0        2083.333 3229.167 1875.00055104.167                   C           -1   -1   -1   -1   -1   -1                    3 16  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _4DY19T4XF1188997836 8  0        4270.833 3229.167 1875.00055208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _4DY19TLCT1188997846 6            6770.833 2395.833  104.16773750.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _4DY19TNOF1188997848 8  0        7500.000 3229.16786770.83355625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _4DY19UMKJ1188997874 8  0        1979.16760729.167 1875.000 9166.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              23.000   13.000   17.000   20.000                                6    0                                   
     3 16                                                     F               WINDOWS                     25      
                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAP      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     dataenvironment                                               Courier New                                                   Courier New                                                   mrechenweg1                                                   Courier New                                                   mrechenweg2                                                   Courier New                                                   mrechenweg3                                                   Courier New                                                   date()                                                        Courier New                                                   Courier New                                             0F   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5T40N2UWK1357272515 1 53           1.000    0.000    0.00082666.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0 10  121F 3 3FTFTF00F 0FFF  0  2TFFFFFFT  0  0  0 0 1  0TTT0 0F         WINDOWS _5T40N2UWL           9  1                          69375.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40N2UWM           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40N2UWN           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40OB2B31357273754 8  0       38645.833 6041.667 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5T40PJHWF1357274849 8  0       46041.667 6041.667 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5T40NBVAU1357272739 8  0       10833.333 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NBVAV1357272739 8  0       13958.333 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NBVAW1357272739 8  0       15937.500 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NDE3D1357272777 5  0        8541.66743541.667 1666.667 9375.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F        WINDOWS _5T40NEI521357272820 8  0       10833.33343750.000 6875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5T40NHDFY1357272877 5  0    !   24895.833 4062.500 2083.33342604.167                               -1   -1   -1   -1   -1   -1               "     1 12  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5T40NJAVG1357272923 5  0    #   28541.667 4062.500 1666.66739270.833                               -1   -1   -1   -1   -1   -1               %     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T40NKWGJ1357273094 8  0    &   28437.50067812.500 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NLIPR1357273107 5  0    (   31979.167 4062.500 2083.33310520.833                               -1   -1   -1   -1   -1   -1               )     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T40NMH7P1357273131 5  0    *   34375.000 3958.333 1666.66730625.000                               -1   -1   -1   -1   -1   -1               +     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5T40NMOVQ1357273135 8  0    ,   34166.66767812.500 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               -     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NNULO1357273166 5  0    .   36770.833 3958.333 1666.66733958.333                               -1   -1   -1   -1   -1   -1               /     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5T40NO7TW1357273177 5  0    0   36562.50057291.667 1875.000 8958.333                               -1   -1   -1   -1   -1   -1               1     1 12  1       FFFTF  F          0T                      0FTT0 0F2        WINDOWS _5T40O9WFY1357273714 5  0    3   38645.833 6145.833 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTT0 0F5        WINDOWS _5T40OBN8O1357273756 8  0    6   38645.83316354.167 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               7     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F8        WINDOWS _5T40OCY8E1357273788 8  0    9   38645.83325729.167 1875.00028541.667                   C           -1   -1   -1   -1   -1   -1               :     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F;        WINDOWS _5T40OETFA1357273838 8  0    <   38645.83355104.167 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               =     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F>        WINDOWS _5T40OF3MB1357273842 8  0    ?   38645.83359270.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               @     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0FA        WINDOWS _5T40OFDDQ1357273848 8  0    B   38645.83363541.667 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               C     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0FD        WINDOWS _5T40OIZNQ1357273946 8  0    E   38645.83315104.167 1875.000 1041.667                   C           -1   -1   -1   -1   -1   -1               F     0 12  1 0     FTFTF  F          2T         0       0 1  0FTT0 0FG        WINDOWS _5T40P8R7Y1357274580 6           40937.50054583.333  104.16713437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  T                     1             FTT0 0FH        WINDOWS _5T40P91YH1357274587 8  0    I   41354.16755104.167 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               J     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FK        WINDOWS _5T40P91YI1357274587 8  0    L   41354.16759270.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               M     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FN        WINDOWS _5T40P91YJ1357274587 8  0    O   41354.16763541.667 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               P     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FQ        WINDOWS _5T40PGH0V1357274772 8  0    R   41354.16767812.500 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               S     0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0FT        WINDOWS _5T40PIX0Y1357274834 5  0    U   44166.667 3958.333 1666.66741458.333                               -1   -1   -1   -1   -1   -1               W     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40PJHWD1357274849 5  0    X   43958.33357291.667 1875.000 8958.333                               -1   -1   -1   -1   -1   -1               Y     1 12  1       TFFFF  F          0T                      0FTT0 0FZ        WINDOWS _5T40PJHWE1357274849 5  0    [   46041.667 6145.833 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               \     0 10  1       TFFFF  F          0T                      0FTT0 0F]        WINDOWS _5T40PJHWG1357274849 8  0    ^   46041.66716354.167 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F`        WINDOWS _5T40PJHWH1357274849 8  0    a   46041.66725729.167 1875.00028541.667                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0Fc        WINDOWS _5T40PJHWI1357274849 8  0    d   46041.66755104.167 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               e     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Ff        WINDOWS _5T40PJHWJ1357274849 8  0    g   46041.66759270.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               h     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fi        WINDOWS _5T40PJHWK1357274849 8  0    j   46041.66763541.667 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               k     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fl        WINDOWS _5T40PJHWL1357274849 8  0    m   46041.66715104.167 1875.000 1041.667                   C           -1   -1   -1   -1   -1   -1               n     0 12  1 0     TTFFF  F          2T         0       0 1  0FTT0 0Fo        WINDOWS _5T40PJHWM1357274849 6           48333.33354583.333  104.16713437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  T                     1             FTT0 0Fp        WINDOWS _5T40PJHWN1357274849 8  0    q   48750.00055104.167 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fs        WINDOWS _5T40PJHWO1357274849 8  0    t   48750.00059270.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               u     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fv        WINDOWS _5T40PJHWP1357274849 8  0    w   48750.00063541.667 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fy        WINDOWS _5T40PJHWQ1357274849 8  0    z   48750.00067812.500 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1               {     0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F|        WINDOWS _5T40PZWJN1357275384 5  0    }   51458.333 4270.833 1666.66745937.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40Q0IK71357275400 5  0       53333.333 5833.333 1666.66725729.167                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40Q4YJN1357275517 8  0       55520.833 5625.000 1875.00044270.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40QGNYR1357275800 8  0       55520.83367812.500 1875.000 7187.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40QYQVX1357276251 5  0       58541.667 3958.333 1666.66719687.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40QZ22H1357276260 5  0       58541.66744270.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40QZ9RE1357276264 6           65937.500 3958.333  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5T40QZAXU1357276265 6           65937.50044270.833  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5VU0PFZ1V1363959432 6           48333.333 4062.500  104.16771770.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PGH7C1363959444 6           40937.500 4062.500  104.16771770.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PGQDZ1363959450 6           50833.333 4062.500  104.16771770.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PGXYZ1363959457 6           55104.167 4062.500  104.16771770.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0Q05881363960061 8  0        1875.000 3645.833 2187.50034583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5VU0Q05891363960061 8  0        4166.667 3645.833 2187.50034583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5VU0Q058A1363960061 8  0        1875.00049687.500 2187.50023229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F        WINDOWS _5VU0Q058B1363960061 8  0        1875.00054270.833 2187.50018645.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F        WINDOWS _5VU0Q0ZTS1363960083 6           43541.667 4062.500  104.16771770.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                >   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         hsvon1                                                        Arial                                                         hskeine1 = .f.                                                hsdat1_1                                                      Arial                                                         hskeine2 = .f.                                                alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Dienstanschrift:"                                            Arial                                                         .not. empty(wnw.ztext7)                                       
wnw.ztext7                                                    Arial Narrow                                                  .not. empty(wnw.ztext7)                                       5"Festsetzung des Beginns Ihres Jubilumsdienstalters"         Arial                                                         C"Der Beginn Ihres Jubilumsdienstalters (JDA) wird festgesetzt auf"                                                           Arial                                                         hsdat1                                                        Arial                                                         
"Berechnung:"                                                 Arial                                                         2"1. Dienstbezge bei uns ab (Regelbeginn des JDA)"            Arial                                                         hsdat2                                                        Arial                                                         8"2. Anzurechnende Zeiten davor bei anderen Dienstherren"      Arial                                                         " T      M       J"                                           Arial                                                         hskeine1 = .f.                                                "KEINE"                                                       Arial                                                         hskeine1 = .t.                                                hsbis2                                                        Arial                                                         hskeine1 = .f.                                                hstext1                                                       Arial                                                         hskeine1 = .f.                                                hst1                                                          Arial                                                         hskeine1 = .f.                                                hsm1                                                          Arial                                                         hskeine1 = .f.                                                hsj1                                                          Arial                                                         hskeine1 = .f.                                                hsstrich                                                      Arial                                                         hskeine1 = .f.                                                hskeine1 = .f.                                                
hst1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsm1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsj1_summe                                                    Arial                                                         hskeine1 = .f.                                                hsdat3                                                        Arial                                                         hskeine1 = .f.                                                F"3. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"                                                        Arial                                                         " T       M      J"                                           Arial                                                         hskeine2 = .f.                                                "KEINE"                                                       Arial                                                         hskeine2 = .t.                                                hsdat2_1                                                      Arial                                                         hskeine2 = .f.                                                	hstext1_1                                                     Arial                                                         hskeine2 = .f.                                                hst1_1                                                        Arial                                                         hskeine2 = .f.                                                hsm1_1                                                        Arial                                                         hskeine2 = .f.                                                hsj1_1                                                        Arial                                                         hskeine2 = .f.                                                
hsstrich_1                                                    Arial                                                         hskeine2 = .f.                                                hskeine2 = .f.                                                hst1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsm1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsj1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsdat4                                                        Arial                                                         hskeine2 = .f.                                                N"4. Nachrichtlich und vorbehaltlich zu bercksichtigender knftiger Umstnde:"                                                Arial                                                         -"Voraussichtlicher Eintritt in den Ruhestand"                 Arial                                                         hstext3                                                       Arial                                                         hsdat5                                                        Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         .f.                                                           .f.                                                           .f.                                                           .f.                                                           ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                .f.                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         hsvon1                                                        Arial                                                         hskeine1 = .f.                                                hsdat1_1                                                      Arial                                                         hskeine2 = .f.                                                alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Dienstanschrift:"                                            Arial                                                         .not. empty(wnw.ztext7)                                       
wnw.ztext7                                                    Arial Narrow                                                  .not. empty(wnw.ztext7)                                       5"Festsetzung des Beginns Ihres Jubilumsdienstalters"         Arial                                                         C"Der Beginn Ihres Jubilumsdienstalters (JDA) wird festgesetzt auf"                                                           Arial                                                         hsdat1                                                        Arial                                                         
"Berechnung:"                                                 Arial                                                         2"1. Dienstbezge bei uns ab (Regelbeginn des JDA)"            Arial                                                         hsdat2                                                        Arial                                                         8"2. Anzurechnende Zeiten davor bei anderen Dienstherren"      Arial                                                         " T      M       J"                                           Arial                                                         hskeine1 = .f.                                                "KEINE"                                                       Arial                                                         hskeine1 = .t.                                                hsbis2                                                        Arial                                                         hskeine1 = .f.                                                hstext1                                                       Arial                                                         hskeine1 = .f.                                                hst1                                                          Arial                                                         hskeine1 = .f.                                                hsm1                                                          Arial                                                         hskeine1 = .f.                                                hsj1                                                          Arial                                                         hskeine1 = .f.                                                hsstrich                                                      Arial                                                         hskeine1 = .f.                                                hskeine1 = .f.                                                
hst1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsm1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsj1_summe                                                    Arial                                                         hskeine1 = .f.                                                hsdat3                                                        Arial                                                         hskeine1 = .f.                                                F"3. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"                                                        Arial                                                         " T       M      J"                                           Arial                                                         hskeine2 = .f.                                                "KEINE"                                                       Arial                                                         hskeine2 = .t.                                                hsdat2_1                                                      Arial                                                         hskeine2 = .f.                                                	hstext1_1                                                     Arial                                                         hskeine2 = .f.                                                hst1_1                                                        Arial                                                         hskeine2 = .f.                                                hsm1_1                                                        Arial                                                         hskeine2 = .f.                                                hsj1_1                                                        Arial                                                         hskeine2 = .f.                                                
hsstrich_1                                                    Arial                                                         hskeine2 = .f.                                                hskeine2 = .f.                                                hst1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsm1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsj1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsdat4                                                        Arial                                                         hskeine2 = .f.                                                N"4. Nachrichtlich und vorbehaltlich zu bercksichtigender knftiger Umstnde:"                                                Arial                                                         -"Voraussichtlicher Eintritt in den Ruhestand"                 Arial                                                         hstext3                                                       Arial                                                         hsdat5                                                        Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         .f.                                                           .f.                                                           .f.                                                           .f.                                                           ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                .f.                                                           Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0N   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5T40N2UWK1357272515 1 53           1.000    0.000    0.00082666.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0 10  121F 3 3FTFTF00F 0FFF  0  2TFFFFFFT  0  0  0 0 1  0TTT0 0F         WINDOWS _5T40N2UWL           9  1                          73334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40N2UWM           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40N2UWN           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5T40OB2B31357273754 8  0       32708.333 5312.500 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5T40PJHWF1357274849 8  0       49270.833 5312.500 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5T40N383X1357272523 8  0        1562.500 3437.500 2187.50034583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5T40N383Y1357272523 8  0        3854.167 3437.500 2187.50034583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5T40N3FUK1357272528 8  0        1562.50049479.167 2187.50023229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F        WINDOWS _5T40N3FUL1357272528 8  0        1562.50054062.500 2187.50018645.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F        WINDOWS _5T40NBVAU1357272739 8  0       10833.333 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1                     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NBVAV1357272739 8  0    !   13958.333 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               "     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NBVAW1357272739 8  0    #   15937.500 3541.667 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               $     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40NDE3D1357272777 5  0    %    8541.66743541.667 1666.667 9375.000                               -1   -1   -1   -1   -1   -1               &     0 10  1       FFFTF  F          0T                      1FTT0 0F'        WINDOWS _5T40NEI521357272820 8  0    (   10833.33343750.000 6875.00030208.333                   C           -1   -1   -1   -1   -1   -1               )     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F*        WINDOWS _5T40NHDFY1357272877 5  0    +   22291.667 4062.500 2083.33332500.000                               -1   -1   -1   -1   -1   -1               ,     1 12  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5T40NMH7P1357273131 5  0    -   30729.167 3958.333 1666.66729791.667                               -1   -1   -1   -1   -1   -1               .     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5T40NO7TW1357273177 5  0    /   30625.00056979.167 2083.333 9583.333                               -1   -1   -1   -1   -1   -1               0     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5T40O9WFY1357273714 5  0    1   32708.333 5312.500 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      0FTT0 0F3        WINDOWS _5T40OBN8O1357273756 8  0    4   32708.33316145.833 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               5     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F6        WINDOWS _5T40OCY8E1357273788 8  0    7   32708.33325520.833 1875.00028541.667                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F9        WINDOWS _5T40OETFA1357273838 8  0    :   32708.33354895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               ;     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F<        WINDOWS _5T40OF3MB1357273842 8  0    =   32708.33359062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               >     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F?        WINDOWS _5T40OFDDQ1357273848 8  0    @   32708.33363333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               A     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0FB        WINDOWS _5T40OIZNQ1357273946 8  0    C   32708.33314687.500 1875.000 1041.667                   C           -1   -1   -1   -1   -1   -1               D     0 12  1 0     FTFTF  F          2T         0       0 1  0FTT0 0FE        WINDOWS _5T40P8R7Y1357274580 6           35000.00054375.000  104.16713437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  T                     1             FTT0 0FF        WINDOWS _5T40P91YH1357274587 8  0    G   35416.66754895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               H     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FI        WINDOWS _5T40P91YI1357274587 8  0    J   35416.66759062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               K     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FL        WINDOWS _5T40P91YJ1357274587 8  0    M   35416.66763333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               N     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0FO        WINDOWS _5T40PIX0Y1357274834 5  0    P   45625.000 3854.167 1666.66741458.333                               -1   -1   -1   -1   -1   -1               R     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40PJHWE1357274849 5  0    S   49270.833 5312.500 1666.667 4062.500                               -1   -1   -1   -1   -1   -1               T     0 10  1       TFFFF  F          0T                      0FTT0 0FU        WINDOWS _5T40PJHWG1357274849 8  0    V   49270.83316354.167 1875.000 8750.000                   C           -1   -1   -1   -1   -1   -1               W     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0FX        WINDOWS _5T40PJHWH1357274849 8  0    Y   49270.83325729.167 1875.00028541.667                   C           -1   -1   -1   -1   -1   -1               Z     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F[        WINDOWS _5T40PJHWI1357274849 8  0    \   49270.83354895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               ]     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F^        WINDOWS _5T40PJHWJ1357274849 8  0    _   49270.83359062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               `     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fa        WINDOWS _5T40PJHWK1357274849 8  0    b   49270.83363333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fd        WINDOWS _5T40PJHWL1357274849 8  0    e   49270.83314895.833 1875.000 1041.667                   C           -1   -1   -1   -1   -1   -1               f     0 12  1 0     TTFFF  F          2T         0       0 1  0FTT0 0Fg        WINDOWS _5T40PJHWM1357274849 6           51562.50054583.333  104.16713437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  T                     1             FTT0 0Fh        WINDOWS _5T40PJHWN1357274849 8  0    i   51979.16755000.000 1875.000 3437.500                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fk        WINDOWS _5T40PJHWO1357274849 8  0    l   51979.16759062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fn        WINDOWS _5T40PJHWP1357274849 8  0    o   51979.16763333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TFFFF  T          0T         1       0 1  0FTT0 0Fq        WINDOWS _5T40PZWJN1357275384 5  0    r   54479.167 3958.333 1666.66721250.000                               -1   -1   -1   -1   -1   -1               s     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40Q0IK71357275400 5  0    t   56354.167 5312.500 1666.66711145.833                               -1   -1   -1   -1   -1   -1               u     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40QYQVX1357276251 5  0    v   60937.500 3958.333 1666.66719687.500                               -1   -1   -1   -1   -1   -1               w     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40QZ22H1357276260 5  0    x   60937.50044270.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               y     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40QZ9RE1357276264 6           68333.333 3958.333  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5T40QZAXU1357276265 6           68333.33344270.833  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5T40XWDZG1357282850 8  0    z   22083.33337395.833 2187.50011666.667                   C           -1   -1   -1   -1   -1   -1               {     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5T40XYI7G1357282916 8  0    |   25104.167 3645.833 1875.00056145.833                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40XZGG31357282985 8  0       27083.333 3541.667 1875.00056145.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40YDPQX1357283406 5  0       38020.833 3958.333 1666.66717812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40YF6NI1357283453 8  0       39687.500 5312.500 1875.00045312.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5T40YHKQE1357283502 8  0       39687.50054895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5T40YHKQF1357283502 8  0       39687.50059062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40YHKQG1357283502 8  0       39687.50063333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40Z0JFB1357283976 5  0       47291.667 5208.333 1666.667 9687.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40Z0R5D1357283979 8  0       42708.33354895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40Z0R5E1357283979 8  0       42708.33359062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40Z0R5F1357283979 8  0       42708.33363333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40Z48I21357284067 5  0       42812.500 3958.333 1666.66721145.833                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5T40ZB4DO1357284237 8  0       56145.83354895.833 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40ZB4DP1357284237 8  0       56145.83359062.500 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5T40ZB4DQ1357284237 8  0       56145.83363333.333 1875.000 3541.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5VU0PU6CD1363959914 6           60208.333 2916.667  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PUL1W1363959923 6           54062.500 2916.667  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PUPY91363959926 6           51562.500 2916.667  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PUTWU1363959929 6           45000.000 2812.500  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PV0H01363959933 6           41875.000 2812.500  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PVXKO1363959957 6           37604.167 2812.500  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5VU0PW1VD1363959959 6           35000.000 2812.500  104.16765416.667                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                Z   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         hsdat1                                                        Arial                                                         hskeine1 = .f.                                                hsdat1_1                                                      Arial                                                         hskeine2 = .f.                                                ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Dienstanschrift:"                                            Arial                                                         .not. empty(wnw.ztext7)                                       
wnw.ztext7                                                    Arial Narrow                                                  .not. empty(wnw.ztext7)                                       )"Ihre Beschftigungszeit zum Stichtag am"                     Arial                                                         3"1. Anrechenbare Zeiten  bei frheren Dienstherren"           Arial                                                         "T        M       J"                                          Arial                                                         "KEINE"                                                       Arial                                                         hskeine1 = .t.                                                hsdat2                                                        Arial                                                         hskeine1 = .f.                                                hstext1                                                       Arial                                                         hskeine1 = .f.                                                hst1                                                          Arial                                                         hskeine1 = .f.                                                hsm1                                                          Arial                                                         hskeine1 = .f.                                                hsj1                                                          Arial                                                         hskeine1 = .f.                                                hsstrich                                                      Arial                                                         hskeine1 = .f.                                                hskeine1 = .f.                                                
hst1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsm1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsj1_summe                                                    Arial                                                         hskeine1 = .f.                                                F"4. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"                                                        Arial                                                         "KEINE"                                                       Arial                                                         hskeine2 = .t.                                                hsdat2_1                                                      Arial                                                         hskeine2 = .f.                                                	hstext1_1                                                     Arial                                                         hskeine2 = .f.                                                hst1_1                                                        Arial                                                         hskeine2 = .f.                                                hsm1_1                                                        Arial                                                         hskeine2 = .f.                                                hsj1_1                                                        Arial                                                         hskeine2 = .f.                                                
hsstrich_1                                                    Arial                                                         hskeine2 = .f.                                                hskeine2 = .f.                                                hst1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsm1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsj1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                #"5. Magebliche Beschftigungszeit"                           Arial                                                         "(Nr. 3 minus Nr. 4)"                                         Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         myJDA.Datum21.value                                           Arial                                                         M"Zum Stichtag am " + myJDA.Datum21.value + " betrgt Ihre Beschftigungszeit"                                                 Arial                                                         alltrim(str(myJDA.Jahr14.value,4,0)) + " Jahre, " + alltrim(str(myJDA.Monat14.value,4,0)) + " Monate und " + alltrim(str(myJDA.Tage14.value,4,0)) + " Tage und setzt sich wie folgt zusammen:"                                                                Arial                                                         "2. Beschftigungszeit bei uns"                               Arial                                                         B"vom  " + myjda.Label9.Caption + "  bis  " + myjda.Label14.Caption                                                            Arial                                                         hst1_2                                                        Arial                                                         hsm1_2                                                        Arial                                                         hsj1_2                                                        Arial                                                         "(Nr. 1 und Nr. 2)"                                           Arial                                                         hst1_3                                                        Arial                                                         hsm1_3                                                        Arial                                                         hsj1_3                                                        Arial                                                         #"3. Beschftigungszeiten insgesamt"                           Arial                                                         hst1_4                                                        Arial                                                         hsm1_4                                                        Arial                                                         hsj1_4                                                        ""                                                            Arial                                                         .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         hsdat1                                                        Arial                                                         hskeine1 = .f.                                                hsdat1_1                                                      Arial                                                         hskeine2 = .f.                                                ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Dienstanschrift:"                                            Arial                                                         .not. empty(wnw.ztext7)                                       
wnw.ztext7                                                    Arial Narrow                                                  .not. empty(wnw.ztext7)                                       )"Ihre Beschftigungszeit zum Stichtag am"                     Arial                                                         3"1. Anrechenbare Zeiten  bei frheren Dienstherren"           Arial                                                         "T        M       J"                                          Arial                                                         "KEINE"                                                       Arial                                                         hskeine1 = .t.                                                hsdat2                                                        Arial                                                         hskeine1 = .f.                                                hstext1                                                       Arial                                                         hskeine1 = .f.                                                hst1                                                          Arial                                                         hskeine1 = .f.                                                hsm1                                                          Arial                                                         hskeine1 = .f.                                                hsj1                                                          Arial                                                         hskeine1 = .f.                                                hsstrich                                                      Arial                                                         hskeine1 = .f.                                                hskeine1 = .f.                                                
hst1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsm1_summe                                                    Arial                                                         hskeine1 = .f.                                                
hsj1_summe                                                    Arial                                                         hskeine1 = .f.                                                F"4. Nicht zu bercksichtigende Zeiten (z.B. unbezahlter Sonderurlaub)"                                                        Arial                                                         "KEINE"                                                       Arial                                                         hskeine2 = .t.                                                hsdat2_1                                                      Arial                                                         hskeine2 = .f.                                                	hstext1_1                                                     Arial                                                         hskeine2 = .f.                                                hst1_1                                                        Arial                                                         hskeine2 = .f.                                                hsm1_1                                                        Arial                                                         hskeine2 = .f.                                                hsj1_1                                                        Arial                                                         hskeine2 = .f.                                                
hsstrich_1                                                    Arial                                                         hskeine2 = .f.                                                hskeine2 = .f.                                                hst1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsm1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                hsj1_summe_1                                                  Arial                                                         hskeine2 = .f.                                                #"5. Magebliche Beschftigungszeit"                           Arial                                                         "(Nr. 3 minus Nr. 4)"                                         Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         "Festgestellt:"                                               Arial                                                         myJDA.Datum21.value                                           Arial                                                         M"Zum Stichtag am " + myJDA.Datum21.value + " betrgt Ihre Beschftigungszeit"                                                 Arial                                                         alltrim(str(myJDA.Jahr14.value,4,0)) + " Jahre, " + alltrim(str(myJDA.Monat14.value,4,0)) + " Monate und " + alltrim(str(myJDA.Tage14.value,4,0)) + " Tage und setzt sich wie folgt zusammen:"                                                                Arial                                                         "2. Beschftigungszeit bei uns"                               Arial                                                         B"vom  " + myjda.Label9.Caption + "  bis  " + myjda.Label14.Caption                                                            Arial                                                         hst1_2                                                        Arial                                                         hsm1_2                                                        Arial                                                         hsj1_2                                                        Arial                                                         "(Nr. 1 und Nr. 2)"                                           Arial                                                         hst1_3                                                        Arial                                                         hsm1_3                                                        Arial                                                         hsj1_3                                                        Arial                                                         #"3. Beschftigungszeiten insgesamt"                           Arial                                                         hst1_4                                                        Arial                                                         hsm1_4                                                        Arial                                                         hsj1_4                                                        ""                                                            Arial                                                         .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           .f.                                                           Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                  %                   GMS    U  g  4   T CC   Z" Y = myarbeitszeit.Std&xxx..Row
$ myarbeitszeit.Std&xxx..Text = ""
 U  MYINDEX XXX
 Std_MouseDown,     2 q q!A3                    o         0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.00082666.000                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          15000.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000 1980.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000 2084.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5TE0PNMET1357930311 8  0       17187.500 4479.167 1875.00032395.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692S1351634582 8  0        1666.66764687.500 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0L692T1351634582 8  0        1666.667 4479.167 1666.66718229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0        3854.167 4479.167 1666.66718229.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0        1666.66767812.500 1666.66711770.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F        WINDOWS _5QV0LB0NG1351634708 8  0        7708.333 4583.333 1875.00032395.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0        14375.000 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0       11666.667 4479.167 1875.00032395.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00OJE0P1354455900 8  0        17187.50037812.500 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0!     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F"        WINDOWS _5S00OJE0R1354455900 8  0    #   17187.50067500.000 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0$     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F%        WINDOWS _5S00OJE0S1354455900 8  0    &   17187.50052604.167 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0'     0 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F(        WINDOWS _5S10USHO71354527421 8  0    )   11666.66737812.500 1875.00010833.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0*     1 10  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10VZY7W1354528503 6  0        18020.833 2916.667  104.16777500.000            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F+        WINDOWS _5TE0PF7FB1357930100 8  0    ,   11666.66752708.333 1875.00010833.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0-     1 10  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5TE0PFE2H1357930105 8  0    .   11666.66767500.000 1875.00010833.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0/     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5TE0PIWZ31357930193 8  0    0   17187.50037812.500 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    01     1 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F2        WINDOWS _5TE0PIWZ41357930193 8  0    3   17187.500 4479.167 1875.00032395.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    04     1 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F5        WINDOWS _5TE0PIWZ51357930193 8  0    6   17187.50067500.000 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    07     1 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F8        WINDOWS _5TE0PIWZ61357930193 8  0    9   17187.50052604.167 1875.00010729.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0:     1 10  100F 0 0TTFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT0 0F;        WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   <     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   =     0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   >     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   ?     1 10                                                     F               WINDOWS                     25   @   A                                                        F                                                                                                                      F                 ~   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  vergleich.sp1_text                                            Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         vergleich.sp1_1                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         vergleich.sp1_3                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         vergleich.sp1_2                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         3                                                            Arial                                                         vergleich.sp1_strich = .t.                                    4                                                            Arial                                                         5                                                            Arial                                                         vergleich.sp1_1                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_text                                            Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_3                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_2                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  vergleich.sp1_text                                            Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         vergleich.sp1_1                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         vergleich.sp1_3                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         vergleich.sp1_2                                               Arial                                                         5vergleich.fett = .f. .and. vergleich.sp1_strich = .f.         3                                                            Arial                                                         vergleich.sp1_strich = .t.                                    4                                                            Arial                                                         5                                                            Arial                                                         vergleich.sp1_1                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_text                                            Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_3                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         vergleich.sp1_2                                               Arial                                                         5vergleich.fett = .t. .and. vergleich.sp1_strich = .f.         Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                          JFIF  ` `   C 		



	
 C   
"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? m?mO /XtZ{x@Ym++HlmlUWwd7u  f_J_ V>^x?si$^E{۷.#ͷj	,UU ,Ux>[oyvrEP JFIF  ` `   C 		



	
 C   
"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? zo~¶Ծ$kƾ,6ڴѧt˩"BGneh̼m"3<>5%rv_LW˿R '?া_}{|'x<Yid&ZۭHh#wR>Pβѿ+&Xh6iocaac[ě#(HT*@j 3[
_UF(   %        < `
  | gmTb    U   %C    st9 T C   \0 %CC    
 C   |  T C   \   T C     %  
 T   6 %CC   \g
 CC   \g
 T  # T C   \ 2 %C   \ 
 C   \q T C   \  T C   \ 2 %C   \ 
 C   \
 T    T C   \ 2 %C   \ 
 C   \7
 T  W T C   \ 2 %C   \ 
 C   \
 T	    T	 C   \  %	 
 T	    %C   \  

 T
   %C   \
 T
 w C9 Bitte berprfen Sie die Einstellung fr den Ortszuschlag , Ortszuschlag wurde auf Stufe 1 zurckgesetztx  T
 C   \   %
 
 T
 
 T  
 T  
  5 T
 CC  Z$ .Dienst.dienst&xxx..Value = True
 T
 CC	  Z$ .Gebiet.gebiet&xxx..Value = True
 T
 CC  Z& .Egruppe.egruppe&xxx..Value = True
 %
  
 T
   T
 CC
  Z( .zuschlag.zuschlag&xxx..Value = True
 % a T   z T     T
 CC  Z& .Vgruppe.vgruppe&xxx..Value = True
 T
 CC  Z( .Aufstieg.aufstieg&xxx..Value = True
 T
 CC  Z$ .SStufe.sstufe&xxx..Value = True
  
 T 
 T
 
 T 
 T 
 T  
 T  
 T	    U  WNW STRUKTUR BERLEITUNGSINDEX STRUKTURREST
 EGRUPPEIND	 DIENSTIND
 VGRUPPEIND AUFSTIEGIND STUFEIND	 GEBIETIND ZUSCHLAGIND
 HALBIERIND
 MYSTRUKTUR XXX
 HALBIERUNG VALUE T  CC  Z9 mystruktur.Gebiet.gebiet&xxx..BackColor = QBColor(15)
 T      (  T  CC  Z1 mystruktur.vgruppe.Vgruppe&xxx..BackColor = k
  T      T        (
 H>          	 T  CC  Z3 mystruktur.Enummer&xxx..BackColor = QBColor(15)
; mystruktur.egruppe.Egruppe&xxx..BackColor = QBColor(15)
 C   T  CC  Z; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
C mystruktur.egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
     ( T  CC  Z3 mystruktur.aufstieg.Aufstieg&xxx..BackColor = k
    (S T  CC  Z/ mystruktur.sstufe.SStufe&xxx..BackColor = k
  m = hex2rgb("&HFFFFFF")
 T    	  T    	 
 H{ 
 L
 HH        
  	 T  
  	  T    	 
 HW  
D T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	    T    	  T    	    
 T    	  T    	 
 H  d T    	  T    	  T    	  T    	  T    	  T    	    T    	  T    	  T    	  T    	     T    	  T    	 
 H   T    	  T    	  T     	  T    	  T    	    T    	  T    	  T    	    
	 T    	  T  !  	  T    	  T     	  T  "  	  T    	  T    	  T    	  T    	  T  #  	  T    	  T    	   
	  
 T  $  	  T  %  	 
 He	
  h
 T  !  	  T    	  T  &  	  T  '  	  T    	  T    	  T    	  T  #  	  T    	  T    	  T  (  	   
 T    	  T    	  T    	  T    	  T  (  	    7 T  %  	  T  )  	 
 H53   T    	  T     	  T  #  	  T    	  T  (  	   3 T    	  T    	  T  #  	  T    	  T  (  	    H  
 {
 Hjw  
 T  *  	  T  +  	  T    	  T    	  T    	  T    	  T    	   
 T  ,  	  T    	  T  -  	  T  .  	  T    	  T    	  T    	  T    	  T    	    T  /  	  T    	  T    	  T    	  T    	  T    	  T    	  T  #  	    T  0  	  T    	  T    	  T  #  	   	 T  
  	  T    	 
 H`  
 T    	  T    	  T    	  T    	  T    	  T  .  	  T    	  T    	  T    	  T    	  T    	  T  #  	  T    	    T    	  T    	  T    	  T  #  	  T    	    
 T    	  T    	 
 H\   T    	  T    	  T    	  T    	  T    	  T  #  	  T    	  T    	    T    	  T    	  T  #  	  T    	  T    	     T    	  T    	 
 H   T    	  T    	  T     	  T    	  T  #  	  T    	  T    	    T    	  T    	  T  #  	  T    	  T    	    1 T    	  T  !  	  T    	  T     	  T  "  	  T    	  T    	  T    	  T    	  T  #  	  T    	  T    	   
 T  $  	  T    	  T  #  	  T    	  T    	    T  $  	  T  %  	 
 H   T  !  	  T    	  T  &  	  T  '  	  T    	  T    	  T    	  T    	  T  #  	  T    	  T    	  T  (  	    T    	  T    	  T  #  	  T    	  T    	  T  (  	     T  %  	  T  )  	 
 H
   T    	  T     	  T    	  T    	  T    	  T  (  	   
 T    	  T    	  T    	  T    	  T  (  	    w T  1  	  T    	  T    	  T  (  	    U2  XXX	 GEBIETIND K
 MYSTRUKTUR	 BACKCOLOR I ZUSCHLAG	 ZUSCHLAG1	 ZUSCHLAG2 M ZUSCHLAGIND
 EGRUPPEIND VGRUPPE	 VGRUPPE10 VGRUPPE7
 VGRUPPEIND AUFSTIEG	 AUFSTIEG0	 AUFSTIEG2	 AUFSTIEG3	 AUFSTIEG4	 AUFSTIEG6 SSTUFE SSTUFE4 SSTUFE5 SSTUFE6 SSTUFE7 SSTUFE8 VGRUPPE6 SSTUFE10 SSTUFE11 VGRUPPE5	 AUFSTIEG8	 AUFSTIEG5
 AUFSTIEG10 SSTUFE9 VGRUPPE3 VGRUPPE2
 AUFSTIEG11
 AUFSTIEG12 SSTUFE12 VGRUPPE1	 VGRUPPE19 SSTUFE1	 VGRUPPE16 SSTUFE2 SSTUFE3	 VGRUPPE13	 VGRUPPE11 VGRUPPE0D T       (o  T CC  Z1 mystruktur.vgruppe.Vgruppe&xxx..BackColor = k
  T       T         (; T CC  Z3 mystruktur.Enummer&xxx..BackColor = QBColor(15)
; mystruktur.Egruppe.egruppe&xxx..BackColor = QBColor(15)
    (
 T CC  Z3 mystruktur.Aufstieg.Aufstieg&xxx..BackColor = k
    ( T CC  Z/ mystruktur.sStufe.sStufe&xxx..BackColor = k
  m = hex2rgb("&HFFFFFF")
 T      T     
 HY= 	 Y

 HwU
 
  T      T 
     T      T      
  T      T     
 H*  } T 
     T      T        T 
     T      T       
 
6 T      T     
 H2   T 
     T 
     T      T      T      T      T       2 T 
     T 
     T      T       
 	 T      T     
 H   T 
     T 
     T      T      T        T 
     T 
     T      T      T      T       
  T       T 
 !    T      T      T      
 7 T       T  "   
 Ha3   T 
     T 
 #    T      T      T       3 T 
 !    T      T       
  T  "    T 
     T      T      T      
 		 T  $    T 
     T      
 r	 T  %    T 
     T      T      
 	 T  &    T 
     T      T      
 D
 T  '    T 
     T      T      
 U
  	 =
 Hw
9 
 
 T      T 
     T      T      T  (    
 n T      T     
 H@j   T 
     T      T      T      T      T  (     j T 
     T      T      T      T      T  (     
 
T T      T     
 HP  
 T 
     T 
     T 
 )    T 
 *    T      T      T      T      T      T  (     P T 
     T 
     T      T      T      T      T  (     
 	 T      T     
 H  _ T 
     T 
     T      T      T      T      T      T  (      T 
     T 
     T      T       
 5 T       T 
 !    T      T      
  T       T  "   
 H}   T 
     T 
 #    T      T      T  (     } T 
 !    T      T      T      T  (     
   T  "    T 
     T      T      T      
  T  $    T 
     T      T      T      T  (    
 * T  %    T 
     T      T      T      T  (    
  T  &    T 
     T      T      
  T  '    T 
     T      
 9 T  +    T 
     T        U,  K
 MYSTRUKTUR	 BACKCOLOR I XXX ZUSCHLAG	 ZUSCHLAG1	 ZUSCHLAG2 M ZUSCHLAGIND
 EGRUPPEIND VGRUPPE VGRUPPE0 AUFSTIEG	 AUFSTIEG3 SSTUFE SSTUFE1 SSTUFE3 VGRUPPE1 VGRUPPE2
 VGRUPPEIND	 AUFSTIEG2 SSTUFE4 SSTUFE6	 AUFSTIEG4 VGRUPPE4 VGRUPPE3 SSTUFE2 SSTUFE5	 AUFSTIEG5 VGRUPPE5	 AUFSTIEG6 VGRUPPE6	 AUFSTIEG0 VGRUPPE7	 AUFSTIEG7 VGRUPPE8 VGRUPPE9	 VGRUPPE10	 VGRUPPE11 SSTUFE7	 AUFSTIEG8
 AUFSTIEG10	 VGRUPPE12f T  CC  Z9 mystruktur.Gebiet.gebiet&xxx..BackColor = QBColor(15)
 T      (  T  CC  Z1 mystruktur.vgruppe.vgruppe&xxx..BackColor = k
  T      T        (
 HI             	 T  CC  Z3 mystruktur.Enummer&xxx..BackColor = QBColor(15)
; mystruktur.Egruppe.Egruppe&xxx..BackColor = QBColor(15)
 C  T  CC  Z; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
C mystruktur.Egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
     ( T  CC  Z3 mystruktur.Aufstieg.Aufstieg&xxx..BackColor = k
    ([ T  CC  Z/ mystruktur.sStufe.sStufe&xxx..BackColor = k
  m = hex2rgb("&HFFFFFF")
 T    	  T    	 
 H_ 
 c

 H_
    T  
  	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	         .  ?  	 T    	  T    	 
 H  
` T    	  T    	  T     	  T  !  	  T  "  	  T    	  T  #  	  T    	  T    	    T    	  T    	    
 T    	  T  $  	 
 H   T    	  T  !  	  T  "  	  T    	  T    	  T    	    T    	  T    	  T    	  T    	    	 T  $  	  T  %  	  T  &  	 
 HM	   T  !  	  T  "  	  T  '  	  T    	  T    	   	 T    	  T    	  T    	   	 T    	  T  #  	  T    	  T    	    
 T  %  	  T  (  	  T  "  	  T  '  	  T  )  	  T    	  T    	  T    	  T    	  T    	  T    	   

   T  
  	  T  *  	 
 H
   T  (  	  T  "  	  T  #  	  T    	  T    	  T    	  T    	    T    	  T    	  T    	  T    	  T    	    N
 T  *  	  T  +  	 
 HbJ
   T  !  	  T  '  	  T    	  T    	  T    	   J
 T    	  T    	  T    	  T    	    _
  
 _
 H
[   n T  
  	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	  T    	    T    	  T  ,  	  T    	  T  #  	  T    	  T    	  T    	    T  -  	  T    	  T  .  	  T    	  T    	  T  #  	  T    	  T    	  T  / 	    T  0  	  T    	  T    	  T  #  	  T    	  T    	  T    	  T    	    T  1  	  T    	  T    	  T    	   	 T    	  T    	 
 Hg  
 T    	  T    	  T     	  T  !  	  T  "  	  T    	  T    	  T  #  	  T    	  T    	  T    	  T    	    T    	  T  #  	  T    	  T    	  T    	    
 T    	  T  $  	 
 HM   T    	  T  !  	  T  "  	  T    	  T    	  T    	  T    	  T    	    T    	  T    	  T    	  T    	  T    	    
 T  $  	  T  %  	  T  &  	 
 H  D T  !  	  T  "  	  T  '  	   q T     	    T    	  T    	  T    	  T    	  T    	  T    	    9 T  %  	  T  (  	  T  "  	  T  '  	  T  )  	  T    	  T  #  	  T    	  T    	  T    	  T    	  T    	  T    	   
 T  
  	  T    	  T    	  T    	  T    	  T    	   r T  
  	  T  *  	 
 Hn   T  (  	  T  "  	  T  #  	  T    	  T    	  T    	  T    	  T    	   n T    	  T    	  T    	  T    	  T    	  T    	     T  *  	  T  +  	 
 H  Q T  !  	  T  '  	  T    	  T    	  T    	  T    	    T     	  T    	  T   
 	  T    	  T    	    [ T  2  	  T    	  T    	  T    	    U3  XXX	 GEBIETIND K
 MYSTRUKTUR	 BACKCOLOR I ZUSCHLAG	 ZUSCHLAG1	 ZUSCHLAG2 M ZUSCHLAGIND
 EGRUPPEIND VGRUPPE VGRUPPE3 AUFSTIEG
 AUFSTIEG11
 AUFSTIEG12 SSTUFE SSTUFE3 SSTUFE4 SSTUFE6 SSTUFE7 SSTUFE8 SSTUFE9 SSTUFE10 SSTUFE11 SSTUFE12	 VGRUPPE10 VGRUPPE7
 VGRUPPEIND	 AUFSTIEG0	 AUFSTIEG2	 AUFSTIEG3	 AUFSTIEG4	 AUFSTIEG6 SSTUFE5 VGRUPPE6 VGRUPPE5 VGRUPPE4	 AUFSTIEG8	 AUFSTIEG5
 AUFSTIEG10 VGRUPPE2 VGRUPPE1 SSTUFE1	 VGRUPPE16 SSTUFE2 SSTUFE8BACKCOLOR	 VGRUPPE13	 VGRUPPE11 VGRUPPE0h T       (o  T CC  Z1 mystruktur.vgruppe.vgruppe&xxx..BackColor = k
  T       T         (  T CC  Z3 mystruktur.Aufstieg.Aufstieg&xxx..BackColor = k
    (a T CC  Z/ mystruktur.sStufe.sStufe&xxx..BackColor = k
  U  K
 MYSTRUKTUR	 BACKCOLOR I XXX ZUSCHLAG	 ZUSCHLAG1	 ZUSCHLAG2 T       (o  T CC  Z1 mystruktur.vgruppe.vgruppe&xxx..BackColor = k
  T       T         (E
 H AI            	 T CC  Z3 mystruktur.Enummer&xxx..BackColor = QBColor(15)
; mystruktur.Egruppe.Egruppe&xxx..BackColor = QBColor(15)
 C  A T CC  Z; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
C mystruktur.Egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
     ( T CC  Z3 mystruktur.Aufstieg.Aufstieg&xxx..BackColor = k
    ( T CC  Z/ mystruktur.sStufe.sStufe&xxx..BackColor = k
  m = hex2rgb("&HFFFFFF")
 T      T     
 Hc
 	 I
 HE 
  T      T 
     T      
 = T      T      T 
     T 
     
 N 
 ; T      T      T 
     T 
     T 
     T 
     T 
     T 
     T 
     T 
     
  T      T      T 
     T 
     T 
     T 
     T 
     T 
     T 
     
 	^ T      T     
 H\Z   T      T 
     T 
      Z T      T      T       T  !    T 
     T 
     T 
      
 
 T      T       T  !    T  "    T 
     
  T  #    T  $   
 H'  z T      T 
     T 
       T      T  !    T  "    T 
     T 
      
 	 T  #    T       T  !    T  "    T  %    T 
     T 
     T 
     T 
 &    
 
'
 T  '    T      T 
     
 G T  '    T  (   
 Hq
C  
 T      T 
     T 
      C T       T  !    T 
     T 
     T 
      
  T  )    T      T 
     T 
     T 
     T 
 *    T 
 +    
 E T  ,    T      T 
      	 

 Hg	 
 
 T  -    T     
 H
   T 
     T       
 T 
     T 
     T 
     T 
     T 
     T       
 t T      T      T 
     T 
     T 
     T 
     T 
     T 
     T 
     T 
 *    
  T  .    T      T 
     T 
     T 
     T 
     T 
     
  T      T      T 
     T 
     T 
     T 
     T 
     T 
     T 
     T 
     
  T      T      T 
     T 
     T 
     T 
     T 
     T 
     T 
     
 	 T      T     
 H-   T      T 
     T 
     T 
       T      T      T      T       T  !    T 
     T 
     T 
     T 
     T 
      
 
A T  $    T     
 H=  P T      T 
     T 
     T 
     T 
      = T      T      T       T  !    T  "    T 
     T 
     T 
     T 
     T 
      
  T  #    T  $   
 H   T      T 
     T 
     T 
       T      T  !    T  "    T 
     T 
     T 
     T 
     T 
      
  T  #    T       T  !    T  "    T  %    T 
     T 
     T 
     T 
     T 
     T 
     T 
 *    T 
 /    T 
 &    T 
 0    
 
g T  '    T      T 
     
  T  '    T  (   
 H  0 T      T 
     T 
     T 
     T 
       T       T  !    T 
     T 
     T 
     T 
     T 
      
  T  )    T      T 
     T 
     T 
     T 
     T 
 *    
 	 T  ,    T      T 
     T 
 *    T 
 +      U1  K
 MYSTRUKTUR	 BACKCOLOR I XXX ZUSCHLAG	 ZUSCHLAG1	 ZUSCHLAG2 M ZUSCHLAGIND
 EGRUPPEIND VGRUPPE	 VGRUPPE16 SSTUFE SSTUFE4 AUFSTIEG	 AUFSTIEG2	 VGRUPPE12	 AUFSTIEG0 SSTUFE6 SSTUFE8	 VGRUPPE10 SSTUFE1 SSTUFE2 SSTUFE3 SSTUFE5 SSTUFE7 VGRUPPE9 VGRUPPE6 VGRUPPE7
 VGRUPPEIND	 AUFSTIEG4	 AUFSTIEG5	 AUFSTIEG6	 AUFSTIEG8 VGRUPPE4 VGRUPPE5
 AUFSTIEG10 SSTUFE12 VGRUPPE3 VGRUPPE2 VGRUPPE1 SSTUFE9 SSTUFE10 VGRUPPE0	 VGRUPPE15	 VGRUPPE11 SSTUFE11 SSTUFE138 T      T        T C 
\: T C \CCCC \g8 ZC \
 T   T   	  2022 T   
   
   (9 T CC  Z* mystruktur.Monatspalte&xxx..value = ""
+ mystruktur.Gesamtspalte&xxx..value = ""
  
 ( T CC
  Z: mystruktur.Jahrspalte&xxx..Caption = STR(i + 2004,4,0)
 
 T   
  (  % C
   
 T 
    T     
 HM C 267M T       %  , CY   struk  T CC  \g T CC  
\g T CC  \g T CC  \g T CC  \g T CC  \g T CC  \g %  O
 T   T    T    T    T    % 
  	 T  ? T  C 
G %  & T C d! d{Gz? ; T C d! d  T  ? T  C 
G %  & T C d! d{Gz?  T C d! d   % 
 T   %   T    T"    %" N
 T"   
  ("  T CC
  Z %  Q mystruktur.Monatspalte&xxx..value = myformat(strukbetrag1, "#,###.00") + "  "
  % 
PQ mystruktur.Monatspalte&xxx..value = myformat(strukbetrag1, "#,###.00") + "  "
 H mystruktur.Monatspalte&xxx..value = myformat(ost1, "####.00") + "  "
    %  # (% T CC#  Z: mystruktur.Jahrspalte&xxx..Caption = STR(2005 + k,4,0)
  
  (" 5 T CC
  Z
 Hh1 
  F %  V mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 2, "#,###.00") + "  "
 BV mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 2, "#,###.00") + "  "
 ! 
   
 " 	2	 %  W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
 .	W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
  
 " 1 %  V
 %  	W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
 
W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
  T   	 	 dauerhaft T   
 C$  - %  
Y mystruktur.Gesamtspalte&xxx..Caption = myformat(strukbetrag1 * 10, "#,###.00") + "  "
 )Y mystruktur.Gesamtspalte&xxx..Caption = myformat(strukbetrag1 * 10, "#,###.00") + "  "
     %   T# "   %# y
 T#   
 " (#  T CC
  Z: mystruktur.Jahrspalte&xxx..Caption = STR(i + 2004,4,0)
  
 " (#  T CC
  Z %  Q mystruktur.Monatspalte&xxx..value = myformat(strukbetrag2, "#,###.00") + "  "
 Q mystruktur.Monatspalte&xxx..value = myformat(strukbetrag2, "#,###.00") + "  "
   T% CC"  Z %  d
V mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 2, "#,###.00") + "  "
 
V mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 2, "#,###.00") + "  "
  
 " (#  T CC
  Z %  `W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag2 * 12, "#,###.00") + "  "
 W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag2 * 12, "#,###.00") + "  "
   %# 
 T#   T% CC#  Z %  fQ mystruktur.Monatspalte&yyy..value = myformat(strukbetrag2, "#,###.00") + "  "
 Q mystruktur.Monatspalte&yyy..value = myformat(strukbetrag2, "#,###.00") + "  "
  %  +W mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 10, "#,###.00") + "  "
 W mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 10, "#,###.00") + "  "
   ( # ( T CC#  Z: mystruktur.Jahrspalte&xxx..Caption = STR(2004 + k,4,0)
  
  ("  T CC
  Z
 HE 
   %  V mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 3, "#,###.00") + "  "
  % 0V mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 3, "#,###.00") + "  "
 N mystruktur.Gesamtspalte&xxx..value = myformat(ost1 * 3, "#,###.00") + "  "
  ! 
   
 " 	 %  W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
  % W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
 O mystruktur.Gesamtspalte&xxx..value = myformat(ost1 * 12, "#,###.00") + "  "
   
 "  %  v %  tW mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
 ? % W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 12, "#,###.00") + "  "
 ;O mystruktur.Gesamtspalte&xxx..value = myformat(ost1 * 12, "#,###.00") + "  "
   T   	 	 dauerhaft T   
 C$   %  V mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 9, "#,###.00") + "  "
  % TV mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag1 * 9, "#,###.00") + "  "
 N mystruktur.Gesamtspalte&xxx..value = myformat(ost1 * 9, "#,###.00") + "  "
      %  $ T# "   %# 
 T#   
 " (n T CC
  Z: mystruktur.Jahrspalte&xxx..Caption = STR(i + 2003,4,0)
  %#  T   	 	 dauerhaft T   
 C$   
 " (#  T CC
  Z %  NQ mystruktur.Monatspalte&xxx..value = myformat(strukbetrag2, "#,###.00") + "  "
 
 % Q mystruktur.Monatspalte&xxx..value = myformat(strukbetrag2, "#,###.00") + "  "
 	I mystruktur.Monatspalte&xxx..value = myformat(ost2, "#,###.00") + "  "
    %   T% CC"  ZV mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 3, "#,###.00") + "  "
  % ! T% CC"  ZV mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 3, "#,###.00") + "  "
  T% CC"  ZN mystruktur.Gesamtspalte&yyy..value = myformat(ost2 * 3, "#,###.00") + "  "
   
 " (#  T CC
  Z %  4W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag2 * 12, "#,###.00") + "  "
  % W mystruktur.Gesamtspalte&xxx..value = myformat(strukbetrag2 * 12, "#,###.00") + "  "
 O mystruktur.Gesamtspalte&xxx..value = myformat(ost2 * 12, "#,###.00") + "  "
    %# %
 T#   %   T% CC#  ZQ mystruktur.Monatspalte&yyy..value = myformat(strukbetrag2, "#,###.00") + "  "
  % + T% CC#  ZQ mystruktur.Monatspalte&yyy..value = myformat(strukbetrag2, "#,###.00") + "  "
  T% CC#  ZI mystruktur.Monatspalte&yyy..value = myformat(ost2, "#,###.00") + "  "
   %  ! T% CC#  ZV mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 9, "#,###.00") + "  "
   %  T% CC#  ZV mystruktur.Gesamtspalte&yyy..value = myformat(strukbetrag2 * 9, "#,###.00") + "  "
  T% CC#  ZN mystruktur.Gesamtspalte&yyy..value = myformat(ost2 * 9, "#,###.00") + "  "
     u
 T  
 T  
 T  
 T  
 T   
 H    %  & ' (   )     %  & * (   +    (  %  & , (  $  -    ^  %  & . (  Z  /      %  & 0 (    1    % !Y T  2 	 F  2. TV-L Entgeltgruppe, in die am 1. November 2006 bergeleitet wurde: b!X T  2 	 E  2. TVD-Entgeltgruppe, in die am 1. Oktober 2005 bergeleitet wurde:  % =#
 T3 3  T  4 	  12a T  5 	  11b T  6 	  11a T  7 	  10a T  8 	  9d T  9 	  9c T  : 	  9b T  ; 	  9a T  < 	  8a T  = 	  7a T  > 	  4a T  ? 	  3a T  @ A    T  B    
 
(9# T CC
  Z3 mystruktur.Egruppe.egruppe&xxx..Visible = False
+ mystruktur.Enummer&xxx..Visible = False
  $ T  B 	  13 T  4 	  2 T  5 	  2 T  C 	  15 
 (,$ T CC
  Z: mystruktur.Enummer&xxx..Caption = ALLTRIM(STR(i,5,0)) 
* mystruktur.Enummer&xxx..Visible = True
  T  @ A    T  B    
 
($ T CC
  Z2 mystruktur.Egruppe.egruppe&xxx..Visible = True
* mystruktur.Enummer&xxx..Visible = True
   % (%, T  D 	  jeweils von Nov. bis Dez. ]%- T  D 	  jeweils von Okt. bis Sept.  T CC3  Z7 If mystruktur.egruppe.Egruppe&xxx..Value = Trued&C mystruktur.Egruppe.Egruppe&xxx..BackColor = hex2rgb("&HC0FFFF")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HC0FFFF")
7 mystruktur.SSFrame2.ForeColor = hex2rgb("&H808080")
 & T  2 E C$   %F  &
 TF A mystruktur.zuschlag.zuschlag1.BackColor = hex2rgb("&HEEEEEE")
 T  G H (    T CCF  Z9 If mystruktur.zuschlag.zuschlag&xxx..Value = Truex(D If mystruktur.zuschlag.zuschlag&xxx..BackColor = QBColor(15)(E mystruktur.zuschlag.zuschlag&xxx..BackColor = hex2rgb("&HC0FFFF")
7 mystruktur.SSFrame4.ForeColor = hex2rgb("&H808080")
 t(E mystruktur.zuschlag.zuschlag&xxx..BackColor = hex2rgb("&HEEEEEE")
 T  I E C$   ( T  I E C$   T CC  Z5 If mystruktur.Gebiet.gebiet&xxx..Value = True * %  )= mystruktur.Gebiet.gebiet0.BackColor = hex2rgb("&HC0FFFF")
 T  J K 
 C$ 7 mystruktur.SSFrame6.ForeColor = hex2rgb("&H808080")
 *= mystruktur.Gebiet.gebiet1.BackColor = hex2rgb("&HC0FFFF")
 T  J L 
 C$ 7 mystruktur.SSFrame6.ForeColor = hex2rgb("&H808080")
  ?* T  M E C$   T  & ' 
 C$  T  & * 
 C$  T  & , 
 C$  T  & . 
 C$  T CC  Z5 If mystruktur.Dienst.dienst&xxx..Value = Trueo+7 mystruktur.SSFrame3.ForeColor = hex2rgb("&H808080")
A mystruktur.Dienst.dienst&xxx..BackColor = hex2rgb("&HC0FFFF")
 + T  N E C$   T CCO  Z7 If mystruktur.vgruppe.vgruppe&xxx..Value = True,B If mystruktur.vgruppe.vgruppe&xxx..BackColor = QBColor(15),C mystruktur.vgruppe.vgruppe&xxx..BackColor = hex2rgb("&HC0FFFF")
7 mystruktur.SSFrame5.ForeColor = hex2rgb("&H808080")
 ,C mystruktur.vgruppe.vgruppe&xxx..BackColor = hex2rgb("&HDDDDDD")
  
- T  P E C$   T CCQ  Z9 If mystruktur.Aufstieg.Aufstieg&xxx..Value = True.D If mystruktur.Aufstieg.Aufstieg&xxx..BackColor = QBColor(15).E mystruktur.Aufstieg.Aufstieg&xxx..BackColor = hex2rgb("&HC0FFFF")
7 mystruktur.SSFrame8.ForeColor = hex2rgb("&H808080")
 .E mystruktur.Aufstieg.Aufstieg&xxx..BackColor = hex2rgb("&HDDDDDD")
 T  R E C$   . T  R E C$   T CCQ  Z T% CCS  Z5 If mystruktur.sStufe.sStufe&yyy..Value = True(0@ If mystruktur.sStufe.sStufe&yyy..BackColor = QBColor(15)/A mystruktur.sStufe.sStufe&yyy..BackColor = hex2rgb("&HC0FFFF")
7 mystruktur.SSFrame7.ForeColor = hex2rgb("&H808080")
 $0A mystruktur.sStufe.sStufe&yyy..BackColor = hex2rgb("&HDDDDDD")
 T  T E C$   G0 T  T E C$   %   0! T  J K 	  Ost = 92,5% T  U    0 T  J K 	  Ost T  U    % TV CC   Z  Jahre % 1 T   Jahr 71 T   Jahren  %  e1 TV   dauernd  %  1 TV   dauernd 7 T  W 	  nach CC  Z   fr V - %C  X Y ( 
   X Z   	72< T  [ 	 ) Ausgewiesene Aufstiegsflle haben Vorrang R2 T  [ 	     %CC  \ ( > C3 
 
(,3 T CC
  Z. mystruktur.Jahrspalte&xxx..Visible = False
/ mystruktur.Monatspalte&xxx..Visible = False
0 mystruktur.Gesamtspalte&xxx..Visible = False
  T  ]    3 
 (3 T CC
  Z- mystruktur.Jahrspalte&xxx..Visible = True
. mystruktur.Monatspalte&xxx..Visible = True
  T  ]     %V   dauernd}4 
 (f4 T CC
  Z0 mystruktur.Gesamtspalte&xxx..Visible = False
  T  ^    15 
 (5 T CC
  Z4 If mystruktur.Jahrspalte&xxx..Visible = True5/ mystruktur.Gesamtspalte&xxx..Visible = True
   T  ^     %  (6 
 (5 T CC
  Z- mystruktur.Jahrspalte&xxx..Visible = True
. mystruktur.Monatspalte&xxx..Visible = True
/ mystruktur.Gesamtspalte&xxx..Visible = True
  T  ^    T  ]     
 (7 T CC
  Z1 If mystruktur.Monatspalte&xxx..value = ""6? mystruktur.Monatspalte&xxx..BackColor = hex2rgb("&HEEEEEE")
 7? mystruktur.Monatspalte&xxx..BackColor = hex2rgb("&HC0FFFF")
 2 If mystruktur.Gesamtspalte&xxx..value = ""7@ mystruktur.Gesamtspalte&xxx..BackColor = hex2rgb("&HEEEEEE")
 7@ mystruktur.Gesamtspalte&xxx..BackColor = hex2rgb("&HC0FFFF")
   T      T      T  _ 
 C`  Ua 
 MYSTRUKTUR SSFRAME1 VISIBLE FALSE SSFRAME9
 SATZBILDEN MSG MSGHS JAHRSPALTE16 CAPTION	 BACKCOLOR J XXX I LISTEANFANG	 LISTEENDE
 STRUKTURLISTE AB2009 TRUE MYGET STRUKAB STRUK
 STRUKZEILE
 STRUKJAHRE STRUKBETRAG1 STRUKDANACH STRUKBETRAG2 OST1 OST2
 HALBIERIND	 DIENSTIND	 GEBIETIND REST FIX M K QBCOLOR YYY DIENST DIENST4 VALUE EGRUPPENBUND DIENST5 EGRUPPENLAND DIENST6 EGRUPPENVKA DIENST7
 EGRUPPENKR DIENST8 EGRUPPENNEUTRAL SSFRAME2
 EGRUPPEIND ENUMMER1 ENUMMER2 ENUMMER3 ENUMMER4 ENUMMER5 ENUMMER6 ENUMMER7 ENUMMER8 ENUMMER9	 ENUMMER10	 ENUMMER11	 ENUMMER12 EGRUPPE EGRUPPE0 ENUMMER0	 ENUMMER16	 MONATLICH	 FORECOLOR ZUSCHLAGIND ZUSCHLAG	 ZUSCHLAG1 SSFRAME4 GEBIET GEBIET1 GEBIET0 SSFRAME6 SSFRAME3
 VGRUPPEIND SSFRAME5 AUFSTIEGIND SSFRAME8 STUFEIND SSFRAME7 OSTANP MSG1 ERGEBNIS AUFSTIEG	 AUFSTIEG0	 AUFSTIEG5 KEINAUFSTIEG
 MONATSPALTE13 ZAHLUNGSENDE HHERGRUPPIERUNG	 SPEICHERN TVFARBE T   stCC  Z %  >  T  017 b  T  0CC  Z  T C R T      T CC  Z T      T CC  Z T      T  0CC  Z T C R T      T  0CC  Z T C R T      T  0CC  Z T C R T      T CC	  Z T      U
  MSG BERLEITUNGSINDEX
 EGRUPPEIND MSG1 ZUSCHLAGIND	 DIENSTIND
 VGRUPPEIND AUFSTIEGIND STUFEIND	 GEBIETIND T   stCC  Z %  >  T  017 y " T C 0C  \R T       T C  \ T      T CC  Z T      T C  \ T      T C  
\ T      T  0CC  Z T C R T      T CC  Z T      U	  MSG BERLEITUNGSINDEX
 EGRUPPEIND MSG1 WNW STRUKTUR	 DIENSTIND STUFEIND	 GEBIETIND 7     7       J  (    ! J  (      
 Hm   	 
  a  	 
  b  T  Herrn 	 
  c  T  Frau 	 
  d  T  Frulein : T  - Festsetzung des Strukturausgleichs nach  12 
 HD  p T    
 TV-Lnder   T     TV-Bund C  T     TV-VKA  T C
 C
 N T  9 Ihr BAT-Beschftigungsverhltnisses wurde mit Wirkung ab   % ] T  H 1. November 2006 in den Tarifvertrag fr die Lnder (TV-L) bergeleitet. K T  : Daraus haben Sie Anspruch auf folgenden Strukturausgleich: X T  C 1. Oktober 2005 den Tarifvertrag fr den ffentlichen Dienst (TVD) Y T  H bergeleitet. Daraus haben Sie Anspruch auf folgenden Strukturausgleich: 
 T
    (`	 T CC  Z> If Len(Alltrim(mystruktur.Monatspalte&xxx..value)) > 0\	? an_sp1 = an_sp1 + mystruktur.Jahrspalte&xxx..Caption + crlf
Y an_sp2 = an_sp2 + Right(Alltrim(mystruktur.Monatspalte&xxx..value) + " ", 10) + crlf
Z an_sp3 = an_sp3 + Right(Alltrim(mystruktur.Gesamtspalte&xxx..value) + " ", 10) + crlf
, Msg = mystruktur.Gesamtspalte&xxx..value
 T
 C   .  %
  & T C 
 C C >
 R  T
 C   ,  %
  + T C 
  .C C >
 R , msg1 = mystruktur.Monatspalte&xxx..value
 T
 C   . , msg1 = mystruktur.Monatspalte&xxx..value
 T
 C   ,  %
  + T C 
  .C C >
 R  % J If .Not. alltrim(mystruktur.Jahrspalte&xxx..Caption) = "dauerhaft" T C gC g
 H#  \( T       (Nov. bis Dez.)   
( T       (Jan. bis Okt.) J         		    	 T      G	J If .Not. ALLTRIM(mystruktur.Jahrspalte&xxx..Caption) = "dauerhaft"C	 T CC gC g 
 Hp?	  ( T       (Okt. bis Dez.)   	) T       (Jan. bis Sept.) K     	    	  
  	?	 T       T
 
    %
  	) T   (Kein Strukturausgleich) 7 T  " Dieser Festsetzung liegt folgender % T   Status zugrunde:  % B
3 T  " berleitung in TV-L Entgeltgruppe  }
3 T  " berleitung in TVD-Entgeltgruppe   % W
 H
S  
 T   3a  
 T   4a   T   7a  / T   8a  	S T   9a  
w T   9b   T   9c   T   9d  
 T   10a  	 T   11a  . T   11b  S T   12a  <

 Hl8
    T   13    T   2   T   2     	
 T  CC  Z  8
 T   15    T    T CC  Zd an_sp_text = an_sp_text + "Tarifgebiet " + ALLTRIM(mystruktur.gebiet.Gebiet&xxx..Caption) + crlf
 T CC  Zi an_sp_text = an_sp_text + "Ortszuschlag " + ALLTRIM(mystruktur.zuschlag.zuschlag&xxx..Caption) + crlf
 %  % : T  % Ehegatte nicht im ffentlichen Dienst  4 T   Ehegatte im ffentlichen Dienst    T CC  Zk an_sp_text = an_sp_text + "Vergtungsgruppe " + ALLTRIM(mystruktur.vgruppe.Vgruppe&xxx..Caption) + crlf
 T CC  Zf an_sp_text = an_sp_text + "Aufstieg: " + ALLTRIM(mystruktur.Aufstieg.Aufstieg&xxx..Caption) + crlf
 T CC  Z] an_sp_text = an_sp_text + "Altersstufe " + ALLTRIM(mystruktur.sStufe.sStufe&xxx..Caption)
r T  ] Es hngt vom weiteren Verlauf Ihres Beschftigungsverhltnisses und von knftigen tariflichen e T  P Regelungen ab, ob und wie lange der Strukturausgleich tatschlich zu zahlen ist. ^ T  I Bei Hhergruppierungen wird der Unterschiedsbetrag zum bisherigen Entgelt ; T  & auf den Strukturausgleich angerechnet. W T  B Bei Teilzeitbeschftigung steht der Strukturausgleich anteilig zu. Z T  E Der Strukturausgleich folgt nicht der allgemeinen Gehaltsentwicklung.  %    xj T  U Wenn der Wegfall des Strukturausgleichs nicht mit einem Stufenaufstieg zusammenfllt, w T  b wird er bis zum nchsten Stufenaufstieg weitergezahlt, nicht jedoch beim Aufstieg in die Endstufe.   T  C W h dummy"  C F!   [ F!  #) %C#  & ? struktur_druck(!"9 x % &  T% 
 V% 3 T' C MyInWindowFixer preview_fixer.prg
 %  T( 
 Druckvorschau T) a T*  T+  T, -  T. /  T0   T1   T2 a  C ' % 3  T& C ReportListener T& 4  T& 5 % ) ? struktur_druck9.&  <&  <%   F!  Q
 F   <     <       U6  1 2
 DITEXT_ANREDE AN_SP1 AN_SP2 AN_SP3 AN_SP4
 AN_SP_TEXT
 AN_SP_SCHLUSS WNW ANREDE	 DIENSTIND CRLF K I XXX ISINSTR MSG MSG1 J FIX
 EGRUPPEIND	 GEBIETIND ZUSCHLAGIND
 HALBIERIND
 VGRUPPEIND AUFSTIEGIND STUFEIND
 MYSTRUKTUR ZAHLUNGSENDE VISIBLE TRUE	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ STRUKTUR_DRUCK LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER~  T      T  0  T C R T      T  0  T C R T      U  MSG ZUSCHLAGIND MSG1
 VGRUPPEIND AUFSTIEGIND    (a  T CC   Z3 mystruktur.vgruppe.vgruppe&xxx..Visible = False
 
 Hr  C   T    
 Verg.Gr. I! T     Verg.Gr. Ia! T     Verg.Gr. Ib" T  	   Verg.Gr. IIa" T  
   Verg.Gr. IIb" T     Verg.Gr. III" T     Verg.Gr. IVa" T  
   Verg.Gr. IVb! T     Verg.Gr. Va& T     Verg.Gr. Vb g.D.! T     Verg.Gr. Vb! T     Verg.Gr. Vc" T     Verg.Gr. VIa" T     Verg.Gr. VIb" T     Verg.Gr. VII( T     Verg.Gr. VIII m.D.# T    
 Verg.Gr. VIII" T     Verg.Gr. IXa" T     Verg.Gr. XIb  T    
 Verg.Gr. X    ( T CC   Z2 mystruktur.vgruppe.vgruppe&xxx..Visible = True
  T      T           T    
 Verg.Gr. I! T     Verg.Gr. Ia! T     Verg.Gr. Ib! T  	   Verg.Gr. II" T  
   Verg.Gr. III" T     Verg.Gr. IVa" T     Verg.Gr. IVb! T  
   Verg.Gr. Vb& T     Verg.Gr. Vb m.D.! T     Verg.Gr. Vc" T     Verg.Gr. VIb" T     Verg.Gr. VII# T    
 Verg.Gr. VIII( T     Verg.Gr. VIII e.D." T     Verg.Gr. IXa! T     Verg.Gr. XI  T    
 Verg.Gr. X    ( T CC   Z2 mystruktur.vgruppe.vgruppe&xxx..Visible = True
  T      T        T     Kr. I T     Kr. II T     Kr. III T  	   Kr. IV T  
   Kr. V T     Kr. Va T     Kr. VI T  
   Kr. VII T     Kr. VIII T     Kr. IX T     Kr. X T     Kr. XI T     Kr. XII T     Kr. XIII    (
 T CC   Z2 mystruktur.vgruppe.vgruppe&xxx..Visible = True
     U  I XXX	 DIENSTIND
 MYSTRUKTUR VGRUPPE VGRUPPE0 CAPTION VGRUPPE1 VGRUPPE2 VGRUPPE3 VGRUPPE4 VGRUPPE5 VGRUPPE6 VGRUPPE7 VGRUPPE8 VGRUPPE9	 VGRUPPE10	 VGRUPPE11	 VGRUPPE12	 VGRUPPE13	 VGRUPPE14	 VGRUPPE15	 VGRUPPE16	 VGRUPPE17	 VGRUPPE18	 VGRUPPE19 VISIBLE FALSE
 T      (l  T CC  Z1 mystruktur.sStufe.sStufe&xxx..Visible = False
    (  T CC  Z5 mystruktur.Aufstieg.Aufstieg&xxx..Visible = False
   (^ T CC  ZY mystruktur.Aufstieg.Aufstieg&xxx..Caption = "nach " + ALLTRIM(STR(i,5,0)) + " Jahren"
  T         T        
 H C	 V T  
   ohne
 H C  
 T
 
 T / C J
 T
 
 T -    
	
 T
 
 T -  
 T
 
 T )  
 T
 
 T 1 C 

 T
 
 T + C 5
 T
 
 T ' C g
 T
 
 T %    	
 T
 
 T % 
 T     
 ( } T CC   ZY mystruktur.sStufe.sStufe&xxx..Caption = "ab " + ALLTRIM(STR(i,5,0)) + ". Lebensjahr" 
0 mystruktur.sStufe.sStufe&xxx..Visible = True
 T     
 HI             	
 T    C 
	
 T    K
 T  $ T     nach 15 Jahren  i
 T  
 C 	
 T    
 T      (   T CC  Z4 mystruktur.Aufstieg.Aufstieg&xxx..Visible = True
  %   R T      T     Ja  	 g 	 " T  
   mit und ohne
 T
 
 H C  
 T 3    	    

 T   4
 T 3    	  
  t
 T 
 C 	
 T 	  
 T    
 ( g T CC  ZJ mystruktur.sStufe.sStufe&xxx..Caption = "Stufe " + ALLTRIM(STR(i,5,0))
0 mystruktur.sStufe.sStufe&xxx..Visible = True
  % &
 H"  W	 % 	* T     Stufe 5 der VGr. III) T     Stufe 5 der VGr. II T       % 
S	* T     Stufe 6 der VGr. III   "
 Hu	  	* T     Stufe 4 der VGr. III) T     Stufe 4 der VGr. II T       i
* T     Stufe 4 der VGr. III) T     Stufe 4 der VGr. II T       
* T     Stufe 5 der VGr. III  
* T     Stufe 6 der VGr. III) T     Stufe 6 der VGr. II T        
 H74     	    	x
 T    C 
 T    
 T  
 C 
 T    
 T    
 T      (  | T CC  Z4 mystruktur.Aufstieg.Aufstieg&xxx..Visible = True
  	 " T  
   mit und ohne   (/
 T CC  ZN mystruktur.sStufe.sStufe&xxx..Caption = "Stufe " + ALLTRIM(STR(i + 1,5,0))
 
 T
  
 T    ( 
 
 T CC  Z0 mystruktur.sStufe.sStufe&xxx..Visible = True
    ( T CC  Z4 mystruktur.Aufstieg.Aufstieg&xxx..Visible = True
 % %       	a# T    
 V=4J,Va=2J,VI # T    
 nach 4 Jahren  % % T     II=2J,III=4J,IV # T    
 nach 2 Jahren  % )# T    
 IV=2J,V=4J,Va  % - T     Hebamme IV=1J, V=4J, Va4 T     Altenpflegerin IV=3J, V=4J, Va T    F T    F T      T      W T       T       T       T        % % T     II=2J,III=4J,IV  	   %  < T !  ) Ausgewiesene Aufstiegsflle haben Vorrang  T !      U"  J I XXX
 MYSTRUKTUR AUFSTIEG	 AUFSTIEG8 HEIGHT	 AUFSTIEG1
 AUFSTIEG10	 DIENSTIND	 AUFSTIEG0 CAPTION
 VGRUPPEIND
 WORTANFANG WORTENDE
 AUFSTIEG12 VISIBLE TRUE ZUSCHLAGIND AUFSTIEGIND SSTUFE SSTUFE4 SSTUFE12 SSTUFE5 SSTUFE3 SSTUFE11 SSTUFE13 EGRUPPE EGRUPPE9 VALUE	 AUFSTIEG4	 AUFSTIEG2 FALSE KEINAUFSTIEG   Q INTEGER T CC   Z2 mystruktur.Aufstieg.Aufstieg&xxx..Value = True

 T    %      T      T CC  Z= mystruktur.Aufstieg.Aufstieg&xxx..BackColor = QBColor(15)
   	  
  U  MYINDEX XXX AUFSTIEGIND
 MYSTRUKTUR SSFRAME4 VISIBLE FALSE TRUE GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN T      C
    wnw 
 T    (  T CC  Z/ mystruktur.Dienst.dienst&xxx..Value = False
A mystruktur.Dienst.Dienst&xxx..BackColor = hex2rgb("&HEEEEEE")
    ( T CC  Z1 mystruktur.Egruppe.Egruppe&xxx..Value = False
C mystruktur.Egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
    (T T CC  Z/ mystruktur.Gebiet.Gebiet&xxx..Value = False
9 mystruktur.Gebiet.Gebiet&xxx..BackColor = QBColor(15)
   ( T CC  Z3 mystruktur.zuschlag.zuschlag&xxx..Value = False
= mystruktur.zuschlag.zuschlag&xxx..BackColor = QBColor(15)
    ( T CC  Z1 mystruktur.vgruppe.vgruppe&xxx..Value = False
C mystruktur.vgruppe.vgruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
    (F T CC  Z3 mystruktur.Aufstieg.Aufstieg&xxx..Value = False
E mystruktur.Aufstieg.Aufstieg&xxx..BackColor = hex2rgb("&HEEEEEE")
    ( T CC  Z/ mystruktur.sStufe.sStufe&xxx..Value = False
A mystruktur.sStufe.sStufe&xxx..BackColor = hex2rgb("&HEEEEEE")
 
 T 	  
      
    U 
 FILENEUALT
 MYSTRUKTUR COMBO1	 LISTINDEX MYGET	 STARTFLAG TRUE I XXX FALSE STRUKTURDATENHOLEN LISTESTARTEN GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN !   Q INTEGER Q INTEGER
 T    T CC   Z. mystruktur.dienst.Dienst&xxx..Value = True
         U  MYINDEX VALUE	 DIENSTIND XXX LISTESTARTEN GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN
     U  STRUKTURDRUCKEN	!   Q INTEGER Q INTEGER T CC   Z0 mystruktur.egruppe.Egruppe&xxx..Value = True
   ( T CC  Z %   %C mystruktur.egruppe.Egruppe&xxx..BackColor = hex2rgb("&HC0FFFF")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HC0FFFF")
 C mystruktur.egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
1 mystruktur.egruppe.Egruppe&xxx..Value = False
  
 T          U  MYINDEX VALUE XXX I
 EGRUPPEIND GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN   Q INTEGER T CC   Z) mystruktur.egruppe.Egruppe&xxx..value
   ( T CC  Z %   C mystruktur.egruppe.Egruppe&xxx..BackColor = hex2rgb("&HC0FFFF")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HC0FFFF")
 C mystruktur.egruppe.Egruppe&xxx..BackColor = hex2rgb("&HEEEEEE")
; mystruktur.Enummer&xxx..BackColor = hex2rgb("&HEEEEEE")
1 mystruktur.egruppe.Egruppe&xxx..Value = False
  
 T          U  MYINDEX XXX I
 EGRUPPEIND GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN    Q INTEGER T CC   Z. myStruktur.gebiet.Gebiet&xxx..Value = True
 %      T     
 T      	  
  U  MYINDEX XXX
 MYSTRUKTUR SSFRAME3 VISIBLE FALSE TRUE	 GEBIETIND GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN  %     
 T 
 T  T      9 mystruktur.Halbierung.BackColor = hex2rgb("&HC0FFFF")
  
 T  T    C	   
  U 
 MYSTRUKTUR
 HALBIERUNG VALUE
 HALBIERIND ZUSCHLAGIND ZUSCHLAG	 ZUSCHLAG2 TRUE	 BACKCOLOR QBCOLOR STRUKTURBERECHNEN7 
 T  n  T  S/Strukturausgleich   U  INET MSG INSINTERNET
 
     U 
 MYSTRUKTUR RELEASED    : myStruktur.Speichern.BackColor = hex2rgb("&H8000000F")
 U  STRUKTURAUSGLEICHSPEICHERN 
 H
     <  T  157 T    k  T  154 T       	  T  141 T     U 	 DIENSTIND INET MYLINK INSINTERNET    Q INTEGER T CC   Z. mystruktur.sStufe.sStufe&xxx..value = True

 T    %      T        	  
  U  MYINDEX XXX STUFEIND
 MYSTRUKTUR SSFRAME9 VISIBLE FALSE TRUE GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN
 H
     <  T  157 T    k  T  154 T      T  141 T      T  141 T      T  141 T     U 	 DIENSTIND INET MYLINK INSINTERNET    Q INTEGER T CC   Z0 mystruktur.vgruppe.vgruppe&xxx..Value = True

 T    %      T        	  
  U  MYINDEX XXX
 VGRUPPEIND
 MYSTRUKTUR SSFRAME8 VISIBLE FALSE TRUE GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN*    T   C  \ %   	O 
 T   % q 
 T  ) T  C  \CC  Z T C 0C ZR T  C 0C ZR T  C 0C ZR T 	   C
   wnw
  T  st U
  SATZZUMSPEICHERN WNW STRUKTUR MSG ZUSCHLAGIND
 HALBIERIND
 EGRUPPEIND
 VGRUPPEIND AUFSTIEGIND STRUKTURREST MYPUT
 FILENEUALT STRUKTURFLOP    Q INTEGER %  C 
 T  T      T CC   Z2 myStruktur.zuschlag.zuschlag&xxx..value = True

 T    %   	   T   
       
  U  MYINDEX
 HALBIERIND
 MYSTRUKTUR
 HALBIERUNG VALUE XXX ZUSCHLAGIND SSFRAME7 VISIBLE FALSE TRUE GRUPPENHOLEN STUFENHOLEN STRUKTURBERECHNEN3
 H
     8 
 T 
 T    e  T G T 7    
 T  T      T  T F 
 T    ( , CY   struk  T  C  
 T    U	 	 DIENSTIND LISTEANFANG	 LISTEENDE J I MYGET
 STRUKTURLISTE STRUK
 STRUKZEILE strukturdatenholen,      egruppenbund    
 egruppenKR"     egruppenland8     egruppenneutralUV     egruppenVKAX     strukturberechnens    
 satzbildenۯ     satzzumspeichern     strukturdrucken     struktursatz     gruppenholen     stufenholenm     struktur_Aufstieg_click     struktur_Combo1_ClickL     struktur_Dienst_Click     Struktur_Drucken_Click     Struktur_Egruppe_Click"     Struktur_Enummer_Click     Struktur_Gebiet_click     struktur_Halbierung_Click     Struktur_Hilfe_Click     struktur_Schlieen_Clicko     struktur_Speichern_Click     struktur_ssCommand1_Click     Struktur_SStufe_click     struktur_TVVKA_Click     Struktur_Vgruppe_click'     strukturausgleichspeichernK     Struktur_zuschlag_click     listestarten    p1  aA  A d  A " A "  A "  A "  A  A    q A A     A  qArAra A q A qarrAA         A 4 qrqA bar q1q1A A rq1A rqA aa  aa aaaaabaaaaabD aa aaabcaaacaA aa aaaaaaaaA abaaaabaaaaaaa babaaaabaaaabcaaA aa aabbaaaabaA E  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaabaaA aa aaaabaaaabaaaA aa aaaaaaaaaaaaA abaaabaaaaaaaaaaaaa babaaaaaaaaaaacaaaA aa aaabaaaabaaA aaaaA A 3 rqA bars1E rq1A rqA aa  acaaaa acaacaB aa dbcaaaacacaB aa cababcaaaaaA acbaaaa caaaacbaB acbaaacbacaaacbaacaaE  acabaaa aaaaaaaaaaaaA aa dbaaaaaaaacaaaaaaA aa caaaaaaacaabB acaaaa cabaacaaaaA acaaaacaaaaacaaaaacaaacaabaA A 3 qrqA bar q1q1A A rq1A rqA aa  aaaaaaaaaaaaaa aaaaabaaaabD aa aaabcaaacaA aaa aaaaaacaaaaaA adaabababaaaa bacbcaaabcaaA aa aabbaabbaA F  aaaacaaaaabaaaaaabaaaaaa1abaaaaaaabaaaa aaaaaaaabaaaaabaaA aa aaaabaaaabaaaA aaa aaaaaaaaaA adaabaaaaaaaaaaaaaaaa bacacaaaaacaaaA aa aaabaaA abaaA A 3 rqA barq1A rqA 4 rqA bar q1q1A A rq1A rqA aa  bkcacgbacdaaaaaaaacgaaaaaaaa cbceaaaaacB boaaaaa cbccaabcA acaaababdacbaa aabaaaabB acabaaaacbC  aa bacaaaaaA accaaaaaaaabcaaaaacdaaaaaaaacgaaaaaaaa cabacbaaaaaaaaB aa baaaadaaaaaaaaaA aa cabacaaaaaaaA acaaaaaaaaaaaaaacaaa aaaaaaaaaaaaA acaaaaaacabaA A 3 11r R qarqA rqA  q A A 2 1A  A qa A ra A A  A RA R A q  A A A qqA q Qa aA q qA Qq qA q  A A A A  A qB q A A a aA qq qA A  A  A q qA A  qqA q Qa a A A q q A A Qq q A A q a a A A A A A  A qB qA q  A A A a a A A qq q A A A  A   A A a a A A A A       A  q A q A q A q A q A A  A  aaaaQQQQQQQQa1rq1A  bAQarqA b1rq!A A  A qq1r qA  aA rAQq QqA  qA rQq qA  qA rQq qA rq!1q 1A  qA rAQq QqA  qA rqQq qA  qA 1 1A R! AA RQA RQA r 1A qqA 1 qqA 1A qqA 1 qqAA A 2A qqA 21A rq A ! A A 213  A "qq!!!q3  !A q!q3  Q  QQ!QQQA  QA Q A  qqbaA bA aaA Q B A   B A A A A A rS1 1A  11111111AAAAA   Q!AQA A qAr AA A qrar'QqrqA  q Q A r Q "a    2         A r q A r A   3 !!!!3 qq1B  Q!!!!!a!!!1!!qq!A aa!!!a!!1!rq!A barq!A D 3  qqA rqQA rqA  Q   R        R  R      A  qA     A R  A rqAA aA "  Q 2  2   A rA  aA A  aaaA A A  A R  R   A rqAA "rqA   qA rqAA R1 1A Q 1A 1A Aaaaa aaaaA RA B  1A 3 !q! r1A qq q q 3 rq rqA rq1B rqA rq1A rq1A rq1QA rqA  r q q q q 3  qr q q r 9 q 3 qrq1 1A A  q q q > !qrq1 1A A  q q q 1 !qq1A  r q q 3 q  a  qA r 3  r 3  3 q 3     A r 6 !q r1A r q q 6       A r 4 !q r1A r q q 3 q  A  A q 3 ! 1A q! r1A r q q 3          A  rA 1                           Z     ?P       bP  ދ  ;                      @.   2  j. z   S  z ]~ 
  k  ~  
    ́  
  J  
    R  ީ       Q u  j	  ^  
  w	  P w 
  	    
  	    
  	    
  	      	    W  	   % g  	  [  u  	    |  	  (    	      
   u   
      !
      ,
   4   <
  A    K
  
    0$   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5V20XJM7Y1362001122 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5V20XJM7Z           9  1                          62709.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V20XJM80           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V20XJM81           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V20XKB7Z1362001138 8  0       13750.00063020.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5V20XKB801362001138 8  0       11666.667 2187.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB811362001138 8  0       13750.000 2187.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB821362001138 8  0       13750.00069583.333 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5V20XKB831362001138 8  0       26770.833 2187.500 2187.50075937.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB841362001138 8  0       15833.333 2187.500 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB851362001138 8  0       17916.667 2187.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB861362001138 5  0        16979.16763125.000 1458.333 8750.000                               -1   -1   -1   -1   -1   -1               !     0  8  1       FFFTF  F          0T                      1FTT0 0F"        WINDOWS _5V20XKB871362001138 8  0    #   19895.833 2187.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               $     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5V20XKB881362001138 8  0    %   21770.833 2187.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               &     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F'        WINDOWS _5V20XKB891362001138 8  0    (   23333.333 2187.500 1666.66727187.500                   C           -1   -1   -1   -1   -1   -1               )     0  8  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F*        WINDOWS _5V20XPHTJ1362001270 8  0    +   30208.333 2187.500 5104.16775312.500                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FTFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V20XRO321362001324 5  0    -   36770.833 6145.833 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               .     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V20XRSQC1362001325 5  0    /   36770.83328750.000 1666.667 5833.333                               -1   -1   -1   -1   -1   -1               0     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V20XS1YP1362001331 5  0    1   36770.83349270.833 1666.667 4375.000                               -1   -1   -1   -1   -1   -1               2     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V20XSJU71362001344 6           38854.167 3854.167  104.16775000.000                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V20XSZBW1362001357 8  0    3   39479.167 6145.833 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               4     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XT5S61362001358 8  0    5   39479.16725937.500 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               6     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XTFRU1362001365 8  0    7   39479.16745312.500 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XVEBM1362001415 8  0    9   39479.16761770.833 1875.00016562.500                   C           -1   -1   -1   -1   -1   -1               :     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XWD011362001448 8  0    ;   42708.333 2187.500 1875.00035208.333                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V20XX5B91362001464 5  0    =   42812.50045729.167 1666.66719375.000                               -1   -1   -1   -1   -1   -1               >     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V20XXYC01362001478 6           48854.16745729.167  104.16733020.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V20Y0PXF1362001549 5  0    ?   51145.833 2291.667 1666.667 6458.333                               -1   -1   -1   -1   -1   -1               @     1 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V20Y17H81362001558 8  0    A   52812.500 2187.500 6875.00075312.500                   C           -1   -1   -1   -1   -1   -1               B     0 10  1 0     TTFFF  F          0T         0       0 1  1FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   C     0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   D     0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   E     1 12                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   F     0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   G     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   H     1 10                                                     F               WINDOWS                     25   I   J                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
ditext_anrede                                                 Arial                                                         myform1.z0.Caption                                            Arial                                                         '"Dienstanschrift:"'                                          Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext5)                                           Arial                                                         Alltrim(wnw.ztext7)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext6)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  2                                                            Arial                                                         "Kalenderjahr"                                                Arial                                                         "monatlich"                                                   Arial                                                         	"im Jahr"                                                     Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         an_sp4                                                        Arial                                                         
an_sp_text                                                    Arial                                                         #"Sachlich richtig und festgesetzt:"                           Arial                                                         "Hinweise:"                                                   Arial                                                         
an_sp_schluss                                                 Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         
ditext_anrede                                                 Arial                                                         myform1.z0.Caption                                            Arial                                                         '"Dienstanschrift:"'                                          Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext5)                                           Arial                                                         Alltrim(wnw.ztext7)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  Alltrim(wnw.ztext6)                                           Arial                                                         Len(Alltrim(wnw.ztext7)) > 0                                  2                                                            Arial                                                         "Kalenderjahr"                                                Arial                                                         "monatlich"                                                   Arial                                                         	"im Jahr"                                                     Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         an_sp4                                                        Arial                                                         
an_sp_text                                                    Arial                                                         #"Sachlich richtig und festgesetzt:"                           Arial                                                         "Hinweise:"                                                   Arial                                                         
an_sp_schluss                                                 Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5V30UMWNW1362063923 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5V30UMWNX           9  1                          43334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V30UMWNY           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V30UMWNZ           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V30UN22G1362063927 8  0        6250.00061875.000 2083.33316979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5V30UN22H1362063927 8  0        4166.667 3229.167 2083.33326979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5V30UN22I1362063927 8  0        6666.667 3229.167 2083.33326875.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5V30UN22J1362063927 8  0        6250.00064270.833 2083.33314479.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5V30UN22K1362063927 5  0       11562.500 3229.167 2083.33328645.833                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5V30UN22L1362063927 8  0       13645.833 3229.167 2187.50075312.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V30UW0RQ1362064152 8  0       17708.333 3229.167 2291.66738125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V30UWNEE1362064166 8  0        17708.33343125.000 2291.66714895.833                   C           -1   -1   -1   -1   -1   -1               !     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5V30UZCCW1362064233 8  0    "   17708.33359791.667 2291.66718750.000                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   $     0 10                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                   %     0 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   &     1 12                                                     F               WINDOWS                     25   '   (                                                        F                                                                                                                      F                 L   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                !"Anpassung von BDA-Besitzstnden"                             Arial                                                         1                                                            Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                !"Anpassung von BDA-Besitzstnden"                             Arial                                                         1                                                            Arial                                                         an_sp1                                                        Arial                                                         an_sp2                                                        Arial                                                         an_sp3                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0B   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5V50VF2YN1362195696 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          1T    F T  0       0 1  0TTT0 0F        WINDOWS _5V50VF2YO           9  1                          57813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V50VF2YP           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V50VF2YQ           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5V50VGGK01362195731 8  0        4270.83360937.500 2083.33316979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5V50VGGK11362195731 8  0        2187.500 2291.667 2083.33326979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5V50VGGK21362195731 8  0        4687.500 2291.667 2083.33326875.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5V50VGGK31362195731 8  0        4270.83363333.333 2083.33314479.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5V50VGVAE1362195740 5  0        8750.000 1979.167 2083.33346145.833                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5V50VGVAF1362195740 8  0       11041.667 1979.167 2187.50043125.000                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V50VJ9SH1362195803 8  0        8854.16748854.167 1875.000 5208.333                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5V50VKTIE1362195840 8  0        14479.167 1979.167 2187.50059166.667                   C           -1   -1   -1   -1   -1   -1               !     0 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V50VLOQG1362195860 8  0    "   18958.333 2083.333 2187.50033750.000                   C           -1   -1   -1   -1   -1   -1               #     1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V50VM7XM1362195875 8  0    $   18958.33342083.333 2187.50033750.000                   C           -1   -1   -1   -1   -1   -1               %     1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V50VN4OB1362195899 8  0    &   24062.500 2812.500 1875.000 3645.833                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F(        WINDOWS _5V50VOB531362195928 5  0    )   21979.167 2708.333 1666.667 3750.000                               -1   -1   -1   -1   -1   -1               *     0 10  1       FFFTF  F          0T                      0FTT0 0F+        WINDOWS _5V50VOKWJ1362195932 5  0    ,   21979.16712083.333 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               -     0 10  1       FFFTF  F          0T                      0FTT0 0F.        WINDOWS _5V50VOZZY1362195944 5  0    /   21979.16723541.667 1666.667 1666.667                               -1   -1   -1   -1   -1   -1               0     0 10  1       FFFTF  F          0T                      0FTT0 0F1        WINDOWS _5V50VPF8Z1362195954 5  0    2   21979.16730729.167 1666.667 4583.333                               -1   -1   -1   -1   -1   -1               3     0 10  1       FFFTF  F          0T                      0FTT0 0F4        WINDOWS _5V50VQBRU1362195977 8  0    5   24062.500 9687.500 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               6     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F7        WINDOWS _5V50VQOUV1362195985 8  0    8   24062.50022083.333 1875.000 4895.833                   C           -1   -1   -1   -1   -1   -1               9     0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F:        WINDOWS _5V50VR7851362195997 8  0    ;   24062.50027500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F=        WINDOWS _5V50VS7G11362196023 8  0    >   24062.50043020.833 1875.000 3645.833                   C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0F@        WINDOWS _5V50VS7G21362196023 5  0    A   21979.16742916.667 1666.667 3750.000                               -1   -1   -1   -1   -1   -1               B     0 10  1       FFFTF  F          0T                      0FTT0 0FC        WINDOWS _5V50VS7G31362196023 5  0    D   21979.16752291.667 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               E     0 10  1       FFFTF  F          0T                      0FTT0 0FF        WINDOWS _5V50VS7G41362196023 5  0    G   21979.16763750.000 1666.667 1666.667                               -1   -1   -1   -1   -1   -1               H     0 10  1       FFFTF  F          0T                      0FTT0 0FI        WINDOWS _5V50VS7G51362196023 5  0    J   21979.16770937.500 1666.667 4583.333                               -1   -1   -1   -1   -1   -1               K     0 10  1       FFFTF  F          0T                      0FTT0 0FL        WINDOWS _5V50VS7G61362196023 8  0    M   24062.50049895.833 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               N     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0FO        WINDOWS _5V50VS7G71362196023 8  0    P   24062.50062291.667 1875.000 4895.833                   C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     FTFTF  F          0T         2       0 1  0FTT0 0FR        WINDOWS _5V50VS7G81362196023 8  0    S   24062.50067708.333 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               T     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0FU        WINDOWS _5V50VTHGO1362196054 6           23645.833 2083.333  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTT0 0FV        WINDOWS _5V50VTLQI1362196057 6           23645.83342291.667  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0FW        WINDOWS _5V50VU6D91362196073 8  0    X   31041.667 2083.333 2187.50033750.000                   C           -1   -1   -1   -1   -1   -1               Y     1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5V50VU6DA1362196073 8  0    Z   36145.833 2812.500 1875.000 3645.833                   C           -1   -1   -1   -1   -1   -1               [     0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0F\        WINDOWS _5V50VU6DB1362196073 5  0    ]   34062.500 2708.333 1666.667 3750.000                               -1   -1   -1   -1   -1   -1               ^     0 10  1       TFFFF  F          0T                      0FTT0 0F_        WINDOWS _5V50VU6DC1362196073 5  0    `   34062.50012083.333 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               a     0 10  1       TFFFF  F          0T                      0FTT0 0Fb        WINDOWS _5V50VU6DD1362196073 5  0    c   34062.50023541.667 1666.667 1666.667                               -1   -1   -1   -1   -1   -1               d     0 10  1       TFFFF  F          0T                      0FTT0 0Fe        WINDOWS _5V50VU6DE1362196073 5  0    f   34062.50030729.167 1666.667 4583.333                               -1   -1   -1   -1   -1   -1               g     0 10  1       TFFFF  F          0T                      0FTT0 0Fh        WINDOWS _5V50VU6DF1362196073 8  0    i   36145.833 9687.500 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fk        WINDOWS _5V50VU6DG1362196073 8  0    l   36145.83322083.333 1875.000 4895.833                   C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     TTFFF  F          0T         2       0 1  0FTT0 0Fn        WINDOWS _5V50VU6DH1362196073 8  0    o   36145.83327500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     TTFFF  F          0T         1       0 1  0FTT0 0Fq        WINDOWS _5V50VU6DI1362196073 6           35729.167 2083.333  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0Fr        WINDOWS _5V50W0Q381362196242 5  0    s   42604.167 3020.833 1666.66748020.833                               -1   -1   -1   -1   -1   -1               u     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5V50W14N51362196245 6           48541.667 3229.167  104.16729062.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V50W19RC1362196248 6           48541.66743125.000  104.16729062.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V50W2XN51362196291 6           26354.167 2083.333  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0Fv        WINDOWS _5V50W43OC1362196322 8  0    w   26875.000 2812.500 1875.000 3750.000                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0Fy        WINDOWS _5V50W4QYE1362196335 8  0    z   26770.83327500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               {     0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F|        WINDOWS _5V50W5HKY1362196482 6           38437.500 2083.333  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F}        WINDOWS _5V50W5HKZ1362196482 8  0    ~   38958.333 2812.500 1875.000 3750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5V50W5HL01362196482 8  0       38854.16727500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5V50W5WRD1362196492 6           26354.16742291.667  104.16733958.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5V50W5WRE1362196492 8  0       26875.00043020.833 1875.000 3750.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5V50W5WRF1362196492 8  0       26770.83367708.333 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5V60IWCI01362249257 5  0       24270.833 2187.500 1666.66719166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5V60IX9WJ1362249271 5  0       24166.66743020.833 1666.66719166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5V60IXJRV1362249280 5  0       36354.167 2708.333 1666.66719166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5V60J4GSO1362249451 6           29270.833 2291.667  104.16733645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V60J4OXM1362249456 6           29270.83342395.833  104.16733645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V60J5KEC1362249479 6           41354.167 2291.667  104.16733645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5V60K8WAH1362250585 5  0       51354.167 2812.500 1666.66751562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                4   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                5"Umlagen nach dem Aufwendungsausgleichgesetz im Jahr"         Arial                                                         H1                                                           Arial                                                         welchesjahrc                                                  Arial                                                         H2                                                           Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         	an1_monat                                                     Arial                                                         
1_nein = .f.                                                 "Monat"                                                       Arial                                                         
1_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
1_nein = .f.                                                 " %"                                                          Arial                                                         
1_nein = .f.                                                 "Umlage"                                                      Arial                                                         
1_nein = .f.                                                 an1_entgelt                                                   Arial                                                         
1_nein = .f.                                                 an1_proz                                                      Arial                                                         
1_nein = .f.                                                 
an1_umlage                                                    Arial                                                         
1_nein = .f.                                                 	an2_monat                                                     Arial                                                         
2_nein = .f.                                                 "Monat"                                                       Arial                                                         
2_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
2_nein = .f.                                                 " %"                                                          Arial                                                         
2_nein = .f.                                                 "Umlage"                                                      Arial                                                         
2_nein = .f.                                                 an2_entgelt                                                   Arial                                                         
2_nein = .f.                                                 an2_proz                                                      Arial                                                         
2_nein = .f.                                                 
an2_umlage                                                    Arial                                                         
2_nein = .f.                                                 
1_nein = .f.                                                 
2_nein = .f.                                                 3                                                            Arial                                                         	an3_monat                                                     Arial                                                         
3_nein = .f.                                                 "Monat"                                                       Arial                                                         
3_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
3_nein = .f.                                                 " %"                                                          Arial                                                         
3_nein = .f.                                                 "Umlage"                                                      Arial                                                         
3_nein = .f.                                                 an3_entgelt                                                   Arial                                                         
3_nein = .f.                                                 an3_proz                                                      Arial                                                         
3_nein = .f.                                                 
an3_umlage                                                    Arial                                                         
3_nein = .f.                                                 
3_nein = .f.                                                 b"Sachlich und rechnerisch richtig:                                                  Festgestellt:"                            Arial                                                         
1_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
1_nein = .f.                                                 	an1_summe                                                     Arial                                                         
1_nein = .f.                                                 
3_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
3_nein = .f.                                                 	an3_summe                                                     Arial                                                         
3_nein = .f.                                                 
2_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
2_nein = .f.                                                 	an2_summe                                                     Arial                                                         
2_nein = .f.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
1_nein = .t.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
2_nein = .t.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
3_nein = .t.                                                 W"*) Umlagepflichtig ist das RV-pflichtige Entgelt, bei U1 und U2 ohne Einmalzahlungen."                                       Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                5"Umlagen nach dem Aufwendungsausgleichgesetz im Jahr"         Arial                                                         H1                                                           Arial                                                         welchesjahrc                                                  Arial                                                         H2                                                           Arial                                                         1                                                            Arial                                                         2                                                            Arial                                                         	an1_monat                                                     Arial                                                         
1_nein = .f.                                                 "Monat"                                                       Arial                                                         
1_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
1_nein = .f.                                                 " %"                                                          Arial                                                         
1_nein = .f.                                                 "Umlage"                                                      Arial                                                         
1_nein = .f.                                                 an1_entgelt                                                   Arial                                                         
1_nein = .f.                                                 an1_proz                                                      Arial                                                         
1_nein = .f.                                                 
an1_umlage                                                    Arial                                                         
1_nein = .f.                                                 	an2_monat                                                     Arial                                                         
2_nein = .f.                                                 "Monat"                                                       Arial                                                         
2_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
2_nein = .f.                                                 " %"                                                          Arial                                                         
2_nein = .f.                                                 "Umlage"                                                      Arial                                                         
2_nein = .f.                                                 an2_entgelt                                                   Arial                                                         
2_nein = .f.                                                 an2_proz                                                      Arial                                                         
2_nein = .f.                                                 
an2_umlage                                                    Arial                                                         
2_nein = .f.                                                 
1_nein = .f.                                                 
2_nein = .f.                                                 3                                                            Arial                                                         	an3_monat                                                     Arial                                                         
3_nein = .f.                                                 "Monat"                                                       Arial                                                         
3_nein = .f.                                                 "Entgelt *)"                                                  Arial                                                         
3_nein = .f.                                                 " %"                                                          Arial                                                         
3_nein = .f.                                                 "Umlage"                                                      Arial                                                         
3_nein = .f.                                                 an3_entgelt                                                   Arial                                                         
3_nein = .f.                                                 an3_proz                                                      Arial                                                         
3_nein = .f.                                                 
an3_umlage                                                    Arial                                                         
3_nein = .f.                                                 
3_nein = .f.                                                 b"Sachlich und rechnerisch richtig:                                                  Festgestellt:"                            Arial                                                         
1_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
1_nein = .f.                                                 	an1_summe                                                     Arial                                                         
1_nein = .f.                                                 
3_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
3_nein = .f.                                                 	an3_summe                                                     Arial                                                         
3_nein = .f.                                                 
2_nein = .f.                                                 welchesjahrc                                                  Arial                                                         
2_nein = .f.                                                 	an2_summe                                                     Arial                                                         
2_nein = .f.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
1_nein = .t.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
2_nein = .t.                                                 !"Es besteht keine Umlagepflicht."                             Arial                                                         
3_nein = .t.                                                 W"*) Umlagepflichtig ist das RV-pflichtige Entgelt, bei U1 und U2 ohne Einmalzahlungen."                                       Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5V90L347Q1362447945      /  F      ]                                                       WINDOWS _5V90L347R1531794570                      ,                                               WINDOWS _6841A3B3C1402710985          (                                                           WINDOWS _5V90M6NJ51362449057                                                                       WINDOWS _5V90L347S13624479746      E  T  a  n                                                           WINDOWS _5V90L347T1362447974          
                                                             WINDOWS _5V90L347U1362449057                  v!  l"                                               WINDOWS _5V90M6NJ61362449057$      /$  D$  T$  a$      $  I%                                               COMMENT RESERVED                                3&                                                            &\                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 554
Width = 586
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Auswahl der Kinderfreibetrge"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
PARAMETERS hsx
IF PCOUNT()=0
	hsx=0
ENDIF
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.optiongroup1.Value = hsx + 1

Msg = "Die Betreuung, Erziehung und Ausbildung von" +  " Kindern wird durch Kindergeld   o d e r   " + Chr(13)
*!*	Msg = Msg + "Kindern wird durch Kindergeld   o d e r   " + Chr(13)
Msg = Msg + "Steuerfreibetrge gefrdert." + " Primr wird Kindergeld gezahlt. " + Chr(13)
*!*	Msg = Msg + "Primr wird Kindergeld gezahlt. " + Chr(13)
Msg = Msg + "Bei der Steuerveranlagung findet dann eine" + " Gnstigerprfung statt." + Chr(13)
*!*	Msg = Msg + "Gnstigerprfung statt." + Chr(13)
Msg = Msg + "Die Freibetrge fr Kinder (KFB) sind in  32 EStG geregelt." + Chr(13)
Msg = Msg + "Beiden Ehegatten stehen fr ein Kind steuerfrei zu" + Chr(13)
DO case
*!*		CASE welchesjahr = 2020
*!*			Msg = Msg + "- 5172 Euro fr das schliche Existenzminimum" + Chr(13)	
*!*		CASE welchesjahr = 2021
*!*			Msg = Msg + "- 5460 Euro fr das schliche Existenzminimum" + Chr(13
	CASE welchesjahr = 2022
		Msg = Msg + "- 5620 Euro fr das schliche Existenzminimum" + Chr(13)
	CASE welchesjahr = 2023
		Msg = Msg + "- 6024 Euro fr das schliche Existenzminimum" + Chr(13)
	CASE welchesjahr = 2024
		Msg = Msg + "- 6384 Euro fr das schliche Existenzminimum" + Chr(13)
	CASE welchesjahr = 2025	
		Msg = Msg + "- 6672 Euro fr das schliche Existenzminimum" + Chr(13)
	CASE welchesjahr >= 2026	
		Msg = Msg + "- 6828 Euro fr das schliche Existenzminimum" + Chr(13)
endcase	


DO case
	case welchesjahr <= 2020
		Msg = Msg + "- 2640 Euro fr Betreuung, Erziehung und Ausbildung" + Chr(13)
	CASE welchesjahr >= 2021
		Msg = Msg + "- 2928 Euro fr Betreuung, Erziehung und Ausbildung" + Chr(13)
endcase
Msg = Msg + "Die Aufteilung des Gesamtfreibetrags auf die Steuerpflichtigen wird durch die" + Chr(13)
*!*	Msg = Msg + "auf die Steuerpflichtigen wird durch die Steuer-" + Chr(13)
Msg = Msg + " Steuerklassen und Kinderfreibetrge geregelt."
thisform.edit1.Value = msg

Msg = ""
Msg = Msg + "Die Kinderfreibetrge wirken sich zunchst nur auf die Hhe" + Chr(13)
Msg = Msg + "des Solidarittszuschlags und der Kirchensteuer aus." + Chr(13)
Msg = Msg + "Die Wirkung auf die Lohnsteuer ergibt sich erst im" + Chr(13)
Msg = Msg + "Veranlagungsverfahren (siehe oben)."
thisform.edit2.Value = msg

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     	    	  	                           %   {      	  8               U  M 4   %Ct % 
 T     %   
M  T     T     m T + Die Betreuung, Erziehung und Ausbildung von+  Kindern wird durch Kindergeld   o d e r   C
 X T   Steuerfreibetrge gefrdert.!  Primr wird Kindergeld gezahlt. C
 ] T  * Bei der Steuerveranlagung findet dann eine  Gnstigerprfung statt.C
 S T  < Die Freibetrge fr Kinder (KFB) sind in  32 EStG geregelt.C
 I T  2 Beiden Ehegatten stehen fr ein Kind steuerfrei zuC
 
 H3  D T  - - 5620 Euro fr das schliche ExistenzminimumC
   D T  - - 6024 Euro fr das schliche ExistenzminimumC
   5D T  - - 6384 Euro fr das schliche ExistenzminimumC
   D T  - - 6672 Euro fr das schliche ExistenzminimumC
   D T  - - 6828 Euro fr das schliche ExistenzminimumC
  
 H  NJ T  3 - 2640 Euro fr Betreuung, Erziehung und AusbildungC
   J T  3 - 2928 Euro fr Betreuung, Erziehung und AusbildungC
  d T  M Die Aufteilung des Gesamtfreibetrags auf die Steuerpflichtigen wird durch dieC
 ? T  .  Steuerklassen und Kinderfreibetrge geregelt. T    
 T   R T  ; Die Kinderfreibetrge wirken sich zunchst nur auf die HheC
 K T  4 des Solidarittszuschlags und der Kirchensteuer aus.C
 I T  2 Die Wirkung auf die Lohnsteuer ergibt sich erst imC
 4 T  # Veranlagungsverfahren (siehe oben). T     % 	 
   T C  	 
 T 
 T  
  
   T 	  	 
   T    
  
    T  a U  HSX THISFORM TOP OPTIONGROUP1 VALUE MSG WELCHESJAHR EDIT1 EDIT2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  B    U  THISFORM TAG  C     U  THISFORM SIZER	 FRMRESIZE Init,      Unload&     ResizeH    1 q  A AA q2 %A!A!A!A!AA  !!A A1 !A1  A    2  2 1                       
     4   
  
  D   6   
    G    )   	                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 536
Left = 567
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      shape      shape      Shape1      FORM1      CTop = 222
Left = 162
Height = 199
Width = 263
Name = "Shape1"
      editbox      editbox      Edit1      FORM1      iEnabled = .F.
Height = 210
Left = 15
Top = 9
Width = 564
DisabledForeColor = 0,0,0
Name = "Edit1"
      editbox      editbox      Edit2      FORM1      kEnabled = .F.
Height = 118
Left = 12
Top = 426
Width = 564
DisabledForeColor = 0,0,0
Name = "Edit2"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 9
Value = 1
Height = 180
Left = 171
Top = 231
Width = 150
Name = "Optiongroup1"
Option1.Caption = "0,0 Kinderfreibetrag"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 136
Option1.Name = "Option1"
Option2.Caption = "0,5 Kinderfreibetrag"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 136
Option2.Name = "Option2"
Option3.Caption = "1,0 Kinderfreibetrag"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 136
Option3.Name = "Option3"
Option4.Caption = "1,5 Kinderfreibetrag"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 136
Option4.Name = "Option4"
Option5.Caption = "2,0 Kinderfreibetrag"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 136
Option5.Name = "Option5"
Option6.Caption = "2,5 Kinderfreibetrag"
Option6.Height = 17
Option6.Left = 5
Option6.Top = 100
Option6.Width = 136
Option6.Name = "Option6"
Option7.Caption = "3,0 Kinderfreibetrag"
Option7.Height = 17
Option7.Left = 5
Option7.Top = 119
Option7.Width = 136
Option7.Name = "Option7"
Option8.Caption = "3,5 Kinderfreibetrag"
Option8.Height = 17
Option8.Left = 5
Option8.Top = 138
Option8.Width = 136
Option8.Name = "Option8"
Option9.Caption = "4,0 Kinderfreibetrag"
Option9.Height = 17
Option9.Left = 5
Option9.Top = 157
Option9.Width = 136
Option9.Name = "Option9"
      PROCEDURE InteractiveChange
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
PROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,2,0))
thisform.release
ENDPROC
                                      %          4     &            U  7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE InteractiveChange,      Click     1  2  1                       r                   )                           
commandbutton      
commandbutton      Command1      FORM1      Top = 300
Left = 345
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      CPROCEDURE Click
thisform.optiongroup1.interactivechange
ENDPROC
                                      N   %   k             z             U   
      U  THISFORM OPTIONGROUP1 INTERACTIVECHANGE Click,     1  1                       8       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %           8   =  1hTU    U  I    T     T    - T    <   - T    < 	  - T  
  <   - T    < 
  + T C C  %C  }A T C C C C   T    %C  A T C C C C   T   + T C C  T   C  T   CC T T   CC T T   CC T %C    T     T   T     ~ T   CCC  Z  / CCC  Z  * CCC  Z  / CCC  Z  =~ T   CCC  Z  / CCC  Z  * CCC  Z  / CCC  Z  =+ T   CC dC T U  DEPSPIN SICHTS MYZAHLENRECHNEN DEPTAGE0 VALUE DEPTAGE1 DEPTAGE2 DEPTAGE6 DEPTAGE3 DEPTAGE7 DEPTAGE4 DEPTAGE8 DEPTAGE5 DEPTAGE9 SUTAGE SUPERS SUNORM TZFAKTOR LABEL2 VISIBLE TRUE ZI FALSE ERLPERS0 CAPTION ERLPERS1 ERGEBNIS WERTC    Q INTEGER % M(  B 
 T      U  HSINDEX OP2 I DEPUTATBERECHNUNG  T  C   T C   
 H<       %    
  T            %    
  T          U  WERT OP1 I MYZAHLENRECHNEN DEPTAGE0 VALUE DEPTAGE1 Deputatberechnung,     
 Dep_Changew     depspin    8 r  A  A 11 1A 6 !!A A  q p1 r A A K p1                            "       7   *          0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4X30W49EI1253078884      /  F      ]                                                       WINDOWS _4X30W49EJ1533955296                      X
                                               WINDOWS _4X30W49EK1450931741-      :  G  U  b                                                           WINDOWS _4X30W49EM1450931741,      9  F  T  a                                                           WINDOWS _4X30W49EN1450931741        (  6  C                                                           WINDOWS _4X30W49EO1450931741                                                                       WINDOWS _4X30W49EP1450931741        
    %                                                           WINDOWS _4X30W49EQ1450931741                                                                       WINDOWS _4X30W49ER1450931741                                                                       WINDOWS _4X30W49ES1450931741c      p  }                                                               WINDOWS _4X30W49ET1450931741%      2  ?  N  [                                                           WINDOWS _4X30W49EU1451445925          *  7                                                           WINDOWS _4X30W49EV1451445925                                                                        WINDOWS _4X30W49EW1450931741                                                                       WINDOWS _4X30W49EX1450931741                                                                       WINDOWS _4X30W49EY1450931741|                                                                       WINDOWS _4X30W49EZ1450931741                                                                       WINDOWS _4X30W49F01450931741N      [  h  w                                                             WINDOWS _4X30W49F11450931741          "  /                                                           WINDOWS _4X30W49F21450931741v                  %                                                 WINDOWS _4X30W49F31450931741                !      s!  !                                               WINDOWS _4X30W49F41450931741-#      B#  W#  i#  v#      #  2$                                               WINDOWS _4X30W49F51450931741
%  %  =%  L%  Y%  f%                                                           WINDOWS _5VK0PK50H1533955296%      	&  &  /&  <&      &  9*                                               WINDOWS _5VK0QFVXY1450931741-      .  .  2.  ?.                                                           COMMENT RESERVED                                /                                                            /                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     	BorderStyle = 3
Height = 382
Width = 632
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Daten als Textdatei exportieren fr den anschlieenden Import in  E X C E L"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     JPROCEDURE Init
myexport = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
Do monatladen &&Do attached
Thisform.Text1.value = Leftc(sumonattext(1+zi(1+20)), 3) + "_" + welchesjahrc + "_" + Alltrim(zt0(1+zi(1+0))) + "_" + "_am_" + SUBSTR(DTOc(DATE()),1,2) + "_" + SUBSTR(DTOc(DATE()),4,2) + "_" + SUBSTR(DTOc(DATE()),7,2) + "_um_" + Leftc(TIME(), 2) + "_" + Substr(TIME(), 4, 2)
Do Case && register
	Case register = 39
		Thisform.Text1.value = "AN_AG_" + ALLTRIM(Thisform.Text1.value)
	Case register = 40
		Thisform.Text1.value = "AN_" + ALLTRIM(Thisform.Text1.value)
	Case register = 41
		Thisform.Text1.value = "AG_" + ALLTRIM(Thisform.Text1.value)
	Case register = 45
		Thisform.Text1.value = "ABR_" + ALLTRIM(Thisform.Text1.value)
	Case register = 133
		Thisform.Text1.value = "ATZZu_" + ALLTRIM(Thisform.Text1.value)
	Case register = 199
		Thisform.Text1.value = "ATZ" + ALLTRIM(Thisform.Text1.value)
	Case register = 205
		Thisform.Text1.value = "K_" + ALLTRIM(Thisform.Text1.value)
	Case register = 206
		Thisform.Text1.value = "G_" + ALLTRIM(Thisform.Text1.value)
	Case register = 300
		Thisform.Text1.value = "Vgl_" + ALLTRIM(Thisform.Text1.value)
Endcase
Thisform.Pfad.Caption = eigdat + muser
*!*	Export.Visible = True


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Destroy
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
ENDPROC
                                      %         K  (               U  0
 T    %   
1  T       T   CCC   _  _CCC 	  _ _am_CCC$*\ _CCC$*\ _CCC$*\ _um_CC^ _CC^\
 H  
 '#% T    AN_AG_C    
 (V" T    AN_C    
 )" T    AG_C    
 -# T    ABR_C    
 % T    ATZZu_C    
 &" T    ATZC    
 X! T    K_C    
 ! T    G_C    
 ,# T    Vgl_C     T   
  
     T      T     
    T  a U  MYEXPORT THISFORM TOP
 MONATLADEN TEXT1 VALUE SUMONATTEXT ZI WELCHESJAHRC ZT0 REGISTER PFAD CAPTION EIGDAT MUSER SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE0 
 T   
 T   T      U 	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION Init,      Resize(     Destroy[    1  AA q A
 Q!!1Q!!1A q rq  3 2   11                            "       )   $     ?  ,    )                           label      label      Label1      FORM1      FontBold = .T.
Caption = "1. Fr die Exportdatei wird folgende Bezeichnung vorgeschlagen. Sie knnen die Bezeichnung abndern."
Height = 15
Left = 13
Top = 49
Width = 610
Name = "Label1"
      label      label      Label3      FORM1      FontBold = .T.
Caption = "2. Klicken Sie auf die folgende Schaltflche, um den Export zu starten:"
Height = 15
Left = 13
Top = 91
Width = 610
Name = "Label3"
      label      label      Label4      FORM1      Caption = "als Zahlen mit zwei Dezimalen und Tausenderpunkt und die Spalten anpassen."
Height = 15
Left = 32
Top = 332
Width = 592
Name = "Label4"
      label      label      Label5      FORM1      FontBold = .T.
Caption = "3. ffnen Sie Excel und folgen Sie in der Menleiste dem Pfad: Daten / Externe Daten / Textdatei importieren ..."
Height = 15
Left = 13
Top = 134
Width = 610
Name = "Label5"
      label      label      Label6      FORM1      FontBold = .T.
Caption = "5. Im dann erscheinenden Textkonvertierungsassistenten:"
Height = 15
Left = 13
Top = 206
Width = 610
Name = "Label6"
      label      label      Label7      FORM1      Caption = '- Option "getrennt" belassen und Schaltflche "Weiter" anklicken.'
Height = 15
Left = 32
Top = 224
Width = 592
Name = "Label7"
      label      label      Label8      FORM1      Caption = '- "Semikolon" zustzlich zu "Tabstop" markieren und "Weiter" anklicken.'
Height = 15
Left = 32
Top = 242
Width = 592
Name = "Label8"
      label      label      Label9      FORM1      FontBold = .T.
Caption = "Userverzeichnis "
Height = 15
Left = 390
Top = 118
Width = 105
ForeColor = 255,0,0
Name = "Label9"
      label      label      Label10      FORM1      FontBold = .T.
Caption = "7. Nun mssen Sie die bertragenen Daten nur noch formatieren "
Height = 15
Left = 13
Top = 314
Width = 610
Name = "Label10"
      label      label      Label11      FORM1      FontBold = .T.
Caption = "4. Im dann erscheinenden Explorer suchen Sie die Exportdatei im Ordner."
Height = 15
Left = 13
Top = 151
Width = 418
Name = "Label11"
      label      label      pfad      FORM1      tCaption = '(z.B. C:\Programme\Gehalt2023\User001")'
Height = 15
Left = 32
Top = 169
Width = 590
Name = "pfad"
      label      label      Label13      FORM1      FontBold = .T.
Caption = "8. Die Exportdatei ist nicht passwortgeschtzt. Lschen Sie sie, wenn sie nicht  in fremde Hnde fallen darf."
Height = 15
Left = 13
Top = 349
Width = 610
Name = "Label13"
      label      label      Label14      FORM1      Caption = 'Nur so erhalten die bertragenen Summenformeln die richtigen Bezge. Dann "OK"'
Height = 15
Left = 32
Top = 296
Width = 593
Name = "Label14"
      label      label      Label15      FORM1      FontBold = .T.
Caption = '6. Geben Sie im folgenden Abfragefenster "Wo sollen die Daten eingefgt werden" die Zelle "$A$1" an. '
Height = 15
Left = 13
Top = 278
Width = 610
Name = "Label15"
      label      label      Label16      FORM1      Caption = 'Dort markieren Sie die Exportdatei und klicken auf "Importieren".'
Height = 15
Left = 32
Top = 187
Width = 590
Name = "Label16"
      label      label      Label17      FORM1      kCaption = '- Fertigstellen" anklicken.'
Height = 15
Left = 32
Top = 260
Width = 592
Name = "Label17"
      textbox      textbox      Text1      FORM1      ?Height = 22
Left = 12
Top = 66
Width = 520
Name = "Text1"
      
commandbutton      
commandbutton      
SSCommand1      FORM1      ^Top = 109
Left = 12
Height = 22
Width = 606
Caption = "Exportieren"
Name = "SSCommand1"
      PROCEDURE Click
*SET STEP ON 
WAIT WINDOW "Export luft...." nowait
DO exportieren
WAIT WINDOW "Export beendet!" TIMEOUT 1
ENDPROC
                                         %                             U  D  R,: Export luft....    R, Export beendet! U  EXPORTIEREN Click,     1 q 1                       ~       )                            
commandbutton      
commandbutton      
SSCommand2      FORM1      hTop = 2
Left = 12
Height = 22
Width = 606
Cancel = .T.
Caption = "Schlieen"
Name = "SSCommand2"
      sPROCEDURE Click
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
thisform.Release

ENDPROC
     7                                 %                             U  : 
 T   
 T   T     
    U 	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION THISFORM RELEASE Click,     1   1 2                       h       )                           
commandbutton      
commandbutton      
SSCommand3      FORM1      vTop = 24
Left = 12
Height = 22
Width = 606
Caption = "Dieses Fenster als Anleitung drucken"
Name = "SSCommand3"
      6PROCEDURE Click
thisform.PrintForm.click

ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 PRINTFORM CLICK Click,     1  2                       +       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 363
Left = 612
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      	printform      FORM1      Top = 366
Left = 33
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 476
Visible = .F.
Name = "printform"
     ePROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif

oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026

CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       Z      )                           optiongroup      optiongroup      Dateiendung      FORM1     ButtonCount = 2
Value = 2
Height = 20
Left = 536
Top = 67
Width = 89
Name = "Dateiendung"
Option1.Caption = ".txt"
Option1.Value = 0
Option1.Height = 16
Option1.Left = 5
Option1.Top = 1
Option1.Width = 43
Option1.Name = "Option1"
Option2.Caption = ".csv"
Option2.Value = 1
Option2.Height = 16
Option2.Left = 45
Option2.Top = 2
Option2.Width = 40
Option2.Name = "Option2"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0X   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5PX0MVNR81432057686      /  F      ]                                                   WINDOWS _5PX0MVNR91519996079                    	  2                                               WINDOWS _69O13RYT61414898896N      N  N  N  N                                                           WINDOWS _69O13RYT71414763567W      W  W  W  W                                                           WINDOWS _69O13RYT814176299966X      EX  TX  aX  X      Y  <Y                                               WINDOWS _69O13RYT91414763567Z      #Z  1Z  @Z  aZ                                                           WINDOWS _69O13RYTA1417630070Z      Z  Z  Z  Z      i[  [                                               WINDOWS _69O13RYTB1414763567|\      \  \  \  \                                                           WINDOWS _69O13RYTC1417630070]      -]  <]  I]  j]      ]  $^                                               WINDOWS _69O13RYTD1414763567^      _  _  (_  I_                                                           WINDOWS _69O13RYTE1417630070_      _  _  _  _      n`  `                                               WINDOWS _69O13RYTF1414763567a      a  a  a  a                                                           WINDOWS _69O13RYTG1417630070#b      2b  Ab  Nb  ob      b  )c                                               WINDOWS _69O13RYTH1414763567d      d  d  -d  Nd                                                           WINDOWS _69O13RYTI1417630070d      d  d  d  d      qe  e                                               WINDOWS _69O13RYTJ1414763567f      f  f  f  f                                                           WINDOWS _69O13RYTK1417630070,g      ;g  Jg  Wg  xg      g  2h                                               WINDOWS _69O13RYTL1414763567i      i  'i  6i  Wi                                                           WINDOWS _69O13RYTM1417630070i      i  i  i  i      |j  j                                               WINDOWS _69O13RYTN1414763567k      k  k  k  k                                                           WINDOWS _69O13RYTO14176300703l      Bl  Ql  ^l  l      l  9m                                               WINDOWS _69O13RYTP1414763567n       n  .n  =n  _n                                                           WINDOWS _69O13RYTQ1417630070n      n  n  n  o      o  o                                               WINDOWS _69O13RYTR1414763567p      p  p  p  p                                                           WINDOWS _69O13RYTS1417630070:q      Iq  Xq  eq  q      r  Ar                                               WINDOWS _69O13RYTT1414763567s      (s  6s  Es  gs                                                           WINDOWS _69O13RYTU1417630070s      s  s  s  t      t  t                                               WINDOWS _69O13RYTV1414763567u      u  u  u  u                                                           WINDOWS _69O13RYTW1417630070Lv      [v  jv  wv  v      w  Sw                                               WINDOWS _69O13RYTX1414763567,x      :x  Hx  Wx  yx                                                           WINDOWS _69O13RYTY1417630070x      x  x  x  y      y  y                                               WINDOWS _5PX0MVNRD1414878538z      z  z  z  z                                                           WINDOWS _5PX0MVNR81414757771B{      O{  \{  o{  |{                                                           WINDOWS _5RZ10R20E1414757771{      {  {  |  |                                                           WINDOWS _5PX0MVNRP1432448774~|      |  |  |  |      3}  ;                                               WINDOWS _5PX0MVNRA1414878538ݓ                                                                       WINDOWS _5PX0MVNRB1349342479k      x                                                                 WINDOWS _5PX0MVNRC1414890688        ,  <  I      і  ;                                               WINDOWS _5PX0MVNRE13493424795      B  O  ]  j                                                           WINDOWS _5PX0MVNRF1417640292ߚ            &                                                       WINDOWS _5PX0MVNRG1431669066      ɣ  ٣          [  i                                               WINDOWS _5PX0MVNRH1432448774             -                                                           WINDOWS _5PX0MVNRI1432448774        ħ  ҧ  ߧ                                                           WINDOWS _5PX0MVNRJ1432448774`      s            `  «                                               WINDOWS _5PX0MVNRK1432448774          Ϭ  ܬ                                                           WINDOWS _5PX0MVNRL14324423977      D  Q  _  l                                                           WINDOWS _5PX0MVNRM1432516069˭      ޭ            J  ?                                               WINDOWS _5PX0MVNRN1432448774                  @                                                 WINDOWS _5PX0MVNRO1519995996c      x            
  Z                                               WINDOWS _5T80L1TMD1431588882K  [  {                                                                 WINDOWS _5PX0MVNR814324487743      H  ]  o  |                                                       WINDOWS _5PX0MVNR81432448774        
      &                                              WINDOWS _69O14V4LM14324487740     E Z o |      #                                              WINDOWS _69O14V4LO1432448774^/     s/ / / /     /0 HI                                              WINDOWS _69Q0MY1EJ1432442886'W     :W MW aW nW     Y $b                                              WINDOWS _69Q0Q1QEM1432448774h     h h h h     }i s                                              WINDOWS _6AS0LRNYU1519996079{     { { { {     v| ~                                              WINDOWS _5PX0MVNR81414765212       " /      w                                              WINDOWS _69O0W5AO31414756432&     4 B Q q                                                          WINDOWS _5PX0MVNR91414756410      ʏ ׏                                                           WINDOWS _5PX0MVNRQ1414756432h     v                                                             WINDOWS _5PX0MVNRD1349342479      
  :                                                          WINDOWS _5RZ15NO9K1414756432      Ǒ ֑                                                           WINDOWS _5PX0MVNR81414562744L     [ j w                                                           WINDOWS _5RZ10R20E1414756432     % 3 B b                                                          WINDOWS _5PX0MVNRP1414222988     ʓ ٓ                                                            WINDOWS _5PX0MVNRA1414756432        є                                                          WINDOWS _5PX0MVNRB1349342479'     6 E R r                                                          WINDOWS _5PX0MVNRC1414756432         =                                                          WINDOWS _5PX0MVNRE1349342479        ߖ                                                          WINDOWS _5PX0MVNRF1414756432_     m {                                                            WINDOWS _5PX0MVNRG1414223672      % 2 R                                                          WINDOWS _5PX0MVNRH1414756432Ҙ                                                                  WINDOWS _5PX0MVNRI1349342479v                                                                  WINDOWS _5PX0MVNRJ1414756432A     O ] l                                                           WINDOWS _5PX0MVNRK1349342479        /                                                          WINDOWS _5PX0MVNRL1414756432      ˛ ڛ                                                           WINDOWS _5PX0MVNRM1411796464P     _ n {                                                           WINDOWS _5PX0MVNRN1414756432     * 8 G h                                                          WINDOWS _5PX0MVNRO1414222988     Н ߝ  
                                                          WINDOWS _5T80L1TMD1414756432        ٞ                                                          WINDOWS _69G0NHW6U14146910405     D S `                                                           WINDOWS _69O0W7DBV1414756432       , M                                                          WINDOWS _69O0W7DBX1414756400      Ǡ Ԡ                                                           WINDOWS _69O0W7DBY1414756432u                                                                  WINDOWS _69O0W7DBZ1414756400     ) 8 E f                                                          COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 240
Left = 180
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
     PROCEDURE BeforeOpenTables
CREATE CURSOR kstgrid (sp1 C(4),sp2 C(30),sp3 N(12,2),sp4 N(12,2),sp5 N(12,2),sp6 N(12,2),sp7 N(12,2), sp8 N(12,2),sp9 N(12,2),sp10 N(12,2),sp11 N(12,2),sp12 N(12,2),sp13 N(12,2),sp14 N(12,2),sp15 N(12,2), sp16 N(3),sp17 C(35))
CREATE CURSOR kstgrid2 (sp1 C(4),sp2 C(30),sp3 N(12,2),sp4 N(12,2),sp5 N(12,2),sp6 N(12,2),sp7 N(12,2), sp8 N(12,2),sp9 N(12,2),sp10 N(12,2),sp11 N(12,2),sp12 N(12,2),sp13 N(12,2),sp14 N(12,2),sp15 N(12,2), sp16 N(3), sp17 C(35))
ENDPROC
                                   k   %   ^           x            U  ]h kstgrid  C  C  N  N  N  N  N  N	  N
  N  N  N
  N  N  N  N  C#^h kstgrid2  C  C  N  N  N  N  N  N	  N
  N  N  N
  N  N  N  N  C# U  KSTGRID SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 KSTGRID2 BeforeOpenTables,     1 1                             )                           1      1      form      form      FORM1      Height = 698
Width = 1230
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Aufsummierung der Jahresgehlter aller Bediensteten"
ControlBox = .F.
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     (PROCEDURE Destroy
SELECT kstgrid
USE
SELECT kstgrid2
USE
SELECT kstliste
USE

release sujahr
release akkumulierenja 
release kost 
release seitenwechsel
release zeilenzhler
release gesuchtekostenstelle

release spalt0
release spalt1
release spalt2
release spalt3
release spalt4
release spalt5
release spalt6
release spalt7
release spalt8
release spalt9
release spalt10
release spalt11
release spalt12
release spalt13

ENDPROC
PROCEDURE Unload
*!*	amtoben = thisform.Top
*!*	amtlinks = thisform.Left
*!*	amtbreit = thisform.Width
*!*	amthoch = thisform.Height
*!*	If bWorking = False 
*!*		DO dimenaus
*!*	endif

*!*	myform1.SSPanel2.Visible = True
ENDPROC
PROCEDURE Init
myform2 = thisform


Public Array sujahr(1+13, 1+15)
Public akkumulierenja As Boolean
Public kost As Integer
Public seitenwechsel As Boolean
Public zeilenzhler As Integer
Public gesuchtekostenstelle As Integer

*!*	Thisform.Bearbeite.Left = Thisform.Exportieren.Left
*!*	Thisform.Fortschritt.Left = Thisform.Bearbeite.Left + Thisform.Bearbeite.Width + 5

Public Array spal(1+ 15, 1+ satzanzahl) &&As String && * 14
STORE "" TO spal
Public Array spalt0(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt1(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt2(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt3(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt4(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt5(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt6(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt7(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt8(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt9(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt10(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt11(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt12(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
Public Array spalt13(1+ 15, 1+ satzanzahl * 12) &&, 0 To 13)
STORE 0 TO spalt1
STORE 0 TO spalt2
STORE 0 TO spalt3
STORE 0 TO spalt4
STORE 0 TO spalt5
STORE 0 TO spalt6
STORE 0 TO spalt7
STORE 0 TO spalt8
STORE 0 TO spalt9
STORE 0 TO spalt10
STORE 0 TO spalt11
STORE 0 TO spalt12
STORE 0 TO spalt13


jahrzeigen = 0
form1zeigen = ""
g = 0
*Do monatladen &&Do attached
Thisform.Combo1.Visible = False

Thisform.Caption = "ARBEITGEBERAUFWENDUNGEN fr KOSTENSTELLE " + Alltrim(kostenstelle) + " im Jahr " + welchesjahrc + " in EURO"

*thisform.Combo1.AddItem("Alle Kostenstellen")
For ij = 2 To 120
	Thisform.Combo1.AddItem(Alltrim(zt27(ij)))
Next

*Thisform.Combo1.ListIndex = 1 &&kst vorher 0

Thisform.Caption = "Monatsgehlter - Gesamtzusammenstellung "

CREATE CURSOR kstliste (sp0 N(10), sp1 C(4), sp2 C(30), sp3 N(12,2), sp4 N(12,2), sp5 N(12,2), sp6 N(12,2), sp7 N(12,2), sp8 N(12,2), sp9 N(12,2), sp10 N(12,2), sp11 N(12,2), sp12 N(12,2), sp13 N(12,2), sp14 N(12,2), sp15 N(12,2), sp16 N(3,0), sp17 C(35))

stime = SYS(2)
FOR hsa = 1 TO satzanzahl
	myget(13, hsa,"wnw")
	For Monate = 1 To 12
		SELECT kstliste
		APPEND BLANK
		FLUSH		
		replace kstliste.sp0 with hsa
		replace kstliste.sp1 with STR(hsa,10,0)
		replace kstliste.sp2 with wnw.personalfall
		replace kstliste.sp15 WITH monate
		FLUSH					
		myget(Monate, hsa,"wvw")
		SELECT kstliste
		replace kstliste.sp16 WITH wvw.znam(27)
		replace kstliste.sp17 WITH zt27(wvw.znam(27)+1)
		FLUSH			
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 7)
				replace kstliste.sp3 WITH wvw.tnam(1+22)
				replace kstliste.sp6 with wvw.tnam(1+31)
			Case (wvw.znam(4) >= 8 .And. wvw.znam(4) <= 25) .Or. (wvw.znam(4) >= 27 .And. wvw.znam(4) <= 32) .Or. wvw.znam(4) =  36 .Or. wvw.znam(4) =  37
				replace kstliste.sp4 with wvw.tnam(1+22)
				replace kstliste.sp7 with wvw.effz(1+0) + wvw.effz(1+1) + wvw.effz(1+2) + wvw.effz(1+3) + ABS(wvw.effz(1+26))  &&23.09.2022 SPIX vorher ohne wvw.effz(1+26)
				replace kstliste.sp9 with wvw.tnam(1+31) + wvw.effz(1+25) + wvw.tnam(1+5) 
				replace kstliste.sp10 with wvw.tnam(1+32) + wvw.tnam(1+6) + wvw.effz(1+4) + wvw.effz(1+5) + wvw.effz(1+6) + wvw.effz(1+23)
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35) .Or. wvw.znam(4) =  26
				replace kstliste.sp5 with wvw.tnam(1+22)
				replace kstliste.sp8 with wvw.effz(1+0) + wvw.effz(1+1) + wvw.effz(1+2) + wvw.effz(1+3)
				replace kstliste.sp9 WITH wvw.tnam(1+31) + wvw.effz(1+25) + wvw.tnam(1+5) 
				replace kstliste.sp10 with wvw.tnam(1+32) + wvw.tnam(1+6) + wvw.effz(1+4) + wvw.effz(1+5) + wvw.effz(1+6) + wvw.effz(1+23)
		ENDCASE
		If wvw.znam(34) > 7
			replace kstliste.sp12 WITH wvw.tnam(1+34)
		Endif
		If wvw.znam(24) < 10 .And. Right(wvw.schlss(40), 1) = "1"
			replace kstliste.sp12 WITH wvw.tnam(1+24)
		Endif
		If wvw.znam(47) < 10 .And. Right(wvw.schlss(41), 1) = "1"
			replace kstliste.sp12 WITH wvw.tnam(1+47)
		Endif
		If wvw.znam(24) > 9 .And. wvw.znam(24) < 13 .And. Right(wvw.schlss(40), 1) = "1"
			replace kstliste.sp12 WITH wvw.tnam(1+24)
		Endif
		If wvw.znam(47) > 9 .And. wvw.znam(47) < 13 .And. Right(wvw.schlss(41), 1) = "1"
			replace kstliste.sp12 WITH wvw.tnam(1+24)
		Endif

		For i = 42 To 44
			If Right(wvw.schlss(i), 1) = "1"
				replace kstliste.sp12 WITH wvw.tnam(1+24)
			Endif
		Next

		&&Umlagen
		replace kstliste.sp13 WITH wvw.effz(1+29) + wvw.effz(1+30) + ABS(wvw.effz(1+41))
		flush
	Next 	
NEXT
SELECT kstliste
GO top

thisform.oberenteil.click

thisform.persfaelle.Click


SELECT kstgrid2
GO top
SELECT kstgrid
GO top

thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh

thisform.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.




ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 12 > thisform.grdKstgrid.width
	thisform.grdKstgrid.width = thisform.width -12
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  37 / 1212
prozsp2 =  158 / 1212
prozsp3 =  81 / 1212


thisform.grdKstgrid.Width = thisform.Width - 20

grdbreite = thisform.grdKstgrid.Width 
thisform.grdKstgrid.column1.Width = grdbreite * prozsp1
thisform.grdKstgrid.column2.Width = grdbreite * prozsp2
thisform.grdKstgrid.column3.Width = grdbreite * prozsp3
thisform.grdKstgrid.column4.Width = grdbreite * prozsp3
thisform.grdKstgrid.column5.Width = grdbreite * prozsp3
thisform.grdKstgrid.column6.Width = grdbreite * prozsp3
thisform.grdKstgrid.column7.Width = grdbreite * prozsp3
thisform.grdKstgrid.column8.Width = grdbreite * prozsp3
thisform.grdKstgrid.column9.Width = grdbreite * prozsp3
thisform.grdKstgrid.column10.Width = grdbreite * prozsp3
thisform.grdKstgrid.column11.Width = grdbreite * prozsp3
thisform.grdKstgrid.column12.Width = grdbreite * prozsp3
thisform.grdKstgrid.column13.Width = grdbreite * prozsp3
thisform.grdKstgrid.column14.Width = grdbreite * prozsp3

thisform.grdKstgrid.column1.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column2.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column3.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column4.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column5.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column6.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column7.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column8.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column9.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column10.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column11.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column12.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column13.text1.fontsize = thisform.grdKstgrid.column1.fontsize
thisform.grdKstgrid.column14.text1.fontsize = thisform.grdKstgrid.column1.fontsize

thisform.grdKstgrid2.column1.Width = grdbreite * prozsp1
thisform.grdKstgrid2.column2.Width = grdbreite * prozsp2
thisform.grdKstgrid2.column3.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column4.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column5.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column6.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column7.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column8.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column9.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column10.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column11.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column12.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column13.Width = grdbreite * prozsp3
thisform.grdKstgrid2.column14.Width = grdbreite * prozsp3

thisform.grdKstgrid2.column1.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column2.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column3.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column4.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column5.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column6.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column7.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column8.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column9.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column10.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column11.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column12.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column13.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
thisform.grdKstgrid2.column14.text1.fontsize = thisform.grdKstgrid2.column1.fontsize
ENDPROC
                                   V   %   N      I                 U    F   Q F  Q F  Q <  <  <  <  <  <  <	  <
  <  <  <
  <  <  <  <  <  <  <  <  <  U  KSTGRID KSTGRID2 KSTLISTE SUJAHR AKKUMULIERENJA KOST
 SEITENWECHSEL ZEILENZHLER GESUCHTEKOSTENSTELLE SPALT0 SPALT1 SPALT2 SPALT3 SPALT4 SPALT5 SPALT6 SPALT7 SPALT8 SPALT9 SPALT10 SPALT11 SPALT12 SPALT13  U  #
 T    7  7 Q BOOLEAN 7 Q INTEGER 7 Q BOOLEAN 7 Q INTEGER 7 Q INTEGER 7 	 
 J  (  7
 	  7 	  7 	  7
 	  7 	  7 	  7 	  7 	  7 	  7 	  7 	  7 	  7 	  7 	 
 J ( 
 J ( 
 J (
 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 J ( 
 T  
 T   
 T   T    \ T  ) ARBEITGEBERAUFWENDUNGEN fr KOSTENSTELLE C 	  im Jahr     in EURO ! (x CCC ! #   "  8 T  ( Monatsgehlter - Gesamtzusammenstellung sh kstliste%  N
&  C'  C(  N)  N*  N+  N,  N-  N.  N/  N0  N1  N2  N3  N4  N5  N 6  C# T7 C] 8 (	  C
 8  wnw9  : (
 F$   [ >$ % 8  >$ & C8 
 Z >$ ' ; <  >$ 4 :  [ C :  8  wvw9  F$  >$ 5 C= >  >$ 6 CC= > #  [
 HP+ C= >   C= > 	 >$ ( C= ?  >$ + C = ? t C= >  C= > 	" C= >  C= >  	 C= > $ C= > % >$ ) C= ? E >$ , C= @ C= @ C= @ C= @ CC= @ - >$ . C = ? C= @ C= ? N >$ / C!= ? C= ? C= @ C= @ C= @ C= @ = C= > ! C= > #	 C= >  >$ * C= ? 8 >$ - C= @ C= @ C= @ C= @ - >$ . C = ? C= @ C= ? N >$ / C!= ? C= ? C= @ C= @ C= @ C= @   %C"= > .	 >$ 1 C#= ?  0 %C= > 

 CC(= A R 1	y	 >$ 1 C= ?  0 %C/= > 

 CC)= A R 1		 >$ 1 C0= ?  B %C= > 	 C= > 

	 CC(= A R 1	!
 >$ 1 C= ?  B %C/= > 	 C/= > 

	 CC)= A R 1	~
 >$ 1 C= ?   B *(,
 %CC B = A R 1
 >$ 1 C= ?   / >$ 2 C= @ C= @ CC*= @  [   F$  #)
  C D 
  E D  FF  #) FG  #)
  H I 
  J I 
  I  % K L M  TN CM  K L T 
 TN  
  O P  T K  K L N  T Q  Q L N 
  R  T S a UT  MYFORM2 THISFORM SUJAHR AKKUMULIERENJA KOST
 SEITENWECHSEL ZEILENZHLER GESUCHTEKOSTENSTELLE SPAL
 SATZANZAHL SPALT0 SPALT1 SPALT2 SPALT3 SPALT4 SPALT5 SPALT6 SPALT7 SPALT8 SPALT9 SPALT10 SPALT11 SPALT12 SPALT13
 JAHRZEIGEN FORM1ZEIGEN G COMBO1 VISIBLE FALSE CAPTION KOSTENSTELLE WELCHESJAHRC IJ ADDITEM ZT27 KSTLISTE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 STIME HSA MYGET MONATE WNW PERSONALFALL WVW ZNAM TNAM EFFZ SCHLSS I
 OBERENTEIL CLICK
 PERSFAELLE KSTGRID2 KSTGRID
 GRDKSTGRID REFRESH GRDKSTGRID2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER C     %       H  T        " %          ~  T     T  B? T	  ah? T
  g? T        T      T        T   
   	  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
 " T           " T   
        " T           " T           " T           " T           " T           " T           " T           " T           " T           " T           " T           " T            T        T   
   	  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
  T      
 " T           " T   
        " T           " T           " T           " T           " T           " T           " T           " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE WIDTH
 GRDKSTGRID TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2 PROZSP3	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 COLUMN14 TEXT1 FONTSIZE GRDKSTGRID2 Destroy,      Unload     Init     Resize    1 q A q A q A r q q q q q r q q q q q q q q q q q q q 3 ;  3!!!!!u                 2sA 2 qqqq Q A 1A q qA  qqAqQqA qA qA qA !qA !qA rqA A A A A q Q   s Q q Q      A    6 A "A baa2"!!!!!!!!!!!!!"!!!!!!!!!!!!!1                                              +        (      )                           grid      grid      grdKstgrid2      FORM1     ColumnCount = 14
DeleteMark = .F.
HeaderHeight = 37
Height = 264
Left = 10
Panel = 1
ReadOnly = .T.
RecordSource = "KSTGRID2"
RecordSourceType = 1
Top = 408
Width = 1212
Name = "grdKstgrid2"
Column1.ControlSource = ""
Column1.Width = 37
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.BackColor = 240,240,240
Column1.Name = "Column1"
Column2.ControlSource = ""
Column2.Width = 158
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.BackColor = 240,240,240
Column2.Name = "Column2"
Column3.ControlSource = ""
Column3.Width = 81
Column3.ReadOnly = .T.
Column3.Visible = .T.
Column3.Format = "Z"
Column3.Name = "Column3"
Column4.ControlSource = ""
Column4.Width = 81
Column4.ReadOnly = .T.
Column4.Visible = .T.
Column4.Format = "Z"
Column4.Name = "Column4"
Column5.ControlSource = ""
Column5.Width = 81
Column5.ReadOnly = .T.
Column5.Visible = .T.
Column5.Format = "Z"
Column5.Name = "Column5"
Column6.ControlSource = ""
Column6.Width = 81
Column6.ReadOnly = .T.
Column6.Visible = .T.
Column6.Format = "Z"
Column6.Name = "Column6"
Column7.ControlSource = ""
Column7.Width = 81
Column7.ReadOnly = .T.
Column7.Visible = .T.
Column7.Format = "Z"
Column7.Name = "Column7"
Column8.ControlSource = ""
Column8.Width = 81
Column8.ReadOnly = .T.
Column8.Visible = .T.
Column8.Format = "Z"
Column8.Name = "Column8"
Column9.ControlSource = ""
Column9.Width = 81
Column9.ReadOnly = .T.
Column9.Visible = .T.
Column9.Format = "Z"
Column9.Name = "Column9"
Column10.ControlSource = ""
Column10.Width = 81
Column10.ReadOnly = .T.
Column10.Visible = .T.
Column10.Format = "Z"
Column10.Name = "Column10"
Column11.ControlSource = ""
Column11.Width = 81
Column11.ReadOnly = .T.
Column11.Visible = .T.
Column11.Format = "Z"
Column11.Name = "Column11"
Column12.ControlSource = ""
Column12.Width = 81
Column12.ReadOnly = .T.
Column12.Visible = .T.
Column12.Format = "Z"
Column12.Name = "Column12"
Column13.ControlSource = ""
Column13.Width = 81
Column13.ReadOnly = .T.
Column13.Visible = .T.
Column13.Format = "Z"
Column13.Name = "Column13"
Column14.ControlSource = ""
Column14.Width = 81
Column14.ReadOnly = .T.
Column14.Visible = .T.
Column14.Format = "Z"
Column14.Name = "Column14"
      header      header      Header1      FORM1.grdKstgrid2.Column1      3Caption = "Nr."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column1      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column2      4Caption = "Name"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column2      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column3      NAlignment = 1
Caption = "Beamten- Bezge"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column3      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column4      QAlignment = 1
Caption = "Angest.- vergtung"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column4      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column5      NAlignment = 1
Caption = "Arbeiter- Lhne"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column5      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column6      OAlignment = 1
Caption = "Versorg.- Beamte"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column6      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column7      TAlignment = 1
Caption = "Soz.Vers. Angestellte"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column7      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column8      QAlignment = 1
Caption = "Soz.Vers. Arbeiter"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column8      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column9      PAlignment = 1
Caption = "ATV Uml. + Zusch."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column9      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column10      MAlignment = 1
Caption = "Steuern des AG"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column10      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column11      QAlignment = 1
Caption = "Summe Pers.-kosten"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column11      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column12      TAlignment = 1
Caption = "Sachbezge ATZ-Aufst."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column12      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column13      TAlignment = 1
Caption = "Sonstiges u.a.Umlagen"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column13      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            header      header      Header1      FORM1.grdKstgrid2.Column14      QAlignment = 1
Caption = "Leistungs- entgelt"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid2.Column14      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.zuform3.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM ZUFORM3 CLICK Click,     1  1                       '       )                            shape      shape      Shape2      FORM1      STop = 9
Left = 139
Height = 72
Width = 309
SpecialEffect = 0
Name = "Shape2"
      label      label      Fortschritt      FORM1      `Caption = "Fortschritt"
Height = 20
Left = 103
Top = 674
Width = 261
Name = "Fortschritt"
      label      label      	Bearbeite      FORM1      ZCaption = "Bearbeite"
Height = 20
Left = 12
Top = 674
Width = 87
Name = "Bearbeite"
      
commandbutton      
commandbutton      LEDruck      FORM1      gTop = 9
Left = 922
Height = 31
Width = 196
Caption = "Leistungsentgelt drucken"
Name = "LEDruck"
      PROCEDURE Click
 counter = 21
 Msg = "987"
 PUBLIC 1,2,3,4,5,6,7,8,9,10,11,12,13
 STORE "" TO 1,2,3,4,5,6,7,8,9,10,11,12,13
oldselect = SELECT(0)

* DO kostenstellentitel
	1 = "L E I S T U N G S E N T G E L T E   2 0 " + Substr(welchesjahrc, 3, 1) + " " + Right(welchesjahrc, 1)

	If thisform.kstfilterbox.Value = 2 
		2 = "fr Personalflle ohne Kostenstelle"
	ELSE
		If thisform.kstfilterbox.Value = 1 &&alle
			2 = "fr ALLE Kostenstellen "
		ELSE
			2 = "fr Kostenstelle: " + ALLTRIM(thisform.combo1.displayvalue) + " "
		endif		
	Endif

xxx = ALLTRIM(STR(modus,1,0))
2 = 2 + "   in Programmteil   " + ALLTRIM(myform1.Modi&xxx..Caption)
3 = "Bedienstete"

4 = "Beamten-" + crlf
5 = "davon" + crlf
6 = "Tarif-" + crlf
u7 = "davon" + crlf

4 = 4 + "bezge" + crlf
5 = 5 + "Leistungs-" + crlf
6 = 6 + "entgelte" + crlf 
7 = 7 + "Leistungs-" + crlf

4 = 4 + crlf
5 = 5 + "bezge" + crlf
6 = 6 + crlf
7 = 7 + "entgelte" + crlf

4 = 4 + "EURO"
5 = 5 + "EURO"
6 = 6 + "EURO" 
7 = 7 + "EURO"
* DO lekostenstellendrucken
*!*	 If .Not. myform2.Umrandung.BackColor = QBColor(12)
*!*	*!*		DO legesamtsummedrucken &&gesamtsummen werden im report summiert
*!*	 Else
*!*	*!*		Printer.EndDoc
*!*	 ENDIF


PUBLIC msp3, msp4, msp13_3,msp13_4
msp3 = 0.00
msp4 = 0.00
msp13_3 = 0.00
msp13_4 = 0.00

select kstgrid2
GO top
DO WHILE .not. EOF()
	IF thisform.sortierenopt.Value = 1
		msp3 = msp3 + kstgrid2.sp3
		msp4 = msp4 + kstgrid2.sp4	
		msp13_3 = msp13_3 + kstgrid2.sp14			
		msp13_4 = msp13_4 + kstgrid2.sp14		
	else
		IF kstgrid2.sp2 = "Summe:"
			msp3 = msp3 + kstgrid2.sp3
			msp4 = msp4 + kstgrid2.sp4	
			msp13_3 = msp13_3 + kstgrid2.sp14			
			msp13_4 = msp13_4 + kstgrid2.sp14
		ENDIF
	endif
	SKIP
ENDDO

select kstgrid2
GO top

IF direktzumdruckerQ() = true
	SELECT kstgrid2
	GO top
	
	Report Form leistung1 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
else
	LOCAL loRepPreview, loRepListener
		loRepPreview = NULL

		DO (_ReportPreview) WITH loRepPreview

		loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

		WITH loRepPreview
			.Caption = "Druckvorschau"
			.TopForm = .T.
			.CanvasCount = 1
			.ZoomLevel = 5
			.Width = screenmaxb &&myform1.width + 200
			.height = screenmaxh &&myform1.height + 100
			.top = 0
			.left = 0
			.ToolbarIsVisible = .t.
		ENDWITH 

		loRepPreview.SetExtensionHandler(loExtension)
		loRepListener = NEWOBJECT('ReportListener')
		loRepListener.ListenerType = 1 
		loRepListener.PreviewContainer = loRepPreview
		
		SELECT kstgrid2
		GO top
		
		*REPORT FORM leistung2 WHILE .not. EOF() NOCONSOLE preview
		Report Form leistung1 WHILE .not. EOF() NOCONSOLE OBJECT loRepListener &&Noconsole Preview
		
		RELEASE loRepListener
		RELEASE loRepPreview
endif

Msg = ""
SELECT(oldselect)
 Msg = ""
 RELEASE 1,2,3,4,5,6,7,8,9,10,11,12,13
 release msp3, msp4, msp13_3,msp13_4	
ENDPROC
     
    
  
                        $   %   i	      8
  `   x	            U  S
 T   T  9877 7       	 
   
  = J  (       	 
   
   T C WO T ( L E I S T U N G S E N T G E L T E   2 0 C \  C R %   60 T # fr Personalflle ohne Kostenstelle  %   y$ T  fr ALLE Kostenstellen  0 T  fr Kostenstelle: C        T CC  ZJ 2 = 2 + "   in Programmteil   " + ALLTRIM(myform1.Modi&xxx..Caption)
 T  Bedienstete T  Beamten-  T  davon  T  Tarif-  T  davon  T   bezge  T  
 Leistungs-  T   entgelte  T  
 Leistungs-  T    T   bezge  T    T   entgelte  T   EURO T   EURO T   EURO T   EURO 7     T          T          T          T          F  #) +C+
 %    T      T   !  T   "  T   "   % #  Summe: T      T   !  T   "  T   "    H  F  #) %C$ % a F  #) ?	 leistung1(!"9+C+
  ' (  T' 
 V' 3 T) C MyInWindowFixer preview_fixer.prg
 ' S T* 
 Druckvorschau T+ a T,  T-  T. /  T0 1  T2   T3   T4 a  C ) ' 5  T( C ReportListener T( 6  T( 7 '  F  #) ?	 leistung19.( +C+
 <(  <'  
 T   
 F 
 T   7 <       	 
   
   <     U8  COUNTER MSG 1 2 3 4 5 6 7 8 9 10 11 12 13	 OLDSELECT WELCHESJAHRC THISFORM KSTFILTERBOX VALUE COMBO1 DISPLAYVALUE XXX MODUS CRLF U7 MSP3 MSP4 MSP13_3 MSP13_4 KSTGRID2 SORTIERENOPT SP3 SP4 SP14 SP2 DIREKTZUMDRUCKERQ TRUE	 LEISTUNG1 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1  q r qA A A raqaRQQQ9QQQQr Q  qAAAA AAAAA A A A r Q "q Q     2         A r Q r q A    q11                             )   
                        shape      shape      Shape1      FORM1      QTop = 9
Left = 7
Height = 72
Width = 126
SpecialEffect = 0
Name = "Shape1"
      label      label      Label1      FORM1      ^Caption = "  Monatsgehlter  "
Height = 16
Left = 22
Top = 3
Width = 93
Name = "Label1"
      optiongroup      optiongroup      akkumopt      FORM1     ButtonCount = 2
Value = 1
Height = 43
Left = 19
Top = 27
Width = 102
Name = "akkumopt"
Option1.Caption = "einzeln"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 94
Option1.Name = "akkumopt0"
Option2.Caption = "akkumuliert"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 94
Option2.Name = "akkumopt1"
     bPROCEDURE Click

IF this.Value = 1 &&einzeln
	IF thisform.sortierenopt.value = 0 .or. thisform.sortierenopt.value = 1 
		thisform.oberenteil.click
		thisform.persfaelle.click
	ELSE
		thisform.kstfilterbox.rightclick
	endif	
ELSE
	thisform.sum_oberenteil.click
endif
thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh




ENDPROC
                                      %   e           t            U    %   o ( %        V 
    
     k 
       
  	   
  
  
     U
  THIS VALUE THISFORM SORTIERENOPT
 OBERENTEIL CLICK
 PERSFAELLE KSTFILTERBOX
 RIGHTCLICK SUM_OBERENTEIL
 GRDKSTGRID REFRESH GRDKSTGRID2 Click,     1 B    A   A   5                       W      )                           label      label      Label2      FORM1      mCaption = "  Personalflle sortiert nach  "
Height = 16
Left = 154
Top = 3
Width = 157
Name = "Label2"
      optiongroup      optiongroup      sortierenopt      FORM1     ButtonCount = 2
Value = 1
Height = 43
Left = 151
Top = 27
Width = 111
Name = "sortierenopt"
Option1.Caption = "Reihenfolge"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 94
Option1.Name = "sorteierenopt0"
Option2.Caption = "Kostenstellen"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 94
Option2.Name = "sortierenopt1"
     PROCEDURE ProgrammaticChange
*this.click
ENDPROC
PROCEDURE Click
*thisform.msFlexGrid1.visible = .f.

If this.value = 1 
*!*	   thisform.Leerzeilenopt.Visible = True
	thisform.kstfilterbox.enabled = .f.
	thisform.kstfilterbox.Visible = .f.   
	thisform.kstfilterbox.value = 0
   thisform.Combo1.Visible = False
   thisform.combo1.enabled = .f.
   thisform.oberenteil.Click
   IF thisform.akkumopt.Value = 2
   		thisform.sum_oberenteil.Click
   	endif
   thisform.persfaelle.click
Else
*!*	   thisform.Leerzeilen.Visible = False
*!*	   thisform.Leerzeilenopt.Value = 1 &&vorher leerzeilen(0) = True
	thisform.kstfilterbox.enabled = .t.
	thisform.kstfilterbox.Visible = .t.
	thisform.kstfilterbox.value = 1	
   thisform.oberenfilter.Click
   IF thisform.akkumopt.Value = 2
   		thisform.sum_oberenteil.Click
   	endif   
   thisform.kostenstellen.click
EndIf

thisform.grdKstgrid.Refresh
thisform.grdkstgrid2.refresh
return



ENDPROC
                                      %   H           s            U    U  S %     T   - T   - T     T     T   -
   	  % 
   
   	  
   	  . T   a T   a T   
  
 	  % 
  
   	  
   	  
    
     B U  THIS VALUE THISFORM KSTFILTERBOX ENABLED VISIBLE COMBO1 FALSE
 OBERENTEIL CLICK AKKUMOPT SUM_OBERENTEIL
 PERSFAELLE OBERENFILTER
 KOSTENSTELLEN
 GRDKSTGRID REFRESH GRDKSTGRID2 ProgrammaticChange,      Click3     1 3 C11 q A   1 q A  A   A 4                       )         E         )                           combobox      combobox      Combo1      FORM1      _Enabled = .F.
Height = 24
Left = 272
Top = 48
Visible = .F.
Width = 163
Name = "Combo1"
     PROCEDURE Click

thisform.oberenfilter.Click

IF thisform.akkumopt.Value = 2
	thisform.sum_oberenteil.Click
endif	    

thisform.kostenstellen.click

thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh

*thisform.sum_oberenteil.click
ENDPROC
         j  j                           %          !  	               U  _ 
      %    1 
      
     
     
   	   U
  THISFORM OBERENFILTER CLICK AKKUMOPT VALUE SUM_OBERENTEIL
 KOSTENSTELLEN
 GRDKSTGRID REFRESH GRDKSTGRID2 Click,     1  r A    3                              )   j                        shape      shape      
leerzeilen      FORM1      uTop = 9
Left = 695
Height = 72
Width = 125
Enabled = .F.
Visible = .F.
SpecialEffect = 0
Name = "leerzeilen"
      label      label      Label3      FORM1      yCaption = "  Leerzeilen  "
Enabled = .F.
Height = 16
Left = 710
Top = 3
Visible = .F.
Width = 93
Name = "Label3"
      optiongroup      optiongroup      
leerzeilenopt      FORM1     ButtonCount = 2
Value = 1
Enabled = .F.
Height = 43
Left = 707
Top = 27
Width = 108
Visible = .F.
Name = "leerzeilenopt"
Option1.Caption = "unterdrcken"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 94
Option1.Name = "leerzeilenopt0"
Option2.Caption = "anzeigen"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 94
Option2.Name = "leerzeilenopt1"
     ZPROCEDURE ProgrammaticChange
*this.click
ENDPROC
PROCEDURE Click
*!*	If startflag = True 
*!*	return
*!*	endif

*!*	*!*	Leerzeilenopt(myindex).Value = True
*!*	Do optionleerzeilen &&WITH this.Value &&Do attached
*!*	startflag = True
*!*	thisform.akkumopt.Value = 1
*!*	startflag = False

*!*	thisform.durchrechnen.click

ENDPROC
                                         %   :       k      e             U    U    U   ProgrammaticChange,      Click3     1 3 =                       )         E   O      )                            shape      shape      Shape4      FORM1      STop = 9
Left = 454
Height = 72
Width = 230
SpecialEffect = 0
Name = "Shape4"
      label      label      Label4      FORM1      WCaption = " Drucken  "
Height = 16
Left = 469
Top = 3
Width = 93
Name = "Label4"
      optiongroup      optiongroup      
druckenopt      FORM1     2ButtonCount = 3
Value = 0
Height = 54
Left = 462
Top = 20
Width = 213
Name = "druckenopt"
Option1.Caption = "Monate"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 1
Option1.Width = 204
Option1.Name = "druckenopt0"
Option2.Caption = "Gehlter mit Zwischensummen"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 18
Option2.Width = 204
Option2.Name = "druckenopt1"
Option3.Caption = "Gehlter ohne Zwischensummen"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 35
Option3.Width = 204
Option3.Name = "Option2"
     !PROCEDURE Click
SELECT kstgrid &&monate
GO top

 PUBLIC 1,2,3,4,5,6,7,8,9,10,11,12,13,14
 STORE "" TO 1,2,3,4,5,6,7,8,9,10,11,12,13,14
 hssortalpha = .f.
 IF myform2.Druckenopt.Value = 3
 	IF ok("Sortieren nach Alphabet?") = .t.
	 	hssortalpha = .t.
	 	SELECT kstgrid2
	 	GOTO 1
	 	COPY TO array hskstgrid2temp
	 	GOTO 1
	 	COPY TO array hskstgridx FOR .not. EMPTY(kstgrid2.sp1) .and. ALLTRIM(kstgrid2.sp2) <> "Summe:"
	 	ASORT(hskstgridx,2)
	 	SELECT kstgrid2
	 	SET SAFETY off
	 	ZAP
	 	SET SAFETY on
	 	APPEND blank
	 	replace kstgrid2.sp1 WITH "."
	 	replace kstgrid2.sp2 WITH zt27(thisform.combo1.ListIndex + 1)
	 	FLUSH
		APPEND FROM array hskstgridx
		RELEASE hskstgridx
	 	GO top
 	ELSE
 		hssortalpha = .f.
	 	SELECT kstgrid2
	 	GOTO 1
	 	replace kstgrid2.sp1 WITH "."
	 	replace kstgrid2.sp2 WITH zt27(thisform.combo1.ListIndex + 1)
	 	FLUSH
		SET FILTER TO .not. EMPTY(kstgrid2.sp1) .and. ALLTRIM(kstgrid2.sp2) <> "Summe:"
		GO top
 	endif
 	myform2.Druckenopt.Value = 2
 ENDIF

 DO case
 	case myform2.Druckenopt.Value = 1
		1 = "M O N A T S G E H  L T E R   2 0 " + Substr(welchesjahrc, 3, 1) + " " + Right(welchesjahrc, 1)
		If myform2.akkumopt.Value = 1
			1 = 1 + " (Monate einzeln)"
		Else
			1 = 1 + " (akkumuliert)"
		Endif

		2 = "F  R   "
		If myform2.kstfilterbox.value > 0
			If myform2.kstfilterbox.value = 2 &&kst vorher 0
				2 = 2 + "P E R S O N A L F  L L E   O H N E   K O S T E N S T E L L E  "
			ELSE
				IF myform2.kstfilterbox.value = 3
					2 = 2 + "Kostenstelle: " + myform2.combo1.displayvalue + "  "
				ELSE
					2 = 2 + " ALLE KOSTENSTELLEN  "
				endif
			Endif
		Else
			2 = 2 + " A L L E   P E R S O N A L F  L L E  "
		Endif
		xxx = Alltrim(Str(modus,2,0))
		2 = 2 + "(EBENE = "+ALLTRIM(myform1.Modi&xxx..Caption) + ")"
		3 = "Monat"
		4 = "Beamten-" + crlf
		5 = "Angestellten-" + crlf
		6 = "Arbeiter-" + crlf
		7 = "Versorgung" + crlf
		8 = "Soz.Vers." + crlf
		9 = "Soz.Vers." + crlf
		10 = "ATV-" + crlf
		11 = "bernommene" + crlf
		12 = "Summe" + crlf
		13 = "Sachbezge" + crlf
		14 = "Sonstiges" + crlf
		
		4 = 4 + "bezge" + crlf
		5 = 5 + "vergtungen" + crlf
		6 = 6 + "lhne" + crlf
		7 = 7 + "Beamte" + crlf
		8 = 8 + "Angestellte" + crlf
		9 = 9 + "Arbeiter" + crlf
		10 = 10 + "Umlage" + crlf
		11 = 11 + "Steuern" + crlf
		12 = 12 + "Personalkosten" + crlf
		13 = 13 + "ATZ Aufstock." + crlf
		14 = 14 + "u.a. Umlagen" + crlf
		
		4 = 4 + "EURO"
		5 = 5 + "EURO"
		6 = 6 + "EURO"
		7 = 7 + "EURO"
		8 = 8 + "EURO"
		9 = 9 + "EURO"
		10 = 10 + "EURO"
		11 = 11 + "EURO"
		12 = 12 + "EURO"
		13 = 13 + "EURO"
		14 = 14 + "EURO"

				
		SELECT kstgrid
		GO BOTTOM &&summenzeeile
		PUBLIC msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12, msp13
		STORE 0 TO msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12, msp13
		msp3 = kstgrid.sp3
		msp4 = kstgrid.sp4
		msp5 = kstgrid.sp5
		msp6 = kstgrid.sp6
		msp7 = kstgrid.sp7
		msp8 = kstgrid.sp8
		msp9 = kstgrid.sp9
		msp10 = kstgrid.sp10
		msp11 = kstgrid.sp11
		msp12 = kstgrid.sp12
		msp13 = kstgrid.sp13
					
		SET FILTER TO RECNO() <= 12
		GO top
	
		IF direktzumdruckerQ() = true
			Report Form leistung2 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
		else
			LOCAL loRepPreview, loRepListener
				loRepPreview = NULL

				DO (_ReportPreview) WITH loRepPreview

				loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

				WITH loRepPreview
					.Caption = "Druckvorschau"
					.TopForm = .T.
					.CanvasCount = 1
					.ZoomLevel = 5
					.Width = screenmaxb &&myform1.width + 200
					.height = screenmaxh &&myform1.height + 100
					.top = 0
					.left = 0
					.ToolbarIsVisible = .t.
				ENDWITH 

				loRepPreview.SetExtensionHandler(loExtension)
				loRepListener = NEWOBJECT('ReportListener')
				loRepListener.ListenerType = 1 
				loRepListener.PreviewContainer = loRepPreview

				Report Form leistung2 WHILE .not. EOF() NOCONSOLE OBJECT loRepListener &&Noconsole Preview
				
				RELEASE loRepListener
				RELEASE loRepPreview
		endif	
	
		SELECT kstgrid
		SET FILTER TO 
		GO top
		
	
	case thisform.sortierenopt.Value = 2 
		IF thisform.kstfilterbox.Value = 1
			response = Messagebox("Seitenwechsel nach jeder Kostenstelle?" + Chr(13) + Chr(13) + "Whrend der Berechnung des Drucks luft die Sanduhr lange!", 3, "Seitenwechsel?")
			Do Case && response
				Case response = 2
					Return
				Case response = 6
					seitenwechsel = True
				Case response = 7
					seitenwechsel = False
			Endcase
		Else
			seitenwechsel = False
		Endif
*		Do kostenstellentitel &&Do attached
		1 = "A U F S U M M I E R U N G    D E R   J A H R E S G E H  L T E R   2 0 " + Substr(welchesjahrc, 3, 1) + " " + Right(welchesjahrc, 1)

		If thisform.kstfilterbox.Value = 2 
			2 = "fr Personalflle ohne Kostenstelle"
		ELSE
			If thisform.kstfilterbox.Value = 1 &&alle
				2 = "fr ALLE Kostenstellen "
			ELSE
				2 = "fr Kostenstelle: " + ALLTRIM(thisform.combo1.displayvalue) + " "
			endif		
		Endif

		xxx = ALLTRIM(STR(modus,1,0))
		2 = 2 + "   in Programmteil   " + ALLTRIM(myform1.Modi&xxx..Caption)
		3 = "Bedienstete"

		4 = "Beamten-" + crlf
		5 = "Angestellten-" + crlf
		6 = "Arbeiter-" + crlf
		7 = "Versorg." + crlf
		8 = "Soz.Vers." + crlf
		9 = "Soz.Vers." + crlf
		10 = "ATV-" + crlf
		11 = "bernommene" + crlf
		12 = "Summe" + crlf
		13 = "Sachbezge" + crlf
		14 = "Sonstiges" + crlf
		
		4 = 4 + "bezge"  + crlf
		5 = 5 + "vergtungen"  + crlf
		6 = 6 + "lhne"  + crlf
		7 = 7 + "Beamte"  + crlf
		8 = 8 + "Angestellte"  + crlf
		9 = 9 + "Arbeiter"  + crlf
		10 = 10 + "Umlage"  + crlf
		11 = 11 + "Steuern"  + crlf
		12 = 12 + "Personalkosten"  + crlf
		13 = 13 + "ATZ Aufstock."  + crlf
		14 = 14 + "u.a. Umlagen" + crlf
		
		4 = 4 + "EURO" 
		5 = 5 + "EURO"
		6 = 6 + "EURO"
		7 = 7 + "EURO"
		8 = 8 + "EURO"   
		9 = 9 + "EURO"
		10 = 10 + "EURO"
		11 = 11 + "EURO"
		12 = 12 + "EURO"
		13 = 13 + "EURO"
		14 = 14 + "EURO"		
		
		SELECT kstgrid
		GO BOTTOM &&summenzeeile
		PUBLIC msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12,msp13
		STORE 0 TO msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12,msp13
		msp3 = kstgrid.sp3
		msp4 = kstgrid.sp4
		msp5 = kstgrid.sp5
		msp6 = kstgrid.sp6
		msp7 = kstgrid.sp7
		msp8 = kstgrid.sp8
		msp9 = kstgrid.sp9
		msp10 = kstgrid.sp10
		msp11 = kstgrid.sp11
		msp12 = kstgrid.sp12
		msp13 = kstgrid.sp13
						
		SELECT kstgrid
		SET FILTER TO 
		
		SELECT kstgrid2
		GO top

		IF direktzumdruckerQ() = true
			IF seitenwechsel = true
				REPORT FORM leistung4 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
			ELSE
				REPORT FORM leistung3 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
			endif			
		else
			LOCAL loRepPreview, loRepListener
				loRepPreview = NULL

				DO (_ReportPreview) WITH loRepPreview

				loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

				WITH loRepPreview
					.Caption = "Druckvorschau"
					.TopForm = .T.
					.CanvasCount = 1
					.ZoomLevel = 5
					.Width = screenmaxb &&myform1.width + 200
					.height = screenmaxh &&myform1.height + 100
					.top = 0
					.left = 0
					.ToolbarIsVisible = .t.
				ENDWITH 

				loRepPreview.SetExtensionHandler(loExtension)
				loRepListener = NEWOBJECT('ReportListener')
				loRepListener.ListenerType = 1 
				loRepListener.PreviewContainer = loRepPreview
				IF seitenwechsel = true
					Report Form leistung4 WHILE .not. EOF() NOCONSOLE OBJECT loRepListener &&Noconsole Preview
				ELSE
					Report Form leistung3 WHILE .not. EOF() NOCONSOLE OBJECT loRepListener &&Noconsole Preview
				endif								
				RELEASE loRepListener
				RELEASE loRepPreview
		endif	
		
		SELECT kstgrid2
		SET FILTER TO 
		GOTO 1
		replace kstgrid2.sp1 WITH ""
		replace kstgrid2.sp2 WITH ""
		FLUSH
		thisform.grdkstgrid2.refresh
ENDCASE
IF hssortalpha = .t.
 	SELECT kstgrid2
 	SET SAFETY off
 	ZAP
 	SET SAFETY on
 	APPEND FROM array hskstgrid2temp
 	GO Top
	RELEASE hskstgrid2temp
endif	

thisform.grdkstgrid2.refresh

thisform.druckenopt.Value = 0
 RELEASE 1,2,3,4,5,6,7,8,9,10,11,12,13,14
 RELEASE msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12, msp13
 

ENDPROC
     I    0  0                        f   %                         U   F   #); 7        	 
   
  A J  (        	 
   
   T - %   :+ %C Sortieren nach Alphabet? a T a F 	 #	 ( 	 #+ ( C  
 C   Summe:	 C  F  G. S G.   >   . >  C     [	   <  #) # T - F 	 # >   . >  C     [' G(C  
 C   Summe:	 #)  T    
 HK    I T " M O N A T S G E H  L T E R   2 0 C \  C R %   " T    (Monate einzeln)  T    (akkumuliert)  T  F  R    %    & %   P T  ? P E R S O N A L F  L L E   O H N E   K O S T E N S T E L L E   " %   / T   Kostenstelle:         & T    ALLE KOSTENSTELLEN     e7 T  &  A L L E   P E R S O N A L F  L L E    T! CC"  ZB 2 = 2 + "(EBENE = "+ALLTRIM(myform1.Modi&xxx..Caption) + ")"
 T  Monat T  Beamten-#  T 
 Angestellten-#  T 	 Arbeiter-#  T 
 Versorgung#  T 	 Soz.Vers.#  T	 	 Soz.Vers.#  T
  ATV-#  T  bernommene#  T  Summe#  T
 
 Sachbezge#  T 	 Sonstiges#  T   bezge#   T   vergtungen#  T   lhne#  T   Beamte#   T   Angestellte#  T	 	  Arbeiter#  T
 
  Umlage#  T   Steuern# # T   Personalkosten# " T
 
 
 ATZ Aufstock.# ! T   u.a. Umlagen#  T   EURO T   EURO T   EURO T   EURO T   EURO T	 	  EURO T
 
  EURO T   EURO T   EURO T
 
  EURO T   EURO F   #6/ 7$ % & ' ( ) * + , - . 5 J ($ % & ' ( ) * + , - .  T$   /  T%   0  T&   1  T'   2  T(   3  T)   4  T*   5  T+   6  T,   7  T-   8  T.   9  G(CO #) %C: ; 	 ?	 leistung2(!"9+C+
 
 = >  T= 
 V= 3 T? C MyInWindowFixer preview_fixer.prg
 = s
 T@ 
 Druckvorschau TA a TB  TC  TD E  TF G  TH   TI   TJ a  C ? = K  T> C ReportListener T> L  T> M =  ?	 leistung29.> +C+
 <>  <=   F   G( #)  N   %   , TO C& Seitenwechsel nach jeder Kostenstelle?C
 C
 : Whrend der Berechnung des Drucks luft die Sanduhr lange! Seitenwechsel?x
 H( O  B O 

 TP ;  O (
 TP Q   A
 TP Q  n T G A U F S U M M I E R U N G    D E R   J A H R E S G E H  L T E R   2 0 C \  C R %   0 T # fr Personalflle ohne Kostenstelle y
 %   =
$ T  fr ALLE Kostenstellen  u
0 T  fr Kostenstelle: C         T! CC"  ZJ 2 = 2 + "   in Programmteil   " + ALLTRIM(myform1.Modi&xxx..Caption)
 T  Bedienstete T  Beamten-#  T 
 Angestellten-#  T 	 Arbeiter-#  T  Versorg.#  T 	 Soz.Vers.#  T	 	 Soz.Vers.#  T
  ATV-#  T  bernommene#  T  Summe#  T
 
 Sachbezge#  T 	 Sonstiges#  T   bezge#   T   vergtungen#  T   lhne#  T   Beamte#   T   Angestellte#  T	 	  Arbeiter#  T
 
  Umlage#  T   Steuern# # T   Personalkosten# " T
 
 
 ATZ Aufstock.# ! T   u.a. Umlagen#  T   EURO T   EURO T   EURO T   EURO T   EURO T	 	  EURO T
 
  EURO T   EURO T   EURO T
 
  EURO T   EURO F   #6/ 7$ % & ' ( ) * + , - . 5 J ($ % & ' ( ) * + , - .  T$   /  T%   0  T&   1  T'   2  T(   3  T)   4  T*   5  T+   6  T,   7  T-   8  T.   9  F   G( F  #) %C: ;  %P ;  ?	 leistung4(!"9+C+
  ?	 leistung3(!"9+C+
   = >  T= 
 V= 3 T? C MyInWindowFixer preview_fixer.prg
 =  T@ 
 Druckvorschau TA a TB  TC  TD E  TF G  TH   TI   TJ a  C ? = K  T> C ReportListener T> L  T> M =  %P ; S ?	 leistung49.> +C+
 y ?	 leistung39.> +C+
  <>  <=   F  G(	 # >     >     [
  T U   % a F  G. S G. 	   #) <  
  T U  T    ; <        	 
   
  / <$ % & ' ( ) * + , - .  UV  KSTGRID 1 2 3 4 5 6 7 8 9 10 11 12 13 14 HSSORTALPHA MYFORM2
 DRUCKENOPT VALUE OK KSTGRID2 HSKSTGRID2TEMP
 HSKSTGRIDX SP1 SP2 ZT27 THISFORM COMBO1	 LISTINDEX WELCHESJAHRC AKKUMOPT KSTFILTERBOX DISPLAYVALUE XXX MODUS CRLF MSP3 MSP4 MSP5 MSP6 MSP7 MSP8 MSP9 MSP10 MSP11 MSP12 MSP13 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 DIREKTZUMDRUCKERQ TRUE	 LEISTUNG2 LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER SORTIERENOPT RESPONSE
 SEITENWECHSEL FALSE	 LEISTUNG4	 LEISTUNG3 GRDKSTGRID2 REFRESH Click,     1 q Q  q q    q a A a Q A  q Q   q  A qQ A 1A  qq! A Rqq q aA A  qA q!!Qa1!RQQQQQQQQQQs Q Q Q "    2         A r q A r a Q sqA	 A   A   A r qA A A rQa1!RQQQQQQQQQQr Q Qr a r Q " A     2         A  A q q A r a  A  A  q a A a  Q q A  23                       !      )   0                        
commandbutton      
commandbutton      exportieren      FORM1      ^Top = 10
Left = 821
Height = 31
Width = 97
Caption = "exportieren"
Name = "exportieren"
      :PROCEDURE Click
register = 205
DO FORM export
ENDPROC
                                         %   `       w      o             U   
 T    export U  REGISTER EXPORT Click,     1   1                       /       )                            
commandbutton      
commandbutton      	schlieen      FORM1      ZTop = 9
Left = 1123
Height = 31
Width = 97
Caption = "schlieen"
Name = "schlieen"
      EPROCEDURE Click
myform1.visible = .t.
thisform.Release

ENDPROC
                                         %   p                          U    T   a
    U  MYFORM1 VISIBLE THISFORM RELEASE Click,     1   2                       :       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 678
Left = 1209
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
oberenteil      FORM1      zTop = 44
Left = 921
Height = 16
Width = 64
Caption = "oberenteil"
Enabled = .F.
Visible = .F.
Name = "oberenteil"
     	PROCEDURE Click
SET ENGINEBEHAVIOR 70
SELECT kstliste

GO top
SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste GROUP BY kstliste.sp15 INTO CURSOR abfrage READWRITE &&groupiert nach monat
GO top

DO WHILE .not. EOF()
	replace abfrage.sp1 WITH ""
	replace abfrage.sp2 WITH getmonthname(abfrage.sp15 - 1)
	replace abfrage.sp11 WITH abfrage.exp_4 + abfrage.exp_5 + abfrage.exp_6 + abfrage.exp_7 + abfrage.exp_8 + abfrage.exp_9 + abfrage.exp_10 + abfrage.exp_11
	FLUSH
	SKIP
ENDDO

SELECT kstgrid
SET SAFETY OFF
ZAP
SET SAFETY ON
FOR hsx = 1 TO 12
	APPEND BLANK
	flush
next

*oberenteil eintragen
SELECT abfrage
GO top
DO WHILE .not. EOF()
	SELECT kstgrid
	GOTO RECNO("abfrage")
	replace kstgrid.sp1 WITH abfrage.sp1 &&pernr
	replace kstgrid.sp2 WITH abfrage.sp2 &&monatsname
	replace kstgrid.sp3 WITH abfrage.exp_4
	replace kstgrid.sp4 WITH abfrage.exp_5
	replace kstgrid.sp5 WITH abfrage.exp_6
	replace kstgrid.sp6 WITH abfrage.exp_7
	replace kstgrid.sp7 WITH abfrage.exp_8
	replace kstgrid.sp8 WITH abfrage.exp_9
	replace kstgrid.sp9 WITH abfrage.exp_10
	replace kstgrid.sp10 WITH abfrage.exp_11
	replace kstgrid.sp11 WITH abfrage.sp11
	replace kstgrid.sp12 WITH abfrage.exp_13
	replace kstgrid.sp13 WITH abfrage.exp_14
	replace kstgrid.sp17 WITH abfrage.sp17
	FLUSH
	SELECT abfrage
	SKIP
ENDDO
SELECT kstgrid

*gesmat-summe
SUM kstgrid.sp3, kstgrid.sp4, kstgrid.sp5, kstgrid.sp6, kstgrid.sp7, kstgrid.sp8, kstgrid.sp9, kstgrid.sp10, kstgrid.sp11, kstgrid.sp12, kstgrid.sp13 TO msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12, msp13

SELECT kstgrid
APPEND BLANK
FLUSH
replace kstgrid.sp2 WITH "Gesamtsumme "+ welchesjahrc
replace kstgrid.sp3 WITH msp3
replace kstgrid.sp4 WITH msp4
replace kstgrid.sp5 WITH msp5
replace kstgrid.sp6 WITH msp6
replace kstgrid.sp7 WITH msp7
replace kstgrid.sp8 WITH msp8
replace kstgrid.sp9 WITH msp9
replace kstgrid.sp10 WITH msp10
replace kstgrid.sp11 WITH msp11
replace kstgrid.sp12 WITH msp12
replace kstgrid.sp13 WITH msp13
FLUSH

SELECT abfrage 
USE
SELECT kstgrid
GO top
ENDPROC
     0                              ,   %   9        C   H            U  
 GF F   #)o kstliste         C   dC   dC   dC   dC   dC  	 dC  
 dC   d   C  
 dC   dC   d             abfrage #) +C+
 >     >  C   D >                   [ H  F  G. S G.   (  [  F  #) +C+
? F  #C abfrageO >     >     >     >     >     >     >     > 	    > 
    >     >     > 
    >      >     [ F  H  F  K(! " # $ % & ' ( ) * +            	  
      
    F   [  >   Gesamtsumme ,  >  !  >  "  >  #  >  $  >  %  > 	 &  > 
 '  >  (  >  )  > 
 *  >  +  [ F  Q F  #) U-  KSTLISTE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 ABFRAGE GETMONTHNAME EXP_4 EXP_5 EXP_6 EXP_7 EXP_8 EXP_9 EXP_10 EXP_11 KSTGRID HSX EXP_13 EXP_14 MSP3 MSP4 MSP5 MSP6 MSP7 MSP8 MSP9 MSP10 MSP11 MSP12 MSP13 WELCHESJAHRC Click,     1  q R AQ  AA A A r a A a qQ A A s Q  q !11111111111111A q A A q #	r Q A A r A q Q 1                       x	      )                           
commandbutton      
commandbutton      
persfaelle      FORM1      zTop = 62
Left = 924
Height = 16
Width = 61
Caption = "persfaelle"
Enabled = .F.
Visible = .F.
Name = "persfaelle"
     PROCEDURE Click
SET ENGINEBEHAVIOR 70
SELECT kstliste
GO top
SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste GROUP BY kstliste.sp0 INTO CURSOR abfrage READWRITE &&grpoupiert nach personalnumer

SELECT abfrage
GO top
DO WHILE .not. EOF()
	replace abfrage.sp11 WITH abfrage.exp_4 + abfrage.exp_5 + abfrage.exp_6 + abfrage.exp_7 + abfrage.exp_8 + abfrage.exp_9 + abfrage.exp_10 + abfrage.exp_11
	FLUSH
	SKIP
ENDDO

SELECT kstgrid2
SET SAFETY OFF
ZAP
SET SAFETY ON

SELECT abfrage
GO top
DO WHILE .not. EOF()
	SELECT kstgrid2
	APPEND BLANK
	flush
	replace kstgrid2.sp1 WITH STR(abfrage.sp0,4,0) &&pernr
	replace kstgrid2.sp2 WITH abfrage.sp2 &&name
	replace kstgrid2.sp3 WITH abfrage.exp_4
	replace kstgrid2.sp4 WITH abfrage.exp_5
	replace kstgrid2.sp5 WITH abfrage.exp_6
	replace kstgrid2.sp6 WITH abfrage.exp_7
	replace kstgrid2.sp7 WITH abfrage.exp_8
	replace kstgrid2.sp8 WITH abfrage.exp_9
	replace kstgrid2.sp9 WITH abfrage.exp_10
	replace kstgrid2.sp10 WITH abfrage.exp_11
	replace kstgrid2.sp11 WITH abfrage.sp11
	replace kstgrid2.sp12 WITH abfrage.exp_13
	replace kstgrid2.sp13 WITH abfrage.exp_14
	replace kstgrid2.sp16 WITH abfrage.sp16
	replace kstgrid2.sp17 WITH abfrage.sp17
	FLUSH
	SELECT abfrage
	SKIP
ENDDO
			
SET ENGINEBEHAVIOR 90

SELECT abfrage 
USE
SELECT kstgrid
GO top

ENDPROC
                                      %   3        /   B            U  1
 GF F   #)o kstliste         C   dC   dC   dC   dC   dC  	 dC  
 dC   d   C  
 dC   dC   d             abfrage F  #) +C+
D >                   [ H  F  G. S G.  F  #) +C+
	 F   [ >  C   Z >     >     >     >     >     >     > 	    > 
    >     >     > 
    >     >     >     [ F  H 
 GZ F  Q F  #) U   KSTLISTE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 ABFRAGE EXP_4 EXP_5 EXP_6 EXP_7 EXP_8 EXP_9 EXP_10 EXP_11 KSTGRID2 EXP_13 EXP_14 KSTGRID Click,     1  q Q Ar Q  AA A A r a A a r Q  q Q A 11111111111111A q A A  r A q Q 2                             )                           
commandbutton      
commandbutton      
kostenstellen      FORM1      Top = 63
Left = 990
Height = 16
Width = 61
Caption = "kostenstellen"
Enabled = .F.
Visible = .F.
Name = "kostenstellen"
     PROCEDURE Click
SET ENGINEBEHAVIOR 70
SELECT kstliste
GO top
IF thisform.kstfilterbox.value = 1
*IF thisform.combo1.ListIndex = 1 &&alle kst
	SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste GROUP BY kstliste.sp16, kstliste.sp0 INTO CURSOR abfrage READWRITE &&groupiert nach kst und persnr
ELSE
	IF thisform.kstfilterbox.value = 2 &&nur ohne kst
		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste WHERE kstliste.sp16 = 0 GROUP BY kstliste.sp16, kstliste.sp0 INTO CURSOR abfrage READWRITE &&groupiert nach monat
	ELSE
*		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16 FROM kstliste WHERE ALLTRIM(zt27(kstliste.sp16 + 1)) $ zt27(thisform.combo1.listindex + 1) GROUP BY kstliste.sp16, kstliste.sp0 INTO CURSOR abfrage READWRITE &&groupiert nach monat kstliste.sp16 = thisform.combo1.listindex
		hsxxxxx = ALLTRIM(zt27(thisform.combo1.listindex + 1))
		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste WHERE hsxxxxx $ kstliste.sp17 GROUP BY kstliste.sp16, kstliste.sp0 INTO CURSOR abfrage READWRITE &&groupiert nach monat kstliste.sp16 = thisform.combo1.listindex
	endif
endif

SELECT abfrage
GO top
 
DO WHILE .not. EOF()
	replace abfrage.sp11 WITH abfrage.exp_4 + abfrage.exp_5 + abfrage.exp_6 + abfrage.exp_7 + abfrage.exp_8 + abfrage.exp_9 + abfrage.exp_10 + abfrage.exp_11
	FLUSH
	SKIP
ENDDO

SELECT kstgrid2
SET SAFETY OFF
ZAP
SET SAFETY ON

SELECT abfrage
GO top
DO WHILE .not. EOF()
	hsx = abfrage.sp16
	SELECT kstgrid2
	APPEND BLANK
	flush
	replace kstgrid2.sp16 WITH hsx
	flush
	APPEND BLANK
	FLUSH
	replace kstgrid2.sp2 WITH zt27(abfrage.sp16+1) &&kostenstelle
	replace kstgrid2.sp16 WITH hsx
	FLUSH
	
	STORE 0.00 TO msp3,msp4,msp5,msp6,msp7,msp8,msp9,msp10,msp11,msp12,msp13
	SELECT abfrage
	DO WHILE abfrage.sp16 = hsx .and. .not. EOF()
		SELECT kstgrid2
		APPEND BLANK
		FLUSH	
		replace kstgrid2.sp1 WITH STR(abfrage.sp0,4,0) &&pernr
		replace kstgrid2.sp2 WITH abfrage.sp2 &&name
		replace kstgrid2.sp3 WITH abfrage.exp_4
		replace kstgrid2.sp4 WITH abfrage.exp_5
		replace kstgrid2.sp5 WITH abfrage.exp_6
		replace kstgrid2.sp6 WITH abfrage.exp_7
		replace kstgrid2.sp7 WITH abfrage.exp_8
		replace kstgrid2.sp8 WITH abfrage.exp_9
		replace kstgrid2.sp9 WITH abfrage.exp_10
		replace kstgrid2.sp10 WITH abfrage.exp_11
		replace kstgrid2.sp11 WITH abfrage.sp11
		replace kstgrid2.sp12 WITH abfrage.exp_13
		replace kstgrid2.sp13 WITH abfrage.exp_14
		replace kstgrid2.sp16 WITH hsx
		replace kstgrid2.sp17 WITH abfrage.sp17
		msp3 = msp3 + kstgrid2.sp3
		msp4 = msp4 + kstgrid2.sp4
		msp5 = msp5 + kstgrid2.sp5
		msp6 = msp6 + kstgrid2.sp6
		msp7 = msp7 + kstgrid2.sp7
		msp8 = msp8 + kstgrid2.sp8
		msp9 = msp9 + kstgrid2.sp9
		msp10 = msp10 + kstgrid2.sp10
		msp11 = msp11 + kstgrid2.sp11
		msp12 = msp12 + kstgrid2.sp12		
		msp13 = msp13 + kstgrid2.sp13				
		FLUSH
		SELECT abfrage
		SKIP
	ENDDO
	SELECT kstgrid2
	APPEND BLANK
	FLUSH
	replace kstgrid2.sp2 WITH "Summe:" &&name
	replace kstgrid2.sp3 WITH msp3
	replace kstgrid2.sp4 WITH msp4
	replace kstgrid2.sp5 WITH msp5
	replace kstgrid2.sp6 WITH msp6
	replace kstgrid2.sp7 WITH msp7
	replace kstgrid2.sp8 WITH msp8
	replace kstgrid2.sp9 WITH msp9
	replace kstgrid2.sp10 WITH msp10
	replace kstgrid2.sp11 WITH msp11
	replace kstgrid2.sp12 WITH msp12
	replace kstgrid2.sp13 WITH msp13
	replace kstgrid2.sp16 WITH hsx
	flush	
	SELECT abfrage
ENDDO
						
SET ENGINEBEHAVIOR 90

SELECT abfrage 
USE
SELECT kstgrid2
GO top
thisform.grdkstgrid2.refresh
ENDPROC
     n    U  U                        |   %   3
        e   B
            U  
 GF F   #) %   Jo kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d                abfrage  %   *o kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d                    abfrage  T CC    *o kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d                    abfrage   F  #) +C+
PD >                !  "  [ H  F#  G. S G.  F  #) +C+
c T$    F#   [ >#  $  [  [ >#  C    >#  $  [= J        (% & ' ( ) * + , - . /  F  +  $  C+
	n F#   [ >#  C   Z >#     >#     >#     ># 	    ># 
    >#     >#      ># 
  !  >#   "  >#     >#   0  >#   1  >#  $  >#     T% % #   T& & #   T' ' # 	  T( ( # 
  T) ) #   T* * #   T+ + # 
  T, , #   T- - #   T. . #   T/ / #   [ F  H  F#   [ >#   Summe: >#  %  >#  &  ># 	 '  ># 
 (  >#  )  >#  *  ># 
 +  >#  ,  >#  -  >#  .  >#  /  >#  $  [ F  
 GZ F  Q F#  #)
  2 3  U4  KSTLISTE THISFORM KSTFILTERBOX VALUE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 ABFRAGE HSXXXXX ZT27 COMBO1	 LISTINDEX EXP_4 EXP_5 EXP_6 EXP_7 EXP_8 EXP_9 EXP_10 EXP_11 KSTGRID2 HSX MSP3 MSP4 MSP5 MSP6 MSP7 MSP8 MSP9 MSP10 MSP11 MSP12 MSP13 EXP_13 EXP_14 GRDKSTGRID2 REFRESH Click,     1  q Q q q A A r Q  AA A A r a A a r Q  q Q A A Q A A q q Q A 1111111111111AAAAAAAAAAAA q A A q Q A aA q A  r A q Q  1                             )   U                        
commandbutton      
commandbutton      oberenfilter      FORM1      ~Top = 44
Left = 990
Height = 16
Width = 64
Caption = "oberenfilter"
Enabled = .F.
Visible = .F.
Name = "oberenfilter"
     PROCEDURE Click
SET ENGINEBEHAVIOR 70
SELECT kstliste
GO top

IF thisform.kstfilterbox.value = 1
*IF thisform.combo1.ListIndex = 1 &&alle kst
	SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste GROUP BY kstliste.sp15 INTO CURSOR abfrage2 READWRITE &&groupiert nach monat
ELSE
	IF thisform.kstfilterbox.value = 2 &&nur ohne kst
		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste WHERE kstliste.sp16 = 0 GROUP BY kstliste.sp15 INTO CURSOR abfrage2 READWRITE &&groupiert nach monat
	ELSE
*		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16 FROM kstliste WHERE kstliste.sp16 = thisform.combo1.listindex GROUP BY kstliste.sp15 INTO CURSOR abfrage2 READWRITE &&groupiert nach monat	
*		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16 FROM kstliste WHERE ALLTRIM(zt27(kstliste.sp16 + 1)) $ zt27(thisform.combo1.listindex + 1) INTO CURSOR abfrage2 READWRITE &&groupiert nach monat GROUP BY kstliste.sp15
		hsxxxxx = ALLTRIM(zt27(thisform.combo1.listindex + 1))
		SELECT kstliste.sp0, kstliste.sp1, kstliste.sp2, SUM(kstliste.sp3)/100, sum(kstliste.sp4)/100, sum(kstliste.sp5)/100, sum(kstliste.sp6)/100, sum(kstliste.sp7)/100, sum(kstliste.sp8)/100, sum(kstliste.sp9)/100, SUM(kstliste.sp10)/100, kstliste.sp11, sum(kstliste.sp12)/100, sum(kstliste.sp13)/100, SUM(kstliste.sp14)/100, kstliste.sp15, kstliste.sp16, kstliste.sp17 FROM kstliste WHERE hsxxxxx $ kstliste.sp17 GROUP BY kstliste.sp15 INTO CURSOR abfrage2 READWRITE &&groupiert nach monat 

	endif
ENDIF

SELECT abfrage2
GO top

IF RECCOUNT() = 0
	SELECT abfrage2
	use
	SELECT kstgrid
	SET SAFETY OFF
	ZAP
	SET SAFETY ON
	SELECT kstgrid2
	SET SAFETY OFF
	ZAP
	SET SAFETY ON
	RETURN
ENDIF

*monatseintrge vervollstndigen wenn reccount() < 12
IF RECCOUNT() < 12
	SELECT * FROM abfrage2 INTO CURSOR abfrage readwrite
	SELECT abfrage
	SET SAFETY off
	ZAP
	SET SAFETY on
	SELECT abfrage2
	FOR hsx = 1 TO 12 &&monate prfen
		SELECT abfrage2
		locate FOR abfrage2.sp15 = hsx
		IF .not. FOUND()
			SELECT abfrage
			APPEND BLANK
			FLUSH
			replace abfrage.sp15 with hsx
			replace abfrage.sp1 WITH ""
			replace abfrage.sp2 WITH getmonthname(hsx - 1)
			FLUSH
		ELSE
			SELECT abfrage
			APPEND BLANK
			FLUSH			
			replace abfrage.sp1 WITH abfrage2.sp1 &&pernr
			replace abfrage.sp2 WITH getmonthname(abfrage2.sp15 - 1) &&monatsname
			replace abfrage.exp_4 WITH abfrage2.exp_4
			replace abfrage.exp_5 WITH abfrage2.exp_5
			replace abfrage.exp_6 WITH abfrage2.exp_6
			replace abfrage.exp_7 WITH abfrage2.exp_7
			replace abfrage.exp_8 WITH abfrage2.exp_8
			replace abfrage.exp_9 WITH abfrage2.exp_9
			replace abfrage.exp_10 WITH abfrage2.exp_10
			replace abfrage.exp_11 WITH abfrage2.exp_11
			replace abfrage.sp11 WITH abfrage2.sp11
			replace abfrage.exp_13 WITH abfrage2.exp_13
			replace abfrage.exp_14 WITH abfrage2.exp_14	
			replace abfrage.sp15 WITH abfrage2.sp15	
			replace abfrage.sp16 WITH abfrage2.sp16				
			replace abfrage.sp17 WITH abfrage2.sp17
			flush		
		ENDIF
	NEXT
	SELECT abfrage2
	USE
ELSE
	SELECT * FROM abfrage2 INTO CURSOR abfrage readwrite
	SELECT abfrage2
	USE
ENDIF

SELECT abfrage
GO top

DO WHILE .not. EOF()
	replace abfrage.sp1 WITH ""
	replace abfrage.sp2 WITH getmonthname(abfrage.sp15 - 1)
	replace abfrage.sp11 WITH abfrage.exp_4 + abfrage.exp_5 + abfrage.exp_6 + abfrage.exp_7 + abfrage.exp_8 + abfrage.exp_9 + abfrage.exp_10 + abfrage.exp_11
	FLUSH
	SKIP
ENDDO

*oberenteil eintragen
SELECT kstgrid
SET SAFETY OFF
ZAP
SET SAFETY ON
FOR hsx = 1 TO 12
	APPEND BLANK
	flush
next
SELECT abfrage
GO top
DO WHILE .not. EOF()
	SELECT kstgrid
	GOTO RECNO("abfrage")
	replace kstgrid.sp1 WITH abfrage.sp1 &&pernr
	replace kstgrid.sp2 WITH getmonthname(abfrage.sp15 - 1) &&monatsname
	replace kstgrid.sp3 WITH abfrage.exp_4
	replace kstgrid.sp4 WITH abfrage.exp_5
	replace kstgrid.sp5 WITH abfrage.exp_6
	replace kstgrid.sp6 WITH abfrage.exp_7
	replace kstgrid.sp7 WITH abfrage.exp_8
	replace kstgrid.sp8 WITH abfrage.exp_9
	replace kstgrid.sp9 WITH abfrage.exp_10
	replace kstgrid.sp10 WITH abfrage.exp_11
	replace kstgrid.sp11 WITH abfrage.sp11
	replace kstgrid.sp12 WITH abfrage.exp_13
	replace kstgrid.sp13 WITH abfrage.exp_14
	replace kstgrid.sp17 WITH abfrage.sp17
	FLUSH
	SELECT abfrage
	SKIP
ENDDO
SELECT kstgrid

*gesmat-summe
SUM kstgrid.sp3, kstgrid.sp4, kstgrid.sp5, kstgrid.sp6, kstgrid.sp7, kstgrid.sp8, kstgrid.sp9, kstgrid.sp10, kstgrid.sp11, kstgrid.sp12, kstgrid.sp13 TO msp3, msp4, msp5, msp6, msp7, msp8, msp9, msp10, msp11, msp12, msp13

SELECT kstgrid
IF RECCOUNT() > 0
	APPEND BLANK
	FLUSH
	replace kstgrid.sp2 WITH "Gesamtsumme "+ welchesjahrc
	replace kstgrid.sp3 WITH msp3
	replace kstgrid.sp4 WITH msp4
	replace kstgrid.sp5 WITH msp5
	replace kstgrid.sp6 WITH msp6
	replace kstgrid.sp7 WITH msp7
	replace kstgrid.sp8 WITH msp8
	replace kstgrid.sp9 WITH msp9
	replace kstgrid.sp10 WITH msp10
	replace kstgrid.sp11 WITH msp11
	replace kstgrid.sp12 WITH msp12
	replace kstgrid.sp13 WITH msp13
	FLUSH
ENDIF

SELECT abfrage 
USE
SELECT kstgrid
GO top
thisform.grdkstgrid.refresh
ENDPROC
     
    
  
                        }   %   H      u
     W            U  

 GF F   #) %   Bo kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d             abfrage2  %   "o kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d                 abfrage2  T CC    "o kstliste         C   dC   dC  	 dC  
 dC   dC   dC  
 dC   d   C   dC   dC   d                 abfrage2   F  #) %CN + F  Q F  G. S G.  F  G. S G.  B  %CN
j o abfrage2Ǽ abfrage F  G. S G.  F   ([ F  -   
 %C4
 F   [ >    >     >  C   [ W F   [ >     >  C    >       > !  !  > "  "  > #  #  > $  $  > %  %  > &  &  > '  '  >     > (  (  > )  )  >     >     >     [   F  Q  o abfrage2Ǽ abfrage F  Q  F  #) +C+
0 >     >  C   D >      !  "  #  $  %  &  '  [ H  F  G. S G.   (k  [  F  #) +C+
 F  #C abfrageO >     >  C    >      >   !  > 	  "  > 
  #  >   $  >   %  > 
  &  >   '  >     >   (  >   )  >     [ F  H  F  K(* + , - . / 0 1 2 3 4      	  
      
          F  %CN T
  [  >   Gesamtsumme 5  >  *  >  +  > 	 ,  > 
 -  >  .  >  /  > 
 0  >  1  >  2  >  3  >  4  [  F  Q F  #)
  6 7  U8  KSTLISTE THISFORM KSTFILTERBOX VALUE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP16 SP17 ABFRAGE2 HSXXXXX ZT27 COMBO1	 LISTINDEX KSTGRID KSTGRID2 ABFRAGE HSX GETMONTHNAME EXP_4 EXP_5 EXP_6 EXP_7 EXP_8 EXP_9 EXP_10 EXP_11 EXP_13 EXP_14 MSP3 MSP4 MSP5 MSP6 MSP7 MSP8 MSP9 MSP10 MSP11 MSP12 MSP13 WELCHESJAHRC
 GRDKSTGRID REFRESH Click,     1  q Q rR q! !B A r Q q A q a A a q a A a A A q a A a q qq  q Q A A  q Q A 111111111111111A A A q A  q A A r Q  AA A A s a A a qQ A A q Q  q !1111111111111A q A A q #	r Q A A A r A q Q  1                             )   
                        optiongroup      optiongroup      kstfilterbox      FORM1     ButtonCount = 3
Value = 0
Enabled = .F.
Height = 27
Left = 268
Top = 19
Width = 172
Visible = .F.
Name = "kstfilterbox"
Option1.Caption = "Alle"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 38
Option1.Name = "Option1"
Option2.Caption = "ohne"
Option2.Height = 17
Option2.Left = 47
Option2.Top = 6
Option2.Width = 46
Option2.Name = "Option2"
Option3.Caption = "Auswahl"
Option3.Height = 17
Option3.Left = 96
Option3.Top = 6
Option3.Width = 70
Option3.Name = "Option3"
     PROCEDURE RightClick
return
*!*	thisform.Leerzeilenopt.Value = 1 &&vorher leerzeilen(0) = True
DO case
	CASE this.Value = 1
		thisform.combo1.Enabled = .f.
		thisform.combo1.visible = .f.		
	    thisform.oberenteil.Click
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	    
	    thisform.kostenstellen.click	
	CASE this.Value = 2
		thisform.combo1.Enabled = .f.
		thisform.combo1.visible = .f.
	    thisform.oberenfilter.Click
	    SELECT kstgrid
	    IF RECCOUNT() = 0
	    	RETURN
	    endif
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	   
	    thisform.kostenstellen.click		
	CASE this.Value = 3
		thisform.combo1.Enabled = .t.
		thisform.combo1.visible = .t.		
	    thisform.oberenfilter.Click
	    SELECT kstgrid
	    IF RECCOUNT() = 0
	    	RETURN
	    endif	    
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	    	    
	    thisform.kostenstellen.click	
ENDCASE
thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh
ENDPROC
PROCEDURE Click
*!*	thisform.Leerzeilenopt.Value = 1 &&vorher leerzeilen(0) = True
DO case
	CASE this.Value = 1
		thisform.combo1.Enabled = .f.
		thisform.combo1.visible = .f.		
	    thisform.oberenteil.Click
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	    
	    thisform.kostenstellen.click	
	CASE this.Value = 2
		thisform.combo1.Enabled = .f.
		thisform.combo1.visible = .f.
	    thisform.oberenfilter.Click
	    SELECT kstgrid
	    IF RECCOUNT() = 0
	    	RETURN
	    endif
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	   
	    thisform.kostenstellen.click		
	CASE this.Value = 3
		thisform.combo1.Enabled = .t.
		thisform.combo1.visible = .t.		
	    thisform.combo1.ListIndex = 1
	    thisform.oberenfilter.Click
	    SELECT kstgrid
	    IF RECCOUNT() = 0
	    	RETURN
	    endif	    
	   IF thisform.akkumopt.Value = 2
	   		thisform.sum_oberenteil.Click
	   	endif	    	    
	    thisform.kostenstellen.click	
ENDCASE

thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh
ENDPROC
     y    `  `                           %   J        M   m            U   B
 H       T   - T   -
     %   x 
  	   
  
        T   - T   -
     F  %CN   B  %   
  	   
  
       T   a T   a
     F  %CN ~ B  %   
  	   
  
   
  
  
     U  THIS VALUE THISFORM COMBO1 ENABLED VISIBLE
 OBERENTEIL CLICK AKKUMOPT SUM_OBERENTEIL
 KOSTENSTELLEN OBERENFILTER KSTGRID
 GRDKSTGRID REFRESH GRDKSTGRID2
 H
       T   - T   -
     %   t 
  	   
  
       T   - T   -
     F  %CN   B  %   
  	   
  
       T   a T   a T  
 
     F  %CN  B  %   
  	   
  
   
    
     U  THIS VALUE THISFORM COMBO1 ENABLED VISIBLE
 OBERENTEIL CLICK AKKUMOPT SUM_OBERENTEIL
 KOSTENSTELLEN OBERENFILTER KSTGRID	 LISTINDEX
 GRDKSTGRID REFRESH GRDKSTGRID2
 RightClick,      Click    1 A  A q A  A q A A q A  A q A A q A  A   2  A q A  A q A A q A  A1 q A A q A  A   1                       /     '   K    )    )   `                        
commandbutton      
commandbutton      sum_oberenteil      FORM1      Top = 45
Left = 1059
Height = 16
Width = 64
Caption = "sum_oberenteil"
Enabled = .F.
Visible = .F.
Name = "sum_oberenteil"
     
PROCEDURE Click
SET ENGINEBEHAVIOR 70
SELECT kstgrid
GO top

SELECT kstgrid.sp1, kstgrid.sp2, kstgrid.sp3, kstgrid.sp4, kstgrid.sp5, kstgrid.sp6, kstgrid.sp7, kstgrid.sp8, kstgrid.sp9, kstgrid.sp10, kstgrid.sp11, kstgrid.sp12, kstgrid.sp13, kstgrid.sp14, kstgrid.sp15, kstgrid.sp17 FROM kstgrid WHERE RECNO() <= 12 INTO CURSOR abfrage READWRITE &&groupiert nach monat
GO top

SELECT abfrage
IF RECCOUNT() = 0
	SELECT kstgrid
	SET SAFETY OFF
	ZAP
	SET SAFETY ON
	SELECT kstgrid2
	SET SAFETY OFF
	ZAP
	SET SAFETY ON
	SELECT kstgrid
	RETURN
ELSE
	SELECT kstgrid
	SET SAFETY OFF
	ZAP
	SET SAFETY ON	
endif
FOR hsx = 1 TO 12
	APPEND BLANK
	FLUSH
NEXT

*oberenteil eintragen
msp3 = 0
msp4 = 0
msp5 = 0
msp6 = 0
msp7 = 0
msp8 = 0
msp9 = 0
msp10 = 0
msp11 = 0
msp12 = 0
msp13 = 0

SELECT kstgrid
GO top
DO WHILE .not. EOF()
	hsx = RECNO()
	SELECT abfrage
	GOTO hsx
	replace kstgrid.sp1 WITH abfrage.sp1 &&pernr
	replace kstgrid.sp2 WITH abfrage.sp2 &&monatsname
	replace kstgrid.sp3 WITH msp3 + abfrage.sp3
	replace kstgrid.sp4 WITH msp4 + abfrage.sp4
	replace kstgrid.sp5 WITH msp5 + abfrage.sp5
	replace kstgrid.sp6 WITH msp6 + abfrage.sp6
	replace kstgrid.sp7 WITH msp7 + abfrage.sp7
	replace kstgrid.sp8 WITH msp8 + abfrage.sp8
	replace kstgrid.sp9 WITH msp9 + abfrage.sp9
	replace kstgrid.sp10 WITH msp10 + abfrage.sp10
	replace kstgrid.sp11 WITH msp11 + abfrage.sp11
	replace kstgrid.sp12 WITH msp12 + abfrage.sp12
	replace kstgrid.sp13 WITH msp13 + abfrage.sp13
	FLUSH
	msp3 = kstgrid.sp3
	msp4 = kstgrid.sp4
	msp5 = kstgrid.sp5
	msp6 = kstgrid.sp6
	msp7 = kstgrid.sp7
	msp8 = kstgrid.sp8
	msp9 = kstgrid.sp9
	msp10 = kstgrid.sp10
	msp11 = kstgrid.sp11
	msp12 = kstgrid.sp12
	msp13 = kstgrid.sp13	
	SELECT kstgrid
	SKIP
ENDDO

SELECT kstgrid
GO bottom
msp3 = kstgrid.sp3
msp4 = kstgrid.sp4
msp5 = kstgrid.sp5
msp6 = kstgrid.sp6
msp7 = kstgrid.sp7
msp8 = kstgrid.sp8
msp9 = kstgrid.sp9
msp10 = kstgrid.sp10
msp11 = kstgrid.sp11
msp12 = kstgrid.sp12
msp13 = kstgrid.sp13

*gesmat-summe

SELECT kstgrid
APPEND BLANK
FLUSH
replace kstgrid.sp2 WITH "Gesamtsumme "+ welchesjahrc
replace kstgrid.sp3 WITH msp3
replace kstgrid.sp4 WITH msp4
replace kstgrid.sp5 WITH msp5
replace kstgrid.sp6 WITH msp6
replace kstgrid.sp7 WITH msp7
replace kstgrid.sp8 WITH msp8
replace kstgrid.sp9 WITH msp9
replace kstgrid.sp10 WITH msp10
replace kstgrid.sp11 WITH msp11
replace kstgrid.sp12 WITH msp12
replace kstgrid.sp13 WITH msp13
FLUSH

SELECT abfrage 
USE
SELECT kstgrid
GO top
ENDPROC
                                      %           k               U  
 GF F   #) o kstgrid                          	   
         
          CO abfrage #) F  %CN  F   G. S G.  F  G. S G.  F   B > F   G. S G.    (b  [ 
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T  
 T   F   #) +C+

 T CO F 	 #  >      >      >       >       >       >       >       >       >  	   	  >  
   
  >       >       >  
   
  [ T     T     T     T     T     T     T   	  T   
  T     T     T   
  F   H  F   #6 T     T     T     T     T     T     T   	  T   
  T     T     T   
  F    [  >    Gesamtsumme   >     >     >     >     >     >     >  	   >  
   >     >     >  
   [ F  Q F   #) U   KSTGRID SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 SP15 SP17 ABFRAGE KSTGRID2 HSX MSP3 MSP4 MSP5 MSP6 MSP7 MSP8 MSP9 MSP10 MSP11 MSP12 MSP13 WELCHESJAHRC Click,     1  q Q BQ r q a A a q a A a q A  q a A a A qQ A A            r Q   q  11qqqqqqqqqqqA q A A r Q t Q A A r A q Q 1                       
      )                           
commandbutton      
commandbutton      zuform3      FORM1      uTop = 45
Left = 855
Height = 16
Width = 64
Caption = "zu form3"
Enabled = .F.
Visible = .F.
Name = "zuform3"
     PROCEDURE Click
jahrzeigen = 1

*!*	thisform.MSFlexGrid1.Col = 0

If .Not. kstgrid2.sp1 = "Nr."
	i = INT(Val(ALLTRIM(kstgrid2.sp1)))
Else
	i = 0
Endif
If i < 1
	Return
Endif

namensfile = i
zi(1+20) = 12
Monat = 13
fileneu = i
zi(1+0) = fileneu - 1
myform1.tdbnumber1.Value = fileneu
Do Neuername &&Do attached

form1zeigen = ""
register = 41
namensfile = fileneu  && + 1
*!*	If myForm3.Visible = True
*!*		&&Unload Form3
*!*	Endif

&&Form3.WindowState = Form3.WindowState

DO FORM Form3

ENDPROC
     _    F  F                           %                          U  
 T   %   Nr.
;  T CCC  g8 P 
 T    % 
i  B 
 T   T 
 T 

 T   T   T 	 
    
 T   
 T
 )
 T  
  Form3 U 
 JAHRZEIGEN KSTGRID2 SP1 I
 NAMENSFILE ZI MONAT FILENEU MYFORM1
 TDBNUMBER1 VALUE	 NEUERNAME FORM1ZEIGEN REGISTER FORM3 Click,     1  a  A A A  1  q1q     2                             )   F                        grid      grid      
grdKstgrid      FORM1     	mColumnCount = 14
DeleteMark = .F.
HeaderHeight = 37
Height = 327
Left = 9
Panel = 1
ReadOnly = .T.
RecordSource = "kstgrid"
RecordSourceType = 1
Top = 81
Width = 1212
HighlightStyle = 0
LockColumnsLeft = 0
Name = "grdKstgrid"
Column1.ControlSource = "kstgrid.sp1"
Column1.Width = 37
Column1.ReadOnly = .T.
Column1.BackColor = 240,240,240
Column1.Name = "Column1"
Column2.ControlSource = "kstgrid.sp2"
Column2.Width = 158
Column2.ReadOnly = .T.
Column2.BackColor = 240,240,240
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "kstgrid.sp3"
Column3.Width = 81
Column3.ReadOnly = .T.
Column3.Format = "Z"
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "kstgrid.sp4"
Column4.Width = 81
Column4.ReadOnly = .T.
Column4.Format = "Z"
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "kstgrid.sp5"
Column5.Width = 81
Column5.ReadOnly = .T.
Column5.Format = "Z"
Column5.Name = "Column5"
Column6.Alignment = 1
Column6.ControlSource = "kstgrid.sp6"
Column6.Width = 81
Column6.ReadOnly = .T.
Column6.Format = "Z"
Column6.Name = "Column6"
Column7.Alignment = 1
Column7.ControlSource = "kstgrid.sp7"
Column7.Width = 81
Column7.ReadOnly = .T.
Column7.Format = "Z"
Column7.Name = "Column7"
Column8.Alignment = 1
Column8.ControlSource = "kstgrid.sp8"
Column8.Width = 81
Column8.ReadOnly = .T.
Column8.Format = "Z"
Column8.Name = "Column8"
Column9.Alignment = 1
Column9.ControlSource = "kstgrid.sp9"
Column9.Width = 81
Column9.ReadOnly = .T.
Column9.Format = "Z"
Column9.Name = "Column9"
Column10.Alignment = 1
Column10.ControlSource = "kstgrid.sp10"
Column10.Width = 81
Column10.ReadOnly = .T.
Column10.Format = "Z"
Column10.Name = "Column10"
Column11.Alignment = 1
Column11.ControlSource = "kstgrid.sp11"
Column11.Width = 81
Column11.ReadOnly = .T.
Column11.Format = "Z"
Column11.Name = "Column11"
Column12.Alignment = 1
Column12.ControlSource = "kstgrid.sp12"
Column12.Width = 81
Column12.ReadOnly = .T.
Column12.Format = "Z"
Column12.Name = "Column12"
Column13.Alignment = 1
Column13.ControlSource = "kstgrid.sp13"
Column13.Width = 81
Column13.ReadOnly = .T.
Column13.Format = "Z"
Column13.Name = "Column13"
Column14.Alignment = 1
Column14.ControlSource = "kstgrid.sp14"
Column14.Width = 81
Column14.ReadOnly = .T.
Column14.Format = "Z"
Column14.Name = "Column14"
     PROCEDURE Init
*!*	thisform.grdkstgrid.Column3.DynamicbackColor = "gridcolor_grdkstgrid(3)"
*!*	thisform.grdkstgrid.Column4.DynamicbackColor = "gridcolor_grdkstgrid(4)"
*!*	thisform.grdkstgrid.Column5.DynamicbackColor = "gridcolor_grdkstgrid(5)"
*!*	thisform.grdkstgrid.Column6.DynamicbackColor = "gridcolor_grdkstgrid(6)"
*!*	thisform.grdkstgrid.Column7.DynamicbackColor = "gridcolor_grdkstgrid(7)"
*!*	thisform.grdkstgrid.Column8.DynamicbackColor = "gridcolor_grdkstgrid(8)"
*!*	thisform.grdkstgrid.Column9.DynamicbackColor = "gridcolor_grdkstgrid(9)"
*!*	thisform.grdkstgrid.Column10.DynamicbackColor = "gridcolor_grdkstgrid(10)"
*!*	thisform.grdkstgrid.Column11.DynamicbackColor = "gridcolor_grdkstgrid(11)"
*!*	thisform.grdkstgrid.Column12.DynamicbackColor = "gridcolor_grdkstgrid(12)"
*!*	thisform.grdkstgrid.Column13.DynamicbackColor = "gridcolor_grdkstgrid(13)"
*!*	thisform.grdkstgrid.Column14.DynamicbackColor = "gridcolor_grdkstgrid(14)"
ENDPROC
                                      }   %   3       E      A             U    U   Init,     1 =                             )                            header      header      Header1      FORM1.grdKstgrid.Column1      3Caption = "Nr."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column2      4Caption = "Name"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column3      NAlignment = 1
Caption = "Beamten- bezge"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column4      QAlignment = 1
Caption = "Angest.- vergtung"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column4      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column5      NAlignment = 1
Caption = "Arbeiter- Lhne"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column5      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column6      OAlignment = 1
Caption = "Versorg.- Beamte"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column6      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column7      UAlignment = 1
Caption = "Soz.Vers.. Angestellte"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column7      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column8      QAlignment = 1
Caption = "Soz.Vers. Arbeiter"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column8      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column9      PAlignment = 1
Caption = "ATV Uml. + Zusch."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column9      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column10      MAlignment = 1
Caption = "Steuern des AG"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column10      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column11      QAlignment = 1
Caption = "Summe Pers.-kosten"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column11      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column12      TAlignment = 1
Caption = "Sachbezge ATZ-Aufst."
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column12      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column13      TAlignment = 1
Caption = "Sonstiges u.a.Umlagen"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column13      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKstgrid.Column14      QAlignment = 1
Caption = "Leistungs- entgelt"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKstgrid.Column14      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0h   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5VO0XGBF71363573903 1 53           1.000    0.000    0.000116900.00                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5VO0XGBF8           9  1                          75834.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5VO0XGBF9           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5VO0XGBFA           9  7                           2084.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5VO0XHF4C1363573931 8  0        4479.16795312.500 2083.33316979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5VO0XHF4D1363573931 8  0        2708.333 4479.167 2083.33326979.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5VO0XHF4E1363573931 8  0        4895.833 4479.167 2083.33326875.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          1T         0       0 1  0FTT0 0F         WINDOWS _5VO0XHF4F1363573931 8  0        4479.16797708.333 2083.33314479.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          1T         0       0 1  0FTT0 0F        WINDOWS _5VO0XOAP61363574101 8  0        7916.667 4583.333 2187.50095416.667                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0YCYUE1363574851 5  0       11041.667 4791.667 1666.667 8958.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5VO0YECYD1363574877 5  0       13229.167 6354.167 1666.66727500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5VO0YEWAQ1363574891 5  0        13229.16738750.000 1666.66711875.000                               -1   -1   -1   -1   -1   -1               !     0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _5VO0YFFC91363574931 8  0    "   13125.00034791.667 1875.000 3229.167                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5VO0YJTMM1363575016 5  0    $   15312.500 4791.667 1666.66730208.333                               -1   -1   -1   -1   -1   -1               %     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5VO0YK1FU1363575027 8  0    &   15208.33336250.000 1875.00037187.500                   C           -1   -1   -1   -1   -1   -1               '     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0YLCS81363575052 5  0    (   17395.833 4791.667 1666.66726666.667                               -1   -1   -1   -1   -1   -1               )     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0YMDLD1363575086 8  0    *   17291.66774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               +     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0YR5WK1363575196 5  0    ,   19375.000 4791.667 1666.66710520.833                               -1   -1   -1   -1   -1   -1               -     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0YRVSN1363575214 8  0    .   19270.83374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               /     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0YSBY71363575225 5  0    0   21354.167 4791.667 1666.66711562.500                               -1   -1   -1   -1   -1   -1               1     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0YSBY81363575225 8  0    2   21250.00074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               3     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0YUBD61363575275 5  0    4   23125.000 4791.667 1666.66734687.500                               -1   -1   -1   -1   -1   -1               5     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0YVBB31363575300 8  0    6   25104.167 6250.000 1875.00066770.833                   C           -1   -1   -1   -1   -1   -1               9     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z2A001363575473 8  0    :   27083.33374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               ;     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z39ZO1363575498 5  0    <   29166.667 4791.667 1666.66710520.833                               -1   -1   -1   -1   -1   -1               =     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0Z3N0Z1363575507 8  0    >   29062.50074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z4NPC1363575532 5  0    @   31145.833 4791.667 1666.66712916.667                               -1   -1   -1   -1   -1   -1               A     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0Z4NPD1363575532 8  0    B   31041.66774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               C     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z61UM1363575567 5  0    D   33125.000 4791.667 1666.66712395.833                               -1   -1   -1   -1   -1   -1               E     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0Z61UN1363575567 8  0    F   33020.83374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               G     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z6UHY1363575588 8  0    H   33125.00017604.167 1875.000 2604.167                   C           -1   -1   -1   -1   -1   -1               I     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0Z7HKN1363575602 5  0    J   33125.00020937.500 1666.66727500.000                               -1   -1   -1   -1   -1   -1               K     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0Z8R8E1363575635 5  0    L   35208.333 6145.833 1666.66763750.000                               -1   -1   -1   -1   -1   -1               N     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0Z9THI1363575661 8  0    O   36979.16774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               P     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZAHMC1363575676 5  0    Q   37083.333 4791.667 1666.66710000.000                               -1   -1   -1   -1   -1   -1               R     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZAHMD1363575676 8  0    S   36979.16715416.667 1875.000 2604.167                   C           -1   -1   -1   -1   -1   -1               T     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZAHME1363575676 5  0    U   37083.33318645.833 1666.66752916.667                               -1   -1   -1   -1   -1   -1               W     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZDVBS1363575761 8  0    X   38958.33374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZDVBT1363575761 5  0    Z   39062.500 4791.667 1666.66710000.000                               -1   -1   -1   -1   -1   -1               [     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZDVBU1363575761 8  0    \   38958.33315416.667 1875.000 2604.167                   C           -1   -1   -1   -1   -1   -1               ]     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZDVBV1363575761 5  0    ^   39062.50018645.833 1666.66744375.000                               -1   -1   -1   -1   -1   -1               `     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZEWEW1363575787 8  0    a   40937.50074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZEWEX1363575787 5  0    c   41041.667 4791.667 1666.66752187.500                               -1   -1   -1   -1   -1   -1               e     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZGT671363575834 8  0    f   42916.66774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZGT681363575834 5  0    h   43020.833 4791.667 1666.66720416.667                               -1   -1   -1   -1   -1   -1               i     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZL6J61363575944 8  0    j   42916.66725625.000 1875.00047916.667                   C           -1   -1   -1   -1   -1   -1               k     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZQBQH1363576072 5  0    l   45000.000 4791.667 1666.66723645.833                               -1   -1   -1   -1   -1   -1               m     0 10  1       FFFTF  F          0T                      0FTT0 0Fn        WINDOWS _5VO0ZQBQI1363576072 8  0    o   44895.83329062.500 1875.00044479.167                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0Fq        WINDOWS _5VO0ZQH201363576075 8  0    r   44687.50074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               s     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0Ft        WINDOWS _5VO0ZUSWT1363576182 5  0    u   46979.167 4791.667 1666.66730416.667                               -1   -1   -1   -1   -1   -1               v     0 10  1       FFFTF  F          0T                      0FTT0 0Fw        WINDOWS _5VO0ZUSWU1363576182 8  0    x   46875.00035937.500 1875.00037708.333                   C           -1   -1   -1   -1   -1   -1               y     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0Fz        WINDOWS _5VO0ZUSWV1363576182 8  0    {   46666.66774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F}        WINDOWS _5VO0ZZ8LC1363576294 5  0    ~   51979.167 4791.667 1666.66725208.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO0ZZF6T1363576298 8  0       51875.00074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZZK5S1363576301 8  0       51875.00061979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO0ZZRGT1363576306 8  0       51875.00049583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO100B5R1363576323 5  0       49479.16749687.500 1666.667 2916.667                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO100H9G1363576329 5  0       49479.16761875.000 1666.667 1979.167                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO101O1I1363576354 5  0       53958.333 4791.667 1666.66718645.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO101O1J1363576354 8  0       53854.16774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO101O1K1363576354 8  0       53854.16761979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO101O1L1363576354 8  0       53854.16749583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO104ZCQ1363576436 5  0       55937.500 4791.667 1666.66714270.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO105UOP1363576458 8  0       55833.33374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO105UOQ1363576458 8  0       55833.33361979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO105UOR1363576458 8  0       55833.33349583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO106ADR1363576468 8  0       55833.33323750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10A7IL1363576566 8  0       57812.50074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10A7IM1363576566 8  0       57812.50061979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10A7IN1363576566 8  0       57812.50049583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10A7IO1363576566 8  0       57812.50023750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AC8W1363576569 8  0       59791.66774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AC8X1363576569 8  0       59791.66761979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AC8Y1363576569 8  0       59791.66749583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AC8Z1363576569 8  0       59791.66723750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AITX1363576573 8  0       61770.83374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AITY1363576573 8  0       61770.83361979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AITZ1363576573 8  0       61770.83349583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AIU01363576573 8  0       61770.83323750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AMR71363576578 8  0       63750.00074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AMR81363576578 8  0       63750.00061979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AMR91363576578 8  0       63750.00049583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AMRA1363576578 8  0       63750.00023750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AQB11363576580 8  0       65729.16774375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AQB21363576580 8  0       65729.16761979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AQB31363576580 8  0       65729.16749583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10AQB41363576580 8  0       65729.16723750.000 1875.00025520.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10HWSA1363576885 5  0       67604.167 4791.667 1666.667 8750.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO10HWSB1363576885 8  0       67500.00074375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10HWSC1363576885 8  0       67500.00061979.167 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10HWSD1363576885 8  0       67500.00049583.333 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10ISOM1363576908 6           69583.33373750.000  104.16713541.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5VO10IV9C1363576910 8  0       69895.83374375.000 1875.00011666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10KIOA1363576950 5  0       71458.333 4791.667 1666.66725729.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO10LV8S1363576984 8  0       71458.33331250.000 1875.00042500.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5VO10OGDH1363577048 5  0       73437.500 6979.167 1666.66757708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5VO10SZZD1363577162 8  0       10937.50014270.833 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _5VP0S4CPQ1363634407 8  0       27187.500 6354.167 1875.00066770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date())                                                  Arial                                                         empty(ditext6)                                                B"Berechnung des Urlaubsanspruchs fr " + alltrim(form1.z0.Caption)                                                            Arial                                                         "1. Geboren am"                                               Arial                                                         -"Demnach wird in Laufe des Urlaubsjahres das"                 Arial                                                         "Lebensjahr erreicht."                                        Arial                                                         int(myurlaubsber.url1.value)                                  Arial                                                         1"2. Vergtungsgruppe zu Beginn des Urlaubsjahres"             Arial                                                         myurlaubsber.url2.value                                       Arial                                                         ,"3. Urlaubsanspruch bei einer Fnftagewoche"                  Arial                                                         myurlaubsber.anspruch.value                                   Arial                                                         "4. + Zusatzurlaub"                                           Arial                                                         myurlaubsber.zusatzfeld.value                                 Arial                                                         "5. Zwischenergenis"                                          Arial                                                         myurlaubsber.url4.value                                       Arial                                                         6"6. Umrechnung bei Abweichungen von der Fnftagewoche"        Arial                                                         alltrim(str(myurlaubsber.url5.value,5,0))+ " / 260 X ( " + alltrim(myurlaubsber.combo1.displayvalue)  + "  +  " + alltrim(myurlaubsber.combo3.displayvalue)                                   Arial                                                         myurlaubsber.url6.value                                       Arial                                                         "7. + Zusatzurlaub"                                           Arial                                                         myurlaubsber.TDBNumber9.value                                 Arial                                                         "8. = Zwischensumme"                                          Arial                                                         myurlaubsber.url7.value                                       Arial                                                         "9. Der Anspruch aus"                                         Arial                                                         myurlaubsber.url8.value                                       Arial                                                         myurlaubsber.TDBNumber4.value                                 Arial                                                         /"vollen Beschftigungsmonaten betrgt anteilig"               Arial                                                         j"(BUrlV: beim Ausscheiden wegen Rente i. d. 1. Jahreshfte = 6 Monate, i- d. 2. Jahreshlfte = 12 Monate)"                    Arial                                                         myurlaubsber.url9.value                                       Arial                                                         "10. - Krzung fr"                                           Arial                                                         myurlaubsber.TDBNumber2.value                                 Arial                                                         X"volle Kal.-Monate des Bezugs von befristeter Rente wegen vermindeter Erwerbsfhigkeit."                                      Arial                                                         myurlaubsber.url10.value                                      Arial                                                         "11. - Krzung fr"                                           Arial                                                         myurlaubsber.TDBNumber3.value                                 Arial                                                         J"volle Kal.-Monate Sonderurlaub (ausgen. Fortbildungsurlaub bis 3 Monate)"                                                    Arial                                                         myurlaubsber.url11.value                                      Arial                                                         T"12. Gesamter Urlaubsanspruch fr das laufende Jahr (Rundung nach  5 Abs. 2 BUrlG)"                                          Arial                                                         myurlaubsber.url15.value                                      Arial                                                         ""13. Mindesturlaub nach  3 BUrlG"                            Arial                                                         myurlaubsber.label12.caption                                  Arial                                                         &"14. Mindesturlaub nach  19 JArbSchG"                        Arial                                                         myurlaubsber.url1.value < 19                                  myurlaubsber.label29.caption                                  Arial                                                         myurlaubsber.url1.value < 19                                  myurlaubsber.url16.value                                      Arial                                                         myurlaubsber.url1.value < 19                                  2"15. Zusatzurlaub f. Schwerbehinderte 125 SGB IX"            Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      myurlaubsber.label14.caption                                  Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      myurlaubsber.url12.value                                      Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      +"16. Urlaubsanspruch fr das laufende Jahr"                   Arial                                                         myurlaubsber.verhltnis9.value                                Arial                                                         myurlaubsber.url27.value                                      Arial                                                         myurlaubsber.url13.value                                      Arial                                                         "Tage"                                                        Arial                                                         "von"                                                         Arial                                                          "17. Resturlaub aus den Vorjahr"                              Arial                                                         myurlaubsber.verhltnis0.value                                Arial                                                         myurlaubsber.TDBNumber12.value                                Arial                                                         myurlaubsber.TDBNumber11.value                                Arial                                                         "18. Verbrauchter Urlaub"                                     Arial                                                         myurlaubsber.verhltnis1.value                                Arial                                                         myurlaubsber.TDBNumber6_1.value                               Arial                                                         myurlaubsber.TDBNumber5_1.value                               Arial                                                         myurlaubsber.Text1_1.value                                    Arial                                                         myurlaubsber.verhltnis2.value                                Arial                                                         myurlaubsber.TDBNumber6_2.value                               Arial                                                         myurlaubsber.TDBNumber5_2.value                               Arial                                                         myurlaubsber.Text1_2.value                                    Arial                                                         myurlaubsber.verhltnis3.value                                Arial                                                         myurlaubsber.TDBNumber6_3.value                               Arial                                                         myurlaubsber.TDBNumber5_3.value                               Arial                                                         myurlaubsber.Text1_3.value                                    Arial                                                         myurlaubsber.verhltnis4.value                                Arial                                                         myurlaubsber.TDBNumber6_4.value                               Arial                                                         myurlaubsber.TDBNumber5_4.value                               Arial                                                         myurlaubsber.Text1_4.value                                    Arial                                                         myurlaubsber.verhltnis5.value                                Arial                                                         myurlaubsber.TDBNumber6_5.value                               Arial                                                         myurlaubsber.TDBNumber5_5.value                               Arial                                                         myurlaubsber.Text1_5.value                                    Arial                                                         myurlaubsber.verhltnis6.value                                Arial                                                         myurlaubsber.TDBNumber6_6.value                               Arial                                                         myurlaubsber.TDBNumber5_6.value                               Arial                                                         myurlaubsber.Text1_6.value                                    Arial                                                         "19. Resturlaub"                                              Arial                                                         myurlaubsber.verhltnis1.value                                Arial                                                         myurlaubsber.TDBNumber6_1.value                               Arial                                                         myurlaubsber.TDBNumber5_1.value                               Arial                                                         myurlaubsber.verhltnis8.value                                Arial                                                         +"20. Hhe einer etwaigen Urlaubsabgeltung:"                   Arial                                                         &myurlaubsber.Label36_abgeltung.Caption                        Arial                                                         b"(Monatl. Urlaubsvergtung x 12    /    Arbeitstage je Woche x 52   x   abzugeltende Urlaubstage)"                            Arial                                                         myurlaubsber.url0.value                                       Arial                                                         myurlaubsber.label24.caption                                  Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date())                                                  Arial                                                         empty(ditext6)                                                B"Berechnung des Urlaubsanspruchs fr " + alltrim(form1.z0.Caption)                                                            Arial                                                         "1. Geboren am"                                               Arial                                                         -"Demnach wird in Laufe des Urlaubsjahres das"                 Arial                                                         "Lebensjahr erreicht."                                        Arial                                                         int(myurlaubsber.url1.value)                                  Arial                                                         1"2. Vergtungsgruppe zu Beginn des Urlaubsjahres"             Arial                                                         myurlaubsber.url2.value                                       Arial                                                         ,"3. Urlaubsanspruch bei einer Fnftagewoche"                  Arial                                                         myurlaubsber.anspruch.value                                   Arial                                                         "4. + Zusatzurlaub"                                           Arial                                                         myurlaubsber.zusatzfeld.value                                 Arial                                                         "5. Zwischenergenis"                                          Arial                                                         myurlaubsber.url4.value                                       Arial                                                         6"6. Umrechnung bei Abweichungen von der Fnftagewoche"        Arial                                                         alltrim(str(myurlaubsber.url5.value,5,0))+ " / 260 X ( " + alltrim(myurlaubsber.combo1.displayvalue)  + "  +  " + alltrim(myurlaubsber.combo3.displayvalue)                                   Arial                                                         myurlaubsber.url6.value                                       Arial                                                         "7. + Zusatzurlaub"                                           Arial                                                         myurlaubsber.TDBNumber9.value                                 Arial                                                         "8. = Zwischensumme"                                          Arial                                                         myurlaubsber.url7.value                                       Arial                                                         "9. Der Anspruch aus"                                         Arial                                                         myurlaubsber.url8.value                                       Arial                                                         myurlaubsber.TDBNumber4.value                                 Arial                                                         /"vollen Beschftigungsmonaten betrgt anteilig"               Arial                                                         j"(BUrlV: beim Ausscheiden wegen Rente i. d. 1. Jahreshfte = 6 Monate, i- d. 2. Jahreshlfte = 12 Monate)"                    Arial                                                         myurlaubsber.url9.value                                       Arial                                                         "10. - Krzung fr"                                           Arial                                                         myurlaubsber.TDBNumber2.value                                 Arial                                                         X"volle Kal.-Monate des Bezugs von befristeter Rente wegen vermindeter Erwerbsfhigkeit."                                      Arial                                                         myurlaubsber.url10.value                                      Arial                                                         "11. - Krzung fr"                                           Arial                                                         myurlaubsber.TDBNumber3.value                                 Arial                                                         J"volle Kal.-Monate Sonderurlaub (ausgen. Fortbildungsurlaub bis 3 Monate)"                                                    Arial                                                         myurlaubsber.url11.value                                      Arial                                                         T"12. Gesamter Urlaubsanspruch fr das laufende Jahr (Rundung nach  5 Abs. 2 BUrlG)"                                          Arial                                                         myurlaubsber.url15.value                                      Arial                                                         ""13. Mindesturlaub nach  3 BUrlG"                            Arial                                                         myurlaubsber.label12.caption                                  Arial                                                         &"14. Mindesturlaub nach  19 JArbSchG"                        Arial                                                         myurlaubsber.url1.value < 19                                  myurlaubsber.label29.caption                                  Arial                                                         myurlaubsber.url1.value < 19                                  myurlaubsber.url16.value                                      Arial                                                         myurlaubsber.url1.value < 19                                  2"15. Zusatzurlaub f. Schwerbehinderte 125 SGB IX"            Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      myurlaubsber.label14.caption                                  Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      myurlaubsber.url12.value                                      Arial                                                         (.not. empty(myurlaubsber.SSCheck1.Value)                      +"16. Urlaubsanspruch fr das laufende Jahr"                   Arial                                                         myurlaubsber.verhltnis9.value                                Arial                                                         myurlaubsber.url27.value                                      Arial                                                         myurlaubsber.url13.value                                      Arial                                                         "Tage"                                                        Arial                                                         "von"                                                         Arial                                                          "17. Resturlaub aus den Vorjahr"                              Arial                                                         myurlaubsber.verhltnis0.value                                Arial                                                         myurlaubsber.TDBNumber12.value                                Arial                                                         myurlaubsber.TDBNumber11.value                                Arial                                                         "18. Verbrauchter Urlaub"                                     Arial                                                         myurlaubsber.verhltnis1.value                                Arial                                                         myurlaubsber.TDBNumber6_1.value                               Arial                                                         myurlaubsber.TDBNumber5_1.value                               Arial                                                         myurlaubsber.Text1_1.value                                    Arial                                                         myurlaubsber.verhltnis2.value                                Arial                                                         myurlaubsber.TDBNumber6_2.value                               Arial                                                         myurlaubsber.TDBNumber5_2.value                               Arial                                                         myurlaubsber.Text1_2.value                                    Arial                                                         myurlaubsber.verhltnis3.value                                Arial                                                         myurlaubsber.TDBNumber6_3.value                               Arial                                                         myurlaubsber.TDBNumber5_3.value                               Arial                                                         myurlaubsber.Text1_3.value                                    Arial                                                         myurlaubsber.verhltnis4.value                                Arial                                                         myurlaubsber.TDBNumber6_4.value                               Arial                                                         myurlaubsber.TDBNumber5_4.value                               Arial                                                         myurlaubsber.Text1_4.value                                    Arial                                                         myurlaubsber.verhltnis5.value                                Arial                                                         myurlaubsber.TDBNumber6_5.value                               Arial                                                         myurlaubsber.TDBNumber5_5.value                               Arial                                                         myurlaubsber.Text1_5.value                                    Arial                                                         myurlaubsber.verhltnis6.value                                Arial                                                         myurlaubsber.TDBNumber6_6.value                               Arial                                                         myurlaubsber.TDBNumber5_6.value                               Arial                                                         myurlaubsber.Text1_6.value                                    Arial                                                         "19. Resturlaub"                                              Arial                                                         myurlaubsber.verhltnis1.value                                Arial                                                         myurlaubsber.TDBNumber6_1.value                               Arial                                                         myurlaubsber.TDBNumber5_1.value                               Arial                                                         myurlaubsber.verhltnis8.value                                Arial                                                         +"20. Hhe einer etwaigen Urlaubsabgeltung:"                   Arial                                                         &myurlaubsber.Label36_abgeltung.Caption                        Arial                                                         b"(Monatl. Urlaubsvergtung x 12    /    Arbeitstage je Woche x 52   x   abzugeltende Urlaubstage)"                            Arial                                                         myurlaubsber.url0.value                                       Arial                                                         myurlaubsber.label24.caption                                  Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                JFIF  ` `   C 		

 $.' ",#(7),01444'9=82<.342 C			

2!!22222222222222222222222222222222222222222222222222  f ,"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? ڍ^%].# Þ@U:V%{d*Eyܸ`xq둳sIɺtg?i g	'SQNN
ԛNI+]aAȀ\ǂ+9?/
m[I!Q1ڹcNV;~]<s7ݏm!8ӫ|x|Kv% oܬE-N3^^/TMUwI%7˨NcpS#g8 Wk	]m.O!6';Wht<Qm}i
jەf@U:b>/W
z~=[%(wZy_at:k/'L\H}Ms*:h}Vs:*sz{+kLbzV'}\6czPQiCɯyJ[ioDIE>[6q~Q [>U4+Oaht{HA@O8[SXeww*'(x8ᷳX%;ld;p{籯>N.RQ:P՝-NUi
 \f}yO[r>r{pEM/IleĹgwtWg⎨|V4'i#aBx	9
t<݊UO]UM'|goE?l!rӯN:GdTkvYn 8Eʌ/A۠ ү-N%շ*́=3޳n'Kg4VeIVqڸ*v秄woVzy/(x:J OIalV'O&df wϞ{"67uÅ\ιV-PRҒלGNa^~^1YZyJҚhѡ,r#F$
o8C=k?/IԌfr v : 2z
L­9{:T[y?4RQQ4V<Hwcu$VrBc,Ou [I]sMT6vh^dGUkoJ$[gۻlҪzhR؉{*ڬ&]>5b8 8?:U(42lrsE-ˤ1Yr;
\?ouԮK=j|B vgM~ONK#2mbr}|H/t9MšK}s}>*WXW
PmsjԬT:/ϧ6'jIqG+֑ejWzBUL!-d q~X|m2H"H)a?:R$;Wm2b!!y;Hzs`]j7|Z%moefq1> 3l?F+{+e<tq^^$}⥖ggqj^4NI%9G飼%^<
g_ʊ+$x)
`Q@ F  z
Z(0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5VV16LL1E1364041360      /  F      ]                                                       WINDOWS _5VV16LL1F1430476312                      a                                               WINDOWS _5VV16LL1G1364041518                  v                                                 WINDOWS _5VV16RXLN1364041518y	      	  	  	  	                                                           WINDOWS _6841A8UHY1402711122#
  3
  S
  b
  o
  |
                                                           COMMENT RESERVED                                                                                            B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 482
Width = 669
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Nachricht"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS xmsg
IF PCOUNT() = 0
	xmsg = "Keine Nachricht verfgbar!"
ENDIF
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.edit1.value = xmsg


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     U    <  <                        w   %                          U    C     U  THISFORM SIZER	 FRMRESIZE  4   %Ct ? ' T   Keine Nachricht verfgbar!  %   
g  T     T     
     T      T 	  	  
  
  T  a U  XMSG THISFORM TOP EDIT1 VALUE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 q qA AA 1 rq  2                       ,         G         )   <                        
commandbutton      
commandbutton      Command1      FORM1      iTop = 432
Left = 235
Height = 37
Width = 199
Cancel = .T.
Caption = "schlieen"
Name = "Command1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            editbox      editbox      Edit1      FORM1      jEnabled = .F.
Height = 385
Left = 16
Top = 24
Width = 637
DisabledForeColor = 0,0,0
Name = "Edit1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 450
Left = 636
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %         ͊    /  MZ.    U  Y  F     ( R 	 #  %CC   `
 N    !   U  EGO_VKA I J K CODE MSG VKASTRINGAUSWERTEN
 T    T  CC  g8 T  CC  g8 T  CC  g8 T  CC  g8 T  CC 	 g8 T 
 C  
 T   V T
   T    %C   
 T C   9 T C    T  C  T   C K %C  2-02 C  2-11-01 C  2-11-02m
 %C  2-02 T
   T
 
    T   C  %C
 
 HF C 	\ 14t T
  C 	\ 153
 H/ C 	\ 15-01 T
  C 	\ 15-02 T
  C 	\ 15-03/ T
   C 	\ 01a T
  C 	\ 02 T
    %C
 
i

 He
& C 
\
 2-11-01-9b-01 T
  T
 & C 
\
 2-11-01-9c-01Q T
  T
 & C 
\
 2-11-01-10-01 T
  T
 & C 
\
 2-11-01-11-01 T
  T
 & C 
\
 2-11-01-12-015 T
  T
 & C 
\
 2-11-02-13-02 T
  T
 & C 
\
 2-11-02-13-03 T
  T
 & C 
\
 2-11-02-14-03 T
  T
 & C 
\
 2-11-02-14-04e T
  T
 & C 
\
 2-11-02-15-02 T
   T
 & C 
\
 2-11-02-15-03 T
   T
  2e
 T
 
 H%a
 C 	\ 15S T
   C 	\ 14 T
  C 	\ 13 T
  C 	\ 12 T
  C 	\ 11 T
  C 	\ 109 T
  C 	\ 09g T
  C 	\ 08 T
  C 	\ 07 T
  C 	\ 06 T
 	 C 	\ 05	 T
 
 C 	\ 04M	 T
  C 	\ 03{	 T
  C 	\ 02	 T
 
 C 	\ 01	 T
  C 	\ 9c
 T
  C 	\ 9b3
 T
  C 	\ 9aa
 T
        T
  T    TVD-VKA % 	
 H
 C 	\ 15
 T
   C 	\ 14% T
  C 	\ 13S T
  C 	\ 12 T
  C 	\ 11 T
  C 	\ 10 T
  C 	\ 09 T
  C 	\ 089 T
  C 	\ 07g T
  C 	\ 06 T
 	 C 	\ 05 T
 
 C 	\ 04 T
  C 	\ 03
 T
  C 	\ 02M
 T
 
 C 	\ 01{
 T
  C 	\ 9c
 T
  C 	\ 9b
 T
  C 	\ 9a T
   
 H C 	\ 15L T
   C 	\ 14z T
  C 	\ 13 T
  C 	\ 12 T
  C 	\ 11 T
  C 	\ 102 T
  C 	\ 09` T
  C 	\ 08 T
  C 	\ 07 T
  C 	\ 06 T
 	 C 	\ 05 T
 
 C 	\ 04F T
  C 	\ 03t T
  C 	\ 02 T
 
 C 	\ 01 T
     T   CC
   T  C  T
   %C  
S T
   %C  
 T
   %C  
 T
      T !  CC
 "   T
 
CC  \g T #  CC

 $  T% CC

 & x T' CC

 G0 C)C
 % C
  employee(  )  T* 
C' +  T, 
C' +  T -  C
, d %C

   T . / C0    T . / C1    T
 CC   \g T 2  CC
 3  T% CC
 & x T' CC
 G0 C)C
 % C
  employee(  )  T* C' +  T, C' +  T 4  C, d %C
  J T 5 / C0  i T 5 / C1   6 
 C 7  G. % 8 (b
 H^ 9  . T : ;  \G<  ICC8  Z. T : ;  \G<  ICC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?  9 y. T : ;  \G<  PCC8  Z. T : ;  \G<  PCC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?  9 ^. T : ;  \G<  RCC8  Z. T : ;  \G<  RCC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?    G.  @  A 
 T  B  UC  PENSIONSFLOP TRUE WVW ZEST EGO_VKA LZ1 LZ2 LZ3 LZ4 LZ5 ENTGELTCODE CODE SPARTE ZI MSG1
 MYFALLGRUPPEN WEIBLICH VALUE ZT6 BEZW BEZM ZULAGEN MYFORM1 Z6 CAPTION MSG GRUPPE Z4 ZT4 WELCHESJAHR Z5 ZT5 STUFE Z7 ZT7 Z12 ZT12 I FIX J MYGET	 GETVALUES BETRAG GRUNDBETRAG WERT T12 DEM12	 BACKCOLOR QBCOLOR	 FARBENRGB Z13 ZT13 T13 DEM13 WVWOUT MYCLOSE MONAT MODUS EIGDAT MUSER WELCHESJAHRC MSGX MSG1X FILECOPY	 DATEIOPEN
 BERECHNUNG FALSEY  F     ( R 	 #  %C   
\ N    !   U  EGO_BUND I J K CODE MSG BUNDSTRINGAUSWERTENL

 T    T  CC  g8 T  CC  g8 T  CC  g8 T  CC  g8 T  CC 	 g8 T 
 C  
 T   B T
   T    %C   
 T C   9 T C    T  C  T   C  %C  4-25 T
 
   T   C 
 H C 	\ 12a T
   C 	\ 11b% T
  C 	\ 11aT T
  C 	\ 10a T
  C 	\ 9d- T
  C 	\ 9c- T
  C 	\ 9b- T
  C 	\ 9a-? T
  C 	\ 8a-n T
  C 	\ 7a-;* %C    C   	 T
 	 * %C    C   	 T
 
  %C   7 T
   C 	\ 4a-j T
 
 C 	\ 3a- T
      T
 
 T   	 TVD-Bund
 H C 	\ 15 T
   C 	\ 14D T
  C 	\ 13r T
  C 	\ 12 T
  C 	\ 11 T
  C 	\ 10 T
  C 	\ 9b* T
  C 	\ 9aX T
  C 	\ 08 T
  C 	\ 07 T
 	 C 	\ 06 T
 
 C 	\ 05 T
  C 	\ 04> T
  C 	\ 03l T
 
 C 	\ 02 T
  C 	\ 01 T
    T   CC
   T  C  T
   %C  
G T
   %C  
v T
   %C  
 T
     T    CC
 !   T
 
CC  \g T "  CC

 #  T$ CC

 % x T& CC

 G0 C)C
 $ C
  employee'  (  T) 
C& *  T+ 
C& *  T ,  C
+ d %C

  	 T - . C/  
 T - . C0    T
 CC   \g T 1  CC
 2  T$ CC
 % x T& CC
 G0 C)C
 $ C
  employee'  (  T) C& *  T+ C& *  T 3  C+ d %C
  > T 4 . C/  ] T 4 . C0   5 
 C 6  G. $ 7 ($

 H 
 8  ". T 9 :  \G;  ICC7  Z. T 9 :  \G;  ICC$  Z C    <  8 . T 9 :  \G;  PCC7  Z. T 9 :  \G;  PCC$  Z C    <  8  
. T 9 :  \G;  RCC7  Z. T 9 :  \G;  RCC$  Z C    <    G.  =  > 
 T  ?  U@  PENSIONSFLOP TRUE WVW ZEST EGO_BUND LZ1 LZ2 LZ3 LZ4 LZ5 ENTGELTCODE CODE SPARTE ZI MSG1
 MYFALLGRUPPEN WEIBLICH VALUE ZT6 BEZW BEZM ZULAGEN MYFORM1 Z6 CAPTION MSG GRUPPE Z4 ZT4 Z5 ZT5 STUFE Z7 ZT7 Z12 ZT12 I FIX J MYGET	 GETVALUES BETRAG GRUNDBETRAG WERT T12 DEM12	 BACKCOLOR QBCOLOR	 FARBENRGB Z13 ZT13 T13 DEM13 WVWOUT MYCLOSE MONAT MODUS EIGDAT MUSER WELCHESJAHRC FILECOPY	 DATEIOPEN
 BERECHNUNG FALSES 
   L  T   T   T   T   	   U
  DIMEN DIMFORM1OBEN	 FORM1OBEN
 DIMFORM1BREIT
 FORM1BREIT
 DIMFORM1LINKS
 FORM1LINKS DIMFORM1HOCH	 FORM1HOCH DIMENAUS  T       U  DIMEN DIMFORM1HOCH	 FORM1HOCH DIMENAUS  T       U  DIMEN
 DIMFORM1LINKS
 FORM1LINKS DIMENAUS
     U  DIMENAUS
 T   
 H v         	        *  ,	  /  %  C  	/{ C. Die 1. Position der Liste (Keine Kostenstelle)C
  kann nicht verndert werden.  Geschtzter Datensatzx B  T CC  Z? Do FORM eingabefeldeditieren WITH myform1.z&hssax..caption 

 T    
 H C  C 	 C  C  C  C 	 C $ C % T CC  Z? Do FORM eingabefeldeditieren WITH myform1.z&hssax..caption 

 T     U 	 TEXTINDEX ZTI ZI HSSAX	 LINKEMAUS TRUEY  F     ( R 	 #  %C   
\ N    !   U  EGO_TVL I J K CODE MSG STRINGAUSWERTEN
D C   \G200CC  Z iCC ZM wvw   %CM  	[ T H Die neuen Tariftabellen stehen nun fr neue Berechnungen zur Verfgung. C
 X T E Legen Sie vor weiteren Aktionen TARIFE/TARIFE-200?/TARIFSTRUKTUR festC
 U T B ab welchen Zeitpunkten die neuen Tabellen verwendet werden sollen.C
 ^ T K So stellen Sie einen bisher angelegten Personalfall auf die neuen Tarife umC
 ^ T	 K So stellen Sie einen bisher angelegten Personalfall auf die neuen Tarife umC
 A T
 . 1. Klicken Sie unten auf die Schaltflche NEINC
 O T < 2. Rufen Sie in Zeile 1 den umzustellenden Personalfall auf.C
 a T N 3. Whlen Sie den Monat aus, ab dem Sie diesen Personalfall umstellen mchten.C
 w T
 ^ 4. Doppelklicken Sie auf die Ziffer in der Laufbox in Zeile 1.Dies lst die Neuberechnung aus.C
 C
 P T = Wollen Sie die Personalflle nicht manuell einzeln umstellen,C
 V T I sondern wollen Sie die Umstellung komplett vom Programm vornehmen lassen?^ T C    	 
   
     Alle Berechnungen neu berechnen?x % 	| T CQ Wollen Sie Ihre Personalflle vor der Neuberechnung vom Programm sichern lassen?. Daten vorher sichern?x % 	
 T  
 C  
 T  h T   \  
 \SicherungCCC % ZCCC H ZCCCC^ ZCCCC^ Z Mkdir "&Msg"
  (
f C   \G20CC  Z iCC  Z  \g20CC  Z iCC  Z f C   \G20CC  Z pCC  Z  \g20CC  Z pCC  Z f C   \G20CC  Z rCC  Z  \g20CC  Z rCC  Z  3 T   Die Sicherung ist abgeschlossen.C
 K T 8 Die gesicherten Dateien befinden sich in dem VerzeichnisC
  T  C
 C
 M T : Sollen jetzt die Personalflle mit den neuen TariftabellenC
 # T	  durchgerechnet werden?S T C    	 - Sicherung abgeschlossen. Jetzt aktualisieren?x %    (    (  C
   wnw   (         C% Smtliche Personalstze des Jahres 20CC  Z3  wurden mit den neuen Tariftabellen durchgerechnet.  Fertigx Chdir "&msg1"

 T 
 T 
 T     T    !    
 CH Die neuen Tariftabellen stehen nun fr neue Berechnungen zur Verfgung. C
 I Kontrollieren Sie die Festlegungen unter TARIFE/TARIFE-200?/TARIFSTRUKTUR   Tariftabellen sind aktualisiert.x  U"  MYOPEN EIGDAT MUSER K LOF MSGX1 MSGX2 MSGX3 MSGX4 MSGX5 MSGX6 MSGX7 MSGX8 MSGX9 MSGX10 MSGX11 RESPONSE FM MYCLOSE MSG1 MSG DATE I FILECOPY MODUS	 DATEIOPEN FILENEU
 SATZANZAHL MYGET MONAT WVWIN
 BERECHNUNG ZI	 NEUERNAMEm
 H
 f    Y01K  T  111 T   manual      Y02f       Y03 
 T a 
 Freischaltung    Y04 %  
 
 T  
 T   T	 C  Z 
   %  CP Da sich die Abfrage nach einem neuen Update auch auf die Tarifdateien erstreckt,C
 G funktioniert die Updateabfrage nur, wenn Tarifdateien installiert sind.
 
J ffnen Sie die Auswahlbox der Zeile 3 und whlen dort Besoldungsordnung A.C
 9 Danach wird angeboten, die Tarifdatei nachzuinstallieren. A In Zeile 3 kann die Installation der Tarifdatei gestartet werden.x B 
 T      %  
 B       Y05
 T > 
 lizenzinhaber    Y06'    Y07
    C Die nderungen im DrckermenC
 6 werden erst nach einem Neustart des Programms wirksam.  Programm neu starten.x    Y08+ T     %    	   B   Textedit    Y09F   C   Y10 Y73a    Y11  pfadeunduser    Y12  komprimieren    Y13Q 7! Q SINGLE 7" Q SINGLE T# $ %  T& $ '  T( $ )  T* $ +  ,  %- . I /   8    Y20e    Y21
 T !h
 wochenarbzeit1  C2  N3  N4  N5  N6  N7  N8  N9  N:  N;  N<  N=  N 
 wochenarbzeit    Y22    Y23    Y24    Y25*
 T  	 Zuschlge    Y26\
 T  	 Zuschlge    Y27
 T? (
 T@    Sonderregelungen    Y28    Y29    Y40
 T@  
 T? )  Sonderregelungen    Y41$    Y42L  KVC/C     Y43`    Y44t    Y45    Y50 D     Y51 E     Y52 F     Y53 G     Y54	 H     Y55*	 I     Y56E	 J     Y57`	 K     Y60{	 L     Y61	    Y62 %M  	
 TM  
 TN O  P N 
 T     Q o(s2
 C Q  woerterR  T    S T  ( TU C  4 Von 2018 nach 2019x %U s
 B ! TV W X  \G2019I1.dbf  If File("&hsxdat") = .T. TU Cf Wenn Sie JA whlen, werden bereits vorhandene 2019er Dateien berschrieben. Es handelt sich um die am CCW X  \G2019i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx %U  B 2 R,:' Bitte Geduld, die Verarbeitung luft... 
 T `
 TY Z 
 T[ O  \ Y [  R    Y63 %M  F
 TM  
 TN O  P N 
 T     Q o(s C Q  woerterR  T    S T  , TU C  4 Von ]   nach ^ x %U  B % TV W X  \G^  I1.dbf  If File("&hsxdat") = .T.j TU C. Wenn Sie JA whlen, werden bereits vorhandene ^ 4 er Dateien berschrieben. Es handelt sich um die am CCW X  \G^  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx %U 4 B 2 R,:' Bitte Geduld, die Verarbeitung luft... 
 T `
 T[ O 
 T_ `  \ [ _  R    Y64y %M  
 TM  
 TN `  P N 
 T     Q o(sL C Q  woerterR  T    S T  , TU C  4 Von ^   nach a x %U  B % TV W X  \Ga  I1.dbf! If File("&hsxdat") = .T. :b Tb . Wenn Sie JA whlen, werden bereits vorhandene a  er Dateien berschrieben.C
 f Tc  Es handelt sich um die am CCW X  \Ga  i1.dbfX*  angelegten Dateien.C
 ' Td   Wollen Sie berschreiben?% TU Cb c d  Warnungx %U  B 2 R,:' Bitte Geduld, die Verarbeitung luft... 
 T `
 T_ ` 
 Te   \ _ e  R    Y65 %M  
 TM  
 TN   P N 
 T     Q o(s C Q  woerterR  T    S T  , TU C  4 Von a   nach f x %U a B % TV W X  \Gf  I1.dbf! If File("&hsxdat") = .T.  TU C. Wenn Sie JA whlen, werden bereits vorhandene f 4 er Dateien berschrieben. Es handelt sich um die am CCW X  \Gf  i1.dbfX*.  angelegten Dateien. Wollen Sie berschreiben? Warnungx %U  B 2 R,:' Bitte Geduld, die Verarbeitung luft... 
 T `
 Te  
 Tg h  \ e g  R    Y66v
 T  
 T  
 T Z  T	 C  Z i  Tj k     Y67
 T  
 T  
 T O  T	 C  Z i  Tj k     Y68D
 T  
 T  
 T `  T	 C  Z i  Tj k     Y69
 T  
 T  
 T   T	 C  Z i  Tj k     Y70
 T  
 T  
 T h  T	 C  Z i  Tj k     Y71:
 T  l     Y72b
 T  l     Y74} m     Y80 T       Y81 T       Y82 T  000 T   Besoldung.de      Y83J
 T  T   A1      Y84
 T  T   A1      Y85
 T  T   V1      Y86
 T  T   K1      Y87&
 T  T   P1      Y88s T  000" T   Sozialgesetzbcher.de      Y89 T  000; T  . pc-gehalt.de/Lohnsteuer/Einkommensteuergesetz/      Y90 T  111 T   manual      Y91P T  110 Tn U      Y92 T  110 T   gehalt-lizenzen      Y93 T  111 T   137      Y94    Y95- T  110 T   gehalt-lizenzen      Y96f T  110 Tn Y    Uo  MSG INET INSINTERNET SPEICHERORTFESTLEGEN REGISTER
 FREISCHALTUNG WELCHESJAHR JAHR4 WELCHESJAHROLD WELCHESJAHRC NACHJAHRWECHSELN NETTOENTGELT TRUE CHR III INTERNETUPDATE UPDATESUCHEN RETVAL UPDATEANZEIGEN
 LIZENZINHABER
 COMMONDIALOG1 SHOWPRINTER MYFORM1 KCOMBO VISIBLE FALSE USERNR
 TEXTSCHUTZ SCHUTZNACHRICHT TEXTEDIT SITZUNGSWIEDERHERSTELLUNG PFADEUNDUSER KOMPRIMIEREN STARTEN PAUSE	 FORM1OBEN FORM1 TOP
 FORM1LINKS LEFT	 FORM1HOCH HEIGHT
 FORM1BREIT WIDTH DIMENAUS DIMEN DIMPW5 TRESORAKTIVIEREN
 WOCHENARBZEIT COL0 COL1 COL2 COL3 COL4 COL5 COL6 COL7 COL8 COL9 COL10 COL11 COL12	 ZUSCHLGE ZTI
 SRVORGABEN SONDERREGELUNGEN KV ZI BEITRAGDRUCKEN BUNDESKNAPPSCHAFTVORSPANN LSTRNACHWEIS ZVKDRUCKENVORSPANN ZVKJAHRDRUCKENVORSPANN BEITRAGSJAHR JAHRESLOHNSTEUER LOHNSTEUERBESCHEINIGUNG NEUDURCHRECHNEN MYINDEXE TEMPJAHR JAHR2 WECHSELNACH I MYGET WOERTER TEXTEE RESPONSE HSXDAT EIGDAT MUSER	 TEMPJAHR1 JAHR1	 TEMPJAHR2 WECHSEL_VON_NACH XJAHR2 XJAHR3	 TEMPJAHR3 JAHR3 XJAHR4 MSGX1 MSGX2 MSGX3	 TEMPJAHR4 XJAHR5	 TEMPJAHR5 JAHR5 PERSONALLOESCHEN
 TDBNUMBER1 VALUE LADEN SICHERORDNEN MYLINK2 T  CC Ordner des Vorjahres auswhlen! f
 H? 	  ] %C   \\
 i CA Bitte suchen Sie das Programmverzeichnis in der Netzwerkumgebung.  Korrektur erforderlichx B  T CC  Z( myTablett.zeile&xxx..Caption = sPath
9 C  \gehaltC \ sr	 userdaten   Co 	 userdaten  T	 
    T CC  ZA userdaten.username = Str(myTablett.Check&xxx..Value * -1,1,0)
  Co 	 userdaten  C #200  
 
 T   
 T  T    1755151        Q	@T CB Bei <Ja> werden  a l l e   Userbezeichnungen samt deren PasswrterC
  aus der Datei <Gehalt  \gehaltC \ sr> in die Datei <Gehalt  \gehaltC \ sr>   b e r t r a g e n . C
 @ Die jeweiligen User-Verzeichnisse werden vom Verzeichnis <Gehalt  > nach <Gehalt 
 > kopiert.C
  In der Version     vorgenommene nderungen bei denC
  - Userbezeichnungen,C
  - User-Passwrtern undC
 " - Pfaden zu den UserverzeichnissenC
  werden dabei berschrieben. V O R S I C H T  ! ! !x % 
 T  B  T      (dx	
 H  

?" T  \user00CC  Z  d
q! T  \user0CC  Z  d T  \user100 * T   \gehaltC \ sr+ myopen("&hsxdatneu" , 200 ,"userdaten")
* T    \gehaltC \ sr+ myopen("&hsxdatalt" , 201 ,"userdaten")
 C  	 userdaten  T C	 
 
 T   T	 
   C  	 userdaten 
 C   R,:  ( %C   \atvvee.dbf   T C Bei <OK> werden auch die von C	     angelegten PersonalflleC
  von Verzeichnis  C
  nach Verzeichnis  C
  kopiert.C
 C
  Der Fortschritt wird angezeigt.
 H I N W E I Sx % | %C  ! " 
 Mkdir "&msg2"
  T    T    %C  ! " x
 T#   Mkdir "&hsxdir"
 C    $     T  % C  ^ T  & C   ^" T       C	    % do	 T     T  %  ' %  T  &  ' & ; C. Die bernahme der Userdaten ist abgeschlossen.(   R  C 200  C 201  
  T  \user001
 T)   *  B  %    	 B  %C  R \$
  T)    Gehalt  \ M
! T)    \Gehalt  \ 4 %C) R Gehalt  \Gehalt  \
 T) C) C) >  C ) + 
 C  2 T, ) 
 \Texte\MyTextC \ .dbf  If File("&hsxdat") = .F.r T# )  \Texte Mkdir "&hsxdir"
  (^ C 
 \Texte\MytextCC  Z .dbf) 
 \Texte\MytextCC  Z .dbf-  @ C  \Texte\Belehrung.dbf)  \Texte\Belehrung.dbf- @ C  \Texte\Belehrung.fpt)  \Texte\Belehrung.fpt- @ C  \Texte\TMerkmale.ttt)  \Texte\TMerkmale.ttt-  # T, )  \tarife\t20211.ttt! If File("&hsxdat") = .F.  T# )  \tarife Mkdir "&hsxdir"
 . (
  (
r C 	 \tarife\tCC.  ZCC  Z .ttt) 	 \tarife\tCC.  ZCC  Z .ttt-   A C  \tarife\Kommentar.dbf)  Tarife\Kommentar.dbf- R C  \tarife\Strukturausgleich.txt)  \Tarife\Strukturausgleich.txt- ) %C  \tarife\mietstufen.dbf0C C  \tarife\mietstufen.dbf)  Tarife\mietstufen.dbf-  % %C  \tarife\nrwfam.dbf0; C  \tarife\nrwfam.dbf)  Tarife\nrwfam.dbf-   9 C  \gehaltC \ sr	 userdaten  T CC Rg C  	 userdaten  T	 
 )  C  	 userdaten  
  /  U0  SPATH MYGETDIR REGISTER XXX MYINDEXE MYOPEN	 EIGDATFIX XJAHR4 MYGET	 USERDATEN PFAD MYPUT MYCLOSE SRVERTEILEN	 MENAKTIV	 MYTABLETT TEXT0 VALUE ADMINANLEGEN RESPONSE XJAHR3
 COMMAND3_CAPT
 SSCOMMAND3 CAPTION I MUSER	 HSXDATNEU	 HSXDATALT MSG1 MSG2	 FILEEXIST TRUE USERNAME DIREXIST FALSE HSXDIR DIRCOPY	 BACKCOLOR	 FORECOLOR
 SSCOMMAND5 HINWEIS EIGDAT	 DATEIOPEN VERZEICHNISPRFEN HSXDAT FILECOPY J ZUMPROGRAMM
 T    T  CC  g8 T  CC  g8 T  CC  g8- %  C 	 	\ 09-03	  T  <   T  CC 
 g8  T  CC  g8 T 	 C  
 T 
  L T   T    %C   
h T C    T C    T  C  T   C 
 Hl  CCC gA   T  T   	 TV-Lnder! T CC 	\g C l T    T   C 
 Hh C 	\ 12a T   C 	\ 11b T  C 	\ 11a# T  C 	\ 10aR T  C 	\ 9d- T  C 	\ 9c- T  C 	\ 9b- T  C 	\ 9a- T  C 	\ 8a-= T  C 	\ 7a-
* %C    C   	 T 	 * %C    C   	 T 
  %C    T   C 	\ 4a-9 T 
 C 	\ 3a-h T    T   CC   T  C  T   %C  
 T   %C  
 T   %C  
E T      T !  CC "   T 
CC  \g T #  CC
 $  T% CC
 & x T' CC
 G0 C)C % C  employee(  )  T* 
C' +  T, 
C' +  T -  C
, d %C
   T . / C0   T . / C1    T CC   \g T 2  CC 3  T% CC & x T' CC G0 C)C % C  employee(  )  T* C' +  T, C' +  T 4  C, d %C   T 5 / C0   T 5 / C1   6 
 C 7  G. % 8 (
 HC	 9  (
. T : ;  \G<  ICC8  Z. T : ;  \G<  ICC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?  9 
. T : ;  \G<  PCC8  Z. T : ;  \G<  PCC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?  9 . T : ;  \G<  RCC8  Z. T : ;  \G<  RCC%  Z T=   .dbf T>   .dbf C =  > ?  T=   .fpt T>   .fpt C =  > ?    G.  @  A 
 T  B  UC  PENSIONSFLOP TRUE WVW ZEST EGO_TVL LZ1 LZ2 LZ3 WELCHESJAHR ENTGELTCODE LZ4 LZ5 CODE SPARTE ZI MSG1
 MYFALLGRUPPEN WEIBLICH VALUE ZT6 BEZW BEZM ZULAGEN MYFORM1 Z6 CAPTION MSG GRUPPE Z4 ZT4 Z5 ZT5 STUFE Z7 ZT7 Z12 ZT12 I FIX J MYGET	 GETVALUES BETRAG GRUNDBETRAG WERT T12 DEM12	 BACKCOLOR QBCOLOR	 FARBENRGB Z13 ZT13 T13 DEM13 WVWOUT MYCLOSE MONAT MODUS EIGDAT MUSER WELCHESJAHRC MSGX MSG1X FILECOPY	 DATEIOPEN
 BERECHNUNG FALSE
 H
    + 
 T     I 
 T     g 
 T   C    T       
 
 T           
   	                         G T       e
 T  
   z B* C  
,-./ T       
 T     
 T  /   
 T     !-
 T  .   "K
 T  2   %i
 T  4   *
 T     +
 T  "   D
 T  3   J
 T  5  U  TASTE0C> Das Programm rechnet die fr Januar bertragenen PersonaldatenC
 . mit den neuen Tariftabelle bis Dezember durch.C
 ? Pro Personalfall sind also 36 Gehaltsberechnungen durchzufhrenC
 & (Jan. bis Dez je fr INFO, PLAN, REAL)C
 ! Es kann deshalb sehr lange dauernC
 # Der Vorgang ist erst abgeschlossen,C
  wenn das Programm ins Jahr   	  wechseltC
  Sie starten den Vorgang mit OK. , Beachten Sie den Fortschritt in der Fuzeilex U  WELCHESJAHRC  T    C  T    ك REAL ist gesperrt. Rein- und Rauskopieren von und zu PLAN funktioniert. Entsperrung in der Menzeile unter Daten/Lizenzinhaberdaten U  MYFORM1 TIP	 FORECOLOR QBCOLOR CAPTION  %    C} Whrend das JAHRESGEHALT eingestellt ist, knnen keine nderungen vorgenommen werden. Bitte stellen Sie ein Monatsgehalt ein.0 Jahresgehalt ndernx  U  INDEXM vkalisteprfen,      VKAstringauswerten      bundlisteprfen0     bundstringauswerten    
 formspeichern)     formhochspeichern*     formlinksspeichern*     formTOPspeichernA+     LinkerklickY+     listeprfen+.     manuellumstellen.     menauswertungr:     speicherortfestlegen|Y     stringauswertenj    
 tastencodex     geduld{     realtiptext}     jahrfix~    01 q r q A A A 3  2a A q2 1A q qR 1 111A 11A A R a11a11a11a11a11a11a11a11a11a11a11 1 111111111111111111A A A  q 1" 111111111111111111A   111111111111111A A A 61A 1A 1A r aq Qr qA aq Qr qA v  a  QQ!QQ!QQ!QQ!QQ!QQ!B A a q q  5 q r q A A A 3  2a A q2q q 1111111111A 1A 1A 11A  q 1 1111111111111111A A 61A 1A 1A r aq Qr qA aq Qr qA v  a  """B A a q q  4      q A 3 q 4 q 2 r 4   aA A t  s A B 4 q r q A A A 3 BQQqa   qaaaA 211sq qqqq q A A A B !   q 1q B A  B 3  B1q Cq C QC(  Qq A A A  q q A A r C RCD BC1r A A Cq DABABq Aq A B BO RDEEE C C  CEE  CEACEEEq C| Bq Cq Cq Bq Bq Bq Dq CD A    AB A A !
A A !B     Q B A    AA A A R
A A #B     Q B A    AA A A R!aqQA A #B     Q B A    AA A A R
A A $B     Q B   Qq D   Qq D   Qq E   Qq C   Qq D q C q Cq E q C q Cq C  q B  q B  q B  q B  q C!q Cq O1q C q Cq Cq CEq C q A 6 ! A A qr  r  r !$ A A 2r !QA "   BaA a 1!A A A !1A Q A r R r B A A A r A AA   "q2rA B 22q!A A !1A QA A Bs r 4  a A 2a A q q 1q1q q 1111111111A 1A 1A 11A C 61A 1A 1A r aq Qr qA aq Qr qA v  a  RQ!QQ!QQ!QQ!RQ!QQ!B A a q q  3     Q  A           B pB1 1 qa	3 "
A 3                      K  t      v  /     #  /  0    ,  1  -E      SE  F      ?F  F      F  G      ;G  mG      G  K      K  L      M  T[    3  {[    B    P  
      5            q          ) * T    * q+ Y    %               MSU    U  #     T        U  TISTYLE THIS PREVIEWFORM OREPORT COMMANDCLAUSES INWINDOW      U  TCPOPUP	 TINEXTBAR      U 	 TNKEYCODE TNSHIFTALTCTRL  U  
  Ba U   Show,      
 AddBarsToMenu       HandledKeyPress       Paint       Release      5 
     
     
     
     
      U   MyInWindowFixer CustomX    2 q 3  3  3 3 q 2      3                    (   {                                 $  "     	   H  T        (   _     0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5WW0O9WUG1366514289 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5WW0O9WUH           9  1                           8334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5WW0O9WUI           9  4                           1980.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5WW0O9WUJ           9  7                           2917.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5WW0OVILH1366514833 5  0        4375.000 6250.000 2604.16728645.833                               -1   -1   -1   -1   -1   -1                    1 16  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5WW0OX0NL1366514866 8  0        4166.66744166.667 2708.33329687.500                   C           -1   -1   -1   -1   -1   -1                    1 16  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5WW0OYAGF1366514896 6            8125.000 3437.500  104.16772395.833                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _6340XPLC41390312826 8  0       10520.833 4062.500 1875.00070312.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              25.000   10.000   19.000   55.000                                5    1                                        1 16                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                 ,   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         "Protokol der Konvertierung"                                  Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         dummi->feld1                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         "Protokol der Konvertierung"                                  Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         dummi->feld1                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                      (     (                                                                                                                      07   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5YI0VBAW21378841746 1 53           1.000    0.000    0.00082666.000                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5YI0VBAW3           9  1                          64584.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI0VBAW4           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI0VBAW5           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI0VCSDT1378841783 8  0        6041.66764791.667 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YI0VCSDU1378841783 8  0        3958.333 3958.333 1666.66719583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0VCSDV1378841783 8  0        6041.667 3958.333 1666.66719583.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0VCSDW1378841783 8  0        6041.66771354.167 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YI0VGTOY1378841905 8  0        9375.000 7812.500 2500.00056354.167                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0VIM2F1378841929 8  0       12916.667 7812.500 2500.00056354.167                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0VJPDO1378841961 8  0       15520.833 7812.500 2187.50033541.667                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0VKG2T1378841974 8  0       17604.167 7812.500 2187.50033541.667                   C           -1   -1   -1   -1   -1   -1                     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0VKYP61378841988 8  0    !   19687.500 7812.500 2187.50033541.667                   C           -1   -1   -1   -1   -1   -1               "     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0W08JW1378842378 8  0    #   19687.50042395.833 2187.50010000.000                   C           -1   -1   -1   -1   -1   -1               $     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0W1F2U1378842395 6           22604.167 7604.167  104.16768645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5YI0W1Z0W1378842410 8  0    %   23750.000 7812.500 2187.50018333.333                   C           -1   -1   -1   -1   -1   -1               &     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0W32I81378842438 8  0    '   23750.00049791.667 2187.50026458.333                   C           -1   -1   -1   -1   -1   -1               (     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F)        WINDOWS _5YI0W3W531378842457 8  0    *   23750.00049791.667 2187.50026458.333                   C           -1   -1   -1   -1   -1   -1               +     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F,        WINDOWS _5YI0W6W431378842661 8  0    -   25937.50049791.667 2187.50026458.333                   C           -1   -1   -1   -1   -1   -1               .     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI0W7R3X1378842681 6           28541.667 7604.167  104.16768645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5YI0WIJWQ1378842961 8  0    /   29062.500 7812.500 1875.00021875.000                   C           -1   -1   -1   -1   -1   -1               0     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0WJ3WX1378842964 8  0    1   29062.50038437.500 1875.00015937.500                   C           -1   -1   -1   -1   -1   -1               2     0 10  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI0WJSMZ1378842982 8  0    3   29062.50060937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               4     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI0WT8I61378843216 6           31354.167 7604.167  104.16768645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5YI0WU1DR1378843237 8  0    5   32083.333 7812.500 1875.00025208.333                   C           -1   -1   -1   -1   -1   -1               6     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WUT8X1378843255 8  0    7   33854.167 7812.500 1875.00025208.333                   C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WVX4O1378843283 8  0    9   35625.00010729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               :     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WWKS61378843300 8  0    ;   37395.83310729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WWRSE1378843305 8  0    =   39166.66710729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               >     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WWRSF1378843305 8  0    ?   40937.50010729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               @     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WWYDF1378843309 8  0    A   42708.33310729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               B     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WWYDG1378843309 8  0    C   44479.16710729.167 1875.00026562.500                   C           -1   -1   -1   -1   -1   -1               D     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WYVS11378843356 8  0    E   46250.000 7812.500 1875.00025208.333                   C           -1   -1   -1   -1   -1   -1               F     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0WZNX51378843376 8  0    G   48020.833 7812.500 1875.00036770.833                   C           -1   -1   -1   -1   -1   -1               H     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0X0E4Y1378843395 8  0    I   49791.667 7812.500 1875.00051770.833                   C           -1   -1   -1   -1   -1   -1               J     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0X4VPL1378843506 8  0    K   51562.500 7812.500 1875.00051770.833                   C           -1   -1   -1   -1   -1   -1               L     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0XH08G1378843809 8  0    M   53333.333 7812.500 1875.00051770.833                   C           -1   -1   -1   -1   -1   -1               N     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0XPW3W1378844028 6           55520.833 7604.167  104.16768645.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5YI0XT0EE1378844133 8  0    O   56041.667 7708.333 1666.66768437.500                   C           -1   -1   -1   -1   -1   -1               R     0  8  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0XUKSK1378844145 8  0    S   57812.500 7708.333 1666.66768437.500                   C           -1   -1   -1   -1   -1   -1               U     0  8  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YI0XYTFO1378844250 8  0    V   35625.00060937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               W     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFP1378844250 8  0    X   37395.83360937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFQ1378844250 8  0    Z   39166.66760937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               [     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFR1378844250 8  0    \   40937.50060937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               ]     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFS1378844250 8  0    ^   42708.33360937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFT1378844250 8  0    `   44479.16760937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               a     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFU1378844250 8  0    b   46250.00060937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0XYTFV1378844250 8  0    d   48020.83360937.500 1875.00014791.667                   C           -1   -1   -1   -1   -1   -1               e     0 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F         WINDOWS _5YI0YBU1D1378844714 5  0    f   60312.500 7708.333 1666.66751145.833                               -1   -1   -1   -1   -1   -1               h     1 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   i     0 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   j     0  8                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                   k     1 14                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                   l     0 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   m     1 10                                                     F               WINDOWS                     25   n   o                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                5"B E S O L D U N G in " + Alltrim(myform1.z5.Caption)         Arial                                                         Alltrim(myform1.z0.Caption)                                   Arial                                                         Alltrim(myform1.z2.Caption)                                   Arial                                                         Alltrim(myform1.z5.Caption)                                   Arial                                                         "Besoldungsdienstalter"                                       Arial                                                         mybdaform.datum19.value                                       Arial                                                         "Dienstaltersstufen:"                                         Arial                                                         "Grundgehalt (West) in "                                      Arial                                                         
altesland = 0                                                 "Grundgehalt (Ost) in "                                       Arial                                                         
altesland = 1                                                 zt5(1+zi(1+5))                                                Arial                                                         an_stufe                                                      Arial                                                         an_datum                                                      Arial                                                         	an_betrag                                                     Arial                                                         "Weitere Gehaltsbestandteile:"                                Arial                                                         "1. Familienzuschlag bei "                                    Arial                                                         #"Stufe 1 (verheiratet ohne Kinder)"                           Arial                                                         ""Stufe 2 (verheiratet mit 1 Kind)"                            Arial                                                         %"Stufe 3 (verheiratet mit 2 Kindern)"                         Arial                                                         %"Stufe 4 (verheiratet mit 3 Kindern)"                         Arial                                                         %"Stufe 5 (verheiratet mit 4 Kindern)"                         Arial                                                         %"Stufe 6 (verheiratet mit 5 Kindern)"                         Arial                                                         "2. Allgemeine Stellenzulage"                                 Arial                                                         -"3. Auf Antrag: Vermgenswirksame Leistungen"                 Arial                                                         an_zeile4_1                                                   Arial                                                         an_zeile4_2                                                   Arial                                                         an_zeile5_1                                                   Arial                                                         "Die Grundgehlter aller Stufen entstammen der am 01." + alltrim(str(zi(1+20) + 1,10,0)) + "." + Leftc(welchesjahrc, 4) + " gltigen Besoldungstabelle."                                      Arial                                                         ["Sonderzahlungen und Einmalzahlungen entsprechen mglicherweise nicht dem aktuellen Stand."                                   Arial                                                         an_vh1                                                        Arial                                                         an_vh2                                                        Arial                                                         an_vh3                                                        Arial                                                         an_vh4                                                        Arial                                                         an_vh5                                                        Arial                                                         an_vh6                                                        Arial                                                         an_vh7                                                        Arial                                                         an_vh8                                                        Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                5"B E S O L D U N G in " + Alltrim(myform1.z5.Caption)         Arial                                                         Alltrim(myform1.z0.Caption)                                   Arial                                                         Alltrim(myform1.z2.Caption)                                   Arial                                                         Alltrim(myform1.z5.Caption)                                   Arial                                                         "Besoldungsdienstalter"                                       Arial                                                         mybdaform.datum19.value                                       Arial                                                         "Dienstaltersstufen:"                                         Arial                                                         "Grundgehalt (West) in "                                      Arial                                                         
altesland = 0                                                 "Grundgehalt (Ost) in "                                       Arial                                                         
altesland = 1                                                 zt5(1+zi(1+5))                                                Arial                                                         an_stufe                                                      Arial                                                         an_datum                                                      Arial                                                         	an_betrag                                                     Arial                                                         "Weitere Gehaltsbestandteile:"                                Arial                                                         "1. Familienzuschlag bei "                                    Arial                                                         #"Stufe 1 (verheiratet ohne Kinder)"                           Arial                                                         ""Stufe 2 (verheiratet mit 1 Kind)"                            Arial                                                         %"Stufe 3 (verheiratet mit 2 Kindern)"                         Arial                                                         %"Stufe 4 (verheiratet mit 3 Kindern)"                         Arial                                                         %"Stufe 5 (verheiratet mit 4 Kindern)"                         Arial                                                         %"Stufe 6 (verheiratet mit 5 Kindern)"                         Arial                                                         "2. Allgemeine Stellenzulage"                                 Arial                                                         -"3. Auf Antrag: Vermgenswirksame Leistungen"                 Arial                                                         an_zeile4_1                                                   Arial                                                         an_zeile4_2                                                   Arial                                                         an_zeile5_1                                                   Arial                                                         "Die Grundgehlter aller Stufen entstammen der am 01." + alltrim(str(zi(1+20) + 1,10,0)) + "." + Leftc(welchesjahrc, 4) + " gltigen Besoldungstabelle."                                      Arial                                                         ["Sonderzahlungen und Einmalzahlungen entsprechen mglicherweise nicht dem aktuellen Stand."                                   Arial                                                         an_vh1                                                        Arial                                                         an_vh2                                                        Arial                                                         an_vh3                                                        Arial                                                         an_vh4                                                        Arial                                                         an_vh5                                                        Arial                                                         an_vh6                                                        Arial                                                         an_vh7                                                        Arial                                                         an_vh8                                                        Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5YI14CVHY1378850359 1 53           1.000    0.000    0.000116900.00                 F                                                            0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5YI14CVHZ           9  1                          76042.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI14CVI0           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI14CVI1           9  7                           1771.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YI14EGKT1378850402 5  0        2395.83356250.000 1666.667 4270.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YI14F53J1378850418 8  0        4583.333 5937.500 1875.00089375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5YI14I5FJ1378850502 8  0        6770.833 6041.667 2395.83389062.500                   C           -1   -1   -1   -1   -1   -1                    5 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI14JMS21378850531 5  0        9687.50091250.000 2083.333 3958.333                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YI14JS5C1378850534 5  0        9687.50098229.167 2083.333 5833.333                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YI14JWWX1378850537 5  0        9687.500107187.50 2083.333 4479.167                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YI14LUFV1378850582 8  0       11875.000 5937.500 2395.83384062.500                   C           -1   -1   -1   -1   -1   -1                    5 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YI14TXSJ1378850922 8  0        11979.16791666.667 2291.667 3645.833    !              C           -1   -1   -1   -1   -1   -1               "     1 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI14VSH81378850958 8  0    #   11979.16799270.833 2291.667 3645.833    $              C           -1   -1   -1   -1   -1   -1               %     1 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI14W1DW1378850964 8  0    &   11979.167107604.17 2291.667 3645.833    '              C           -1   -1   -1   -1   -1   -1               (     1 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI14XUWY1378851011 6           14687.500 5625.000  104.167106666.67                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5YI14XZ5H1378851013 6           26979.167 5625.000  104.167106666.67                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F)        WINDOWS _5YI150MFF1378851081 8  0    *   15208.333 5937.500 2291.66784062.500                   C           -1   -1   -1   -1   -1   -1               +     1 12  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F,        WINDOWS _5YI153JXL1378851152 8  0    -   15208.33391666.667 2291.667 3645.833    .              C           -1   -1   -1   -1   -1   -1               /     1 12  1 0     TFFFF  T          0T         1       0 1  0FTT0 0F0        WINDOWS _5YI153JXM1378851152 8  0    1   15208.33399270.833 2291.667 3645.833    2              C           -1   -1   -1   -1   -1   -1               3     1 12  1 0     TFFFF  T          0T         1       0 1  0FTT0 0F4        WINDOWS _5YI153JXN1378851152 8  0    5   15208.333107604.17 2291.667 3645.833    6              C           -1   -1   -1   -1   -1   -1               7     1 12  1 0     TFFFF  T          0T         1       0 1  0FTT0 0F8        WINDOWS _5YI157RUA1378851256 8  0    9   17708.333 5937.500 2291.66784062.500                   C           -1   -1   -1   -1   -1   -1               :     1 12  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F;        WINDOWS _5YI15MF3F1378851622 8  0    <   20208.333 5937.500 2291.66784062.500                   C           -1   -1   -1   -1   -1   -1               =     1 12  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F>        WINDOWS _5YI15OLAD1378851674 8  0    ?   22708.333 5937.500 2291.66729166.667                   C           -1   -1   -1   -1   -1   -1               A     1 12  1 0     TFFFF  T          0T         0       0 1  0FTT0 0FB        WINDOWS _5YI1633AS1378852048 8  0    C   27500.000 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               D     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0FE        WINDOWS _5YI165GNJ1378852096 8  0    F   27500.00018958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               G     0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0FH        WINDOWS _5YI167FUA1378852144 8  0    I   27291.66735833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               J     0 10  1 0     TFFFF  T          2T         0       0 1  0FTT0 0FK        WINDOWS _5YI168QJ61378852176 8  0    L   27291.66791666.667 1875.000 3645.833    M              C           -1   -1   -1   -1   -1   -1               N     1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0FO        WINDOWS _5YI168QJ71378852176 8  0    P   27291.66799270.833 1875.000 3645.833    Q              C           -1   -1   -1   -1   -1   -1               R     1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0FS        WINDOWS _5YI168QJ81378852176 8  0    T   27291.667107604.17 1875.000 3645.833    U              C           -1   -1   -1   -1   -1   -1               V     1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0FW        WINDOWS _5YI16AI991378852220 8  0    X   29479.167 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FZ        WINDOWS _5YI16AI9B1378852220 8  0    [   29479.16718958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               \     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F]        WINDOWS _5YI16AI9C1378852220 8  0    ^   29270.83335833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F`        WINDOWS _5YI16AI9D1378852220 8  0    a   29270.83391666.667 1875.000 3645.833    b              C           -1   -1   -1   -1   -1   -1               c     1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fd        WINDOWS _5YI16AI9E1378852220 8  0    e   29270.83399270.833 1875.000 3645.833    f              C           -1   -1   -1   -1   -1   -1               g     1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fh        WINDOWS _5YI16AI9F1378852220 8  0    i   29270.833107604.17 1875.000 3645.833    j              C           -1   -1   -1   -1   -1   -1               k     1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fl        WINDOWS _5YI16BVJR1378852253 8  0    m   31458.333 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0Fo        WINDOWS _5YI16BVJT1378852253 8  0    p   31458.33318958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               q     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0Fr        WINDOWS _5YI16BVJU1378852253 8  0    s   31250.00035833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0Fu        WINDOWS _5YI16BVJV1378852253 8  0    v   31250.00091666.667 1875.000 3645.833    w              C           -1   -1   -1   -1   -1   -1               x     1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fy        WINDOWS _5YI16BVJW1378852253 8  0    z   31250.00099270.833 1875.000 3645.833    {              C           -1   -1   -1   -1   -1   -1               |     1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F}        WINDOWS _5YI16BVJX1378852253 8  0    ~   31250.000107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16D2DK1378852283 8  0       33437.500 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16D2DM1378852283 8  0       33437.50018958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16D2DN1378852283 8  0       33229.16735833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YI16D2DO1378852283 8  0       33229.16791666.667 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16D2DP1378852283 8  0       33229.16799270.833 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16D2DQ1378852283 8  0       33229.167107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16I12U1378852407 6           35625.00034895.833  104.16777604.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5YI16IBDS1378852416 8  0       36145.83335833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YI16IBDT1378852416 8  0       38229.16735833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YI16NA1R1378852539 5  0       22812.50035937.500 2083.33316458.333                               -1   -1   -1   -1   -1   -1                    1 12  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5YI16OQ891378852577 5  0       24895.83335729.167 1458.33347395.833                               -1   -1   -1   -1   -1   -1                    0  8  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5YI16PSC71378852620 5  0       40416.66736145.833 1666.66710729.167                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5YI16QW1B1378852631 5  0       40208.33348229.167 2083.333 7812.500                               -1   -1   -1   -1   -1   -1                    1 12  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5YI16SGEM1378852666 5  0       40416.66756979.167 1666.66715208.333                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F        WINDOWS _5YI16TVDS1378852701 8  0       36145.83391666.667 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDT1378852701 8  0       36145.83399270.833 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDU1378852701 8  0       36145.833107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDV1378852701 8  0       38229.16791666.667 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDW1378852701 8  0       38229.16799270.833 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDX1378852701 8  0       38229.167107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDY1378852701 8  0       40312.50091666.667 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVDZ1378852701 8  0       40312.50099270.833 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16TVE01378852701 8  0       40312.500107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16UV6Z1378852726 6           42395.83390520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5YI16UWXD1378852728 6           42708.33390520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5YI16WPLO1378852902 6           43541.667 5625.000  104.167106666.67                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5YI16WPLP1378852902 6           51145.833 5625.000  104.167106666.67                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F        WINDOWS _5YI16WPLQ1378852902 8  0       44062.500 5937.500 2291.66784062.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPLR1378852902 8  0       44062.50091666.667 2291.667 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPLS1378852902 8  0       44062.50099270.833 2291.667 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPLT1378852902 8  0       44062.500107604.17 2291.667 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPLW1378852902 8  0       46875.000 5937.500 2291.66729166.667                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPLX1378852902 8  0       51666.667 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPLZ1378852902 8  0       51666.66718958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPM01378852902 8  0       51458.33335833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TFFFF  T          2T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPM11378852902 8  0       51458.33391666.667 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPM21378852902 8  0       51458.33399270.833 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPM31378852902 8  0       51458.333107604.17 1875.000 3645.833                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F        WINDOWS _5YI16WPM41378852902 8  0       53645.833 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI16WPM61378852902 8  0      53645.83318958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI16WPM71378852902 8  0      53437.50035833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          2T         0       0 1  0FTT0 0F       WINDOWS _5YI16WPM81378852902 8  0    	  53437.50091666.667 1875.000 3645.833    
             C           -1   -1   -1   -1   -1   -1                   1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F       WINDOWS _5YI16WPM91378852902 8  0      53437.50099270.833 1875.000 3645.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F       WINDOWS _5YI16WPMA1378852902 8  0      53437.500107604.17 1875.000 3645.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F       WINDOWS _5YI16WPMB1378852902 8  0      55625.000 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI16WPMD1378852902 8  0      55625.00018958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI16WPME1378852902 8  0      55416.66735833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          2T         0       0 1  0FTT0 0F        WINDOWS _5YI16WPMF1378852902 8  0    !  55416.66791666.667 1875.000 3645.833    "             C           -1   -1   -1   -1   -1   -1               #    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F$       WINDOWS _5YI16WPMG1378852902 8  0    &  55416.66799270.833 1875.000 3645.833    '             C           -1   -1   -1   -1   -1   -1               (    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F)       WINDOWS _5YI16WPMH1378852902 8  0    +  55416.667107604.17 1875.000 3645.833    ,             C           -1   -1   -1   -1   -1   -1               -    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F.       WINDOWS _5YI16WPMI1378852902 8  0    0  57604.167 6250.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               1    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F2       WINDOWS _5YI16WPMK1378852902 8  0    3  57604.16718958.333 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               4    0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F5       WINDOWS _5YI16WPML1378852902 8  0    6  57395.83335833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               7    0 10  1 0     TFFFF  T          2T         0       0 1  0FTT0 0F8       WINDOWS _5YI16WPMM1378852902 8  0    9  57395.83391666.667 1875.000 3645.833    :             C           -1   -1   -1   -1   -1   -1               ;    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0F<       WINDOWS _5YI16WPMN1378852902 8  0    >  57395.83399270.833 1875.000 3645.833    ?             C           -1   -1   -1   -1   -1   -1               @    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0FA       WINDOWS _5YI16WPMO1378852902 8  0    C  57395.833107604.17 1875.000 3645.833    D             C           -1   -1   -1   -1   -1   -1               E    1 10  1 0     TFFFF  T          2T         1       0 1  0FTT0 0FF       WINDOWS _5YI16WPMP1378852902 6           59791.66734895.833  104.16777604.167                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0FH       WINDOWS _5YI16WPMQ1378852902 8  0    I  60312.50035833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               J    0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0FK       WINDOWS _5YI16WPMR1378852902 8  0    L  62395.83335833.333 1875.00048854.167                   C           -1   -1   -1   -1   -1   -1               M    0 10  1 0     TFFFF  F          2T         0       0 1  0FTT0 0FN       WINDOWS _5YI16WPMS1378852902 5  0    O  46979.16736041.667 2083.33316458.333                               -1   -1   -1   -1   -1   -1               P    1 12  1       TFFFF  F          0T                      0FTT0 0FQ       WINDOWS _5YI16WPMT1378852902 5  0    R  49062.50035729.167 1458.33347395.833                               -1   -1   -1   -1   -1   -1               T    0  8  1       TFFFF  F          0T                      0FTT0 0FU       WINDOWS _5YI16WPMU1378852902 5  0    V  64583.33336145.833 1666.66710729.167                               -1   -1   -1   -1   -1   -1               W    0 10  1       TFFFF  F          0T                      0FTT0 0FX       WINDOWS _5YI16WPMV1378852902 5  0    Y  64375.00048645.833 1875.000 6875.000                               -1   -1   -1   -1   -1   -1               Z    1 12  1       TFFFF  F          0T                      0FTF3 0F[       WINDOWS _5YI16WPMW1378852902 5  0    \  64583.33356979.167 1666.66715208.333                               -1   -1   -1   -1   -1   -1               ]    0 10  1       TFFFF  F          0T                      0FTT0 0F^       WINDOWS _5YI16WPMX1378852902 8  0    _  60312.50091666.667 1875.000 3645.833    `             C           -1   -1   -1   -1   -1   -1               a    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fb       WINDOWS _5YI16WPMY1378852902 8  0    c  60312.50099270.833 1875.000 3645.833    d             C           -1   -1   -1   -1   -1   -1               e    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Ff       WINDOWS _5YI16WPMZ1378852902 8  0    g  60312.500107604.17 1875.000 3645.833    h             C           -1   -1   -1   -1   -1   -1               i    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fj       WINDOWS _5YI16WPN01378852902 8  0    k  62395.83391666.667 1875.000 3645.833    l             C           -1   -1   -1   -1   -1   -1               m    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fn       WINDOWS _5YI16WPN11378852902 8  0    o  62395.83399270.833 1875.000 3645.833    p             C           -1   -1   -1   -1   -1   -1               q    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fr       WINDOWS _5YI16WPN21378852902 8  0    s  62395.833107604.17 1875.000 3645.833    t             C           -1   -1   -1   -1   -1   -1               u    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fv       WINDOWS _5YI16WPN31378852902 8  0    w  64479.16791666.667 1875.000 3645.833    x             C           -1   -1   -1   -1   -1   -1               y    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0Fz       WINDOWS _5YI16WPN41378852902 8  0    {  64479.16799270.833 1875.000 3645.833    |             C           -1   -1   -1   -1   -1   -1               }    1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F~       WINDOWS _5YI16WPN51378852902 8  0      64479.167107604.17 1875.000 3645.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     TFFFF  F          2T         1       0 1  0FTT0 0F       WINDOWS _5YI16WPN61378852902 6           71770.83390520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F       WINDOWS _5YI16WPN71378852902 6           72083.33390520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F       WINDOWS _5YI181IWL1378853916 8  0      68750.000 5937.500 2291.66775000.000                   C           -1   -1   -1   -1   -1   -1                   1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI1821CW1378853930 6           68333.333 5625.000  104.167106666.67                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F       WINDOWS _5YI1851F71378854004 8  0      71145.833 5937.500 2291.66775000.000                   C           -1   -1   -1   -1   -1   -1                   1 12  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F       WINDOWS _5YI18938Y1378854104 8  0      68750.00091666.667 2291.667 3645.833                   C           -1   -1   -1   -1   -1   -1                 129 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI18938Z1378854104 8  0      68750.00099270.833 2291.667 3645.833                 C           -1   -1   -1   -1   -1   -1                   1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5YI1893901378854104 8  0      68750.000107604.17 2291.667 3645.833                 C           -1   -1   -1   -1   -1   -1                   1 12  1 0     TFFFF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5Z70UI1D71380544954 6           66562.50090520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F       WINDOWS _5Z70UI1D81380544954 6           66875.00090520.833  104.16722187.500                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F       WINDOWS _5Z70VANG61380545669 5  0      68645.83391250.000 2395.833  520.833                               -1   -1   -1   -1   -1   -1                   1 14  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Z70VAVXQ1380545674 5  0      68541.66795625.000 2291.667  625.000                               -1   -1   -1   -1   -1   -1                   1 14  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5Z70W4X0P1380546419 8  0      27500.00015625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W4X0Q1380546419 8  0      29479.16715625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W4X0R1380546419 8  0      31458.33315625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W4X0S1380546419 8  0      33437.50015625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W6AL51380546581 8  0      51666.66715625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W6AL61380546581 8  0      53645.83315625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W6AL71380546581 8  0      55625.00015625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS _5Z70W6AL81380546581 8  0      57604.16715625.000 1875.000 2395.833                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     TFFFF  T          0T         0       0 1  0FTT0 0F       WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       5 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                       1 10                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                       0  8                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                     129 12                                                     F               WINDOWS                     23              23.000    7.000   19.000   22.000                                4    0                                       1 14                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                       1 14                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=0
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         	"Seite 2"                                                     Arial                                                         "zur Festsetzung des BDA fr " + myform1.z0.Caption + " (Geb.tag = " + myBDAform.Datum0.value + ", Ernennungstag " + myBDAform.Datum2.value + ")"                                             Arial                                                         e"Berechnung des Hinausschiebens, wenn das magebende Lebensjahr bei der Ernennung berschritten war:"                         Arial                                                         "Tage"                                                        Arial                                                         "Monate"                                                      Arial                                                         "Jahre"                                                       Arial                                                         "leftc(mybdaform.Text3.caption, 94)                            Arial                                                         mybdaform.Tag0.value                                          "999"                                                         Arial                                                         mybdaform.monat0.value                                        "999"                                                         Arial                                                         mybdaform.jahr0.value                                         "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             -leftc(mybdaform.ssframe1.Label9.caption, 104)                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_0.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_0.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_0.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe2.Label1.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.Label6.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             Mmybdaform.ssframe1.datum20.value + " bis " + mybdaform.ssframe1.datum20.value                                                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum3.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum4.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe0.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_1.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_1.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_1.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum5.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum6.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe1.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_2.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_2.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_2.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum7.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum8.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe2.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_3.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_3.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_3.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum9.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.datum10.value                              Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe3.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_4.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_4.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_4.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.label5.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             #mybdaform.ssframe1.label2_0.caption                           Arial                                                         !mybdaform.SSFrame1.Visible = True                             "Anrechenbare Zeiten"                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             b"(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"                            Arial                                                         !mybdaform.SSFrame1.Visible = True                             "Das BDA wird um"                                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             
"ein Viertel"                                                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             " davon hinausgeschoben."                                     Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_5.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_5.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_5.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_6.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_6.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_6.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_7.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_7.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_7.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame2.Visible = True                             .leftc(mybdaform.ssframe2.Label10.caption, 106)                Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_0.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_0.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_0.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             Mmybdaform.ssframe2.datum22.value + " bis " + mybdaform.ssframe2.datum23.value                                                 Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum11.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum12.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe4.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_1.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                        !mybdaform.ssframe2.monat2_1.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                         mybdaform.ssframe2.jahr2_1.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                         mybdaform.ssframe2.datum13.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum14.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe5.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_2.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                        !mybdaform.ssframe2.monat2_2.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                         mybdaform.ssframe2.jahr2_2.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                         mybdaform.ssframe2.datum15.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum16.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe6.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_3.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                        !mybdaform.ssframe2.monat2_3.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                         mybdaform.ssframe2.jahr2_3.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                         mybdaform.ssframe2.datum17.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum18.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe7.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_4.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                        !mybdaform.ssframe2.monat2_4.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                         mybdaform.ssframe2.jahr2_4.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                        !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.label4.caption                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             #mybdaform.ssframe2.label2_1.caption                           Arial                                                         !mybdaform.SSFrame2.Visible = True                             "Anrechenbare Zeiten"                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             b"(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"                            Arial                                                         !mybdaform.SSFrame2.Visible = True                             "Das BDA wird um"                                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             "die Hlfte"                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             " davon hinausgeschoben."                                     Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_5.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_5.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_5.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_6.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_6.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_6.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_7.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_7.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_7.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             Jmybdaform.Text4.caption + "  B D A  " + leftc(mybdaform.Text6.caption, 66)                                                    Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             s"Das Regel-BDA  " + mybdaform.Datum1.value + "  wird somit auf  " + mybdaform.Datum19.value + "  hinausgeschoben.";           Arial                                                         1mybdaform.Datum1.value <> mybdaform.Datum19.value             mybdaform.Tag3.value                                          Arial                                                         mybdaform.monat3.value                                        "999"                                                         Arial                                                         mybdaform.jahr3.value                                         "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             "("                                                           Arial Narrow                                                  ")"                                                           Arial                                                         <iif(.not. empty(mybdaform.ssframe1.eingabe0.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe1.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe2.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe3.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe4.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe5.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe6.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe7.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=0
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         	"Seite 2"                                                     Arial                                                         "zur Festsetzung des BDA fr " + myform1.z0.Caption + " (Geb.tag = " + myBDAform.Datum0.value + ", Ernennungstag " + myBDAform.Datum2.value + ")"                                             Arial                                                         e"Berechnung des Hinausschiebens, wenn das magebende Lebensjahr bei der Ernennung berschritten war:"                         Arial                                                         "Tage"                                                        Arial                                                         "Monate"                                                      Arial                                                         "Jahre"                                                       Arial                                                         "leftc(mybdaform.Text3.caption, 94)                            Arial                                                         mybdaform.Tag0.value                                          "999"                                                         Arial                                                         mybdaform.monat0.value                                        "999"                                                         Arial                                                         mybdaform.jahr0.value                                         "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             -leftc(mybdaform.ssframe1.Label9.caption, 104)                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_0.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_0.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_0.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe2.Label1.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.Label6.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             Mmybdaform.ssframe1.datum20.value + " bis " + mybdaform.ssframe1.datum20.value                                                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum3.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum4.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe0.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_1.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_1.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_1.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum5.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum6.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe1.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_2.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_2.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_2.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum7.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum8.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe2.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_3.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_3.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_3.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.datum9.value                               Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.datum10.value                              Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.eingabe3.value                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_4.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_4.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_4.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.label5.caption                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             #mybdaform.ssframe1.label2_0.caption                           Arial                                                         !mybdaform.SSFrame1.Visible = True                             "Anrechenbare Zeiten"                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             b"(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"                            Arial                                                         !mybdaform.SSFrame1.Visible = True                             "Das BDA wird um"                                             Arial                                                         !mybdaform.SSFrame1.Visible = True                             
"ein Viertel"                                                 Arial                                                         !mybdaform.SSFrame1.Visible = True                             " davon hinausgeschoben."                                     Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_5.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_5.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_5.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_6.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_6.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_6.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             mybdaform.ssframe1.Tag1_7.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.ssframe1.monat1_7.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                              mybdaform.ssframe1.jahr1_7.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame1.Visible = True                             !mybdaform.SSFrame2.Visible = True                             .leftc(mybdaform.ssframe2.Label10.caption, 106)                Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_0.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_0.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_0.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             Mmybdaform.ssframe2.datum22.value + " bis " + mybdaform.ssframe2.datum23.value                                                 Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum11.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum12.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe4.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_1.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                        !mybdaform.ssframe2.monat2_1.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                         mybdaform.ssframe2.jahr2_1.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe4.value)                                         mybdaform.ssframe2.datum13.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum14.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe5.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_2.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                        !mybdaform.ssframe2.monat2_2.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                         mybdaform.ssframe2.jahr2_2.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe5.value)                                         mybdaform.ssframe2.datum15.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum16.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe6.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_3.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                        !mybdaform.ssframe2.monat2_3.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                         mybdaform.ssframe2.jahr2_3.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe6.value)                                         mybdaform.ssframe2.datum17.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.datum18.value                              Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.eingabe7.value                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_4.value                               "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                        !mybdaform.ssframe2.monat2_4.value                             "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                         mybdaform.ssframe2.jahr2_4.value                              "999"                                                         Arial                                                         Vmybdaform.SSFrame2.Visible = True .and. .not. empty(mybdaform.SSFrame2.eingabe7.value)                                        !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.label4.caption                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             #mybdaform.ssframe2.label2_1.caption                           Arial                                                         !mybdaform.SSFrame2.Visible = True                             "Anrechenbare Zeiten"                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             b"(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"                            Arial                                                         !mybdaform.SSFrame2.Visible = True                             "Das BDA wird um"                                             Arial                                                         !mybdaform.SSFrame2.Visible = True                             "die Hlfte"                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             " davon hinausgeschoben."                                     Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_5.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_5.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_5.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_6.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_6.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_6.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             mybdaform.ssframe2.Tag2_7.value                               "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.ssframe2.monat2_7.value                             "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                              mybdaform.ssframe2.jahr2_7.value                              "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             Jmybdaform.Text4.caption + "  B D A  " + leftc(mybdaform.Text6.caption, 66)                                                    Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             s"Das Regel-BDA  " + mybdaform.Datum1.value + "  wird somit auf  " + mybdaform.Datum19.value + "  hinausgeschoben.";           Arial                                                         1mybdaform.Datum1.value <> mybdaform.Datum19.value             mybdaform.Tag3.value                                          Arial                                                         mybdaform.monat3.value                                        "999"                                                         Arial                                                         mybdaform.jahr3.value                                         "999"                                                         Arial                                                         !mybdaform.SSFrame2.Visible = True                             !mybdaform.SSFrame2.Visible = True                             "("                                                           Arial Narrow                                                  ")"                                                           Arial                                                         <iif(.not. empty(mybdaform.ssframe1.eingabe0.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe1.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe2.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe1.eingabe3.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame1.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe4.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe5.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe6.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             <iif(.not. empty(mybdaform.ssframe2.eingabe7.value),"bis","")                                                                  Arial                                                         !mybdaform.SSFrame2.Visible = True                             Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0,   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5YL0O6BCM1379031575 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5YL0O6BCN           9  1                          83542.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YL0O6BCO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YL0O6BCP           9  7                           2188.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YL0O75AC1379031597 8  0        4895.83360416.667 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YL0O75AD1379031597 8  0        2812.500 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0O75AE1379031597 8  0        4895.833 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0O75AF1379031597 8  0        4895.83366875.000 1875.000 9895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YL0OAB4D1379031677 8  0       11979.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0OBLZH1379031713 5  0       11770.83352395.833 1666.667 8958.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F        WINDOWS _5YL0OCLJJ1379031734 8  0       13854.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0ODCMJ1379031751 8  0    !   13437.50052187.500 1875.00024687.500                   C           -1   -1   -1   -1   -1   -1               "     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F#        WINDOWS _5YL0OE7151379031771 8  0    $   15729.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0OEZCS1379031792 5  0    &   22812.500 6354.167 2083.33333645.833                               -1   -1   -1   -1   -1   -1               '     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5YL0OGM251379031832 5  0    (   26354.167 8750.000 1979.16738229.167                               -1   -1   -1   -1   -1   -1               )     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OH9FP1379031850 8  0    *   26250.00052187.500 2083.33311666.667                   C           -1   -1   -1   -1   -1   -1               +     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OI4MW1379031869 5  0    ,   28437.500 8750.000 1979.16710416.667                               -1   -1   -1   -1   -1   -1               -     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OIDA11379031876 8  0    .   28333.33352187.500 2187.50011666.667                   C           -1   -1   -1   -1   -1   -1               /     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OK9XC1379031923 5  0    0   33750.000 6354.167 2083.33310104.167                               -1   -1   -1   -1   -1   -1               1     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5YL0OLMF81379031970 5  0    2   37395.833 8750.000 1979.16741041.667                               -1   -1   -1   -1   -1   -1               3     0 12  1       FFFTF  F          0T                      0FTT0 0F4        WINDOWS _5YL0OMJOZ1379031980 5  0    5   37395.833 8750.000 1979.16741041.667                               -1   -1   -1   -1   -1   -1               6     0 12  1       FFFTF  F          0T                      0FTT0 0F7        WINDOWS _5YL0ORWGH1379032114 5  0    8   40729.167 8750.000 1979.167 9791.667                               -1   -1   -1   -1   -1   -1               9     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OS57Y1379032119 5  0    :   44062.500 8750.000 1979.16725833.333                               -1   -1   -1   -1   -1   -1               ;     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OSD1M1379032130 5  0    <   47187.500 8750.000 1979.16722604.167                               -1   -1   -1   -1   -1   -1               =     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OSKPN1379032131 5  0    >   50416.667 8750.000 1979.16731354.167                               -1   -1   -1   -1   -1   -1               ?     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0OT2XQ1379032142 8  0    @   40625.00052187.500 2083.33311666.667                   C           -1   -1   -1   -1   -1   -1               A     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OTFTT1379032151 8  0    B   43958.33352187.500 2083.33311666.667                   C           -1   -1   -1   -1   -1   -1               C     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OTTGS1379032161 8  0    D   47083.33352187.500 2083.33311666.667                   C           -1   -1   -1   -1   -1   -1               E     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OU6LZ1379032170 8  0    F   50312.50052187.500 2083.33311666.667                   C           -1   -1   -1   -1   -1   -1               G     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0OW9JH1379032221 5  0    H   53750.000 8750.000 1979.16740000.000                               -1   -1   -1   -1   -1   -1               J     0 12  1       FFFTF  F          0T                      0FTT0 0FK        WINDOWS _5YL0OYDC71379032274 8  0    M   55625.00052291.667 2187.50011666.667                   C           -1   -1   -1   -1   -1   -1               N     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FO        WINDOWS _5YL0OZMYY1379032305 5  0    Q   55937.50010416.667 1979.16728645.833                               -1   -1   -1   -1   -1   -1               R     0 12  1       FFFTF  F          0T                      0FTT0 0FS        WINDOWS _5YL0P1JUX1379032398 8  0    U   53645.83352291.667 2083.33325729.167                   C           -1   -1   -1   -1   -1   -1               W     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FX        WINDOWS _5YL0P5FVF1379032451 5  0    Z   53750.000 8750.000 1979.16737083.333                               -1   -1   -1   -1   -1   -1               [     0 12  1       FFFTF  F          0T                      0FTT0 0F\        WINDOWS _5YL0P7LZR1379032504 5  0    ^   63020.833 6354.167 2083.33319583.333                               -1   -1   -1   -1   -1   -1               _     1 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5YL0P9PO51379032560 8  0    `   67812.500 8750.000 3125.00071041.667                   C           -1   -1   -1   -1   -1   -1               a     0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0PAYRU1379032597 5  0    b   74375.000 6354.167 1979.16723125.000                               -1   -1   -1   -1   -1   -1               c     0 12  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5YL0PBI161379032600 6           81562.500 6354.167  104.16727395.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   d     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   e     1 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   f     1 12                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                   g     0 12                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   h     0  8                                                     F               WINDOWS                     25   i   j                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         *"Festsetzung Ihres Besoldungsdienstalters"                    Arial                                                         6"Ihr Besoldungsdienstalter (BDA) wird mit Wirkung ab "        Arial                                                         mybdaform.Datum2.value                                        Arial                                                         "festgesetzt auf"                                             Arial                                                         mybdaform.Datum19.value                                       Arial                                                         "Begrndung"                                                  Arial                                                         5"Das BDA wurde gem  28 BBesG wie folgt berechnet:"         Arial                                                         !mybdaform.optiongroup1.Value <= 2                             5"Das BDA wurde gem  36 BBesG wie folgt berechnet:"         Arial                                                          mybdaform.optiongroup1.Value > 2                              "1. Geburtstag"                                               Arial                                                         $"2. Vollendung des 21. Lebensjahres"                          Arial                                                          "3. Regel-Besoldungsdienstalter"                              Arial                                                         *"4. Tag der Ernennung bzw. Dienstaufnahme"                    Arial                                                         mybdaform.Datum0.value                                        Arial                                                         mybdaform.Datum24.value                                       Arial                                                         mybdaform.Datum1.value                                        Arial                                                         mybdaform.Datum2.value                                        Arial                                                         ;"5. Das Regel-BDA lt. Ziffer 3 ist nicht hinauszuschieben."                                                                   Arial                                                         :mybdaform.Monat3.value = 0 .and. mybdaform.Jahr3.value = 0                                                                    mybdaform.Datum19.value                                       Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     '"hinauszuschieben und beginnt somit am"                       Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     oalltrim(str(mybdaform.Monat3.value,10,0)) + " Monate und "+ alltrim(str(mybdaform.Jahr3.value,10,0)) + " Jahre"               Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     4"5. Das Regel-BDA ist lt. Berechnung auf Seite 2 um"          Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     "Rechtsbehelfsbelehrung"                                      Arial                                                         druckertext                                                   Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         *"Festsetzung Ihres Besoldungsdienstalters"                    Arial                                                         6"Ihr Besoldungsdienstalter (BDA) wird mit Wirkung ab "        Arial                                                         mybdaform.Datum2.value                                        Arial                                                         "festgesetzt auf"                                             Arial                                                         mybdaform.Datum19.value                                       Arial                                                         "Begrndung"                                                  Arial                                                         5"Das BDA wurde gem  28 BBesG wie folgt berechnet:"         Arial                                                         !mybdaform.optiongroup1.Value <= 2                             5"Das BDA wurde gem  36 BBesG wie folgt berechnet:"         Arial                                                          mybdaform.optiongroup1.Value > 2                              "1. Geburtstag"                                               Arial                                                         $"2. Vollendung des 21. Lebensjahres"                          Arial                                                          "3. Regel-Besoldungsdienstalter"                              Arial                                                         *"4. Tag der Ernennung bzw. Dienstaufnahme"                    Arial                                                         mybdaform.Datum0.value                                        Arial                                                         mybdaform.Datum24.value                                       Arial                                                         mybdaform.Datum1.value                                        Arial                                                         mybdaform.Datum2.value                                        Arial                                                         ;"5. Das Regel-BDA lt. Ziffer 3 ist nicht hinauszuschieben."                                                                   Arial                                                         :mybdaform.Monat3.value = 0 .and. mybdaform.Jahr3.value = 0                                                                    mybdaform.Datum19.value                                       Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     '"hinauszuschieben und beginnt somit am"                       Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     oalltrim(str(mybdaform.Monat3.value,10,0)) + " Monate und "+ alltrim(str(mybdaform.Jahr3.value,10,0)) + " Jahre"               Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     4"5. Das Regel-BDA ist lt. Berechnung auf Seite 2 um"          Arial                                                         9mybdaform.Monat3.value > 0 .or. mybdaform.Jahr3.value > 0                                                                     "Rechtsbehelfsbelehrung"                                      Arial                                                         druckertext                                                   Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                  %   A                eU:    U    U    U    U   progressdrucken,      progress_Do_Form3      progress_SSCommand2_Click:     8 `1 1 p
1                               	  hE  _      F  W  N  0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5PX0LP1OJ1349341419      /  F      ]                                                       WINDOWS _5PX0LP1OK1456888556                                                                     WINDOWS _5YG0WTAB91380535752            !                                                           WINDOWS _5YG0WTABA1379160644                  S                                                 WINDOWS _5YG0WTABB1378712146                                                                       WINDOWS _5YG0WTABC1380540896m      |                                                             WINDOWS _5PX0LP1OJ1380538868q      ~                                                                 WINDOWS _5YG0WTABD1378712146|                                                                       WINDOWS _5YG0YCYMD1380539573v                  L   !                                               WINDOWS _5YG0WGVIS1378854357|"      "  "  "  "                                                           WINDOWS _5YG0WGVIT1378854357#       #  -#  ;#  H#                                                           WINDOWS _5YG0WGVIU1378854357#      #  #  #  #                                                           WINDOWS _5PX0LP1OJ1380535752A$      V$  k$  |$  $      %  Z%                                               WINDOWS _5PX0LP1OJ1412521719D&      Y&  n&  ~&  &      '  |=                                               WINDOWS _5PX0LP1OJ1397519575@      @  A  %A  2A      A  e                                               WINDOWS _5PX0LP1OJ1380535752ih      ~h  h  h  h      5i  i                                               WINDOWS _5PX0LP1OJ1398894158
k      "k  7k  Gk  Tk      k  n                                               WINDOWS _5PX0LP1OJ1380540984Gr      \r  qr  r  r      s  w                                               WINDOWS _5YG0M58W41456888556y{      {  {  {  {      4|  w}                                               WINDOWS _5PX0LP1OJ1380535752          (  5                                                           WINDOWS _5PX0LP1OK1380535752                                                                       WINDOWS _5YG0M58W51380535752                                                                       WINDOWS _5PX0LP1OJ1380535752Z      g  t                                                               WINDOWS _5PX0LP1OJ1380535752      '  6  D  Q        X                                               WINDOWS _5PX0LP1OK1380535752          ȅ  Յ                                                       WINDOWS _5YG0M58W71380535752                                                                   WINDOWS _5PX0LP1OJ1380535752l      {            >                                                 WINDOWS _5YG0M58W91380536369      	    0  =      Ӕ                                                 WINDOWS _5PX0LP1OJ1378854357        Ο  ޟ                                                             WINDOWS _5PX0LP1OK1378854357O      \  i  y                                                             WINDOWS _5PX0LP1OJ1378854357            !                                                           WINDOWS _5T80KXF0W1380535752                                                                       WINDOWS _5PX0LP1OJ1380535752?      L  Y  h  u                                                           WINDOWS _5PX0LP1OJ1380535752          $  1                                                           WINDOWS _5PX0LP1OJ1380536608      ţ  ԣ                                                               WINDOWS _5PX0LP1OK1380536608          !  .                                                           WINDOWS _5PX0LP1OJ13805365328      G  V  c  p                                                           WINDOWS _5PX0LP1OJ1380535752y                                                                       WINDOWS _5PX0LP1OJ1349341419,      9  F  T  j                                                           WINDOWS _5PX0LP1OK1380535752          
  #                                                           WINDOWS _5PX0LP1OJ1380536608          !  7                                                           WINDOWS _5T80KXF0W1380536608          %  ;                                                           WINDOWS _5PX0LP1OJ1380536608          *  @                                                           WINDOWS _5PX0LP1OJ1380535752          .  D        l                                               WINDOWS _5PX0LP1OJ1380535752{                                                                   WINDOWS _5PX0LP1OJ1380535752          #  9      ζ  9                                               WINDOWS _5PX0LP1OJ1380535752ȹ      ׹      
                                                       WINDOWS _5YG0M58W41380535752          ǽ  ݽ      s  ޿                                               WINDOWS _5PX0LP1OJ1380535752m      |            G                                                 WINDOWS _5PX0LP1OK1380535752A      P  _  m                                                         WINDOWS _5YG0M58W51380535752      #  2  @  V        Z                                               WINDOWS _5YG0M58W61380535752            +        -                                               WINDOWS _5PX0LP1OJ1380535752                                                                   WINDOWS _5PX0LP1OK1380535752                                                                       WINDOWS _5YG0M58W71380535752                                                                       WINDOWS _5YG0M58W81380535752          +  A                                                       WINDOWS _5YG0M58W91380535752                  y  D                                               WINDOWS _5PX0LP1OJ1380535752S      b  q                                                           WINDOWS _5PX0LP1OJ1380535752          &  <                                                       WINDOWS _5YG0M58WA1380535752                                                                       WINDOWS _5PX0LP1OJ1380535752                                                                       WINDOWS _5PX0LP1OJ1380535752            
                                                           WINDOWS _5YG0M58WB1380535752                                                                       WINDOWS _5PX0LP1OJ1380535752                                                                       WINDOWS _5PX0LP1OK1380535752                                                                       WINDOWS _5PX0LP1OJ1380535752                                                                       WINDOWS _5YG0NIO5N1380535752]      j  w                                                               WINDOWS _5YG0NIO5O1380536608;      J  Y  g  }                                                           WINDOWS _5PX0LP1OJ1380536608T      c  r                                                               WINDOWS _5PX0LP1OK1380536608q                                                                       WINDOWS _5PX0LP1OJ1380536608                                                                       WINDOWS _5PX0LP1OJ1380536608                                                                       WINDOWS _5PX0LP1OK1380536608                                                                       WINDOWS _5PX0LP1OJ1380536608          	                                                             WINDOWS _5PX0LP1OJ1380536608          %  ;                                                           WINDOWS _5YG0NIO5S1380536608      $  3  B  X                                                           WINDOWS _5YG0NIO5T13805366081      @  O  ]  s                                                           WINDOWS _5PX0LP1OJ1380536608K      Z  i  y                                                             WINDOWS _5PX0LP1OK1380536608i      x                                                                 WINDOWS _5YG0NIO5U1378712146                                                                       WINDOWS _5YG0NIO5V1380536608        &  4  J                                                           WINDOWS _5PX0LP1OJ1380536608"      1  @  P  f                                                           WINDOWS _5YG0NIO5W1380536608@     O ^ m                                                           WINDOWS _5PX0LP1OJ1380536608\     k z                                                            WINDOWS _5PX0LP1OK1380536608t                                                                  WINDOWS _5YG0NIO5X1380536608                                                                  WINDOWS _5YG0NIO5Y1380536608                                                                  WINDOWS _5PX0LP1OJ1380536608                                                                  WINDOWS _5PX0LP1OJ1380536608                                                                  WINDOWS _5YG0RQ9MJ1380535752     	 	 $	 1	                                                          WINDOWS _5Z70R28DK1380541617	     	 	 	 	                                                          WINDOWS _5YG0RQ9MK1380535752^
     k
 x
 
 
                                                          WINDOWS _5YG0RQ9ML1380536608     ( 7 E [                                                          WINDOWS _5YG0RQ9MM1380536608     * 9 I _                                                          WINDOWS _5YG0RQ9MN1380536608!
     0
 ?
 N
 d
                                                          WINDOWS _5YG0RQ9MO1380535752%     4 C R h     8                                               WINDOWS _5YG0RQ9MP1380535752                                                            WINDOWS _5YG0RQ9MQ1380535752     * 9 H ^      `                                              WINDOWS _5YG0RQ9MR1380535752      
  2      6                                              WINDOWS _5YG0RQ9MS1380535752              !                                              WINDOWS _5YG0RQ9MT1380535752"     " " " "     v# $                                              WINDOWS _5YG0RQ9MU1380535752q&     & & & &     L' (                                              WINDOWS _5YG0RQ9MV1380535752G*     V* e* t* *     $+ ,                                              WINDOWS _5YG0RQ9MW1380535752.     .. =. L. b.     . f0                                              WINDOWS _5YG0RQ9MX13805357521     2 2 "2 82     2 >4                                              WINDOWS _5YG0RQ9MY13805357525     5 5 5 6                                                          WINDOWS _5YG0RQ9MZ13805357527     7 7 *7 @7                                                          WINDOWS _5YG0RQ9N0138053595768     E8 T8 d8 z8     8 :                                              WINDOWS _5YG0RQ9N11380535752<     < < = =     = n?                                              WINDOWS _5YG0RQ9N21380535752}A     A A A A     HB D                                              WINDOWS _5YG0RQ9N31380535752"F     1F @F PF fF     F H                                              WINDOWS _5YG0RQ9N41380535752J     J J J K                                                          WINDOWS _5YG0RQ9N51380535752K     K K L L                                                          WINDOWS _5YG0RQ9N61380535752L     M M M 4M                                                          WINDOWS _5YG0RQ9N71380535752N     N "N 1N GN                                                          WINDOWS _5YG0RQ9N81380535752N     N 
O O /O                                                          WINDOWS _5YG0RQ9N91380535752O     O O O P                                                          WINDOWS _5YG0RQ9NA1380535752P     P P P P                                                          WINDOWS _5YG0RQ9NB1380535752Q     Q Q Q Q                                                          WINDOWS _5YG0RQ9NC1380536608fR     uR R R R                                                          WINDOWS _5YG0RQ9ND1380536608S     S S S S                                                          WINDOWS _5YG0RQ9NE1380536608T     T T T T                                                          WINDOWS _5YG0RQ9NF1380536608U     U U U U                                                          WINDOWS _5YG0RQ9NG1380536608V     V V V W                                                          WINDOWS _5YG0RQ9NH1380536608W     W X X 0X                                                          WINDOWS _5YG0RQ9NI1380536608Y     Y &Y 4Y JY                                                          WINDOWS _5YG0RQ9NJ1380536608"Z     1Z @Z PZ fZ                                                          WINDOWS _5YG0RQ9NK1380536608@[     O[ ^[ m[ [                                                          WINDOWS _5YG0RQ9NL1380536608\\     k\ z\ \ \                                                          WINDOWS _5YG0RQ9NM1380536608v]     ] ] ] ]                                                          WINDOWS _5YG0RQ9NN1380536608^     ^ ^ ^ ^                                                          WINDOWS _5YG0RQ9NO1378712146_     _ _ _ _                                                          WINDOWS _5YG0RQ9NP13805366083`     B` Q` _` u`                                                          WINDOWS _5YG0RQ9NQ1380536608Ma     \a ka {a a                                                          WINDOWS _5YG0RQ9NR1380536608kb     zb b b b                                                          WINDOWS _5YG0RQ9NS1380536608c     c c c c                                                          WINDOWS _5YG0RQ9NT1380536608d     d d d d                                                          WINDOWS _5YG0RQ9NU1380536608e     e e e e                                                          WINDOWS _5PX0LP1OJ1380536608f     f f g g                                                          WINDOWS _5PX0LP1OK1380536608g     g 	h h /h                                                          WINDOWS _5PX0LP1OJ1380536608i     i #i 2i Hi                                                          WINDOWS _5YG0VZ1811380535752j     *j 7j Ej [j                                                          WINDOWS _5PX0LP1OJ1380535752j     j j j j                                                          WINDOWS _5YG0WGVJC1380535752k     k k k k                                                          WINDOWS _5PX0LP1OJ1380535752l     l l l l                                                          WINDOWS _5YG0WGVJD1380535752m     m m m m                                                          WINDOWS _5PX0LP1OJ1380535752fn     un n n n                                                          WINDOWS _5YG0WGVJE1380535752o     o o o o                                                          WINDOWS _5YG0WGVJF1380536608p     p p 
q q                                                          WINDOWS _5YG0WGVJG1380536608q     q r r "r                                                          WINDOWS _5YG0WGVJH1380536608r     s s !s .s                                                          WINDOWS _5YG0WGVJI1378854357t     
t t &t 3t                                                          WINDOWS _5YG0WGVJJ1378854357t     t t t t                                                          WINDOWS _5YG0WGVJK1380535752(u     5u Bu Pu ]u                                                          WINDOWS _5YG0WGVJL1380535752u     u u v v                                                          WINDOWS _5YG0WGVJM1380535752v     v v v v                                                          WINDOWS _5YH0NKNE21380535752Sw     hw }w w w     Zx vy                                              WINDOWS _5YH0NKNE31380535752={     R{ g{ }{ {     E|                                               WINDOWS _5YH0NKNE41380536464	      3 H U                                                    WINDOWS _5YH0NKNE51380535752       2 ?                                                    WINDOWS _5YH0NKNE61380535752              !                                              WINDOWS _5YH0NKNE71380535752*V     ?V TV jV wV     2W j                                              WINDOWS _5YH0NKNE81380535752|     } } -} :}     }                                               WINDOWS _5YH0NKNE91380535752     ) > W d     $                                               WINDOWS _5YH0NKNEA1380535752      0 D Q      V                                              WINDOWS _5YH0NKNEB1380537775       ɟ ֟                                                    WINDOWS _5YI18J87O1380535752q     ~                                                             WINDOWS _5YL0XE9031380535752#     8 M c p     * L                                              WINDOWS _5T80KXF0W1413961839 % E T a n                                                          COMMENT RESERVED                                
                                                          T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     BorderStyle = 3
Height = 702
Width = 872
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "BDA-Form"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = icons\bda.ico
WindowType = 1
AlwaysOnTop = .F.
BackColor = 128,255,128
Name = "FORM1"
     
oPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
If nKeyCode = 27
	&&Unload BDAform
	tasteflop = True
	tastenummer = 0
	myform1.Tastenstand.Caption = ""
	Return
Endif
ENDPROC
PROCEDURE Init
PARAMETERS xxxx
mybdaform = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
myclose("#90")

keinspeichern = True
With thisform
	Do Case && zi(4)
		Case  Inlist(zi(1+4), 0, 1)
			Msg = "28"
		Case  Inlist(zi(1+4), 2, 3, 4)
			Msg = "36"
		Case zi(1+4) = 5 &&4
			Msg = "38"
	Endcase
	.Caption = "Berechnung des Besoldungsdienstalters nach  " + Alltrim(Msg) + " BBesG fr " + myform1.z0.Caption

*!*		.Left = myform1.Left
*!*		.Top = myform1.Top && + 640 + Form1.SSPanel1.Top
	&&.Width = Form1.Width
	&&.Height = Form1.Height

	Do Case && zi(1+4)
		Case zi(1+4) = 0
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 15)
					thisform.optiongroup1.value = 1 &&Eingangsamt0.Value = True
					eingangsamtindex = 0
				Case (zi(1+5) >= 16 .And. zi(1+5) <= 20)
					thisform.optiongroup1.value = 2 &&Eingangsamt1.Value = True
					eingangsamtindex = 1
			Endcase
		Case  Inlist(zi(1+4), 1, 3)

		Case zi(1+4) = 2
			Do Case && zi(1+5)
				Case (zi(1+5) >= 0 .And. zi(1+5) <= 1)
					thisform.optiongroup1.value = 3 && Eingangsamt2.Value = True
					eingangsamtindex = 2
				Case (zi(1+5) >= 2 .And. zi(1+5) <= 3)
					thisform.optiongroup1.value = 4 &&Eingangsamt3.Value = True
					eingangsamtindex = 3
			Endcase
		Case zi(1+4) = 4 &&3
			thisform.optiongroup1.value = 1 &&Eingangsamt0.Value = True
			eingangsamtindex = 0
	Endcase

	If fileneu > 0
		mybdaform.bdadatenholen.click &&Do attached
	Endif

	For j = 0 To 24
		i = j
		mybdaform.datumdiffneu.click &&Do attached
	Next
*!*		If fileneu > 0
*!*			.Top = myform1.Top
*!*			.Left = myform1.Left
*!*			.Width = myform1.Width
*!*			.Height = myform1.Height
*!*		Else
*!*			.Top = 0
*!*			.Left = 0
*!*			.Width = Screen.Width
*!*			.Height = Screen.Height - 400
*!*		Endif

	.Visible = True
ENDWITH
thisform.bdaaktivieren.click
fensteroffen = 22
IF .not. EMPTY(thisform.datum0.value)
	thisform.datum0.LostFocus
ENDIF
IF .not. EMPTY(thisform.datum2.value)
	thisform.datum2.LostFocus
endif

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     B    )  )                        P   %           P                U  T      %  M 
 T  
 T   T      B  U  NKEYCODE
 NSHIFTALTCTRL	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION 4  
 T   %   
8  T     C #90 
 T  
  l
 Hs   CC    T  28 CC   T  36 C   T  38 Z T	 - Berechnung des Besoldungsdienstalters nach  C   BBesG fr 
  	 
 HU C  
 Hw% C   C 	 T  
 
 T  % C  C 	 T  
 
 T   CC  C 
 H@% C   C 	 T  
 
 T % C  C 	 T  
 
 T   C  T  
 
 T    %  %
        (Z
 T  
      T   
    
 T  %C  
 

      %C  
 

      %     T C    T #
 T  
      T       T !  !   
  "  T # a U$  XXXX	 MYBDAFORM THISFORM TOP MYCLOSE
 KEINSPEICHERN TRUE ZI MSG CAPTION MYFORM1 Z0 OPTIONGROUP1 VALUE EINGANGSAMTINDEX FILENEU
 BDADATENHOLEN CLICK J I DATUMDIFFNEU VISIBLE
 BDAAKTIVIEREN FENSTEROFFEN DATUM0	 LOSTFOCUS DATUM2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE KeyPress,      Init      Resize    1    1A A 2 q  AA      Q A  Q Q1 Q1 A R Q1 Q1 A Q1 A  A r  A  A   a A a A   A    2 1                             	      -
     N   J
  d
  k    )   )                        	container      	container      rechtsmitteltrger      FORM1      jTop = 32
Left = 12
Width = 850
Height = 662
Visible = .F.
TabIndex = 1
Name = "rechtsmitteltrger"
      
commandbutton      
commandbutton      
ssCommand1      FORM1.rechtsmitteltrger      \Top = 39
Left = 323
Height = 25
Width = 202
Caption = "schlieen"
Name = "ssCommand1"
      GPROCEDURE Click
thisform.rechtsmitteltrger.Visible = .f.

ENDPROC
                                      N   %   k             z             U    T    - U  THISFORM RECHTSMITTELTRGER VISIBLE Click,     1 2                       <       )                            label      label      Label1      FORM1.rechtsmitteltrger      FontBold = .T.
FontSize = 14
Caption = "Text fr die Rechtsbehelfsbelehrung"
Height = 25
Left = 255
Top = 13
Width = 339
Name = "Label1"
      editbox      editbox      rechtsmittel      FORM1.rechtsmitteltrger      GHeight = 271
Left = 15
Top = 79
Width = 823
Name = "rechtsmittel"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.rechtsmitteltrger.Zeichenzhler.Caption = ALLTRIM(STR(Len(alltrim(thisform.rechtsmitteltrger.Rechtsmittel.value)),10,0)) + " von mglichen 1400 Zeichen"

ENDPROC
     j    Q  Q                           %                            U  Z     L T    CCCC    >
 Z  von mglichen 1400 Zeichen U  NKEYCODE
 NSHIFTALTCTRL THISFORM RECHTSMITTELTRGER
 ZEICHENZHLER CAPTION RECHTSMITTEL VALUE KeyPress,     1  2                              )   Q                        label      label      Label27      FORM1.rechtsmitteltrger      Caption = "Ein Leerzeichen gefolgt von einem Dollarzeichen bewirkt beim Ausdruck einen Zeilenwechsel."
Height = 19
Left = 168
Top = 559
Visible = .F.
Width = 513
Name = "Label27"
      label      label      
Zeichenzhler      FORM1.rechtsmitteltrger      FontBold = .T.
FontSize = 11
Alignment = 2
Caption = "11 von 1400 mglichen Zeichen."
Height = 21
Left = 168
Top = 587
Width = 513
Name = "Zeichenzhler"
      
commandbutton      
commandbutton      Command2      FORM1.rechtsmitteltrger      tTop = 373
Left = 306
Height = 25
Width = 238
Caption = "permanent speichern und ausblenden"
Name = "Command2"
      PROCEDURE Click
Belehrtxt.xText = thisform.rechtsmitteltrger.Rechtsmittel.value
myput(91, 1,"Belehrtxt")
myclose("#91")
thisform.Rechtsmitteltrger.Visible = False
ENDPROC
     m    T  T                        :   %                            U  [  T        C[	 Belehrtxt  C #91  T   	  U
 	 BELEHRTXT XTEXT THISFORM RECHTSMITTELTRGER RECHTSMITTEL VALUE MYPUT MYCLOSE VISIBLE FALSE Click,     1 11                              )   T                        shape      shape      Shape4      FORM1      ZTop = 635
Left = 631
Height = 55
Width = 76
BackColor = 255,252,185
Name = "Shape4"
      shape      shape      Shape5      FORM1      ZTop = 635
Left = 706
Height = 55
Width = 76
BackColor = 255,252,185
Name = "Shape5"
      shape      shape      Shape6      FORM1      ZTop = 635
Left = 781
Height = 55
Width = 76
BackColor = 255,252,185
Name = "Shape6"
      
commandbutton      
commandbutton      	schlieen      FORM1      Top = 3
Left = 735
Height = 28
Width = 118
Cancel = .T.
Caption = "schlieen"
TabIndex = 2
TabStop = .F.
Name = "schlieen"
      <PROCEDURE Click
myclose("#90")
thisform.release
ENDPROC
                                      N   %   i             x             U    C #90  
    U  MYCLOSE THISFORM RELEASE Click,     1  1                       1       )                            
commandbutton      
commandbutton      Bescheid      FORM1      tTop = 3
Left = 16
Height = 28
Width = 118
Caption = "Bescheid"
TabIndex = 4
TabStop = .F.
Name = "Bescheid"
     mPROCEDURE Click
If fileneu = 0 
	return
endif
thisform.Rechtsmitteltrger.Visible = False
*!*	&&If druckenabled = 0 Then druckmeldung: Exit Sub

*!*	&&MsgBox "Ein Zugriff auf Ihren Drucker ist im Rahmen dieses Tests nicht mglich.", 0, "TEST"
*!*	&&Exit Sub
*!*	With thisform



If EMPTY(bda.Datum(1+19)) && = "" 
	Messagebox( "Bitte vorher Daten eingeben", 0, "Dateneingabe fehlt")
	thisform.Datum0.SetFocus
	return
endif

*!*	&&For i = 0 To 24
*!*	&&    If .Datum(i) = Null Then
*!*	&&    Else
*!*	&&    druckdatum(i) = .Datum(i)
*!*	&&Mid$(druckdatum(i), 3) = "."
*!*	&&Mid$(druckdatum(i), 6) = "."
*!*	&&    End If
*!*	&&Next


*!*	Printer.Orientation = 1

*!*	Printer.FontBold = True
*!*	Printer.Font = "arial"
*!*	Printer.FontSize = 12
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(8); ditext4;

*!*	If alltrim(ditext6) = "" 

*!*	Printer.CurrentX = 7000
*!*	Printer.Print date

*!*	else
*!*	Printer.CurrentX = 7000
*!*	Printer.Print alltrim(ditext6)

*!*	endif
*!*	Printer.Print Tab(8); ditext5;
*!*	Printer.Print
*!*	Printer.FontBold = False
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print
*!*	Do Case && wnw.anrede
*!*	Case wnw.anrede = "b"
*!*	Printer.Print Tab(12); "Herrn"
*!*	Case wnw.anrede = "c"
*!*	Printer.Print Tab(12); "Frau"
*!*	Case wnw.anrede = "d"
*!*	Printer.Print Tab(12); "Frulein"
*!*	EndCase

*!*	Printer.Print Tab(12); myform1.z(0).Caption;
*!*	If Len(alltrim(wnw.ztext7)) > 0 

*!*	Printer.CurrentX = 7000
*!*	Printer.Print "Dienstanschrift:"
*!*	else
*!*	Printer.Print
*!*	endif
*!*	Printer.Print Tab(12); wnw.ztext5;
*!*	If Len(alltrim(wnw.ztext7)) > 0 

*!*	Printer.CurrentX = 7000
*!*	Printer.Print wnw.ztext7
*!*	else
*!*	Printer.Print
*!*	endif

*!*	Printer.Print
*!*	Printer.Print Tab(12); wnw.ztext6



*!*	Printer.Print
*!*	Printer.Print

*!*	Printer.FontSize = 12
*!*	Printer.FontBold = True
*!*	Printer.Print Tab(8); "Festsetzung Ihres Besoldungsdienstalters"
*!*	Printer.Print
*!*	Printer.FontBold = False
*!*	Printer.Print Tab(12); "Ihr Besoldungsdienstalter (BDA) wird mit Wirkung ab ";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(2)
*!*	Printer.Print Tab(12); "festgesetzt auf";
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(19);
*!*	Printer.FontBold = False
*!*	Printer.Print "."
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	Printer.Print Tab(8); "Begrndung"
*!*	Printer.FontBold = False
*!*	Printer.Print
*!*	Printer.Print Tab(12); "Das BDA wurde gem ";
*!*	If .Eingangsamt(0).Value = "wahr" 
*!*	Printer.Print " 28 BBesG ";
*!*	endif

*!*	If .Eingangsamt(1).Value = "wahr" 
*!*	Printer.Print " 28 BBesG ";
*!*	endif

*!*	If .Eingangsamt(2).Value = "wahr" 
*!*	Printer.Print " 36 BBesG ";
*!*	endif

*!*	If .Eingangsamt(3).Value = "wahr" 
*!*	Printer.Print " 36 BBesG ";
*!*	endif

*!*	If .Eingangsamt(4).Value = "wahr" 
*!*	Printer.Print " 38 BBesG ";
*!*	endif

*!*	Printer.Print "wie folgt berechnet:"

*!*	Printer.Print
*!*	Printer.Print Tab(12); "1. Geburtstag";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(0)
*!*	Printer.Print

*!*	Printer.Print Tab(12); "2. Vollendung des 21. Lebensjahres";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(24)
*!*	Printer.Print

*!*	Printer.Print Tab(12); "3. Regel-Besoldungsdienstalter";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(1)
*!*	Printer.Print

*!*	Printer.Print Tab(12); "4. Tag der Ernennung bzw. Dienstaufnahme";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(2)
*!*	Printer.Print

*!*	If .Monat3 = 0 .and. .Jahr3 = 0 

*!*	Printer.Print Tab(12); "5. Das Regel-BDA lt. Ziffer 3 ist nicht hinauszuschieben."
*!*	else
*!*	Printer.Print Tab(12); "5. Das Regel-BDA ist lt. Berechnung auf Seite 2 um";
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Monat3 + " Monate und "; .Jahr3 + " Jahre"
*!*	Printer.CurrentX = 1420
*!*	Printer.Print "hinauszuschieben und beginnt somit am ";
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 7000
*!*	Printer.Print .Datum(19)
*!*	Printer.FontBold = False
*!*	endif
*!*	Printer.Print

*!*	Printer.Print




*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	Printer.Print Tab(8); "Rechtsbehelfsbelehrung"
*!*	If fileneu = 0 

*!*	else
myclose("#91")
myopen(eigdat + muser + "\Belehrung.dbf" , 91 ,"Belehrtxt")
myget(91, 1,"Belehrtxt")
*!*	Printer.FontSize = 8
*!*	Printer.FontBold = False
*!*	iiii = 17
*!*	Printer.Print
*SET STEP ON 

druckertext = alltrim(Belehrtxt.xText)
druckertext = alltrim(druckertext)
druckertext = STRTRAN(druckertext, '$', CHR(13)+CHR(10))
*!*	Do druckenwiederholen: &&Do attached

*!*	If Len(alltrim(druckertext)) > 0 


*!*	i = InStr(druckertext, "$")

*!*	If i = 0 


*!*	Printer.Print Tab(iiii); druckertext
*!*	druckertext = ""

*!*	else

*!*	Printer.Print Tab(iiii); leftc(druckertext, i - 1);
*!*	druckertext = right(druckertext, Len(druckertext) - i)

*!*	endif

*!*	else

*!*	GoTo fertig

*!*	endif

*!*	GoTo druckenwiederholen
*!*	goto fertig
*!*	endif
*!*	Printer.FontSize = 12
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(9); "Sachlich und rechnerisch richtig: "
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(9); string(25, "_")

*!*	Printer.Print
*!*	&&If registriert < 2 Then lizenzdruck
*!*	endwith
*!*	Printer.EndDoc
*!*	&&
oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM bdabescheid range 1,1 NOCONSOLE TO PRINTER prompt

SELECT dummy
USE
SELECT(oldselect)

i = 0

ENDPROC
     e    L  L                        	   %                          U   %     B  T     %CC   ? C Bitte vorher Daten eingeben  Dateneingabe fehltx
     B  C #91	 2 C   \Belehrung.dbf[	 Belehrtxt
  C[	 Belehrtxt
  T C   T C  T C  $C
 C
  T C W h dummy  C F   [ F  #)# ? bdabescheid(!"9 F  Q
 F 
 T   U  FILENEU THISFORM RECHTSMITTELTRGER VISIBLE FALSE BDA DATUM DATUM0 SETFOCUS MYCLOSE MYOPEN EIGDAT MUSER MYGET DRUCKERTEXT	 BELEHRTXT XTEXT	 OLDSELECT DUMMY FELD BDABESCHEID I Click,     1 A A 1i A A  
!'  q Q A r Q 2r A   2                       b      )   L                        
commandbutton      
commandbutton      
Berechnung      FORM1      yTop = 3
Left = 136
Height = 28
Width = 118
Caption = "Berechnung"
TabIndex = 5
TabStop = .F.
Name = "Berechnung"
     $=PROCEDURE Click
If fileneu = 0 
	return
endif

thisform.Rechtsmitteltrger.Visible = False
*!*	&&If druckenabled = 0 Then druckmeldung: Exit Sub

*!*	&&MsgBox "Ein Zugriff auf Ihren Drucker ist im Rahmen dieses Tests nicht mglich.", 0, "TEST"
*!*	&&Exit Sub
*!*	With thisform

If EMPTY(thisform.Datum19.value) &&= "" 
	Messagebox( "Bitte vorher Daten eingeben", 0, "Dateneingabe fehlt")
	thisform.Datum0.SetFocus
	return
endif
oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top


REPORT FORM bdaberechnung RANGE 1,1 NOCONSOLE TO PRINTER prompt


SELECT dummy
USE
SELECT(oldselect)

*!*	Printer.Orientation = 2

*!*	Printer.FontBold = False
*!*	Printer.Font = "arial"
*!*	Printer.FontSize = 10
*!*	Printer.Print
*!*	Printer.Print
*!*	Printer.Print Tab(90); "Seite 2"
*!*	Printer.Print Tab(40); "zur Festsetzung des BDA fr " + myform1.z(0).Caption + " (Geb.tag = " + BDAform.Datum(0) + ", Ernennungstag " + BDAform.Datum(2) + ")"
*!*	Printer.Print
*!*	Printer.FontSize = 12
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 1500
*!*	Printer.FontUnderline = True
*!*	Printer.Print "Berechnung des Hinausschiebens, wenn das magebende Lebensjahr bei der Ernennung berschritten war:"
*!*	Printer.FontUnderline = False
*!*	Printer.Print
*!*	&&Printer.FontSize = 10
*!*	Printer.CurrentX = 12000
*!*	Printer.Print "Tage";
*!*	Printer.CurrentX = 12800
*!*	Printer.Print "Monate";
*!*	Printer.CurrentX = 14000
*!*	Printer.Print "Jahre"
*!*	Printer.Print
*!*	Printer.CurrentX = 1500
*!*	Printer.Print leftc(.Text(3), 94);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag0.Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat0.Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr0.Caption
*!*	Printer.Print
*!*	Printer.CurrentX = 1500
*!*	Printer.Print string(99, "_")
*!*	Printer.Print

*!*	If mybdaform.SSFrame1.Visible = True 

*!*	Printer.CurrentX = 1500
*!*	Printer.Print leftc(.Label9, 104);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag1(0).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat1(0).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr1(0).Caption
*!*	&&Printer.Print
*!*	&&Printer.FontBold = False
*!*	&&Printer.CurrentX = 1500
*!*	&&Printer.Print .Label1(0)
*!*	&&Printer.CurrentX = 1500
*!*	&&Printer.Print .Label6
*!*	Printer.CurrentX = 1500
*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.CurrentX = 1500
*!*	Printer.Print .Datum(20).Value + "  bis  " + .Datum(21);
*!*	Printer.CurrentX = 5000
*!*	Printer.Print "Anrechenbare Zeiten"
*!*	Printer.CurrentX = 5000
*!*	Printer.FontBold = False
*!*	Printer.FontSize = 8
*!*	Printer.Print "(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"
*!*	Printer.FontSize = 12
*!*	Printer.CurrentX = 1500
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 50
*!*	endif

*!*	Printer.Print string(99, "_")
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.Print
*!*	Printer.FontBold = False

*!*	For i = 1 To 4
*!*	If .Tag1(i) = 0 .and. .Monat1(i) = 0 .and. Jahr1(i) = 0 

*!*	else
*!*	Printer.CurrentX = 1500
*!*	Printer.Print .Datum(i * 2 + 1) + "   bis   " + .Datum(i * 2 + 2);
*!*	Printer.CurrentX = 5000
*!*	Printer.Print .Eingabe(i - 1);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag1(i).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat1(i).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr1(i).Caption
*!*	endif
*!*	Next

*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 5000
*!*	Printer.Print string(73, "_")
*!*	Printer.FontBold = False
*!*	i = Printer.CurrentY
*!*	Printer.CurrentY = Printer.CurrentY + 100

*!*	Printer.CurrentX = 5000
*!*	Printer.Print leftc(.Label5, 76);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag1(5).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat1(5).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr1(5).Caption

*!*	Printer.CurrentX = 5000
*!*	Printer.Print leftc(.Label2(0), 72);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag1(6).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat1(6).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr1(6).Caption

*!*	Printer.CurrentX = 5000
*!*	Printer.Print "Das BDA wird um     ";
*!*	Printer.FontBold = True
*!*	Printer.Print "ein Viertel";
*!*	Printer.FontBold = False
*!*	Printer.Print "     davon hinausgeschoben . . .";
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag1(7).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat1(7).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr1(7).Caption
*!*	Printer.CurrentX = 12100
*!*	Printer.Print string(20, "=")



*!*	endif
*!*	&&Printer.Print
*!*	Printer.Print
*!*	&&Printer.Print

*!*	If SSFrame2.Visible = True 

*!*	Printer.CurrentX = 1500
*!*	Printer.Print string(99, "_")
*!*	Printer.Print
*!*	Printer.CurrentX = 1500
*!*	Printer.Print leftc(.Label10, 106);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag2(0).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat2(0).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr2(0).Caption
*!*	Printer.CurrentX = 1500
*!*	Printer.Print
*!*	Printer.FontBold = True

*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.CurrentX = 1500
*!*	Printer.Print .Datum(22).Value + "  bis  " + .Datum(23);
*!*	Printer.CurrentX = 5000
*!*	Printer.Print "Anrechenbare Zeiten"
*!*	Printer.FontBold = False
*!*	Printer.FontSize = 8
*!*	Printer.CurrentX = 5000
*!*	Printer.Print "(1. Zeiten mit Dienstbezgen, 2. Kinderbetreuung, 3. Beurlaubung, die ffentl. Interessen dient)"
*!*	Printer.FontSize = 12
*!*	Printer.FontBold = False
*!*	Printer.CurrentX = 1500
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 50
*!*	endif

*!*	Printer.Print string(99, "_")
*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.Print


*!*	For i = 1 To 4
*!*	If .Tag2(i) = 0 .and. .Monat2(i) = 0 .and. Jahr2(i) = 0 

*!*	else
*!*	Printer.CurrentX = 1500
*!*	Printer.Print .Datum(i * 2 + 9) + "   bis   " + .Datum(i * 2 + 10);
*!*	Printer.CurrentX = 5000
*!*	Printer.Print .Eingabe(i + 3);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag2(i).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat2(i).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr2(i).Caption
*!*	endif
*!*	Next

*!*	If dimen.dimpw2 = 0 
*!*	Printer.CurrentY = Printer.CurrentY - 200
*!*	endif

*!*	Printer.Print
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 5000
*!*	Printer.Print string(73, "_")
*!*	Printer.FontBold = False
*!*	i = Printer.CurrentY
*!*	Printer.CurrentY = Printer.CurrentY + 100

*!*	Printer.CurrentX = 5000
*!*	Printer.Print leftc(.Label4, 76);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag2(5).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat2(5).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr2(5).Caption

*!*	Printer.CurrentX = 5000
*!*	Printer.Print leftc(.Label2(1), 72);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag2(6).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat2(6).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr2(6).Caption

*!*	Printer.CurrentX = 5000
*!*	Printer.Print "Das BDA wird um     ";
*!*	Printer.FontBold = True
*!*	Printer.Print "die Hlfte ";
*!*	Printer.FontBold = False
*!*	Printer.Print "     davon hinausgeschoben . . .";
*!*	Printer.FontBold = True
*!*	Printer.CurrentX = 12100
*!*	Printer.Print .Tag2(7).Caption;
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat2(7).Caption;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr2(7).Caption
*!*	Printer.CurrentX = 12100
*!*	Printer.Print string(20, "=")



*!*	endif

*!*	&&Printer.Print
*!*	Printer.CurrentX = 1500
*!*	Printer.Print string(99, "_")
*!*	Printer.Print
*!*	Printer.CurrentX = 1500
*!*	Printer.Print .Text(4) + "  B D A  " + leftc(.Text(6), 66);
*!*	Printer.CurrentX = 12100
*!*	Printer.Print "(";
*!*	Printer.FontStrikethru = True
*!*	Printer.Print .Tag3.Caption;
*!*	Printer.FontStrikethru = False
*!*	Printer.Print ")";
*!*	Printer.CurrentX = 13100
*!*	Printer.Print .Monat3;
*!*	Printer.CurrentX = 14100
*!*	Printer.Print .Jahr3
*!*	Printer.CurrentX = 1500
*!*	If Not .Datum(1) = .Datum(19) 

*!*	Printer.Print "Das Regel-BDA  " + .Datum(1) + "  wird somit auf  " + .Datum(19) + "  hinausgeschoben.";
*!*	endif
*!*	Printer.CurrentX = 12100
*!*	Printer.Print string(20, "=")
*!*	If Not .Datum(1) = .Datum(19) 

*!*	Printer.CurrentX = 6450
*!*	Printer.Print string(9, "=")
*!*	endif



*!*	&&If registriert < 2 Then lizenzdruck
*!*	endwith
*!*	Printer.EndDoc
*!*	&&
*!*	i = 0
ENDPROC
     i    P  P                        R   %                          U   %     B  T     %C    ? C Bitte vorher Daten eingeben  Dateneingabe fehltx
     B  T	 C W h dummy  C F
   [ F
  #)% ?
 bdaberechnung(!"9 F
  Q
 F	  U
  FILENEU THISFORM RECHTSMITTELTRGER VISIBLE FALSE DATUM19 VALUE DATUM0 SETFOCUS	 OLDSELECT DUMMY FELD
 BDABERECHNUNG Click,     1 A A 2W A A  q Q A r Q Ss A  1                       2$      )   P                        
commandbutton      
commandbutton      
Grundgehlter      FORM1      xTop = 3
Left = 256
Height = 28
Width = 118
Caption = "Stufen"
TabIndex = 6
TabStop = .F.
Name = "Grundgehlter"
      PROCEDURE Click
If fileneu = 0 
	return
endif
thisform.Rechtsmitteltrger.Visible = False
Do grundgehlterdrucken &&ist in drucken.prg
ENDPROC
     2                              
   %                             U  6  %     B  T       U  FILENEU THISFORM RECHTSMITTELTRGER VISIBLE FALSE GRUNDGEHLTERDRUCKEN Click,     1 A A 1q 1                              )                           
commandbutton      
commandbutton      bertrag      FORM1      uTop = 3
Left = 376
Height = 28
Width = 118
Caption = "bertrag"
TabIndex = 7
TabStop = .F.
Name = "bertrag"
     PROCEDURE Click
If fileneu = 0
	Return
Endif

myform1.bdabeginn.Value = Thisform.Datum19.Value
zi(1+1) = 0
myform1.z1.Caption = zt1(1+0)

With Thisform
	If EMPTY(.Datum0.Value) && = ""
		wnw.ztext0 = ""
	Else
		wnw.ztext0 = .Datum0.Value
	Endif

	If EMPTY(.Datum2.Value) &&  = ""
		wnw.ztext2 = ""
	Else
		wnw.ztext1 = .Datum2.Value
	Endif

	If EMPTY(.Datum19.Value) &&  = ""
		wnw.ztext2 = ""
	Else
		wnw.ztext2 = .Datum19.Value
	Endif
	myput(13, fileneu,"wnw")
Endwith

&&Unload BDAform
myform1.bdabeginn.SetFocus
Keyboard "{ENTER}"

If wizardja = 7
	&&wizardja = 100
	For i = 2 To 6
		hsaa = Alltrim(Str(i,2,0))
		myform1.Abereich&hsaa..Visible = True
	Next
	Do wizardmeldung &&Do attached
Endif
ENDPROC
     x    _  _                           %           #               U   %     B  T       T   T   C	 
  I %C
    T       T  
    %C
    T       T  
    %C   T     . T      C
    wnw  
     \ {ENTER} %   ( T CC  Z) myform1.Abereich&hsaa..Visible = True
     U  FILENEU MYFORM1	 BDABEGINN VALUE THISFORM DATUM19 ZI Z1 CAPTION ZT1 DATUM0 WNW ZTEXT0 DATUM2 ZTEXT2 ZTEXT1 MYPUT SETFOCUS WIZARDJA I HSAA
 WIZARDMELDUNG Click,     1 A A 1q 1 AA 2 AA 2 AA qA  rqA q A 1                             )   _                        
commandbutton      
commandbutton      RB_Text      FORM1      sTop = 3
Left = 496
Height = 28
Width = 118
Caption = "RB-Text"
TabIndex = 8
TabStop = .F.
Name = "RB_Text"
     PROCEDURE Click

&&ffentlicher Dienst
If fileneu = 0
	Return
Endif

If thisform.Rechtsmitteltrger.Visible = True
	thisform.Rechtsmitteltrger.Visible = False
	myclose("#91")
	Return
ENDIF

myclose("#91")
myopen(eigdat + muser + "\Belehrung.dbf" , 91 ,"Belehrtxt")
myget(91, 1,"Belehrtxt")

If Leftc(Alltrim(Belehrtxt.xText), 5) = "Gegen"
	thisform.Rechtsmitteltrger.Rechtsmittel.value = Belehrtxt.xText
Else
	myclose("#91")
	myopen(eigdat + "\Texte\Belehrung.dbf" , 91 ,"Belehrtxt")
	myget(91, 1,"Belehrtxt")
	thisform.Rechtsmitteltrger.Rechtsmittel.value = Belehrtxt.xText
	myclose("#91")
	myopen(eigdat + muser + "\Belehrung.dbf" , 91 ,"Belehrtxt")
	Belehrtxt.xText = thisform.Rechtsmitteltrger.Rechtsmittel.Text
	myput(91, 1,"Belehrtxt")
Endif
thisform.Rechtsmitteltrger.Zeichenzhler.Caption = ALLTRIM(STR(Len(Alltrim(thisform.Rechtsmitteltrger.Rechtsmittel.value)),10,0)) + " von mglichen 1400 Zeichen"
thisform.Rechtsmitteltrger.Visible = True
*!*		.Top = Schlieen.Height
*!*		.Left = 0
*!*		.Width = BDAform.Width
*!*		.Height = BDAform.Height - Schlieen.Height
*!*		.Visible = True
*!*	Endwith

ENDPROC
                                   i   %   1      v     @            U  Q %     B  %    W  T     C #91  B  C #91 2 C 	  \Belehrung.dbf[	 Belehrtxt  C[	 Belehrtxt
 ! %CC   Gegen  T  
      C #91 4 C  \Texte\Belehrung.dbf[	 Belehrtxt  C[	 Belehrtxt
  T  
     C #91 2 C 	  \Belehrung.dbf[	 Belehrtxt  T    
   C[	 Belehrtxt  L T    CCCC  
  >
 Z  von mglichen 1400 Zeichen T     U  FILENEU THISFORM RECHTSMITTELTRGER VISIBLE TRUE FALSE MYCLOSE MYOPEN EIGDAT MUSER MYGET	 BELEHRTXT XTEXT RECHTSMITTEL VALUE TEXT MYPUT
 ZEICHENZHLER CAPTION Click,     1 A A r1A A ! A!A 18                       ~      )                           
commandbutton      
commandbutton      Hilfe      FORM1      oTop = 3
Left = 616
Height = 28
Width = 118
Caption = "Hilfe"
TabIndex = 9
TabStop = .F.
Name = "Hilfe"
     ;PROCEDURE Click
Msg = "http://www.pc-gehalt.de/Besoldungsdienstalter"
DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
rc = ShellExecute(myform1.hwnd, "Open", Msg, "", "", SW_SHOWNORMAL)

ENDPROC
         i  i                        6   %                           U   : T  - http://www.pc-gehalt.de/Besoldungsdienstalter. | ShellExecute shell32.dll) T C   Open           U  MSG SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1 2                       0      )   i                        label      label      text0      FORM1      Caption = "Geburtstag am "
Height = 18
Left = 18
Top = 35
Width = 217
TabIndex = 10
BackColor = 128,255,128
Name = "text0"
      label      label      text8      FORM1      Caption = "Vollendung des 21. Lebensj am"
Height = 18
Left = 18
Top = 60
Width = 217
TabIndex = 11
BackColor = 128,255,128
Name = "text8"
      label      label      text1      FORM1      Caption = "Regel-Besoldungsdienstalter"
Height = 18
Left = 18
Top = 85
Width = 217
TabIndex = 12
BackColor = 128,255,128
Name = "text1"
      label      label      text2      FORM1      Caption = "Ernennung am"
Height = 18
Left = 18
Top = 110
Width = 217
TabIndex = 13
BackColor = 128,255,128
Name = "text2"
      textbox      textbox      datum0      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 249
TabIndex = 14
Top = 33
Width = 124
Name = "datum0"
     gPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 0,"", this.value 

*!*	this.Value = dc

*!*	IF EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
     ;    "  "                        ;   %                             U        U  NKEYCODE
 NSHIFTALTCTRL          U  BDA_DATUM_LOSTFOCUS THIS VALUE KeyPress,     	 LostFocusW     1  : 8                                   \      )   "                        textbox      textbox      datum24      FORM1      Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 249
TabIndex = 15
Top = 58
Width = 124
DisabledForeColor = 0,0,0
Name = "datum24"
     ^PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 24,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         f  f                           %          
  	                U        U  NKEYCODE
 NSHIFTALTCTRLK         T    %C 
D 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  :  A 2                                   S      )   f                        textbox      textbox      datum1      FORM1      Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 249
TabIndex = 16
Top = 83
Width = 124
DisabledForeColor = 0,0,0
Name = "datum1"
     ]PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 1,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         f  f                           %          
  	                U        U  NKEYCODE
 NSHIFTALTCTRLK         T    %C 
D 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  :  A 2                                   R      )   f                        textbox      textbox      datum2      FORM1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 249
TabIndex = 17
Top = 108
Width = 124
Name = "datum2"
     mPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 2,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF

ENDPROC
     ;    "  "                        ;   %                             U        U  NKEYCODE
 NSHIFTALTCTRL         U  BDA_DATUM_LOSTFOCUS THIS VALUE KeyPress,     	 LostFocusW     1  : 8                                   b      )   "                        optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 5
Value = 1
Height = 104
Left = 387
Top = 32
Width = 200
TabIndex = 18
Name = "Optiongroup1"
Option1.Caption = "Eingangsamt A 1 bis A 12"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 183
Option1.Name = "eingangsamt0"
Option2.Caption = "Eingangsamt A13 oder A 14"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 183
Option2.Name = "eingangsamt1"
Option3.Caption = "Eingangsamt C 1 oder C 2"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 183
Option3.Name = "eingangsamt2"
Option4.Caption = "Eingangsamt C 3 oder C 4"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 183
Option4.Name = "eingangsamt3"
Option5.Caption = "Richter oder Staatsanwalt"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 183
Option5.Name = "eingangsamt4"
     PROCEDURE Click
eingangsamtindex = this.value - 1 &&Index
myINDEX = this.value - 1 
With thisform
	Do Case && Index
		Case myIndex = 0
			berschritten = "31"
			&&.SSFrame1.Visible = True
			&&.SSFrame2.Visible = True
			Msg = "28"
			
		Case myIndex = 1
			berschritten = "35"
			&&.SSFrame1.Visible = False
			&&ssframe1lschen
			Msg = "28"
			
		Case myIndex = 2
			berschritten = "35"
			&&.SSFrame1.Visible = False
			&&ssframe1lschen
			Msg = "36"
			
		Case myIndex = 3
			berschritten = "40"
			&&.SSFrame1.Visible = False
			&&ssframe1lschen
			Msg = "36"

		Case myIndex = 4
			Messagebox( ("in Vorbereitung"))
			&&BDAform.Visible = False
			RETURN
			
			berschritten = "35"
			&&.SSFrame1.Visible = False
			&&ssframe1lschen
			Msg = "38"
	ENDCASE
	
	.Caption = "Berechnung des Besoldungsdienstalters nach  " + Alltrim(Msg) + " BBesG fr " + ALLTRIM(myform1.z0.Caption)
	.Text3.caption = "Am Tag der Ernennung war die Vollendung des    " + berschritten + ".    Lebensj. berschritten um . . . . . . . . . . . . . . . . . . . . . . ."
	If myIndex = 0
		berschritten = "35"
	Endif

	.ssframe2.Label10.Caption = "Davon entfallen auf die Zeit ab Vollendung des    " + berschritten + ".    Lebensjahres . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ."
	If .Visible = True
		.Datum2.SetFocus
		keyboard "{ENTER}" &&, True
	Endif
Endwith
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                      %           %   J            U  : T     T   
  3
 HB M   q  T  31 T  28    T  35 T  28    T  35 T  36    T  40 T  36  M C in Vorbereitungx B T  35 T  38 \ T - Berechnung des Besoldungsdienstalters nach  C   BBesG fr C 	   T
  / Am Tag der Ernennung war die Vollendung des     L .    Lebensj. berschritten um . . . . . . . . . . . . . . . . . . . . . . . %  a T  35  T   2 Davon entfallen auf die Zeit ab Vollendung des     O .    Lebensjahres . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . %
  /    \ {ENTER}   U  EINGANGSAMTINDEX THIS VALUE MYINDEX THISFORM
 BERSCHRITTEN MSG CAPTION MYFORM1 Z0 TEXT3 SSFRAME2 LABEL10 VISIBLE TRUE DATUM2 SETFOCUS
 
     U  THIS CLICK Click,      ProgrammaticChange    1 AA          B   A A	 A 	! A A 2  1                            #       6    )                           shape      shape      picture1      FORM1      \Top = 111
Left = 631
Height = 55
Width = 76
BackColor = 255,252,185
Name = "picture1"
      shape      shape      picture2      FORM1      \Top = 111
Left = 706
Height = 55
Width = 76
BackColor = 255,252,185
Name = "picture2"
      shape      shape      picture3      FORM1      \Top = 111
Left = 781
Height = 55
Width = 76
BackColor = 255,252,185
Name = "picture3"
      label      label      Label12      FORM1      |Caption = "Tage"
Height = 19
Left = 655
Top = 115
Width = 28
TabIndex = 19
BackColor = 255,252,185
Name = "Label12"
      label      label      Label13      FORM1      ~Caption = "Monate"
Height = 19
Left = 725
Top = 115
Width = 42
TabIndex = 20
BackColor = 255,252,185
Name = "Label13"
      label      label      Label14      FORM1      }Caption = "Jahre"
Height = 19
Left = 804
Top = 115
Width = 34
TabIndex = 21
BackColor = 255,252,185
Name = "Label14"
      textbox      textbox      tag0      FORM1      Alignment = 2
Value = 0
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 646
TabIndex = 22
Top = 137
Width = 46
BackColor = 255,255,0
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
BorderColor = 0,0,0
Name = "tag0"
      textbox      textbox      monat0      FORM1     Alignment = 2
Value = 0
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 723
TabIndex = 23
Top = 136
Width = 46
BackColor = 255,255,0
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
BorderColor = 0,0,0
Name = "monat0"
      textbox      textbox      jahr0      FORM1     Alignment = 2
Value = 0
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 798
TabIndex = 24
Top = 136
Width = 46
BackColor = 255,255,0
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
BorderColor = 0,0,0
Name = "jahr0"
      	container      	container      ssframe1      FORM1      lTop = 166
Left = 15
Width = 842
Height = 235
TabIndex = 25
BackColor = 255,252,185
Name = "ssframe1"
      label      label      Label6      FORM1.ssframe1      sCaption = ""
Height = 26
Left = 1
Top = 4
Width = 838
TabIndex = 1
BackColor = 255,252,185
Name = "Label6"
      label      label      Label9      FORM1.ssframe1      Caption = "Davon entfallen auf die Zeit bis zur Vollendung des    35. Lebensjahres................"
Height = 19
Left = 9
Top = 8
Width = 583
TabIndex = 2
BackColor = 255,252,185
Name = "Label9"
      textbox      textbox      tag1_0      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 3
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_0"
      textbox      textbox      monat1_0      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 4
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_0"
      textbox      textbox      jahr1_0      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 5
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_0"
      textbox      textbox      datum20      FORM1.ssframe1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 6
Top = 29
Width = 124
DisabledForeColor = 0,0,0
Name = "datum20"
     PPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 20,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
                                      %   T           y            U  T              T    %C 
M 
     U  NKEYCODE
 NSHIFTALTCTRL BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUSS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocus     1   A 2 ! A 2                                   E      )                           textbox      textbox      datum21      FORM1.ssframe1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 7
Top = 29
Width = 124
DisabledForeColor = 0,0,0
Name = "datum21"
     PPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 21,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
                                      %   T           y            U  T              T    %C 
M 
     U  NKEYCODE
 NSHIFTALTCTRL BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUSS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocus     1   A 2 ! A 2                                   E      )                           textbox      textbox      datum3      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 8
Top = 56
Width = 124
Name = "datum3"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 3,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum4      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 9
Top = 56
Width = 124
Name = "datum4"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 4,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum5      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 11
Top = 81
Width = 124
Name = "datum5"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 5,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum6      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 12
Top = 81
Width = 124
Name = "datum6"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 6,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum7      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 14
Top = 106
Width = 124
Name = "datum7"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 7,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum8      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 15
Top = 106
Width = 124
Name = "datum8"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 8,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum9      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 17
Top = 131
Width = 124
Name = "datum9"
     cPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 9,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "   	 ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   X      )   n                        textbox      textbox      datum10      FORM1.ssframe1      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 18
Top = 131
Width = 124
Name = "datum10"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 10,"ssframe1", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "   
 ssframe1   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        label      label      Label2      FORM1.ssframe1      FontSize = 8
Caption = "Anrechenbar sind: 1. Zeiten mit Besoldungsanspruch und gleichgestellte Zeiten,   2. Kindererziehungszeiten"
Height = 18
Left = 299
Top = 27
Width = 524
TabIndex = 20
BackColor = 255,252,185
Name = "Label2"
      label      label      Label3      FORM1.ssframe1      FontSize = 8
Caption = "und Pflegezeiten von nahen Angehrigen (je Person  bis zu 3 Jahren)   3. Beurlaubungen im ff. Interesse."
Height = 18
Left = 299
Top = 41
Width = 524
TabIndex = 21
BackColor = 255,252,185
Name = "Label3"
      textbox      textbox      eingabe0      FORM1.ssframe1      ~Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 10
Top = 56
Width = 305
Name = "eingabe0"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe1.Zhler0.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe1.Eingabe0.value)),4,0))
If ALLTRIM(thisform.ssframe1.Zhler0.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click &&Do attached
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME1 ZHLER0 CAPTION EINGABE0 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                            
           )                           textbox      textbox      eingabe1      FORM1.ssframe1      ~Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 13
Top = 81
Width = 305
Name = "eingabe1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe1.Zhler1.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe1.Eingabe1.value)),4,0))
If ALLTRIM(thisform.ssframe1.Zhler1.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME1 ZHLER1 CAPTION EINGABE1 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           textbox      textbox      eingabe2      FORM1.ssframe1      Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 16
Top = 106
Width = 305
Name = "eingabe2"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe1.Zhler2.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe1.Eingabe2.value)),4,0))
If ALLTRIM(thisform.ssframe1.Zhler2.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME1 ZHLER2 CAPTION EINGABE2 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           textbox      textbox      eingabe3      FORM1.ssframe1      Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 19
Top = 131
Width = 305
Name = "eingabe3"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe1.Zhler3.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe1.Eingabe3.value)),4,0))
If ALLTRIM(thisform.ssframe1.Zhler3.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME1 ZHLER3 CAPTION EINGABE3 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           label      label      Label5      FORM1.ssframe1      FontSize = 8
Caption = "Summe der anrechenbaren Zeiten . .  . . . . . . . . . . . . . . . . . . . ."
Height = 18
Left = 299
Top = 160
Width = 305
TabIndex = 22
BackColor = 255,252,185
Name = "Label5"
      label      label      Label2_0      FORM1.ssframe1      FontSize = 8
Caption = "Es verbleiben Zeiten, die nicht  anrechenbar sind  . . . . . . . . . ."
Height = 18
Left = 299
Top = 185
Width = 305
TabIndex = 23
BackColor = 255,252,185
Name = "Label2_0"
      label      label      Label3_0      FORM1.ssframe1      FontSize = 8
Caption = "Das BDA wird um                          davon hinausgeschoben . . ."
Height = 18
Left = 299
Top = 210
Width = 311
TabIndex = 24
BackColor = 255,252,185
Name = "Label3_0"
      label      label      Label4      FORM1.ssframe1      FontBold = .T.
FontSize = 10
Caption = "ein Viertel"
Height = 17
Left = 390
Top = 209
Width = 70
TabIndex = 25
BackColor = 255,252,185
Name = "Label4"
      label      label      zhler0      FORM1.ssframe1      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 59
Width = 21
TabIndex = 26
BackColor = 255,252,185
Name = "zhler0"
      label      label      zhler1      FORM1.ssframe1      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 84
Width = 21
TabIndex = 27
BackColor = 255,252,185
Name = "zhler1"
      label      label      zhler2      FORM1.ssframe1      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 109
Width = 21
TabIndex = 28
BackColor = 255,252,185
Name = "zhler2"
      label      label      zhler3      FORM1.ssframe1      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 134
Width = 21
TabIndex = 29
BackColor = 255,252,185
Name = "zhler3"
      textbox      textbox      tag1_1      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 30
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_1"
      textbox      textbox      monat1_1      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 31
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_1"
      textbox      textbox      jahr1_1      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 32
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_1"
      textbox      textbox      tag1_2      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 33
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_2"
      textbox      textbox      monat1_2      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 34
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_2"
      textbox      textbox      jahr1_2      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 35
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_2"
      textbox      textbox      tag1_3      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 36
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_3"
      textbox      textbox      monat1_3      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 37
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_3"
      textbox      textbox      jahr1_3      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 38
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_3"
      textbox      textbox      tag1_4      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 39
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_4"
      textbox      textbox      monat1_4      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 40
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_4"
      textbox      textbox      jahr1_4      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 41
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_4"
      line      line      Line1      FORM1.ssframe1      @Height = 0
Left = 624
Top = 155
Width = 210
Name = "Line1"
      textbox      textbox      tag1_5      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 42
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_5"
      textbox      textbox      monat1_5      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 43
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_5"
      textbox      textbox      jahr1_5      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 44
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_5"
      textbox      textbox      tag1_6      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 45
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag1_6"
      textbox      textbox      monat1_6      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 46
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat1_6"
      textbox      textbox      jahr1_6      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 47
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr1_6"
      textbox      textbox      tag1_7      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 48
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "tag1_7"
      textbox      textbox      monat1_7      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 49
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "monat1_7"
      textbox      textbox      jahr1_7      FORM1.ssframe1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 50
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "jahr1_7"
      	container      	container      ssframe2      FORM1      lTop = 401
Left = 15
Width = 842
Height = 235
TabIndex = 26
BackColor = 255,252,185
Name = "ssframe2"
      label      label      Label1      FORM1.ssframe2      sCaption = ""
Height = 26
Left = 2
Top = 4
Width = 838
TabIndex = 1
BackColor = 255,252,185
Name = "Label1"
      label      label      Label10      FORM1.ssframe2      tCaption = ""
Height = 19
Left = 9
Top = 8
Width = 583
TabIndex = 1
BackColor = 255,252,185
Name = "Label10"
      textbox      textbox      tag2_0      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 2
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_0"
      textbox      textbox      monat2_0      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 3
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_0"
      textbox      textbox      jahr2_0      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 4
Top = 5
Width = 46
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_0"
      textbox      textbox      datum22      FORM1.ssframe2      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 5
Top = 29
Width = 124
DisabledForeColor = 0,0,0
Name = "datum22"
     PPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 22,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
                                      %   T           y            U  T              T    %C 
M 
     U  NKEYCODE
 NSHIFTALTCTRL BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUSS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocus     1   A 2 ! A 2                                   E      )                           textbox      textbox      datum23      FORM1.ssframe2      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 6
Top = 29
Width = 124
DisabledForeColor = 0,0,0
Name = "datum23"
     PPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 23,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
                                      %   T           y            U  T              T    %C 
M 
     U  NKEYCODE
 NSHIFTALTCTRL BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUSS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocus     1   A 2 ! A 2                                   E      )                           textbox      textbox      datum11      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 7
Top = 56
Width = 124
Name = "datum11"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 11,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum12      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 8
Top = 56
Width = 124
Name = "datum12"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 12,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum13      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 10
Top = 81
Width = 124
Name = "datum13"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 13,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "   
 ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum14      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 11
Top = 81
Width = 124
Name = "datum14"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 14,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum15      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 13
Top = 106
Width = 124
Name = "datum15"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 15,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum16      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 14
Top = 106
Width = 124
Name = "datum16"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 16,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum17      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 9
TabIndex = 16
Top = 131
Width = 124
Name = "datum17"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 17,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        textbox      textbox      datum18      FORM1.ssframe2      Alignment = 2
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 158
TabIndex = 17
Top = 131
Width = 124
Name = "datum18"
     dPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
*!*	DO bda_Datum_LostFocus WITH nkeycode,"", this.value 

*!*	this.Value = dc

*!*	IF .not. EMPTY(dc)
*!*		this.SetFocus
*!*	ENDIF
ENDPROC
PROCEDURE LostFocus
DO bda_Datum_LostFocus WITH 18,"ssframe2", this.value 

this.Value = dc

IF .not. EMPTY(dc)
	this.SetFocus
ENDIF

ENDPROC
         n  n                        _L   %            	               U        U  NKEYCODE
 NSHIFTALTCTRLS "    ssframe2   T    %C 
L 
     U  BDA_DATUM_LOSTFOCUS THIS VALUE DC SETFOCUS KeyPress,     	 LostFocusW     1  9 ! A 2                                   Y      )   n                        label      label      Label2      FORM1.ssframe2      FontSize = 8
Caption = "Anrechenbar sind: 1. Zeiten mit Besoldungsanspruch und gleichgestellte Zeiten,   2. Kindererziehungszeiten"
Height = 18
Left = 299
Top = 27
Width = 524
TabIndex = 19
BackColor = 255,252,185
Name = "Label2"
      label      label      Label3      FORM1.ssframe2      FontSize = 8
Caption = "und Pflegezeiten von nahen Angehrigen (je Person  bis zu 3 Jahren)   3. Beurlaubungen im ff. Interesse."
Height = 18
Left = 299
Top = 41
Width = 524
TabIndex = 20
BackColor = 255,252,185
Name = "Label3"
      textbox      textbox      eingabe4      FORM1.ssframe2      }Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 9
Top = 56
Width = 305
Name = "eingabe4"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe2.Zhler4.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe2.Eingabe4.value)),4,0))
If ALLTRIM(thisform.ssframe2.Zhler4.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME2 ZHLER4 CAPTION EINGABE4 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           textbox      textbox      eingabe5      FORM1.ssframe2      ~Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 12
Top = 81
Width = 305
Name = "eingabe5"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe2.Zhler5.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe2.Eingabe5.value)),4,0))
If ALLTRIM(thisform.ssframe2.Zhler5.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME2 ZHLER5 CAPTION EINGABE5 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           textbox      textbox      eingabe6      FORM1.ssframe2      Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 15
Top = 106
Width = 305
Name = "eingabe6"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe2.Zhler6.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe2.Eingabe6.value)),4,0))
If ALLTRIM(thisform.ssframe2.Zhler6.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME2 ZHLER6 CAPTION EINGABE6 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           textbox      textbox      eingabe7      FORM1.ssframe2      Alignment = 0
Format = ""
Height = 23
InputMask = ""
Left = 295
TabIndex = 18
Top = 131
Width = 305
Name = "eingabe7"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.ssframe2.Zhler7.caption = ALLTRIM(STR(60 - Len(alltrim(thisform.ssframe2.Eingabe7.value)),4,0))
If ALLTRIM(thisform.ssframe2.Zhler7.caption) = "0" 
	RETURN &&nkeycode = 0
endif

If nkeycode = 13 
	thisform.bdadateispeichern.click
*!*		myindex = 0
*!*		thisform.Datum(myIndex * 2 + 5).SetFocus
endif
ENDPROC
PROCEDURE LostFocus
	thisform.bdadateispeichern.click
ENDPROC
                                      %   X           }            U       1 T    CC<CC    > Z %C     0]  B  %  
 
   	   U
  NKEYCODE
 NSHIFTALTCTRL THISFORM SSFRAME2 ZHLER7 CAPTION EINGABE7 VALUE BDADATEISPEICHERN CLICK 
      U  THISFORM BDADATEISPEICHERN CLICK KeyPress,     	 LostFocus     1  A A  C 2  1                       w     
           )                           label      label      Label4      FORM1.ssframe2      FontSize = 8
Caption = "Summe der anrechenbaren Zeiten . .  . . . . . . . . . . . . . . . . . . . ."
Height = 18
Left = 299
Top = 160
Width = 305
TabIndex = 21
BackColor = 255,252,185
Name = "Label4"
      label      label      Label2_1      FORM1.ssframe2      FontSize = 8
Caption = "Es verbleiben Zeiten, die nicht  anrechenbar sind  . . . . . . . . . ."
Height = 18
Left = 299
Top = 185
Width = 305
TabIndex = 22
BackColor = 255,252,185
Name = "Label2_1"
      label      label      Label3_1      FORM1.ssframe2      FontSize = 8
Caption = "Das BDA wird um                          davon hinausgeschoben . . ."
Height = 18
Left = 299
Top = 210
Width = 311
TabIndex = 23
BackColor = 255,252,185
Name = "Label3_1"
      label      label      Label17      FORM1.ssframe2      FontBold = .T.
FontSize = 10
Caption = "die Hlfte"
Height = 17
Left = 392
Top = 209
Width = 65
TabIndex = 24
BackColor = 255,252,185
Name = "Label17"
      label      label      zhler4      FORM1.ssframe2      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 59
Width = 21
TabIndex = 25
BackColor = 255,252,185
Name = "zhler4"
      label      label      zhler5      FORM1.ssframe2      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 84
Width = 21
TabIndex = 26
BackColor = 255,252,185
Name = "zhler5"
      label      label      zhler6      FORM1.ssframe2      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 109
Width = 21
TabIndex = 27
BackColor = 255,252,185
Name = "zhler6"
      label      label      zhler7      FORM1.ssframe2      FontSize = 8
Alignment = 2
Caption = "60"
Height = 16
Left = 604
Top = 134
Width = 21
TabIndex = 28
BackColor = 255,252,185
Name = "zhler7"
      textbox      textbox      tag2_1      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 29
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_1"
      textbox      textbox      monat2_1      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 30
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_1"
      textbox      textbox      jahr2_1      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 31
Top = 56
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_1"
      textbox      textbox      tag2_2      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 32
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_2"
      textbox      textbox      monat2_2      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 33
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_2"
      textbox      textbox      jahr2_2      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 34
Top = 81
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_2"
      textbox      textbox      tag2_3      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 35
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_3"
      textbox      textbox      monat2_3      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 36
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_3"
      textbox      textbox      jahr2_3      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 37
Top = 106
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_3"
      textbox      textbox      tag2_4      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 38
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_4"
      textbox      textbox      monat2_4      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 39
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_4"
      textbox      textbox      jahr2_4      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 40
Top = 131
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_4"
      line      line      Line1      FORM1.ssframe2      @Height = 0
Left = 624
Top = 155
Width = 210
Name = "Line1"
      textbox      textbox      tag2_5      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 41
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_5"
      textbox      textbox      monat2_5      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 42
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_5"
      textbox      textbox      jahr2_5      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 43
Top = 158
Width = 46
ForeColor = 255,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_5"
      textbox      textbox      tag2_6      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 44
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "tag2_6"
      textbox      textbox      monat2_6      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 45
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "monat2_6"
      textbox      textbox      jahr2_6      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 46
Top = 183
Width = 46
ForeColor = 0,0,0
BackColor = 255,252,185
BorderColor = 0,0,0
Name = "jahr2_6"
      textbox      textbox      tag2_7      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 632
TabIndex = 47
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "tag2_7"
      textbox      textbox      monat2_7      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 707
TabIndex = 48
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "monat2_7"
      textbox      textbox      jahr2_7      FORM1.ssframe2      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 782
TabIndex = 49
Top = 208
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "jahr2_7"
      label      label      Label5      FORM1.ssframe2      bCaption = "text4"
Height = 22
Left = 0
Top = 238
Width = 301
TabIndex = 50
Name = "Label5"
      label      label      text4      FORM1      FontBold = .T.
FontSize = 11
Caption = "Ingesamt ist das BDA"
Height = 21
Left = 18
Top = 636
Width = 156
TabIndex = 27
BackColor = 128,255,128
Name = "text4"
      label      label      text6      FORM1      FontBold = .T.
FontSize = 11
Caption = "hinauszuschieben um (auf volle Monate abgerundet)"
Height = 21
Left = 177
Top = 636
Width = 378
TabIndex = 28
BackColor = 128,255,128
Name = "text6"
      label      label      text5      FORM1      FontBold = .T.
FontSize = 11
Caption = "somit beginnt das BDA"
Height = 21
Left = 18
Top = 658
Width = 167
TabIndex = 29
BackColor = 128,255,128
Name = "text5"
      label      label      text7      FORM1      FontBold = .T.
FontSize = 11
Caption = "am"
Height = 21
Left = 189
Top = 658
Width = 24
TabIndex = 30
BackColor = 128,255,128
Name = "text7"
      textbox      textbox      BDADatum      FORM1      Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 222
TabIndex = 31
Top = 657
Width = 124
BackColor = 255,255,0
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
Name = "BDADatum"
      textbox      textbox      datum19      FORM1     FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99.99.9999"
Height = 23
InputMask = "99.99.9999"
Left = 360
TabIndex = 32
Top = 658
Width = 124
BackColor = 255,255,0
DisabledBackColor = 255,255,0
DisabledForeColor = 0,0,0
Name = "datum19"
      textbox      textbox      tag3      FORM1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 648
TabIndex = 33
Top = 639
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "tag3"
      textbox      textbox      monat3      FORM1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 723
TabIndex = 34
Top = 639
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "monat3"
      textbox      textbox      jahr3      FORM1      Alignment = 2
Value = 0
Format = "999"
Height = 22
InputMask = "999"
Left = 798
TabIndex = 35
Top = 639
Width = 46
ForeColor = 0,0,0
BackColor = 128,255,0
BorderColor = 0,0,0
Name = "jahr3"
      line      line      Line4      FORM1      QBorderWidth = 1
Height = 18
Left = 650
Top = 640
Width = 42
Name = "Line4"
      line      line      Line5      FORM1      bBorderWidth = 1
Height = 18
Left = 650
Top = 640
Width = 42
LineSlant = "/"
Name = "Line5"
      label      label      Label3      FORM1      {Caption = "Tage"
Height = 15
Left = 657
Top = 668
Width = 28
TabIndex = 36
BackColor = 255,252,185
Name = "Label3"
      label      label      Label4      FORM1      }Caption = "Monate"
Height = 15
Left = 725
Top = 668
Width = 42
TabIndex = 37
BackColor = 255,252,185
Name = "Label4"
      label      label      Label5      FORM1      |Caption = "Jahre"
Height = 15
Left = 804
Top = 668
Width = 34
TabIndex = 38
BackColor = 255,252,185
Name = "Label5"
      
commandbutton      
commandbutton      ssframe1lschen      FORM1      Top = 561
Left = 192
Height = 19
Width = 87
Caption = "ssframe1loe"
Enabled = .F.
TabIndex = 39
Visible = .F.
DisabledBackColor = 255,128,128
Name = "ssframe1lschen"
     PROCEDURE Click
With thisform.ssframe1
	For i = 3 To 10
		hsxx = ALLTRIM(STR(i,2,0))
		.Datum&hsxx..value = ""
	Next
	For i = 0 To 7
		hsxx = ALLTRIM(STR(i,2,0))
		.Tag1_&hsxx..value = 0
		.Monat1&hsxx..value = 0
		.Jahr1&hsxx..value = 0
	Next
Endwith

ENDPROC
                                   
/   %   2      ]     A            U          (
Y  T CC  Z .Datum&hsxx..value = ""
    (  T CC  Z .Tag1_&hsxx..value = 0
 .Monat1&hsxx..value = 0
 .Jahr1&hsxx..value = 0
   U  THISFORM SSFRAME1 I HSXX Click,     1 qqA qqA A 2                       	      )                           
commandbutton      
commandbutton      plausibilitt2      FORM1      Top = 579
Left = 195
Height = 16
Width = 85
Caption = "plausibilitt2"
Enabled = .F.
TabIndex = 40
Visible = .F.
DisabledBackColor = 255,128,128
Name = "plausibilitt2"
     PROCEDURE Click

&&ffentlicher Dienst

WITH thisform
	If di < 10
		Return
	ENDIF
	
	hsyy = ALLTRIM(STR(di,2,0))
	DO case
		CASE INLIST(di,24)
			datum_di = .Datum&hsyy..value
		CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
			datum_di = .ssframe1.Datum&hsyy..value
		CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
			datum_di = .ssframe2.Datum&hsyy..value
	ENDCASE
	
	If Not datum_di = ""
		If datumdiff(1+di) < datumdiff(1+22)
			Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   der hier zu prfenden Zeitspanne vom " + .ssframe2.Datum22.value + " bis " + .ssframe2.Datum23.value + "."))
			datumdiff(1+di) = 0
			If eg > 0
				hsrr = ALLTRIM(STR(eg,4,0))
				.ssframe2.Tag2_&hsrr..value = 0
				.ssframe2.Monat2_&hsrr..value = 0
				.ssframe2.Jahr2_&hsrr..value = 0
			ENDIF
			DO case
				CASE INLIST(di,24)
					.Datum&hsyy..value = ""
					startflag = True
					.Datum&hsyy..SetFocus
					startflag = False					
				CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
					.ssframe1.Datum&hsyy..value = ""
					startflag = True
					.ssframe1.Datum&hsyy..SetFocus
					startflag = False						
				CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
					.ssframe2.Datum&hsyy..value = ""
					startflag = True
					.ssframe2.Datum&hsyy..SetFocus
					startflag = False						
			endcase						
			Return
		Endif


		If datumdiff(1+di) > datumdiff(1+23)

			Messagebox( ("Das Datum " + Datum_di + " liegt   n a c h   der hier zu prfenden Zeitspanne vom " + .ssframe2.datum22.value + " bis " + .ssframe2.Datum23.value + "."))
			datumdiff(1+di) = 0

			If eg > 0
				hsrr = ALLTRIM(STR(eg,4,0))
				.ssframe2.Tag1_&hsrr..value = 0
				.ssframe2.Monat1_&hsrr..value = 0
				.ssframe2.Jahr1_&hsrr..value = 0				
			Endif

			DO case
				CASE INLIST(di,24)
					.Datum&hsyy..value = ""
					startflag = True
					.Datum&hsyy..SetFocus
					startflag = False					
				CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
					.ssframe1.Datum&hsyy..value = ""
					startflag = True
					.ssframe1.Datum&hsyy..SetFocus
					startflag = False						
				CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
					.ssframe2.Datum&hsyy..value = ""
					startflag = True
					.ssframe2.Datum&hsyy..SetFocus
					startflag = False						
			endcase						
			Return
		Endif
	Endif

	If di > 2
		For i = 5 To 8
			If i * 2 + 1 = di .Or. i * 2 + 2 = di
			Else
				If Not datumdiff(1+i * 2 + 1) = 0
					If datumdiff(1+di) >= datumdiff(1+i * 2 + 1) .And. datumdiff(1+di) <= datumdiff(1+i * 2 + 2)
						hstt1 = ALLTRIM(STR(i * 2 + 1,10,0))
						hstt2 = ALLTRIM(STR(i * 2 + 2,10,0))
						hstt = .alltrim(STR(di,4,0))
						DO case
							CASE INLIST(di,24)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .Datum&hstt1..value + " bis " + .Datum&hstt2..value))			
								.Datum&hstt..value = ""
								startflag = True
								.Datum&hstt..SetFocus
								startflag = False
							CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe1.Datum&hstt1..value + " bis " + .ssframe1.Datum&hstt2..value))
								.ssframe1.Datum&hstt..value = ""
								startflag = True
								.ssframe1.Datum&hstt..SetFocus
								startflag = False
							CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe2.Datum&hstt1..value + " bis " + .ssframe2.Datum&hstt2..value))
								.ssframe2.Datum&hstt..value = ""
								startflag = True
								.ssframe2.Datum&hstt..SetFocus
								startflag = False
						endcase							
						datumdiff(1+di) = 0
						Return
					Endif
				Endif
			Endif
		Next
	ENDIF
	
	If di % 2 = 0
		If Not datumdiff(1+di) = 0
			If datumdiff(1+di) < datumdiff(1+di - 1)
				hstt = .alltrim(STR(di - 1,4,0))
				DO case
					CASE INLIST(di -1,24)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.Datum&hstt..value = ""
						startflag = True
						.Datum&hstt..SetFocus
						startflag = False
					CASE INLIST(di-1,20,21,3,4,5,6,7,8,9,10)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe1.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.ssframe1.Datum&hstt..value = ""
						startflag = True
						.ssframe1.Datum&hstt..SetFocus
						startflag = False
					CASE INLIST(di-1,22,23,11,12,13,14,15,16,17,18)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe2.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.ssframe2.Datum&hstt..value = ""
						startflag = True
						.ssframe2.Datum&hstt..SetFocus
						startflag = False
				endcase							
				datumdiff(1+di) = 0
			Endif
		Endif
	Endif
Endwith


ENDPROC
                                   [   %                          U  
    % 

"  B  T CC  Z
 HJ + C } ! datum_di = .Datum&hsyy..value
- C 	
 * datum_di = .ssframe1.Datum&hsyy..value
- C 
+* datum_di = .ssframe2.Datum&hsyy..value
  %   
 %C  C 
y C
 Das Datum  6  liegt   v o r   der hier zu prfenden Zeitspanne vom      bis     .x T    %	   T
 CC	  Z# .ssframe2.Tag2_&hsrr..value = 0
% .ssframe2.Monat2_&hsrr..value = 0
$ .ssframe2.Jahr2_&hsrr..value = 0
 
 H
 C  .Datum&hsyy..value = ""

 T   .Datum&hsyy..SetFocus

 T 
 - C 	
$ .ssframe1.Datum&hsyy..value = ""

 T  " .ssframe1.Datum&hsyy..SetFocus

 T 
 - C 

$ .ssframe2.Datum&hsyy..value = ""

 T  " .ssframe2.Datum&hsyy..SetFocus

 T 
   B  %C  C { C
 Das Datum  8  liegt   n a c h   der hier zu prfenden Zeitspanne vom      bis     .x T    %	  ` T
 CC	  Z# .ssframe2.Tag1_&hsrr..value = 0
% .ssframe2.Monat1_&hsrr..value = 0
( .ssframe2.Jahr1_&hsrr..value = 0				
 
 Hq C  .Datum&hsyy..value = ""

 T   .Datum&hsyy..SetFocus

 T 
 - C 	
^$ .ssframe1.Datum&hsyy..value = ""

 T  " .ssframe1.Datum&hsyy..SetFocus

 T 
 - C 
$ .ssframe2.Datum&hsyy..value = ""

 T  " .ssframe2.Datum&hsyy..SetFocus

 T 
   B   %   (, %     O " %C   
L %C  C    C  C  	 T CC 
 Z T CC 
 Z T CC  Z 
 H* C )	 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .Datum&hstt1..value + " bis " + .Datum&hstt2..value))			
 .Datum&hstt..value = ""

 T   .Datum&hstt..SetFocus

 T 
 - C 	
d
 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe1.Datum&hstt1..value + " bis " + .ssframe1.Datum&hstt2..value))
$ .ssframe1.Datum&hstt..value = ""

 T  " .ssframe1.Datum&hstt..SetFocus

 T 
 - C 
 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe2.Datum&hstt1..value + " bis " + .ssframe2.Datum&hstt2..value))
$ .ssframe2.Datum&hstt..value = ""

 T  " .ssframe2.Datum&hstt..SetFocus

 T 
   T    B      %C G  %C   
% %C  C  
 T CC  Z 
 HR C I
 Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
 .Datum&hstt..value = ""

 T   .Datum&hstt..SetFocus

 T 
 1 C 	
v Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe1.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
$ .ssframe1.Datum&hstt..value = ""

 T  " .ssframe1.Datum&hstt..SetFocus

 T 
 1 C 
 Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe2.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
$ .ssframe2.Datum&hstt..value = ""

 T  " .ssframe2.Datum&hstt..SetFocus

 T 
   T        U  THISFORM DI HSYY DATUM_DI	 DATUMDIFF SSFRAME2 DATUM22 VALUE DATUM23 EG HSRR	 STARTFLAG TRUE FALSE I HSTT1 HSTT2 HSTT ALLTRIM Click,     1  A A r !A "qq1QAA  !  A ! A ! A A A qq1QA  !  A ! A ! A A A A q ! !	  
A ! 
A ! A qA A A A A A bQ a1	  	A ! 	A ! A qA A A A 3                             )                           
commandbutton      
commandbutton      
bdadatenholen      FORM1      Top = 564
Left = 114
Height = 19
Width = 76
Caption = "bdadatenholen"
Enabled = .F.
TabIndex = 41
Visible = .F.
DisabledBackColor = 255,128,128
Name = "bdadatenholen"
     mPROCEDURE Click

With thisform
*!*		If Dir(eigdat + muser + "\bda.txt") &&vorher NOT dir(...
*!*			Rename eigdat + muser + "\bda.txt" To eigdat + muser + "\bda.006"
*!*		Endif

	myopen(eigdat + muser + "\bda" + Right(welchesjahrc, 3) , 90 ,"BDA")

	myget(90, fileneu,"BDA")

	If Not EMPTY(BDA.Datum(1+0)) &&= ""
		For j = 0 To 24
			hsyy = ALLTRIM(STR(j,2,0))
			DO case
				CASE INLIST(j,0,1,2,24,19)
					thisform.Datum&hsyy..value = BDA.Datum(1+j)
					i = j
					thisform.Datum&hsyy..value = BDA.Datum(1+j)
				CASE INLIST(j,20,21,3,4,5,6,7,8,9,10)
					thisform.ssframe1.Datum&hsyy..value = BDA.Datum(1+j)
					i = j
					thisform.ssframe1.Datum&hsyy..value = BDA.Datum(1+j)

				CASE INLIST(j,22,23,11,12,13,14,15,16,17,18)
					thisform.ssframe2.Datum&hsyy..value = BDA.Datum(1+j)
					i = j
					thisform.ssframe2.Datum&hsyy..value = BDA.Datum(1+j)
			endcase			
		Next

		For i = 0 To 3
			hsyy = ALLTRIM(STR(i,1,0))
			.ssframe1.Eingabe&hsyy..value = BDA.Beschreibung(1+i)
			.ssframe1.Zhler&hsyy..Caption = ALLTRIM(STR(60 - Len(Alltrim(.ssframe1.Eingabe&hsyy..value)),10,0))	
		NEXT
		
		For i = 4 To 7
			hsyy = ALLTRIM(STR(i,1,0))
			.ssframe2.Eingabe&hsyy..value = BDA.Beschreibung(1+i)
			.ssframe2.Zhler&hsyy..Caption = ALLTRIM(STR(60 - Len(Alltrim(.ssframe2.Eingabe&hsyy..value)),10,0))
		Next
	Else
		For i = 0 To 24
*!*				.Datum(i).Text = ""
			hsyy = ALLTRIM(STR(j,2,0))
			DO case
				CASE INLIST(j,0,1,2,24)
					thisform.Datum&hsyy..value = ""
				CASE INLIST(j,20,21,3,4,5,6,7,8,9,10)
					thisform.ssframe1.Datum&hsyy..value = ""
				CASE INLIST(j,22,23,11,12,13,14,15,16,17,18)
					thisform.ssframe2.Datum&hsyy..value = ""
			endcase						
		Next

		For i = 0 To 3
			hsyy = ALLTRIM(STR(i,1,0))
			.ssframe1.Eingabe&hsyy..value = ""
			.ssframe1.Zhler&hsyy..caption = "60"
		NEXT
		
		For i = 4 To 7
			hsyy = ALLTRIM(STR(i,1,0))			
			.ssframe2.Eingabe&hsyy..value = ""
			.ssframe2.Zhler&hsyy..caption = "60"
		Next		
	Endif


	myget(13, fileneu,"wnw")
	
	If Substr(Alltrim(wnw.ztext0), 3, 1) = "." .And. Substr(Alltrim(wnw.ztext0), 6, 1) = "."
		Msg = wnw.ztext0
		
		If .Datum0.value = ""
			.Datum0.value = Leftc(Msg, 10)
			If Substr(Alltrim(wnw.ztext1), 3, 1) = "." .And. Substr(Alltrim(wnw.ztext1), 6, 1) = "."
				Msg = wnw.ztext1
				.Datum2.value= Leftc(Msg, 10)
			Endif
		Else
			If Leftc(Msg, 10) = .Datum0.value
				If Substr(Alltrim(wnw.ztext1), 3, 1) = "." .And. Substr(Alltrim(wnw.ztext1), 6, 1) = "."
					Msg = wnw.ztext1
					.Datum2.value = Leftc(Msg, 10)
				Endif
			Else
				.Datum0.value = Leftc(Msg, 10)
				thisform.bdaallesleeren.click &&Do attached
				
				If Substr(Alltrim(wnw.ztext1), 3, 1) = "." .And. Substr(Alltrim(wnw.ztext1), 6, 1) = "."
					Msg = wnw.ztext1
					.Datum2.value = Leftc(Msg, 10)
				Endif


			Endif
		Endif

	Endif
Endwith

ENDPROC
     
h    O
  O
                        .   %   S	      
  R   b	            U  
   }+ C   \bdaC RZ BDA  CZ   BDA  %CC  
- 	  ( T
 CC	  Z
 H ~ C	  */ thisform.Datum&hsyy..value = BDA.Datum(1+j)

 T 	 / thisform.Datum&hsyy..value = BDA.Datum(1+j)
- C	 	
8 thisform.ssframe1.Datum&hsyy..value = BDA.Datum(1+j)

 T 	 8 thisform.ssframe1.Datum&hsyy..value = BDA.Datum(1+j)
- C	 
~8 thisform.ssframe2.Datum&hsyy..value = BDA.Datum(1+j)

 T 	 8 thisform.ssframe2.Datum&hsyy..value = BDA.Datum(1+j)
     (V T
 CC  Z9 .ssframe1.Eingabe&hsyy..value = BDA.Beschreibung(1+i)
i .ssframe1.Zhler&hsyy..Caption = ALLTRIM(STR(60 - Len(Alltrim(.ssframe1.Eingabe&hsyy..value)),10,0))	
   () T
 CC  Z9 .ssframe2.Eingabe&hsyy..value = BDA.Beschreibung(1+i)
h .ssframe2.Zhler&hsyy..Caption = ALLTRIM(STR(60 - Len(Alltrim(.ssframe2.Eingabe&hsyy..value)),10,0))
  j   (d T
 CC	  Z
 Hp` C	  # thisform.Datum&hsyy..value = ""
- C	 	
, thisform.ssframe1.Datum&hsyy..value = ""
- C	 
`, thisform.ssframe2.Datum&hsyy..value = ""
     ( T
 CC  Z& .ssframe1.Eingabe&hsyy..value = ""
) .ssframe1.Zhler&hsyy..caption = "60"
   (f T
 CC  Z& .ssframe2.Eingabe&hsyy..value = ""
) .ssframe2.Zhler&hsyy..caption = "60"
   C
   wnw 8 %CC 
 \ . CC 
 \ .	y T  
  %    \ T  C 
8 %CC  \ . CC  \ .	X T    T  C 
  u %C 
  8 %CC  \ . CC  \ .	 T    T  C 
  q T  C 

     8 %CC  \ . CC  \ .	m T    T  C 
      U  THISFORM MYOPEN EIGDAT MUSER WELCHESJAHRC MYGET FILENEU BDA DATUM J HSYY I WNW ZTEXT0 MSG DATUM0 VALUE ZTEXT1 DATUM2 BDAALLESLEEREN CLICK Click,     1  rrqq    A A rqA rqA  qr 1A A rqaA rqaA A sRqqA  qA  q qA C A B A 2                       b      )   O
                        
commandbutton      
commandbutton      
bdaallesholen      FORM1      Top = 582
Left = 114
Height = 16
Width = 76
Caption = "bdaallesholen"
Enabled = .F.
TabIndex = 42
Visible = .F.
DisabledBackColor = 255,128,128
Name = "bdaallesholen"
     PROCEDURE Click

&&ffentlicher Dienst
With thisform
	For i = 1 To 24
		hsyy = ALLTRIM(STR(i,2,0))
		DO case
			CASE INLIST(i,1,2,24)
				.Datum&hsyy..value= ""
				datumdiff(1+i) = 0
			CASE INLIST(i,20,21,3,4,5,6,7,8,9,10)
				ssframe1..Datum&hsyy..value= ""
				datumdiff(1+i) = 0
			CASE INLIST(i,22,23,11,12,13,14,15,16,17,18)
				ssframe2..Datum&hsyy..value= ""
				datumdiff(1+i) = 0
		endcase
	Next	

	For i = 0 To 3
		hsyy = ALLTRIM(STR(i,1,0))
		.ssframe1.Tag1_&hsyy..value = 0
		.ssframe1.Monat1_&hsyy..value = 0
		.ssframe1.Jahr1_&hsyy..value = 0
		.ssframe1.Eingabe_&hsyy..value = ""
	Next
	For i = 4 To 7
		hsyy = ALLTRIM(STR(i,1,0))
		.ssframe2.Tag2_&hsyy..value = 0
		.ssframe2.Monat2_&hsyy..value = 0
		.ssframe2.Jahr2_&hsyy..value = 0
		.ssframe2.Eingabe_&hsyy..value = ""
	Next	
	.Tag0.value = 0
	.Monat0.value = 0
	.Jahr0.value = 0
	.Tag3.value = 0
	.Monat3.value = 0
	.Jahr3.value = 0
Endwith
thisform.bdadateispeichern.click &&Do attached

ENDPROC
                                   \   %         a  '               U  k
   W  (c T CC  Z
 HH _ C   .Datum&hsyy..value= ""
 T   - C 	
 # ssframe1..Datum&hsyy..value= ""
 T   - C 
_# ssframe2..Datum&hsyy..value= ""
 T        (( T CC  Z# .ssframe1.Tag1_&hsyy..value = 0
% .ssframe1.Monat1_&hsyy..value = 0
$ .ssframe1.Jahr1_&hsyy..value = 0
' .ssframe1.Eingabe_&hsyy..value = ""
   ( T CC  Z# .ssframe2.Tag2_&hsyy..value = 0
% .ssframe2.Monat2_&hsyy..value = 0
$ .ssframe2.Jahr2_&hsyy..value = 0
' .ssframe2.Eingabe_&hsyy..value = ""
  T    T    T    T    T	    T
    
      U
  THISFORM I HSYY	 DATUMDIFF TAG0 VALUE MONAT0 JAHR0 TAG3 MONAT3 JAHR3 BDADATEISPEICHERN CLICK Click,     1  qq q1q1qA A rq1QAqA qq1QAqA A  2                             )                           
commandbutton      
commandbutton      datumaktualisieren      FORM1      Top = 564
Left = 30
Height = 16
Width = 85
Caption = "datumaktualisieren"
Enabled = .F.
TabIndex = 43
Visible = .F.
DisabledBackColor = 255,0,0
Name = "datumaktualisieren"
     ]7PROCEDURE Click

&&di = Index
datindex = di
If di > 2
	eg = Fix((di - 1) / 2)
Endif

With thisform
	If .not. EMPTY(.Datum0.Value) .And. .not. EMPTY(.Datum2.Value) && > "" > ""
		If datindex > 0
			hsxx = ALLTRIM(STR(datindex,10,0))
		   	DO case
	   			CASE INLIST(datindex ,0,1,2,24,19)
	     			 hsdatumtemp = .Datum&hsxx..value
	   			CASE INLIST(datindex ,20,21,3,4,5,6,7,8,9,10)
	     			 hsdatumtemp = .ssframe1.Datum&hsxx..value
	   			CASE INLIST(datindex ,0,22,23,11,12,13,14,15,16,17,18)
	     			 hsdatumtemp = .ssframe2.Datum&hsxx..value
			endcase
			
			If .not. EMPTY(hsdatumtemp) && > ""
				datumdiff(1+datindex) = DateDiff("d", .Datum0.Value, hsdatumtemp)
				If datumdiff(1+datindex) < 0
				   	DO case
			   			CASE INLIST(datindex ,0,1,2,24,19)
			     			 .Datum&hsxx..value = ""
			   			CASE INLIST(datindex ,20,21,3,4,5,6,7,8,9,10)
			     			 .ssframe1.Datum&hsxx..value = ""
			   			CASE INLIST(datindex ,0,22,23,11,12,13,14,15,16,17,18)
			     			 .ssframe2.Datum&hsxx..value = ""
					endcase				
					datumdiff(1+datindex) = 0
					Return
				Endif
			Else
				datumdiff(1+datindex) = 0
			Endif
		Endif
	Endif
	
	DO WHILE .t. &&wegen sprungmarke "keindatum"
	
	Do Case && datindex
		Case datindex = 0
			&&bdaallesleeren
			&&If .Datum(0).Text = "" Then bdaallesleeren: Exit Sub
			frheresdatum = .Datum0.Value
			differenzjahre = Val(Right(.Datum0.Value, 4)) + 21
			frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)
			.Datum24.Value = DateAdd("d", -1, frheresdatum)
			i = i
			
			thisform.datumdiffneu.click &&Do attached

			.Datum1.Value = "01." + Substr(.Datum24.value, 4, 7) && + Str$(21 + Val(Right$(Datum(24).Text, 4)))
			startflag = True
*!*				.Datum2.SetFocus
			startflag = False

		Case datindex = 1 .Or. (datindex >= 19 .And. datindex <= 24)
			RETURN
			
		Case datindex = 2
			If empty(.Datum0.Value) .Or. EMPTY(.Datum2.Value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			
			thisform.plausibilitt1.click &&Do attached
			
			Do Case && eingangsamtindex
				Case eingangsamtindex = 0
					&&frheresdatum = 31 Lj
					differenzjahre = Val(Right(.Datum0.Value, 4)) + 31
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)

					&&frheresdatum35 = 35 Lj
					differenzjahre35 = Val(Right(.Datum0.Value, 4)) + 35
					frheresdatum35 = Leftc(frheresdatum, 6) + Right(Str(differenzjahre35), 4)
					spteresdatum = .Datum2.Value

					If DateDiff("d", spteresdatum, .Datum2.Value) < 1
						spteresdatum = DateAdd("d", -1, .Datum2.Value)
					Endif

					&&Diff 31 und Einstellung
					thisform.datumsdifferenz.click &&Do attached

					&&Tafel-1 leeren, wenn nicht bentigt
					If DateDiff("d", frheresdatum, .Datum2.Value) < 1
						differenztage = 0
						differenzmonate = 0
						differenzjahre = 0
						For i = 0 To 3
							hsyy = ALLTRIM(STR(i,1,0))
							.ssframe1.Tag1_&hsyy..value = 0
							.ssframe1.Monat1_&hsyy..value = 0
							.ssframe1.Jahr1_&hsyy..value = 0
						Next
						For i = 4 To 7
							hsyy = ALLTRIM(STR(i,1,0))
							.ssframe2.Tag2_&hsyy..value = 0
							.ssframe2.Monat2_&hsyy..value = 0
							.ssframe2.Jahr2_&hsyy..value = 0
						Next
					Endif

					If datindex < 2
						differenztage = differenztage - 1
						If differenztage < 0
							differenztage = 0
						Endif
					Endif

					&&spter als Einstellung
					.Tag0.value = differenztage
					.Monat0.value = differenzmonate
					.Jahr0.value = differenzjahre

					&&wird Tafel-1 bentigt?
					If differenzjahre > -1 .And. differenzmonate > -1 .And. differenztage > -1
						.SSFrame1.Visible = True
						If differenzjahre > 3
							.SSFrame1.tag1_0.value = 0
							.SSFrame1.Monat1_0.value = 0
							.SSFrame1.Jahr1_0.value = 4
						Else
							.SSFrame1.Tag1_0.value = differenztage
							.SSFrame1.Monat1_0.value = differenzmonate
							.SSFrame1.Jahr1_0.value = differenzjahre
						Endif
					Endif
					If EMPTY(.Tag0.value) .And. EMPTY(.Monat0.value) .And. EMPTY(.Jahr0.value) && = "0"
						.SSFrame1.Visible = False
					Endif

					&&Tafel-2 Anteile zuweisen
					If differenzjahre > 3
						.SSFrame2.Visible = True
						.SSFrame2.Tag2_0.value = differenztage
						.SSFrame2.Monat2_0.value = differenzmonate
						.SSFrame2.Jahr2_0.value = differenzjahre - 4
					Else
						.SSFrame2.Visible = False
					ENDIF
					
					&&Anfang-Ende der Tafel-1

					frheresdatum = .Datum0.Value
					differenzjahre = Val(Right(.Datum0.Value, 4)) + 31
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)
					.ssframe1.Datum20.Value = frheresdatum
					datumdiff(1+20) = DateDiff("d", .Datum0.Value, .ssframe1.Datum20.Value)
					frheresdatum = DateAdd("yyyy", 4, frheresdatum)
					
					If DateDiff("d", frheresdatum, spteresdatum) < 0
						.ssframe1.Datum21.value = spteresdatum
					Else
						.ssframe1.Datum21.value = DateAdd("d", -1, frheresdatum)
					ENDIF
					
					datumdiff(1+21) = DateDiff("d", .Datum0.Value, .ssframe1.Datum21.Value)

					&&Anfang-Ende der Tafel-2
					frheresdatum = .Datum0.Value
					differenzjahre = Val(Right(.Datum0.Value, 4)) + 35
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)
					.ssframe2.Datum22.Value = frheresdatum
					datumdiff(1+22) = DateDiff("d", .Datum0.Value, .ssframe2.Datum22.Value)
					.ssframe2.Datum23.Value = DateAdd("d", -1, .Datum2.Value)
					datumdiff(1+23) = DateDiff("d", .Datum0.value, .ssframe2.Datum23.value)

				Case  Inlist(eingangsamtindex, 1, 2, 4 )&& Eingangsamt A13 C1C2, Richter Staatsanwlte
					.SSFrame1.Visible = False
					differenztage = 0
					differenzmonate = 0
					differenzjahre = 0
					
					For i = 0 To 7
						hsyy = ALLTRIM(STR(i,1,0))
						.ssframe1.Tag1_&hsyy..value = 0
						.ssframe1.Monat1_&hsyy..value = 0
						.ssframe1.Jahr1_&hsyy..value = 0
						&&.Tag2(i) = 0
						&&.Monat2(i) = 0
						&&.Jahr2(i) = 0
						datumdiff(1+i) = 0
					Next

					&&frheresdatum = 35 Lj
					differenzjahre35 = Val(Right(.Datum0.Value, 4)) + 35
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre35), 4)
					spteresdatum = .Datum2.Value

					&&Diff 31 und Einstellung
					thisform.datumsdifferenz.click &&Do attached

					If datindex < 3
						differenztage = differenztage - 1
						If differenztage < 0
							differenztage = 0
						Endif
					Endif

					&&spter als Einstellung
					.Tag0.value = differenztage
					.Monat0.value = differenzmonate
					.Jahr0.value = differenzjahre
					If .Tag0.value < 0 .Or. .Monat0.value < 0 .Or. .Jahr0.value < 0
						.Tag0.value = 0
						.Monat0.value = 0
						.Jahr0.value= 0
						differenztage = .Tag0.value
						differenzmonate = .Monat0.value
						differenzjahre = .Jahr0.value
					Endif

					&&wird Tafel-2 bentigt?
					If differenzjahre > -1 .And. differenzmonate > -1 .And. differenztage > -1
						.SSFrame2.Visible = True
						.SSFrame2.Tag2_0.value= differenztage
						.SSFrame2.Monat2_0.value= differenzmonate
						.SSFrame2.Jahr2_0.value= differenzjahre
					Else
						.Tag0.value = 0
						.Monat0.value = 0
						.Jahr0.value = 0
						.SSFrame2.Tag2_0.value = 0
						.SSFrame2.Monat2_0.value = 0
						.SSFrame2.Jahr2_0.value = 0
						differenztage = .SSFrame2.Tag2_0.value
						differenzmonate = .SSFrame2.Monat2_0.value
						differenzjahre = .SSFrame2.Jahr2_0.value
						.SSFrame2.Visible = False
					ENDIF
					
					&&Anfang-Ende der Tafel-2
					frheresdatum = .Datum0.Value
					differenzjahre = Val(Right(.Datum0.Value, 4)) + 35
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)
					.ssframe2.Datum22.value = frheresdatum
					.ssframe2.Datum23.Value = DateAdd("d", -1, .Datum2.Value)

					For j = 20 To 23
						i = j
						thisform.datumdiffneu.click &&Do attached
					Next

				Case eingangsamtindex = 3 && Eingangsamt &&Professoren
					.SSFrame1.Visible = False
					differenztage = 0
					differenzmonate = 0
					differenzjahre = 0
					For i = 0 To 7
						hsyy = ALLTRIM(STR(i,1,0))
						.ssframe1.Tag1_&hsyy..Value = 0
						.ssframe1.Monat1_&hsyy..Value = 0
						.ssframe1.Jahr1_&hsyy..Value = 0
						&&.Tag2(i) = 0
						&&.Monat2(i) = 0
						&&.Jahr2(i) = 0
						datumdiff(1+i) = 0
					Next

					&&frheresdatum = 35 Lj
					differenzjahre40 = Val(Right(.Datum0.value, 4)) + 40
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre40), 4)
					spteresdatum = .Datum2.value

					&&Diff 31 und Einstellung
					thisform.datumsdifferenz.click &&Do attached

					If datindex < 3
						differenztage = differenztage - 1
						If differenztage < 0
							differenztage = 0
						Endif
					Endif

					&&spter als Einstellung
					.Tag0.value = differenztage
					.Monat0.value = differenzmonate
					.Jahr0.value = differenzjahre

					&&wird Tafel-2 bentigt?
					If differenzjahre > -1 .And. differenzmonate > -1 .And. differenztage > -1
						.SSFrame2.Visible = True
						.SSFrame2.Tag2_0.value = differenztage
						.SSFrame2.Monat2_0.value = differenzmonate
						.SSFrame2.Jahr2_0.value = differenzjahre
					Else
						.Tag0.value = 0
						.Monat0.value = 0
						.Jahr0.value = 0
						.SSFrame2.Tag2_0.value = 0
						.SSFrame2.Monat2_0.value = 0
						.SSFrame2.Jahr2_0.value = 0
						differenztage = .SSFrame2.Tag2_0.value
						differenzmonate = .SSFrame2.Monat2_0.value
						differenzjahre = .SSFrame2.Jahr2_0.value
						.SSFrame2.Visible = False
					Endif
					&&Anfang-Ende der Tafel-2
					frheresdatum = .Datum0.value
					differenzjahre = Val(Right(.Datum0.value, 4)) + 40
					frheresdatum = Leftc(frheresdatum, 6) + Right(Str(differenzjahre), 4)
					.ssframe2.Datum22.value = frheresdatum
					.ssframe2.Datum23.value = DateAdd("d", -1, .Datum2.value)

					For j = 20 To 23
						i = j
						thisform.datumdiffneu.click &&Do attached
					Next

			Endcase

		Case  Inlist(datindex, 3, 5, 7, 9)
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt1.click &&Do attached
			&&If Not .Datum(datindex).Text = "" Then
			&&   startflag = True
			&&   .Datum(datindex + 1).SetFocus
			&&   startflag = False
			&&End If
			
		Case  Inlist(datindex, 11, 13, 15, 17)
			&&startflag = True
			&&.Datum(datindex + 1).SetFocus
			&&startflag = False
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt2.click &&Do attached

		Case datindex = 4
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt1.click &&Do attached
			
			If EMPTY(.ssframe1.Datum3.value) .Or. EMPTY(.ssframe1.Datum4.value) && = ""
				.ssframe1.Datum3.value = ""
				datumdiff(1+3) = 0
				.ssframe1.Datum4.value = ""
				datumdiff(1+4) = 0
				&&  startflag = True
				&&  .Datum(3).SetFocus
				&&  startflag = False
				.ssframe1.Tag1_1.value = 0
				.ssframe1.Monat1_1.value = 0
				.ssframe1.Jahr1_1.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe1.Datum3.value
			spteresdatum = .ssframe1.Datum4.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe1.Tag1_1.value = differenztage
			.ssframe1.Monat1_1.value = differenzmonate
			.ssframe1.Jahr1_1.value = differenzjahre
			&&startflag = True
			&&.Eingabe(0).SetFocus
			&&startflag = False
			
		Case datindex = 6
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt1.click &&Do attached
			
			If EMPTY(.ssframe1.Datum5.value) .Or. EMPTY(.ssframe1.Datum6.value) && = ""
				.ssframe1.Datum5.value = ""
				datumdiff(1+5) = 0
				.ssframe1.Datum6.value = ""
				datumdiff(1+6) = 0
				&&  startflag = True
				&&  .Datum(5).SetFocus
				&&  startflag = False
				.ssframe1.Tag1_2.value = 0
				.ssframe1.Monat1_2.value = 0
				.ssframe1.Jahr1_2.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe1.Datum5.value
			spteresdatum = .ssframe1.Datum6.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe1.Tag1_2.value = differenztage
			.ssframe1.Monat1_2.value = differenzmonate
			.ssframe1.Jahr1_2.value = differenzjahre
			&&startflag = True
			&&.Eingabe(1).SetFocus
			&&startflag = False
			
		Case datindex = 8
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt1.click &&Do attached
			
			If EMPTY(.ssframe1.Datum7.value) .Or. EMPTY(.ssframe1.Datum8.value) && = ""
				.ssframe1.Datum7.value = ""
				datumdiff(1+7) = 0
				.ssframe1.Datum8.value = ""
				datumdiff(1+8) = 0
				&&  startflag = True
				&&  .Datum(7).SetFocus
				&&  startflag = False
				.ssframe1.Tag1_3.value = 0
				.ssframe1.Monat1_3.value = 0
				.ssframe1.Jahr1_3.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe1.Datum7.value
			spteresdatum = .ssframe1.Datum8.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe1.Tag1_3.value = differenztage
			.ssframe1.Monat1_3.value = differenzmonate
			.ssframe1.Jahr1_3.value = differenzjahre
			&&startflag = True
			&&.Eingabe(2).SetFocus
			&&startflag = False
			
		Case datindex = 10
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt1.click &&Do attached
			
			If EMPTY(.ssframe1.Datum9.value) .Or. EMPTY(.ssframe1.Datum10.value)&& = ""
				.ssframe1.Datum9.value = ""
				datumdiff(1+9) = 0
				.ssframe1.Datum10.value = ""
				datumdiff(1+10) = 0
				&&  startflag = True
				&&  .Datum(9).SetFocus
				&&  startflag = False
				.ssframe1.Tag1_4.value = 0
				.ssframe1.Monat1_4.value = 0
				.ssframe1.Jahr1_4.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe1.Datum9.value
			spteresdatum = .ssframe1.Datum10.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe1.Tag1_4.value = differenztage
			.ssframe1.Monat1_4.value = differenzmonate
			.ssframe1.Jahr1_4.value = differenzjahre
			&&startflag = True
			&&.Eingabe(3).SetFocus
			&&startflag = False
			
		Case datindex = 12
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value)&& = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			i = datindex
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt2.click &&Do attached
			
			If EMPTY(.ssframe2.Datum11.value) .Or. EMPTY(.ssframe2.Datum12.value) && = ""
				.ssframe2.Datum11.value = ""
				datumdiff(1+11) = 0
				.ssframe2.Datum12.value = ""
				datumdiff(1+12) = 0
				&&  startflag = True
				&&  .Datum(11).SetFocus
				&&  startflag = False
				.ssframe2.Tag2_1.value = 0
				.ssframe2.Monat2_1.value = 0
				.ssframe2.Jahr2_1.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe2.Datum11.value
			spteresdatum = .ssframe2.Datum12.value
			i = 12
			
			thisform.datumdiffneu.click &&Do attached
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe2.Tag2_1.value = differenztage
			.ssframe2.Monat2_1.value = differenzmonate
			.ssframe2.Jahr2_1.value = differenzjahre
			&&startflag = True
			&&.Eingabe(4).SetFocus
			&&startflag = False
			
		Case datindex = 14
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt2.click &&Do attached
			
			If EMPTY(.ssframe2.Datum13.value) .Or. EMPTY(.ssframe2.Datum14.value) && = ""
				.ssframe2.Datum13.value = ""
				datumdiff(1+13) = 0
				.ssframe2.Datum14.value = ""
				datumdiff(1+14) = 0
				&&startflag = True
				&&.Datum(13).SetFocus
				&&startflag = False
				.ssframe2.Tag2_2.value = 0
				.ssframe2.Monat2_2.value = 0
				.ssframe2.Jahr2_2.value = 0
				EXIT &&Goto keindatum
			Endif

			frheresdatum = .ssframe2.Datum13.value
			spteresdatum = .ssframe2.Datum14.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe2.Tag2_2.value = differenztage
			.ssframe2.Monat2_2.value = differenzmonate
			.ssframe2.Jahr2_2.value = differenzjahre
			&&startflag = True
			&&.Eingabe(5).SetFocus
			&&startflag = False
			
		Case datindex = 16
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt2.click &&Do attached
			
			If EMPTY(.ssframe2.Datum15.value) .Or. EMPTY(.ssframe2.Datum16.value) && = ""
				.ssframe2.Datum15.value = ""
				datumdiff(1+15) = 0
				.ssframe2.Datum16.value = ""
				datumdiff(1+16) = 0
				&&startflag = True
				&&.Datum(15).SetFocus
				&&startflag = False
				.ssframe2.Tag2_3.value = 0
				.ssframe2.Monat2_3.value = 0
				.ssframe2.Jahr_3.value = 0
				EXIT &&Goto keindatum
			ENDIF
			
			frheresdatum = .ssframe2.Datum15.value
			spteresdatum = .ssframe2.Datum16.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe2.Tag2_3.value = differenztage
			.ssframe2.Monat2_3.value = differenzmonate
			.ssframe2.Jahr2_3.value = differenzjahre
			&&startflag = True
			&&.Eingabe(6).SetFocus
			&&startflag = False
			
		Case datindex = 18
			If EMPTY(.Datum2.value) .Or. EMPTY(.Datum0.value) && = ""
				thisform.bdaallesleeren.click
				Return
			ENDIF
			
			thisform.datumdiffneu.click &&Do attached
			thisform.plausibilitt2.click &&Do attached
			
			If EMPTY(.ssframe2.Datum17.value) .Or. EMPTY(.ssframe2.Datum18.value) && = ""
				.ssframe2.Datum17.value = ""
				datumdiff(1+17) = 0
				.ssframe2.Datum18.value = ""
				datumdiff(1+18) = 0
				&&startflag = True
				&&.Datum(17).SetFocus
				&&startflag = False
				.ssframe2.Tag2_4.value = 0
				.ssframe2.Monat2_4.value = 0
				.ssframe2.Jahr2_4.value = 0
				EXIT &&Goto keindatum
			ENDIF
			
			frheresdatum = .ssframe2.Datum17.value
			spteresdatum = .ssframe2.Datum18.value
			
			thisform.datumsdifferenz.click &&Do attached
			
			.ssframe2.Tag2_4.value = differenztage
			.ssframe2.Monat2_4.value = differenzmonate
			.ssframe2.Jahr2_4.value = differenzjahre
			&&startflag = True
			&&.Eingabe(7).SetFocus
			&&startflag = False
	Endcase

	&&sprungmarke keindatum
	exit
	enddo
	&&Summe 1 bilden

	sTag = 0
	sMonat = 0
	SJahr = 0
	
	For i = 1 To 4
		hsyy = ALLTRIM(STR(i,1,0))
		sTag = sTag + .ssframe1.Tag1_&hsyy..value
		sMonat = sMonat + .ssframe1.Monat1_&hsyy..value
		SJahr = SJahr + .ssframe1.Jahr1_&hsyy..value
	Next

	If sTag > 29
		sMonat = sMonat + Fix(sTag / 30)
		sTag = sTag % 30
	ENDIF
	
	If sMonat > 11
		SJahr = SJahr + Fix(sMonat / 12)
		sMonat = sMonat % 12
	ENDIF
	
	.ssframe1.Tag1_5.value = sTag
	.ssframe1.Monat1_5.value = sMonat
	.ssframe1.Jahr1_5.value = SJahr

	&&Differenz1 bilden
	monatbertrag = 0
	jahresbertrag = 0
	
	If .ssframe1.Tag1_0.value >= .ssframe1.Tag1_5.value 
		.ssframe1.Tag1_6.value  = .ssframe1.Tag1_0.value - .ssframe1.Tag1_5.value
	Else
		.ssframe1.Tag1_6.value  = .ssframe1.Tag1_0.value + 30 - .ssframe1.Tag1_5.value
		monatbertrag = -1
	Endif

	If .ssframe1.Monat1_0.value + monatbertrag >= .ssframe1.Monat1_5.value
		.ssframe1.Monat1_6.value = .ssframe1.Monat1_0.value + monatbertrag - .ssframe1.Monat1_5.value
	Else
		.ssframe1.Monat1_6.value = .ssframe1.Monat1_0.value + monatbertrag + 12 - .ssframe1.Monat1_5.value
		jahresbertrag = -1
	Endif

	If .ssframe1.Jahr1_0.value + jahresbertrag >= .ssframe1.Jahr1_5.value
		.ssframe1.Jahr1_6.value = .ssframe1.Jahr1_0.value + -.ssframe1.Jahr1_5.value + jahresbertrag
	Else
		.ssframe1.Jahr1_6.value = .ssframe1.Jahr1_0.value + monatbertrag + 12 - .ssframe1.Jahr1_5.value
	Endif

	&&Differenz1 / 4

	jahresbertrag = Fix((.ssframe1.Tag1_6.value + .ssframe1.Monat1_6.value * 30 + .ssframe1.Jahr1_6.value) * 360) / 4
	.ssframe1.Jahr1_7.value = Fix(jahresbertrag / 360)
	.ssframe1.Monat1_7.value = Fix((jahresbertrag % 360) / 30)
	.ssframe1.Tag1_7.value = jahresbertrag % 30
	jahresbertrag = 0

	&&Summe 2 bilden
	sTag = 0
	sMonat = 0
	SJahr = 0
	
	For i = 1 To 4
		hsyy = ALLTRIM(STR(i,1,0))
		sTag = sTag + .ssframe2.Tag2_&hsyy..value
		sMonat = sMonat + .ssframe2.Monat2_&hsyy..value
		SJahr = SJahr + .ssframe2.Jahr2_&hsyy..value
	Next

	If sTag > 29
		sMonat = sMonat + Fix(sTag / 30)
		sTag = sTag % 30
	ENDIF
	
	If sMonat > 11
		SJahr = SJahr + Fix(sMonat / 12)
		sMonat = sMonat % 12
	ENDIF
	
	.ssframe2.Tag2_5.value = sTag
	.ssframe2.Monat2_5.value = sMonat
	.ssframe2.Jahr2_5.value = SJahr
	&&
	&&Differenz2 bilden
	monatbertrag = 0
	
	If .ssframe2.Tag2_0.value >= .ssframe2.Tag2_5.value
		.ssframe2.Tag2_6.value = .ssframe2.Tag2_0.value - .ssframe2.Tag2_5.value
	Else
		.ssframe2.Tag2_6.value = .ssframe2.Tag2_0.value + 30 - .ssframe2.Tag2_5.value
		monatbertrag = -1
	Endif

	If .ssframe2.Monat2_0.value + monatbertrag >= .ssframe2.Monat2_5.value
		.ssframe2.Monat2_6.value = .ssframe2.Monat2_0.value + monatbertrag - .ssframe2.Monat2_5.value
	Else
		.ssframe2.Monat2_6.value = .ssframe2.Monat2_0.value + monatbertrag + 12 - .ssframe2.Monat2_5.value
		jahresbertrag = -1
	Endif

	If .ssframe2.Jahr2_0.value + jahresbertrag >= .ssframe2.Jahr2_5.value
		.ssframe2.Jahr2_6.value = (.ssframe2.Jahr2_0.value + jahresbertrag) - .ssframe2.Jahr2_5.value
	Else
		.ssframe2.Jahr2_6.value = .ssframe2.Jahr2_0.value + monatbertrag + 12 - .ssframe2.Jahr2_5.value
	Endif


	&&Differenz2 / 4
	If .ssframe2.Tag2_6.value % 2 = 1
		k = .ssframe2.Tag2_6.value - 1
	Else
		k = .ssframe2.Tag2_6.value
	ENDIF
	
	jahresbertrag = (k + .ssframe2.Monat2_6.value * 30 + .ssframe2.Jahr2_6.value * 360) / 2
	.ssframe2.Jahr2_7.value = Fix(jahresbertrag / 360)
	.ssframe2.Monat2_7.value = Fix((jahresbertrag % 360) / 30)
	.ssframe2.Tag2_7.value = jahresbertrag % 30
	jahresbertrag = 0
	&&Gesamtsumme bilden
	sTag = 0
	sMonat = 0
	SJahr = 0
	sTag = .ssframe1.Tag1_7.value + .ssframe2.Tag2_7.value
	sMonat = .ssframe1.Monat1_7.value + .ssframe2.Monat2_7.value
	SJahr = .ssframe1.Jahr1_7.value + .ssframe2.Jahr2_7.value

	If sTag > 29
		sMonat = sMonat + Fix(sTag / 30)
		sTag = sTag % 30
	ENDIF
	
	If sMonat > 11
		SJahr = SJahr + Fix(sMonat / 12)
		sMonat = sMonat % 12
	ENDIF
	
	.Tag3.value = sTag
	.Monat3.value = sMonat
	.Jahr3.value = SJahr

	&&BDA-Subtrakton

	sTag = 0
	sMonat = 0
	SJahr = 0

	sTag = 0
	sMonat = Val(Substr(.Datum1.value, 4, 2)) + .Monat3.value
	SJahr = Val(Right(.Datum1.value, 4)) + .Jahr3.value

	If sMonat > 12
		SJahr = SJahr + Fix(sMonat / 12)
		sMonat = sMonat % 12
	Endif

	datumstring = "01."
	
	If Len(Alltrim(Str(sMonat))) = 1
		datumstring = Alltrim(datumstring) + "0" + Alltrim(Str(sMonat)) + "."
	Else
		datumstring = Alltrim(datumstring) + Alltrim(Str(sMonat)) + "."
	Endif

	.Datum19.value = Alltrim(datumstring) + Alltrim(Str(SJahr))
	.BDAdatum.value = .Datum19.value &&+ "."

Endwith
&&End If
If keinspeichern = False
	thisform.bdadateispeichern.click
Endif


&&BDAform.Visible = True

ENDPROC
     5    4  4                        Y   %   %0      4  ?  40            U  G+
 T    % 8  T C   
  +" %C  
 C  
	" %    T CC  
 Z
 H  C    $ hsdatumtemp = .Datum&hsxx..value
- C  	
<- hsdatumtemp = .ssframe1.Datum&hsxx..value
0 C   
- hsdatumtemp = .ssframe2.Datum&hsxx..value
  %C	 
' T
   C d   	   %C  
  

 H C   3 .Datum&hsxx..value = ""
- C  	
$ .ssframe1.Datum&hsxx..value = ""
0 C   
$ .ssframe2.Datum&hsxx..value = ""
  T
     B   T
        +aA 
 H?9      T    T
 CC  Rg T C CC
 ZR T  C d   
 T  
    $ T   01.C  \
 T  
 T  (         	= B   `  %C  
 C  
     B 
    
    
 H\   ( T
 CC  Rg T C CC
 ZR T CC  Rg# T C CC ZR T   ! %C d     
~ T C d    
    ! %C d     

 T  
 T  
 T
     (q T  CC  Z# .ssframe1.Tag1_&hsyy..value = 0
% .ssframe1.Monat1_&hsyy..value = 0
$ .ssframe1.Jahr1_&hsyy..value = 0
   ( T  CC  Z# .ssframe2.Tag2_&hsyy..value = 0
% .ssframe2.Monat2_&hsyy..value = 0
$ .ssframe2.Jahr2_&hsyy..value = 0
   %  
[ T   %  
W
 T     T!    T"    T#  
 * %
 	  		  	b T$ %   %
  T$ &    T$ '    T$ (   ^ T$ &    T$ '    T$ (  
   - %C!  
 C"  	
 C#  	 T$ %    %
 
	 T) %   T) *    T) +    T) ,  
  #	 T) %    T    T
 CC  Rg T C CC
 ZR T$ -   ) T
 C d  $ -    T C yyyy    %C d      
	 T$ .    &
! T$ .  C d    ) T
 C d  $ .    T    T
 CC  Rg# T C CC
 ZR T) /   ) T
 C d  ) /   $ T) 0  C d   ) T
 C d  ) 0    C  T$ %  
 T  
 T  
 T
     () T  CC  Z# .ssframe1.Tag1_&hsyy..value = 0
% .ssframe1.Monat1_&hsyy..value = 0
$ .ssframe1.Jahr1_&hsyy..value = 0
 T
     T CC  Rg# T C CC ZR T   
     %  
 T   %  

 T     T!    T"    T#  
 3 %!   
 "   
 #   

 T!    T"    T#    T !   T "   T
 #   * %
 	  		  	 T) %   T) *    T) +    T) ,  
   T!    T"    T#    T) *    T) +    T) ,    T ) *   T ) +   T
 ) ,   T) %    T    T
 CC  Rg# T C CC
 ZR T) /   $ T) 0  C d    1 (
 T 1 
       \ T$ %  
 T  
 T  
 T
     ( T  CC  Z# .ssframe1.Tag1_&hsyy..Value = 0
% .ssframe1.Monat1_&hsyy..Value = 0
$ .ssframe1.Jahr1_&hsyy..Value = 0
 T
     T2 CC  Rg( T C CC2 ZR T   
     %  
. T   %  
*
 T     T!    T"    T#  
 * %
 	  		  	 T) %   T) *    T) +    T) ,  
   T!    T"    T#    T) *    T) +    T) ,    T ) *   T ) +   T
 ) ,   T) %    T    T
 CC  Rg( T C CC
 ZR T) /   $ T) 0  C d    1 (X
 T 1 
       C  	
    
     C  

    
  3     S  %C  
 C  
     B 
    
    & %C$ 4  
 C$ 5   T$ 4     T
   T$ 5     T
   T$ 6    T$ 7    T$ 8    !  T $ 4   T $ 5  
     T$ 6    T$ 7    T$ 8  
      %C  
 C  
     B 
    
    & %C$ 9  
 C$ :  g T$ 9     T
   T$ :     T
   T$ ;    T$ <    T$ =    !  T $ 9   T $ :  
     T$ ;    T$ <    T$ =  
    e  %C  
 C  
     B 
    
    & %C$ >  
 C$ ?   T$ >     T
   T$ ?     T
 	  T$ @    T$ A    T$ B    !  T $ >   T $ ?  
     T$ @    T$ A    T$ B  
    
  %C  
 C  
     B 
    
    & %C$ C  
 C$ D  y T$ C     T
 
  T$ D     T
   T$ E    T$ F    T$ G    !  T $ C   T $ D  
     T$ E    T$ F    T$ G  
      %C  
 C  0
     B 
 T   
    
  3  & %C) H  
 C) I   T) H     T
   T) I     T
 
  T) J    T) K    T) L    !  T ) H   T ) I  
 T 
    
     T) J    T) K    T) L  
    '  %C  
 C  
     B 
    
  3  & %C) M  
 C) N   T) M     T
   T) N     T
   T) O    T) P    T) Q    !  T ) M   T ) N  
     T) O    T) P    T) Q  
      %C  
 C  i
     B 
    
  3  & %C) R  
 C) S  ; T) R     T
   T) S     T
   T) T    T) U    T) V    !  T ) R   T ) S  
     T) T    T) U    T) W  
    9   %C  
 C  
     B 
    
  3  & %C) X  
 C) Y   T) X     T
   T) Y     T
   T) Z    T) [    T) \    !  T ) X   T ) Y  
     T) Z    T) [    T) \  
   ! 
 T]  
 T^  
 T_    (*! T  CC  Z- sTag = sTag + .ssframe1.Tag1_&hsyy..value
3 sMonat = sMonat + .ssframe1.Monat1_&hsyy..value
0 SJahr = SJahr + .ssframe1.Jahr1_&hsyy..value
  %] j! T^ ^ C]   T] C] G  %^ ! T_ _ C^   T^ C^ G  T$ `  ]  T$ a  ^  T$ b  _ 
 Tc  
 Td   %$ &  $ `  I"& T$ e  $ &  $ `   "* T$ e  $ &  $ `   Tc  # %$ '  c $ a  "* T$ f  $ '  c $ a   #. T$ f  $ '  c $ a   Td  # %$ (  d $ b  p#+ T$ g  $ (  $ b  cd  #. T$ g  $ (  c $ b   < Td C$ e  $ f  $ g  h  T$ h  Cd h # T$ i  CCd hG  T$ j  Cd G
 Td  
 T]  
 T^  
 T_    (1% T  CC  Z- sTag = sTag + .ssframe2.Tag2_&hsyy..value
3 sMonat = sMonat + .ssframe2.Monat2_&hsyy..value
0 SJahr = SJahr + .ssframe2.Jahr2_&hsyy..value
  %] q% T^ ^ C]   T] C] G  %^ % T_ _ C^   T^ C^ G  T) k  ]  T) l  ^  T) m  _ 
 Tc   %) *  ) k  C&& T) n  ) *  ) k   &* T) n  ) *  ) k   Tc  # %) +  c ) l  &* T) o  ) +  c ) l   '. T) o  ) +  c ) l   Td  # %) ,  d ) m  j'+ T) p  ) ,  d ) m   '. T) p  ) ,  c ) m    %C) n  G' Tq ) n   ' Tq ) n   1 Td q ) o  ) p  h T) r  Cd h # T) s  CCd hG  T) t  Cd G
 Td  
 T]  
 T^  
 T_   T] $ j  ) t   T^ $ i  ) s   T_ $ h  ) r   %] P) T^ ^ C]   T] C] G  %^ ) T_ _ C^   T^ C^ G  Tu  ]  Tv  ^  Tw  _ 
 T]  
 T^  
 T_  
 T]  # T^ CC  \gv    T_ CC  Rgw   %^ z* T_ _ C^   T^ C^ G  Tx  01. %CCC^ Z>*! Tx Cx  0CC^ Z . * Tx Cx CC^ Z .  Ty  Cx CC_ Z Tz  y    %{  @+
  |    U}  DATINDEX DI EG FIX THISFORM DATUM0 VALUE DATUM2 HSXX HSDATUMTEMP	 DATUMDIFF DATEDIFF
 FRHERESDATUM DIFFERENZJAHRE DATUM24 DATEADD I DATUMDIFFNEU CLICK DATUM1	 STARTFLAG TRUE FALSE BDAALLESLEEREN PLAUSIBILITT1 EINGANGSAMTINDEX DIFFERENZJAHRE35 FRHERESDATUM35
 SPTERESDATUM DATUMSDIFFERENZ
 DIFFERENZTAGE DIFFERENZMONATE HSYY TAG0 MONAT0 JAHR0 SSFRAME1 VISIBLE TAG1_0 MONAT1_0 JAHR1_0 SSFRAME2 TAG2_0 MONAT2_0 JAHR2_0 DATUM20 DATUM21 DATUM22 DATUM23 J DIFFERENZJAHRE40 PLAUSIBILITT2 DATUM3 DATUM4 TAG1_1 MONAT1_1 JAHR1_1 DATUM5 DATUM6 TAG1_2 MONAT1_2 JAHR1_2 DATUM7 DATUM8 TAG1_3 MONAT1_3 JAHR1_3 DATUM9 DATUM10 TAG1_4 MONAT1_4 JAHR1_4 DATUM11 DATUM12 TAG2_1 MONAT2_1 JAHR2_1 DATUM13 DATUM14 TAG2_2 MONAT2_2 JAHR2_2 DATUM15 DATUM16 TAG2_3 MONAT2_3 JAHR_3 JAHR2_3 DATUM17 DATUM18 TAG2_4 MONAT2_4 JAHR2_4 STAG SMONAT SJAHR TAG1_5 MONAT1_5 JAHR1_5
 MONATBERTRAG JAHRESBERTRAG TAG1_6 MONAT1_6 JAHR1_6 JAHR1_7 MONAT1_7 TAG1_7 TAG2_5 MONAT2_5 JAHR2_5 TAG2_6 MONAT2_6 JAHR2_6 K JAHR2_7 MONAT2_7 TAG2_7 TAG3 MONAT3 JAHR3 DATUMSTRING DATUM19 BDADATUM
 KEINSPEICHERN BDADATEISPEICHERN Click,     1  A  !q AA q AAA qA A  qA A A     B  A  A A    A     qq1QAA qq1QAA A  A A AAA AAAA A A AA A AA A AA   rq1QAtA   A A 1A AAA AAAAAAA AAr  A    qq1QAtA   A A AAA AAAAAAA AAr  A B      A A   bA1A1DAAA A BA BAA A A   bA1A1DAAA A BA BAA A A   bA1A1DAAA A BA BAA A A   bA1A1DAAA A BA BAA A A    bA1A1DAAA A BA   BAA A A   bA1A1DAAA A BA BAA A A   bA1A1DAAA A BA BAA A A   bA1A1DAAA A BA BAAD C A    rq1A !A !A BAA  a  A 2  A 2 A 1    rq1A !A !A BAA a  A 2  A 2 A  AA 1    !A !A     1!A r A QB  A 5                       ,]      )   4                        
commandbutton      
commandbutton      plausibilitt1      FORM1      Top = 594
Left = 198
Height = 13
Width = 82
Caption = "plausibilitt1"
Enabled = .F.
TabIndex = 44
Visible = .F.
DisabledBackColor = 255,128,128
Name = "plausibilitt1"
     PROCEDURE Click

&&ffentlicher Dienst

With thisform
	If di < 3
		Return
	ENDIF
	hsyy = ALLTRIM(STR(di,2,0))
	DO case
		CASE INLIST(di,24)
			datum_di = .Datum&hsyy..value
		CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
			datum_di = .ssframe1.Datum&hsyy..value
		CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
			datum_di = .ssframe2.Datum&hsyy..value
	endcase
	
	If datumdiff(1+di) > 0
		If datumdiff(1+di) < datumdiff(1+20)
			Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   der hier zu prfenden Zeitspanne vom " + .ssframe1.Datum20.value + " bis " + .ssframe1.Datum21.value + "."))
			datumdiff(1+di) = 0
			If eg > 0
				hsrr = ALLTRIM(STR(eg,4,0))
				.ssframe1.Tag1_&hsrr..value = 0
				.ssframe1.Monat1_&hsrr..value = 0
				.ssframe1.Jahr1_&hsrr..value = 0
			ENDIF
			DO case
				CASE INLIST(di,24)
					.Datum&hsyy..value = ""
					startflag = True
					.Datum&hsyy..SetFocus
					startflag = False					
				CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
					.ssframe1.Datum&hsyy..value = ""
					startflag = True
					.ssframe1.Datum&hsyy..SetFocus
					startflag = False						
				CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
					.ssframe2.Datum&hsyy..value = ""
					startflag = True
					.ssframe2.Datum&hsyy..SetFocus
					startflag = False						
			endcase			
			Return
		Endif
		&&
		If datumdiff(1+di) > datumdiff(1+21)
			Messagebox( ("Das Datum " + Datum_di + " liegt   n a c h   der hier zu prfenden Zeitspanne vom " + .ssframe1.Datum20.value + " bis " + .ssframe1.Datum21.value + "."))
			datumdiff(1+di) = 0
			If eg > 0
				hsrr = ALLTRIM(STR(eg,4,0))
				.ssframe1.Tag1_&hsrr..value = 0
				.ssframe1.Monat1_&hsrr..value = 0
				.ssframe1.Jahr1_&hsrr..value = 0				
			Endif
			DO case
				CASE INLIST(di,24)
					.Datum&hsyy..value = ""
					startflag = True
					.Datum&hsyy..SetFocus
					startflag = False					
				CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
					.ssframe1.Datum&hsyy..value = ""
					startflag = True
					.ssframe1.Datum&hsyy..SetFocus
					startflag = False						
				CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
					.ssframe2.Datum&hsyy..value = ""
					startflag = True
					.ssframe2.Datum&hsyy..SetFocus
					startflag = False						
			endcase	
			Return
		Endif
	Endif

	If di > 2
		For i = 1 To 4
			If i * 2 + 1 = di .Or. i * 2 + 2 = di
			Else
				If Not datumdiff(1+i * 2 + 1) = 0
					If datumdiff(1+di) >= datumdiff(1+i * 2 + 1) .And. datumdiff(1+di) <= datumdiff(1+i * 2 + 2)
						hstt1 = ALLTRIM(STR(i * 2 + 1,10,0))
						hstt2 = ALLTRIM(STR(i * 2 + 2,10,0))
						hstt = .alltrim(STR(di,4,0))
						DO case
							CASE INLIST(di,24)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .Datum&hstt1..value + " bis " + .Datum&hstt2..value))			
								.Datum&hstt..value = ""
								startflag = True
								.Datum&hstt..SetFocus
								startflag = False
							CASE INLIST(di,20,21,3,4,5,6,7,8,9,10)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe1.Datum&hstt1..value + " bis " + .ssframe1.Datum&hstt2..value))
								.ssframe1.Datum&hstt..value = ""
								startflag = True
								.ssframe1.Datum&hstt..SetFocus
								startflag = False
							CASE INLIST(di,22,23,11,12,13,14,15,16,17,18)
								Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe2.Datum&hstt1..value + " bis " + .ssframe2.Datum&hstt2..value))
								.ssframe2.Datum&hstt..value = ""
								startflag = True
								.ssframe2.Datum&hstt..SetFocus
								startflag = False
						endcase							
						datumdiff(1+di) = 0
						Return
					Endif
				Endif
			Endif&&
		Next
	Endif
	If di % 2 = 0
		If Not datumdiff(1+di) = 0
			If datumdiff(1+di) < datumdiff(1+di - 1)
				hstt = .alltrim(STR(di - 1,4,0))
				DO case
					CASE INLIST(di -1,24)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.Datum&hstt..value = ""
						startflag = True
						.Datum&hstt..SetFocus
						startflag = False
					CASE INLIST(di-1,20,21,3,4,5,6,7,8,9,10)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe1.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.ssframe1.Datum&hstt..value = ""
						startflag = True
						.ssframe1.Datum&hstt..SetFocus
						startflag = False
					CASE INLIST(di-1,22,23,11,12,13,14,15,16,17,18)
						Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe2.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
						.ssframe2.Datum&hstt..value = ""
						startflag = True
						.ssframe2.Datum&hstt..SetFocus
						startflag = False
				endcase							
				datumdiff(1+di) = 0
			Endif
		Endif
	Endif
Endwith

ENDPROC
                                   ݏ   %                          U  
    % 
"  B  T CC  Z
 HJ + C } ! datum_di = .Datum&hsyy..value
- C 	
 * datum_di = .ssframe1.Datum&hsyy..value
- C 
+* datum_di = .ssframe2.Datum&hsyy..value
  %C    %C  C 
y C
 Das Datum  6  liegt   v o r   der hier zu prfenden Zeitspanne vom      bis     .x T    %	   T
 CC	  Z# .ssframe1.Tag1_&hsrr..value = 0
% .ssframe1.Monat1_&hsrr..value = 0
$ .ssframe1.Jahr1_&hsrr..value = 0
 
 H C  .Datum&hsyy..value = ""

 T   .Datum&hsyy..SetFocus

 T 
 - C 	
$ .ssframe1.Datum&hsyy..value = ""

 T  " .ssframe1.Datum&hsyy..SetFocus

 T 
 - C 
$ .ssframe2.Datum&hsyy..value = ""

 T  " .ssframe2.Datum&hsyy..SetFocus

 T 
   B  %C  C { C
 Das Datum  8  liegt   n a c h   der hier zu prfenden Zeitspanne vom      bis     .x T    %	  g T
 CC	  Z# .ssframe1.Tag1_&hsrr..value = 0
% .ssframe1.Monat1_&hsrr..value = 0
( .ssframe1.Jahr1_&hsrr..value = 0				
 
 Hx C  .Datum&hsyy..value = ""

 T   .Datum&hsyy..SetFocus

 T 
 - C 	
e$ .ssframe1.Datum&hsyy..value = ""

 T  " .ssframe1.Datum&hsyy..SetFocus

 T 
 - C 
$ .ssframe2.Datum&hsyy..value = ""

 T  " .ssframe2.Datum&hsyy..SetFocus

 T 
   B   %   (, %     V " %C   
L %C  C    C  C  	 T CC 
 Z T CC 
 Z T CC  Z 
 H1 C 0	 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .Datum&hstt1..value + " bis " + .Datum&hstt2..value))			
 .Datum&hstt..value = ""

 T   .Datum&hstt..SetFocus

 T 
 - C 	
k
 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe1.Datum&hstt1..value + " bis " + .ssframe1.Datum&hstt2..value))
$ .ssframe1.Datum&hstt..value = ""

 T  " .ssframe1.Datum&hstt..SetFocus

 T 
 - C 
 Messagebox( (di + " Das Datum " + Datum_di + " liegt in der bereits verwendeten Zeitspanne vom " + .ssframe2.Datum&hstt1..value + " bis " + .ssframe2.Datum&hstt2..value))
$ .ssframe2.Datum&hstt..value = ""

 T  " .ssframe2.Datum&hstt..SetFocus

 T 
   T    B      %C G  %C   
% %C  C  
 T CC  Z 
 HY C P
 Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
 .Datum&hstt..value = ""

 T   .Datum&hstt..SetFocus

 T 
 1 C 	
} Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe1.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
$ .ssframe1.Datum&hstt..value = ""

 T  " .ssframe1.Datum&hstt..SetFocus

 T 
 1 C 
 Messagebox( ("Das Datum " + Datum_di + " liegt   v o r   dem Datum " + .ssframe2.Datum&hstt..value + " und damit nicht in der richtigen Zeitrichtung."))
$ .ssframe2.Datum&hstt..value = ""

 T  " .ssframe2.Datum&hstt..SetFocus

 T 
   T        U  THISFORM DI HSYY	 DATUMDIFF DATUM_DI SSFRAME1 DATUM20 VALUE DATUM21 EG HSRR	 STARTFLAG TRUE FALSE I HSTT1 HSTT2 HSTT ALLTRIM Click,     1  A A q !A qq1QAA  !  A ! A ! A A A qq1QA  !  A ! A ! A A A A q ! !	  
A ! 
A ! A qA A A A A A aQ a1	  	A ! 	A ! A qA A A A 2                             )                           
commandbutton      
commandbutton      datumsdifferenz      FORM1      Top = 579
Left = 33
Height = 19
Width = 82
Caption = "datumsdifferenz"
Enabled = .F.
TabIndex = 45
Visible = .F.
DisabledBackColor = 255,128,128
Name = "datumsdifferenz"
     PROCEDURE Click

&&ffentlicher Dienst

februartage = 0
differenzmonate = Val(Substr(spteresdatum, 4, 2)) - Val(Substr(frheresdatum, 4, 2))
differenzjahre = Val(Right(spteresdatum, 4)) - Val(Right(frheresdatum, 4))

If differenzmonate < 0
	differenzmonate = 12 + differenzmonate
	differenzjahre = differenzjahre - 1
Endif

lfdMonat = Val(Substr(frheresdatum, 4, 2))
lfdJahr = Val(Right(frheresdatum, 4))
EndeMonat = Val(Substr(spteresdatum, 4, 2))

frherertag = Val(Leftc(frheresdatum, 2))

Do Case && lfdMonat
	Case  Inlist(lfdMonat, 1, 3, 5, 7, 8, 10, 12)
		If frherertag = 31
			frherertag = 1
			lfdMonat = lfdMonat + 1
			differenzmonate = differenzmonate - 1
		ENDIF
		
	Case lfdMonat = 2
		If Val(Right(frheresdatum, 4)) % 4 = 0
			If frherertag = 29
				frherertag = 30
				februartage = 1
			Endif
		Else
			If frherertag = 28
				frherertag = 30
				februartage = 2
			Endif
		ENDIF
		
	Case  Inlist(lfdMonat, 4, 6, 9, 11)
Endcase


spterertag = Val(Leftc(spteresdatum, 2))
Do Case && EndeMonat
	Case  Inlist(EndeMonat, 1, 3, 5, 7, 8, 10, 12)
		If spterertag = 31
			spterertag = 30
		Endif

	Case EndeMonat = 2
		If Val(Right(spteresdatum, 4)) % 4 = 0
			If spterertag = 29
				spterertag = 30
			Endif
		Else
			If spterertag = 28
				spterertag = 30
			Endif
		ENDIF
		
	Case  Inlist(EndeMonat, 4, 6, 9, 11)
Endcase

If spterertag > frherertag
	differenztage = spterertag - frherertag + 1 + februartage
Endif

If spterertag = frherertag
	differenztage = 1 + februartage
Endif

If spterertag < frherertag
	differenztage = spterertag + 30 - frherertag + 1 + februartage
	If differenzmonate = 0
		differenzmonate = 11
		differenzjahre = differenzjahre - 1
	Else
		differenzmonate = differenzmonate - 1
	Endif
Endif

If differenztage = 30
	differenztage = 0
	differenzmonate = differenzmonate + 1
	If differenzmonate = 12
		differenzmonate = 0
		differenzjahre = differenzjahre + 1
	Endif
Endif

ENDPROC
                                      %           K               U  K
 T   % T CC \gCC \g T CC RgCC Rg %  
  T   T    T CC \g T CC Rg T CC \g T CC g
 H $ C 
T % P
 T  T   T      %CCC RgG  % 
 T 
 T     % 
 T 
 T     C 	  T	 CC g
 H-$ C 
s %	 o
 T	     %CCC RgG  %	 
 T	    %	 
 T	    C 	  %	  : T
 	      %	  ` T
     %	  
 T
 	     %  
 T  T    T     %
 D
 T
   T   % @
 T   T     U  FEBRUARTAGE DIFFERENZMONATE
 SPTERESDATUM
 FRHERESDATUM DIFFERENZJAHRE LFDMONAT LFDJAHR	 ENDEMONAT FRHERERTAG SPTERERTAG
 DIFFERENZTAGE Click,     1  QA rAqR A A   A    A A A S A A  A   A A A A A   A A   A A 2                             )                           
commandbutton      
commandbutton      bdadateispeichern      FORM1      Top = 596
Left = 36
Height = 16
Width = 82
Caption = "bdadateispeichern"
Enabled = .F.
TabIndex = 46
Visible = .F.
DisabledBackColor = 255,128,128
Name = "bdadateispeichern"
     PROCEDURE Click

For i = 0 To 24
	hsyy = ALLTRIM(STR(i,2,0))
	DO case
		CASE INLIST(i,0,1,2,24,19)
			bda.datum(1+i) = thisform.datum&hsyy..value
		CASE INLIST(i,20,21,3,4,5,6,7,8,9,10)	
			bda.datum(1+i) = thisform.ssframe1.datum&hsyy..value			
		CASE INLIST(i,22,23,11,12,13,14,15,16,17,18)
			bda.datum(1+i) = thisform.ssframe2.datum&hsyy..value	
	endcase					
NEXT

For i = 0 To 3
	hsyy = ALLTRIM(STR(i,1,0))
	bda.Beschreibung(1+i) = thisform.ssframe1.Eingabe&hsyy..value
NEXT
For i = 4 To 7
	hsyy = ALLTRIM(STR(i,1,0))
	bda.Beschreibung(1+i) = thisform.ssframe2.Eingabe&hsyy..value
NEXT
	

myput(90, fileneu,"BDA")
ENDPROC
     D    +  +                        
T   %                          U  ^    (Z T CC   Z
 H; V C    / bda.datum(1+i) = thisform.datum&hsyy..value
- C  	
 ; bda.datum(1+i) = thisform.ssframe1.datum&hsyy..value			
- C  
V9 bda.datum(1+i) = thisform.ssframe2.datum&hsyy..value	
      ( T CC   ZA bda.Beschreibung(1+i) = thisform.ssframe1.Eingabe&hsyy..value
    (@ T CC   ZA bda.Beschreibung(1+i) = thisform.ssframe2.Eingabe&hsyy..value
  CZ   BDA  U  I HSYY MYPUT FILENEU Click,     1 rq A A rqA qqA s1                             )   +                        
commandbutton      
commandbutton      datumdiffneu      FORM1      Top = 597
Left = 126
Height = 22
Width = 64
Caption = "datumdiffneu"
Enabled = .F.
TabIndex = 47
Visible = .F.
DisabledBackColor = 255,128,128
Name = "datumdiffneu"
     FPROCEDURE Click

&&ffentlicher Dienst
With myBDAform
	hsxy = ALLTRIM(STR(i,3,0))
	If EMPTY(.Datum0.value) && = "" 
	    datumdiff(1+i) = 0
	ELSE
	   	DO case
   			CASE INLIST(i ,0,1,2,24,19)
     			 hsdatumtemp = .Datum&hsxy..value
   			CASE INLIST(i ,20,21,3,4,5,6,7,8,9,10)
     			 hsdatumtemp = .ssframe1.Datum&hsxy..value
   			CASE INLIST(i ,0,22,23,11,12,13,14,15,16,17,18)
     			 hsdatumtemp = .ssframe2.Datum&hsxy..value
		endcase

	   If EMPTY(hsdatumtemp) && = "" Then
	      datumdiff(1+i) = 0
	   ELSE
	   		DO case
	   			CASE INLIST(i ,0,1,2,24,19)
	     			 datumdiff(1+i) = DateDiff("d", .Datum0.value, .Datum&hsxy..value)
	   			CASE INLIST(i ,20,21,3,4,5,6,7,8,9,10)
	     			 datumdiff(1+i) = DateDiff("d", .Datum0.value, .ssframe1.Datum&hsxy..value)
	   			CASE INLIST(i ,0,22,23,11,12,13,14,15,16,17,18)
	     			 datumdiff(1+i) = DateDiff("d", .Datum0.value, .ssframe2.Datum&hsxy..value)	     			 
			endcase
	   EndIf
	EndIf
EndWith



*!*	With Thisform
*!*	hsyy = ALLTRIM(STR(i,1,0))
*!*		If .Datum0.Value = ""
*!*			datumdiff(1+i) = 0
*!*		ELSE
*!*			DO case
*!*				CASE INLIST(i,1,2,24)
*!*					If .Datum&hsyy..value = ""
*!*						datumdiff(i) = 0
*!*					Else
*!*						datumdiff(i) = DateDiff("d", .Datum0.value, .Datum&hsyy..value)
*!*					Endif				
*!*				CASE INLIST(i,20,21,3,4,5,6,7,8,9,10)
*!*					If .ssframe1.Datum&hsyy..value = ""
*!*						datumdiff(i) = 0
*!*					Else
*!*						datumdiff(i) = DateDiff("d", .Datum0.value, .ssframe1.Datum&hsyy..value)
*!*					Endif				
*!*				CASE INLIST(i,22,23,11,12,13,14,15,16,17,18)
*!*					If .ssframe2.Datum&hsyy..value = ""
*!*						datumdiff(i) = 0
*!*					Else
*!*						datumdiff(i) = DateDiff("d", .Datum0.value, .ssframe2.Datum&hsyy..value)
*!*					Endif											
*!*			endcase
*!*		ENDIF
*!*	Endwith
ENDPROC
     ,                              c   %                          U  
   
 T CC  Z %C  N  T    	
 Hc \ C   $ hsdatumtemp = .Datum&hsxy..value
- C 	
 - hsdatumtemp = .ssframe1.Datum&hsxy..value
0 C  
\- hsdatumtemp = .ssframe2.Datum&hsxy..value
  %C  T    
 H C  E datumdiff(1+i) = DateDiff("d", .Datum0.value, .Datum&hsxy..value)
- C 	
yN datumdiff(1+i) = DateDiff("d", .Datum0.value, .ssframe1.Datum&hsxy..value)
0 C  
X datumdiff(1+i) = DateDiff("d", .Datum0.value, .ssframe2.Datum&hsxy..value)	     			 
     U 	 MYBDAFORM HSXY I DATUM0 VALUE	 DATUMDIFF HSDATUMTEMP Click,     1  q1q  AA  q  QA A A A 1                       ;      )                           
commandbutton      
commandbutton      
bdaaktivieren      FORM1      Top = 606
Left = 201
Height = 19
Width = 79
Caption = "bdaaktivieren"
Enabled = .F.
TabIndex = 48
Visible = .F.
DisabledBackColor = 255,128,128
Name = "bdaaktivieren"
     OPROCEDURE Click

&&ffentlicher Dienst
startflag = True
With thisform
	di = 0
	thisform.datumaktualisieren.click &&Do attached
	&&SendKeys "{ENTER}", True

	di = 2
	thisform.datumaktualisieren.click &&Do attached

	If .SSFrame1.Visible = True
		If Not EMPTY(.ssframe1.Datum4.Value) && = ""
			di = 4
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe1.Datum6.Value) && = ""
			di = 6
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe1.Datum8.Value) && = ""
			di = 8
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe1.Datum10.Value) && = ""
			di = 10
			thisform.datumaktualisieren.click &&Do attached
		Endif
	ENDIF
	
	If .SSFrame2.Visible = True
		If Not EMPTY(.ssframe2.Datum12.Value) && = ""
			di = 12
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe2.Datum14.Value) && = ""
			di = 14
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe2.Datum16.Value) && = ""
			di = 16
			thisform.datumaktualisieren.click &&Do attached
		ENDIF
		
		If Not EMPTY(.ssframe2.Datum18.Value) && = ""
			di = 18
			thisform.datumaktualisieren.click &&Do attached
		Endif
	Endif

	If Not EMPTY(.Datum2.Value) && = ""
		di = 2
		thisform.datumaktualisieren.click &&Do attached
	Endif

	If EMPTY(.Datum0.value) && = ""
		.Datum0.SetFocus
	Else
		If EMPTY(.Datum2.value) && = ""
			.Datum2.SetFocus
		Else
			If thisform.SSFrame1.Visible = True
				.ssframe1.Datum3.SetFocus
			Else
				If thisform.SSFrame2.Visible = True
					.ssframe2.Datum11.SetFocus
				Endif
			Endif
		Endif
	ENDIF
	
	For j = 0 To 24
		i = j
		thisform.datumdiffneu.click &&Do attached
	Next
Endwith
keinspeichern = False
startflag = False

ENDPROC
         j  j                           %         !  F               U  ^
 T   
  =
 T  
    
 T 
     %   7 %C  	 
 
 T 
      %C 
 	 
 
 T 
      %C  	 
 
 T 
      %C  	 
3
 T 

       %
   $ %C
  	 

 T 
      %C
  	 

 T 
      %C
  	 

 T 
      %C
  	 
 
 T 
       %C 	 
V
 T 
      %C 	 x     %C 	       %          % 
    
          (9
 T  
      
 T  
 T    U 	 STARTFLAG TRUE THISFORM DI DATUMAKTUALISIEREN CLICK SSFRAME1 VISIBLE DATUM4 VALUE DATUM6 DATUM8 DATUM10 SSFRAME2 DATUM12 DATUM14 DATUM16 DATUM18 DATUM2 DATUM0 SETFOCUS DATUM3 DATUM11 J I DATUMDIFFNEU
 KEINSPEICHERN FALSE Click,     1       Rq  A r  A r  A r  A A Rq  A r  A r  A r  A A B  A 2  1  q  q A A A A r  A A   2                       D      )   j                        label      label      text3      FORM1      vCaption = ""
Height = 18
Left = 18
Top = 139
Width = 603
TabIndex = 49
BackColor = 128,255,128
Name = "text3"
      
commandbutton      
commandbutton      bdaallesleeren      FORM1      Top = 612
Left = 33
Height = 19
Width = 82
Caption = "bdaallesleeren"
Enabled = .F.
TabIndex = 50
Visible = .F.
DisabledBackColor = 255,128,128
Name = "bdaallesleeren"
     PROCEDURE Click
*!*	procedure bdaallesleeren
*!*	&&ffentlicher Dienst
With thisform
	For i = 1 To 24
		hsyy = ALLTRIM(STR(i,2,0))
		DO case
			CASE INLIST(i,1,2,24)
				.Datum&hsyy..value= ""
				datumdiff(1+i) = 0
			CASE INLIST(i,20,21,3,4,5,6,7,8,9,10)
				.ssframe1.Datum&hsyy..value= ""
				datumdiff(1+i) = 0
			CASE INLIST(i,22,23,11,12,13,14,15,16,17,18)
				.ssframe2.Datum&hsyy..value= ""
				datumdiff(1+i) = 0
		endcase
	Next
	For i = 0 To 3
		hsyy = ALLTRIM(STR(i,1,0))
		.ssframe1.Tag1_&hsyy..value = 0
		.ssframe1.Monat1_&hsyy..value = 0
		.ssframe1.Jahr1_&hsyy..value = 0
		.ssframe1.Eingabe&hsyy..value = ""
	Next
	For i = 4 To 7
		hsyy = ALLTRIM(STR(i,1,0))
		.ssframe2.Tag2_&hsyy..value = 0
		.ssframe2.Monat2_&hsyy..value = 0
		.ssframe2.Jahr2_&hsyy..value = 0
		.ssframe2.Eingabe&hsyy..value = ""
	Next
	.Tag0.value = 0
	.Monat0.value = 0
	.Jahr0.value = 0
	.Tag3.value = 0
	.Monat3.value = 0
	.Jahr3.value = 0
Endwith
thisform.bdadateispeichern.click &&Do attached
*!*	endproc
ENDPROC
                                   8{   %         _  '               U  i
   U  (c T CC  Z
 HH _ C   .Datum&hsyy..value= ""
 T   - C 	
 # .ssframe1.Datum&hsyy..value= ""
 T   - C 
_# .ssframe2.Datum&hsyy..value= ""
 T        (' T CC  Z# .ssframe1.Tag1_&hsyy..value = 0
% .ssframe1.Monat1_&hsyy..value = 0
$ .ssframe1.Jahr1_&hsyy..value = 0
& .ssframe1.Eingabe&hsyy..value = ""
   ( T CC  Z# .ssframe2.Tag2_&hsyy..value = 0
% .ssframe2.Monat2_&hsyy..value = 0
$ .ssframe2.Jahr2_&hsyy..value = 0
& .ssframe2.Eingabe&hsyy..value = ""
  T    T    T    T    T	    T
    
      U
  THISFORM I HSYY	 DATUMDIFF TAG0 VALUE MONAT0 JAHR0 TAG3 MONAT3 JAHR3 BDADATEISPEICHERN CLICK Click,     1  qq q1q1qA A qq1QAaA qq1QAaA A  2                             )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 684
Left = 852
TabIndex = 3
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
                (       @                                                                                                                                                                                                                       𙙐     𙙙    𙙙       𙙙      𙐙       	         	  𙐙 𙙙 𙙙𙙙                                                                                                                                   0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5SM10Z2RR1355975138 1 53           1.000    0.000    0.00082666.000                 F             -1   -1   -1  242  242  242    1    8    1
     0 10  021F 3 3FFFTF  F           T    F T  0            0TTT0 0F         WINDOWS _5SM10Z2RS           9  1                          39063.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RT           9  4                           2084.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5SM10Z2RU           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5ZG1AV390           9  8                           3855.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _6IT0OKMYQ1445747579 5  0       48333.333 3020.833 1666.66745625.000                               -1   -1   -1   -1   -1   -1               
     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5ZG1BNPLD1381151173 7  4        19062.50046770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BNZB31381151179 7  4        20833.33346770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BO81J1381151185 7  4        22604.16746770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BOHSD1381151191 7  4        24375.00046770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BOP8F1381151196 7  4        26145.83346770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BLUOG1381151125 7  4         8437.50046770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG1BJU021381151076 7  4         6562.50046770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F        WINDOWS _5ZG192UQM1381148732 5  0        6666.66750520.833 1666.667 3958.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG193K201381148751 5  0        8437.50049895.833 1666.667 4583.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19FZF41381149061 5  0       19062.50050208.333 1666.667 4270.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19G8QO1381149067 5  0       20833.33347916.667 1666.667 6562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19GK441381149074 5  0       22604.16749687.500 1666.667 4791.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19GULC1381149081 5  0       24375.00048541.667 1666.667 5937.500                               -1   -1   -1   -1   -1   -1                     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19H5MU1381149090 5  0    !   26145.83348333.333 1666.667 6145.833                               -1   -1   -1   -1   -1   -1               "     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG1BMCIE1381151139 7  4        10208.33346770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F#        WINDOWS _5ZG1BMMPN1381151145 7  4        11979.16746770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F$        WINDOWS _5ZG1BMVLN1381151151 7  4        13750.00046770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F%        WINDOWS _5ZG1BN5RR1381151158 7  4        15520.83346770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F&        WINDOWS _5ZG1BNGMB1381151165 7  4        17291.66746770.833 1666.66732916.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F'        WINDOWS _5ZG1BAM3F1381150845 7  4        31770.833 2187.500 7187.50077812.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1B831X1381150784 7  4         4166.66746354.16726770.83333645.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AH8VT1381149988 7  4        41354.167 2291.667 1875.00077291.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTF3 0F(        WINDOWS _5SM110TS31355975181 7  4        15729.167 3437.50015208.33334166.667                               -1   -1   -1  242  242  242    1    8    1            0       FFFTF  F                     0             FTT0 0F         WINDOWS _5SM110TS41355975181 8  0    )    1458.333 4270.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1               *     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS51355975181 8  0    +    3750.000 4270.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS61355975181 8  0    -    5729.167 4270.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               .     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS71355975181 8  0    /    9479.167 4270.833 2187.50029375.000                   C           -1   -1   -1   -1   -1   -1               1     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TS81355975181 8  0    2   11875.000 4270.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               3     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F4        WINDOWS _5SM110TS91355975181 8  0    5   16041.667 3854.167 1666.66733125.000                   C           -1   -1   -1   -1   -1   -1               7     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSA1355975181 8  0    8   18750.000 3958.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               9     1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSB1355975181 8  0    :   21875.000 3958.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               ;     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM110TSC1355975181 8  0    <   23854.167 3958.333 1875.00033020.833                   C           -1   -1   -1   -1   -1   -1               =     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM111S5B1355975211 5  0    >    1562.50046458.333 1666.66713750.000                               -1   -1   -1   -1   -1   -1               ?     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1128EV1355975221 8  0    @    1354.16760416.667 1875.000 3958.333                   C           -1   -1   -1   -1   -1   -1               A     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5SM1187I51355975365 6            6041.66746458.333  104.16733437.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5SM118ENZ1355975370 6           28437.50046458.333  104.16733541.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5SM1197MK1355975394 5  0    B   28750.00048125.000 1666.667 6354.167                               -1   -1   -1   -1   -1   -1               C     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM11ADMH1355975418 8  0    D    6562.50056666.667 1875.000 7083.333    E              C           -1   -1   -1   -1   -1   -1               F     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11B0OO1355975434 8  0    G    6562.50064583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               H     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11B96J1355975440 8  0    I    6562.50072500.000 1875.000 7083.333    J              C           -1   -1   -1   -1   -1   -1               K     0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11DVYJ1355975507 5  0    L    4270.83360416.667 1666.667 2916.667                               -1   -1   -1   -1   -1   -1               M     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM11E6GV1355975512 5  0    N    4270.83366354.167 1666.667 5000.000                               -1   -1   -1   -1   -1   -1               O     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11EJA31355975522 5  0    P    4270.83374895.833 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               Q     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11KO2M1355975674 8  0    R   28750.00056666.667 1875.000 7083.333    S              C           -1   -1   -1   -1   -1   -1               T     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11KO2N1355975674 8  0    U   28750.00064583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               V     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11KO2O1355975674 8  0    W   28750.00072500.000 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM11XIEK1355976000 5  0    Y   32187.50016770.833 1666.667 9062.500                               -1   -1   -1   -1   -1   -1               Z     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM11XRXO1355976001 5  0    [   32187.50029895.833 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               \     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11Y2GH1355976008 5  0    ]   32187.50042916.667 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               ^     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11YBPM1355976014 5  0    _   32187.50056041.667 1666.667 8645.833                               -1   -1   -1   -1   -1   -1               `     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11YLH21355976020 5  0    a   32187.50067187.500 1666.66712291.667                               -1   -1   -1   -1   -1   -1               b     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS081355976050 5  0    c   34583.33315312.500 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               d     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS091355976050 5  0    e   34583.33328333.333 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               f     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS0A1355976050 5  0    g   34583.33341354.167 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               h     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM11ZS0B1355976050 5  0    i   34583.33354270.833 1666.667 5729.167                               -1   -1   -1   -1   -1   -1               j     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM120UV01355976084 8  0    k   34479.16721666.667 1875.000 5520.833                   C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM121R4L1355976100 8  0    m   34479.16734791.667 1875.000 5520.833                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM1226NB1355976110 8  0    o   34479.16747812.500 1875.000 5520.833                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM122IIT1355976118 8  0    q   34479.16760833.333 1875.000 5520.833                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5SM12330J1355976138 5  0    s   36770.83315937.500 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               t     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM123CJA1355976139 5  0    u   36770.83320312.500 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               v     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123MMX1355976146 5  0    w   36770.83325312.500 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               x     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123VVK1355976152 5  0    y   36770.83328750.000 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               z     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM123VVL1355976152 5  0    {   36770.83333437.500 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               |     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM123VVM1355976152 5  0    }   36770.83338437.500 1666.667 2083.333                               -1   -1   -1   -1   -1   -1               ~     0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1241LR1355976156 5  0       36770.83341458.333 1666.667 1979.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1241LS1355976156 5  0       36770.83346145.833 1666.667 1770.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1241LT1355976156 5  0       36770.83351145.833 1666.667 2083.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1247DN1355976161 5  0       36770.83354479.167 1666.667 1979.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5SM1247DO1355976161 5  0       36770.83359166.667 1666.667 1770.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM1247DP1355976161 5  0       36770.83364166.667 1666.667 2083.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ES91355976166 5  0       36770.83367395.833 1666.667 1458.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ESA1355976166 5  0       36770.83371250.000 1666.667 2083.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SM124ESB1355976166 5  0       36770.83376562.500 1666.667 2812.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5SN0KNJ321356025030 8  0       41354.167 2500.000 1875.000 5312.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT3 0F         WINDOWS _5SN0LBXMB1356025637 8  0       41354.167 7916.667 1875.000 6666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         0       0 1  0FTT3 0F         WINDOWS _5SN0LRVPY1356026161 8  0       41354.16715208.333 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5SN0LT11P1356026190 8  0       41354.16767291.667 1875.000 1770.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5SN0MGSFM1356026780 8  0       41354.16769583.333 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5SN0MH7NC1356026792 8  0       41354.16773854.167 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5SN0MK27D1356026862 8  0       48125.00067395.833 1875.000 1666.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTF0 0F         WINDOWS _5SN0MK27E1356026862 8  0       48125.00069583.333 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTF0 0F         WINDOWS _5SN0MK27F1356026862 8  0       48125.00073854.167 1875.000 5625.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTF0 0F         WINDOWS _5SN0MKYO61356026885 7  4        47500.00055625.000 3020.83324375.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG18JL3E1381148125 8  0       41354.16719479.167 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18K46C1381148139 8  0       41354.16723750.000 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18KW3M1381148157 8  0       41354.16728333.333 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18KW3N1381148157 8  0       41354.16732604.167 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18KW3O1381148157 8  0       41354.16736875.000 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18LO341381148178 8  0       41354.16741250.000 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18LO351381148178 8  0       41354.16745520.833 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18LO361381148178 8  0       41354.16749791.667 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18MCCR1381148195 8  0       41354.16754270.833 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18MCCS1381148195 8  0       41354.16758541.667 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18MCCT1381148195 8  0       41354.16762812.500 1875.000 3854.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F        WINDOWS _5ZG18P09K1381148261 6           39791.66714791.667 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG191Y7S1381148711 5  0        4270.83350729.167 1666.667 3750.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG195HTZ1381148800 8  0        8333.33356666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195HU01381148800 8  0        8333.33364583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195HU11381148800 8  0        8333.33372500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195N8Z1381148804 8  0       10104.16756666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195N901381148804 8  0       10104.16764583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195N911381148804 8  0       10104.16772500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195S5X1381148807 8  0       11875.00056666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195S5Y1381148807 8  0       11875.00064583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195S5Z1381148807 8  0       11875.00072500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195W7H1381148809 8  0       13645.83356666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195W7I1381148809 8  0       13645.83364583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG195W7J1381148809 8  0       13645.83372500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG19617R1381148813 8  0       15416.66756666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG19617S1381148813 8  0       15416.66764583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG19617T1381148813 8  0       15416.66772500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG1966NV1381148816 8  0       17187.50056666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG1966NW1381148816 8  0       17187.50064583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG1966NX1381148816 8  0       17187.50072500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196AN71381148819 8  0       18958.33356666.667 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196AN81381148819 8  0       18958.33364583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196AN91381148819 8  0       18958.33372500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196E8X1381148821 8  0      20729.16756666.667 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196E8Y1381148821 8  0      20729.16764583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196E8Z1381148821 8  0      20729.16772500.000 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1               	    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196HSP1381148823 8  0    
  22500.00056666.667 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196HSQ1381148823 8  0    
  22500.00064583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196HSR1381148823 8  0      22500.00072500.000 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196LE51381148826 8  0      24270.83356666.667 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196LE61381148826 8  0      24270.83364583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196LE71381148826 8  0      24270.83372500.000 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196PFO1381148828 8  0      26041.66756666.667 1875.000 7083.333                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196PFP1381148828 8  0      26041.66764583.333 1875.000 7083.333                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG196PFQ1381148828 8  0      26041.66772500.000 1875.000 7083.333                  C           -1   -1   -1   -1   -1   -1               !    0 10  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5ZG19ETXI1381149032 5  0    "  10208.33351458.333 1666.667 3020.833                               -1   -1   -1   -1   -1   -1               #    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19F2PW1381149038 5  0    $  11979.16751770.833 1666.667 2708.333                               -1   -1   -1   -1   -1   -1               %    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19FBS01381149043 5  0    &  13750.00052291.667 1666.667 2187.500                               -1   -1   -1   -1   -1   -1               '    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19FJT61381149049 5  0    (  15520.83352083.333 1666.667 2395.833                               -1   -1   -1   -1   -1   -1               )    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19FRHA1381149056 5  0    *  17291.66752500.000 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               +    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG19Q3HT1381149313 5  0    ,  48125.00056562.500 1666.667 9687.500                               -1   -1   -1   -1   -1   -1               -    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5ZG1ADXD91381149905 6           39791.66727916.667 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AEUNB1381149928 6           39791.66740937.500 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AF12P1381149932 6           39791.66753958.333 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AF8871381149937 6           39791.66766979.167 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AFFA31381149941 6           39791.66779895.833 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AFNKZ1381149947 6           39791.667 2187.500 3541.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1AVTNA1381150350 6           47500.000 2604.167  104.16777500.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5ZG1B8SG31381150801 6            4166.66755625.00026666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1B94N91381150808 6            4166.66764166.66726666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1B9ATR1381150812 6            4166.66772083.33326666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BBFUT1381150866 6           31875.00014791.667 7083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BBN151381150871 6           31875.00027916.667 7083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BBYMD1381150881 6           31875.00040937.500 7083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BC6G11381150886 6           31875.00053958.333 7083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BCFHL1381150891 6           31875.00066979.167 7083.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _5ZG1BRJVE1381151268 8  0    .  11875.000 4270.833 1875.00029375.000                   C           -1   -1   -1   -1   -1   -1               /    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F0       WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   1    0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   2    1 12                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                   3    0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   4    1 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   5    0 10                                                     F               WINDOWS                     25   6  7                                                       F                                                                                                                      F                m   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         $myarbeitszeit.aktivermonat.value = 8                          $myarbeitszeit.aktivermonat.value = 9                          %myarbeitszeit.aktivermonat.value = 10                         %myarbeitszeit.aktivermonat.value = 11                         %myarbeitszeit.aktivermonat.value = 12                         $myarbeitszeit.aktivermonat.value = 2                          $myarbeitszeit.aktivermonat.value = 1                          "Januar"                                                      Arial                                                         	"Februar"                                                     Arial                                                         "August"                                                      Arial                                                         "September"                                                   Arial                                                         	"Oktober"                                                     Arial                                                         
"November"                                                    Arial                                                         
"Dezember"                                                    Arial                                                         $myarbeitszeit.aktivermonat.value = 3                          $myarbeitszeit.aktivermonat.value = 4                          $myarbeitszeit.aktivermonat.value = 5                          $myarbeitszeit.aktivermonat.value = 6                          $myarbeitszeit.aktivermonat.value = 7                          recno("lohntabelle") % 2 = 0                                  alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         \"Arbeitszeiten im " + getmonatsname(myarbeitszeit.aktivermonat.value,1) + " " + welchesjahrc                                  Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         welchesjahrc                                                  Arial                                                         "S u m m e"                                                   Arial                                                         myarbeitszeit.text5.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text6.value                                     Arial                                                         myarbeitszeit.text7.value                                     "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         myarbeitszeit.text41.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text42.value                                    Arial                                                         myarbeitszeit.text43.value                                    Arial                                                         "1. E i n s a t z "                                           Arial                                                         "2. E i n s a t z"                                            Arial                                                         "3. E i n s a t z"                                            Arial                                                         "4. E i n s a t z"                                            Arial                                                         "Q U E R S U M M E"                                           Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         myarbeitszeit.satz1.value                                     Arial                                                         myarbeitszeit.satz2.value                                     Arial                                                         myarbeitszeit.satz3.value                                     Arial                                                         myarbeitszeit.satz4.value                                     Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "Tg"                                                          Arial                                                         "Std"                                                         Arial                                                         "EUR"                                                         Arial                                                         lohntabelle.nrdestag                                          Arial Narrow                                                  lohntabelle.tagesname                                         Arial Narrow                                                  lohntabelle.von1                                              Arial Narrow                                                  .not. empty(lohntabelle.von1)                                 lohntabelle.tage                                              Arial Narrow                                                  .not. empty(lohntabelle.tage)                                 lohntabelle.stunden                                           Arial Narrow                                                   .not. empty(lohntabelle.stunden)                              lohntabelle.verdienst                                         Arial Narrow                                                  ".not. empty(lohntabelle.verdienst)                            myarbeitszeit.anztage.value                                   Arial Narrow                                                  myarbeitszeit.anzstunden.value                                Arial Narrow                                                   myarbeitszeit.gesverdienst.value                              Arial Narrow                                                  lohntabelle.bis1                                              Arial Narrow                                                  .not. empty(lohntabelle.bis1)                                 lohntabelle.dauer1                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer1)                               lohntabelle.von2                                              Arial Narrow                                                  .not. empty(lohntabelle.von2)                                 lohntabelle.bis2                                              Arial Narrow                                                  .not. empty(lohntabelle.bis2)                                 lohntabelle.dauer2                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer2)                               lohntabelle.von3                                              Arial Narrow                                                  .not. empty(lohntabelle.von3)                                 lohntabelle.bis3                                              Arial Narrow                                                  .not. empty(lohntabelle.bis3)                                 lohntabelle.dauer3                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer3)                               lohntabelle.von4                                              Arial Narrow                                                  .not. empty(lohntabelle.von4)                                 lohntabelle.bis4                                              Arial Narrow                                                  .not. empty(lohntabelle.bis4)                                 lohntabelle.dauer4                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer4)                               "Monat"                                                       Arial                                                         myarbeitszeit.text8.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text9.value                                     Arial                                                         myarbeitszeit.text10.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text11.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text12.value                                    Arial                                                         myarbeitszeit.text13.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text14.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text15.value                                    Arial                                                         myarbeitszeit.text16.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text17.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text18.value                                    Arial                                                         myarbeitszeit.text19.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text20.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text21.value                                    Arial                                                         myarbeitszeit.text22.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text23.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text24.value                                    Arial                                                         myarbeitszeit.text25.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text26.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text27.value                                    Arial                                                         myarbeitszeit.text28.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text29.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text30.value                                    Arial                                                         myarbeitszeit.text31.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text32.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text33.value                                    Arial                                                         myarbeitszeit.text34.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text35.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text36.value                                    Arial                                                         myarbeitszeit.text37.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text38.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text39.value                                    Arial                                                         myarbeitszeit.text40.value                                    "999999.99"                                                   Arial                                                         "Mrz"                                                        Arial                                                         "April"                                                       Arial                                                         "Mai"                                                         Arial                                                         "Juni"                                                        Arial                                                         "Juli"                                                        Arial                                                         "Monatssummen"                                                Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Arial                                                         $myarbeitszeit.aktivermonat.value = 8                          $myarbeitszeit.aktivermonat.value = 9                          %myarbeitszeit.aktivermonat.value = 10                         %myarbeitszeit.aktivermonat.value = 11                         %myarbeitszeit.aktivermonat.value = 12                         $myarbeitszeit.aktivermonat.value = 2                          $myarbeitszeit.aktivermonat.value = 1                          "Januar"                                                      Arial                                                         	"Februar"                                                     Arial                                                         "August"                                                      Arial                                                         "September"                                                   Arial                                                         	"Oktober"                                                     Arial                                                         
"November"                                                    Arial                                                         
"Dezember"                                                    Arial                                                         $myarbeitszeit.aktivermonat.value = 3                          $myarbeitszeit.aktivermonat.value = 4                          $myarbeitszeit.aktivermonat.value = 5                          $myarbeitszeit.aktivermonat.value = 6                          $myarbeitszeit.aktivermonat.value = 7                          recno("lohntabelle") % 2 = 0                                  alltrim(ditext4)                                              Arial                                                         alltrim(ditext8)                                              Arial                                                         alltrim(ditext9)                                              Arial                                                         \"Arbeitszeiten im " + getmonatsname(myarbeitszeit.aktivermonat.value,1) + " " + welchesjahrc                                  Arial                                                         !"erstellt am " + alltrim(ditext6)                             Arial                                                         .not. alltrim(ditext6) = ""                                   CallTrim(ditext4) + ", " + allTrim(ditext8) + ", "+ allTrim(ditext9)                                                           Arial Narrow                                                  alltrim(myform1.z0.Caption)                                   Arial                                                         alltrim(wnw.ztext5)                                           Arial                                                         alltrim(wnw.ztext6)                                           Arial                                                         "Beschftigung im Jahr "                                      Arial                                                         welchesjahrc                                                  Arial                                                         "S u m m e"                                                   Arial                                                         myarbeitszeit.text5.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text6.value                                     Arial                                                         myarbeitszeit.text7.value                                     "999999.99"                                                   Arial                                                         "Tage"                                                        Arial                                                         	"Stunden"                                                     Arial                                                         	"Entgelt"                                                     Arial                                                         myarbeitszeit.text41.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text42.value                                    Arial                                                         myarbeitszeit.text43.value                                    Arial                                                         >"Die Berechnung dient der Information und ergeht ohne Gewhr."                                                                Arial                                                         "1. E i n s a t z "                                           Arial                                                         "2. E i n s a t z"                                            Arial                                                         "3. E i n s a t z"                                            Arial                                                         "4. E i n s a t z"                                            Arial                                                         "Q U E R S U M M E"                                           Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         "Std. Satz"                                                   Arial                                                         myarbeitszeit.satz1.value                                     Arial                                                         myarbeitszeit.satz2.value                                     Arial                                                         myarbeitszeit.satz3.value                                     Arial                                                         myarbeitszeit.satz4.value                                     Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "Std"                                                         Arial                                                         "Tg"                                                          Arial                                                         "Std"                                                         Arial                                                         "EUR"                                                         Arial                                                         lohntabelle.nrdestag                                          Arial Narrow                                                  lohntabelle.tagesname                                         Arial Narrow                                                  lohntabelle.von1                                              Arial Narrow                                                  .not. empty(lohntabelle.von1)                                 lohntabelle.tage                                              Arial Narrow                                                  .not. empty(lohntabelle.tage)                                 lohntabelle.stunden                                           Arial Narrow                                                   .not. empty(lohntabelle.stunden)                              lohntabelle.verdienst                                         Arial Narrow                                                  ".not. empty(lohntabelle.verdienst)                            myarbeitszeit.anztage.value                                   Arial Narrow                                                  myarbeitszeit.anzstunden.value                                Arial Narrow                                                   myarbeitszeit.gesverdienst.value                              Arial Narrow                                                  lohntabelle.bis1                                              Arial Narrow                                                  .not. empty(lohntabelle.bis1)                                 lohntabelle.dauer1                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer1)                               lohntabelle.von2                                              Arial Narrow                                                  .not. empty(lohntabelle.von2)                                 lohntabelle.bis2                                              Arial Narrow                                                  .not. empty(lohntabelle.bis2)                                 lohntabelle.dauer2                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer2)                               lohntabelle.von3                                              Arial Narrow                                                  .not. empty(lohntabelle.von3)                                 lohntabelle.bis3                                              Arial Narrow                                                  .not. empty(lohntabelle.bis3)                                 lohntabelle.dauer3                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer3)                               lohntabelle.von4                                              Arial Narrow                                                  .not. empty(lohntabelle.von4)                                 lohntabelle.bis4                                              Arial Narrow                                                  .not. empty(lohntabelle.bis4)                                 lohntabelle.dauer4                                            Arial Narrow                                                  .not. empty(lohntabelle.dauer4)                               "Monat"                                                       Arial                                                         myarbeitszeit.text8.value                                     "99999"                                                       Arial                                                         myarbeitszeit.text9.value                                     Arial                                                         myarbeitszeit.text10.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text11.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text12.value                                    Arial                                                         myarbeitszeit.text13.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text14.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text15.value                                    Arial                                                         myarbeitszeit.text16.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text17.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text18.value                                    Arial                                                         myarbeitszeit.text19.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text20.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text21.value                                    Arial                                                         myarbeitszeit.text22.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text23.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text24.value                                    Arial                                                         myarbeitszeit.text25.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text26.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text27.value                                    Arial                                                         myarbeitszeit.text28.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text29.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text30.value                                    Arial                                                         myarbeitszeit.text31.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text32.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text33.value                                    Arial                                                         myarbeitszeit.text34.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text35.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text36.value                                    Arial                                                         myarbeitszeit.text37.value                                    "999999.99"                                                   Arial                                                         myarbeitszeit.text38.value                                    "99999"                                                       Arial                                                         myarbeitszeit.text39.value                                    Arial                                                         myarbeitszeit.text40.value                                    "999999.99"                                                   Arial                                                         "Mrz"                                                        Arial                                                         "April"                                                       Arial                                                         "Mai"                                                         Arial                                                         "Juni"                                                        Arial                                                         "Juli"                                                        Arial                                                         "Monatssummen"                                                Arial                                                         "erstellt am " + dtoc(date())                                 Arial                                                         alltrim(ditext6) = ""                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                   0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5ZL0KU31V1381453160      /  F      ]                                                       WINDOWS _5ZL0KU31W1432049395                      i
                                               WINDOWS _5ZL0KU31X1381454864*      9  H  U  b        J                                               WINDOWS _5ZL0KU31Y1381453160l      y                                                                 WINDOWS _5ZL0KU31Z1381453160      	    $  1                                                           WINDOWS _5ZL0KU3201381453160                                                                       WINDOWS _5ZL0KU3211381453160      3  H  X  e                                                       WINDOWS _5ZL0KU3221432049395                  v  0                                               WINDOWS _6850W0CAX1402763010i@  y@  @  @  @  @                                                           COMMENT RESERVED                                PA                                                            Ay                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 2
Height = 162
Width = 368
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Zeilentext anpassen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     	PROCEDURE Init
PARAMETERS altertext
WITH thisform
textindex = zti
.text1.value = altertext
.label1.caption = ""
.label2.caption = ""
.label3.caption = ""
Do Case && zti
	Case zti = 0 &&, 4, 2
		.label1.Caption = "Name des Beschftigten"
	Case zti = 3 &&, 4, 2
		.label1.Caption = zt3(1+zi(1+0))

	Case zti = 6 &&, 4, 2
		.label1.Caption = "Dienstbezeichnung auf Zeile 5"

	Case (zti >= 12 .And. zti <= 14)&&16
		Do Case && zti
			Case zti = 12
				.label1.Caption = "Zulage auf Zeile 13"
			Case zti = 13
				.label1.Caption = "Zulage auf Zeile 14"
			Case zti = 14
				.label1.Caption = "Zulage auf Zeile 15"
		Endcase
	Case zti = 19
		.label1.Caption = "Einmaliger Bezug auf Zeile 20"
	Case zti = 24
		.label1.Caption = "Sachbezug auf Zeile 25"
	Case zti = 27
		.label1.Caption = "Kostenstelle auf Zeile 28"
	Case zti = 47
		.label1.Caption = "Sachbezug auf Zeile 26"
	Case zti = 42
		.label1.Caption = "Einbehalt auf Zeile 44"
	Case zti = 43
		.label1.Caption = "Einbehalt auf Zeile 45"
	Case zti = 44
		.label1.Caption = "Einbehalt auf Zeile 46"
Endcase
If zti = 27
	If zi(1+27) = 0
		Messagebox( 'Die Bezeichnung "Keine Kostenstelle"' + Chr(13) + "kann nicht gendert werden.", 0, "Geschtze Bezeichnung")
		Return
	Endif
Else
	If zti > 0
		zi(1+zti) = 0
	Endif
Endif

*!*			Do Case && zti
*!*				Case zti = 0
*!*					&&If .zgrid.Visible Then
*!*					&&   .Label3.Caption = "ndert den Namen auf Position " + .zgrid.Row + 2 + " der Liste."
*!*					&&Else
*!*					.Label3.Caption = "ndert den Namen auf Position " + zi(1+0) + 1 + " der Liste."
*!*					&&End If

*!*				Case  Inlist(zti, 6, 12, 13, 14, 19, 24, 42, 43, 44, 47)
*!*					.Label3.Caption = "ndert den Eintrag auf der 1. Position der Liste mit Wirkung fr das restliche Jahr." + chr(13) + "Der bisherige Betrag bleibt stehen. Er ist fr diese Zulage manuell zu ndern."
*!*				Case zti = 27
*!*					If .kcombo.zgrid.Visible
*!*						.Label3.Caption = "ndert die Kostenstelle auf Position " + .kcombo.zgrid.Row + 2 + " der Liste."
*!*					Else
*!*						.Label3.Caption = "ndert die Kostenstelle auf Position " + zi(1+27) + 1 + " der Liste."
*!*					Endif
*!*			Endcase
ENDWITH


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   Z   %         G  ;               U   4  
  P
 T   T     T     T     T	    
 Hr v    ' T   Name des Beschftigten    T  CC 
   . T   Dienstbezeichnung auf Zeile 5    	
 HA  v$ T   Zulage auf Zeile 13  
$ T   Zulage auf Zeile 14  $ T   Zulage auf Zeile 15   #. T   Einmaliger Bezug auf Zeile 20  [' T   Sachbezug auf Zeile 25  * T   Kostenstelle auf Zeile 28  /' T   Sachbezug auf Zeile 26  *' T   Einbehalt auf Zeile 44  +>' T   Einbehalt auf Zeile 45  ,v' T   Einbehalt auf Zeile 46  %  %C  p C$ Die Bezeichnung "Keine Kostenstelle"C
  kann nicht gendert werden.  Geschtze Bezeichnungx B  L %  H T      
   
  T      T     
    T  a U 	 ALTERTEXT THISFORM	 TEXTINDEX ZTI TEXT1 VALUE LABEL1 CAPTION LABEL2 LABEL3 ZT3 ZI SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 q    q AAAA qqqqqA QA A  qA A  A  rq  2 1                       ^	     9   {	  	  Q    )                           textbox      textbox      Text1      FORM1      OHeight = 25
Left = 11
MaxLength = 35
Top = 30
Width = 346
Name = "Text1"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	thisform.command2.Click &&speichern
ENDIF
return
ENDPROC
                                   ]   %                             U  4      %  
) 
      B U  NKEYCODE
 NSHIFTALTCTRL THISFORM COMMAND2 CLICK KeyPress,     1   A A 1                       ~       )                           label      label      Label1      FORM1      SCaption = "Label1"
Height = 22
Left = 11
Top = 3
Width = 346
Name = "Label1"
      label      label      Label2      FORM1      TCaption = "label2"
Height = 22
Left = 11
Top = 59
Width = 346
Name = "Label2"
      label      label      Label3      FORM1      TCaption = "Label3"
Height = 22
Left = 11
Top = 82
Width = 346
Name = "Label3"
      
commandbutton      
commandbutton      Command1      FORM1      ZTop = 120
Left = 73
Height = 25
Width = 106
Caption = "abbrechen"
Name = "Command1"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      Command2      FORM1      [Top = 120
Left = 189
Height = 25
Width = 106
Caption = "speichern"
Name = "Command2"
      PROCEDURE Click
fileneu = myform1.tdbnumber1.Value  &&22.09.2022 Finger
myget(13, fileneu,"wnw") &&22.09.2022 Finger

With thisform

	Do Case && textindex
		Case textindex = 0
			zt0(1+zi(1+0)) = .Text1.Value
			myform1.z0.Caption = .Text1.Value

*!*				hswnwcheck = eigdat + muser + "\wnwcheck.pcg"
*!*				IF FILE("&hswnwcheck")			
*!*					SELECT 13	
*!*					hsdbf = ALIAS()
*!*					replace &hsdbf..namensfeld WITH .Text1.Value	
*!*					FLUSH in 13	
*!*				ENDIF			

			wnw.personalfall = zt0(1+zi(1+0))
			testpersonalfall = wnw.personalfall
			
			myput(13, fileneu,"wnw")
			
			myclose(86) &&Do attached

			If Not modus = 0
				myopen(eigdat + muser + "\G" + welchesjahrc + "i13", 86,"wnw")
				myget(86, fileneu,"wnw")
				wnw.personalfall = zt0(1+zi(1+0))
				myput(86, fileneu,"wnw")
				myclose(86) &&Do attached
			Endif

			If Not modus = 1
				myopen(eigdat + muser + "\G" + welchesjahrc + "p13", 86,"wnw")
				myget(86, fileneu,"wnw")
				wnw.personalfall = zt0(1+zi(1+0))
				myput(86, fileneu,"wnw")
				myclose(86) &&Do attached
			Endif

			If Not modus = 2
				myopen(eigdat + muser + "\G" + welchesjahrc + "r13", 86,"wnw")
				myget(86, fileneu,"wnw")
				wnw.personalfall = zt0(1+zi(1+0))
				myput(86, fileneu,"wnw")
				myclose(86) &&Do attached
			Endif
 
			fileneu = zi(1+0) + 1
			spin1 = fileneu
			myform1.tdbnumber1.Value = fileneu

			&&Case 1
			&&Case 2
		Case textindex = 3
			zt3(1+0) = .Text1.Value
			myform1.z3.Caption = .Text1.Value
			zi(1+3) = 0
			zt3(1+0) = .Text1.Value
			&&Get #13, fileneu, wnw
			&&wnw.ztext33 = .Text1
			&&Put #13, fileneu, wnw
			wvw.Zulagen(1+1) = .Text1.Value
		*	myput(13, fileneu,"wnw") &&13.10.2022 rausgenommen
			myput(Monat, fileneu,"wvw") &&13.10.2022 dafr das hier reingenommen
			lasttext = zt3(1+0)
			zti = 3
			Do zgridaktivieren &&Do attached
			&&Case 4
			&&Case 5
		Case textindex = 6
			If zi(1+4) = 18 .Or. zi(1+4) = 19
			Else
				zt6(1+0) = .Text1.Value
				myform1.z6.Caption = .Text1.Value
				zi(1+6) = 0
				wvw.Zulagen(1+0) = .Text1.Value
				myput(Monat, fileneu,"wvw")
				lasttext = zt6(1+0)
				zti = 6
				Do zgridaktivieren &&Do attached
			Endif
			&&Case 7
			&&Case 8
			&&Case 9
			&&Case 10
			&&Case 11
		Case textindex = 12
			zt12(1+0) = .Text1.Value
			myform1.z12.Caption = .Text1.Value
			zi(1+12) = 0
			zt12(1+0) = .Text1.Value
			wvw.Zulagen(1+2) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt12(1+0)
			zti = 12
			Do zgridaktivieren &&Do attached
		Case textindex = 13
			zt13(1+0) = .Text1.Value
			myform1.z13.Caption = .Text1.Value
			zi(1+13) = 0
			zt13(1+0) = .Text1.Value
			wvw.Zulagen(1+3) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt13(1+0)
			zti = 13
			Do zgridaktivieren &&Do attached

		Case textindex = 14
			zt14(1+0) = .Text1.Value
			myform1.z14.Caption = .Text1.Value
			zi(1+14) = 0
			zt14(1+0) = .Text1.Value
			wvw.Zulagen(1+4) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt14(1+0)
			zti = 14
			Do zgridaktivieren &&Do attached

		Case textindex = 19
			zt19(1+0) = .Text1.Value
			myform1.z19.Caption = .Text1.Value
			zi(1+19) = 0
			zt19(1+0) = .Text1.Value
			wvw.Zulagen(1+5) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt19(1+0)
			zti = 19
			Do zgridaktivieren &&Do attached

		Case textindex = 24
			zt24(1+0) = .Text1.Value
			myform1.z24.Caption = .Text1.Value
			zi(1+24) = 0
			zt24(1+0) = .Text1.Value
			wvw.Zulagen(1+6) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt24(1+0)
			zti = 24
			Do zgridaktivieren &&Do attached

			&&Case 25
			&&Case 26
		Case textindex = 27
			&&If zi(1+27) = 0 Then
			&&   MsgBox "Die erste Position der Liste (Keine Kostenstelle)" + chr(13) + "kann nicht verndert werden.", 0, "Sorry, geschtzter Datensatz"
			&&   Exit Sub
			&&End If
			If empty(.Text1.Value) &&= ""
				.Text1.Value = "Kostenstelle_" + ALLTRIM(STR(zi(1+27) + 1,10,0))
			Endif

			zt27(1+zi(1+27)) = .Text1.Value
			myform1.z27.Caption = .Text1.Value
			woerter.textee = .Text1.Value
			myput(20, 4800 + zi(1+27),"woerter")
			&&lastclick = 100 + textindex
			&&lastz = zi(1+textindex)
			&&berechnungauslsen

		Case textindex = 42
			zt42(1+0) = .Text1.Value
			myform1.z42.Caption = .Text1.Value
			zi(1+42) = 0
			zt42(1+0) = .Text1.Value
			wvw.Zulagen(1+7) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt42(1+0)
			zti = 42
			Do zgridaktivieren &&Do attached

		Case textindex = 43
			zt43(1+0) = .Text1.Value
			myform1.z43.Caption = .Text1.Value
			zi(1+43) = 0
			zt43(1+0) = .Text1.Value
			wvw.Zulagen(1+8) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt43(1+0)
			zti = 43
			Do zgridaktivieren &&Do attached

		Case textindex = 44
			zt44(1+0) = .Text1.Value
			myform1.z44.Caption = .Text1.Value
			zi(1+44) = 0
			zt44(1+0) = .Text1.Value
			wvw.Zulagen(1+9) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt44(1+0)
			zti = 44
			Do zgridaktivieren &&Do attached

		Case textindex = 47
			zt47(1+0) = .Text1.Value
			myform1.z47.Caption = .Text1.Value
			zi(1+47) = 0
			zt47(1+0) = .Text1.Value
			wvw.Zulagen(1+10) = .Text1.Value
			myput(Monat, fileneu,"wvw")
			lasttext = zt47(1+0)
			zti = 47
			Do zgridaktivieren &&Do attached
	Endcase

	&&If popuphelp = 1 Then .zzti.ToolTipText = tooltiptextres
&&	.Eingabefeld.Visible = False
	&&.zzti.SetFocus
Endwith


myform1.Tastenstand.Caption = ""
tastenummer = 0

Thisform.Release
ENDPROC
                                      %         a                 U  / T      C
    wnw 
  
 HD     T C 	   T 
  	   T 
 CC   T  
  C
    wnw 
 CV  %  
o+ C   \G  i13V wnw  CV    wnw  T 
 CC   CV    wnw 
 CV   % 
+ C   \G  p13V wnw  CV    wnw  T 
 CC   CV    wnw 
 CV   % 
+ C   \G  r13V wnw  CV    wnw  T 
 CC   CV    wnw 
 CV   T  C 
 T    T        T 	   T   	   T   T 	   T  	   C      wvw  T C 
 T     q$ %C  C  m T 	   T    	   T   T  	   C      wvw  T C 
 T      1 T! 	   T "  	   T 
  T! 	   T  	   C      wvw  T C! 
 T     
 T# 	   T $  	   T   T# 	   T  	   C      wvw  T C# 
 T 
     T% 	   T &  	   T   T% 	   T  	   C      wvw  T C% 
 T     q T' 	   T (  	   T   T' 	   T  	   C      wvw  T C' 
 T     1 T) 	   T *  	   T   T) 	   T  	   C      wvw  T C) 
 T      %C	  4 T	  
 Kostenstelle_CCC 
 Z  T+ C 	   T ,  	   T- . 	  # CC  woerter   *	 T/ 	   T 0  	   T +  T/ 	   T  	   C      wvw  T C/ 
 T *    +z
 T1 	   T 2  	   T ,  T1 	   T  		   C      wvw  T C1 
 T +    ,: T3 	   T 4  	   T -  T3 	   T  
	   C      wvw  T C3 
 T ,    / T5 	   T 6  	   T 0  T5 	   T  	   C      wvw  T C5 
 T /     T 7    
 T8  
  9  U:  FILENEU MYFORM1
 TDBNUMBER1 VALUE MYGET THISFORM	 TEXTINDEX ZT0 ZI TEXT1 Z0 CAPTION WNW PERSONALFALL TESTPERSONALFALL MYPUT MYCLOSE MODUS MYOPEN EIGDAT MUSER WELCHESJAHRC SPIN1 ZT3 Z3 WVW ZULAGEN MONAT LASTTEXT ZTI ZGRIDAKTIVIEREN ZT6 Z6 ZT12 Z12 ZT13 Z13 ZT14 Z14 ZT19 Z19 ZT24 Z24 ZT27 Z27 WOERTER TEXTEE ZT42 Z42 ZT43 Z43 ZT44 Z44 ZT47 Z47 TASTENSTAND TASTENUMMER RELEASE Click,     1 1q  qr "qq A "qq A "qq A R 1qq1q q A qq1 q A qq1q q qq1q q qq1q q qq1q q qq1q q 5AA qA1qq1q q qq1q q qq1q q qq1q q A E 3  1                             )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 141
Left = 348
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5ZM0URC9Z1397445190      /  F      ]                                                   WINDOWS _5ZM0URCA11430476354                    ?  	                                               WINDOWS _6150VRG1G1402965385C
      R
  a
  u
  
                                                           WINDOWS _5ZM0URC9Z1402965385
      
      )                                                           WINDOWS _5ZM0URCA01385460396_      m  {                                                               WINDOWS _5ZM0URCA11385460779            '                                                           WINDOWS _5ZM0URCA21385460396                                                                       WINDOWS _5ZM0URCA31385461285      '  6  C  f                                                       WINDOWS _5ZM0URCA41385462519                  B                                                 WINDOWS _5ZM0URCA51385460779            '                                                           WINDOWS _5ZM0URCAD1418419828                  B                                                 WINDOWS _5ZM0URCAE1418419852                                                                   WINDOWS _6841A9KIE1402965385"  2  R  a  n  {                                                           COMMENT RESERVED                                                                                            A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 212
Left = 384
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
*myOpen(eigdatfix + "\gehalt21sr", 200, "userdaten") &&15.sr
hssrdatei = eigdatfix + "\gehalt"+SUBSTR(xjahr4,3,2)+"sr"
USE "&hssrdatei" IN 200 ALIAS gehalt21sr

ENDPROC
     +                              @   %                             U  Y * T    \gehaltC \ sr, USE "&hssrdatei" IN 200 ALIAS gehalt21sr
 U 	 HSSRDATEI	 EIGDATFIX XJAHR4 BeforeOpenTables,     1 2                              )                           1      1      form      form      FORM1     5BorderStyle = 3
Height = 580
Width = 824
ShowWindow = 1
ScrollBars = 0
DoCreate = .T.
BufferMode = 0
AutoCenter = .T.
Caption = "Dateipfade und User"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     vPROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdgehalt21sr.column1.text1.FontSize = thisform.grdgehalt21sr.column1.FontSize
thisform.grdgehalt21sr.column2.text1.FontSize = thisform.grdgehalt21sr.column1.FontSize
thisform.grdgehalt21sr.column3.text1.FontSize = thisform.grdgehalt21sr.column1.FontSize
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif

SELECT gehalt21sr
SET FILTER TO RECNO() < 101 .or. RECNO() > 109
GO top


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Unload
RETURN thisform.Tag
ENDPROC
     ~    e  e                           %                          U  y  C    " T           " T           " T            U	  THISFORM SIZER	 FRMRESIZE
 GRDGEHALT21SR COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3  %    
$  T      F  G(COe
 COm #) %       T C     T  
 T  
      T         T  	   	   
   
  T   a U  THISFORM TOP
 GEHALT21SR HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  B    U  THISFORM TAG Resize,      Init      Unloadz    1 !!!2 AA r Q   A    2  1                       7        R  ;        X  k      )   e                        textbox      textbox      oldpfadvalue      FORM1      eEnabled = .F.
Height = 25
Left = 18
Top = 542
Visible = .F.
Width = 613
Name = "oldpfadvalue"
      grid      grid      
grdGehalt21sr      FORM1     .ColumnCount = 3
DeleteMark = .F.
Height = 524
Left = 12
Panel = 1
RecordSource = "gehalt21sr"
RecordSourceType = 1
Top = 9
Width = 802
Name = "grdGehalt21sr"
Column1.ControlSource = "gehalt21sr.pcg_f1"
Column1.Width = 174
Column1.ReadOnly = .T.
Column1.BackColor = 242,242,242
Column1.Name = "Column1"
Column2.ControlSource = "gehalt21sr.pcg_f2"
Column2.Width = 420
Column2.Name = "Column2"
Column3.ControlSource = "gehalt21sr.pcg_f3"
Column3.Width = 174
Column3.ReadOnly = .T.
Column3.BackColor = 242,242,242
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdGehalt21sr.Column1      $Caption = "User"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdGehalt21sr.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 242,242,242
Name = "Text1"
      header      header      Header1      FORM1.grdGehalt21sr.Column2      *Caption = "Haupt-Pfad"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdGehalt21sr.Column2      nBorderStyle = 0
Margin = 0
SelectOnEntry = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE GotFocus
thisform.oldpfadvalue.Value = this.value
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9
	IF this.Value <> thisform.oldpfadvalue.Value
		thisform.command2.Enabled = .t.
	endif
endif
ENDPROC
                                   |   %          X  
   D            U    T       U  THISFORM OLDPFADVALUE VALUE THIS]      %  
   	V  %     R  T   a   U  NKEYCODE
 NSHIFTALTCTRL THIS VALUE THISFORM OLDPFADVALUE COMMAND2 ENABLED GotFocus,      KeyPressn     1 a2  A A 1                       <         [         )                           header      header      Header1      FORM1.grdGehalt21sr.Column3      (Caption = "Passwort"
Name = "Header1"
      PROCEDURE RightClick
SET FILTER TO 

ENDPROC
PROCEDURE DblClick
SET FILTER TO RECNO() < 101 .or. RECNO() > 109
GO top
ENDPROC
                                        %   ]                          U  	  G( U     G(COe
 COm #) U  
 RightClick,      DblClick9     1 a 3 Q 1                       &         E   {       )                            textbox      textbox      Text1      FORM1.grdGehalt21sr.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 242,242,242
Name = "Text1"
      
commandbutton      
commandbutton      Command1      FORM1      [Top = 544
Left = 251
Height = 25
Width = 157
Caption = "abbrechen"
Name = "Command1"
      |PROCEDURE Click
SELECT gehalt21sr
*TABLErevert()
UNLOCK IN 200
USE
thisform.Tag = "weiter"
thisform.release
ENDPROC
     
                                   %                             U  7  F  	 Z  Q T   weiter
    U 
 GEHALT21SR THISFORM TAG RELEASE Click,     1 q  A a 1                       q       )                            
commandbutton      
commandbutton      Command2      FORM1      jTop = 544
Left = 416
Height = 25
Width = 157
Caption = "speichern"
Enabled = .T.
Name = "Command2"
      sPROCEDURE Click
SELECT gehalt21sr
flush
UNLOCK IN 200
USE

thisform.Tag = "quit"
thisform.release
ENDPROC
                                        %                             U  9  F   [	 Z  Q T   quit
    U 
 GEHALT21SR THISFORM TAG RELEASE Click,     1 q A  A B 1                       h       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 556
Left = 802
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4AN15I8141385451673      /  F      ]                                                       WINDOWS _4AN15I8151417173957                                                                     WINDOWS _4AN15I8171254663536                                                                     WINDOWS _4AN19VQN21385452130                  
                                                 WINDOWS _4XQ18F6KY1385451673        &  3  B                                                           WINDOWS _4AN15I8141411941619                                                                       WINDOWS _6150LLS3Y1385451673        (  7  \                                                           WINDOWS _6150LLS3Z1413639530                  A                                                 COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      AUSWAHL      BorderStyle = 3
Height = 605
Width = 263
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Kostenstelle auswhlen.."
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "AUSWAHL"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdKstauswahl.column1.text1.fontsize = thisform.grdKstauswahl.column1.fontsize
ENDPROC
PROCEDURE Init
PARAMETERS xausw
IF PCOUNT()=0
	xausw=0
ENDIF

SELECT kstauswahl
goto xausw+1

IF EMPTY(myform1.Kcombo.Anleitungstext.Caption)
	thisform.edit1.Value = ""
	thisform.edit1.visible = false
else
	thisform.edit1.Value = myform1.Kcombo.Anleitungstext.Caption
	thisform.edit1.visible = true
ENDIF
IF thisform.edit1.visible = false
	thisform.command1.Top = thisform.edit1.top
	thisform.height = thisform.command1.Top + thisform.command1.Height + 10
ENDIF
thisform.sizer.saveformsize
thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_b
*SET STEP ON 
thisform.resize
thisform.AutoCenter = .t.
thisform.refresh

*optiongroup wird gefllt mit function gruppen()

ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
                                   ,   %              I            U  5  C    " T            U  THISFORM SIZER	 FRMRESIZE
 GRDKSTAUSWAHL COLUMN1 TEXT1 FONTSIZEn 4   %Ct % 
 T     F 
 #   %C    {  T      T  	 
    T        T  	    %  	 
 
 T  
   
 $ T    
    
 
     T      T     
    T  a
    U  XAUSW
 KSTAUSWAHL MYFORM1 KCOMBO ANLEITUNGSTEXT CAPTION THISFORM EDIT1 VALUE VISIBLE FALSE TRUE COMMAND1 TOP HEIGHT SIZER SAVEFORMSIZE MSCREENFAKTOR_H WIDTH MSCREENFAKTOR_B RESIZE
 AUTOCENTER REFRESH  B    U  THISFORM TAG Resize,      Init      Unload    1 !2 q  A r  11 1A qAA  qq   5  1                                   x            $    )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      AUSWAHL      Top = 585
Left = 237
Width = 22
Height = 16
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      AUSWAHL      Top = 556
Left = 107
Height = 45
Width = 48
Picture = prgicons\exit.ico
Cancel = .T.
Caption = ""
ToolTipText = "abbruch"
Name = "Command1"
      hPROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(RECNO("kstauswahl") -1,2,0))
thisform.release
ENDPROC
                                         %                             U  = 0 T    I:CCC
 kstauswahlO Z
     U  THISFORM TAG RELEASE Click,     1  1                       ]       )                            editbox      editbox      Edit1      AUSWAHL      @Height = 97
Left = 13
Top = 456
Width = 236
Name = "Edit1"
      grid      grid      
grdKstauswahl      AUSWAHL     >ColumnCount = 1
DeleteMark = .F.
Height = 435
Left = 13
Panel = 1
RecordSource = "kstauswahl"
RecordSourceType = 1
ScrollBars = 2
ToolTipText = "Aushlen mir DOPPELKLICK"
Top = 14
Width = 236
Name = "grdKstauswahl"
Column1.ControlSource = "kstauswahl.feld1"
Column1.Width = 205
Column1.Name = "Column1"
      header      header      Header1      AUSWAHL.grdKstauswahl.Column1      ,Caption = "Kostenstelle"
Name = "Header1"
      textbox      textbox      Text1      AUSWAHL.grdKstauswahl.Column1      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      kPROCEDURE DblClick
thisform.Tag="I:"+ALLTRIM(STR(RECNO("kstauswahl") -1,6,0))
thisform.release
ENDPROC
                                        %                             U  = 0 T    I:CCC
 kstauswahlO Z
     U  THISFORM TAG RELEASE DblClick,     1  1                       `       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
H   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6180M9ABX1385648867      /  F      ]                                                       WINDOWS _6180M9ABY1430476221                      0	                                               WINDOWS _6180M9ABX1402232420                                                                       WINDOWS _6180O4ZWS1402232420       /  >  M  Z                                                           WINDOWS _6180OYR2N1385657399            	                                                       WINDOWS _6180V7NTZ1402232420                                                                       WINDOWS _6180V7NU014022324206      E  T  `  m                                                           WINDOWS _6180M9ABZ1385652088                                                                       WINDOWS _6180M9AC01385652088a      n  {                                                               WINDOWS _6180M9AC11385652088            '                                                           WINDOWS _6180M9AC21385652088                                                                       WINDOWS _6180M9AC31385652088      !  .  <  I                                                           WINDOWS _6180M9AC41385652088                                                                       WINDOWS _6180M9AC513856520884      A  N  \  i                                                           WINDOWS _6180M9AC61402236718                                                                    WINDOWS _6180M9AC71402236718#      #  #  #  #      t$  N'                                               WINDOWS _6180M9AC813856568102*      G*  \*  o*  |*      +  *,                                               WINDOWS _6180M9AC91385652764-      -  -  -  -      .  /                                               WINDOWS _6180M9ACA138564979211      @1  O1  ^1  k1                                                           WINDOWS _6180M9ACB13856488671      1  1  1  1                                                           WINDOWS _6180M9ACC1385648867N2      [2  h2  v2  2                                                           WINDOWS _6180M9ACD13856488672      2  2  3  3                                                           WINDOWS _6180M9ACE1385648867f3      s3  3  3  3                                                           WINDOWS _6180M9ACF13856488673       4  
4  4  (4                                                           WINDOWS _6180M9ACG13856488674      4  4  4  4                                                           WINDOWS _6180M9ACH1385648867
5      5  '5  55  B5                                                           WINDOWS _6180M9ABX14022322995      5  5  5  5      86  <7                                               WINDOWS _6180M9ABY14022322998      8  8  8  9      Z9  ^:                                               WINDOWS _6180M9ABZ1402232299;      ;  <  <  %<      |<  =                                               WINDOWS _6180M9AC01402232299 ?      ?  *?  :?  G?      ?  @                                               WINDOWS _6180M9AC11402232299#B      8B  MB  ]B  jB      B  C                                               WINDOWS _6180M9AC21402232299FE      [E  pE  E  E      E  F                                               WINDOWS _6180M9AC31402232299iH      ~H  H  H  H      I  J                                               WINDOWS _6180M9AC41402232299K      K  K  K  K      *L  .M                                               WINDOWS _6180M9AC51402232299N      N  N  N  N      LO  PP                                               WINDOWS _6180M9AC61402232299Q      Q  Q  R  R      pR  tS                                               WINDOWS _6180M9AC71402232299T      	U  U  /U  <U      U  V                                               WINDOWS _6180M9AC81402232299X      .X  CX  TX  aX      X  Y                                               WINDOWS _6180M9AC91402232299>[      S[  h[  y[  [      [  \                                               WINDOWS _6180M9ACA1402232299c^      x^  ^  ^  ^      _  `                                               WINDOWS _6180MHO6M1402232299a      a  a  a  a      (b  ,c                                               WINDOWS _6180MHO6N1402232299d      d  d  d  d      Le  Pf                                               WINDOWS _6180MHO6O1402232299g      g  g  h  h      ph  ti                                               WINDOWS _6180MHO6P1402232299j      	k  k  /k  <k      k  l                                               WINDOWS _6180MHO6Q1402232299n      .n  Cn  Tn  an      n  o                                               WINDOWS _6180MHO6R1402232299>q      Sq  hq  yq  q      q  r                                               WINDOWS _6180MHO6S1402232299ct      xt  t  t  t      u  v                                               WINDOWS _6180M9ABX1402232299w      w  w  w  w      )x  -y                                               WINDOWS _6180M9ABY1402232299z      z  z  z  z      N{  R|                                               WINDOWS _6180M9ABZ1402232299}      }  }  
~  ~      s~  w                                               WINDOWS _6180M9AC01402232299        !  2  ?                                                       WINDOWS _6180M9AC11402232299      2  G  X  e        Å                                               WINDOWS _6180M9AC21402232299C      X  m  ~                                                         WINDOWS _6180M9AC31402232299i      ~                                                             WINDOWS _6180M9ABX1402232299          ʍ  ׍      0  4                                               WINDOWS _6180M9ABY1402232299      ɐ  ސ          U  Y                                               WINDOWS _6180O4ZWS1402232299ٓ            !      z  ~                                               WINDOWS _6180M9ABX1402232299        (  9  F                                                       WINDOWS _6180M9ABZ1402232299$      9  N  _  l      ƚ  ʛ                                               WINDOWS _6180M9AC01402232299J      _  t                                                           WINDOWS _6180M9AC11402232299p                                                                   WINDOWS _6180PFCAY1402232299          ѣ  ޣ      7  ;                                               WINDOWS _6180PFCAZ1402232299      Ц            \  `                                               WINDOWS _6180PFCB01402232299        
    (                                                       WINDOWS _6180PFCB11402232299        /  @  M                                                       WINDOWS _6180PFCB21402232299+      @  U  f  s      Ͱ  ѱ                                               WINDOWS _6180PFCB31402232299Q      f  {                                                           WINDOWS _6180PFCB41402232299w                                                                   WINDOWS _6180V7NUE1385658406        ǹ  ع        q  л                                               WINDOWS _6841A1HAA1402710938ɽ  ٽ        "                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 2
Height = 210
Width = 237
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Datumsauswahl"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PPROCEDURE Init
PARAMETERS mhsheute

IF PCOUNT() = 0
	thisform.heute.value = DATE()
	thisform.hsheute.value = DATE()
	thisform.dattext.Value = SUBSTR(DTOC(DATE()),1,2) + " " + myCMONTH(DATE(),.t.)+ " " + STR(YEAR(DATE()),4,0)
	thisform.orgtag.value = DATE()
ELSE
	IF VARTYPE(mhsheute) = "C"
		mhsheute = CTOD(mhsheute)
	endif
	thisform.heute.value = DATE()
	thisform.hsheute.Value = mhsheute
	thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)
	thisform.orgtag.value = DATE()
ENDIF

anfmon = bom(thisform.hsheute.Value)
endmon = eom(thisform.hsheute.Value)

firstmon = MondayOfWeek(anfmon)

IF YEAR(firstmon) < YEAR(endmon)
	hsdiff = anfmon - firstmon
ELSE
	IF MONTH(firstmon) < MONTH(endmon)
		hsdiff = anfmon - firstmon
	ELSE
		hsdiff = 0
	ENDIF
endif
* buttons fllen
button1 = Dow(anfmon,2)
FOR a = button1 TO DAY(endmon)+hsdiff
	hsxx = ALLTRIM(STR(a,2,0))
	hsday = ALLTRIM(STR(a - hsdiff,2,0))
	thisform.command&hsxx..caption = hsday
NEXT
thisform.refresh

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     M    4  4                        I   %   C        -   q            U   4   %Ct   T   C$ T   C$; T   CCC$*\  CC$a   CCC$i Z T   C$ / %C   C  T  C  #  T   C$ T     ? T   CC  *\  C   a   CC  i Z T   C$  T C   	  T
 C     T C  
  %C iC
 i
 T     %C HC
 H
 T    
 T     T C )   (C
 % o T CC  Z T CC   Z* thisform.command&hsxx..caption = hsday
 
   
     T      T     
    T  a U  MHSHEUTE THISFORM HEUTE VALUE HSHEUTE DATTEXT MYCMONTH ORGTAG ANFMON BOM ENDMON EOM FIRSTMON MONDAYOFWEEK HSDIFF BUTTON1 A HSXX HSDAY REFRESH SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  B    U  THISFORM TAG  C     U  THISFORM SIZER	 FRMRESIZE Init,      Unload     Resize    1 q !!! Q A !1!A rq"R Q  A A "qA   rq  3  2 1                            )       3   +   +  E  6    )   4                        textbox      textbox      heute      FORM1      [Enabled = .F.
Height = 22
Left = 6
Top = 27
Visible = .F.
Width = 81
Name = "heute"
      textbox      textbox      hsheute      FORM1      _Enabled = .F.
Height = 22
Left = 102
Top = 24
Visible = .F.
Width = 79
Name = "hsheute"
      
commandbutton      
commandbutton      	berechnen      FORM1      xTop = 27
Left = 159
Height = 19
Width = 70
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
     RPROCEDURE Click
anfmon = bom(thisform.hsheute.Value)
endmon = eom(thisform.hsheute.Value)


firstmon = MondayOfWeek(anfmon)
IF YEAR(firstmon) < YEAR(endmon) &&jahreswechsel
	IF MONTH(firstmon) > MONTH(endmon)
		hsdiff = ABS(firstmon - anfmon)
	ELSE
		hsdiff = 0
	endif
else
	IF MONTH(firstmon) < MONTH(endmon)
		hsdiff = anfmon - firstmon
	ELSE
		hsdiff = 0
	endif
endif
* buttons fllen
button1 = Dow(anfmon,2)
IF button1 > 1
	FOR a = 1 TO button1
		hsxx = ALLTRIM(STR(a,2,0))
		thisform.command&hsxx..caption = ""
	NEXT
endif
FOR a = button1 TO DAY(endmon)+hsdiff
	hsxx = ALLTRIM(STR(a,2,0))
	hsday = ALLTRIM(STR(a - hsdiff,2,0))
	thisform.command&hsxx..caption = hsday
NEXT
FOR a = DAY(endmon)+ hsdiff + 1 TO 42
	hsxx = ALLTRIM(STR(a,2,0))
	thisform.command&hsxx..caption = ""
next
thisform.refresh

ENDPROC
                                      %         I  #               U  N T  C     T C     T C     %C iC i
  %C HC H}  T	 C     
 T	      %C HC H
  T	      
 T	     T
 C  ) %
 ]  (
 Y T CC  Z' thisform.command&hsxx..caption = ""
    
 (C %	  T CC  Z T
 CC 	  Z* thisform.command&hsxx..caption = hsday
 !  C %	 (*= T CC  Z' thisform.command&hsxx..caption = ""
 
    U  ANFMON BOM THISFORM HSHEUTE VALUE ENDMON EOM FIRSTMON MONDAYOFWEEK HSDIFF BUTTON1 A HSXX HSDAY REFRESH Click,     1 qq#QQ1  A  Q  A A "qqqA A qA qqA  2                       G      )                           textbox      textbox      orgtag      FORM1      _Enabled = .F.
Height = 22
Left = 155
Top = 185
Visible = .F.
Width = 77
Name = "orgtag"
      textbox      textbox      wahl      FORM1      [Enabled = .F.
Height = 22
Left = 2
Top = 185
Visible = .F.
Width = 77
Name = "wahl"
      shape      shape      Shape7      FORM1      TTop = 36
Left = 198
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape7"
      shape      shape      Shape6      FORM1      TTop = 36
Left = 167
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape6"
      shape      shape      Shape5      FORM1      TTop = 36
Left = 136
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape5"
      shape      shape      Shape4      FORM1      TTop = 36
Left = 105
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape4"
      shape      shape      Shape3      FORM1      STop = 36
Left = 74
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape2      FORM1      STop = 36
Left = 43
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      STop = 36
Left = 12
Height = 147
Width = 31
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      jahrtzurck      FORM1      Top = 3
Left = 5
Height = 25
Width = 31
Picture = icons\doppelpfeil_links.jpg
Caption = ""
ToolTipText = "ein Jahr zurck"
Name = "jahrtzurck"
     PROCEDURE Click
mhsxheute = DTOS(thisform.hsheute.value) 
IF MONTH(thisform.hsheute.value) = 2 &&februar
	IF DAY(thisform.hsheute.value) = 29
		hstag = 28
	ELSE
		hstag = DAY(thisform.hsheute.value)
	ENDIF
	IF hstag < 10
		xhstag = "0" + ALLTRIM(STR(hstag,2,0))
	ELSE
		xhstag = ALLTRIM(STR(hstag,2,0))
	endif
	mhsxheute = STR(YEAR(thisform.hsheute.value)-1,4,0)+SUBSTR(mhsxheute,5,2)+xhstag
ELSE
	mhsxheute = STR(YEAR(thisform.hsheute.value)-1,4,0)+SUBSTR(mhsxheute,5)
endif
thisform.hsheute.Value = stod(mhsxheute) &&addyears(thisform.hsheute.value,-1)
mhsheute = thisform.hsheute.value
thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)
thisform.berechnen.click

ENDPROC
                                      %   ?      z     N            U   T  C    %C   H  %C   %T 
 T  q  T C   %  % 

  T  0CC  Z   T CC  Z 1 T  CC   i ZC  \  (* T  CC   i ZC  \  T   C     T    ? T   CC *\  C  a	   CC i Z
  
   U 	 MHSXHEUTE THISFORM HSHEUTE VALUE HSTAG XHSTAG STOD MHSHEUTE DATTEXT MYCMONTH	 BERECHNEN CLICK Click,     1 Q  QA  qA  A 1 2                             )                           
commandbutton      
commandbutton      Jahrvor      FORM1      Top = 3
Left = 201
Height = 25
Width = 31
Picture = icons\doppelpfeil_rechts.jpg
Caption = ""
ToolTipText = "ein Jahr vor"
Name = "Jahrvor"
     PROCEDURE Click
mhsxheute = DTOS(thisform.hsheute.value) 
IF MONTH(thisform.hsheute.value) = 2 &&februar
	IF DAY(thisform.hsheute.value) = 29
		hstag = 28
	ELSE
		hstag = DAY(thisform.hsheute.value)
	ENDIF
	IF hstag < 10
		xhstag = "0" + ALLTRIM(STR(hstag,2,0))
	ELSE
		xhstag = ALLTRIM(STR(hstag,2,0))
	endif
	mhsxheute = STR(YEAR(thisform.hsheute.value)+1,4,0)+SUBSTR(mhsxheute,5,2)+xhstag
ELSE
	mhsxheute = STR(YEAR(thisform.hsheute.value)+1,4,0)+SUBSTR(mhsxheute,5)
ENDIF
thisform.hsheute.Value = stod(mhsxheute)
mhsheute = thisform.hsheute.value
thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)
thisform.berechnen.click

ENDPROC
                                      %   ?      z     N            U   T  C    %C   H  %C   %T 
 T  q  T C   %  % 

  T  0CC  Z   T CC  Z 1 T  CC   i ZC  \  (* T  CC   i ZC  \  T   C     T    ? T   CC *\  C  a	   CC i Z
  
   U 	 MHSXHEUTE THISFORM HSHEUTE VALUE HSTAG XHSTAG STOD MHSHEUTE DATTEXT MYCMONTH	 BERECHNEN CLICK Click,     1 Q  QA  qA  A 1 2                             )                           
commandbutton      
commandbutton      monatzurck      FORM1      Top = 3
Left = 38
Height = 25
Width = 24
Picture = icons\pfeil_links.jpg
Caption = ""
ToolTipText = "ein Monat zurck"
Name = "monatzurck"
     
PROCEDURE Click
thisform.hsheute.Value = addmonth(thisform.hsheute.value,-1)
mhsheute = thisform.hsheute.value
thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)
thisform.berechnen.click

ENDPROC
         j  j                           %         !                 U   ! T    C      T     ? T    CC *\  C  a   CC i Z
      U	  THISFORM HSHEUTE VALUE ADDMONTH MHSHEUTE DATTEXT MYCMONTH	 BERECHNEN CLICK Click,     1 1 2                              )   j                        
commandbutton      
commandbutton      monatvor      FORM1      Top = 3
Left = 175
Height = 25
Width = 24
Picture = icons\pfeil_rechts.jpg
Caption = ""
ToolTipText = "ein Monat vor"
Name = "monatvor"
     PROCEDURE Click

thisform.hsheute.Value = addmonth(thisform.hsheute.value,1)
mhsheute = thisform.hsheute.value
thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)
thisform.berechnen.click

ENDPROC
         i  i                        6   %                           U     T    C      T     ? T    CC *\  C  a   CC i Z
      U	  THISFORM HSHEUTE VALUE ADDMONTH MHSHEUTE DATTEXT MYCMONTH	 BERECHNEN CLICK Click,     1 1 2                              )   i                        textbox      textbox      dattext      FORM1      OAlignment = 2
Height = 22
Left = 64
Top = 4
Width = 109
Name = "dattext"
      label      label      Label1      FORM1      OCaption = "Mo"
Height = 17
Left = 18
Top = 42
Width = 18
Name = "Label1"
      label      label      Label2      FORM1      OCaption = "Di"
Height = 17
Left = 51
Top = 42
Width = 15
Name = "Label2"
      label      label      Label3      FORM1      OCaption = "Mi"
Height = 17
Left = 81
Top = 42
Width = 16
Name = "Label3"
      label      label      Label4      FORM1      PCaption = "Do"
Height = 17
Left = 111
Top = 42
Width = 18
Name = "Label4"
      label      label      Label5      FORM1      PCaption = "Fr"
Height = 17
Left = 144
Top = 42
Width = 15
Name = "Label5"
      label      label      Label6      FORM1      PCaption = "Sa"
Height = 17
Left = 173
Top = 42
Width = 18
Name = "Label6"
      label      label      Label7      FORM1      PCaption = "So"
Height = 17
Left = 205
Top = 42
Width = 17
Name = "Label7"
      
commandbutton      
commandbutton      Command1      FORM1      OTop = 60
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command1"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command2      FORM1      OTop = 60
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command2"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command3      FORM1      OTop = 60
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command3"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command4      FORM1      PTop = 60
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command4"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command5      FORM1      PTop = 60
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command5"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command6      FORM1      PTop = 60
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command6"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command7      FORM1      PTop = 60
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command7"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command8      FORM1      OTop = 79
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command8"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      Command9      FORM1      OTop = 79
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command9"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command10      FORM1      PTop = 79
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command10"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command11      FORM1      QTop = 79
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command11"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command12      FORM1      QTop = 79
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command12"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command13      FORM1      QTop = 79
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command13"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command14      FORM1      QTop = 79
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command14"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command15      FORM1      PTop = 99
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command15"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command16      FORM1      PTop = 99
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command16"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command17      FORM1      PTop = 99
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command17"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command18      FORM1      QTop = 99
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command18"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command19      FORM1      QTop = 99
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command19"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command20      FORM1      QTop = 99
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command20"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command21      FORM1      QTop = 99
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command21"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command22      FORM1      QTop = 118
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command22"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command23      FORM1      QTop = 118
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command23"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command24      FORM1      QTop = 118
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command24"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command25      FORM1      RTop = 118
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command25"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command26      FORM1      RTop = 118
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command26"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command27      FORM1      RTop = 118
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command27"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command28      FORM1      RTop = 118
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command28"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command29      FORM1      QTop = 138
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command29"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command30      FORM1      QTop = 138
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command30"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command31      FORM1      QTop = 138
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command31"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command32      FORM1      RTop = 138
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command32"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command33      FORM1      RTop = 138
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command33"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command34      FORM1      RTop = 138
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command34"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command35      FORM1      RTop = 138
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command35"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command36      FORM1      QTop = 158
Left = 15
Height = 19
Width = 24
Caption = ""
Name = "Command36"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command37      FORM1      QTop = 158
Left = 46
Height = 19
Width = 24
Caption = ""
Name = "Command37"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command38      FORM1      QTop = 158
Left = 77
Height = 19
Width = 24
Caption = ""
Name = "Command38"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command39      FORM1      RTop = 158
Left = 108
Height = 19
Width = 24
Caption = ""
Name = "Command39"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command40      FORM1      RTop = 158
Left = 139
Height = 19
Width = 24
Caption = ""
Name = "Command40"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command41      FORM1      RTop = 158
Left = 170
Height = 19
Width = 24
Caption = ""
Name = "Command41"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command42      FORM1      RTop = 158
Left = 201
Height = 19
Width = 24
Caption = ""
Name = "Command42"
      PROCEDURE Click
IF EMPTY(this.caption)
	RETURN
ENDIF
thisform.wahl.Value = stod(SUBSTR(DTOS(thisform.hsheute.Value),1,6)+IIF(LEN(ALLTRIM(this.Caption)) < 2,"0"+ALLTRIM(this.Caption),ALLTRIM(this.Caption)))
thisform.command43.RightClick 
ENDPROC
     x    _  _                        ;$   %                           U  }  %C     B S T   CCC   \CCC   >
  0C    C   6 
     U	  THIS CAPTION THISFORM WAHL VALUE STOD HSHEUTE	 COMMAND43
 RIGHTCLICK Click,     1 !A A 1 1                              )   _                        
commandbutton      
commandbutton      	Command43      FORM1      Top = 186
Left = 81
Height = 19
Width = 73
Caption = "heute"
ToolTipText = "das heutige Datum einstellen"
Name = "Command43"
     WPROCEDURE Click
thisform.hsheute.Value = thisform.orgtag.Value
mhsheute = thisform.hsheute.value
thisform.dattext.Value = SUBSTR(DTOC(mhsheute),1,2) + " " + myCMONTH(mhsheute,.t.)+ " " + STR(YEAR(mhsheute),4,0)

thisform.berechnen.click
ENDPROC
PROCEDURE RightClick
thisform.Tag = DTOS(thisform.wahl.Value)
thisform.release
ENDPROC
                                   w   %   J        	   m            U  {  T         T     ? T    CC *\  C  a   CC i Z
      U	  THISFORM HSHEUTE VALUE ORGTAG MHSHEUTE DATTEXT MYCMONTH	 BERECHNEN CLICK%  T   C    
     U  THISFORM TAG WAHL VALUE RELEASE Click,     
 RightClick     1 1 2  1                                  L      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 195
Left = 222
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
 JFIF  ` `  Exif  MM *    ;      Ji      R            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Harald                   10      10                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2021:04:23 09:59:12 2021:04:23 09:59:12   H a r a l d   http://ns.adobe.com/xap/1.0/ <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"/><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:xmp="http://ns.adobe.com/xap/1.0/"><xmp:CreateDate>2021-04-23T09:59:12.103</xmp:CreateDate></rdf:Description><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"><dc:creator><rdf:Seq xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:li>Harald</rdf:li></rdf:Seq>
			</dc:creator></rdf:Description></rdf:RDF></x:xmpmeta>
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                            <?xpacket end='w'?> C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? \ >y'\h̶`Հf<gz  <k|\hIJixN*7١R'#į;!gR? g 0ڷ<' Ë3}J`d_3j~xΟms|_	Y+>
QaCQ)"uS2( }%c~)l k˭'>~_e ^&	qxM7Ckc/ȱ#'eWU~F 1?  fc~&\"jZtE5oޯoKbX#,!Q_i d K49\  .  T ЅX  JFIF  ` `  Exif  MM *    ;      Ji      R            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Harald                   10      10                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2021:04:23 09:59:12 2021:04:23 09:59:12   H a r a l d   http://ns.adobe.com/xap/1.0/ <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"/><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:xmp="http://ns.adobe.com/xap/1.0/"><xmp:CreateDate>2021-04-23T09:59:12.103</xmp:CreateDate></rdf:Description><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:dc="http://purl.org/dc/elements/1.1/"><dc:creator><rdf:Seq xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:li>Harald</rdf:li></rdf:Seq>
			</dc:creator></rdf:Description></rdf:RDF></x:xmpmeta>
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                                                                                                    
                            <?xpacket end='w'?> C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? g
 N i?g31{bix;T۹wGsĲ|_EcO
hZ,>>l<U9{HI&9MoogW ].?
(o Լ}x5i֊B!Z?7ˍ`~;]]/oj~(x"ſ h~Ӊ%ml"|5
 ~=   $GόV?,^eudfv凒l@$H'#?/¿1??k?WSѼek#>ϣi7(w٩%NȬH?1WG}(RE 0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _61F0PBCZ91386110485      /  F      ]                                                       WINDOWS _61F0PBCZA1430476247                                                                     WINDOWS _61F0PBCZB1413642570       5  J  Z  g        O                                               WINDOWS _61F0PBCZ91413642434M      b  w            *                                               WINDOWS _61F0PIFFA1386115072          $  1                                                           WINDOWS _61F0PIFFB1386695868                  J                                                 WINDOWS _61F0PBCZ91386115072m      |                                                                 WINDOWS _61F0TP89L1386115072      #  2  ?  L                                                           WINDOWS _61F0PBCZ91402711042        	                                                             COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 530
Width = 375
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Datenbank komprimieren"
ControlBox = .T.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     EPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
hsbeenden = .f.
ENDPROC
                                   <   %   O        
   m            U    C     U  THISFORM SIZER	 FRMRESIZE  %    
$  T     
      T        T       
     T   a T	 - U
  THISFORM TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER	 HSBEENDEN Resize,      Init_     1 2 AA  rq   1                       ,         G   :      )                           
commandbutton      
commandbutton      Command1      FORM1      VTop = 490
Left = 9
Height = 34
Width = 99
Caption = "starten"
Name = "Command1"
     PROCEDURE Click
oldpfad = SYS(2003)
crlf = CHR(13)+CHR(10)
thisform.text1.Value = "Komprimierung gestartet: " + DTOC(DATE()) + " " + TIME()
myclose(0)

hspfad = eigdat + muser 
CD "&hspfad"
hsdateix = SYS(2000,"*.dbf")
hsdatei = SUBSTR(hsdateix,1,AT(".",hsdateix)-1)
DO WHILE .not. EMPTY(hsdateix)
	hsdateitemp = eigdat + muser + "\" + hsdatei
	IF giveselect(hsdatei) = 0
		USE "&hsdateitemp" IN 0 EXCLUSIVE
		thisform.edit1.Value = thisform.edit1.Value + hsdateitemp + crlf
		SELECT &hsdatei
		PACK memo
		use
	ENDIF
	hsdateix = SYS(2000,"*.dbf",1)
	hsdatei = SUBSTR(hsdateix,1,AT(".",hsdateix)-1)
ENDDO
hsdateix = ""
hsdatei = ""
thisform.text2.Value = "Komprimierung beendet: " + DTOC(DATE()) + " " + TIME()
CD "&oldpfad"

hsbeenden = .t.
hinweis("Das Programm wird nach dem Schlieen dieser Maske beendet."+CHR(13)+CHR(10)+"Danach bitte neu starten!")


ENDPROC
                                   f   %   M           \            U   T  C] T C
 C
 9 T    Komprimierung gestartet: CC$*  C^
 C   T    CD "&hspfad"
 T	 C *.dbf] T
 C	 C .	 \ +C	 
 T    \
  %C 
   f% USE "&hsdateitemp" IN 0 EXCLUSIVE
! T 
   
     SELECT &hsdatei
 3 Q  T	 C *.dbf] T
 C	 C .	 \ 
 T	   
 T
   7 T    Komprimierung beendet: CC$*  C^ CD "&oldpfad"
 T ap C: Das Programm wird nach dem Schlieen dieser Maske beendet.C
 C
  Danach bitte neu starten!  U  OLDPFAD CRLF THISFORM TEXT1 VALUE MYCLOSE HSPFAD EIGDAT MUSER HSDATEIX HSDATEI HSDATEITEMP
 GIVESELECT EDIT1 TEXT2	 HSBEENDEN HINWEIS Click,     1 Q aQ1Q A A A   q 3                       w      )                           
commandbutton      
commandbutton      Command2      FORM1      ZTop = 490
Left = 138
Height = 34
Width = 99
Caption = "schlieen"
Name = "Command2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            editbox      editbox      Edit1      FORM1      jHeight = 423
Left = 9
ReadOnly = .T.
Top = 34
Width = 360
DisabledForeColor = 0,0,0
Name = "Edit1"
      
commandbutton      
commandbutton      Command3      FORM1      XTop = 490
Left = 270
Height = 34
Width = 99
Caption = "drucken"
Name = "Command3"
     3PROCEDURE Click
PUBLIC kompritext1, kompritext2
kompritext1 = thisform.text1.value
kompritext2 = thisform.text2.value

*SET STEP ON
CREATE CURSOR kompri (feld C(70))

SET MEMOWIDTH TO 200
anzlines = MEMLINES(thisform.edit1.Value)
SELECT kompri
APPEND BLANK
FLUSH
replace kompri.feld WITH thisform.text1.value
FLUSH
APPEND BLANK
FLUSH
replace kompri.feld WITH ""
FLUSH

FOR a = 1 TO anzlines
	SELECT kompri
	APPEND BLANK
	FLUSH
	replace kompri.feld WITH MLINE(thisform.edit1.Value,a)
	FLUSH
next
SELECT kompri
APPEND BLANK
FLUSH
replace kompri.feld WITH ""
FLUSH
APPEND BLANK
FLUSH
replace kompri.feld WITH thisform.text2.value
FLUSH

SET MEMOWIDTH TO 50
SELECT kompri
GO top

REPORT FORM kompridruck WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
SELECT kompri
USE

ENDPROC
                                   [   %   !      ~  '   0            U   7    T      T     h kompri  CF G$( T C 	   F   [ >      [  [ >     [ 
 (   F   [ >  C 	  
  [  F   [ >     [  [ >      [ G$(2 F  #) ? kompridruck(!"9+C+
 F  Q U  KOMPRITEXT1 KOMPRITEXT2 THISFORM TEXT1 VALUE TEXT2 KOMPRI FELD ANZLINES EDIT1 A KOMPRIDRUCK Click,     1  11 Qq Q A aA Q A A rq Q A A A q Q A A Q A aA  q Q q A 2                       (      )                           textbox      textbox      Text1      FORM1      gEnabled = .F.
Height = 25
Left = 9
Top = 5
Width = 360
DisabledForeColor = 0,0,0
Name = "Text1"
      textbox      textbox      Text2      FORM1      iEnabled = .F.
Height = 25
Left = 9
Top = 460
Width = 360
DisabledForeColor = 0,0,0
Name = "Text2"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 510
Left = 357
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _61F0U2CB21386115123 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  1TTT0 0F        WINDOWS _61F0U2CB3           9  1                           5625.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61F0U2CB4           9  4                           1980.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61F0U2CB5           9  7                           3750.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61F0U2MR61386115141 5  0        2604.167 3437.500 1666.66727500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      1FTT0 0F         WINDOWS _61F0U42T21386115168 8  0        2500.00067708.333 1875.000 8333.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _61F0U4LKW1386115180 6            4895.833 2916.667  104.16773750.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61F0UIQC71386115532 8  0       7812.500 3437.500 1875.00070833.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTF3 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                 2   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   empty(ditext6)                                                #"Datenbank komprimieren (Logbuch)
"                           Courier New                                                   date()                                                        Arial                                                         empty(ditext6)                                                zeile1                                                        kompri.feld                                                   Courier New                                                   Courier New                                                   Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   empty(ditext6)                                                #"Datenbank komprimieren (Logbuch)
"                           Courier New                                                   date()                                                        Arial                                                         empty(ditext6)                                                zeile1                                                        kompri.feld                                                   Courier New                                                   Courier New                                                   Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0
G   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _61O0NNDF21386829889      /  F      ]                                                       WINDOWS _61O0NNDF31430476261                    -  $
                                               WINDOWS _61T14GUHR1387367864r                                                                       WINDOWS _61O0NNDF21387367864          )  6                                                           WINDOWS _61O0NNDF21387425249                                                                   WINDOWS _61O0NNDF21387425249                                                                   WINDOWS _61O0NNDF21387367864                                                                       WINDOWS _61O0NNDF71387367864                                                                       WINDOWS _61O0NNDF81387425249                    3                                               WINDOWS _61O0NNDF21387425249      (  7  L  Y      -   u                                                WINDOWS _61O0NNDF31387425249Y!      h!  w!  !  !      j"  "                                               WINDOWS _61O0NNDF41397117930#      #  #  #  #      $  !%                                               WINDOWS _61T0LVMQN1387425249&      &  +&  ?&  L&      (  B,                                               WINDOWS _61O0NNDF21387367864/      /  
0   0  -0                                                           WINDOWS _61O0NNDF313873678640      1  1  #1  01                                                           WINDOWS _61O0NNDF413873678641      2  2  %2  22                                                           WINDOWS _61O0NNDF213873678642      3  3  3  ,3                                                           WINDOWS _61O0NNDF313873678643      3  3  3  3                                                           WINDOWS _61O0NNDF21387367864V4      c4  p4  ~4  4                                                           WINDOWS _61O0NNDF513873678644      4  5  5  '5                                                           WINDOWS _61O0NNDF613873678645      5  6  6  *6                                                           WINDOWS _61O0NNDF713873678646      6  
7  7  ,7                                                           WINDOWS _61O0NNDF213873678647       8  8   8  -8                                                           WINDOWS _61O0NNDF313873678648       9  9   9  -9                                                           WINDOWS _61O0NNDF413873678649       :  :   :  -:                                                           WINDOWS _61O0NNDF21387367864:       ;  ;   ;  -;                                                           WINDOWS _61T0LVMQT1402711078;      <  <  ,<  9<      <  QL                                               WINDOWS _61T0LVMQU1387367864FV      UV  dV  uV  V                                                           WINDOWS _61O0NNDF21387368682FW      SW  `W  nW  {W                                                           WINDOWS _61T0LVMQW1387367864W      
X  X  0X  =X                                                           WINDOWS _61O0NNDF21387367864Y      Y  Y  ,Y  9Y                                                           WINDOWS _61O0NNDF21387367864Y      Y  Y  Y  Y                                                           WINDOWS _61O0NNDF21387367864/Z      <Z  IZ  WZ  dZ                                                           WINDOWS _61O0NNDF21387367864Z      Z  Z  Z  Z                                                           WINDOWS _61O0NNDF71387367864c[      p[  }[  [  [                                                           WINDOWS _61O0NNDF21387367864[      \  \  !\  .\                                                           WINDOWS _61O0NNDF21387367864\      \  \  \  \                                                           WINDOWS _61T0MGLEQ1387367864"]      /]  <]  K]  X]                                                           WINDOWS _61T0N4BM41387367864]      ]  ]  ]  ]                                                           WINDOWS _61O0NNDF21387367864^      ^  ^  ^  ^                                                           WINDOWS _61T0N4BM51387367864_      _  _  _  _                                                           WINDOWS _61O0NNDF31387367864`      `  `  `  `                                                           WINDOWS _61O0NNDF21387367864a      a  a  a  a                                                           WINDOWS _61O0NNDF41387367864 b      -b  :b  Ib  Vb                                                           WINDOWS _61T0N4BM61387367864b      b  b  b  b                                                           WINDOWS _61T0N4BM71387367864c      c  c  c  c                                                           WINDOWS _61T0N4BM81387367864d      d  d  d  d                                                           WINDOWS _61O0NNDF21387367864.e      =e  Le  Ze  ge                                                           WINDOWS _61O0NNDF21387367864f      ,f  ;f  If  Vf                                                           WINDOWS _61T0N4BM91387367864g      g  *g  8g  Eg                                                           WINDOWS _61T145NUQ1387367864g      	h  h  "h  /h                                                           WINDOWS _61T145NUR1387367864vh      h  h  h  h                                                           WINDOWS _61O0NNDF21387367864-i      :i  Gi  Vi  ci                                                           WINDOWS _61O0NNDF21387367864i      i  i  i  i                                                           WINDOWS _61T145NUS1387367864`j      mj  zj  j  j                                                           WINDOWS _61T14GUI71387367864j      
k  k  &k  3k                                                           WINDOWS _61O0NNDF21387367864k      k  k  k  k                                                           WINDOWS _61T14GUI91387367864Vl      cl  pl  l  l                                                           WINDOWS _61O0NNDF21387425249m      !m  .m  =m  Jm                                                           WINDOWS _61O0NNDF31387367864m      m  m  m  m                                                           WINDOWS _61O0NNDF21387367864On      ^n  mn  n  n      `o  o                                               WINDOWS _61O0NNDF31387367864p      p  p  p  p                                                           WINDOWS _61W0ZCCJ41387367864,q      ;q  Jq  cq  pq      ;r  r                                               WINDOWS _61W0ZCCJ51387367864gs      ts  s  s  s                                                           WINDOWS _61W0ZS6W11387367864t      t  t  +t  8t                                                           WINDOWS _61O0NNDF21387367864~t      t  t  t  t                                                           WINDOWS _61W10CM1X1411675041Qu      fu  {u  u  u      :v  {                                               WINDOWS _61W10MBO31387367864|                                                                       WINDOWS _6841A727Y1402711078U  e                                                                   COMMENT RESERVED                                <                                                            e                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     0BorderStyle = 3
Height = 567
Width = 586
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "vorraussichtliches Krankengeld"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
mykrankengeld = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.personalfallname.Value = ALLTRIM(myform1.z0.caption)

namensfile = fileneu

Do Case && zi(1+2)
	Case  Inlist(zi(1+2), 0, 1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 15)
		altesland = 0
	Case  Inlist(zi(1+2), 4, 8, 13, 14, 16, 17)
		altesland = 1
ENDCASE

thisform.deckelbetrag.Value = kvgrenze(1+altesland) / 100

DO jahresbersicht1 WITH "J"

IF zi(1+20) = 0 &&vormonatswert holen
	jj = zi(1+20) &&nicht kleiner als Januar
ELSE
	jj = zi(1+20) - 1
ENDIF

thisform.KGmonatsname.Value = getmonthname(zi(1+20))

thisform.bruttoentgelt.Value = sicht(2+jj,1) &&5048.03
thisform.nettoentgelt.Value = sicht(2+jj,33) &&3097.90
thisform.einmalzahlungen.Value = sicht(2+jj,12) &&353.94
thisform.rVproz.Value = rvorein &&9.30
thisform.AVproz.Value = avorein &&1.20
thisform.PVproz.Value = pvorein &&1.525 
thisform.jahr.value = welchesjahr

IF thisform.optiongroup1.Value = 1		
	thisform.wochenstunden.Value = 0.00
	thisform.arbeitsstunden.Value = 0.00
	thisform.label22.Visible = .f.
	thisform.label23.Visible = .f.	
	thisform.arbeitsstunden.Visible = .f.
	thisform.wochenstunden.Visible = .f.	
	thisform.label24.Visible = .f.
	thisform.label25.Visible = .f.	
	thisform.tagesfaktor_brutto.Visible = .f.
	thisform.tagesfaktor_netto.Visible = .f.	
	thisform.tagesfaktor_brutto.value = 0.00
	thisform.tagesfaktor_netto.value = 0.00
ELSE
	thisform.wochenstunden.Value = myform1.t1.value
	thisform.label22.Visible = .t.
	thisform.label23.Visible = .t.	
	thisform.arbeitsstunden.Visible = .t.
	thisform.wochenstunden.Visible = .t.
	thisform.label24.Visible = .t.
	thisform.label25.Visible = .t.	
	thisform.tagesfaktor_brutto.Visible = .t.
	thisform.tagesfaktor_netto.Visible = .t.	
ENDIF
thisform.berechnen.click
thisform.Refresh


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     F    -  -                           %   0        C   N            U    C     U  THISFORM SIZER	 FRMRESIZE
 T    %   
1  T     T   C   
 T 	 
 Hj  7 CC
  	
 
 T  % CC
 
 
 T   T   C 
 d   J %C
  7 T C
  T T C
   T   CC
   T   C   T   C !  T   C   T     T     T     T     %   $ T            T             T ! " - T # " - T   " - T  " - T $ " - T % " - T & " - T ' " - T &           T '            T    (   T ! " a T # " a T   " a T  " a T $ " a T % " a T & " a T ' " a 
  ) * 
  +  % , - .  T/ C.  , - T 3
 T/  
  0 1  T ,  , - /  T 2  2 - / 
  3  T 4 a U5 
 MYKRANKENGELD THISFORM TOP PERSONALFALLNAME VALUE MYFORM1 Z0 CAPTION
 NAMENSFILE FILENEU ZI	 ALTESLAND DECKELBETRAG KVGRENZE JAHRESBERSICHT1 JJ KGMONATSNAME GETMONTHNAME
 BRUTTOENTGELT SICHT NETTOENTGELT EINMALZAHLUNGEN RVPROZ RVOREIN AVPROZ AVOREIN PVPROZ PVOREIN JAHR WELCHESJAHR OPTIONGROUP1
 WOCHENSTUNDEN ARBEITSSTUNDEN LABEL22 VISIBLE LABEL23 LABEL24 LABEL25 TAGESFAKTOR_BRUTTO TAGESFAKTOR_NETTO T1	 BERECHNEN CLICK REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2  AA   q Q A  R QA 1111r A     A    1                       ,         G         )   -                        shape      shape      Shape2      FORM1      RTop = 3
Left = 7
Height = 201
Width = 574
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      TTop = 204
Left = 7
Height = 325
Width = 574
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      Command1      FORM1      Top = 533
Left = 12
Height = 28
Width = 137
Cancel = .T.
Caption = "schlieen"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "Command1"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            textbox      textbox      
Bruttoentgelt      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
ToolTipText = "Bruttoentgelt vor der Krankschreibung"
Top = 68
Width = 84
Name = "Bruttoentgelt"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN 1

ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   2                       5       )                            textbox      textbox      max90      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 487
Top = 296
Width = 84
DisabledForeColor = 0,0,0
Name = "max90"
      textbox      textbox      kk70      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 488
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "kk70"
      textbox      textbox      arbeitsstunden      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 144
ToolTipText = "bezahlte monatliche Arbeitstunden vor der Krankschreibung"
Top = 150
Width = 84
Name = "arbeitsstunden"
      >PROCEDURE Valid
thisform.berechnen.click
RETURN 1
ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   1                       3       )                            textbox      textbox      
wochenstunden      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 144
ToolTipText = "vereinbarte wchentliche Arbeitszeit"
Top = 177
Width = 84
Name = "wochenstunden"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            textbox      textbox      nettoentgelt      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
ToolTipText = "Nettoentgelt vor der Krankschreibung"
Top = 96
Width = 84
Name = "nettoentgelt"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN 1

ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   2                       5       )                            textbox      textbox      Einmalzahlungen      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
ToolTipText = "Summe der Einmalzahlungen der vergangenen 12 Monate VOR der Krankschreibung"
Top = 123
Width = 84
Name = "Einmalzahlungen"
      BPROCEDURE Valid
thisform.berechnen.click
RETURN .t.

ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 2                       7       )                            optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 2
Value = 1
Height = 28
Left = 212
Top = 34
Width = 252
ToolTipText = "Bitte whlen Sie ..."
Name = "Optiongroup1"
Option1.Caption = "Festgehalt"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 103
Option1.Name = "Option1"
Option2.Caption = "Stundenlohn"
Option2.Height = 17
Option2.Left = 140
Option2.Top = 5
Option2.Width = 103
Option2.Name = "Option2"
     9PROCEDURE InteractiveChange
IF thisform.optiongroup1.Value = 1		
	thisform.wochenstunden.Value = 0.00
	thisform.arbeitsstunden.Value = 0.00
	thisform.wochenstunden.enabled = .f.
	thisform.arbeitsstunden.enabled = .f.
	thisform.label22.Visible = .f.
	thisform.label23.Visible = .f.	
	thisform.arbeitsstunden.Visible = .f.
	thisform.wochenstunden.Visible = .f.	
	thisform.label24.Visible = .f.
	thisform.label25.Visible = .f.	
	thisform.tagesfaktor_brutto.Visible = .f.
	thisform.tagesfaktor_netto.Visible = .f.	
	thisform.tagesfaktor_brutto.value = 0.00
	thisform.tagesfaktor_netto.value = 0.00
ELSE
	thisform.wochenstunden.Value = myform1.t1.value
	thisform.label22.Visible = .t.
	thisform.label23.Visible = .t.	
	thisform.arbeitsstunden.Visible = .t.
	thisform.wochenstunden.Visible = .t.
	thisform.wochenstunden.enabled = .t.
	thisform.arbeitsstunden.enabled = .t.	
	thisform.label24.Visible = .t.
	thisform.label25.Visible = .t.	
	thisform.tagesfaktor_brutto.Visible = .t.
	thisform.tagesfaktor_netto.Visible = .t.	
ENDIF
thisform.Refresh
ENDPROC
                                   &   %         C                 U  	 %    - T             T             T    - T    - T    - T    - T    - T    - T  	  - T  
  - T    - T    - T             T              T    
    T    a T    a T    a T    a T    a T    a T  	  a T  
  a T    a T    a 
     U  THISFORM OPTIONGROUP1 VALUE
 WOCHENSTUNDEN ARBEITSSTUNDEN ENABLED LABEL22 VISIBLE LABEL23 LABEL24 LABEL25 TAGESFAKTOR_BRUTTO TAGESFAKTOR_NETTO MYFORM1 T1 REFRESH InteractiveChange,     1 q A  1                       .      )                           textbox      textbox      kumbrutto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "kumbrutto_m"
      textbox      textbox      
kumnetto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 296
Width = 84
DisabledForeColor = 0,0,0
Name = "kumnetto_m"
      textbox      textbox      
KGbrutto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 330
Width = 84
DisabledForeColor = 0,0,0
Name = "KGbrutto_m"
      label      label      Label1      FORM1      FontBold = .T.
FontSize = 11
Caption = "Berechnung des Krankengeldes ab"
Height = 19
Left = 20
Top = 212
Width = 256
Name = "Label1"
      label      label      Label2      FORM1      XCaption = "monatlich"
Height = 15
Left = 264
Top = 248
Width = 57
Name = "Label2"
      label      label      Label3      FORM1      VCaption = "tglich"
Height = 15
Left = 189
Top = 248
Width = 38
Name = "Label3"
      textbox      textbox      kumbrutto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "kumbrutto_t"
      textbox      textbox      
kumnetto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 296
Width = 84
DisabledForeColor = 0,0,0
Name = "kumnetto_t"
      textbox      textbox      
KGbrutto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 330
Width = 84
DisabledForeColor = 0,0,0
Name = "KGbrutto_t"
      textbox      textbox      	sozvers_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 461
Width = 84
DisabledForeColor = 0,0,0
Name = "sozvers_m"
      textbox      textbox      	KGnetto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 494
Width = 84
DisabledForeColor = 0,0,0
Name = "KGnetto_m"
      textbox      textbox      	sozvers_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 461
Width = 84
DisabledForeColor = 0,0,0
Name = "sozvers_t"
      textbox      textbox      	KGnetto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 494
Width = 84
DisabledForeColor = 0,0,0
Name = "KGnetto_t"
      
commandbutton      
commandbutton      	berechnen      FORM1      yTop = 534
Left = 393
Height = 28
Width = 97
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
     PROCEDURE Click
IF thisform.optiongroup1.Value = 1 &&festgehalt
	thisform.kumbrutto_t.value = ROUND((thisform.bruttoentgelt.value / 30) + (thisform.einmalzahlungen.Value / 360),2)
	thisform.kumbrutto_m.Value = thisform.kumbrutto_t.value * 30
	IF thisform.kumbrutto_m.value > thisform.deckelbetrag.value
		thisform.gedeckelt.value = thisform.deckelbetrag.value
		thisform.label4.Caption = "gedeckelt auf"
	ELSE
		thisform.gedeckelt.value = thisform.kumbrutto_m.value
		thisform.label4.Caption = "verwend. wird"		
	ENDIF

	thisform.kk70.Value = ROUND(thisform.gedeckelt.value * 0.7,2)

	brutto_netto_quote = thisform.nettoentgelt.value / thisform.bruttoentgelt.value

	thisform.kumnetto_t.value = ROUND((thisform.nettoentgelt.value / 30),2) + ROUND(((thisform.einmalzahlungen.Value * brutto_netto_quote) / 360),2)
	thisform.kumnetto_m.Value = thisform.kumnetto_t.value * 30

	thisform.max90.Value = ROUND(thisform.kumnetto_m.value * 0.9,2)

	thisform.KGbrutto_m.Value = min(thisform.kk70.Value,thisform.max90.Value,thisform.nettoentgelt.value)
	thisform.kgbrutto_t.value = ROUND(thisform.KGbrutto_m.Value / 30,2)

	thisform.RV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.rvproz.Value),2)
	thisform.AV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.avproz.Value),2)
	thisform.PV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.pvproz.Value),2)

	thisform.RV_m.Value = thisform.RV_t.Value * 30
	thisform.AV_m.Value = thisform.AV_t.Value * 30
	thisform.PV_m.Value = thisform.PV_t.Value * 30

	thisform.sozvers_t.Value = thisform.RV_t.Value + thisform.AV_t.Value + thisform.PV_t.Value
	thisform.sozvers_m.Value = thisform.RV_m.Value + thisform.AV_m.Value + thisform.PV_m.Value

	thisform.KGnetto_t.value = thisform.kgbrutto_t.value - thisform.sozvers_t.Value
	thisform.KGnetto_m.value = thisform.kgbrutto_m.value - thisform.sozvers_m.Value
ELSE &&stundenlohn

	thisform.tagesfaktor_brutto.Value = thisform.bruttoentgelt.Value / thisform.arbeitsstunden.Value * thisform.wochenstunden.Value / 7
	thisform.tagesfaktor_netto.Value = thisform.nettoentgelt.Value / thisform.arbeitsstunden.Value * thisform.wochenstunden.Value / 7
	
	thisform.kumbrutto_t.value = ROUND(thisform.tagesfaktor_brutto.value + (thisform.einmalzahlungen.Value / 360),2)
	thisform.kumbrutto_m.Value = thisform.kumbrutto_t.value * 30
	IF thisform.kumbrutto_m.value > thisform.deckelbetrag.value
		thisform.gedeckelt.value = thisform.deckelbetrag.value
	ELSE
		thisform.gedeckelt.value = thisform.kumbrutto_m.value
	ENDIF

	thisform.kk70.Value = ROUND(thisform.gedeckelt.value * 0.7,2)

	brutto_netto_quote = thisform.nettoentgelt.value / thisform.bruttoentgelt.value

	thisform.kumnetto_t.value = ROUND(thisform.tagesfaktor_netto.value,2) + ROUND(((thisform.einmalzahlungen.Value * brutto_netto_quote) / 360),2)
	thisform.kumnetto_m.Value = thisform.kumnetto_t.value * 30

	thisform.max90.Value = ROUND(thisform.kumnetto_m.value * 0.9,2)

	thisform.KGbrutto_m.Value = min(thisform.kk70.Value,thisform.max90.Value,thisform.nettoentgelt.value)
	thisform.kgbrutto_t.value = ROUND(thisform.KGbrutto_m.Value / 30,2)

	thisform.RV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.rvproz.Value),2)
	thisform.AV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.avproz.Value),2)
	thisform.PV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.pvproz.Value),2)

	thisform.RV_m.Value = thisform.RV_t.Value * 30
	thisform.AV_m.Value = thisform.AV_t.Value * 30
	thisform.PV_m.Value = thisform.PV_t.Value * 30

	thisform.sozvers_t.Value = thisform.RV_t.Value + thisform.AV_t.Value + thisform.PV_t.Value
	thisform.sozvers_m.Value = thisform.RV_m.Value + thisform.AV_m.Value + thisform.PV_m.Value

	thisform.KGnetto_t.value = thisform.kgbrutto_t.value - thisform.sozvers_t.Value
	thisform.KGnetto_m.value = thisform.kgbrutto_m.value - thisform.sozvers_m.Value
endif

ENDPROC
     	    	  	                        e   %   
	      	  9   	            U  J %    3 T    C        hT T         %          T          T  	 
 
 gedeckelt auf   T          T  	 
 
 verwend. wird * T    C    ffffff?T T   
      = T    C  
  TC     hT T        * T    C    ?T- T    C          
  F" T    C    T. T    C    d    T. T    C    d    T. T    C    d    T T         T         T        - T                - T                # T            # T             C1 T           !    "  1 T  #    
    !    "  . T    C         hT T         %         T          T         * T    C    ffffff?T T   
      8 T    C  #  TC     hT T        * T    C    ?T- T    C          
  F" T    C    T. T    C    d    T. T    C    d    T. T    C    d    T T         T         T        - T                - T                # T            # T              U$  THISFORM OPTIONGROUP1 VALUE KUMBRUTTO_T
 BRUTTOENTGELT EINMALZAHLUNGEN KUMBRUTTO_M DECKELBETRAG	 GEDECKELT LABEL4 CAPTION KK70 BRUTTO_NETTO_QUOTE NETTOENTGELT
 KUMNETTO_T
 KUMNETTO_M MAX90
 KGBRUTTO_M
 KGBRUTTO_T RV_T RVPROZ AV_T AVPROZ PV_T PVPROZ RV_M AV_M PV_M	 SOZVERS_T	 SOZVERS_M	 KGNETTO_T	 KGNETTO_M TAGESFAKTOR_BRUTTO ARBEITSSTUNDEN
 WOCHENSTUNDEN TAGESFAKTOR_NETTO Click,     1 q1 A !21  A !21A 2                             )   	                        textbox      textbox      	gedeckelt      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 333
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "gedeckelt"
      label      label      Label4      FORM1      {AutoSize = .T.
Alignment = 1
Caption = "gedeckelt auf"
Height = 17
Left = 341
Top = 247
Width = 75
Name = "Label4"
      textbox      textbox      deckelbetrag      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 488
Top = 210
Width = 84
DisabledForeColor = 0,0,0
Name = "deckelbetrag"
      label      label      Label5      FORM1      YCaption = "Kum. Brutto"
Height = 19
Left = 20
Top = 266
Width = 75
Name = "Label5"
      label      label      Label6      FORM1      XCaption = "Kum. Netto"
Height = 19
Left = 20
Top = 298
Width = 75
Name = "Label6"
      label      label      Label7      FORM1      YCaption = "KG (brutto)"
Height = 19
Left = 20
Top = 331
Width = 75
Name = "Label7"
      label      label      Label8      FORM1      aCaption = "- Soz.-Vers. Summe"
Height = 19
Left = 20
Top = 462
Width = 113
Name = "Label8"
      label      label      Label9      FORM1      XCaption = "KG (Netto)"
Height = 19
Left = 20
Top = 495
Width = 75
Name = "Label9"
      label      label      Label11      FORM1      WCaption = "MAX 70%"
Height = 17
Left = 428
Top = 267
Width = 54
Name = "Label11"
      label      label      Label10      FORM1      WCaption = "MAX 90%"
Height = 17
Left = 428
Top = 299
Width = 54
Name = "Label10"
      label      label      Label12      FORM1      WCaption = "MAX 100%"
Height = 17
Left = 236
Top = 99
Width = 61
Name = "Label12"
      textbox      textbox      RV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 378
Width = 84
DisabledForeColor = 0,0,0
Name = "RV_m"
      textbox      textbox      AV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 403
Width = 84
DisabledForeColor = 0,0,0
Name = "AV_m"
      textbox      textbox      RV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 378
Width = 84
DisabledForeColor = 0,0,0
Name = "RV_t"
      textbox      textbox      AV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 403
Width = 84
DisabledForeColor = 0,0,0
Name = "AV_t"
      label      label      Label13      FORM1      SCaption = "- RV"
Height = 19
Left = 46
Top = 379
Width = 30
Name = "Label13"
      label      label      Label14      FORM1      SCaption = "- AV"
Height = 19
Left = 46
Top = 404
Width = 30
Name = "Label14"
      textbox      textbox      PV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 237
Top = 428
Width = 84
DisabledForeColor = 0,0,0
Name = "PV_m"
      textbox      textbox      PV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 143
Top = 428
Width = 84
DisabledForeColor = 0,0,0
Name = "PV_t"
      label      label      Label15      FORM1      SCaption = "- PV"
Height = 19
Left = 46
Top = 429
Width = 30
Name = "Label15"
      textbox      textbox      rvproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.99"
Height = 23
InputMask = "99.99"
Left = 80
Top = 378
Width = 58
DisabledForeColor = 0,0,0
Name = "rvproz"
      textbox      textbox      AVproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.99"
Height = 23
InputMask = "99.99"
Left = 80
Top = 402
Width = 58
DisabledForeColor = 0,0,0
Name = "AVproz"
      textbox      textbox      PVproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.999"
Height = 23
InputMask = "99.999"
Left = 80
Top = 428
Width = 58
DisabledForeColor = 0,0,0
Name = "PVproz"
      line      line      Line1      FORM1      ?Height = 0
Left = 14
Top = 456
Width = 313
Name = "Line1"
      label      label      Label16      FORM1      yFontBold = .T.
Caption = "SV Abzge vom KG (Brutto)"
Height = 16
Left = 46
Top = 358
Width = 155
Name = "Label16"
      label      label      Label17      FORM1      \Caption = "Brutto Entgelt"
Height = 19
Left = 20
Top = 70
Width = 77
Name = "Label17"
      label      label      Label18      FORM1      [Caption = "Netto Entgelt"
Height = 19
Left = 20
Top = 98
Width = 77
Name = "Label18"
      label      label      Label19      FORM1      _Caption = "Einmalzahlungen"
Height = 19
Left = 20
Top = 124
Width = 100
Name = "Label19"
      label      label      Label20      FORM1      VCaption = "KV BBG"
Height = 15
Left = 440
Top = 214
Width = 46
Name = "Label20"
      textbox      textbox      jahr      FORM1      Alignment = 1
Value = 2020
Enabled = .F.
Height = 23
Left = 374
Top = 210
Width = 49
DisabledForeColor = 0,0,0
Name = "jahr"
      label      label      Label21      FORM1      FontBold = .T.
FontSize = 11
Caption = "Grundeinstellungen"
Height = 18
Left = 20
Top = 39
Width = 148
Name = "Label21"
      label      label      Label22      FORM1      cCaption = "bez. mon. Arbeitstd"
Height = 19
Left = 20
Top = 152
Width = 103
Name = "Label22"
      label      label      Label23      FORM1      \Caption = "Wochenstunden"
Height = 19
Left = 20
Top = 179
Width = 93
Name = "Label23"
      textbox      textbox      tagesfaktor_brutto      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 488
Top = 68
Width = 84
DisabledForeColor = 0,0,0
Name = "tagesfaktor_brutto"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            label      label      Label24      FORM1      bCaption = "Anteilsumme Brutto"
Height = 19
Left = 373
Top = 70
Width = 112
Name = "Label24"
      textbox      textbox      tagesfaktor_netto      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 488
Top = 96
Width = 84
DisabledForeColor = 0,0,0
Name = "tagesfaktor_netto"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            label      label      Label25      FORM1      aCaption = "Anteilsumme Netto"
Height = 19
Left = 372
Top = 98
Width = 112
Name = "Label25"
      line      line      Line2      FORM1      >Height = 0
Left = 11
Top = 64
Width = 564
Name = "Line2"
      textbox      textbox      KGmonatsname      FORM1      Alignment = 0
Value = ""
Enabled = .F.
Height = 23
Left = 280
Top = 210
Width = 92
DisabledForeColor = 0,0,0
Name = "KGmonatsname"
      
commandbutton      
commandbutton      Command2      FORM1      Top = 533
Left = 163
Height = 28
Width = 137
Cancel = .T.
Caption = "drucken"
ToolTipText = "Drucken der Krankengeldberechnung"
Name = "Command2"
     PROCEDURE Click

IF direktzumdruckerQ() = true
	oldselect = SELECT(0)
	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM krankengeld RANGE 1,1 NOCONSOLE TO PRINTER prompt
ELSE

	LOCAL loRepPreview, loRepListener
	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview

	oldselect = SELECT(0)
	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM krankengeld RANGE 1,1 NOCONSOLE OBJECT loRepListener
endif

SELECT dummy
USE
SELECT(oldselect)

RELEASE loRepListener
RELEASE loRepPreview

SELECT(oldselect)

ENDPROC
     l    S  S                        'W   %         
  .               U  d %C   }  T C W h dummy  C F   [ F  #)# ? krankengeld(!"9 0    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  o T	 
 Druckvorschau T
 a T  T  T
   T   T   T   T a  C     T C ReportListener T   T    T C W h dummy  C F   [ F  #)& ? krankengeld9.   F  Q
 F  <  < 
 F  U  DIREKTZUMDRUCKERQ TRUE	 OLDSELECT DUMMY FELD KRANKENGELD LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1 " q Q A r Q 2    2         A  q Q A r Q bA r A  r q  2                             )   S                        textbox      textbox      personalfallname      FORM1      Alignment = 0
Value = ""
Enabled = .F.
Height = 23
Left = 20
Top = 9
Width = 444
DisabledForeColor = 0,0,0
Name = "personalfallname"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 543
Left = 564
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0K   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _61W107N8Q1387366070 1 53           1.000    0.000    0.00082666.000                 F                                                            0 12   21F 3 3   TF              T    F T               0T               WINDOWS _61W107N8R           9  1                          67917.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61W107N8S           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61W107N8T           9  7                           3438.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61W108I221387366100 5  0        1354.167 4479.167 2916.66761458.333                               -1   -1   -1   -1   -1   -1                    0 18  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W1099R61387366118 8  0        4895.833 4479.167 2083.33334375.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10C43D1387366182 8  0        4895.83342916.667 2083.333 4375.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10CP1T1387366197 5  0        4895.83340000.000 1979.167 1875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W10FIW91387366266 8  0        4895.83347812.500 2083.33313333.333                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10OHEY1387366617 5  0        5000.00062291.667 1979.167 8645.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W10PTSY1387366650 5  0        5000.00062291.667 1875.000 9895.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W10QQEF1387366673 6            8437.500 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W10UP8E1387366775 5  0        9895.833 3958.333 1979.167 9062.500                               -1   -1   -1   -1   -1   -1                     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W10UVKR1387366776 5  0    !   12812.500 3958.333 1979.167 8645.833                               -1   -1   -1   -1   -1   -1               "     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10V6MZ1387366785 5  0    #   15729.167 3958.333 1979.16712187.500                               -1   -1   -1   -1   -1   -1               $     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10VRYF1387366807 8  0    %    9791.66720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               &     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10WBHQ1387366812 8  0    '   12708.33320520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               (     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10WM271387366820 8  0    )   15625.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               *     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10XJHK1387366842 5  0    +   12812.50030937.500 1875.000 8333.333                               -1   -1   -1   -1   -1   -1               ,     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10Y72G1387366859 5  0    -   18854.167 3958.333 1979.16713437.500                               -1   -1   -1   -1   -1   -1               .     0 12  1       FFFTF  F          0T                      0FTT0 0F/        WINDOWS _61W10Y72H1387366859 8  0    0   18750.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               1     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F2        WINDOWS _61W10YSXE1387366873 5  0    3   21979.167 3958.333 1979.16711562.500                               -1   -1   -1   -1   -1   -1               4     0 12  1       FFFTF  F          0T                      0FTT0 0F5        WINDOWS _61W10YSXF1387366873 8  0    6   21875.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               7     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F8        WINDOWS _61W1106D31387366908 5  0    9    9791.66745312.500 1979.16714062.500                               -1   -1   -1   -1   -1   -1               :     0 12  1       FFFTF  F          0T                      0FTT0 0F;        WINDOWS _61W1106D41387366908 8  0    <    9687.50061458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               =     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F>        WINDOWS _61W1106D51387366908 5  0    ?   12916.66745729.167 1979.16713645.833                               -1   -1   -1   -1   -1   -1               @     0 12  1       FFFTF  F          0T                      0FTT0 0FA        WINDOWS _61W1106D61387366908 8  0    B   12812.50061458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               C     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0FD        WINDOWS _61W1124MH1387366957 6           25625.000 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W113WQZ1387367003 5  0    E   21458.33353125.000 1979.167 6250.000                               -1   -1   -1   -1   -1   -1               F     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W1147IT1387367010 8  0    G   21145.83361458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               H     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0FI        WINDOWS _61W114YFB1387367027 5  0    J   29687.500 3958.333 1979.16713229.167                               -1   -1   -1   -1   -1   -1               K     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFC1387367027 5  0    L   32604.167 3958.333 1979.16712812.500                               -1   -1   -1   -1   -1   -1               M     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFD1387367027 5  0    N   35520.833 3958.333 1979.16714895.833                               -1   -1   -1   -1   -1   -1               O     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFE1387367027 8  0    P   29583.33320520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               Q     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFF1387367027 8  0    R   32500.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               S     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFG1387367027 8  0    T   35416.66720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               U     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFH1387367027 5  0    V   42291.667 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               W     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFI1387367027 8  0    X   42187.50020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               Y     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFJ1387367027 5  0    Z   45416.667 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               [     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFK1387367027 8  0    \   45312.50020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               ]     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W115YB31387367052 5  0    ^   38854.167 9479.167 2083.33329791.667                               -1   -1   -1   -1   -1   -1               _     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W117E6N1387367088 5  0    `   48645.833 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               a     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W117E6O1387367088 8  0    b   48541.66720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               c     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W1184361387367107 8  0    d   42187.50013958.333 2083.333 5625.000                   C           -1   -1   -1   -1   -1   -1               e     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W1184371387367107 8  0    f   45312.50013958.333 2083.333 5625.000                   C           -1   -1   -1   -1   -1   -1               g     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W1184381387367107 8  0    h   48541.66713958.333 2083.333 5625.000                   C           -1   -1   -1   -1   -1   -1               i     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W11AQG31387367172 8  0    j   29583.33330937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               k     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG41387367172 8  0    l   32500.00030937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               m     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG51387367172 8  0    n   35416.66730937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               o     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG61387367172 8  0    p   42187.50030937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               q     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG71387367172 8  0    r   45312.50030937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               s     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG81387367172 8  0    t   48541.66730937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               u     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AYN61387367177 8  0    v   29583.33341875.000 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               w     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11B6NS1387367182 5  0    x   29687.50053125.000 1979.167 7395.833                               -1   -1   -1   -1   -1   -1               y     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11BJ8M1387367190 5  0    z   32604.16753125.000 1979.167 7395.833                               -1   -1   -1   -1   -1   -1               {     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11BXS31387367202 8  0    |   29583.33361458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               }     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11BXS41387367202 8  0    ~   32500.00061458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11D8KW1387367234 5  0       27604.16724791.667 1979.167 4687.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11DI1X1387367240 5  0       27604.16733125.000 1979.167 6875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11E6GA1387367256 5  0       27604.16741458.333 1979.167 9687.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W11FU3G1387367299 6           51562.500 3541.667  104.16741250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W11GJG21387367315 5  0       52604.167 3958.333 1979.16714583.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11GJG31387367315 5  0       55520.833 3958.333 2083.33315937.500                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11GJG41387367315 8  0       52500.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG51387367315 8  0       55416.66720520.833 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG61387367315 8  0       52500.00030937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG71387367315 8  0       55416.66730937.500 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _61W11OO0O1387367517 5  0       27604.16741250.000 1979.167 9895.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W11TTGM1387367645 6           41250.000 3541.667  104.16741250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W11VG5Z1387367764 5  0       60208.333 4270.833 3958.33370208.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6IT0OSXLQ1445747787 5  0       64166.667 4270.833 1979.16754791.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0TTT0 0F         WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     23              28.000   11.000   21.000   64.000                                6    1                                        0 18                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                D   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         6"Berechnung des vorraussichtlichen Krankengeldes fr:"        Arial                                                         $mykrankengeld.personalfallname.value                          Arial                                                         *alltrim(str(mykrankengeld.jahr.value,4,0))                    Arial                                                         "ab"                                                          Arial                                                         )alltrim(mykrankengeld.KGmonatsname.value)                     Arial                                                         "(Festgehalt)"                                                Arial                                                         $mykrankengeld.optiongroup1.value = 1                          "(Stundenlohn)"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Bruttoentgelt"                                               Arial                                                         "Nettoentgelt"                                                Arial                                                         "Einmalzahlungen"                                             Arial                                                         !mykrankengeld.bruttoentgelt.value                             Arial                                                          mykrankengeld.nettoentgelt.value                              Arial                                                         #mykrankengeld.einmalzahlungen.value                           Arial                                                         
"MAX 100%"                                                    Arial                                                         "bez. Arbeitstunden"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "mykrankengeld.arbeitsstunden.value                            Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Wochenstunden"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          !mykrankengeld.wochenstunden.value                             Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Brutto"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          &mykrankengeld.tagesfaktor_brutto.value                        Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Netto"                                           Arial                                                         $mykrankengeld.optiongroup1.value = 2                          %mykrankengeld.tagesfaktor_netto.value                         Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "KV BBG"                                                      Arial                                                          mykrankengeld.deckelbetrag.value                              Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Kumuliertes Brutto"                                          Arial                                                         "Kumuliertes Netto"                                           Arial                                                         "Krankengeld (Brutto)"                                        Arial                                                         mykrankengeld.kumbrutto_t.value                               Arial                                                         mykrankengeld.kumnetto_t.value                                Arial                                                         mykrankengeld.KGbrutto_t.value                                Arial                                                         "- RV"                                                        Arial                                                         mykrankengeld.rv_t.value                                      Arial                                                         "- AV"                                                        Arial                                                         mykrankengeld.AV_t.value                                      Arial                                                         $"SV Abzge vom Krankengeld (Brutto)"                          Arial                                                         "- PV"                                                        Arial                                                         mykrankengeld.PV_t.value                                      Arial                                                         mykrankengeld.rvproz.value                                    Arial                                                         mykrankengeld.avproz.value                                    Arial                                                         mykrankengeld.pvproz.value                                    Arial                                                         mykrankengeld.kumbrutto_m.value                               Arial                                                         mykrankengeld.kumnetto_m.value                                Arial                                                         mykrankengeld.KGbrutto_m.value                                Arial                                                         mykrankengeld.rv_m.value                                      Arial                                                         mykrankengeld.AV_m.value                                      Arial                                                         mykrankengeld.PV_m.value                                      Arial                                                         mykrankengeld.gedeckelt.value                                 Arial                                                         	"MAX 70%"                                                     Arial                                                         	"MAX 90%"                                                     Arial                                                         mykrankengeld.kk70.value                                      Arial                                                         mykrankengeld.max90.value                                     Arial                                                         	"tglich"                                                     Arial                                                         "monatlich"                                                   Arial                                                         "gedeckelt auf"                                               Arial                                                         Bmykrankengeld.kumbrutto_m.value > mykrankengeld.deckelbetrag.value                                                            "- Soz.-Vers. Summe"                                          Arial                                                         "Krankengeld (Netto)"                                         Arial                                                         mykrankengeld.sozvers_t.value                                 Arial                                                         mykrankengeld.KGnetto_t.value                                 Arial                                                         mykrankengeld.sozvers_m.value                                 Arial                                                         mykrankengeld.KGnetto_m.value                                 Arial                                                         "verwend. wird"                                               Arial                                                         Cmykrankengeld.kumbrutto_m.value <= mykrankengeld.deckelbetrag.value                                                           "Das ist das vorraussichtliche Krankengeld. Es kann sein, dass Ihre Krankenkassensatzung 
eine andere Berechnung zugrunde legt. Gltig ist nur die schriftliche Mitteilung Ihrer Krankenkasse."                                                               Arial                                                         M"Dieser Ausdruck dient nur der Information und ist ausdrcklich ohne Gewhr!"                                                 Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         6"Berechnung des vorraussichtlichen Krankengeldes fr:"        Arial                                                         $mykrankengeld.personalfallname.value                          Arial                                                         *alltrim(str(mykrankengeld.jahr.value,4,0))                    Arial                                                         "ab"                                                          Arial                                                         )alltrim(mykrankengeld.KGmonatsname.value)                     Arial                                                         "(Festgehalt)"                                                Arial                                                         $mykrankengeld.optiongroup1.value = 1                          "(Stundenlohn)"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Bruttoentgelt"                                               Arial                                                         "Nettoentgelt"                                                Arial                                                         "Einmalzahlungen"                                             Arial                                                         !mykrankengeld.bruttoentgelt.value                             Arial                                                          mykrankengeld.nettoentgelt.value                              Arial                                                         #mykrankengeld.einmalzahlungen.value                           Arial                                                         
"MAX 100%"                                                    Arial                                                         "bez. Arbeitstunden"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "mykrankengeld.arbeitsstunden.value                            Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Wochenstunden"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          !mykrankengeld.wochenstunden.value                             Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Brutto"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          &mykrankengeld.tagesfaktor_brutto.value                        Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Netto"                                           Arial                                                         $mykrankengeld.optiongroup1.value = 2                          %mykrankengeld.tagesfaktor_netto.value                         Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "KV BBG"                                                      Arial                                                          mykrankengeld.deckelbetrag.value                              Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Kumuliertes Brutto"                                          Arial                                                         "Kumuliertes Netto"                                           Arial                                                         "Krankengeld (Brutto)"                                        Arial                                                         mykrankengeld.kumbrutto_t.value                               Arial                                                         mykrankengeld.kumnetto_t.value                                Arial                                                         mykrankengeld.KGbrutto_t.value                                Arial                                                         "- RV"                                                        Arial                                                         mykrankengeld.rv_t.value                                      Arial                                                         "- AV"                                                        Arial                                                         mykrankengeld.AV_t.value                                      Arial                                                         $"SV Abzge vom Krankengeld (Brutto)"                          Arial                                                         "- PV"                                                        Arial                                                         mykrankengeld.PV_t.value                                      Arial                                                         mykrankengeld.rvproz.value                                    Arial                                                         mykrankengeld.avproz.value                                    Arial                                                         mykrankengeld.pvproz.value                                    Arial                                                         mykrankengeld.kumbrutto_m.value                               Arial                                                         mykrankengeld.kumnetto_m.value                                Arial                                                         mykrankengeld.KGbrutto_m.value                                Arial                                                         mykrankengeld.rv_m.value                                      Arial                                                         mykrankengeld.AV_m.value                                      Arial                                                         mykrankengeld.PV_m.value                                      Arial                                                         mykrankengeld.gedeckelt.value                                 Arial                                                         	"MAX 70%"                                                     Arial                                                         	"MAX 90%"                                                     Arial                                                         mykrankengeld.kk70.value                                      Arial                                                         mykrankengeld.max90.value                                     Arial                                                         	"tglich"                                                     Arial                                                         "monatlich"                                                   Arial                                                         "gedeckelt auf"                                               Arial                                                         Bmykrankengeld.kumbrutto_m.value > mykrankengeld.deckelbetrag.value                                                            "- Soz.-Vers. Summe"                                          Arial                                                         "Krankengeld (Netto)"                                         Arial                                                         mykrankengeld.sozvers_t.value                                 Arial                                                         mykrankengeld.KGnetto_t.value                                 Arial                                                         mykrankengeld.sozvers_m.value                                 Arial                                                         mykrankengeld.KGnetto_m.value                                 Arial                                                         "verwend. wird"                                               Arial                                                         Cmykrankengeld.kumbrutto_m.value <= mykrankengeld.deckelbetrag.value                                                           "Das ist das vorraussichtliche Krankengeld. Es kann sein, dass Ihre Krankenkassensatzung 
eine andere Berechnung zugrunde legt. Gltig ist nur die schriftliche Mitteilung Ihrer Krankenkasse."                                                               Arial                                                         M"Dieser Ausdruck dient nur der Information und ist ausdrcklich ohne Gewhr!"                                                 Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _61O0NNDF21386829889      /  F      ]                                                       WINDOWS _61O0NNDF31430476266                    5                                                 WINDOWS _620108BD21388941004P      ]  j  x                                                             WINDOWS _620108BD31387629065          	                                                             WINDOWS _61O0NNDF21387874513r                                                                       WINDOWS _61O0NNDF21387874513          -  :                                                           WINDOWS _61O0NNDF21388941004                                                                       WINDOWS _61O0NNDF21389065877%      :  O  _  l         h                                                WINDOWS _61O0NNDF21387953318T!      c!  r!  !  !      h"  "                                               WINDOWS _61O0NNDF21387874513#      #  #  #  #                                                           WINDOWS _61O0NNDF71387874513$      $  $  $  $                                                           WINDOWS _61O0NNDF81387953318%      %  %  %  %      &  &                                               WINDOWS _61O0NNDF21387953318'      '  '  (  (      (  7)                                               WINDOWS _61O0NNDF31387953318*      **  9*  M*  Z*      ,+  t+                                               WINDOWS _61O0NNDF41387953318Z,      i,  x,  ,  ,      -  -                                               WINDOWS _61T0LVMQN1387953318.      .  .  .  /      0  5                                               WINDOWS _61O0NNDF213876290658      8  8  8  8                                                           WINDOWS _61O0NNDF313876290659      9  9  9  9                                                           WINDOWS _61O0NNDF41387629065:      :  :  :  :                                                           WINDOWS _61O0NNDF21387629065;      ;  ;  ;  ;                                                           WINDOWS _61O0NNDF31387629065<      <  <  <  <                                                           WINDOWS _61O0NNDF21387629065=      !=  .=  <=  I=                                                           WINDOWS _61O0NNDF51387629065=      =  =  =  =                                                           WINDOWS _61O0NNDF61387629065>      >  >  >  >                                                           WINDOWS _61O0NNDF71387629065?      ?  ?  ?  ?                                                           WINDOWS _61O0NNDF21387629065@      @  @  @  @                                                           WINDOWS _61O0NNDF31387629065A      A  A  A  A                                                           WINDOWS _61O0NNDF41387629065B      B  B  B  B                                                           WINDOWS _61O0NNDF21387629065C      C  C  C  C                                                           WINDOWS _61T0LVMQT1388991828D      D  D  D  D      xE  U                                               WINDOWS _61T0LVMQU1387629065_      _  "_  3_  @_                                                           WINDOWS _61O0NNDF21387629065`      `  `  ,`  9`                                                           WINDOWS _61T0LVMQW1387874513`      `  `  `  `                                                           WINDOWS _61O0NNDF21387629065a      a  a  a  a                                                           WINDOWS _61O0NNDF21387629065Wb      db  qb  b  b                                                           WINDOWS _61O0NNDF21387629065b      b  c  c   c                                                           WINDOWS _61O0NNDF21387629065c      c  c  c  c                                                           WINDOWS _61O0NNDF71387629065d      *d  7d  Ed  Rd                                                           WINDOWS _61O0NNDF21387629065d      d  d  d  d                                                           WINDOWS _61O0NNDF21387629065Fe      Se  `e  oe  |e                                                           WINDOWS _61T0MGLEQ1387629065e      e  e  f  f                                                           WINDOWS _61T0N4BM41387629065pf      f  f  f  f                                                           WINDOWS _61O0NNDF21387629065fg      ug  g  g  g                                                           WINDOWS _61T0N4BM51387629065\h      kh  zh  h  h                                                           WINDOWS _61O0NNDF31387629065Ri      ai  pi  |i  i                                                           WINDOWS _61O0NNDF21387629065Hj      Uj  bj  qj  ~j                                                           WINDOWS _61O0NNDF41387629065j      j  j  k  k                                                           WINDOWS _61T0N4BM61387629065jk      yk  k  k  k                                                           WINDOWS _61T0N4BM71387629065`l      ol  ~l  l  l                                                           WINDOWS _61T0N4BM81387629065Vm      cm  pm  m  m                                                           WINDOWS _61O0NNDF21387629065m      m  n  n   n                                                           WINDOWS _61O0NNDF21387629065n      n  n  o  o                                                           WINDOWS _61T0N4BM91387629065o      o  o  o  o                                                           WINDOWS _61T145NUQ1387629065p      p  p  p  p                                                           WINDOWS _61T145NUR1387629065.q      ;q  Hq  Wq  dq                                                           WINDOWS _61O0NNDF21387629065q      q  q  r  r                                                           WINDOWS _61O0NNDF21386829889~r      r  r  r  r                                                           WINDOWS _61T145NUS1387629065s      #s  0s  ?s  Ls                                                           WINDOWS _61T14GUI71387629065s      s  s  s  s                                                           WINDOWS _61O0NNDF21387629065Ft      Ut  dt  pt  }t                                                           WINDOWS _61T14GUI91387629065u      u  %u  4u  Au                                                           WINDOWS _61O0NNDF21387629065u      u  u  u  u                                                           WINDOWS _61O0NNDF31387629065hv      uv  v  v  v                                                           WINDOWS _61O0NNDF21387953318w      w  w  9w  Fw      x  Zx                                               WINDOWS _61O0NNDF31387629065>y      Ky  Xy  gy  ty                                                           WINDOWS _61W0ZCCJ41387953318y      y  y  z  "z      z  5{                                               WINDOWS _61W0ZCCJ51387629065|      &|  3|  B|  O|                                                           WINDOWS _61W0ZS6W11387629065|      |  |  |  |                                                           WINDOWS _61O0NNDF21387629065/}      >}  M}  a}  n}                                                           WINDOWS _61W10CM1X1411675048~      ~  ,~  <~  I~      ~                                                 WINDOWS _61W10MBO31387629065)      8  G  _  l                                                           WINDOWS _61O0NNDF21388992568        '  7  D                                                           WINDOWS _61O0NNDF21387629065ʊ      ׊                                                                  WINDOWS _61O0NNDF21387629065e      r                                                                 WINDOWS _61O0NNDF21387629065          (  5                                                           WINDOWS _61O0NNDF21387953319          Ȍ  Ռ      b                                                 WINDOWS _61O0NNDF21388993194                  O                                                 WINDOWS _61O0NNDF31387953319                  I                                                 WINDOWS _61O0NNDF21387953319y                  ]  >                                               WINDOWS _61O0NNDF21387874513        ɘ  ؘ                                                             WINDOWS _61O0NNDF31387874513J      Y  h  y                                                             WINDOWS _61O0NNDF213880071493      @  M  [  h                                                           WINDOWS _61O0NNDF21387629633Ś      Қ  ߚ                                                               WINDOWS _61O0NNDF31387874513w                                                                       WINDOWS _61O0NNDF21386829889k      x                                                                 WINDOWS _61O0NNDF21386829889      !  .  =  J                                                           WINDOWS _61O0NNDF31387953319      ϝ  ޝ                                                               WINDOWS _61O0NNDF21387629065      Ǟ  ֞                                                               WINDOWS _620108BDF1387629065        џ                                                               WINDOWS _61O0NNDF21387629065        ʠ  ٠                                                             WINDOWS _620108BDG1387629065J      W  d  s                                                             WINDOWS _61O0NNDF21387953319          
                                                             WINDOWS _61O0NNDF31387874513          Ţ  Ң                                                           WINDOWS _62012IZO71387874513                                                                       WINDOWS _62012IZO813879533197      F  U  l  y      4  }                                               WINDOWS _6250VGRWU1388994897b      w            .  <                                               WINDOWS _620108BD21387953319      &  3  B  O                                                           WINDOWS _6250WEA3Q1387953319          "  /                                                           WINDOWS _61O0NNDF31387953318                                                                       WINDOWS _6250WEA3S1388475459                                                                       WINDOWS _6250XH8W71388018585I      V  c  q  ~                                                           WINDOWS _61O0NNDF21388007149                                                                       WINDOWS _61O0NNDF31388018585                                                                       WINDOWS _61O0NNDF21388007149                                                                       WINDOWS _61O0NNDF31388018585<      K  Z  i  v                                                           WINDOWS _61O0NNDF21386829889%      2  ?  N  [                                                           WINDOWS _61O0NNDF21388018585                                                                       WINDOWS _61O0NNDF31388018585                                                                       WINDOWS _61O0NNDF21388018585~                                                                       WINDOWS _61O0NNDF21388018585>      M  \  m  z                                                           WINDOWS _61O0NNDF31388018585;      H  U  d  q                                                           WINDOWS _620108BD21388018585                                                                       WINDOWS _61O0NNDF21386829889                                                                       WINDOWS _61O0NNDF31388941916                                                                       WINDOWS _6260X6GZT13880185858      E  R  a  n                                                           WINDOWS _61O0NNDF21388941916          *  7                                                           WINDOWS _61O0NNDF31388941916             -                                                           WINDOWS _61O0NNDF21388941916                                                                       WINDOWS _61O0NNDF31388941916                                                                       WINDOWS _62J13977W1389065877       /  >  N  [                                                           WINDOWS _62J13977X1388941916      (  5  D  Q                                                           WINDOWS _61O0NNDF21389065877                  z                                                 WINDOWS _62K0MYFYU1389065877S      h  }                                                           WINDOWS _62K0YKGSD1389065877      	    .  ;                                                       WINDOWS _62L0VVZA41389065877          *  7                                                       WINDOWS _62L0VVZA51389065877                                                                  WINDOWS _6841A7W1B1402711098t                                                               COMMENT RESERVED                                [                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     8BorderStyle = 3
Height = 595
Width = 970
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "vorraussichtlicher Krankengeldzuschuss"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Init
mykrankengeld = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.personalfallname.Value = ALLTRIM(myform1.z0.caption)

namensfile = fileneu

SELECT persflle
LOCATE FOR pcg_f2 = zi(1+0) .and. pcg_f4 = welchesjahr
IF .not. EOF()
	thisform.optiongroup1.value	= persflle.pcg_f5 
	thisform.tarifart.value = persflle.pcg_f6   
	thisform.wiederhohlung.value = persflle.pcg_f7 
	thisform.bruttoentgelt.value = persflle.pcg_f8 
	thisform.nettoentgelt.valu = persflle.pcg_f9 
	thisform.Einmalzahlungen.value= persflle.pcg_f10 
	thisform.arbeitsstunden.value = persflle.pcg_f11 
	thisform.wochenstunden.value = persflle.pcg_f12 
	thisform.eingestellt.value = persflle.pcg_f13 
	thisform.krankanfang.value = persflle.pcg_f14 
	thisform.krankende.value = persflle.pcg_f15 
	thisform.VWLabzug.value	= persflle.pcg_f16 
	thisform.VBLabzug.value	= persflle.pcg_f17 
	thisform.persrecno.Value = RECNO()
ELSE
	thisform.persrecno.Value = 0
endif	
Do Case && zi(1+2)
	Case  Inlist(zi(1+2), 0, 1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 15)
		altesland = 0
	Case  Inlist(zi(1+2), 4, 8, 13, 14, 16, 17)
		altesland = 1
ENDCASE

thisform.deckelbetrag.Value = kvgrenze(1+altesland) / 100

DO jahresbersicht1 WITH "J"

IF zi(1+20) = 0 &&vormonatswert holen
	jj = zi(1+20) &&nicht kleiner als Januar
ELSE
	jj = zi(1+20) - 1
ENDIF

thisform.KGmonatsname.Value = getmonthname(zi(1+20))

thisform.bruttoentgelt.Value = sicht(2+jj,1) &&5048.03
thisform.nettoentgelt.Value = sicht(2+jj,33) &&3097.90
thisform.einmalzahlungen.Value = sicht(2+jj,12) &&353.94
thisform.rVproz.Value = rvorein &&9.30
thisform.AVproz.Value = avorein &&1.20
thisform.PVproz.Value = pvorein &&1.525 
thisform.jahr.value = welchesjahr

IF thisform.optiongroup1.Value = 1		
	thisform.wochenstunden.Value = 0.00
	thisform.arbeitsstunden.Value = 0.00
	thisform.label22.Visible = .f.
	thisform.label23.Visible = .f.	
	thisform.arbeitsstunden.Visible = .f.
	thisform.wochenstunden.Visible = .f.	
	thisform.label24.Visible = .f.
	thisform.label25.Visible = .f.	
	thisform.tagesfaktor_brutto.Visible = .f.
	thisform.tagesfaktor_netto.Visible = .f.	
	thisform.tagesfaktor_brutto.value = 0.00
	thisform.tagesfaktor_netto.value = 0.00
	thisform.vwlabzug.Value = ABS(sicht(2+jj,4))
	thisform.vblabzug.Value = ABS(sicht(2+jj,28))
ELSE
	thisform.wochenstunden.Value = myform1.t1.value
	thisform.label22.Visible = .t.
	thisform.label23.Visible = .t.	
	thisform.arbeitsstunden.Visible = .t.
	thisform.wochenstunden.Visible = .t.
	thisform.label24.Visible = .t.
	thisform.label25.Visible = .t.	
	thisform.tagesfaktor_brutto.Visible = .t.
	thisform.tagesfaktor_netto.Visible = .t.	
ENDIF
thisform.berechnen.click
thisform.eingestellt.Valid
thisform.berechnen2.click

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
thisform.Refresh

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     Q    8  8                           %   
      
  [   )
            U  q
 T    %   
1  T     T   C   
 T 	  F
  - C  
  	
 %C+
 T   
   T   
   T   
   T   
   T   
   T   
   T   
   T   
   T    
 !  T "  
 #  T $  
 %  T &  
 '  T (  
 )  T *  CO  T *    
 H`7 CC  	
.
 T+  % CC 
`
 T+   T ,  C+ - d .  J %C   T/ C   T/ C   T 0  CC 1  T   C/ 2  T   C/ !2  T   C/ 2  T 3  4  T 5  6  T 7  8  T 9    %    T            T            T : ; - T < ; - T  ; - T  ; - T = ; - T > ; - T ? ; - T @ ; - T ?           T @            T &  CC/ 2   T (  CC/ 2   T    A   T : ; a T < ; a T  ; a T  ; a T = ; a T > ; a T ? ; a T @ ; a 
  B C 
    D 
  E C  % F G H  TI CH  F G T 
 TI  
  J K  T F  F G I  T L  L G I 
  M  T N a
  O  UP 
 MYKRANKENGELD THISFORM TOP PERSONALFALLNAME VALUE MYFORM1 Z0 CAPTION
 NAMENSFILE FILENEU	 PERSFLLE PCG_F2 ZI PCG_F4 WELCHESJAHR OPTIONGROUP1 PCG_F5 TARIFART PCG_F6
 WIEDERHOHLUNG PCG_F7
 BRUTTOENTGELT PCG_F8 NETTOENTGELT VALU PCG_F9 EINMALZAHLUNGEN PCG_F10 ARBEITSSTUNDEN PCG_F11
 WOCHENSTUNDEN PCG_F12 EINGESTELLT PCG_F13 KRANKANFANG PCG_F14	 KRANKENDE PCG_F15 VWLABZUG PCG_F16 VBLABZUG PCG_F17	 PERSRECNO	 ALTESLAND DECKELBETRAG KVGRENZE JAHRESBERSICHT1 JJ KGMONATSNAME GETMONTHNAME SICHT RVPROZ RVOREIN AVPROZ AVOREIN PVPROZ PVOREIN JAHR LABEL22 VISIBLE LABEL23 LABEL24 LABEL25 TAGESFAKTOR_BRUTTO TAGESFAKTOR_NETTO T1	 BERECHNEN CLICK VALID
 BERECHNEN2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER REFRESH  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize	    1  AA  r  aaaaaaaaaaaaa! 1A  q Q A  R QA 1111r A      A     3 1                       x     Y       f    )   8                        shape      shape      Shape3      FORM1      TTop = 5
Left = 550
Height = 555
Width = 418
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape6      FORM1      TTop = 58
Left = 555
Height = 56
Width = 407
SpecialEffect = 0
Name = "Shape6"
      shape      shape      Shape4      FORM1      VTop = 112
Left = 555
Height = 164
Width = 407
SpecialEffect = 0
Name = "Shape4"
      shape      shape      Shape2      FORM1      RTop = 3
Left = 3
Height = 204
Width = 548
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      TTop = 205
Left = 3
Height = 355
Width = 548
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      Command1      FORM1      Top = 563
Left = 8
Height = 28
Width = 137
Cancel = .T.
Caption = "abbrechen"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "Command1"
      APROCEDURE Click
myKGzuschuss = ""
thisform.Release

ENDPROC
                                      i   %   k             z             U   
 T    
    U  MYKGZUSCHUSS THISFORM RELEASE Click,     1   2                       6       )                            textbox      textbox      
Bruttoentgelt      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
ToolTipText = "Bruttoentgelt vor der Krankschreibung"
Top = 68
Width = 84
Name = "Bruttoentgelt"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN 1

ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   2                       5       )                            textbox      textbox      max90      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 467
Top = 296
Width = 77
DisabledForeColor = 0,0,0
Name = "max90"
      textbox      textbox      kk70      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 468
Top = 264
Width = 77
DisabledForeColor = 0,0,0
Name = "kk70"
      textbox      textbox      arbeitsstunden      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 133
ToolTipText = "bezahlte monatliche Arbeitstunden vor der Krankschreibung"
Top = 150
Width = 84
Name = "arbeitsstunden"
      >PROCEDURE Valid
thisform.berechnen.click
RETURN 1
ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   1                       3       )                            textbox      textbox      
wochenstunden      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 133
ToolTipText = "vereinbarte wchentliche Arbeitszeit"
Top = 177
Width = 84
Name = "wochenstunden"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            textbox      textbox      nettoentgelt      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
ToolTipText = "Nettoentgelt vor der Krankschreibung"
Top = 96
Width = 84
Name = "nettoentgelt"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN 1

ENDPROC
                                      8   %   e       |      t             U   
     	 B U  THISFORM	 BERECHNEN CLICK Valid,     1   2                       5       )                            textbox      textbox      Einmalzahlungen      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
ToolTipText = "Summe der Einmalzahlungen der vergannen 12 Monate VOR der Kranschreibung"
Top = 123
Width = 84
Name = "Einmalzahlungen"
      BPROCEDURE Valid
thisform.berechnen.click
RETURN .t.

ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 2                       7       )                            optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 2
Value = 1
Height = 28
Left = 201
Top = 34
Width = 252
ToolTipText = "Bitte whlen Sie ..."
Name = "Optiongroup1"
Option1.Caption = "Festgehalt"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 103
Option1.Name = "Option1"
Option2.Caption = "Stundenlohn"
Option2.Height = 17
Option2.Left = 140
Option2.Top = 5
Option2.Width = 103
Option2.Name = "Option2"
     9PROCEDURE InteractiveChange
IF thisform.optiongroup1.Value = 1		
	thisform.wochenstunden.Value = 0.00
	thisform.arbeitsstunden.Value = 0.00
	thisform.wochenstunden.enabled = .f.
	thisform.arbeitsstunden.enabled = .f.
	thisform.label22.Visible = .f.
	thisform.label23.Visible = .f.	
	thisform.arbeitsstunden.Visible = .f.
	thisform.wochenstunden.Visible = .f.	
	thisform.label24.Visible = .f.
	thisform.label25.Visible = .f.	
	thisform.tagesfaktor_brutto.Visible = .f.
	thisform.tagesfaktor_netto.Visible = .f.	
	thisform.tagesfaktor_brutto.value = 0.00
	thisform.tagesfaktor_netto.value = 0.00
ELSE
	thisform.wochenstunden.Value = myform1.t1.value
	thisform.label22.Visible = .t.
	thisform.label23.Visible = .t.	
	thisform.arbeitsstunden.Visible = .t.
	thisform.wochenstunden.Visible = .t.
	thisform.wochenstunden.enabled = .t.
	thisform.arbeitsstunden.enabled = .t.	
	thisform.label24.Visible = .t.
	thisform.label25.Visible = .t.	
	thisform.tagesfaktor_brutto.Visible = .t.
	thisform.tagesfaktor_netto.Visible = .t.	
ENDIF
thisform.Refresh
ENDPROC
                                   &   %         C                 U  	 %    - T             T             T    - T    - T    - T    - T    - T    - T  	  - T  
  - T    - T    - T             T              T    
    T    a T    a T    a T    a T    a T    a T  	  a T  
  a T    a T    a 
     U  THISFORM OPTIONGROUP1 VALUE
 WOCHENSTUNDEN ARBEITSSTUNDEN ENABLED LABEL22 VISIBLE LABEL23 LABEL24 LABEL25 TAGESFAKTOR_BRUTTO TAGESFAKTOR_NETTO MYFORM1 T1 REFRESH InteractiveChange,     1 q A  1                       .      )                           textbox      textbox      kumbrutto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "kumbrutto_m"
      textbox      textbox      
kumnetto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 296
Width = 84
DisabledForeColor = 0,0,0
Name = "kumnetto_m"
      textbox      textbox      
KGbrutto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 330
Width = 84
DisabledForeColor = 0,0,0
Name = "KGbrutto_m"
      label      label      Label1      FORM1      FontBold = .T.
FontSize = 11
Caption = "Berechnung des Krankengeldes ab"
Height = 19
Left = 9
Top = 212
Width = 256
Name = "Label1"
      label      label      Label2      FORM1      XCaption = "monatlich"
Height = 15
Left = 248
Top = 248
Width = 57
Name = "Label2"
      label      label      Label3      FORM1      VCaption = "tglich"
Height = 15
Left = 178
Top = 248
Width = 38
Name = "Label3"
      textbox      textbox      kumbrutto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "kumbrutto_t"
      textbox      textbox      
kumnetto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 296
Width = 84
DisabledForeColor = 0,0,0
Name = "kumnetto_t"
      textbox      textbox      
KGbrutto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 330
Width = 84
DisabledForeColor = 0,0,0
Name = "KGbrutto_t"
      textbox      textbox      	sozvers_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 461
Width = 84
DisabledForeColor = 0,0,0
Name = "sozvers_m"
      textbox      textbox      	KGnetto_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 494
Width = 84
DisabledForeColor = 0,0,0
Name = "KGnetto_m"
      textbox      textbox      	sozvers_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 461
Width = 84
DisabledForeColor = 0,0,0
Name = "sozvers_t"
      textbox      textbox      	KGnetto_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 494
Width = 84
DisabledForeColor = 0,0,0
Name = "KGnetto_t"
      
commandbutton      
commandbutton      	berechnen      FORM1      yTop = 507
Left = 435
Height = 28
Width = 97
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
     PROCEDURE Click
IF thisform.optiongroup1.Value = 1 &&festgehalt
	thisform.kumbrutto_t.value = ROUND((thisform.bruttoentgelt.value / 30) + (thisform.einmalzahlungen.Value / 360),2)
	thisform.kumbrutto_m.Value = thisform.kumbrutto_t.value * 30
	IF thisform.kumbrutto_m.value > thisform.deckelbetrag.value
		thisform.gedeckelt.value = thisform.deckelbetrag.value
		thisform.label4.Caption = "gedeckelt auf"
	ELSE
		thisform.gedeckelt.value = thisform.kumbrutto_m.value
		thisform.label4.Caption = "verwend. wird"		
	ENDIF

	thisform.kk70.Value = ROUND(thisform.gedeckelt.value * 0.7,2)

	brutto_netto_quote = thisform.nettoentgelt.value / thisform.bruttoentgelt.value

	thisform.kumnetto_t.value = ROUND((thisform.nettoentgelt.value / 30),2) + ROUND(((thisform.einmalzahlungen.Value * brutto_netto_quote) / 360),2)
	thisform.kumnetto_m.Value = thisform.kumnetto_t.value * 30

	thisform.max90.Value = ROUND(thisform.kumnetto_m.value * 0.9,2)

	thisform.KGbrutto_m.Value = min(thisform.kk70.Value,thisform.max90.Value,thisform.nettoentgelt.value)
	thisform.kgbrutto_t.value = ROUND(thisform.KGbrutto_m.Value / 30,2)

	thisform.RV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.rvproz.Value),2)
	thisform.AV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.avproz.Value),2)
	thisform.PV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.pvproz.Value),2)

	thisform.RV_m.Value = thisform.RV_t.Value * 30
	thisform.AV_m.Value = thisform.AV_t.Value * 30
	thisform.PV_m.Value = thisform.PV_t.Value * 30

	thisform.sozvers_t.Value = thisform.RV_t.Value + thisform.AV_t.Value + thisform.PV_t.Value
	thisform.sozvers_m.Value = thisform.RV_m.Value + thisform.AV_m.Value + thisform.PV_m.Value

	thisform.KGnetto_t.value = thisform.kgbrutto_t.value - thisform.sozvers_t.Value
	thisform.KGnetto_m.value = thisform.kgbrutto_m.value - thisform.sozvers_m.Value
ELSE &&stundenlohn

	thisform.tagesfaktor_brutto.Value = thisform.bruttoentgelt.Value / thisform.arbeitsstunden.Value * thisform.wochenstunden.Value / 7
	thisform.tagesfaktor_netto.Value = thisform.nettoentgelt.Value / thisform.arbeitsstunden.Value * thisform.wochenstunden.Value / 7
	
	thisform.kumbrutto_t.value = ROUND(thisform.tagesfaktor_brutto.value + (thisform.einmalzahlungen.Value / 360),2)
	thisform.kumbrutto_m.Value = thisform.kumbrutto_t.value * 30
	IF thisform.kumbrutto_m.value > thisform.deckelbetrag.value
		thisform.gedeckelt.value = thisform.deckelbetrag.value
	ELSE
		thisform.gedeckelt.value = thisform.kumbrutto_m.value
	ENDIF

	thisform.kk70.Value = ROUND(thisform.gedeckelt.value * 0.7,2)

	brutto_netto_quote = thisform.nettoentgelt.value / thisform.bruttoentgelt.value

	thisform.kumnetto_t.value = ROUND(thisform.tagesfaktor_netto.value,2) + ROUND(((thisform.einmalzahlungen.Value * brutto_netto_quote) / 360),2)
	thisform.kumnetto_m.Value = thisform.kumnetto_t.value * 30

	thisform.max90.Value = ROUND(thisform.kumnetto_m.value * 0.9,2)

	thisform.KGbrutto_m.Value = min(thisform.kk70.Value,thisform.max90.Value,thisform.nettoentgelt.value)
	thisform.kgbrutto_t.value = ROUND(thisform.KGbrutto_m.Value / 30,2)

	thisform.RV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.rvproz.Value),2)
	thisform.AV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.avproz.Value),2)
	thisform.PV_t.Value = ROUND(((thisform.KGbrutto_t.value / 100) * thisform.pvproz.Value),2)

	thisform.RV_m.Value = thisform.RV_t.Value * 30
	thisform.AV_m.Value = thisform.AV_t.Value * 30
	thisform.PV_m.Value = thisform.PV_t.Value * 30

	thisform.sozvers_t.Value = thisform.RV_t.Value + thisform.AV_t.Value + thisform.PV_t.Value
	thisform.sozvers_m.Value = thisform.RV_m.Value + thisform.AV_m.Value + thisform.PV_m.Value

	thisform.KGnetto_t.value = thisform.kgbrutto_t.value - thisform.sozvers_t.Value
	thisform.KGnetto_m.value = thisform.kgbrutto_m.value - thisform.sozvers_m.Value
endif

ENDPROC
     	    	  	                        e   %   
	      	  9   	            U  J %    3 T    C        hT T         %          T          T  	 
 
 gedeckelt auf   T          T  	 
 
 verwend. wird * T    C    ffffff?T T   
      = T    C  
  TC     hT T        * T    C    ?T- T    C          
  F" T    C    T. T    C    d    T. T    C    d    T. T    C    d    T T         T         T        - T                - T                # T            # T             C1 T           !    "  1 T  #    
    !    "  . T    C         hT T         %         T          T         * T    C    ffffff?T T   
      8 T    C  #  TC     hT T        * T    C    ?T- T    C          
  F" T    C    T. T    C    d    T. T    C    d    T. T    C    d    T T         T         T        - T                - T                # T            # T              U$  THISFORM OPTIONGROUP1 VALUE KUMBRUTTO_T
 BRUTTOENTGELT EINMALZAHLUNGEN KUMBRUTTO_M DECKELBETRAG	 GEDECKELT LABEL4 CAPTION KK70 BRUTTO_NETTO_QUOTE NETTOENTGELT
 KUMNETTO_T
 KUMNETTO_M MAX90
 KGBRUTTO_M
 KGBRUTTO_T RV_T RVPROZ AV_T AVPROZ PV_T PVPROZ RV_M AV_M PV_M	 SOZVERS_T	 SOZVERS_M	 KGNETTO_T	 KGNETTO_M TAGESFAKTOR_BRUTTO ARBEITSSTUNDEN
 WOCHENSTUNDEN TAGESFAKTOR_NETTO Click,     1 q1 A !21  A !21A 2                             )   	                        textbox      textbox      	gedeckelt      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 312
Top = 264
Width = 84
DisabledForeColor = 0,0,0
Name = "gedeckelt"
      label      label      Label4      FORM1      {AutoSize = .T.
Alignment = 1
Caption = "gedeckelt auf"
Height = 17
Left = 320
Top = 247
Width = 75
Name = "Label4"
      textbox      textbox      deckelbetrag      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 468
Top = 210
Width = 77
DisabledForeColor = 0,0,0
Name = "deckelbetrag"
      label      label      Label5      FORM1      XCaption = "Kum. Brutto"
Height = 19
Left = 9
Top = 266
Width = 75
Name = "Label5"
      label      label      Label6      FORM1      WCaption = "Kum. Netto"
Height = 19
Left = 9
Top = 298
Width = 75
Name = "Label6"
      label      label      Label7      FORM1      XCaption = "KG (brutto)"
Height = 19
Left = 9
Top = 331
Width = 75
Name = "Label7"
      label      label      Label8      FORM1      `Caption = "- Soz.-Vers. Summe"
Height = 19
Left = 9
Top = 462
Width = 113
Name = "Label8"
      label      label      Label9      FORM1      WCaption = "KG (Netto)"
Height = 19
Left = 9
Top = 495
Width = 75
Name = "Label9"
      label      label      Label11      FORM1      WCaption = "MAX 70%"
Height = 17
Left = 411
Top = 267
Width = 54
Name = "Label11"
      label      label      Label10      FORM1      WCaption = "MAX 90%"
Height = 17
Left = 411
Top = 299
Width = 54
Name = "Label10"
      label      label      Label12      FORM1      WCaption = "MAX 100%"
Height = 17
Left = 225
Top = 99
Width = 61
Name = "Label12"
      textbox      textbox      RV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 378
Width = 84
DisabledForeColor = 0,0,0
Name = "RV_m"
      textbox      textbox      AV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 403
Width = 84
DisabledForeColor = 0,0,0
Name = "AV_m"
      textbox      textbox      RV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 378
Width = 84
DisabledForeColor = 0,0,0
Name = "RV_t"
      textbox      textbox      AV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 403
Width = 84
DisabledForeColor = 0,0,0
Name = "AV_t"
      label      label      Label13      FORM1      SCaption = "- RV"
Height = 19
Left = 35
Top = 379
Width = 30
Name = "Label13"
      label      label      Label14      FORM1      SCaption = "- AV"
Height = 19
Left = 35
Top = 404
Width = 30
Name = "Label14"
      textbox      textbox      PV_m      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 221
Top = 428
Width = 84
DisabledForeColor = 0,0,0
Name = "PV_m"
      textbox      textbox      PV_t      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 132
Top = 428
Width = 84
DisabledForeColor = 0,0,0
Name = "PV_t"
      label      label      Label15      FORM1      SCaption = "- PV"
Height = 19
Left = 35
Top = 429
Width = 30
Name = "Label15"
      textbox      textbox      rvproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.99"
Height = 23
InputMask = "99.99"
Left = 69
Top = 378
Width = 58
DisabledForeColor = 0,0,0
Name = "rvproz"
      textbox      textbox      AVproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.99"
Height = 23
InputMask = "99.99"
Left = 69
Top = 402
Width = 58
DisabledForeColor = 0,0,0
Name = "AVproz"
      textbox      textbox      PVproz      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "99.999"
Height = 23
InputMask = "99.999"
Left = 69
Top = 428
Width = 58
DisabledForeColor = 0,0,0
Name = "PVproz"
      line      line      Line1      FORM1      >Height = 0
Left = 3
Top = 456
Width = 313
Name = "Line1"
      label      label      Label16      FORM1      yFontBold = .T.
Caption = "SV Abzge vom KG (Brutto)"
Height = 16
Left = 35
Top = 358
Width = 155
Name = "Label16"
      label      label      Label17      FORM1      [Caption = "Brutto Entgelt"
Height = 19
Left = 9
Top = 70
Width = 77
Name = "Label17"
      label      label      Label18      FORM1      ZCaption = "Netto Entgelt"
Height = 19
Left = 9
Top = 98
Width = 77
Name = "Label18"
      label      label      Label19      FORM1      ^Caption = "Einmalzahlungen"
Height = 19
Left = 9
Top = 124
Width = 100
Name = "Label19"
      label      label      Label20      FORM1      VCaption = "KV BBG"
Height = 15
Left = 413
Top = 214
Width = 46
Name = "Label20"
      textbox      textbox      jahr      FORM1      Alignment = 1
Value = 2020
Enabled = .F.
Height = 23
Left = 358
Top = 210
Width = 49
DisabledForeColor = 0,0,0
Name = "jahr"
      label      label      Label21      FORM1      FontBold = .T.
FontSize = 11
Caption = "Grundeinstellungen"
Height = 18
Left = 9
Top = 39
Width = 148
Name = "Label21"
      label      label      Label22      FORM1      bCaption = "bez. mon. Arbeitstd"
Height = 19
Left = 9
Top = 152
Width = 103
Name = "Label22"
      label      label      Label23      FORM1      [Caption = "Wochenstunden"
Height = 19
Left = 9
Top = 179
Width = 93
Name = "Label23"
      textbox      textbox      tagesfaktor_brutto      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 461
Top = 68
Width = 84
DisabledForeColor = 0,0,0
Name = "tagesfaktor_brutto"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            label      label      Label24      FORM1      bCaption = "Anteilsumme Brutto"
Height = 19
Left = 346
Top = 70
Width = 112
Name = "Label24"
      textbox      textbox      tagesfaktor_netto      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 461
Top = 96
Width = 84
DisabledForeColor = 0,0,0
Name = "tagesfaktor_netto"
      @PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            label      label      Label25      FORM1      aCaption = "Anteilsumme Netto"
Height = 19
Left = 345
Top = 98
Width = 112
Name = "Label25"
      line      line      Line2      FORM1      =Height = 0
Left = 7
Top = 64
Width = 540
Name = "Line2"
      textbox      textbox      KGmonatsname      FORM1      Alignment = 0
Value = ""
Enabled = .F.
Height = 23
Left = 264
Top = 210
Width = 92
DisabledForeColor = 0,0,0
Name = "KGmonatsname"
      
commandbutton      
commandbutton      Command2      FORM1      Top = 564
Left = 298
Height = 28
Width = 137
Cancel = .T.
Caption = "drucken"
ToolTipText = "Drucken der Krankengeldberechnung"
Name = "Command2"
     PROCEDURE Click
IF direktzumdruckerQ() = true
	oldselect = SELECT(0)
	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM krankengeld RANGE 1,1 NOCONSOLE TO PRINTER prompt
else
	LOCAL loRepPreview, loRepListener
	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview

	oldselect = SELECT(0)
	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM krankengeld RANGE 1,1 NOCONSOLE OBJECT loRepListener
endif

SELECT dummy
USE
SELECT(oldselect)

RELEASE loRepListener
RELEASE loRepPreview

SELECT(oldselect)

ENDPROC
     l    S  S                        'W   %         
  .               U  d %C   }  T C W h dummy  C F   [ F  #)# ? krankengeld(!"9 0    T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  o T	 
 Druckvorschau T
 a T  T  T
   T   T   T   T a  C     T C ReportListener T   T    T C W h dummy  C F   [ F  #)& ? krankengeld9.   F  Q
 F  <  < 
 F  U  DIREKTZUMDRUCKERQ TRUE	 OLDSELECT DUMMY FELD KRANKENGELD LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1 ! q Q A r Q 2    2         A  q Q A r Q bA r A  r q  2                             )   S                        textbox      textbox      personalfallname      FORM1      Alignment = 0
Value = ""
Enabled = .F.
Height = 23
Left = 9
Top = 9
Width = 444
DisabledForeColor = 0,0,0
Name = "personalfallname"
      optiongroup      optiongroup      tarifart      FORM1     ~ButtonCount = 2
Value = 1
Height = 47
Left = 555
Top = 9
Width = 101
Name = "tarifart"
Option1.Caption = "TVD/TV-L"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 85
Option1.Name = "Option1"
Option2.Caption = "aus dem BAT"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 88
Option2.Name = "Option2"
      label      label      Label26      FORM1      ]Caption = "Eingestellt am"
Height = 17
Left = 563
Top = 85
Width = 87
Name = "Label26"
      label      label      Label27      FORM1      \Caption = "Krank Anfang"
Height = 17
Left = 563
Top = 120
Width = 87
Name = "Label27"
      label      label      Label28      FORM1      ZCaption = "Krank Ende"
Height = 17
Left = 563
Top = 146
Width = 87
Name = "Label28"
      textbox      textbox      eingestellt      FORM1      Alignment = 1
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 666
Top = 82
Width = 79
Name = "eingestellt"
     vPROCEDURE Valid
IF .not. EMPTY(thisform.eingestellt.Value)
	thisform.eingestellt.value = IIF(VARTYPE(thisform.eingestellt.value) = "C",CTOD(thisform.eingestellt.value),thisform.eingestellt.value)
	thisform.endeerstesjahr.Value = addyears(thisform.eingestellt.Value,1)
	thisform.endedrittesjahr.Value = addyears(thisform.eingestellt.Value,3)
endif
RETURN .t.
ENDPROC
                                   3   %         9     )            U    %C    
 = T    CC     C C    #	     6  T    C       T    C       Ba U  THISFORM EINGESTELLT VALUE ENDEERSTESJAHR ADDYEARS ENDEDRITTESJAHR Valid,     1 aA q 1                       k      )                           textbox      textbox      krankanfang      FORM1      Alignment = 1
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 666
Top = 117
Width = 79
Name = "krankanfang"
      EPROCEDURE Valid

thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       :       )                            textbox      textbox      	krankende      FORM1      Alignment = 1
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 666
Top = 143
Width = 79
Name = "krankende"
      CPROCEDURE Valid
thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       8       )                            optiongroup      optiongroup      wiederholung      FORM1     ButtonCount = 2
Value = 1
Height = 47
Left = 658
Top = 9
Width = 178
Name = "wiederholung"
Option1.Caption = "Ersterkrankung"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 167
Option1.Name = "Option1"
Option2.Caption = "Wiederholungserkrankung"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 167
Option2.Name = "Option2"
      PROCEDURE InteractiveChange
IF this.Value = 2
	thisform.vorherverwendet.Enabled = .t.
ELSE
	thisform.vorherverwendet.Enabled = .f.
	thisform.vorherverwendet.value = 0
ENDIF
thisform.krankanfang.valid
ENDPROC
     i    P  P                        f   %            	                U  e  %   %  T   a Q  T   - T     
     U  THIS VALUE THISFORM VORHERVERWENDET ENABLED KRANKANFANG VALID InteractiveChange,     1 A 1A  1                              )   P                        label      label      Label29      FORM1      ]Caption = "Summe Kr.Tage"
Height = 17
Left = 563
Top = 172
Width = 87
Name = "Label29"
      textbox      textbox      	kranktage      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = ""
Height = 22
InputMask = ""
Left = 666
Top = 169
Width = 79
DisabledForeColor = 0,0,0
Name = "kranktage"
      shape      shape      Shape5      FORM1      UTop = 274
Left = 555
Height = 65
Width = 407
SpecialEffect = 0
Name = "Shape5"
      label      label      Label30      FORM1      tWordWrap = .F.
Caption = "Entgeltfortzahl.bis"
Height = 15
Left = 563
Top = 198
Width = 101
Name = "Label30"
      textbox      textbox      
entgeltbis      FORM1      Alignment = 1
Enabled = .F.
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 666
Top = 195
Width = 79
DisabledForeColor = 0,0,0
Name = "entgeltbis"
      label      label      Label31      FORM1      kCaption = "maximal 6 Wochen (42 Tage)"
Height = 17
Left = 755
Top = 198
Width = 166
Name = "Label31"
      label      label      Label32      FORM1      nWordWrap = .F.
Caption = "Krankengeld ab"
Height = 15
Left = 575
Top = 285
Width = 89
Name = "Label32"
      textbox      textbox      kgzuschussab      FORM1      Alignment = 1
Enabled = .F.
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 667
Top = 308
Width = 79
DisabledForeColor = 0,0,0
Name = "kgzuschussab"
      textbox      textbox      endeerstesjahr      FORM1      Alignment = 1
Enabled = .F.
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 767
Top = 82
Width = 79
DisabledForeColor = 0,0,0
Name = "endeerstesjahr"
      textbox      textbox      endedrittesjahr      FORM1      Alignment = 1
Enabled = .F.
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 876
Top = 82
Width = 79
DisabledForeColor = 0,0,0
Name = "endedrittesjahr"
      label      label      Label33      FORM1      \Caption = "1. Jahr endet"
Height = 17
Left = 773
Top = 65
Width = 74
Name = "Label33"
      label      label      Label34      FORM1      \Caption = "3. Jahr endet"
Height = 17
Left = 882
Top = 65
Width = 75
Name = "Label34"
      label      label      Label35      FORM1      uWordWrap = .F.
Caption = "Resttg Entgeltfortz."
Height = 15
Left = 563
Top = 250
Width = 101
Name = "Label35"
      textbox      textbox      resttage      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999"
Height = 22
InputMask = "9999"
Left = 666
Top = 247
Width = 79
DisabledForeColor = 0,0,0
Name = "resttage"
      label      label      Label36      FORM1      sWordWrap = .F.
Caption = "vorh.Entgfort.Tage"
Height = 15
Left = 563
Top = 224
Width = 101
Name = "Label36"
      textbox      textbox      vorherverwendet      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999"
Height = 22
InputMask = "9999"
Left = 666
Top = 221
Width = 79
DisabledForeColor = 0,0,0
Name = "vorherverwendet"
      APROCEDURE Valid
thisform.berechnen2.click
RETURN .t.
ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 1                       6       )                            
commandbutton      
commandbutton      
berechnen2      FORM1      {Top = 516
Left = 861
Height = 25
Width = 97
Caption = "berechnen2"
Enabled = .F.
Visible = .F.
Name = "berechnen2"
     PROCEDURE Click

thisform.krankanfang.value = IIF(VARTYPE(thisform.krankanfang.value) = "C",CTOD(thisform.krankanfang.value),thisform.krankanfang.value)
thisform.krankende.value = IIF(VARTYPE(thisform.krankende.value) = "C",CTOD(thisform.krankende.value),thisform.krankende.value)
IF zi(1+20)+1 < 10
	hsmon = "0"+ALLTRIM(STR(zi(1+20)+1,2,0))
ELSE
	hsmon = ALLTRIM(STR(zi(1+20)+1,2,0))
ENDIF

IF .not. EMPTY(thisform.krankende.Value) .and. .not. EMPTY(thisform.krankanfang.value)
	IF .not. between(zi(1+20)+1,MONTH(thisform.krankanfang.Value),MONTH(thisform.krankende.Value))
		hinweis("Die Krankentage liegen nicht im eingestellten Abrechnungsmonat ("+ALLTRIM(thisform.KGmonatsname.value)+")")
		RETURN
	endif
	thisform.kranktage.Value = thisform.krankende.Value - thisform.krankanfang.value + 1
	IF thisform.krankanfang.value + 42 > thisform.krankende.value
		thisform.entgeltbis.Value = thisform.krankende.value
	ELSE
		thisform.entgeltbis.Value = thisform.krankanfang.value + 42 - 1
	endif	
	xresttage = thisform.entgeltbis.Value - thisform.krankanfang.value
	IF xresttage >= 42
		thisform.resttage.Value = 42 - (thisform.entgeltbis.Value - thisform.krankanfang.value) - thisform.vorherverwendet.value
	ELSE
		thisform.resttage.Value = 42 - xresttage - 1 - thisform.vorherverwendet.value
	endif	

	IF thisform.resttage.Value > 0	
		hinweis("Kein Krankengeldzuschuss da noch Entgeltfortzahlung besteht!")
		thisform.label39.Caption = "Kein Krankengeldzuschuss!!"
		thisform.krankengeldab.value = CTOD("  .  .  ")
		thisform.KGzuschussab.value = CTOD("  .  .  ")
		thisform.taeglichesKG.Value = 0.00
		thisform.anztage.Value = 0
		thisform.nettoentgelt2.Value = 0.00		
		thisform.differenz.Value = 0.00	
		thisform.summezuschuss.Value = 0.00				
		RETURN
	endif

	thisform.krankengeldab.Value = thisform.entgeltbis.Value + 1
	IF thisform.krankende.Value > thisform.endeerstesjahr.Value && kein KGzuschuss!!	
		thisform.kgzuschussab.Value = thisform.entgeltbis.Value + 1
	ELSE
		thisform.kgzuschussab.Value = CTOD("  .  .  ")	
	ENDIF
	IF .not. zi(1+20)+1 = MONTH(thisform.kgzuschussab.Value)
		thisform.label39.Caption = "Kein Krankengeldzuschuss!!"
		thisform.krankengeldab.value = CTOD("  .  .  ")
		thisform.KGzuschussab.value = CTOD("  .  .  ")
		thisform.taeglichesKG.Value = 0.00
		thisform.anztage.Value = 0
		thisform.nettoentgelt2.Value = 0.00		
		thisform.differenz.Value = 0.00	
		thisform.summezuschuss.Value = 0.00					
		hinweis("Kein Krankengeldzuschuss im eingestellten Abrechnungsmonat ("+ALLTRIM(thisform.KGmonatsname.value)+")")
		RETURN
	endif			
	*hier krankengelddauer anzeige
	thisform.label37.Caption = "maximal 33 Wochen (231 Tage)"
	thisform.label37.Top = thisform.krankengeldab.top
	*hier krankengeldzuschussdauer anzeige	
	IF thisform.krankende.Value > thisform.endeerstesjahr.Value && kein KGzuschuss!!
		IF thisform.krankende.Value > thisform.endedrittesjahr.Value
			thisform.label39.Caption = "maximal 33 Wochen (231 Tage)"
		ELSE
			IF thisform.krankende.Value > thisform.endeerstesjahr.Value
				thisform.label39.Caption = "maximal 7 Wochen (49 Tage)"
			endif
		ENDIF
	ELSE
		thisform.label39.Caption = "Kein Krankengeldzuschuss!!"
	endif
	thisform.anztage.value = DAY(eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")))
	thisform.taeglichesKG.value = iif(thisform.tarifart.value = 1,thisform.KGBrutto_t.Value,thisform.kGnetto.value)
	thisform.nettoentgelt2.Value = ROUND(thisform.nettoentgelt.value,2) / thisform.anztage.value
	thisform.differenz.value = ROUND(thisform.taeglichesKG.Value,2) - ROUND(thisform.nettoentgelt2.Value,2)
	IF thisform.differenz.Value < 0
		hinweis("Die Nettoentgeltauszahlung ist hher als der zustehende Krankengelgzuschuss!")
		thisform.summezuschuss.Value = 0.00
		thisform.endsumme.Value = 0.00
		return
	endif
	ktagedesmonats = 0

	DO case
		CASE thisform.kgzuschussab.value < bom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) .and. thisform.krankende.value > eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01"))
			*volle tage dieses monatswerden genommen
			ktagedesmonats = DAY(eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")))
		CASE thisform.kgzuschussab.value = bom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) .and. thisform.krankende.value > eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01"))
			*volle tage dieses monatswerden genommen	
			ktagedesmonats = DAY(eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")))
		CASE thisform.kgzuschussab.value > bom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) .and. thisform.krankende.value > eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01"))
			*von zuschussab bis monatsende
			ktagedesmonats = eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) - thisform.kgzuschussab.value
		CASE thisform.kgzuschussab.value > bom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) .and. thisform.krankende.value = eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01"))
			*von zuschussabg bis monatsende
			ktagedesmonats = eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) - thisform.kgzuschussab.value
		CASE thisform.kgzuschussab.value > bom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01")) .and. thisform.krankende.value < eom(stod(ALLTRIM(STR(welchesjahr,4,0))+hsmon+"01"))
			*von zuschussab bis krankende
			ktagedesmonats = thisform.krankende.value - thisform.kgzuschussab.value
	endcase

	thisform.summezuschuss.Value = ROUND(thisform.differenz.value,2) * ktagedesmonats
	thisform.endsumme.Value = thisform.summezuschuss.value - thisform.vwlabzug.Value - thisform.vblabzug.value
ENDIF
RETURN .t.
ENDPROC
                                   O   %   
      s  `   
            U  = T    CC     C C    #	     6= T    CC     C C    #	     6 %C 

 $ T  0CCC  Z   T CCC  Z & %C    

 C    
	. %CC C    HC    H
^ C@ Die Krankentage liegen nicht im eingestellten Abrechnungsmonat (C     )  B ' T            ! %    *     T  	       &! T  	      *  T
   	       %
 *2 T    *  	           % T    *
       %     I C< Kein Krankengeldzuschuss da noch Entgeltfortzahlung besteht! - T  
   Kein Krankengeldzuschuss!! T    C   .  .  # T    C   .  .  # T             T      T             T             T             B  T      	   %        ` T      	    T    C   .  .  # " %C C    H
- T  
   Kein Krankengeldzuschuss!! T    C   .  .  # T    C   .  .  # T             T      T             T             T            Z C< Kein Krankengeldzuschuss im eingestellten Abrechnungsmonat (C     )  B / T     maximal 33 Wochen (231 Tage) T         %         %        / T  
   maximal 33 Wochen (231 Tage)  %        - T  
   maximal 7 Wochen (49 Tage)   3- T  
   Kein Krankengeldzuschuss!! 1 T    CCCCC  Z  01  %7 T    C         	     6( T    C     T    - T    C    TC    T %     
Y CL Die Nettoentgeltauszahlung ist hher als der zustehende Krankengelgzuschuss!  T             T  !           B 
 T"  
 Hu`     CCCC  Z  01 # 
*     CCCC  Z  01  	G	+ T" CCCCC  Z  01  %`     CCCC  Z  01 # *     CCCC  Z  01  		+ T" CCCCC  Z  01  %`     CCCC  Z  01 # *     CCCC  Z  01  	e
3 T" CCCC  Z  01      `     CCCC  Z  01 # *     CCCC  Z  01  	
3 T" CCCC  Z  01      `     CCCC  Z  01 # *     CCCC  Z  01  
	u T"          " T    C    T" - T  !        $    %    Ba U&  THISFORM KRANKANFANG VALUE	 KRANKENDE ZI HSMON HINWEIS KGMONATSNAME	 KRANKTAGE
 ENTGELTBIS	 XRESTTAGE RESTTAGE VORHERVERWENDET LABEL39 CAPTION
 KRANKENGELDAB KGZUSCHUSSAB TAEGLICHESKG ANZTAGE
 NETTOENTGELT2	 DIFFERENZ
 SUMMEZUSCHUSS ENDEERSTESJAHR LABEL37 TOP ENDEDRITTESJAHR EOM STOD WELCHESJAHR TARIFART
 KGBRUTTO_T KGNETTO NETTOENTGELT ENDSUMME KTAGEDESMONATS BOM VWLABZUG VBLABZUG Click,     1 A A bA A q A ! QA r1A A  A !1A A  A A  A qqA A   22A "A q 1                             )                           label      label      Label37      FORM1      WordWrap = .T.
Caption = "max 78 Wochen (546 Tg) innerh. von 3 Jahren wg gleicher Krankheit"
Height = 30
Left = 756
Top = 276
Width = 198
Name = "Label37"
      label      label      Label38      FORM1      oWordWrap = .F.
Caption = "K-Geldzusch. ab"
Height = 15
Left = 570
Top = 311
Width = 94
Name = "Label38"
      textbox      textbox      
krankengeldab      FORM1      Alignment = 1
Enabled = .F.
Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 667
Top = 281
Width = 79
DisabledForeColor = 0,0,0
Name = "krankengeldab"
      label      label      Label39      FORM1      kCaption = "maximal 7 Wochen (49 Tage)"
Height = 17
Left = 756
Top = 311
Width = 198
Name = "Label39"
      shape      shape      Shape7      FORM1      VTop = 337
Left = 555
Height = 142
Width = 407
SpecialEffect = 0
Name = "Shape7"
      label      label      Label40      FORM1      rWordWrap = .F.
Caption = "Hhe tgliches KG"
Height = 15
Left = 561
Top = 348
Width = 103
Name = "Label40"
      textbox      textbox      taeglichesKG      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 344
Width = 79
DisabledForeColor = 0,0,0
Name = "taeglichesKG"
      label      label      Label41      FORM1      oWordWrap = .F.
Caption = "Tage des Monats"
Height = 15
Left = 568
Top = 375
Width = 96
Name = "Label41"
      textbox      textbox      anztage      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "99"
Height = 22
InputMask = "99"
Left = 667
Top = 371
Width = 79
DisabledForeColor = 0,0,0
Name = "anztage"
      label      label      Label42      FORM1      vWordWrap = .F.
Caption = "(KG Brutto / 30 Tage)"
Height = 15
Left = 757
Top = 348
Width = 116
Name = "Label42"
      textbox      textbox      
nettoentgelt2      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 398
Width = 79
DisabledForeColor = 0,0,0
Name = "nettoentgelt2"
      label      label      Label44      FORM1      bCaption = "tgl. Nettoentgelt"
Height = 19
Left = 567
Top = 400
Width = 96
Name = "Label44"
      label      label      Label43      FORM1      WordWrap = .F.
Caption = "(Nettoentgelt /  Tage des Monats)"
Height = 15
Left = 757
Top = 400
Width = 179
Name = "Label43"
      textbox      textbox      	differenz      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 424
Width = 79
DisabledForeColor = 0,0,0
Name = "differenz"
      label      label      Label45      FORM1      _Caption = "tgl. Differenz"
Height = 19
Left = 585
Top = 426
Width = 78
Name = "Label45"
      label      label      Label46      FORM1      WordWrap = .F.
Caption = "(tgl. Nettoentgelt - tgl. KG)"
Height = 15
Left = 757
Top = 427
Width = 200
Name = "Label46"
      textbox      textbox      
summezuschuss      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 450
Width = 79
DisabledForeColor = 0,0,0
Name = "summezuschuss"
      label      label      Label47      FORM1      _Caption = "Summe Zuschuss"
Height = 19
Left = 561
Top = 452
Width = 102
Name = "Label47"
      label      label      Label48      FORM1      WordWrap = .F.
Caption = "(tgl. Differenz x K-Tage des Monats)"
Height = 15
Left = 757
Top = 453
Width = 200
Name = "Label48"
      textbox      textbox      VWLabzug      FORM1      Alignment = 1
Value = 0
Enabled = .T.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 482
Width = 79
DisabledForeColor = 0,0,0
Name = "VWLabzug"
      label      label      Label49      FORM1      YCaption = "Minus VWL"
Height = 19
Left = 600
Top = 484
Width = 63
Name = "Label49"
      textbox      textbox      VBLabzug      FORM1      Alignment = 1
Value = 0
Enabled = .T.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 506
Width = 79
DisabledForeColor = 0,0,0
Name = "VBLabzug"
      label      label      Label50      FORM1      YCaption = "Minus VBL"
Height = 19
Left = 603
Top = 508
Width = 60
Name = "Label50"
      textbox      textbox      Endsumme      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 667
Top = 531
Width = 79
DisabledForeColor = 0,0,0
Name = "Endsumme"
      label      label      Label51      FORM1      YCaption = "END-Summe"
Height = 19
Left = 585
Top = 533
Width = 78
Name = "Label51"
      
commandbutton      
commandbutton      Command3      FORM1      yTop = 564
Left = 555
Height = 25
Width = 165
Caption = "bertragen nach Zeile 26"
Enabled = .F.
Name = "Command3"
     tPROCEDURE Click
SELECT persflle
GOTO thisform.persrecno.Value
replace persflle.pcg_f2 WITH myform1.tdbnumber1.value
replace persflle.pcg_f4 WITH welchesjahr
replace persflle.pcg_f5 WITH thisform.optiongroup1.value
replace persflle.pcg_f6 WITH thisform.tarifart.value 
replace persflle.pcg_f7 WITH thisform.wiederhohlung.value 
replace persflle.pcg_f8 WITH thisform.bruttoentgelt.value 
replace persflle.pcg_f9 WITH thisform.nettoentgelt.value 
replace persflle.pcg_f10 WITH thisform.Einmalzahlungen.value 
replace persflle.pcg_f11 WITH thisform.arbeitsstunden.value 
replace persflle.pcg_f12 WITH thisform.wochenstunden.value 
replace persflle.pcg_f13 WITH thisform.eingestellt.value 
replace persflle.pcg_f14 WITH thisform.krankanfang.value 
replace persflle.pcg_f15 WITH thisform.krankende.value 
replace persflle.pcg_f16 WITH thisform.VWLabzug.value 
replace persflle.pcg_f17 WITH thisform.VBLabzug.value 
FLUSH
myindex = 24
zti = 24
IF .not. EMPTY(thisform.endsumme.Value)
	myKGzuschuss = "N:"+ALLTRIM(STR(thisform.endsumme.Value,10,2))
ELSE
	myKGzuschuss = ""
ENDIF
thisform.release
ENDPROC
     U    <  <                        F   %                          U   F   #    >       >     >  	  
   >       >  
     >       >       >       >       >       >       >       >       >        >  !  "   [
 T# 
 T$  %C %  
# T&  N:CC %  
Z 
 T&    
  '  U( 	 PERSFLLE THISFORM	 PERSRECNO VALUE PCG_F2 MYFORM1
 TDBNUMBER1 PCG_F4 WELCHESJAHR PCG_F5 OPTIONGROUP1 PCG_F6 TARIFART PCG_F7
 WIEDERHOHLUNG PCG_F8
 BRUTTOENTGELT PCG_F9 NETTOENTGELT PCG_F10 EINMALZAHLUNGEN PCG_F11 ARBEITSSTUNDEN PCG_F12
 WOCHENSTUNDEN PCG_F13 EINGESTELLT PCG_F14 KRANKANFANG PCG_F15	 KRANKENDE PCG_F16 VWLABZUG PCG_F17 VBLABZUG MYINDEX ZTI ENDSUMME MYKGZUSCHUSS RELEASE Click,     1 q  aaaaaaaaaaaaaaA   a1  A  1                       i      )   <                        
commandbutton      
commandbutton      Command4      FORM1      yTop = 564
Left = 796
Height = 25
Width = 165
Caption = "bertragen nach Zeile 27"
Enabled = .F.
Name = "Command4"
     tPROCEDURE Click
SELECT persflle
GOTO thisform.persrecno.Value
replace persflle.pcg_f2 WITH myform1.tdbnumber1.value
replace persflle.pcg_f4 WITH welchesjahr
replace persflle.pcg_f5 WITH thisform.optiongroup1.value
replace persflle.pcg_f6 WITH thisform.tarifart.value 
replace persflle.pcg_f7 WITH thisform.wiederhohlung.value 
replace persflle.pcg_f8 WITH thisform.bruttoentgelt.value 
replace persflle.pcg_f9 WITH thisform.nettoentgelt.value 
replace persflle.pcg_f10 WITH thisform.Einmalzahlungen.value 
replace persflle.pcg_f11 WITH thisform.arbeitsstunden.value 
replace persflle.pcg_f12 WITH thisform.wochenstunden.value 
replace persflle.pcg_f13 WITH thisform.eingestellt.value 
replace persflle.pcg_f14 WITH thisform.krankanfang.value 
replace persflle.pcg_f15 WITH thisform.krankende.value 
replace persflle.pcg_f16 WITH thisform.VWLabzug.value 
replace persflle.pcg_f17 WITH thisform.VBLabzug.value 
FLUSH
myindex = 47
zti = 47
IF .not. EMPTY(thisform.endsumme.Value)
	myKGzuschuss = "N:"+ALLTRIM(STR(thisform.endsumme.Value,10,2))
ELSE
	myKGzuschuss = ""
ENDIF
thisform.release
ENDPROC
     U    <  <                        F   %                          U   F   #    >       >     >  	  
   >       >  
     >       >       >       >       >       >       >       >       >        >  !  "   [
 T# /
 T$ / %C %  
# T&  N:CC %  
Z 
 T&    
  '  U( 	 PERSFLLE THISFORM	 PERSRECNO VALUE PCG_F2 MYFORM1
 TDBNUMBER1 PCG_F4 WELCHESJAHR PCG_F5 OPTIONGROUP1 PCG_F6 TARIFART PCG_F7
 WIEDERHOHLUNG PCG_F8
 BRUTTOENTGELT PCG_F9 NETTOENTGELT PCG_F10 EINMALZAHLUNGEN PCG_F11 ARBEITSSTUNDEN PCG_F12
 WOCHENSTUNDEN PCG_F13 EINGESTELLT PCG_F14 KRANKANFANG PCG_F15	 KRANKENDE PCG_F16 VWLABZUG PCG_F17 VBLABZUG MYINDEX ZTI ENDSUMME MYKGZUSCHUSS RELEASE Click,     1 q  aaaaaaaaaaaaaaA   a1  A  1                       i      )   <                        
commandbutton      
commandbutton      Command5      FORM1      Top = 14
Left = 843
Height = 37
Width = 115
FontBold = .T.
FontSize = 12
Caption = "neuanlegen"
ForeColor = 255,0,0
Name = "Command5"
     PROCEDURE Click
SELECT persflle
APPEND BLANK
FLUSH
replace persflle.pcg_f2 WITH myform1.tdbnumber1.value
replace persflle.pcg_f4 WITH welchesjahr
replace persflle.pcg_f5 WITH thisform.optiongroup1.value
replace persflle.pcg_f6 WITH thisform.tarifart.value 
replace persflle.pcg_f7 WITH thisform.wiederhohlung.value 
replace persflle.pcg_f8 WITH thisform.bruttoentgelt.value 
replace persflle.pcg_f9 WITH thisform.nettoentgelt.value 
replace persflle.pcg_f10 WITH thisform.Einmalzahlungen.value 
replace persflle.pcg_f11 WITH thisform.arbeitsstunden.value 
replace persflle.pcg_f12 WITH thisform.wochenstunden.value 
replace persflle.pcg_f13 WITH thisform.eingestellt.value 
replace persflle.pcg_f14 WITH thisform.krankanfang.value 
replace persflle.pcg_f15 WITH thisform.krankende.value 
replace persflle.pcg_f16 WITH thisform.VWLabzug.value 
replace persflle.pcg_f17 WITH thisform.VBLabzug.value 
FLUSH
thisform.persrecno.Value = RECNO()
thisform.command4.Enabled = .t.
thisform.command5.Enabled = .t.
ENDPROC
                                      %   R           a            U   F    [ >       >     >    	   >  
     >    
   >       >       >       >       >       >       >       >       >       >     !   [ T "  CO T # $ a T % $ a U& 	 PERSFLLE PCG_F2 MYFORM1
 TDBNUMBER1 VALUE PCG_F4 WELCHESJAHR PCG_F5 THISFORM OPTIONGROUP1 PCG_F6 TARIFART PCG_F7
 WIEDERHOHLUNG PCG_F8
 BRUTTOENTGELT PCG_F9 NETTOENTGELT PCG_F10 EINMALZAHLUNGEN PCG_F11 ARBEITSSTUNDEN PCG_F12
 WOCHENSTUNDEN PCG_F13 EINGESTELLT PCG_F14 KRANKANFANG PCG_F15	 KRANKENDE PCG_F16 VWLABZUG PCG_F17 VBLABZUG	 PERSRECNO COMMAND4 ENABLED COMMAND5 Click,     1 q Q A aaaaaaaaaaaaaaA !1                             )                           
commandbutton      
commandbutton      Command6      FORM1      Top = 563
Left = 153
Height = 28
Width = 137
Cancel = .T.
Caption = "speichern"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "Command6"
     PROCEDURE Click
SELECT persflle
GOTO thisform.persrecno.Value
replace persflle.pcg_f2 WITH myform1.tdbnumber1.value
replace persflle.pcg_f4 WITH welchesjahr
replace persflle.pcg_f5 WITH thisform.optiongroup1.value
replace persflle.pcg_f6 WITH thisform.tarifart.value 
replace persflle.pcg_f7 WITH thisform.wiederhohlung.value 
replace persflle.pcg_f8 WITH thisform.bruttoentgelt.value 
replace persflle.pcg_f9 WITH thisform.nettoentgelt.value 
replace persflle.pcg_f10 WITH thisform.Einmalzahlungen.value 
replace persflle.pcg_f11 WITH thisform.arbeitsstunden.value 
replace persflle.pcg_f12 WITH thisform.wochenstunden.value 
replace persflle.pcg_f13 WITH thisform.eingestellt.value 
replace persflle.pcg_f14 WITH thisform.krankanfang.value 
replace persflle.pcg_f15 WITH thisform.krankende.value 
replace persflle.pcg_f16 WITH thisform.VWLabzug.value 
replace persflle.pcg_f17 WITH thisform.VBLabzug.value 
FLUSH
myKGzuschuss = ""
thisform.Release

ENDPROC
                                       %   5      p     D            U  x F   #    >       >     >  	  
   >       >  
     >       >       >       >       >       >       >       >       >        >  !  "   [
 T#   
  $  U% 	 PERSFLLE THISFORM	 PERSRECNO VALUE PCG_F2 MYFORM1
 TDBNUMBER1 PCG_F4 WELCHESJAHR PCG_F5 OPTIONGROUP1 PCG_F6 TARIFART PCG_F7
 WIEDERHOHLUNG PCG_F8
 BRUTTOENTGELT PCG_F9 NETTOENTGELT PCG_F10 EINMALZAHLUNGEN PCG_F11 ARBEITSSTUNDEN PCG_F12
 WOCHENSTUNDEN PCG_F13 EINGESTELLT PCG_F14 KRANKANFANG PCG_F15	 KRANKENDE PCG_F16 VWLABZUG PCG_F17 VBLABZUG MYKGZUSCHUSS RELEASE Click,     1 q  aaaaaaaaaaaaaaA   2                             )                           textbox      textbox      	persrecno      FORM1      |Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 450
Top = 567
Visible = .F.
Width = 88
Name = "persrecno"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 570
Left = 765
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _61W107N8Q1387366070 1 53           1.000    0.000    0.00082666.000                 F                                                            0 12   21F 3 3   TF              T    F T               0T               WINDOWS _61W107N8R           9  1                          94792.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61W107N8S           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _61W107N8T           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62C0VIWBU1388475727 5  0       45416.667 4479.167 1979.167 9583.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W108I221387366100 5  0        1354.167 4479.167 2812.50061458.333                               -1   -1   -1   -1   -1   -1                    0 18  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W1099R61387366118 8  0        4895.833 4479.167 2083.33332604.167                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10C43D1387366182 8  0        4895.83340000.000 2083.333 4375.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10CP1T1387366197 5  0        4895.83337708.333 1979.167 1875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W10FIW91387366266 8  0        4895.83344895.833 2083.33313333.333                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _61W10OHEY1387366617 5  0        5000.00058645.833 1979.167 8645.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W10PTSY1387366650 5  0        5000.00058645.833 1979.167 9895.833                               -1   -1   -1   -1   -1   -1                     0 12  1       FFFTF  F          0T                      0FTT0 0F!        WINDOWS _61W10QQEF1387366673 6            7500.000 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W10UP8E1387366775 5  0    "    7916.667 3958.333 1979.167 9062.500                               -1   -1   -1   -1   -1   -1               #     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W10UVKR1387366776 5  0    $   10104.167 3958.333 1979.167 8645.833                               -1   -1   -1   -1   -1   -1               %     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10V6MZ1387366785 5  0    &   12291.667 3958.333 1979.16712187.500                               -1   -1   -1   -1   -1   -1               '     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10VRYF1387366807 8  0    (    7812.50020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               )     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10WBHQ1387366812 8  0    *   10000.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               +     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10WM271387366820 8  0    ,   12187.50020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               -     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W10XJHK1387366842 5  0    .   10104.16730937.500 1979.167 8333.333                               -1   -1   -1   -1   -1   -1               /     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W10Y72G1387366859 5  0    0   14479.167 3958.333 1979.16713437.500                               -1   -1   -1   -1   -1   -1               1     0 12  1       FFFTF  F          0T                      0FTT0 0F2        WINDOWS _61W10Y72H1387366859 8  0    3   14375.00020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               4     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F5        WINDOWS _61W10YSXE1387366873 5  0    6   16666.667 3958.333 1979.16711562.500                               -1   -1   -1   -1   -1   -1               7     0 12  1       FFFTF  F          0T                      0FTT0 0F8        WINDOWS _61W10YSXF1387366873 8  0    9   16562.50020520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               :     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F;        WINDOWS _61W1106D31387366908 5  0    <    7812.50045312.500 1979.16714062.500                               -1   -1   -1   -1   -1   -1               =     0 12  1       FFFTF  F          0T                      0FTT0 0F>        WINDOWS _61W1106D41387366908 8  0    ?    7708.33361458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               @     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0FA        WINDOWS _61W1106D51387366908 5  0    B   10208.33345729.167 1979.16713645.833                               -1   -1   -1   -1   -1   -1               C     0 12  1       FFFTF  F          0T                      0FTT0 0FD        WINDOWS _61W1106D61387366908 8  0    E   10104.16761458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               F     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0FG        WINDOWS _61W1124MH1387366957 6           18958.333 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W113WQZ1387367003 5  0    H   16145.83353125.000 1979.167 6250.000                               -1   -1   -1   -1   -1   -1               I     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _61W1147IT1387367010 8  0    J   15833.33361458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               K     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0FL        WINDOWS _61W114YFB1387367027 5  0    M   21145.833 3958.333 1979.16713229.167                               -1   -1   -1   -1   -1   -1               N     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFC1387367027 5  0    O   23333.333 3958.333 1979.16712812.500                               -1   -1   -1   -1   -1   -1               P     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFD1387367027 5  0    Q   25520.833 3958.333 1979.16714895.833                               -1   -1   -1   -1   -1   -1               R     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFE1387367027 8  0    S   21041.66720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               T     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFF1387367027 8  0    U   23229.16720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               V     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFG1387367027 8  0    W   25416.66720520.833 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               X     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFH1387367027 5  0    Y   30416.667 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               Z     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFI1387367027 8  0    [   30312.50020520.833 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               \     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W114YFJ1387367027 5  0    ]   32708.333 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               ^     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W114YFK1387367027 8  0    _   32604.16720520.833 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               `     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W115YB31387367052 5  0    a   27812.500 9479.167 2083.33329791.667                               -1   -1   -1   -1   -1   -1               b     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W117E6N1387367088 5  0    c   35000.000 9583.333 1979.167 3229.167                               -1   -1   -1   -1   -1   -1               d     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W117E6O1387367088 8  0    e   34895.83320520.833 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               f     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W1184361387367107 8  0    g   30312.50013958.333 2187.500 5625.000                   C           -1   -1   -1   -1   -1   -1               h     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W1184371387367107 8  0    i   32604.16713958.333 2187.500 5625.000                   C           -1   -1   -1   -1   -1   -1               j     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W1184381387367107 8  0    k   34895.83313958.333 2187.500 5625.000                   C           -1   -1   -1   -1   -1   -1               l     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _61W11AQG31387367172 8  0    m   21041.66730937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               n     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG41387367172 8  0    o   23229.16730937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               p     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG51387367172 8  0    q   25416.66730937.500 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               r     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG61387367172 8  0    s   30312.50030937.500 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               t     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG71387367172 8  0    u   32604.16730937.500 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               v     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AQG81387367172 8  0    w   34895.83330937.500 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1               x     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11AYN61387367177 8  0    y   21041.66741875.000 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1               z     0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11B6NS1387367182 5  0    {   21145.83353125.000 1979.167 7395.833                               -1   -1   -1   -1   -1   -1               |     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11BJ8M1387367190 5  0    }   23333.33353125.000 1979.167 7395.833                               -1   -1   -1   -1   -1   -1               ~     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11BXS31387367202 8  0       21041.66761458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11BXS41387367202 8  0       23229.16761458.333 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11D8KW1387367234 5  0       19062.50024791.667 1979.167 4687.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11DI1X1387367240 5  0       19062.50033125.000 1979.167 6875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11E6GA1387367256 5  0       19062.50041458.333 1979.167 9687.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W11FU3G1387367299 6           37291.667 3541.667  104.16741250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _61W11GJG21387367315 5  0       37708.333 3958.333 1979.16714583.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11GJG31387367315 5  0       40000.000 3958.333 2083.33315937.500                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _61W11GJG41387367315 8  0       37604.16720520.833 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG51387367315 8  0       39895.83320520.833 2291.667 9270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG61387367315 8  0       37604.16730937.500 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _61W11GJG71387367315 8  0       39895.83330937.500 2291.667 9270.833                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         1       0 1  0FTT0 0F         WINDOWS _61W11OO0O1387367517 5  0       19062.50041250.000 1979.167 9895.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _61W11TTGM1387367645 6           29895.833 3541.667  104.16741250.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0VGYPE1388475686 5  0       89687.500 6458.333 3333.33357604.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VIWBT1388475727 5  0       45416.667 4479.167 1979.167 7291.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _62C0VOCQY1388475863 6           42500.000 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0VOW6D1388475877 5  0       42916.667 4479.167 2916.66768333.333                               -1   -1   -1   -1   -1   -1                    0 18  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VWX5F1388476080 5  0       47812.500 8854.167 1979.16710625.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _62C0VX78Z1388476086 5  0       45937.50033958.333 1979.167 9375.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _62C0VXCJN1388476087 5  0       45937.50048333.333 1979.167 9375.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VXSRC1388476099 5  0       50833.333 9687.500 1979.167 9791.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VY3EF1388476106 5  0       53125.00010937.500 1979.167 8541.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VYF9O1388476114 5  0       55416.667 7604.167 1979.16711875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VZ6JM1388476133 5  0       57708.333 6354.167 1979.16713125.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0VZNT01388476144 5  0       60000.000 4270.833 1979.16715208.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W0E3F1388476163 5  0       62395.833 7187.500 1979.16712291.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W19ZR1388476184 5  0       65000.000 8020.833 1979.16711458.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W1M2E1388476194 5  0       67500.000 7604.167 1979.16711875.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W2G7G1388476214 5  0       70416.667 5937.500 1979.16713541.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W35YS1388476232 5  0       72604.167 6875.000 1979.16712604.167                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W3K3J1388476241 5  0       75000.000 7395.833 1979.16712083.333                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W414P1388476252 5  0       77291.667 9583.333 1979.167 9895.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W4IE31388476266 5  0       79479.167 6666.667 1979.16712812.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62C0W5L131388476421 8  0       47812.50020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W68DC1388476436 8  0       47812.50034166.667 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W75NI1388476459 8  0       47812.50048541.667 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W7R761388476473 8  0       50937.50020104.167 2083.333 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W864X1388476485 8  0       53125.00020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W8J9P1388476493 8  0       55416.66720104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W8WVT1388476502 8  0       57708.33320104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0W9BZ71388476514 8  0       60000.00020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WA9DP1388476536 8  0       62291.66720104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WALNA1388476546 8  0       65000.00020104.167 2291.667 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WB9NC1388476561 8  0       67395.83320104.167 2291.667 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WBPBJ1388476571 8  0       70312.50020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WCBI61388476588 8  0       72604.16720104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WCPL61388476597 8  0       74895.83320104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WD4GC1388476609 8  0       77187.50020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WDGM01388476616 8  0       79479.16720104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WF4RE1388476657 6           50416.667 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0WFAGC1388476661 6           64687.500 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0WFSUX1388476675 6           70000.000 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0WG02H1388476680 6           81979.167 3541.667  104.16775625.000                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62C0WJ8HP1388476759 8  0       57708.33330937.500 2187.50041250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WK03C1388476779 8  0       65000.00030937.500 2291.66748020.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WLI391388476816 8  0       67500.00030937.500 2083.33341250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WLZ351388476827 8  0       70312.50030937.500 2187.50041250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WMM4J1388476844 8  0       75000.00030937.500 2187.50041250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WMV3D1388476850 8  0       77291.66730937.500 2187.50041250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62C0WNDQ61388476864 8  0       79583.33330937.500 2187.50041250.000                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62L0V2Y881389065155 5  0       82395.833 6666.667 1979.167 9166.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62L0V2Y891389065155 8  0       82395.83320104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62L0V338Y1389065159 5  0       84687.500 6666.667 1979.16712395.833                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62L0V338Z1389065159 8  0       84687.50020104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _62L0V37M81389065161 5  0       86979.167 6666.667 1979.167 9062.500                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62L0V37M91389065161 8  0       86979.16720104.167 2187.500 9270.833                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _6IT0OV4WZ1445747842 5  0       92916.667 6458.333 1666.66743750.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                       0 12                                                     F               WINDOWS                     23              28.000   11.000   21.000   64.000                                6    1                                       0 18                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                       1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                       0 10                                                     F               WINDOWS                     25                                                            F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         
"(TVD/TV-L)"                                                 Arial                                                          mykrankengeld.tarifart.value = 1                              6"Berechnung des vorraussichtlichen Krankengeldes fr:"        Arial                                                         $mykrankengeld.personalfallname.value                          Arial                                                         *alltrim(str(mykrankengeld.jahr.value,4,0))                    Arial                                                         "ab"                                                          Arial                                                         )alltrim(mykrankengeld.KGmonatsname.value)                     Arial                                                         "(Festgehalt)"                                                Arial                                                         $mykrankengeld.optiongroup1.value = 1                          "(Stundenlohn)"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Bruttoentgelt"                                               Arial                                                         "Nettoentgelt"                                                Arial                                                         "Einmalzahlungen"                                             Arial                                                         !mykrankengeld.bruttoentgelt.value                             Arial                                                          mykrankengeld.nettoentgelt.value                              Arial                                                         #mykrankengeld.einmalzahlungen.value                           Arial                                                         
"MAX 100%"                                                    Arial                                                         "bez. Arbeitstunden"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "mykrankengeld.arbeitsstunden.value                            Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Wochenstunden"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          !mykrankengeld.wochenstunden.value                             Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Brutto"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          &mykrankengeld.tagesfaktor_brutto.value                        Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Netto"                                           Arial                                                         $mykrankengeld.optiongroup1.value = 2                          %mykrankengeld.tagesfaktor_netto.value                         Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "KV BBG"                                                      Arial                                                          mykrankengeld.deckelbetrag.value                              Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Kumuliertes Brutto"                                          Arial                                                         "Kumuliertes Netto"                                           Arial                                                         "Krankengeld (Brutto)"                                        Arial                                                         mykrankengeld.kumbrutto_t.value                               Arial                                                         mykrankengeld.kumnetto_t.value                                Arial                                                         mykrankengeld.KGbrutto_t.value                                Arial                                                         "- RV"                                                        Arial                                                         mykrankengeld.rv_t.value                                      Arial                                                         "- AV"                                                        Arial                                                         mykrankengeld.AV_t.value                                      Arial                                                         $"SV Abzge vom Krankengeld (Brutto)"                          Arial                                                         "- PV"                                                        Arial                                                         mykrankengeld.PV_t.value                                      Arial                                                         mykrankengeld.rvproz.value                                    Arial                                                         mykrankengeld.avproz.value                                    Arial                                                         mykrankengeld.pvproz.value                                    Arial                                                         mykrankengeld.kumbrutto_m.value                               Arial                                                         mykrankengeld.kumnetto_m.value                                Arial                                                         mykrankengeld.KGbrutto_m.value                                Arial                                                         mykrankengeld.rv_m.value                                      Arial                                                         mykrankengeld.AV_m.value                                      Arial                                                         mykrankengeld.PV_m.value                                      Arial                                                         mykrankengeld.gedeckelt.value                                 Arial                                                         	"MAX 70%"                                                     Arial                                                         	"MAX 90%"                                                     Arial                                                         mykrankengeld.kk70.value                                      Arial                                                         mykrankengeld.max90.value                                     Arial                                                         	"tglich"                                                     Arial                                                         "monatlich"                                                   Arial                                                         "gedeckelt auf"                                               Arial                                                         Bmykrankengeld.kumbrutto_m.value > mykrankengeld.deckelbetrag.value                                                            "- Soz.-Vers. Summe"                                          Arial                                                         "Krankengeld (Netto)"                                         Arial                                                         mykrankengeld.sozvers_t.value                                 Arial                                                         mykrankengeld.KGnetto_t.value                                 Arial                                                         mykrankengeld.sozvers_m.value                                 Arial                                                         mykrankengeld.KGnetto_m.value                                 Arial                                                         "verwend. wird"                                               Arial                                                         Cmykrankengeld.kumbrutto_m.value <= mykrankengeld.deckelbetrag.value                                                           "Das ist der vorraussichtliche Krankengeldzuschuss. Ihre Krankenkassensatzung knnte eine 
andere Berechnung zugrunde legen. Gltig ist nur die schriftliche Mitteilung Ihrer Krankenkasse."                                                                  Arial                                                         "(aus BAT)"                                                   Arial                                                          mykrankengeld.tarifart.value = 2                              :"Berechnung des vorraussichtlichen Krankengeldzuschusses:"                                                                    Arial                                                         "Eingestellt am:"                                             Arial                                                         "1. Jahr endet"                                               Arial                                                         "3. Jahr endet"                                               Arial                                                         "Krank Anfang"                                                Arial                                                         "Krank Ende"                                                  Arial                                                         "Summe Kr.Tage"                                               Arial                                                         "Entgeltfortzahl. bis"                                        Arial                                                         "vorh. Entg.fortz. Tage"                                      Arial                                                         "Resttg Entg.fortz."                                          Arial                                                         "Krankengeld ab"                                              Arial                                                         "K-Geldzusch. ab"                                             Arial                                                         "Hhe tgliches KG"                                           Arial                                                         "Tage ges Monats"                                             Arial                                                         "tgl. Nettoentgelt"                                          Arial                                                         "tgl. Differenz"                                             Arial                                                         "Summe Zuschuss"                                              Arial                                                         mykrankengeld.eingestellt.value                               Arial                                                         "mykrankengeld.endeerstesjahr.value                            Arial                                                         #mykrankengeld.endedrittesjahr.value                           Arial                                                         mykrankengeld.krankanfang.value                               Arial                                                         mykrankengeld.krankende.value                                 Arial                                                         mykrankengeld.kranktage.value                                 Arial                                                         mykrankengeld.entgeltbis.value                                Arial                                                         #mykrankengeld.vorherverwendet.value                           Arial                                                         mykrankengeld.resttage.value                                  Arial                                                         !mykrankengeld.krankengeldab.value                             Arial                                                          mykrankengeld.KGzuschussab.value                              Arial                                                          mykrankengeld.taeglichesKG.value                              Arial                                                         mykrankengeld.anztage.value                                   Arial                                                         !mykrankengeld.nettoentgelt2.value                             Arial                                                         mykrankengeld.differenz.value                                 Arial                                                         !mykrankengeld.summezuschuss.value                             Arial                                                         mykrankengeld.label31.caption                                 Arial                                                         mykrankengeld.label37.caption                                 Arial                                                         mykrankengeld.label39.caption                                 Arial                                                         mykrankengeld.label42.caption                                 Arial                                                         mykrankengeld.label43.caption                                 Arial                                                         mykrankengeld.label46.caption                                 Arial                                                         mykrankengeld.label48.caption                                 Arial                                                         "MINUS VWL"                                                   Arial                                                         mykrankengeld.vwlabzug.value                                  Arial                                                         "MINUS VBL/ZVK"                                               Arial                                                         mykrankengeld.vblabzug.value                                  Arial                                                         "End-Summe"                                                   Arial                                                         mykrankengeld.endsumme.value                                  Arial                                                         I"Dieser Ausdruck dient der Information und ist ausdrcklich ohne Gewhr!"                                                     Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         
"(TVD/TV-L)"                                                 Arial                                                          mykrankengeld.tarifart.value = 1                              6"Berechnung des vorraussichtlichen Krankengeldes fr:"        Arial                                                         $mykrankengeld.personalfallname.value                          Arial                                                         *alltrim(str(mykrankengeld.jahr.value,4,0))                    Arial                                                         "ab"                                                          Arial                                                         )alltrim(mykrankengeld.KGmonatsname.value)                     Arial                                                         "(Festgehalt)"                                                Arial                                                         $mykrankengeld.optiongroup1.value = 1                          "(Stundenlohn)"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Bruttoentgelt"                                               Arial                                                         "Nettoentgelt"                                                Arial                                                         "Einmalzahlungen"                                             Arial                                                         !mykrankengeld.bruttoentgelt.value                             Arial                                                          mykrankengeld.nettoentgelt.value                              Arial                                                         #mykrankengeld.einmalzahlungen.value                           Arial                                                         
"MAX 100%"                                                    Arial                                                         "bez. Arbeitstunden"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "mykrankengeld.arbeitsstunden.value                            Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Wochenstunden"                                               Arial                                                         $mykrankengeld.optiongroup1.value = 2                          !mykrankengeld.wochenstunden.value                             Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Brutto"                                          Arial                                                         $mykrankengeld.optiongroup1.value = 2                          &mykrankengeld.tagesfaktor_brutto.value                        Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Anteilsumme Netto"                                           Arial                                                         $mykrankengeld.optiongroup1.value = 2                          %mykrankengeld.tagesfaktor_netto.value                         Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "KV BBG"                                                      Arial                                                          mykrankengeld.deckelbetrag.value                              Arial                                                         $mykrankengeld.optiongroup1.value = 2                          "Kumuliertes Brutto"                                          Arial                                                         "Kumuliertes Netto"                                           Arial                                                         "Krankengeld (Brutto)"                                        Arial                                                         mykrankengeld.kumbrutto_t.value                               Arial                                                         mykrankengeld.kumnetto_t.value                                Arial                                                         mykrankengeld.KGbrutto_t.value                                Arial                                                         "- RV"                                                        Arial                                                         mykrankengeld.rv_t.value                                      Arial                                                         "- AV"                                                        Arial                                                         mykrankengeld.AV_t.value                                      Arial                                                         $"SV Abzge vom Krankengeld (Brutto)"                          Arial                                                         "- PV"                                                        Arial                                                         mykrankengeld.PV_t.value                                      Arial                                                         mykrankengeld.rvproz.value                                    Arial                                                         mykrankengeld.avproz.value                                    Arial                                                         mykrankengeld.pvproz.value                                    Arial                                                         mykrankengeld.kumbrutto_m.value                               Arial                                                         mykrankengeld.kumnetto_m.value                                Arial                                                         mykrankengeld.KGbrutto_m.value                                Arial                                                         mykrankengeld.rv_m.value                                      Arial                                                         mykrankengeld.AV_m.value                                      Arial                                                         mykrankengeld.PV_m.value                                      Arial                                                         mykrankengeld.gedeckelt.value                                 Arial                                                         	"MAX 70%"                                                     Arial                                                         	"MAX 90%"                                                     Arial                                                         mykrankengeld.kk70.value                                      Arial                                                         mykrankengeld.max90.value                                     Arial                                                         	"tglich"                                                     Arial                                                         "monatlich"                                                   Arial                                                         "gedeckelt auf"                                               Arial                                                         Bmykrankengeld.kumbrutto_m.value > mykrankengeld.deckelbetrag.value                                                            "- Soz.-Vers. Summe"                                          Arial                                                         "Krankengeld (Netto)"                                         Arial                                                         mykrankengeld.sozvers_t.value                                 Arial                                                         mykrankengeld.KGnetto_t.value                                 Arial                                                         mykrankengeld.sozvers_m.value                                 Arial                                                         mykrankengeld.KGnetto_m.value                                 Arial                                                         "verwend. wird"                                               Arial                                                         Cmykrankengeld.kumbrutto_m.value <= mykrankengeld.deckelbetrag.value                                                           "Das ist der vorraussichtliche Krankengeldzuschuss. Ihre Krankenkassensatzung knnte eine 
andere Berechnung zugrunde legen. Gltig ist nur die schriftliche Mitteilung Ihrer Krankenkasse."                                                                  Arial                                                         "(aus BAT)"                                                   Arial                                                          mykrankengeld.tarifart.value = 2                              :"Berechnung des vorraussichtlichen Krankengeldzuschusses:"                                                                    Arial                                                         "Eingestellt am:"                                             Arial                                                         "1. Jahr endet"                                               Arial                                                         "3. Jahr endet"                                               Arial                                                         "Krank Anfang"                                                Arial                                                         "Krank Ende"                                                  Arial                                                         "Summe Kr.Tage"                                               Arial                                                         "Entgeltfortzahl. bis"                                        Arial                                                         "vorh. Entg.fortz. Tage"                                      Arial                                                         "Resttg Entg.fortz."                                          Arial                                                         "Krankengeld ab"                                              Arial                                                         "K-Geldzusch. ab"                                             Arial                                                         "Hhe tgliches KG"                                           Arial                                                         "Tage ges Monats"                                             Arial                                                         "tgl. Nettoentgelt"                                          Arial                                                         "tgl. Differenz"                                             Arial                                                         "Summe Zuschuss"                                              Arial                                                         mykrankengeld.eingestellt.value                               Arial                                                         "mykrankengeld.endeerstesjahr.value                            Arial                                                         #mykrankengeld.endedrittesjahr.value                           Arial                                                         mykrankengeld.krankanfang.value                               Arial                                                         mykrankengeld.krankende.value                                 Arial                                                         mykrankengeld.kranktage.value                                 Arial                                                         mykrankengeld.entgeltbis.value                                Arial                                                         #mykrankengeld.vorherverwendet.value                           Arial                                                         mykrankengeld.resttage.value                                  Arial                                                         !mykrankengeld.krankengeldab.value                             Arial                                                          mykrankengeld.KGzuschussab.value                              Arial                                                          mykrankengeld.taeglichesKG.value                              Arial                                                         mykrankengeld.anztage.value                                   Arial                                                         !mykrankengeld.nettoentgelt2.value                             Arial                                                         mykrankengeld.differenz.value                                 Arial                                                         !mykrankengeld.summezuschuss.value                             Arial                                                         mykrankengeld.label31.caption                                 Arial                                                         mykrankengeld.label37.caption                                 Arial                                                         mykrankengeld.label39.caption                                 Arial                                                         mykrankengeld.label42.caption                                 Arial                                                         mykrankengeld.label43.caption                                 Arial                                                         mykrankengeld.label46.caption                                 Arial                                                         mykrankengeld.label48.caption                                 Arial                                                         "MINUS VWL"                                                   Arial                                                         mykrankengeld.vwlabzug.value                                  Arial                                                         "MINUS VBL/ZVK"                                               Arial                                                         mykrankengeld.vblabzug.value                                  Arial                                                         "End-Summe"                                                   Arial                                                         mykrankengeld.endsumme.value                                  Arial                                                         I"Dieser Ausdruck dient der Information und ist ausdrcklich ohne Gewhr!"                                                     Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0
    m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _62O10RVS01389267299      /  F      ]                                                       WINDOWS _62O10RVS11430476078                    2                                                 WINDOWS _62O10RVS01389452217j                  d                                                 WINDOWS _62O10RVS31411674944                  ~                                                  WINDOWS _62O10RVS01389460803X$      m$  $  $  $      a%  '                                               WINDOWS _62O10RVS61389321441*      *  *  +  +                                                           WINDOWS _62O10RVS71389321441w+      +  +  +  +                                                           WINDOWS _62O10RVS81389321441,      ,  (,  6,  C,                                                           WINDOWS _62O10RVS91389384308,      ,  ,  ,  ,      s-  -                                               WINDOWS _62O10RVSA1389384308.      .  .  .  .      m/  /                                               WINDOWS _62O10RVSB13893843080      0  0  0  0      g1  1                                               WINDOWS _62O10RVS013893214412      2  2  2  2                                                           WINDOWS _62O10RVS11389384308+3      :3  I3  c3  p3      
4  -5                                               WINDOWS _62O10RVSE13894515816      6  6  7  7                                                           WINDOWS _62O10RVSF1389451581u7      7  7  7  7                                                           WINDOWS _62O10RVSG13893214418      8  ,8  <8  I8                                                           WINDOWS _62O10RVSH13894522178      8  9  9  '9                                                           WINDOWS _62O10RVSI13894516339      9  9  9  9      Z:  ~                                               WINDOWS _62P0L76U11389317806.      =  L  \  i                                                           WINDOWS _62O10RVS01389267299ܮ                                                                       WINDOWS _62P0M90MQ1389321441n      {                                                                 WINDOWS _62P0M90MR1389384308	        '  9  F      ۰  #                                               WINDOWS _62O10RVS01389460803        1  B  O                                                       WINDOWS _62P0OREOG1389460803          ȸ  ո        0                                               WINDOWS _62P0W08U91389328128        +  9  F                                                           WINDOWS _62P0ZN50H1389331640ÿ      ҿ                                                                 WINDOWS _62R0LMSJA1389449394                                                                       WINDOWS _62R0NXKIB1389451581~                                                                       WINDOWS _62R0ON3P81391426080$      9  N  ]  j        u                                               WINDOWS _6850VZ5H51402762981                                                                     COMMENT RESERVED                                                                                            Ǽ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     5BorderStyle = 2
Height = 553
Width = 846
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Zuschlag wegen begrenzter Dienstfhigkeit berechnen"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
mydienstfhigkeit = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif
PUBLIC hsiststart
hsiststart = .t.

namensfile = fileneu

thisform.persname.Value = myform1.z0.caption

IF zi(1+2) = 16 &&thringen
	thisform.label6.Caption = "Durchschnitt der letzten 3 Jahre"
ELSE
	thisform.label6.Caption = "Normale regelmige Arbeitszeit"	
ENDIF

DO CASE &&summe enthlt schon den zuschlag?
	CASE zi(1+12) = 161 .or. zi(1+12) = 162 
		zti = 12
		hsabzug = myform1.t12.value
		thisform.zuzeile13.enabled = .t.
		thisform.zuzeile14.enabled = .f.
		thisform.zuzeile15.enabled = .f.		
	CASE zi(1+13) = 161 .or. zi(1+13) = 162 
		zti = 13
		hsabzug = myform1.t13.value
		thisform.zuzeile13.enabled = .f.
		thisform.zuzeile14.enabled = .t.
		thisform.zuzeile15.enabled = .f.
	CASE zi(1+14) = 161 .or. zi(1+14) = 162 
		zti = 14		
		hsabzug = myform1.t14.value	
		thisform.zuzeile13.enabled = .f.
		thisform.zuzeile14.enabled = .f.
		thisform.zuzeile15.enabled = .t.		
	OTHERWISE
		IF zi(1+12) > 0 .and. zi(1+12) < 161
			thisform.zuzeile13.enabled = .f.
		endif
		IF zi(1+13) > 0 .and. zi(1+13) < 161
			thisform.zuzeile14.enabled = .f.
		endif
		IF zi(1+14) > 0 .and. zi(1+14) < 161
			thisform.zuzeile15.enabled = .f.
		ENDIF
		IF thisform.zuzeile13.enabled = .f. .and. thisform.zuzeile14.enabled = .f. .and. thisform.zuzeile15.enabled = .f.
			hinweis("Die Zeilen 13-15 sind leider alle schon belegt!"+CHR(13)+CHR(10)+"Bitte eine der Zeilen frei machen!")
		endif
		hsabzug = 0.00
endcase

SELECT dienstunf
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr

IF .not. EOF()
	thisform.persrecno.Value = RECNO()
	thisform.lschen.enabled = .t.
ELSE
	thisform.persrecno.Value = 0
	thisform.lschen.enabled = .f.
endif	

thisform.vollzeitstunden.Value = myform1.t0.value
thisform.teilzeitstunden.Value = myform1.t1.value

thisform.vollzeitentgelt.Value = myform1.t20.value - hsabzug

IF thisform.persrecno.Value = 0
	thisform.dienstfhigprozent.Value = 100
ELSE
	thisform.dienstfhigprozent.Value = dienstunf.pcg_f4
ENDIF

IF INLIST(zi(1+2),3,7,10,12) &&Bundesbeamte,hessen, nrw,saarland
	thisform.ruhegehalt.Enabled = .t.
	IF thisform.persrecno.Value = 0
		thisform.ruhegehalt.Value = 0.00
	ELSE
		thisform.ruhegehalt.Value = dienstunf.pcg_f5
	endif	
ELSE
	thisform.ruhegehalt.Enabled = .f.
	thisform.ruhegehalt.Value = 0.00	
endif	

thisform.berechnen.click
hsiststart = .f.


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     	    n	  n	                        T   %   K      	  V   i            U    C     U  THISFORM SIZER	 FRMRESIZE
 T    %   
1  T     7  T a
 T   T    	 
  %C  3 T  
   Durchschnitt der letzten 3 Jahre  2 T  
  Normale regelmige Arbeitszeit 
 H $ C
  C
 w
 T
  T     T   a T   - T   -$ C  C 
 T
 
 T     T   - T   a T   -$ C  C e
 T
  T     T   - T   - T   a 2$ %C
   C
 
	 T   - $ %C   C 
	 T   - $ %C   C 
	 T   - 3 %   -    -	    -	n C/ Die Zeilen 13-15 sind leider alle schon belegt!C
 C
 " Bitte eine der Zeilen frei machen!   T           F  -     	
 %C+
& T   CO T   a R T     T   -  T       T        T !   "    %     T #  d  T #   $   %CC 
u T %  a %    S T %           q T %   &    T %  - T %           
  ' (  T -
  ) *  T +  + ,  T -  - , 
  .  T / a U0  MYDIENSTFHIGKEIT THISFORM TOP
 HSISTSTART
 NAMENSFILE FILENEU PERSNAME VALUE MYFORM1 Z0 CAPTION ZI LABEL6 ZTI HSABZUG T12	 ZUZEILE13 ENABLED	 ZUZEILE14	 ZUZEILE15 T13 T14 HINWEIS	 DIENSTUNF PCG_F2 PCG_F3 WELCHESJAHR	 PERSRECNO LSCHEN VOLLZEITSTUNDEN T0 TEILZEITSTUNDEN T1 VOLLZEITENTGELT T20 DIENSTFHIGPROZENT PCG_F4
 RUHEGEHALT PCG_F5	 BERECHNEN CLICK SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2  AA q   R1 !A  A 1A 1A 1 AA AA AA 1A QA r  ! 1A r1 aA q aA  A    rq  1                       ,         G   
      )   n	                        
commandbutton      
commandbutton      Command1      FORM1      Top = 519
Left = 24
Height = 28
Width = 72
Cancel = .T.
Caption = "abbrechen"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "Command1"
      ?PROCEDURE Click
myHSzuschlag = ""
thisform.release
ENDPROC
                                      i   %   k             z             U   
 T    
    U  MYHSZUSCHLAG THISFORM RELEASE Click,     1   1                       4       )                            
commandbutton      
commandbutton      Command2      FORM1      Top = 519
Left = 98
Height = 28
Width = 59
Cancel = .T.
Caption = "drucken"
ToolTipText = "Drucken der Krankengeldberechnung"
Name = "Command2"
     |PROCEDURE Click
oldselect = SELECT(0)

IF direktzumdruckerQ() = true
	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM dienstfhigkeit RANGE 1,1 NOCONSOLE TO PRINTER prompt
ELSE
	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview

	CREATE CURSOR dummy (feld C(1))
	SELECT dummy
	APPEND BLANK
	FLUSH

	SELECT dummy
	GO top

	REPORT FORM dienstfhigkeit RANGE 1,1 NOCONSOLE OBJECT loRepListener
ENDIF

SELECT dummy
USE

RELEASE loRepListener
RELEASE loRepPreview

SELECT(oldselect)

ENDPROC
     N    5  5                           %           +               U  H T  C W %C    h dummy  C F   [ F  #)' ? dienstfhigkeit(!"9  T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  h T 
 Druckvorschau T	 a T
  T  T 
  T   T   T   T a  C     T C ReportListener T   T    h dummy  C F   [ F  #)* ? dienstfhigkeit9.   F  Q <  < 
 F   U 	 OLDSELECT DIREKTZUMDRUCKERQ TRUE DUMMY FELD DIENSTFHIGKEIT LOREPPREVIEW LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER
 LOREPLISTENER LISTENERTYPE PREVIEWCONTAINER Click,     1  "q Q A r Q r   2         A q Q A r Q A r A r q  2                       q      )   5                        
commandbutton      
commandbutton      	zuzeile13      FORM1      Top = 519
Left = 160
Height = 28
Width = 119
Cancel = .T.
Caption = "bertrag in Zeile 13"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "zuzeile13"
     PROCEDURE Click
SELECT dienstunf
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr
IF EOF()
	APPEND BLANK
	FLUSH
	replace dienstunf.pcg_f2 WITH fileneu
	replace dienstunf.pcg_f3 WITH welchesjahr	
	flush
endif

replace dienstunf.pcg_f4 WITH thisform.dienstfhigprozent.Value
replace dienstunf.pcg_f5 WITH thisform.ruhegehalt.Value
replace dienstunf.pcg_f6 WITH thisform.endsumme.Value * 100
replace dienstunf.pcg_f9 WITH DATE()
FLUSH

myindex = 12
myindexe=12
zti = 12
IF .not. EMPTY(thisform.endsumme.Value)
	myHSzuschlag = "N:"+ALLTRIM(STR(thisform.endsumme.Value,10,2))
ELSE
	myHSzuschlags = ""
ENDIF
thisform.release
ENDPROC
                                   )!   %   6      w     E            U  < F   -     	 %C+Y   [ >     >     [  >       >  	  
   >      d >  
 C$ [
 T 
 T 
 T  %C   
# T  N:CC   
Z +
 T    
    U 	 DIENSTUNF PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F4 THISFORM DIENSTFHIGPROZENT VALUE PCG_F5
 RUHEGEHALT PCG_F6 ENDSUMME PCG_F9 MYINDEX MYINDEXE ZTI MYHSZUSCHLAG
 MYHSZUSCHLAGS RELEASE Click,     1 q  Q A A A ba A    a1  A  1                             )                           label      label      Label1      FORM1      \Caption = "Vollzeitentgelt"
Height = 18
Left = 24
Top = 39
Width = 81
Name = "Label1"
      label      label      Label2      FORM1      ZCaption = "Teilzeit-Std."
Height = 18
Left = 24
Top = 85
Width = 81
Name = "Label2"
      label      label      Label3      FORM1      ZCaption = "Vollzeit-Std."
Height = 18
Left = 24
Top = 62
Width = 81
Name = "Label3"
      textbox      textbox      vollzeitentgelt      FORM1      Alignment = 1
Format = "9999999.99"
Height = 22
Left = 120
SelectOnEntry = .T.
Top = 37
Width = 85
Name = "vollzeitentgelt"
      @PROCEDURE Valid
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            textbox      textbox      Vollzeitstunden      FORM1      Alignment = 1
Format = "9999999.99"
Height = 22
Left = 120
SelectOnEntry = .T.
Top = 60
Width = 85
Name = "Vollzeitstunden"
      @PROCEDURE Valid
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            textbox      textbox      Teilzeitstunden      FORM1      Alignment = 1
Format = "9999999.99"
Height = 22
Left = 120
SelectOnEntry = .T.
Top = 83
Width = 85
Name = "Teilzeitstunden"
      @PROCEDURE Valid
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            label      label      Label4      FORM1      [Caption = "%-Dienstfhig"
Height = 18
Left = 24
Top = 108
Width = 81
Name = "Label4"
      textbox      textbox      dienstfhigprozent      FORM1      Alignment = 1
Value = 100
Format = "9999999.99"
Height = 22
Left = 120
SelectOnEntry = .T.
Top = 106
Width = 85
Name = "dienstfhigprozent"
     PROCEDURE Valid
IF this.Value < 50
	WAIT WINDOW "Nicht kleiner als 50%!" TIMEOUT 1
	this.Value = 50
	RETURN .t.
ENDIF
IF this.Value > 100
	WAIT WINDOW "Nicht grer als 100%!" TIMEOUT 1
	this.Value = 100
	RETURN .t.
ENDIF
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      %         E     )            U    %   2
Q & R, Nicht kleiner als 50%! T   2 Ba  %   d & R, Nicht grer als 100%! T   d Ba 
     Ba U  THIS VALUE THISFORM	 BERECHNEN CLICK Valid,     1 Aaq A Aaq A  q 1                       
      )                           editbox      editbox      	erklrung      FORM1      UHeight = 101
Left = 24
ReadOnly = .T.
Top = 157
Width = 805
Name = "erklrung"
      editbox      editbox      	rechenweg      FORM1      UHeight = 229
Left = 24
ReadOnly = .T.
Top = 287
Width = 805
Name = "rechenweg"
      textbox      textbox      endsumme      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 741
ReadOnly = .T.
Top = 522
Width = 89
Name = "endsumme"
      label      label      Label5      FORM1      aCaption = "Endsumme-Zuschlag"
Height = 18
Left = 613
Top = 524
Width = 126
Name = "Label5"
      
commandbutton      
commandbutton      	berechnen      FORM1      zTop = 127
Left = 726
Height = 22
Width = 100
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
     CPROCEDURE Click
hsxxxx = ""
IF .not. EMPTY(thisform.vollzeitentgelt.value)
	hsxxxx = hsxxxx + "X"
ELSE
	hsxxxx = hsxxxx +  " "	
ENDIF
IF .not. EMPTY(thisform.vollzeitstunden.value)
	hsxxxx = hsxxxx + "X"
ELSE
	hsxxxx = hsxxxx + " "	
ENDIF
IF .not. EMPTY(thisform.teilzeitstunden.value)
	hsxxxx = hsxxxx + "X"
ELSE
	hsxxxx = hsxxxx + " "	
ENDIF
IF .not. EMPTY(thisform.dienstfhigprozent.value)
	hsxxxx = hsxxxx + "X"
ELSE
	hsxxxx = hsxxxx + " "	
ENDIF
IF INLIST(zi(1+2),3,7,10,12) &&Bundesbeamte,hessen, nrw,saarland
	IF .not. EMPTY(thisform.ruhegehalt.value)
		hsxxxx = hsxxxx + "X"
	ELSE
		hsxxxx = hsxxxx + " "	
	ENDIF
ELSE
	hsxxxx = hsxxxx + "L"
ENDIF

IF INLIST(zi(1+2),3,7,10,12)
	IF hsxxxx <> "XXXXX" 
		WAIT WINDOW "Bitte alle Daten eintragen!" timeout 1
		RETURN
	ENDIF
ELSE
	IF hsxxxx <> "XXXXL" 
		WAIT WINDOW "Bitte alle Daten eintragen!" timeout 1
		RETURN
	ENDIF
endif

IF hsiststart = .f.
	IF thisform.dienstfhigprozent.Value = 100
		hinweis("Bei 100% liegt keine Teil-Dienstfhigkeit vor!")
		RETURN
	ENDIF
endif
crlf = CHR(13) + CHR(10)
hsrechenweg = ""
 
DO case
	CASE INLIST(zi(1+2),0,1,2,4,5,6,8,9,11,14,15)
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 50% der Differenz zwischen den gekrzten Dienstbezgen und dem Vollzeitgehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte darber hinaus die Arbeitzeit weiter verringert werden, wird der Zuschlag im Verhltnis von Teilzeit zu Vollzeit gekrzt."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ ""
		IF thisform.teilzeitstunden.Value < thisform.vollzeitstunden.value * (thisform.dienstfhigprozent.Value / 100)
			hsfaktor = thisform.teilzeitstunden.Value / (thisform.vollzeitstunden.value * (thisform.dienstfhigprozent.Value / 100))
		ELSE
			hsfaktor = thisform.teilzeitstunden.Value / thisform.vollzeitstunden.value
		endif		
		hsrechenweg = hsrechenweg + "Teilzeitfaltor = " + ALLTRIM(STR(hsfaktor,10,3))+crlf+crlf
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf
		hsdifferenz = thisform.vollzeitentgelt.Value - hsgekrztesentgelt
		hsrechenweg = hsrechenweg + "Differenz von Vollzeitentgelt und gekrztem Entgelt = " + ALLTRIM(STR(hsdifferenz ,10,2))+crlf+crlf
		hszuschlag = hsdifferenz / 2
		hsrechenweg = hsrechenweg + "Hlfte der Differenz = " + ALLTRIM(STR(hszuschlag,10,2))+crlf+crlf
		hszuschlag = hszuschlag * hsfaktor		

		IF thisform.teilzeitstunden.Value < thisform.vollzeitstunden.value * (thisform.dienstfhigprozent.Value / 100)
			hsrechenweg = hsrechenweg + "Teilzeitstunden sind kleiner als die Teildienstfhigkeitsstunden"+crlf
			hsrechenweg = hsrechenweg + "Durch Verringerung des Zuschlages beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))+crlf+crlf
		ELSE
			hsrechenweg = hsrechenweg + "Teilzeitstunden sind NICHT kleiner als die Teildienstfhigkeitsstunden"+crlf+crlf
			hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))
		endif				
		thisform.rechenweg.Value = hsrechenweg
	CASE zi(1+2) = 7 &&hessen
		IF EMPTY(thisform.ruhegehalt.Value)
			hinweis("Bitte das vorab errechnete Ruhegehalt eintragen!")
			RETURN
		endif	
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 10% vom Vollzeitgehalt, mindestens aber 300. Hieraus werden nochmals 5% gewhrt als Aufstockung."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Wenn die Dienstfhigkeit mindestens 80% oder hher ist, wird fr jeden vollen Prozentprunkt (abgerundet) der Zuschlag um 5% verringert."

		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf
		IF hsgekrztesentgelt >= thisform.ruhegehalt.Value
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt " +crlf+crlf
			hsentgelt = hsgekrztesentgelt 
		ELSE
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt " +crlf+crlf
			hsentgelt = thisform.ruhegehalt.Value
		ENDIF
		hsprozentausvollzeit = thisform.vollzeitentgelt.Value * 0.1 &&10% vom vollzeit	
		hsrechenweg = hsrechenweg + "Zuschlag in Hhe von 10% des Vollzeitentgelt = " + ALLTRIM(STR(hsprozentausvollzeit,10,2))+crlf

		IF hsprozentausvollzeit < 300
			hsrechenweg = hsrechenweg + "Der Zuschlag wurde auf die Mindesthhe von 300 angehoben. (Zuschlag=300)"+crlf+crlf
			hszuschlag = 300
		ELSE
			hszuschlag = hsprozentausvollzeit
			hsrechenweg = hsrechenweg + "Der Zuschlag musste nicht auf die Mindesthhe von 300 angehoben werden. (Zuschlag="+alltrim(STR(hszuschlag,10,2))+")"+crlf+crlf
		ENDIF
		hszusatz = hszuschlag * 0.05 &&5prozent aus dem zuschlag
		hsrechenweg = hsrechenweg + "Zuzglich 5% des Zuschlages = " + ALLTRIM(STR(hszusatz,10,2))+crlf+crlf
		
		hszuschlag = hszuschlag + hszusatz
		hsrechenweg = hsrechenweg + "Zuzglich 5% des Zuschlages = " + ALLTRIM(STR(hszusatz,10,2))+crlf+crlf
		
		IF INT(thisform.dienstfhigprozent.Value) > 80
			hskrzungsbasis = INT(thisform.dienstfhigprozent.Value) - 80
			hsrechenweg = hsrechenweg + "Die Dienstfhigkeit ist um "+ALLTRIM(STR(hskrzungsbasis,3,0))+"% grer als 80%."+crlf
			hskrzungsprozent = hskrzungsbasis * 5
			hsrechenweg = hsrechenweg + "ergibt eine verringerung des Zuschlages um "+ALLTRIM(STR(hskrzungsprozent,3,0))+"%."+crlf+crlf
			hszuschlag = hszuschlag * ((100 - hskrzungsprozent) / 100)
		ENDIF
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))	
		
	CASE zi(1+2) = 10 &&NRW
		IF EMPTY(thisform.ruhegehalt.Value)
			hinweis("Bitte das vorab errechnete Ruhegehalt eintragen!")
			RETURN
		endif	
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 10% vom Vollzeitgehalt, wenn die Dienstfhigkeit 80% oder weniger betrgt."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ ""
	
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf
		hszuschlag = 0.00
		IF hsgekrztesentgelt >= thisform.ruhegehalt.Value
			hsentgelt = hsgekrztesentgelt 
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt " +crlf+crlf			
		ELSE
			hsentgelt = thisform.ruhegehalt.Value
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt " +crlf+crlf			
		ENDIF
		IF thisform.dienstfhigprozent.Value <= 80
			hsprozentausvollzeit = thisform.vollzeitentgelt.Value * 0.1 &&10% vom vollzeit
			hsrechenweg = hsrechenweg + "Die Dienstfhigkeit ist kleiner oder gleich 80%." +crlf
			hsrechenweg = hsrechenweg + "Damit ist der Zuschlag 10% aus dem Vollzeitentgelt = " + ALLTRIM(STR(hsprozentausvollzeit,10,2))+crlf+crlf
		ELSE
			hsprozentausvollzeit = 0
			hsrechenweg = hsrechenweg + "Damit gibt es keinen Zuschlag aus dem Vollzeitentgelt." +crlf+crlf
		endif
		hszuschlag = hszuschlag + hsprozentausvollzeit 		
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))
						
	CASE zi(1+2) = 12 &&saarland
		IF EMPTY(thisform.ruhegehalt.Value)
			hinweis("Bitte das vorab errechnete Ruhegehalt eintragen!")
			RETURN 
		endif	
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 10% vom Vollzeitgehalt (3-Jahresdurchschnitt), mindestens aber 250."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ ""
	
		hsfaktor = thisform.teilzeitstunden.Value / thisform.vollzeitstunden.value
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf		
		IF hsgekrztesentgelt >= thisform.ruhegehalt.Value
			hsentgelt = hsgekrztesentgelt 
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt " +crlf+crlf			
		ELSE
			hsentgelt = thisform.ruhegehalt.Value
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt " +crlf+crlf			
		ENDIF
		hsprozentausvollzeit = thisform.vollzeitentgelt.Value * 0.1 &&10% vom vollzeit
		hsrechenweg = hsrechenweg + "Zuschlag in Hhe von 10% des Vollzeitentgelt = " + ALLTRIM(STR(hsprozentausvollzeit,10,2))+crlf		
		hszuschlag = hszuschlag + hsprozentausvollzeit 
		IF hszuschlag < 250 
			hsrechenweg = hsrechenweg + "Der Zuschlag wurde auf die Mindesthhe von 250 angehoben. (Zuschlag=250)"+crlf+crlf		
			hszuschlag = 250
		ELSE
			hsrechenweg = hsrechenweg + "Der Zuschlag musste nicht auf die Mindesthhe von 250 angehoben werden. (Zuschlag="+alltrim(STR(hszuschlag,10,2))+")"+crlf+crlf			
		ENDIF		
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))
		
	CASE zi(1+2) = 13 &&sachsen
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 5% vom Vollzeitgehalt, mindestens aber 240."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ ""
		
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf		
	
		hszuschlag = thisform.vollzeitentgelt.Value * (5 / 100)
		hsrechenweg = hsrechenweg + "Zuschlag von 5% aus dem Vollzeitentgelt = " + ALLTRIM(STR(hszuschlag ,10,2))+crlf+crlf
				
		IF hszuschlag < 240 
			hsrechenweg = hsrechenweg + "Der Zuschlag wurde auf die Mindesthhe von 240 angehoben. (Zuschlag=240)"+crlf+crlf	
			hszuschlag = 240
		ELSE
			hsrechenweg = hsrechenweg + "Der Zuschlag musste nicht auf die Mindesthhe von 240 angehoben werden. (Zuschlag="+alltrim(STR(hszuschlag,10,2))+")"+crlf+crlf						
		ENDIF
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))
				
	CASE zi(1+2) = 16 &&thringen
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 50% der Differenz zwischen den gekrzten Dienstbezgen und dem Vollzeitgehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Das Vollzeit wird als 3 Jahresdurchschnitt genommen."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ ""
	
		hsfaktor = thisform.teilzeitstunden.Value / thisform.vollzeitstunden.value
		
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf
		
		hsdifferenz = thisform.vollzeitentgelt.Value - hsgekrztesentgelt
		hsrechenweg = hsrechenweg + "Differenz von Vollzeitentgelt und gekrztem Entgelt = " + ALLTRIM(STR(hsdifferenz ,10,2))+crlf+crlf		
		
		hszuschlag = hsdifferenz / 2
		hsrechenweg = hsrechenweg + "Hlfte der Differenz = " + ALLTRIM(STR(hszuschlag,10,2))+crlf+crlf
		
*		hszuschlag = hszuschlag * hsfaktor	
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))	

	CASE zi(1+2) = 3 &&bundesbeamte
		IF EMPTY(thisform.ruhegehalt.Value)
			hinweis("Bitte das vorab errechnete Ruhegehalt eintragen!")
			RETURN
		endif
		thisform.erklrung.Value = "Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt."+CRLF
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte darber hinaus die Arbeitzeit weiter verringert werden, verliert der Beamte den Anpruch auf Zahlung der Besoldung."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "in Hhe des Ruhegehalts. Dann wird das verringerte Entgelt bezahlt."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Der Zuschlag betrgt 10% der Differenz zwischen Vollzeit- und verringerter Besoldung PLUS einem Festbetrag von 150."+crlf
		thisform.erklrung.Value = thisform.erklrung.Value+ "Sollte die Dienstfhigkeit 80% bersteigen, wird vom Zuschlag 15 abgezogen fr jeden vollen Prozentpunkt ber 80%."
	
		hsfaktor = thisform.teilzeitstunden.Value / thisform.vollzeitstunden.value
		hsgekrztesentgelt = thisform.vollzeitentgelt.Value * (thisform.dienstfhigprozent.Value / 100)
		hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt = " + ALLTRIM(STR(hsgekrztesentgelt ,10,2))+crlf+crlf
		
		IF hsgekrztesentgelt >= thisform.ruhegehalt.Value
			hsentgelt = hsgekrztesentgelt 
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt." +crlf+crlf			
		ELSE
			hsentgelt = thisform.ruhegehalt.Value
			hsrechenweg = hsrechenweg + "gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt." +crlf+crlf
		ENDIF
*!*			IF hsfaktor < 1 
*!*				hsentgelt = thisform.vollzeitentgelt.Value * hsfaktor
*!*			ENDIF
		IF thisform.teilzeitstunden.Value < thisform.vollzeitstunden.value * (thisform.dienstfhigprozent.Value / 100)&&weitere teilzeit dann kein ruhegehaltsanspruch mehr sonder nur noch teilzeit
			hsfaktor = thisform.teilzeitstunden.Value / (thisform.vollzeitstunden.value * (thisform.dienstfhigprozent.Value / 100))
			hsrechenweg = hsrechenweg + "Teilzeitstunden sind kleiner als die Teildienstfhigkeitsstunden"+crlf
			hsrechenweg = hsrechenweg + "Es wird nicht die Hhe des Ruhegehalts, sondern die Hhe des Teilzeitentgelts bezahlt."+crlf
		ELSE
			hsfaktor = thisform.teilzeitstunden.Value / thisform.vollzeitstunden.value
			hsrechenweg = hsrechenweg + "Teilzeitstunden sind nicht kleiner als die Teildienstfhigkeitsstunden"+crlf
			hsrechenweg = hsrechenweg + "Es wird mindestens die Hhe des Ruhegehalts bezahlt."+crlf
		endif		

		hsdifferenz = thisform.vollzeitentgelt.Value - hsentgelt	
		hsrechenweg = hsrechenweg + "Differenz von Vollzeitentgelt und gekrztem Entgelt = " + ALLTRIM(STR(hsdifferenz ,10,2))+crlf+crlf
					
		hsprozentausdifferenz = hsdifferenz * 0.1 &&10% vom vollzeit
		hsrechenweg = hsrechenweg + "10% aus der Differenz vom Vollzeitentgelt zum gekrzten oder Teilzeit-Entgelt = " + ALLTRIM(STR(hsprozentausdifferenz,10,2))+crlf

		hszuschlag = 150 + hsprozentausdifferenz 
		hsrechenweg = hsrechenweg + "10% aus der Differenz PLUS ein Festbetrag von 150 = " + ALLTRIM(STR(hsprozentausdifferenz,10,2))+crlf+crlf

		IF thisform.dienstfhigprozent.Value >= 80
			hsrechenweg = hsrechenweg + "Die Dienstfhigkeit ist mindestens 80% oder hher."+crlf+crlf
			hskrzungsbasis = INT(thisform.dienstfhigprozent.Value) - 80
			hskrzungsbetrag = hskrzungsbasis * 15
			hsrechenweg = hsrechenweg + "Es werden 15 fr jeden vollen Prozentpunkt ber 80% abgezogen = " + ALLTRIM(STR(hskrzungsbasis,3,0)) + "% mal 15 = " + ALLTRIM(STR(hskrzungsbetrag,10,2))+crlf
			hsrechenweg = hsrechenweg + "Von "+ALLTRIM(STR(hszuschlag ,10,2)) + " werden "+ALLTRIM(STR(hskrzungsbetrag,10,2))+ " abgzogen."+crlf+crlf
			hszuschlag = hszuschlag - hskrzungsbetrag 
		ELSE
			hsrechenweg = hsrechenweg + "Die Dienstfhigkeit ist kleiner als 80%."+crlf		
			hsrechenweg = hsrechenweg + "Dadurch keine Verringerung des Zuschlages."+crlf+crlf				
		endif
		hsrechenweg = hsrechenweg + "Dadurch beluft sich der Zuschlag auf "+ ALLTRIM(STR(hszuschlag,10,2))	
endcase					
thisform.endsumme.Value = ROUND(hszuschlag,2)
ENDPROC
     0    /  /                           %   -      /     -            U  ,
 T     %C   
5  T     X O  T        %C   
{  T     X   T        %C   
  T     X   T        %C   
 T     X ! T        %CC 
 %C   
l T     X  T         T     L  %CC 
 %   XXXXX+ R, Bitte alle Daten eintragen! B  a %   XXXXL]+ R, Bitte alle Daten eintragen! B   %	 - %   d; C. Bei 100% liegt keine Teil-Dienstfhigkeit vor!
  B   T C
 C
 
 T   
 H+4 CC  	 T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  c Der Zuschlag betrgt 50% der Differenz zwischen den gekrzten Dienstbezgen und dem Vollzeitgehalt.  T 
   
  ـ Sollte darber hinaus die Arbeitzeit weiter verringert werden, wird der Zuschlag im Verhltnis von Teilzeit zu Vollzeit gekrzt.  T 
   
    , %         d
[- T          d  T        8 T   Teilzeitfaltor = CC 
Z  " T       dC T   gekrztes Vollzeitentgelt = CC 
Z   T     ] T  6 Differenz von Vollzeitentgelt und gekrztem Entgelt = CC 
Z   T  > T   Hlfte der Differenz = CC 
Z   T   , %         d
U T  @ Teilzeitstunden sind kleiner als die Teildienstfhigkeitsstunden g T  @ Durch Verringerung des Zuschlages beluft sich der Zuschlag auf CC 
Z   _ T  F Teilzeitstunden sind NICHT kleiner als die Teildienstfhigkeitsstunden  E T  & Dadurch beluft sich der Zuschlag auf CC 
Z  T     C K %C   	= C0 Bitte das vorab errechnete Ruhegehalt eintragen!
  B  T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  p Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt.  T 
   
  v Der Zuschlag betrgt 10% vom Vollzeitgehalt, mindestens aber 300. Hieraus werden nochmals 5% gewhrt als Aufstockung.  T 
   
  ه Wenn die Dienstfhigkeit mindestens 80% oder hher ist, wird fr jeden vollen Prozentprunkt (abgerundet) der Zuschlag um 5% verringert." T       dC T   gekrztes Vollzeitentgelt = CC 
Z   %    HY T  @ gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt   
 T   R T  9 gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt    T      T    ?R T  / Zuschlag in Hhe von 10% des Vollzeitentgelt = CC 
Z  % ,

c T  J Der Zuschlag wurde auf die Mindesthhe von 300 angehoben. (Zuschlag=300)   T , A
 T   T  S Der Zuschlag musste nicht auf die Mindesthhe von 300 angehoben werden. (Zuschlag=CC 
Z )    T  ?E T   Zuzglich 5% des Zuschlages = CC 
Z   T   E T   Zuzglich 5% des Zuschlages = CC 
Z   %C   8P T C   8PS T   Die Dienstfhigkeit ist um CC  Z % grer als 80%.  T  X T  + ergibt eine verringerung des Zuschlages um CC  Z %.   T  d d E T  & Dadurch beluft sich der Zuschlag auf CC 
Z C 
p %C   = C0 Bitte das vorab errechnete Ruhegehalt eintragen!
  B  T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  p Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt.  T 
   
  _ Der Zuschlag betrgt 10% vom Vollzeitgehalt, wenn die Dienstfhigkeit 80% oder weniger betrgt.  T 
   
    " T       dC T   gekrztes Vollzeitentgelt = CC 
Z   T          %    j
 T  Y T  @ gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt     T    R T  9 gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt     %   P T    ?E T  0 Die Dienstfhigkeit ist kleiner oder gleich 80%. \ T  5 Damit ist der Zuschlag 10% aus dem Vollzeitentgelt = CC 
Z   
 T  O T  6 Damit gibt es keinen Zuschlag aus dem Vollzeitentgelt.    T   E T  & Dadurch beluft sich der Zuschlag auf CC 
Z C  %C   = C0 Bitte das vorab errechnete Ruhegehalt eintragen!
  B  T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  p Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt. z T 
   
  Y Der Zuschlag betrgt 10% vom Vollzeitgehalt (3-Jahresdurchschnitt), mindestens aber 250.  T 
   
     T       " T       dC T   gekrztes Vollzeitentgelt = CC 
Z   %    
 T  Y T  @ gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt     T    R T  9 gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt     T    ?R T  / Zuschlag in Hhe von 10% des Vollzeitentgelt = CC 
Z  T    % 
c T  J Der Zuschlag wurde auf die Mindesthhe von 250 angehoben. (Zuschlag=250)  
 T   T  S Der Zuschlag musste nicht auf die Mindesthhe von 250 angehoben werden. (Zuschlag=CC 
Z )   E T  & Dadurch beluft sich der Zuschlag auf CC 
Z C 
 T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag. b T 
   
  A Der Zuschlag betrgt 5% vom Vollzeitgehalt, mindestens aber 240.  T 
   
    " T       dC T   gekrztes Vollzeitentgelt = CC 
Z    T     ?Q T  * Zuschlag von 5% aus dem Vollzeitentgelt = CC 
Z   % 
Kc T  J Der Zuschlag wurde auf die Mindesthhe von 240 angehoben. (Zuschlag=240)  
 T   T  S Der Zuschlag musste nicht auf die Mindesthhe von 240 angehoben werden. (Zuschlag=CC 
Z )   E T  & Dadurch beluft sich der Zuschlag auf CC 
Z C ;! T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  c Der Zuschlag betrgt 50% der Differenz zwischen den gekrzten Dienstbezgen und dem Vollzeitgehalt. U T 
   
  4 Das Vollzeit wird als 3 Jahresdurchschnitt genommen.  T 
   
     T       " T       dC T   gekrztes Vollzeitentgelt = CC 
Z   T     ] T  6 Differenz von Vollzeitentgelt und gekrztem Entgelt = CC 
Z   T  > T   Hlfte der Differenz = CC 
Z  E T  & Dadurch beluft sich der Zuschlag auf CC 
Z C + %C   != C0 Bitte das vorab errechnete Ruhegehalt eintragen!
  B  T 
  t Begrenzt dienstfhige Beamte erhalten zustzlich zur verringerten Besoldung einen nicht ruhegehaltsfhigen Zuschlag.  T 
   
  p Sollte die verringerte Besoldung kleiner als das fiktive Ruhegehalt sein, dann erhlt der Beamte das Ruhegehalt.  T 
   
  y Sollte darber hinaus die Arbeitzeit weiter verringert werden, verliert der Beamte den Anpruch auf Zahlung der Besoldung. d T 
   
  C in Hhe des Ruhegehalts. Dann wird das verringerte Entgelt bezahlt.  T 
   
  t Der Zuschlag betrgt 10% der Differenz zwischen Vollzeit- und verringerter Besoldung PLUS einem Festbetrag von 150.  T 
   
  s Sollte die Dienstfhigkeit 80% bersteigen, wird vom Zuschlag 15 abgezogen fr jeden vollen Prozentpunkt ber 80%. T       " T       dC T   gekrztes Vollzeitentgelt = CC 
Z   %    %
 T  Y T  @ gekrztes Vollzeitentgelt ist grer oder gleich dem Ruhegehalt.   U& T    R T  9 gekrztes Vollzeitentgelt ist kleiner als das Ruhegehalt.   , %         d
r'- T          dU T  @ Teilzeitstunden sind kleiner als die Teildienstfhigkeitsstunden k T  V Es wird nicht die Hhe des Ruhegehalts, sondern die Hhe des Teilzeitentgelts bezahlt.  ;( T       [ T  F Teilzeitstunden sind nicht kleiner als die Teildienstfhigkeitsstunden I T  4 Es wird mindestens die Hhe des Ruhegehalts bezahlt.   T     ] T  6 Differenz von Vollzeitentgelt und gekrztem Entgelt = CC 
Z   T  ?s T  P 10% aus der Differenz vom Vollzeitentgelt zum gekrzten oder Teilzeit-Entgelt = CC 
Z  T  \ T  5 10% aus der Differenz PLUS ein Festbetrag von 150 = CC 
Z   %   P+K T  2 Die Dienstfhigkeit ist mindestens 80% oder hher.   T C   8P T   T  A Es werden 15 fr jeden vollen Prozentpunkt ber 80% abgezogen = CC  Z % mal 15 = CC 
Z S T   Von CC 
Z  werden CC 
Z
  abgzogen.   T    += T  ( Die Dienstfhigkeit ist kleiner als 80%. C T  * Dadurch keine Verringerung des Zuschlages.   E T  & Dadurch beluft sich der Zuschlag auf CC 
Z  T   C T U  HSXXXX THISFORM VOLLZEITENTGELT VALUE VOLLZEITSTUNDEN TEILZEITSTUNDEN DIENSTFHIGPROZENT ZI
 RUHEGEHALT
 HSISTSTART HINWEIS CRLF HSRECHENWEG	 ERKLRUNG HSFAKTOR HSGEKRZTESENTGELT HSDIFFERENZ
 HSZUSCHLAG	 RECHENWEG	 HSENTGELT HSPROZENTAUSVOLLZEIT HSZUSATZ HSKRZUNGSBASIS HSKRZUNGSPROZENT HSPROZENTAUSDIFFERENZ HSKRZUNGSBETRAG ENDSUMME Click,     1  a! !A a! !A a! !A a! !A a! !A  !A aA A  aA A A  qA A A Q  AA
 A !1qQq QA 1QQA A 	q	A
"1q  !1A !"1   A QQ1A QRQA A 	"1Qq  1!A qQ  A QRQA A 	!1q  1!A !1  A QR!"11  A QRAQ"1rSRQA A 		AQ		!1r  1!A Q A r1r!1 1A QA 1                       C      )   /                        textbox      textbox      persname      FORM1      kEnabled = .F.
Height = 25
Left = 24
Top = 6
Width = 310
DisabledForeColor = 0,0,0
Name = "persname"
      label      label      Label6      FORM1      UCaption = "Label6"
Height = 16
Left = 211
Top = 64
Width = 306
Name = "Label6"
      label      label      Label7      FORM1      ^Caption = "fikt. Ruhegehalt"
Height = 18
Left = 24
Top = 131
Width = 91
Name = "Label7"
      textbox      textbox      
ruhegehalt      FORM1      Alignment = 1
Value = 100
Format = "9999999.99"
Height = 22
Left = 120
SelectOnEntry = .T.
Top = 129
Width = 85
Name = "ruhegehalt"
      @PROCEDURE Valid
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            
commandbutton      
commandbutton      	zuzeile14      FORM1      Top = 519
Left = 281
Height = 28
Width = 119
Cancel = .T.
Caption = "bertrag in Zeile 14"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "zuzeile14"
     PROCEDURE Click
SELECT dienstunf
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr
IF EOF()
	APPEND BLANK
	FLUSH
	replace dienstunf.pcg_f2 WITH fileneu
	replace dienstunf.pcg_f3 WITH welchesjahr	
	flush
endif

replace dienstunf.pcg_f4 WITH thisform.dienstfhigprozent.Value
replace dienstunf.pcg_f5 WITH thisform.ruhegehalt.Value
replace dienstunf.pcg_f6 WITH thisform.endsumme.Value * 100
replace dienstunf.pcg_f9 WITH DATE()
FLUSH

myindex = 13
myindexe=13
zti = 13
IF .not. EMPTY(thisform.endsumme.Value)
	myHSzuschlag = "N:"+ALLTRIM(STR(thisform.endsumme.Value,10,2))
ELSE
	myHSzuschlags = ""
ENDIF
thisform.release
ENDPROC
                                   )!   %   6      w     E            U  < F   -     	 %C+Y   [ >     >     [  >       >  	  
   >      d >  
 C$ [
 T 

 T 

 T 
 %C   
# T  N:CC   
Z +
 T    
    U 	 DIENSTUNF PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F4 THISFORM DIENSTFHIGPROZENT VALUE PCG_F5
 RUHEGEHALT PCG_F6 ENDSUMME PCG_F9 MYINDEX MYINDEXE ZTI MYHSZUSCHLAG
 MYHSZUSCHLAGS RELEASE Click,     1 q  Q A A A ba A    a1  A  1                             )                           
commandbutton      
commandbutton      	zuzeile15      FORM1      Top = 519
Left = 402
Height = 28
Width = 119
Cancel = .T.
Caption = "bertrag in Zeile 15"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "zuzeile15"
     PROCEDURE Click
SELECT dienstunf
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr
IF EOF()
	APPEND BLANK
	FLUSH
	replace dienstunf.pcg_f2 WITH fileneu
	replace dienstunf.pcg_f3 WITH welchesjahr	
	flush
endif

replace dienstunf.pcg_f4 WITH thisform.dienstfhigprozent.Value
replace dienstunf.pcg_f5 WITH thisform.ruhegehalt.Value
replace dienstunf.pcg_f6 WITH thisform.endsumme.Value * 100
replace dienstunf.pcg_f9 WITH DATE()
FLUSH
myindex = 14
myindexe=14
zti = 14
IF .not. EMPTY(thisform.endsumme.Value)
	myHSzuschlag = "N:"+ALLTRIM(STR(thisform.endsumme.Value,10,2))
ELSE
	myHSzuschlags = ""
ENDIF
thisform.release
ENDPROC
                                   )!   %   6      w     E            U  < F   -     	 %C+Y   [ >     >     [  >       >  	  
   >      d >  
 C$ [
 T 
 T 
 T  %C   
# T  N:CC   
Z +
 T    
    U 	 DIENSTUNF PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F4 THISFORM DIENSTFHIGPROZENT VALUE PCG_F5
 RUHEGEHALT PCG_F6 ENDSUMME PCG_F9 MYINDEX MYINDEXE ZTI MYHSZUSCHLAG
 MYHSZUSCHLAGS RELEASE Click,     1 q  Q A A A ba A    a1  A  1                             )                           label      label      Label8      FORM1      uCaption = "vorab berechnetes fiktives Ruhegehalt"
Height = 16
Left = 210
Top = 132
Width = 213
Name = "Label8"
      textbox      textbox      	persrecno      FORM1      {Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 735
Top = 99
Visible = .F.
Width = 88
Name = "persrecno"
      label      label      Label9      FORM1      FontBold = .T.
FontSize = 12
Caption = "Dies ist eine Beta-Version. Bei Fehlern bitte Email schicken."
Height = 21
Left = 367
Top = 9
Width = 454
ForeColor = 255,0,0
Name = "Label9"
      label      label      Label10      FORM1      hFontBold = .T.
Caption = "Rechenweg"
Height = 16
Left = 24
Top = 270
Width = 73
Name = "Label10"
      
commandbutton      
commandbutton      lschen      FORM1      Top = 519
Left = 524
Height = 28
Width = 72
Cancel = .T.
Caption = "lschen"
ToolTipText = "schlieen des Fensters (es wird nicht gespeichert)"
Name = "lschen"
     RPROCEDURE Click
IF .not. ok("Soll der Zuschlag gelscht werden?")
	RETURN
endif
SELECT dienstunf
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr

IF .not. EOF()
	delete
	FLUSH
	Hinweis("Eintrag wurde gelscht!")
	zi(1+zti) = 0
	index1=0
	wert(1+zti) = 0
ENDIF

myHSzuschlag = "gelscht"
thisform.release
ENDPROC
     /                                 %                          U   4 %C" Soll der Zuschlag gelscht werden?  
8  B  F  -     	
 %C+
   [$ C Eintrag wurde gelscht!  T   
 T	   T
     T  gelscht
  
  U  OK	 DIENSTUNF PCG_F2 FILENEU PCG_F3 WELCHESJAHR HINWEIS ZI ZTI INDEX1 WERT MYHSZUSCHLAG THISFORM RELEASE Click,     1 AA A q  A A Aq qA R 1                       G      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 534
Left = 828
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0)   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _62R0KD0O41389448128 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1               
     0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  1TTT0 0F        WINDOWS _62R0KD0O5           9  1                          90417.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62R0KD0O6           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62R0KD0O7           9  7                           3855.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0OOHAL1445747675 5  0       87604.167 6458.333 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _62R0KDPR71389448145 8  0        4895.83360416.667 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _62R0KDPR81389448145 8  0        2812.500 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KDPR91389448145 8  0        4895.833 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KDPRA1389448145 8  0        4895.83366875.000 1875.000 9895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _62R0KDPRB1389448145 8  0       11979.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _62R0KDPRC1389448145 5  0       11770.83352395.833 1666.667 8958.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F        WINDOWS _62R0KDPRD1389448145 8  0       13854.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _62R0KDPRE1389448145 8  0        13437.50052187.500 1875.00024687.500                   C           -1   -1   -1   -1   -1   -1               !     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F"        WINDOWS _62R0KDPRF1389448145 8  0    #   15729.167 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               $     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _62R0KE1601389448152 5  0    %   21666.667 6354.167 2083.33343333.333                               -1   -1   -1   -1   -1   -1               &     1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KGJO81389448217 5  0    '   27395.833 6354.167 2083.333 8333.333                               -1   -1   -1   -1   -1   -1               (     0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _62R0KGS971389448220 5  0    )   29479.167 6354.167 2083.333 9479.167                               -1   -1   -1   -1   -1   -1               *     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KH6BR1389448231 5  0    +   31562.500 6354.167 2083.333 9270.833                               -1   -1   -1   -1   -1   -1               ,     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KHLJX1389448241 5  0    -   33645.833 6354.167 2083.33310625.000                               -1   -1   -1   -1   -1   -1               .     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KI11N1389448251 5  0    /   35937.500 6354.167 2083.333 9479.167                               -1   -1   -1   -1   -1   -1               0     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KJ0NG1389448289 8  0    1   27291.66721250.000 2291.66710416.667                   C           -1   -1   -1   -1   -1   -1               2     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KJNKY1389448293 8  0    3   29375.00021250.000 2291.66710416.667                   C           -1   -1   -1   -1   -1   -1               4     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KKLMU1389448315 8  0    5   31458.33321250.000 2291.66710416.667                   C           -1   -1   -1   -1   -1   -1               6     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KL56L1389448330 8  0    7   33541.66721250.000 2291.66710416.667                   C           -1   -1   -1   -1   -1   -1               8     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KLO3C1389448342 8  0    9   35833.33321250.000 2291.66710416.667                   C           -1   -1   -1   -1   -1   -1               :     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KNVU61389448403 5  0    ;   24479.167 6354.167 2083.33320000.000                               -1   -1   -1   -1   -1   -1               <     5 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _62R0KPAAQ1389448448 8  0    =   29479.16732500.000 2291.66734479.167                   C           -1   -1   -1   -1   -1   -1               >     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KQIX31389448463 8  0    ?   35833.33332500.000 2291.66734479.167                   C           -1   -1   -1   -1   -1   -1               @     0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KR7B11389448481 5  0    A   39791.667 6354.167 2083.33329270.833                               -1   -1   -1   -1   -1   -1               B     5 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62R0KS2IO1389448501 8  0    C   42083.333 6562.500 8541.66770000.000                   C           -1   -1   -1   -1   -1   -1               D     0 12  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KU81C1389448556 5  0    E   51770.833 6354.167 2083.333 9479.167                               -1   -1   -1   -1   -1   -1               F     5 12  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _62R0KU81D1389448556 8  0    G   54062.500 6562.50029375.00070000.000                   C           -1   -1   -1   -1   -1   -1               H     0 12  1 0     TTFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62R0KWF5N1389448616 5  0    I   84479.167 6562.500 2083.33321979.167                               -1   -1   -1   -1   -1   -1               J     1 12  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _62R0KX4YP1389448628 8  0    K   84270.83329583.333 2187.50011354.167                   C           -1   -1   -1   -1   -1   -1               L     1 12  1 0     TFFFF  F          2T         0       0 1  0FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   M     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   N     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   O     1 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   P     1 12                                                     F               WINDOWS                     23              20.000    6.000   16.000   19.000                                4    0                                   Q     0 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   R     5 12                                                     F               WINDOWS                     25   S   T                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Courier New                                                   .not. empty(ditext6)                                          K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         5"Zuschlag wegen begrenzter Dienstfhigkeit berechnen"         Arial                                                         "Vollzeitgehalt"                                              Arial Narrow                                                  "Vollzeitstunden"                                             Arial Narrow                                                  "Teilzeitstunden"                                             Arial Narrow                                                  "% Dienstfhigkeit"                                           Arial Narrow                                                  "fikt. Ruhegehalt"                                            Arial Narrow                                                  'mydienstfhigkeit.vollzeitentgelt.value                       Arial Narrow                                                  'mydienstfhigkeit.vollzeitstunden.value                       Arial Narrow                                                  'mydienstfhigkeit.teilzeitstunden.value                       Arial Narrow                                                  *mydienstfhigkeit.dienstfhigprozent.value                    Arial Narrow                                                  "mydienstfhigkeit.ruhegehalt.value                            Arial Narrow                                                  "Berechnungsgrundlagen"                                       Arial                                                          mydienstfhigkeit.label6.caption                              Arial Narrow                                                   mydienstfhigkeit.label8.caption                              Arial Narrow                                                  '"vereinfachte Erklrung der Vorschrift"                       Arial                                                         !mydienstfhigkeit.erklrung.value                             Arial Narrow                                                  "Rechenweg"                                                   Arial                                                         !mydienstfhigkeit.rechenweg.value                             Arial Narrow                                                  "Endsumme des Zuschlages"                                     Arial                                                          mydienstfhigkeit.endsumme.value                              Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Courier New                                                   .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         5"Zuschlag wegen begrenzter Dienstfhigkeit berechnen"         Arial                                                         "Vollzeitgehalt"                                              Arial Narrow                                                  "Vollzeitstunden"                                             Arial Narrow                                                  "Teilzeitstunden"                                             Arial Narrow                                                  "% Dienstfhigkeit"                                           Arial Narrow                                                  "fikt. Ruhegehalt"                                            Arial Narrow                                                  'mydienstfhigkeit.vollzeitentgelt.value                       Arial Narrow                                                  'mydienstfhigkeit.vollzeitstunden.value                       Arial Narrow                                                  'mydienstfhigkeit.teilzeitstunden.value                       Arial Narrow                                                  *mydienstfhigkeit.dienstfhigprozent.value                    Arial Narrow                                                  "mydienstfhigkeit.ruhegehalt.value                            Arial Narrow                                                  "Berechnungsgrundlagen"                                       Arial                                                          mydienstfhigkeit.label6.caption                              Arial Narrow                                                   mydienstfhigkeit.label8.caption                              Arial Narrow                                                  '"vereinfachte Erklrung der Vorschrift"                       Arial                                                         !mydienstfhigkeit.erklrung.value                             Arial Narrow                                                  "Rechenweg"                                                   Arial                                                         !mydienstfhigkeit.rechenweg.value                             Arial Narrow                                                  "Endsumme des Zuschlages"                                     Arial                                                          mydienstfhigkeit.endsumme.value                              Arial                                                         @"Dieser Ausdruck dient nur der Information und ist ohne Gewhr."                                                              Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                    JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? {Dִ=?@ܺJEʩFۘq?tX5m? i*"n
]#b<~^ Aໞ? m/xK>Ķ>>y7RK4hfi!/Ap~UUA  _JyK./|eʃ 8+r( kԃ<fM>;V0;[vwrȢį7/7xú4	e]u;%(I(dV1j |9'WiD&I_SF,d(]3Ѵk[M+IK[;;[uXTD*  QE0
   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _62X0KGXC51389841442 1 53           1.000    0.000    0.000116900.00                 F                                                            0 12   21F 3 3   TF              T    F T               0T               WINDOWS _62X0KGXC6           9  1                          61250.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62X0KGXC7           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62X0KGXC8           9  7                           3438.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _62X0X9M991389853673 7  4        32291.667 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0XA9R41389853688 7  4        36250.000 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0XAOCR1389853699 7  4        40208.333 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0XAOCS1389853699 7  4        44166.667 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0XB1R21389853708 7  4        48125.000 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0XB1R31389853708 7  4        52083.333 6562.500 1875.00098541.667                              242  242  242  242  242  242    0    8    1            1       FFFTF  F                     0             FTT0 0F         WINDOWS _62X0KHSHL1389841462 8  0        3958.33388333.333 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _62X0KHSHM1389841462 8  0        3958.333 6354.167 1666.66721354.167                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62X0KHSHN1389841462 8  0        5937.500 6354.167 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62X0KHSHO1389841462 8  0        3958.33392083.333 1666.66711145.833                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _62X0KJ1GZ1389841530 8  0        9062.500 6354.167 2500.00084166.667                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _62X0LFBIZ1389842296 8  0       30312.500 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VA5QE1389851766 7  4        20833.333 6458.333 8437.50099270.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VABT81389851771 5  0       21041.667 7291.667 1979.167 4479.167                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _62X0VAHHB1389851773 5  0        21041.66723229.167 1979.16717500.000                               -1   -1   -1   -1   -1   -1               !     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VB50H1389851790 5  0    "   22916.66716041.667 1979.167 8645.833                               -1   -1   -1   -1   -1   -1               #     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VBHK01389851799 5  0    $   24895.83316041.667 1979.16712500.000                               -1   -1   -1   -1   -1   -1               %     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VC6671389851816 5  0    &   27187.50017604.167 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               '     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VCHD71389851824 5  0    (   27187.50027812.500 1979.167 3437.500                               -1   -1   -1   -1   -1   -1               )     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VDA341389851844 6           27291.66723541.66731666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VDI2V1389851850 6           20937.50015104.16738020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VDPRB1389851855 6           23541.66732916.66735416.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VEJKA1389851876 5  0    *   22916.66735416.667 1979.16712500.000                               -1   -1   -1   -1   -1   -1               +     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VEJKB1389851876 5  0    ,   27187.50035416.667 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               -     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VEJKC1389851876 5  0    .   27187.50046354.167 1979.167 3437.500                               -1   -1   -1   -1   -1   -1               /     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VEJKD1389851876 6           27291.66742187.50031666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VFD8V1389851895 6           20937.50051041.66738020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VG5HG1389851915 5  0    0   21041.66761458.333 1979.16713229.167                               -1   -1   -1   -1   -1   -1               1     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HH1389851915 5  0    2   22916.66752500.000 1979.16711979.167                               -1   -1   -1   -1   -1   -1               3     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HI1389851915 5  0    4   24895.83352500.000 1979.167 7916.667                               -1   -1   -1   -1   -1   -1               5     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HJ1389851915 5  0    6   27187.50054166.667 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               7     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HK1389851915 5  0    8   27187.50063020.833 1979.167 4791.667                               -1   -1   -1   -1   -1   -1               9     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HL1389851915 6           27291.66759791.66731666.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VG5HM1389851915 6           23541.66769583.33335416.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VG5HN1389851915 5  0    :   22916.66772395.833 1979.167 6666.667                               -1   -1   -1   -1   -1   -1               ;     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VG5HO1389851915 5  0    <   27187.50073437.500 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               =     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VI2HR1389851962 5  0    >   24895.83371770.833 1979.167 7916.667                               -1   -1   -1   -1   -1   -1               ?     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VILRZ1389851977 6           20937.50080937.50038020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VJNQP1389852003 5  0    @   21041.66783854.167 1979.167 6562.500                               -1   -1   -1   -1   -1   -1               A     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VJNQQ1389852003 5  0    B   22916.66784270.833 1979.167 5729.167                               -1   -1   -1   -1   -1   -1               C     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VJNQR1389852003 5  0    D   24895.83382500.000 1979.167 9166.667                               -1   -1   -1   -1   -1   -1               E     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VK5UG1389852015 5  0    F   27187.50085625.000 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               G     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VL5XK1389852040 5  0    H   21041.66794479.167 1979.167 8229.167                               -1   -1   -1   -1   -1   -1               I     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VL5XL1389852040 5  0    J   22916.66795208.333 1979.167 6666.667                               -1   -1   -1   -1   -1   -1               K     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VL5XM1389852040 5  0    L   27187.50096770.833 1979.167 4687.500                               -1   -1   -1   -1   -1   -1               M     0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _62X0VLDBN1389852045 6           20937.50093020.83338020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0VQ55D1389852169 8  0    N   16354.167 6354.167 2083.33384062.500                   C           -1   -1   -1   -1   -1   -1               P     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0FQ        WINDOWS _62X0VSPAZ1389852228 8  0    R   16354.167 6354.167 2083.33384062.500                   C           -1   -1   -1   -1   -1   -1               S     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0FT        WINDOWS _62X0VUQO51389852279 8  0    U   14062.500 6354.167 2083.33334583.333                   C           -1   -1   -1   -1   -1   -1               V     0 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _62X0VYBGU1389852367 8  0    W   32291.667 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYHPA1389852371 8  0    Y   34270.833 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               Z     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYHPB1389852371 8  0    [   36250.000 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               \     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYMP41389852374 8  0    ]   38229.167 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               ^     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYMP51389852374 8  0    _   40208.333 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               `     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYMP61389852374 8  0    a   42187.500 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYMP71389852374 8  0    c   44166.667 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               d     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYT8V1389852379 8  0    e   46145.833 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               f     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYT8W1389852379 8  0    g   48125.000 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               h     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYT8X1389852379 8  0    i   50104.167 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0VYT8Y1389852379 8  0    k   52083.333 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               l     0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _62X0W17PI1389852439 8  0    m   56562.500 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               n     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0W1LIZ1389852450 6           56145.833 6458.333  104.16799166.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62X0W2FZB1389852469 6           58854.167 6458.333  104.16799166.667                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _62X0WUT9Z1389853303 8  0    o   56562.50083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WUTA01389853303 8  0    q   56562.50095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6D1389853325 8  0    s   56562.50015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6E1389853325 8  0    u   56562.50024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6F1389853325 8  0    w   56562.50033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6G1389853325 8  0    y   56562.50042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6H1389853325 8  0    {   56562.50051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6I1389853325 8  0    }   56562.50060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0WVN6J1389853325 8  0       56562.50071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _62X0XEYFG1389853805 6           20937.500105625.0038020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _62X0XF7F51389853811 6           20937.500 6458.33338020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6FH0QGQVS1429234330 8  0       30312.50015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVT1429234330 8  0       32291.66715416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVU1429234330 8  0       34270.83315416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVV1429234330 8  0       36250.00015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVW1429234330 8  0       38229.16715416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVX1429234330 8  0       40208.33315416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVY1429234330 8  0       42187.50015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQVZ1429234330 8  0       44166.66715416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQW01429234330 8  0       46145.83315416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQW11429234330 8  0       48125.00015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQW21429234330 8  0       50104.16715416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGQW31429234330 8  0       52083.33315416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2S1429234337 8  0       30312.50024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2T1429234337 8  0       32291.66724479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2U1429234337 8  0       34270.83324479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2V1429234337 8  0       36250.00024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2W1429234337 8  0       38229.16724479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2X1429234337 8  0       40208.33324479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2Y1429234337 8  0       42187.50024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ2Z1429234337 8  0       44166.66724479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ301429234337 8  0       46145.83324479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ311429234337 8  0       48125.00024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ321429234337 8  0       50104.16724479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QGZ331429234337 8  0       52083.33324479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59A1429234341 8  0       30312.50033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59B1429234341 8  0       32291.66733645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59C1429234341 8  0       34270.83333645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59D1429234341 8  0       36250.00033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59E1429234341 8  0       38229.16733645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59F1429234341 8  0       40208.33333645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59G1429234341 8  0       42187.50033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59H1429234341 8  0       44166.66733645.833 1979.167 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59I1429234341 8  0       46250.00033645.833 1770.833 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59J1429234341 8  0       48125.00033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59K1429234341 8  0       50104.16733645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QH59L1429234341 8  0       52083.33333645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNS1429234347 8  0       30312.50042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNT1429234347 8  0       32291.66742708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNU1429234347 8  0       34270.83342708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNV1429234347 8  0       36250.00042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNW1429234347 8  0       38229.16742708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNX1429234347 8  0       40208.33342708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNY1429234347 8  0       42187.50042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDNZ1429234347 8  0       44166.66742708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDO01429234347 8  0       46145.83342708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDO11429234347 8  0       48125.00042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDO21429234347 8  0       50104.16742708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHDO31429234347 8  0       52083.33342708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHS1429234351 8  0       30312.50051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHT1429234351 8  0       32291.66751562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHU1429234351 8  0       34270.83351562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHV1429234351 8  0       36250.00051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHW1429234351 8  0       38229.16751562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHX1429234351 8  0       40208.33351562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHY1429234351 8  0       42187.50051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJHZ1429234351 8  0       44166.66751562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJI01429234351 8  0       46145.83351562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJI11429234351 8  0       48125.00051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJI21429234351 8  0       50104.16751562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHJI31429234351 8  0       52083.33351562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP401429234354 8  0       30312.50060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP411429234354 8  0       32291.66760833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP421429234354 8  0       34270.83360833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP431429234354 8  0       36250.00060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP441429234354 8  0      38229.16760833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP451429234354 8  0      40208.33360833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP461429234354 8  0      42187.50060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP471429234354 8  0      44166.66760833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP481429234354 8  0    	  46145.83360833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               
    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP491429234354 8  0      48125.00060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP4A1429234354 8  0    
  50104.16760833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHP4B1429234354 8  0      52083.33360833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDK1429234358 8  0      30312.50071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDL1429234358 8  0      32291.66771458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDM1429234358 8  0      34270.83371458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDN1429234358 8  0      36250.00071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDO1429234358 8  0      38229.16771458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDP1429234358 8  0      40208.33371458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDQ1429234358 8  0      42187.50071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDR1429234358 8  0      44166.66771458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDS1429234358 8  0    !  46145.83371458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               "    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDT1429234358 8  0    #  48125.00071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               $    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDU1429234358 8  0    %  50104.16771458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               &    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QHVDV1429234358 8  0    '  52083.33371458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               (    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI3781429234363 8  0    )  30312.50083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               *    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI3791429234363 8  0    +  32291.66783020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               ,    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37A1429234363 8  0    -  34270.83383020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               .    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37I1429234363 8  0    /  36250.00083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               0    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37J1429234363 8  0    1  38229.16783020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               2    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37K1429234363 8  0    3  40208.33383020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               4    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37L1429234363 8  0    5  42187.50083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               6    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37M1429234363 8  0    7  44166.66783020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               8    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37N1429234363 8  0    9  46145.83383020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               :    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37O1429234363 8  0    ;  48125.00083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               <    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37P1429234363 8  0    =  50104.16783020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               >    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI37Q1429234363 8  0    ?  52083.33383020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               @    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PO1429234370 8  0    A  30312.50095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               B    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PP1429234370 8  0    C  32291.66795104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               D    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PQ1429234370 8  0    E  34270.83395104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               F    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PR1429234370 8  0    G  36250.00095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               H    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PS1429234370 8  0    I  38229.16795104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               J    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PT1429234370 8  0    K  40208.33395104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               L    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PU1429234370 8  0    M  42187.50095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               N    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PV1429234370 8  0    O  44166.66795104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               P    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PW1429234370 8  0    Q  46145.83395104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               R    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PX1429234370 8  0    S  48125.00095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               T    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PY1429234370 8  0    U  50104.16795104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               V    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6FH0QI9PZ1429234370 8  0    W  52083.33395104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               X    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC76X1447720105 8  0    Y  54062.500 6770.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               [    0 10  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _6JM0VC76Y1447720105 8  0    \  54062.50015416.667 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               ]    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC76Z1447720105 8  0    ^  54062.50024479.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               _    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7701447720105 8  0    `  54062.50033645.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               a    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7711447720105 8  0    b  54062.50042708.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               c    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7721447720105 8  0    d  54062.50051562.500 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               e    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7731447720105 8  0    f  54062.50060833.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               g    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7741447720105 8  0    h  54062.50071458.333 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               i    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7751447720105 8  0    j  54062.50083020.833 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               k    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS _6JM0VC7761447720105 8  0    l  54062.50095104.167 1875.000 7812.500                   C           -1   -1   -1   -1   -1   -1               m    0 10  1 0     FFFTF  F          0T         1       0 1  1FTT0 0F         WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                   n    0 12                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   o    0  8                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                   p    1 14                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   q    0 10                                                     F               WINDOWS                     25   r  s                                                       F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                M"Sonderzahlungen fr " + Alltrim(zt0(1+zi(1+0))) + " im Jahr " + welchesjahrc                                                 Arial                                                         sp0z1                                                         Arial                                                         "Monat"                                                       Arial                                                         "Magebliche Besoldung"                                       Arial                                                         
"Gehalt ohne"                                                 Arial                                                         "Familienzuschlag"                                            Arial                                                         "EURO"                                                        Arial                                                         "zu %"                                                        Arial                                                         "Familienzuschlag"                                            Arial                                                         "EURO"                                                        Arial                                                         "zu %"                                                        Arial                                                         "zustzliche Anteile"                                         Arial                                                         "Kinderzuschlge"                                             Arial                                                         "Festbetrag"                                                  Arial                                                         "EURO"                                                        Arial                                                         "Anzahl"                                                      Arial                                                         "sonstiger"                                                   Arial                                                         "EURO"                                                        Arial                                                         "Festbetrag"                                                  Arial                                                         
"Ergebnis"                                                    Arial                                                         	"aus den"                                                     Arial                                                         "Spalten links"                                               Arial                                                         "EURO"                                                        Arial                                                         "Auszahlung"                                                  Arial                                                         
"im Monat"                                                    Arial                                                         "EURO"                                                        Arial                                                         L"Berechnung nach dem Sonderzahlungsgesetz des " + "Landes " + zt2(1+zi(1+2))                                                  Arial                                                         $wnw.bundesbeamter(1+zi(1+20)) <> "j"                          5"Berechnung nach dem Sonderzahlungsgesetz des Bundes"         Arial                                                         #wnw.bundesbeamter(1+zi(1+20)) = "j"                           zt5(1+zi(1+5))                                                Arial                                                         sp0z2                                                         Arial                                                         sp0z3                                                         Arial                                                         sp0z4                                                         Arial                                                         sp0z5                                                         Arial                                                         sp0z6                                                         Arial                                                         sp0z7                                                         Arial                                                         sp0z8                                                         Arial                                                         sp0z9                                                         Arial                                                         sp0z10                                                        Arial                                                         sp0z11                                                        Arial                                                         sp0z12                                                        Arial                                                         sp0z15                                                        Arial                                                         sp8z15                                                        Arial                                                         sp9z15                                                        Arial                                                         sp1z15                                                        Arial                                                         sp2z15                                                        Arial                                                         sp3z15                                                        Arial                                                         sp4z15                                                        Arial                                                         sp5z15                                                        Arial                                                         sp6z15                                                        Arial                                                         sp7z15                                                        Arial                                                         sp1z1                                                         Arial                                                         sp1z2                                                         Arial                                                         sp1z3                                                         Arial                                                         sp1z4                                                         Arial                                                         sp1z5                                                         Arial                                                         sp1z6                                                         Arial                                                         sp1z7                                                         Arial                                                         sp1z8                                                         Arial                                                         sp1z9                                                         Arial                                                         sp1z10                                                        Arial                                                         sp1z11                                                        Arial                                                         sp1z12                                                        Arial                                                         sp2z1                                                         Arial                                                         sp2z2                                                         Arial                                                         sp2z3                                                         Arial                                                         sp2z4                                                         Arial                                                         sp2z5                                                         Arial                                                         sp2z6                                                         Arial                                                         sp2z7                                                         Arial                                                         sp2z8                                                         Arial                                                         sp2z9                                                         Arial                                                         sp2z10                                                        Arial                                                         sp2z11                                                        Arial                                                         sp2z12                                                        Arial                                                         sp3z1                                                         Arial                                                         sp3z2                                                         Arial                                                         sp3z3                                                         Arial                                                         sp3z4                                                         Arial                                                         sp3z5                                                         Arial                                                         sp3z6                                                         Arial                                                         sp3z7                                                         Arial                                                         sp3z8                                                         Arial                                                         sp3z9                                                         Arial                                                         sp3z10                                                        Arial                                                         sp3z11                                                        Arial                                                         sp3z12                                                        Arial                                                         sp4z1                                                         Arial                                                         sp4z2                                                         Arial                                                         sp4z3                                                         Arial                                                         sp4z4                                                         Arial                                                         sp4z5                                                         Arial                                                         sp4z6                                                         Arial                                                         sp4z7                                                         Arial                                                         sp4z8                                                         Arial                                                         sp4z9                                                         Arial                                                         sp4z10                                                        Arial                                                         sp4z11                                                        Arial                                                         sp4z12                                                        Arial                                                         sp5z1                                                         Arial                                                         sp5z2                                                         Arial                                                         sp5z3                                                         Arial                                                         sp5z4                                                         Arial                                                         sp5z5                                                         Arial                                                         sp5z6                                                         Arial                                                         sp5z7                                                         Arial                                                         sp5z8                                                         Arial                                                         sp5z9                                                         Arial                                                         sp5z10                                                        Arial                                                         sp5z11                                                        Arial                                                         sp5z12                                                        Arial                                                         sp6z1                                                         Arial                                                         sp6z2                                                         Arial                                                         sp6z3                                                         Arial                                                         sp6z4                                                         Arial                                                         sp6z5                                                         Arial                                                         sp6z6                                                         Arial                                                         sp6z7                                                         Arial                                                         sp6z8                                                         Arial                                                         sp6z9                                                         Arial                                                         sp6z10                                                        Arial                                                         sp6z11                                                        Arial                                                         sp6z12                                                        Arial                                                         sp7z1                                                         Arial                                                         sp7z2                                                         Arial                                                         sp7z3                                                         Arial                                                         sp7z4                                                         Arial                                                         sp7z5                                                         Arial                                                         sp7z6                                                         Arial                                                         sp7z7                                                         Arial                                                         sp7z8                                                         Arial                                                         sp7z9                                                         Arial                                                         sp7z10                                                        Arial                                                         sp7z11                                                        Arial                                                         sp7z12                                                        Arial                                                         sp8z1                                                         Arial                                                         sp8z2                                                         Arial                                                         sp8z3                                                         Arial                                                         sp8z4                                                         Arial                                                         sp8z5                                                         Arial                                                         sp8z6                                                         Arial                                                         sp8z7                                                         Arial                                                         sp8z8                                                         Arial                                                         sp8z9                                                         Arial                                                         sp8z10                                                        Arial                                                         sp8z11                                                        Arial                                                         sp8z12                                                        Arial                                                         sp9z1                                                         Arial                                                         sp9z2                                                         Arial                                                         sp9z3                                                         Arial                                                         sp9z4                                                         Arial                                                         sp9z5                                                         Arial                                                         sp9z6                                                         Arial                                                         sp9z7                                                         Arial                                                         sp9z8                                                         Arial                                                         sp9z9                                                         Arial                                                         sp9z10                                                        Arial                                                         sp9z11                                                        Arial                                                         sp9z12                                                        Arial                                                         sp0z13                                                        ""                                                            Arial                                                         sp1z13                                                        Arial                                                         sp2z13                                                        Arial                                                         sp3z13                                                        Arial                                                         sp4z13                                                        Arial                                                         sp5z13                                                        Arial                                                         sp6z13                                                        Arial                                                         sp7z13                                                        Arial                                                         sp8z13                                                        Arial                                                         sp9z13                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                M"Sonderzahlungen fr " + Alltrim(zt0(1+zi(1+0))) + " im Jahr " + welchesjahrc                                                 Arial                                                         sp0z1                                                         Arial                                                         "Monat"                                                       Arial                                                         "Magebliche Besoldung"                                       Arial                                                         
"Gehalt ohne"                                                 Arial                                                         "Familienzuschlag"                                            Arial                                                         "EURO"                                                        Arial                                                         "zu %"                                                        Arial                                                         "Familienzuschlag"                                            Arial                                                         "EURO"                                                        Arial                                                         "zu %"                                                        Arial                                                         "zustzliche Anteile"                                         Arial                                                         "Kinderzuschlge"                                             Arial                                                         "Festbetrag"                                                  Arial                                                         "EURO"                                                        Arial                                                         "Anzahl"                                                      Arial                                                         "sonstiger"                                                   Arial                                                         "EURO"                                                        Arial                                                         "Festbetrag"                                                  Arial                                                         
"Ergebnis"                                                    Arial                                                         	"aus den"                                                     Arial                                                         "Spalten links"                                               Arial                                                         "EURO"                                                        Arial                                                         "Auszahlung"                                                  Arial                                                         
"im Monat"                                                    Arial                                                         "EURO"                                                        Arial                                                         L"Berechnung nach dem Sonderzahlungsgesetz des " + "Landes " + zt2(1+zi(1+2))                                                  Arial                                                         $wnw.bundesbeamter(1+zi(1+20)) <> "j"                          5"Berechnung nach dem Sonderzahlungsgesetz des Bundes"         Arial                                                         #wnw.bundesbeamter(1+zi(1+20)) = "j"                           zt5(1+zi(1+5))                                                Arial                                                         sp0z2                                                         Arial                                                         sp0z3                                                         Arial                                                         sp0z4                                                         Arial                                                         sp0z5                                                         Arial                                                         sp0z6                                                         Arial                                                         sp0z7                                                         Arial                                                         sp0z8                                                         Arial                                                         sp0z9                                                         Arial                                                         sp0z10                                                        Arial                                                         sp0z11                                                        Arial                                                         sp0z12                                                        Arial                                                         sp0z15                                                        Arial                                                         sp8z15                                                        Arial                                                         sp9z15                                                        Arial                                                         sp1z15                                                        Arial                                                         sp2z15                                                        Arial                                                         sp3z15                                                        Arial                                                         sp4z15                                                        Arial                                                         sp5z15                                                        Arial                                                         sp6z15                                                        Arial                                                         sp7z15                                                        Arial                                                         sp1z1                                                         Arial                                                         sp1z2                                                         Arial                                                         sp1z3                                                         Arial                                                         sp1z4                                                         Arial                                                         sp1z5                                                         Arial                                                         sp1z6                                                         Arial                                                         sp1z7                                                         Arial                                                         sp1z8                                                         Arial                                                         sp1z9                                                         Arial                                                         sp1z10                                                        Arial                                                         sp1z11                                                        Arial                                                         sp1z12                                                        Arial                                                         sp2z1                                                         Arial                                                         sp2z2                                                         Arial                                                         sp2z3                                                         Arial                                                         sp2z4                                                         Arial                                                         sp2z5                                                         Arial                                                         sp2z6                                                         Arial                                                         sp2z7                                                         Arial                                                         sp2z8                                                         Arial                                                         sp2z9                                                         Arial                                                         sp2z10                                                        Arial                                                         sp2z11                                                        Arial                                                         sp2z12                                                        Arial                                                         sp3z1                                                         Arial                                                         sp3z2                                                         Arial                                                         sp3z3                                                         Arial                                                         sp3z4                                                         Arial                                                         sp3z5                                                         Arial                                                         sp3z6                                                         Arial                                                         sp3z7                                                         Arial                                                         sp3z8                                                         Arial                                                         sp3z9                                                         Arial                                                         sp3z10                                                        Arial                                                         sp3z11                                                        Arial                                                         sp3z12                                                        Arial                                                         sp4z1                                                         Arial                                                         sp4z2                                                         Arial                                                         sp4z3                                                         Arial                                                         sp4z4                                                         Arial                                                         sp4z5                                                         Arial                                                         sp4z6                                                         Arial                                                         sp4z7                                                         Arial                                                         sp4z8                                                         Arial                                                         sp4z9                                                         Arial                                                         sp4z10                                                        Arial                                                         sp4z11                                                        Arial                                                         sp4z12                                                        Arial                                                         sp5z1                                                         Arial                                                         sp5z2                                                         Arial                                                         sp5z3                                                         Arial                                                         sp5z4                                                         Arial                                                         sp5z5                                                         Arial                                                         sp5z6                                                         Arial                                                         sp5z7                                                         Arial                                                         sp5z8                                                         Arial                                                         sp5z9                                                         Arial                                                         sp5z10                                                        Arial                                                         sp5z11                                                        Arial                                                         sp5z12                                                        Arial                                                         sp6z1                                                         Arial                                                         sp6z2                                                         Arial                                                         sp6z3                                                         Arial                                                         sp6z4                                                         Arial                                                         sp6z5                                                         Arial                                                         sp6z6                                                         Arial                                                         sp6z7                                                         Arial                                                         sp6z8                                                         Arial                                                         sp6z9                                                         Arial                                                         sp6z10                                                        Arial                                                         sp6z11                                                        Arial                                                         sp6z12                                                        Arial                                                         sp7z1                                                         Arial                                                         sp7z2                                                         Arial                                                         sp7z3                                                         Arial                                                         sp7z4                                                         Arial                                                         sp7z5                                                         Arial                                                         sp7z6                                                         Arial                                                         sp7z7                                                         Arial                                                         sp7z8                                                         Arial                                                         sp7z9                                                         Arial                                                         sp7z10                                                        Arial                                                         sp7z11                                                        Arial                                                         sp7z12                                                        Arial                                                         sp8z1                                                         Arial                                                         sp8z2                                                         Arial                                                         sp8z3                                                         Arial                                                         sp8z4                                                         Arial                                                         sp8z5                                                         Arial                                                         sp8z6                                                         Arial                                                         sp8z7                                                         Arial                                                         sp8z8                                                         Arial                                                         sp8z9                                                         Arial                                                         sp8z10                                                        Arial                                                         sp8z11                                                        Arial                                                         sp8z12                                                        Arial                                                         sp9z1                                                         Arial                                                         sp9z2                                                         Arial                                                         sp9z3                                                         Arial                                                         sp9z4                                                         Arial                                                         sp9z5                                                         Arial                                                         sp9z6                                                         Arial                                                         sp9z7                                                         Arial                                                         sp9z8                                                         Arial                                                         sp9z9                                                         Arial                                                         sp9z10                                                        Arial                                                         sp9z11                                                        Arial                                                         sp9z12                                                        Arial                                                         sp0z13                                                        ""                                                            Arial                                                         sp1z13                                                        Arial                                                         sp2z13                                                        Arial                                                         sp3z13                                                        Arial                                                         sp4z13                                                        Arial                                                         sp5z13                                                        Arial                                                         sp6z13                                                        Arial                                                         sp7z13                                                        Arial                                                         sp8z13                                                        Arial                                                         sp9z13                                                        Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0
$   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6320LKODY1390173121      /  F      ]                                                       WINDOWS _6320LKOE01430476565                      5
                                               WINDOWS _6320LKOE11390173716                  ^  !                                               WINDOWS _6320LKOE21390173121t                                                                   WINDOWS _6320LKOE31390173121                  -                                                 WINDOWS _6320LKOE41423265544                  O                                                 WINDOWS _6320LKOE51390173803                	!                                                           WINDOWS _6320LKOE61390170585&      &  &  &  '                                                           WINDOWS _6320LKOE71390170237D'      S'  b'  o'  '                                                           WINDOWS _6320LKOE81390170585'      (  (  !(  G(                                                           WINDOWS _6320LKOE91390170237(      (  (  (  (                                                           WINDOWS _6320LKOEA13901705856)      D)  R)  a)  )                                                           WINDOWS _6320LKOEB1390173255)      )  )  )  *                                                           WINDOWS _6320LKOEC1390170585*      *  *  *  *                                                           WINDOWS _6320LKOED1390170237++      :+  I+  V+  |+                                                           WINDOWS _6320LKOEE1390170585+      +  +  ,  .,                                                           WINDOWS _6320LKOEF1390170237m,      |,  ,  ,  ,                                                           WINDOWS _6320LKOEG1390170585-      --  ;-  J-  p-                                                           WINDOWS _6320LKOEH1390170237-      -  -  -  -                                                           WINDOWS _6320LKOEI1390170585_.      m.  {.  .  .                                                           WINDOWS _6320LKOEJ1390170237.      .  /  /  A/                                                           WINDOWS _6320LKOEK1390170585/      /  /  /  /                                                           WINDOWS _6320LKOEL1390170237/0      >0  M0  Z0  0                                                           WINDOWS _6320LKOEM13901705850      0  0  1  21                                                           WINDOWS _6320LKOEN1390170237q1      1  1  1  1                                                           WINDOWS _6320LKOEO1390170585#2      12  ?2  N2  u2                                                           WINDOWS _6320LKOEP13901702372      2  2  2  3                                                           WINDOWS _6320LKOEQ1390170585d3      r3  3  3  3                                                           WINDOWS _6320LKOER13901702373      4  4   4  G4                                                           WINDOWS _6320LKOES13901705854      4  4  4  4                                                           WINDOWS _6320LKOET1390170237?5      N5  ]5  j5  5                                                           WINDOWS _6320LKOEU13901705855       6  6  6  D6                                                           WINDOWS _6320LKOEV13901702376      6  6  6  6                                                           WINDOWS _6320P7W7V139017363247  D7  d7  s7  7  7                                                           COMMENT RESERVED                                8                                                            8D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 412
Width = 934
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Wochenarbeitszeit"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .T.
Name = "FORM1"
     	(PROCEDURE Init
myform1.visible = .f.

IF thisform.Top < 0
	thisform.Top = 0
endif

thisform.Caption = "Regelmige Wochenarbeitszeit in Stunden im Jahr " + welchesjahrc

*CREATE cursor wochenarbzeit (Col0 C(25), Col1 N(5,2), Col2 N(5,2), Col3 N(5,2), Col4 N(5,2), Col5 N(5,2), Col6 N(5,2), Col7 N(5,2), Col8 N(5,2), Col9 N(5,2), Col10 N(5,2), Col11 N(5,2), Col12 N(5,2))

SELECT wochenarbzeit
FOR i = 0 TO 17
	APPEND BLANK
	FLUSH
	replace wochenarbzeit.col0 WITH zt2(1+i)
	For j = 0 To 11
		hsCol = "col" + ALLTRIM(STR(j + 1,2,0))
		replace wochenarbzeit->&hsCol with vorein.vorwochenstunden(1+i, 1+j) / 100
	NEXT
	flush
NEXT
GO top
thisform.refresh


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdWochenarbzeit.column1.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column2.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column3.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column4.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column5.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column6.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column7.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column8.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column9.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column10.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column11.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column12.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize
thisform.grdWochenarbzeit.column13.text1.FontSize = thisform.grdWochenarbzeit.column1.FontSize

ENDPROC
     v    ]  ]                        7B   %           -               U   T   - %   
2  T    E T  1 Regelmige Wochenarbeitszeit in Stunden im Jahr   F    (I  [ >  C 	  
  (A" T  colCC
  ZN replace wochenarbzeit->&hsCol with vorein.vorwochenstunden(1+i, 1+j) / 100
  [  #)
    % 
    T C  
  T 
 T  
     T 
  
    T      
    T  a U  MYFORM1 VISIBLE THISFORM TOP CAPTION WELCHESJAHRC
 WOCHENARBZEIT I COL0 ZT2 J HSCOL REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER C    " T           " T           " T           " T   	        " T   
        " T           " T           " T   
        " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDWOCHENARBZEIT COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 Init,      Resize    1  BA Rt qQ A q!A A A Q    A    2 !!!!!!!!!!!!!2                       
        *  	  (    )   ]                        
commandbutton      
commandbutton      Command1      FORM1      \Top = 3
Left = 108
Height = 37
Width = 178
Caption = "Vorgabewerte"
Name = "Command1"
     PROCEDURE Click
Do wochenstundenanlegen &&Do attached

SELECT wochenarbzeit
hsxx = RECNO()
thisform.lockscreen = .t.
FOR i = 0 TO 17
	GOTO i + 1
	replace wochenarbzeit.col0 WITH zt2(1+i)
	For j = 0 To 11
		hsCol = "col" + ALLTRIM(STR(j + 1,2,0))
		replace wochenarbzeit->&hsCol with vorein.vorwochenstunden(1+i, 1+j) / 100
	NEXT
	flush
NEXT
SELECT wochenarbzeit
GOTO hsxx
thisform.lockscreen = .f.
thisform.refresh
ENDPROC
     K    2  2                           %                          U  "    F  T CO T  a   ( 
 #  >  C     ( " T	  colCC  ZN replace wochenarbzeit->&hsCol with vorein.vorwochenstunden(1+i, 1+j) / 100
  [  F 	 #  T  -
  
  U  WOCHENSTUNDENANLEGEN
 WOCHENARBZEIT HSXX THISFORM
 LOCKSCREEN I COL0 ZT2 J HSCOL REFRESH Click,     1 q r   q q!A A A q    1                             )   2                        
commandbutton      
commandbutton      Command2      FORM1      UTop = 3
Left = 288
Height = 37
Width = 178
Caption = "Hilfe"
Name = "Command2"
      bPROCEDURE Click
inet = 110
Msg = "/W/Wochenarbeitszeit"
Do insinternet &&Do attached
ENDPROC
                                         %                             U  8 
 T  n! T  /W/Wochenarbeitszeit   U  INET MSG INSINTERNET Click,     1  q 1                       W       )                            
commandbutton      
commandbutton      Command3      FORM1      YTop = 3
Left = 468
Height = 37
Width = 178
Caption = "ArbZeitVO"
Name = "Command3"
      hPROCEDURE Click
inet = "000"
Msg = "Arbeitszeitverordnung.de"
Do insinternet &&Do attached
ENDPROC
                                     ~   %                             U  ?  T   000% T  Arbeitszeitverordnung.de   U  INET MSG INSINTERNET Click,     1 Qq 1                       ]       )                            
commandbutton      
commandbutton      Command4      FORM1      YTop = 3
Left = 648
Height = 37
Width = 178
Caption = "Schlieen"
Name = "Command4"
     [PROCEDURE Click
SELECT wochenarbzeit

For i = 0 To 17
	goto i + 1
	For j = 0 To 11
		hsCol = "col" + alltrim(STR(j + 1,2,0))
		vorein.vorwochenstunden(1+i, 1+j) = wochenarbzeit->&hsCol * 100 
	NEXT
NEXT

myput(19, welchesjahr - jahr1 + 1,"vorein")&&hs2011

SELECT wochenarbzeit
use
myform1.visible = .t.
thisform.release
ENDPROC
                                   BE   %                          U    F     ( 
 #    ( " T  colCC  ZD vorein.vorwochenstunden(1+i, 1+j) = wochenarbzeit->&hsCol * 100 
  ! C   vorein  F   Q T  a
 	 
  U 
 WOCHENARBZEIT I J HSCOL MYPUT WELCHESJAHR JAHR1 MYFORM1 VISIBLE THISFORM RELEASE Click,     1 q r q!AA A r A   1                       P      )                           grid      grid      grdWochenarbzeit      FORM1     ColumnCount = 13
DeleteMark = .F.
Height = 363
Left = 12
Panel = 1
RecordSource = "WOCHENARBZEIT"
RecordSourceType = 1
ScrollBars = 0
Top = 42
Width = 912
HighlightForeColor = 0,0,0
HighlightStyle = 2
Name = "grdWochenarbzeit"
Column1.ControlSource = "WOCHENARBZEIT.col0"
Column1.Width = 153
Column1.Name = "Column1"
Column2.ControlSource = "WOCHENARBZEIT.col1"
Column2.Width = 57
Column2.Name = "Column2"
Column3.ControlSource = "WOCHENARBZEIT.col2"
Column3.Width = 70
Column3.Name = "Column3"
Column4.ControlSource = "WOCHENARBZEIT.col3"
Column4.Width = 57
Column4.Name = "Column4"
Column5.ControlSource = "WOCHENARBZEIT.col4"
Column5.Width = 62
Column5.Name = "Column5"
Column6.ControlSource = "WOCHENARBZEIT.col5"
Column6.Width = 57
Column6.Name = "Column6"
Column7.ControlSource = "WOCHENARBZEIT.col6"
Column7.Width = 57
Column7.Name = "Column7"
Column8.ControlSource = "WOCHENARBZEIT.col7"
Column8.Width = 57
Column8.Name = "Column8"
Column9.ControlSource = "WOCHENARBZEIT.col8"
Column9.Width = 57
Column9.Name = "Column9"
Column10.ControlSource = "WOCHENARBZEIT.col9"
Column10.Width = 57
Column10.Name = "Column10"
Column11.ControlSource = "WOCHENARBZEIT.col10"
Column11.Width = 57
Column11.Name = "Column11"
Column12.ControlSource = "WOCHENARBZEIT.col11"
Column12.Width = 88
Column12.Name = "Column12"
Column13.ControlSource = "WOCHENARBZEIT.col12"
Column13.Width = 57
Column13.Name = "Column13"
      header      header      Header1      FORM1.grdWochenarbzeit.Column1      *Caption = "Bundesland"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column1      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column2      5Alignment = 2
Caption = "Beamte"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column2      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column3      8Alignment = 2
Caption = "TVD Bund"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column3      BorderStyle = 0
ControlSource = "WOCHENARBZEIT.col2"
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column4      3Alignment = 2
Caption = "TV-L"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column4      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column5      7Alignment = 2
Caption = "TVD VKA"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column5      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column6      5Alignment = 2
Caption = "TVD-P"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column6      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column7      8Alignment = 2
Caption = "Krankenh."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column7      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column8      4Alignment = 2
Caption = "SundE"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column8      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column9      7Alignment = 2
Caption = "Unirzte"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column9      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column10      4Alignment = 2
Caption = "rzte"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column10      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column11      7Alignment = 2
Caption = "Betriebe"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column11      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column12      =Alignment = 2
Caption = "Lehrer (L-EGO)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column12      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdWochenarbzeit.Column13      5Alignment = 2
Caption = "brige"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdWochenarbzeit.Column13      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 393
Left = 918
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0  m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _63910QXI21390774550      /  F      ]                                                       WINDOWS _63910QXI31533955432                                                                     WINDOWS _63A0MD1PT1533955432      +  @  Q  ^        `                                               WINDOWS _63910QXI41390897928       -  :  I  V                                                           WINDOWS _63910QXI51390897928                                                                       WINDOWS _63910QXI61390897928      (  5  C  P                                                           WINDOWS _63910QXI71390897928                                                                       WINDOWS _63910QXI81390897928      #  0  >  K                                                           WINDOWS _63910QXI91390897928                                                                       WINDOWS _63910QXIA1390897928        +  9  F                                                           WINDOWS _63910QXIB1390897928                                                                       WINDOWS _63910QXIC1390898249
          $   0   =                                                            WINDOWS _63910QXID1390898249                                                                            WINDOWS _63910QXIE1390898249W!      d!  q!  }!  !                                                           WINDOWS _63910QXIF1390898249!      "  "  $"  1"                                                           WINDOWS _63910QXIG1390898249"      "  "  "  "                                                           WINDOWS _63910QXIH1390898249N#      [#  h#  t#  #                                                           WINDOWS _63910QXII1390898249
$      $  '$  3$  @$                                                           WINDOWS _63910QXIJ1390898982$      $  $  $  $      m%  i&                                               WINDOWS _63910QXIK1390898982 (      -(  :(  F(  S(      (  )                                               WINDOWS _63910QXIL1390898982w+      +  +  +  +      ,  -                                               WINDOWS _63910QXIM1390898982.      .  .  .  /      s/  o0                                               WINDOWS _63910QXIN1390898982&2      32  @2  L2  Y2      2  3                                               WINDOWS _63910QXIO1390898982~5      5  5  5  5      :6  67                                               WINDOWS _63910QXIP13908989828      8  9  9   9      9  :                                               WINDOWS _63910QXIQ1390898982Z<      g<  t<  <  <      <  =                                               WINDOWS _63910QXIR1390898982?      ?  ?  ?  ?      T@  PA                                               WINDOWS _63910QXIS1390898982C      C  !C  .C  ;C      C  D                                               WINDOWS _63910QXIT1390898982`F      mF  zF  F  F      G  H                                               WINDOWS _63910QXIU1390898982I      I  I  I  I      aJ  ]K                                               WINDOWS _63910QXIV1390898982M      !M  .M  ;M  HM      M  N                                               WINDOWS _63910QXIW1390898982P      P  P  P  P      AQ  =R                                               WINDOWS _63910QXIX1390898982S      T  T  T  (T      T  U                                               WINDOWS _63910QXIY1390898982LW      YW  fW  sW  W      W  X                                               WINDOWS _63910QXIZ1390898982Z      Z  Z  Z  Z      K[  G\                                               WINDOWS _63910QXJ01390898982]      ^  ^  %^  2^      ^  _                                               WINDOWS _63910QXJ11390898982Xa      ea  ra  a  a      a  b                                               WINDOWS _63910QXJ21390898982d      d  d  d  d      pe  lf                                               WINDOWS _63910QXJ31390898982#h      0h  =h  Jh  Wh      h  i                                               WINDOWS _63910QXJ41390898982k      k  k  k  k      8l  4m                                               WINDOWS _63910QXJ51390898982n      n  o  o  o      o  p                                               WINDOWS _63910QXJ61390898982Er      Rr  _r  lr  yr      r  s                                               WINDOWS _63910QXJ71390898982u      u  u  u  u      Gv  Cw                                               WINDOWS _63910QXJ81390898982x      y  y  !y  .y      y  z                                               WINDOWS _63910QXJ91390898982U|      b|  o|  ||  |      }  ~                                               WINDOWS _63910QXJA1390898982                                                                   WINDOWS _63910QXI213908989827      D  Q  ^  k      ݃  ل                                               WINDOWS _63910QXI31390898982            Ć      7  3                                               WINDOWS _63910QXI41390898982                                                                   WINDOWS _63910QXI51390898982D      Q  ^  k  x                                                       WINDOWS _63910QXI61390898982          Ɛ  Ӑ      G  C                                               WINDOWS _63910QXI71390898982          !  .                                                       WINDOWS _63910QXI81390898982l      y            )  %                                               WINDOWS _63910QXJI1390897928ܚ                                                                       WINDOWS _63910QXJJ1390897928S      `  m  {                                                             WINDOWS _63910QXJK1390897928ћ      ޛ                                                                 WINDOWS _63910QXJL1390897928O      \  i  x                                                             WINDOWS _63910QXJM1390897928Ϝ      ܜ                                                                 WINDOWS _63910QXJN1390897928O      \  i  x                                                             WINDOWS _63910QXJO1390897928ϝ      ܝ                                                                 WINDOWS _63910QXJP1390897928O      \  i  x                                                             WINDOWS _63910QXJQ1390898249Ϟ      ܞ                                                                 WINDOWS _63910QXJR1390898249w                                                                       WINDOWS _63910QXJS1390898249      ,  9  E  R                                                           WINDOWS _63910QXJT1390898249Ǡ      Ԡ                                                                 WINDOWS _63910QXJU1390898249o      |                                                                 WINDOWS _63910QXJV1390898249      $  1  =  J                                                           WINDOWS _63910QXJW1390898249֢            	                                                           WINDOWS _63910QXJX1390898982            ƣ      8  4                                               WINDOWS _63910QXJY1390898982                                                                   WINDOWS _63910QXJZ1390898982C      P  ]  i  v                                                       WINDOWS _63910QXK01390898982            έ      @  <                                               WINDOWS _63910QXK11390898982         
    &                                                       WINDOWS _63910QXK21390898982K      X  e  q  ~                                                       WINDOWS _63910QXK31390898982      Ƿ  Է          t  p                                               WINDOWS _63910QXK41390898982'      4  A  M  Z      ̻  ȼ                                               WINDOWS _63910QXK51390898982                  $                                                  WINDOWS _63910QXK61390898982                  ~  z                                               WINDOWS _63910QXK713908989821      >  K  X  e                                                       WINDOWS _63910QXK81390898982                  2  .                                               WINDOWS _63910QXK91390898982                                                                   WINDOWS _63910QXKA1390898982V      c  p  }                                                         WINDOWS _63910QXKB1390898982                  l  h                                               WINDOWS _63910QXKC1390898982      ,  9  F  S                                                       WINDOWS _63910QXKD1390898982y                                                                    WINDOWS _63910QXKE1390898982                  z  v                                               WINDOWS _63910QXKF1390898982-      :  G  T  a                                                       WINDOWS _63910QXKG1390898982                  E  A                                               WINDOWS _63910QXKH1390898982            ,                                                       WINDOWS _63910QXKI1390898982g      t                                                             WINDOWS _63910QXKJ1390898982                  j  f                                               WINDOWS _63910QXKK1390898982      *  7  D  Q                                                       WINDOWS _63910QXKL1390898982x                                                                    WINDOWS _63910QXKM1390898982                  {  w                                               WINDOWS _63910QXKN1390898982.      ;  H  U  b                                                       WINDOWS _63910QXKO1390898982                  ]  Y                                               WINDOWS _63910QXI21390898982      * 7 D                                                    WINDOWS _63910QXI31390898982k     x                                                       WINDOWS _63910QXI41390898982             n	 j
                                              WINDOWS _63910QXI51390898982!     . ; H U      
                                              WINDOWS _63910QXI61390898982|             $                                                WINDOWS _63910QXI71390898982                                                            WINDOWS _63910QXI81390898982I     V c p }                                                    WINDOWS _63910QXKW1390897928                                                                  WINDOWS _63910QXKX13908979282     ? L [ h                                                          WINDOWS _63910QXKY1390897928                                                                  WINDOWS _63910QXKZ13908979282     ? L [ h                                                          WINDOWS _63910QXL01390897928                                                                  WINDOWS _63910QXL113908979282     ? L [ h                                                          WINDOWS _63910QXL21390897928                                                                  WINDOWS _63910QXL313908979282     ? L [ h                                                          WINDOWS _63910QXL41390898249                                                                  WINDOWS _63910QXL51390898249Z     g t                                                            WINDOWS _63910QXL61390898249       ( 5                                                          WINDOWS _63910QXL71390898249                                                                  WINDOWS _63910QXL81390898249R      _  l  x                                                             WINDOWS _63910QXL91390898249      ! !  ! -!                                                          WINDOWS _63910QXLA1390898249!     ! ! ! !                                                          WINDOWS _63910QXLB1390898982v"     " " " "     # $                                              WINDOWS _63910QXLC1390898982%     % % % &     s& o'                                              WINDOWS _63910QXLD1390898982&)     3) @) L) Y)     ) *                                              WINDOWS _63910QXLE1390898982~,     , , , ,     #- .                                              WINDOWS _63910QXLF1390898982/     / / / 	0     {0 w1                                              WINDOWS _63910QXLG1390898982.3     ;3 H3 T3 a3     3 4                                              WINDOWS _63910QXLH13908989826     6 6 6 6     W7 S8                                              WINDOWS _63910QXLI1390898982
:     : $: 0: =:     : ;                                              WINDOWS _63910QXLJ1390898982b=     o= |= = =     > ?                                              WINDOWS _63910QXLK1390898982@     @ @ @ @     aA ]B                                              WINDOWS _63910QXLL1390898982D     !D .D ;D HD     D E                                              WINDOWS _63910QXLM1390898982nG     {G G G G     H I                                              WINDOWS _63910QXLN1390898982J     J J J J     K L                                              WINDOWS _63910QXLO13908989829N     FN SN `N mN     N O                                              WINDOWS _63910QXLP1390898982Q     Q Q Q Q     OR KS                                              WINDOWS _63910QXLQ1390898982U     U U )U 6U     U V                                              WINDOWS _63910QXLR1390898982\X     iX vX X X     Y Y                                              WINDOWS _63910QXLS1390898982[     [ [ [ [     ]\ Y]                                              WINDOWS _63910QXLT1390898982_     _ *_ 7_ D_     _ `                                              WINDOWS _63910QXLU1390898982jb     wb b b b     (c $d                                              WINDOWS _63910QXLV1390898982e     e e f f     f g                                              WINDOWS _63910QXLW1390898982Ji     Wi di qi ~i     i j                                              WINDOWS _63910QXLX1390898982l     l l l l     Mm In                                              WINDOWS _63910QXLY1390898982 p     
p p 'p 4p     p q                                              WINDOWS _63910QXLZ1390898982[s     hs us s s     t t                                              WINDOWS _63910QXM01390898982v     v v v v     ^w Zx                                              WINDOWS _63910QXM11390898982z     z +z 8z Ez     z {                                              WINDOWS _63910QXM21390898982}     } } } }     @~ <                                              WINDOWS _63910QXI21390898982       
  '                                                    WINDOWS _63910QXI31390898982N     [ h u                                                     WINDOWS _63910QXI41390898983      Ç Ї ݇     Q M                                              WINDOWS _63910QXI51390898983       + 8                                                    WINDOWS _63910QXI61390898983_     l y                                                      WINDOWS _63910QXI71390898983     Ǒ ԑ       y u                                              WINDOWS _63910QXI81390898983,     9 F S `                                                    WINDOWS _63910QXMA1390897928        Θ                                                          WINDOWS _63910QXMB1390897928     " / > K                                                          WINDOWS _63910QXMC1390897928        ˙                                                          WINDOWS _63910QXMD1390897928     " / > K                                                          WINDOWS _63910QXME1390897928        ˚                                                          WINDOWS _63910QXMF1390897928     " / > K                                                          WINDOWS _63910QXMG1390897928        ˛                                                          WINDOWS _63910QXMH1390897928     " / > K                                                          WINDOWS _63910QXMI1390898249        Ȝ                                                          WINDOWS _63910QXMJ1390898249=     J W c p                                                          WINDOWS _63910QXMK1390898249                                                                  WINDOWS _63910QXML1390898249                                                                  WINDOWS _63910QXMM13908982495     B O [ h                                                          WINDOWS _63910QXMN1390898249ݟ                                                                  WINDOWS _63910QXMO1390898249         Ϡ                                                          WINDOWS _63910QXMP1390898983Y     f s                                                      WINDOWS _63910QXMQ1390898983      ˤ פ      V R                                              WINDOWS _63910QXMR1390898983	      # / <                                                    WINDOWS _63910QXMS1390898983a     n {                                                      WINDOWS _63910QXMT1390898983     Ʈ Ӯ ߮      ^ Z                                              WINDOWS _63910QXMU1390898983      + 7 D     Ͳ ɳ                                              WINDOWS _63910QXMV1390898983             : 6                                              WINDOWS _63910QXMW1390898983                                                             WINDOWS _63910QXMX1390898983E     R _ k x                                                    WINDOWS _63910QXMY1390898983       Ŀ ѿ     D @                                              WINDOWS _63910QXMZ1390898983        +                                                    WINDOWS _63910QXN01390898983Q     ^ k x                                                     WINDOWS _63910QXN11390898983             i e                                              WINDOWS _63910QXN21390898983     ) 6 C P                                                    WINDOWS _63910QXN31390898983             2 .                                              WINDOWS _63910QXN41390898983                                                            WINDOWS _63910QXN51390898983?     L Y f s                                                    WINDOWS _63910QXN61390898983             @ <                                              WINDOWS _63910QXN71390898983       
  '                                                    WINDOWS _63910QXN81390898983M     Z g t                                                     WINDOWS _63910QXN91390898983             z v                                              WINDOWS _63910QXNA1390898983-     : G T a                                                    WINDOWS _63910QXNB1390898983             0 ,                                              WINDOWS _63910QXNC1390898983       
                                                     WINDOWS _63910QXND1390898983>     K X e r                                                    WINDOWS _63910QXNE1390898983             A =                                              WINDOWS _63910QXNF1390898983        (                                                    WINDOWS _63910QXNG1390898983f     s        #                                               WINDOWS _63910QXI21390898983        
      ~  z                                              WINDOWS _63910QXI313908989831     > K X e                                                    WINDOWS _63910QXI41390898983             4 0                                              WINDOWS _63910QXI51390898983	     	 
 
 
     
                                               WINDOWS _63910QXI61390898983B
     O
 \
 i
 v
     
                                               WINDOWS _63910QXI71390898983             \ X                                              WINDOWS _63910QXI81390898983      ) 6 C                                                    WINDOWS _63910QXNO1390897928                                                                  WINDOWS _63910QXNP1390897928       ! .                                                          WINDOWS _63910QXNQ1390897928y                                                                  WINDOWS _63910QXNR1390897928       # 0                                                          WINDOWS _63910QXNS1390897928z                                                                  WINDOWS _63910QXNT1390897928       $ 1                                                          WINDOWS _63910QXNU1390897928{                                                                  WINDOWS _63910QXNV1390897928       # 0                                                          WINDOWS _63910QXNW1390898249z                                                                  WINDOWS _63910QXNX1390898249!     . ; G T                                                          WINDOWS _63910QXNY1390898249                                                                  WINDOWS _63910QXNZ1390898249q     ~                                                             WINDOWS _63910QXO01390898249     ' 4 @ M                                                          WINDOWS _63910QXO11390898249                                                                  WINDOWS _63910QXO21390898249                                                                  WINDOWS _63910QXO31390898983A      N  [  g  t        !                                              WINDOWS _63910QXO41390898983#     # # # #     =$ 9%                                              WINDOWS _63910QXO51390898983&     & 
' ' #'     ' (                                              WINDOWS _63910QXO61390898983H*     U* b* n* {*     * +                                              WINDOWS _63910QXO71390898983-     - - - -     G. C/                                              WINDOWS _63910QXO813908989830     1 1  1 -1     1 2                                              WINDOWS _63910QXO91390898983j4     w4 4 4 4     %5 !6                                              WINDOWS _63910QXOA13908989837     7 7 7 8     |8 x9                                              WINDOWS _63910QXOB1390898983/;     <; I; U; b;     ; <                                              WINDOWS _63910QXOC1390898983>     > > > >     .? *@                                              WINDOWS _63910QXOD1390898983A     A A B B     B C                                              WINDOWS _63910QXOE1390898983<E     IE VE cE pE     E F                                              WINDOWS _63910QXOF1390898983H     H H H H     VI RJ                                              WINDOWS _63910QXOG1390898983	L     L #L 0L =L     L M                                              WINDOWS _63910QXOH1390898983yO     O O O O     P Q                                              WINDOWS _63910QXOI1390898983R     R R R S     yS uT                                              WINDOWS _63910QXOJ1390898983,V     9V FV SV `V     V W                                              WINDOWS _63910QXOK1390898983Y     Y Y Y Y     .Z *[                                              WINDOWS _63910QXOL1390898983\     \ \ ] ]     ] ^                                              WINDOWS _63910QXOM1390898983<`     I` V` c` p`     ` a                                              WINDOWS _63910QXON1390898983c     c c c c     kd ge                                              WINDOWS _63910QXOO1390898983g     +g 8g Eg Rg     g h                                              WINDOWS _63910QXOP1390898983wj     j j j j     k l                                              WINDOWS _63910QXOQ1390898983m     m m m n     xn to                                              WINDOWS _63910QXOR1390898983+q     8q Eq Rq _q     q r                                              WINDOWS _63910QXOS1390898983t     t t t t     .u *v                                              WINDOWS _63910QXOT1390898983w     w w x x     x y                                              WINDOWS _63910QXOU1390898983S{     `{ m{ z{ {     | }                                              WINDOWS _63910QXI21390898983~     ~ ~ ~ ~     i e                                              WINDOWS _63910QXI31390898983     ) 6 C P     Â                                               WINDOWS _63910QXI41390898983v                                                            WINDOWS _63910QXI51390898983Ј     ݈        x t                                              WINDOWS _63910QXI61390898983+     8 E R _     ӌ ύ                                              WINDOWS _63910QXI71390898983             E A                                              WINDOWS _63910QXI81390898983        ,                                                    WINDOWS _63910QXP21390897928h     t                                                             WINDOWS _63910QXP31390897928       	                                                           WINDOWS _63910QXP41390897928a     n {                                                            WINDOWS _63910QXP51390897928                                                                  WINDOWS _63910QXP61390897928c     p }                                                            WINDOWS _63910QXP71390897928       
                                                           WINDOWS _63910QXP81390897928e     r                                                             WINDOWS _63910QXP91390897928                                                                   WINDOWS _63910QXPA1390898249g     t                                                             WINDOWS _63910QXPB1390898249      * 6 C                                                          WINDOWS _63910QXPC1390898249     ƛ ӛ ߛ                                                           WINDOWS _63910QXPD1390898249b     o |                                                            WINDOWS _63910QXPE1390898249      % 1 >                                                          WINDOWS _63910QXPF1390898249      Ν ڝ                                                           WINDOWS _63910QXPG1390898249t                                                                  WINDOWS _63910QXPH13908989832     ? L X e     ؟ Ԡ                                              WINDOWS _63910QXPI1390898983             1 -                                              WINDOWS _63910QXPJ1390898983       
                                                     WINDOWS _63910QXPK1390898983=     J W c p      ߪ                                              WINDOWS _63910QXPL1390898983        ɬ     < 8                                              WINDOWS _63910QXPM1390898983      	  "                                                    WINDOWS _63910QXPN1390898983_     l y                                                      WINDOWS _63910QXPO1390898983Ͷ     ڶ         s o                                              WINDOWS _63910QXPP1390898983&     3 @ L Y     ̺ Ȼ                                              WINDOWS _63910QXPQ1390898983             ' #                                              WINDOWS _63910QXPR1390898983              ~                                              WINDOWS _63910QXPS13908989835     B O \ i                                                    WINDOWS _63910QXPT1390898983             O K                                              WINDOWS _63910QXPU1390898983       ) 6                                                    WINDOWS _63910QXPV1390898983r                                                            WINDOWS _63910QXPW1390898983             u q                                              WINDOWS _63910QXPX1390898983(     5 B O \                                                    WINDOWS _63910QXPY1390898983             + '                                              WINDOWS _63910QXPZ1390898983                                                            WINDOWS _63910QXQ013908989839     F S ` m                                                    WINDOWS _63910QXQ11390898983             h d                                              WINDOWS _63910QXQ21390898983     ( 5 B O                                                    WINDOWS _63910QXQ31390898983v                                                            WINDOWS _63910QXQ41390898983             y u                                              WINDOWS _63910QXQ51390898983,     9 F S `                                                    WINDOWS _63910QXQ61390898983             / +                                              WINDOWS _63910QXQ71390898983       	                                                     WINDOWS _63910QXQ81390898983T     a n {       
                                              WINDOWS _63910QXI91390898983             l h                                              WINDOWS _63910QXIA1390898983     , 9 F S                                                    WINDOWS _63910QXIB1390898983z             "                                               WINDOWS _63910QXIC1390898983        	     } y	                                              WINDOWS _63910QXID13908989830     = J W d                                                    WINDOWS _63910QXIE1390898983             J F                                              WINDOWS _63910QXIF1390898983     
  $ 1                                                    WINDOWS _63910QXQG1390897928m     y                                                             WINDOWS _63910QXQH1390897928                                                                  WINDOWS _63910QXQI1390897928h     u                                                             WINDOWS _63910QXQJ1390897928                                                                  WINDOWS _63910QXQK1390897928j     w                                                             WINDOWS _63910QXQL1390897928        !                                                          WINDOWS _63910QXQM1390897928l     y                                                             WINDOWS _63910QXQN1390897928        #                                                          WINDOWS _63910QXQO1390898249n     {                                                             WINDOWS _63910QXQP1390898249     $ 1 = J                                                          WINDOWS _63910QXQQ1390898249                                                                  WINDOWS _63910QXQR1390898249i     v                                                             WINDOWS _63910QXQS1390898249      , 8 E                                                          WINDOWS _63910QXQT1390898249                                                                  WINDOWS _63910QXQU1390898249{                                                                  WINDOWS _63910QXQV13908989839     F S _ l                                                    WINDOWS _63910QXQW1390898983!     ! ! ! !     8" 4#                                              WINDOWS _63910QXQX1390898983$     $ % % %     % &                                              WINDOWS _63910QXQY1390898983D(     Q( ^( j( w(     ( )                                              WINDOWS _63910QXQZ1390898983+     + + + +     C, ?-                                              WINDOWS _63910QXR01390898983.     / / / )/     / 0                                              WINDOWS _63910QXR11390898983f2     s2 2 2 2     !3 4                                              WINDOWS _63910QXR213908989835     5 5 5 6     z6 v7                                              WINDOWS _63910QXR31390898983-9     :9 G9 S9 `9     9 :                                              WINDOWS _63910QXR41390898983<     < < < <     .= *>                                              WINDOWS _63910QXR51390898983?     ? ? @ @     @ A                                              WINDOWS _63910QXR61390898983<C     IC VC cC pC     C D                                              WINDOWS _63910QXR71390898983F     F F F F     VG RH                                              WINDOWS _63910QXR81390898983	J     J #J 0J =J     J K                                              WINDOWS _63910QXR91390898983yM     M M M M     !N O                                              WINDOWS _63910QXRA1390898983P     P P P Q     |Q xR                                              WINDOWS _63910QXRB1390898983/T     <T IT VT cT     T U                                              WINDOWS _63910QXRC1390898983W     W W W W     2X .Y                                              WINDOWS _63910QXRD1390898983Z     Z Z [ [     [ \                                              WINDOWS _63910QXRE1390898983@^     M^ Z^ g^ t^     ^ _                                              WINDOWS _63910QXRF1390898983a     a a a a     ob kc                                              WINDOWS _63910QXRG1390898983"e     /e <e Ie Ve     e f                                              WINDOWS _63910QXRH1390898983}h     h h h h     %i !j                                              WINDOWS _63910QXRI1390898983k     k k k l     l |m                                              WINDOWS _63910QXRJ13908989833o     @o Mo Zo go     o p                                              WINDOWS _63910QXRK1390898983r     r r r r                                                          WINDOWS _63910QXRL13908989836s     Cs Ps ]s js     s t                                              WINDOWS _63910QXRM1390898983v     v v v v     ew ax                                              WINDOWS _63910QXIG1390898983z     %z 2z ?z Lz     z {                                              WINDOWS _63910QXIH1390898983s}     } } } }     ~                                               WINDOWS _63910QXII1390898983΀     ۀ        v r                                              WINDOWS _63910QXIJ1390898983)     6 C P ]     ф ͅ                                              WINDOWS _63910QXIK1390898983             , (                                              WINDOWS _63910QXIL1390898983ߊ                                                            WINDOWS _63910QXIM1390898983Q     ^ k x       
                                              WINDOWS _63910QXRU1390897928     ͑ ّ                                                            WINDOWS _63910QXRV1390897928;     H U d q                                                          WINDOWS _63910QXRW1390897928     ɒ ֒                                                            WINDOWS _63910QXRX1390897928=     J W f s                                                          WINDOWS _63910QXRY1390897928     ˓ ؓ                                                            WINDOWS _63910QXRZ1390897928?     L Y h u                                                          WINDOWS _63910QXS01390897928     ͔ ڔ                                                            WINDOWS _63910QXS11390897928A     N [ j w                                                          WINDOWS _63910QXS21390898249     ϕ ܕ                                                            WINDOWS _63910QXS31390898249k     x                                                             WINDOWS _63910QXS41390898249     ! . : G                                                          WINDOWS _63910QXS51390898249     ʗ ח                                                            WINDOWS _63910QXS61390898249f     s                                                             WINDOWS _63910QXS71390898249      ) 5 B                                                          WINDOWS _63910QXS81390898249ϙ     ܙ                                                             WINDOWS _63910QXS91390898983             3 /                                              WINDOWS _63910QXSA1390898983                                                             WINDOWS _63910QXSB1390898983?     L Y e r                                                    WINDOWS _63910QXSC1390898983        ˤ     > :                                              WINDOWS _63910QXSD1390898983        $                                                    WINDOWS _63910QXSE1390898983J     W d p }                                                    WINDOWS _63910QXSF1390898983     Ǯ Ԯ       u q                                              WINDOWS _63910QXSG1390898983(     5 B N [     β ʳ                                              WINDOWS _63910QXSH1390898983             ' #                                              WINDOWS _63910QXSI1390898983ڸ              ~                                              WINDOWS _63910QXSJ13908989835     B O \ i     ݼ ٽ                                              WINDOWS _63910QXSK1390898983        Ŀ     8 4                                              WINDOWS _63910QXSL1390898983                                                            WINDOWS _63910QXSM1390898983]     j w                                                      WINDOWS _63910QXSN1390898983             u q                                              WINDOWS _63910QXSO1390898983(     5 B O \                                                    WINDOWS _63910QXSP1390898983             + '                                              WINDOWS _63910QXSQ1390898983                                                            WINDOWS _63910QXSR13908989839     F S ` m                                                    WINDOWS _63910QXSS1390898983             S O                                              WINDOWS _63910QXST1390898983        - :                                                    WINDOWS _63910QXSU1390898983v                                                            WINDOWS _63910QXSV1390898983             y u                                              WINDOWS _63910QXSW1390898983,     9 F S `                                                    WINDOWS _63910QXSX1390898983             / +                                              WINDOWS _63910QXSY1390898983       	                                                     WINDOWS _63910QXSZ1390898983=     J W d q                                                    WINDOWS _63910QXT01390898983             l h                                              WINDOWS _63910QXIN1390898983     , 9 F S                                                    WINDOWS _63910QXIO1390898983z             "                                               WINDOWS _63910QXIP1390898983        	      }  y                                              WINDOWS _63910QXIQ13908989830     = J W d                                                    WINDOWS _63910QXIR1390898983             3 /                                              WINDOWS _63910QXIS1390898983	     	  
 
 
     
                                               WINDOWS _63910QXIT1390898983X
     e
 r
 
 
                                                    WINDOWS _63910QXT81390897928                                                                  WINDOWS _63910QXT91390897928B     O \ k x                                                          WINDOWS _63910QXTA1390897928                                                                  WINDOWS _63910QXTB1390897928D     Q ^ m z                                                          WINDOWS _63910QXTC1390897928                                                                  WINDOWS _63910QXTD1390897928E     R _ n {                                                          WINDOWS _63910QXTE1390897928                                                                  WINDOWS _63910QXTF1390897928D     Q ^ m z                                                          WINDOWS _63910QXTG1390898249                                                                  WINDOWS _63910QXTH1390898249k     x                                                             WINDOWS _63910QXTI1390898249       - 9 F                                                          WINDOWS _63910QXTJ1390898249                                                                  WINDOWS _63910QXTK1390898249d     q ~                                                            WINDOWS _63910QXTL1390898249
      ' 3 @                                                          WINDOWS _63910QXTM1390898249                                                                   WINDOWS _63910QXTN1390898983             / +                                              WINDOWS _63910QXTO1390898983                                                            WINDOWS _63910QXTP1390898983:      G  T  `  m        !                                              WINDOWS _63910QXTQ1390898983#     # # # #     8$ 4%                                              WINDOWS _63910QXTR1390898983&     & ' ' '     ' (                                              WINDOWS _63910QXTS1390898983D*     Q* ^* j* w*     + +                                              WINDOWS _63910QXTT1390898983-     - - - -     o. k/                                              WINDOWS _63910QXTU1390898983"1     /1 <1 H1 U1     1 2                                              WINDOWS _63910QXTV1390898983y4     4 4 4 4     5 6                                              WINDOWS _63910QXTW13908989837     7 7 7 8     x8 t9                                              WINDOWS _63910QXTX1390898983+;     8; E; R; _;     ; <                                              WINDOWS _63910QXTY1390898983>     > > > >     .? *@                                              WINDOWS _63910QXTZ1390898983A     A A B B     B C                                              WINDOWS _63910QXU01390898983SE     `E mE zE E     F G                                              WINDOWS _63910QXU11390898983H     H H H H     iI eJ                                              WINDOWS _63910QXU21390898983L     )L 6L CL PL     L M                                              WINDOWS _63910QXU31390898983vO     O O O O     P Q                                              WINDOWS _63910QXU41390898983R     R R R S     xS tT                                              WINDOWS _63910QXU51390898983+V     8V EV RV _V     V W                                              WINDOWS _63910QXU61390898983Y     Y Y Y Y     EZ A[                                              WINDOWS _63910QXU71390898983\     ] ] ] ,]     ] ^                                              WINDOWS _63910QXU81390898983h`     u` ` ` `     a 
b                                              WINDOWS _63910QXU91390898983c     c c c c     hd de                                              WINDOWS _63910QXUA1390898983g     (g 5g Bg Og     g h                                              WINDOWS _63910QXUB1390898983uj     j j j j     k l                                              WINDOWS _63910QXUC1390898983m     m m m n     xn to                                              WINDOWS _63910QXUD1390898983+q     8q Eq Rq _q     q r                                              WINDOWS _63910QXUE1390898983t     t t t t     Zu Vv                                              WINDOWS _63910QXI21390898983
x     x 'x 4x Ax     x y                                              WINDOWS _63910QXI31390898983f{     s{ { { {     
| 	}                                              WINDOWS _63910QXI41390898983~     ~ ~ ~ ~     g c                                              WINDOWS _63910QXI51390898983     ' 4 A N                                                    WINDOWS _63910QXI61390898983u                                                            WINDOWS _63910QXI71390898983Ј     ݈                                                       WINDOWS _63910QXI81390898983B     O \ i v                                                    WINDOWS _63910QXUM1390897928      ʏ ׏                                                           WINDOWS _63910QXUN1390897928*     7 D S `                                                          WINDOWS _63910QXUO1390897928      Ő Ԑ                                                           WINDOWS _63910QXUP1390897928,     9 F U b                                                          WINDOWS _63910QXUQ1390897928      Ǒ ֑                                                           WINDOWS _63910QXUR1390897928.     ; H W d                                                          WINDOWS _63910QXUS1390897928      ɒ ؒ                                                           WINDOWS _63910QXUT13908979280     = J Y f                                                          WINDOWS _63910QXUU1390898249      ˓ ؓ                                                           WINDOWS _63910QXUV1390898249\     i v                                                            WINDOWS _63910QXUW1390898249      ! . ;                                                          WINDOWS _63910QXUX1390898249      ̕ ٕ                                                           WINDOWS _63910QXUY1390898249]     j w                                                            WINDOWS _63910QXUZ1390898249      " / <                                                          WINDOWS _63910QXV01390898249ʗ     ח                                                             WINDOWS _63910QXV11390898983             2 .                                              WINDOWS _63910QXV21390898983                                                            WINDOWS _63910QXV31390898983@     M Z g t                                                    WINDOWS _63910QXV41390898983       ¢ Ϣ     C ?                                              WINDOWS _63910QXV51390898983        *                                                    WINDOWS _63910QXV61390898983Q     ^ k x                                                     WINDOWS _63910QXV71390898983ì     Ь ݬ        |                                              WINDOWS _63910QXV813908989833     @ M Z g     ۰ ױ                                              WINDOWS _63910QXV91390898983        ³     6 2                                              WINDOWS _63910QXVA1390898983                                                            WINDOWS _63910QXVB1390898983F     S ` n {                                                    WINDOWS _63910QXVC1390898983       ˽ ؽ     M I                                              WINDOWS _63910QXVD1390898983      
  ( 5                                                    WINDOWS _63910QXVE1390898983t             3 /                                              WINDOWS _63910QXVF1390898983                                                             WINDOWS _63910QXVG1390898983C     P ] k x                                                    WINDOWS _63910QXVH1390898983             J F                                              WINDOWS _63910QXVI1390898983     
  % 2                                                    WINDOWS _63910QXVJ1390898983Z     g t                                                       WINDOWS _63910QXVK1390898983             x t                                              WINDOWS _63910QXVL1390898983+     8 E S `                                                    WINDOWS _63910QXVM1390898983             G C                                              WINDOWS _63910QXVN1390898983       " /                                                    WINDOWS _63910QXVO1390898983W     d q                                                      WINDOWS _63910QXVP1390898983             ^ Z                                              WINDOWS _63910QXVQ1390898983      + 9 F                                                    WINDOWS _63910QXVR1390898983n     {        / +                                              WINDOWS _63910QXVS1390898983       
                                                     WINDOWS _63910QXI91390898983T     a n |                                                     WINDOWS _63910QXIA1390898983             [ W                                              WINDOWS _63910QXIB1390898983      ( 6 C                                                    WINDOWS _63910QXIC1390898983k     x                                                       WINDOWS _63910QXID1390898983             r n                                              WINDOWS _63910QXIE1390898983%     2 ? M Z      	                                              WINDOWS _63910QXIF1390898983             X T
                                              WINDOWS _63910QXW01390897928      # 1 >                                                          WINDOWS _63910QXW11390897928                                                                  WINDOWS _63910QXW21390897928      " 1 >                                                          WINDOWS _63910QXW31390897928                                                                  WINDOWS _63910QXW41390897928
      $ 3 @                                                          WINDOWS _63910QXW51390897928                                                                  WINDOWS _63910QXW61390897928      & 5 B                                                          WINDOWS _63910QXW71390897928                                                                  WINDOWS _63910QXW81390898249      ( 5 B                                                          WINDOWS _63910QXW91390898249                                                                  WINDOWS _63910QXWA1390898249d     q ~                                                            WINDOWS _63910QXWB1390898249      ) 6 C                                                          WINDOWS _63910QXWC1390898249                                                                  WINDOWS _63910QXWD1390898249e     r                                                             WINDOWS _63910QXWE1390898249'     4 A N [                                                          WINDOWS _63910QXWF1390898983                                                            WINDOWS _63910QXWG1390898983B     O \ i v                                                    WINDOWS _63910QXWH1390898983             E A                                               WINDOWS _63910QXWI1390898983!     " " " ,"     " #                                              WINDOWS _63910QXWJ1390898983S%     `% m% z% %     % &                                              WINDOWS _63910QXWK1390898983(     ( ( ( (     m) i*                                              WINDOWS _63910QXWL1390898983 ,     -, :, G, T,     , -                                              WINDOWS _63910QXWM1390898983/     / / / /     80 41                                              WINDOWS _63910QXWN13908989832     2 3 3 3     3 4                                              WINDOWS _63910QXWO1390898983F6     S6 `6 n6 {6     6 7                                              WINDOWS _63910QXWP13908989839     9 9 9 9     M: I;                                              WINDOWS _63910QXWQ1390898983 =     
= = (= 5=     = >                                              WINDOWS _63910QXWR1390898983]@     j@ w@ @ @     A B                                              WINDOWS _63910QXWS1390898983C     C C C D     D E                                              WINDOWS _63910QXWT1390898983CG     PG ]G kG xG     G H                                              WINDOWS _63910QXWU1390898983J     J J J J     JK FL                                              WINDOWS _63910QXWV1390898983M     
N N %N 2N     N O                                              WINDOWS _63910QXWW1390898983ZQ     gQ tQ Q Q     R  S                                              WINDOWS _63910QXWX1390898983T     T T T T     aU ]V                                              WINDOWS _63910QXWY1390898983X     !X .X <X IX     X Y                                              WINDOWS _63910QXWZ1390898983[     [ [ [ [     G\ C]                                              WINDOWS _63910QXX01390898983^     _ _ "_ /_     _ `                                              WINDOWS _63910QXX11390898983Wb     db qb b b     c c                                              WINDOWS _63910QXX21390898983e     e e e e     ^f Zg                                              WINDOWS _63910QXX31390898983i     i +i 9i Fi     i j                                              WINDOWS _63910QXX41390898983nl     {l l l l     m n                                              WINDOWS _63910QXX51390898983o     o o o  p     p q                                              WINDOWS _63910QXX61390898983?s     Ls Ys gs ts     s t                                              WINDOWS _63910QXIG1390898983v     v v v v     [w Wx                                              WINDOWS _63910QXIH1390898983z     z (z 6z Cz     z {                                              WINDOWS _63910QXII1390898983k}     x} } } }     ~                                               WINDOWS _63910QXIJ1390898983Ȁ     Հ        r n                                              WINDOWS _63910QXIK1390898983%     2 ? M Z     τ ˅                                              WINDOWS _63910QXIL1390898983             C ?                                              WINDOWS _63910QXIM1390898983        +                                                    WINDOWS _63910QXXE1390897928h     t                                                             WINDOWS _63910QXXF1390897928       
                                                           WINDOWS _63910QXXG1390897928e     r                                                             WINDOWS _63910QXXH1390897928                                                                   WINDOWS _63910QXXI1390897928g     t                                                             WINDOWS _63910QXXJ1390897928                                                                  WINDOWS _63910QXXK1390897928i     v                                                             WINDOWS _63910QXXL1390897928                                                                   WINDOWS _63910QXXM1390898249k     x                                                             WINDOWS _63910QXXN1390898249     # 0 = J                                                          WINDOWS _63910QXXO1390898249     Γ ۓ                                                            WINDOWS _63910QXXP1390898249l     y                                                             WINDOWS _63910QXXQ1390898249     $ 1 > K                                                          WINDOWS _63910QXXR1390898249     ϕ ܕ                                                            WINDOWS _63910QXXS1390898249                                                                  WINDOWS _63910QXXT1390898983D     Q ^ k x                                                    WINDOWS _63910QXXU1390898983       ƚ Ӛ     G C                                              WINDOWS _63910QXXV1390898983       ! .                                                    WINDOWS _63910QXXW1390898983U     b o |                                                     WINDOWS _63910QXXX1390898983      ʤ פ      X T                                              WINDOWS _63910QXXY1390898983      % 2 ?     ʨ Ʃ                                              WINDOWS _63910QXXZ1390898983}             : 6                                              WINDOWS _63910QXY01390898983        !                                                    WINDOWS _63910QXY11390898983H     U b o |                                                    WINDOWS _63910QXY21390898983       ˵ ص     M I                                              WINDOWS _63910QXY31390898983      
  ( 5                                                    WINDOWS _63910QXY41390898983]     j w                                                      WINDOWS _63910QXY51390898983     ǿ Կ       { w                                              WINDOWS _63910QXY61390898983.     ; H V c                                                    WINDOWS _63910QXY71390898983             J F                                              WINDOWS _63910QXY81390898983     
  % 2                                                    WINDOWS _63910QXY91390898983Z     g t                                                       WINDOWS _63910QXYA1390898983             a ]                                              WINDOWS _63910QXYB1390898983     ! . < I                                                    WINDOWS _63910QXYC1390898983q     ~        2 .                                              WINDOWS _63910QXYD1390898983       
                                                     WINDOWS _63910QXYE1390898983W     d q                                                      WINDOWS _63910QXYF1390898983             ^ Z                                              WINDOWS _63910QXYG1390898983      + 9 F                                                    WINDOWS _63910QXYH1390898983n     {                                                       WINDOWS _63910QXYI1390898983              u q                                              WINDOWS _63910QXYJ1390898983(     5 B P ]                                                    WINDOWS _63910QXYK1390898983             [ W                                              WINDOWS _63910QXIN1390898983      ( 6 C                                                    WINDOWS _63910QXIO1390898983k     x                                                       WINDOWS _63910QXIP1390898983             r n                                              WINDOWS _63910QXIQ1390898983%      2  ?  M  Z                                                      WINDOWS _63910QXIR1390898983             , (                                              WINDOWS _63910QXIS1390898983                                                            WINDOWS _63910QXIT1390898983S
     `
 m
 {
 
                                                    WINDOWS _63910QXYS1390897928
     
 
 
 
                                                          WINDOWS _63910QXYV1390898249A     N [ h u                                                          WINDOWS _63910QXYW1390897928                                                                  WINDOWS _63910QXYX1390898249]     j w                                                            WINDOWS _63910QXYY1390897928     
  & 3                                                          WINDOWS _63910QXYZ1390898249|                                                                  WINDOWS _63910QXZ01390897928     & 3 B O                                                          WINDOWS _63910QXZ11390898249                                                                  WINDOWS _63910QXZ213908979286     C P _ l                                                          WINDOWS _63910QXZ31390898249                                                                  WINDOWS _63910QXZ41390897928Q     ^ k z                                                           WINDOWS _63910QXZ51390898249                                                                  WINDOWS _63910QXZ61390897928q     ~                                                             WINDOWS _63910QXZ71390898249        &                                                          WINDOWS _63910QXZ81390897928                                                                  WINDOWS _63910QXZ91390898249      , 9 F                                                          WINDOWS _63910QXZA1390897928                                                                  WINDOWS _63910QXZB13908982492     ? L Y f                                                          WINDOWS _63910QXZC1390897928        
                                                          WINDOWS _63910QXZD1390898249U     b o }                                                           WINDOWS _63910QXZE1390897928       " /                                                          WINDOWS _63910QXZF1390898249z                                                                  WINDOWS _63910QXZG1390897928     , 9 H U                                                          WINDOWS _63910QXZH1390898249                                                                  WINDOWS _63910X3LY1390899397E     T c p }                                                    WINDOWS _63910QXI21390898983       ) 6                                                    WINDOWS _63910QXI21391027149             X  #                                              WINDOWS _63A0N3GW61390898983Q'     ^' k' x' '     ' (                                              WINDOWS _63A0N3GW71390898983*     * * * *     Q+ M,                                              WINDOWS _63A0N3GW81390898983.     . . +. 8.     . /                                              WINDOWS _63A0N3GW91390898983^1     k1 x1 1 1     2 3                                              WINDOWS _63A0N3GWA13908989834     4 4 4 4     a5 ]6                                              WINDOWS _63A0N3GWB13908989838     !8 .8 ;8 H8     8 9                                              WINDOWS _63A0N3GWC1390898983;     ; ; ; ;     C< ?=                                              WINDOWS _63A0N3GWD1390898983>     ? ? ? *?     ? @                                              WINDOWS _63A0N3GWE1390898983QB     ^B kB xB B     B C                                              WINDOWS _63A0N3GWF1390898983E     E E E E     TF PG                                              WINDOWS _63A0N3GWG1390898983I     I !I .I ;I     I J                                              WINDOWS _63A0N3GWH1390898983bL     oL |L L L     
M N                                              WINDOWS _63A0N3GWI1390898983O     O O O O     |P xQ                                              WINDOWS _63A0N3GWJ1390898983/S     <S IS VS cS     S T                                              WINDOWS _63A0N3GWK1390898983V     V V V V     GW CX                                              WINDOWS _63A0N3GWL1390898983Y     Z Z !Z .Z     Z [                                              WINDOWS _63A0N3GWM1390898983U]     b] o] |] ]     ] ^                                              WINDOWS _63A0N3GWN1390898983`     ` ` ` `     Xa Tb                                              WINDOWS _63A0N3GWO1390898983d     d %d 2d ?d     d e                                              WINDOWS _63A0N3GWP1390898983fg     sg g g g     %h !i                                              WINDOWS _63A0N3GWQ1390898983j     j j j k     k l                                              WINDOWS _63A0N3GWR1390898983Hn     Un bn on |n     n o                                              WINDOWS _63A0N3GWS1390898983q     q q q q     Kr Gs                                              WINDOWS _63A0N3GWT1390898983t     u u %u 2u     u v                                              WINDOWS _63A0N3GWU1390898983Yx     fx sx x x     y y                                              WINDOWS _63A0N3GWV1390898983{     { { { {     \| X}                                              WINDOWS _63A0N3GWW1390898983      ) 6 C      ʀ                                              WINDOWS _63A0N3GWX1390898983             > :                                              WINDOWS _63A0N3GWY1390898983        %                                                    WINDOWS _63A0N3GWZ1390898983J     W d q ~                                                    WINDOWS _63A0N3GX01390898983       ˌ ،     K G                                              WINDOWS _63A0N3GX11390898983       % 2                                                    WINDOWS _63A0N3GX21390898983Y     f s                                                      WINDOWS _63A0N3GX31390898983      Ζ ۖ      s o                                              WINDOWS _63A0N3GX41390898983&     3 @ M Z      ߛ                                              WINDOWS _63A0N3GX51390898983        ʝ     > :                                              WINDOWS _63A0N3GX61390898983        %                                                    WINDOWS _63A0N3GX71390898983L     Y f s                                                     WINDOWS _63A0N3GX81390898983       Χ ۧ     O K                                              WINDOWS _63A0N3GX91390898983       ) 6                                                    WINDOWS _63A0N3GXA1390898983]     j w                                                      WINDOWS _63A0N3GXB1390898983ϱ     ܱ                                                       WINDOWS _63A0N3GXC1390898983?     L Y f s                                                    WINDOWS _63A0N3GXD1390898983        θ     B >                                              WINDOWS _63A0N3GXE1390898983        )                                                    WINDOWS _63A0N3GXF1390898983P     ] j w                                                     WINDOWS _63A0N3GXG1390898983             S O                                              WINDOWS _63A0N3GXH1390898983        - :                                                    WINDOWS _63A0N3GXI1390898983x             5 1                                              WINDOWS _63A0N3GXJ1390898983                                                            WINDOWS _63A0N3GXK1390898983C     P ] j w                                                    WINDOWS _63A0N3GXL1390898983             F B                                              WINDOWS _63A0N3GXM1390898983         -                                                    WINDOWS _63A0N3GXN1390898983T     a n {                                                     WINDOWS _63A0N3GXO1390898983             n j                                              WINDOWS _63A0N3GXP1390898983!     . ; H U                                                    WINDOWS _63A0N3GXQ1390898983             7 3                                              WINDOWS _63A0N3GXR1390898983                                                            WINDOWS _63A0N3GXS1390898983D     Q ^ k x                                                    WINDOWS _63A0N3GXT1390898983             F B                                              WINDOWS _63A0N3GXU1390898983         -                                                    WINDOWS _63A0N3GXV1390898983T     a n {                                                     WINDOWS _63A0N3GXW1390898983                                                            WINDOWS _63A0N3GXX13908989836     C P ^ k                                                    WINDOWS _63A0N3GXY1390898983             =  9                                              WINDOWS _63A0N3GXZ1390898983      
  %                                                    WINDOWS _63A0N3GY01390898983M     Z g u                                                     WINDOWS _63A0N3GY11390898983	     	 	 	 	     T
 P                                              WINDOWS _63A0N3GY21390898983
     
 !
 /
 <
     
                                               WINDOWS _63A0N3GY31390898983{             : 6                                              WINDOWS _63A0N3GY41390898983        "                                                    WINDOWS _63A0N3GY51390898983J     W d r                                                     WINDOWS _63A0N3GY61390898983             Q M                                              WINDOWS _63A0N3GY71390898983       , 9                                                    WINDOWS _63A0N3GY81390898983a!     n! {! ! !     " #                                              WINDOWS _63A0N3GY91390898983$     $ $ $ $     % {&                                              WINDOWS _63A0N3GYA13908989832(     ?( L( Z( g(     ( )                                              WINDOWS _63A0N3GYB1390898983+     + + + +     N, J-                                              WINDOWS _63A0N3GYC1390898983/     / / )/ 6/     / 0                                              WINDOWS _63A0N3GYD1390898983^2     k2 x2 2 2     3 4                                              WINDOWS _63A0N3GYE13908989835     5 5 5 5     e6 a7                                              WINDOWS _63A0N3GYF13908989839     %9 29 @9 M9     9 :                                              WINDOWS _63A0N3GYG1390898983u<     < < < <     6= 2>                                              WINDOWS _63A0N3GYH1390898983?     ? @ @ @     @ A                                              WINDOWS _63A0Z4ICK1391027149[C     pC C C C     D yD                                              WINDOWS _63A1011SV1402710958E E E E E E                                                          WINDOWS _63B0U3AST1390899276F     F F F F                                                          COMMENT RESERVED                                &G                                                          GO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 628
Width = 901
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Kalender"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
myform1.visible = .f.
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.Caption = "Jahreskalender " + welchesjahrc + " fr " + ALLTRIM(myform1.z0.caption)

myopen(eigdat + muser + "\rkalender.dbf" , 131 ,"rkalender")

SELECT rkalender
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr

hstagesstring = ""
IF EOF()
	hstagesstring = SPACE(504)
ELSE
	hstagesstring = rkalender.pcg_f4 + rkalender.pcg_f5 + rkalender.pcg_f6
endif

hstagz = 1

FOR hsm = 1 TO 12
	hsvdate = STOD(welchesjahrc+IIF(hsm < 10,"0"+ALLTRIM(STR(hsm,2,0)),ALLTRIM(STR(hsm,2,0)))+"01")
	firstmonday = firstmondayofyear(welchesjahr)
	anfmon = bom(hsvdate)
	endmon = eom(hsvdate)

	firstmon = MondayOfWeek(anfmon)

	IF firstmon < endmon
		hsdiff = anfmon - firstmon
	ELSE
		hsdiff = 0
	endif

	* buttons fllen
	button1 = Dow(anfmon,2)
	FOR a = button1 TO DAY(endmon)+hsdiff
		hsxx = ALLTRIM(STR(a,2,0))
		hsday = ALLTRIM(STR(a - hsdiff,2,0))
		hslabel = "m"+ALLTRIM(STR(hsm,2,0))+"t"+ALLTRIM(STR(a,2,0))
		thisform.&hslabel..caption = hsday
		thisform.&hslabel..visible = .t.
	NEXT	
	FOR hst = 1 TO 42
		hsfeldn = "m"+ALLTRIM(STR(hsm,2,0))+"t"+ALLTRIM(STR(hst,2,0))
		thisform.&hsfeldn..tag = IIF(EMPTY(SUBSTR(hstagesstring,hstagz,1))," ","1")
		hstagz = hstagz + 1
	NEXT
	hsmo = ALLTRIM(STR(hsm,2,0))
	thisform.ber&hsmo..caption = thisform.ber&hsmo..caption + " " + welchesjahrc
NEXT

thisform.edit1.Value = ALLTRIM(rkalender.pcg_f7)
thisform.reststring.caption = ALLTRIM(STR(LEN(ALLTRIM(thisform.edit1.Value)),3,0))+"/200"

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
thisform.refresh
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     @    '  '                        R   %   :        ;   X            U   T   - %   
2  T    8 T   Jahreskalender    fr C    2 C 	  \rkalender.dbf	 rkalender  F
  -   
  	
 T    %C+  T CX  T 
  
  
   
 T   (F T C C 

  0CC  Z
 CC  Z6 01  T C    T C    T C    T C    %  
 T    
 T    T  C ) !   (C %  T" CC!  Z T# CC!   Z/ T$  mCC  Z tCC!  Z& thisform.&hslabel..caption = hsday
$ thisform.&hslabel..visible = .t.
  % (*/ T&  mCC  Z tCC%  ZO thisform.&hsfeldn..tag = IIF(EMPTY(SUBSTR(hstagesstring,hstagz,1))," ","1")
 T    T' CC  ZR thisform.ber&hsmo..caption = thisform.ber&hsmo..caption + " " + welchesjahrc
  T ( ) C
 * / T +  CCCC ( ) > Z /200 % , - . r T/ C.  , - T 
 T/  
  0 1  T ,  , - /  T 2  2 - / 
  3  T 4 a
  5  U6  MYFORM1 VISIBLE THISFORM TOP CAPTION WELCHESJAHRC Z0 MYOPEN EIGDAT MUSER	 RKALENDER PCG_F2 FILENEU PCG_F3 WELCHESJAHR
 HSTAGESSTRING PCG_F4 PCG_F5 PCG_F6 HSTAGZ HSM HSVDATE STOD FIRSTMONDAY FIRSTMONDAYOFYEAR ANFMON BOM ENDMON EOM FIRSTMON MONDAYOFWEEK HSDIFF BUTTON1 A HSXX HSDAY HSLABEL HST HSFELDN HSMO EDIT1 VALUE PCG_F7
 RESTSTRING HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER REFRESH  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1  AA "r    A  ra!!!"  A #qaAA qA q!A   A     2 1                            9       G    )   '                        
commandbutton      
commandbutton      	printform      FORM1      Top = 543
Left = 744
Height = 18
Width = 72
Caption = "printform"
Enabled = .F.
TabIndex = 476
Visible = .F.
Name = "printform"
     iPROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
Endif


oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026


CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       ^      )                           shape      shape      Shape85      FORM1      ?Top = 4
Left = 5
Height = 22
Width = 216
Name = "Shape85"
      shape      shape      Shape7      FORM1      ATop = 25
Left = 189
Height = 151
Width = 32
Name = "Shape7"
      shape      shape      Shape4      FORM1      ATop = 25
Left = 159
Height = 151
Width = 32
Name = "Shape4"
      shape      shape      Shape5      FORM1      @Top = 25
Left = 97
Height = 151
Width = 32
Name = "Shape5"
      shape      shape      Shape6      FORM1      ATop = 25
Left = 128
Height = 151
Width = 32
Name = "Shape6"
      shape      shape      Shape3      FORM1      @Top = 25
Left = 67
Height = 151
Width = 32
Name = "Shape3"
      shape      shape      Shape2      FORM1      ?Top = 25
Left = 5
Height = 151
Width = 32
Name = "Shape2"
      shape      shape      Shape1      FORM1      @Top = 25
Left = 36
Height = 151
Width = 32
Name = "Shape1"
      label      label      1_1      FORM1      kFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 9
Top = 31
Width = 24
Name = "1_1"
      label      label      1_2      FORM1      lFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 40
Top = 31
Width = 24
Name = "1_2"
      label      label      1_3      FORM1      lFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 71
Top = 31
Width = 24
Name = "1_3"
      label      label      1_4      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 102
Top = 31
Width = 23
Name = "1_4"
      label      label      1_5      FORM1      mFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 132
Top = 31
Width = 24
Name = "1_5"
      label      label      1_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 163
Top = 31
Width = 24
ForeColor = 0,128,255
Name = "1_6"
      label      label      1_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 194
Top = 31
Width = 23
ForeColor = 255,0,0
Name = "1_7"
      label      label      m1t1      FORM1      hAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 54
Visible = .F.
Width = 24
Name = "m1t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t2      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 54
Visible = .F.
Width = 24
Name = "m1t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t3      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 54
Visible = .F.
Width = 24
Name = "m1t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t4      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 54
Visible = .F.
Width = 23
Name = "m1t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t5      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 54
Visible = .F.
Width = 24
Name = "m1t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 54
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 54
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t8      FORM1      hAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 75
Visible = .F.
Width = 24
Name = "m1t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t9      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 75
Visible = .F.
Width = 24
Name = "m1t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t10      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 75
Visible = .F.
Width = 24
Name = "m1t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t11      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 75
Visible = .F.
Width = 23
Name = "m1t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t12      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 75
Visible = .F.
Width = 24
Name = "m1t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 75
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 75
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t15      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 96
Visible = .F.
Width = 24
Name = "m1t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t16      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 96
Visible = .F.
Width = 24
Name = "m1t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t17      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 96
Visible = .F.
Width = 24
Name = "m1t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t18      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 96
Visible = .F.
Width = 23
Name = "m1t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t19      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 96
Visible = .F.
Width = 24
Name = "m1t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 96
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 96
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t22      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 117
Visible = .F.
Width = 24
Name = "m1t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t23      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 117
Visible = .F.
Width = 24
Name = "m1t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t24      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 117
Visible = .F.
Width = 24
Name = "m1t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 117
Visible = .F.
Width = 23
Name = "m1t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 117
Visible = .F.
Width = 24
Name = "m1t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 117
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 117
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t29      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 138
Visible = .F.
Width = 24
Name = "m1t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t30      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 138
Visible = .F.
Width = 24
Name = "m1t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t31      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 138
Visible = .F.
Width = 24
Name = "m1t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 138
Visible = .F.
Width = 23
Name = "m1t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 138
Visible = .F.
Width = 24
Name = "m1t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 138
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 138
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line1      FORM1      =Height = 0
Left = 6
Top = 48
Width = 214
Name = "Line1"
      shape      shape      Shape8      FORM1      ATop = 25
Left = 414
Height = 151
Width = 32
Name = "Shape8"
      shape      shape      Shape9      FORM1      ATop = 25
Left = 384
Height = 151
Width = 32
Name = "Shape9"
      shape      shape      Shape10      FORM1      BTop = 25
Left = 322
Height = 151
Width = 32
Name = "Shape10"
      shape      shape      Shape11      FORM1      BTop = 25
Left = 353
Height = 151
Width = 32
Name = "Shape11"
      shape      shape      Shape12      FORM1      BTop = 25
Left = 292
Height = 151
Width = 32
Name = "Shape12"
      shape      shape      Shape13      FORM1      BTop = 25
Left = 230
Height = 151
Width = 32
Name = "Shape13"
      shape      shape      Shape14      FORM1      BTop = 25
Left = 261
Height = 151
Width = 32
Name = "Shape14"
      label      label      2_1      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 234
Top = 31
Width = 24
Name = "2_1"
      label      label      2_2      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 265
Top = 31
Width = 24
Name = "2_2"
      label      label      2_3      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 296
Top = 31
Width = 24
Name = "2_3"
      label      label      2_4      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 327
Top = 31
Width = 23
Name = "2_4"
      label      label      2_5      FORM1      mFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 357
Top = 31
Width = 24
Name = "2_5"
      label      label      2_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 388
Top = 31
Width = 24
ForeColor = 0,128,255
Name = "2_6"
      label      label      2_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 419
Top = 31
Width = 23
ForeColor = 255,0,0
Name = "2_7"
      label      label      m2t1      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 54
Visible = .F.
Width = 24
Name = "m2t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t2      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 54
Visible = .F.
Width = 24
Name = "m2t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t3      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 54
Visible = .F.
Width = 24
Name = "m2t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t4      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 54
Visible = .F.
Width = 23
Name = "m2t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t5      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 54
Visible = .F.
Width = 24
Name = "m2t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 54
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 54
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t8      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 75
Visible = .F.
Width = 24
Name = "m2t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t9      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 75
Visible = .F.
Width = 24
Name = "m2t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t10      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 75
Visible = .F.
Width = 24
Name = "m2t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t11      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 75
Visible = .F.
Width = 23
Name = "m2t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t12      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 75
Visible = .F.
Width = 24
Name = "m2t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 75
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 75
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t15      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 96
Visible = .F.
Width = 24
Name = "m2t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t16      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 96
Visible = .F.
Width = 24
Name = "m2t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t17      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 96
Visible = .F.
Width = 24
Name = "m2t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t18      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 96
Visible = .F.
Width = 23
Name = "m2t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t19      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 96
Visible = .F.
Width = 24
Name = "m2t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 96
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 96
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 117
Visible = .F.
Width = 24
Name = "m2t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 117
Visible = .F.
Width = 24
Name = "m2t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 117
Visible = .F.
Width = 24
Name = "m2t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 117
Visible = .F.
Width = 23
Name = "m2t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 117
Visible = .F.
Width = 24
Name = "m2t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 117
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 117
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 138
Visible = .F.
Width = 24
Name = "m2t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 138
Visible = .F.
Width = 24
Name = "m2t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 138
Visible = .F.
Width = 24
Name = "m2t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 138
Visible = .F.
Width = 23
Name = "m2t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 138
Visible = .F.
Width = 24
Name = "m2t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 138
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 138
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line2      FORM1      ?Height = 0
Left = 231
Top = 48
Width = 214
Name = "Line2"
      shape      shape      Shape15      FORM1      BTop = 25
Left = 639
Height = 151
Width = 32
Name = "Shape15"
      shape      shape      Shape16      FORM1      BTop = 25
Left = 609
Height = 151
Width = 32
Name = "Shape16"
      shape      shape      Shape17      FORM1      BTop = 25
Left = 547
Height = 151
Width = 32
Name = "Shape17"
      shape      shape      Shape18      FORM1      BTop = 25
Left = 578
Height = 151
Width = 32
Name = "Shape18"
      shape      shape      Shape19      FORM1      BTop = 25
Left = 517
Height = 151
Width = 32
Name = "Shape19"
      shape      shape      Shape20      FORM1      BTop = 25
Left = 455
Height = 151
Width = 32
Name = "Shape20"
      shape      shape      Shape21      FORM1      BTop = 25
Left = 486
Height = 151
Width = 32
Name = "Shape21"
      label      label      3_1      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 459
Top = 31
Width = 24
Name = "3_1"
      label      label      3_2      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 490
Top = 31
Width = 24
Name = "3_2"
      label      label      3_3      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 521
Top = 31
Width = 24
Name = "3_3"
      label      label      3_4      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 552
Top = 31
Width = 23
Name = "3_4"
      label      label      3_5      FORM1      mFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 582
Top = 31
Width = 24
Name = "3_5"
      label      label      3_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 613
Top = 31
Width = 24
ForeColor = 0,128,255
Name = "3_6"
      label      label      3_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 644
Top = 31
Width = 23
ForeColor = 255,0,0
Name = "3_7"
      label      label      m3t1      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 54
Visible = .F.
Width = 24
Name = "m3t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t2      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 54
Visible = .F.
Width = 24
Name = "m3t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t3      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 54
Visible = .F.
Width = 24
Name = "m3t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t4      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 54
Visible = .F.
Width = 23
Name = "m3t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t5      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 54
Visible = .F.
Width = 24
Name = "m3t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 54
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 54
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t8      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 75
Visible = .F.
Width = 24
Name = "m3t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t9      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 75
Visible = .F.
Width = 24
Name = "m3t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t10      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 75
Visible = .F.
Width = 24
Name = "m3t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t11      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 75
Visible = .F.
Width = 23
Name = "m3t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t12      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 75
Visible = .F.
Width = 24
Name = "m3t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 75
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 75
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t15      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 96
Visible = .F.
Width = 24
Name = "m3t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t16      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 96
Visible = .F.
Width = 24
Name = "m3t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t17      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 96
Visible = .F.
Width = 24
Name = "m3t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t18      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 96
Visible = .F.
Width = 23
Name = "m3t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t19      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 96
Visible = .F.
Width = 24
Name = "m3t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 96
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 96
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 117
Visible = .F.
Width = 24
Name = "m3t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 117
Visible = .F.
Width = 24
Name = "m3t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 117
Visible = .F.
Width = 24
Name = "m3t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 117
Visible = .F.
Width = 23
Name = "m3t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 117
Visible = .F.
Width = 24
Name = "m3t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 117
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 117
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 138
Visible = .F.
Width = 24
Name = "m3t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 138
Visible = .F.
Width = 24
Name = "m3t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 138
Visible = .F.
Width = 24
Name = "m3t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 138
Visible = .F.
Width = 23
Name = "m3t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 138
Visible = .F.
Width = 24
Name = "m3t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 138
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 138
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line3      FORM1      ?Height = 0
Left = 456
Top = 48
Width = 214
Name = "Line3"
      shape      shape      Shape22      FORM1      BTop = 25
Left = 864
Height = 151
Width = 32
Name = "Shape22"
      shape      shape      Shape23      FORM1      BTop = 25
Left = 834
Height = 151
Width = 32
Name = "Shape23"
      shape      shape      Shape24      FORM1      BTop = 25
Left = 772
Height = 151
Width = 32
Name = "Shape24"
      shape      shape      Shape25      FORM1      BTop = 25
Left = 803
Height = 151
Width = 32
Name = "Shape25"
      shape      shape      Shape26      FORM1      BTop = 25
Left = 742
Height = 151
Width = 32
Name = "Shape26"
      shape      shape      Shape27      FORM1      BTop = 25
Left = 680
Height = 151
Width = 32
Name = "Shape27"
      shape      shape      Shape28      FORM1      BTop = 25
Left = 711
Height = 151
Width = 32
Name = "Shape28"
      label      label      4_1      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 684
Top = 31
Width = 24
Name = "4_1"
      label      label      4_2      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 715
Top = 31
Width = 24
Name = "4_2"
      label      label      4_3      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 746
Top = 31
Width = 24
Name = "4_3"
      label      label      4_4      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 777
Top = 31
Width = 23
Name = "4_4"
      label      label      4_5      FORM1      mFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 807
Top = 31
Width = 24
Name = "4_5"
      label      label      4_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 838
Top = 31
Width = 24
ForeColor = 0,128,255
Name = "4_6"
      label      label      4_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 869
Top = 31
Width = 23
ForeColor = 255,0,0
Name = "4_7"
      label      label      m4t1      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 54
Visible = .F.
Width = 24
Name = "m4t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t2      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 54
Visible = .F.
Width = 24
Name = "m4t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t3      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 54
Visible = .F.
Width = 24
Name = "m4t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t4      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 54
Visible = .F.
Width = 23
Name = "m4t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t5      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 54
Visible = .F.
Width = 24
Name = "m4t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 54
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 54
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t8      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 75
Visible = .F.
Width = 24
Name = "m4t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t9      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 75
Visible = .F.
Width = 24
Name = "m4t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t10      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 75
Visible = .F.
Width = 24
Name = "m4t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t11      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 75
Visible = .F.
Width = 23
Name = "m4t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t12      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 75
Visible = .F.
Width = 24
Name = "m4t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 75
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 75
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t15      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 96
Visible = .F.
Width = 24
Name = "m4t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t16      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 96
Visible = .F.
Width = 24
Name = "m4t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t17      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 96
Visible = .F.
Width = 24
Name = "m4t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t18      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 96
Visible = .F.
Width = 23
Name = "m4t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t19      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 96
Visible = .F.
Width = 24
Name = "m4t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 96
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 96
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 117
Visible = .F.
Width = 24
Name = "m4t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 117
Visible = .F.
Width = 24
Name = "m4t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 117
Visible = .F.
Width = 24
Name = "m4t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 117
Visible = .F.
Width = 23
Name = "m4t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 117
Visible = .F.
Width = 24
Name = "m4t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 117
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 117
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 138
Visible = .F.
Width = 24
Name = "m4t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 138
Visible = .F.
Width = 24
Name = "m4t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 138
Visible = .F.
Width = 24
Name = "m4t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 138
Visible = .F.
Width = 23
Name = "m4t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 138
Visible = .F.
Width = 24
Name = "m4t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 138
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 138
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line4      FORM1      ?Height = 0
Left = 681
Top = 48
Width = 214
Name = "Line4"
      shape      shape      Shape29      FORM1      CTop = 203
Left = 189
Height = 151
Width = 32
Name = "Shape29"
      shape      shape      Shape30      FORM1      CTop = 203
Left = 159
Height = 151
Width = 32
Name = "Shape30"
      shape      shape      Shape31      FORM1      BTop = 203
Left = 97
Height = 151
Width = 32
Name = "Shape31"
      shape      shape      Shape32      FORM1      CTop = 203
Left = 128
Height = 151
Width = 32
Name = "Shape32"
      shape      shape      Shape33      FORM1      BTop = 203
Left = 67
Height = 151
Width = 32
Name = "Shape33"
      shape      shape      Shape34      FORM1      ATop = 203
Left = 5
Height = 151
Width = 32
Name = "Shape34"
      shape      shape      Shape35      FORM1      BTop = 203
Left = 36
Height = 151
Width = 32
Name = "Shape35"
      label      label      5_1      FORM1      lFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 9
Top = 209
Width = 24
Name = "5_1"
      label      label      5_2      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 40
Top = 209
Width = 24
Name = "5_2"
      label      label      5_3      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 71
Top = 209
Width = 24
Name = "5_3"
      label      label      5_4      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 102
Top = 209
Width = 23
Name = "5_4"
      label      label      5_5      FORM1      nFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 132
Top = 209
Width = 24
Name = "5_5"
      label      label      5_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 163
Top = 209
Width = 24
ForeColor = 0,128,255
Name = "5_6"
      label      label      5_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 194
Top = 209
Width = 23
ForeColor = 255,0,0
Name = "5_7"
      label      label      m5t1      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 232
Visible = .F.
Width = 24
Name = "m5t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t2      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 232
Visible = .F.
Width = 24
Name = "m5t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t3      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 232
Visible = .F.
Width = 24
Name = "m5t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t4      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 232
Visible = .F.
Width = 23
Name = "m5t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t5      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 232
Visible = .F.
Width = 24
Name = "m5t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 232
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 232
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t8      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 253
Visible = .F.
Width = 24
Name = "m5t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t9      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 253
Visible = .F.
Width = 24
Name = "m5t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t10      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 253
Visible = .F.
Width = 24
Name = "m5t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t11      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 253
Visible = .F.
Width = 23
Name = "m5t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t12      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 253
Visible = .F.
Width = 24
Name = "m5t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 253
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 253
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t15      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 274
Visible = .F.
Width = 24
Name = "m5t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t16      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 274
Visible = .F.
Width = 24
Name = "m5t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t17      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 274
Visible = .F.
Width = 24
Name = "m5t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t18      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 274
Visible = .F.
Width = 23
Name = "m5t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t19      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 274
Visible = .F.
Width = 24
Name = "m5t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 274
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 274
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t22      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 295
Visible = .F.
Width = 24
Name = "m5t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t23      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 295
Visible = .F.
Width = 24
Name = "m5t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t24      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 295
Visible = .F.
Width = 24
Name = "m5t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 295
Visible = .F.
Width = 23
Name = "m5t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 295
Visible = .F.
Width = 24
Name = "m5t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 295
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 295
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t29      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 316
Visible = .F.
Width = 24
Name = "m5t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t30      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 316
Visible = .F.
Width = 24
Name = "m5t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t31      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 316
Visible = .F.
Width = 24
Name = "m5t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 316
Visible = .F.
Width = 23
Name = "m5t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 316
Visible = .F.
Width = 24
Name = "m5t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 316
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 316
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line5      FORM1      >Height = 0
Left = 6
Top = 226
Width = 214
Name = "Line5"
      shape      shape      Shape36      FORM1      CTop = 203
Left = 414
Height = 151
Width = 32
Name = "Shape36"
      shape      shape      Shape37      FORM1      CTop = 203
Left = 384
Height = 151
Width = 32
Name = "Shape37"
      shape      shape      Shape38      FORM1      CTop = 203
Left = 322
Height = 151
Width = 32
Name = "Shape38"
      shape      shape      Shape39      FORM1      CTop = 203
Left = 353
Height = 151
Width = 32
Name = "Shape39"
      shape      shape      Shape40      FORM1      CTop = 203
Left = 292
Height = 151
Width = 32
Name = "Shape40"
      shape      shape      Shape41      FORM1      CTop = 203
Left = 230
Height = 151
Width = 32
Name = "Shape41"
      shape      shape      Shape42      FORM1      CTop = 203
Left = 261
Height = 151
Width = 32
Name = "Shape42"
      label      label      6_1      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 234
Top = 209
Width = 24
Name = "6_1"
      label      label      6_2      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 265
Top = 209
Width = 24
Name = "6_2"
      label      label      6_3      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 296
Top = 209
Width = 24
Name = "6_3"
      label      label      6_4      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 327
Top = 209
Width = 23
Name = "6_4"
      label      label      6_5      FORM1      nFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 357
Top = 209
Width = 24
Name = "6_5"
      label      label      6_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 388
Top = 209
Width = 24
ForeColor = 0,128,255
Name = "6_6"
      label      label      6_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 419
Top = 209
Width = 23
ForeColor = 255,0,0
Name = "6_7"
      label      label      m6t1      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 232
Visible = .F.
Width = 24
Name = "m6t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t2      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 232
Visible = .F.
Width = 24
Name = "m6t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t3      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 232
Visible = .F.
Width = 24
Name = "m6t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t4      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 232
Visible = .F.
Width = 23
Name = "m6t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t5      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 232
Visible = .F.
Width = 24
Name = "m6t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 232
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 232
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t8      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 253
Visible = .F.
Width = 24
Name = "m6t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t9      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 253
Visible = .F.
Width = 24
Name = "m6t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t10      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 253
Visible = .F.
Width = 24
Name = "m6t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t11      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 253
Visible = .F.
Width = 23
Name = "m6t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t12      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 253
Visible = .F.
Width = 24
Name = "m6t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 253
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 253
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t15      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 274
Visible = .F.
Width = 24
Name = "m6t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t16      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 274
Visible = .F.
Width = 24
Name = "m6t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t17      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 274
Visible = .F.
Width = 24
Name = "m6t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t18      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 274
Visible = .F.
Width = 23
Name = "m6t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t19      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 274
Visible = .F.
Width = 24
Name = "m6t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 274
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 274
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 295
Visible = .F.
Width = 24
Name = "m6t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 295
Visible = .F.
Width = 24
Name = "m6t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 295
Visible = .F.
Width = 24
Name = "m6t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 295
Visible = .F.
Width = 23
Name = "m6t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 295
Visible = .F.
Width = 24
Name = "m6t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 295
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 295
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 316
Visible = .F.
Width = 24
Name = "m6t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 316
Visible = .F.
Width = 24
Name = "m6t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 316
Visible = .F.
Width = 24
Name = "m6t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 316
Visible = .F.
Width = 23
Name = "m6t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 316
Visible = .F.
Width = 24
Name = "m6t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 316
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 316
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line6      FORM1      @Height = 0
Left = 231
Top = 226
Width = 214
Name = "Line6"
      shape      shape      Shape43      FORM1      CTop = 203
Left = 639
Height = 151
Width = 32
Name = "Shape43"
      shape      shape      Shape44      FORM1      CTop = 203
Left = 609
Height = 151
Width = 32
Name = "Shape44"
      shape      shape      Shape45      FORM1      CTop = 203
Left = 547
Height = 151
Width = 32
Name = "Shape45"
      shape      shape      Shape46      FORM1      CTop = 203
Left = 578
Height = 151
Width = 32
Name = "Shape46"
      shape      shape      Shape47      FORM1      CTop = 203
Left = 517
Height = 151
Width = 32
Name = "Shape47"
      shape      shape      Shape48      FORM1      CTop = 203
Left = 455
Height = 151
Width = 32
Name = "Shape48"
      shape      shape      Shape49      FORM1      CTop = 203
Left = 486
Height = 151
Width = 32
Name = "Shape49"
      label      label      7_1      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 459
Top = 209
Width = 24
Name = "7_1"
      label      label      7_2      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 490
Top = 209
Width = 24
Name = "7_2"
      label      label      7_3      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 521
Top = 209
Width = 24
Name = "7_3"
      label      label      7_4      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 552
Top = 209
Width = 23
Name = "7_4"
      label      label      7_5      FORM1      nFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 582
Top = 209
Width = 24
Name = "7_5"
      label      label      7_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 613
Top = 209
Width = 24
ForeColor = 0,128,255
Name = "7_6"
      label      label      7_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 644
Top = 209
Width = 23
ForeColor = 255,0,0
Name = "7_7"
      label      label      m7t1      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 232
Visible = .F.
Width = 24
Name = "m7t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t2      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 232
Visible = .F.
Width = 24
Name = "m7t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t3      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 232
Visible = .F.
Width = 24
Name = "m7t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t4      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 232
Visible = .F.
Width = 23
Name = "m7t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t5      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 232
Visible = .F.
Width = 24
Name = "m7t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 232
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 232
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t8      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 253
Visible = .F.
Width = 24
Name = "m7t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t9      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 253
Visible = .F.
Width = 24
Name = "m7t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t10      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 253
Visible = .F.
Width = 24
Name = "m7t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t11      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 253
Visible = .F.
Width = 23
Name = "m7t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t12      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 253
Visible = .F.
Width = 24
Name = "m7t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 253
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 253
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t15      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 274
Visible = .F.
Width = 24
Name = "m7t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t16      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 274
Visible = .F.
Width = 24
Name = "m7t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t17      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 274
Visible = .F.
Width = 24
Name = "m7t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t18      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 274
Visible = .F.
Width = 23
Name = "m7t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t19      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 274
Visible = .F.
Width = 24
Name = "m7t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 274
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 274
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 295
Visible = .F.
Width = 24
Name = "m7t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 295
Visible = .F.
Width = 24
Name = "m7t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 295
Visible = .F.
Width = 24
Name = "m7t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 295
Visible = .F.
Width = 23
Name = "m7t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 295
Visible = .F.
Width = 24
Name = "m7t26"
      label      label      m7t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 295
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 295
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 316
Visible = .F.
Width = 24
Name = "m7t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 316
Visible = .F.
Width = 24
Name = "m7t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 316
Visible = .F.
Width = 24
Name = "m7t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 316
Visible = .F.
Width = 23
Name = "m7t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 316
Visible = .F.
Width = 24
Name = "m7t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 316
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 316
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line7      FORM1      @Height = 0
Left = 456
Top = 226
Width = 214
Name = "Line7"
      shape      shape      Shape50      FORM1      CTop = 203
Left = 864
Height = 151
Width = 32
Name = "Shape50"
      shape      shape      Shape51      FORM1      CTop = 203
Left = 834
Height = 151
Width = 32
Name = "Shape51"
      shape      shape      Shape52      FORM1      CTop = 203
Left = 772
Height = 151
Width = 32
Name = "Shape52"
      shape      shape      Shape53      FORM1      CTop = 203
Left = 803
Height = 151
Width = 32
Name = "Shape53"
      shape      shape      Shape54      FORM1      CTop = 203
Left = 742
Height = 151
Width = 32
Name = "Shape54"
      shape      shape      Shape55      FORM1      CTop = 203
Left = 680
Height = 151
Width = 32
Name = "Shape55"
      shape      shape      Shape56      FORM1      CTop = 203
Left = 711
Height = 151
Width = 32
Name = "Shape56"
      label      label      8_1      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 684
Top = 209
Width = 24
Name = "8_1"
      label      label      8_2      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 715
Top = 209
Width = 24
Name = "8_2"
      label      label      8_3      FORM1      nFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 746
Top = 209
Width = 24
Name = "8_3"
      label      label      8_4      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 777
Top = 209
Width = 23
Name = "8_4"
      label      label      8_5      FORM1      nFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 807
Top = 209
Width = 24
Name = "8_5"
      label      label      8_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 838
Top = 209
Width = 24
ForeColor = 0,128,255
Name = "8_6"
      label      label      8_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 869
Top = 209
Width = 23
ForeColor = 255,0,0
Name = "8_7"
      label      label      m8t1      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 232
Visible = .F.
Width = 24
Name = "m8t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t2      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 232
Visible = .F.
Width = 24
Name = "m8t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t3      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 232
Visible = .F.
Width = 24
Name = "m8t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t4      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 232
Visible = .F.
Width = 23
Name = "m8t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t5      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 232
Visible = .F.
Width = 24
Name = "m8t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 232
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 232
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t8      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 253
Visible = .F.
Width = 24
Name = "m8t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t9      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 253
Visible = .F.
Width = 24
Name = "m8t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t10      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 253
Visible = .F.
Width = 24
Name = "m8t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t11      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 253
Visible = .F.
Width = 23
Name = "m8t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t12      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 253
Visible = .F.
Width = 24
Name = "m8t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 253
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 253
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t15      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 274
Visible = .F.
Width = 24
Name = "m8t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t16      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 274
Visible = .F.
Width = 24
Name = "m8t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t17      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 274
Visible = .F.
Width = 24
Name = "m8t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t18      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 274
Visible = .F.
Width = 23
Name = "m8t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t19      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 274
Visible = .F.
Width = 24
Name = "m8t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 274
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 274
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t22      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 295
Visible = .F.
Width = 24
Name = "m8t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t23      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 295
Visible = .F.
Width = 24
Name = "m8t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t24      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 295
Visible = .F.
Width = 24
Name = "m8t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 295
Visible = .F.
Width = 23
Name = "m8t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 295
Visible = .F.
Width = 24
Name = "m8t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 295
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 295
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t29      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 316
Visible = .F.
Width = 24
Name = "m8t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t30      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 316
Visible = .F.
Width = 24
Name = "m8t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t31      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 316
Visible = .F.
Width = 24
Name = "m8t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 316
Visible = .F.
Width = 23
Name = "m8t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 316
Visible = .F.
Width = 24
Name = "m8t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 316
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 316
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line8      FORM1      @Height = 0
Left = 681
Top = 226
Width = 214
Name = "Line8"
      shape      shape      Shape57      FORM1      CTop = 383
Left = 189
Height = 151
Width = 32
Name = "Shape57"
      shape      shape      Shape58      FORM1      CTop = 383
Left = 159
Height = 151
Width = 32
Name = "Shape58"
      shape      shape      Shape59      FORM1      BTop = 383
Left = 97
Height = 151
Width = 32
Name = "Shape59"
      shape      shape      Shape60      FORM1      CTop = 383
Left = 128
Height = 151
Width = 32
Name = "Shape60"
      shape      shape      Shape61      FORM1      BTop = 383
Left = 67
Height = 151
Width = 32
Name = "Shape61"
      shape      shape      Shape62      FORM1      ATop = 383
Left = 5
Height = 151
Width = 32
Name = "Shape62"
      shape      shape      Shape63      FORM1      BTop = 383
Left = 36
Height = 151
Width = 32
Name = "Shape63"
      label      label      9_1      FORM1      lFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 9
Top = 389
Width = 24
Name = "9_1"
      label      label      9_2      FORM1      mFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 40
Top = 389
Width = 24
Name = "9_2"
      label      label      9_3      FORM1      mFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 71
Top = 389
Width = 24
Name = "9_3"
      label      label      9_4      FORM1      nFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 102
Top = 389
Width = 23
Name = "9_4"
      label      label      9_5      FORM1      nFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 132
Top = 389
Width = 24
Name = "9_5"
      label      label      9_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 163
Top = 389
Width = 24
ForeColor = 0,128,255
Name = "9_6"
      label      label      9_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 194
Top = 389
Width = 23
ForeColor = 255,0,0
Name = "9_7"
      label      label      m9t1      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 412
Visible = .F.
Width = 24
Name = "m9t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t2      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 412
Visible = .F.
Width = 24
Name = "m9t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t3      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 412
Visible = .F.
Width = 24
Name = "m9t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t4      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 412
Visible = .F.
Width = 23
Name = "m9t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t5      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 412
Visible = .F.
Width = 24
Name = "m9t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 412
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 412
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t8      FORM1      iAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 433
Visible = .F.
Width = 24
Name = "m9t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t9      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 433
Visible = .F.
Width = 24
Name = "m9t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t10      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 433
Visible = .F.
Width = 24
Name = "m9t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t11      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 433
Visible = .F.
Width = 23
Name = "m9t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t12      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 433
Visible = .F.
Width = 24
Name = "m9t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 433
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 433
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t15      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 454
Visible = .F.
Width = 24
Name = "m9t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t16      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 454
Visible = .F.
Width = 24
Name = "m9t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t17      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 454
Visible = .F.
Width = 24
Name = "m9t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t18      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 454
Visible = .F.
Width = 23
Name = "m9t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t19      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 454
Visible = .F.
Width = 24
Name = "m9t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 454
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 454
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t22      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 475
Visible = .F.
Width = 24
Name = "m9t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t23      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 475
Visible = .F.
Width = 24
Name = "m9t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t24      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 475
Visible = .F.
Width = 24
Name = "m9t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t25      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 475
Visible = .F.
Width = 23
Name = "m9t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t26      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 475
Visible = .F.
Width = 24
Name = "m9t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 475
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 475
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t29      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 496
Visible = .F.
Width = 24
Name = "m9t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t30      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 496
Visible = .F.
Width = 24
Name = "m9t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t31      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 496
Visible = .F.
Width = 24
Name = "m9t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t32      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 496
Visible = .F.
Width = 23
Name = "m9t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t33      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 496
Visible = .F.
Width = 24
Name = "m9t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 496
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 496
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line9      FORM1      >Height = 0
Left = 6
Top = 406
Width = 214
Name = "Line9"
      shape      shape      Shape64      FORM1      CTop = 383
Left = 414
Height = 151
Width = 32
Name = "Shape64"
      shape      shape      Shape65      FORM1      CTop = 383
Left = 384
Height = 151
Width = 32
Name = "Shape65"
      shape      shape      Shape66      FORM1      CTop = 383
Left = 322
Height = 151
Width = 32
Name = "Shape66"
      shape      shape      Shape67      FORM1      CTop = 383
Left = 353
Height = 151
Width = 32
Name = "Shape67"
      shape      shape      Shape68      FORM1      CTop = 383
Left = 292
Height = 151
Width = 32
Name = "Shape68"
      shape      shape      Shape69      FORM1      CTop = 383
Left = 230
Height = 151
Width = 32
Name = "Shape69"
      shape      shape      Shape70      FORM1      CTop = 383
Left = 261
Height = 151
Width = 32
Name = "Shape70"
      label      label      10_1      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 234
Top = 389
Width = 24
Name = "10_1"
      label      label      10_2      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 265
Top = 389
Width = 24
Name = "10_2"
      label      label      10_3      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 296
Top = 389
Width = 24
Name = "10_3"
      label      label      10_4      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 327
Top = 389
Width = 23
Name = "10_4"
      label      label      10_5      FORM1      oFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 357
Top = 389
Width = 24
Name = "10_5"
      label      label      10_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 388
Top = 389
Width = 24
ForeColor = 0,128,255
Name = "10_6"
      label      label      10_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 419
Top = 389
Width = 23
ForeColor = 255,0,0
Name = "10_7"
      label      label      m10t1      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 412
Visible = .F.
Width = 24
Name = "m10t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t2      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 412
Visible = .F.
Width = 24
Name = "m10t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t3      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 412
Visible = .F.
Width = 24
Name = "m10t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t4      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 412
Visible = .F.
Width = 23
Name = "m10t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t5      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 412
Visible = .F.
Width = 24
Name = "m10t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 412
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 412
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t8      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 433
Visible = .F.
Width = 24
Name = "m10t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t9      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 433
Visible = .F.
Width = 24
Name = "m10t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t10      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 433
Visible = .F.
Width = 24
Name = "m10t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t11      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 433
Visible = .F.
Width = 23
Name = "m10t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t12      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 433
Visible = .F.
Width = 24
Name = "m10t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 433
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 433
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t15      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 454
Visible = .F.
Width = 24
Name = "m10t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t16      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 454
Visible = .F.
Width = 24
Name = "m10t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t17      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 454
Visible = .F.
Width = 24
Name = "m10t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t18      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 454
Visible = .F.
Width = 23
Name = "m10t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t19      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 454
Visible = .F.
Width = 24
Name = "m10t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 454
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 454
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t22      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 475
Visible = .F.
Width = 24
Name = "m10t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t23      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 475
Visible = .F.
Width = 24
Name = "m10t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t24      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 475
Visible = .F.
Width = 24
Name = "m10t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t25      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 475
Visible = .F.
Width = 23
Name = "m10t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t26      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 475
Visible = .F.
Width = 24
Name = "m10t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 475
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 475
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t29      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 496
Visible = .F.
Width = 24
Name = "m10t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t30      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 496
Visible = .F.
Width = 24
Name = "m10t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t31      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 496
Visible = .F.
Width = 24
Name = "m10t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t32      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 496
Visible = .F.
Width = 23
Name = "m10t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t33      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 496
Visible = .F.
Width = 24
Name = "m10t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 496
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 496
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line10      FORM1      AHeight = 0
Left = 231
Top = 406
Width = 214
Name = "Line10"
      shape      shape      Shape71      FORM1      CTop = 383
Left = 639
Height = 151
Width = 32
Name = "Shape71"
      shape      shape      Shape72      FORM1      CTop = 383
Left = 609
Height = 151
Width = 32
Name = "Shape72"
      shape      shape      Shape73      FORM1      CTop = 383
Left = 547
Height = 151
Width = 32
Name = "Shape73"
      shape      shape      Shape74      FORM1      CTop = 383
Left = 578
Height = 151
Width = 32
Name = "Shape74"
      shape      shape      Shape75      FORM1      CTop = 383
Left = 517
Height = 151
Width = 32
Name = "Shape75"
      shape      shape      Shape76      FORM1      CTop = 383
Left = 455
Height = 151
Width = 32
Name = "Shape76"
      shape      shape      Shape77      FORM1      CTop = 383
Left = 486
Height = 151
Width = 32
Name = "Shape77"
      label      label      11_1      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 459
Top = 389
Width = 24
Name = "11_1"
      label      label      11_2      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 490
Top = 389
Width = 24
Name = "11_2"
      label      label      11_3      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 521
Top = 389
Width = 24
Name = "11_3"
      label      label      11_4      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 552
Top = 389
Width = 23
Name = "11_4"
      label      label      11_5      FORM1      oFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 582
Top = 389
Width = 24
Name = "11_5"
      label      label      11_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 613
Top = 389
Width = 24
ForeColor = 0,128,255
Name = "11_6"
      label      label      11_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 644
Top = 389
Width = 23
ForeColor = 255,0,0
Name = "11_7"
      label      label      m11t1      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 412
Visible = .F.
Width = 24
Name = "m11t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t2      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 412
Visible = .F.
Width = 24
Name = "m11t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t3      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 412
Visible = .F.
Width = 24
Name = "m11t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t4      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 412
Visible = .F.
Width = 23
Name = "m11t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t5      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 412
Visible = .F.
Width = 24
Name = "m11t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 412
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 412
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t8      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 433
Visible = .F.
Width = 24
Name = "m11t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t9      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 433
Visible = .F.
Width = 24
Name = "m11t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t10      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 433
Visible = .F.
Width = 24
Name = "m11t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t11      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 433
Visible = .F.
Width = 23
Name = "m11t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t12      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 433
Visible = .F.
Width = 24
Name = "m11t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 433
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 433
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t15      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 454
Visible = .F.
Width = 24
Name = "m11t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t16      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 454
Visible = .F.
Width = 24
Name = "m11t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t17      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 454
Visible = .F.
Width = 24
Name = "m11t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t18      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 454
Visible = .F.
Width = 23
Name = "m11t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t19      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 454
Visible = .F.
Width = 24
Name = "m11t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 454
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 454
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t22      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 475
Visible = .F.
Width = 24
Name = "m11t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t23      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 475
Visible = .F.
Width = 24
Name = "m11t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t24      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 475
Visible = .F.
Width = 24
Name = "m11t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t25      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 475
Visible = .F.
Width = 23
Name = "m11t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t26      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 475
Visible = .F.
Width = 24
Name = "m11t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 475
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 475
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t29      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 496
Visible = .F.
Width = 24
Name = "m11t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t30      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 496
Visible = .F.
Width = 24
Name = "m11t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t31      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 496
Visible = .F.
Width = 24
Name = "m11t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t32      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 496
Visible = .F.
Width = 23
Name = "m11t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t33      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 496
Visible = .F.
Width = 24
Name = "m11t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 496
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 496
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line11      FORM1      AHeight = 0
Left = 456
Top = 406
Width = 214
Name = "Line11"
      shape      shape      Shape78      FORM1      CTop = 383
Left = 864
Height = 151
Width = 32
Name = "Shape78"
      shape      shape      Shape79      FORM1      CTop = 383
Left = 834
Height = 151
Width = 32
Name = "Shape79"
      shape      shape      Shape80      FORM1      CTop = 383
Left = 772
Height = 151
Width = 32
Name = "Shape80"
      shape      shape      Shape81      FORM1      CTop = 383
Left = 803
Height = 151
Width = 32
Name = "Shape81"
      shape      shape      Shape82      FORM1      CTop = 383
Left = 742
Height = 151
Width = 32
Name = "Shape82"
      shape      shape      Shape83      FORM1      CTop = 383
Left = 680
Height = 151
Width = 32
Name = "Shape83"
      shape      shape      Shape84      FORM1      CTop = 383
Left = 711
Height = 151
Width = 32
Name = "Shape84"
      label      label      12_1      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MO"
Height = 15
Left = 684
Top = 389
Width = 24
Name = "12_1"
      label      label      12_2      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DI"
Height = 15
Left = 715
Top = 389
Width = 24
Name = "12_2"
      label      label      12_3      FORM1      oFontBold = .T.
Alignment = 2
Caption = "MI"
Height = 15
Left = 746
Top = 389
Width = 24
Name = "12_3"
      label      label      12_4      FORM1      oFontBold = .T.
Alignment = 2
Caption = "DO"
Height = 15
Left = 777
Top = 389
Width = 23
Name = "12_4"
      label      label      12_5      FORM1      oFontBold = .T.
Alignment = 2
Caption = "FR"
Height = 15
Left = 807
Top = 389
Width = 24
Name = "12_5"
      label      label      12_6      FORM1      FontBold = .T.
Alignment = 2
Caption = "SA"
Height = 15
Left = 838
Top = 389
Width = 24
ForeColor = 0,128,255
Name = "12_6"
      label      label      12_7      FORM1      FontBold = .T.
Alignment = 2
Caption = "SO"
Height = 15
Left = 869
Top = 389
Width = 23
ForeColor = 255,0,0
Name = "12_7"
      label      label      m12t1      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 412
Visible = .F.
Width = 24
Name = "m12t1"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t2      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 412
Visible = .F.
Width = 24
Name = "m12t2"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t3      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 412
Visible = .F.
Width = 24
Name = "m12t3"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t4      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 412
Visible = .F.
Width = 23
Name = "m12t4"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t5      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 412
Visible = .F.
Width = 24
Name = "m12t5"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t6      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 412
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t6"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t7      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 412
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t7"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t8      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 433
Visible = .F.
Width = 24
Name = "m12t8"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t9      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 433
Visible = .F.
Width = 24
Name = "m12t9"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t10      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 433
Visible = .F.
Width = 24
Name = "m12t10"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t11      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 433
Visible = .F.
Width = 23
Name = "m12t11"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t12      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 433
Visible = .F.
Width = 24
Name = "m12t12"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t13      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 433
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t13"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t14      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 433
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t14"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t15      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 454
Visible = .F.
Width = 24
Name = "m12t15"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t16      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 454
Visible = .F.
Width = 24
Name = "m12t16"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t17      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 454
Visible = .F.
Width = 24
Name = "m12t17"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t18      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 454
Visible = .F.
Width = 23
Name = "m12t18"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t19      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 454
Visible = .F.
Width = 24
Name = "m12t19"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t20      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 454
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t20"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t21      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 454
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t21"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t22      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 475
Visible = .F.
Width = 24
Name = "m12t22"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t23      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 475
Visible = .F.
Width = 24
Name = "m12t23"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t24      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 475
Visible = .F.
Width = 24
Name = "m12t24"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t25      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 475
Visible = .F.
Width = 23
Name = "m12t25"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t26      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 475
Visible = .F.
Width = 24
Name = "m12t26"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t27      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 475
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t27"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t28      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 475
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t28"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t29      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 496
Visible = .F.
Width = 24
Name = "m12t29"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t30      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 496
Visible = .F.
Width = 24
Name = "m12t30"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t31      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 496
Visible = .F.
Width = 24
Name = "m12t31"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t32      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 496
Visible = .F.
Width = 23
Name = "m12t32"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t33      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 496
Visible = .F.
Width = 24
Name = "m12t33"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t34      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 496
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t34"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t35      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 496
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t35"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           line      line      Line12      FORM1      AHeight = 0
Left = 681
Top = 406
Width = 214
Name = "Line12"
      label      label      ber1      FORM1      aFontBold = .T.
Caption = "Januar"
Height = 15
Left = 7
Top = 8
Width = 210
Name = "ber1"
      shape      shape      Shape86      FORM1      ATop = 4
Left = 230
Height = 22
Width = 216
Name = "Shape86"
      label      label      ber2      FORM1      dFontBold = .T.
Caption = "Februar"
Height = 15
Left = 234
Top = 8
Width = 209
Name = "ber2"
      shape      shape      Shape87      FORM1      ATop = 4
Left = 455
Height = 22
Width = 216
Name = "Shape87"
      label      label      ber3      FORM1      aFontBold = .T.
Caption = "Mrz"
Height = 15
Left = 457
Top = 8
Width = 210
Name = "ber3"
      shape      shape      Shape88      FORM1      ATop = 4
Left = 680
Height = 22
Width = 216
Name = "Shape88"
      label      label      ber4      FORM1      bFontBold = .T.
Caption = "April"
Height = 15
Left = 684
Top = 8
Width = 209
Name = "ber4"
      shape      shape      Shape89      FORM1      ATop = 182
Left = 5
Height = 22
Width = 216
Name = "Shape89"
      label      label      ber5      FORM1      `FontBold = .T.
Caption = "Mai"
Height = 15
Left = 7
Top = 186
Width = 210
Name = "ber5"
      shape      shape      Shape90      FORM1      CTop = 182
Left = 230
Height = 22
Width = 216
Name = "Shape90"
      label      label      ber6      FORM1      cFontBold = .T.
Caption = "Juni"
Height = 15
Left = 234
Top = 186
Width = 209
Name = "ber6"
      shape      shape      Shape91      FORM1      CTop = 182
Left = 455
Height = 22
Width = 216
Name = "Shape91"
      label      label      ber7      FORM1      cFontBold = .T.
Caption = "Juli"
Height = 15
Left = 457
Top = 186
Width = 210
Name = "ber7"
      shape      shape      Shape92      FORM1      CTop = 182
Left = 680
Height = 22
Width = 216
Name = "Shape92"
      label      label      ber8      FORM1      eFontBold = .T.
Caption = "August"
Height = 15
Left = 684
Top = 186
Width = 209
Name = "ber8"
      shape      shape      Shape93      FORM1      ATop = 362
Left = 5
Height = 22
Width = 216
Name = "Shape93"
      label      label      ber9      FORM1      fFontBold = .T.
Caption = "September"
Height = 15
Left = 7
Top = 366
Width = 210
Name = "ber9"
      shape      shape      Shape94      FORM1      CTop = 362
Left = 230
Height = 22
Width = 216
Name = "Shape94"
      label      label      ber10      FORM1      gFontBold = .T.
Caption = "Oktober"
Height = 15
Left = 234
Top = 366
Width = 209
Name = "ber10"
      shape      shape      Shape95      FORM1      CTop = 362
Left = 455
Height = 22
Width = 216
Name = "Shape95"
      label      label      ber11      FORM1      hFontBold = .T.
Caption = "November"
Height = 15
Left = 457
Top = 366
Width = 210
Name = "ber11"
      shape      shape      Shape96      FORM1      CTop = 362
Left = 680
Height = 22
Width = 216
Name = "Shape96"
      label      label      ber12      FORM1      hFontBold = .T.
Caption = "Dezember"
Height = 15
Left = 684
Top = 366
Width = 209
Name = "ber12"
      editbox      editbox      Edit1      FORM1      PHeight = 87
Left = 5
MaxLength = 200
Top = 538
Width = 667
Name = "Edit1"
      PROCEDURE InteractiveChange
IF LEN(ALLTRIM(thisform.edit1.Value)) < 200
	thisform.reststring.caption = ALLTRIM(STR(LEN(ALLTRIM(thisform.edit1.Value)),3,0))+"/200"
ELSE
	RETURN
endif
ENDPROC
     E    ,  ,                        5   %                             U  ]  %CC    >
J / T    CCCC    > Z /200 V  B  U  THISFORM EDIT1 VALUE
 RESTSTRING CAPTION InteractiveChange,     1  A A 1                              )   ,                        
commandbutton      
commandbutton      Command1      FORM1      YTop = 542
Left = 796
Height = 27
Width = 100
Caption = "drucken"
Name = "Command1"
      4PROCEDURE Click
thisform.printform.click
ENDPROC
                                      Ҥ   %   \       q      k             U   
      U  THISFORM	 PRINTFORM CLICK Click,     1  1                       )       )                            
commandbutton      
commandbutton      Command2      FORM1      [Top = 569
Left = 796
Height = 27
Width = 100
Caption = "speichern"
Name = "Command2"
     tPROCEDURE Click
SELECT rkalender
LOCATE FOR pcg_f2 = fileneu .and. pcg_f3 = welchesjahr
IF EOF()
	APPEND BLANK
	FLUSH
	replace rkalender.pcg_f2 WITH fileneu
	replace rkalender.pcg_f3 WITH welchesjahr	
	flush
endif
hstagesstring = ""
FOR hsm = 1 TO 12
	FOR hst = 1 TO 42
		hsfeldn = "m"+ALLTRIM(STR(hsm,2,0))+"t"+ALLTRIM(STR(hst,2,0))
		hstagesstring = hstagesstring + IIF(EMPTY(thisform.&hsfeldn..tag)," ","1")
	next
next
replace rkalender.pcg_f4 WITH SUBSTR(hstagesstring ,1,168)
hstagesstring = SUBSTR(hstagesstring ,169)
replace rkalender.pcg_f5 WITH SUBSTR(hstagesstring ,1,168)
hstagesstring = SUBSTR(hstagesstring ,169)
replace rkalender.pcg_f6 WITH SUBSTR(hstagesstring ,1)
hstagesstring = ""
replace rkalender.pcg_f7 WITH ALLTRIM(thisform.edit1.Value)

FLUSH
SELECT rkalender
USE
fensteroffen = 0
myform1.visible = .t.
thisform.release
ENDPROC
     u    \  \                        X   %                          U   F   -     	 %C+Y   [ >     >     [ 
 T     (  (*/ T  mCC  Z tCC  ZN hstagesstring = hstagesstring + IIF(EMPTY(thisform.&hsfeldn..tag)," ","1")
   >  	 C \ T C \ >  
 C \ T C \ >   C \
 T    >   C
    [ F   Q
 T   T  a
 
   U 	 RKALENDER PCG_F2 FILENEU PCG_F3 WELCHESJAHR
 HSTAGESSTRING HSM HST HSFELDN PCG_F4 PCG_F5 PCG_F6 PCG_F7 THISFORM EDIT1 VALUE FENSTEROFFEN MYFORM1 VISIBLE RELEASE Click,     1 q  Q A A A  qqA A !!Q B q A    1                       i      )   \                        label      label      m1t36      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 158
Visible = .F.
Width = 24
Name = "m1t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t37      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 158
Visible = .F.
Width = 24
Name = "m1t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t38      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 158
Visible = .F.
Width = 24
Name = "m1t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 158
Visible = .F.
Width = 23
Name = "m1t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 158
Visible = .F.
Width = 24
Name = "m1t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 158
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m1t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m1t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 158
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m1t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 158
Visible = .F.
Width = 24
Name = "m2t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 158
Visible = .F.
Width = 24
Name = "m2t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 158
Visible = .F.
Width = 24
Name = "m2t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 158
Visible = .F.
Width = 23
Name = "m2t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 158
Visible = .F.
Width = 24
Name = "m2t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 158
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m2t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m2t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 158
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m2t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 158
Visible = .F.
Width = 24
Name = "m3t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 158
Visible = .F.
Width = 24
Name = "m3t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 158
Visible = .F.
Width = 24
Name = "m3t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 158
Visible = .F.
Width = 23
Name = "m3t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 158
Visible = .F.
Width = 24
Name = "m3t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 158
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m3t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m3t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 158
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m3t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 158
Visible = .F.
Width = 24
Name = "m4t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 158
Visible = .F.
Width = 24
Name = "m4t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 158
Visible = .F.
Width = 24
Name = "m4t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 158
Visible = .F.
Width = 23
Name = "m4t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 158
Visible = .F.
Width = 24
Name = "m4t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 158
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m4t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m4t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 158
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m4t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t36      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 336
Visible = .F.
Width = 24
Name = "m5t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t37      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 336
Visible = .F.
Width = 24
Name = "m5t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t38      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 336
Visible = .F.
Width = 24
Name = "m5t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 336
Visible = .F.
Width = 23
Name = "m5t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 336
Visible = .F.
Width = 24
Name = "m5t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 336
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m5t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m5t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 336
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m5t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 336
Visible = .F.
Width = 24
Name = "m6t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 336
Visible = .F.
Width = 24
Name = "m6t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 336
Visible = .F.
Width = 24
Name = "m6t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 336
Visible = .F.
Width = 23
Name = "m6t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 336
Visible = .F.
Width = 24
Name = "m6t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 336
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m6t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m6t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 336
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m6t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 336
Visible = .F.
Width = 24
Name = "m7t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 336
Visible = .F.
Width = 24
Name = "m7t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 336
Visible = .F.
Width = 24
Name = "m7t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 336
Visible = .F.
Width = 23
Name = "m7t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 336
Visible = .F.
Width = 24
Name = "m7t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 336
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m7t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m7t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 336
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m7t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t36      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 336
Visible = .F.
Width = 24
Name = "m8t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t37      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 336
Visible = .F.
Width = 24
Name = "m8t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t38      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 336
Visible = .F.
Width = 24
Name = "m8t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 336
Visible = .F.
Width = 23
Name = "m8t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 336
Visible = .F.
Width = 24
Name = "m8t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 336
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m8t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m8t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 336
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m8t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t36      FORM1      jAlignment = 2
Caption = ""
Height = 15
Left = 9
Top = 516
Visible = .F.
Width = 24
Name = "m9t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t37      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 40
Top = 516
Visible = .F.
Width = 24
Name = "m9t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t38      FORM1      kAlignment = 2
Caption = ""
Height = 15
Left = 71
Top = 516
Visible = .F.
Width = 24
Name = "m9t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t39      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 102
Top = 516
Visible = .F.
Width = 23
Name = "m9t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t40      FORM1      lAlignment = 2
Caption = ""
Height = 15
Left = 132
Top = 516
Visible = .F.
Width = 24
Name = "m9t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 163
Top = 516
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m9t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m9t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 194
Top = 516
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m9t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t36      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 234
Top = 516
Visible = .F.
Width = 24
Name = "m10t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t37      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 265
Top = 516
Visible = .F.
Width = 24
Name = "m10t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t38      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 296
Top = 516
Visible = .F.
Width = 24
Name = "m10t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t39      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 327
Top = 516
Visible = .F.
Width = 23
Name = "m10t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t40      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 357
Top = 516
Visible = .F.
Width = 24
Name = "m10t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 388
Top = 516
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m10t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m10t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 419
Top = 516
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m10t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t36      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 459
Top = 516
Visible = .F.
Width = 24
Name = "m11t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t37      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 490
Top = 516
Visible = .F.
Width = 24
Name = "m11t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t38      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 521
Top = 516
Visible = .F.
Width = 24
Name = "m11t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t39      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 552
Top = 516
Visible = .F.
Width = 23
Name = "m11t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t40      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 582
Top = 516
Visible = .F.
Width = 24
Name = "m11t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 613
Top = 516
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m11t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m11t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 644
Top = 516
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m11t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t36      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 684
Top = 516
Visible = .F.
Width = 24
Name = "m12t36"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t37      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 715
Top = 516
Visible = .F.
Width = 24
Name = "m12t37"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t38      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 746
Top = 516
Visible = .F.
Width = 24
Name = "m12t38"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t39      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 777
Top = 516
Visible = .F.
Width = 23
Name = "m12t39"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t40      FORM1      mAlignment = 2
Caption = ""
Height = 15
Left = 807
Top = 516
Visible = .F.
Width = 24
Name = "m12t40"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t41      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 838
Top = 516
Visible = .F.
Width = 24
ForeColor = 0,128,255
Name = "m12t41"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           label      label      m12t42      FORM1      Alignment = 2
Caption = ""
Height = 15
Left = 869
Top = 516
Visible = .F.
Width = 23
ForeColor = 255,0,0
Name = "m12t42"
      PROCEDURE Click

IF this.Tag = "1"
	this.Tag = ""
ELSE
	this.Tag = "1"
ENDIF
this.refresh
ENDPROC
PROCEDURE Refresh
IF .not. EMPTY(this.Tag)
	this.BackColor = RGB(0,255,255)
ELSE
	this.BackColor = RGB(240,240,240)
endif
ENDPROC
                                   T   %         =     !            U  O  %    1%  T      >  T    1 
     U  THIS TAG REFRESHT  %C   
,  T   C ^ M  T   C^  U  THIS TAG	 BACKCOLOR Click,      Refresh     1 R A  2 1 A 1                       `         ~      
    )                           
commandbutton      
commandbutton      Command3      FORM1      [Top = 596
Left = 796
Height = 27
Width = 100
Caption = "abbrechen"
Name = "Command3"
      lPROCEDURE Click
SELECT rkalender
USE
fensteroffen = 0
myform1.visible = .t.
thisform.release
ENDPROC
                                    4   %                             U  3  F   Q
 T   T  a
    U 	 RKALENDER FENSTEROFFEN MYFORM1 VISIBLE THISFORM RELEASE Click,     1 q A    1                       a       )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 600
Left = 762
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      
reststring      FORM1      ]Caption = "reststring"
Height = 16
Left = 677
Top = 540
Width = 73
Name = "reststring"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0#   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _63U0NX9Y51451458644      /  F      ]                          ^      g                       WINDOWS _63U0PCGIW1451458644                                                                       WINDOWS _63U0NX9Y61451458644p      |                                                               WINDOWS _63U0NX9Y71392149304!      6  K  [  h        4                                               WINDOWS _63U0NX9Y81411674937%      :  O  _  l      /  R                                               WINDOWS _63U0NX9Y91396396097'      (  (  )(  6(      (  +                                               WINDOWS _63U0NX9YA1392138550.      .  .  .  .                                                           WINDOWS _63U0NX9YB1392139824t/      /  /  /  /                                                           WINDOWS _63U0NX9Y513921491010      '0  <0  K0  X0      0  2                                               WINDOWS _63U0NX9YF1392147273
5      5  (5  85  E5                                                           WINDOWS _63U0NX9YH13921507415      5  5  5   6      6  7                                               WINDOWS _63U0NX9Y51392149101>8      J8  V8  i8  v8                                                           WINDOWS _63U0PCGIX1392139824=      =  =  =  =                                                           WINDOWS _63U0PCGIY1392145836'>      6>  E>  R>  s>                                                           WINDOWS _63U0PCGIZ1392139824>      >   ?  ?  0?                                                           WINDOWS _63U0PCGJ01392145836b?      q?  ?  ?  ?                                                           WINDOWS _63U0PCGJ11392139824@      -@  ;@  J@  k@                                                           WINDOWS _63U0PCGJ21392145836@      @  @  @  @                                                           WINDOWS _63U0PCGJ31392139824YA      gA  uA  A  A                                                           WINDOWS _63U0PCGJ41392146989A      A  A  B  #B      B  B                                               WINDOWS _63U0PCGJ51392139824C      C  C  C  D                                                           WINDOWS _63U0PCGJ61392145836@D      OD  ^D  kD  D                                                           WINDOWS _63U0PCGJ71392139824D      E  E  (E  IE                                                           WINDOWS _63U0PCGJ81392146731E      E  E  E  E      GF  CG                                               WINDOWS _63U0PCGJ91392139929H      H  H  H  I                                                           WINDOWS _63U0PCGJA1392146731PI      _I  nI  {I  I      bJ  K                                               WINDOWS _63U0PCGJB1392139824M      M  M  M  M                                                           WINDOWS _63U0PCGJC13921458369N      HN  WN  dN  N                                                           WINDOWS _63U0PCGJD1392139824N      O  O  !O  BO                                                           WINDOWS _63U0PCGJE1392145836uO      O  O  O  O                                                           WINDOWS _63U0V8TT913921491012P      GP  \P  lP  yP      )Q  R                                               WINDOWS _63U0X37YI1392150741xS      S  S  S  S      <T  {U                                               WINDOWS _6850VXF1V14027629363W  CW  cW  rW  W  W                                                           COMMENT RESERVED                                X                                                            XC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      PAlias = "beihilfe"
CursorSource = 2023\user001\beihilfe.dbf
Name = "Cursor1"
      2      1      form      form      FORM1     (BorderStyle = 2
Height = 542
Width = 834
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Erfassung von Beihilfe"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     OPROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdbeihilfe.column1.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column2.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column3.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column4.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column5.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column6.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column7.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column8.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
thisform.grdbeihilfe.column9.text1.fontsize = thisform.grdbeihilfe.column1.fontsize
ENDPROC
PROCEDURE Init
mybeihilfe = thisform
IF thisform.Top < 0
	thisform.Top = 0
endif

PUBLIC hsiststart
hsiststart = .t.

namensfile = fileneu

thisform.persname.Value = myform1.z0.caption

SELECT beihilfe
SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr .and. month(beihilfe.pcg_f6) = monat 
GO top

thisform.berechnen.click
hsiststart = .f.


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Load
SET ANSI off
SET AUTOSAVE off
SET BLOCKSIZE to 64
SET CARRY off
SET CENTURY on
SET COLLATE to "machine"
SET CONFIRM on
SET DATE german
*SET DECIMALS to 2
SET DELETED on
SET EXACT off
SET EXCLUSIVE off
SET HOURS to 24
SET LOCK off
SET MARK TO 
*SET MEMOWIDTH 
SET MULTILOCKS on 
SET NEAR off
SET NULL off
SET REPROCESS to 1
SET SAFETY on
SET SECONDS off
SET SYSFORMATS off
SET TALK off
SET UNIQUE off
set point to ","
set separator to "."
ENDPROC
                                   |   %         {  9   	            U  E C    " T           " T           " T           " T   	        " T   
        " T           " T           " T   
        " T            U  THISFORM SIZER	 FRMRESIZE GRDBEIHILFE COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9
 T    %   
1  T     7  T a
 T   T    	 
  F * G(   
  	
 C  H 	 #)
     T -
     T      T     
    T  a U 
 MYBEIHILFE THISFORM TOP
 HSISTSTART
 NAMENSFILE FILENEU PERSNAME VALUE MYFORM1 Z0 CAPTION BEIHILFE PCG_F2 PCG_F3 WELCHESJAHR PCG_F6 MONAT	 BERECHNEN CLICK SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  Gd GB GC(@ G G  Gk( machine G	  G german G  G G G9( GI G:( G_  GF Gw GM( G.  G} G G2 G6 G;( , G<( . U  GERMAN Resize,      Init      Load	    1 !!!!!!!!!2  AA r   r Q    rq  2 a a  a a !a  b a a  a a b a a  a a a a a   1                       )        D  Z  
      u  D  *    )                           
commandbutton      
commandbutton      Command1      FORM1      yTop = 506
Left = 12
Height = 28
Width = 72
Cancel = .T.
Caption = "schlieen"
ToolTipText = ""
Name = "Command1"
      CPROCEDURE Click
myform1.visible = .t.
thisform.release
ENDPROC
                                         %   p                          U    T   a
    U  MYFORM1 VISIBLE THISFORM RELEASE Click,     1   1                       8       )                            
commandbutton      
commandbutton      Command2      FORM1      Top = 506
Left = 87
Height = 28
Width = 59
Cancel = .F.
Caption = "drucken"
ToolTipText = "LINKE MT = Diesen Monat drucken  RECHTE MT = das ganzee Jahr drucken"
Name = "Command2"
     
PROCEDURE RightClick
IF .not. OK("bersicht fr das ganze Jahr drucken?")
	RETURN
ENDIF

IF direktzumdruckerQ() = true
	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr 
	GO top

	PUBLIC HSnurmonat
	HSnurmonat = .f.

	REPORT FORM beihilfe WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
ELSE

	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview


	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr 
	GO top

	PUBLIC HSnurmonat
	HSnurmonat = .f.

	REPORT FORM beihilfe WHILE .not. EOF() NOCONSOLE OBJECT loRepListener

	RELEASE loRepListener
	RELEASE loRepPreview
endif	
ENDPROC
PROCEDURE Click
IF .not. OK("bersicht fr diesen Monat drucken?")
	RETURN
ENDIF

IF direktzumdruckerQ() = true
	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr .and. MONTH(pcg_f6) = monat
	GO top
	PUBLIC HSnurmonat
	HSnurmonat = .t.

	REPORT FORM beihilfe WHILE .not. EOF() NOCONSOLE TO PRINTER prompt
ELSE

	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview


	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr .and. MONTH(pcg_f6) = monat
	GO top
	PUBLIC HSnurmonat
	HSnurmonat = .t.

	REPORT FORM beihilfe WHILE .not. EOF() NOCONSOLE OBJECT loRepListener

	RELEASE loRepListener
	RELEASE loRepPreview
ENDIF

SELECT beihilfe
SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr 
GO top


ENDPROC
         {  {                           %   [      "  R   ~            U  G7 %C% bersicht fr das ganze Jahr drucken?  
;  B  %C    F  G(     	 #) 7  T - ? beihilfe(!"9+C+
 @ T	 
 V	 3 T
 C MyInWindowFixer preview_fixer.prg
 	  T 
 Druckvorschau T a T
  T  T   T   T   T   T a  C 
 	   T C ReportListener T   T  	  F  G(     	 #) 7  T - ? beihilfe9. +C+
 <  <	   U  OK DIREKTZUMDRUCKERQ TRUE BEIHILFE PCG_F2 FILENEU PCG_F3 WELCHESJAHR
 HSNURMONAT LOREPPREVIEW LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER
 LOREPLISTENER LISTENERTYPE PREVIEWCONTAINER5 %C# bersicht fr diesen Monat drucken?  
9  B  %C    F ' G(     	
 C H	 	 #) 7
  T
 a ? beihilfe(!"9+C+
 X T 
 V 3 T C MyInWindowFixer preview_fixer.prg
   T
 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T    F ' G(     	
 C H	 	 #) 7
  T
 a ? beihilfe9. +C+
 <  <   F  G(     	 #) U  OK DIREKTZUMDRUCKERQ TRUE BEIHILFE PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F6 MONAT
 HSNURMONAT LOREPPREVIEW LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER
 LOREPLISTENER LISTENERTYPE PREVIEWCONTAINER
 RightClick,      Click    1 qA A "q Q r     2         A s Q r  r q A 2 QA A "q qQ q     2         A s qQ q  r q A r Q 3                            (     
  6    )   {                        
commandbutton      
commandbutton      	zuzeile13      FORM1      Top = 506
Left = 149
Height = 28
Width = 182
Cancel = .F.
Caption = "bertrag in Hauptbildschirm"
ToolTipText = "betragen der Endsumme in den Hauptbildschirm"
Name = "zuzeile13"
     PROCEDURE Click
SELECT beihilfe

*!*	hsaa = "t"+ALLTRIM(STR(myindex,2,0))
*!*	myform1.&hsaa..value = thisform.endsumme.Value

*SET STEP ON 
myHSbeihilfe = thisform.endsumme.Value
xxxy = ALLTRIM(STR(myindex,3,0))
myform1.T&xxxy..value = myHSbeihilfe 
wert(1+myindex) = myHSbeihilfe * 100
interim(1+zti) = wert(1+myindex) &&vorher HS zeile bruchzahl(zti)
effzahl(1+zti) = wert(1+zti)
index1=zi(1+zti)

k = zi(1+20) + 1
myGet(k, fileneu, "wvw")
hsxx = ALLTRIM(STR(zti,3,0))
wvw.tnam(1+zti) = wert(1+zti)
wvw.effz(1+zti) = effzahl(1+zti)            
myPut(k, fileneu, "wvw")


myform1.visible = .t.

thisform.release
ENDPROC
                                      %   j           y            U   F   T     T CC  Z) myform1.T&xxxy..value = myHSbeihilfe 
 T   d T 	 C   T
 	 C	   T C	   T
 C  C 
    wvw  T CC	  Z" T  	 C	  " T  	 C	 
  C 
    wvw  T  a
    U  BEIHILFE MYHSBEIHILFE THISFORM ENDSUMME VALUE XXXY MYINDEX WERT INTERIM ZTI EFFZAHL INDEX1 ZI K MYGET FILENEU HSXX WVW TNAM EFFZ MYPUT MYFORM1 VISIBLE RELEASE Click,     1 q 6qQRq!!  1                       }      )                           textbox      textbox      endsumme      FORM1      Alignment = 3
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 729
ReadOnly = .T.
Top = 509
Width = 89
Name = "endsumme"
      label      label      Label5      FORM1      aCaption = "Endsumme-Beihilfe"
Height = 15
Left = 609
Top = 513
Width = 115
Name = "Label5"
      
commandbutton      
commandbutton      lschen      FORM1      Top = 506
Left = 512
Height = 28
Width = 72
Cancel = .T.
Caption = "lschen"
ToolTipText = "die aktuelle Zeile lschen"
Name = "lschen"
     PROCEDURE Click
IF .not. EMPTY(beihilfe.pcg_f6)
	IF .not. ok("Ausbezahlte Eintrge sollten nicht gelscht werden! Abrechnung prfen!!"+CHR(13)+"Trotzdem lschen?")
		RETURN
	endif
else		
	IF .not. ok("Soll die Zeile gelscht werden?")
		RETURN
	ENDIF
ENDIF

SELECT beihilfe
DELETE
FLUSH

SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr
GO top
thisform.berechnen.click
thisform.grdbeihilfe.refresh


ENDPROC
     R    9  9                        *   %                          U   %C   
 t %CG Ausbezahlte Eintrge sollten nicht gelscht werden! Abrechnung prfen!!C
  Trotzdem lschen? 
  B   1 %C Soll die Zeile gelscht werden? 
  B   F    [ G(     	 #)
   	 
  
   U  BEIHILFE PCG_F6 OK PCG_F2 FILENEU PCG_F3 WELCHESJAHR THISFORM	 BERECHNEN CLICK GRDBEIHILFE REFRESH Click,     1 1AA A  A A A r A A Q   3                             )   9                        textbox      textbox      persname      FORM1      kEnabled = .F.
Height = 25
Left = 12
Top = 7
Width = 310
DisabledForeColor = 0,0,0
Name = "persname"
      
commandbutton      
commandbutton      	berechnen      FORM1      xTop = 9
Left = 336
Height = 22
Width = 100
Caption = "berechnen"
Enabled = .F.
Visible = .F.
Name = "berechnen"
      PROCEDURE Click

SUM beihilfe.pcg_f9 FOR month(beihilfe.pcg_f6) = monat TO hsbeihilfe
thisform.endsumme.Value = hsbeihilfe
ENDPROC
     &    
  
                            %                             U  5  KC   H (     T     U  BEIHILFE PCG_F9 PCG_F6 MONAT
 HSBEIHILFE THISFORM ENDSUMME VALUE Click,     1 11                       }       )   
                        grid      grid      grdBeihilfe      FORM1     -ColumnCount = 9
DeleteMark = .F.
Height = 453
Left = 12
Panel = 1
ReadOnly = .F.
RecordSource = "beihilfe"
RecordSourceType = 1
ToolTipText = "Die Werte knnen direkt in der Makse eingegeben werden."
Top = 42
Width = 816
HighlightForeColor = 0,0,0
HighlightStyle = 2
Name = "grdBeihilfe"
Column1.ControlSource = "beihilfe.pcg_f12"
Column1.Width = 75
Column1.ReadOnly = .F.
Column1.Name = "Column1"
Column2.ControlSource = "beihilfe.pcg_f4"
Column2.Width = 63
Column2.ReadOnly = .F.
Column2.Name = "Column2"
Column3.ControlSource = "beihilfe.pcg_f5"
Column3.Width = 60
Column3.ReadOnly = .F.
Column3.Name = "Column3"
Column4.ControlSource = "beihilfe.pcg_f6"
Column4.Width = 64
Column4.ReadOnly = .F.
Column4.Name = "Column4"
Column5.ControlSource = "beihilfe.pcg_f10"
Column5.Width = 212
Column5.ReadOnly = .F.
Column5.Name = "Column5"
Column6.ControlSource = "beihilfe.pcg_f8"
Column6.Width = 58
Column6.ReadOnly = .F.
Column6.Name = "Column6"
Column7.ControlSource = "beihilfe.pcg_f13"
Column7.Width = 59
Column7.ReadOnly = .F.
Column7.Name = "Column7"
Column8.ControlSource = "beihilfe.pcg_f9"
Column8.Width = 61
Column8.ReadOnly = .F.
Column8.Name = "Column8"
Column9.ControlSource = "beihilfe.pcg_f11"
Column9.Width = 192
Column9.ReadOnly = .F.
Column9.Name = "Column9"
      header      header      Header1      FORM1.grdBeihilfe.Column1      (Caption = "Rech-Nr."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdBeihilfe.Column2      *Caption = "Rech. Dat."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdBeihilfe.Column3      )Caption = "Beantragt"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdBeihilfe.Column4      *Caption = "Ausbezahlt"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      @PROCEDURE Valid
thisform.berechnen.Click
RETURN .t.
ENDPROC
                                      J   %   c       z      r             U   
      Ba U  THISFORM	 BERECHNEN CLICK Valid,     1  q 1                       5       )                            header      header      Header1      FORM1.grdBeihilfe.Column5      ,Caption = "Beschreibung"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdBeihilfe.Column6      9Alignment = 1
Caption = "Vollbetrag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Valid

SELECT beihilfe
replace beihilfe.pcg_f8 WITH this.value 
replace beihilfe.pcg_f9 WITH ROUND(beihilfe.pcg_f8 * (beihilfe.pcg_f13 / 100),2)
FLUSH
thisform.grdbeihilfe.refresh
thisform.berechnen.click
RETURN .t.
ENDPROC
     {    b  b                           %            	               U  f  F   >     $ >   C      dT [
    
  	 
  Ba U  BEIHILFE PCG_F8 THIS VALUE PCG_F9 PCG_F13 THISFORM GRDBEIHILFE REFRESH	 BERECHNEN CLICK Valid,     1 r 1AA   q 1                              )   b                        header      header      Header1      FORM1.grdBeihilfe.Column7      6Alignment = 2
Caption = "Prozent"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column7      Alignment = 3
BorderStyle = 0
Value = 0.00
Format = "999.99"
InputMask = "999.99"
Margin = 0
MaxLength = 6
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     bPROCEDURE Valid
IF this.Value < 0 .or. this.Value > 100
	WAIT WINDOW "Bereiche 0.00% - 100.00%" TIMEOUT 1
	RETURN .f.
ENDIF
SELECT beihilfe
replace beihilfe.pcg_f13 WITH this.value
replace beihilfe.pcg_f9 WITH ROUND(beihilfe.pcg_f8 * (beihilfe.pcg_f13 / 100),2)
FLUSH
thisform.berechnen.click
thisform.grdbeihilfe.refresh
RETURN .t.
ENDPROC
                                   t   %   M      v  
   \            U   " %    
    dQ ( R, Bereiche 0.00% - 100.00% B-  F  >     $ >  C    dT [
    
  	 
  Ba U  THIS VALUE BEIHILFE PCG_F13 PCG_F9 PCG_F8 THISFORM	 BERECHNEN CLICK GRDBEIHILFE REFRESH Valid,     1 !q A q 1AA   q 1                       W      )                           header      header      Header1      FORM1.grdBeihilfe.Column8      9Alignment = 1
Caption = "Zahlbetrag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column8      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdBeihilfe.Column9      +Caption = " Arzt, ect."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdBeihilfe.Column9      iBorderStyle = 0
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      
commandbutton      
commandbutton      Command3      FORM1      Top = 506
Left = 408
Height = 28
Width = 101
Cancel = .T.
Caption = "eine Zeile mehr"
ToolTipText = "eine weitere Zeile zur Liste hinzufgen"
Name = "Command3"
      PROCEDURE Click
SELECT beihilfe
APPEND BLANK
FLUSH
replace pcg_f2 WITH fileneu
replace pcg_f3 WITH welchesjahr
FLUSH

SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr

thisform.grdbeihilfe.refresh
ENDPROC
     ]    D  D                        k   %             
                U  X  F    [
 >  
 >   [ G(     	
     U  BEIHILFE PCG_F2 FILENEU PCG_F3 WELCHESJAHR THISFORM GRDBEIHILFE REFRESH Click,     1 q Q A   A  1                              )   D                        checkbox      checkbox      Check1      FORM1      Top = 7
Left = 654
Height = 25
Width = 168
Alignment = 0
Caption = "nur diesen Monat anzeigen"
Value = 1
Name = "Check1"
     7PROCEDURE Click
IF .not. EMPTY(this.Value)
	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr .and. month(beihilfe.pcg_f6) = monat 
	GO top
ELSE
	SELECT beihilfe
	SET FILTER TO pcg_f2 = fileneu .and. pcg_f3 = welchesjahr 
	GO top
ENDIF
thisform.grdbeihilfe.refresh	
ENDPROC
                                   nG   %   '      N     6            U    %C   
I  F * G(     	
 C  H 	 #) w  F  G(     	 #) 
 	 
   U  THIS VALUE BEIHILFE PCG_F2 FILENEU PCG_F3 WELCHESJAHR PCG_F6 MONAT THISFORM GRDBEIHILFE REFRESH Click,     1 1q Q  q Q A  1                       ,      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 522
Left = 816
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0)   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _63U0ULEWC1392144910 1 53           1.000    0.000    0.000116900.00                 F                                                       
     0 10   21F 3 3   TF              T    F T               1T               WINDOWS _63U0ULEWD           9  1                          19792.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _63U0ULEWE           9  4                           2188.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _63U0ULEWF           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _63U0YME3I           9  8                           5000.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _63U0X8R5W1392147419 5  0        7812.500 2708.333 2395.83319687.500                               -1   -1   -1   -1   -1   -1                    0 14  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0X98FQ1392147435 8  0    
   11041.667 2708.333 2187.50038437.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _63U0XALFE1392147457 6           17083.333 2291.667  104.167111041.67                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _63U0XCVW61392147513 8  0        4270.83398020.833 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _63U0XCVW71392147513 8  0        2187.500 2708.333 1666.66717291.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _63U0XCVW81392147513 8  0        4270.833 2708.333 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _63U0XCVW91392147513 8  0        4270.833104583.33 1666.667 8333.333                   C           -1   -1   -1   -1   -1   -1                    0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _63U0XFSRD1392147587 8  0       14062.500 2812.500 2187.50045208.333                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _63U0XHVCB1392147637 8  0       14062.500 2812.500 2187.50045208.333                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _63U0XLF7M1392147726 8  0    !   21979.167 3229.167 1875.00020312.500                   C           -1   -1   -1   -1   -1   -1               "     1 10  1       FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _63U0XLU1X1392147736 8  0#   $   21979.16724166.667 1875.000 7708.333                   D           -1   -1   -1   -1   -1   -1               %     1 10  1 0     FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _63U0XMCJY1392147750 8  0&   '   21979.16732500.000 1875.000 7708.333                   D           -1   -1   -1   -1   -1   -1               (     1 10  1       FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _63U0XMJ7L1392147754 8  0)   *   21979.16740937.500 1875.000 7708.333                   D           -1   -1   -1   -1   -1   -1               +     1 10  1       FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _63U0XN5CX1392147768 8  0,   -   21979.16749166.667 1875.00042708.333                   C           -1   -1   -1   -1   -1   -1               .     1 10  1       FFFTF  F          0T         0       0 1  0FTF3 0F         WINDOWS _63U0XOR111392147810 8  0/   0   21979.16792500.000 1875.000 7604.167                   N           -1   -1   -1   -1   -1   -1               1     1 10  1       FFFTF  F          0T         1       0 1  0FTF3 0F         WINDOWS _63U0XP1AN1392147816 8  02   3   21979.167100729.17 1875.000 3750.000                   N           -1   -1   -1   -1   -1   -1               4     1 10  1       FFFTF  F          0T         1       0 1  0FTF3 0F         WINDOWS _63U0XPFRY1392147826 8  05   6   21979.167105416.67 1875.000 7604.167                   N           -1   -1   -1   -1   -1   -1               7     1 10  1       FFFTF  F          0T         1       0 1  0FTF3 0F         WINDOWS _63U0XTRUK1392147933 6           19479.167 2291.667  104.167111041.67                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _63U0XUJMP1392147957 5  0    8   17500.000 3229.167 1666.66711562.500                               -1   -1   -1   -1   -1   -1               9     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XUZKF1392147971 5  0    :   17708.33324166.667 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               ;     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XVBS91392147975 5  0    <   17395.83332500.000 1666.667 5416.667                               -1   -1   -1   -1   -1   -1               =     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XVI6D1392147980 5  0    >   17500.00040937.500 1666.667 6041.667                               -1   -1   -1   -1   -1   -1               ?     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XVRZJ1392147986 5  0    @   17395.83349166.667 1666.667 7708.333                               -1   -1   -1   -1   -1   -1               A     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XW0101392147991 5  0    B   17395.83394479.167 1666.667 5625.000                               -1   -1   -1   -1   -1   -1               C     1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _63U0XX7LO1392148019 5  0    D   17395.833100937.50 1666.667 3437.500                               -1   -1   -1   -1   -1   -1               E     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _63U0XY1KO1392148040 5  0    F   17395.833106770.83 1666.667 5937.500                               -1   -1   -1   -1   -1   -1               G     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _63U0YMMHZ1392148780 8  0H   I   31770.83392500.000 1875.000 7604.167                   N           -1   -1   -1   -1   -1   -1               J     1 10  1 0     FFFTF  F          0T         1       2 1  0FTT0 0F         WINDOWS _63U0YMMI01392148780 8  0K   L   31770.833105416.67 1875.000 7604.167                   N           -1   -1   -1   -1   -1   -1               M     1 10  1 0     FFFTF  F          0T         1       2 1  0FTT0 0F         WINDOWS _63U0YNGDY1392148801 5  0    N   31979.16786666.667 1666.667 4791.667                               -1   -1   -1   -1   -1   -1               O     1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _63U0YP7OJ1392148844 6           31458.333 2291.667  104.167111041.67                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   P     0 10                                                     F               WINDOWS                     23              23.000    8.000   18.000   51.000                                4    1                                   Q     0 14                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   R     1 12                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                   S     0  8                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   T     1 10                                                     F               WINDOWS                     25   U   V                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Courier New                                                   "Auflistung der Beihilfe "                                    Arial                                                         mybeihilfe.persname.value                                     Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                >"fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc                                                                Arial                                                         HSnurmonat = .t.                                              "fr das Jahr  " + welchesjahrc                               Arial                                                         HSnurmonat = .f.                                              pcg_f12                                                       BEIHILFE.pcg_f12                                              Arial Narrow                                                  pcg_f4                                                        BEIHILFE.pcg_f4                                               Arial Narrow                                                  pcg_f5                                                        BEIHILFE.pcg_f5                                               Arial Narrow                                                  pcg_f6                                                        BEIHILFE.pcg_f6                                               Arial Narrow                                                  pcg_f10                                                       BEIHILFE.pcg_f10                                              Arial Narrow                                                  pcg_f8                                                        BEIHILFE.pcg_f8                                               Arial Narrow                                                  pcg_f13                                                       BEIHILFE.pcg_f13                                              Arial Narrow                                                  pcg_f9                                                        BEIHILFE.pcg_f9                                               Arial Narrow                                                  "Rechnungs.-Nummer"                                           Arial Narrow                                                  "Rech. Dat."                                                  Arial Narrow                                                  "Beantragt"                                                   Arial Narrow                                                  "Ausgezahlt"                                                  Arial Narrow                                                  "Beschreibung"                                                Arial Narrow                                                  "Vollbetrag"                                                  Arial Narrow                                                  	"-- % --"                                                     Arial Narrow                                                  "Zahlbetrag"                                                  Arial Narrow                                                  pcg_f8                                                        BEIHILFE.pcg_f8                                               Arial Narrow                                                  pcg_f9                                                        BEIHILFE.pcg_f9                                               Arial Narrow                                                  "Summen"                                                      Arial Narrow                                                  Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
                                                               Courier New                                                   "Auflistung der Beihilfe "                                    Arial                                                         mybeihilfe.persname.value                                     Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                >"fr den Monat  " + getmonthname(zi(1+20))+ " " + welchesjahrc                                                                Arial                                                         HSnurmonat = .t.                                              "fr das Jahr  " + welchesjahrc                               Arial                                                         HSnurmonat = .f.                                              pcg_f12                                                       BEIHILFE.pcg_f12                                              Arial Narrow                                                  pcg_f4                                                        BEIHILFE.pcg_f4                                               Arial Narrow                                                  pcg_f5                                                        BEIHILFE.pcg_f5                                               Arial Narrow                                                  pcg_f6                                                        BEIHILFE.pcg_f6                                               Arial Narrow                                                  pcg_f10                                                       BEIHILFE.pcg_f10                                              Arial Narrow                                                  pcg_f8                                                        BEIHILFE.pcg_f8                                               Arial Narrow                                                  pcg_f13                                                       BEIHILFE.pcg_f13                                              Arial Narrow                                                  pcg_f9                                                        BEIHILFE.pcg_f9                                               Arial Narrow                                                  "Rechnungs.-Nummer"                                           Arial Narrow                                                  "Rech. Dat."                                                  Arial Narrow                                                  "Beantragt"                                                   Arial Narrow                                                  "Ausgezahlt"                                                  Arial Narrow                                                  "Beschreibung"                                                Arial Narrow                                                  "Vollbetrag"                                                  Arial Narrow                                                  	"-- % --"                                                     Arial Narrow                                                  "Zahlbetrag"                                                  Arial Narrow                                                  pcg_f8                                                        BEIHILFE.pcg_f8                                               Arial Narrow                                                  pcg_f9                                                        BEIHILFE.pcg_f9                                               Arial Narrow                                                  "Summen"                                                      Arial Narrow                                                  Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                                        (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             0:   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _66A0KEKXQ1398164455 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  1TTT0 0F        WINDOWS _66A0KEKXR           9  1                          74167.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KEKXS           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KEKXT           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KFTJ81398164486 8  0        5000.00060416.667 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _66A0KFTJ91398164486 8  0        2916.667 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJA1398164486 8  0        5000.000 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJB1398164486 8  0        5000.00066875.000 1875.000 9895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _66A0KFTJC1398164486 8  0       12083.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJE1398164486 8  0       13958.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJF1398164486 8  0       19895.833 6562.500 1875.00024687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJG1398164486 8  0    !   15833.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               "     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLDZ41398164626 8  0    #   12083.33344583.333 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               $     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLPJ41398164631 8  0    %   13958.33344583.333 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               &     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLSDT1398164633 8  0    '   15833.33344687.500 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               (     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLV1L1398164635 8  0    )   17708.33344479.167 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KNWIN1398164694 8  0    +   20208.33344479.167 1875.00034479.167                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KTQPJ1398164832 5  0    -   24583.333 6562.500 2083.33331875.000                               -1   -1   -1   -1   -1   -1               .     1 12  1       FFFTF  F          0T                      0FTT0 0F/        WINDOWS _66A0KXANG1398164934 8  0    0   24479.16739687.500 2187.50013333.333                   C           -1   -1   -1   -1   -1   -1               1     5 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0LI42E1398165569 5  0    2   45625.000 6354.167 1666.66740520.833                               -1   -1   -1   -1   -1   -1               4     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIFS11398165580 5  0    5   48958.333 6354.167 1666.66754375.000                               -1   -1   -1   -1   -1   -1               7     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIOIM1398165585 5  0    8   50729.167 6354.167 1666.66751770.833                               -1   -1   -1   -1   -1   -1               :     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIX4G1398165595 5  0    ;   52604.167 6354.167 1666.66756979.167                               -1   -1   -1   -1   -1   -1               =     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJBYR1398165596 5  0    >   54687.500 6354.167 1666.66719166.667                               -1   -1   -1   -1   -1   -1               ?     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJJB31398165606 5  0    @   56458.333 6354.167 1666.66723541.667                               -1   -1   -1   -1   -1   -1               A     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJQDW1398165611 5  0    B   58229.167 6354.167 1666.66749895.833                               -1   -1   -1   -1   -1   -1               D     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJYCR1398165619 5  0    E   59895.833 6354.167 1666.66737812.500                               -1   -1   -1   -1   -1   -1               G     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LK9XN1398165649 5  0    H   61770.833 6354.167 1666.66754583.333                               -1   -1   -1   -1   -1   -1               J     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LLJIO1398165656 8  0    K   63854.167 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               L     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FM        WINDOWS _66A0LLYMI1398165661 8  0    N   65729.167 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               O     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FP        WINDOWS _66A0LM9891398165670 8  0    Q   67604.167 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               R     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FS        WINDOWS _66A0LNYOG1398165712 5  0    T   69687.500 6354.167 1666.66756041.667                               -1   -1   -1   -1   -1   -1               V     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LSHHQ1398165833 8  0    W   42291.667 6354.167 1875.00069895.833                   C           -1   -1   -1   -1   -1   -1               Z     0 10  1 0     TFFFF  F          0T         0       0 1  0TTT0 0F[        WINDOWS _66A0LV62S1398165897 8  0    \   39583.333 6041.667 1875.00070104.167                   C           -1   -1   -1   -1   -1   -1               ]     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0M94UC1398166241 5  0    ^   30520.833 6979.167 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               _     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0M99OZ1398166243 5  0    `   30520.83313437.500 1666.667 6145.833                               -1   -1   -1   -1   -1   -1               a     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0M9KSX1398166250 5  0    b   31979.16713437.500 1666.667 5208.333                               -1   -1   -1   -1   -1   -1               c     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0M9XKP1398166258 5  0    d   30520.83327812.500 1666.66715000.000                               -1   -1   -1   -1   -1   -1               e     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MALMX1398166276 5  0    f   31979.16726666.667 1666.667 3541.667                               -1   -1   -1   -1   -1   -1               g     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MAZCX1398166284 5  0    h   31979.16739270.833 1666.667 4791.667                               -1   -1   -1   -1   -1   -1               i     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MBHDN1398166296 5  0    j   30520.83350312.500 1666.667 7291.667                               -1   -1   -1   -1   -1   -1               k     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MC20D1398166312 5  0    l   30520.83363020.833 1666.667 7708.333                               -1   -1   -1   -1   -1   -1               m     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MCEGV1398166320 5  0    n   31979.16763020.833 1666.667 5937.500                               -1   -1   -1   -1   -1   -1               o     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MCQ311398166327 5  0    p   33437.50063020.833 1666.667 8333.333                               -1   -1   -1   -1   -1   -1               q     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0MK7UR1398166515 8  0    r   35104.16763020.833 1875.00016458.333                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0MNOXY1398166606 8  0    u   27604.167 6562.500 1875.00073020.833                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0MYFQT1398166870 8  0    w   34583.333 7500.000 1875.000 3333.333                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0MZMPT1398166897 8  0    y   34583.33313645.833 1875.00012500.000                   C           -1   -1   -1   -1   -1   -1               z     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0MZXYZ1398166905 8  0    {   34583.33326875.000 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0N0CY21398166916 8  0    }   34583.33335729.167 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0N12EZ1398166933 8  0       34583.33350520.833 1875.000 8437.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0N1EDQ1398166941 5  0       31979.16750416.667 1666.667 5312.500                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        5 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         mystufenlaufzeit.Land.Caption                                 Arial                                                         )mystufenlaufzeit.Dienstverhltnis.Caption                     Arial                                                         mystufenlaufzeit.gruppe.Caption                               Arial                                                         $mystufenlaufzeit.Bezeichnung.Caption                          Arial                                                         mymonatszeile1                                                Arial                                                         +"Neuer Beginn der Laufzeit der Stufe 1 *):"                   Arial                                                         !myStufenlaufzeit.Monate.Value > 0                             (alltrim(mystufenlaufzeit.beginn.caption)                      Arial                                                         G"Die Berechnung ist unverbindlich und dient lediglich der Information."                                                       Arial                                                         \"*) Der Beginn der Stufenlaufzeit der Stufe 1 ist lediglich eine Rechengre zur Berechnung"                                  Arial                                                         ["der   k  n f t i g e n   Stufenaufstiege. Mit dieser fiktiven Gre knnen die Wirkungen"                                   Arial                                                         ["der folgenden Umstnde auf knftige Stufenaufstiege in einem Wert zusammengefasst werden:"                                   Arial                                                         !"- angerechnete Vordienstzeiten,"                             Arial                                                         '"- leistungsbedingte Stufenbewegungen,"                       Arial                                                         O"- Stufenbewegungen bei Hhergruppierungen mit betragsmiger Stufenzuordnung,"                                               Arial                                                         @"- Unterbrechungen der Ttigkeit, die die Stufenlaufzeit hemmen"                                                              Arial                                                         Y"- die Tatsache einer hheren Anfangsstufe als Stufe 1 bei bestimmten Besoldungsgruppen."                                     Arial                                                         kommentar(1+0)                                                Arial                                                         z7 > 1                                                        kommentar(1+1)                                                Arial                                                         z7 > 1                                                        kommentar(1+2)                                                Arial                                                         z7 > 1                                                        `"Der Beginn der Stufe 1 verndert sich erst wieder, wenn erneut einer dieser Umstnde eintritt."                              Arial                                                         "Der Wert der Stufenbewegung beluft sich bis zum Erreichen der Endstufe auf " + alltrim(str(mystufenlaufzeit.Leistung.value,10,2)) + " Euro."                                                Arial                                                         '.Not. mystufenlaufzeit.Monate.Value = 0                       +"Rechtsgrundlage: " + myrechtsgrundlagetext                   Arial                                                         "Stufe"                                                       Arial                                                         
"Laufzeit in"                                                 Arial                                                         	"Monaten"                                                     Arial                                                         "S T U F E N B E G I N N"                                     Arial                                                         "vorher"                                                      Arial                                                         	"nachher"                                                     Arial                                                         
"Grundgehalt"                                                 Arial                                                         "Alle Entgelte"                                               Arial                                                         
"nach dem"                                                    Arial                                                         "Tabellenstand"                                               Arial                                                         mymonatszeile2                                                ""                                                            Arial                                                         mytext1                                                       Arial                                                         sp1                                                           Arial                                                         sp2                                                           Arial                                                         sp3                                                           Arial                                                         sp4                                                           Arial                                                         sp5                                                           Arial                                                         	"in EURO"                                                     Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         mystufenlaufzeit.Land.Caption                                 Arial                                                         )mystufenlaufzeit.Dienstverhltnis.Caption                     Arial                                                         mystufenlaufzeit.gruppe.Caption                               Arial                                                         $mystufenlaufzeit.Bezeichnung.Caption                          Arial                                                         mymonatszeile1                                                Arial                                                         +"Neuer Beginn der Laufzeit der Stufe 1 *):"                   Arial                                                         !myStufenlaufzeit.Monate.Value > 0                             (alltrim(mystufenlaufzeit.beginn.caption)                      Arial                                                         G"Die Berechnung ist unverbindlich und dient lediglich der Information."                                                       Arial                                                         \"*) Der Beginn der Stufenlaufzeit der Stufe 1 ist lediglich eine Rechengre zur Berechnung"                                  Arial                                                         ["der   k  n f t i g e n   Stufenaufstiege. Mit dieser fiktiven Gre knnen die Wirkungen"                                   Arial                                                         ["der folgenden Umstnde auf knftige Stufenaufstiege in einem Wert zusammengefasst werden:"                                   Arial                                                         !"- angerechnete Vordienstzeiten,"                             Arial                                                         '"- leistungsbedingte Stufenbewegungen,"                       Arial                                                         O"- Stufenbewegungen bei Hhergruppierungen mit betragsmiger Stufenzuordnung,"                                               Arial                                                         @"- Unterbrechungen der Ttigkeit, die die Stufenlaufzeit hemmen"                                                              Arial                                                         Y"- die Tatsache einer hheren Anfangsstufe als Stufe 1 bei bestimmten Besoldungsgruppen."                                     Arial                                                         kommentar(1+0)                                                Arial                                                         z7 > 1                                                        kommentar(1+1)                                                Arial                                                         z7 > 1                                                        kommentar(1+2)                                                Arial                                                         z7 > 1                                                        `"Der Beginn der Stufe 1 verndert sich erst wieder, wenn erneut einer dieser Umstnde eintritt."                              Arial                                                         "Der Wert der Stufenbewegung beluft sich bis zum Erreichen der Endstufe auf " + alltrim(str(mystufenlaufzeit.Leistung.value,10,2)) + " Euro."                                                Arial                                                         '.Not. mystufenlaufzeit.Monate.Value = 0                       +"Rechtsgrundlage: " + myrechtsgrundlagetext                   Arial                                                         "Stufe"                                                       Arial                                                         
"Laufzeit in"                                                 Arial                                                         	"Monaten"                                                     Arial                                                         "S T U F E N B E G I N N"                                     Arial                                                         "vorher"                                                      Arial                                                         	"nachher"                                                     Arial                                                         
"Grundgehalt"                                                 Arial                                                         "Alle Entgelte"                                               Arial                                                         
"nach dem"                                                    Arial                                                         "Tabellenstand"                                               Arial                                                         mymonatszeile2                                                ""                                                            Arial                                                         mytext1                                                       Arial                                                         sp1                                                           Arial                                                         sp2                                                           Arial                                                         sp3                                                           Arial                                                         sp4                                                           Arial                                                         sp5                                                           Arial                                                         	"in EURO"                                                     Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0/   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _66A0KEKXQ1398164455 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  1TTT0 0F        WINDOWS _66A0KEKXR           9  1                          71250.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KEKXS           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KEKXT           9  7                           2813.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _66A0KFTJ81398164486 8  0        5000.00060416.667 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _66A0KFTJ91398164486 8  0        2916.667 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJA1398164486 8  0        5000.000 6354.167 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJB1398164486 8  0        5000.00066875.000 1875.000 9895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _66A0KFTJC1398164486 8  0       12083.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJE1398164486 8  0       13958.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJF1398164486 8  0       19895.833 6562.500 1875.00024687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KFTJG1398164486 8  0    !   15833.333 6354.167 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               "     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLDZ41398164626 8  0    #   12083.33344583.333 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               $     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLPJ41398164631 8  0    %   13958.33344583.333 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               &     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLSDT1398164633 8  0    '   15833.33344687.500 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               (     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KLV1L1398164635 8  0    )   17708.33344479.167 1875.00023125.000                   C           -1   -1   -1   -1   -1   -1               *     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KNWIN1398164694 8  0    +   20208.33344479.167 1875.00034479.167                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0KSFPT1398164811 5  0    -   25729.167 6562.500 2083.33326666.667                               -1   -1   -1   -1   -1   -1               .     1 12  1       FFFTF  F          0T                      0FTT0 0F/        WINDOWS _66A0KXANG1398164934 8  0    0   25729.16734479.167 2187.50013333.333                   C           -1   -1   -1   -1   -1   -1               1     5 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _66A0LI42E1398165569 5  0    2   43958.333 6354.167 1666.66740520.833                               -1   -1   -1   -1   -1   -1               4     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIFS11398165580 5  0    5   47291.667 6354.167 1666.66754375.000                               -1   -1   -1   -1   -1   -1               7     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIOIM1398165585 5  0    8   49062.500 6354.167 1666.66751770.833                               -1   -1   -1   -1   -1   -1               :     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LIX4G1398165595 5  0    ;   50937.500 6354.167 1666.66756979.167                               -1   -1   -1   -1   -1   -1               =     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJBYR1398165596 5  0    >   53020.833 6354.167 1666.66719166.667                               -1   -1   -1   -1   -1   -1               ?     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJJB31398165606 5  0    @   54791.667 6354.167 1666.66723541.667                               -1   -1   -1   -1   -1   -1               A     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJQDW1398165611 5  0    B   56562.500 6354.167 1666.66749895.833                               -1   -1   -1   -1   -1   -1               D     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LJYCR1398165619 5  0    E   58229.167 6354.167 1666.66737812.500                               -1   -1   -1   -1   -1   -1               G     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LK9XN1398165649 5  0    H   60104.167 6354.167 1666.66754583.333                               -1   -1   -1   -1   -1   -1               J     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LLJIO1398165656 8  0    K   62187.500 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               L     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FM        WINDOWS _66A0LLYMI1398165661 8  0    N   64062.500 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               O     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FP        WINDOWS _66A0LM9891398165670 8  0    Q   65937.500 6354.167 1875.00072083.333                   C           -1   -1   -1   -1   -1   -1               R     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0FS        WINDOWS _66A0LNYOG1398165712 5  0    T   68020.833 6354.167 1666.66756041.667                               -1   -1   -1   -1   -1   -1               V     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0LSHHQ1398165833 8  0    W   40625.000 6354.167 1875.00069895.833                   C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     TFFFF  F          0T         0       0 1  0TTT0 0FZ        WINDOWS _66A0LV62S1398165897 8  0    [   37916.667 6041.667 1875.00070104.167                   C           -1   -1   -1   -1   -1   -1               \     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0NHXYH1398167354 8  0    ]   29895.833 6770.833 1875.00026458.333                   C           -1   -1   -1   -1   -1   -1               ^     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0NIDU21398167365 8  0    _   29895.83335312.500 1875.00014375.000                   C           -1   -1   -1   -1   -1   -1               `     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0NJUD41398167401 8  0    a   29895.83351250.000 1875.00010000.000                   C           -1   -1   -1   -1   -1   -1               b     0 10  1 0     TTFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS _66A0NKH501398167416 5  0    c   30000.00062812.500 1666.667 7708.333                               -1   -1   -1   -1   -1   -1               d     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0NKH511398167416 5  0    e   31458.33362812.500 1666.667 5937.500                               -1   -1   -1   -1   -1   -1               f     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0NKH521398167416 5  0    g   32916.66762812.500 1666.667 8333.333                               -1   -1   -1   -1   -1   -1               h     0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _66A0NKH531398167416 8  0    i   34583.33362812.500 1875.00016458.333                   C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     TFFFF  F          0T         0       0 1  0FTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                   k     0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   l     1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   m     0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   n     1 12                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   o     5 12                                                     F               WINDOWS                     25   p   q                                                        F                                                                                                                      F                    @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         mystufenlaufzeit.Land.Caption                                 Arial                                                         )mystufenlaufzeit.Dienstverhltnis.Caption                     Arial                                                         mystufenlaufzeit.gruppe.Caption                               Arial                                                         $mystufenlaufzeit.Bezeichnung.Caption                          Arial                                                         mymonatszeile1                                                Arial                                                         %"Beginn der Laufzeit der Stufe 1 *):"                         Arial                                                         !myStufenlaufzeit.Monate.Value = 0                             (alltrim(mystufenlaufzeit.beginn.caption)                      Arial                                                         G"Die Berechnung ist unverbindlich und dient lediglich der Information."                                                       Arial                                                         \"*) Der Beginn der Stufenlaufzeit der Stufe 1 ist lediglich eine Rechengre zur Berechnung"                                  Arial                                                         ["der   k  n f t i g e n   Stufenaufstiege. Mit dieser fiktiven Gre knnen die Wirkungen"                                   Arial                                                         ["der folgenden Umstnde auf knftige Stufenaufstiege in einem Wert zusammengefasst werden:"                                   Arial                                                         !"- angerechnete Vordienstzeiten,"                             Arial                                                         '"- leistungsbedingte Stufenbewegungen,"                       Arial                                                         O"- Stufenbewegungen bei Hhergruppierungen mit betragsmiger Stufenzuordnung,"                                               Arial                                                         @"- Unterbrechungen der Ttigkeit, die die Stufenlaufzeit hemmen"                                                              Arial                                                         Y"- die Tatsache einer hheren Anfangsstufe als Stufe 1 bei bestimmten Besoldungsgruppen."                                     Arial                                                         kommentar(1+0)                                                Arial                                                         z7 > 1                                                        kommentar(1+1)                                                Arial                                                         z7 > 1                                                        kommentar(1+2)                                                Arial                                                         z7 > 1                                                        `"Der Beginn der Stufe 1 verndert sich erst wieder, wenn erneut einer dieser Umstnde eintritt."                              Arial                                                         mystufenwert                                                  ""                                                            Arial                                                         '.Not. mystufenlaufzeit.Monate.Value = 0                       +"Rechtsgrundlage: " + myrechtsgrundlagetext                   Arial                                                         sp1                                                           Arial                                                         sp2                                                           Arial                                                         sp3                                                           Arial                                                         "Alle Entgelte"                                               Arial                                                         
"nach dem"                                                    Arial                                                         "Tabellenstand"                                               Arial                                                         mymonatszeile2                                                Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   .not. empty(ditext6)                                          ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         mystufenlaufzeit.Land.Caption                                 Arial                                                         )mystufenlaufzeit.Dienstverhltnis.Caption                     Arial                                                         mystufenlaufzeit.gruppe.Caption                               Arial                                                         $mystufenlaufzeit.Bezeichnung.Caption                          Arial                                                         mymonatszeile1                                                Arial                                                         %"Beginn der Laufzeit der Stufe 1 *):"                         Arial                                                         !myStufenlaufzeit.Monate.Value = 0                             (alltrim(mystufenlaufzeit.beginn.caption)                      Arial                                                         G"Die Berechnung ist unverbindlich und dient lediglich der Information."                                                       Arial                                                         \"*) Der Beginn der Stufenlaufzeit der Stufe 1 ist lediglich eine Rechengre zur Berechnung"                                  Arial                                                         ["der   k  n f t i g e n   Stufenaufstiege. Mit dieser fiktiven Gre knnen die Wirkungen"                                   Arial                                                         ["der folgenden Umstnde auf knftige Stufenaufstiege in einem Wert zusammengefasst werden:"                                   Arial                                                         !"- angerechnete Vordienstzeiten,"                             Arial                                                         '"- leistungsbedingte Stufenbewegungen,"                       Arial                                                         O"- Stufenbewegungen bei Hhergruppierungen mit betragsmiger Stufenzuordnung,"                                               Arial                                                         @"- Unterbrechungen der Ttigkeit, die die Stufenlaufzeit hemmen"                                                              Arial                                                         Y"- die Tatsache einer hheren Anfangsstufe als Stufe 1 bei bestimmten Besoldungsgruppen."                                     Arial                                                         kommentar(1+0)                                                Arial                                                         z7 > 1                                                        kommentar(1+1)                                                Arial                                                         z7 > 1                                                        kommentar(1+2)                                                Arial                                                         z7 > 1                                                        `"Der Beginn der Stufe 1 verndert sich erst wieder, wenn erneut einer dieser Umstnde eintritt."                              Arial                                                         mystufenwert                                                  ""                                                            Arial                                                         '.Not. mystufenlaufzeit.Monate.Value = 0                       +"Rechtsgrundlage: " + myrechtsgrundlagetext                   Arial                                                         sp1                                                           Arial                                                         sp2                                                           Arial                                                         sp3                                                           Arial                                                         "Alle Entgelte"                                               Arial                                                         
"nach dem"                                                    Arial                                                         "Tabellenstand"                                               Arial                                                         mymonatszeile2                                                Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _67D0PYDIE1400791891      /  F      ]        =              m      v                       WINDOWS _67D0PYDIG1535662180                                                                     WINDOWS _67D0PYDIH1413961557      
    /  <                                                       WINDOWS _67D0PYDIE1400994452            +                                                           WINDOWS _67D0QJ8CK1400791891            8                                                           WINDOWS _67D0PYDIG1400792098s                                                                       WINDOWS _67D0PYDIH1400791891E      S  a  p                                                             WINDOWS _67D0PYDIE1400792098            %                                                           WINDOWS _67D0PYDIG1400791891                                                                       WINDOWS _67D0PYDIH1400791891)      8  G  T  {                                                           WINDOWS _67D0QFH1P1400792098            .                                                           WINDOWS _6841AGCYY1413961557e  u                                                                   COMMENT RESERVED                                L                                                            u                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      qPROCEDURE BeforeOpenTables
CREATE CURSOR kommentartexte (textjahr N(4,0),textmonat C(6), textblock M)
ENDPROC
     (                              .   %                             U  F C h kommentartexte  N   C  M U  KOMMENTARTEXTE TEXTJAHR	 TEXTMONAT	 TEXTBLOCK BeforeOpenTables,     1 11                       f       )                           1      1      form      form      FORM1      Height = 506
Width = 838
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "nderungsbersicht"
ControlBox = .T.
Closable = .T.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     |PROCEDURE Init
PARAMETERS hsstartjahr, hsendjahr

SET STEP ON 
IF thisform.Top < 0
	thisform.Top = 0
endif
SELECT kommentar
GO top
FOR laufjahr = hsstartjahr TO hsendjahr
	FOR hsmon_x = 1 TO 12
		SELECT kommentartexte
		APPEND BLANK
		FLUSH
		replace kommentartexte.textjahr WITH laufjahr
		replace kommentartexte.textmonat WITH getmonatsnameshort(hsmon_x,1)	
		replace kommentartexte.textblock WITH ALLTRIM(kommentar.zeile1) + CHR(13) + CHR(10) + ALLTRIM(kommentar.zeile2) + CHR(13) + CHR(10) + ALLTRIM(kommentar.zeile3) + CHR(13) + CHR(10) + ALLTRIM(kommentar.zeile4)
		FLUSH
		SELECT kommentar
		SKIP
	NEXT
next
SELECT kommentartexte
GO top
thisform.Refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdKommentartexte.column1.text1.fontsize = thisform.grdKommentartexte.column1.fontsize
thisform.grdKommentartexte.column2.text1.fontsize = thisform.grdKommentartexte.column1.fontsize
thisform.grdKommentartexte.column3.edit1.fontsize = thisform.grdKommentartexte.column1.fontsize
ENDPROC
                                   $   %         j  (               U   4    G1  %   
5  T     F  #)    (   ( F   [ >    > 	 C  
 T >  C  C
 C
 C 
 C
 C
 C  C
 C
 C   [ F  H   F  #)
    %    b T C    T w
 T  
     T       T      
    T  a U  HSSTARTJAHR	 HSENDJAHR THISFORM TOP	 KOMMENTAR LAUFJAHR HSMON_X KOMMENTARTEXTE TEXTJAHR	 TEXTMONAT GETMONATSNAMESHORT	 TEXTBLOCK ZEILE1 ZEILE2 ZEILE3 ZEILE4 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTERy  C    " T           " T           " T    	        U
  THISFORM SIZER	 FRMRESIZE GRDKOMMENTARTEXTE COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 EDIT1 Init,      Resize    1  b AA q Q qqq Q A AA q A A A q Q    A    2 !!!1                            #   4  q  (    )                           
commandbutton      
commandbutton      Command1      FORM1      iTop = 465
Left = 354
Height = 34
Width = 130
Cancel = .T.
Caption = "schlieen"
Name = "Command1"
      JPROCEDURE Click
SELECT kommentartexte
USE
thisform.Release

ENDPROC
                                          %   k             z             U    F   Q
    U  KOMMENTARTEXTE THISFORM RELEASE Click,     1 q A  2                       ?       )                            grid      grid      grdKommentartexte      FORM1     ColumnCount = 3
DeleteMark = .F.
Height = 455
Left = 9
Panel = 1
ReadOnly = .T.
RecordSource = "kommentartexte"
RecordSourceType = 1
RowHeight = 72
ScrollBars = 2
Top = 7
Width = 819
Name = "grdKommentartexte"
Column1.Alignment = 2
Column1.ControlSource = "kommentartexte.textjahr"
Column1.Width = 51
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 2
Column2.ControlSource = "kommentartexte.textmonat"
Column2.Width = 59
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "kommentartexte.textblock"
Column3.CurrentControl = "Edit1"
Column3.Width = 676
Column3.ReadOnly = .T.
Column3.Sparse = .F.
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdKommentartexte.Column1      3Alignment = 2
Caption = "Jahr"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKommentartexte.Column1      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKommentartexte.Column2      4Alignment = 2
Caption = "Monat"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKommentartexte.Column2      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKommentartexte.Column3      *Caption = "nderungen"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKommentartexte.Column3      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      editbox      editbox      Edit1      FORM1.grdKommentartexte.Column3      /ReadOnly = .T.
Visible = .T.
Name = "Edit1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 486
Left = 819
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _67E0V8MQF1400992848      /  F      ]                                                       WINDOWS _67E0V8MQG1402763128                      u                                               WINDOWS _67E0V8MQH1400992848                                                                        WINDOWS _67E0V8MQI1400994214}                                                                       WINDOWS _67E0V8MQJ1400992848K	      X	  e	  s	  	                                                           WINDOWS _67E0V8MQK1400993016	      
  #
  3
  @
      
  
                                               WINDOWS _67E0V8MQL1400993016                                                                   WINDOWS _67E0V8MQM1400993016
      
  
  
        c                                                 WINDOWS _6841A4CWF1402711011                                                                     COMMENT RESERVED                                x                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Form1      BorderStyle = 2
Height = 82
Width = 412
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Tarifnderungen anzeigen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "Form1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
thisform.jahr.Value = welchesjahr
thisform.command1.Caption = "nur " + STR(welchesjahr,4,0) + " anzeigen."


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     i    P  P                        R   %           
               U    C     U  THISFORM SIZER	 FRMRESIZE  B    U  THISFORM TAG  T     1 T     nur C  Z
  anzeigen.
      T      	  T  
   
 	 
     T   a U
  THISFORM JAHR VALUE WELCHESJAHR COMMAND1 CAPTION SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Unload_      Init     1 2  2 1 rq  2                       ,         I   \         w         )   P                        label      label      Label1      Form1      ZCaption = "Nur das Jahr "
Height = 15
Left = 37
Top = 15
Width = 78
Name = "Label1"
      textbox      textbox      Jahr      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Height = 21
Left = 119
ReadOnly = .T.
Top = 12
Width = 43
ForeColor = 0,0,0
Name = "Jahr"
      label      label      Label2      Form1      qCaption = "anzeigen oder ALLE Jahre anzeigen?"
Height = 15
Left = 167
Top = 15
Width = 207
Name = "Label2"
      
commandbutton      
commandbutton      Command1      Form1      aTop = 46
Left = 12
Height = 22
Width = 127
Caption = "nur Jahr anzeigen"
Name = "Command1"
      @PROCEDURE Click
thisform.Tag = "1"
thisform.release
ENDPROC
                                         %   f       }      u             U    T    1
     U  THISFORM TAG RELEASE Click,     1  1                       5       )                            
commandbutton      
commandbutton      Command2      Form1      dTop = 46
Left = 143
Height = 22
Width = 127
Caption = "ALLE Jahre anzeigen"
Name = "Command2"
      @PROCEDURE Click
thisform.Tag = "2"
thisform.release
ENDPROC
                                         %   f       }      u             U    T    2
     U  THISFORM TAG RELEASE Click,     1  1                       5       )                            
commandbutton      
commandbutton      Command3      Form1      ZTop = 46
Left = 274
Height = 22
Width = 127
Caption = "abbrechen"
Name = "Command3"
      @PROCEDURE Click
thisform.Tag = "0"
thisform.release
ENDPROC
                                         %   f       }      u             U    T    0
     U  THISFORM TAG RELEASE Click,     1  1                       5       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Form1      Top = 60
Left = 393
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
03   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LS0UWRQW1402841335      /  F      ]                      o      x                       WINDOWS _4LS0UWRQX1520786071                      =                                                WINDOWS _4LS0UWRRC1412540121/      /  /  /  /                                                           WINDOWS _4LS0UWRRD1412540121;0      H0  U0  h0  u0                                                           WINDOWS _4LS0UWRRE14125401210      1  1  (1  51                                                           WINDOWS _4LS0UWRRF14125401211      1  1  1  1      r2  4                                               WINDOWS _4LS0UWRRG1412540121g6      v6  6  6  6      6  7                                               WINDOWS _4LS0UWRRH14125401218      8  9  9  &9                                                           WINDOWS _4LS0UWRRJ1419016203:      2:  G:  Y:  f:      :  t@                                               WINDOWS _4LS0UWRRK1419016340D      D  D  D  D      ]E  K                                               WINDOWS _4LS0UWRRL1412651457N      N  N  N  N      <O  S                                               WINDOWS _4LS0UWRRM1412651457U      U  U  V  V      |V  V                                               WINDOWS _4LS0UWRRN1412651457vW      W  W  W  W      X  OY                                               WINDOWS _4LS0UWRRO1519996004Z      Z  	[  [  ([      [  =\                                               WINDOWS _4LS0UWRRP1412651457]      ]  ]  ]  ]      }^  ^                                               WINDOWS _5ZA0PTJI11412540121_  _  `  %`  2`  ?`                                                           WINDOWS _6860XJZHG1412540121`      `  `  `  
a                                                           WINDOWS _6860XJZHH1412540121ua      a  a  a  a                                                           WINDOWS _68B18NNBM1520786071b      .b  Cb  Wb  db      b  f                                               WINDOWS _68T0O2S8P1412651571Ui      ji  i  i  i      j  j                                               WINDOWS _68T0O2S8Q1412651571k      l   l  0l  =l      l  jm                                               WINDOWS _69J0X5WEV1418688073n  n  n  n  n  n      dp  s                                               WINDOWS _4LS0UWRQW1412400109ou      {u  u  u  u      Hz  "                                               WINDOWS _4LS0UWRQX1402841781`      n  |                                                               WINDOWS _4LS0UWRRB1411494437            0        Є                                               WINDOWS _4LS0UWRQY1402842246        ʅ  م                                                             WINDOWS _4LS0UWRRC14114944372      A  P  ]  ~      ߆                                                 WINDOWS _4LS0UWRRD1402842246      
    '  H                                                           WINDOWS _4LS0UWRRE1411494437            ̈      -  l                                               WINDOWS _4LS0UWRRF1402842246J      X  f  u                                                             WINDOWS _4LS0UWRRG1411494437Ί      ݊            {                                                 WINDOWS _4LS0UWRRH1402842246          Ì                                                             WINDOWS _4LS0UWRRI1411494437      +  :  G  h      ɍ                                                 WINDOWS _4LS0UWRRJ1402842246            2                                                           WINDOWS _4LS0UWRRK1411494437j      y              V                                               WINDOWS _4LS0UWRRL14028422464      B  P  _                                                             WINDOWS _4LS0UWRRM1411494437      Ǒ  ֑          e                                                 WINDOWS _4LS0UWRRN1402842246            Γ                                                           WINDOWS _4LS0UWRRO1411494437        $  1  R                                                       WINDOWS _4LS0UWRRP1402842246Е      ޕ                                                                 WINDOWS _5ZA0PTJI11411494437T      c  r            @                                               WINDOWS _6860XJZHG1402842246      ,  :  I  k                                                           WINDOWS _6860XJZHH1411494437          Θ        Q                                                 WINDOWS _4LS0UWRQW1402842246n      |                                                                 WINDOWS _4LS0UWRQX1411494437            @                                                       WINDOWS _6BC0WBDFG1520786071      Ӝ              P                                               WINDOWS _6BC0WBDFH1419016340         5  N  [                                                       WINDOWS _6BC0WBDFI1445558388ȯ      ݯ                                                             WINDOWS _6BC0WBDFJ14190163403      H  ]  p  }        i                                               COMMENT RESERVED                                                                                            ȳ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR ansicht2 (texte C(10), januar C(15), Februar C(15), Marz C(15), April C(15), Mai C(15), Juni C(15), Juli C(15), August C(15), September C(15), Oktober C(15))

ENDPROC
                                      %   E      e     _            U    h ansicht2  C
  C  C  C  C  C  C  C	  C
  C  C U  ANSICHT2 TEXTE JANUAR FEBRUAR MARZ APRIL MAI JUNI JULI AUGUST	 SEPTEMBER OKTOBER BeforeOpenTables,     1 a2                              )                           1      1      form      form      FORM1     !Height = 698
Width = 1229
ShowWindow = 2
ScrollBars = 3
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Jahresbersicht"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     fPROCEDURE Destroy
fensteroffen = 0
SELECT ansicht2
use
ENDPROC
PROCEDURE Activate
*!*	If myform1.Visible = False 
*!*		namensfile = Val(thisform.MSFlexGrid1.Text)
*!*	endif
*thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Init
myform3 = Thisform

thisform.AutoCenter = .t.
&&ffentlicher Dienst
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.oldHeight.value = thisform.height
thisform.oldWidth.value = thisform.Width

If myform1.Visible = False 
	namensfile = myform1.tdbnumber1.value && Val(thisform.MSFlexGrid1.Text)
ENDIF

k = 0
dbb = True
Thisform.Top = 0 &&jahroben

If register < 44
	myform3.Left = 65 &&jahrlinks
	myform3.Width = screenmaxb - 100 &&_Screen.Width - 45
	myform3.Height = screenmaxh * 0.95 &&_Screen.Height * 0.95
Else
	myform3.Top = myform1.Top &&0
	myform3.Width = myform1.Width
	myform3.Left = myform1.Left
	myform3.Height = myform1.Height &&Screen.Height - 650
Endif

*!*	myform3.BackColor = farbenrgb(1+0)
*!*	myform3.SSCommand1.Top = myform3.Height - 75
*!*	myform3.SSCommand3.Top = myform3.Height - 75
*!*	myform3.SSCommand4.Top = myform3.Height - 75
*!*	myform3.SSCommand2.Top = myform3.Height - 75
*!*	myform3.SSCommand5.Top = myform3.Height - 75
*!*	myform3.SSCommand7.Top = myform3.Height - 75
*!*	myform3.HScroll1.Top = 5 &&myform3.Height - 75
*!*	myform3.Command7.Top = 5
*!*	myform3.Command8.Top = 5
Do Case && register
	Case register < 46
		myform3.HScroll1.Max = satzanzahl &&+ 1 &&HS + 1
ENDCASE

jahresdruck = 1

myform3.SSCommand4.Caption = "akkumulieren"

*!*	Do Case && register
*!*		Case (register >= 38 .And. register <= 45)
*!*			myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
*!*			myform3.HScroll1.scroll &&change
*!*	ENDCASE

*!*	With myform3.MSFlexGrid1
*!*	*	.ToolTipText = " Sie knnen die Gehaltsberechnung eines bestimmten Monats aufrufen, indem Sie auf die entsprechende "
*!*		Do Case && register
*!*			Case register = 39
*!*	*			.ToolTipText = .ToolTipText + "Zeile klicken."
*!*			Case  Inlist(register, 40, 41, 42, 123)
*!*	*			.ToolTipText = .ToolTipText + "Spalte klicken."
*!*			Case (register >= 45 .And. register <= 47)
*!*	*			.ToolTipText = ""
*!*		Endcase
*!*	ENDWITH

jahrzeigen = 0

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.sizer.saveformsize

thisform.resize

IF thisform.Height - 36 > thisform.grdansicht2.Height
	thisform.grdansicht2.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 50 > thisform.grdansicht2.width
	thisform.grdansicht2.width = thisform.width - 20
ENDIF

prozsp1 =  75 / 1202
prozsp2 =  112 / 1202

thisform.grdansicht2.Width = thisform.Width - 20

grdbreite = thisform.grdansicht2.Width 
thisform.grdansicht2.column1.Width = grdbreite * prozsp1
FOR hsa = 2 TO 11
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht2.&xxx..Width = grdbreite * prozsp2
NEXT

thisform.Width = thisform.grdansicht2.Width + 20

thisform.sizer.saveformsize

*!*	thisform.msflexgrid1.Visible = .f.
*!*	thisform.msflexgrid2.Visible = .f.
thisform.AutoCenter = .t.
crlf = CHR(13)+CHR(10)
thisform.grdansicht2.column2.header1.caption = "Grundgehalt"+crlf+"Ortszuschlag"+crlf+"Allg-ST.Zul."+crlf+"Verm.wirks.L"+crlf+"Leist.Zul."
thisform.grdansicht2.column3.header1.caption = "+"+crlf+"sonstige"+crlf+"laufende"+crlf+"Zulagen"
thisform.grdansicht2.column4.header1.caption = "+"+crlf+"berstd."+crlf+"Einmalige"+crlf+"Zahlungen"
thisform.grdansicht2.column5.header1.caption = "="+crlf+"Brutto-"+crlf+"gehalt"
thisform.grdansicht2.column6.header1.caption = "-"+crlf+"Lohnsteuer"+crlf+"Solidaritts-"+crlf+"zuschlag"+crlf+"Ki.-Steuer"
thisform.grdansicht2.column7.header1.caption = "-"+crlf+"Sozial-"+crlf+"versich.-"+crlf+"und ATV-"+crlf+"beitrge"
thisform.grdansicht2.column8.header1.caption = "+"+crlf+"ATZ Aufst."+crlf+"Kindergeld"
thisform.grdansicht2.column9.header1.caption = "+/-"+crlf+"Auszahlungen"+crlf+"Einbehalte"
thisform.grdansicht2.column10.header1.caption = "="+crlf+"N E T T O -"+crlf+"G E H A L T"
thisform.grdansicht2.column11.header1.caption = "+"+crlf+"Sachbezge"


*!*	hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*	IF FILE("&hsansicht")
*!*		myform3.msflexgrid1.visible = .f.
	myform3.grdansicht2.visible = .t.
	thisform.grdansicht2.column1.setfocus
*!*		myform3.msflexgrid2.visible = .f.
*!*	ELSE
*!*		myform3.msflexgrid1.visible = .t.
*!*		myform3.grdansicht2.visible = .f.
*!*		myform3.msflexgrid2.visible = .f.
*!*	ENDIF

myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
myform3.HScroll1.scroll &&change

ENDPROC
PROCEDURE Resize

THISFORM.sizer.frmresize()

IF thisform.Height - 36 > thisform.grdansicht2.Height
	thisform.grdansicht2.Height = thisform.Height - 36 - 5
ENDIF


IF thisform.width - 20 > thisform.grdansicht2.width
	thisform.grdansicht2.width = thisform.width - 20
ENDIF

prozsp1 =  75 / 1202
prozsp2 =  112 / 1202

thisform.grdansicht2.Width = thisform.Width - 20

grdbreite = thisform.grdansicht2.Width 
thisform.grdansicht2.column1.Width = grdbreite * prozsp1
FOR hsa = 2 TO 11
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht2.&xxx..Width = grdbreite * prozsp2
NEXT

thisform.grdAnsicht2.column1.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column2.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column3.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column4.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column5.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column6.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column7.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column8.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column9.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column10.text1.fontsize = thisform.grdAnsicht2.column1.fontsize
thisform.grdAnsicht2.column11.text1.fontsize = thisform.grdAnsicht2.column1.fontsize


*thisform.Width = thisform.grdansicht2.Width + 20

ENDPROC
     :    !  !                           %   
        m   
            U   
 T    F  Q U  FENSTEROFFEN ANSICHT2  U  f
 T    T  a %   
?  T     T      T      %	 
    T 	 
   
 T  
 T   T    % ,
 T   A T    d T    ffffff? i T   	   T   	   T   	   T   	   
 Hz  .
 T      
 T  T     akkumulieren
 T   %     T C    T &
 T  
     T       T      
    
     %  $ !   T !    $  %  2 !   T !      T"  H/^? T#  Bڷ? T !     T$  !   T ! %  $ "  & (! T'  columnCC&  Z: thisform.grdansicht2.&xxx..Width = grdbreite * prozsp2
  T   !  
     T  a T( C
 C
 r T ! ) *   Grundgehalt(  Ortszuschlag(  Allg-ST.Zul.(  Verm.wirks.L( 
 Leist.Zul.I T ! + *   +(  sonstige(  laufende(  ZulagenL T ! , *   +(  berstd.( 	 Einmalige( 	 Zahlungen7 T ! - *   =(  Brutto-(  gehaltc T ! . *   -( 
 Lohnsteuer( 
 Solidaritts-(  zuschlag( 
 Ki.-SteuerZ T ! / *   -(  Sozial-( 	 versich.-(  und ATV-(  beitrge> T ! 0 *   +( 
 ATZ Aufst.( 
 KindergeldB T ! 1 *   +/-(  Auszahlungen( 
 Einbehalte@ T ! 2 *   =(  N E T T O -(  G E H A L T, T ! 3 *   +( 
 Sachbezge T  ! 
 a  ! % 4  T    	 
  
    5  U6  MYFORM3 THISFORM
 AUTOCENTER TOP	 OLDHEIGHT VALUE HEIGHT OLDWIDTH WIDTH MYFORM1 VISIBLE FALSE
 NAMENSFILE
 TDBNUMBER1 K DBB TRUE REGISTER LEFT
 SCREENMAXB
 SCREENMAXH HSCROLL1 MAX
 SATZANZAHL JAHRESDRUCK
 SSCOMMAND4 CAPTION
 JAHRZEIGEN MSCREENFAKTOR_H	 DPIFAKTOR SIZER SAVEFORMSIZE RESIZE GRDANSICHT2 PROZSP1 PROZSP2	 GRDBREITE COLUMN1 HSA XXX CRLF COLUMN2 HEADER1 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 SETFOCUS SCROLL C     %   $    L  T       $  %         T         T  H/^? T  Bڷ? T        T      T   	     
 (q! T  columnCC
  Z: thisform.grdansicht2.&xxx..Width = grdbreite * prozsp2
 " T   	  
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
 " T     
    	 
  U  THISFORM SIZER	 FRMRESIZE HEIGHT GRDANSICHT2 WIDTH PROZSP1 PROZSP2	 GRDBREITE COLUMN1 HSA XXX TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 Destroy,      Activatec      Initj      Resize	    1  q A 2 6   BA aaB1A   A 1111A  1A  0   A    A A ba2qA   Q!q1! 3 A A ba2qA "!!!!!!!!!!5                       9         X                    Q   ,  [      )   !                        label      label      stundenlohn      FORM1      zFontBold = .T.
Caption = "Label1"
Height = 36
Left = 357
Top = 120
Visible = .F.
Width = 168
Name = "stundenlohn"
      label      label      Bezeichnung      FORM1      yFontBold = .T.
Caption = "Label1"
Height = 42
Left = 489
Top = 74
Visible = .F.
Width = 168
Name = "Bezeichnung"
      label      label      Bruchbezeichnung      FORM1      FontBold = .T.
Caption = "Label1"
Height = 45
Left = 714
Top = 150
Visible = .F.
Width = 177
Name = "Bruchbezeichnung"
      textbox      textbox      effektiv      FORM1      sAlignment = 3
Value = 0.00000
Height = 22
Left = 558
Top = 195
Visible = .F.
Width = 112
Name = "effektiv"
     %PROCEDURE KeyPress
LPARAMETERS keyascii, nShiftAltCtrl
Do Case && register
	Case register = 45
		If KeyAscii = 13
			Do effektivstart &&Do attached
		Endif
	Case register = 46
Endcase

ENDPROC
PROCEDURE InteractiveChange
Do Case && register
Case register = 45
&&Form3.MousePointer = 11
&&Form3.Visible = False
&&If effektiv.Value > wert(1+0) / 100000 * 2 Then effektiv.Value = 1

&&wertold(1+1) = effektiv.Value * 100000
&&spaltenfllen
&&Form3.Visible = True
&&Form3.MousePointer = 1
Case register = 46

EndCase

ENDPROC
                                   <   %         N     0            U  ]     
 H V   -E  %  
A      .V   U  KEYASCII
 NSHIFTALTCTRL REGISTER
 EFFEKTIVSTART6 
 H
 /    -    ./   U  REGISTER KeyPress,      InteractiveChange     1   q A A 3  B 2                             
            )                           spinner      spinner      bruch      FORM1      PHeight = 22
Left = 558
Top = 219
Visible = .F.
Width = 111
Name = "bruch"
      PROCEDURE ProgrammaticChange
Do bruchstart 
ENDPROC
PROCEDURE InteractiveChange
Do bruchstart 
ENDPROC
PROCEDURE Click
Do bruchstart 
ENDPROC
     P    7  7                        eO   %   z                          U  
     U 
 BRUCHSTART
     U 
 BRUCHSTART
     U 
 BRUCHSTART ProgrammaticChange,      InteractiveChangeF      Click`     1 q 2 q 2 q 1                       ,         T   b         ~          )   7                        label      label      	hilfetext      FORM1      WordWrap = .T.
Caption = "Wenn Sie die Stunden- bzw. Tagesangabe ndern, wird die Tabelle neu berechnet. Ihre Gehaltsabrechnung bleibt davon unberhrt."
Height = 79
Left = 348
Top = 186
Visible = .F.
Width = 171
Name = "hilfetext"
      
commandbutton      
commandbutton      
sscommand4      FORM1      ^Top = 1
Left = 402
Height = 31
Width = 115
Caption = "akkumulieren"
Name = "sscommand4"
     PROCEDURE Click

If register < 45
	If thisform.SSCommand4.Caption = "Monate einzeln"
		thisform.SSCommand4.Caption = "akkumulieren"
		dbb = True
	Else
		thisform.SSCommand4.Caption = "Monate einzeln"
		dbb = False
	Endif
Endif
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif

Do Case && register
	Case register = 39
*		thisform.Visible = False
		Do uebersichtladen &&Do attached
*		thisform.Visible = True
	Case register = 40
*		thisform.Visible = False
		Do uebersichtladen1 &&Do attached
*		thisform.Visible = True
	Case register = 41
*		thisform.Visible = False
		Do uebersichtladen2 &&Do attached
*		thisform.Visible = True
	Case register = 45
		myindexe = 16
		Do menaktiv &&Do attached
	Case register = 46
		infotext = "Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen der" + CHR(13)
		infotext = infotext + "Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein Textdokument" + CHR(13)
		infotext = infotext + "und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie das" + CHR(13)
		infotext = infotext + "Dokument und damit auch diese Bildschirmansicht ausdrucken."
		Messagebox(infotext)
ENDCASE
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		ENDIF
	thisform.refresh
ENDPROC
                                        %   n           }            U   %  -
 % %    Monate einzelnb  T    akkumulieren
 T    ! T    Monate einzeln
 T    
 H    '      (      )  	    -
 T
      .P T = Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen derC
 c T  L Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein TextdokumentC
 _ T  H und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie dasC
 L T  ; Dokument und damit auch diese Bildschirmansicht ausdrucken. C x 
  
  U  REGISTER THISFORM
 SSCOMMAND4 CAPTION DBB TRUE FALSE UEBERSICHTLADEN UEBERSICHTLADEN1 UEBERSICHTLADEN2 MYINDEXE	 MENAKTIV INFOTEXT REFRESH Click,     1 Q   A A  r r r  q 1 A  1                             )                            
commandbutton      
commandbutton      
ssCommand7      FORM1      wTop = 2
Left = 519
Height = 31
Width = 115
Caption = "Mittelteil A"
BackColor = 255,255,128
Name = "ssCommand7"
     0PROCEDURE Click
If register = 45
	&&ATZZinsen.Show
Else
	With myform3.SSCommand7
		If .Caption = "Mittelteil A"
			.Caption = "Mittelteil B"
		Else
			.Caption = "Mittelteil A"
		Endif
	ENDWITH
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif
*!*		Do mittelteilumschalten &&Do attached

	If myform3.SSCommand7.Caption = "Mittelteil A"
*!*			Do mittelteilA &&Do attached
		thisform.mittelteilA.click
		
		For i = 1 To 13
			hsfeld = FIELD(i+1)
*!*				Do mittelteilzeilenA &&Do attached
			thisform.mittelteilzeilenA.click
		Next
	Else
*!*			Do mittelteilB &&Do attached
		thisform.mittelteilB.click
		
		For i = 1 To 13
			hsfeld = FIELD(i+1)
*!*				Do mittelteilzeilenB &&Do attached
			thisform.mittelteilzeilenB.click
		Next
	ENDIF	
		
*!*		SELECT ansicht2
*!*		FOR HSxrow = 6 TO 40
*!*			GOTO hsxrow - 5
 
*!*			myform3.msflexgrid1.row = hsxrow - 1 
*!*			myform3.msflexgrid1.col = 0
*!*			replace ansicht2.texte WITH ALLTRIM(myform3.msflexgrid1.text)

*!*			FOR HSxcol = 1 TO 10
*!*				myform3.msflexgrid1.col = HSxcol
*!*				myform3.msflexgrid1.row = hsxrow	
*!*				xfeld = FIELD(hsxcol+1)
*!*				replace ansicht2.&xfeld WITH ALLTRIM(myform3.msflexgrid1.text)
*!*			next
*!*		NEXT
*!*		
*!*		FLUSH
	SELECT ansicht2
	GO top	
	thisform.grdAnsicht2.refresh
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		endif	
ENDIF
thisform.refresh
ENDPROC
                                      %   H           W            U  t %  -  c     %  Mittelteil Aa  T  Mittelteil B   T  Mittelteil A  # %    Mittelteil A 
      (
  T C /
  	    F
  
    (
B T C /
       F  #)
  
   
    U  REGISTER MYFORM3
 SSCOMMAND7 CAPTION THISFORM MITTELTEILA CLICK I HSFELD MITTELTEILZEILENA MITTELTEILB MITTELTEILZEILENB ANSICHT2 GRDANSICHT2 REFRESH Click,     1   A A 7 r1 A   r1 A A  q Q  E  1                       %      )                           
commandbutton      
commandbutton      
ssCommand3      FORM1      YTop = 2
Left = 635
Height = 31
Width = 115
Caption = "Drucken"
Name = "ssCommand3"
     JPROCEDURE Click

Do Case && register
	Case register = 39
		&&Unload Druckvorschau
		dRatio = 1
*!*			DO Druckvorschau.AG_bersicht2 with Druckvorschau.Blatt, dRatio &&
			DO AG_bersicht2
*!*			DO Druckvorschau.Blatt with dRatio
		myIndexe = register

	Case register = 40
		&&Form3.Visible = False
		&&AG_AN_drucken
		&&Form3.Visible = True

		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.ansicht with Druckvorschau.Blatt, dRatio
		DO ansicht
		myindexe = register
		
	Case register = 41
		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.agsicht with Druckvorschau.Blatt, dRatio
		DO agsicht
		myindexe = register
		
	Case register = 42
		&&Form3.Visible = False
		&&AG_AN_drucken
		&&Form3.Visible = True

		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.kontrolledrucken2 with Druckvorschau.Blatt, dRatio
		DO kontrolledrucken2
		myindexe = register

	Case register = 45
		myindexe = 11
		Do menaktiv &&Do attached
		
	Case  Inlist(register, 46, 47)
		Messagebox("In Vorbereitung")
Endcase
ENDPROC
     2                              x   %                          U  

 H
    '? 
 T   
 T      (d   
 T      )   
 T      *   
 T      - 
 T    C  ./ C In Vorbereitungx  U  REGISTER DRATIO
 AG_BERSICHT2 MYINDEXE ANSICHT AGSICHT KONTROLLEDRUCKEN2	 MENAKTIV Click,     1   r  x  t  x   q RA 1                       ?      )                           
commandbutton      
commandbutton      
ssCommand2      FORM1      cTop = 2
Left = 751
Height = 31
Width = 115
Caption = "Daten exportieren"
Name = "ssCommand2"
      *PROCEDURE Click
DO FORM export
ENDPROC
                                      L   %   I       ^      X             U     export U  EXPORT Click,     1  1                              )                            
commandbutton      
commandbutton      
ssCommand5      FORM1      WTop = 2
Left = 867
Height = 31
Width = 115
Caption = "Hilfe"
Name = "ssCommand5"
     )PROCEDURE Click
Do Case && register
	Case  Inlist(register, 39, 40, 41, 42 )&& Hilfe Gemischt
		inet = 111
		Msg = "31"
		DO insinternet 
	Case register = 45 &&Teilzeitrechner
		inet = 111
		Msg = "161"
		DO insinternet 
	Case register = 46


	Case register = 47

Endcase
ENDPROC
         o  o                        _   %          &     
            U   
 H
   C  '()*K 
 T o T  31     - 
 T o T  161     .    /   U  REGISTER INET MSG INSINTERNET Click,     1    q  q B 1                             )   o                        
commandbutton      
commandbutton      
ssCommand1      FORM1      iTop = 1
Left = 286
Height = 31
Width = 115
Cancel = .T.
Caption = "Schlieen"
Name = "ssCommand1"
      PROCEDURE Click
fensteroffen = 0
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
myform1.visible = .t.
thisform.release

ENDPROC
     m    T  T                        :   %                            U  U 
 T   
 T  
 T   T      T  a
  	  U
  FENSTEROFFEN	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION VISIBLE THISFORM RELEASE Click,     1    1  2                              )   T                        
commandbutton      
commandbutton      
ssCommand6      FORM1      zTop = 2
Left = 984
Height = 31
Width = 115
Caption = "sscommand6"
Enabled = .F.
Visible = .F.
Name = "ssCommand6"
      ^PROCEDURE Click
myindexe = 12
indexi = 12
Do menaktiv &&Do attached
indexi = 0
ENDPROC
                                         %   ~                          U  1 
 T  
 T   
 T   U  MYINDEXE INDEXI	 MENAKTIV Click,     1   q  1                       S       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 678
Left = 1212
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      	oldheight      FORM1      cEnabled = .F.
Height = 19
Left = 1071
Top = 531
Visible = .F.
Width = 82
Name = "oldheight"
      textbox      textbox      oldWidth      FORM1      aEnabled = .F.
Height = 19
Left = 984
Top = 534
Visible = .F.
Width = 82
Name = "oldWidth"
      
commandbutton      
commandbutton      spaltenklick      FORM1      ~Top = 1
Left = 1104
Height = 12
Width = 76
Caption = "spaltenklick"
Enabled = .F.
Visible = .F.
Name = "spaltenklick"
     PROCEDURE Click
*myForm3.WindowState = 1

Do Case && MSFlexGrid1.Row
	Case recno("ansicht2") >= 1 .And. recno("ansicht2") <= 12
		If jahrzeigen = 0
			vongrid = 1
			zi(1+20) = recno("ansicht2") - 1
			Monat = zi(1+20) + 1
			myform1.tdbnumber1.Value = fileneu
		Endif
		myform1.visible = .t.
		thisform.Release
		
		Do Neuername &&Do attached

		xxx = ALLTRIM(STR(Monat - 1,2,0))
		myform1.mon&xxx..click


	Case recno("ansicht2") >= 22 .And. recno("ansicht2") <= 33
		If jahrzeigen = 0
			vongrid = 1
			zi(1+20) = recno("ansicht2") - 22
			Monat = zi(1+20) + 1
			myform1.tdbnumber1.Value = fileneu
		Endif
		myform1.visible = .t.
		thisform.Release

		Do Neuername &&Do attached

		xxx = ALLTRIM(STR(Monat - 1,2,0))
		myform1.mon&xxx..click

Endcase
ENDPROC
     <    #  #                           %                          U  
 H
 0 C ansicht2O C ansicht2O	  %    
 T ! T C ansicht2O T C  T      T  a
 	 
    T CC  Z myform1.mon&xxx..click
0 C ansicht2O C ansicht2O!	 %   
 T ! T C ansicht2O T C  T      T  a
 	 
    T CC  Z myform1.mon&xxx..click
  U
 
 JAHRZEIGEN VONGRID ZI MONAT MYFORM1
 TDBNUMBER1 VALUE FILENEU VISIBLE THISFORM RELEASE	 NEUERNAME XXX Click,     1   Q1A   r  Q1A   r B 1                             )   #                        
commandbutton      
commandbutton      Command7      FORM1      qTop = 4
Left = 11
Height = 25
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command7"
      PROCEDURE Click
If thisform.hScroll1.value > thisform.hScroll1.Min 
	thisform.hScroll1.value = thisform.hScroll1.value - 1
ENDIF
thisform.hScroll1.scroll
    
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )   
                        
commandbutton      
commandbutton      Command8      FORM1      sTop = 4
Left = 267
Height = 25
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command8"
      PROCEDURE Click
If thisform.hScroll1.value < thisform.hScroll1.Max 
	thisform.hScroll1.value = thisform.hScroll1.value + 1
ENDIF
thisform.hScroll1.scroll

ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )   
                        xslider      foxyslider.vcx      	container      hscroll1      FORM1     tTop = 4
Left = 31
Width = 233
Height = 24
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 200
showtips = .T.
min = 1
showtipsalways = .T.
Name = "hscroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     {PROCEDURE scroll
IF this.value > satzanzahl
	this.value = this.value - 1
	return
endif
If thisform.HScroll1.Value > 0
*	myform3.visible = false
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			thisform.MSFlexGrid1.Visible = False
*!*		endif
	namensfile = thisform.HScroll1.Value
*!*		Do Case && register
*!*			Case register = 39
			Do uebersichtladen &&Do attached
*!*			Case register = 40
*!*				Do uebersichtladen1 &&Do attached
*!*			Case register = 41
*!*				Do uebersichtladen2 &&Do attached
*!*			Case register = 42
*!*				Do uebersichtladen3 &&Do attached
*!*			Case register = 45 &&Teilzeitrechner
*!*		ENDCASE
*	myform3.visible = true
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			thisform.MSFlexGrid1.Visible = false
*!*		endif
ENDIF
thisform.refresh

ENDPROC
         g  g                        p   %                           U  u  %    /  T       B  %    d  T       
    U  THIS VALUE
 SATZANZAHL THISFORM HSCROLL1
 NAMENSFILE UEBERSICHTLADEN REFRESH scroll,     1 AqA A q6s N  2                       p      )   g                        grid      grid      grdAnsicht2      FORM1     ColumnCount = 11
DeleteMark = .F.
HeaderHeight = 92
Height = 643
Left = 10
Panel = 1
RecordSource = "ansicht2"
RecordSourceType = 1
Top = 35
Width = 1202
Name = "grdAnsicht2"
Column1.ControlSource = "ansicht2.texte"
Column1.Width = 75
Column1.Name = "Column1"
Column2.ControlSource = "ansicht2.januar"
Column2.Width = 112
Column2.Name = "Column2"
Column3.ControlSource = "ansicht2.februar"
Column3.Width = 108
Column3.Name = "Column3"
Column4.ControlSource = "ansicht2.marz"
Column4.Width = 109
Column4.Name = "Column4"
Column5.ControlSource = "ansicht2.april"
Column5.Width = 111
Column5.Name = "Column5"
Column6.ControlSource = "ansicht2.mai"
Column6.Width = 109
Column6.Name = "Column6"
Column7.ControlSource = "ansicht2.juni"
Column7.Width = 110
Column7.Name = "Column7"
Column8.ControlSource = "ansicht2.juli"
Column8.Width = 110
Column8.Name = "Column8"
Column9.ControlSource = "ansicht2.august"
Column9.Width = 107
Column9.Name = "Column9"
Column10.ControlSource = "ansicht2.september"
Column10.Width = 104
Column10.Name = "Column10"
Column11.ControlSource = "ansicht2.oktober"
Column11.Width = 105
Column11.Name = "Column11"
     PROCEDURE Init
thisform.grdansicht2.Column1.DynamicBackColor = "gridcolor_ansicht2(1)"
thisform.grdansicht2.Column2.DynamicBackColor = "gridcolor_ansicht2(2)"
thisform.grdansicht2.Column3.DynamicBackColor = "gridcolor_ansicht2(3)"
Thisform.grdansicht2.Column4.DynamicBackColor = "gridcolor_ansicht2(4)"
Thisform.grdansicht2.Column5.DynamicBackColor = "gridcolor_ansicht2(5)"
Thisform.grdansicht2.Column6.DynamicBackColor = "gridcolor_ansicht2(6)"
Thisform.grdansicht2.Column7.DynamicBackColor = "gridcolor_ansicht2(7)"
Thisform.grdansicht2.Column8.DynamicBackColor = "gridcolor_ansicht2(8)"
Thisform.grdansicht2.Column9.DynamicBackColor = "gridcolor_ansicht2(9)"
Thisform.grdansicht2.Column10.DynamicBackColor = "gridcolor_ansicht2(10)"
Thisform.grdansicht2.Column10.DynamicforeColor = "gridcolor_ansicht2(101)"
Thisform.grdansicht2.Column11.DynamicBackColor = "gridcolor_ansicht2(11)"

thisform.grdansicht2.Column2.DynamicforeColor = "gridcolor_ansicht2(0)"
thisform.grdansicht2.Column3.DynamicforeColor = "gridcolor_ansicht2(0)"
Thisform.grdansicht2.Column4.DynamicforeColor = "gridcolor_ansicht2(0)"
Thisform.grdansicht2.Column5.DynamicforeColor = "gridcolor_ansicht2(0)"
thisform.grdansicht2.refresh()
ENDPROC
     6                                 %                          U  + T      gridcolor_ansicht2(1)+ T      gridcolor_ansicht2(2)+ T      gridcolor_ansicht2(3)+ T      gridcolor_ansicht2(4)+ T      gridcolor_ansicht2(5)+ T      gridcolor_ansicht2(6)+ T   	   gridcolor_ansicht2(7)+ T   
   gridcolor_ansicht2(8)+ T      gridcolor_ansicht2(9), T      gridcolor_ansicht2(10)- T    
  gridcolor_ansicht2(101), T      gridcolor_ansicht2(11)+ T    
  gridcolor_ansicht2(0)+ T    
  gridcolor_ansicht2(0)+ T    
  gridcolor_ansicht2(0)+ T    
  gridcolor_ansicht2(0) C     U  THISFORM GRDANSICHT2 COLUMN1 DYNAMICBACKCOLOR COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 DYNAMICFORECOLOR COLUMN11 REFRESH Init,     1 1                             )                           header      header      Header1      FORM1.grdAnsicht2.Column1      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column1      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column2      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column2      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column3      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column3      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column4      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column4      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column5      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column5      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column6      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column6      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column7      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column7      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column8      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column8      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column9      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column9      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column10      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column10      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            header      header      Header1      FORM1.grdAnsicht2.Column11      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht2.Column11      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      7PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
                                      7   %   _       t      n             U   
      U  THISFORM SPALTENKLICK CLICK Click,     1  1                       ,       )                            
commandbutton      
commandbutton      mittelteilzeilenA      FORM1      ~Top = 17
Left = 1097
Height = 16
Width = 38
Caption = "teilZa"
Enabled = .F.
Visible = .F.
Name = "mittelteilzeilenA"
     PROCEDURE Click
SELECT ansicht
				GOTO 17
*!*					.Text = myformat(sicht(1+i,1+ 14), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 14), "###,##0.00")
				flush
*!*					.Row = 18
				GOTO 18
*!*					.Text = Alltrim(BEhe(i))
				replace ansicht.&hsfeld WITH Alltrim(BEhe(i))
				flush				
*!*					.Row = 19
				GOTO 19
*!*					.Text = myformat(sicht(1+i,1+ 17), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 17), "###,##0.00")
				flush				
*!*					.Row = 20
				GOTO 20
*!*					.Text = myformat(sicht(1+i,1+ 18), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 18), "###,##0.00")
				flush				
*!*					.Row = 21
				GOTO 21
*!*					.Text = myformat(sicht(1+i,1+ 19), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 19), "###,##0.00")
				flush				
*!*					.Row = 22
				GOTO 22
*!*					.Text = myformat(sicht(1+i,1+ 16), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 16), "###,##0.00")
				flush				
*!*					.Row = 23
				GOTO 23
				If i < 13
*!*						.Text = BKasse(i)
					replace ansicht.&hsfeld WITH BKasse(i)
					flush					
				Else
*!*						.Text = ""
					replace ansicht.&hsfeld WITH ""
					flush					
				Endif
*!*					.Row = 24
				GOTO 24
*!*					.Text = myformat(BBeitragsatz(i), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(BBeitragsatz(i), "###,##0.00")
				flush	
ENDPROC
                                   f   %         Q                  U   F  	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 14), "###,##0.00")
 [	 #1 replace ansicht.&hsfeld WITH Alltrim(BEhe(i))
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 17), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 18), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 19), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 16), "###,##0.00")
 [	 # % 

;* replace ansicht.&hsfeld WITH BKasse(i)
 [ j# replace ansicht.&hsfeld WITH ""
 [ 	 #H replace ansicht.&hsfeld WITH myformat(BBeitragsatz(i), "###,##0.00")
 [ U  ANSICHT I Click,     1 q  A  A  A  A  A  A  A  2A A  A 1                             )                           
commandbutton      
commandbutton      mittelteilzeilenB      FORM1      }Top = 8
Left = 1145
Height = 16
Width = 39
Caption = "teilZb"
Enabled = .F.
Visible = .F.
Name = "mittelteilzeilenB"
     PROCEDURE Click
SELECT ansicht
				GOTO 17
*!*					.Text = Alltrim(Bgruppe(i))
				replace ansicht.&hsfeld WITH Alltrim(Bgruppe(i))
				FLUSH
				
*!*					.Row = 18
				GOTO 18
*!*					.Text = Alltrim(BStufe(i))
				replace ansicht.&hsfeld WITH Alltrim(BStufe(i))
				FLUSH
								
*!*					.Row = 19
				GOTO 19
*!*					.Text = Alltrim(BOZ(i))
				replace ansicht.&hsfeld WITH Alltrim(BOZ(i))
				FLUSH
								
*!*					.Row = 20
				GOTO 20
*!*					.Text = myformat(sicht(1+i,1+ 15), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 15), "###,##0.00")
				FLUSH
								
*!*					.Row = 21
				GOTO 21
*!*					.Text = myformat(sicht(1+i,1+ 38), "###,##0.00")
				replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 38), "###,##0.00")
				FLUSH
								
*!*					.Row = 22
				GOTO 22
*!*					.Text = Alltrim(BVoll(i))
				replace ansicht.&hsfeld WITH Alltrim(BVoll(i))
				FLUSH
								
*!*					.Row = 23
				GOTO 23
*!*					.Text = Alltrim(BTage(i))
				replace ansicht.&hsfeld WITH Alltrim(BTage(i))
				FLUSH
								
*!*					.Row = 24
				GOTO 24
*!*					.Text = Alltrim(BKost(i))
				replace ansicht.&hsfeld WITH Alltrim(BKost(i))
				FLUSH
ENDPROC
                                   b   %   j           y            U  1 F  	 #4 replace ansicht.&hsfeld WITH Alltrim(Bgruppe(i))
 [	 #3 replace ansicht.&hsfeld WITH Alltrim(BStufe(i))
 [	 #0 replace ansicht.&hsfeld WITH Alltrim(BOZ(i))
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 15), "###,##0.00")
 [	 #I replace ansicht.&hsfeld WITH myformat(sicht(1+i,1+ 38), "###,##0.00")
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BVoll(i))
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BTage(i))
 [	 #2 replace ansicht.&hsfeld WITH Alltrim(BKost(i))
 [ U  ANSICHT Click,     1 q  BA  2A  A  A  A  "A  "A  "A 1                             )                           
commandbutton      
commandbutton      mittelteilA      FORM1      yTop = 23
Left = 1105
Height = 12
Width = 49
Caption = "mittelA"
Enabled = .F.
Visible = .F.
Name = "mittelteilA"
     PROCEDURE Click
SELECT ansicht
		GOTO 17
*!*			.Text = Alltrim(zt23(1+zi(1+23)))
		replace ansicht.texte WITH Alltrim(zt23(1+zi(1+23)))
		FLUSH
		
*!*			.Row = 18
		GOTO 18
*!*			.Text = "Steuerklasse"
		replace ansicht.texte WITH "Steuerklasse"
		FLUSH

*!*			.Row = 19
		GOTO 19
*!*			.Text = "Steuerpflichtiges Entgelt"
		replace ansicht.texte WITH "Steuerpflichtiges Entgelt"
		FLUSH

*!*			.Row = 20
		GOTO 20
*!*			.Text = "KV-pflichtiges Entgelt"
		replace ansicht.texte WITH "KV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 21
		GOTO 21
*!*			.Text = "RV-pflichtiges Entgelt"
		replace ansicht.texte WITH "RV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 22
		GOTO 22
*!*			.Text = "RV-pflichtiges Entgelt"
		replace ansicht.texte WITH "ATV-pflichtiges Entgelt"
		FLUSH

*!*			.Row = 23
		GOTO 23
*!*			.Text = "Krankenkasse"
		replace ansicht.texte WITH "Krankenkasse"
		FLUSH

*!*			.Row = 24
		GOTO 24
*!*			.Text = "KV-Beitragssatz"
		replace ansicht.texte WITH "KV-Beitragssatz"
		FLUSH
ENDPROC
     t    [  [                           %                          U   F  	 # >   CCC   [	 # >    Steuerklasse [	 #) >    Steuerpflichtiges Entgelt [	 #& >    KV-pflichtiges Entgelt [	 #& >    RV-pflichtiges Entgelt [	 #' >    ATV-pflichtiges Entgelt [	 # >    Krankenkasse [	 # >    KV-Beitragssatz [ U  ANSICHT TEXTE ZT23 ZI Click,     1 q  A  A  A  bA  bA  rA  A  A 1                             )   [                        
commandbutton      
commandbutton      mittelteilB      FORM1      xTop = 22
Left = 1159
Height = 13
Width = 46
Caption = "mttelB"
Enabled = .F.
Visible = .F.
Name = "mittelteilB"
     
dPROCEDURE Click
*!*			.Col = 0
*!*			.Row = 17
SELECT ansicht
		GOTO 17
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "Bes.Gruppe"
				replace ansicht.texte WITH "Bes.Gruppe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Entg.Gruppe" &&zt23(1+zi(1+23))
				replace ansicht.texte WITH "Entg.Gruppe" &&zt23(1+zi(1+23))
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32) .Or.  wvw.znam(4) > 35
*!*					.Text = "Verg.Gruppe"
				replace ansicht.texte WITH "Verg.Gruppe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Lohngruppe"
				replace ansicht.texte WITH "Lohngruppe"
		Endcase
		FLUSH
		
*!*			.Row = 18
		GOTO 18
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "DA-Stufe"
				replace ansicht.texte WITH "DA-Stufe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Entgeltstufe"
				replace ansicht.texte WITH "Entgeltstufe"
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32) .Or.  wvw.znam(4) > 35
*!*					.Text = "Altersstufe"
				replace ansicht.texte WITH "Altersstufe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Lohnstufe"
				replace ansicht.texte WITH "Lohnstufe"
		Endcase
		flush	
		
*!*			.Row = 19
		GOTO 19
		Do Case && wvw.znam(4)
			Case (wvw.znam(4) >= 0 .And. wvw.znam(4) <= 9)
*!*					.Text = "Fam.Z.Stufe"
				replace ansicht.texte WITH "Fam.Z.Stufe"
			Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 27)
*!*					.Text = "Besitzstand fr Kinder"
				replace ansicht.texte WITH "Besitzstand fr Kinder"
			Case (wvw.znam(4) >= 28 .And. wvw.znam(4) <= 32)
*!*					.Text = "Ortsz.-Stufe"
				replace ansicht.texte WITH "Ortsz.-Stufe"
			Case (wvw.znam(4) >= 33 .And. wvw.znam(4) <= 35)
*!*					.Text = "Kinderzuschl."
				replace ansicht.texte WITH "Kinderzuschl."
			Case (wvw.znam(4) >= 36 .And. wvw.znam(4) <= 37)
*!*					.Text = "Verh.Z."
				replace ansicht.texte WITH "Verh.Z."
		Endcase
		flush	
		
*!*			.Row = 20
		GOTO 20
*!*			.Text = "Sachbezug Zeile 25"
		replace ansicht.texte WITH "Sachbezug Zeile 25"
		FLUSH
		
*!*			.Row = 21
		GOTO 21
*!*			.Text = "Sachbezug Zeile 26"
		replace ansicht.texte WITH "Sachbezug Zeile 26"
		FLUSH
		
*!*			.Row = 22
		GOTO 22
*!*			.Text = "Arbeitsstunden"
		replace ansicht.texte WITH "Arbeitsstunden"
		FLUSH
		
*!*			.Row = 23
		GOTO 23
*!*			.Text = "Tage"
		replace ansicht.texte WITH "Tage"
		FLUSH
		
*!*			.Row = 24
		GOTO 24
*!*			.Text = "Kostenstelle"
		replace ansicht.texte WITH "Kostenstelle"
		flush

ENDPROC
                                     Q   %   8        8   G            U   F  	 #
 H E+ C    C  		b  >   
 Bes.Gruppe+ C  
 C  	  >    Entg.Gruppe= C   C   	 C  #  >    Verg.Gruppe+ C  ! C  #	E >   
 Lohngruppe  [	 #
 Hc+ C    C  		 >    DA-Stufe+ C  
 C  	 >    Entgeltstufe= C   C   	 C  #E >    Altersstufe+ C  ! C  #	 >   	 Lohnstufe  [	 #
 H+ C    C  		 >    Fam.Z.Stufe+ C  
 C  	>& >    Besitzstand fr Kinder+ C   C   	 >    Ortsz.-Stufe+ C  ! C  #	 >   
 Kinderzuschl.+ C  $ C  %	 >    Verh.Z.  [	 #" >    Sachbezug Zeile 25 [	 #" >    Sachbezug Zeile 26 [	 # >    Arbeitsstunden [	 # >    Tage [	 # >    Kostenstelle [ U  ANSICHT WVW ZNAM TEXTE Click,     1 s   A A   A A   brA A  "A  "A  A  BA  A 2                       Y
      )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
              (       @                                                                                                                                                                                                                                                                         			                                                                                                                                                                                                       ?????????????        ????????????0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6871A55K01402908945      /  F      ]        X                                           WINDOWS _6871A55K21531793088                                                                     WINDOWS _6871A55K31402908440                  :                                                 WINDOWS _6871A55K41531793088                  1  H                                               WINDOWS _6871A55K51415138569/#      D#  Y#  i#  v#      #  (                                               WINDOWS _6871A55K61502246411e,      z,  ,  ,  ,      %-  /                                               WINDOWS _6871A55K714029083622      2  2  2  2                                                           WINDOWS _6871A55K81415140057e3      q3  }3  3  3      17  28                                               WINDOWS _6871A55K914029085049      9  9  9  
:                                                           WINDOWS _6871A55KA1402947696T:      c:  r:  :  :                                                           WINDOWS _6871A55KB1402908504;      $;  2;  A;  g;                                                           WINDOWS _6871A55KC1402947696;      ;  ;  ;  ;                                                           WINDOWS _6871A55KD1402908504p<      ~<  <  <  <                                                           WINDOWS _6871A55KE1402947696=      =  &=  3=  Y=                                                           WINDOWS _6871A55KF1402908504=      =  =  =  >                                                           WINDOWS _6871A55KG1402947696b>      q>  >  >  >                                                           WINDOWS _6871A55KH1402908504$?      2?  @?  O?  u?                                                           WINDOWS _6871A55KI1402947696?      ?  ?  ?  
@                                                           WINDOWS _6871A55KJ1402908504~@      @  @  @  @                                                           WINDOWS _6871A55KK1402947696A      %A  4A  AA  gA                                                           WINDOWS _6871AAKIA1415140057A  A  B  B  $B  1B                                                           WINDOWS _6871AY7B71415140057B      B  B  B  C      E  RE                                               WINDOWS _69U0LFAJ51415140110BF      RF  bF  pF  }F      F  iH                                               WINDOWS _69U0M8XDM1415140207'J      4J  AJ  OJ  \J                                                           COMMENT RESERVED                                )K                                                            K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR kirchensteuer (bland C(30), f1 N(10,2), f2 N(10,2), f3 N(10,2), f4 N(10,2), f5 N(10,2))
ENDPROC
     m    T  T                        :   %                           U    h
 kirchensteuer  C  N
  N
  N
  N
  N
 U 
 KIRCHENSTEUER BLAND F1 F2 F3 F4 F5 BeforeOpenTables,     1 1                              )   T                        1      1      form      form      FORM1     
Height = 590
Width = 798
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Kirchensteuer"
ControlBox = .T.
Closable = .F.
FontBold = .T.
FontSize = 11
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     	lPROCEDURE Init
thisform.Caption = "Pauschalkirchensteuer"
thisform.label1.Caption = thisform.label1.Caption + " " + welchesjahrc
crlf = CHR(13)+CHR(10)
thisform.grdKirchensteuer.column1.header1.caption = "Bundesland"
thisform.grdKirchensteuer.column2.header1.caption = "Kirchensteuer-"+crlf+"satz"
thisform.grdKirchensteuer.column3.header1.caption = "Kappung"+crlf+"in % des zu"+crlf+"versteuernden"+crlf+"Einkommens"+crlf+"%"
thisform.grdKirchensteuer.column4.header1.caption = "Steuersatz"+crlf+"Lohnsteuer"+crlf+"von allen"+crlf+"Bediensteten"+crlf+"%"
thisform.grdKirchensteuer.column5.header1.caption = "bei pauschaler"+crlf+"bei Erhebung"+crlf+"nur von den"+crlf+"Konf.Angehr."+crlf+"%"
thisform.grdKirchensteuer.column6.header1.caption = "Mindest"+crlf+"Betrag"+crlf+"monatlich"+crlf+"EURO"

SELECT kirchensteuer
FOR hsa = 1 TO 17
	APPEND BLANK
	replace kirchensteuer.bland WITH ALLTRIM(zt2(hsa))
	FLUSH
NEXT
GO top
FOR hsa = 1 TO 17
	GOTO hsa
	replace kirchensteuer.f1 WITH atvkistr(1+0,hsa)
	replace kirchensteuer.f2 WITH atvkistr(1+1,hsa) / 10
	If atvkistr(1+2,hsa) > 10
		replace kirchensteuer.f3 WITH atvkistr(1+2,hsa) / 10
	ELSE
		replace kirchensteuer.f3 WITH atvkistr(1+2,hsa)
	Endif
	replace kirchensteuer.f4 WITH atvkistr(1+0,hsa)
	replace kirchensteuer.f5 WITH atvkistr(1+3,hsa) / 100
Next
GOTO zi(1+2) +1

*If .not. EMPTY(thisform.optiongroup1.Option1.Value) &&vorher = True
IF Pausch.datvcheck = True
	thisform.optiongroup1.Value = 1
Else
	thisform.optiongroup1.Value = 2
Endif

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdKirchensteuer.column1.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
thisform.grdKirchensteuer.column2.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
thisform.grdKirchensteuer.column3.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
thisform.grdKirchensteuer.column4.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
thisform.grdKirchensteuer.column5.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
thisform.grdKirchensteuer.column6.text1.FontSize = thisform.grdKirchensteuer.column1.FontSize
ENDPROC
PROCEDURE Destroy
SELECT kirchensteuer 
USE

ENDPROC
                                   i   %           4               U  % T    Pauschalkirchensteuer" T            T C
 C
 # T      
 Bundesland3 T       Kirchensteuer-  satzc T   	    Kappung  in % des zu 
 versteuernden 
 Einkommens  %c T   
   
 Steuersatz 
 Lohnsteuer 	 von allen  Bediensteten  %l T       bei pauschaler  bei Erhebung  nur von den 
 Konf.Angehr.  %K T       Mindest  Betrag 	 monatlich  EURO F
   (m  >
  CC    [  #)  (W	 #  >
  C    >
  C   
 %C   
 >
  C   
  >
  C     >
  C    >
  C   d  #C  %    T      T     
      T         T  !   !   
   "  T  # a U$  THISFORM CAPTION LABEL1 WELCHESJAHRC CRLF GRDKIRCHENSTEUER COLUMN1 HEADER1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6
 KIRCHENSTEUER HSA BLAND ZT2 F1 ATVKISTR F2 F3 F4 F5 ZI PAUSCH	 DATVCHECK TRUE OPTIONGROUP1 VALUE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C    " T           " T           " T           " T   	        " T   
        " T            U  THISFORM SIZER	 FRMRESIZE GRDKIRCHENSTEUER COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6  F   Q U 
 KIRCHENSTEUER Init,      Resizeq     Destroy    1 Q!Q1111r qQ qA A Q q  A A C1 1A  rq  2 !!!!!!2 q A 2                            )     '	  0   1   E	  a	  9    )                           
commandbutton      
commandbutton      Command1      FORM1      VTop = 512
Left = 495
Height = 31
Width = 94
Caption = "Hilfe"
Name = "Command1"
      SPROCEDURE Click
Msg = "20290"
inet = 111
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  )  T   20290
 T o   U  MSG INET INSINTERNET Click,     1 ! q 1                       H       )                            
commandbutton      
commandbutton      Command2      FORM1      YTop = 512
Left = 592
Height = 31
Width = 94
Caption = "Vorgaben"
Name = "Command2"
     PROCEDURE Click
Do Case && welchesjahr
*!*		Case welchesjahr = 2019
*!*			Do pauschanlegen2019 &&Do attached
*!*		Case welchesjahr = 2020
*!*			Do pauschanlegen2020 &&Do attached
*!*		Case welchesjahr = 2021
*!*			DO pauschanlegen2021 &&jahreswechsel
	Case welchesjahr = 2022
		DO pauschanlegen2022 &&jahreswechsel done2021
	Case welchesjahr = 2023
		DO pauschanlegen2023 &&jahreswechsel done2021
	Case welchesjahr = 2024
		DO pauschanlegen2024 &&jahreswechsel done2021
	Case welchesjahr = 2025
		DO pauschanlegen2025 &&jahreswechsel done2024
	Case welchesjahr = 2026
		DO pauschanlegen2026 &&jahreswechsel done2024
	Case welchesjahr = 2027
		DO pauschanlegen2027 &&jahreswechsel done2024
Endcase

With Pausch
	For i = 0 To 3
		For j = 0 To 16
			atvkistr(1+i,1+j) = .datvkistr(1+i,1+j)
		Next
	Next
ENDWITH

SELECT kirchensteuer
GO top
FOR hsa = 1 TO 17
	GOTO hsa
	replace kirchensteuer.f1 WITH atvkistr(1+0,hsa)
	replace kirchensteuer.f2 WITH atvkistr(1+1,hsa) / 10
	If atvkistr(1+2,hsa) >= 10
		replace kirchensteuer.f3 WITH atvkistr(1+2,hsa) / 10
	ELSE
		replace kirchensteuer.f3 WITH atvkistr(1+2,hsa)
	Endif
	replace kirchensteuer.f4 WITH atvkistr(1+0,hsa)
	replace kirchensteuer.f5 WITH atvkistr(1+3,hsa) / 100
Next
GOTO zi(1+2) +1

ENDPROC
                                   68   %   "      }  &   1            U  $
 H
     &      ?      X      q                
     ( 	  (1 T
  	 C 	      F  #) 
 (	 #
  >  C 
 
  >  C 
 
 
 %C 
 
 
 >  C 
 
 
  >  C 
 
   >  C 
 
  >  C 
 
 d  #C  U  WELCHESJAHR PAUSCHANLEGEN2022 PAUSCHANLEGEN2023 PAUSCHANLEGEN2024 PAUSCHANLEGEN2025 PAUSCHANLEGEN2026 PAUSCHANLEGEN2027 PAUSCH I J ATVKISTR	 DATVKISTR
 KIRCHENSTEUER HSA F1 F2 F3 F4 F5 ZI Click,     1  'q !q !q !q !q !q A  qqA A A r Q q  A A 2                             )                           
commandbutton      
commandbutton      Command3      FORM1      ZTop = 512
Left = 690
Height = 31
Width = 94
Caption = "Schlieen"
Name = "Command3"
     PROCEDURE Click
*KEIN SPEICHERN !!
SELECT kirchensteuer

*With myTablett.MSFlexGrid1
	
	*.Col = 1 &&kirchensteuer.f1
	For hsa = 1 TO 17 &&0 To 16
		GOTO hsa
		atvkistr(1+0,hsa) = INT(kirchensteuer.f1) &&Val(Msg)
		Pausch.datvkistr(1+0,hsa) = atvkistr(1+0,hsa)
	NEXT
	
	*.Col = 2 &&kirchensteuer.f2
	For hsa = 1 TO 17 &&j = 0 To 16
		GOTO hsa
		atvkistr(1+1,hsa) = INT(kirchensteuer.f2 * 10) &&Val(Msg) * 10
		Pausch.datvkistr(1+1,hsa) = atvkistr(1+1,hsa)
	NEXT
	
	*.Col = 3 &&kirchensteuer.f3
	For hsa = 1 TO 17 &&j = 0 To 16
		GOTO hsa
		IF kirchensteuer.f3 < 10
			atvkistr(1+2,hsa) = INT(kirchensteuer.f3 * 10) &&Val(Msg) * 10
		ELSE
			atvkistr(1+2,hsa) = INT(kirchensteuer.f3)
		endif		
		Pausch.datvkistr(1+2,hsa) = atvkistr(1+2,hsa)
	NEXT
	
	*.Col = 5 &&kirchensteuer.f5
	For hsa = 1 TO 17 &&j = 0 To 16
		GOTO hsa
		atvkistr(1+3,hsa) = kirchensteuer.f5 * 100 &&Val(Msg) * 100
		Pausch.datvkistr(1+3,hsa) = atvkistr(1+3,hsa)
	Next
*ENDWITH

If thisform.optiongroup1.Value = 1 &&vorher = True
	Pausch.datvcheck = True
Else
	Pausch.datvcheck = False
Endif

myput(122, welchesjahr - jahr1 + 1,"Pausch")&&hs2011
thisform.release
ENDPROC
                                   DQ   %   $      w  "   3            U  X F    (i 	 #  T  C   8$ T   C      ( 	 # " T  C   
8$ T   C      ({	 #  %   

-" T  C   
8 S T  C   8 $ T   C      (	 #   T     d$ T   C     %	 
   T  
  & T    ! Cz   Pausch 
 	   U 
 KIRCHENSTEUER HSA ATVKISTR F1 PAUSCH	 DATVKISTR F2 F3 F5 THISFORM OPTIONGROUP1 VALUE	 DATVCHECK TRUE FALSE MYPUT WELCHESJAHR JAHR1 RELEASE Click,     1 r u AA s !AA s A! A AA s AA s A  1                             )                           
commandbutton      
commandbutton      Command4      FORM1      qTop = 545
Left = 495
Height = 31
Width = 289
Caption = "Informationen zur Kirchensteuer"
Name = "Command4"
     PROCEDURE Click
*inet = 500
*Msg = "Kirchensteuergesetz.de"
*Do insinternet &&Do attached
*neue version
IF ok('Diese Funktion verweist auf einen externen Artikel ber Kirchensteuer in Deutschland von der Webseite "WIKIPEDIA (Deutschland)".'+CHR(13)+"Wenn Sie dies nicht wollen, dann brechen Sie bitte ab.")
	msg = "https:"+"//de." + "wikipedia.org/wiki/Kirchensteuer_(Deutschland)"
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.HWnd, "Open", Msg, "", "", SW_SHOWNORMAL)
	Msg = ""
	msg1 = ""
	mylink = 0
endif

ENDPROC
                                      %   )      L  
   8            U   %C Diese Funktion verweist auf einen externen Artikel ber Kirchensteuer in Deutschland von der Webseite "WIKIPEDIA (Deutschland)".C
 6 Wenn Sie dies nicht wollen, dann brechen Sie bitte ab.  N T  https: //de.. wikipedia.org/wiki/Kirchensteuer_(Deutschland). | ShellExecute shell32.dll) T C   Open         
 T   
 T	   
 T
    U  OK MSG SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL MSG1 MYLINK Click,     1 
   A 2                             )                           label      label      Label1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 18
Caption = "Vorgabewerte fr die Kirchensteuer "
Height = 32
Left = 14
Top = 12
Width = 415
Name = "Label1"
      grid      grid      grdKirchensteuer      FORM1     ColumnCount = 6
DeleteMark = .F.
HeaderHeight = 91
Height = 435
Left = 12
Panel = 1
ReadOnly = .T.
RecordSource = "KIRCHENSTEUER"
RecordSourceType = 1
Top = 53
Width = 776
Name = "grdKirchensteuer"
Column1.ControlSource = "KIRCHENSTEUER.bland"
Column1.Width = 179
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "KIRCHENSTEUER.f1"
Column2.Width = 116
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "KIRCHENSTEUER.f2"
Column3.Width = 100
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.ControlSource = "KIRCHENSTEUER.f3"
Column4.Width = 115
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.ControlSource = "KIRCHENSTEUER.f4"
Column5.Width = 119
Column5.ReadOnly = .T.
Column5.Name = "Column5"
Column6.ControlSource = "KIRCHENSTEUER.f5"
Column6.Width = 111
Column6.ReadOnly = .T.
Column6.Name = "Column6"
      PROCEDURE Init
Thisform.grdkirchensteuer.Columns(4).DynamicBackColor = "grid_color_kirchsteuer4(thisform.optiongroup1.value)"
Thisform.grdkirchensteuer.Columns(5).DynamicBackColor = "grid_color_kirchsteuer5(thisform.optiongroup1.value)"
ENDPROC
         i  i                        6   %   
                        U   P T     4 grid_color_kirchsteuer4(thisform.optiongroup1.value)P T     4 grid_color_kirchsteuer5(thisform.optiongroup1.value) U  THISFORM GRDKIRCHENSTEUER COLUMNS DYNAMICBACKCOLOR Init,     1 1                              )   i                        header      header      Header1      FORM1.grdKirchensteuer.Column1      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKirchensteuer.Column2      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKirchensteuer.Column3      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKirchensteuer.Column4      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKirchensteuer.Column5      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKirchensteuer.Column6      ?Alignment = 6
Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKirchensteuer.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 571
Left = 778
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 2
Value = 1
Height = 49
Left = 12
Top = 520
Width = 311
Name = "Optiongroup1"
Option1.FontBold = .T.
Option1.Caption = "Pauschalsteuer nur von Konfessionsangehrigen"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 302
Option1.Name = "Option1"
Option2.FontBold = .T.
Option2.Caption = "Pauschalsteuer von allen Bediensteten"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 289
Option2.Name = "Option2"
      IPROCEDURE InteractiveChange
thisform.grdkirchensteuer.refresh
ENDPROC
                                      '   %   e                          U   
      U  THISFORM GRDKIRCHENSTEUER REFRESH InteractiveChange,     1  1                       >       )                            checkbox      checkbox      Check1      FORM1      vTop = 491
Left = 330
Height = 22
Width = 156
Alignment = 0
Caption = "Tabelle von Hand ndern"
Name = "Check1"
     fPROCEDURE Click
IF EMPTY(this.Value)
	thisform.grdKirchensteuer.ReadOnly = .t.
	thisform.grdKirchensteuer.column1.ReadOnly = .t.
	thisform.label2.Visible = .f.
ELSE
	thisform.grdKirchensteuer.ReadOnly = .f.
	thisform.grdKirchensteuer.column1.ReadOnly = .t.
	thisform.label2.Visible = .t.	
ENDIF
thisform.grdKirchensteuer.column2.setfocus
ENDPROC
                                      %   -      T     <            U    %C   H  T   a T    a T   -   T   - T    a T   a     	  U
  THIS VALUE THISFORM GRDKIRCHENSTEUER READONLY COLUMN1 LABEL2 VISIBLE COLUMN2 SETFOCUS Click,     1 !A AA 1                       [      )                           label      label      Label2      FORM1      AutoSize = .T.
FontSize = 8
WordWrap = .T.
Caption = "Die Namen der Bundeslnder knnen nicht gendert werden!"
Height = 30
Left = 330
Top = 516
Visible = .F.
Width = 152
Name = "Label2"
      dArial, 1, 11, 7, 18, 14, 39, 4, 0
Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
09   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6880LEL1J1402949479      /  F      ]                                                       WINDOWS _6880LEL1K1501985137                      P
                                               WINDOWS _6880LEL1J1402951190>      K  X  f  s                                                           WINDOWS _6880M3WHP1402951190$      1  >  L  Y                                                           WINDOWS _6880M3WHQ1402951190	        #  1  >                                                           WINDOWS _6880LEL1J1402951190                                                                       WINDOWS _6880LEL1J1402951190           %  2                                                           WINDOWS _6880LEL1J1402951190y                                                                       WINDOWS _6880LEL1K1402951190        
    $                                                           WINDOWS RESERVED  1402951190k      w                                                                 WINDOWS _6880M3WHR1402951190          	                                                             WINDOWS _6880M3WHS1402951190]      i  u                                                               WINDOWS _6880M3WHT1402951190                                                                       WINDOWS _6880LEL1K1402951190O      [  g  t                                                             WINDOWS _6880M3WHU1402951190                                                                       WINDOWS _6880M3WHV1402951190D      P  \  j  w                                                           WINDOWS _6880LEL1J1402951190                                                                       WINDOWS _6880M3WHW1402951190{                                                                       WINDOWS _6880LEL1J1402951190'      4  A  O  \                                                           WINDOWS _6880LEL1J1402951190                                                                        WINDOWS _6880LEL1K1402951190s                                                                       WINDOWS _6880M3WHX1402951190        *  8  E                                                           WINDOWS _6880M3WHY1402951190                                                                       WINDOWS _6880M3WHZ1402951190T       a   n   }                                                               WINDOWS _6880LEL1J1402951190       !  !  !  *!                                                           WINDOWS _6880LEL1K1402951190!      !  !  !  !                                                           WINDOWS _6880M3WI01402951190C"      P"  ]"  l"  y"                                                           WINDOWS _6880LEL1J1402951190"      "  #  #   #                                                           WINDOWS _6880M3WI11402951190#      #  #  #  #                                                           WINDOWS _6880LEL1J1402951190;$      J$  Y$  f$  s$                                                           WINDOWS _6880LEL1K1402951190$      	%  %  %%  2%                                                           WINDOWS _6880LEL1J1402951738%      %  %  %  %                                                           WINDOWS _6880M3WHP1402951738&      &  &  &  &                                                           WINDOWS _6880M3WHQ1453031602'      '  '  '  '                                                           WINDOWS _6880LEL1J1453031507(      (  (  (  (                                                           WINDOWS _6880LEL1J1402951738y)      )  )  )  )                                                           WINDOWS _6880LEL1J1402951738i*      x*  *  *  *                                                           WINDOWS _6880MB26I1402951190Y+      h+  w+  +  +                                                           WINDOWS _6880MB26J14029511909,      H,  W,  e,  r,                                                           WINDOWS _6880MB26K1402951738,      	-  -  &-  3-                                                           WINDOWS _6880MB26L1402951738-      -  
.  .  %.                                                           WINDOWS _6880LEL1J1402951190.      .  .  
/  /                                                           WINDOWS _6880LEL1K1402951190/      /  /  /  /                                                           WINDOWS _6880LEL1J14029517380      0  0  0  0                                                           WINDOWS _6880M3WHP1402951738s1      1  1  1  1                                                           WINDOWS _6880MB26M1402951190e2      t2  2  2  2                                                           WINDOWS _6880MB26N1402951190&3      53  D3  R3  _3                                                           WINDOWS _6880MB26O14029517383      3  4  4   4                                                           WINDOWS _6880MB26P14029517384      4  4  5  5                                                           WINDOWS _6880MG6NS14530176005      5  5  6  6      w6  H;                                               WINDOWS _6880MG6NT1453031229>      >  ?  ?  $?      ?  j@                                               WINDOWS _6880MG6NU1453017600A      
B  "B  2B  ?B      B  B                                               WINDOWS _6880NAU6T1402951305C  C  D  +D  8D  ED                                                           WINDOWS _6LQ0JUZZ81501985138D      D  D  
E  E      E  E                                               WINDOWS _6LQ0MIBAH1453556404F      F  F  F  F                                                           COMMENT RESERVED                                G                                                            H                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 511
Width = 767
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Sozialversicherrungsdaten"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     	fPROCEDURE Init
thisform.label1.Caption = thisform.label1.Caption + " " + welchesjahrc
thisform.text1.Value = "bes.Tab."
thisform.text2.Value = "bes.Tab."
thisform.text17.Value = "---"


*.Col = 1
*.Row = 3
*.Text = "bes.Tab."
&&.CellBackColor = &H8000000F &&QBColor(7)
*.Row = 4


*.Row = 5
thisform.Text9.value = rvorein * 2
*.Row = 6
thisform.Text13.value = avorein * 2
*.Row = 7
*.Text = "     ---"
*.CellBackColor = mytablett.backcolor &&hex2rgb("&H8000000F") &&QBColor(7)

*.Col = 2
*.Row = 3
*.Text = "bes.Tab." &&Format(ZusatzKV, "#0.00")

*.Row = 4
IF welchesjahr = 2023 &&PVNEU
	ZusatzPV = 0.35
	pvorein = 1.525
endif
			
IF welchesjahr = 2024 &&jahreswechsel done 2024
	ZusatzPV = 0.600
	pvorein = 1.700
ENDIF
IF welchesjahr >= 2025 &&jahreswechsel done 2024
	ZusatzPV = 0.600
	pvorein = 1.800
ENDIF				
thisform.Text5.value = pvorein * 2
thisform.Text6.value = ZusatzPV

*.Col = 3
*.Row = 3
thisform.Text3.value = KVGrenze(1+0) / 100
*.Row = 4
thisform.Text7.value = pvgrenze(1+0) / 100
*.Row = 5
thisform.Text11.value = RVGrenze(1+0) / 100
*.Row = 6
thisform.Text15.value = avgrenze(1+0) / 100
*.Row = 7
thisform.Text19.value = gering(1+0) / 100

*.Col = 4
*.Row = 3
thisform.Text4.value = KVGrenze(1+1) / 100
*.Row = 4
thisform.Text8.value = pvgrenze(1+1) / 100
*.Row = 5
thisform.Text12.value = RVGrenze(1+1) / 100
*.Row = 6
thisform.Text16.value = avgrenze(1+1) / 100
*.Row = 7
thisform.Text20.value = gering(1+1) / 100

*!*	IF welchesjahr > 2023 .or. welchesjahr < 2023
*!*		thisform.command4.enabled = .f.
*!*		thisform.command4.visible = .f.
*!*		thisform.label16.Visible = .f.
*!*	endif

DO case
	CASE welchesjahr < 2023
		thisform.command4.Enabled = .f.
		thisform.command4.Visible = .f.
	CASE welchesjahr = 2023 .or. welchesjahr = 2024
		thisform.command4.Caption = "Werte in der PV ab 01.07.2023 anzeigen"
		thisform.command4.Enabled = .t.
		thisform.command4.Visible = .t.	
	CASE welchesjahr >= 2025
		thisform.command4.Caption = "Werte in der PV ab 01.01.2025 anzeigen"
		thisform.command4.Enabled = .t.
		thisform.command4.Visible = .t.	
endcase


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   1   %         t  4               U  " T            T     bes.Tab. T     bes.Tab. T     --- T    	  T  
    %   T
 ffffff? T ffffff?  %  T
 333333? T 333333?  % X T
 333333? T ?  T      T    
  T    C d T    C d T    C d T    C d T    C d T    C d T    C d T    C d T    C d T    C d
 H  
 T    ! - T    " -  	  N9 T     & Werte in der PV ab 01.07.2023 anzeigen T    ! a T    " a  9 T     & Werte in der PV ab 01.01.2025 anzeigen T    ! a T    " a 
   # $  T  %   % &  T  '   ' & 
   (  T  ) a U*  THISFORM LABEL1 CAPTION WELCHESJAHRC TEXT1 VALUE TEXT2 TEXT17 TEXT9 RVOREIN TEXT13 AVOREIN WELCHESJAHR ZUSATZPV PVOREIN TEXT5 TEXT6 TEXT3 KVGRENZE TEXT7 PVGRENZE TEXT11 RVGRENZE TEXT15 AVGRENZE TEXT19 GERING TEXT4 TEXT8 TEXT12 TEXT16 TEXT20 COMMAND4 ENABLED VISIBLE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 !a{r*QQA "QQA !QQA q1 !!A  rq  2 1                       $	     2   A	  [	  a    )                           label      label      Label1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Vorgaben fr die Sozialversicherung im Jahr "
Height = 25
Left = 21
Top = 12
Width = 421
Name = "Label1"
      label      label      Label2      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "Beitragsbemessungsgrenzen als Monatsbetrge"
Height = 19
Left = 24
Top = 48
Width = 317
Name = "Label2"
      shape      shape      Shape1      FORM1      ATop = 81
Left = 27
Height = 361
Width = 721
Name = "Shape1"
      line      line      Line1      FORM1      ?Height = 360
Left = 155
Top = 81
Width = 0
Name = "Line1"
      line      line      Line2      FORM1      ?Height = 0
Left = 27
Top = 127
Width = 720
Name = "Line2"
      line      line      Line3      FORM1      ?Height = 0
Left = 27
Top = 172
Width = 720
Name = "Line3"
      line      line      Line4      FORM1      ?Height = 0
Left = 27
Top = 217
Width = 720
Name = "Line4"
      line      line      Line5      FORM1      ?Height = 0
Left = 27
Top = 262
Width = 720
Name = "Line5"
      line      line      Line6      FORM1      ?Height = 0
Left = 28
Top = 306
Width = 720
Name = "Line6"
      line      line      Line7      FORM1      ?Height = 0
Left = 28
Top = 351
Width = 720
Name = "Line7"
      line      line      Line8      FORM1      ?Height = 0
Left = 28
Top = 396
Width = 720
Name = "Line8"
      line      line      Line9      FORM1      @Height = 314
Left = 302
Top = 127
Width = 0
Name = "Line9"
      line      line      Line10      FORM1      @Height = 360
Left = 450
Top = 81
Width = 0
Name = "Line10"
      line      line      Line11      FORM1      AHeight = 314
Left = 598
Top = 127
Width = 0
Name = "Line11"
      label      label      Label3      FORM1      ~FontSize = 12
Caption = "B e i t r a g s s  t z e   in %"
Height = 22
Left = 213
Top = 93
Width = 192
Name = "Label3"
      label      label      Label4      FORM1      oFontSize = 12
Caption = "Bemessungsgrenzen"
Height = 22
Left = 529
Top = 93
Width = 149
Name = "Label4"
      label      label      Label5      FORM1      gFontSize = 12
Caption = "AG und AN"
Height = 22
Left = 186
Top = 141
Width = 80
Name = "Label5"
      label      label      Label6      FORM1      kFontSize = 12
Caption = "je zur Hlfte"
Height = 22
Left = 186
Top = 185
Width = 80
Name = "Label6"
      label      label      Label7      FORM1      `FontSize = 12
Caption = "AN"
Height = 22
Left = 363
Top = 141
Width = 25
Name = "Label7"
      label      label      Label8      FORM1      hFontSize = 12
Caption = "zustzlich"
Height = 22
Left = 345
Top = 185
Width = 68
Name = "Label8"
      label      label      Label9      FORM1      bFontSize = 12
Caption = "WEST"
Height = 22
Left = 500
Top = 141
Width = 50
Name = "Label9"
      label      label      Label10      FORM1      bFontSize = 12
Caption = "OST"
Height = 22
Left = 652
Top = 141
Width = 35
Name = "Label10"
      label      label      Label11      FORM1      jFontSize = 12
Caption = "Krankenvers."
Height = 22
Left = 36
Top = 229
Width = 93
Name = "Label11"
      label      label      Label12      FORM1      iFontSize = 12
Caption = "Pflegevers."
Height = 22
Left = 36
Top = 276
Width = 93
Name = "Label12"
      label      label      Label13      FORM1      iFontSize = 12
Caption = "Rentenvers."
Height = 22
Left = 36
Top = 319
Width = 93
Name = "Label13"
      label      label      Label14      FORM1      lFontSize = 12
Caption = "Arbeitsl.Vers."
Height = 22
Left = 36
Top = 366
Width = 93
Name = "Label14"
      label      label      Label15      FORM1      iFontSize = 12
Caption = "Geringverd."
Height = 22
Left = 36
Top = 408
Width = 93
Name = "Label15"
      textbox      textbox      Text1      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 159
ReadOnly = .T.
Top = 227
Width = 138
Name = "Text1"
      textbox      textbox      Text2      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 308
ReadOnly = .T.
Top = 227
Width = 138
Name = "Text2"
      textbox      textbox      Text3      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 456
ReadOnly = .T.
Top = 227
Width = 138
Name = "Text3"
      textbox      textbox      Text4      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 603
ReadOnly = .T.
Top = 227
Width = 138
Name = "Text4"
      textbox      textbox      Text5      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 159
ReadOnly = .F.
Top = 272
Width = 138
Name = "Text5"
      textbox      textbox      Text6      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 308
ReadOnly = .T.
Top = 272
Width = 138
Name = "Text6"
      textbox      textbox      Text7      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 456
ReadOnly = .T.
Top = 272
Width = 138
Name = "Text7"
      textbox      textbox      Text8      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 603
ReadOnly = .T.
Top = 272
Width = 138
Name = "Text8"
      textbox      textbox      Text9      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 159
Top = 316
Width = 138
Name = "Text9"
      textbox      textbox      Text10      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 308
ReadOnly = .T.
Top = 316
Width = 138
Name = "Text10"
      textbox      textbox      Text11      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 456
ReadOnly = .T.
Top = 316
Width = 138
Name = "Text11"
      textbox      textbox      Text12      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 603
ReadOnly = .T.
Top = 316
Width = 138
Name = "Text12"
      textbox      textbox      Text13      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 159
Top = 361
Width = 138
Name = "Text13"
      textbox      textbox      Text14      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 308
ReadOnly = .T.
Top = 361
Width = 138
Name = "Text14"
      textbox      textbox      Text15      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 456
ReadOnly = .T.
Top = 361
Width = 138
Name = "Text15"
      textbox      textbox      Text16      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 603
ReadOnly = .T.
Top = 361
Width = 138
Name = "Text16"
      textbox      textbox      Text17      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 159
ReadOnly = .T.
Top = 402
Width = 138
Name = "Text17"
      textbox      textbox      Text18      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 308
ReadOnly = .T.
Top = 402
Width = 138
Name = "Text18"
      textbox      textbox      Text19      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 456
ReadOnly = .T.
Top = 402
Width = 138
Name = "Text19"
      textbox      textbox      Text20      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 603
ReadOnly = .T.
Top = 402
Width = 138
Name = "Text20"
      
commandbutton      
commandbutton      Command1      FORM1      ]Top = 460
Left = 456
Height = 31
Width = 94
Caption = "Vorgabewerte"
Name = "Command1"
     PROCEDURE Click
Do sozvorgaben &&Do attached
Do voreinstaus &&Do attached

thisform.text1.Value = "bes.Tab."
thisform.text2.Value = "bes.Tab."
thisform.text17.Value = "---"

*.Col = 1
*.Row = 3
*.Text = "bes.Tab."
&&.CellBackColor = &H8000000F &&QBColor(7)
*.Row = 4
thisform.Text5.value = pvorein * 2
*.Row = 5
thisform.Text9.value = rvorein * 2
*.Row = 6
thisform.Text13.value = avorein * 2
*.Row = 7
*.Text = "     ---"
*.CellBackColor = mytablett.backcolor &&hex2rgb("&H8000000F") &&QBColor(7)

*.Col = 2
*.Row = 3
*.Text = "bes.Tab." &&Format(ZusatzKV, "#0.00")

*.Row = 4
thisform.Text6.value = ZusatzPV

*.Col = 3
*.Row = 3
thisform.Text3.value = KVGrenze(1+0) / 100
*.Row = 4
thisform.Text7.value = pvgrenze(1+0) / 100
*.Row = 5
thisform.Text11.value = RVGrenze(1+0) / 100
*.Row = 6
thisform.Text15.value = avgrenze(1+0) / 100
*.Row = 7
thisform.Text19.value = gering(1+0) / 100

*.Col = 4
*.Row = 3
thisform.Text4.value = KVGrenze(1+1) / 100
*.Row = 4
thisform.Text8.value = pvgrenze(1+1) / 100
*.Row = 5
thisform.Text12.value = RVGrenze(1+1) / 100
*.Row = 6
thisform.Text16.value = avgrenze(1+1) / 100
*.Row = 7
thisform.Text20.value = gering(1+1) / 100
ENDPROC
         t  t                        B>   %         +                 U        T    bes.Tab. T    bes.Tab. T    --- T     T 	  
  T     T 
    T   C d T   C d T   C d T   C d T   C d T   C d T   C d T   C d T   C d T   C d U  SOZVORGABEN VOREINSTAUS THISFORM TEXT1 VALUE TEXT2 TEXT17 TEXT5 PVOREIN TEXT9 RVOREIN TEXT13 AVOREIN TEXT6 ZUSATZPV TEXT3 KVGRENZE TEXT7 PVGRENZE TEXT11 RVGRENZE TEXT15 AVGRENZE TEXT19 GERING TEXT4 TEXT8 TEXT12 TEXT16 TEXT20 Click,     1 q q awrr:1                             )   t                        
commandbutton      
commandbutton      Command2      FORM1      ZTop = 460
Left = 648
Height = 31
Width = 94
Caption = "Schlieen"
Name = "Command2"
      PROCEDURE Click
pvorein = thisform.Text5.value / 2
rvorein = thisform.Text9.value / 2
avorein = thisform.Text13.value / 2
ZusatzPV = thisform.Text6.value

Do voreinstaus &&Do attached

thisform.release
ENDPROC
         m  m                        x   %         $                 U  l  T      T     T     T  	   
 
    U  PVOREIN THISFORM TEXT5 VALUE RVOREIN TEXT9 AVOREIN TEXT13 ZUSATZPV TEXT6 VOREINSTAUS RELEASE Click,     1 qqq1r  1                              )   m                        
commandbutton      
commandbutton      Command3      FORM1      VTop = 460
Left = 552
Height = 31
Width = 94
Caption = "Hilfe"
Name = "Command3"
      SPROCEDURE Click
inet = 111
Msg = "20420"
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  ) 
 T  o T  20420   U  INET MSG INSINTERNET Click,     1  !q 1                       H       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 487
Left = 743
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command4      FORM1      Top = 460
Left = 60
Height = 31
Width = 252
Caption = "Werte in der PV ab 01.07.2023 anzeigen"
Enabled = .T.
Visible = .T.
Name = "Command4"
      0PROCEDURE Click
DO FORM pvabjuli2023
ENDPROC
                                      +   %   U       j      d             U     pvabjuli2023 U  PVABJULI2023 Click,     1 A1                       %       )                            label      label      Label16      FORM1      FontBold = .T.
Caption = "(Die neuen Werte berechnet das Programm automatisch.)"
Enabled = .F.
Height = 16
Left = 25
Top = 492
Visible = .F.
Width = 332
ForeColor = 255,0,0
Name = "Label16"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
0b   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6880ORZ0G1402952754      /  F      ]                                                       WINDOWS _6880ORZ0H1450532964                                                                      WINDOWS _6880ORZ0I1402960258                  !                                                 WINDOWS _6880ORZ0J1402960258                  5                                                 WINDOWS _6880ORZ0K1402960258!      !  !  !  !      I"  #                                               WINDOWS _6880ORZ0M1402960258%      %  %  %  &      \&  e'                                               WINDOWS _6880ORZ0N1402960258^)      k)  x)  )  )                                                           WINDOWS _6880ORZ0O1402960258C*      P*  ]*  k*  x*                                                           WINDOWS _6880ORZ0P1402960258*      	+  +  $+  1+                                                           WINDOWS _6880ORZ0W1402960258+      +  +  +  +                                                           WINDOWS _6880ORZ0X1402960258,      ,  ,  ,  ,                                                           WINDOWS _6880ORZ0G1402952754G-      T-  a-  o-  |-                                                           WINDOWS _6880ORZ0Z1413115030.      .  -.  ?.  L.      .  e/                                               WINDOWS _6880ORZ1014029611470      0  0  0  0      61  1                                               WINDOWS _6880ORZ1114029611472       3  3  !3  .3      3  G4                                               WINDOWS _6880ORZ121413115030b5      q5  5  5  5      6  6                                               WINDOWS _6880ORZ0G14131150307      7  7  8  8      8  )9                                               WINDOWS _6880ORZ151450532964D:      Y:  n:  :  :      ;  {?                                               WINDOWS _6880ORZ161402962035C      C  1C  CC  PC      C  I                                               WINDOWS _6880ORZ171402960711O      O  O  O  P      P  Q                                               WINDOWS _6880ORZ181402960417Q      R  )R  ;R  HR      R  S                                               WINDOWS _6880ORZ191402960258S      S  
T  T  )T      T  T                                               WINDOWS _6880ORZ1A1402960258U      U  U  U  U      }V  V                                               WINDOWS _6880PAYRF1450530490W      W  W  W  W      OX  a                                               WINDOWS _6880PGXNU1450530645h      h  h  h  h                                                           WINDOWS _6880PJ5F41402960338Hi  Xi  xi  i  i  i                                                           WINDOWS _6880ORZ0G1402960258>j      Kj  Xj  fj  sj                                                           WINDOWS _6880ORZ0H1402960258j      j  j  j  j                                                           WINDOWS _6880ORZ0I1402960258Vk      ck  pk  ~k  k                                                           WINDOWS _6880ORZ0J1402960258l      l  )l  6l  Cl                                                           WINDOWS _6880ORZ0K1402960258l      l  l  l  l                                                           WINDOWS _6880ORZ0M1402960258#m      /m  ;m  Hm  Um                                                           WINDOWS _6880ORZ0N1402960258m      m  m  m  m                                                           WINDOWS _6880ORZ0O1402960258Ln      Yn  fn  tn  n                                                           WINDOWS _6880ORZ0P1402960258n      o  o  o  *o                                                           WINDOWS _6880ORZ0W1402960258o      o  o  o  o                                                           WINDOWS _6880ORZ0X1402960258'p      4p  Ap  Pp  ]p                                                           WINDOWS _6880ORZ0J1402960258p      p  p  p  q                                                           WINDOWS _6880ORZ0Y1402960258]q      jq  wq  q  q                                                           WINDOWS _6880ORZ0M1402960258
r      r  "r  /r  <r                                                           WINDOWS _6880ORZ0I1402960258r      r  r  r  r                                                           WINDOWS _6880ORZ0G1402960258@s      Ls  Xs  es  rs                                                           WINDOWS _6880ORZ0J1402960258s      s  s  s  s                                                           WINDOWS _6880ORZ0I1402960258vt      t  t  t  t                                                           WINDOWS _6880ORZ0K1402960258u      u  u  *u  7u                                                           WINDOWS _6880ORZ0K1402960258u      u  u  u  u                                                           WINDOWS _6880ORZ0M14029602589v      Fv  Sv  bv  ov                                                           WINDOWS _6880ORZ0N1402960258v      v  v  w  w                                                           WINDOWS _6880ORZ0N1402960258qw      ~w  w  w  w                                                           WINDOWS _6880ORZ0P1402960258x      *x  6x  Dx  Qx                                                           WINDOWS _6880ORZ0O1402960258x      x  x  x  x                                                           WINDOWS _6880RD46D1402960258Vy      by  ny  |y  y                                                           WINDOWS _6880ORZ0P1402960258y      y  y  
z  z                                                           WINDOWS _6880RD46F1402960258z      z  z  z  z                                                           WINDOWS _6880ORZ0W1402960258{      &{  3{  B{  O{                                                           WINDOWS _6880RD46H1402960258{      {  {  {  {                                                           WINDOWS _6880ORZ0X1402960258S|      `|  m|  ||  |                                                           WINDOWS _6880RD46J1402960258}      }  }  (}  5}                                                           WINDOWS _6880ORZ0Z1402960258}      }  }  }  }                                                           WINDOWS _6880ORZ0G1402960258J~      W~  d~  s~  ~                                                           WINDOWS _6880ORZ101402960258        "  1  >                                                           WINDOWS _6880ORZ0I1402960258                                                                       WINDOWS _6880ORZ0J1402960258                                                                       WINDOWS _6880ORZ0K1402960258?      L  Y  h  u                                                           WINDOWS _6880ORZ0M1402960258      	    %  2                                                           WINDOWS _6880ORZ0N1402960258      Ƃ  ӂ                                                               WINDOWS _6880ORZ0O1402960258v                                                                       WINDOWS _6880ORZ0P14029602583      @  M  \  i                                                           WINDOWS _6880ORZ0W1402960258        
    &                                                           WINDOWS _6880ORZ0X1402960258        ȅ  ׅ                                                             WINDOWS _6880ORZ0Y1402960258l      y                                                                 WINDOWS _6880ORZ111402960258*      7  D  S  `                                                           WINDOWS _6880ORZ121402960258                                                                       WINDOWS _6880RKXPZ1402960258          ͈  ڈ                                                           WINDOWS _6880RKXQ01402960258a      n  {                                                               WINDOWS _6880RKXQ11402960258      +  8  G  T                                                           WINDOWS _6880RKXQ21402960258ۊ                                                                       WINDOWS _6880RKXQ31402960258            ΋                                                           WINDOWS _6880RKXQ41402960258U      b  o  ~                                                             WINDOWS _6880RKXQ51402960258        ,  ;  H                                                           WINDOWS _6880RKXQ61402960258ύ      ܍                                                                 WINDOWS _6880RKXQ71402960258            Î                                                           WINDOWS _6880RKXQ81402960258K      X  e  t                                                             WINDOWS _6880VU5YE1402960258	        #  1  >                                                           WINDOWS _6880VU5YF1402960258            ɐ                                                           WINDOWS _6880VU5YG1402960258       -  :  I  V                                                           WINDOWS _6880VU5YH1402960258Ց                                                                       WINDOWS _6880VU5YI1402960258_      l  y                                                               WINDOWS _6880VU5YJ1402960258          ,  9                                                           WINDOWS _6880ORZ0G1402960258          ˓  ؓ                                                           WINDOWS _6880VU5YK14029602580      =  J  Y  f                                                           WINDOWS _6880VU5YL1402960258            #                                                           WINDOWS _6880WO6EI1402960338        ĕ  ӕ                                                             WINDOWS _6880XKOU21402962005\      q            9                                                 WINDOWS _6880YE05M1402962005֢                                                                       WINDOWS _6880ORZ141413115030            ã      <  ܤ                                               COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 471
Width = 722
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Betriebliche Altersvorsorge"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     4PROCEDURE Init
thisform.zeile1.Caption = "Betriebliche Altersvorsorge " + welchesjahrc
	
j = (welchesjahr - jahr1) * 50 &&vorher 40 + 10 weitere

With thisform.Combo1
	.Clear                   &&zvkAG
	For i = 3559 To 3563
		myget(20, i,"woerter")
		.AddItem(woerter.textee)
	Next
	.AddItem("AG versteuert Umlage bis ..... (lt. Eingabe)")
Endwith
 
With thisform.Combo2
	.Clear
	If welchesjahr > 2007
		.AddItem("Verteilmodell (mtl. 1/12 des Steuerfreibetrags)")
		.AddItem("Aufzehrmodell (Steuerfreibetr. baldigst aufbrauchen)")
*					.AddItem("Verteilmodell 2 (12/12 in 11 Monaten verbrauchen)")
	Else
		.AddItem("ATV-Versteuerung zu 1/12 des Limits")
		.AddItem("ATV-Verst.anfangs voll bis Limit erreicht")
	Endif
	&&.ListIndex = zvkstart
Endwith

With thisform.Combo3
	.Clear
	.AddItem("1 Abs.1 Satz 3 SvEV erfllt (75 % und mehr)")
	.AddItem("1 Abs.1 Satz 3 SvEV   n i c h t   erfllt (< 75 %).")
Endwith

With thisform.Combo0
	.Clear
	.AddItem("Hier Vorgabewerte fr die Felder darunter whlen:")

	For i = 5 To 50 &&vorher 40 + 10 weitere &&ZVK zum ndern keine zusatzversorgung
		.AddItem(Alltrim(zt25(1+i)))
	Next
Endwith

With thisform.Combo0
	If zi(1+25) < 5
		.ListIndex = 1 &&vorher 0 14102021
	Else
		.ListIndex = zi(1+25) - 4 + 1 &&HS vorher ohne + 1
	Endif
Endwith

If zi(1+25) < 5
	thisform.Combo0.ListIndex = 1 &&vorher 0 HS
	thisform.Combo1.ListIndex = zvkag + 1 &&HS vorher ohne + 1
	thisform.Combo2.ListIndex = zvkstart + 1 &&HS vorher ohne + 1
	thisform.Combo3.ListIndex = zvkarev + 1 &&HS vorher ohne + 1
Endif

	If zi(1+25) < 5
		thisform.tdbnumber1.Value = zvkumlage &&Gesamtumlage
	Endif


	If zi(1+25) < 5
		thisform.tdbnumber2.Value = zvkhalb &&Arbeitnehmeranteil
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber3.Value = Sanierung &&Sanierung
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber4.Value = 0 &&Kapitalbeitrag
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber5.Value = 0 &&Kapitalbeitrag
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber6.Value = AGSteuer &&Steuern
	Endif
	thisform.tdbnumber6.Visible = False

If zvkag = 5
	thisform.tdbnumber6.Visible = True
Endif

For i = 0 To 11
	feld1 = "label"+ALLTRIM(STR(i+24,2,0))
	thisform.&feld1..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 0) / 100, "##,##0.00"))		
	feld2 = "label"+ALLTRIM(STR(i+36,2,0))
	thisform.&feld2..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 1) / 100, "##,##0.00"))
Next

thisform.label56.Caption = ALLTRIM(myformat(zvkbemG(1+0), "##,##0.00"))
thisform.label57.Caption = ALLTRIM(myformat(zvkbemG(1+1), "##,##0.00"))

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     
f    M
  M
                        	   %   .	      	  T   L	            U  3 T     Betriebliche Altersvorsorge   T   2        	 
(
  C 	  woerter
  C 
   : C, AG versteuert Umlage bis ..... (lt. Eingabe)         % = C/ Verteilmodell (mtl. 1/12 des Steuerfreibetrags) B C4 Aufzehrmodell (Steuerfreibetr. baldigst aufbrauchen)  1 C# ATV-Versteuerung zu 1/12 des Limits 7 C) ATV-Verst.anfangs voll bis Limit erreicht         : C, 1 Abs.1 Satz 3 SvEV erfllt (75 % und mehr) B C4 1 Abs.1 Satz 3 SvEV   n i c h t   erfllt (< 75 %).      +  ? C1 Hier Vorgabewerte fr die Felder darunter whlen:  	 (2' CCC	          %C 
b T   T C    %C 
 T     T      T      T       %C 
% T       %C 
Q T       %C 
} T       %C 
 T       %C 
 T       %C 
 T     !   T    " #  % < T    " $   	  ([$ T%  labelCC	  Z_ thisform.&feld1..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 0) / 100, "##,##0.00"))		
$ T&  labelCC	 $ Z] thisform.&feld2..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 1) / 100, "##,##0.00"))
 ) T  '  CCC) 	 ##,##0.00( ) T  *  CCC) 	 ##,##0.00( 
   + ,  T  -   - .  T  /   / . 
   0  T  1 a U2  THISFORM ZEILE1 CAPTION WELCHESJAHRC J WELCHESJAHR JAHR1 COMBO1 CLEAR I MYGET ADDITEM WOERTER TEXTEE COMBO2 COMBO3 COMBO0 ZT25 ZI	 LISTINDEX ZVKAG ZVKSTART ZVKAREV
 TDBNUMBER1 VALUE	 ZVKUMLAGE
 TDBNUMBER2 ZVKHALB
 TDBNUMBER3	 SANIERUNG
 TDBNUMBER4
 TDBNUMBER5
 TDBNUMBER6 AGSTEUER VISIBLE FALSE TRUE FELD1 FELD2 LABEL56 MYFORMAT ZVKBEMG LABEL57 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 1b A A  !! qA B  !A  rA A Q  A A R1qqqA R1A S1A R1A R1A R1A R1A 11A rAAA  rq  2 1                       
     R     )  j    )   M
                        combobox      combobox      Combo1      FORM1      PHeight = 22
Left = 18
Top = 121
Visible = .T.
Width = 306
Name = "Combo1"
     WPROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(SUBSTR(this.Name,6)))
thisform.combo_click.click 
ENDPROC
PROCEDURE GotFocus
counter = 1
ENDPROC
                                   S   %           
   n            U  &  %  A  B 
    U  REGISTER THIS CLICK
 
     U  THIS CLICK/  T    CCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME COMBO_CLICK CLICK 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangem      Click      GotFocus     1 A A  2  3  2  1                       J         r               "        A  L      )                           combobox      combobox      Combo2      FORM1      PHeight = 22
Left = 18
Top = 156
Visible = .T.
Width = 306
Name = "Combo2"
     WPROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(SUBSTR(this.Name,6)))
thisform.combo_click.click 
ENDPROC
PROCEDURE GotFocus
counter = 1
ENDPROC
                                   S   %           
   n            U  &  %  A  B 
    U  REGISTER THIS CLICK
 
     U  THIS CLICK/  T    CCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME COMBO_CLICK CLICK 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangem      Click      GotFocus     1 A A  2  3  2  1                       J         r               "        A  L      )                           combobox      combobox      Combo3      FORM1      PHeight = 22
Left = 18
Top = 191
Visible = .T.
Width = 306
Name = "Combo3"
     WPROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(SUBSTR(this.Name,6)))
thisform.combo_click.click 
ENDPROC
PROCEDURE GotFocus
counter = 1
ENDPROC
                                   S   %           
   n            U  &  %  A  B 
    U  REGISTER THIS CLICK
 
     U  THIS CLICK/  T    CCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME COMBO_CLICK CLICK 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangem      Click      GotFocus     1 A A  2  3  2  1                       J         r               "        A  L      )                           combobox      combobox      Combo0      FORM1      OHeight = 22
Left = 18
Top = 84
Visible = .T.
Width = 306
Name = "Combo0"
     PROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(SUBSTR(this.Name,6)))
thisform.combo_click.click 
ENDPROC
PROCEDURE GotFocus
counter = 1

ENDPROC
                                   w   %          _  
   K            U  
 
     U  THIS CLICK
 
     U  THIS CLICK/  T    CCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME COMBO_CLICK CLICK 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangeJ      Clickh      GotFocus     1  2  2  2  2                       (         P   Z         v                      )                           label      label      zeile1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Betriebliche Altersvorsorge "
Height = 25
Left = 18
Top = 51
Visible = .T.
Width = 262
Name = "zeile1"
      label      label      zeile2      FORM1      |AutoSize = .T.
Caption = "Umlagesatz in %"
Height = 17
Left = 18
Top = 236
Visible = .T.
Width = 95
Name = "zeile2"
      label      label      zeile3      FORM1      AutoSize = .T.
Caption = "davon Arbeitnehmeranteil in %"
Height = 17
Left = 49
Top = 267
Visible = .T.
Width = 169
Name = "zeile3"
      label      label      zeile4      FORM1      AutoSize = .T.
Caption = "Sanierungsgeld des AG in %"
Height = 17
Left = 18
Top = 300
Visible = .T.
Width = 160
Name = "zeile4"
      label      label      zeile5      FORM1      AutoSize = .T.
Caption = "Kapitalbeitrag in %"
Height = 17
Left = 18
Top = 333
Visible = .T.
Width = 105
Name = "zeile5"
      label      label      zeile6      FORM1      AutoSize = .T.
Caption = "davon Arbeitnehmeranteil in %"
Height = 17
Left = 44
Top = 366
Visible = .T.
Width = 169
Name = "zeile6"
      textbox      textbox      
tdbnumber1      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 225
Top = 233
Visible = .T.
Width = 95
Name = "tdbnumber1"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            textbox      textbox      
tdbnumber2      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 225
Top = 264
Visible = .T.
Width = 95
Name = "tdbnumber2"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            textbox      textbox      
tdbnumber3      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 225
Top = 297
Visible = .T.
Width = 95
Name = "tdbnumber3"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            textbox      textbox      
tdbnumber4      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 225
Top = 330
Visible = .T.
Width = 95
Name = "tdbnumber4"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            textbox      textbox      
tdbnumber5      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 225
Top = 362
Visible = .T.
Width = 95
Name = "tdbnumber5"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 9
Left = 492
Height = 30
Width = 210
Caption = "Schlieen"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     VPROCEDURE Click
 
With ATV
	j = (welchesjahr - Jahr1) * 50  &&vorher 40 + 10 witere &&hs2011
	For i = 5 To 50 &&vorher 39 + 10 weitere
		ATV.datvagbis = atvagbis(i) &&IIF( > 0, atvagbis(i) - 1,0) &&HS vorher ohne - 1 atvagbis(i) 14102021 
		ATV.datvstart = atvstart(i) &&IIF(atvstart(i) > 0,  - 1,0) &&HS vorher ohne - 1  atvstart(i) 14102021
		ATV.datvarev = atvarev(i) &&IIF(atvarev(i) > 0, - 1,0) &&HS vorher ohne - 1 atvarev(i) 14102021
		ATV.datvumlage = ATVumlage(i)
		ATV.datvumlageAN = atvumlageAN(i)
		ATV.datvsanierung = atvsanierung(i)
		ATV.datvkapital = atvkapital(i)
		ATV.datvkapitalAN = atvkapitalAN(i)
		ATV.datvsteuer = atvsteuer(i)
		myput(121, j + i,"ATV")
	Next
Endwith

Do voreinstaus &&Do attached
myform1.SSPanel1.Visible = True

*!*	hinweis("Die Werte werden erst gltig, wenn Sie unter dem Haupmenpunkt"+CHR(13)+CHR(13)+"PERSONALDATEN"+CHR(13)+CHR(13)+"den Untermenpunkt"+CHR(13)+CHR(13)+"Y60 Alle Flle neu durchrechnen"+CHR(13)+CHR(13)+"angewhlt haben!")
Do FORM neudurchrechnen_anzeige &&Do attached

*DO sscommand1_click
thisform.release


ENDPROC
         k  k                        N   %         "                 U  _
    T   2  (2 T   C    T   C    T  	 C  
  T   C    T  
 C    T   C    T   C    T   C    T   C    Cy   ATV      T      neudurchrechnen_anzeige
    U   ATV J WELCHESJAHR JAHR1 I	 DATVAGBIS ATVAGBIS	 DATVSTART ATVSTART DATVAREV ATVAREV
 DATVUMLAGE	 ATVUMLAGE DATVUMLAGEAN ATVUMLAGEAN
 DATVSANIERUNG ATVSANIERUNG DATVKAPITAL
 ATVKAPITAL
 DATVKAPITALAN ATVKAPITALAN
 DATVSTEUER	 ATVSTEUER MYPUT VOREINSTAUS MYFORM1 SSPANEL1 VISIBLE TRUE NEUDURCHRECHNEN_ANZEIGE THISFORM RELEASE Click,     1  aqQQQQQQQQQA A r 1 3                       K      )   k                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 9
Left = 15
Height = 30
Width = 210
Caption = "Vorgabewerte"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
     PROCEDURE Click

Do zvkvorgaben &&Do attached
Do atvumlageanlegen &&Do attached
Do atvvorgabenholen &&Do attached

If zi(1+25) < 5
	thisform.Combo0.ListIndex = 1 &&vorher 0 HS
	thisform.Combo1.ListIndex = zvkag + 1 &&HS vorher ohne + 1
	thisform.Combo2.ListIndex = zvkstart + 1 &&HS vorher ohne + 1
	thisform.Combo3.ListIndex = zvkarev + 1 &&HS vorher ohne + 1
Endif

	If zi(1+25) < 5
		thisform.tdbnumber1.Value = zvkumlage &&Gesamtumlage
	Endif


	If zi(1+25) < 5
		thisform.tdbnumber2.Value = zvkhalb &&Arbeitnehmeranteil
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber3.Value = Sanierung &&Sanierung
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber4.Value = 0 &&Kapitalbeitrag
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber5.Value = 0 &&Kapitalbeitrag
	Endif

	If zi(1+25) < 5
		thisform.tdbnumber6.Value = AGSteuer &&Steuern
	Endif
	thisform.tdbnumber6.Visible = False

If zvkag = 5
	thisform.tdbnumber6.Visible = True
Endif

For i = 0 To 11
	feld1 = "label"+ALLTRIM(STR(i+24,2,0))
	thisform.&feld1..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 0) / 100, "##,##0.00"))		
	feld2 = "label"+ALLTRIM(STR(i+36,2,0))
	thisform.&feld2..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 1) / 100, "##,##0.00"))
Next

thisform.label56.Caption = ALLTRIM(myformat(zvkbemG(1+0), "##,##0.00"))
thisform.label57.Caption = ALLTRIM(myformat(zvkbemG(1+1), "##,##0.00"))
thisform.geklickt.value = 0
thisform.combo_click.click
thisform.Refresh

*Do Laden &&Do attached
*DO sscommand2_click
ENDPROC
                                   X   %         v  ,               U  g        %C 
  T    T     T 	  
  T      %C 
  T 
     %C 
  T      %C 
 T      %C 
2 T      %C 
^ T      %C 
 T      T     %  T        ($ T  labelCC  Z_ thisform.&feld1..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 0) / 100, "##,##0.00"))		
$ T  labelCC $ Z] thisform.&feld2..caption = ALLTRIM(myformat(zusatzumlageab(1+i,1+ 1) / 100, "##,##0.00"))
 ) T   CCC! 	 ##,##0.00  ) T "  CCC! 	 ##,##0.00   T #   
  $ % 
  &  U'  ZVKVORGABEN ATVUMLAGEANLEGEN ATVVORGABENHOLEN ZI THISFORM COMBO0	 LISTINDEX COMBO1 ZVKAG COMBO2 ZVKSTART COMBO3 ZVKAREV
 TDBNUMBER1 VALUE	 ZVKUMLAGE
 TDBNUMBER2 ZVKHALB
 TDBNUMBER3	 SANIERUNG
 TDBNUMBER4
 TDBNUMBER5
 TDBNUMBER6 AGSTEUER VISIBLE FALSE TRUE I FELD1 FELD2 LABEL56 CAPTION MYFORMAT ZVKBEMG LABEL57 GEKLICKT COMBO_CLICK CLICK REFRESH Click,     1 r q q R1qqqA R1A S1A R1A R1A R1A R1A 11A rAAA 1  4                             )                           
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 9
Left = 252
Height = 30
Width = 210
Caption = "Hilfe"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      kPROCEDURE Click
inet = 111
Msg = "20531"
Do insinternet &&Do attached
*DO sscommand3_click

ENDPROC
                                         %   q                          U  ) 
 T  o T  20531   U  INET MSG INSINTERNET Click,     1  !q 3                       `       )                            
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 84
Left = 337
Height = 22
Width = 82
Caption = "Im Internet"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand5"
      3PROCEDURE Click

DO sscommand5_click

ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND5_CLICK Click,     1 r 2                       (       )                            
commandbutton      
commandbutton      
sscommand6      FORM1      Top = 120
Left = 337
Height = 22
Width = 82
Caption = "ATV / ATV-K"
Visible = .T.
SpecialEffect = 0
Name = "sscommand6"
      /PROCEDURE Click
DO sscommand6_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND6_CLICK Click,     1 q 1                       $       )                            
commandbutton      
commandbutton      
sscommand7      FORM1      yTop = 191
Left = 337
Height = 22
Width = 82
Caption = "SvEV"
Visible = .T.
SpecialEffect = 0
Name = "sscommand7"
      /PROCEDURE Click
DO sscommand7_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND7_CLICK Click,     1 q 1                       $       )                            
commandbutton      
commandbutton      combo_click      FORM1      ~Top = 393
Left = 135
Height = 18
Width = 103
Caption = "combo_click"
Enabled = .F.
Visible = .F.
Name = "combo_click"
     	XPROCEDURE Click
 
myindex = thisform.geklickt.value
Do Case && myindex
	Case myindex = 0
		With thisform
			k = .combo0.ListIndex &&hat hier schon + 1 bekommen aus ZVKdatenaufbauen
 						
			If k > 1 &&HS vorher k > 0
*!*					j = (welchesjahr - Jahr1 + 1) * 50 &&hs vorher 40 + 10 weitere 
				j = (welchesjahr - Jahr1) * 50 &&hs vorher 40 + 10 weitere 
				.combo1.Enabled = True
				.combo2.Enabled = True
				.combo3.Enabled = True
				myget(121, j + k - 1 + 4,"ATV") &&HS vorher ohne - 1
				.combo1.ListIndex = ATV.datvagbis + 1 &&HS vorher ohne + 1
				.combo2.ListIndex = ATV.datvstart + 1 &&HS vorher ohne + 1
				.combo3.ListIndex = ATV.datvarev + 1 &&HS vorher ohne + 1
				.tdbnumber1.Value = ATV.datvumlage / 100
				.tdbnumber2.Value = ATV.datvumlageAN / 100
				.tdbnumber3.Value = ATV.datvsanierung / 100
				.tdbnumber4.Value = ATV.datvkapital / 100
				.tdbnumber5.Value = ATV.datvkapitalAN / 100
				.tdbnumber6.Value = ATV.datvsteuer / 100
			
				If .tdbnumber1.Value = 0 .And. .tdbnumber4.Value = 0
					.zeile20.Visible = True
					If zi(1+25) = 35
						.zeile20.Caption = "Vorgaben sind nicht erforderlich"
					Else
						.zeile20.Caption = "Fr diese Kasse sind noch keine Vorgaben angelegt worden."
					Endif
				Else
					.zeile20.Visible = False
				Endif
			Else
				.combo1.Enabled = False
				.combo2.Enabled = False
				.combo3.Enabled = False
			Endif
		ENDWITH
		
	Case myindex = 1  &&Versteuerung
		If thisform.combo0.ListIndex > 0 + 1 &&HS vorher ohne + 1
			atvagbis(thisform.combo0.ListIndex + 4 - 1) = thisform.combo1.ListIndex - 1 && 14102021 IIF(hszvkstart = true,0,1) &&HS vorher ohne - 1 im vorderen teil
			If thisform.combo1.ListIndex = 6
				thisform.tdbnumber6.Visible = True
				thisform.tdbnumber6.setfocus
			Else
				thisform.tdbnumber6.Visible = False
			Endif
		ENDIF
		
	Case myindex = 2
		If thisform.combo0.ListIndex > 0 + 1 &&HS vorher ohne + 1
			atvstart(thisform.combo0.ListIndex + 4 - 1) = thisform.combo2.ListIndex - 1 &&14102021 IIF(hszvkstart = true,0,1) &&HS vorher ohne - 1 im vorderen teil
		ENDIF
		
	Case myindex = 3
		If thisform.combo0.ListIndex > 0 + 1 &&HS vorher ohne + 1
			atvarev(thisform.combo0.ListIndex + 4 - 1) = thisform.combo3.ListIndex - 1 && 14102021 IIF(hszvkstart = true,0,1) &&HS vorher ohne - 1 im vorderen teil
		Endif
Endcase
ENDPROC
                                      %         q  9               U  6 T     
 H  /    
   T    %  T  	 2 T
    T
    T   " Cy   ATV  T
     T
     T     T    d T    d T    d T    d T    d T    d$ %       	t T  !   %C" #1 T  #   Vorgaben sind nicht erforderlich pJ T  # 9 Fr diese Kasse sind noch keine Vorgaben angelegt worden.   T  ! $    T
  $  T
  $  T  $       %   }+ T%     
   % 
  ^ T  !  
   &  y T  ! $       %   + T'     
      / %   ++ T(          U)  MYINDEX THISFORM GEKLICKT VALUE K COMBO0	 LISTINDEX J WELCHESJAHR JAHR1 COMBO1 ENABLED TRUE COMBO2 COMBO3 MYGET ATV	 DATVAGBIS	 DATVSTART DATVAREV
 TDBNUMBER1
 DATVUMLAGE
 TDBNUMBER2 DATVUMLAGEAN
 TDBNUMBER3
 DATVSANIERUNG
 TDBNUMBER4 DATVKAPITAL
 TDBNUMBER5
 DATVKAPITALAN
 TDBNUMBER6
 DATVSTEUER ZEILE20 VISIBLE ZI CAPTION FALSE ATVAGBIS SETFOCUS ATVSTART ATVAREV Click,     1 2  b!BQ A  A  A A qq1  1A A qA qA A 1                       M	      )                           textbox      textbox      geklickt      FORM1      {Alignment = 3
Value = 0
Enabled = .F.
Height = 21
Left = 243
Top = 396
Visible = .F.
Width = 75
Name = "geklickt"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 447
Left = 690
Visible = .T.
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      shape      shape      Shape1      FORM1      RTop = 105
Left = 440
Height = 260
Width = 261
Visible = .T.
Name = "Shape1"
      line      line      Line1      FORM1      OHeight = 0
Left = 440
Top = 124
Visible = .T.
Width = 261
Name = "Line1"
      label      label      Label7      FORM1      ~Caption = "Grenzwerte fr AG Zusatzumlagen"
Height = 16
Left = 473
Top = 107
Visible = .T.
Width = 188
Name = "Label7"
      line      line      Line2      FORM1      OHeight = 239
Left = 488
Top = 125
Visible = .T.
Width = 0
Name = "Line2"
      line      line      Line3      FORM1      OHeight = 0
Left = 440
Top = 142
Visible = .T.
Width = 261
Name = "Line3"
      line      line      Line4      FORM1      OHeight = 239
Left = 593
Top = 125
Visible = .T.
Width = 0
Name = "Line4"
      label      label      Label8      FORM1      cCaption = "Monat"
Height = 15
Left = 447
Top = 126
Visible = .T.
Width = 36
Name = "Label8"
      label      label      Label9      FORM1      kCaption = "8 % AG-Umlage"
Height = 16
Left = 499
Top = 126
Visible = .T.
Width = 91
Name = "Label9"
      label      label      Label10      FORM1      lCaption = "9 % AG-Umlage"
Height = 16
Left = 603
Top = 126
Visible = .T.
Width = 91
Name = "Label10"
      line      line      Line5      FORM1      OHeight = 0
Left = 440
Top = 160
Visible = .T.
Width = 261
Name = "Line5"
      label      label      Label11      FORM1      oAutoSize = .F.
Caption = "1"
Height = 15
Left = 461
Top = 144
Visible = .T.
Width = 9
Name = "Label11"
      line      line      Line7      FORM1      OHeight = 0
Left = 440
Top = 179
Visible = .T.
Width = 261
Name = "Line7"
      label      label      Label12      FORM1      oAutoSize = .T.
Caption = "2"
Height = 17
Left = 461
Top = 162
Visible = .T.
Width = 9
Name = "Label12"
      line      line      Line8      FORM1      OHeight = 0
Left = 440
Top = 197
Visible = .T.
Width = 261
Name = "Line8"
      label      label      Label13      FORM1      oAutoSize = .F.
Caption = "3"
Height = 15
Left = 461
Top = 181
Visible = .T.
Width = 9
Name = "Label13"
      line      line      Line9      FORM1      OHeight = 0
Left = 440
Top = 216
Visible = .T.
Width = 261
Name = "Line9"
      label      label      Label14      FORM1      oAutoSize = .T.
Caption = "4"
Height = 17
Left = 461
Top = 199
Visible = .T.
Width = 9
Name = "Label14"
      line      line      Line10      FORM1      PHeight = 0
Left = 440
Top = 234
Visible = .T.
Width = 261
Name = "Line10"
      label      label      Label15      FORM1      oAutoSize = .F.
Caption = "5"
Height = 15
Left = 461
Top = 218
Visible = .T.
Width = 9
Name = "Label15"
      line      line      Line11      FORM1      PHeight = 0
Left = 440
Top = 253
Visible = .T.
Width = 261
Name = "Line11"
      label      label      Label16      FORM1      oAutoSize = .T.
Caption = "6"
Height = 17
Left = 461
Top = 236
Visible = .T.
Width = 9
Name = "Label16"
      line      line      Line12      FORM1      PHeight = 0
Left = 440
Top = 271
Visible = .T.
Width = 261
Name = "Line12"
      label      label      Label17      FORM1      oAutoSize = .F.
Caption = "7"
Height = 15
Left = 461
Top = 255
Visible = .T.
Width = 9
Name = "Label17"
      line      line      Line13      FORM1      PHeight = 0
Left = 440
Top = 290
Visible = .T.
Width = 261
Name = "Line13"
      label      label      Label18      FORM1      oAutoSize = .T.
Caption = "8"
Height = 17
Left = 461
Top = 273
Visible = .T.
Width = 9
Name = "Label18"
      line      line      Line14      FORM1      PHeight = 0
Left = 440
Top = 308
Visible = .T.
Width = 261
Name = "Line14"
      label      label      Label21      FORM1      oAutoSize = .F.
Caption = "9"
Height = 15
Left = 461
Top = 292
Visible = .T.
Width = 9
Name = "Label21"
      line      line      Line15      FORM1      PHeight = 0
Left = 440
Top = 327
Visible = .T.
Width = 261
Name = "Line15"
      label      label      Label22      FORM1      qAutoSize = .T.
Caption = "10"
Height = 17
Left = 454
Top = 310
Visible = .T.
Width = 16
Name = "Label22"
      line      line      Line16      FORM1      PHeight = 0
Left = 440
Top = 345
Visible = .T.
Width = 261
Name = "Line16"
      label      label      Label23      FORM1      qAutoSize = .F.
Caption = "11"
Height = 14
Left = 454
Top = 329
Visible = .T.
Width = 16
Name = "Label23"
      line      line      Line17      FORM1      PHeight = 0
Left = 440
Top = 364
Visible = .T.
Width = 261
Name = "Line17"
      label      label      Label24      FORM1      AutoSize = .F.
Alignment = 1
Caption = "1"
Height = 17
Left = 493
Top = 143
Visible = .T.
Width = 96
Name = "Label24"
      label      label      Label19      FORM1      AutoSize = .T.
Alignment = 0
Caption = "12"
Height = 17
Left = 454
Top = 347
Visible = .T.
Width = 16
Name = "Label19"
      label      label      Label25      FORM1      AutoSize = .F.
Alignment = 1
Caption = "2"
Height = 17
Left = 493
Top = 162
Visible = .T.
Width = 96
Name = "Label25"
      label      label      Label26      FORM1      AutoSize = .F.
Alignment = 1
Caption = "3"
Height = 15
Left = 493
Top = 181
Visible = .T.
Width = 96
Name = "Label26"
      label      label      Label27      FORM1      AutoSize = .F.
Alignment = 1
Caption = "4"
Height = 17
Left = 493
Top = 199
Visible = .T.
Width = 96
Name = "Label27"
      label      label      Label28      FORM1      AutoSize = .F.
Alignment = 1
Caption = "5"
Height = 15
Left = 493
Top = 218
Visible = .T.
Width = 96
Name = "Label28"
      label      label      Label29      FORM1      AutoSize = .F.
Alignment = 1
Caption = "6"
Height = 17
Left = 493
Top = 236
Visible = .T.
Width = 96
Name = "Label29"
      label      label      Label30      FORM1      AutoSize = .F.
Alignment = 1
Caption = "7"
Height = 15
Left = 493
Top = 255
Visible = .T.
Width = 96
Name = "Label30"
      label      label      Label31      FORM1      AutoSize = .F.
Alignment = 1
Caption = "8"
Height = 17
Left = 493
Top = 273
Visible = .T.
Width = 96
Name = "Label31"
      label      label      Label32      FORM1      AutoSize = .F.
Alignment = 1
Caption = "9"
Height = 15
Left = 493
Top = 292
Visible = .T.
Width = 96
Name = "Label32"
      label      label      Label33      FORM1      AutoSize = .F.
Alignment = 1
Caption = "10"
Height = 17
Left = 493
Top = 310
Visible = .T.
Width = 96
Name = "Label33"
      label      label      Label34      FORM1      AutoSize = .F.
Alignment = 1
Caption = "11"
Height = 14
Left = 493
Top = 329
Visible = .T.
Width = 96
Name = "Label34"
      label      label      Label35      FORM1      AutoSize = .F.
Alignment = 1
Caption = "12"
Height = 17
Left = 493
Top = 347
Visible = .T.
Width = 96
Name = "Label35"
      label      label      Label36      FORM1      AutoSize = .F.
Alignment = 1
Caption = "1"
Height = 15
Left = 600
Top = 144
Visible = .T.
Width = 96
Name = "Label36"
      label      label      Label37      FORM1      AutoSize = .F.
Alignment = 1
Caption = "2"
Height = 17
Left = 600
Top = 162
Visible = .T.
Width = 96
Name = "Label37"
      label      label      Label38      FORM1      AutoSize = .F.
Alignment = 1
Caption = "3"
Height = 15
Left = 600
Top = 181
Visible = .T.
Width = 96
Name = "Label38"
      label      label      Label39      FORM1      AutoSize = .F.
Alignment = 1
Caption = "4"
Height = 17
Left = 600
Top = 199
Visible = .T.
Width = 96
Name = "Label39"
      label      label      Label40      FORM1      AutoSize = .F.
Alignment = 1
Caption = "5"
Height = 15
Left = 600
Top = 218
Visible = .T.
Width = 96
Name = "Label40"
      label      label      Label41      FORM1      AutoSize = .F.
Alignment = 1
Caption = "6"
Height = 17
Left = 600
Top = 236
Visible = .T.
Width = 96
Name = "Label41"
      label      label      Label42      FORM1      AutoSize = .F.
Alignment = 1
Caption = "7"
Height = 15
Left = 600
Top = 255
Visible = .T.
Width = 96
Name = "Label42"
      label      label      Label43      FORM1      AutoSize = .F.
Alignment = 1
Caption = "8"
Height = 17
Left = 600
Top = 273
Visible = .T.
Width = 96
Name = "Label43"
      label      label      Label44      FORM1      AutoSize = .F.
Alignment = 1
Caption = "9"
Height = 15
Left = 600
Top = 292
Visible = .T.
Width = 96
Name = "Label44"
      label      label      Label45      FORM1      AutoSize = .F.
Alignment = 1
Caption = "10"
Height = 17
Left = 600
Top = 310
Visible = .T.
Width = 96
Name = "Label45"
      label      label      Label46      FORM1      AutoSize = .F.
Alignment = 1
Caption = "11"
Height = 14
Left = 600
Top = 329
Visible = .T.
Width = 96
Name = "Label46"
      label      label      Label47      FORM1      AutoSize = .F.
Alignment = 1
Caption = "12"
Height = 17
Left = 600
Top = 347
Visible = .T.
Width = 96
Name = "Label47"
      shape      shape      Shape2      FORM1      QTop = 379
Left = 440
Height = 57
Width = 261
Visible = .T.
Name = "Shape2"
      line      line      Line6      FORM1      OHeight = 0
Left = 440
Top = 416
Visible = .T.
Width = 261
Name = "Line6"
      label      label      Label48      FORM1      wCaption = "Umlagebemessungsgrenzen"
Height = 16
Left = 483
Top = 381
Visible = .T.
Width = 166
Name = "Label48"
      line      line      Line20      FORM1      OHeight = 36
Left = 572
Top = 399
Visible = .T.
Width = 0
Name = "Line20"
      label      label      Label50      FORM1      fCaption = "W E S T"
Height = 16
Left = 452
Top = 400
Visible = .T.
Width = 91
Name = "Label50"
      label      label      Label51      FORM1      dCaption = "O S T"
Height = 16
Left = 452
Top = 418
Visible = .T.
Width = 36
Name = "Label51"
      line      line      Line21      FORM1      PHeight = 0
Left = 440
Top = 398
Visible = .T.
Width = 261
Name = "Line21"
      label      label      Label56      FORM1      AutoSize = .F.
Alignment = 1
Caption = "1"
Height = 15
Left = 600
Top = 400
Visible = .T.
Width = 96
Name = "Label56"
      label      label      Label57      FORM1      AutoSize = .F.
Alignment = 1
Caption = "2"
Height = 17
Left = 600
Top = 417
Visible = .T.
Width = 96
Name = "Label57"
      label      label      zeile20      FORM1      tAutoSize = .T.
Caption = "      "
Height = 17
Left = 12
Top = 417
Visible = .T.
Width = 20
Name = "zeile20"
      
commandbutton      
commandbutton      tdbnumber_change      FORM1      Top = 396
Left = 6
Height = 15
Width = 121
Caption = "tdbnumber_change"
Enabled = .F.
Visible = .F.
Name = "tdbnumber_change"
     oPROCEDURE Click
Do Case && myindex
	Case myindex = 1
		If thisform.combo0.ListIndex > 1 &&vorher > 0
			ATVumlage(thisform.combo0.ListIndex + 4 - 1) = thisform.tdbnumber1.Value * 100
		Endif
	Case myindex = 2
		If thisform.tdbnumber2.Value > thisform.tdbnumber1.Value
			thisform.tdbnumber2.Value = thisform.tdbnumber1.Value
		Endif

		If thisform.tdbnumber2.Value > 1 .And. thisform.tdbnumber5.Value > 0 &&vorher > 0
			thisform.zeile16.Visible = True
		Else
			thisform.zeile16.Visible = False
		Endif

		If thisform.combo0.ListIndex > 1 &&vorher > 0 
			atvumlageAN(thisform.combo0.ListIndex + 4 - 1) = thisform.tdbnumber2.Value * 100
		Endif
		
	Case myindex = 3
		If thisform.combo0.ListIndex > 1 &&vorher > 0
			atvsanierung(thisform.combo0.ListIndex + 4 - 1) = thisform.tdbnumber3.Value * 100
		Endif
		
	Case myindex = 4
		If thisform.combo0.ListIndex > 1 &&vorher > 0
			atvkapital(thisform.combo0.ListIndex + 4 - 1) = thisform.tdbnumber4.Value * 100
		Endif

	Case myindex = 5
		If thisform.tdbnumber5.Value > thisform.tdbnumber4.Value
			thisform.tdbnumber5.Value = thisform.tdbnumber4.Value
		Endif
		If thisform.tdbnumber2.Value > 1 .And. thisform.tdbnumber5.Value > 0 &&vorher > 0
			thisform.zeile16.Visible = True
		Else
			thisform.zeile16.Visible = False
		Endif

		If thisform.combo0.ListIndex > 1 &&vorher > 0
			atvkapitalAN(thisform.Combo0.ListIndex + 4 - 1) = thisform.tdbnumber5.Value * 100
		Endif
	Case myindex = 6
		If thisform.combo0.ListIndex > 1 &&vorher > 0
			atvsteuer(thisform.combo0.ListIndex + 4 - 1) = thisform.tdbnumber6.Value * 100
		Endif
Endcase

ENDPROC
                                   -   %   U        ,   d            U  F
 H
 ?   d  %   ` + T       d    O %        T       ( %        	  T 	 
    T 	 
    %   K+ T
       d     %   + T       d     %   + T       d     %      D T       ( %        	 T 	 
    T 	 
    %   + T       d    ? %   ;+ T       d   U  MYINDEX THISFORM COMBO0	 LISTINDEX	 ATVUMLAGE
 TDBNUMBER1 VALUE
 TDBNUMBER2
 TDBNUMBER5 ZEILE16 VISIBLE TRUE FALSE ATVUMLAGEAN ATVSANIERUNG
 TDBNUMBER3
 ATVKAPITAL
 TDBNUMBER4 ATVKAPITALAN	 ATVSTEUER
 TDBNUMBER6 Click,     1  qA A 1 1A rA qA qA A 1 1A rA qA A 2                       d      )                           label      label      zeile16      FORM1      rAutoSize = .T.
Caption = "    "
Height = 17
Left = 13
Top = 444
Visible = .T.
Width = 14
Name = "zeile16"
      textbox      textbox      
tdbnumber6      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 330
Top = 120
Visible = .F.
Width = 95
Name = "tdbnumber6"
      PROCEDURE Valid
myindex = INT(VAL(SUBSTR(this.Name,10)))
thisform.tdbnumber_change.click && WITH INT(VAL(SUBSTR(this.Name,10)))
RETURN .t.
ENDPROC
                                        %                             U  0  T  CCC  
\g8
     Ba U  MYINDEX THIS NAME THISFORM TDBNUMBER_CHANGE CLICK Valid,     1  q 1                              )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
F   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6880Z76PS1402962731      /  F      ]                                                       WINDOWS _6880Z76PT1430476341                      E                                               WINDOWS _6880Z76PU14029636630	      =	  J	  W	  d	                                                           WINDOWS _6880Z76PV1402964978

      
  4
  F
  S
      
                                                 WINDOWS _6880Z76PW1402964978
      
  
                                                           WINDOWS _6880Z76PX1402964978          ,  9                                                       WINDOWS _6880Z76PY1402963663                                                                        WINDOWS _6880Z76PZ1402964978                                                                       WINDOWS _6880Z76Q01402964978.      :  F  S  `                                                           WINDOWS _6880Z76Q11402964978                                                                       WINDOWS _6880Z76Q21402964978!      .  ;  J  W                                                           WINDOWS _6880Z76Q31402964978                                                                       WINDOWS _6880Z76Q51402964978s                                                                       WINDOWS _6880Z76Q61402964978        (  5  B                                                           WINDOWS _6880Z76Q81402964978                                                                       WINDOWS _6880Z76Q91402964978&      2  >  K  X                                                           WINDOWS _6880Z76QB1402964978                                                                       WINDOWS _6880Z76QC1402964978<      H  T  a  n                                                           WINDOWS _6880Z76QE1402964978                                                                       WINDOWS _6880Z76QF1402964978R      ^  j  w                                                             WINDOWS _6880Z76QH1402964978                                                                       WINDOWS _6880Z76QI1402964978h      t                                                                 WINDOWS _6880Z76QK1402964978                                                                       WINDOWS _6880Z76QL1402964978~                                                                       WINDOWS _6880Z76QN1402964978            (                                                           WINDOWS _6880Z76QO1402964978                                                                       WINDOWS _6880Z76QQ1402964978
        '  1  >                                                           WINDOWS _6880Z76QR1402964978                                                                       WINDOWS _6880Z76QT1402964978%      1  =  K  X                                                           WINDOWS _6880Z76QV1402964978                                                                       WINDOWS _6880Z76QX1402964978      '  3  A  N                                                           WINDOWS _6880Z76QZ1402964978                                                                       WINDOWS _6880Z76R11402964978          )   7   D                                                            WINDOWS _6880Z76R31402964978                                                                            WINDOWS _6880Z76R51402964978!      !  !  -!  :!                                                           WINDOWS _6880Z76PS1402964978!      !  !  !  !                                                           WINDOWS _6880Z76R91402964978!      
"  "  !"  ."                                                           WINDOWS _6880Z76RA1402964978"      "  "  "  "                                                           WINDOWS _6880Z76RB14029649789#      F#  S#  ^#  k#                                                           WINDOWS _6880Z76RC1402964978#      #  #  #  
$                                                           WINDOWS _6880Z76RD1402964978w$      $  $  $  $                                                           WINDOWS _6880Z76RE1402964978%      #%  0%  ;%  H%                                                           WINDOWS _6880Z76RF1402964978%      %  %  %  %                                                           WINDOWS _6880Z76RG1402964978T&      a&  n&  y&  &                                                           WINDOWS _6880Z76PT1402964978&       '  
'  '  %'                                                           WINDOWS _6880Z76PS1402964978'      '  '  '  '      ^(  (                                               WINDOWS _6880Z76PT1402964978*      *  ,*  9*  F*      *  e+                                               WINDOWS _6880Z76PU1402964978,      ,  ,  ,  ,      V-  -                                               WINDOWS _6880Z76PV1402964978/      /  $/  1/  >/      /  ]0                                               WINDOWS _6880Z76PW14029649781      1  1  1  1      N2  2                                               WINDOWS _6880Z76PX14029649783      
4  4  )4  64      4  U5                                               WINDOWS _6880Z76PY1402964978z6      6  6  6  6      F7  7                                               WINDOWS _6880Z76PZ14029649788      9  9  !9  .9      9  M:                                               WINDOWS _6880ZE5LB1402964978r;      ;  ;  ;  ;      ><  <                                               WINDOWS _6880ZE5LC1402964978=      =  >  >  '>      >  G?                                               WINDOWS _6880ZE5LD1402964978l@      {@  @  @  @      :A  A                                               WINDOWS _6880ZE5LE1402964978B      B  C  C  #C      C  CD                                               WINDOWS _6880ZE5LF1402964978hE      wE  E  E  E      6F  F                                               WINDOWS _6880ZE5LG1402964978G      G  H  H  H      H  ?I                                               WINDOWS _6880ZE5LH1402964978dJ      sJ  J  J  J      2K  K                                               WINDOWS _6880Z76PS1402964978L      L   M  M  M      M  ;N                                               WINDOWS _6880Z76PU1402964978`O      oO  ~O  O  O      .P  P                                               WINDOWS _6880ZG0ZK1402964978Q  Q  R  R  *R  7R                                                           WINDOWS _688108N0Q1402964978R      R  R  R  S                                                           WINDOWS _688108N0R1402964978OS      \S  iS  tS  S                                                           WINDOWS _688108N0S1402964978S      T  T  !T  .T      T  NU                                               WINDOWS _688110UCT1402964804sV      V  V  V  V      >W  ,X                                               WINDOWS _688110UCU1402964493Y      Y  Y  Z  Z                                                           COMMENT RESERVED                                yZ                                                            Z                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1     Height = 594
Width = 470
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Pensionsumlagen / Versorgungsrcklagen"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     <PROCEDURE Init
thisform.uber2.Caption = thisform.uber2.Caption + welchesjahrc

For i = 0 To 16
	*.Row = i + 1
	feld1 = "b"+ALLTRIM(STR(i+1,2,0))
	thisform.&feld1..caption = ALLTRIM(zt2(1+i))
NEXT

For i = 0 To 17
	feld1 = "text"+ALLTRIM(STR(i+1,2,0))
	thisform.&feld1..value  = pensionssatz(1+i) / 100
Next


thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                      %   /      q     M            U  Q T            (   T  bCC  Z0 thisform.&feld1..caption = ALLTRIM(zt2(1+i))
    ( # T  textCC  Z5 thisform.&feld1..value  = pensionssatz(1+i) / 100
 
      T      	  T  
   
 	 
     T   a U
  THISFORM UBER2 CAPTION WELCHESJAHRC I FELD1 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 rA r1QA  rq  3 1                                 1      )                           label      label      uber1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Pensionsumlage bzw."
Height = 25
Left = 26
Top = 45
Visible = .T.
Width = 204
Name = "uber1"
      
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 5
Left = 23
Height = 30
Width = 140
Caption = "Vorgabwerte"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click

Do pensionsvorgabenanlegen &&Do attached
Do voreinstaus &&Do attached

For i = 0 To 17
	feld1 = "text"+ALLTRIM(STR(i+1,2,0))
	pensionssatz(1+i) = vorein.vorpension(1+i)
	thisform.&feld1..value  = pensionssatz(1+i) / 100
Next
thisform.refresh
ENDPROC
                                   |   %   E      h  
   T            U           ( # T  textCC  Z" T  C   5 thisform.&feld1..value  = pensionssatz(1+i) / 100
 
    U	  PENSIONSVORGABENANLEGEN VOREINSTAUS I FELD1 PENSIONSSATZ VOREIN
 VORPENSION THISFORM REFRESH Click,     1 r q r1!QA  1                             )                           
commandbutton      
commandbutton      
sscommand2      FORM1      yTop = 5
Left = 165
Height = 30
Width = 140
Caption = "Hilfe"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      TPROCEDURE Click
inet = 111
Msg = "218764"
Do insinternet &&Do attached
ENDPROC
                                         %   r                          U  * 
 T  o T  218764   U  INET MSG INSINTERNET Click,     1  1q 1                       I       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 5
Left = 307
Height = 30
Width = 140
Caption = "Schlieen"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            label      label      uber2      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Versorgungsrcklage im Jahr "
Height = 25
Left = 27
Top = 73
Visible = .T.
Width = 284
Name = "uber2"
      shape      shape      Shape1      FORM1      BTop = 107
Left = 29
Height = 458
Width = 412
Name = "Shape1"
      line      line      Line1      FORM1      ?Height = 0
Left = 29
Top = 131
Width = 411
Name = "Line1"
      line      line      Line2      FORM1      @Height = 458
Left = 254
Top = 107
Width = 0
Name = "Line2"
      label      label      spalte2      FORM1      oFontBold = .T.
Caption = "Umlagesatz in %"
Height = 16
Left = 342
Top = 112
Width = 94
Name = "spalte2"
      label      label      Label1      FORM1      hFontBold = .T.
Caption = "Bundesland"
Height = 16
Left = 37
Top = 112
Width = 99
Name = "Label1"
      label      label      b1      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 136
Width = 69
Name = "b1"
      line      line      Line3      FORM1      ?Height = 0
Left = 30
Top = 155
Width = 411
Name = "Line3"
      label      label      b2      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 160
Width = 69
Name = "b2"
      line      line      Line5      FORM1      ?Height = 0
Left = 30
Top = 179
Width = 411
Name = "Line5"
      label      label      b3      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 184
Width = 69
Name = "b3"
      line      line      Line6      FORM1      ?Height = 0
Left = 30
Top = 203
Width = 411
Name = "Line6"
      label      label      b4      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 208
Width = 69
Name = "b4"
      line      line      Line7      FORM1      ?Height = 0
Left = 30
Top = 227
Width = 411
Name = "Line7"
      label      label      b5      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 232
Width = 69
Name = "b5"
      line      line      Line4      FORM1      ?Height = 0
Left = 30
Top = 251
Width = 411
Name = "Line4"
      label      label      b6      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 256
Width = 69
Name = "b6"
      line      line      Line8      FORM1      ?Height = 0
Left = 30
Top = 275
Width = 411
Name = "Line8"
      label      label      b7      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 280
Width = 69
Name = "b7"
      line      line      Line9      FORM1      ?Height = 0
Left = 30
Top = 299
Width = 411
Name = "Line9"
      label      label      b8      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 304
Width = 69
Name = "b8"
      line      line      Line10      FORM1      @Height = 0
Left = 30
Top = 323
Width = 411
Name = "Line10"
      line      line      Line12      FORM1      @Height = 0
Left = 30
Top = 347
Width = 411
Name = "Line12"
      line      line      Line13      FORM1      @Height = 0
Left = 30
Top = 371
Width = 411
Name = "Line13"
      line      line      Line14      FORM1      @Height = 0
Left = 30
Top = 395
Width = 411
Name = "Line14"
      line      line      Line15      FORM1      @Height = 0
Left = 30
Top = 419
Width = 411
Name = "Line15"
      line      line      Line16      FORM1      @Height = 0
Left = 30
Top = 443
Width = 411
Name = "Line16"
      line      line      Line17      FORM1      @Height = 0
Left = 30
Top = 467
Width = 411
Name = "Line17"
      line      line      Line18      FORM1      @Height = 0
Left = 30
Top = 491
Width = 411
Name = "Line18"
      line      line      Line19      FORM1      @Height = 0
Left = 30
Top = 515
Width = 411
Name = "Line19"
      label      label      b9      FORM1      dAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 328
Width = 69
Name = "b9"
      label      label      b10      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 352
Width = 69
Name = "b10"
      label      label      b11      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 376
Width = 69
Name = "b11"
      label      label      b12      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 400
Width = 69
Name = "b12"
      label      label      b13      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 424
Width = 69
Name = "b13"
      label      label      b14      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 448
Width = 69
Name = "b14"
      label      label      b15      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 472
Width = 69
Name = "b15"
      label      label      b16      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 496
Width = 69
Name = "b16"
      label      label      b17      FORM1      eAutoSize = .T.
Caption = "Bundesland"
Height = 17
Left = 37
Top = 520
Width = 69
Name = "b17"
      textbox      textbox      Text1      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 132
Width = 121
Name = "Text1"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text2      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 156
Width = 121
Name = "Text2"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text3      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 180
Width = 121
Name = "Text3"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text4      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 204
Width = 121
Name = "Text4"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text5      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 228
Width = 121
Name = "Text5"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text6      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 252
Width = 121
Name = "Text6"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text7      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 276
Width = 121
Name = "Text7"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text8      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 300
Width = 121
Name = "Text8"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text9      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 324
Width = 121
Name = "Text9"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text10      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 348
Width = 121
Name = "Text10"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text11      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 372
Width = 121
Name = "Text11"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text12      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 396
Width = 121
Name = "Text12"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text13      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 420
Width = 121
Name = "Text13"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text14      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 444
Width = 121
Name = "Text14"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text15      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 468
Width = 121
Name = "Text15"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text16      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 492
Width = 121
Name = "Text16"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text17      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 516
Width = 121
Name = "Text17"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 570
Left = 441
Visible = .T.
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      line      line      Line11      FORM1      @Height = 0
Left = 30
Top = 539
Width = 411
Name = "Line11"
      label      label      b18      FORM1      lAutoSize = .T.
Caption = "Bundesverwaltung"
Height = 17
Left = 37
Top = 544
Width = 104
Name = "b18"
      textbox      textbox      Text18      FORM1      Alignment = 3
Value = 0
Format = "9999999.99"
Height = 23
InputMask = "9999999.99"
Left = 317
Top = 540
Width = 121
Name = "Text18"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           
commandbutton      
commandbutton      
text_cange      FORM1      zTop = 54
Left = 360
Height = 22
Width = 82
Caption = "text_cange"
Enabled = .F.
Visible = .F.
Name = "text_cange"
      PROCEDURE Click

i = thisform.geklickt.value - 1
feld1 = "text"+ALLTRIM(STR(i+1,2,0))
pensionssatz(1+i) = INT(thisform.&feld1..value * 100)
vorein.vorpension(1+i) = pensionssatz(1+i)

Do voreinstaus &&Do attached
ENDPROC
                                      %   #      @     2            U    T     # T  textCC   Z9 pensionssatz(1+i) = INT(thisform.&feld1..value * 100)
" T    C      U	  I THISFORM GEKLICKT VALUE FELD1 VOREIN
 VORPENSION PENSIONSSATZ VOREINSTAUS Click,     1 r1!r 1                              )                           textbox      textbox      geklickt      FORM1      `Enabled = .F.
Height = 19
Left = 360
Top = 78
Visible = .F.
Width = 76
Name = "geklickt"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
*   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _688138E7P1402966601      /  F      ]                                                       WINDOWS _688138E7Q1430476234                      W                                               WINDOWS _688138E7R1402966832~	      	  	  	  	                                                           WINDOWS _688138E7S1411468859i
      ~
  
  
  
      B                                                 WINDOWS _688138E7T14114688593      H  ]  o  |        5                                               WINDOWS _688138E7U1411468859        .  @  M        4                                               WINDOWS _688138E7V1402966832(      5  B  P  ]                                                           WINDOWS _688138E7W1402966832        !  /  <                                                           WINDOWS _688138E7X1402966832                                                                       WINDOWS _688138E7Y1402966832      
    #  0                                                           WINDOWS _688138E7Z1402966832w                                                                       WINDOWS _688138E801402966832        
    %                                                           WINDOWS _688138E811402966832                                                                       WINDOWS _688138E821402966832{                                                                       WINDOWS _688138E831402966832;      G  S  `  m                                                           WINDOWS _688138E841402966832                                                                       WINDOWS _688138E851402966832-      9  E  R  _                                                           WINDOWS _688138E861402966832                                                                       WINDOWS _688138E871402966832      +  7  D  Q                                                           WINDOWS _688138E881402966832                                                                       WINDOWS _688138E891402966832]      j  w                                                               WINDOWS _688138E8A1402966832#      0  =  K  X                                                           WINDOWS _688138E8B1402966832                                                                       WINDOWS _688138E8C1402966832                                                                       WINDOWS _688138E8D1402966832w                                                                       WINDOWS _688138E8E1402967450@      O  ^  k  x                                                         WINDOWS _688138E8F1402967450!      !  !  !  !      r"  "                                               WINDOWS _688138E8G1402967450"$      1$  @$  M$  Z$      $  n%                                               WINDOWS _688138E8H1402967450&      &  &  &  &      T'  '                                               WINDOWS _688138E8I1402967450)      )  ")  /)  <)      )  P*                                               WINDOWS _688138E8J1402967450u+      +  +  +  +      6,  ,                                               WINDOWS _688138E8K1402966832-      -  .  .  .                                                           WINDOWS _688138E8L1402966832.      .  .  .  .                                                           WINDOWS _688138E8M1402966832n/      }/  /  /  /                                                           WINDOWS _688138E8N140296683220      A0  P0  ^0  k0                                                           WINDOWS _688138E8O14029668320      1  1  $1  11                                                           WINDOWS _688138E8P14029668321      1  1  1  1                                                           WINDOWS _688138E8Q14029668322  2  2  2  2  2                                                           WINDOWS _688146KTY1411468474k3      3  3  3  3      74  6                                               WINDOWS _688146KTZ14029674508      
9  9  ,9  99                                                           COMMENT RESERVED                                9                                                            9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 347
Width = 444
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Kindergeld"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     WPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
thisform.uber1.Caption = thisform.uber1.Caption + welchesjahrc

For i = 1 To 6
	feld1 = "text" + ALLTRIM(STR(i+6,2,0))
	thisform.&feld1..value = kindergeld(1+i)
Next		
For i = 1 To 6
	sicht(1+1,1+ i) = kindergeld(1+i) - kindergeld(1+i - 1)
	feld1 = "text" + ALLTRIM(STR(i,2,0))
	thisform.&feld1..value = sicht(1+1,1+ i)
Next

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
                                      %   i                       U    C     U  THISFORM SIZER	 FRMRESIZEx T           ( # T  textCC  Z, thisform.&feld1..value = kindergeld(1+i)
   (5 T  C  C   T  textCC  Z, thisform.&feld1..value = sicht(1+1,1+ i)
 
    	  T  
   
   T       
   
  T   a U  THISFORM UBER1 CAPTION WELCHESJAHRC I FELD1 SICHT
 KINDERGELD SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 r1A qQA  rq  1                       ,         G   L      )                           label      label      uber1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Vorgaben fr das Kindergeld im Jahr "
Height = 25
Left = 22
Top = 55
Visible = .T.
Width = 349
Name = "uber1"
      
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 9
Left = 9
Height = 30
Width = 140
Caption = "Vorgabwerte"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click
Do kindergeldvorgaben &&Do attached

For i = 1 To 6
	kindergeld(1+i) = vorein.vorkindergeld(i)
NEXT
For i = 1 To 6
	feld1 = "text" + ALLTRIM(STR(i+6,2,0))
	thisform.&feld1..value = kindergeld(1+i)
Next		
For i = 1 To 6
	sicht(1+1,1+ i) = kindergeld(1+i) - kindergeld(1+i - 1)
	feld1 = "text" + ALLTRIM(STR(i,2,0))
	thisform.&feld1..value = sicht(1+1,1+ i)
Next
ENDPROC
     P    7  7                           %                          U  I     (=  T  C       ( # T  textCC  Z, thisform.&feld1..value = kindergeld(1+i)
   (B5 T  C  C   T  textCC  Z, thisform.&feld1..value = sicht(1+1,1+ i)
  U  KINDERGELDVORGABEN I
 KINDERGELD VOREIN
 VORKINDERGELD FELD1 SICHT Click,     1 q rA q1A qQA 1                             )   7                        
commandbutton      
commandbutton      
sscommand2      FORM1      }Top = 9
Left = 294
Height = 30
Width = 140
Caption = "Schlieen"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 9
Left = 151
Height = 30
Width = 140
Caption = "Hilfe"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      SPROCEDURE Click
inet = 111
Msg = "20280"
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  ) 
 T  o T  20280   U  INET MSG INSINTERNET Click,     1  !q 1                       H       )                            label      label      Label1      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 12
Caption = "Monatsbetrge in EURO"
Height = 21
Left = 51
Top = 315
Visible = .T.
Width = 172
Name = "Label1"
      shape      shape      Shape1      FORM1      ATop = 98
Left = 48
Height = 209
Width = 347
Name = "Shape1"
      line      line      Line1      FORM1      ?Height = 209
Left = 169
Top = 98
Width = 0
Name = "Line1"
      line      line      Line2      FORM1      ?Height = 209
Left = 280
Top = 98
Width = 0
Name = "Line2"
      line      line      Line3      FORM1      ?Height = 0
Left = 48
Top = 127
Width = 346
Name = "Line3"
      label      label      Label2      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 11
Caption = "Kindergeld fr"
Height = 20
Left = 54
Top = 104
Width = 105
Name = "Label2"
      label      label      Label3      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 11
Caption = "einzeln"
Height = 20
Left = 201
Top = 104
Width = 54
Name = "Label3"
      label      label      Label4      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 11
Caption = "Summe"
Height = 20
Left = 310
Top = 104
Width = 54
Name = "Label4"
      line      line      Line4      FORM1      ?Height = 0
Left = 49
Top = 155
Width = 346
Name = "Line4"
      line      line      Line5      FORM1      ?Height = 0
Left = 49
Top = 185
Width = 346
Name = "Line5"
      line      line      Line6      FORM1      ?Height = 0
Left = 49
Top = 215
Width = 346
Name = "Line6"
      line      line      Line7      FORM1      ?Height = 0
Left = 48
Top = 246
Width = 346
Name = "Line7"
      line      line      Line8      FORM1      ?Height = 0
Left = 48
Top = 276
Width = 346
Name = "Line8"
      label      label      Label6      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "erstes Kind"
Height = 19
Left = 82
Top = 131
Width = 76
Name = "Label6"
      label      label      Label7      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "zweites Kind"
Height = 19
Left = 73
Top = 161
Width = 85
Name = "Label7"
      label      label      Label8      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "drittes Kind"
Height = 19
Left = 83
Top = 190
Width = 75
Name = "Label8"
      label      label      Label9      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "viertes Kind"
Height = 19
Left = 80
Top = 221
Width = 78
Name = "Label9"
      label      label      Label10      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "fnftes Kind"
Height = 19
Left = 79
Top = 250
Width = 79
Name = "Label10"
      label      label      Label11      FORM1      AutoSize = .T.
FontBold = .F.
FontSize = 11
Caption = "sechstes Kind"
Height = 19
Left = 63
Top = 281
Width = 95
Name = "Label11"
      textbox      textbox      Text1      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 131
Width = 79
Name = "Text1"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text2      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 160
Width = 79
Name = "Text2"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text3      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 189
Width = 79
Name = "Text3"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text4      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 219
Width = 79
Name = "Text4"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text5      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 251
Width = 79
Name = "Text5"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text6      FORM1      Alignment = 3
Value = 0
Format = "99999"
Height = 22
InputMask = "99999"
Left = 189
Top = 280
Width = 79
Name = "Text6"
      PROCEDURE Valid
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,5))))
thisform.text_cange.click
RETURN .t.
ENDPROC
                                   /    %                             U  8 ! T    CCCC  \g8
      Ba U  THISFORM GEKLICKT VALUE THIS NAME
 TEXT_CANGE CLICK Valid,     1  q 1                       x       )                           textbox      textbox      Text7      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 131
Width = 79
DisabledForeColor = 0,0,0
Name = "Text7"
      textbox      textbox      Text8      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 160
Width = 79
DisabledForeColor = 0,0,0
Name = "Text8"
      textbox      textbox      Text9      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 189
Width = 79
DisabledForeColor = 0,0,0
Name = "Text9"
      textbox      textbox      Text10      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 219
Width = 79
DisabledForeColor = 0,0,0
Name = "Text10"
      textbox      textbox      Text11      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 251
Width = 79
DisabledForeColor = 0,0,0
Name = "Text11"
      textbox      textbox      Text12      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 298
Top = 280
Width = 79
DisabledForeColor = 0,0,0
Name = "Text12"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 321
Left = 417
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
text_cange      FORM1      {Top = 312
Left = 342
Height = 25
Width = 43
Caption = "text_cange"
Enabled = .F.
Visible = .F.
Name = "text_cange"
     lPROCEDURE Click
 
kindergeld(1+1) = thisform.text1.value &&sicht(1+1,1+ 1)
kindergeld(1+2) = kindergeld(1+1) + thisform.text2.value &&sicht(1+1,1+ 2)
kindergeld(1+3) = kindergeld(1+2) + thisform.text3.value &&sicht(1+1,1+ 3)
kindergeld(1+4) = kindergeld(1+3) + thisform.text4.value &&sicht(1+1,1+ 4)
kindergeld(1+5) = kindergeld(1+4) + thisform.text5.value &&sicht(1+1,1+ 5)
kindergeld(1+6) = kindergeld(1+5) + thisform.text6.value &&sicht(1+1,1+ 6)

*.Col = 2
For i = 1 To 6
	feld1 = "text" + ALLTRIM(STR(i+6,2,0))
	thisform.&feld1..value = kindergeld(1+i)
NEXT

Do voreinstaus &&Do attached

ENDPROC
     K    2  2                           %           
               U  2 T     ! T  C     ! T  C     ! T  C     ! T  C     ! T  C      	 ($# T
  textCC	  Z, thisform.&feld1..value = kindergeld(1+i)
    U 
 KINDERGELD THISFORM TEXT1 VALUE TEXT2 TEXT3 TEXT4 TEXT5 TEXT6 I FELD1 VOREINSTAUS Click,     1 s1A r 2                       a      )   2                        textbox      textbox      geklickt      FORM1      aEnabled = .F.
Height = 19
Left = 261
Top = 318
Visible = .F.
Width = 73
Name = "geklickt"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68B0LNL4C1411469549      /  F      ]                                                       WINDOWS _68B0LNL4D1501844349                                                                     WINDOWS _68B0LNL4C1411470268                                                                       WINDOWS _68B0LNL4C1411471826
      #
  0
  >
  T
                                                           WINDOWS _68B0MI2VU1411471826
      
  
  
  
                                                           WINDOWS _68B0LNL4C1411470268$      1  >  K  a                                                           WINDOWS _68B0LP5H81411471884      	    0  F        p                                               WINDOWS _68B0LP5H91411470924                                                                   WINDOWS _68B0LP5HA1411470924          *  @        U                                               WINDOWS _68B0LS07Q1411471826g  w                                                                   WINDOWS _68B0LNL4C1411470268W      d  q                                                               WINDOWS _68B0MI2VV1411470268%      2  ?  M  c                                                           WINDOWS _68B0LNL4C1411470268          !  7                                                           WINDOWS _68B0MI2VW1411470268                                                                       WINDOWS _68B0MI2VX1411471626K      [  k  y          ,                                               WINDOWS _68B0MI2VY1411471626(      8  H  V  l        
                                                WINDOWS _68B0MI2VZ1445628483"      "   "  ."  D"      "  #                                               WINDOWS _68B0MI2W01445628483#      #  $  $  '$      $  $                                               WINDOWS _68B0MI2W11445628483%      %  %  %  
&      v&  &                                               WINDOWS _68B0MI2W21411471826'      '  '  '  '      (  )                                               WINDOWS _68B0MI2W31411471826H*      ]*  r*  *  *      +  +                                               WINDOWS _68B0N8DS21445627405,      ,  ,  ,  ,      a-  y.                                               WINDOWS _68B0N8DS31411470924(0      70  F0  V0  l0                                                           COMMENT RESERVED                                0                                                            0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Altersteilzeit     Height = 389
Width = 497
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Altersteilzeit-Vorgaben"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\g22ico.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "Altersteilzeit"
     PROCEDURE Init
thisform.uber1.Caption = thisform.uber1.Caption + welchesjahrc

For i = 70 To 100
	thisform.Combo1.AddItem(ALLTRIM(STR(i,3,0)))
Next

If altersprozenta > 100
	altersprozenta = 83
Endif

If altersprozentb > 100
	altersprozentb = 80
ENDIF

thisform.Combo1.ListIndex = altersprozentb - 70 + 1

For i = 70 To 100
	thisform.Combo2.AddItem(ALLTRIM(STR(i,3,0)))
NEXT

thisform.Combo2.ListIndex = altersprozenta - 70 + 1


thisform.zeile6.Caption = "Sie haben hier die Mglichkeit, den gesetzlich bzw. tariflich festgelegten"
thisform.zeile7.Caption = "Prozentsatz fr " + "****Was wre wenn****-" + "Berechnungen zu ndern."
thisform.zeile8.Caption = "Stellen Sie dann die ATZ-Berechnung fr die einzelnen Bediensteten in Zeile 23 ein."

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     q    X  X                        &   %                          U  x T           F(dQ  CCC  Z      % ds 
 T S  % d 
 T P  T   	  F  F(d  CCC  Z  
    T  
 	  F] T    J Sie haben hier die Mglichkeit, den gesetzlich bzw. tariflich festgelegtenX T     Prozentsatz fr  ****Was wre wenn****- Berechnungen zu ndern.f T  
  S Stellen Sie dann die ATZ-Berechnung fr die einzelnen Bediensteten in Zeile 23 ein.
      T        T       
     T   a U  THISFORM UBER1 CAPTION WELCHESJAHRC I COMBO1 ADDITEM ALTERSPROZENTA ALTERSPROZENTB	 LISTINDEX COMBO2 ZEILE6 ZEILE7 ZEILE8 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resizex    1 rA  A  A rA a rq  2 1                                   %    )   X                        shape      shape      Shape3      Altersteilzeit      @Top = 254
Left = 8
Height = 77
Width = 478
Name = "Shape3"
      shape      shape      Shape1      Altersteilzeit      @Top = 54
Left = 8
Height = 199
Width = 238
Name = "Shape1"
      shape      shape      Shape2      Altersteilzeit      BTop = 54
Left = 247
Height = 199
Width = 238
Name = "Shape2"
      label      label      uber1      Altersteilzeit      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Altersteilzeit "
Height = 25
Left = 15
Top = 16
Width = 120
Name = "uber1"
      
commandbutton      
commandbutton      
sscommand1      Altersteilzeit      Top = 102
Left = 25
Height = 30
Width = 204
Caption = "ATZ-Zuschlagsverordnung"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
      PROCEDURE Click
inet = 200
mylink = 0
Msg = "gesetze-im-internet.de/atzv/BJNR319100998"
Do insinternet &&Do attached
ENDPROC
     '                                 %                             U  Z 
 T  
 T  6 T ) gesetze-im-internet.de/atzv/BJNR319100998   U  INET MYLINK MSG INSINTERNET Click,     1   aq 1                       x       )                           
commandbutton      
commandbutton      
sscommand2      Altersteilzeit      Top = 102
Left = 264
Height = 30
Width = 204
Caption = "Tarifvertrag Altersteilzeit"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      fPROCEDURE Click
inet = "030"
mylink = 754 &&Msg = "TV-ATZ"
Do insinternet &&Do attached 
ENDPROC
                                      i   %   s                          U  (  T   030 T    U  INET MYLINK INSINTERNET Click,     1  q 1                       [       )                            
commandbutton      
commandbutton      
sscommand3      Altersteilzeit      Top = 135
Left = 264
Height = 30
Width = 204
Caption = "Altersteilzeitgesetz"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      pPROCEDURE Click
inet = "000"
Msg = "bundesrecht.juris.de/alttzg_1996"
Do insinternet &&Do attached
ENDPROC
     
                                   %                             U  G  T   000- T   bundesrecht.juris.de/alttzg_1996   U  INET MSG INSINTERNET Click,     1 q 1                       e       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Altersteilzeit      Top = 371
Left = 478
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label1      Altersteilzeit      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "fr Beamte:"
Height = 25
Left = 72
Top = 66
Width = 110
Name = "Label1"
      label      label      Label2      Altersteilzeit      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "fr Angestellte:"
Height = 25
Left = 295
Top = 66
Width = 143
Name = "Label2"
      label      label      Label3      Altersteilzeit      aCaption = "%-Satz Nettobezge"
Height = 16
Left = 71
Top = 187
Width = 113
Name = "Label3"
      label      label      Label4      Altersteilzeit      eCaption = "%-Satz Nettovergtung"
Height = 16
Left = 301
Top = 187
Width = 130
Name = "Label4"
      combobox      combobox      Combo1      Altersteilzeit      OHeight = 22
Left = 95
Top = 214
Visible = .T.
Width = 64
Name = "Combo1"
     >PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,6))))
thisform.ATZ_geklickt.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   0   %          b  
   N            U   
 T   U  COUNTER1 ! T    CCCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME ATZ_GEKLICKT CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2  2  3  1                                ;                        )  3      )                           combobox      combobox      Combo2      Altersteilzeit      PHeight = 22
Left = 334
Top = 214
Visible = .T.
Width = 64
Name = "Combo2"
     >PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
thisform.geklickt.value = INT(VAL(ALLTRIM(SUBSTR(this.Name,6))))
thisform.ATZ_geklickt.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   0   %          b  
   N            U   
 T   U  COUNTER1 ! T    CCCC  \g8
      U  THISFORM GEKLICKT VALUE THIS NAME ATZ_GEKLICKT CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2  2  3  1                                ;                        )  3      )                           label      label      zeile6      Altersteilzeit      dCaption = "Label0"
Height = 17
Left = 18
Top = 267
Visible = .T.
Width = 447
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      Altersteilzeit      dCaption = "Label0"
Height = 17
Left = 18
Top = 284
Visible = .T.
Width = 447
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      Altersteilzeit      dCaption = "Label0"
Height = 17
Left = 18
Top = 301
Visible = .T.
Width = 447
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            
commandbutton      
commandbutton      Command4      Altersteilzeit      Top = 344
Left = 247
Height = 30
Width = 238
Caption = "Schlieen"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "Command4"
      PROCEDURE Click
myform1.SSPanel1.Visible = True
Do Berechnung &&Do attached
Do anzeige &&Do attached
thisform.release
ENDPROC
     %                                 %                             U  .  T         
    U  MYFORM1 SSPANEL1 VISIBLE TRUE
 BERECHNUNG ANZEIGE THISFORM RELEASE Click,     1 1q q  1                       y       )                           
commandbutton      
commandbutton      Command5      Altersteilzeit      ~Top = 344
Left = 8
Height = 30
Width = 238
Caption = "Vorgabewerte"
Visible = .T.
SpecialEffect = 0
Name = "Command5"
      bPROCEDURE Click
thisform.combo1.ListIndex = 13 + 1
thisform.combo2.ListIndex = 13 + 1
ENDPROC
                                      h   %   ~                          U  )  T     T     U  THISFORM COMBO1	 LISTINDEX COMBO2 Click,     1 111                       W       )                            
commandbutton      
commandbutton      ATZ_geklickt      Altersteilzeit      ~Top = 12
Left = 312
Height = 25
Width = 76
Caption = "ATZ_geklickt"
Enabled = .F.
Visible = .F.
Name = "ATZ_geklickt"
     PROCEDURE Click
myindex = thisform.geklickt.value
Do Case && myindex
	Case myindex = 1
		altersprozentb = thisform.combo1.ListIndex + 70 - 1
	Case myindex = 2
		altersprozenta = thisform.combo2.ListIndex + 70 - 1
Endcase

Do voreinstaus &&Do attached

ENDPROC
                                      %   "      E  
   1            U    T     
 H  x    L  T    F   x  T    F  	  U
  MYINDEX THISFORM GEKLICKT VALUE ALTERSPROZENTB COMBO1	 LISTINDEX ALTERSPROZENTA COMBO2 VOREINSTAUS Click,     1 1 A r 2                             )                           textbox      textbox      geklickt      Altersteilzeit      `Enabled = .F.
Height = 22
Left = 243
Top = 12
Visible = .F.
Width = 58
Name = "geklickt"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
05   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _4LS0UWRQW1411486508      /  F      ]                      3      <                       WINDOWS _4LS0UWRQX1520786082E      Q  ]      j      	                                                  WINDOWS _4LS0UWRRC1412540187N-      [-  h-  {-  -                                                           WINDOWS _4LS0UWRRD1412540187
.      .  $.  7.  D.                                                           WINDOWS _4LS0UWRRE1412540187.      .  .  .  /                                                           WINDOWS _4LS0UWRRF1412540187/      /  /  /  /      A0  n2                                               WINDOWS _4LS0UWRRG141254018764      E4  T4  a4  n4      4  e5                                               WINDOWS _4LS0UWRRH14125401876      6  6  6  6                                                           WINDOWS _4LS0UWRRJ14194036307      8  8  (8  58      8  e>                                               WINDOWS _4LS0UWRRK1419403604B      B  B  B  B      lC  H                                               WINDOWS _4LS0UWRRL1412651502H      H  H  H  I      hI  M                                               WINDOWS _4LS0UWRRM1419397799O      	P  P  0P  =P      P  P                                               WINDOWS _4LS0UWRRN1412651502Q      Q  Q  Q  	R      hR  S                                               WINDOWS _4LS0UWRRO1519996011)U      >U  SU  eU  rU      U  V                                               WINDOWS _4LS0UWRRP1412651502W      X  &X  8X  EX      X  -Y                                               WINDOWS _5ZA0PTJI114125401870Z  @Z  `Z  oZ  |Z  Z                                                           WINDOWS _6860XJZHG1412540187[      '[  6[  G[  T[                                                           WINDOWS _6860XJZHH1412540187[      [  [  [  [                                                           WINDOWS _68B177MR11520786082c\      x\  \  \  \      4]  _                                               WINDOWS _68T0O4MS91412651584Va      ka  a  a  a      b  b                                               WINDOWS _68T0O4MSA1412651584c      d  !d  1d  >d      d  ke                                               WINDOWS _69J0X89C71418676642f  f  f  f  f  f      eh  k                                               WINDOWS _4LS0UWRQW1419399011#n      /n  ;n  Mn  Zn      y  }                                               WINDOWS _4LS0UWRQX1411483303      
    *  J                                                           WINDOWS _4LS0UWRRB1411490903w                  3                                                 WINDOWS _4LS0UWRQY1411483303            Є                                                           WINDOWS _4LS0UWRRC1411490903        !  .  N                                                       WINDOWS _4LS0UWRRD1411483303        -  <  \                                                           WINDOWS _4LS0UWRRE1411490831            Շ      F                                                 WINDOWS _4LS0UWRRF1411483303m      {                                                                 WINDOWS _4LS0UWRRG1411490903            2        1                                               WINDOWS _4LS0UWRRH1411483303            ͍                                                           WINDOWS _4LS0UWRRI1411490903          $  D        C                                               WINDOWS _4LS0UWRRJ1411483303            ߐ                                                           WINDOWS _4LS0UWRRK1411490903        *  7  W      ȑ  V                                               WINDOWS _4LS0UWRRL1411483303        Ó  ғ                                                             WINDOWS _4LS0UWRRM1411490903      ,  ;  H  h      ٔ  g                                               WINDOWS _4LS0UWRRN1411483303      Ɩ  Ԗ                                                               WINDOWS _4LS0UWRRO1411490903/      >  M  Z  z        y                                               WINDOWS _4LS0UWRRP1411483303ʙ      ؙ                                                                 WINDOWS _5ZA0PTJI11411490903A      P  _  l                                                         WINDOWS _6860XJZHG1411483303ܜ            (                                                           WINDOWS _6860XJZHH1411490903V      e  t                                                           WINDOWS _4LS0UWRQW1411483303             >                                                           WINDOWS _4LS0UWRQX1411490903o      ~            ,                                                 WINDOWS _4LS0UWRRB1411483303        '  6  W                                                           WINDOWS _4LS0UWRQY1411490903            ң      C  Ѥ                                               WINDOWS _4LS0UWRRC1411483303"      0  >  M  n                                                           WINDOWS _4LS0UWRRD1411490903          ɦ        [                                                 WINDOWS _4LS0UWRRE1411483303:      H  V  e                                                             WINDOWS _4LS0UWRRF1411490903      ũ  ԩ          s                                                 COMMENT RESERVED                                R                                                            {                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 184
Left = 521
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
     PROCEDURE BeforeOpenTables
CREATE CURSOR ansicht (hszeile c(5), texte C(50), januar C(10), Februar C(10), Marz C(10), April C(10), Mai C(10), Juni C(10), Juli C(10), August C(10), September C(10), Oktober C(10), November C(10), Dezember C(10), Jahrsummen C(10), isgelb1 C(1), isgelb2 C(1), isgelb3 C(1), isgelb4 C(1), isgelb5 C(1), isgelb6 C(1), isgelb7 C(1), isgelb8 C(1), isgelb9 C(1), isgelb10 C(1), isgelb11 C(1), isgelb12 C(1), isgelb13 C(1), isgelb14 C(1))


ENDPROC
         f  f                        =0   %                          U  h ansicht  C  C2  C
  C
  C
  C
  C
  C
	  C

  C
  C
  C

  C
  C
  C
  C  C  C  C  C  C  C  C  C  C  C  C  C  C U  ANSICHT HSZEILE TEXTE JANUAR FEBRUAR MARZ APRIL MAI JUNI JULI AUGUST	 SEPTEMBER OKTOBER NOVEMBER DEZEMBER
 JAHRSUMMEN ISGELB1 ISGELB2 ISGELB3 ISGELB4 ISGELB5 ISGELB6 ISGELB7 ISGELB8 ISGELB9 ISGELB10 ISGELB11 ISGELB12 ISGELB13 ISGELB14 BeforeOpenTables,     1 13                             )   f                        1      1      form      form      FORM1     !Height = 698
Width = 1225
ShowWindow = 2
ScrollBars = 3
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Jahresbersicht"
ControlBox = .T.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Resize

THISFORM.sizer.frmresize()

IF thisform.Height - 36 > thisform.grdansicht.Height
	thisform.grdansicht.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 20 > thisform.grdansicht.width
	thisform.grdansicht.width = thisform.width - 20
ENDIF


prozsp1 =  50 / 1205
prozsp2 =  211 / 1205
prozsp3  = 75 / 1205

thisform.grdansicht.Width = thisform.Width - 20

grdbreite = thisform.grdansicht.Width 
thisform.grdansicht.column1.Width = grdbreite * prozsp1
thisform.grdansicht.column2.Width = grdbreite * prozsp2
FOR hsa = 3 TO 14
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht.&xxx..Width = grdbreite * prozsp3
NEXT
thisform.grdAnsicht.column1.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column2.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column3.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column4.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column5.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column6.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column7.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column8.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column9.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column10.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column11.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column12.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column13.text1.fontsize = thisform.grdAnsicht.column1.fontsize
thisform.grdAnsicht.column14.text1.fontsize = thisform.grdAnsicht.column1.fontsize
*thisform.Width = thisform.grdansicht.Width + 20
ENDPROC
PROCEDURE Init
myform3 = Thisform

thisform.AutoCenter = .t.
&&ffentlicher Dienst
IF thisform.Top < 0
	thisform.Top = 0
endif
thisform.oldHeight.value = thisform.height
thisform.oldWidth.value = thisform.Width

If myform1.Visible = False 
	namensfile = myform1.tdbnumber1.value &&Val(thisform.MSFlexGrid1.Text)
ENDIF

k = 0
dbb = True
Thisform.Top = 0 &&jahroben

If register < 44
	myform3.Left = 65 &&jahrlinks
	myform3.Width = screenmaxb - 100 &&_Screen.Width - 45
	myform3.Height = screenmaxh * 0.95 &&_Screen.Height * 0.95
Else
	myform3.Top = myform1.Top &&0
	myform3.Width = myform1.Width
	myform3.Left = myform1.Left
	myform3.Height = myform1.Height &&Screen.Height - 650
Endif

*!*	myform3.BackColor = farbenrgb(1+0)
*!*	myform3.SSCommand1.Top = myform3.Height - 75
*!*	myform3.SSCommand3.Top = myform3.Height - 75
*!*	myform3.SSCommand4.Top = myform3.Height - 75
*!*	myform3.SSCommand2.Top = myform3.Height - 75
*!*	myform3.SSCommand5.Top = myform3.Height - 75
*!*	myform3.SSCommand7.Top = myform3.Height - 75
*!*	myform3.HScroll1.Top = myform3.Height - 75

Do Case && register
	Case register < 46
		myform3.HScroll1.Max = satzanzahl &&+ 1&&HS + 1
ENDCASE

jahresdruck = 1

myform3.SSCommand4.Caption = "akkumulieren"
 
*!*	Do Case && register
*!*		Case (register >= 38 .And. register <= 45)
*!*			myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
*!*			myform3.HScroll1.scroll &&change
*!*		Case register = 46
*!*			&&HScroll1.Value = 1020
*!*		Case register = 123 &&ABM-Monate
*!*	ENDCASE

*!*	With myform3.MSFlexGrid1
*!*	*	.ToolTipText = " Sie knnen die Gehaltsberechnung eines bestimmten Monats aufrufen, indem Sie auf die entsprechende "
*!*		Do Case && register
*!*			Case register = 39
*!*	*			.ToolTipText = .ToolTipText + "Zeile klicken."
*!*			Case  Inlist(register, 40, 41, 42, 123)
*!*	*			.ToolTipText = .ToolTipText + "Spalte klicken."
*!*			Case (register >= 45 .And. register <= 47)
*!*	*			.ToolTipText = ""
*!*		Endcase
*!*	ENDWITH

jahrzeigen = 0

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.sizer.saveformsize

thisform.resize

IF thisform.Height - 36 > thisform.grdansicht.Height
	thisform.grdansicht.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 20 > thisform.grdansicht.width
	thisform.grdansicht.width = thisform.width - 20
ENDIF

prozsp1 =  50 / 1205
prozsp2 =  211 / 1205
prozsp3  = 75 / 1205

thisform.grdansicht.Width = thisform.Width - 20

grdbreite = thisform.grdansicht.Width 
thisform.grdansicht.column1.Width = grdbreite * prozsp1
thisform.grdansicht.column2.Width = grdbreite * prozsp2
FOR hsa = 3 TO 14
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdansicht.&xxx..Width = grdbreite * prozsp3
NEXT

thisform.Width = thisform.grdansicht.Width + 20


thisform.sizer.saveformsize

*!*	hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*	IF FILE("&hsansicht")
*!*		myform3.msflexgrid1.visible = .f.
	myform3.grdansicht.visible = .t.

*!*		myform3.msflexgrid2.visible = .f.
*!*	ELSE
*!*		myform3.msflexgrid1.visible = .t.
*!*		myform3.grdansicht.visible = .f.
*!*		myform3.msflexgrid2.visible = .f.
*!*	ENDIF
*thisform.WindowState = 2
thisform.AutoCenter = .t.
thisform.grdansicht.column1.setfocus

myform3.HScroll1.Value = myform1.tdbnumber1.value &&HS namensfile
myform3.HScroll1.scroll &&change
*!*	SELECT ansicht
*!*	thisform.grdansicht.refresh

ENDPROC
PROCEDURE Activate
*!*	If myform1.Visible = False 
*!*		namensfile = Val(thisform.MSFlexGrid1.Text)
*!*	endif
*thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Destroy
fensteroffen = 0
SELECT ansicht
use
ENDPROC
                                   o   %          3  i   a            U   C     %   $    L  T       $  %         T         T  >>? T  ii? T   ޯ? T        T	      T   
  	   T     	    (! T
  columnCC  Z9 thisform.grdansicht.&xxx..Width = grdbreite * prozsp3
 " T   
      
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
  " T         
   U  THISFORM SIZER	 FRMRESIZE HEIGHT
 GRDANSICHT WIDTH PROZSP1 PROZSP2 PROZSP3	 GRDBREITE COLUMN1 COLUMN2 HSA XXX TEXT1 FONTSIZE COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 COLUMN14
 T    T  a %   
?  T     T      T      %	 
    T 	 
   
 T  
 T   T    % ,
 T   A T    d T    ffffff? i T   	   T   	   T   	   T   	   
 Hz  .
 T      
 T  T     akkumulieren
 T   %     T C    T &
 T  
     T       T      
    
     %  $ !   T !    $  %   !   T !      T"  >>? T#  ii? T$   ޯ? T !     T%  !   T ! &  % "  T ! '  % #  ( (! T)  columnCC(  Z9 thisform.grdansicht.&xxx..Width = grdbreite * prozsp3
  T   !  
     T  ! 
 a T  a  ! & *  T    	 
  
    +  U,  MYFORM3 THISFORM
 AUTOCENTER TOP	 OLDHEIGHT VALUE HEIGHT OLDWIDTH WIDTH MYFORM1 VISIBLE FALSE
 NAMENSFILE
 TDBNUMBER1 K DBB TRUE REGISTER LEFT
 SCREENMAXB
 SCREENMAXH HSCROLL1 MAX
 SATZANZAHL JAHRESDRUCK
 SSCOMMAND4 CAPTION
 JAHRZEIGEN MSCREENFAKTOR_H	 DPIFAKTOR SIZER SAVEFORMSIZE RESIZE
 GRDANSICHT PROZSP1 PROZSP2 PROZSP3	 GRDBREITE COLUMN1 COLUMN2 HSA XXX SETFOCUS SCROLL  U   
 T    F  Q U  FENSTEROFFEN ANSICHT Resize,      Init     Activate
     Destroy
    1 A A caa2qA !!!!!!!!!!!!!!3   BA aaB1A   A 1111A  1A  `   A    A A baa2qA    5 6  q A 1                       e     "       +   d           e           )                           label      label      stundenlohn      FORM1      zFontBold = .T.
Caption = "Label1"
Height = 36
Left = 357
Top = 120
Visible = .F.
Width = 168
Name = "stundenlohn"
      label      label      Bezeichnung      FORM1      yFontBold = .T.
Caption = "Label1"
Height = 42
Left = 489
Top = 74
Visible = .F.
Width = 168
Name = "Bezeichnung"
      label      label      Bruchbezeichnung      FORM1      FontBold = .T.
Caption = "Label1"
Height = 45
Left = 714
Top = 150
Visible = .F.
Width = 177
Name = "Bruchbezeichnung"
      textbox      textbox      effektiv      FORM1      sAlignment = 3
Value = 0.00000
Height = 22
Left = 558
Top = 195
Visible = .F.
Width = 112
Name = "effektiv"
     %PROCEDURE InteractiveChange
Do Case && register
Case register = 45
&&Form3.MousePointer = 11
&&Form3.Visible = False
&&If effektiv.Value > wert(1+0) / 100000 * 2 Then effektiv.Value = 1

&&wertold(1+1) = effektiv.Value * 100000
&&spaltenfllen
&&Form3.Visible = True
&&Form3.MousePointer = 1
Case register = 46

EndCase

ENDPROC
PROCEDURE KeyPress
LPARAMETERS keyascii, nShiftAltCtrl
Do Case && register
	Case register = 45
		If KeyAscii = 13
			Do effektivstart &&Do attached
		Endif
	Case register = 46
Endcase

ENDPROC
                                   <   %         N     0            U  6 
 H
 /    -    ./   U  REGISTER]     
 H V   -E  %  
A      .V   U  KEYASCII
 NSHIFTALTCTRL REGISTER
 EFFEKTIVSTART InteractiveChange,      KeyPressp     1  B 3   q A A 2                       N        m        )                           spinner      spinner      bruch      FORM1      PHeight = 22
Left = 558
Top = 219
Visible = .F.
Width = 111
Name = "bruch"
      PROCEDURE Click
Do bruchstart 
ENDPROC
PROCEDURE InteractiveChange
Do bruchstart 
ENDPROC
PROCEDURE ProgrammaticChange
Do bruchstart 
ENDPROC
     P    7  7                        eO   %   z                          U  
     U 
 BRUCHSTART
     U 
 BRUCHSTART
     U 
 BRUCHSTART Click,      InteractiveChangeF      ProgrammaticChange`     1 q 2 q 2 q 1                                G   U         ~          )   7                        label      label      	hilfetext      FORM1      WordWrap = .T.
Caption = "Wenn Sie die Stunden- bzw. Tagesangabe ndern, wird die Tabelle neu berechnet. Ihre Gehaltsabrechnung bleibt davon unberhrt."
Height = 79
Left = 348
Top = 186
Visible = .F.
Width = 171
Name = "hilfetext"
      
commandbutton      
commandbutton      
sscommand4      FORM1      |Top = 1
Left = 404
Height = 31
Width = 115
Caption = "akkumulieren"
Enabled = .F.
Visible = .F.
Name = "sscommand4"
     PROCEDURE Click

If register < 45
	If thisform.SSCommand4.Caption = "Monate einzeln"
		thisform.SSCommand4.Caption = "akkumulieren"
		dbb = True
	Else
		thisform.SSCommand4.Caption = "Monate einzeln"
		dbb = False
	Endif
Endif

*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif


Do Case && register
	Case register = 39
*		thisform.Visible = False
		Do uebersichtladen &&Do attached
*		thisform.Visible = True
	Case register = 40
*		thisform.Visible = False
		Do uebersichtladen1 &&Do attached
*		thisform.Visible = True
	Case register = 41
*		thisform.Visible = False
		Do uebersichtladen2 &&Do attached
*		thisform.Visible = True
	Case register = 45
		myindexe = 16
		Do menaktiv &&Do attached
	Case register = 46
		infotext = "Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen der" + CHR(13)
		infotext = infotext + "Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein Textdokument" + CHR(13)
		infotext = infotext + "und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie das" + CHR(13)
		infotext = infotext + "Dokument und damit auch diese Bildschirmansicht ausdrucken."
		Messagebox(infotext)
ENDCASE
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		ENDIF
	thisform.refresh
ENDPROC
                                        %   n           }            U   %  -
 % %    Monate einzelnb  T    akkumulieren
 T    ! T    Monate einzeln
 T    
 H    '      (      )  	    -
 T
      .P T = Kopieren Sie diese Ansicht durch gleichzeitiges Bettigen derC
 c T  L Tasten (ALT + DRUCK) in die Zwischenablage. ffnen Sie dann ein TextdokumentC
 _ T  H und fgen Sie dort den Inhalt der Zwischenablage ein. Nun knnen Sie dasC
 L T  ; Dokument und damit auch diese Bildschirmansicht ausdrucken. C x 
  
  U  REGISTER THISFORM
 SSCOMMAND4 CAPTION DBB TRUE FALSE UEBERSICHTLADEN UEBERSICHTLADEN1 UEBERSICHTLADEN2 MYINDEXE	 MENAKTIV INFOTEXT REFRESH Click,     1 Q   A A  r r r  q 1 A  1                             )                            
commandbutton      
commandbutton      
ssCommand7      FORM1      Top = 2
Left = 521
Height = 31
Width = 115
Caption = "Mittelteil A"
Enabled = .F.
Visible = .F.
BackColor = 255,255,128
Name = "ssCommand7"
     PROCEDURE Click
*!*	If register = 45
*!*		&&ATZZinsen.Show
*!*	Else
*!*		With myform3.SSCommand7
*!*			If .Caption = "Mittelteil A"
*!*				.Caption = "Mittelteil B"
*!*			Else
*!*				.Caption = "Mittelteil A"
*!*			ENDIF
*!*		ENDWITH
*!*	*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*	*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*	*!*		endif
*!*		Do mittelteilumschalten &&Do attached
*!*		SELECT ansicht
*!*		FOR HSxrow = 1 TO 42
*!*			GOTO hsxrow
*!*			myform3.msflexgrid1.row = hsxrow
*!*			myform3.msflexgrid1.col = 0
*!*			replace ansicht.texte WITH ALLTRIM(myform3.msflexgrid1.text)
*!*			
*!*			FOR HSxcol = 1 TO 13
*!*				myform3.msflexgrid1.col = HSxcol
*!*				myform3.msflexgrid1.row = hsxrow	
*!*				xfeld = FIELD(hsxcol+1)
*!*				replace ansicht.&xfeld WITH ALLTRIM(myform3.msflexgrid1.text)
*!*			next
*!*		next
*!*		FLUSH
*!*		SELECT ansicht
*!*		GO top	
*!*		thisform.grdAnsicht.refresh
*!*	*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*	*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*	*!*		endif
*!*	ENDIF
*!*	thisform.refresh
ENDPROC
                                      q^   %   3       H      B             U    U   Click,     1 p1                             )                            
commandbutton      
commandbutton      
ssCommand3      FORM1      YTop = 2
Left = 637
Height = 31
Width = 115
Caption = "Drucken"
Name = "ssCommand3"
     JPROCEDURE Click

Do Case && register
	Case register = 39
		&&Unload Druckvorschau
		dRatio = 1
*!*			DO Druckvorschau.AG_bersicht2 with Druckvorschau.Blatt, dRatio &&
			DO AG_bersicht2
*!*			DO Druckvorschau.Blatt with dRatio
		myIndexe = register

	Case register = 40
		&&Form3.Visible = False
		&&AG_AN_drucken
		&&Form3.Visible = True

		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.ansicht with Druckvorschau.Blatt, dRatio
		DO ansicht
		myindexe = register
		
	Case register = 41
		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.agsicht with Druckvorschau.Blatt, dRatio
		DO agsicht
		myindexe = register
		
	Case register = 42
		&&Form3.Visible = False
		&&AG_AN_drucken
		&&Form3.Visible = True

		&&Unload Druckvorschau
*!*			dRatio = 1
*!*			DO Druckvorschau.kontrolledrucken2 with Druckvorschau.Blatt, dRatio
		DO kontrolledrucken2
		myindexe = register

	Case register = 45
		myindexe = 11
		Do menaktiv &&Do attached
		
	Case  Inlist(register, 46, 47)
		Messagebox("In Vorbereitung")
Endcase
ENDPROC
     2                              x   %                          U  

 H
    '? 
 T   
 T      (d   
 T      )   
 T      *   
 T      - 
 T    C  ./ C In Vorbereitungx  U  REGISTER DRATIO
 AG_BERSICHT2 MYINDEXE ANSICHT AGSICHT KONTROLLEDRUCKEN2	 MENAKTIV Click,     1   r  x  t  x   q RA 1                       ?      )                           
commandbutton      
commandbutton      
ssCommand2      FORM1      Top = 2
Left = 753
Height = 31
Width = 115
Caption = "Daten exportieren"
Enabled = .F.
Visible = .F.
Name = "ssCommand2"
      *PROCEDURE Click
DO FORM export
ENDPROC
                                      L   %   I       ^      X             U     export U  EXPORT Click,     1  1                              )                            
commandbutton      
commandbutton      
ssCommand5      FORM1      WTop = 2
Left = 869
Height = 31
Width = 115
Caption = "Hilfe"
Name = "ssCommand5"
     )PROCEDURE Click
Do Case && register
	Case  Inlist(register, 39, 40, 41, 42 )&& Hilfe Gemischt
		inet = 111
		Msg = "31"
		DO insinternet 
	Case register = 45 &&Teilzeitrechner
		inet = 111
		Msg = "161"
		DO insinternet 
	Case register = 46


	Case register = 47

Endcase
ENDPROC
         o  o                        _   %          &     
            U   
 H
   C  '()*K 
 T o T  31     - 
 T o T  161     .    /   U  REGISTER INET MSG INSINTERNET Click,     1    q  q B 1                             )   o                        
commandbutton      
commandbutton      
ssCommand1      FORM1      iTop = 1
Left = 288
Height = 31
Width = 115
Cancel = .T.
Caption = "Schlieen"
Name = "ssCommand1"
      PROCEDURE Click
fensteroffen = 0
tasteflop = True
tastenummer = 0
myform1.Tastenstand.Caption = ""
myform1.visible = .t.
thisform.release

ENDPROC
     m    T  T                        :   %                            U  U 
 T   
 T  
 T   T      T  a
  	  U
  FENSTEROFFEN	 TASTEFLOP TRUE TASTENUMMER MYFORM1 TASTENSTAND CAPTION VISIBLE THISFORM RELEASE Click,     1    1  2                              )   T                        
commandbutton      
commandbutton      
ssCommand6      FORM1      zTop = 2
Left = 986
Height = 31
Width = 115
Caption = "sscommand6"
Enabled = .F.
Visible = .F.
Name = "ssCommand6"
      ^PROCEDURE Click
myindexe = 12
indexi = 12
Do menaktiv &&Do attached
indexi = 0
ENDPROC
                                         %   ~                          U  1 
 T  
 T   
 T   U  MYINDEXE INDEXI	 MENAKTIV Click,     1   q  1                       S       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 672
Left = 1206
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      	oldheight      FORM1      cEnabled = .F.
Height = 19
Left = 1071
Top = 522
Visible = .F.
Width = 82
Name = "oldheight"
      textbox      textbox      oldWidth      FORM1      aEnabled = .F.
Height = 19
Left = 984
Top = 534
Visible = .F.
Width = 82
Name = "oldWidth"
      
commandbutton      
commandbutton      spaltenklick      FORM1      ~Top = 4
Left = 1125
Height = 12
Width = 80
Caption = "spaltenklick"
Enabled = .F.
Visible = .F.
Name = "spaltenklick"
     PROCEDURE Click
*myForm3.WindowState = 1
IF active_col_nr < 3 
	RETURN
ENDIF

Do Case && register

	Case  Inlist(register, 40, 41, 42)

		If jahrzeigen = 0
			vongrid = 1
			zi(1+20) = active_col_nr - 3
			Monat = zi(1+20) + 1
			myform1.tdbnumber1.Value = fileneu
		ENDIF
		myform1.visible = .t.
		thisform.Release
		
		Do Neuername &&Do attached
		
		xxx = ALLTRIM(STR(Monat - 1,2,0))
		myform1.mon&xxx..click

Endcase
ENDPROC
     K    2  2                           %                          U    %  
  B 
 H&   C ()*  %   
 T  T    T C  T   	   T 
 a
    
  T CC  Z myform1.mon&xxx..click
  U 
 ACTIVE_COL_NR REGISTER
 JAHRZEIGEN VONGRID ZI MONAT MYFORM1
 TDBNUMBER1 VALUE FILENEU VISIBLE THISFORM RELEASE	 NEUERNAME XXX Click,     1 A A   qQ1A   r B 1                             )   2                        
commandbutton      
commandbutton      Command7      FORM1      qTop = 4
Left = 10
Height = 25
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command7"
      PROCEDURE Click
If thisform.hScroll1.value > thisform.hScroll1.Min 
	thisform.hScroll1.value = thisform.hScroll1.value - 1
ENDIF
thisform.hScroll1.scroll
    
ENDPROC
     #    
  
                           %                             U  N  %        :  T         
      U  THISFORM HSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )   
                        
commandbutton      
commandbutton      Command8      FORM1      sTop = 4
Left = 266
Height = 25
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command8"
      PROCEDURE Click
If thisform.hScroll1.value < thisform.hScroll1.Max 
	thisform.hScroll1.value = thisform.hScroll1.value + 1
ENDIF
thisform.hScroll1.scroll

ENDPROC
     #    
  
                           %                             U  N  %        
:  T         
      U  THISFORM HSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )   
                        xslider      foxyslider.vcx      	container      hscroll1      FORM1     tTop = 4
Left = 30
Width = 233
Height = 24
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 200
showtips = .T.
min = 1
showtipsalways = .T.
Name = "hscroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     VPROCEDURE scroll

IF this.value > satzanzahl
	this.value = this.value - 1
	return
endif
If myform3.HScroll1.Value > 0
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = False
*!*		endif
*	myform3.visible = false
	namensfile = thisform.HScroll1.Value
	Do Case && register
		Case register = 39
			Do uebersichtladen &&Do attached
		Case register = 40
			Do uebersichtladen1 &&Do attached
		Case register = 41
			Do uebersichtladen2 &&Do attached
		Case register = 42
			Do uebersichtladen3 &&Do attached
		Case register = 45 &&Teilzeitrechner
	ENDCASE

*	myform3.visible = true
 
*!*		hsansicht = eigdat + muser + "\neueansicht.pcg"
*!*		IF .not. FILE("&hsansicht")
*!*			myform3.MSFlexGrid1.Visible = false
*!*		endif	
ENDIF
thisform.refresh
ENDPROC
     X    ?  ?                        jC   %                          U    %    /  T       B  %      T    
 Hj    '     (  	   )  
   *     -   
    U
  THIS VALUE
 SATZANZAHL MYFORM3 HSCROLL1
 NAMENSFILE THISFORM REGISTER UEBERSICHTLADEN UEBERSICHTLADEN1 UEBERSICHTLADEN2 UEBERSICHTLADEN3 REFRESH scroll,     1 BqA A q6 q q q q A H  1                       K      )   ?                        grid      grid      
grdAnsicht      FORM1     ;ColumnCount = 14
FontName = "Arial"
FontSize = 9
DeleteMark = .F.
Enabled = .T.
Height = 642
Left = 9
Panel = 1
ReadOnly = .T.
RecordSource = "ansicht"
RecordSourceType = 1
RowHeight = 18
Top = 35
Width = 1205
Name = "grdAnsicht"
Column1.FontName = "Arial"
Column1.FontSize = 9
Column1.ControlSource = "ansicht.hszeile"
Column1.Enabled = .T.
Column1.Width = 50
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.FontName = "Arial"
Column2.FontSize = 9
Column2.ControlSource = "ansicht.texte"
Column2.Enabled = .T.
Column2.Width = 211
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.FontName = "Arial"
Column3.FontSize = 9
Column3.ControlSource = "ansicht.januar"
Column3.Enabled = .T.
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.FontName = "Arial"
Column4.FontSize = 9
Column4.ControlSource = "ansicht.februar"
Column4.Enabled = .T.
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.FontName = "Arial"
Column5.FontSize = 9
Column5.ControlSource = "ansicht.marz"
Column5.Enabled = .T.
Column5.Width = 75
Column5.ReadOnly = .T.
Column5.Name = "Column5"
Column6.FontName = "Arial"
Column6.FontSize = 9
Column6.ControlSource = "ansicht.april"
Column6.Enabled = .T.
Column6.Width = 75
Column6.ReadOnly = .T.
Column6.Name = "Column6"
Column7.FontName = "Arial"
Column7.FontSize = 9
Column7.ControlSource = "ansicht.mai"
Column7.Enabled = .T.
Column7.Width = 75
Column7.ReadOnly = .T.
Column7.Name = "Column7"
Column8.FontName = "Arial"
Column8.FontSize = 9
Column8.ControlSource = "ansicht.juni"
Column8.Enabled = .T.
Column8.Width = 75
Column8.ReadOnly = .T.
Column8.Name = "Column8"
Column9.FontName = "Arial"
Column9.FontSize = 9
Column9.ControlSource = "ansicht.juli"
Column9.Enabled = .T.
Column9.Width = 75
Column9.ReadOnly = .T.
Column9.Name = "Column9"
Column10.FontName = "Arial"
Column10.FontSize = 9
Column10.ControlSource = "ansicht.august"
Column10.Enabled = .T.
Column10.Width = 75
Column10.ReadOnly = .T.
Column10.Name = "Column10"
Column11.FontName = "Arial"
Column11.FontSize = 9
Column11.ControlSource = "ansicht.september"
Column11.Enabled = .T.
Column11.Width = 75
Column11.ReadOnly = .T.
Column11.Name = "Column11"
Column12.FontName = "Arial"
Column12.FontSize = 9
Column12.ControlSource = "ansicht.oktober"
Column12.Enabled = .T.
Column12.Width = 75
Column12.ReadOnly = .T.
Column12.Name = "Column12"
Column13.FontName = "Arial"
Column13.FontSize = 9
Column13.ControlSource = "ansicht.november"
Column13.Enabled = .T.
Column13.Width = 75
Column13.ReadOnly = .T.
Column13.Name = "Column13"
Column14.FontName = "Arial"
Column14.FontSize = 9
Column14.ControlSource = "ansicht.dezember"
Column14.Enabled = .T.
Column14.Width = 75
Column14.ReadOnly = .T.
Column14.Name = "Column14"
     <PROCEDURE Init
thisform.grdansicht.Column3.DynamicBackColor = "get_form3_3_color(ansicht.isgelb1)"
Thisform.grdansicht.Column4.DynamicBackColor = "get_form3_3_color(ansicht.isgelb2)"
Thisform.grdansicht.Column5.DynamicBackColor = "get_form3_3_color(ansicht.isgelb3)"
Thisform.grdansicht.Column6.DynamicBackColor = "get_form3_3_color(ansicht.isgelb4)"
Thisform.grdansicht.Column7.DynamicBackColor = "get_form3_3_color(ansicht.isgelb5)"
Thisform.grdansicht.Column8.DynamicBackColor = "get_form3_3_color(ansicht.isgelb6)"
Thisform.grdansicht.Column9.DynamicBackColor = "get_form3_3_color(ansicht.isgelb7)"
Thisform.grdansicht.Column10.DynamicBackColor = "get_form3_3_color(ansicht.isgelb8)"
Thisform.grdansicht.Column11.DynamicBackColor = "get_form3_3_color(ansicht.isgelb9)"
Thisform.grdansicht.Column12.DynamicBackColor = "get_form3_3_color(ansicht.isgelb10)"
Thisform.grdansicht.Column13.DynamicBackColor = "get_form3_3_color(ansicht.isgelb11)"
Thisform.grdansicht.Column14.DynamicBackColor = "get_form3_3_color(ansicht.isgelb12)"
thisform.grdansicht.refresh()
ENDPROC
                                      %                          U  8 T     " get_form3_3_color(ansicht.isgelb1)8 T     " get_form3_3_color(ansicht.isgelb2)8 T     " get_form3_3_color(ansicht.isgelb3)8 T     " get_form3_3_color(ansicht.isgelb4)8 T     " get_form3_3_color(ansicht.isgelb5)8 T     " get_form3_3_color(ansicht.isgelb6)8 T   	  " get_form3_3_color(ansicht.isgelb7)8 T   
  " get_form3_3_color(ansicht.isgelb8)8 T     " get_form3_3_color(ansicht.isgelb9)9 T     # get_form3_3_color(ansicht.isgelb10)9 T   
  # get_form3_3_color(ansicht.isgelb11)9 T     # get_form3_3_color(ansicht.isgelb12) C     U  THISFORM
 GRDANSICHT COLUMN3 DYNAMICBACKCOLOR COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 COLUMN14 REFRESH Init,     1 1                       1      )                           header      header      Header1      FORM1.grdAnsicht.Column1      %Caption = "Zeile"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      OPROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
                                      4S   %   y                          U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN GotFocus,     1 11                       D       )                            header      header      Header1      FORM1.grdAnsicht.Column2      +Caption = "Bezeichnung"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      OPROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
                                      4S   %   y                          U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN GotFocus,     1 11                       D       )                            header      header      Header1      FORM1.grdAnsicht.Column3      &Caption = "Januar"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE Click
*!*	SET STEP ON 
*!*	active_col_nr = thisform.grdansicht.activecolumn
thisform.spaltenklick.click
ENDPROC
PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
     I    0  0                        5   %                             U   
      U  THISFORM SPALTENKLICK CLICK  T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN Click,      GotFocus_     1  2 11                       t                   )   0                        header      header      Header1      FORM1.grdAnsicht.Column4      'Caption = "Februar"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column5      $Caption = "Marz"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column6      %Caption = "April"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column7      #Caption = "Mai"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column7      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column8      $Caption = "Juni"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column8      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column9      $Caption = "Juli"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column9      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column10      &Caption = "August"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column10      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column11      )Caption = "September"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column11      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column12      'Caption = "Oktober"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column12      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column13      (Caption = "November"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column13      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        header      header      Header1      FORM1.grdAnsicht.Column14      (Caption = "Dezember"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAnsicht.Column14      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE GotFocus
active_col_nr = thisform.grdansicht.activecolumn
ENDPROC
PROCEDURE Click
thisform.spaltenklick.click
ENDPROC
     I    0  0                        5   %                             U    T      U 
 ACTIVE_COL_NR THISFORM
 GRDANSICHT ACTIVECOLUMN 
      U  THISFORM SPALTENKLICK CLICK GotFocus,      Clicky     1 12  1                       D         `   {       )   0                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
=   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68C0KH3W21417575963      /  F      ]                      c      l                       WINDOWS _68C0KH3W31430476381u                      .                                               WINDOWS _68C17BKKU14115604078      8  8  8   9      A  E                                               WINDOWS _68C17BKKV1411555734xI      I  I  I  I                                                           WINDOWS _68C17BKKW1417578030I      J  J  (J  IJ                                                           WINDOWS _68C17BKKX1411555734J      J  J  J  K                                                           WINDOWS _68C17BKKY1417578085]K      lK  {K  K  K                                                           WINDOWS _68C17BKKZ14115557348L      FL  TL  cL  L                                                           WINDOWS _68C17BKL01417578085L      L  L  L  M                                                           WINDOWS _68C17BKL11411555734M      M  M  M  M                                                           WINDOWS _68C17BKL21417578085=N      LN  [N  hN  N                                                           WINDOWS _68C17BKL31411555734O      &O  4O  CO  dO                                                           WINDOWS _68C17BKL41417578085O      O  O  O  O                                                           WINDOWS _68C17BKL51411555734P      P  P  P  P                                                           WINDOWS _68C17BKL61417578085Q      ,Q  ;Q  HQ  iQ                                                           WINDOWS _68C17BKL71411555734Q      Q  R  R  4R                                                           WINDOWS _68C17BKL81417578085}R      R  R  R  R                                                           WINDOWS _68C17BKL91411555734XS      fS  tS  S  S                                                           WINDOWS _68C17BKLA1417578085S      S  T  T  9T                                                           WINDOWS _68C17BKLB1411555734T      T  T  T  U                                                           WINDOWS _68C17BKLC1417578085]U      lU  {U  U  U                                                           WINDOWS _68C17BKLD1411555734(V      6V  DV  SV  uV                                                           WINDOWS _68C17BKLE1417578085V      V  V  V  W                                                           WINDOWS _68C17BKLF1411555734W      W  W  W  W                                                           WINDOWS _68C17BKLG14175780851X      @X  OX  \X  ~X                                                           WINDOWS _68C17BKLH1411555734
Y      Y  )Y  8Y  ZY                                                           WINDOWS _68C17BKLI1417578085Y      Y  Y  Y  Y                                                           WINDOWS _68C17BKLJ1411555734Z      Z  Z  Z  Z                                                           WINDOWS _68C17BKLK1417578085[      &[  5[  B[  d[                                                           WINDOWS _68C0KH3W21411560407[       \  
\  \  (\                                                           WINDOWS _68C14Y84W1411560407q\      ~\  \  \  \                                                           WINDOWS _68C0LZ3TT1411560407\      \  ]  ]  )]      ~]  ^                                               WINDOWS _68C0LZ3TU1411560407p`      `  `  `  `      Ya  a                                               WINDOWS _68C0LZ3TV1411560407lb      b  b  b  b      =c  c                                               WINDOWS _68C0LZ3TW1411560407d      d  d  d  d      e  e                                               WINDOWS _68C0LZ3TX1417578690f      f  f  f  f      eg  m                                               WINDOWS _68C0LZ3TY1411560407t      t  u  u  'u      u  w                                               WINDOWS _68C0LZ3TZ1411560407w      x  x  !x  .x      x  z                                               WINDOWS _68C0LZ3U01411560407{      {  {  {  {      U|  #}                                               WINDOWS _68C0LZ3U11411560407b~      o~  |~  ~  ~      T                                                 WINDOWS _68C0LZ3U41411560407            À      B                                                 WINDOWS _68C0LZ3U51411560407                  8                                                 WINDOWS _68C0LZ3U61411560407y                  .                                                 WINDOWS _68C0LZ3U71411560407o      |            $  }                                               WINDOWS _68C0LZ3U81411560407e      r              s                                               WINDOWS _68C0LZ3U91411560407[      h  u            i                                               WINDOWS _68C0LZ3UA1411560407Q      ^  k  z          _                                               WINDOWS _68C0LZ3UB1411560407G      T  a  p  }        U                                               WINDOWS _68C0KH3W21411560407=      J  W  f  s        K                                               WINDOWS _68C0LZ3UE14115604073      @  M  \  i                                                           WINDOWS _68C0MJP481417577985В          
          C                                               WINDOWS _68C0KH3W31411560407M      Z  g  v                                                             WINDOWS _68C0KH3W21411560407           .  ;                                                           WINDOWS _68C0KH3W21411560407                                                                       WINDOWS _68C14Y85C1411560407(      5  B  P  ]                                                           WINDOWS _68C14Y85D1417576246          ϴ  ܴ                                                           WINDOWS _68C14Y85E1411560407N      [  h  v                                                             WINDOWS _68C14Y85F1411560407ʵ  ڵ    	    #                                                           WINDOWS _68C15WINV1411560407        ˶  ۶        i  ·                                               COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 221
Left = 337
Width = 712
Height = 397
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
create cursor szbeamte (f0 C(15), f1 c(10), f2 c(10), f3 c(10), f4 c(10), f5 c(10), f6 c(10), f7 c(10), f8 c(10), f9 c(10), f10 c(10), f11 c(10), f12 c(10))
ENDPROC
                                   |   %   H      h     b            U    h szbeamte  C  C
  C
  C
  C
  C
  C
  C
	  C

  C
  C
  C

  C
 U  SZBEAMTE F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 BeforeOpenTables,     1 A
1                              )                           1      1      form      form      FORM1      Height = 669
Width = 953
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Jahressonderzahlung Beamte"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Visible = .F.
Icon = prgicons\haupticon.ico
WindowType = 0
Name = "FORM1"
     (&PROCEDURE Destroy
SELECT szbeamte
USE

ENDPROC
PROCEDURE Init
myform1.visible = .f.

mysonderz_beamte = thisform

crlf = CHR(13) + CHR(10)

thisform.grdSzbeamte.column1.header1.caption = "Besoldungs-"+crlf+"gruppe"
thisform.grdSzbeamte.column2.header1.caption = "% vom"+crlf+"Gehalt"+crlf+"O H N E"+crlf+"Familien-"+crlf+"zuschlag"
thisform.grdSzbeamte.column3.header1.caption = "% vom"+crlf+"Familien-"+crlf+"zuschlag"
thisform.grdSzbeamte.column4.header1.caption = "Fest-"+crlf+"betrag"+crlf+"je"+crlf+"Kind"+crlf+"EURO"
thisform.grdSzbeamte.column5.header1.caption = "sonst."+crlf+"Fest-"+crlf+"betrag"+crlf+""+crlf+"EURO"
thisform.grdSzbeamte.column6.header1.caption = "" &&"Fest-"+crlf+"betrag"+crlf+""+crlf+""+crlf+"EURO"
thisform.grdSzbeamte.column7.header1.caption = "Fest-"+crlf+"betrag"+crlf+""+crlf+""+crlf+"EURO"
thisform.grdSzbeamte.column8.header1.caption = "Sonder-"+crlf+"betrag"+crlf+"je"+crlf+"Kind"+crlf+"EURO"
thisform.grdSzbeamte.column9.header1.caption = "" &&"% vom"+crlf+"Gehalt"+crlf+"O H N E"+crlf+"Familien-"+crlf+"zuschlag"
thisform.grdSzbeamte.column10.header1.caption = "% vom"+crlf+"Gehalt"+crlf+"O H N E"+crlf+"Familien-"+crlf+"zuschlag"
thisform.grdSzbeamte.column11.header1.caption = "% vom"+crlf+"Familien-"+crlf+"zuschlag"
thisform.grdSzbeamte.column12.header1.caption = "Fest-"+crlf+"betrag"+crlf+""+crlf+""+crlf+"EURO"
thisform.grdSzbeamte.column13.header1.caption = "Sonder-"+crlf+"betrag"+crlf+"je"+crlf+"Kind"+crlf+"EURO"

	Y = (thisform.Width - 100) / 11
	
	For j = 0 To 17
		thisform.Combo1.AddItem(Alltrim(zt2(1+j)))
	Next

	thisform.zeile0.Caption = "Vorgaben fr die Sonderzahlungen im Jahr " + welchesjahrc

*!*		With thisform.MSFlexGrid1
	*	.Top = thisform.SSCommand5.Height * 2.5
	*	.Left = 20 &&vorher 50
	*	.Width = thisform.Width - 30
	*	.Height = thisform.Height * 0.85
*!*			.Cols = 13
*!*			.Rows = 37
*!*			.FixedCols = 1
*!*			.FixedRows = 6
*		.BackColorFixed = hex2rgb("&HEFEFEF")
*!*			j = 0
*!*			For i = 0 To 36
*!*				.RowHeight(i) = 200 &&.Height / 37 * 10
*!*				j = j + .RowHeight(i)
*!*			Next
*!*			.ScrollBars = flexScrollBarNone

*		.Height = j + 10 &&nicht in der hhe verndern

*!*			For i = 1 To 12
*!*				.Col = i
*!*				For j = 0 To 5
*!*					.Row = j
*!*					.CellAlignment = 4
*!*				Next
*!*			Next

*!*			hsmulti = 15
*!*	 
*!*			.ColWidth(0) = .Width * 0.09 * hsmulti &&BesGr
*!*			.ColWidth(1) = .Width * 0.1 * hsmulti &&v.H.
*!*			.ColWidth(2) = .Width * 0.09 * hsmulti &&v.H.
*!*			.ColWidth(3) = .Width * 0.09 * hsmulti &&Betrag
*!*			.ColWidth(4) = .Width * 0.09 * hsmulti &&Betrag
*!*			.ColWidth(5) = .Width * 0.002 * 12 &&Trennlinie
*!*			.ColWidth(6) = .Width * 0.09 * hsmulti &&Betrag
*!*			.ColWidth(7) = .Width * 0.08 * hsmulti &&Kinderbetrag
*!*			.ColWidth(8) = .Width * 0.002 * 12 &&Trennlinie
*!*			.ColWidth(9) = .Width * 0.1 * hsmulti &&v.H.Grundgehalt
*!*			.ColWidth(10) = .Width * 0.09 * hsmulti &&v.H. FZ
*!*			.ColWidth(11) = .Width * 0.09 * hsmulti &&Betrag
*!*			.ColWidth(12) = .Width * 0.08 * hsmulti &&Kinder
*!*			.MergeRow(0) = True
*!*			&&.MergeCol(1) = True
*!*			&&.MergeCol(2) = True
*!*			&&.MergeCol(3) = True
*!*			.Col = 0
*!*			For i = 22 To 36
*!*				.Row = i
*!*				.CellAlignment = 7
*!*			Next

*!*			.Row = 0
*!*			.Text = "Besold."
*!*			.Row = 1
*!*			.Text = "gruppe"
*!*			.Row = 6
*!*			.Text = "A 2      (F2)"
*!*			.Row = 7
*!*			.Text = "A 3      (F3)"
*!*			.Row = 8
*!*			.Text = "A 4      (F4)"
*!*			.Row = 9
*!*			.Text = "A 5      (F5)"
*!*			.Row = 10
*!*			.Text = "A 6      (F6)"
*!*			.Row = 11
*!*			.Text = "A 7      (F7)"
*!*			.Row = 12
*!*			.Text = "A 8      (F8)"
*!*			.Row = 13
*!*			.Text = "A 9      (F9)"
*!*			.Row = 14
*!*			.Text = "A 10 (F10)"
*!*			.Row = 15
*!*			.Text = "A 11 (F11)"
*!*			.Row = 16
*!*			.Text = "A 12 (F12)"
*!*			.Row = 17
*!*			.Text = "A 13 (F13)"
*!*			.Row = 18
*!*			.Text = "A 14 (F14)"
*!*			.Row = 19
*!*			.Text = "A 15 (F15)"
*!*			.Row = 20
*!*			.Text = "A 16 (F16)"
*!*			.Row = 21
*!*			.Text = "B (F17-26)"
*!*			.Row = 22
*!*			.Text = "C 1"
*!*			.Row = 23
*!*			.Text = "C 2"
*!*			.Row = 24
*!*			.Text = "C 3"
*!*			.Row = 25
*!*			.Text = "C 4"
*!*			.Row = 26
*!*			.Text = "W 1"
*!*			.Row = 27
*!*			.Text = "W 2"
*!*			.Row = 28
*!*			.Text = "W 3"
*!*			.Row = 29
*!*			.Text = "W 4"
*!*			.Row = 30
*!*			.Text = "R 1"
*!*			.Row = 31
*!*			.Text = "R 2"
*!*			.Row = 32
*!*			.Text = "R 3-11"
*!*			.Row = 33
*!*			.Text = "Anw.einf."
*!*			.Row = 34
*!*			.Text = "Anw.mitt"
*!*			.Row = 35
*!*			.Text = "Anw.geh."
*!*			.Row = 36
*!*			.Text = "Anw.hh."

*!*			.Col = 1
*!*			.Row = 0
*!*			.Text = "Zahlung mit den lfd. Bezgen"
*!*			.Row = 1
*!*			.Text = "% vom"
*!*			.Row = 2
*!*			.Text = "Gehalt"
*!*			.Row = 3
*!*			.Text = "O H N E"
*!*			.Row = 4
*!*			.Text = "Familien-"
*!*			.Row = 5
*!*			.Text = "zuschlag"

*!*			.Col = 2
*!*			.Row = 0
*!*			.Text = "Zahlung mit den lfd. Bezgen"
*!*			.Row = 1
*!*			.Text = "% vom"
*!*			.Row = 2
*!*			.Text = "Familien-"
*!*			.Row = 3
*!*			.Text = "zuschlag"

*!*			.Col = 3
*!*			.Row = 0
*!*			.Text = "Zahlung mit den lfd. Bezgen"
*!*			.Row = 1
*!*			.Text = "Fest-"
*!*			.Row = 2
*!*			.Text = "betrag"
*!*			.Row = 3
*!*			.Text = "je"
*!*			.Row = 4
*!*			.Text = "Kind"
*!*			.Row = 5
*!*			.Text = "EURO"

*!*			.Col = 4
*!*			.Row = 0
*!*			.Text = "Zahlung mit den lfd. Bezgen"
*!*			.Row = 1
*!*			.Text = "Sonst."
*!*			.Row = 2
*!*			.Text = "Fest-"
*!*			.Row = 3
*!*			.Text = "betrag"
*!*			.Row = 5
*!*			.Text = "EURO"

*!*			.Col = 6
*!*			.Row = 0
*!*			.Text = "im Juli"
*!*			.Row = 1
*!*			.Text = "Fest-"
*!*			.Row = 2
*!*			.Text = "Betrag"
*!*			.Row = 5
*!*			.Text = "EURO"

*!*			.Col = 7
*!*			.Row = 0
*!*			.Text = "im Juli"
*!*			.Row = 1
*!*			.Text = "Sonder-"
*!*			.Row = 2
*!*			.Text = "betrag"
*!*			.Row = 3
*!*			.Text = "je Kind"
*!*			.Row = 5
*!*			.Text = "EURO"


*!*			.Col = 9
*!*			.Row = 0
*!*			.Text = "im Dezember"
*!*			.Row = 1
*!*			.Text = "% vom"
*!*			.Row = 2
*!*			.Text = "Gehalt"
*!*			.Row = 3
*!*			.Text = "O H N E"
*!*			.Row = 4
*!*			.Text = "Familien-"
*!*			.Row = 5
*!*			.Text = "zuschlag"

*!*			.Col = 10
*!*			.Row = 0
*!*			.Text = "im Dezember"
*!*			.Row = 1
*!*			.Text = "% vom"
*!*			.Row = 2
*!*			.Text = "Familien-"
*!*			.Row = 3
*!*			.Text = "zuschlag"


*!*			.Col = 11
*!*			.Row = 0
*!*			.Text = "im Dezember"
*!*			.Row = 1
*!*			.Text = "Fest-"
*!*			.Row = 2
*!*			.Text = "Betrag"
*!*			.Row = 5
*!*			.Text = "EURO"

*!*			.Col = 12
*!*			.Row = 0
*!*			.Text = "im Dezember"
*!*			.Row = 1
*!*			.Text = "Sonder-"
*!*			.Row = 2
*!*			.Text = "betrag"
*!*			.Row = 3
*!*			.Text = "je Kind"
*!*			.Row = 5
*!*			.Text = "EURO"
*!*			.Row = 0
		
*!*			For i = 1 To 12
*!*				.Col = i
*!*				.CellFontBold = True
*!*			Next

*!*			.MergeCells = 1
*!*			For i = 1 To 5
*!*				.Col = i
*!*				For j = 6 To 36 Step 2
*!*					.Row = j
*!*					.CellBackColor = hex2rgb("&HC0FFFF") &&hellblau
*!*				Next
*!*			Next

*!*			For i = 6 To 7
*!*				.Col = i
*!*				For j = 6 To 36 Step 2
*!*					.Row = j
*!*					.CellBackColor = hex2rgb("&HFFFFC0") &&hellgelb
*!*				Next
*!*			NEXT
*!*			
*!*			For i = 9 To 12
*!*				.Col = i
*!*				For j = 6 To 36 Step 2
*!*					.Row = j
*!*					.CellBackColor = hex2rgb("&HC0FFC0") &&hellgrn
*!*				Next
*!*			Next

	*	.Visible = True
	*	.enabled = True
*		thisform.msflexgrid1.setfocus
*!*		ENDWITH

*!*		With myTablett
*!*			j = thisform.MSFlexGrid1.Top + thisform.MSFlexGrid1.Height && + 50
*!*			m = thisform.Width / 11
*!*			For i = 0 To 9
*!*				DO case
*!*					CASE i >= 0 .and. i <= 3
*!*						hspluswert = 10
*!*					CASE i >= 4 .and. i <= 8
*!*						hspluswert = 0
*!*					CASE i > 8
*!*						hspluswert = -10
*!*				endcase								
*!*				xxx=ALLTRIM(STR(i + 1,3,0))
*!*				thisform.Kasten&xxx..Visible = True
*!*				thisform.Kasten&xxx..Top = j
*!*				thisform.Kasten&xxx..Left = (m * (i + 1) + m / 3) + hspluswert
*!*				thisform.Kasten&xxx..Width = 40
*!*				thisform.Kasten&xxx..Height = 25
*!*				*.Kasten(i + 1).BevelOuter = ssRaisedBevel
*!*				*.Kasten(i + 1).BevelWidth = 2
*!*				thisform.Kasten&xxx..Alignment = 2 &&vorher 7
*!*				thisform.Kasten&xxx..FontSize = 8
*!*				thisform.Kasten&xxx..backcolor = RGB(240,240,240)
*!*				thisform.Kasten&xxx..borderstyle = 1
*!*				&&.Kasten(i + 1).Caption = "Ja"
*!*				thisform.Kasten&xxx..Visible = True
*!*			Next
*!*		Endwith

	thisform.Combo1.ListIndex = zi(1+2) +1
	thisform.visible = .t.
*	thisform.MSFlexGrid1.setfocus
*	thisform.lockscreen = .t.
*	DO sonderzahlunganzeigen
thisform.lockscreen = .f.
thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdSzbeamte.column1.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column2.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column3.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column4.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column5.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column6.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column7.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column8.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column9.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column10.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column11.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column12.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
thisform.grdSzbeamte.column13.text1.FontSize = thisform.grdSzbeamte.column1.FontSize
ENDPROC
     	    	  	                        w   %         y	  2   	            U    F   Q U  SZBEAMTE T   -
 T   T C
 C
 2 T      Besoldungs-  gruppe\ T  	    % vom  Gehalt  O H N E 	 Familien-  zuschlag? T  
    % vom 	 Familien-  zuschlagN T      Fest-  betrag  je  Kind  EURON T      sonst.  Fest-  betrag     EURO T  
     H T      Fest-  betrag        EUROP T      Sonder-  betrag  je  Kind  EURO T       \ T      % vom  Gehalt  O H N E 	 Familien-  zuschlag? T      % vom 	 Familien-  zuschlagH T      Fest-  betrag        EUROP T      Sonder-  betrag  je  Kind  EURO T   d   ( CCC      @ T   ) Vorgaben fr die Sonderzahlungen im Jahr   T   C  T  a T  -
    !  T "  " #  T    # 
  $  T % a U&  MYFORM1 VISIBLE MYSONDERZ_BEAMTE THISFORM CRLF GRDSZBEAMTE COLUMN1 HEADER1 CAPTION COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 Y WIDTH J COMBO1 ADDITEM ZT2 ZEILE0 WELCHESJAHRC	 LISTINDEX ZI
 LOCKSCREEN SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H RESIZE
 AUTOCENTER C    " T           " T           " T           " T   	        " T   
        " T           " T           " T   
        " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDSZBEAMTE COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 Destroy,      InitH      Resizeb    1 q A 3   R"rA    rq  2 !!!!!!!!!!!!!1                       )         D   #     #   #  (  a   )   	                        grid      grid      grdSzbeamte      FORM1     ColumnCount = 13
DeleteMark = .F.
HeaderHeight = 78
Height = 536
Left = 6
Panel = 1
ReadOnly = .T.
RecordSource = "szbeamte"
RecordSourceType = 1
RowHeight = 15
Top = 97
Width = 941
Name = "grdSzbeamte"
Column1.ControlSource = "szbeamte.f0"
Column1.Width = 151
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.Alignment = 1
Column2.ControlSource = "szbeamte.f1"
Column2.Width = 82
Column2.ReadOnly = .F.
Column2.Visible = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "szbeamte.f2"
Column3.Width = 80
Column3.ReadOnly = .F.
Column3.Visible = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "szbeamte.f3"
Column4.Width = 70
Column4.ReadOnly = .F.
Column4.Visible = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "szbeamte.f4"
Column5.Width = 67
Column5.ReadOnly = .F.
Column5.Visible = .T.
Column5.Name = "Column5"
Column6.Alignment = 1
Column6.ControlSource = "szbeamte.f5"
Column6.Width = 1
Column6.ReadOnly = .T.
Column6.Visible = .T.
Column6.Name = "Column6"
Column7.Alignment = 1
Column7.ControlSource = "szbeamte.f6"
Column7.Width = 75
Column7.ReadOnly = .F.
Column7.Visible = .T.
Column7.Name = "Column7"
Column8.Alignment = 1
Column8.ControlSource = "szbeamte.f7"
Column8.Width = 72
Column8.ReadOnly = .F.
Column8.Visible = .T.
Column8.Name = "Column8"
Column9.Alignment = 1
Column9.ControlSource = "szbeamte.f8"
Column9.Width = 1
Column9.ReadOnly = .T.
Column9.Visible = .T.
Column9.Name = "Column9"
Column10.Alignment = 1
Column10.ControlSource = "szbeamte.f9"
Column10.Width = 75
Column10.ReadOnly = .F.
Column10.Visible = .T.
Column10.Name = "Column10"
Column11.Alignment = 1
Column11.ControlSource = "szbeamte.f10"
Column11.Width = 75
Column11.ReadOnly = .F.
Column11.Visible = .T.
Column11.Name = "Column11"
Column12.Alignment = 1
Column12.ControlSource = "szbeamte.f11"
Column12.Width = 75
Column12.ReadOnly = .F.
Column12.Visible = .T.
Column12.Name = "Column12"
Column13.Alignment = 1
Column13.ControlSource = "szbeamte.f12"
Column13.Width = 73
Column13.ReadOnly = .F.
Column13.Visible = .T.
Column13.Name = "Column13"
     PROCEDURE Init
thisform.grdszbeamte.Column1.DynamicBackColor = "get_color_szbeamte(1)"
thisform.grdszbeamte.Column2.DynamicBackColor = "get_color_szbeamte(2)"
thisform.grdszbeamte.Column3.DynamicBackColor = "get_color_szbeamte(3)"
Thisform.grdszbeamte.Column4.DynamicBackColor = "get_color_szbeamte(4)"
Thisform.grdszbeamte.Column5.DynamicBackColor = "get_color_szbeamte(5)"
Thisform.grdszbeamte.Column6.DynamicBackColor = "get_color_szbeamte(6)"
Thisform.grdszbeamte.Column7.DynamicBackColor = "get_color_szbeamte(7)"
Thisform.grdszbeamte.Column8.DynamicBackColor = "get_color_szbeamte(8)"
Thisform.grdszbeamte.Column9.DynamicBackColor = "get_color_szbeamte(9)"
Thisform.grdszbeamte.Column10.DynamicBackColor = "get_color_szbeamte(10)"
Thisform.grdszbeamte.Column11.DynamicBackColor = "get_color_szbeamte(11)"
Thisform.grdszbeamte.Column12.DynamicBackColor = "get_color_szbeamte(12)"
Thisform.grdszbeamte.Column13.DynamicBackColor = "get_color_szbeamte(13)"
thisform.grdszbeamte.refresh
ENDPROC
                                      %         L     ,            U  C+ T      get_color_szbeamte(1)+ T      get_color_szbeamte(2)+ T      get_color_szbeamte(3)+ T      get_color_szbeamte(4)+ T      get_color_szbeamte(5)+ T      get_color_szbeamte(6)+ T   	   get_color_szbeamte(7)+ T   
   get_color_szbeamte(8)+ T      get_color_szbeamte(9), T      get_color_szbeamte(10), T   
   get_color_szbeamte(11), T      get_color_szbeamte(12), T      get_color_szbeamte(13)
      U  THISFORM GRDSZBEAMTE COLUMN1 DYNAMICBACKCOLOR COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 COLUMN11 COLUMN12 COLUMN13 REFRESH Init,     1  1                             )                           header      header      Header1      FORM1.grdSzbeamte.Column1      1Alignment = 6
Caption = "F0"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column1      wAlignment = 0
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column2      AAlignment = 6
Caption = "F1"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column2      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column3      AAlignment = 6
Caption = "F2"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column3      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column4      AAlignment = 6
Caption = "F3"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column4      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column5      AAlignment = 6
Caption = "F4"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column5      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column6      AAlignment = 6
Caption = "F5"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column6      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column7      AAlignment = 6
Caption = "F6"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column7      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column8      AAlignment = 6
Caption = "F7"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column8      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column9      AAlignment = 6
Caption = "F8"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column9      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column10      AAlignment = 6
Caption = "F9"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column10      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column11      BAlignment = 6
Caption = "F10"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column11      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column12      BAlignment = 6
Caption = "F11"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column12      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzbeamte.Column13      BAlignment = 6
Caption = "F12"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzbeamte.Column13      Alignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .F.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      shape      shape      Shape2      FORM1      ATop = 75
Left = 169
Height = 22
Width = 304
Name = "Shape2"
      shape      shape      Shape1      FORM1      @Top = 633
Left = 8
Height = 30
Width = 940
Name = "Shape1"
      combobox      combobox      Combo1      FORM1      MHeight = 22
Left = 9
Top = 4
Visible = .T.
Width = 270
Name = "Combo1"
     /PROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
thisform.sz_anzeigen.click
*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE GotFocus
counter = 1
ENDPROC
                                      %          !  	               U  
 
     U  THIS CLICK
 
     U  THIS CLICK 
      U  THISFORM SZ_ANZEIGEN CLICK 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangeJ      Clickh      GotFocus     1  2  3  3  1                       (         P                          $      )                           
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 44
Left = 840
Height = 22
Width = 82
Caption = "Vorschrift"
Enabled = .F.
Style = 0
Visible = .F.
SpecialEffect = 0
Name = "sscommand1"
      @PROCEDURE Click
*SET STEP ON 
DO sscommand1_click

ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND1_CLICK Click,     1 r 2                       5       )                            
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 4
Left = 287
Height = 22
Width = 172
Caption = "Vorgabewerte"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      aPROCEDURE Click

Do sonderzahlunganlegen &&Do attached
thisform.sz_anzeigen.click

ENDPROC
                                      @   %   {                          U      
     U  SONDERZAHLUNGANLEGEN THISFORM SZ_ANZEIGEN CLICK Click,     1 r  2                       V       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 28
Left = 876
Height = 22
Width = 82
Caption = "Drucken"
Enabled = .F.
Style = 0
Visible = .F.
SpecialEffect = 0
Name = "sscommand3"
      1PROCEDURE Click
DO sscommand3_click

ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND3_CLICK Click,     1 q 2                       &       )                            
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 4
Left = 461
Height = 22
Width = 172
Caption = "nderungen speichern"
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
     PROCEDURE Click

*DO sscommand4_click
SELECT szbeamte
GO top
*!*	.Col = 1
For i = 6 To 36
	goto i - 5
	sonderzah.sz1lfd(i - 4) = VAL(szbeamte.f1)
Next
*!*		.Col = 2
For i = 6 To 36
	goto i - 5
	sonderzah.sz2fz(i - 4) = VAL(szbeamte.f2)
Next
*!*		.Col = 3
For i = 6 To 36
	goto i - 5
	sonderzah.sz3ki(i - 4) = VAL(szbeamte.f3)
Next
*!*		.Col = 4
For i = 6 To 36
	goto i - 5
	sonderzah.sz4fb(i - 4) = VAL(szbeamte.f4)
Next
*!*		.Col = 6
For i = 6 To 36
	goto i - 5
	sonderzah.sz6jl(i - 4) = VAL(szbeamte.f6)
Next
*!*		.Col = 7
For i = 6 To 36
	goto i - 5
	sonderzah.sz7jlki(i - 4) = VAL(szbeamte.f7)
Next
*!*		.Col = 9
For i = 6 To 36
	goto i - 5
	sonderzah.sz9dezvh(i - 4) = VAL(szbeamte.f9)
Next
*!*		.Col = 10
For i = 6 To 36
	goto i - 5
	sonderzah.sz12dezfzvh(i - 4) = VAL(szbeamte.f10)
Next
*!*		.Col = 11
For i = 6 To 36
	goto i - 5
	sonderzah.sz10dezfb(i - 4) = VAL(szbeamte.f11)
Next
*!*		.Col = 12

For i = 6 To 36
	goto i - 5
	sonderzah.sz11dezki(i - 4) = VAL(szbeamte.f12)
NEXT

For i = 1 To 10
	xxx=ALLTRIM(STR(i,2,0))
	If thisform.Kasten&xxx..Caption = "Nein"
		sonderzah.sztz(i) = 0
	Else
		sonderzah.sztz(i) = 1
	Endif
Next
For i = 0 To 1
	xxx=ALLTRIM(STR(i,2,0))
	If thisform.Check&xxx..Value = True
		sonderzah.szmass(i + 1) = 1
	Else
		sonderzah.szmass(i + 1) = 0
	Endif
Next

If zi(1+2) = 3
	myput(123, (welchesjahr - Jahr1) * 20 + 18,"sonderzah")&&hs2011
Else
	myput(123, (welchesjahr - Jahr1) * 20 + thisform.Combo1.ListIndex ,"sonderzah")&&hs2011 vorher combo.. + 1
Endif

SELECT szbeamte
GO top

hinweis("nderungen gespeichert!")

thisform.refresh
ENDPROC
                                      %           E               U   F   #)  ($O 
 #  T   C   g   ($ 
 #  T   C   g   ($ 
 #  T   C   g   ($$
 #  T 	  C  
 g   ($k
 #  T   C   g   ($
 #  T 
  C   g   ($
 #  T   C   g   ($@
 #  T   C   g   ($
 #  T   C   g   ($
 #  T   C   g   (
h T CC  Z0 If thisform.Kasten&xxx..Caption = "Nein"F T     d T        ( T CC  Z+ If thisform.Check&xxx..Value = True T     T       %C G) C{  	 sonderzah  ~/ C{      	 sonderzah   F   #)$ C nderungen gespeichert!! 
  "  U#  SZBEAMTE I	 SONDERZAH SZ1LFD F1 SZ2FZ F2 SZ3KI F3 SZ4FB F4 SZ6JL F6 SZ7JLKI F7 SZ9DEZVH F9 SZ12DEZFZVH F10	 SZ10DEZFB F11	 SZ11DEZKI F12 XXX SZTZ SZMASS ZI MYPUT WELCHESJAHR JAHR1 THISFORM COMBO1	 LISTINDEX HINWEIS REFRESH Click,     1 s Q r A r A r A r A r A r A r A r A r A s A rqa aA A qq A A R A r Q B 1                       v      )                           
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 4
Left = 636
Height = 22
Width = 172
Cancel = .T.
Caption = "Schlieen"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand5"
     5PROCEDURE Click
thisform.release
myform1.visible = .t.
*DO sscommand5_click
*!*	IF .not. INLIST(register,84,63,65,199,300) &&register <> 84 .and. register <> 63 .and. register <> 65 .and. register <> 300
*!*		thisform.hide
*!*		myform1.visible = .t.
*!*		myform1.windowstate = 0
*!*	ENDIF

ENDPROC
                                         %   p                          U   
     T  a U  THISFORM RELEASE MYFORM1 VISIBLE Click,     1   8                       *      )                            checkbox      checkbox      Check1      FORM1      Top = 49
Left = 572
Height = 16
Width = 234
Alignment = 0
Caption = "mageblich sind alle Monatsbezge"
Visible = .T.
Name = "Check1"
     CPROCEDURE ProgrammaticChange
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
*DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
DO check_click500 WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
     l    S  S                           %                             U    U    U  5 2   CCC  \g8CC      6 U  CHECK_CLICK500 THIS NAME VALUE FALSE TRUE ProgrammaticChange,      GotFocus3      Click:     1 3 3 !1                       r                        8      )   S                        checkbox      checkbox      Check0      FORM1      Top = 33
Left = 572
Height = 16
Width = 234
Alignment = 0
Caption = "mageblich sind die Dezemberbezge"
Visible = .T.
Name = "Check0"
      PROCEDURE GotFocus
*DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
DO check_click500 WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
     7                                 %                             U    U  5 2   CCC  \g8CC      6 U  CHECK_CLICK500 THIS NAME VALUE FALSE TRUE GotFocus,      Click3     1 3 !1                       I         e          )                           label      label      zeile0      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "Vorgaben fr die Sonderzahlungen im Jahr "
Height = 25
Left = 10
Top = 37
Visible = .T.
Width = 406
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      kasten1      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 192
Top = 639
Visible = .T.
Width = 36
Name = "kasten1"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten2      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 271
Top = 639
Visible = .T.
Width = 36
Name = "kasten2"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten3      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 350
Top = 639
Visible = .T.
Width = 36
Name = "kasten3"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten4      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 419
Top = 639
Visible = .T.
Width = 36
Name = "kasten4"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten5      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 495
Top = 639
Visible = .T.
Width = 36
Name = "kasten5"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten6      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 570
Top = 639
Visible = .T.
Width = 36
Name = "kasten6"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten7      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 648
Top = 639
Visible = .T.
Width = 36
Name = "kasten7"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten8      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 723
Top = 639
Visible = .T.
Width = 36
Name = "kasten8"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      kasten9      FORM1      wBorderStyle = 1
Caption = "kasten0"
Height = 17
Left = 804
Top = 639
Visible = .T.
Width = 36
Name = "kasten9"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            label      label      Label11      FORM1      _Caption = "Teilzeit-Krzung"
Height = 16
Left = 11
Top = 639
Width = 92
Name = "Label11"
      
commandbutton      
commandbutton      sz_anzeigen      FORM1      {Top = 4
Left = 819
Height = 22
Width = 82
Caption = "SZ_anzeigen"
Enabled = .F.
Visible = .F.
Name = "sz_anzeigen"
     PROCEDURE Click
myget(123, (welchesjahr - Jahr1) * 20 + thisform.Combo1.ListIndex,"sonderzah")&&hs2011
*!*	thisform.MSFlexGrid1.visible = .f.
*!*	thisform.MSFlexGrid1.redraw = .f.

SELECT szbeamte
SET safety off
zap
SET safety off
FOR hsa = 1 TO 31
	APPEND BLANK
	FLUSH
NEXT

FOR hsa = 1 TO 31
	GOTO hsa
	DO case
		CASE hsa = 1
			replace szbeamte.f0 WITH "A 2      (F2)"
		CASE hsa = 2
			replace szbeamte.f0 WITH "A 3      (F3)"
		CASE hsa = 3 
			replace szbeamte.f0 WITH "A 4      (F4)"
		CASE hsa = 4
			replace szbeamte.f0 WITH "A 5      (F5)"
		CASE hsa = 5
			replace szbeamte.f0 WITH "A 6      (F6)"
		CASE hsa = 6
			replace szbeamte.f0 WITH "A 7      (F7)"
		CASE hsa = 7
			replace szbeamte.f0 WITH "A 8      (F8)"
		CASE hsa = 8
			replace szbeamte.f0 WITH "A 9      (F9)"
		CASE hsa = 9
			replace szbeamte.f0 WITH "A 10 (F10)"
		CASE hsa = 10
			replace szbeamte.f0 WITH "A 11 (F11)"
		CASE hsa = 11
			replace szbeamte.f0 WITH "A 12 (F12)"
		CASE hsa = 12
			replace szbeamte.f0 WITH "A 13 (F13)"
		CASE hsa = 13
			replace szbeamte.f0 WITH "A 14 (F14)"
		CASE hsa = 14
			replace szbeamte.f0 WITH "A 15 (F15)"
		CASE hsa = 15
			replace szbeamte.f0 WITH "A 16 (F16)"
		CASE hsa = 16
			replace szbeamte.f0 WITH "B (F17-26)"
		CASE hsa = 17
			replace szbeamte.f0 WITH "C 1"
		CASE hsa = 18
			replace szbeamte.f0 WITH "C 2"
		CASE hsa = 19
			replace szbeamte.f0 WITH "C 3"
		CASE hsa = 20
			replace szbeamte.f0 WITH "C 4"
		CASE hsa = 21
			replace szbeamte.f0 WITH "W 1"
		CASE hsa = 22
			replace szbeamte.f0 WITH "W 2"
		CASE hsa = 23
			replace szbeamte.f0 WITH "W 3"
		CASE hsa = 24
			replace szbeamte.f0 WITH "W 4"
		CASE hsa = 25
			replace szbeamte.f0 WITH "R 1"
		CASE hsa = 26
			replace szbeamte.f0 WITH "R 2"
		CASE hsa = 27
			replace szbeamte.f0 WITH "R 3-11"
		CASE hsa = 28
			replace szbeamte.f0 WITH "Anw.einf."
		CASE hsa = 29
			replace szbeamte.f0 WITH "Anw.mitt"
		CASE hsa = 30
			replace szbeamte.f0 WITH "Anw.geh."
		CASE hsa = 31
			replace szbeamte.f0 WITH "Anw.hh."
	endcase
	FLUSH
NEXT

*!*	With thisform.MSFlexGrid1
*!*		.Col = 1
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
*!*			.Text = ROUND(sonderzah.sz1lfd(i - 4),2)
		replace szbeamte.f1 WITH STR(ROUND(sonderzah.sz1lfd(i - 4),2),10,2)
		flush
	Next
*!*		.Col = 2
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f2 WITH STR(ROUND(sonderzah.sz2fz(i - 4),2),10,2)
	Next
*!*		.Col = 3
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f3 WITH STR(ROUND(sonderzah.sz3ki(i - 4),2),10,2)
	Next
*!*		.Col = 4
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f4 WITH STR(ROUND(sonderzah.sz4fb(i - 4),2),10,2)
	NEXT
*!*		.Col = 6
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f6 WITH STR(ROUND(sonderzah.sz6jl(i - 4),2),10,2)
	Next
*!*		.Col = 7
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f7 WITH STR(ROUND(sonderzah.sz7jlki(i - 4),2),10,2)
	NEXT
*!*		.Col = 9
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f9 WITH STR(ROUND(sonderzah.sz9dezvh(i - 4),2),10,2)
	Next
*!*		.Col = 10
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f10 WITH STR(ROUND(sonderzah.sz12dezfzvh(i - 4),2),10,2)
	Next
*!*		.Col = 11
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f11 WITH STR(ROUND(sonderzah.sz10dezfb(i - 4),2),10,2)
	Next
*!*		.Col = 12
	For i = 6 To 36
		GOTO i - 5
*!*			.Row = i
		replace szbeamte.f12 WITH STR(ROUND(sonderzah.sz11dezki(i - 4),2),10,2)
	Next
	For i = 1 To 10
		xxx=ALLTRIM(STR(i,2,0))
		If sonderzah.sztz(i) = 0
			thisform.Kasten&xxx..Caption = "Nein"
		Else
			thisform.Kasten&xxx..Caption = "Ja"
		Endif
	Next
	For i = 0 To 1
		xxx=ALLTRIM(STR(i,2,0))
		If sonderzah.szmass(i + 1) = 1
			thisform.Check&xxx..Value = True
		Else
			thisform.Check&xxx..Value = False
		Endif
	Next
*	.Visible = True
*!*	ENDWITH


*!*	SELECT szbeamte 
*!*	FOR hsa = 1 TO 31
*!*		GOTO hsa
*!*		thisform.msflexgrid1.row = hsa + 5
*!*		FOR hsb = 0 TO 12
*!*			thisform.msflexgrid1.col = hsb
*!*			feld1 = "f"+ALLTRIM(STR(hsb,2,0))
*!*			replace szbeamte.&feld1 WITH thisform.msflexgrid1.text
*!*			flush
*!*		NEXT
*!*		flush
*!*	NEXT
SELECT szbeamte
GO top
*!*	thisform.MSFlexGrid1.redraw = .f.
*!*	thisform.MSFlexGrid1.visible = .f.
thisform.grdszbeamte.Visible = .t.
thisform.refresh
	

ENDPROC
     
                              ~   %   w                       U  7
/ C{     	 sonderzah   F  G. S G.  (f   [   (	 # 
 H     >  
 A 2      (F2)    >  
 A 3      (F3)  ! >  
 A 4      (F4)  O >  
 A 5      (F5)  } >  
 A 6      (F6)   >  
 A 7      (F7)   >  
 A 8      (F8)   >  
 A 9      (F9)  	2 >  
 A 10 (F10)  
] >  
 A 11 (F11)   >  
 A 12 (F12)   >  
 A 13 (F13)  
 >  
 A 14 (F14)  	 >  
 A 15 (F15)  4 >  
 A 16 (F16)  _ >  
 B (F17-26)   >   C 1   >   C 2   >   C 3   >   C 4   >   W 1  7 >   W 2  [ >   W 3   >   W 4   >   R 1   >   R 2   >   R 3-11   >  	 Anw.einf.  A >   Anw.mitt  j >   Anw.geh.   >   Anw.hh.  [  	 ($
 #	 ( > 
 CCC	   T
Z [  	 ($?
 #	 ( > 
 CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 ($/
 #	 ( >  CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 ($o
 #	 ( >  CCC	   T
Z  	 ($
 #	 ( >  CCC	   T
Z  	 (
f	 T CC	  Z %C 	     3	) thisform.Kasten&xxx..Caption = "Nein"
 b	' thisform.Kasten&xxx..Caption = "Ja"
   	  (	
 T CC	  Z %C	  ! 	$ thisform.Check&xxx..Value = True
 
% thisform.Check&xxx..Value = False
   F  #) T " # a
  $  U%  MYGET WELCHESJAHR JAHR1 THISFORM COMBO1	 LISTINDEX SZBEAMTE HSA F0 I F1	 SONDERZAH SZ1LFD F2 SZ2FZ F3 SZ3KI F4 SZ4FB F6 SZ6JL F7 SZ7JLKI F9 SZ9DEZVH F10 SZ12DEZFZVH F11	 SZ10DEZFB F12	 SZ11DEZKI XXX SZTZ SZMASS GRDSZBEAMTE VISIBLE REFRESH Click,     1 t a A a qQ A A r  1111111111aA A A t A A r A r A r A r A r A r A r A r A r A qq qA A qqA QA A  q Q  3                             )                           label      label      Label10      FORM1      {Alignment = 2
Caption = "Zahlung mit den lfd. Bezgen"
Height = 16
Left = 172
Top = 78
Width = 296
Name = "Label10"
      shape      shape      Shape3      FORM1      ATop = 75
Left = 474
Height = 22
Width = 150
Name = "Shape3"
      label      label      Label12      FORM1      fAlignment = 2
Caption = "im Juli"
Height = 16
Left = 477
Top = 78
Width = 142
Name = "Label12"
      shape      shape      Shape4      FORM1      ATop = 75
Left = 625
Height = 22
Width = 322
Name = "Shape4"
      label      label      Label13      FORM1      jAlignment = 2
Caption = "im Dezember"
Height = 16
Left = 628
Top = 78
Width = 314
Name = "Label13"
      shape      shape      Shape5      FORM1      ?Top = 75
Left = 7
Height = 22
Width = 161
Name = "Shape5"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 653
Left = 937
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      kasten10      FORM1      yBorderStyle = 1
Caption = "kasten10"
Height = 17
Left = 879
Top = 639
Visible = .T.
Width = 36
Name = "kasten10"
      QPROCEDURE Click
DO kasten_klick500 WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   i       ~      x             U      CCC  \g8 U  KASTEN_KLICK500 THIS NAME Click,     1 1                       F       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
09   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68C0VWU6L1411544747      /  F      ]                                                       WINDOWS _68C0VWU6M1512395043                      E	                                               WINDOWS _68C0YOAU21411693274        *  8  E                                                           WINDOWS _68C0VYJHK1411549254                                                                     WINDOWS _68C0YOAU31411668299                                                                       WINDOWS _68C0YOAU41411668533D      Q  ^  m  z        M                                               WINDOWS _68C0YOAU514116685332      ?  L  [  h        ;                                               WINDOWS _68C0YOAU61411668533       -  :  I  V        )                                               WINDOWS _68C0YOAU71411668533        (  7  D                                                       WINDOWS _68C0YOAU81411668533      	    %  2                                                       WINDOWS _68C0YOAU91411668533                                                                    WINDOWS _68C0YOAUA1411668533                                                                   WINDOWS _68C0YOAUB1411668533                  y                                                 WINDOWS _68C0YOAUC1411668533                       g!  !                                               WINDOWS _68C0YOAUD1411668533"      "  "  "  "      W#  #                                               WINDOWS _68C0YOAUE1411668533$      $  $  $  $      G%  %                                               WINDOWS _68C0YOAUF1411668533&      &  &  &  &      G'  '                                               WINDOWS _68C0VWU6L1411547993(      (  (  (  (                                                           WINDOWS _68C0VWU6L1411547993%)      2)  ?)  N)  [)                                                           WINDOWS _68C0VWU6L1411547993)      )  )  )  *                                                           WINDOWS _68C0VWU6L1411671084e*      r*  *  *  *                                                           WINDOWS _68C0VWU6L1411671084+      +  *+  9+  F+                                                           WINDOWS _68C0YOAUG1411671084+      +  +  +  +                                                           WINDOWS _68C0VWU6L1411547993f,      r,  ~,  ,  ,                                                           WINDOWS _68C0VWU6L1411711064,      ,  ,  -  -                                                           WINDOWS _68C0YOAUI1411693274Y-      e-  q-  ~-  -                                                           WINDOWS _68C0VWU6M1411547993-      -  -  -  .                                                           WINDOWS _68C0VWU6L1411547993L.      X.  d.  q.  ~.                                                           WINDOWS _68C0VWU6L1411544747.      .  .  .  .                                                           WINDOWS _68C0VWU6L1411549254^/      s/  /  /  /      0  @0                                               WINDOWS _68C0YUVMC1411549254
1      "1  71  G1  T1      1  1                                               WINDOWS _68C0VWU6L14698619702      2  2  2  2      3  5                                               WINDOWS _68C0VWU6M1411711064O8      d8  y8  8  8      89  :                                               WINDOWS _68C0YOAU21411711064<      <  <  <  <      =  ?                                               WINDOWS _68C0VYJHK1411711064A      (A  =A  MA  ZA      A  wC                                               WINDOWS _68C0YUVMD1411711064uE      E  E  E  E      fF  F                                               WINDOWS _68C0VWU6L1411547993G      G  G  	H  H                                                           WINDOWS _68C0YOAU31411693274]H      iH  uH  H  H                                                           WINDOWS _68C0Z7JVV1411733587H      H  H  I  I                                                           WINDOWS _68C0Z7JVX1419018252I      I  I  I  I      iJ  K                                               WINDOWS _68C0VWU6L1411670359M      M  M  M  M                                                           WINDOWS _68C0VWU6L1411544747=N      JN  WN  fN  sN                                                           WINDOWS _68E0QNZ1C1479110728N      N  O  O  %O      O  :X                                               WINDOWS _68E1E428F1430477838^      ^  ^  ^  	_      _  a                                               WINDOWS _68E1E428G1430477848c      d  d  )d  6d      d  f                                               WINDOWS _68E1E428H1430477856i      (i  =i  Ni  [i      j  k                                               WINDOWS _68E1E428I1411693274:n      Fn  Rn  `n  mn                                                           WINDOWS _68E1E428J1500793851n      n  n  n  n                                                           WINDOWS _68C0VWU6M1411711064o      o  o  o  o                                                           WINDOWS _68C0VWU6L1411711064+p      7p  Cp  Pp  ]p                                                           WINDOWS _68C0VWU6M1411711064p      p  p  p  p                                                           WINDOWS _68F003LDJ1411711064q      *q  6q  Dq  Qq                                                           WINDOWS _68F003LDK1411711064q      q  q  q  q                                                           WINDOWS _68F0NO5F81411733587r      "r  /r  >r  Kr                                                           WINDOWS _68F0NO5F91430477878s      (s  =s  Ms  Zs      t  |y                                               COMMENT RESERVED                                ~                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 481
Width = 643
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Updaten"
FontSize = 9
Icon = prgicons\haupticon.ico
WindowType = 1
Name = "FORM1"
     PROCEDURE Init
thisform.zeile1.Caption = "Updatebersicht der Version " + ALLTRIM(STR(jahr4,4,0))
thisform.edit1.Value = "Upzudaten ist, wenn Ihre Version lter als das letze Update ist."+CHR(13)+CHR(10)
thisform.edit1.Value = thisform.edit1.Value + "Mit <WAS IST NEU> knnen Sie nachschauen was sich gendert hat."+CHR(13)+CHR(10)
thisform.edit1.Value = thisform.edit1.Value + "Das aktuelle Update erhalten Sie mit einem Klick auf den jeweiligen <UPDATEN> Button"

IF register = 1235 &&beim start aufgerufen 
	iii = 29875
ELSE
	iii = 1
	neuesupdate() &&holt die daten vom internet
endif


thisform.label16.Caption = "Tarifdatei " + ALLTRIM(STR(jahr3,4,0))
thisform.label17.Caption = "Tarifdatei " + ALLTRIM(STR(jahr4,4,0))
thisform.label18.Caption = "Tarifdatei " + ALLTRIM(STR(jahr5,4,0))

thisform.check0.Value = IIF(EMPTY(dimen.dimpw6),false,true)
IF EMPTY(thisform.check0.Value)
	thisform.check0.caption = "Die Suche nach einem Update bei jedem Programmstart ist: " + "NICHT AKTIVIERT"
ELSE
	thisform.check0.caption = "Die Suche nach einem Update bei jedem Programmstart ist: " + "AKTIVIERT"
endif

thisform.seiteaufbauen.click

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   {,   %         Q                 U  = T     Updatebersicht der Version CC  Z_ T    @ Upzudaten ist, wenn Ihre Version lter als das letze Update ist.C
 C
 h T        ? Mit <WAS IST NEU> knnen Sie nachschauen was sich gendert hat.C
 C
 q T        T Das aktuelle Update erhalten Sie mit einem Klick auf den jeweiligen <UPDATEN> Button %  T t 
 T 
 C  , T  	   Tarifdatei CC
  Z, T     Tarifdatei CC  Z, T     Tarifdatei CC
  Z& T    CC      6 %C    _ T    9 Die Suche nach einem Update bei jedem Programmstart ist:  NICHT AKTIVIERT 7Y T    9 Die Suche nach einem Update bei jedem Programmstart ist: 	 AKTIVIERT 
     
      T        T       
     T   a U  THISFORM ZEILE1 CAPTION JAHR4 EDIT1 VALUE REGISTER III NEUESUPDATE LABEL16 JAHR3 LABEL17 LABEL18 JAHR5 CHECK0 DIMEN DIMPW6 FALSE TRUE
 SEITEAUFBAUEN CLICK SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 "    A bQ A   rq  3 1                       ?        \  v  %    )                           shape      shape      Shape1      FORM1      BTop = 119
Left = 15
Height = 230
Width = 613
Name = "Shape1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 435
Left = 619
Visible = .T.
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      zeile1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 14
Caption = "zeile1"
Height = 25
Left = 21
Top = 49
Width = 55
Name = "zeile1"
      label      label      kasten1      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 205
Top = 148
Visible = .T.
Width = 67
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten2      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 313
Top = 147
Visible = .T.
Width = 67
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 428
Top = 149
Visible = .T.
Width = 67
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 537
Top = 149
Visible = .T.
Width = 67
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 205
Top = 176
Visible = .T.
Width = 67
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten6      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 313
Top = 176
Visible = .T.
Width = 67
Name = "kasten6"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten7      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 428
Top = 176
Visible = .T.
Width = 67
Name = "kasten7"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten8      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 537
Top = 176
Visible = .T.
Width = 67
Name = "kasten8"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten9      FORM1      uAlignment = 2
Caption = "kasten0"
Height = 17
Left = 205
Top = 206
Visible = .T.
Width = 67
Name = "kasten9"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten10      FORM1      vAlignment = 2
Caption = "kasten0"
Height = 17
Left = 313
Top = 203
Visible = .T.
Width = 67
Name = "kasten10"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten11      FORM1      vAlignment = 2
Caption = "kasten0"
Height = 17
Left = 428
Top = 203
Visible = .T.
Width = 67
Name = "kasten11"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten12      FORM1      WordWrap = .F.
Alignment = 2
Caption = "kasten0"
Height = 17
Left = 537
Top = 203
Visible = .T.
Width = 67
Name = "kasten12"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      Label13      FORM1      eCaption = "Ihre Version ist vom:"
Height = 17
Left = 21
Top = 149
Width = 118
Name = "Label13"
      label      label      Label14      FORM1      jCaption = "Das letze Update ist  vom:"
Height = 17
Left = 21
Top = 177
Width = 144
Name = "Label14"
      label      label      Label15      FORM1      ZCaption = "Hauptmodul"
Height = 17
Left = 201
Top = 125
Width = 75
Name = "Label15"
      label      label      Label16      FORM1      mAlignment = 2
Caption = "Tarifddatei J3"
Height = 17
Left = 300
Top = 125
Width = 93
Name = "Label16"
      label      label      Label17      FORM1      mAlignment = 2
Caption = "Tarifddatei J4"
Height = 17
Left = 415
Top = 125
Width = 93
Name = "Label17"
      label      label      Label18      FORM1      mAlignment = 2
Caption = "Tarifddatei J5"
Height = 17
Left = 524
Top = 125
Width = 93
Name = "Label18"
      line      line      Line1      FORM1      ?Height = 0
Left = 15
Top = 143
Width = 612
Name = "Line1"
      line      line      Line2      FORM1      @Height = 104
Left = 290
Top = 119
Width = 0
Name = "Line2"
      line      line      Line5      FORM1      @Height = 230
Left = 185
Top = 119
Width = 0
Name = "Line5"
      line      line      Line6      FORM1      ?Height = 0
Left = 15
Top = 169
Width = 612
Name = "Line6"
      line      line      Line7      FORM1      ?Height = 0
Left = 15
Top = 199
Width = 612
Name = "Line7"
      label      label      Label19      FORM1      [Caption = "Gre in KB"
Height = 17
Left = 21
Top = 204
Width = 144
Name = "Label19"
      
commandbutton      
commandbutton      
HSCommand1      FORM1      VTop = 6
Left = 15
Height = 34
Width = 304
Caption = "Hilfe"
Name = "HSCommand1"
      3PROCEDURE Click
DO kasten_click WITH 21
ENDPROC
                                         %   N       c      ]             U   
    U  KASTEN_CLICK Click,     1  1                       (       )                            
commandbutton      
commandbutton      Command5      FORM1      YTop = 6
Left = 321
Height = 34
Width = 304
Caption = "schlieen"
Name = "Command5"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            
commandbutton      
commandbutton      Command1      FORM1      Top = 271
Left = 188
Height = 28
Width = 99
Caption = "updaten"
ToolTipText = "Ruft die Downloadseite von PC-Gehalt auf"
Name = "Command1"
     ;PROCEDURE Click
IF SUBSTR(updatex,1,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif
		
hinweis("PC-Gehalt wird jetzt beendet!"+CHR(13)+CHR(10)+"Sie werden danach zur Downloadseite fr PC-Gehalt weitergeleitet!")

*!*	inet = 110
*!*	Msg = "gehalt-download"

*!*	Do insinternet &&Do attached

public map_url 
map_url="http://pc-gehalt.de/gehalt-download.htm#updaten"

do shellexec

GoUrl(map_url)

hsquit = .t.
thisform.release

*!*	myform1.release
*!*	CLOSE ALL
*!*	QUIT

ENDPROC
     k    R  R                        u   %         	                 U  b %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  { C PC-Gehalt wird jetzt beendet!C
 C
 A Sie werden danach zur Downloadseite fr PC-Gehalt weitergeleitet!  7 < T / http://pc-gehalt.de/gehalt-download.htm#updaten   C    T a
    U	  UPDATEX OK HINWEIS MAP_URL	 SHELLEXEC GOURL HSQUIT THISFORM RELEASE Click,     1 A A A w r    6                       0      )   R                        
commandbutton      
commandbutton      Command2      FORM1      Top = 271
Left = 294
Height = 28
Width = 99
Caption = "updaten"
ToolTipText = "startet den Download und installiert die Dateien"
Name = "Command2"
     sPROCEDURE Click
IF SUBSTR(updatex,2,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif

WAIT WINDOW "Die Tarifdateien fr das Jahr " + ALLTRIM(STR(jahr3,4,0)) + " werden heruntergeladen ...." nowait
Op1 = Jahr3 &&fragehs
Do tarifeladen &&Do attached
thisform.seiteaufbauen.click
WAIT clear
ENDPROC
                                   Y   %   m           |            U    %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  W R,: Die Tarifdateien fr das Jahr CC  Z  werden heruntergeladen ....
 T    
     R U  UPDATEX OK JAHR3 OP1 TARIFELADEN THISFORM
 SEITEAUFBAUEN CLICK Click,     1 A A A r q  Q 1                       h      )                           
commandbutton      
commandbutton      Command3      FORM1      Top = 271
Left = 406
Height = 28
Width = 99
Caption = "updaten"
ToolTipText = "startet den Download und installiert die Dateien"
Name = "Command3"
     sPROCEDURE Click
IF SUBSTR(updatex,3,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif

WAIT WINDOW "Die Tarifdateien fr das Jahr " + ALLTRIM(STR(jahr4,4,0)) + " werden heruntergeladen ...." nowait
Op1 = Jahr4 &&fragehs
Do tarifeladen &&Do attached
thisform.seiteaufbauen.click
WAIT clear
ENDPROC
                                   Y   %   m           |            U    %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  W R,: Die Tarifdateien fr das Jahr CC  Z  werden heruntergeladen ....
 T    
     R U  UPDATEX OK JAHR4 OP1 TARIFELADEN THISFORM
 SEITEAUFBAUEN CLICK Click,     1 A A A r q  Q 1                       h      )                           
commandbutton      
commandbutton      Command4      FORM1      Top = 271
Left = 520
Height = 28
Width = 99
Caption = "updaten"
ToolTipText = "startet den Download und installiert die Dateien"
Name = "Command4"
     sPROCEDURE Click
IF SUBSTR(updatex,4,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif

WAIT WINDOW "Die Tarifdateien fr das Jahr " + ALLTRIM(STR(jahr5,4,0)) + " werden heruntergeladen ...." nowait
Op1 = Jahr5 &&fragehs
Do tarifeladen &&Do attached
thisform.seiteaufbauen.click
WAIT clear
ENDPROC
                                   Y   %   m           |            U    %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  W R,: Die Tarifdateien fr das Jahr CC  Z  werden heruntergeladen ....
 T    
     R U  UPDATEX OK JAHR5 OP1 TARIFELADEN THISFORM
 SEITEAUFBAUEN CLICK Click,     1 A A A r q  Q 1                       h      )                           
commandbutton      
commandbutton      Command6      FORM1      Top = 230
Left = 188
Height = 28
Width = 431
Caption = "was ist neu?"
ToolTipText = "Zeigt die Webseite mit den aktuellen nderungen an"
Name = "Command6"
      PROCEDURE Click
*DO sscommand6_click
inet = 110
mylink = 753 &&Msg = "gehalt-aktuelles"
Do insinternet &&Do attached
ENDPROC
                                         %   p                          U  % 
 T  n T    U  INET MYLINK INSINTERNET Click,     1   q 1                       x       )                            line      line      Line8      FORM1      ?Height = 0
Left = 15
Top = 223
Width = 612
Name = "Line8"
      line      line      Line9      FORM1      ?Height = 0
Left = 15
Top = 263
Width = 612
Name = "Line9"
      editbox      editbox      Edit1      FORM1      zEnabled = .F.
Height = 74
Left = 20
ReadOnly = .T.
Top = 372
Width = 604
DisabledForeColor = 0,0,0
Name = "Edit1"
      checkbox      checkbox      Check0      FORM1      Top = 87
Left = 21
Height = 22
Width = 606
Alignment = 0
Caption = "Die Suche nach einem Update bei jedem Programmstart ist: "
Name = "Check0"
     APROCEDURE Click
IF EMPTY(this.Value)
	this.Caption = "Die Suche nach einem Update bei jedem Programmstart ist: " + "NICHT AKTIVIERT"
ELSE
	this.Caption = "Die Suche nach einem Update bei jedem Programmstart ist: " + "AKTIVIERT"
endif
Dimen.dimpw6 = IIF(EMPTY(this.Value),0,1)

Do dimenaus &&Do attached
ENDPROC
                                      %   \      }  	   k            U    %C   n \ T   9 Die Suche nach einem Update bei jedem Programmstart ist:  NICHT AKTIVIERT  V T   9 Die Suche nach einem Update bei jedem Programmstart ist: 	 AKTIVIERT # T  CC      6   U  THIS VALUE CAPTION DIMEN DIMPW6 DIMENAUS Click,     1 ! aA 1r 1                       6      )                           label      label      Label21      FORM1      fCaption = "Aktuelle Informationen"
Height = 17
Left = 21
Top = 235
Width = 144
Name = "Label21"
      label      label      Label22      FORM1      ^Caption = "Update starten"
Height = 17
Left = 21
Top = 277
Width = 144
Name = "Label22"
      
commandbutton      
commandbutton      
seiteaufbauen      FORM1      Top = 453
Left = 270
Height = 22
Width = 106
Caption = "seiteaufbauen"
Enabled = .F.
Visible = .F.
Name = "seiteaufbauen"
     PROCEDURE Click
With thisform
	thisform.windowstate = 0 &&normal
*	.BackColor = hex2rgb("&HECECEC")

	.Kasten1.Caption = msg1 &&Datum lokales Hauptmodul
	.Kasten2.Caption = msg2 &&Datum lokale Tarife Jahr3
	.Kasten3.Caption = msg3 &&Datum lokale Tarife Jahr4
	.Kasten4.Caption = msg4 &&Datum lokale Tarife Jahr5

	.Kasten5.Caption = msg5 &&Datum inet Hauptmodul
	.Kasten6.Caption = msg7 &&Datum inet Tarife Jahr3
	.Kasten7.Caption = msg9 &&Datum inet Tarife Jahr4
	.Kasten8.Caption = msg11 &&Datum inet Tarife Jahr5

	.Kasten9.Caption = STR(msg6,10,0) &&gre inet Hauptmodul
	.Kasten10.Caption = STR(msg8,10,0) &&gre inet Tarife Jahr3
	.Kasten11.Caption = STR(msg10,10,0) &&gre inet Tarife Jahr4
	.Kasten12.Caption = STR(msg12,10,0) &&gre inet Tarife Jahr5
	
	updatex = ""
	m = 0

	If .Not. msg1 = msg5
		IF msg1 > msg5
		else
			m = 1
		endif
		updatex = updatex + "Y"
	ELSE
		updatex = updatex + "X"
		&&.SSCommand1.Visible = False
	Endif

	If .Not. msg2 = msg7
		m = 1
		updatex = updatex + "Y"
	ELSE
		updatex = updatex + "X"			
		&&.SSCommand2.Visible = False
	Endif

	If .Not. msg3 = msg9
		m = 1
		updatex = updatex + "Y"
	ELSE
		updatex = updatex + "X"			
		&&.SSCommand3.Visible = False
	Endif
	If .Not. msg4 = msg11
		m = 1
		updatex = updatex + "Y"
	ELSE
		updatex = updatex + "X"			
		&&.SSCommand3.Visible = False
	Endif
*!*		FOR hsa = 1 TO 4
*!*			IF SUBSTR(updatex,hsa,1) = "X"
*!*				buttonname = "command" + ALLTRIM(STR(hsa,1,0))
*!*				thisform.&buttonname..enabled = .f.
*!*			ENDIF
*!*		next
	If m = 0
		.zeile1.Caption = "Sie benutzen bereits die neuesten Updates."
	Else
		Do Case && register
			Case register = 1238
				If m > 0
					.zeile1.Caption = "Ein Update steht auf dem Server Ihrer Dienststelle bereit:"
				Else
					.zeile1.Caption = "Mglicherweise steht auf dem Server der Dienststelle ein Update bereit."
				Endif
			Case register = 1237
				If m > 0
					.zeile1.Caption = "Ein Update steht im Internet bereit:"
				Else
					.zeile1.Caption = "Mglicherweise steht im Internet ein Update bereit."
				Endif
		Endcase
	Endif
	&&Laden
Endwith
ENDPROC
         f  f                        ő   %           @               U  f
   _ T     T    T    T    T	  
  T    T
    T    T    T  C 
 Z T  C 
 Z T  C 
 Z T  C 
 Z
 T   
 T   %  
q %  F [
 T   T   Y  T   X  %  

 T  T   Y  T   X  %  

 T  T   Y ) T   X  %
  
^
 T  T   Y x T   X  %  ; T  * Sie benutzen bereits die neuesten Updates. [
 HW   %  KK T  : Ein Update steht auf dem Server Ihrer Dienststelle bereit: X T  G Mglicherweise steht auf dem Server der Dienststelle ein Update bereit.   W %  5 T  $ Ein Update steht im Internet bereit: SD T  3 Mglicherweise steht im Internet ein Update bereit.     U  THISFORM WINDOWSTATE KASTEN1 CAPTION MSG1 KASTEN2 MSG2 KASTEN3 MSG3 KASTEN4 MSG4 KASTEN5 MSG5 KASTEN6 MSG7 KASTEN7 MSG9 KASTEN8 MSG11 KASTEN9 MSG6 KASTEN10 MSG8 KASTEN11 MSG10 KASTEN12 MSG12 UPDATEX M ZEILE1 REGISTER Click,     1    "  A ! !B " ! !B " ! !B ! ! !B   ! A !Q AA A A B 1                       x      )   f                        
commandbutton      
commandbutton      	Command11      FORM1      Top = 314
Left = 294
Height = 28
Width = 99
Caption = "download"
ToolTipText = "Ldt die Zip-Datei der Tarife in Ihren Download-Ordner herunter"
Name = "Command11"
     PROCEDURE Click
IF SUBSTR(updatex,2,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif

msg = "http:"+"//www.pc-gehalt.de/"+xjahr4+"/Tarife"+ALLTRIM(STR(jahr3,4,0))+".zip?1"
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.HWnd, "Open", Msg, "", "", SW_SHOWNORMAL)
		


ENDPROC
     5                              q%   %           
               U  ! %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  P T  http: //www.pc-gehalt.de/  /TarifeCC  Z .zip?1. | ShellExecute shell32.dll) T C	 
  Open          U  UPDATEX OK MSG XJAHR4 JAHR3 SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1 A A A 4                             )                           
commandbutton      
commandbutton      	Command12      FORM1      Top = 314
Left = 406
Height = 28
Width = 99
Caption = "download"
ToolTipText = "Ldt die Zip-Datei der Tarife in Ihren Download-Ordner herunter"
Name = "Command12"
     PROCEDURE Click
IF SUBSTR(updatex,3,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif

msg = "http:"+"//www.pc-gehalt.de/"+xjahr4+"/Tarife"+ALLTRIM(STR(jahr4,4,0))+".zip?1"
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.HWnd, "Open", Msg, "", "", SW_SHOWNORMAL)
ENDPROC
     5                              q%   %           
               U  ! %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  P T  http: //www.pc-gehalt.de/  /TarifeCC  Z .zip?1. | ShellExecute shell32.dll) T C	 
  Open          U  UPDATEX OK MSG XJAHR4 JAHR4 SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1 A A A 1                             )                           
commandbutton      
commandbutton      	Command13      FORM1      Top = 314
Left = 520
Height = 28
Width = 99
Caption = "download"
ToolTipText = "Ldt die Zip-Datei der Tarife in Ihren Download-Ordner herunter"
Name = "Command13"
     PROCEDURE Click
IF SUBSTR(updatex,4,1) = "X"
	IF .not. ok("Wollen Sie wirklich die GLEICHE Version nochmals herunterladen?")
		RETURN
	ENDIF
endif


msg = "http:"+"//www.pc-gehalt.de/"+xjahr4+"/Tarife"+ALLTRIM(STR(jahr5,4,0))+".zip?1"
	DECLARE Integer ShellExecute IN shell32.dll Integer hwndParent, String lpOperation, String lpFileName, String lpParameters, String lpDirectory, Integer nChowCmd 
	rc = ShellExecute(myform1.HWnd, "Open", Msg, "", "", SW_SHOWNORMAL)
ENDPROC
     5                              q%   %           
               U  ! %C  \ Xs Q %C? Wollen Sie wirklich die GLEICHE Version nochmals herunterladen? 
o  B  P T  http: //www.pc-gehalt.de/  /TarifeCC  Z .zip?1. | ShellExecute shell32.dll) T C	 
  Open          U  UPDATEX OK MSG XJAHR4 JAHR5 SHELLEXECUTE SHELL32 DLL RC MYFORM1 HWND
 SW_SHOWNORMAL Click,     1 A A A 1                             )                           line      line      Line10      FORM1      @Height = 0
Left = 15
Top = 307
Width = 612
Name = "Line10"
      label      label      Label23      FORM1      Caption = "Download im Browser starten"
Height = 17
Left = 19
Top = 320
Width = 164
ToolTipText = "Das sollten Sie auswhlen, wenn der normale Update nicht klappt."
Name = "Label23"
      line      line      Line11      FORM1      @Height = 85
Left = 290
Top = 264
Width = 0
Name = "Line11"
      line      line      Line3      FORM1      @Height = 104
Left = 399
Top = 119
Width = 0
Name = "Line3"
      line      line      Line4      FORM1      ?Height = 85
Left = 399
Top = 264
Width = 0
Name = "Line4"
      line      line      Line12      FORM1      AHeight = 104
Left = 512
Top = 119
Width = 0
Name = "Line12"
      line      line      Line13      FORM1      @Height = 85
Left = 512
Top = 264
Width = 0
Name = "Line13"
      label      label      Label24      FORM1      FontSize = 8
Caption = "Den 'Download im Browser' brauchen Sie nur, wenn der normale Update der Tarifdateien nicht klappt."
Height = 16
Left = 18
Top = 352
Width = 494
Name = "Label24"
      
commandbutton      
commandbutton      Command7      FORM1      Top = 351
Left = 519
Height = 19
Width = 100
Caption = "Beschreibung"
ToolTipText = "Beschreibung der Vorgehensweise zum Browserdownload anzeigen."
Name = "Command7"
     ePROCEDURE Click
crlf = CHR(13) + CHR(10)
browsertext = "Diese Vorgehensweise gilt fr jedes Jahr, das Sie updaten wollen:"+crlf+crlf
browsertext = browsertext + "1) Klicken Sie auf den Button des Jahres, dessen Tarife sie updaten wollen"+crlf
browsertext = browsertext + "2) Der Internetbrowser ffnet sich, und es wird die Tarifdatei heruntergeladen."+crlf
browsertext = browsertext + "3) Lassen Sie sich den Download-Ordner anzeigen, und suchen Sie die Datei."+crlf
browsertext = browsertext + "4) Entpacken Sie die Datei. (z.B. Tarife"+xjahr4+".zip)"+crlf
browsertext = browsertext + "5) Kopieren Sie die entpackten Dateien in den Tarife-Ordner von PC-Gehalt."+crlf
browsertext = browsertext + "5a)Die alten Tarifdateien sollten mit den neuen berschrieben werden."+crlf
browsertext = browsertext + "6) Sollten Sie dabei die Meldung bekommen, dass die Dateien in Verwendung sind,"+crlf
browsertext = browsertext + "6a)dann mssen Sie PC-Gehalt beenden, bevor Sie diese Aktion abschlieen knnen."+crlf
browsertext = browsertext + "6b)In diesem Fall sollten Sie zuerst alle Tarifdateien runterladen und entpacken."+crlf
browsertext = browsertext + "7) Wenn Sie die entpackten Dateien kopiert haben, knnen Sie PC-Gehalt erneut starten."+crlf
browsertext = browsertext + "8) Der Tarifupdate ist damit abgeschlossen."


DO FORM Nachricht WITH browsertext
ENDPROC
     e    L  L                        F   %                          U  ~ T  C
 C
 V T A Diese Vorgehensweise gilt fr jedes Jahr, das Sie updaten wollen:    _ T  J 1) Klicken Sie auf den Button des Jahres, dessen Tarife sie updaten wollen  d T  O 2) Der Internetbrowser ffnet sich, und es wird die Tarifdatei heruntergeladen.  _ T  J 3) Lassen Sie sich den Download-Ordner anzeigen, und suchen Sie die Datei.  J T  ( 4) Entpacken Sie die Datei. (z.B. Tarife  .zip)  _ T  J 5) Kopieren Sie die entpackten Dateien in den Tarife-Ordner von PC-Gehalt.  Z T  E 5a)Die alten Tarifdateien sollten mit den neuen berschrieben werden.  d T  O 6) Sollten Sie dabei die Meldung bekommen, dass die Dateien in Verwendung sind,  e T  P 6a)dann mssen Sie PC-Gehalt beenden, bevor Sie diese Aktion abschlieen knnen.  f T  Q 6b)In diesem Fall sollten Sie zuerst alle Tarifdateien runterladen und entpacken.  k T  V 7) Wenn Sie die entpackten Dateien kopiert haben, knnen Sie PC-Gehalt erneut starten.  < T  + 8) Der Tarifupdate ist damit abgeschlossen. 	 Nachricht  U  CRLF BROWSERTEXT XJAHR4	 NACHRICHT Click,     1 QaAAQaS1                       Z      )   L                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68D0MOZB41411602096      /  F      ]        ~                                           WINDOWS _68D0MOZB61466911649               +      <                                                 WINDOWS _68D0MOZB41466911649                                                                       WINDOWS _68D0MOZB61411601901            3                                                           WINDOWS _68D0MOZB71411602949]      l  {            U                                               WINDOWS _68D0MOZB81411601901.      <  J  Y                                                             WINDOWS _68D0MOZB91411602949                  x                                                 WINDOWS _68D0N4KXJ1411601901                                                                       WINDOWS _68D0N4KXK1411602949&      5  D  Q                                                         WINDOWS _68D0MOZBC1466911649        !  1  P                                                       WINDOWS _68D0MOZBD1466911649          #                                                           WINDOWS _68D0NYW9G1466911649            	        x                                               WINDOWS _69S0PR4SL1466911649            #        I                                                COMMENT RESERVED                                !                                                            !                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR kkliste (kklfdnr c(3), kkname C(35), kkanzahl N(10,0))
SELECT kkliste
FOR hsa = 1 TO 34
	APPEND BLANK
	FLUSH
NEXT
flush
ENDPROC
     \    C  C                           %             	                U  u C h kkliste  C  C#  N
  F    ("j   [  [ U  KKLISTE KKLFDNR KKNAME KKANZAHL HSA BeforeOpenTables,     1 1q qQ A A A 1                              )   C                        1      1      form      form      NACHWEISLISTEZUMDRUCKEN     	Height = 548
Width = 394
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Picture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = "Nachweise KVs"
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "NACHWEISLISTEZUMDRUCKEN"
     ;PROCEDURE Init
myform1.visible = .f.

SELECT kkliste 
For myid = 1 To 34
	GOTO myid
	If myid < 10
		replace kkliste.kklfdnr with "0" + ALLTRIM(STR(myid,3,0))
	Else
		replace kkliste.kklfdnr with ALLTRIM(STR(myid,3,0))
	ENDIF
	
	If myid = 34
		&&Bundesknappschaft
		replace kkliste.kkname with ALLTRIM(zt46(myid+1))
	Else
		replace kkliste.kkname with ALLTRIM(zt46(myId))
	Endif
*!*		If myid = zi(1+46)
*!*			.CellBackColor = myform1.backcolor &&farbenrgb(1+16)
*!*			zi(1+46) = myId
*!*		Else
*!*			.CellBackColor = myform1.backcolor &&QBColor(15)
*!*		Endif

*	.Col = 2
	replace kkliste.kkanzahl with Jahr(myid)
	flush
NEXT
FLUSH
SELECT kkliste
SET FILTER TO kkliste.kkanzahl > 0
GO top
&&.Kcombo.Visible = True
*.Visible = True




thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdKkliste.column1.text1.FontSize = thisform.grdKkliste.column1.FontSize
thisform.grdKkliste.column2.text1.FontSize = thisform.grdKkliste.column1.FontSize
thisform.grdKkliste.column3.text1.FontSize = thisform.grdKkliste.column1.FontSize
ENDPROC
PROCEDURE Destroy
SELECT kkliste
USE
myform1.visible = .t.
ENDPROC
     @    '  '                           %   E        %   t            U  n T   - F   (" 	 #  % 

e  >   0CC  Z   >  CC  Z  % "  >  CC     >  CC     >  C    [  [ F  G(    #)
 	 
   T	  	  
  T	  	  
 
 	   T	  a U  MYFORM1 VISIBLE KKLISTE MYID KKLFDNR KKNAME ZT46 KKANZAHL JAHR THISFORM SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTERy  C    " T           " T           " T            U	  THISFORM SIZER	 FRMRESIZE
 GRDKKLISTE COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3  F   Q T  a U  KKLISTE MYFORM1 VISIBLE Init,      Resize9     Destroy
    1  r q  A  qA YA A A q !Q  rq  2 !!!2 q A  1                                   0   !     0  6    )   '                        grid      grid      
grdKkliste      NACHWEISLISTEZUMDRUCKEN     ColumnCount = 3
DeleteMark = .F.
Height = 500
Left = 18
Panel = 1
RecordSource = "kkliste"
RecordSourceType = 1
RowHeight = 14
Top = 4
Width = 358
Name = "grdKkliste"
Column1.ControlSource = "kkliste.kklfdnr"
Column1.Width = 37
Column1.Name = "Column1"
Column2.ControlSource = "kkliste.kkname"
Column2.Width = 212
Column2.Name = "Column2"
Column3.ControlSource = "kkliste.kkanzahl"
Column3.Width = 75
Column3.Name = "Column3"
      header      header      Header1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column1      "Caption = "NR"
Name = "Header1"
      textbox      textbox      Text1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column1      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.drucken.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM DRUCKEN CLICK Click,     1  1                       '       )                            header      header      Header1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column2      'Caption = "KK-Name"
Name = "Header1"
      textbox      textbox      Text1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column2      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.drucken.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM DRUCKEN CLICK Click,     1  1                       '       )                            header      header      Header1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column3      6Alignment = 1
Caption = "Anzahl "
Name = "Header1"
      textbox      textbox      Text1      *NACHWEISLISTEZUMDRUCKEN.grdKkliste.Column3      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      2PROCEDURE Click
thisform.drucken.click
ENDPROC
                                         %   Z       o      i             U   
      U  THISFORM DRUCKEN CLICK Click,     1  1                       '       )                            
commandbutton      
commandbutton      Command1      NACHWEISLISTEZUMDRUCKEN      [Top = 511
Left = 142
Height = 31
Width = 109
Caption = "schlieen"
Name = "Command1"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      NACHWEISLISTEZUMDRUCKEN      Top = 530
Left = 378
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      drucken      NACHWEISLISTEZUMDRUCKEN      tTop = 515
Left = 30
Height = 22
Width = 79
Caption = "drucken"
Enabled = .F.
Visible = .F.
Name = "drucken"
      PROCEDURE Click
 
i = RECNO("kkliste") - 1 &&myform1.kcombo.zgrid.Row && hier wird die ausgewhlte zeile bernommen
index1 = i

j = index1
If j < 34
	DO kassedruckenvorspann
Else
	DO Bundesknappschaftvorspann
ENDIF
ENDPROC
     V    =  =                           %             
                U  b  T  C kklisteO
 T   
 T   % "
L    [     U  I INDEX1 J KASSEDRUCKENVORSPANN BUNDESKNAPPSCHAFTVORSPANN Click,     1   q  q A 1                              )   =                        checkbox      checkbox      Check1      NACHWEISLISTEZUMDRUCKEN      lTop = 517
Left = 267
Height = 19
Width = 109
Alignment = 0
Caption = "ALLE anzeigen"
Name = "Check1"
      PROCEDURE Click
SELECT kkliste
IF EMPTY(this.Value)
	SET FILTER TO kkliste.kkanzahl > 0
else
	SET FILTER TO 
ENDIF
GO top
thisform.grdkkliste.Refresh

ENDPROC
     F    -  -                           %             
                U  R  F   %C  +  G(     9  G(  #)
     U  KKLISTE THIS VALUE KKANZAHL THISFORM
 GRDKKLISTE REFRESH Click,     1 q !! a A Q  2                              )   -                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68D0SRR101519810994      /  F      ]                                                   WINDOWS _68D0SRR121519938873$      0  <      I        h&                                               WINDOWS _68D0SRR181411612193>      >  >  >  >                                                           WINDOWS _68D0SRR191411607340A      A  A  
B  0B                                                           WINDOWS _68D0SRR1A1411612193ZB      iB  xB  B  B                                                           WINDOWS _68D0SRR1B1411607340C      'C  5C  DC  gC                                                           WINDOWS _68D0SRR1C1411612193C      C  C  C  C                                                           WINDOWS _68D0SRR1D1411607340VD      dD  rD  D  D                                                           WINDOWS _68D0SRR1E1411612193D      D  D  D  "E                                                           WINDOWS _68D0SRR1F1411607340E      E  E  E  E                                                           WINDOWS _68D0SRR1G1411612193F      #F  2F  ?F  bF                                                           WINDOWS _68D0SRR1H1411607340F      F  F  F  !G                                                           WINDOWS _68D0SRR1I1411612193ZG      iG  xG  G  G                                                           WINDOWS _68D0SRR131411609349H  )H  IH  XH  eH  rH                                                           WINDOWS _68D0SRR141519938873I      $I  9I  KI  XI      I  @J                                               WINDOWS _68D0SRR1514116093494K      IK  ^K  pK  }K      L  7L                                               WINDOWS _68D0SRR161411610809M      M  0M  BM  OM      M  N                                               WINDOWS _68D0SRR171411609349N      N  O  O  O                                                           WINDOWS _68D0SRR101411610485O      O  O  O  O                                                           WINDOWS _68D0SRR121411610485PP      ]P  jP  xP  P                                                           WINDOWS _68D0SRR101411610485P      P  P  Q  Q                                                           WINDOWS _68D0SRR121411610485hQ      uQ  Q  Q  Q                                                           WINDOWS _68D0UVAD01411610485Q      R  R  R  )R                                                           WINDOWS _68D0UVAD11411610485R      R  R  R  R                                                           COMMENT RESERVED                                S                                                            S5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR szanzeigen (f0 C(35), f1 C(10), f2 C(10), f3 C(10), f4 C(10))
SELECT szanzeigen
FOR hsa = 1 TO 20
	APPEND BLANK
	FLUSH
NEXT
FLUSH
GO top
ENDPROC
     z    a  a                           %            
               U   ^ h
 szanzeigen  C#  C
  C
  C
  C
 F    (   [  [ #) U 
 SZANZEIGEN F0 F1 F2 F3 F4 HSA BeforeOpenTables,     1 q qQ A A A Q 1                              )   a                        1      1      form      form      FORM1      Height = 623
Width = 551
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Jahressonderzahlung"
Icon = prgicons\haupticon.ico
Name = "FORM1"
      rPROCEDURE Destroy
SELECT szanzeigen
USE
myform1.visible = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdSzanzeigen.column1.text1.FontSize = thisform.grdSzanzeigen.column1.FontSize
thisform.grdSzanzeigen.column2.text1.FontSize = thisform.grdSzanzeigen.column1.FontSize
thisform.grdSzanzeigen.column3.text1.FontSize = thisform.grdSzanzeigen.column1.FontSize
thisform.grdSzanzeigen.column4.text1.FontSize = thisform.grdSzanzeigen.column1.FontSize
thisform.grdSzanzeigen.column5.text1.FontSize = thisform.grdSzanzeigen.column1.FontSize
ENDPROC
PROCEDURE Init
myweihnachtenanzeigen = thisform
*thisform.grdszanzeigen.SetAll("dynamicbackcolor","gridcolor_szanzeigen(RECNO('szanzeigen'))","Column")
Thisform.grdszanzeigen.Column1.DynamicBackColor = "gridcolor_szanzeigen(RECNO('szanzeigen'),1)"
Thisform.grdszanzeigen.Column2.DynamicBackColor = "gridcolor_szanzeigen(RECNO('szanzeigen'),2)"
Thisform.grdszanzeigen.Column3.DynamicBackColor = "gridcolor_szanzeigen(RECNO('szanzeigen'),3)"
Thisform.grdszanzeigen.Column4.DynamicBackColor = "gridcolor_szanzeigen(RECNO('szanzeigen'),4)"
 myform1.visible = .f.

******************************* ab hier meines fllen *****************

If zi(1+4) < 6 &&8 And Not zi(1+4) = 6 Then &&AOK_Version vorher nur < 8
	j = 11
Else
	j = 10
ENDIF

With myform1
	.Kcombo.Visible = False
	.z20.Caption = zt20(1+j)
	zi(1+20) = j
Endwith

Monat = j + 1
zti = 20
Do Neuername &&Do attached

With thisform.zeile0
	Do Case && zi(1+4)
		Case (zi(1+4) >= 0 .And. zi(1+4) <= 9)
			.Caption = "Jhrliche Sonderzuwendung"
		Case (zi(1+4) >= 10 .And. zi(1+4) <= 24)
			.Caption = "Jahressonderzahlung"
	Endcase
	.Caption = .Caption + " " + welchesjahrc + " fr " + zt0(1+zi(1+0))
Endwith

SELECT szanzeigen
	If zi(1+22) = 2 .Or. zi(1+22) = 3
		thisform.grdszanzeigen.column4.header1.Caption = "A T Z"
	Else
		thisform.grdszanzeigen.column4.header1.Caption = "Tatschlich"
	Endif
	GOTO 1
	replace szanzeigen.f0 WITH  "Januar"
	flush
	GOTO 2
	replace szanzeigen.f0 WITH "Februar"
	flush
	GOTO 3
	replace szanzeigen.f0 WITH "Mrz"
	flush
	GOTO 4
	replace szanzeigen.f0 WITH "April"
	flush
	GOTO 5
	replace szanzeigen.f0 WITH "Mai"
	flush
	GOTO 6
	replace szanzeigen.f0 WITH "Juni"
	flush
	GOTO 7
	replace szanzeigen.f0 WITH "Juli"
	flush
	GOTO 8
	replace szanzeigen.f0 WITH "August"
	flush
	GOTO 9
	replace szanzeigen.f0 WITH "September"
	flush
	GOTO 10
	replace szanzeigen.f0 WITH "Oktober"
	flush
	GOTO 11
	replace szanzeigen.f0 WITH "November"
	flush
	GOTO 12
	replace szanzeigen.f0 WITH "Dezember"
	flush
	GOTO 13
	replace szanzeigen.f0 WITH "Belegte Monate"
	flush
	GOTO 14
	replace szanzeigen.f0 WITH "Basis-Gehalt 2)"
	flush
	GOTO 15
	replace szanzeigen.f0 WITH "/ 12 * belegte M."
	flush
	GOTO 16
	replace szanzeigen.f0 WITH "davon " + ALLTRIM(STR(weihnachtsgeld(1+zi(1+4),1+ weihfaktor),6,3)) + " %"
	flush
	GOTO 17
	replace szanzeigen.f0 WITH " + " + ALLTRIM(STR(weihkinder,2,0)) + " Kinderzuschl."
	flush
	GOTO 18
	replace szanzeigen.f0 WITH "Zwischensumme"
	FLUSH
	GOTO 19
	replace szanzeigen.f0 WITH "minus " + ALLTRIM(STR(wnw.tvdsozaminustage,2,0)) + " TAG(e) Umwandlung"
	FLUSH
	GOTO 20
	replace szanzeigen.f0 WITH "S U M M E "
	FLUSH	
	&&Tabellefllen **************************************************************
	*.Col = 1
	For i = 1 To 11
		GOTO i
		replace szanzeigen.f1 WITH myformat(weihvzeng(i) / 100, "###,##0.00")
		flush
	NEXT
	GOTO 12
	replace szanzeigen.f1 WITH myformat(weihvzeng(11) / 100, "###,##0.00")
	flush
	GOTO 13
	replace szanzeigen.f1 WITH ALLTRIM(STR(zwlftel,3,0))
	flush
	GOTO 14
	replace szanzeigen.f1 WITH myformat(weihvzbasis / 100, "###,##0.00")
	flush
	GOTO 15
	replace szanzeigen.f1 WITH myformat(WeihVZ12 / 100, "###,##0.00")
	flush
	GOTO 16
	replace szanzeigen.f1 WITH myformat(WeihVZQ / 100, "###,##0.00")
	flush
	GOTO 17
	replace szanzeigen.f1 WITH myformat(kizu * weihkinder / 100, "###,##0.00")
	flush
	GOTO 18
	replace szanzeigen.f1 WITH myformat((WeihVZQ + kizu * weihkinder) / 100, "###,##0.00")
	FLUSH
	hszwijasosumm = (WeihVZQ + kizu * weihkinder)
	GOTO 19 &&wnw.tvdsozaminustage
	minustagewert = ((weihvzbasis / 100)/ (myform1.t1.value * 4.348)) * ((myform1.t1.value/5) * wnw.tvdsozaminustage)
	replace szanzeigen.f1 WITH myformat(minustagewert, "###,##0.00")
	FLUSH
	GOTO 20
	replace szanzeigen.f1 WITH myformat((hszwijasosumm / 100) - minustagewert, "###,##0.00")
	FLUSH	
	&&Teilzeit
	*.Col = 2
	For i = 1 To 11
		goto i
		replace szanzeigen.f2 WITH myformat(weihtzeng(i) / 100, "###,##0.00")
		flush
	Next
	goto 12
	replace szanzeigen.f2 WITH myformat(weihtzeng(11) / 100, "###,##0.00")
	flush
	goto 13
	replace szanzeigen.f2 WITH ALLTRIM(STR(zwlftel,3,0))
	flush
	goto 14
	replace szanzeigen.f2 WITH myformat(weihtzbasis / 100, "###,##0.00")
	flush
	goto 15
	replace szanzeigen.f2 WITH myformat(WeihTZ12 / 100, "###,##0.00")
	flush
	goto 16
	replace szanzeigen.f2 WITH myformat(WeihTZQ / 100, "###,##0.00")
	flush
	goto 17
	replace szanzeigen.f2 WITH myformat(kizu * weihkinder / 100 * teilzeitfaktor, "###,##0.00")
	flush
	goto 18
	replace szanzeigen.f2 WITH myformat((WeihTZQ + (kizu * weihkinder * teilzeitfaktor)) / 100, "###,##0.00")
	FLUSH
	hszwijasosumm = (WeihTZQ + (kizu * weihkinder * teilzeitfaktor))
	GOTO 19
	minustagewert = ((weihtzbasis / 100)/ (myform1.t1.value * 4.348)) * ((myform1.t1.value/5) * wnw.tvdsozaminustage)
	replace szanzeigen.f2 WITH myformat(minustagewert, "###,##0.00")
	FLUSH
	GOTO 20
	replace szanzeigen.f2 WITH myformat((hszwijasosumm / 100) - minustagewert, "###,##0.00")
	FLUSH		
	*.Col = 3
	For i = 1 To 11
		goto i
		replace szanzeigen.f3 WITH myformat(weihbzeng(i) / 100, "###,##0.00")
		flush
	NEXT
	goto 12
	replace szanzeigen.f3 WITH myformat(weihbzeng(11) / 100, "###,##0.00")
	flush
	goto 13
	replace szanzeigen.f3 WITH ALLTRIM(STR(zwlftelb,3,0))
	flush
	goto 14
	replace szanzeigen.f3 WITH myformat(weihbzbasis / 100, "###,##0.00")
	flush
	goto 15
	replace szanzeigen.f3 WITH myformat(WeihBZ12 / 100, "###,##0.00")
	flush
	goto 16
	replace szanzeigen.f3 WITH myformat(WeihBZQ / 100, "###,##0.00")
	flush
	GOTO 17
	If zi(1+22) = 2 .Or. zi(1+22) = 3
		replace szanzeigen.f3 WITH myformat(kizu * weihkinder * teilzeitfaktor / 200, "###,##0.00")		
	Else
		replace szanzeigen.f3 WITH myformat(kizu * weihkinder / 100 * teilzeitfaktor, "###,##0.00")
	Endif
	flush
	GOTO 18
	If zi(1+22) = 2 .Or. zi(1+22) = 3
		replace szanzeigen.f3 WITH myformat((WeihBZQ + (kizu / 2 * weihkinder)) / 100, "###,##0.00")
		hszwijasosumm = (WeihBZQ + (kizu / 2 * weihkinder))
	ELSE
		replace szanzeigen.f3 WITH myformat((WeihBZQ + (kizu * weihkinder * teilzeitfaktor)) / 100, "###,##0.00")
		hszwijasosumm = (WeihBZQ + (kizu * weihkinder * teilzeitfaktor))
	Endif
	FLUSH
	GOTO 19
	minustagewert = ((weihbzbasis / 100)/ (myform1.t1.value * 4.348)) * ((myform1.t1.value/5) * wnw.tvdsozaminustage)
	replace szanzeigen.f3 WITH myformat(minustagewert, "###,##0.00")
	FLUSH
	GOTO 20
	replace szanzeigen.f3 WITH myformat((hszwijasosumm / 100) - minustagewert, "###,##0.00")
	FLUSH		
*	.Col = 4
	For i = 1 To 11
		goto i
		replace szanzeigen.f4 WITH ALLTRIM(STR(fehltage(i),3,0))
		flush
	Next

&&Ende Tabellefllen***********************************************************

With thisform
	.zeile1.Caption = "1) Die gelb markierten Betrge enthalten nur "
	.zeile2.Caption = '    Gehaltsteile mit "x" in Spalte "W".'
	Do Case && zi(1+4)
		Case zi(1+4) = 6 .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 24)&& AOK_version vorher ohne 6
			If zi(1+4) = 6
				&&AOK_Version
				.Zeile3.Caption = "2) Nur der September wird genommen."
				.Zeile4.Caption = ""
			Else
				.Zeile3.Caption = "2) Durchschnittsbetrag der gelb markierten"
				.Zeile4.Caption = "    Monatsgehlter."
				.Zeile5.Caption = "3) Fehltage in mageblichen Bruchteilsmonaten"
				.Zeile6.Caption = "    werden mit Durchschnittstagesgehalt gefllt."
			Endif
	Endcase
Endwith

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	

ENDPROC
     K    2  2                           %                          U    F   Q T  a U 
 SZANZEIGEN MYFORM1 VISIBLE  C    " T           " T           " T           " T   	        " T   
         U  THISFORM SIZER	 FRMRESIZE
 GRDSZANZEIGEN COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4 COLUMN5x
 T   A T    + gridcolor_szanzeigen(RECNO('szanzeigen'),1)A T    + gridcolor_szanzeigen(RECNO('szanzeigen'),2)A T    + gridcolor_szanzeigen(RECNO('szanzeigen'),3)A T    + gridcolor_szanzeigen(RECNO('szanzeigen'),4) T 	 - %C
 
A
 T  V
 T 
 
   T 	 
  T  C   T
    T  
 T      
 H|% C
   C
 		6' T  Jhrliche Sonderzuwendung% C
 
 C
 	|! T  Jahressonderzahlung 1 T       fr CC
    F $ %C
  C
  T      A T Z *$ T      Tatschlich 	 # >   Januar [	 # >   Februar [	 # >   Mrz [	 # >   April [	 # >   Mai [	 # >   Juni [	 # >   Juli [	 # >   August [	 #	 >  	 September [	 #
 >   Oktober [	 # >   November [	 # >   Dezember [	 #
 >   Belegte Monate [	 # >   Basis-Gehalt 2) [	 #! >   / 12 * belegte M. [	 #= >   davon CCCC
   Z  % [	 #3 >    + CC  Z  Kinderzuschl. [	 # >  
 Zwischensumme [	 #= >   minus CC   Z  TAG(e) Umwandlung [	 # >  
 S U M M E  [  (	 # * >   CC  " d
 ###,##0.00!  [ 	 #) >   CC" d
 ###,##0.00!  [	 #
 >   CC#  Z [	 #% >   C$ d
 ###,##0.00!  [	 #% >   C% d
 ###,##0.00!  [	 #% >   C& d
 ###,##0.00!  [	 #) >   C'  d
 ###,##0.00!  [	 #. >   C& '  d
 ###,##0.00!  [ T( & '  	 #A T) $ d * + 1Zd@ * +   " >   C ) 
 ###,##0.00!  [	 #* >   C( d) 
 ###,##0.00!  [  (<		 # * > , CC  - d
 ###,##0.00!  [ 	 #) > , CC- d
 ###,##0.00!  [	 #
 > , CC#  Z [	 #% > , C. d
 ###,##0.00!  [	 #% > , C/ d
 ###,##0.00!  [	 #% > , C0 d
 ###,##0.00!  [	 #- > , C'  d1 
 ###,##0.00!  [	 #3 > , C0 '  1 d
 ###,##0.00!  [ T( 0 '  1 	 #A T) . d * + 1Zd@ * +   " > , C ) 
 ###,##0.00!  [	 #* > , C( d) 
 ###,##0.00!  [  (	 # * > 2 CC  3 d
 ###,##0.00!  [ 	 #) > 2 CC3 d
 ###,##0.00!  [	 #
 > 2 CC4  Z [	 #% > 2 C5 d
 ###,##0.00!  [	 #% > 2 C6 d
 ###,##0.00!  [	 #% > 2 C7 d
 ###,##0.00!  [	 #$ %C
  C
 
- > 2 C'  1 
 ###,##0.00!  C
- > 2 C'  d1 
 ###,##0.00!   [	 #$ %C
  C
 
3 > 2 C7 '  d
 ###,##0.00!  T( 7 '   3 > 2 C7 '  1 d
 ###,##0.00!  T( 7 '  1   [	 #A T) 5 d * + 1Zd@ * +   " > 2 C ) 
 ###,##0.00!  [	 #* > 2 C( d) 
 ###,##0.00!  [  (	 #  > 8 CCC  9  Z [ 
  > T:  - 1) Die gelb markierten Betrge enthalten nur 8 T;  '     Gehaltsteile mit "x" in Spalte "W".
 H4 C
  C
 
 C
 	 %C
 04 T<  # 2) Nur der September wird genommen. T=     ; T<  * 2) Durchschnittsbetrag der gelb markierten$ T=       Monatsgehlter.> T>  - 3) Fehltage in mageblichen BruchteilsmonatenA T?  0     werden mit Durchschnittstagesgehalt gefllt.   
  @ A  T B  B C  T D  D C 
  E  T F a UG  MYWEIHNACHTENANZEIGEN THISFORM
 GRDSZANZEIGEN COLUMN1 DYNAMICBACKCOLOR COLUMN2 COLUMN3 COLUMN4 MYFORM1 VISIBLE ZI J KCOMBO FALSE Z20 CAPTION ZT20 MONAT ZTI	 NEUERNAME ZEILE0 WELCHESJAHRC ZT0
 SZANZEIGEN HEADER1 F0 WEIHNACHTSGELD
 WEIHFAKTOR
 WEIHKINDER WNW TVDSOZAMINUSTAGE I F1 MYFORMAT	 WEIHVZENG ZWLFTEL WEIHVZBASIS WEIHVZ12 WEIHVZQ KIZU
 HSZWIJASOSUMM
 MINUSTAGEWERT T1 VALUE F2	 WEIHTZENG WEIHTZBASIS WEIHTZ12 WEIHTZQ TEILZEITFAKTOR F3	 WEIHBZENG	 ZWLFTELB WEIHBZBASIS WEIHBZ12 WEIHBZQ F4 FEHLTAGE ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Destroy,      Resizej      Init    1 q A  3 !!!!!2   T   A  1A  q  QqQA A r A AA  aA  qA  AA  QA  1A  AA  AA  aA  A  qA  A  A  A  A  A  A  1A  A  A  A s A A  A  A  QA  QA  QA  A  A a !A  A s A A  A  A  QA  QA  QA  A  1A  !A  A r A A  A  A  QA  QA  QA  A A A  A1 1A A  !A  A r A A   AQB AA A A  rq  2                       B         _   6        Q  g       )   2                        grid      grid      
grdSzanzeigen      FORM1     ColumnCount = 5
DeleteMark = .F.
Height = 401
Left = 26
Panel = 1
ReadOnly = .T.
RecordSource = "szanzeigen"
RecordSourceType = 1
Top = 91
Width = 509
Name = "grdSzanzeigen"
Column1.ControlSource = "szanzeigen.f0"
Column1.Width = 174
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "szanzeigen.f1"
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "szanzeigen.f2"
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.ControlSource = "szanzeigen.f3"
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.ControlSource = "szanzeigen.f4"
Column5.Width = 75
Column5.ReadOnly = .T.
Column5.Name = "Column5"
      header      header      Header1      FORM1.grdSzanzeigen.Column1      "Caption = "1)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzanzeigen.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzanzeigen.Column2      (Caption = "Vollzeit"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzanzeigen.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzanzeigen.Column3      (Caption = "Teilzeit"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzanzeigen.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzanzeigen.Column4      +Caption = "tatschlich"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzanzeigen.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzanzeigen.Column5      1Alignment = 1
Caption = "3)"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzanzeigen.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 603
Left = 531
Visible = .T.
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 12
Left = 205
Height = 30
Width = 140
Caption = "Hilfe"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
      SPROCEDURE Click
Msg = "20510"
inet = 111
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  )  T   20510
 T o   U  MSG INET INSINTERNET Click,     1 ! q 1                       H       )                            
commandbutton      
commandbutton      
sscommand2      FORM1      ~Top = 12
Left = 347
Height = 30
Width = 140
Caption = "Schlieen"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 12
Left = 63
Height = 30
Width = 140
Caption = "Drucken"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      4PROCEDURE Click
DO weihnachtendruckenalt
ENDPROC
                                      H   %   Q       f      `             U  
     U  WEIHNACHTENDRUCKENALT Click,     1 q 1                       )       )                            label      label      zeile0      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 12
Caption = "Sonderzahlung fr "
Height = 22
Left = 34
Top = 53
Visible = .T.
Width = 149
Name = "zeile0"
      label      label      zeile1      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 501
Width = 490
Name = "zeile1"
      label      label      zeile2      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 518
Width = 490
Name = "zeile2"
      label      label      zeile3      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 535
Width = 490
Name = "zeile3"
      label      label      zeile4      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 552
Width = 490
Name = "zeile4"
      label      label      zeile5      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 569
Width = 490
Name = "zeile5"
      label      label      zeile6      FORM1      OCaption = ""
Height = 18
Left = 33
Top = 586
Width = 490
Name = "zeile6"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
   %   	        9     G@P$      ) T  CC   C C  f  LOAD6                 	  
      
          T a                   B U  LCUNLOAD WWUTILS WWAPI WWEVAL
 WWCOLLECTIONS WWCONFIG WWBUSINESSOBJECT WWSQL WWXML WWHTTP WWFTP WWSOCKET WWSCRIPTING WWREGEX WWPDF
 WWXMLSTATE WWXMLADAPTER WWCACHE LLDOTNETBRIDGELOADED WWDOTNETBRIDGE WWSMTP WWJSONSERIALIZER
 WWJSONSERVICE WWSFTP WWENCRYPTION MARKDOWNPARSER	 WWDYNAMIC 4    5  / T CC pcMethodb C C f  ADD6 %C
Y  B  T  CCC  `@ T CC PATHv@ %  ADD %C   C  
 	 B     %C ;   ;   	 B    T   ;   b  %C ;   ; 
5	 B    T C  ;   T C     SET PATH TO &lcOldPath
	 B  U  PCPATH PCMETHOD APATH	 LCOLDPATH PathU    } z q r q q r q q r q q r q q r q q  q r q q q q q q q B 5   B A BQB A  A a  A q!A  1                      
  B     %       #      IQ%  $  G+( wwUtils G+( wwEval U  WWUTILS WWEVAL     T  - T  C   %    T  a$ %       C z T  C  T  C    T  CE  T  CE B 	   B   U
  LCEVALSTRING THIS LERROR RESULT NERROR LAERROR
 CERRORMESSAGE NERROR2
 CERRORCODE VERRORRESULT         -  T C   (   %C U 
 T    
 Hf     ERRORMESSAGE  T  Error:     
 EXPRESSION  T  Error:    2 
 T    	 B  U  LCEVALSTRING
 LCERRORRESULT LCRESULT LOEXCEPTION MESSAGE      Q	 EXCEPTION T  - B  &lcEvalString
 (   T  a T     T     T      %    B 	   B U
  LCEVALSTRING LOEXCEPTION THIS LERROR
 CERRORMESSAGE MESSAGE NERROR ERRORNO
 CERRORCODE VERRORRESULT        T  - %C  
 C 
	|  %C ]  T C  N x  T C     8 T 	 loObject. CC (       ()6 T  C  %   T  CE  - CE B 	   B   U
  LCCLASS LCMETHOD
 LCCLASSLIB LOOBJECT THIS LERROR LCEVALSTRING RESULT
 CERRORMESSAGE VERRORRESULT         T CC 	  <%=  6 T CC   %>  6 % 
  T  C   <%= <#= T  C   %> #> T  C   <% <^ T  C   %> ^>  G`  T C  -   U  TCSTRING TCDELIMITER TCDELIMITER2
 LLNOASPSYNTAX LCRESULT      '      	 
    5
  T
 - T CC   <%  6 T CC   %>  6 %   
 T   
 T  
 T 
 T 
 T   C C   C        %C <% if    c +a_    , T C    <% if  <% endif %>-a  %C  ! # T C    <% if  %>-a  %C  !   T C   if  %>--  T C 
 % >% T C   %> <% endif %>  T  C     [ T  C        
 T
   +     	 T C    %   T C     %   .  %  % T C   C >  C >\ T  -
 %  T C  %  g T C  _  %C  C T C _    %  =	   :q    T   : T C C
 C
    T CC \ %  
m %C  CE T C _  % i T C       C     T    %C  C
 T       %  
 
 
	R %  
) T C  <% <!--% T C  %> %--> % T  C     C `  T
 - T
 
  %
  ! G T  C     
 <!--% ERROR: CC         %-->   T  C   C >CC >X[ .   	 B   U  TCSTRING TCDELIMITER TCDELIMITER2
 LLNOASPSYNTAX LNLOC1 LNLOC2 LNINDEX
 LCEVALTEXT
 LCEXTRACTTEXT
 LCOLDERROR
 LNERRCOUNT LCTYPE LCRESULT PLEVALERROR LNDIFFERENT THIS
 SETRESULTTYPE SETERRORRESULT	 LCFULLTAG LCEXPRESSION LCFULLBLOCK LCEXTRACTED EXTRACT LLRESULT LERROR VERRORRESULT LLENCODE
 ENCODEHTML EXECUTE RESULT LALLOWEVALRECURSION    T  - %   $ T C] \C] .prg C   
   G+(C    T CC  ()   <C   
     C  FXP	 B     Q	 EXCEPTION T   T 	 C   (  T  a % 
 
7 T  ' Compilation Error: Syntax error in code T     T 
    T      T   
  T   
  T      %   B    B 	  U  LCCODE THIS LERROR LCOMPILECODEBLOCK LCFILE LVRESULT EVALUATE LOEXCEPTION LOPASSEDEXCEPTION RESULT ERRORNO
 CERRORMESSAGE LINECONTENTS LINENO MESSAGE NERROR
 NERRORLINE
 CERRORCODE VERRORRESULT      T  -  T CC 	 C]  6 C  .PRG     T  C  () % 
     .PRG    .FXP     .ERR %   T  a T  CE  - CE T  C, B 	   B   U
  LCEXTRACTTXT
 LCFILENAME LLNODELETEFILE THIS LERROR FILE2VAR RESULT
 CERRORMESSAGE
 NERRORCODE VERRORRESULT  4           	 
 
 T	 Ct
 T     (	  " T   ,lvParmC _ 0 T C EXECSCRIPT(lcScript  ) 
 	 B  U  LCSCRIPT LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LNX LVRESULT LNPARMCOUNT LCTFILE LCPARMSTRING THIS EVALUATE@    & T  CC   C C  f  C6 T     U  LCTYPE THIS CRESULTTYPE     T     U 
 LVERRORRESULT THIS VERRORRESULT  B    U  THIS LERROR-  %   
 	 B   B    U  THIS LERROR NERRORO       T  a T      T    T  CE U  NERROR CMETHOD NLINE THIS LERROR
 NERRORLINE
 CERRORMESSAGEc#           %C ? 
 T    %C _ 
 T  ! %C
 __goEvalTimerb O  7   T C wwEvalTimerN
 T	   %    T	 
      T	      T	   
 T	 
   T	    T	    T	    T	    T	  U  LCCODE LNMS LNREPEAT LNMODE LVSTATE LVSTATE1 LVSTATE2 LLDONTTRAPEXCEPTIONS
 __GOEVALTIMER LOTIMER CEVALEXPRESSION
 CCODEBLOCK LTRAPEXCEPTIONS NITERATIONS STATE STATE1 STATE2 INTERVALL      T    T  - T    %C      %      C 	  T 
    (   T 
   +  wwEvalTimer Timer failed:       C 	    5 
 T  . T C   this. __THIS. T
 C wwEvalN C  
   %C  O T 
 
    T   T     %     T    T  - T    %  
 C    E T    T  a  U  LOTIMER LCCODEBLOCK
 LNINTERVAL THIS INTERVAL ENABLED
 CCODEBLOCK LOEXCEPTION LTRAPEXCEPTIONS CEVALEXPRESSION	 CERRORMSG MESSAGE __THIS LOEVAL
 EXECUTESCRIPT LOEVEL
 CERRORMESSAGE NITERATIONCOUNT NITERATIONS
 LCLEANUPSTATE CLEANUPSTATE-  T   - T   - T   - U  THIS STATE STATE1 STATE2 Evaluate^       SafeEval      ExecuteCommand      EvaluateClassMethod      MergeTextEx     	 MergeText      ExecuteT     
 ExecutePRGE     
 ExecuteScript     
 SetResultType&      SetErrorResult      IsError      GetErrorNumber      ERROR.     	 EvalTimer     TIMER     CleanupState;    " T  -
 T  
 T   T  L T -
 T    T 
 T  
 T   
 T	    T
 - T -
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
      U  LERROR NERROR NERROR2 CRESULTTYPE VERRORRESULT RESULT
 OCODEBLOCK
 NERRORLINE
 CERRORCODE
 CERRORMESSAGE LCOMPILECODEBLOCK LALLOWEVALRECURSION 
 T    
 T   
 T  T a T a T - T - T -  
 T  
 T	   
     
      U
  CEVALEXPRESSION
 CCODEBLOCK NITERATIONS
 LCLEANUPSTATE LTRAPEXCEPTIONS STATE STATE1 STATE2 NITERATIONCOUNT	 CERRORMSG wwEval RELATION     wwEvalTimer Timer    1 q  " A AA  A ! A  >        A    A A  : q A    11A  A B =  q    1A A ! A  = 1 A b q1 1rq     A        A A 2 A A   QQ QA A A  RRA A S   ! Q A A   !AQ A  !A A  Q A A A A S  A A uA  A A A A  < q  A  1 1 A   1  Aq 1A 211A  A  =    !!A !   A  ? 1  q!A  ; q a< q :  :  A  9    @1 1  A   A q A   A  01   #r    1A   A  q  aQ1A  A r  A   A =    5                    
   `     <          r      9                        M        o
  n   (     $     8   D  o     J   +       W   D   4       +6  v<       <  1A       KA  B       \D  D  4     qF  F  C    H  I  O    I  K  Z  
  K  K  g    M  mP    +  [  n`    T  b  Eb  F  X    K  $   |  P  hb      %   0           IQ%  D  G+( wwConfig G+( wwXML G+( wwAPI G+( wwUtils U  WWCONFIG WWXML WWAPI WWUTILS     T  C  f
 H)      XMLs  %C  Y  B-  CC        INI  %C    B-  C        REGISTRY 
 C    Ba U  LOOBJECT THIS CMODE	 CFILENAME	 CREATEXML SAVEINI SAVEREGISTRY     T  C  f
 H)      XML  %C  
 C  0
f  B-  T C   C        INI  BC         REGISTRY 
 BC    B U  LOOBJECT THIS CMODE	 CFILENAME LCXML LOADFROMXML LOADINI LOADREGISTRYH  T  C wwAPIN T C   BC      a    U  LOAPI LCXML THIS	 CREATEXML WRITEREGISTRYSTRING CREGPATH CREGNODEa  T  C wwAPIN T C        %C I  B-  BC     U  LOAPI LCXML READREGISTRYSTRING THIS CREGPATH CREGNODE LOADFROMXML T  C wwXMLN T   a T      T   CC  @ T   CC  @? T   CC   9
 C    _ 
	  _   6    %    config  T    wwConfig  T         BC   	     U
  LOXML LRECURSEOBJECTS LSTRIPTYPEPREFIX THIS CDOCROOTNAME	 CFILENAME
 STARTSWITH CPROPERTYEXCLUSIONLIST OBJECTTOXML CSUBNAMEa     T C wwXMLN T  a T     C        B   U  LCXML LOXML LRECURSEOBJECTS LSTRIPTYPEPREFIX THIS XMLTOOBJECT LERRORZ    )        	  T	 C wwXMLN T	 
 	 
  
   T CC 	     6 T
 CC  @   %C   O 
 T     T C wwAPIN T C   b  ( L T CC   @- %C ,  , ,	 
  , K .  T C	 loObject. b T C	 loObject.  %   T CC \  T C  
 HH C   C 
      NULL     C2 C 
     C `     D	   Tn C 
     C _     L/ C 
     C   On  Off6     O/ THIS.SaveIni(loObject.&lcField,lcDispField)
   U"  C 
      NULL   2H C 
     C _     Ba U  LOOBJECT LCNAME LCOUTPUT LNX LNCOUNT LAFIELDS LCFIELD LCTYPE LVVALUE LOXML CPROPERTYEXCLUSIONLIST THIS CSUBNAME
 LCFILENAME	 CFILENAME LA_ARRAY LOAPI LSTRIPTYPEPREFIX LCDISPFIELD WRITEPROFILESTRING    9         	 
     %C   Of 
 T      T CC 	  
   6 T C   T C wwAPIN T C wwXMLN T       T C   b
 T    (  T CC   @* % ,C @ , ,   ,[ .  %   T C \ 
 T    T	 C	 loObject. b T
 C         %C
 	 	  O	 . 
 H 	  CM5 loObject.&lcField = lcValue
 	  NIFm$ loObject.&lcField = VAL(lcValue)
 	  T% loObject.&lcField = CTOT(lcValue)
 	  D% loObject.&lcField = CTOD(lcValue)
 	  LP! %
  1 C
 f ON) loObject.&lcField = .T.
 L loObject.&lcField = .F.
  	  O. THIS.LoadIni(loObject.&lcField,lcXMLField)
   Ba U  LOOBJECT LCNAME
 LCFILENAME LOAPI LOXML LNPROPERTIES LNX LCFIELD
 LCXMLFIELD LCTYPE LCVALUE LAPROPERTIES THIS CSUBNAME	 CFILENAME CPROPERTYEXCLUSIONLIST LSTRIPTYPEPREFIX GETPROFILESTRING Save       Load      SaveRegistry       LoadRegistry     	 CreateXMLB      LoadFromXML      SaveIni      LoadIni
     e
 T     T  config T 3 T & SOFTWARE\West Wind Technologies\Config T 
 Parameters T  INI T a  { T " ,cfilename,oxml,cregpath,cregnode,& csubname,cmode,cpropertyexclusionlist, loverwriteini,lstriptypeprefix
     
     
     
     
     
     
     
      U 	 CFILENAME CSUBNAME OXML CREGPATH CREGNODE CMODE LSTRIPTYPEPREFIX CPROPERTYEXCLUSIONLIST wwConfig Relation    #  01 r R q!q A bq!q A  A r 3 r R qq A 2q A B 4 R4 S q A 3 S 1A r3 r R 1S 3  RA R A RRrAA A A  A   !!!! A A r 3  R A !RQT qAA A !  A A A  1AA!Q!Q! A !A A r 1  1 1q r   p   `   1                    	    |        
     (   
       ,          3     9     ?   [       F          q     i"  #     R  i"  f   '  %   N  %V  f_  w  xV  VAR6%  E  G+( wwBusinessObject G+( wwUtils G+(
 wwCollections U  WWBUSINESSOBJECT WWUTILS
 WWCOLLECTIONSJ  %C   7 % T   C wwValidationErrorsN  B    U  THIS OVALIDATIONERRORS  U  #          
 C 	  %C 
 
x , C Error: Unable to open table. 	 
 B 
 H ]    H T    T  C T  
  T C  %C 
n Q     %C 
j4 C Unable to open ID table:     	  %C  \
 F   
 B   T  GM(
 F  -C fC  f
 %C4
  >        (''
 F  %CS % 

. >   C
 >  
 T  
 F   T CO! LOCATE FOR &lcPKField = lnId2
 %C4 Z  %    CN		 #   .  %    CN		 #  
 F 
 T    Z  !  %C  D
 F      /
 T  " C  	 cFileName     C   nID OUT   # %C sp_ww_NewId   
6 C Unable to create unique ID.     	 
 B  T C nID       ] 5 
 T   C pnId  a   " C	 pcPKField     % C	 pcIDTableC 
    C %C Execute sp_ww_NewId '   ',?@pnID    
>6 C Unable to create unique ID.     	 
 B  T C pnId     % 
+ C Unable to create unique Id. 	  	 B  U 
 LCOLDALIAS	 LCPKFIELD LNX	 LCIDTABLE	 LCIDALIAS LNID LNID2 LNRECNO THIS SETERROR OPEN	 NDATAMODE CPKFIELD CIDTABLE CIDDATAPATH	 TABLENAME CALIAS ID OSQL ADDPARAMETER	 CFILENAME EXECUTESTOREDPROCEDURE	 CERRORMSG OPARAMETERS VALUE PNID OHTTPSQL ADDSQLPARAMETER EXECUTE GETSQLRETURNVALUE         
 C   T C   %  L , C Load failed - no key passed.   B- 3 %  N    	   C C  	 
 BC    %C 	 
  B- 
 H   
   T     LOCATE FOR &lcPKField = lnpk
 %C4~ ^J   % 
 j ^J    T   
 ^J   % 
 
 ^J   ( C Load - Record not found.   B- "  
   
  5 
 T    % 
 Y T    C pnPk     q T    A T   select * from     where    =?pnPk T C     %  %   C      B-  %CN \ ^J   % 
 H ^J    T   
 ^J   % 
 
 ^J    C No match found.   B-   Ba U  LNPK LNLOOKUPTYPE LORECORD	 LCPKFIELD LNRESULT	 LCVARTYPE THIS SETERROR NEW OPEN	 NDATAMODE CPKFIELD ODATA LCOMPAREUPDATES	 OORIGDATA NUPDATEMODE PNPK LOSQL OHTTPSQL ADDSQLPARAMETER OSQL CSQL	 CFILENAME EXECUTE LERROR	 CERRORMSG         %C 7  T  * 
 C   %C  
a  B- 
 Hr     ? T C Select    from  
   where    	  %   ^J   %    ^J 
   T   |
 ^J   %  D
 ^J 
  - C GetRecord - Record not found.   B- "       %   T     T    ? T C select    from     where      % ` %  U C      B-  %CN  ^J   %   ^J 
   T   
 ^J   %  
 ^J 
   C No match found.   B-   Ba U  LCFILTER LCFIELDLIST LORECORD	 LCPKFIELD LNRESULT THIS SETERROR OPEN	 NDATAMODE QUERY CALIAS ODATA LCOMPAREUPDATES	 OORIGDATA NUPDATEMODE LOSQL OHTTPSQL OSQL EXECUTE	 CFILENAME LERROR	 CERRORMSG       
 C   %C  
8  B-  %  
  T C   %C  + C Couldn't create ID.      B-  T     THIS.odata.&lcPKField = lnpk
  T 	  Ba U
 	 LLNONEWPK	 LCPKFIELD LNPK THIS SETERROR GETBLANKRECORD CREATENEWID	 CERRORMSG CPKFIELD NUPDATEMODE    
 C   %C  
1  B- 
 HB p    c 
 ^J      : T C select * from  	 
  where 0=1    %   C  
    B- 
 ^J     p> %C select * from  	 
  where 0=1    
_ C  
    B- 
 ^J    %  
 ^J 
   Ba U  LORECORD LNRESULT THIS SETERROR OPEN	 NDATAMODE ODATA OSQL EXECUTE	 CFILENAME	 CERRORMSG OHTTPSQL LCOMPAREUPDATES	 OORIGDATAO          T a
 C   % 	 	 C 
 
	Z  B-  T    %C  
  B-  T C 
  x@@!
 H ?    
 H    3 7 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
 T      T    / LOCATE FOR &lcPKField = loRecord.&lcPKField
 %C47 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
 
 7 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
       Q WWSQL  T    T  -( T CCChC FoxProCh\g
 H   2# T  C         T    
 C   %  
 C  
 C     B-  T      T     5 % pvPk = TRANS(loRecord.&lcPKField)
H C select     from     where    =?pvPk   %   C     B-  %CN
(  T C         i9 T C       C  	    -6      %C 
 T    C      C RESET    %  
 C  
 C     B-     ? T    T C wwSQLN
 HD;    T  C      
 C   %   C     B-  T     ; T     5 * pvPkValue = TRANS(loRecord.&lcPKField)
M C select     from     where    =?pvPkValue   %   C     B-  %CN
 T C       4 T C       C  	    -6    C     %  7 C     B-   	 B  U  	 LCPKFIELD LLRETVAL LORECORD LCSQLCOMMAND LOSQL LOTSQL
 LCSKIPVARS THIS SETERROR LVALIDATEONSAVE VALIDATE ODATA OPEN CSKIPFIELDSFORUPDATES	 NDATAMODE NUPDATEMODE CPKFIELD LLUSENAMEDPARAMETERS OSQL LERROR CSQL! SQLBUILDINSERTSTATEMENTFROMOBJECT	 CFILENAME EXECUTE	 CERRORMSG PVPK! SQLBUILDUPDATESTATEMENTFROMOBJECT LCOMPAREUPDATES	 OORIGDATA ADDPARAMETER OHTTPSQL	 PVPKVALUE       ! T  CC  
      6 %    C  	[  B- 
 Hl     ^! T CC 
     6" %C  
 C  fC  f	  T     %C  
 F  Z F   Q      %C 
V& C Unable to open    	  B-     + %C 
    T 
 C wwSQLN Ca 
   %C  T     %C   
 
 

 C 
   	  B-   T 
        %C   T  C	 wwHTTPSQLN T      T      T        Ba U  LCFILE LCALIAS LLFORCERECONNECT LCCONNECTSTRING THIS	 CFILENAME	 NDATAMODE CALIAS	 CDATAPATH SETERROR OSQL ENABLEUNICODETOANSIMAPPING CCONNECTSTRING CONNECT	 CERRORMSG CSKIPFIELDSFORUPDATES OHTTPSQL
 CSERVERURL CSQLCONNECTSTRING 
 H
       E  %C   A  Q        g  T         T     U  THIS	 NDATAMODE CALIAS OSQL OHTTPSQL
      
 C   %C  
8  B-  T    %C  {   lnpk = THIS.odata.&lcPKField
 
 H        DELETE FOR &lcPKField = lnpk
   aA T   DELETE FROM  	   WHERE     =C  _ T C   
   % ] C 
     B-    H T C DELETE FROM  	   WHERE     =C  _ 
   %  
 C 
     B-  
 C   Ba U  LNPK	 LCPKFIELD LNRESULT THIS SETERROR OPEN CPKFIELD	 NDATAMODE CSQL	 CFILENAME OSQL EXECUTE	 CERRORMSG OHTTPSQL GETBLANKRECORD         T  CC  	      6  T CC 	     6  T CC 	     6 T  C  V
 C   %C 	 
 
 B  %C  
 C   C
  T      %C  	 T   SELECT *  %C  FROM    % 
  k/ T      FROM  'C     '  % T      FROM C       %C    SELECT a
 
 T  	 SELECT *     T    
 H  
   %C  INTO   J" T    
  INTO CURSOR    T  C    
 &lcSelect
 %C 

 B  T     
 E T     T     T C       %  
" C     
 B  T     T CN  
  T     T     T C       %  
 C     
 B  T      %  
 C       	 B  U  LCSELECT LCCURSOR LNRESULTMODE LNRESULT THIS CSQL
 CSQLCURSOR NRESULTMODE SETERROR OPEN	 NDATAMODE	 CDATAPATH	 CFILENAME
 STARTSWITH
 FLATTENSQL LCOLDCURSOR OSQL EXECUTE	 CERRORMSG OHTTPSQL CONVERTDATA<       %C  
- 	 B   %C P  T     T  -
 Ho ,      T  C    
 &lcSQL
 %   
 T     T      s T 	    T C    	 
  T  	 TSQLQuery %  
\ C 	    	 B   T  	 
    , T     T C     
  T  	 TSQLQuery %    C     	 B   %  
(
    	 B   	 B  U  LCSQL LCCURSOR LNRESULT THIS OPEN
 CSQLCURSOR LERROR	 NDATAMODE
 FLATTENSQL OSQL EXECUTE SETERROR	 CERRORMSG NAFFECTEDRECORDS OHTTPSQL     BC      U  LCSQL THIS EXECUTE1        %C  
/  B- 
 H@ #      T  LOCATE FOR   
 &lcCmd
 %C4  % 
  ^J   %    ^J 	    Ba   % 
 
 ^J       # T 
  	 TSQLQuery7 T 
   select * from  
   WHERE    T C 
   %  C 
     B-  %CN  % 
 ^J   %   ^J 	    Ba  % 

 ^J      B- U  LCFILTER LLNODATAMEMBER LCCMD LNRESULT THIS OPEN	 NDATAMODE ODATA LCOMPAREUPDATES	 OORIGDATA OSQL
 CSQLCURSOR CSQL	 CFILENAME EXECUTE SETERROR	 CERRORMSG
  Ba U  w     ! T C wwValidationErrorN T     %C 
\  T     C      U  LCERROR LCCTLID LOERROR CMESSAGE COBJECTNAME THIS OVALIDATIONERRORS ADDR       T C
 wwXMLStateN C      BC      U 
 LCPROPERTY
 LOXMLSTATE LOADXML THIS ODATA XML GETPROPERTYq        T C
 wwXMLStateN C      C        T   C   U	 
 LCPROPERTY LCVALUE
 LOXMLSTATE LOADXML THIS ODATA XML SETPROPERTY GETXML     R,:   U 	 LCMESSAGEc      %Ct >  T     T  - B  T     T  a U 
 LCERRORMSG LNERROR THIS	 CERRORMSG LERROR         %C  0  Ba  %C W  T  datarow  %C   T 	 sqlresult  %C   %  

  T CC@   T C  @  
 H    F T C wwXMLN T    T  C     	  T 
       T C wwXMLN T    T   T  C     	  T 
      0 T C wwXMLN T    T   T  C     	  T 
      j) CCW THIS.cResultXML       * CCW THIS.cResultXML   1     Q
 XMLADAPTER T C
 XMLAdapterN CCaC  
  C THIS.cResultXML     q T C wwXMLN T    T  C          T C wwXMLN T    T   T  C         
9 T C wwXMLN T    T   T  C          T C wwXMLN T    T  a T    ٮ ,cpkfield,cskipfieldsforupdates,ndatamode,lerror,nresultmode,calias,cfilename,cdatapath,csql,csqlcursor,cerrormsg,cresultxml,cconnectstring,cidtable,nupdatemode,osql,vresult, T    T  C       T 
      O T C wwXMLN T    T C  $ T C] \C] .xml C  C      T C AdoDB.RecordSetN C     T 
  
      ($ T C] \C] .dbf (  T 
 C  a   C  *   @ T 
 CC 	 QC   25  T C wwJsonSerializerN! T 
 C cursor:C     3  T C wwJsonSerializerN" T 
 C cursor:Ca    Ba U  LNRESULTMODE	 LCDOCROOT LCTABLE LCROW LOXML THIS CLASS CDOCROOTNAME
 CRESULTXML CURSORTOXML VRESULT NCREATEDATASTRUCTURE OXA ADDTABLESCHEMA TOXML OBJECTTOXML ODATA LRECURSEOBJECTS CPROPERTYEXCLUSIONLIST LCXML CURSORTOADOXML LCFILE FILE2VAR	 ENCODEXML ORS OPEN	 ENCODEDBF CURSORTOCOLLECTION LOSER	 SERIALIZE-     %C  N- 
 T   
 H>     T C wwXMLN T  a T C        %    C 	    B-  2 T C wwXMLN T C    
    %   C 	    B-   Ba U  LCXML LNMODE LOXML LRECURSEOBJECTS LVRESULT XMLTOOBJECT THIS LERROR SETERROR	 CERRORMSG ODATA+        %C  ] 1 C! No parameter passed to importdata   B- 
 Hn     %C   T 
 TXMLResult  %C 
  C    oC-   T C wwXMLN BC            V T C wwXMLN BC       C   %C  T 
 TXMLResult  C   Ba'         
 T C wwXMLN BC   	      G T C wwXMLN T 
 a BC         ( %C ~ T 
 TXMLResult $ T C] \C] .dbf T C    
 
 %  Q     o __IMPORTǼ  Q    C  *	 B   Ba U  LNMODE LCXML LCALIAS THIS SETERROR LOAD LOXML XMLTOCURSOR XMLTOOBJECT ODATA LRECURSEOBJECTS LCFILE LLRESULT	 DECODEDBF __IMPORT7      %C   O0 
 T    H  T C  N  T    
 Hl '      T    T         T     C       ' T   T     T 	  	  	 B  U
  LCCLASS LOOBJECT	 NDATAMODE THIS	 CDATAPATH CCONNECTSTRING SETSQLOBJECT OSQL
 CSERVERURL OHTTPSQL     %C   OY  T     T      T   Ba  %C   C  %C    T  C wwSQLN  T   %C      
  B-   Ba U  LVSQL THIS OSQL CCONNECTSTRING	 NDATAMODE CONNECT  GT G GM( G{ G  G G." %       k  T  CC      T  C]CC      U  APPLICATION	 STARTMODE THIS
 CAPPSTARTPATH
 SERVERNAME PATH
     U 
 LCFILENAME %    h M C= Update Structure is supported only for physical Fox tables...    B-  %C     Ba  %C    $ T   CCCC    dbfл " %C          
  B- 
 F    Q T     T     T   C] T   C] \ C        	 
 C  
    
 C   
 C  
  (   Q         .* T     T     Ba U  THIS	 NDATAMODE SETERROR	 CFILENAME	 CDATAPATH
 OPENEXCLUSIVE CALIAS
 LCFILENAME
 LCDATAPATH CREATETABLE OPEN REINDEX    %   "  Ba " %C       
O  B- 
 F  
 T 
 T    +CC 
q` T  	 INDEX ON CC ]@  TAG CC @CCC ]
   FOR C ]   6 %CC U T    DESCENDING  %CC TI T    UNIQUE  T  C
  T    %C 
 	  C   3 Q
 %   T 
    Ba U  LLRETURNINDEXSTRING THIS	 NDATAMODE
 OPENEXCLUSIVE	 CDATAPATH	 CFILENAME CALIAS LNX LCOUTSTR ALL VRESULT     
 C   T C   %C  
 
 % Q 
     / C Backup Directory doesn't exist.   B-   (C     Q U  LCPATH LLCREATE THIS SETERROR LNRESULT QUERY	 CFILENAME  B     U  THIS OROWS COUNTB  %C   /  T   C
 CollectionN  B    U  THIS OROWS     C       U  LOITEM THIS OROWS ADDO     %  
     -  B-  C       Ba U  LNINDEX THIS NCOUNT OROWS REMOVE>     T     <   T  C
 CollectionN U  LOROWS THIS OROWSK    " %  
      0  B  BC       U  LNINDEX THIS OROWS COUNT ITEM         
 T    %C 
M  T C
 F   ~ 
 %    T C  N T    CC  	   	 ^J   C   
    %C 
 
 F   B 
   U
  LLLOADBUSINESSOBJECTS LCCURSOR X LOITEM LCOLDCURSOR THIS CLASS LCPK CPKFIELD LOAD OROWS ADD COUNTe         %    8  Ba 
 %    %C   -  
p   B-   Ba  T  	   ( 
 G
 %   T C      %C  
  C   
  B-  C T 	 C      %C  
? B-    T 	   Ba U  LLCOLLECTIONHOLDSCLASS LLUSETRANSACTION X LODATA LOITEM THIS OROWS COUNT SAVETOCURSOR ODATA NCOUNT ITEM SAVE SETERROR	 CERRORMSG oValidationErrors_access       Init       CreateNewId      Load      LoadBase      New      GetBlankRecord      Save/      Open      Close       Delete!      Query$      Execute)      ExecuteNonQuery+      Find,      Validate.      AddValidationError/      GetProperty/      SetPropertyd0     
 StatusMessage*1      SetErrorN1      ConvertData1      LoadFromXml:     
 ImportDatab<      CreateChildObject@      SetSqlObjectA      SetComEnvironmentB      CreateTableC      UpdateStructureC      ReindexQF      BackupH     
 nCount_AccessI     oRows_AccessI     AddJ     RemoveCJ     ClearJ     ItemK     LoadFromCursorK     SaveToCursorL    
 T    
 T   
 T    T  wws_id T 
 T    T -
 T 
 T   T	  TQuery
 T
   
 T   
 T   
 T
    T 
 T  
 T    T  PK T - T 
 T   
 T   
 T    T  T - T 
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      U 	 CDATAPATH	 CFILENAME CALIAS CIDTABLE ODATA	 CERRORMSG LERROR NUPDATEMODE NRESULTMODE
 CSQLCURSOR
 CRESULTXML CSQL VRESULT CCONNECTSTRING OSQL	 NDATAMODE CSKIPFIELDSFORUPDATES CPKFIELD LVALIDATEONSAVE OHTTPSQL
 CSERVERURL CIDDATAPATH
 CAPPSTARTPATH	 OORIGDATA LCOMPAREUPDATES OVALIDATIONERRORSk 
 T   
       T 
  !   
  "   
  #   
  $   
  %   
  &   
  '    U  NCOUNT OROWS wwBusinessObject CUSTOMQ     wwBusinessChildCollection wwBusinessObjectU    q1 "QA  ; 1 2 " A  A aA  A  A A    Q Q A   A  A       A B A  A   A  A A   A B !1a A Bq  #Q2a A A A  =  2 !q A 3 A "q A  A   A    A q A !q  B A q1A q A   A    A q A A r >     A  "q A  A  A    A q A !A A 1A q A   A    A q A A r  1 q   #q A   q A A r =   "q A  A Aaq A  Aaq A  A  A r <   q A "q A  A AQ qA q Q qA A CA  A11 1q A Aq Q1q A  A  QA 1q A A CQ A 1q A Aq 1q A  BA 1q A A A  >  q q A  A"A     aq A A C A aq A A aA!abaA A r ?  A! A A A A  1 q   "q A  A  AAaq A Aaq A A  r  1  q   " A A  RA A QA B A  A!A "    A A11a A 2 A11a A 2A aA  >  q " A  A   A!    A A1a A 2A12a A   A A  = q  1   "q A  A     A A q    A A AqBaq A    A A q    A A A r  1 u >  A B01 q r a 1  r aQq@1 q  =   A A   1 1q  r A  AA  aA    !A A  Q1Q1Q1QQQQQ R1QA A b1 !A r  1  R A  Q 1q A  R1q A A r =  q  q A   qA E QQQQS qA  q sQqQ Q qA Ab 1 A  A r > q q R  A 2 A1A11A11A  > q Raq A R!A q A A r = e b  a b a a # A  01 q > Bq A "r A !AA #q A  A 2    C r > q Cq A "q A    1"A !A 2A   A B B  A r =      q A A RC @1  5 !A  = q A= q q A Br < q q = q "q A B>      A   1!  A AA  A   1   rq A  Q sA q A R r A  !1q A  !q A A A r 7    3     3                        P   P  P  ` 0      `    	 ` ` P    0  p1        0   0  1                    4  
  _   
   
  ~  p        Q     c   x  $       (&  q,  ^     .  0       1  4      5  E    r  F  L      xN  nO      P  9T      V  ]  #  
  _  d    4  )f  f    8  4i  m    g  <p  p     i  r  `s  2  r  <u  u  N  y   x  x  e    z  {      i|  }        l          J    ԕ    q  5  [      K  s      ]  Φ      l      :  n  e  ձ  I      k                              $  P      q        M    +      r  =        Q    k    z            f        #  %   H  vP  X    P  IQ`%    G+( wwSql U  WWSQL7      %C  
0  C         U  LCCONNECTSTRING LLASYNCH THIS CONNECT 
 C    U  THIS CLOSE       
   %C  B  T     Z  T      %    
 C    %C   T  	   T 
 - T     T  - %C 
 
4   
 0 T    %C ?     LOCAL &lcParameterName
# &lcParameterName = loParm.VALUE
 %   OUT) T  C   ?  ?@   , %C ?@    ( LOCAL &lcParameterName
# &lcParameterName = loParm.VALUE
 T   OUT T  a     T    ! T  C      i T  a %   
t T 
 a
 C  B %C          C    	p! T  C      i %   
8 T 
 a
 C   l C CLEAR   T  C    X T 
 - %C  { 
 T 
 a
 C    T  C  %  T   
 P %C  f OUTL T    %C b UH T  C       T 	 	 TSQLQuery B   U  LCSQL LCRESULTCURSOR LLSTOREDPROCEDURE LCPARAMETERNAME
 ACOUNTINFO THIS CSQL
 NSQLRESULT	 SQLCANCEL
 CSQLCURSOR LERROR	 CERRORMSG AERRORS OPARAMETERS LOPARM NAME	 DIRECTION LOUTPARAMETERS
 NSQLHANDLE LPARAMETERRESET
 FILLERRORS NODBCERRORNO CONNECT CCONNECTSTRING NAFFECTEDRECORDS VALUE[      T    T C        %  
M  B-  Ba U  LCSQL LLSTOREDPROCEDURE THIS NAFFECTEDRECORDS LNRESULT EXECUTEl      T     C 	 DispLoginl C  DispWarnings-l# C  ConnectTimeout  l( %CCChC FoxProCh\g  C	 MapBinarya   %C =  
  T  C  f T a  %C dsn=  
 %C server=   L T  	 server=.;   6 %C driver=    C	 provider=   	% T   driver={Sql Server};     T     T  C   T -  %  
 T  a
 C 	  B-  C   
 
 % ^! C   Transactionsl  Ba U  LCCONNECTSTRING LLASYNC LLNOAUTOTRANSACTIONS THIS CCONNECTSTRING NTIMEOUT
 NSQLHANDLE LLUSECONNECTION LERROR
 FILLERRORS SETASYNCMODEa  %    #  C   d  %    J  C   g  T     U  THIS
 NSQLRESULT
 NSQLHANDLE6    , BC BEGIN TRANSACTION C       U  LCTRANSACTIONNAME THIS EXECUTE9    / BC ROLLBACK TRANSACTION C       U  LCTRANSACTIONNAME THIS EXECUTE7    - BC COMMIT TRANSACTION C       U  LCTRANSACTIONNAME THIS EXECUTEV     %C  f CLEAR3  T     B  T         U  LCCODE THIS CSQL        T  - T     T  C    f %  
  T  a
 C   B-   C   	   Ba U
  LCDSN LCUID
 LCPASSWORD LLASYNCH THIS LERROR CCONNECTSTRING
 NSQLHANDLE
 FILLERRORS
 SETASYNCHMODE@     . R,:# This  method is not implemented yet B U 	 LCDSNNAME LCCONNECTSTRING      '        	 
   T  INSERT  
 T   
 T    %C 
   T  ,TIMESTAMP_COLUMN,  - T  ,TIMESTAMP_COLUMN,C 
 f , + T C CC  O     6b T  -  ( w T C    % ,C f , Y .  T C loData.  %   T  - T  - .  T	 C  % 

 H 	  C
$ T
  'CC  ' ''` ' 	  N8 T
 CC _ , . 	  Lg T
 C   1  06 	  D	 	  T T
 C  a  	  Y T
 C   _ 	  X T
  null 2 .  T  
  , W   T  __  C       T   ?  ,  T   [  ],  %C  C 	 B    T C C >\ T C C >\ . T    ( 
 ) VALUES (  )	 B  U  LODATA
 LCFILENAME LOSQLRECORD LLUSENAMEDPARAMETERS LCFIELDLIST LCVALUELIST LNFIELDS LNX LCFIELD LCTYPE LCVALUE LCSQL THIS CSKIPFIELDSFORUPDATES LCSKIPFIELDS LAFIELDS LINTERNALERROR
 LCRAWVALUE LERROR
 TIMETOCSTRICT
 LCPARMNAME ADDPARAMETER1        +      	 
   
   %C d  T  PK  %C  O  T a %C   c 	 B      T -  %C    T  ,TIMESTAMP_COLUMN, %- T  ,TIMESTAMP_COLUMN,C  f , + T C CC  O     6b T  -
 T     (  T C    % ,C f ,  .  T
 C loData.  %   T  - T  - .  T	 C
 
 % s T C loOrigData. $ %
   C
  C 	o .   % 

 H 	  C$ T  'CC
  ' ''` ' 	  N T CC
 _ , . 	  L" T C
   1  06 	  D	 	  TS T C 
 a  	  Yw T C
   _ 	  X T  null 2 . & T    [  ]=  ,  C 
  __   ) T    [  ]=?__  ,   %C ;	 B    T C C >\% T  UPDATE    SET   %  NONE! T C loData.  %C  C+ T    WHERE   ='  ' ' T    WHERE   =C _  	 B  U  LODATA
 LCFILENAME	 LCPKFIELD
 LOORIGDATA LOSQLRECORD LLUSENAMEDPARAMETERS LNFIELDS LNX LCFIELD LCTYPE LVVALUE LCVALUE	 LVPKVALUE
 LVRAWVALUE LVORIGVALUE
 LLORIGDATA THIS CSKIPFIELDSFORUPDATES LCSKIPFIELDS LAFIELDS LINTERNALERROR LCSQL LERROR
 TIMETOCSTRICT ADDPARAMETER+ 4          	  
   5  T
 Ct
 T    %
        %C 
  T   ,  %   OUT  T   ?@     T   ?      
 (
 A# T   ?lvParmC
 _ ,  %C 
p T  
 ?@pvResult  %C 
 T C C >\   & T C Exec         %  B-  %C 

	 B   Ba U  LCPROCEDURE PVRESULT LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LNX LCPARMSTRING PNRESULT LNPARMS LOPARM THIS OPARAMETERS	 DIRECTION NAME LNRESULT EXECUTE        
 T         %   OUTp   T    ?@ 	  ,   T    ? 	  ,   %C 
  T C C >= ) T
 C Execute      a   %
 
 B-  Ba U  LCPROCEDURE LCCURSOR LNCOUNT LNX LCPARMS LOPARM THIS OPARAMETERS	 DIRECTION NAME LNRESULT EXECUTE          
 T    %C  J  T  C  T C< C select * from   
  where 0=1	 __TCursor   % 	   B- 
 ^J 
 F  ~x	 ^J  T 	 - T C        
  C     % 	 t* T    C
  C
 C
 
 % p T    B-    %C 
 T    T 	 a B-  T     Ba U  LCTABLE LLEXITONFIRSTERROR LODATA LCSQL LCERRORS
 LCOLDALIAS LOSQLRECORD THIS EXECUTE LERROR! SQLBUILDINSERTSTATEMENTFROMOBJECT	 CERRORMSG          
 % ?  T C   T 
 T     T C$ T C] \C] .dbf F   h1 	  M 
 >	   Q T
 C  C
 + C
  G C
 
 Q  %C OB T C INSERT INTO   (  ) values (?Image)   B T C UPDATE    set   =?Image WHERE      Q
    %  
 B-  Ba U
  LCIMAGEDATA LCFIELD LCTABLE
 LCWHERECLAUSE LLISFILE	 LCCONTENT LNRESULT
 LCOLDALIAS LCTFILE IMAGE LL THIS EXECUTE             %C f - T C select     from  	 
   < T C select     from    where  	 
   % 
 	 B   $ T C] \C] .dbf T C& T C ( 
 F  Q T C  C + C  M C  Q   T C	 __Timage.   Q   (FORCEEXT(lcTFileName %C 

 F  	 B  U
  LCFIELD LCTABLE
 LCWHERECLAUSE LCTFILENAME
 LCFILENAME LCALIAS LCRESULT LLFIELD LNRESULT THIS EXECUTE LLFILE __TIMAGE        . %   C THIS.oParametersb Ot  T  C
 CollectionN T  -  %C   C  T  C  `0 %   RESET
    CLEAR C 	  T  C
 CollectionN T  - B   T	 C EMPTYN C	  Value  
 C	  Name
 C	  Type
 C	  Size
 C	 	 Precision
 C	 	 Direction IN
 %C 
 T	 
    %C 
 T	     %C  N T	     %C  N7 T	 
    %C  C T	  C f %C f OUT T  a   %C 
 C 	        C 	 C]     U  LVVALUE LCNAME LCDIRECTION LCTYPE LNSIZE LNPRECISION THIS LPARAMETERRESET OPARAMETERS LOPARAMETER NAME TYPE SIZE	 PRECISION	 DIRECTION LOUTPARAMETERS ADD  U       T C T   __Count* %C SELECT @@ROWCOUNT  l  T     Q    T    %C 
 
 F  	 B   U  LNRESULT
 LCOLDALIAS THIS
 CSQLCURSOR EXECUTE __COUNT EXP    ( %CCChC FoxProCh\g^  %Ct K  T  a  C  ]  5 , Unicode mapping is supported only in VFP 9.0  U  LLSETD * |
 SQLSetEnvAttr
 odbc32.DLL C    U 
 SQLSETENVATTR ODBC32 DLLM    ) %C   Asynchronous  l7  Ba F  B-  U  LLASYNCH THIS
 NSQLHANDLE  BC   d U  THIS
 NSQLHANDLE      
 H  !      	  T   T  CE %C      T  - T   T     X   T 	 a
 C 
  U  NERROR CMETHOD NLINE THIS NERRORNO	 CERRORMSG CONNECT CCONNECTSTRING LERROR LINTERNALERROR
 FILLERRORSg      + T  CC lcClearb C C  f   6 %   CLEAR  T  - T    T    T     B  T C	 z %  `  
  C	  
 
 T C	  T C Server]  %  9 T C  C Server]>\ " %C THIS.nCodePageb N %C
 laError[3]b C T C	   %C
 laError[7]b N T  C	    T  C	   T  C	  %C  	 C  * T    2 T     [C  _ :C  _ ]  U  LCCLEAR LNLOC
 LCERRORMSG THIS LERROR NERRORNO NODBCERRORNO	 CERRORMSG LNCOUNT LAERROR AERRORS         T   
 T     T - %C  f  T a   $ T C  
   	  	 T
 C ?  +
  o T C 
 \ %     T
 C ?  .  T C   , %C R 'F T C  )  . %C >2 C  ?=&,%*$!    T
 C ?  .  %  @ T C \ CC    OUT   T C  ?@  ? B %C 
  
	 CC      ! T C  ?  ?   T C \ T
 C ?   %C   Ba  %   T  
         Q ADODB.PARAMETER% T C ADODB.Parameter     T   T     %C  
R T      %C  
 T     %C  
 T      %C  
 T       T C loParm.Valueb
 H    CF    %    O
 T  T  r
 T  T @  T   & %C  
 C  f OUT	 T     T  C  >  %  
 T    %   B T    T  C  >    Nx T   T     L T     T	   D T     W	   Qk T   T  C  > %  @? T   T    %   g T    2 T    & %C  
 C  f OUT	 T    C        T  a B   U  OCOMMAND LCSQL	 LCORIGSQL
 LLPARSESTRING LCPARM THIS CSQL OPARAMETERS LLPARMS COUNT LNAT ADDPARAMETER NCOMMANDMODE COMMANDTEXT LOPARM
 OPARAMETER	 DIRECTION VALUE NAME TYPE SIZE	 PRECISION LCTYPE LNADOSTRINGTYPE LNADOSTRINGSIZE	 NCODEPAGE
 PARAMETERS APPEND LPARAMETERRESET LERRORz+ 4          	  
   
 T
 Ct %
    (
   T  lvParmC _ CC   
     %
   T   T C   a
   % 
  B-  %C 

 C
  
	l  
  h$ %C  
    OUT	d T    B    Ba U  LCPROCEDURE PVRESULT LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LNCOUNT LNX LCPARM THIS ADDPARAMETER LNRESULT EXECUTE OPARAMETERS LOPARM	 DIRECTION VALUE]         %C  O # T  C ADODB.ConnectionN  %C  r  T       T       Q ADODB.CONNECTION  T C ADODB.ConnectionN T a  %  	   C     
   ( M T  C   
  T  a T - 	 B  U  LCCONNECTSTRING LLASYNCH LLNOAUTOTRANSACTIONS LLRESULT LOEXCEPTION THIS OADOCONN CCONNECTSTRING OCONN STATE OPEN	 CERRORMSG ERRORS ITEM LERRORS  %C   
L  %    :  C      T     U  THIS OADOCONN STATE CLOSE      T  - %C  <  T     T  T     = %C  @ insert C  @ update C  @ set   %C      	 B 
 B  %    
 C    %C 	 T  	   T 	 	 TSQLQuery T 
 - T     T  - 
  T
 C] %    C  ]  %C  
 T   T  a %    C
 ] 
 B  T      Q
 ADODB.COMMAND T C
 AdoDb.CommandN T     %  o T  a 
 %  T   T    T    T     C      Q ADODB.Recordset T C   T 
    %C  O %       Q
 CURSORADAPTER T C
 CursorAdapterN T     T !  ADO %    T "     T #  T $ - T % - T & - %C ) Q   T C--    '  % ( 
h C  )   % 

 C *  
 C +  T 
 F    
 C *  % ( 
 C  )   
 %  ,  - " %, .  , .  T / , 0 1 , 1  %C, 0 b U T2 , 0  &lcName = Parm.VALUE
     %    C
 ]  % 
  T  
 B  T  	 B U3  LCSQL LCRESULTCURSOR LLSTOREDPROC THIS LINTERNALERROR CSQL EXECUTENONQUERY
 NSQLRESULT	 SQLCANCEL
 CSQLCURSOR LERROR	 CERRORMSG AERRORS LNOLDCP	 NCODEPAGE CONNECT LPARAMETERRESET OCOMMAND ACTIVECONNECTION OADOCONN LNAMEDPARAMETERS NAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXT ASSIGNCOMMANDPARAMETERS ORS EXECUTE STATE LLERROR LLRESULT CA ALIAS DATASOURCETYPE ADOCODEPAGE	 FETCHSIZE ALLOWINSERT ALLOWDELETE ALLOWUPDATE
 CURSORFILL LKEEPCONNECTION CLOSE
 FILLERRORS CURSORDETACH PARM
 PARAMETERS	 DIRECTION OPARAMETERS NAME VALUE LCNAME       T  - T    %C  
I  B-  T C] %     C  ]  T     	 Q
 ADODB.COMMAND T	 C
 ADODB.CommandN T	 
    %    T	 
 a 
 % . T   T	   F T    T	     C 	   
 T   C 	   T     T    %  C  @ execl  	  h" %     d T        %C  b U` T    &lcName = Parm.VALUE
     %    C ] 
 B  
 U  LCSQL LLSTOREDPROC LNOLDCP THIS LINTERNALERROR NAFFECTEDRECORDS CONNECT	 NCODEPAGE CSQL OCOMMAND ACTIVECONNECTION OADOCONN LNAMEDPARAMETERS NAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXT ASSIGNCOMMANDPARAMETERS	 LNRECORDS EXECUTE LERROR PARM
 PARAMETERS	 DIRECTION OPARAMETERS NAME VALUE LCNAMEs  4   
 % *  BC   a   e  T C   a   % 
a  B-   Ba U  LCPROCEDURE LLNOCURSORRETURNED THIS EXECUTENONQUERY LNRESULT EXECUTE InitB       Destroy       Execute       ExecuteNonQuery      Connect%      Close$
      BeginTransaction
      Rollback      Commitb      AddSql      ConnectByDsn-      CreateOdbcDataSourceA
     ! SqlBuildInsertStatementFromObject
     ! SqlBuildUpdateStatementFromObject      CallStoredProcedure      ExecuteStoredProcedure      InsertDataFromCursor      InsertBinaryField      ReadBinaryField9"      AddParameter$      AssignCommandParameters(      GetAffectedRecords!(      EnableUnicodeToAnsiMapping)      EnableConnectionPooling)      SetAsyncMode%*     	 SqlCancel*      Error*     
 FillErrors+      assigncommandparameters.     callstoredprocedure6     Connect=9     DESTROY;;     execute;     executenonqueryD     executestoredprocedureH    )
 T    
 T  
 T    T 	 TSQLQuery
 T   
 T  
 T    T 
 T 
 T	    
  T
 - T    T - T
 -
 T   T - T - T -    
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      U  CCONNECTSTRING
 NSQLHANDLE CSQL
 CSQLCURSOR	 CERRORMSG NERRORNO
 CERRORMSG2
 NSQLRESULT NTIMEOUT CSKIPFIELDSFORUPDATES LINTERNALERROR OPARAMETERS LPARAMETERRESET LOUTPARAMETERS NAFFECTEDRECORDS LNAMEDPARAMETERS LERROR NODBCERRORNO LUSECONNECTION AERRORS 
 T  
 T b
 T   T  T -   T   
 T  T  wwadosql
     
     
     
      
  !   
  "   
  #    U  HEIGHT WIDTH	 NCODEPAGE OADOCONN LKEEPCONNECTION
 OEXCEPTION NCOMMANDMODE NAME wwSql Custom"L     wwadosql wwsql\O     1  	QA  1  =  q    A B A  A   4"1qA  11 A A B A  B  $D   QrD A   q  A s!A!A A A A B  =  q A r >  3A r2  A aQA A 1 A B  q A  A r = C A B A = q = q < q < q A A = 1 A  q  A r ?  A  1 2q  " A  r!A A   A A   !A!!1!!! A A a q 1QA A   A  >   A R 1 A   A # A   q!A A   A A  AA A A   !A!!1!!! A A b A B   A STR qA A  =  q  $!!A q A A  q1A  A A A bq A  A r =    !q A A A q A r ;  q   A  q A       q A A A  q A r = q    A  A BQ  A "     " "A B  q A r =    A  A B    A #    C  A  ?  A S  A A A RqAAAA A QA QA Q!a A A  A = > q  r   A  A  = q  A   QA = w> q q  q A =  ;    q A A A   = q  b A A $1A !A AA  AA BA !A 1 s 4 t  ! A r A3!a"1A A ra1A A "! aA A B !1A "q A EA $Q221A 2111A 11A   ! q     A b QA BA CAQA #!Qa A AA  A A cA BB   5   qaA A  A rq A !AA A A A r >   )1A   A   qAA    A  5 5qA  A 4     A Q A  A B A  A   r A!A # A A  A 1 A   A 2SA 1B1A 1     A A       A A   A A  !!qA A A A C A  A  5  r  #q A A!A 1 A   A  Q2!!qA A A A B A  5   ! qq A A r 8    b      r   s       s 1    p      @  P      `     `  0   1      r  r  Q p
    P
  1                    e
    ^   	    
  
  z        T     T   H      \   X  m"       #  $  Z     %  (&  r     X'  '       (  V)       x*  *       ,  E-       .  0       H2  -;       <  G  L  1  aI  gM    V  N  P    i  R  U  "    V  Y  [    [  ^      `  e      g  !g      dh  ci      j  hk  9    m  Wn  Q    o  Pp  k    q  q      s  t    '  u  y    L  J}        Í          n        Z      |    
  f          -  6         y       0{  C    0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _0FJ1DT3YH 943488015)      G            x  h          ~    ?                       COMMENT RESERVED                        7                                                                  WINDOWS _RZW1FBE3Y 998940453R    p  c      a      H 
$          E     X          7           COMMENT RESERVED                                                                                         WINDOWS _RSF1BV09P 998947363              $b  {                  
          f       COMMENT RESERVED                        U                                                                 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00       
 ..\wconnect.h𢳊;      wwsocket      custom      	wwipstuff      
..\wconnect.h      Hcdllpath
hhttpsession
hipsession
lhttpcanceldownload
setproxylogin
      Pixels      
wwipstuff.bmp      
wwipstuff.bmp      Internet Protocol Class that encapsulates simplefied SMTP, HTTP, FTP, DNS resolution and RAS dialing. Relies on wwIPStuff.dll for various support functionality to access TCP/IP and WinInet functions.      Class      1      custom      	wwipstuff      custom      ntimeout = 10
nerror = 0
cerrormsg = 
lstripnulls = .T.
llogsession = .F.
clogtext = 
olog = .NULL.
nbuffersize = 512
nlastreadsize = 0
Name = "wwsocket"
       
 ..\wconnect.h𢳊;      
wwipstuff.vcx      1      wwftp      
..\wconnect.h      1      custom      Pixels      Class      	wwipstuff      wwftp      custom      Class      Pixels      clog
      
..\wconnect.h      wwsocket      LThe FTP class provides for basic FTP functionality for uploads and downloads       
 ..\wconnect.h;     pntimeout Socket timeout used to determine when an operation fails due to timeout.
nerror Error Number
cerrormsg Error Message if an error occurred.
lstripnulls Strips CHR(0) NULLS from the received buffer. Otherwise the full buffer will be passed back which is padded with CHR(0)'s.
llogsession
clogtext
olog
nbuffersize
nlastreadsize Size of data read on the last Receive() operation.
clog Internal Log string property
*connect Connects to a socket on a server.
*send Sends data to a socket on the server.
*receive Receives data from a socket
*socketsend High level method that connects to a socket, sends data and receives a result then disconnects from the socket. Great for various XML services.
*disconnect Disconnects from a socket on the server.
*close Closes the socket.
*sendreceive Sends a string to a socket and waits for a response and returns the value.
*log 
*getlog 
*listen 
*waitfor A receive method that keeps retrieving input until a specified character is found based on the timeout specified.
*waitforsize Waits for the specified number of bytes from the socket, by using Receive() in a loop.
     Ncattachment SMTP File Attachment
cbcclist Comma Delimited Blind Carbon Copy list
ccclist Comma Delimited Carbon Copy list
cdllpath
cerrormsg Last Error Message Text for the last operation. Implemented only for SMTP and HTTP operations.
cmailserver Domain name or IP address for your SMTP Server
cmessage SMTP Message text
cpassword Password to log on to server (applies to FTP and HTTP)
crecipient SMTP Message Recipient list. Comma Delimited if multiples.
csenderemail Email address of the SMTP message sender (return address).
csendername Display name of SMTP message Sender.
csubject SMTP Message Subject.
cusername Username for log in operations (FTP and HTTP).
hhttpsession
hipsession
lsecurelink
lusezip Flag to determine whether Encode and DecodeDBF use zipping (not implemented)
nconnecttimeout The timeout for a request to either connect to the server or to start receiving a response. Make sure this timeout is long enough to allow for the request to process.
nerror The last error code.
nrashandle Internal handle to the RAS Session created with RASDial(). Exposed to allow further access to the handle via API calls.
ccontenttype
nhttpconnecttype Allows to specify how the connection is opened: 1 - Direct*, 3 - Proxy (IE 4 and later) and 0 - PreConfig (using IE settings)
cserver HTTP Server Address. Format: www.west-wind.com, or 111.111.111.111
clink HTTP Link to visit on a site. Site relative URL. Example: /default.asp, /, /wconnect.dll?wwDemo~TestPage
nhttpport The port to use for HTTP Connections. If the default value of 0 is used, the HTTP and HTTPS default ports (80 and 443) are used.
nhttpworkbuffersize Size of the download HTTP buffer used while downloading dynamically sized requests with HTTPGetEx. This is the size of chunks that will be pulled at a time and also determines how often OnHTTPBufferUpdate is called.
chttpheaders This property is set when calling HTTPGetEx and contains the entire HTTP header of a request
cpriority Priority of the email message.
lhttpcanceldownload Flag that can be set in OnHTTPBufferUpdate to allow cancellation of the current HTTP download
nhttppostmode HTTP Post mode determines how requests are posted to the server. 1 - Form URLEncoded (default)  2 - Multipart forms 4 - XML.  This property must be set prior to calling AddPostKey and HTTPGetEx
cversion Version of the wwIPStuff library. This value should match the DLL Version number.
chttpproxyname String that specifies the name or IP address of the proxy server and its port.
chttpproxybypass Address of a string variable that contains an optional list of host names or IP addresses, or both, that should not be routed through the proxy
nsmtpport
nserviceflags Otional flags used for InternetOpen calls.
cuseragent
cextraheaders Extra SMTP Headers used for sending email. Note these values should not conflict with existing default values - check SMTP headers for details.
chttpproxyusername Proxy Authentication User name
chttpproxypassword Proxy Authentication Password
cpostbuffer Contains the HTTP Post Buffer set with AddPostKey
lreturnreceipt Adds a return receipt to the Sender's email address
cmessagealternate Alternate message body. Use this to send both text and HTML bodys through email
ccontenttypealternate Content Type used for AlternetContent property when sending mixed content messages.
clogfile Logfile used for SMTP Session logging. Detailed session logging of SMTP requests.
creplyto The Reply To address when a user uses an email client to reply to a message. This value can be different the sender's email address.
_memberdata XML Metadata for customizable properties
usessl Determines whether the connection to the mail server uses SSL. Note: Only works with the .NET version (nMailMode = 2)
*decodedbf Takes a string encoded with EncodeDbf() and converts it back into a physical file. If the string contains a DBF with a memo the memo is also restored.
*encodedbf Takes a single file (DBF or otherwise) or a DBF/MEMO pair and encodes it into a string. String includes a header for verification and information about the file. Use DecodeDbf() to restore the string to a file.
*getdomainfromip Retrieves the Domain Name from an IP Address.
*getipfromdomain Retrieves the IP address from a Domain name by resolving DNS.
*getlastinterneterror Return the last WinInet Error Message. Applies only to FTP functions.
*getpostbuffer Retrieves the current Post buffer. Post buffer is implemented as a memo field in a cursor.
*getsystemerrormsg Returns a WinInet or Win32 API error message.
*rasdial Dials a RASConnection
*rashangup Hangs up a previously dialed RAS connection. Requires handle!
*sendmail Send SMTP mail Synchronously and returns .T. or .F. Check THIS.cErrorMsg for results
*sendmailasync Same as SendMail() but operation runs on a separate thread and  immediately returns to the calling code. No error code is returned.
*unzipfiles Simple file UnZipping interface to the DynaZip Unzip DLL (not provided). This method call talks directly to the DLL bypassing the ActiveX Control.
*wininetsettimeout Allows setting the timeout period for each type of connection and transfer operation. Specify in seconds. (WinInet does not always respect this setting correctly)
*zipfiles Simple file Zipping interface to the DynaZip Zip DLL (not provided). This method call talks directly to the DLL bypassing the ActiveX Control.
*encodefile Takes a single file (DBF or otherwise) or a DBF/MEMO pair and encodes it into a string. String includes a header for verification and information about the file. Use DecodeDbf() to restore the string to a file.
*decodefile Takes a string encoded with EncodeDbf() and converts it back into a physical file. If the string contains a DBF with a memo the memo is also restored.
*onhttpbufferupdate Gets called whenever the buffer is updated on an HTTPGetEx update. Only applies if the buffer size is set to 0 (Automatic sizing)
*sendmapimail Sends a message using the MAPI extensions and the default profile.
*internetcrackurl Breaks a URL into its components.
*base64encode Encodes a string to Base64. 
*base64decode Decodes a Base64 string.
*setproxylogin Log in for proxy authentication with cHTTPProxyUsername/cHTTPProxyPassword
*internetdial Dials an internet connection
*internethangup Hangs up Internet Connection
*ping Pings a site and return hops and time optionally.
*addheader Adds an extra header for SMTP sending
     4    l4  l4                        P   %   -      2    s/            U      #        	 , | FtpOpenFile WININET.DLL/ | InternetReadFile WININET.DLL" T C    66 T C  C  `
       A
       A  
  %  # T  C  T  C   B   ) | FtpGetFileSize WinINet.dll
 T   T  C     T  -
 T   
 T  
 T  
 T  
 T 
 T	   T CC ` % ;0 T    Output file couldn't be created. C    BC  +ao T CC    Q
 T   T    T C      
  %    	
 C C  = T    T	 	  C   	       ) %    		   > !  %  k C 
    !   C   
 T   C        T    C 	 B  U   LCSOURCEFILE LCTARGETFILE LHFILEHANDLE HFTPFILE TCBUFFER TNSIZE TNBUFFERSIZE LNRETVAL LNBYTESREAD
 LNBUFFERREADS FTPOPENFILE WININET DLL INTERNETREADFILE LNMODE THIS
 NFTPBINARY HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPGETFILESIZE LNUPPERSIZE NCURRENTFILESIZE LCANCELDOWNLOAD INTERNETCLOSEHANDLE LCREADBUFFER NFTPWORKBUFFERSIZE LNSIZE ONFTPBUFFERUPDATE LNBUFFERSIZE        U  LNBYTESDOWNLOADED
 LNBUFFERREADS LCCURRENTCHUNK LNTOTALBYTES          % T  CCCC  
      6`@# T CCC 
    	 6`# T CCC 
    
 6` %   ftp://  T  C   ftp://    %    
 T    T     %  * T 
  
 	     T     T    T    + | InternetCloseHandle WinInet.DLL  | GetLastError WIN32API, | InternetOpen WININET.DLL) T C           %  F T  C  T  C     B    T   
 C  5 | InternetConnect WININET.DLL. T C            
    %  '
 T   T  C X T! C  >: | InternetGetLastResponseInfo WININET.DLL T# C   ! "  C    %   T  CC  C    ` %C  . T   Couldn't connect to FTP Server  T    T  C   T     B    T    T $   %C % 
s C $  &  	 B  U'  LCSERVER
 LCUSERNAME
 LCPASSWORD LHIP LHHTTP LNERROR
 LNHTTPPORT THIS CSERVER	 CUSERNAME	 CPASSWORD	 NHTTPPORT LPASSIVEFTP
 NSERVICEFLAGS NERROR	 CERRORMSG INTERNETCLOSEHANDLE WININET DLL GETLASTERROR WIN32API INTERNETOPEN HINETCONNECTION
 CUSERAGENT NHTTPCONNECTTYPE CHTTPPROXYNAME CHTTPPROXYBYPASS GETSYSTEMERRORMSG
 HIPSESSION WININETSETTIMEOUT INTERNETCONNECT LHFTPSESSION LCERRMSG LNERRLEN INTERNETGETLASTRESPONSEINFO LNRESULT HFTPSESSION CHTTPPROXYUSERNAME
 SETPROXYLOGINn + | InternetCloseHandle WININET.DLL C     C     T    T    U  INTERNETCLOSEHANDLE WININET DLL THIS HFTPSESSION
 HIPSESSION             T	 
   T	    , | FtpOpenFile WININET.DLL0 | InternetWriteFile WININET.DLL" T C	    6, T C	  C `C  
   @     %   T	 
 C  %	 
  B T	  C.	   ^ T	  C	    %	 
   %C	  . T	   Unable to connect to server...  T	 
   B	 
   T CC  ` % T9 T	  ) Source file doesn't exist or is in use... T	 
 	 B  T	  C   C    T	  -
 T  
 T   +a4 T C 	   %C >  !  T C >
 T   T C         %  Z T	 
 C  T	  C	   !  %    	 T    T   C      	  	    %	  ) T	   Download canceled by user ! ) %    		   , !    C   
 T   C   	  	   T	    C  B	 
  U  LCSOURCEFILE LCTARGETFILE LHFILE LNRETVAL LNBYTESREAD
 LNBUFFERREADS
 LCWRITEBUFFER HFTPFILE LNMODE THIS NERROR	 CERRORMSG FTPOPENFILE WININET DLL INTERNETWRITEFILE
 NFTPBINARY HFTPSESSION GETLASTERROR GETSYSTEMERRORMSG NCURRENTFILESIZE LCANCELDOWNLOAD TNBUFFERSIZE NFTPWORKBUFFERSIZE LNSIZE ONFTPBUFFERUPDATE INTERNETCLOSEHANDLE LNBUFFERSIZEu   #         , | FileTimeToSystemTime WIN32API T CX C    	  T CC =  T CC \  T CC \  T CC 	\  T CC \  T CC 
\ R T CC Z -CC Z -CC Z  CC Z :CC Z :CC Z BC {^  } U  LCFTIME	 LCSYSTIME LNYEAR LNMONTH LNDAY LNHOUR LNMINUTE LNSECOND LCDTIME FILETIMETOSYSTEMTIME WIN32API	 CHARTOBIN         2 T  CCC lcFTPServerb C      6`/ T CCC lcSourceb C     6`/ T CCC lcTargetb C    	 6`1 T CCC
 lcUserNameb C    
 6`1 T CCC
 lcPasswordb C     6` T  
  % ?
 T  T
 T   T C          %  	 B  * |
 FtpPutFile WinInet.dll- T C   C   C       %  9 T  C  T  C  
 C   B   
 C  	 B ( | FTPSendFile   T   ( T C        
       %   T    T  C   	 B  U  LCFTPSERVER LCSOURCE LCTARGET
 LCUSERNAME
 LCPASSWORD LNRESULT THIS
 CFTPSERVER
 CFTPSOURCE
 CFTPTARGET	 CUSERNAME	 CPASSWORD LNBINARY
 NFTPBINARY
 FTPCONNECT
 FTPPUTFILE WININET DLL HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSE FTPSENDFILE CDLLPATH         T CC    6 %C  W  T      %C z  T     %C   T  	   %C   T  
   %C   T      T CC  `C `C ` 
  %  !	 B  . |
 FtpGetFile WinInet.dll6 T C  C `C ` 
 
       A   %   T  C  T  C  
 C   B   
 C  	 B  U  LCFTPSERVER LCSOURCE LCTARGET LNBINARY
 LCUSERNAME
 LCPASSWORD THIS
 CFTPSERVER
 CFTPSOURCE
 CFTPTARGET	 CUSERNAME	 CPASSWORD LNRESULT
 FTPCONNECT
 FTPGETFILE WININET DLL HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSEv     %C *  T  *.*  T C@X
 T   T   1 | FtpFindFirstFile WININET.DLL* T C 	    
       A   %  & T  C
  %   T   	 B   T  C  	 B      T
 C -\, T  C
 CC  
 \ T C \ T  C    T C !\ T  C   ( T  CC \  
 T / | InternetFindNextFile WinInet.DLL +C     X T   T
 C -\    , T   C
 CC  
 \ T C \ T   C    T C !\ T   C   ( T   CC \    C   	 B  U  LAFILES
 LCFILESPEC
 LSFILEFIND LNFINDHANDLE THIS NERROR FTPFINDFIRSTFILE WININET DLL HFTPSESSION GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG
 LCFILENAME LCATTRIBUTES	 CHARTOBIN LCSIZE
 PARSEFILETIME LNFILECOUNT INTERNETFINDNEXTFILE INTERNETCLOSEHANDLEr     %C    B- , | FtpCreateDirectory WININET.DLL" BCC        - a6 U  LCPATH FTPCREATEDIRECTORY WININET DLL THIS HFTPSESSIONr     %C    B- , | FtpRemoveDirectory WININET.DLL" BCC        - a6 U  LCPATH FTPREMOVEDIRECTORY WININET DLL THIS HFTPSESSION    ' |
 FtpDeleteFile WinInet.dll! %C    C      T  C  T  C 	  B   	 B  U
  LCFILE
 FTPDELETEFILE WININET DLL THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG     - |
 FtpCommand WININET.DLL
 T  % T C 	         %    T 
 C  T  C 
 	 B   %C >   T C X T C >   T C > / | InternetReadFile WININET.DLL
 T   T C        %    	
 T   T C  \ 
 T   
 T    C   	 B  U 	 LCCOMMAND LCBUFFER LNSIZE
 FTPCOMMAND WININET DLL LHRESULT LNRESULT THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG INTERNETREADFILE LNBYTESREAD LNRETVAL INTERNETCLOSEHANDLE     ) |
 FtpRenameFile wininet.dll& T C    C   C    %    T  C	  T 
 C   B   	 B  U 	 LCOLDNAME	 LCNEWNAME
 FTPRENAMEFILE WININET DLL LNRESULT THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSGv     %C    B- 0 | FtpSetCurrentDirectory WININET.DLL" BCC        - a6 U  LCPATH FTPSETCURRENTDIRECTORY WININET DLL THIS HFTPSESSION     * |
 FtpPutFile WinInet.dll" T C    6- T C 	   C   C       %    T 
 C  T  C 
  R,  
 C   B 
  	 B  U  LCSOURCE LCTARGET
 FTPPUTFILE WININET DLL LNMODE THIS
 NFTPBINARY LNRESULT HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSE.     T  
   T  
   U  VNEWVAL THIS	 NHTTPPORT NFTPPORT7           ! T CC  
     	 6! T CC 
    
 6  T CC 	     6 %C   B 0 | InternetSetOption WinInet.dll
 T +
 T , %C 

 T   T C >
 T   T C         %  T  C  T  C     B-   %C 
)
 T   T C >
 T   T C         % % T  C  T  C     B-   Ba U 
 TCUSERNAME
 TCPASSWORD	 HIPHANDLE
 LCUSERNAME
 LCPASSWORD LPBUFFER LPDWBUFFERLENGTH NSUCCESS THIS CHTTPPROXYUSERNAME CHTTPPROXYPASSWORD HHTTPSESSION INTERNETSETOPTION WININET DLL INTERNET_OPTION_PROXY_USERNAME INTERNET_OPTION_PROXY_PASSWORD DWBUFFERLENGTH DWOPTION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG
     U  LCPATH6 " %         / 
 C     U  THIS
 HIPSESSION HHTTPSESSION FTPCLOSE ftpgetfileex,      onftpbufferupdate    
 ftpconnect     ftpclose    
 ftpsendfileex3
    
 parsefiletime@     ftpsendfile5    
 ftpgetfileR     aftpdirI     ftpcreatedirectory      ftpremovedirectory!    
 ftpdeletefile3"    
 ftpcommand3#    
 ftprenamefile%     ftpsetdirectory'     ftpsendfileex2'     nftpport_assignc)    
 setproxylogin)     Init@-     DestroyV-    1  1"cA A         !  A  q 3A B A   A A A     `1 11  1R11rA C  A A  A  ["   !A  AA  A 2QA  p1 `1  "A AA B!A A  A ! A     R1A A   "AA A A A A A A B A      1 q 1 !a#b3 qq ""   A  A A  A   AA   1  A  A  A  A  A  A dA  A   1   A  
C A B A 3aRR a1RRA   1 q  q A "3 q  q A "2 q uA A  1   QA A 2   A   Q   A   3  bA A  2 q  q A "3  "A1  A  2 q "!3  q A A      q A A    q A A r 3 q : " A 8                            8   @  o     ;     #     v   #  D(    }   h(  6       6  9  w     9  C       C  L      L  Z  U  A  [  \    H  +\  ]    O  @]  b    Y  b  g  Q  u  Cg  h      h  i      
j  ml      l  m      6m  r      r  s      s  t     )   l4                       inftpworkbuffersize The size of the FTPGetEx download buffer. For each buffer chunk the OnFTPBufferUpdate event is fired to allow you to cancel and display status information
lcanceldownload Cancel flag that can be set in OnFTPBufferUpdate to let wwFTP know to stop downloading a file from the Internet.
hftpsession The FTP Session handle used in Internet Access. One of two (hIPSession is the other)
nftpbinary Flag to determine whether FTP file sent is ASCII (0) or Binary (1)
cftpserver The FTP server to connect to.
cftpsource The Source file to upload from the client or download from the server.
cftptarget The file to download to from the server or upload to on the server.
lpassiveftp Flag that sets whether to use passive FTP.
ncurrentfilesize The filesize of the current file being uploaded or downloaded. 
nftpport
*ftpgetfileex Retrieves a file from an FTP site and allows trapping the OnFTPBufferUpdate event. This event allows for status information and also cancellation of a download.
*onftpbufferupdate Event that fires whenever the buffer is updated by FTPGetFileEx(). This method is passed the current download total and the number of chunks retrieved already. You can set lCancelDownload to .T. to force FTPGetEx to stop the file download.
*ftpconnect Connects to an FTP site and allows passing of a user name and password.
*ftpclose Closes a connection with an FTP Site
*ftpsendfileex Uploads a file to an FTP site with event progress information and the ability to cancel.
*parsefiletime Returns a datetime value from a date time structure (binary form)
*ftpsendfile Sends a file via FTP
*ftpgetfile Receives a file via FTP
*aftpdir Retireves an FTP directory listing.
*ftpcreatedirectory Creates a new FTP directory on the server.
*ftpremovedirectory Removes a directory on the Web server.
*ftpdeletefile Deletes file on the server. Must be called after explicitly connecting with FTPConnect first.
*ftpcommand 
*ftprenamefile Renames a file on the server. Requires existing connection.
*fptsetdirectory Sets the current directory
*ftpsetdirectory 
*ftpgetdirectory 
*ftpsendfileex2 
*nftpport_assign 
     Height = 17
Width = 98
HelpContextID = 703
nftpworkbuffersize = 4096
lcanceldownload = .F.
hftpsession = 0
nftpbinary = 1
cftpserver = 
cftpsource = 
cftptarget = 
lpassiveftp = .F.
ncurrentfilesize = 0
nftpport = 0
nhttpport = 21
cserver = 
Name = "wwftp"
     Height = 15
Width = 99
cattachment = 
cbcclist = 
ccclist = 
cdllpath = 
cerrormsg = 
cmailserver = 
cmessage = 
cpassword = 
crecipient = 
csenderemail = 
csendername = 
csubject = 
cusername = 
hhttpsession = 0
hipsession = 0
lsecurelink = .F.
lusezip = .F.
nconnecttimeout = 25
nerror = 0
nrashandle = 0
ccontenttype = text/plain
nhttpconnecttype = 0
cserver = 
clink = 
nhttpport = 0
nhttpworkbuffersize = 4096
chttpheaders = 
cpriority = Normal
lhttpcanceldownload = .F.
nhttppostmode = 1
cversion = 5.51
chttpproxyname = 
chttpproxybypass = 
nsmtpport = 25
nserviceflags = 0
cuseragent = West Wind Internet Protocols 5.51
cextraheaders = 
chttpproxyusername = 
chttpproxypassword = 
cpostbuffer = 
lreturnreceipt = .F.
cmessagealternate = 
ccontenttypealternate = text/html
clogfile = 
creplyto = 
_memberdata =      275<VFPData><memberdata name="nmailmode" type="property" display="nMailMode"/><memberdata name="sendmailex" type="method" display="sendMailEx"/><memberdata name="usessl" type="property" display="UseSsl"/><memberdata name="lusessl" type="property" display="lUseSsl"/></VFPData>

usessl = .F.
Name = "wwipstuff"
     7                              
   %                          U        %  +  T     . | wwSocketConnect
 wwIPStuff.dll T C X T	 C   C 8   %	    T 
  T  CC C  ` B-  Ba U  LCSERVER LNPORT THIS LLOGSESSION CLOG WWSOCKETCONNECT	 WWIPSTUFF DLL LCERROR LNRESULT NERROR	 CERRORMSG     %  2  C    CLIENT:    T C  >- | wwSocketSend
 wwIPStuff.dll T C X  T	 C     
     %	    T   T    B-  Ba U
  LCINPUT THIS LLOGSESSION LOG LNSIZE WWSOCKETSEND	 WWIPSTUFF DLL LCERROR LNRESULT NTIMEOUT NERROR	 CERRORMSGg    %C  &  T      T C  X, | wwSocketRecv
 wwIPStuff.dll T C X T C   	   %C 
   
  T 
   T  C C   T  	 B    T 
   % 
 ( T C C      %  W C   SERVER:   	 B  U  LNSIZE THIS NBUFFERSIZE LCOUTPUTBUFFER WWSOCKETRECV	 WWIPSTUFF DLL LCERROR LNBYTES NTIMEOUT
 NLASTREADSIZE	 CERRORMSG NERROR LSTRIPNULLS LLOGSESSION LOG            T C7  X T C X %C ` 
 T 
 . | wwSocket
 wwIPStuff.dll& T C             %    T
     T C ` BC ` U  LCINPUT LCSERVER LNSERVERPORT LNCONNECTTIMEOUT LCERROR LCHTTPRESPONSE LNRESULT WWSOCKET	 WWIPSTUFF DLL THIS NERROR2 % |
 wwSocketClose
 wwIPStuff.dll
 C   U 
 WWSOCKETCLOSE	 WWIPSTUFF DLL|         %C     
5 	 B    T C     %  l 	 B   	 B  U	  LCINPUT LNSIZE LLRESULT	 LCRECEIVE THIS SEND LCOUTPUT RECEIVE NERRORI      %C ' 
 T     T        U  LCSTRING LCPREFIX THIS CLOG  B    U  THIS CLOG      %C  N- 
 T 
 - | wwSocketListen
 wwIPStuff.dll T CX T C        %   T   T 	   B-  Ba U
  LNPORT	 LNTIMEOUT WWSOCKETLISTEN	 WWIPSTUFF DLL LCERROR LNRESULT THIS NERROR	 CERRORMSG        T   
 T    +C   
  T  C     %   | 	 B    	 B  U  LCSEARCH LNSIZE LCRESULT THIS NERROR RECEIVE\        %C  5  T     
 T  
 T   
 T   . +   
    	  	  	 ! T  CC   
  	 = T   	  T   	   %C >  L %   H T  5 T  % Buffer size doesn't match output size  	 B  U  LNSIZE LNTOTALREAD LNLNEXTREAD LCRESULT THIS NBUFFERSIZE
 LNNEXTREAD LCOUTPUT NERROR
 NLASTREADSIZE RECEIVE	 CERRORMSG  U   
 C    U  THIS
 DISCONNECT connect,      sendz     receive    
 socketsend    
 disconnectk     sendreceive     log     getlog     listen     waitforJ	     waitforsize
     Init     Destroy    1  A q A r 2 q A  q A r 2 q  A  q A qA A  2 q "  A dA   2 R 3   b A RQ A  3    A 2  2  R A  q A r 3  q  qA A A  2 q   A    AAA 2AQA A  3 9  1                                           F  2   5   g   	  T   D   !	  ^	  r   G   	  G
  y   R   a
  
     X   
       Z   (       h     
     t   
  f          G        e  v      )                          PROCEDURE connect
LPARAMETERS lcServer, lnPort

IF THIS.lLogSession
   THIS.cLog = ""
ENDIF

DECLARE Integer wwSocketConnect ;
  in wwIPStuff.dll ;
  STRING lpDomain,;
  INTEGER dwPort,;
  STRING @lpError

lcError = SPACE(512)
lnResult = wwSocketConnect(lcServer, INT(lnPort),@lcError)
IF lnResult = 0
   THIS.nError = -1
   THIS.cErrorMsg = TRIM(STRTRAN(lcError,CHR(0)))
   RETURN .F.
ENDIF

RETURN .T.  
ENDPROC
PROCEDURE send
LPARAMETERS lcInput

IF THIS.lLogSession
   THIS.Log(lcInput,"CLIENT:")
ENDIF

lnSize = LEN(lcInput)

DECLARE Integer wwSocketSend ;
  in wwIPStuff.dll ;
  STRING lpInput,;
  STRING @lcError,;
  INTEGER dwSeconds,;
  INTEGER dwSize
  
lcError = SPACE(512)
lnResult = wwSocketSend(lcInput,@lcError,THIS.nTimeout,lnSize)
IF lnResult = 0
   THIS.nError = -1
   THIS.cErrorMsg = lcError && if any
   RETURN .F.
ENDIF
  
RETURN .T.
ENDPROC
PROCEDURE receive
LPARAMETERS lnSize

IF EMPTY(lnSize) 
   lnSize = THIS.nBufferSize
ENDIF
lcOutputBuffer = SPACE(lnSize)

DECLARE Integer wwSocketRecv ;
  in wwIPStuff.dll ;
  STRING @lpOutput,;
  STRING @lcError,;
  INTEGER dwSeconds

lcError = SPACE(512)
lnBytes = wwSocketRecv(@lcOutputBuffer,@lcError,THIS.nTimeout)
IF !EMPTY(lcError) OR lnBytes < 0
   THIS.nLastReadSize = 0
   THIS.cErrorMsg = STRTRAN(lcError,CHR(0))
   THIS.nError = -1
   RETURN ""
ENDIF
THIS.nLastReadSize = lnBytes

IF THIS.lStripNulls 
   lcOutputBuffer = STRTRAN(lcOutputBuffer,CHR(0),"")
ENDIF

IF THIS.lLogSession
  THIS.Log(lcOutputBuffer,"SERVER:")
ENDIF

RETURN lcOutputBuffer
ENDPROC
PROCEDURE socketsend
LPARAMETERS lcInput, lcServer, lnServerPort, lnConnectTimeOut, lcError
LOCAL lcHTTPResponse, lnResult

lcHTTPResponse = SPACE(65335)
lcError = SPACE(1024)
IF EMPTY(lnConnectTimeout)
   lnConnectTimeout = 10
ENDIF

DECLARE INTEGER wwSocket ;
   IN wwIPStuff.dll ;
   STRING lcInput,;
   STRING @lcOutput,;
   STRING @lcError,;
   STRING lcDomain,;
   INTEGER lnPort,;
   INTEGER lnTimeout


lnResult =  wwSocket(lcInput,@lcHTTPResponse,@lcError,;
                        lcServer,lnServerPort,lnConnectTimeout)
IF lnResult # 0
   THIS.nError = lnResult
ENDIF
   
lcError = TRIM(lcError)
                        
RETURN TRIM(lcHTTPResponse)
ENDPROC
PROCEDURE disconnect

DECLARE wwSocketClose in wwIPStuff.dll

wwSocketClose()

ENDPROC
PROCEDURE sendreceive
LPARAMETERS lcInput, lnSize
LOCAL llResult, lcReceive

IF !THIS.Send(lcInput)
   RETURN ""
ENDIF

lcOutput = THIS.Receive(lnSize)
IF THIS.nError = -1
   RETURN ""
ENDIF

RETURN lcOutput

ENDPROC
PROCEDURE log
LPARAMETERS lcString,lcPrefix

IF EMPTY(lcPrefix)
   lcPrefix = ""
ENDIF

THIS.cLog = THIS.cLog + lcPrefix + lcString
ENDPROC
PROCEDURE getlog

RETURN THIS.cLog
ENDPROC
PROCEDURE listen
LPARAMETERS lnPort, lnTimeout

IF VARTYPE(lnTimeout) # "N"
  lnTimeout = 10
ENDIF

DECLARE INTEGER wwSocketListen ;
   IN wwIPStuff.dll ;
   integer nPort,string @cError, integer nTimeout
   
lcError = SPACE(255)
lnResult = wwSocketListen(lnPort,@lcError,lnTimeOut)
IF lnResult # 1
   THIS.nError = -1
   THIS.cErrorMsg = lcError && if any
   RETURN .F.
ENDIF

RETURN .T.

ENDPROC
PROCEDURE waitfor
LPARAMETERS lcSearch,lnSize
LOCAL lcResult

THIS.nError = 0

lcResult = ""
DO WHILE ATC(lcSearch,lcResult) < 1
   lcResult = lcResult + THIS.Receive(lnSize)
   IF THIS.nError # 0
      RETURN ""
   ENDIF
ENDDO

RETURN lcResult
ENDPROC
PROCEDURE waitforsize
LPARAMETERS lnSize
LOCAL lnTotalRead, lnlnextRead, lcResult

IF EMPTY(lnSize)
    lnSize = THIS.nBufferSize
ENDIF

lnTotalRead = 0
lnNextRead  = lnSize
lcOutput    = ''

DO WHILE lnTotalRead < lnSize AND THIS.nError = 0 AND THIS.nLastReadSize > 0
    lcOutput        = lcOutput + LEFT( THIS.Receive( lnNextRead ),THIS.nLastReadSize )
    lnTotalRead     = lnTotalRead + THIS.nLastReadSize
    lnNextRead      = lnNextRead  - THIS.nLastReadSize
ENDDO

IF LEN(lcOutput) # lnSize
   IF THIS.nError = 0
         THIS.nError = -1
         THIS.cErrorMsg = "Buffer size doesn't match output size"
   ENDIF
ENDIF

RETURN lcOutput

ENDPROC
PROCEDURE Init
#IF .F.
WAIT WINDOW NOWAIT ;
  "Welcome to West Wind Internet Protocols..." + CHR(13) + ;
  "This is a shareware copy of wwSocket." + CHR(13)+ CHR(13) +;
  "Please register your copy."
#ENDIF

ENDPROC
PROCEDURE Destroy
THIS.Disconnect()
ENDPROC
     >     >   >                        &   %   5      <    8            U      #          %C  >i
H  B-  T C  i\ T CC  (\` T CC  .
\g T CC  `
\g T CC    C f6 %  wwDBF% R,: Invalid Decode File Header B- 
 T   
 T    %   T C  j \ %C > 
4 R,: Invalid File Size: CC >Z  of C Z B-   %  5 T C  j  \ T	 C > %C > 
19 R,: Invalid Memo File Size: CC >Z  of C Z B-   C    
  %C 
|! CC  .DBF .FPT  
   Ba U  LCBUFFER LCDBF LNSEPARATOR LCHEADER LCFNAME LNSIZE1 LNSIZE2 LCFILE1 LCFILE2 LNSIZEX FILE2VAR[            %C  8  B-  T  C  f %C  0
d 	 B    T C    ) T  wwDBFCC  (CC >
Z % 
  T  C2X
 B    T C   fpt T C    %C  B C2X  $ T  CC (CC >
Z B    U  LCDBF	 LLHASMEMO	 LCBUFFER1	 LCBUFFER2 LCHEADER LCFPT FILE2VAR      $ | GetDomainFromIp   T CX T C      %CC      T C CC   \  
 T    	 B  U  LCIPADDRESS LCDOMAIN GETDOMAINFROMIP THIS CDLLPATH LNVALUE    $ | GetIpFromDomain   T C8X T C      %CC      T C CC   \  
 T    	 B  U  LCDOMAIN GETIPFROMDOMAIN THIS CDLLPATH LCIPADDRESS LNVALUE    , T  CC lnErrorb N      6: | InternetGetLastResponseInfo WININET.DLL T C X T C > C      % 
 	 B    BC  \ U  LNERROR THIS NERROR INTERNETGETLASTRESPONSEINFO WININET DLL
 LCERRORMSG LNSIZE  B    U  WWPOSTBUFFER CPOSTBUFFER       . T  CC	 lnErrorNob N      6 %  .c 
 BC    T CX/ |
 FormatMessage WIN32API$ | GetModuleHandle WIN32API T
 C wininet.dll	  %
    
	() T C  
      C >   =
 T    % k T C  \ ( T C       C >   % ( T  Win32 API: C  \ 
 T     	 B  U 	 LNERRORNO LLAPI SZMSGBUFFER LNSIZE THIS NERROR GETLASTINTERNETERROR
 FORMATMESSAGE WIN32API GETMODULEHANDLE LNMODULE        & |	 DoRasDial   T     T C X
 T	  " T C       	    %    T 
 	    T 
   T  CC C    `  BC   - a6 U 
 LCRASENTRY
 LCUSERNAME
 LCPASSWORD
 LCERRORMSG LNRESULT	 DORASDIAL THIS CDLLPATH	 CERRORMSG LNHANDLE
 NRASHANDLE  | DoRasHangup   %   V $ T   No Connection active " T CC      a -6
 %   T     , T   Invalid Connection Handle... 	 B  U  DORASHANGUP THIS CDLLPATH
 NRASHANDLE	 CERRORMSG LLRESULT.3           	 
    
   3 T  CCC lcMailserverb C      6`3 T CCC lcSendernameb C     6`4 T CCC
 lcSenderEmailb C     6`2 T CCC lcRecipientb C     6`/ T CCC lcCCListb C     6`0 T CCC	 lcBCCListb C     6`. T CC	 lcSubjectb C     6 T C C
 C
   . T CC	 lcMessageb C     63 T CCC lcAttachmentb C     6`4 T	 CCC
 lcContentTypeb C 	    6`0 T CCC	 lcLogFileb C     6`0 T # NextPart_000_0025_01BDBAA5.86C80EB01 %C  
 C Importance:  
	  C
 Importance     5 %   " C Return-Receipt-To:  
	c' C Return-Receipt-To      %C ! 
 C Reply-To !     %C
  T
  "   %C
 
l T  -- C
 C
  Content-Type:   C
 C
 C
 C
  C
 C
 C
 C
 d T   -- C
 C
  Content-Type:  # C
 C
 C
 C
 
 C
 C
 6 T	   multipart/alternative;boundary="  "  T CX: | SendMail % , T CC & 
 CC & `
   6, T CC ' 
 CC ' `
   6` T
 CC                     	  (         $  a -6 %
 
 T ) CC C    `  T )    	 B
  U*  LCMAILSERVER LCSENDERNAME
 LCSENDEREMAIL LCRECIPIENT LCCCLIST	 LCSUBJECT	 LCMESSAGE LCATTACHMENT	 LCBCCLIST
 LCCONTENTTYPE LCALTERNATETEXT	 LCLOGFILE LCERROR LLRESULT
 LCUSERNAME
 LCPASSWORD THIS CMAILSERVER CSENDERNAME CSENDEREMAIL
 CRECIPIENT CCCLIST CBCCLIST CSUBJECT CMESSAGE CATTACHMENT CCONTENTTYPE CLOGFILE LCCONTENTBOUNDARY	 CPRIORITY
 CEXTRAHEADERS	 ADDHEADER LRETURNRECEIPT CREPLYTO CMESSAGEALTERNATE CCONTENTTYPEALTERNATE SENDMAIL CDLLPATH	 CUSERNAME	 CPASSWORD	 NSMTPPORT	 CERRORMSG/           	 
    * T  CCC   C    C
  `6`( T CC  C   C
  `6( T CC  C   C
  `6( T CC  C   C
  `6( T CC  C   C
  `6( T CC  C   C
  `6& T CC  C   
  6 T C C
 C
   & T CC  C   
  6& T CC  C   
  6& T	 CC	  C 	  
  6& T
 CC
  C 
  
  61 %C
  
 C Importance:
  
	Y  C
 Importance
  
   5 %
  " C Return-Receipt-To:
  
	' C Return-Receipt-To
  
    %C
  
 C Reply-To
  
    %C
 
l T  -- C
 C
  Content-Type: 
  C
 C
 C
 C
  C
 C
 C
 C
 d T   -- C
 C
  Content-Type: 
  C
 C
 C
 C
 
 C
 C
 6 T	   multipart/alternative;boundary="  " : |
 SendMailAsync
 ! * T CC
 " 
 C
 " 
   6* T CC
 # 
 C
 # 
   6F C                    	 
 $ 
         Ba U%  LCMAILSERVER LCSENDERNAME
 LCSENDEREMAIL LCRECIPIENT LCCCLIST	 LCSUBJECT	 LCMESSAGE LCATTACHMENT	 LCBCCLIST
 LCCONTENTTYPE LCALTERNATETEXT
 LCUSERNAME
 LCPASSWORD THIS CMAILSERVER CSENDERNAME CSENDEREMAIL
 CRECIPIENT CCCLIST CBCCLIST CSUBJECT CMESSAGE CATTACHMENT CCONTENTTYPE CMESSAGEALTERNATE	 CPRIORITY
 CEXTRAHEADERS	 ADDHEADER LRETURNRECEIPT CREPLYTO LCCONTENTBOUNDARY CCONTENTTYPEALTERNATE
 SENDMAILASYNC CDLLPATH	 CUSERNAME	 CPASSWORD	 NSMTPPORT       / T CC
 lcFileSpecb C    *.*64 T CC
 lcDestinationb C   C]C6 | UnZip  ' BC       C    6  U 	 LCZIPFILE
 LCDESTINATION
 LCFILESPEC
 LLDONTRECURSE UNZIP THIS CDLLPATH    & T  CC   N      6 %   F  B  %C i  T    0 | InternetSetOption WININET.DLL T     T C      T C      T C      U	 
 DWTIMEOUTSECS LNHANDLE THIS NCONNECTTIMEOUT
 HIPSESSION INTERNETSETOPTION WININET DLL LLRETVAL       / T CC
 lnCompressionb N   	6 | Zip  ' BC       C    6  U 	 LCZIPFILE
 LCFILELIST
 LNCOMPRESSION	 LLRECURSE ZIP THIS CDLLPATH     BC     U 
 LCFILENAME	 ENCODEDBF       BC     U  LCBUFFER LCDBF	 DECODEDBF       U  LNBYTESDOWNLOADED
 LNBUFFERREADS LCCURRENTCHUNK           5  T C]C" T C MSMAPI.MAPISessionN %C 	 
  T 
  	  T      T 
   

 C   %   # T C MSMAPI.MAPIMessagesN T     @$ T   MAPI Logon failed...
   B- 
 C  
 T   %C  

   T C    ,   (  T   T    T   T  C      %C  

   T C    ,   (  T   T    T   T  C      %C  
I
   T C    ,   ( E T   T    T   T  C      %C  

   T C    ,   (  T    T    T  CC    T  C      T      T !  "  T C wwEvalN& C loMessages.SEND( .F. ) # 
  
 C $  % %  T   &  B-  Ba U' 
 LLDONTSEND	 LOSESSION	 LCOLDPATH Y LNRECIPS X LOEVAL
 LOMESSAGES THIS	 CUSERNAME USERNAME PASSWORD	 CPASSWORD DOWNLOADMAIL SIGNON	 SESSIONID	 CERRORMSG COMPOSE
 CRECIPIENT LARECIPS APARSESTRING
 RECIPINDEX	 RECIPTYPE RECIPDISPLAYNAME CCCLIST CBCCLIST CATTACHMENT ATTACHMENTINDEX ATTACHMENTPOSITION ATTACHMENTNAME ATTACHMENTPATHNAME
 MSGSUBJECT CSUBJECT MSGNOTETEXT CMESSAGE EVALUATE SIGNOFF LERROR
 CERRORMESSAGE9          T C ?   %  j  T C   \ T  C   =  
 T     T C ://   % 
  B  T CC   =@
 H F   http  T  80   https# T  443   ftpF T  21  T  C   \ T C :   %   T C    : /a  T C   = T  C   C >\ O T C /   %  
 T   
 T     K T C   \ T  C   \   T C RELATIONN C	 cProtocol     C cServer     C cPath       C cquerystring     C cPort     C	 cUserName     C	 cPassword    	 B  U	  LCURL LNAT
 LCPROTOCOL
 LCQUERYSTRING LCPORT LCSERVER EXTRACT LOURL ADDPROPERTY        BC  
1 | Base64StringEncode
 wwIPStuff.dll T CC  >X %C   C  >    	 B    T C ` BC C >= U  LCINPUT	 LVNOTUSED LCRESULT BASE64STRINGENCODE	 WWIPSTUFF DLL LCOUTPUT      BC   U  LCINPUT LOXML7           ! T CC  
     	 6! T CC 
    
 6  T CC 	     6 %C   B 0 | InternetSetOption WinInet.dll
 T +
 T , %C 

 T   T C >
 T   T C         %  T  C  T  C     B-   %C 
)
 T   T C >
 T   T C         % % T  C  T  C     B-   Ba U 
 TCUSERNAME
 TCPASSWORD	 HIPHANDLE
 LCUSERNAME
 LCPASSWORD LPBUFFER LPDWBUFFERLENGTH NSUCCESS THIS CHTTPPROXYUSERNAME CHTTPPROXYPASSWORD HHTTPSESSION INTERNETSETOPTION WININET DLL INTERNET_OPTION_PROXY_USERNAME INTERNET_OPTION_PROXY_PASSWORD DWBUFFERLENGTH DWOPTION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG     %C ' 
 T    
 %  H  T     ] 
 T   - | InternetDial WININET.DLL
 T    T C         %    T 	   Ba  T 	   T 
  
 H  wD T   User Cancelled  s T  
 No Connection  W" T   Invalid Parameters   T   No Dialtone   T  	 No answer  lJ: T  * No Endpoints - connection is misconfigured  o- T   Couldn't find phonebook entry 2 T  C    B- U
  LLUNATTENDED LCCONNECTION
 LNDIALMODE INTERNETDIAL WININET DLL LNCONN LNRESULT THIS
 NRASHANDLE NERROR	 CERRORMSG GETSYSTEMERRORMSG     %C  &  T     ( | InternetHangUp WinInet.dll %C      r  Ba  B- U  LNHANDLE THIS
 NRASHANDLE INTERNETHANGUP WININET DLL       T C     . | GetRTTAndHopCount Iphlpapi |	 inet_addr ws2_32 
    T
 C    J (   T
 C 
  d   %
    Ba  B- U  LCDOMAIN LNHOPS LNTIME LCIP THIS GETIPFROMDOMAIN GETRTTANDHOPCOUNT IPHLPAPI	 INET_ADDR WS2_32 NDST NHOP NRTT LNRESULT      %C   B  %CZ # T      C
 C
  B / T       : C _C
 C
  U  LCKEY LCVALUE THIS
 CEXTRAHEADERSn    # T  CC   C      6! T    
 wwIPStuff.dll  | GetLastError WIN32API U  LCPATH THIS CDLLPATH GETLASTERROR WIN32API	 decodedbf,     	 encodedbf"     getdomainfromip     getipfromdomain     getlastinterneterror    
 getpostbuffer     getsystemerrormsg     rasdial
    	 rashangup     sendmail&
    
 sendmailasynca    
 unzipfiles*     wininetsettimeout8     zipfiles    
 encodefile{    
 decodefile     onhttpbufferupdate     sendmapimail6      internetcrackurl&     base64encode4*     base64decodeA+    
 setproxyloginr+     internetdial.     internethangup>2     ping2    	 addheaderf4     Init5    1  12q A RqqqbQq A   Q1Bq A A  qq A A "A r 1  q q A   A " 1 A b" 2A C 1 q q E a  A  > q E b  A  : q  b A <  8   " A D  A    A A  :   h " A r 1 BAA "  A  < 3121A!1AA QqA 1A  A EbA    A   1  aaaaaA QqA 1A EbA gr P1 1Ar>  cB A  A " 1 1r; q  2  !3  2 q q ""311A  Q21 A q A   3 rAQB A 2 rBQA A 2 sBQB A 3 rBAQA A 21da  1q A r 2 q q5!a  A Rq A  Q aA A b1a 1   !A A  3  q   A  B1   1  q A A      q A A    q A A r 4    A    A  q A  !!!!!!! AB r 3 q  A q A r 2  R !q A r 2  A A 1A A 3 q 9;                            '     
  b   ?   
       K          V     Z     a   ~       c     0      ~   N   S%  3     s%  (  ^     (  U:  {     y:  K       ,K  N  O     N  S  j    S  W      >W  qW    	  W  W      W  4X      WX  b    W  "c  -h  -    Ph  k  k    k  n      n  $t      Gt  x      x  y  !    y  {  1    {  |  G    |  4  V   )    >                       ?PROCEDURE decodedbf
LPARAMETERS lcBuffer, lcDBF
LOCAL lnSeparator, lcHeader, lcFname, lnSize1, lnSize2, lcDBF, lcFile1, lcFile2

IF LEN(lcBuffer)<105
   RETURN .F.
ENDIF
 
lcHeader=SUBSTR(lcBuffer,1,105)
lcFname=TRIM(SUBSTR(lcBuffer,6,40))
lnSize1=VAL(SUBSTR(lcBuffer,46,10))
lnSize2=VAL(SUBSTR(lcBuffer,96,10))

*** Use parm or the filename specified in the header
lcDBF=IIF(empty(lcDBF),lcFname,UPPER(lcDBF))

if lcHeader # "wwDBF"
   wait window nowait "Invalid Decode File Header"
   RETURN .f.
ENDIF

lcFile1=""
lcFile2=""

if lnSize1 > 0
   lcFile1=SUBSTR(lcBuffer,106,lnSize1)
   IF LEN(lcFile1) < lnSize1
      wait window nowait "Invalid File Size: "+;
               STR(LEN(lcFile1)) +" of "+ STR(lnSize1)
      RETURN .F.
   ENDIF
ENDIF

IF lnSize2 > 0   
   lcFile2=SUBSTR(lcBuffer,106 + lnSize1, lnSize2)
   lnSizex=LEN(lcFile2)
   IF LEN(lcFile2) < lnSize2 - 1
      wait window nowait "Invalid Memo File Size: " +;
                 STR(LEN(lcFile2)) +" of "+ STR(lnSize2)
      RETURN .F.
   ENDIF
ENDIF

=File2Var(lcDBF,lcFile1)

IF !EMPTY(lcFile2)
   =File2Var(STRTRAN(lcDBF,".DBF",".FPT"),lcFile2)
ENDIF

RETURN .T.


#IF .F.
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwipstuff::decodedbf                                        

*:Description:
Takes asdjkalsdkjasd a string encoded with<<%= TopicLink(" EncodeDbf()","wwipstuff::decodedbf") %>> and converts it back into a physical file. If the string contains a DBF with a memo the memo is also restored. 

Used extensively in Web data transfers

*:Parameters:
<<b>>lcBuffer<</b>>
Buffer of the file to decode. Must be a full DBF or DBF/FPT pair properly encoded by EncodeDbf.

<<b>>lcDBF<</b>>
The file to save to. The file will be written to disk with this name.



*:Returns:
.t. or .f.

*:Example:


*:Remarks:


*:SeeAlso:
Class wwipstuff

*:Keywords:


*:HelpId:
575

*:ENDHELP

#ENDIF

ENDPROC
PROCEDURE encodedbf
LPARAMETERS lcDBF, llHasMemo
LOCAL lcBuffer1, lcBuffer2, lcDBF, lcHeader, lcFPT

IF EMPTY(lcDBF)
   RETURN .F.
ENDIF
lcDBF=UPPER(lcDBF)

IF !FILE(lcDBF)
   RETURN ""
ENDIF   

lcBuffer1=File2Var(lcDBF)
lcHeader = "wwDBF" + PADR(justfname(lcDBF),40) + ;
            STR(LEN(lcBuffer1),10)
if !llHasMemo
  lcHeader=lcHeader + SPACE(50)  && Pad out header
  RETURN lcHeader + lcBuffer1
ENDIF

lcFPT=FORCEEXT(lcDBF,"fpt")

lcBuffer2=File2Var(lcFPT)  
IF EMPTY(lcBuffer2)
   *** No FPT file
   RETURN lcHeader + SPACE(50) + lcBuffer1
ENDIF

lcHeader=lcHeader + PADR(justfname(lcFPT),40) + ;
          STR(LEN(lcBuffer2),10)

RETURN lcHeader + lcBuffer1 + lcBuffer2 

********************************************************
* wwIPStuff :: EncodeDBF
*********************************
***  Function: This function encodes a DBF file ready to
***            be sent up to a server using HTTPGetEx in
***            the POST buffer. The file will be URL
***            encoded.
***    Assume: Note you can send a ZIP file here, too!
***            100 byte header on top of file contains 
***            5 byte ID (wwDBF) filename (40 bytes) and
***            size(10 bytes) for each
***            file
***      Pass: lcDBF     - Full DBF filename w/ ext
***            llHasMemo - .t. or (.f.)
***    Return: Encoded Buffer or "" on failure
********************************************************
ENDPROC
PROCEDURE getdomainfromip
LPARAMETERS lcIPAddress
LOCAL lcDomain

DECLARE GetDomainFromIp ;
     IN (THIS.cDLLPath) ;
     String @cDomain,;
     String cIpAddress

lcDomain=SPACE(200)   
lnValue= GetDomainFromIp(@lcDomain,lcIPAddress) 
IF AT(CHR(0),lcDomain) > 1
  lcDomain=substr(lcDomain,1,AT(chr(0),lcDomain) -1 )
ELSE
  lcDomain=""
ENDIF
  
RETURN lcDomain  

************************************************************************
* wwIPStuff :: GetDomainFromIp
*********************************
***  Function: Returns the domain name from an IP Addressed passed
***    Assume: Can be slow as a reverse look up against DNS server
***            is made. Over dialup this can take 5-10 seconds for
***            initial connection about 1 second once connected.
***      Pass: lcIPAddress   -   An IP Address (111.111.111.111)
***    Return: Domain Name or "" if !found or failure
************************************************************************

ENDPROC
PROCEDURE getipfromdomain
LPARAMETERS lcDomain

DECLARE GetIpFromDomain ;
  IN (THIS.cDLLPath) ;
  String @cIpAddress,;
  String cDomain

lcIpAddress=SPACE(56)

lnValue= GetIpFromDomain(@lcIpAddress,lcDomain) 
IF AT(CHR(0),lcIpAddress) > 1
  lcIpAddress=substr(lcIpAddress,1,AT(chr(0),lcIpADdress) -1 )
ELSE
  lcIpAddress=""
ENDIF

RETURN lcIpAddress
************************************************************************
* wwIPStuff :: GetIpFromDomain
*********************************
***  Function: Returns the IP address of a given domain name.
***      Pass: lcDomain  -    Domain Name address
***    Return: IP Address of "" if not resolved
************************************************************************

ENDPROC
PROCEDURE getlastinterneterror
LPARAMETERS lnError

lnError=IIF(type("lnError")="N",lnError,THIS.nError)

DECLARE INTEGER InternetGetLastResponseInfo ;
    IN WININET.DLL ;
    INTEGER @lpdwError,;
    STRING @lpszBuffer,;
    INTEGER @lpcbSize 

lcErrorMsg=SPACE(1024)
lnSize=LEN(lcErrorMsg)

=InterNetGetLastResponseInfo(@lnError,@lcErrorMsg,@lnSize)

IF lnSize < 2
   RETURN ""
ENDIF

RETURN SUBSTR(lcErrorMsg,1,lnSize)
************************************************************************
* wwIPStuff :: GetLastInternetError
*********************************
***  Function: Retrieves the last WinInet error using WinInet's error 
***            responses.
***    Assume: Currently not used by class internally
***            Under Construction
***      Pass: lnError   -  Error Code to resolve(Optional)
***    Return: Error Message or "" 
************************************************************************
ENDPROC
PROCEDURE getpostbuffer


RETURN wwPostBuffer.cPostBuffer
************************************************************************
* wwIPStuff :: GetPostBuffer
*********************************
***  Function: Returns the entire Post Buffer as a string
************************************************************************

ENDPROC
PROCEDURE getsystemerrormsg
LPARAMETERS lnErrorNo, llAPI
LOCAL szMsgBuffer,lnSize

lnErrorNo=IIF(type("lnErrorNo")="N",lnErrorNo,THIS.nError)

IF lnErrorNo = ERROR_INTERNET_EXTENDED_ERROR
  RETURN THIS.GetLastInternetError()
ENDIF

szMsgBuffer=SPACE(500)
DECLARE INTEGER FormatMessage ;
     IN WIN32API ;
     INTEGER dwFlags ,;
     INTEGER lpvSource,;
     INTEGER dwMsgId,;
     INTEGER dwLangId,;
     STRING @lpBuffer,;
     INTEGER nSize,;
     INTEGER  Arguments

DECLARE INTEGER GetModuleHandle ;
   IN WIN32API ;
   STRING

lnModule=GetModuleHandle("wininet.dll")
IF lnModule # 0 AND !llAPI
    lnSize=FormatMessage(FORMAT_MESSAGE_FROM_HMODULE,lnModule,lnErrorNo,;
                         0,@szMsgBuffer,LEN(szMsgBuffer),0)
ELSE
  lnSize=0                     
ENDIF                     

IF lnSize > 2
  szMsgBuffer=SUBSTR(szMsgBuffer,1, lnSize -2  )
ELSE
  *** REtry with 12000 less - WinInet return Windows API file error codes
  lnSize=FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,0,lnErrorNo,;
                     0,@szMsgBuffer,LEN(szMsgBuffer),0)

   IF lnSize > 2
      szMsgBuffer="Win32 API: " + SUBSTR(szMsgBuffer,1, lnSize-2 )
   ELSE
      szMsgBuffer=""  
   ENDIF
ENDIF
               
RETURN szMsgBuffer
********************************************************
* wwIPStuff :: GetSystemErrorMsg
*********************************
***  Function: Returns an Error Message for the last 
***            error value set in nError property.
***    Assume: nError was set by last operation
***    Return: Error String or ""
********************************************************
ENDPROC
PROCEDURE rasdial
LPARAMETERS lcRASEntry, lcUsername, lcPassword
LOCAL lcErrorMsg, lnResult

DECLARE INTEGER DoRasDial ;
   IN (THIS.cDLLPath) ;
   STRING szEntry,;
   STRING szUsername,;
   STRING szPassword,;
   INTEGER @dwHandle,;
   STRING @Errormsg

THIS.cErrorMsg = ""

lcErrorMsg = SPACE(256)

lnHandle=0
lnResult = DoRasDial(lcRASEntry,lcUserName,lcPassword,;
                     @lnHandle,@lcErrorMsg)

IF lnResult # 0
   THIS.nRASHandle = lnHandle
ELSE
   THIS.nRASHandle = 0   
   THIS.cErrorMsg = TRIM(STRTRAN(lcErrorMsg,CHR(0),""))
ENDIF   

RETURN IIF(lnResult = 0,.F.,.T.)
************************************************************************
* wwIPStuff :: RASDial
*********************************
***  Function: Connects via the RAS dialer - no interface except a 
***            MessageBox on error!
***     Notes: Connection handle is stored in THIS.nRASHandle. This
***            handle is necessary to close down a RAS Connection
***            via RASHangup.
***      Pass: lcRASEntry      -   Name of the RAS Connection to use
***            lcUsername	   -   Username to connect
***            lcPassword      -   Password to connect
***    Return: .t. or .f.
************************************************************************

ENDPROC
PROCEDURE rashangup

DECLARE INTEGER DoRasHangup ;
   IN (THIS.cDLLPath) ;
   INTEGER lnHandle

IF THIS.nRASHandle = 0
   THIS.cErrorMsg = "No Connection active"
ENDIF
   
llResult = IIF( DoRasHangup(THIS.nRASHandle) = 0,.T.,.F.)
IF llResult
   THIS.nRASHandle = 0
ELSE
   THIS.cErrorMsg = "Invalid Connection Handle..."
ENDIF
  
RETURN llResult
************************************************************************
* wwIPStuff :: RASHangup
*********************************
***  Function: Terminates the RAS Connection that was initiated with
***            RASDial.
***    Assume: Works only on connections opened with RASDial and the
***            THIS.nRASHandle set there. Use a persistent object to
***            keep this reference around!
***    Return: .t. or .f.
************************************************************************
ENDPROC
PROCEDURE sendmail
LPARAMETERS lcMailServer, lcSenderName, lcSenderEmail, ;
             lcRecipient, lcCCList, lcSubject, lcMessage, ;
             lcAttachment, lcBCCList,lcContentType,lcAlternateText,lcLogFile
LOCAL lcError, llResult, lcUsername, lcPassword

lcMailserver=TRIM(IIF(type("lcMailserver")="C",lcMailserver,THIS.cMailServer))
lcSendername=TRIM(IIF(type("lcSendername")="C",lcSendername,THIS.cSenderName))
lcSenderEmail=TRIM(IIF(type("lcSenderEmail")="C",lcSenderEmail,THIS.cSenderEmail))
lcRecipient=TRIM(IIF(type("lcRecipient")="C",lcRecipient,THIS.cRecipient))
lcCCList=TRIM(IIF(type("lcCCList")="C",lcCCList,THIS.cCCList))
lcBCCList=TRIM(IIF(type("lcBCCList")="C",lcBCCList,THIS.cBCCList))

lcSubject=IIF(type("lcSubject")="C",lcSubject,THIS.cSubject)
lcSubject = CHRTRAN(lcSubject,CHR(13)+CHR(10)," ") && Strip out CRLF
lcMessage=IIF(type("lcMessage")="C",lcMessage,THIS.cMessage)
lcAttachment=TRIM(IIF(type("lcAttachment")="C",lcAttachment,THIS.cAttachment))
lcContentType=TRIM(IIF(type("lcContentType")="C",lcContentType,THIS.cContentType))
lcLogFile = TRIM(IIF(TYPE("lcLogFile")="C",lcLogFile,this.cLogFile))

*** NOte: this value is matched to the boundary in wwipstuff.dll
***       DON'T CHANGE!
lcContentBoundary = "NextPart_000_0025_01BDBAA5.86C80EB0"

*** Add some common required extra headers
IF !EMPTY(this.cPriority) AND ATC("Importance:",this.cExtraHeaders) < 1
   this.AddHeader("Importance",this.cPriority)
ENDIF
IF THIS.lReturnReceipt AND ATC("Return-Receipt-To:",this.cExtraHeaders) < 1
      this.Addheader("Return-Receipt-To",this.cSenderemail)
ENDIF
IF !EMPTY(this.cReplyTo)
    this.AddHeader("Reply-To",this.cReplyTo)
ENDIF

IF EMPTY(lcAlternateText)
	lcAlternateText = this.cMessageAlternate
ENDIF	
IF !EMPTY(lcAlternateText)
	*** More info: http://www.wilsonweb.com/wmt5/html-email-multi.htm
	lcMessage = "--" + lcContentBoundary + CRLF + ;
				"Content-Type: " + this.cContentType + CRLF +CRLF +;
				lcMessage  + CRLF +CRLF
	
	lcMessage = lcMessage + ;
				"--" + lcContentBoundary + CRLF + ;
				"Content-Type: " + this.cContentTypealternate + CRLF +CRLF +;
				lcAlternateText  + CRLF
	
	lcContenttype = [multipart/alternative;boundary="] + lcContentBoundary + ["]
ENDIF

lcError=SPACE(513)

DECLARE integer SendMail ;
   IN (THIS.cDLLPath) ;
   STRING cFrom, ;
   STRING cFromName, ;
   STRING cTo, ;
   STRING cCC, ;
   STRING cBCC, ;
   STRING cSubject, ;
   STRING cMessage, ;
   STRING cAttachment,; 
   STRING cMailHost,;
   STRING @cError,;
   STRING cContentType,;
   INTEGER nPort,;
   STRING cExtraHeaders,;
   STRING cUsername,;
   STRING cPassword,;
   STRING cLogFile

*** Base64 Encode username and password
#IF wwVFPVersion < 7
	lcUsername = IIF(!EMPTY(this.cUsername),this.Base64encode(TRIM(THIS.cUsername)),"" )
	lcpassword = IIF(!EMPTY(this.cPassword),this.Base64encode(TRIM(THIS.cPassword)),"" )
#ELSE
	lcUsername = IIF(!EMPTY(this.cUsername),STRCONV(TRIM(THIS.cUsername),13),"")
	lcpassword = IIF(!EMPTY(this.cPassword),STRCONV(TRIM(This.cPassword),13),"")
#ENDIF

llResult=IIF(SendMail(lcSenderEmail, lcSenderName,;
            lcRecipient, lcCCList,lcBCCList,;
            lcSubject, lcMessage, lcAttachment,;
            lcMailServer,@lcError,lcContentType,THIS.nSMTPPort,THIS.cExtraHeaders,;
            lcUsername, lcPassword,lcLogFile)=1,.T.,.F.)

IF !llResult
   THIS.cErrorMsg = TRIM(CHRTRANC(lcError,CHR(0),""))
ELSE
   THIS.cErrorMsg = ""
ENDIF
               
RETURN llResult

************************************************************************
* wwIPStuff :: SendMail
*********************************
***  Function: Sends SMTP mail. Call waits for completion and returns
***            result code
***    Assume: Message Text can't be more than 64k. 
***      Pass: tcMailServer    -  IP Address or Domain Name
***            tcSenderName    -  Sender Display Name (Rick Strahl)
***            tcSenderMailAddress Sender's full email address (rstrahl@west-wind.com)
***            tcRecipientList -  Recipients separated by commas (ben@test.com, jim@test.com)
***            tcCCList        -  List of CCs separated by commas
***            tcSubject       -  Subject Header 
***            tcMessage       -  Message Body 
***            tcAttachement   -  File Attachement (1 only)
***    Return: .T. or .F.
************************************************************************
ENDPROC
PROCEDURE sendmailasync
LPARAMETERS lcMailServer, lcSenderName, lcSenderEmail, ;
             lcRecipient, lcCCList, lcSubject, lcMessage, ;
             lcAttachment, lcBCCList, lcContentType, lcAlternateText
LOCAL lcUsername, lcPassword
             
lcMailserver=TRIM( IIF(vartype(lcMailserver)="C",lcMailserver,TRIM(THIS.cMailServer)) )
lcSendername=IIF(vartype(lcSendername)="C",lcSendername,TRIM(THIS.cSenderName))
lcSenderEmail=IIF(vartype(lcSenderEmail)="C",lcSenderEmail,TRIM(THIS.cSenderEmail))
lcRecipient=IIF(vartype(lcRecipient)="C",lcRecipient,TRIM(THIS.cRecipient))
lcCCList=IIF(vartype(lcCCList)="C",lcCCList,TRIM(THIS.cCCList))
lcBCCList=IIF(vartype(lcBCCList)="C",lcBCCList,TRIM(THIS.cBCCList))
lcSubject=IIF(vartype(lcSubject)="C",lcSubject,THIS.cSubject)
lcSubject = CHRTRAN(lcSubject,CHR(13)+CHR(10)," ") && Strip out CRLF
lcMessage=IIF(vartype(lcMessage)="C",lcMessage,THIS.cMessage)
lcAttachment=IIF(vartype(lcAttachment)="C",lcAttachment,THIS.cAttachment)
lcContentType=IIF(vartype(lcContentType)="C",lcContentType,THIS.cContentType)
lcAlternateText=IIF(VARTYPE(lcAlternateText)="C",lcAlternateText,this.cmessagealternate)

*** Add some common required extra headers
IF !EMPTY(this.cPriority) AND ATC("Importance:",this.cExtraHeaders) < 1
   this.AddHeader("Importance",this.cPriority)
ENDIF
IF THIS.lReturnReceipt AND ATC("Return-Receipt-To:",this.cExtraHeaders) < 1
      this.Addheader("Return-Receipt-To",this.cSenderemail)
ENDIF
IF !EMPTY(this.cReplyTo)
    this.AddHeader("Reply-To",this.cReplyTo)
ENDIF

IF !EMPTY(lcAlternateText)
	*** More info: http://www.wilsonweb.com/wmt5/html-email-multi.htm
	lcMessage = "--" + lcContentBoundary + CRLF + ;
				"Content-Type: " + this.cContentType + CRLF +CRLF +;
				lcMessage  + CRLF +CRLF
	
	lcMessage = lcMessage + ;
				"--" + lcContentBoundary + CRLF + ;
				"Content-Type: " + this.cContentTypealternate + CRLF +CRLF +;
				lcAlternateText  + CRLF
	
	lcContenttype = [multipart/alternative;boundary="] + lcContentBoundary + ["]
ENDIF


DECLARE integer SendMailAsync ;
   IN  (THIS.cDLLPath) ; 
   STRING cFrom, ;
   STRING cFromName, ;
   STRING cTo, ;
   STRING cCC, ;
   STRING cBCC, ;
   STRING cSubject, ;
   STRING cMessage, ;
   STRING cAttachment,;
   STRING cMailHost,;
   STRING cContentType,;
   INTEGER nPort,;
   STRING cExtraHeaders,;
   STRING cUsername,;
   STRING cPassword

*** Base64 Encode username and password
#IF wwVFPVersion < 7
	lcUsername = IIF(!EMPTY(this.cUsername),this.Base64encode(THIS.cUsername),"" )
	lcpassword = IIF(!EMPTY(this.cPassword),this.Base64encode(THIS.cPassword),"" )
#ELSE
	lcUsername = IIF(!EMPTY(this.cUsername),STRCONV(THIS.cUsername,13),"")
	lcpassword = IIF(!EMPTY(this.cPassword),STRCONV(This.cPassword,13),"")
#ENDIF
       
=SendMailAsync(lcSenderEmail, lcSenderName,;
               lcRecipient, lcCCList, lcBCCList,;
               lcSubject, lcMessage, lcAttachment, ;
               lcMailServer, lcContentType,THIS.nSMTPPort,THIS.cExtraHeaders,;
               lcUsername, lcPassword)

RETURN .T.
************************************************************************
* wwIPStuff :: SendMailAsynch
*********************************
***  Function: Sends SMTP mail. This method does not block and
***            returns immediately. No result code is returned.
***    Assume: Attachments are not supported
***            Message Text can't be more than 64k. 
***            IMPORTANT: If you release the DLL while a message
***                       is still being sent the DLL with GPF!
***      Pass: tcMailServer    -  IP Address or Domain Name
***            tcSenderName    -  Sender Display Name (Rick Strahl)
***            tcSenderMailAddress Sender's full email address (rstrahl@west-wind.com)
***            tcRecipientList -  Recipients separated by commas (ben@test.com, jim@test.com)
***            tcCCList        -  List of CCs separated by commas
***            tcSubject       -  Subject Header 
***            tcMessage       -  Message Body 
***            tcAttachement   -  File Attachement (1 only)
***    Return: always .T. and no result
************************************************************************

ENDPROC
PROCEDURE unzipfiles
LPARAMETERS lcZipFile, lcDestination, lcFileSpec, llDontRecurse

lcFileSpec=IIF(type("lcFileSpec")="C",lcFileSpec,"*.*")
lcDestination=IIF(type("lcDestination")="C",lcDestination,SYS(5) + CURDIR())

DECLARE INTEGER UnZip ;
   IN (THIS.cDLLPath) ;
   STRING ZipFile,;
   STRING Destination,;
   STRING FileSpec,;
   INTEGER DontRecurse

RETURN UnZip(lcZipFile,lcDestination,lcFileSpec,IIF(llDontRecurse,1,0))
************************************************************************
* wwIPStuff :: UnZipFiles
*********************************
***  Function: Unzips files to a specified directory
***    Assume: Requires DynaZip DLLs (dunzip32.dll)
***      Pass: lcZipFile
***            lcDestination  -  Dir to unzip to
***            lcFileSpec     -  Files to unzip (*.*)
***    Return: DynaZip Error Code or 0 on success
************************************************************************


ENDPROC
PROCEDURE wininetsettimeout
LPARAMETERS dwTimeoutSecs, lnHandle

dwTimeoutSecs=IIF(VARTYPE(dwTimeoutSecs)="N",;
   dwTimeoutSecs,THIS.nconnecttimeout)
   
IF dwTimeoutSecs = 0
   *** Just use the default
   RETURN
ENDIF   

IF EMPTY(lnHandle)
   lnHandle = THIS.hIPSession
ENDIF      

DECLARE INTEGER InternetSetOption ;
   IN WININET.DLL ;
   INTEGER HINTERNET,;
   INTEGER dwFlags,;
   INTEGER @dwValue,;
   INTEGER 

dwTimeoutSecs=dwTimeoutSecs * 1000   && to milliseconds
llRetVal=InternetSetOption(lnHandle,;
   INTERNET_OPTION_CONNECT_TIMEOUT,;
   @dwTimeoutSecs,4)

llRetVal=InternetSetOption(lnHandle,;
   INTERNET_OPTION_RECEIVE_TIMEOUT,;
   @dwTimeoutSecs,4)

llRetVal=InternetSetOption(lnHandle,;
   INTERNET_OPTION_SEND_TIMEOUT,;
   @dwTimeoutSecs,4)

*   dwTimeoutSecs=1  &&// Retry only 1 time
*   llRetVal=InternetSetOption(lnHandle,;
*      INTERNET_OPTION_CONNECT_RETRIES,;
*      @dwTimeoutSecs,4)


********************************************************
* wwIPStuff :: WinInetSetTimeout
*********************************
***  Function: Sets various timeout for use with a 
***            WinInet Connection
***      Pass: dwTimeoutSecs - Secs to wait for timeout
********************************************************

ENDPROC
PROCEDURE zipfiles
LPARAMETERS lcZipFile, lcFileList, lnCompression, llRecurse

lnCompression=IIF(type("lnCompression")="N",lnCompression,9)
 
DECLARE INTEGER Zip ;
   IN (THIS.cDLLPath) ;
   STRING ZipFile,;
   STRING FileList,;
   INTEGER lnCompression,;
   INTEGER lnRecurse

RETURN Zip(lcZipFile,lcFileList,lnCompression,IIF(llRecurse,1,0))
************************************************************************
* wwIPStuff :: ZipFiles
*********************************
***  Function: Zips files
***    Assume: Function requires DynaZip DLLs (dzip32.dll)
***      Pass: lcZipFile   - Fully qualified ZIP file name 
***            lcFileList  - Comma Delimited file list (Wildcards OK)
***    Return: DynaZip error code or 0
************************************************************************
ENDPROC
PROCEDURE encodefile
LPARAMETER lcFileName
RETURN EncodeDBF(lcFilename)
ENDPROC
PROCEDURE decodefile
LPARAMETERS lcBuffer,lcDBF
RETURN DecodeDBF(@lcBuffer,@lcDBF)

ENDPROC
PROCEDURE onhttpbufferupdate
LPARAMETER lnBytesDownloaded,lnBufferReads,lcCurrentChunk
ENDPROC
PROCEDURE sendmapimail
LPARAMETERS llDontSend
LOCAL loSession, lcOldPath, Y, lnRecips, x, loEval
PRIVATE loMessages

lcOldPath = SYS(5) + CURDIR()

loSession = CREATEOBJECT( "MSMAPI.MAPISession" )

* Signon to mail if you have a password
IF !EMPTY(THIS.cUserName)
    loSession.UserName = THIS.cUserName
    loSession.PASSWORD = THIS.cPassword
ENDIF

loSession.DownloadMail = !llDontSend && Force Send/Recv
loSession.Signon()
IF ( loSession.SessionID > 0 )
    *** Create Messages Object to attach messages to
    loMessages = CREATEOBJECT( "MSMAPI.MAPIMessages" )
    loMessages.SessionID = loSession.SessionID
ELSE
    THIS.cErrorMsg = "MAPI Logon failed..."
    CD (lcOldPath)
    RETURN .F.
ENDIF

loMessages.Compose()

Y=0

*** Primary Recipient
IF !EMPTY(THIS.cRecipient)
    DIMENSION laRecips[1]
    lnRecips=APARSESTRING(@laRecips,THIS.cRecipient,",")

    FOR x=1 TO lnRecips
        * Set the Recipient name and resolve
        Y = Y + 1
        loMessages.RecipIndex = y - 1
        loMessages.RecipType = 1
        loMessages.RecipDisplayName = laRecips[x]
        * loMessages.ResolveName()
    ENDFOR
ENDIF

IF !EMPTY(THIS.cCCList)
    *** Primary CCRecipient
    DIMENSION laRecips[1]
    lnRecips=APARSESTRING(@laRecips,THIS.cCCList,",")

    FOR x=1 TO lnRecips
        Y = Y + 1
        * Set the Recipient name and resolve
        loMessages.RecipIndex = Y - 1
        loMessages.RecipType = 2
        loMessages.RecipDisplayName = laRecips[x]
    ENDFOR
ENDIF

IF !EMPTY(THIS.cBCCList)
    *** Primary BCCRecipient
    DIMENSION laRecips[1]
    lnRecips=APARSESTRING(@laRecips,THIS.cBCCList,",")


    FOR x= 1 TO lnRecips
        Y = Y + 1
        * Set the Recipient name and resolve
        loMessages.RecipIndex = Y -1
        loMessages.RecipType = 3
        loMessages.RecipDisplayName = laRecips[x]
        *loMessages.ResolveName()
    ENDFOR
ENDIF
 
**** Attachments
IF !EMPTY(THIS.cAttachment)
    *** Primary BCCRecipient
    DIMENSION laRecips[1]
    lnRecips=APARSESTRING(@laRecips,THIS.cAttachment,",")

    FOR x= 1 TO lnRecips
        * Set the Recipient name and resolve
        loMessages.AttachmentIndex = x -  1       
		loMessages.AttachmentPosition = x - 1
		loMessages.AttachmentName = JustFName( laRecips[x] )
		loMessages.AttachmentPathName = laRecips[x]
    ENDFOR
ENDIF

loMessages.MsgSubject = THIS.cSubject
loMessages.MsgNoteText = THIS.cMessage


*** Send the message and capture the error
loEval = CREATE("wwEval")
loEval.Evaluate([loMessages.SEND( .F. )])

CD (lcOldPath)

loSession.SignOff()

IF loEval.lError
   THIS.cErrorMsg = loEval.cErrorMessage
   RETURN .F.
ENDIF    

RETURN .T.
ENDPROC
PROCEDURE internetcrackurl
LPARAMETERS lcUrl
LOCAL  lnAT, lcProtocol, lcQuerystring, lcPort, lcServer

*lcUrl = LOWER(lcUrl)

*** Find the querystring first
lnAT = AT("?",lcUrl)
IF lnAT > 0
   lcQuerystring = SUBSTR(lcUrl,lnAT)
   lcUrl = LEFT(lcUrl,lnAT-1)
ELSE
   lcQuerystring = ""
ENDIF

lnAT = AT("://",lcUrl)
IF lnAT < 1
   RETURN .NULL.
ENDIF

lcProtocol = lower(LEFT(lcUrl,lnAT-1))
DO CASE
CASE lcProtocol == "http"
   lcPort = "80"
CASE lcProtocol == "https"
   lcPort = "443"
CASE lcProtocol = "ftp"
   lcPort = "21"
ENDCASE

lcUrl = SUBSTR(lcUrl,lnAT + 3)
lnAT = AT(":",lcUrl)

IF lnAT > 0
   lcPort = Extract(lcUrl,":","/",,.T.)
   lcServer = LEFT(lcUrl,lnAT-1)
   lcUrl = SUBSTR(lcUrl,lnAT + LEN(lcPort) + 1)
ELSE
   lnAT = AT("/",lcUrl)
   IF lnAT = 0
      lcServer = lcUrl
      lcUrl = ""
   ELSE
      lcServer = SUBSTR(lcUrl,1,lnAT-1)
      lcURL = SUBSTR(lcUrl,lnAt) 
   ENDIF
ENDIF

loUrl = CREATE("RELATION")
loUrl.ADDPROPERTY("cProtocol",lcProtocol)
loUrl.ADDPROPERTY("cServer",lcServer)
loUrl.ADDPROPERTY("cPath",lcUrl)  && What's left of the url
loUrl.ADDPROPERTY("cquerystring",lcQuerystring)
loUrl.ADDPROPERTY("cPort",lcPort)

*** Not implementented
loURL.AddProperty("cUserName","")
loUrl.AddProperty("cPassword","")

RETURN loUrl

ENDPROC
PROCEDURE base64encode
LPARAMETERS lcInput, lvNotUsed
LOCAL lcResult

#IF wwVFPVERSION > 6
      RETURN STRCONV(lcInput,13)
#ENDIF

DECLARE INTEGER Base64StringEncode IN wwIPStuff.dll ;
   String Input, Integer Length, String @Output

lcOutput = SPACE(LEN(lcInput) * 3 + 4)
IF Base64StringEncode(lcInput,LEN(lcInput),@lcOutput) = 0
   RETURN ""
ENDIF

lcOutput = TRIM(lcOutput)

RETURN LEFT(lcOutput,LEN(lcOutput)-1)

#IF .F.
*:Help Documentation
*:Topic:
wwipstuff::addpostkey
*:Description:
Adds a POST key and value pair to be used in a POST operation with 
HTTPGetEx().
*:Parameters:
<<b>>tcKey<</b>>
The Key name of the field to post

<<b>>tcValue<</b>>
The actual Text Value to send to te server

<<b>>llFileName<</b>>
Is this a file
*:Returns:
.T. or .F.
*:SeeAlso:
Class wwipstuff
*:HelpId:
15
*:Filename:
_1MW16NGHM
*:ENDHELP
#ENDIF

ENDPROC
PROCEDURE base64decode
LPARAMETERS lcInput, loXML

#IF wwVFPVERSION > 6
   RETURN STRCONV(lcInput,14)
#ELSE

*** THIS CODE DOES NOT WORK WITH VFP 6
*!*   IF VARTYPE(loXML) # "O"
*!*      loXML = CREATEOBJECT(XML_XMLDOM_PROGID)
*!*      loXML.Async = .F.
*!*   ENDIF   

*!*   lcDocument = [<node xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64">] + lcInput + [</node>]

*!*   loXML.loadXML(lcDocument)

*!*   RETURN loXML.DocumentElement.nodeTypedValue


DECLARE INTEGER Base64StringDecode ;
   IN wwipstuff.dll ;
   STRING lcInput, integer lnSize, string @Output

lnResult = Base64StringDecode(@lcInput,LEN(lcInput),@lcInput)
IF lnresult = 0
   RETURN ""
ENDIF

RETURN LEFT(lcInput,lnResult-1)
#ENDIF
ENDPROC
PROCEDURE setproxylogin
LPARAMETERS tcUserName, tcPassword, hIPHandle
LOCAL lcUsername, lcPassword, lpBuffer, lpdwBufferLength, nSuccess

lcUserName = IIF(!EMPTY(tcUserName),tcUserName,THIS.cHTTPProxyUserName)
lcPassword = IIF(!EMPTY(tcPassword),tcPassword,THIS.cHTTPProxyPassword)
hIPHandle = IIF(EMPTY(hIPHandle),THIS.hHTTPSession,hIPHandle)

IF EMPTY(lcUsername)
   RETURN
ENDIF   

DECLARE INTEGER InternetSetOption IN WinInet.dll ;
    INTEGER hInternet, ;
    INTEGER dwOption, ;
    STRING @lpBuffer, ;
    LONG lpdwBufferLength

INTERNET_OPTION_PROXY_USERNAME = 43
INTERNET_OPTION_PROXY_PASSWORD = 44

IF !EMPTY(lcUserName)
    lpBuffer = lcUserName 
    dwBufferLength = LEN(lpBuffer) 
    dwOption = INTERNET_OPTION_PROXY_USERNAME
    nSuccess = InternetSetOption(hIPHandle, dwOption, @lpBuffer, dwBufferLength)
    IF nSuccess <> 1
         THIS.nError = GetLastError()
         THIS.cErrorMsg = THIS.GetSystemErrorMsg(THIS.nError)
         RETURN .F.
     ENDIF
ENDIF

IF !EMPTY(lcPassword)
   lpBuffer = lcpassword
   dwBufferLength = LEN(lpBuffer) 
   dwOption = INTERNET_OPTION_PROXY_PASSWORD
   nSuccess = InternetSetOption(hIPHandle, dwOption, @lpBuffer, dwBufferLength)
   IF nSuccess <> 1
      THIS.nError = GetLastError()
      THIS.cErrorMsg = THIS.GetSystemErrorMsg(THIS.nError)
      RETURN .F.
   ENDIF
ENDIF

RETURN .T.


ENDPROC
PROCEDURE internetdial
LPARAMETERS llUnattended, lcConnection

IF EMPTY(lcConnection)
   lcConnection = ""
ENDIF

IF llUnattended
   lnDialMode = 0x8000 && INTERNET_DIAL_UNATTENDED
ELSE
   lnDialMode = 0
ENDIF   

DECLARE INTEGER InternetDial in WININET.DLL ;
   INTEGER hwndParent,;
   STRING lpszConnectoid,;
   INTEGER dwFlag,;
   INTEGER @lpdwConnection,;
   INTEGER dwReserved
   
lnConn = 0
lnResult = InternetDial(0,lcConnection,lnDialMode,@lnConn,0)

IF lnResult = 0
   THIS.nRasHandle = lnConn
   RETURN .T.
ENDIF

THIS.nRasHandle = 0
THIS.nerror=lnResult
DO CASE
 CASE lnResult = 631
    this.cErrorMsg = "User Cancelled"
 CASE lnResult = 668
    this.cErrorMsg = "No Connection"
 CASE lnResult = 87
    this.cErrorMsg = "Invalid Parameters"
 CASE lnResult = 680
    this.cErrorMsg = "No Dialtone"
 CASE lnResult = 678
    this.cErrorMsg = "No answer"
 CASE lnResult = 620
    this.cErrorMsg = "No Endpoints - connection is misconfigured"
 CASE lnResult = 623
    this.cErrorMsg = "Couldn't find phonebook entry"
 OTHERWISE
   THIS.cerrormsg = THIS.GetSystemerrormsg()

ENDCASE

RETURN .F.

ENDPROC
PROCEDURE internethangup
LPARAMETERS lnHandle

IF EMPTY(lnHandle)
  lnHandle = this.nRasHandle
ENDIF

DECLARE INTEGER InternetHangUp IN WinInet.dll ;
   INTEGER dwConnection, integer dwReserved
   
IF InternetHangUp(lnHandle,0) = 0
   RETURN .T.
ENDIF

RETURN .F.   
ENDPROC
PROCEDURE ping
LPARAMETERS lcDomain,lnHops, lnTime

lcIP = this.GetIpFromDomain(lcDomain)

DECLARE INTEGER GetRTTAndHopCount IN Iphlpapi;
		INTEGER DestIpAddress, LONG @HopCount,;
		INTEGER MaxHops, LONG @RTT

DECLARE INTEGER inet_addr IN ws2_32 STRING cp

LOCAL nDst, nHop, nRTT
nDst = inet_addr(lcIP) 
STORE 0 TO lnHops, lnTime

lnResult = GetRTTAndHopCount(nDst, @lnHops, 100, @lnTime)
IF lnResult <>0
   RETURN .T.
ENDIF

RETURN .F.
ENDPROC
PROCEDURE addheader
LPARAMETERS lcKey, lcValue

IF PARAMETERS() = 0
	RETURN
ENDIF
	
IF PARAMETERS() = 1
   this.cExtraHeaders = this.cExtraHeaders + lcKey + CRLF
   RETURN
ENDIF

this.cExtraHeaders = this.cExtraheaders + lcKey + ": " + TRANSFORM(lcValue) + CRLF

ENDPROC
PROCEDURE Init
LPARAMETER lcPath

#IF .F.
WAIT WINDOW NOWAIT ;
  "Welcome to West Wind Internet Protocols..." + CHR(13) + ;
  "This is a shareware copy of wwIPStuff." + CHR(13)+ CHR(13) +;
  "Please register your copy."
#ENDIF
  
lcPath=IIF(VARTYPE(lcPath)="C",lcPath,"")

THIS.cDLLPath=lcPath+"wwIPStuff.dll"

*** We'll use this for any of the WinInet API calls
DECLARE INTEGER GetLastError;
   IN WIN32API
   
************************************************************************
* wwIPStuff :: Init
*********************************
***  Function: Loads the DLL 
***      Pass: lcPath  -  Path where to find the DLL. If "" is used
***                       SYSTEM path or local is assumed. Path must
***                       be terminated with a trailing backslash
************************************************************************

ENDPROC
     uPROCEDURE ftpgetfileex
LPARAMETER lcSourceFile, lcTargetFile
LOCAL lhFileHandle, hFTPFile, tcBuffer, tnSize, tnBufferSize, lnRetVal, lnBytesRead, lnBufferReads

DECLARE INTEGER FtpOpenFile ;
   IN WININET.DLL ;
   INTEGER hIPSession,;
   STRING @lpszFileName,;
   INTEGER dwAcessFlags,;
   INTEGER dwServiceFlags,;
   INTEGER dwContext


DECLARE INTEGER InternetReadFile ;
   IN WININET.DLL ;
   INTEGER hFTPHandle,;
   STRING lcBuffer,;
   INTEGER cbBuffer,;
   INTEGER @cbBuffer

lnMode = IIF(this.nFtpBinary = 1, FTP_TRANSFER_TYPE_BINARY,FTP_TRANSFER_TYPE_ASCII)
hFTPFile = FtpOpenFile(THIS.hFTPSession,TRIM(lcSourceFile),;
                       GENERIC_READ,;
                       INTERNET_FLAG_RELOAD + lnMode,0)

IF hFTPFile = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   RETURN THIS.nError
ENDIF

DECLARE INTEGER FtpGetFileSize IN WinINet.dll ;
   INTEGER lhFile, LONG @lnSize

lnUpperSize = 0
THIS.nCurrentFileSize =  FtpGetFileSize(hFTPFile,@lnUpperSize)  

*** Build the buffer dynamically
THIS.lCancelDownload = .f.
tcBuffer = ""
tnSize = 0
tnBufferSize = 0
lnRetVal = 0
lnBytesRead = 1
lnBufferReads = 0
lhFileHandle = FCREATE(TRIM(lcTargetFile))
IF lhFileHandle=-1
      THIS.cErrorMsg = "Output file couldn't be created."
      InternetCloseHandle(hFTPFile)
      RETURN FError()
ENDIF

DO WHILE .t.
     lcReadBuffer = REPL(CHR(0),THIS.nFTPWorkBufferSize)
     lnBytesRead = 0
     lnSize = THIS.nFTPWorkBufferSize

     lnRetval=InternetReadFile(hFTPFile,;
		   @lcReadBuffer,;
		   lnSize,;
		   @lnBytesRead)

		IF lnRetVal = 1 AND lnBytesRead > 0
		   *** Update the input parameters - result buffer and size of buffer
		   *tcBuffer = tcBuffer + LEFT(lcReadBuffer,lnBytesRead)
		   =FWRITE(lhFileHandle,LEFT(lcReadBuffer,lnBytesRead) )
		   tnBufferSize = tnBufferSize + lnBytesRead
		   lnBufferReads = lnBufferReads + 1

         *** Event Call through
		   THIS.OnFTPBufferUpdate(tnBufferSize,lnBufferReads,@lcReadBuffer,this.nCurrentFileSize)
		ENDIF
        IF (lnRetVal = 1 AND lnBytesRead = 0) OR (lnRetVal = 0) 
           *** Done
           EXIT
        ENDIF
        IF THIS.lCancelDownload
           =FCLOSE(lhFileHandle)
           ERASE (lcTargetFile)
           EXIT
        ENDIF
ENDDO

InternetCloseHandle(hFTPFile)

lnBufferSize = tnBufferSize

*** Event Call through 
THIS.OnFTPBufferUpdate(0,-1,"",this.nCurrentfilesize)
this.nCurrentFileSize = 0

=FCLOSE(lhFileHandle)

RETURN 0


#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwFTP::FTPGetFileEx                                     

*:Description:
...Retrieves a file from an FTP site and allows trapping the OnFTPBufferUpdate event. This event allows for status information and also cancellation of a download.

*:Parameters:
<<b>>cSourceFile<</b>>
The source file to retrieve from the server.

<<b>>cTargetFile<</b>>
The target file to save it to on the local machine/network.




*:Returns:
numeric - API error code
API Error result codes can be retrieved with wwGetSystemErrorMsg() 

*:Example:
o=create("wwFTP")

o.FTPConnect("ftp.west-wind.com")
o.FTPGetFileEx("/downloads/pkzip.exe","c:\temp\pkzip.exe")


*:Remarks:
Fires OnFTPBufferUpdate events which you can capture to provide progress information on your download.


*:SeeAlso:
Class wwFTP
wwFTP::OnFTPBufferUpdate


*:Keywords:

*:HelpId:
678

*:ENDHELP
ENDTEXT
#ENDIF

ENDPROC
PROCEDURE onftpbufferupdate
LPARAMETERS lnbytesdownloaded,lnbufferreads,lccurrentchunk, lnTotalBytes

#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::onftpbufferupdate                                    

*:Description:
Event that fires whenever the buffer is updated by FTPGetFileEx(). This method is passed the current download total and the number of chunks retrieved already. You can set lCancelDownload to .T. to force FTPGetEx to stop the file download.

*:Parameters:
<<b>>lnbytesdownloaded<</b>>
Total bytes that have been downloaded on this request so far.

<<b>>lnbufferreads<</b>>
Total number of buffers that have been read so far.

<<b>>lccurrentchunk<</b>>
Content of the current download chunk read. File information is incremental so it's possible to capture text and append it to a file incrementally for possibly viewing information while it's downloading.



*:Returns:


*:Example:
*** Download with Status Events
SET CLASSLIB TO wwIPStuff additive
SET PROCEDURE TO wwUtils additive

PUBLIC o
o=CREATE("myFTP")
wait window nowait "Alt-x to abort download..."
ON KEY LABEL ALT-X o.lCancelDownload = .T.

IF o.FTPConnect("ftp.west-wind.com") # 0
   ? o.nError
   ? o.cErrorMsg
   RETURN
ENDIF

IF o.FtpGetFileEx("wconnect.zip","c:\temp\wconnect.zip")  # 0
  ? o.nError
  ? o.cErrorMsg
  RETURN
ENDIF


ON KEY LABEL ALT-X
RETURN

*** Implementation of Message Display and abort code

Define class myFtp as wwFTP

Function OnFTPBufferUpdate
LPARAMETER lnBytesDownloaded,lnBufferReads,lcCurrentChunk

DO CASE
  CASE lnBufferReads > 0
     wait window "Downloaded: " + TRANSFORM(lnBytesDownloaded)+ " bytes (Alt-X to cancel)" nowait
  CASE lnBufferReads = -1
    wait window "Download aborted..." timeout 2
ENDCASE
RETURN
ENDDEFINE


*:Remarks:


*:SeeAlso:
Class wwftp
wwftp::lCancelDownload
wwftp::nFTPWorkBufferSize
wwftp::FTPGetFileEx
wwftp::FTPSendFileEx

*:Keywords:


*:HelpId:
679

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE ftpconnect
LPARAMETER lcServer, lcUsername, lcPassword
LOCAL lhIP, lhHTTP, lnError, lnHTTPPort

lcServer=LOWER(TRIM(IIF(!EMPTY(lcServer),lcServer,THIS.cServer)))
lcUsername=TRIM(IIF(!EMPTY(lcUsername),lcUsername,THIS.cUsername))
lcPassword=TRIM(IIF(!EMPTY(lcPassword),lcPassword,THIS.cPassword))

IF lcServer = "ftp://"
   lcServer = STRTRAN(lcServer,"ftp://","")
ENDIF   

*** Assign Default Ports
IF THIS.nHTTPPort = 0
   lnHTTPPort = INTERNET_DEFAULT_FTP_PORT
ELSE
   lnHTTPPort = THIS.nHTTPPort
ENDIF

IF THIS.lPassiveFTP
   THIS.nServiceFlags = THIS.nServiceFlags + FTP_CONNECT_PASSIVE
ENDIF

THIS.cServer = lcServer
THIS.nError=0
THIS.cErrorMsg=""

DECLARE INTEGER InternetCloseHandle ;
   IN WinInet.DLL ;
   INTEGER

DECLARE INTEGER GetLastError;
   IN WIN32API

DECLARE INTEGER InternetOpen ;
   IN WININET.DLL ;
   STRING,;
   INTEGER,;
   STRING, STRING, INTEGER

hInetConnection=;
   InternetOpen(THIS.cUserAgent,;
   THIS.nhttpconnecttype,;
   THIS.chttpproxyname,THIS.chttpproxybypass,0)

IF hInetConnection = 0
   THIS.nError=GetLastError()
   THIS.cErrorMsg=THIS.GetSystemErrorMsg(THIS.nError)
   RETURN THIS.nError
ENDIF

THIS.hIPSession=hInetConnection
THIS.WinInetSetTimeout()

DECLARE INTEGER InternetConnect ;
   IN WININET.DLL ;
   INTEGER hIPHandle,;
   STRING lpzServer,;
   INTEGER dwPort, ;
   STRING lpzUserName,;
   STRING lpzPassword,;
   INTEGER dwServiceFlags,;
   INTEGER dwReserved,;
   INTEGER dwReserved


lhFTPSession=;
   InternetConnect(hInetConnection,;
   lcServer,;
   lnHTTPPort,;
   lcUsername,;
   lcPassword,;
   INTERNET_SERVICE_FTP,;
   THIS.nServiceFlags,0)

IF (lhFTPSession = 0)
   lnError = 0
   lcErrMsg = SPACE(256)
   lnErrLen = LEN(lcErrMsg)
   
   DECLARE INTEGER InternetGetLastResponseInfo ;
      IN WININET.DLL ;
      INTEGER @dwError,;
      STRING @szBuffer,;
      INTEGER @dwBufferLength
      
   lnResult = InternetGetLastResponseInfo(@lnError,@lcErrMsg,@lnErrLen)

   =InternetCloseHandle(hInetConnection)

   IF lnError = 0
      THIS.cErrorMsg = TRIM(STRTRAN(lcErrMsg,CHR(0),""))
      IF EMPTY(this.cErrorMsg)
         this.cErrorMsg = "Couldn't connect to FTP Server"
      ENDIF
      THIS.nError = 1
   ELSE
      THIS.cErrorMsg = THIS.GetSystemErrorMsg()
      this.nError = lnError
   ENDIF
   RETURN THIS.nError
ENDIF

THIS.hIPSession = hInetConnection
THIS.hFTPSession = lhFTPSession

IF !EMPTY(THIS.cHTtpproxyusername)
   THIS.SetProxyLogin(,,THIS.hFTPSession)
ENDIF

RETURN 0


#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::ftpconnect

*:Description:
Connects to an FTP site and allows passing of a user name and password.

*:Parameters:
<<b>>cServer<</b>>
The server to connect to. Example: ftp.west-wind.com or 127.0.0.1

<<b>>lcUsername<</b>>
<<i>>Optional<</i>> - username for authenticated connections to the server

<<b>>lcPassword<</b>>
<<i>>Optional<</i>> - password for authenticated connections to the server


*:Returns:


*:Example:
oFTP = CREATE("wwFTP")

oFTP.FTPConnect("ftp.west-wind.com")
oFTP.FTPGetFile("pkzip.exe","c:\temp\pkzip.exe")
oFTP.FTPClose()


*:Remarks:


*:SeeAlso:
Class wwftp


*:Keywords:


*:HelpId:
680

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE ftpclose

DECLARE INTEGER InternetCloseHandle ;
   IN WININET.DLL ;
   INTEGER hIPSession

=InternetCloseHandle(THIS.hFTPSession)
=InternetCloseHandle(THIS.hIPSession)   

THIS.hFTPSession=0
THIS.hIPSession=0
   
#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::ftpconnect                                           

*:Description:
Connects to an FTP site and allows passing of a user name and password.

*:Parameters:
<<b>>cServer<</b>>
The server to connect to. Example: ftp.west-wind.com or 127.0.0.1

<<b>>lcUsername<</b>>
<<i>>Optional<</i>> - username for authenticated connections to the server

<<b>>lcPassword<</b>>
<<i>>Optional<</i>> - password for authenticated connections to the server


*:Returns:


*:Example:
oFTP = CREATE("wwFTP")

oFTP.FTPConnect("ftp.west-wind.com")
oFTP.FTPGetFile("pkzip.exe","c:\temp\pkzip.exe")
oFTP.FTPClose()


*:Remarks:


*:SeeAlso:
Class wwftp


*:Keywords:


*:HelpId:
680

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE ftpsendfileex
LPARAMETER lcSourceFile, lcTargetFile
LOCAL lhFile, lnRetVal, lnBytesRead, lnBufferReads, lcWriteBuffer, hFTPFile, lnMode

this.nError = 0
this.cErrorMsg = ""

DECLARE INTEGER FtpOpenFile ;
   IN WININET.DLL ;
   INTEGER hIPSession,;
   STRING @lpszFileName,;
   INTEGER dwAcessFlags,;
   INTEGER dwServiceFlags,;
   INTEGER dwContext

DECLARE INTEGER InternetWriteFile ;
   IN WININET.DLL ;
   INTEGER hFTPHandle,;
   STRING lcBuffer,;
   INTEGER cbBuffer,;
   INTEGER @cbBuffer
 
lnMode = IIF(this.nFtpBinary = 1, FTP_TRANSFER_TYPE_BINARY,FTP_TRANSFER_TYPE_ASCII)
hFTPFile = FtpOpenFile(THIS.hFTPSession,TRIM(lcTargetFile)+CHR(0),;
                       GENERIC_WRITE,;
                       lnMode,0)
IF hFTPFile = 0
   THIS.nError = GetLastError()
   IF THIS.nError = 0 
      this.cErrorMsg = this.GetSystemErrorMsg(ERROR_INTERNET_EXTENDED_ERROR)
   ELSE
      THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   ENDIF

   IF this.nError = 0 
      IF EMPTY(THIS.cErrorMsg)
         this.cErrorMsg = "Unable to connect to server..."
      ENDIF
      THIS.nError = -1
   ENDIF
   RETURN THIS.nError
ENDIF

*** Read the file from disk
lhFile = FOPEN(TRIM(lcSourceFile))
IF lhFile = -1
   THIS.cErrorMsg = "Source file doesn't exist or is in use..."
   THIS.nError = 1
   RETURN 1
ENDIF   

*** Set the file size to upload
this.nCurrentFileSize = FSEEK(lhFile,0,2)
FSEEK(lhFile,0,0)

THIS.lCancelDownload = .f.
tnBufferSize = 0
lnBufferReads = 0
DO WHILE .T.
   *** Read one chunk at a time
   lcWriteBuffer = FRead(lhFile,THIS.nFTPWorkBufferSize)
   IF LEN(lcWriteBuffer) = 0
      EXIT
   ENDIF

   *** And write out each chunk
   lnSize=LEN(lcWriteBuffer)
   lnBytesRead = 0
   lnRetval=InternetWriteFile(hFTPFile,;
		   lcWriteBuffer,;
		   lnSize,;
		   @lnBytesRead)	

      IF (lnRetVal = 0)
         THIS.nError = GetLastError()
         THIS.cErrorMsg = THIS.GetSystemErrorMsg()
         exit
      ENDIF

    IF lnRetVal = 1 AND lnBytesRead > 0
	   *** Update the input parameters - result buffer and size of buffer
	   tnBufferSize = tnBufferSize + lnBytesRead
	   lnBufferReads = lnBufferReads + 1
	   THIS.OnFTPBufferUpdate(tnBufferSize,lnBufferReads,"",this.nCurrentFileSize)
	ENDIF
	IF THIS.lCancelDownload
      THIS.cErrorMsg = "Download canceled by user"
	  EXIT
	ENDIF
    IF (lnRetVal = 1 AND lnBytesRead = 0) OR (lnRetVal = 0) 
       EXIT
    ENDIF
    
    DOEVENTS
ENDDO

InternetCloseHandle(hFTPFile)	
lnBufferSize = tnBufferSize

*** Notify Completion
THIS.OnFTPBufferUpdate(0,-1,"",this.nCurrentFileSize)

this.nCurrentFileSize = 0
FCLOSE(lhFile)



RETURN this.nError

#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::FTPSendFileEx                                        

*:Description:
Uploads a file to an FTP site with event progress information and the ability to cancel.

*:Parameters:
<<b>>cSourceFile<</b>>
Local file to send to the server.

<<b>>cTargetFile<</b>>
Filename on the server to copy the file to. 



*:Returns:


*:Example:


*:Remarks:
You must have rights to write to the FTP directory based on the FTP server permissions. Write permissions are not granted to FTP directories by default, so you have to make sure that you can upload files in the first place. You can check this out with your regular FTP client.

*:SeeAlso:
Class wwftp
wwFTP::OnFTPBufferUpdate
wwFTP::lCancelDownload

*:Keywords:


*:HelpId:
682

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE parsefiletime
LPARAMETER lcFTime
LOCAL lcSysTime, lnYear, lnMonth, lnDay, lnHour, lnMinute, lnSecond, lcDTime

DECLARE INTEGER FileTimeToSystemTime ;
   IN WIN32API ;
   STRING sFileTime, ;
   STRING @sSysTime
 
   
lcSysTime = SPACE(16)
FileTimeToSystemTime( lcFTime, @lcSysTime)
lnYear = CharToBin(LEFT(lcSysTime,2))
lnMonth = CharToBin(SUBSTR(lcSysTime,3,2))
lnDay = CharToBin(SUBSTR(lcSysTime,7,2))
lnHour = CharToBin(SUBSTR(lcSysTime,9,2))
lnMinute = CharToBin(SUBSTR(lcSysTime,11,2))
lnSecond = CharToBin(SUBSTR(lcSysTime,13,2))

lcDTime =  ALLTRIM(STR(lnYear)) + '-' + ALLTRIM(STR(lnMonth)) + '-' + ALLTRIM(STR(lnDay))  + ' ' + ;
   ALLTRIM(STR(lnHour)) + ':' + ALLTRIM(STR(lnMinute)) + ':' + ALLTRIM(STR(lnSecond))

RETURN EVALUATE( "{^" + lcDTime + "}" )

ENDPROC
PROCEDURE ftpsendfile
LPARAMETERS lcFTPServer, lcSource, lcTarget, lcUsername, lcPassword
LOCAL lnResult

lcFTPServer=TRIM(IIF(type("lcFTPServer")="C",lcFTPServer,THIS.cFTPServer))
lcSource=TRIM(IIF(type("lcSource")="C",lcSource,THIS.cFTPSource))
lcTarget=TRIM(IIF(type("lcTarget")="C",lcTarget,THIS.cFTPTarget))
lcUserName=TRIM(IIF(type("lcUserName")="C",lcUserName,THIS.cUsername))
lcPassword=TRIM(IIF(type("lcPassword")="C",lcPassword,THIS.cPassword))
lnBinary=THIS.nFTPBinary

IF (lnBinary = 1)
   lnBinary = FTP_TRANSFER_TYPE_BINARY
ELSE
   lnBinary = FTP_TRANSFER_TYPE_ASCII
ENDIF
   
lnResult = THIS.FTPConnect(lcFTPServer,lcUserName,lcPassWord)
IF lnResult != 0
   RETURN lnResult
ENDIF

DECLARE Integer FtpPutFile ;
   IN WinInet.dll ;
   Integer hFTPSession,;
   STRING lpzSource,;
   STRING lpzTarget,;
   INTEGER nBinary,;
   INTEGER nReserved
   
lnResult=FtpPutFile(THIS.hFTPSession,;
		  lcSource+CHR(0),;
		  lcTarget+CHR(0),;
		  lnBinary,;
		  0)

IF lnResult = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   THIS.FTPClose()
   RETURN THIS.nError
ENDIF

THIS.FTPClose()
   
RETURN 0



DECLARE INTEGER FTPSendFile ;
  IN (THIS.cDLLPath) ;
  STRING cServer,;
  STRING cSource,;
  STRING cTarget,;
  INTEGER nBinary,;
  STRING cUsername,;
  STRING cPassword

THIS.nError = 0


lnResult=FTPSendFile(lcFTPServer, lcSource, lcTarget, THIS.nFTPBinary, lcUsername,lcPassword)

IF lnResult # 0

   THIS.nError = lnResult
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
ENDIF   

RETURN lnResult
************************************************************************
* wwIPStuff :: FTPSendFile
*********************************
***  Function: Sends a file from the local machine to an FTP server
***    Assume: Synchronous method - waits for completion without
***                                 status reports
***      Pass: lcFTPServer     -
***            lcSource        -   Source file on the FTP site
***            lcTarget        -   Name to save to
***            lcUsername      -   Username - "" for Anonymous
***            lcPassword      -   Password - "" for Anonymous
***    Return: 0 on success - otherwise Win32 API Error Code
***            12003  -  Permissions error
***            3      -  Path not found
***            5      -  Access denied (local file)
************************************************************************

ENDPROC
PROCEDURE ftpgetfile
LPARAMETERS lcFTPServer, lcSource, lcTarget, lnBinary, lcUsername, lcPassword

lnBinary=IIF(EMPTY(lnBinary),FTP_TRANSFER_TYPE_BINARY,lnBinary)

IF EMPTY(lcFTPServer)
  lcFTPServer = THIS.cFTPServer
ENDIF
IF EMPTY(lcSource)
  lcSource = THIS.cFTPSource
ENDIF
IF EMPTY(lcTarget)
  lcTarget = THIS.cFTPTarget
ENDIF
IF EMPTY(lcUserName)
   lcUserName = THIS.cUserName  
ENDIF
IF EMPTY(lcPassWord)
   lcPassword = THIS.cPassword    
ENDIF

lnResult = THIS.FTPConnect(TRIM(lcFTPServer),TRIM(lcUserName),TRIM(lcPassWord))
IF lnResult # 0 
   RETURN lnResult
ENDIF

DECLARE Integer FtpGetFile ;
   IN WinInet.dll ;
	Integer dwIPSession,;
	String cSource,;
	String cTarget, ;
	Integer bNoOverwrite,;
	INTEGER nAttributes, ;
	Integer nFlags, ;
	Integer nContext

lnResult = FtpGetFile(THIS.hFTPSession,TRIM(lcSource),;
                     TRIM(lcTarget),0,FILE_ATTRIBUTE_NORMAL,;
                     lnBinary + INTERNET_FLAG_RELOAD,0)

IF lnResult = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   THIS.FTPClose()
   RETURN THIS.nError
ENDIF

THIS.FTPClose()
   
RETURN 0

#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::FTPGetFile                                           

*:Description:
Simple FTP retrieval method. This method retrieves a file from an FTP server with a single method call. This method is synchronous and does not fire any events.

*:Parameters:
<<b>>cServer<</b>>
The server to connect to. Example: <<i>>ftp.west.wind.com<</i>> or <<i>>123.123.123.213<</i>>

<<b>>cSourceFile<</b>>
Source File on the FTP Server.

<<b>>cTargetFile<</b>>
Target file on the local system. 

<<b>>cUsername<</b>>
<<i>>Optional<</i>> - Username when connecting to a secure directory.

<<b>>cPassword<</b>>
<<i>>Optional<</i>> - Password when connecting to a secure directory


*:Returns:


*:Example:
o=create("wwFTP")

o.FTPGetFile("ftp.west-wind.com","/downloads/pkzip.exe",;
             "c:\temp\pkzip.exe")


*:Remarks:
This method provides no mechanism for reporting progress information.

*:SeeAlso:
Class wwftp
wwFTP::FTPGetFileEx

*:Keywords:


*:HelpId:
704

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE aftpdir
LPARAMETERS lafiles,lcfilespec

IF EMPTY(lcFileSpec)
   lcFileSpec = "*.*"
ENDIF

*** W32_FILE_FIND structure
lsFileFind = SPACE(320)
lnFindHandle = 0

*** Offsets into structure
#DEFINE POS_FILENAME  45
#DEFINE POS_FILESIZE  33
#DEFINE POS_FILEATTRIBUTES 1

#DEFINE MAX_PATH 260
#DEFINE DIR_DIMENSIONS 4

THIS.nError = 0

DECLARE INTEGER FtpFindFirstFile ;
   IN WININET.DLL ;
   INTEGER hFTPSession,;
   STRING cFileSpec,;
   STRING @sFileFind,;
   INTEGER nFlags,;
   INTEGER nContext

*** Find the first file and get info into lsFileFind structure
lnFindHandle = ;
   FtpFindFirstFile(THIS.hFTPSession,;
   lcfilespec,;
   @lsFileFind,;
   INTERNET_FLAG_RELOAD,0)

IF lnFindHandle = 0
   THIS.nError = GetLastError()

   *** No files should not be considered an error
   IF THIS.nError = 18
      THIS.nError = 0
      RETURN 0
   ENDIF
   
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   RETURN 0
ENDIF

*** Parse out the various fields we're interested in
DIMENSION lafiles[1,DIR_DIMENSIONS]
lcFileName = SUBSTR(lsFileFind,POS_FILENAME,MAX_PATH)
lafiles[1,1] = SUBSTR(lcFileName,1,ATC(CHR(0),lcFileName)-1)

lcAttributes = SUBSTR(lsFileFind,POS_FILEATTRIBUTES,4)
lafiles[1,3] = CharToBin(lcAttributes)

lcSize = SUBSTR(lsFileFind,POS_FILESIZE,4)
lafiles[1,2] = CharToBin(lcSize)

laFiles[1,4] = THIS.ParseFileTime(SUBSTR(lsFileFind, 21, 8))

lnFileCount = 1

DECLARE INTEGER InternetFindNextFile ;
   IN WinInet.DLL ;
   INTEGER hFindHandle,;
   STRING @lsFileFind


*** Loop through the file list
DO WHILE InternetFindNextFile(lnFindHandle,@lsFileFind)  # 0
   lnFileCount = lnFileCount + 1
   lcFileName = SUBSTR(lsFileFind,POS_FILENAME,MAX_PATH)
   DIMENSION lafiles[lnFileCount,DIR_DIMENSIONS]
   lafiles[lnFileCount,1] = SUBSTR(lcFileName,1,ATC(CHR(0),lcFileName)-1)

   lcAttributes = SUBSTR(lsFileFind,POS_FILEATTRIBUTES,4)
   lafiles[lnFileCount,3] = CharToBin(lcAttributes)

   lcSize = SUBSTR(lsFileFind,POS_FILESIZE,4)
   lafiles[lnFileCount,2] = CharToBin(lcSize)
 
   lafiles[lnFileCount,4] = THIS.ParseFileTime(SUBSTR(lsFileFind, 21, 8))
ENDDO

InternetCloseHandle(lnFindHandle)

RETURN lnFileCount


#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::aFTPDir

*:Description:
This method retrieves a directory listing from an FTP directory into an array. The array returns the name, file attributes and size of the file.

*:Parameters:
<<b>>@aFiles<</b>>
Array that contains the list of files. The array has 4 dimensions:

  1 - Filename
  2 - File Size
  3 - File Attribute (numeric)
  4 - Date Time value (not implemented yet)

<<b>>cFileSpec<</b>>
A filespec that specifies which directory to get a listing for. The file spec should include wild card characters like *.* to specify all files or *.txt to show all text files.



*:Returns:
numeric - the number of files returned by the directory.
If this value is 0 you can check the nError and cErrorMsg properties for error conditions, but only if an error occurred.

*:Example:
oFTP = CREATE("wwFTP")

oFTP.FTPConnect("ftp.west-wind.com")

DIMENSION laFiles[1,4]
lnResult = oFTP.aFTPDir(@laFiles,"/*.*")
FOR x=1 to lnResult
   ? laFiles[x,1],laFiles[x,2],laFiles[x,3]
ENDFOR

*:Remarks:
This method requires that you manually call FTPConnect and FTPClose to open and close the FTP session.

*:SeeAlso:
Class wwftp

*:Keywords:


*:HelpId:
703

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE ftpcreatedirectory
LPARAMETER lcPath

IF EMPTY(lcPath) 
   RETURN .F.
ENDIF
   
DECLARE INTEGER FtpCreateDirectory ;
   IN WININET.DLL ;
   INTEGER hConnect,;
   STRING lpszDirectory

RETURN IIF(FtpCreateDirectory(THIS.hftpsession,lcPath)=0,.F.,.T.)

ENDPROC
PROCEDURE ftpremovedirectory
LPARAMETER lcPath

IF EMPTY(lcPath) 
   RETURN .F.
ENDIF
   
DECLARE INTEGER FtpRemoveDirectory ;
   IN WININET.DLL ;
   INTEGER hConnect,;
   STRING lpszDirectory

RETURN IIF(FtpRemoveDirectory(THIS.hftpsession,lcPath)=0,.F.,.T.)
ENDPROC
PROCEDURE ftpdeletefile
LPARAMETERS lcfile

DECLARE INTEGER FtpDeleteFile ;
   IN WinInet.dll ;
   INTEGER hFTPSession,;
   STRING cFileName
   
IF FtpDeleteFile(THIS.hFTPSession,lcFile + CHR(0)) = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   RETURN THIS.nError
ENDIF
   
RETURN 0

#IF .F.
TEXT
********************************
*   HELP BUILDER COMMENT BLOCK *
********************************
*:Help Documentation
*:Topic:
wwftp::FTPDeleteFile                                        

*:Description:
Deletes a file on the FTP server.

*:Parameters:
<<b>>cFileName<</b>>
The filename to delete on the server. This filename can include a FTP server relative path such as "/uploads/somefile.txt". No wildcards are allowed.


*:Returns:
numeric - Windows API or WinInet API error code. 0 - on success, other on failure

*:Example:
oFTP = CREATE("wwFTP")

oFTP.FTPConnect("ftp.west-wind.com")

DIMENSION laFiles[1,4]
IF  oFTP.DeleteFile("/uploads/somefile.txt") # 0
   ? oFTP.cErrorMsg
   RETURN
ENDIF

? "File deleted..."

oFTP.Close()

*:Remarks:
This method requires that you manually call FTPConnect and FTPClose to open and close the FTP session. 

In order to delete files you have to have the appropriate rights on the server.

*:SeeAlso:
Class wwftp
wwFTP::FTPConnect
wwFTP::FTPClose

*:Keywords:


*:HelpId:
702

*:ENDHELP

ENDTEXT
#ENDIF

ENDPROC
PROCEDURE ftpcommand
LPARAMETER lcCommand, lcBuffer, lnSize

DECLARE INTEGER FtpCommand ;
   IN WININET.DLL ;
   INTEGER hConnect,;
   INTEGER fExpectResponse,;
   INTEGER dwFlags,;
   STRING lpzCommand,;
   INTEGER dwContext,;
   INTEGER @phFTPCommandResultHandle

lhResult = 0
lnResult = FtpCommand(THIS.hFTPSession,0,FTP_TRANSFER_TYPE_ASCII,lcCommand,0,@lhResult)
IF lnResult = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   RETURN lnResult
ENDIF

IF LEN(lcBuffer) = 0
   lcBuffer = SPACE(4096)
   lnSize = LEN(lcBuffer)
ELSE
   lnSize = LEN(lcBuffer)
ENDIF


DECLARE INTEGER InternetReadFile ;
   IN WININET.DLL ;
   INTEGER hFTPHandle,;
   STRING lcBuffer,;
   INTEGER cbBuffer,;
   INTEGER @cbBuffer
   
lnBytesRead = 0
lnRetval=InternetReadFile(lhResult,;
		   @lcBuffer,;
		   lnSize,;
		   @lnBytesRead)

IF lnRetVal = 1 AND lnBytesRead > 0
   lnSize = lnBytesRead
   lcBuffer = SUBSTR(lcBuffer,1,lnBytesRead)
ELSE
   lcBuffer = ""
   lnSize = 0
ENDIF

InternetCloseHandle(lhResult)

RETURN 0

ENDPROC
PROCEDURE ftprenamefile
LPARAMETERS lcOldName, lcNewName

Declare integer FtpRenameFile ;
   in wininet.dll ;
   INTEGER HCONNECT, ;
   STRING lpszExisting, ;
   STRING lpszNew

lnResult = FtpRenameFile(THIS.hftpsession, lcOldName + CHR(0), lcNewName + CHR(0))
IF lnResult = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   RETURN THIS.nError
ENDIF
   
RETURN 0
ENDPROC
PROCEDURE ftpsetdirectory
LPARAMETER lcPath

IF EMPTY(lcPath) 
   RETURN .F.
ENDIF
   
DECLARE INTEGER FtpSetCurrentDirectory ;
   IN WININET.DLL ;
   INTEGER hConnect,;
   STRING lpszDirectory

RETURN IIF(FtpSetCurrentDirectory(THIS.hftpsession,lcPath)=0,.F.,.T.)

ENDPROC
PROCEDURE ftpsendfileex2
LPARAMETERS lcSource, lcTarget

DECLARE Integer FtpPutFile ;
   IN WinInet.dll ;
   Integer hFTPSession,;
   STRING lpzSource,;
   STRING lpzTarget,;
   INTEGER nBinary,;
   INTEGER nReserved

lnMode = IIF(this.nFtpBinary = 1, FTP_TRANSFER_TYPE_BINARY,FTP_TRANSFER_TYPE_ASCII)
lnResult=FtpPutFile(THIS.hFTPSession,;
        lcSource+CHR(0),;
        lcTarget+CHR(0),;
        lnMode,;
        0)

IF lnResult = 0
   THIS.nError = GetLastError()
   THIS.cErrorMsg = THIS.GetSystemErrorMsg()
   WAIT WINDOW TIMEOUT 1 this.cErrorMsg
   THIS.FTPClose()
   RETURN THIS.nError
ENDIF

RETURN 0
ENDPROC
PROCEDURE nftpport_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.nHttpPort = m.vNewVal
this.nFtpPort = m.vNewVal

ENDPROC
PROCEDURE setproxylogin
LPARAMETERS tcUserName, tcPassword, hIPHandle
LOCAL lcUsername, lcPassword, lpBuffer, lpdwBufferLength, nSuccess

lcUserName = IIF(!EMPTY(tcUserName),tcUserName,THIS.cHTTPProxyUserName)
lcPassword = IIF(!EMPTY(tcPassword),tcPassword,THIS.cHTTPProxyPassword)
hIPHandle = IIF(EMPTY(hIPHandle),THIS.hHTTPSession,hIPHandle)

IF EMPTY(lcUsername)
   RETURN
ENDIF   

DECLARE INTEGER InternetSetOption IN WinInet.dll ;
    INTEGER hInternet, ;
    INTEGER dwOption, ;
    STRING @lpBuffer, ;
    LONG lpdwBufferLength

INTERNET_OPTION_PROXY_USERNAME = 43
INTERNET_OPTION_PROXY_PASSWORD = 44

IF !EMPTY(lcUserName)
    lpBuffer = lcUserName 
    dwBufferLength = LEN(lpBuffer) 
    dwOption = INTERNET_OPTION_PROXY_USERNAME
    nSuccess = InternetSetOption(hIPHandle, dwOption, @lpBuffer, dwBufferLength)
    IF nSuccess <> 1
         THIS.nError = GetLastError()
         THIS.cErrorMsg = THIS.GetSystemErrorMsg(THIS.nError)
         RETURN .F.
     ENDIF
ENDIF

IF !EMPTY(lcPassword)
   lpBuffer = lcpassword
   dwBufferLength = LEN(lpBuffer) 
   dwOption = INTERNET_OPTION_PROXY_PASSWORD
   nSuccess = InternetSetOption(hIPHandle, dwOption, @lpBuffer, dwBufferLength)
   IF nSuccess <> 1
      THIS.nError = GetLastError()
      THIS.cErrorMsg = THIS.GetSystemErrorMsg(THIS.nError)
      RETURN .F.
   ENDIF
ENDIF

RETURN .T.

ENDPROC
PROCEDURE Init
LPARAMETER lcPath

#IF .F. 
WAIT WINDOW NOWAIT ;
  "Welcome to West Wind Internet Protocols..." + CHR(13) + ;
  "This is a shareware copy of wwIPStuff." + CHR(13)+ CHR(13) +;
  "Please register your copy."
#ENDIF

ENDPROC
PROCEDURE Destroy

IF THIS.hIPSession # 0 OR THIS.hHTTPSession # 0
   THIS.FtpClose()
ENDIF

************************************************************************
* wwIPStuff :: Destroy
*********************************
***  Function: Clears HTTP Session Handles if open
************************************************************************

ENDPROC
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _S2X0O7E86 644856786K        &      }  u                  b  Y              g             COMMENT RESERVED                        X                                                                   WINDOWS _S1Y1ENTMV1111735749              g#    %           x  B            o           COMMENT RESERVED                        5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      custom      wwlight      wwxml      1      custom      1      Class      Pixels      Name = "wwlight"
      A lightweight object that has as many properties and methods as possible hidden. You can use AddProperty on this object to build objects on the fly. Used by wwXML for object generation.      wwlight      Pixels     TAddObject^
CloneObject^
Comment^
ControlCount^
Controls^
Height^
NewObject^
Objects^
Picture^
ReadExpression^
ReadMethod^
RemoveObject^
ResetToDefault^
SaveAsClass^
ShowWhatsThis^
Tag^
WhatsThisHelpID^
Width^
WriteExpression^
WriteMethod^
Name^
ClassLibrary^
HelpContextID^
Parent^
ParentClass^
Class^
BaseClass^
      custom      wwxml      
..\wconnect.h      adofields
      \XML conversion object that handles translation of FoxPro object and cursors to and from XML.      Class      custom     cbody Internal buffer that is used to hold XML text. If a document is to be parsed (simple) body will hold the full document including the header.
cxmlheader The default XML document header. By default this is just the plain XML header without DTD. Used only when creating a document - not set when writing. You may add additional headers to the default or overwrite it .
cpropertyexclusionlist List of properties that are not included in the XML document. This property is preset to strip out most VFP properties used for Custom objects. You can add to this property to filter out additional properties. Lower case values separated by commas.
lxmlheadersent Flag describes if header was output already
lcreatedatastructure Flag that specifies whether CursorToXML creates a DTD for the data definition. The DTD can be used to recreate a table on the other end of an XML connection.
cdtd The XML DTD for the document. This property is empty by default and is prepended to any XML that's output.
cerrormsg Last Error message
lusefoxtypes By default all types are generated using XML types which can be converted to Fox types and back. If you use Fox on both ends of the connection exclusively you can set this flag to .T. to allow the use of native Fox types.
lrecurseobjects Flag to determine whether objects are expanded into XML.
cobjectclass The class that is used to create a new object with XMLToObject. The default is wwLight which hides all but a few properties of custom. If you want other object properties specify that class here and make sure the class is available.
cdocrootname The name of the Root document tag.
oxml MS XMLDom reference used by LoadXML.
lerror Holds error flag after a failed method call.
cversion Version number of the wwXML class.
lskipemptyelements If an element is 'empty' no value is written.
luseparserforobjectimport This flag is specific to importing object properties from XML. If .t. objects are parsed using Fox code instead of the XML parser. NOTE: This will only work if you actually supply an object reference, not if the object is to be created from the DTD.
lstriptypeprefix Strips the 1 character type prefix from object properties when generating output XML from objects.
csqlconnectstring ODBC/OleDB connect string used to connect to a remote data source.
lsqlpersistconnection Determines whether a SQL connection is to be kept alive internally
ncreatedatastructure 0 - none, 1 - Schema, 2 - DTD
cschemaname Name of the schema to embed
cschemaurl Url to an external or internal schema
nencoding Encoding types for the XML document content. 0 - no encoding (Windows Codepage), 1 - UTF8 Encoding.
*objecttoxml Converts a live reference of an object to XML. All variables are converted to text and stored. Optionally can walk nested objects.
*getobjvar Assumes the XML document is a simple single 'record' object. In this case native code extracts the value of an XML item. Note: Only a single entry should exist.
*cursortoxml Converts a cursor into an XML representation.
*xmltocursor Converts an XML document created with CursorToXML back into a cursor.
*createdatastructurexml Creates a data DTD into THIS.cDTD property. This property contains the structure of a CursorToXML table.
*createcursorxml 
*createobjectstructurexml Creates XML for  the type interface about the object data.
*createobjectxml Creates XML for a single object
*xmltoobject Creates an object from an XML structure.
*foxtypetoxmltype Changes FoxPro types to XML types
*xmltypetofoxtype Changes XML Types to Fox Types.
*parsexmltoobject Process method that parses an XML object into an existing object
*buildobjectfromxml Uses the structure information of to build an object on the fly.
*parsexmltocursor Parses an XML cursor into the cursor using an XML element base node as input.
*buildcursorfromxml Builds a cursor from the XML datastructure tags. Pass in the datastructure XML DOM element object.
*createdatastructuredtd Creates the DTD for a data definition. The definition is created only the data definition not a complete DTD. It's missing the DTD header and end as well as the root doc entity.
*createobjectstructuredtd Creates the DTD portion of the Object. The definition is created only the data definition not a complete DTD. It's missing the DTD header and end as well as the root doc entity.
*loadxml Loads an XML string, assigns it to an instance of MS XML and returns a reference to the XML document object.
*cursortoadoxml Converts the currently selected  VFP cursor to an ADO compatible XML document.
*createerrorxml Creates an error structure block of XML. This block is not a free standing document, but meant to be embedded at any level.
*xmltoobjectnoparser Special method that can parse XML into an existing object's properties. This method is provided to avoid the IE parser requirement on the client for object parsing. Note: The object must exist - no auto creation from the DTD is supported
*createarrayxml Creates inner XML fragment from an array.
*sqlcursortoxml Executes an ODBC/OleDB backend operation. Works like CursorToXML but takes additional parameters for SQL and connection strings.
*multicursortoxml Handles creating a single XML document of multiple cursors named in SQL Passthrough Execute mult-result fasion.
*adotoxml Takes an ADO Recordset and converts it to XML.
*createadoxml Creates XML from an ADO RecordSet. Low Level function that creates only an XML fragment without a header.
*adofields Creates an array of fields in VFP compatible format.
*parsexmltoarray Parses XML into an array. Low Level function only.
*addelement Creates an Element node line with XML tag delimiters and line break.
*setelement Simplistic method that sets an element value. This method works only on simple XML structures that have a single tag of each kind only. Won't work on hierarchical structures where tag names can be duplicated.
*adoxmltocursor Converts an ADO generated XML Recordset into a cursor.
*parseadoxmltocursor 
*encodexml Encodes an XML string into full UTF-8 format.
*cursortors This method provides conversion from a VFP Cursor to an ADO recordset. It's provided as part of this class because it uses XML output and requires proper encoding.
*loadurl Loads an XML string from an HTTP based URL with an optional post buffer and optional username and password info.
*ismsxmlbug Checks to see if this version of the parser is bugged.
*createdatastructureschema Creates a schema for the data structure of the document.
*createobjectstructureschema Creates a XData schema for the object passed in.
*xmlvaluetofoxvalue Converts an XML typed string value into a Fox type value. Requires XML type to be passed.
*datasetxmltocursor Creates a cursor from an XML Dataset. Creates one cursor at a time and requires that the cursor pre-exist.
*createcursorfromschema Creates a cursor by parsing the Schema
*xpathvaluetofoxvalue 
*buildandupdateobjectfromxml 
*createcollectionxml Creates an XML snippet for a Collection. This is a low level method
*parsexmltocollection Parses XML snippet to a collection
*arraytoxml Creates XML from a one dimensional array.
*xmltoarray Parses XML created by ArrayToXML back into an array.
*foxvaluetoxmlvalue Converts a FoxPro value to an XML value
*adddomnode Adds a child Dom node to an XML document
*adddomattribute Adds an Attribute to a DOM node
*load Loads an XML document from a file
*adddomlinebreak Adds a linebreak to the bottom of a node's content list along with indenting for the next line. Text element is inserted at the end of the node's content.
     3Height = 18
Width = 99
cbody = 
cxmlheader = ([<?xml version="1.0"?>] + CHR(13)+CHR(10))
cpropertyexclusionlist = -- Override in code. Set in Init() --
lxmlheadersent = .F.
lcreatedatastructure = .F.
cdtd = 
cerrormsg = 
lusefoxtypes = .F.
lrecurseobjects = .F.
cobjectclass = wwLight
cdocrootname = xdoc
oxml = .NULL.
lerror = .F.
cversion = 4.55
lskipemptyelements = .F.
luseparserforobjectimport = .F.
lstriptypeprefix = .F.
csqlconnectstring = 
ncreatedatastructure = 0
cschemaname = Schema
cschemaurl = 
nencoding = 0
Name = "wwxml"
    kPROCEDURE objecttoxml
LPARAMETER loObject, lcName, lnIndent, llNoHeader
LOCAL lnX, lnCount, lcOutput, lcField, lcType, lvValue, lcSchemaurl
LOCAL ARRAY laFields[1]
 
THIS.lError = .F.
THIS.cErrorMsg = ""

IF EMPTY(lnIndent)
   lnIndent=0
ENDIF

IF EMPTY(lcName)
   IF TYPE("loObject.BaseClass") # "U" AND TYPE("loObject.Class") # "U"
      lcName = LOWER(loObject.CLASS)
   ELSE
      lcName = "class"
   ENDIF
ENDIF

*** Check if we need to add the XML header
IF !llNoHeader
   *** Standard header or the one you've set!
   lcOutput = THIS.cXMLHeader
ELSE
   lcOutput = ""
ENDIF


IF ISNULL(loObject)
   RETURN lcOutput + "<"+lcName+">NULL</"+lcName+">" +CRLF + "</" + THIS.cDocRootName + ">"
ENDIF

*** Backwards compatibility
IF THIS.lcreatedatastructure
   THIS.ncreatedatastructure = 2
ENDIF

DO CASE
   *** DTD code
   CASE THIS.ncreatedatastructure = 2
      lcOutput = lcOutput +  ;
         "<!DOCTYPE " + THIS.cDocRootName + " [" + CRLF + ;
         "<!ELEMENT " + THIS.cDocRootName + " (" + lcName + ")>" + CRLF + ;
         THIS.CreateObjectStructureDTD(loObject,lcName) + CRLF + ;
         "]>" + CRLF + ;
         "<" + THIS.cDocRootName + ">" + CRLF
   *** Schema Code
   CASE THIS.ncreatedatastructure = 1
      lcOutput =  lcOutput +  "<" + THIS.cDocRootName + ">" + CRLF + ;
         THIS.createobjectstructureschema(loObject,lcName,THIS.cSchemaName)
   OTHERWISE
      *** No Data structure
      lcOutput = lcOutput +  "<" + THIS.cDocRootName + ">" + CRLF
ENDCASE

IF THIS.ncreatedatastructure = 1
   *** Generating embedded schema - make sure name and link match
   lcSchemaUrl = "#" + THIS.cschemaname
ELSE   
   *** Otherwise use the external schema specified
   lcSchemaUrl = THIS.cSchemaUrl
ENDIF   

THIS.cBody = lcOutput + THIS.CreateObjectXML(loObject,lcName,lnIndent + 1, lcSchemaURL) +  ;
   "</" + THIS.cDocRootName + ">" + CRLF

RETURN THIS.cBody

ENDPROC
PROCEDURE getobjvar
LPARAMETER lcItem, lcXMLDoc
LOCAL lcValue
IF EMPTY(lcXMLDoc)
  lcValue = Extract(THIS.cBody,"<"+lcItem+">","</"+lcItem+">")
ELSE
  lcValue =  Extract(@lcXMLDoc,"<"+lcItem+">","</"+lcItem+">")
ENDIF

IF AT("<![CDATA[",lcValue) > 0
   lcValue = Extract(lcValue,"<![CDATA[","]]>")  
ENDIF
   
RETURN lcValue

ENDPROC
PROCEDURE cursortoxml
LPARAMETER lcName, lcRowName, lnIndent, llNoHeader
LOCAL lcOutput, lnFields,lnX

THIS.lError = .F.
THIS.cErrorMsg = ""

IF !llNoHeader
   lcOutput = THIS.cXMLHeader
ELSE
   lcOutput = ""
ENDIF

IF EMPTY(lcName)
   lcName = LOWER(ALIAS())
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF
IF EMPTY(lnIndent)
   lnIndent = 0
ENDIF


IF THIS.lCreateDatastructure
   THIS.nCreateDatastructure = 2
ENDIF

DO CASE
   CASE THIS.nCreateDataStructure = 0
       lcOutput = lcOutput + REPLICATE(CHR(9) , lnIndent) + "<" + THIS.cDocRootname + ">" + CRLF
   CASE THIS.nCreateDatastructure = 1  && Schema
      lcOutput = lcOutput + "<" + THIS.cdocrootname + ">" + CRLF + ;
                 THIS.createdatastructureschema(lcName,lcRowName,,THIS.cSchemaName) 
                 
   CASE THIS.nCreateDatastructure = 2  && DTD
      lcOutput = lcOutput + ;
         "<!DOCTYPE " + THIS.cDocRootName + " [" + CRLF + ;
         "<!ELEMENT " + THIS.cDocRootName + " (" + lcName + ")>" + CRLF + ;
         THIS.CreateDataStructureDTD(lcName, lcRowName) + CRLF + ;
         "]>" + CRLF + CRLF

       lcOutput = lcOutput + REPLICATE(CHR(9), lnIndent) + "<" + THIS.cDocRootName + ">" + CRLF
ENDCASE

*** Add a Schema link
lcSchemaUrl = ""
IF THIS.ncreatedatastructure = 1
   lcSchemaUrl = "#" + THIS.cSchemaName
ELSE
   lcSchemaUrl = THIS.cSchemaUrl   
ENDIF
   
lcOutput = lcOutput + THIS.CreateCursorXML(lcName, lcRowName, lnIndent,lcSchemaUrl)

RETURN lcOutput + CRLF +;
   REPLICATE(CHR(9) , lnIndent) + "</" + THIS.cDocRootName + ">" + CRLF

ENDPROC
PROCEDURE xmltocursor
LPARAMETER lvXML, lcAlias, lnTableRootLevel
LOCAL loXML, lnX, lnSize, lcCreate, loCursor, loData

THIS.lError = .F.
THIS.cErrorMsg = ""

IF  VARTYPE(lvXML) = "C"
   IF EMPTY(lvXML)  
      THIS.lError = .T.
      THIS.cErrorMsg = "No XML input passed."
      RETURN .F.
   ENDIF

   *** Stupid ass parser can't differentiate UTF-8 from ASCII
   *** Note: Parser will properly encode ASCII/ANSI doc without
   ***       the header.
   lvXML = STRTRAN(lvXML,[encoding="UTF-8"],"")
ELSE
   IF TYPE("lvXML.Async") # "L"
      THIS.lError = .T.
      THIS.cErrorMsg = "No XML input passed."
      RETURN .F.
   ENDIF
ENDIF

IF EMPTY(lcAlias)
   lcAlias = "__wwXML"
ENDIF

IF VARTYPE(lvXML) # "O"
   loXML = CREATEOBJECT(XML_XMLDOM_PROGID)
   loXML.LoadXML( lvXML )
ELSE
   *** Input object must be IE 5 XML object
   loXML = lvXML
ENDIF

*** Required to preserve leading spaces
loXML.PreserveWhiteSpace = .T.

*** Check for parsing error
IF !EMPTY(loXML.ParseError.reason)
   THIS.lerror = .T.
   THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
      "Line: " + TRANSFORM(loXML.ParseError.LINE) + CRLF +;
      loXML.ParseError.SrcText
   RETURN .F.
ENDIF


*** get the root element node
loDocRoot = loXML.DocumentElement
IF ISNULL(loDocRoot)
   THIS.lError = .T.
   THIS.cErrorMsg = "Invalid XML Doc root. Data must be in child of document root."
   RETURN .F.
ENDIF

IF !EMPTY(lnTableRootLevel)
   *** Level 1 is Docroot
   loCursor = loDocRoot
   FOR lnX=2 TO lnTableRootLevel
      loCursor = loCursor.ChildNodes(0)
      IF ISNULL(loCursor)
         THIS.cErrorMsg = "Invalid XML Structure"
         RETURN .F.
      ENDIF

      *** Handle Schemas - schema is embedded and thus is an XML node/fragment
      *** that we need to skip over
      IF loCursor.NodeName = "Schema"
         loCursor = loCursor.nextSibling
      ENDIF
   ENDFOR
ELSE
   loCursor = loDocRoot.ChildNodes(0)
   IF ISNULL(loCursor)
      THIS.lError = .T.
      THIS.cErrorMsg = "Invalid XML Structure"
      RETURN .F.
   ENDIF

   *** Handle Schemas - schema is embedded and thus is an XML node/fragment
   *** that we need to skip over
   IF loCursor.NodeName = "Schema"
      loCursor = loCursor.nextSibling
   ENDIF
ENDIF
 
IF !USED(lcAlias)
   *** Assume <?xml..><root><schema>*<table>*<row><columns>
   IF !THIS.BuildCursorFromXML(loCursor,lcAlias)
      RETURN .F.
   ENDIF
ELSE
   SELE (lcAlias)
ENDIF

*** Now append the data from the XML
*** Assume <?xml..><root><schema>*<table>*<row><columns>
RETURN THIS.ParseXMLToCursor(loCursor)
ENDPROC
PROCEDURE createdatastructurexml
LPARAMETER lcName, lnIndent
LOCAL lcOutput, lnX, lcRow

IF EMPTY(lnIndent)
  lnIndent = 0
ENDIF

lcOutput = ""

lnFields = AFIELDS(laFields)
FOR lnX=1 to lnFields
   lcRow = ""
   lcRow = lcRow + ;
              REPLICATE(CHR(9),lnIndent+1) + "<field" +  ;
              [ name="] + lower(laFields[lnX,1]) + ["] + ;
              [ type="] + THIS.FoxTypeToXMLType(laFields[lnX,2]) + ["]  + ;
              [ size="] + TRANSF(laFields[lnX,3]) + ["]  

   IF !EMPTY(laFields[lnX,4])              
      lcRow = lcRow +  [ precision="] + TRANSF(laFields[lnX,4]) + ["] 
   ENDIF
   lcOutput = lcOutput + lcRow +;
                         "/>" + CRLF 
ENDFOR

RETURN  REPLICATE(CHR(9),lnIndent) + "<datastructure" + ;
        IIF(!EMPTY(lcName),[ Name="]+  lcName + ["],"")+">" + CRLF + ;
        lcOutput + ;
        REPLICATE(CHR(9),lnIndent) + "</datastructure>" + CRLF            


ENDPROC
PROCEDURE createcursorxml
PARAMETER lcName, lcRowName, lnIndent, lcSchema
LOCAL lcOutput, lnFields, lnX, lvValue, lcValue, lcFieldName, lcFieldType
LOCAL lcOldCentury, lcTime, lcOldHours, lcOldDate, lcOldMark, lnEncoding
LOCAL lcXML

IF EMPTY(lcName)
   lcName = LOWER( ALIAS() )
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF
IF EMPTY(lnIndent)
   lnIndent = 0
ENDIF
IF EMPTY(lcSchema)
   lcSchema = ""
ENDIF

*** Use VFP's internal XML creation and fix up for wwXML formatting
IF wwVFPVersion > 6
   lcXML = ""
   lnEncoding = 32  && none
   IF THIS.nEncoding = 1
      lnEncoding = 48
   ENDIF
   lcAlias = LOWER( ALIAS() )
   CURSORTOXML(lcAlias,"lcxml",1,lnEncoding,0)

   lcXML = STRTRAN(lcXML,;
      [<?xml version = "1.0" encoding="UTF-8" standalone="yes"?>] + CHR(13)+CHR(10),;
      [])
   lcXML = STRTRAN(STRTRAN(lcXML,"<" + lcAlias + ">","<" + lcRowName + ">"),;
      "</" + lcAlias + ">","</" + lcRowName  + ">")

   lcXML = STRTRAN(lcXML,[<VFPData>],[<] + lcName + ;
      IIF(!EMPTY(lcSchema),[ xmlns="x-schema:] + lcSchema  + ["],[]) + ;
      [>])

   lcXML = STRTRAN(lcXML,[VFPData>], lcName + [>])

   *** Fix up for XDR schema from XSD
   RETURN  STRTRAN(STRTRAN(lcXML,">true<",">1<"),">false<",">0<")
ENDIF


lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lcOldMark = SET("MARK")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET MARK TO "-"

lnFields = AFIELDS(laFieldList)

lcOutput = REPLICATE(CHR(9),lnIndent) + [<] + lcName + ;
   IIF(!EMPTY(lcSchema),[ xmlns="x-schema:] + lcSchema  + ["],[]) +[>] + CRLF

*** Now loop through table
SCAN
   *** Build a Field String
   lcValue=""

   lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcRowName + ">"+CRLF
   FOR lnX=1 TO lnFields
      lcFieldName=LOWER(laFieldList[lnX,1])
      lcFieldType=laFieldList[lnX,2]

      *** Skip Memo fields
      IF lcFieldType = "G"
         LOOP
      ENDIF

      lvValue=EVAL(lcFieldName)

      DO CASE
         CASE ISNULL(lvValue)
            lcValue="NULL"
         CASE lcFieldType = "C" OR lcFieldType = "M" OR lcFieldType="V"
            IF EMPTY(lvValue)
               lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcFieldName + "/>" + CRLF
               LOOP
            ELSE
               IF "&" $ lvValue
                  lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
               ENDIF
               IF  ">" $ lvValue
                  lvValue = STRTRAN(lvValue,">","&gt;")
               ENDIF
               IF "<" $ lvValue
                  lvValue = STRTRAN(lvValue, "<", "&lt;")
               ENDIF
               lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcFieldName + ">" + ;
                  TRIM(lvValue) + ;
                  "</" + lcFieldName + ">" + CRLF
               LOOP
            ENDIF
         CASE lcFieldType="L"
            IF THIS.lUseFoxTypes
               lcValue=IIF(lvValue,".T.",".F.")
            ELSE
               lcValue=IIF(lvValue,"1","0")
            ENDIF
         CASE lcFieldType = "D"
            IF EMPTY(lvValue)
               lcValue =""
            ELSE
               lcValue = DTOC(lvValue)
            ENDIF
         CASE lcFieldType = "T"

            IF !EMPTY(lvValue)
               lcValue = STRTRAN(TTOC(lvValue)," ","T")
               *lcValue = TTOC(lvValue)
               *lcTime = TTOC(lvValue)
               *lcValue = DTOS(lvValue) + "T" + SUBSTR(lcTime,AT(" ",lcTime)+1)
            ELSE
               lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcFieldName + "/>" + CRLF
               LOOP
            ENDIF
         CASE lcFieldType = "Y"
            lcValue = LTRIM(TRANSFORM(lvValue,""))
         OTHERWISE
            lcValue = TRANSFORM(lvValue)
      ENDCASE

      lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcFieldName + ">" +;
         lcValue + "</" + lcFieldName + ">" + CRLF
   ENDFOR && lnX=1 TO lnFields

   lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "</" + lcRowName + ">"+CRLF
ENDSCAN

SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET MARK TO (lcOldMark)

IF THIS.nEncoding = 1
   RETURN THIS.EncodeXML(lcOutput + REPLICATE(CHR(9),lnIndent) + "</"+ lcName + ">" + CRLF)
ENDIF

RETURN lcOutput + REPLICATE(CHR(9),lnIndent) + "</"+ lcName + ">" + CRLF
ENDPROC
PROCEDURE createobjectstructurexml
LPARAMETER loObject, lcName, lnIndent
LOCAL lnPropCount, lnX, lcProperty, lcOutput


IF EMPTY(lcName)
   IF VARTYPE(loObject.CLASS) = "C"
      lcName = loObject.CLASS
   ELSE
      lcName = "object"
   ENDIF
ENDIF
IF EMPTY(lnIndent)
   lnIndent = 0
ENDIF

lcOutput = ""
lnPropCount = AMEMBERS(laProperties,loObject)
FOR lnX = 1 TO lnPropCount
   lcProperty = lower(laProperties[lnX])
   IF  "'" + lcProperty + "," $ "," + THIS.cPropertyExclusionList + ","
      LOOP
   ENDIF
   lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent+1) + ;
      [<property name="] + lcProperty + [" type="] + ;
      THIS.FoxTypeToXMLType(TYPE("loObject." + lcProperty)) + ["/>] + CRLF
ENDFOR

RETURN REPLICATE(CHR(9),lnIndent) + [<objectstructure name="] + lcName + [">] + CRLF +;
   lcOutput + ;
   REPLICATE(CHR(9),lnIndent) + [</objectstructure>] + CRLF

ENDPROC
PROCEDURE createobjectxml
LPARAMETER loObject, lcName, lnIndent, lcSchema
LOCAL lcOutput, lnX, lnCount, laFields(1), lcField, lcType, lcOldDate, lnOldHours,;
      lcOldCentury, lcOldMark, lcTemp, lcDispField, lcBaseClass, llIsEmptyObject, lcClass

LOCAL ARRAY laArray(1)
EXTERNAL ARRAY la_array

lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lcOldMark = SET("MARK")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET MARK TO "-"

IF EMPTY(lcName)
  lcName = "xmlroot"
ENDIF  

IF VARTYPE(lnIndent) # "N"
  lnIndent = 0
ENDIF
IF EMPTY(lcSchema)
   lcSchema = ""
ENDIF

*** Empty or SCATTER name objects should never be filtered
lcClass=""
if wwVFPVersion > 7
   IF TYPE("loObject.BaseClass") = "C"
      llIsEmptyObject = .F.
      lcClass = [ type="object" class="] + LOWER(loObject.Class) + ["]
   ELSE 
      llIsEmptyObject = .T.
      lcClass = [ type="object" class="empty"]
   ENDIF   
ENDIF

lnCount = AMEMBERS(laFields, loObject)


lcOutput = REPLICATE(CHR(9),lnIndent) + [<] + lcName + ;
   IIF(!EMPTY(lcSchema),[ xmlns="x-schema:] + lcSchema  +["],[]) + ;
   lcClass + [>] + CRLF

FOR lnX=1 TO lnCount
   lcField = LOWER(laFields[lnX])

   *** Handle property exclusions
   IF AT("," + lcField + ",","," + THIS.cPropertyExclusionList + ",")>0
      LOOP
   ENDIF

   *** Get single type and field values
   lcType = TYPE("loObject."+lcField)
   lvValue =  EVAL("loObject."+lcField)

   IF THIS.lStripTypePrefix
      lcDispField = SUBSTR(lcField,2)
   ELSE
      lcDispField = lcField
   ENDIF

   DO CASE
         *** Funky check for array (Aaargh, I hate this slow code!!!!
         *** and it has to fire first!
      CASE TYPE([ALEN(loObject.] + lcField + [)]) = "N"
         IF THIS.lRecurseObjects
            DIMENSION la_array[1]
            ACOPY(loObject.&lcField,la_array)
            
            *** THIS CODE MUST BE ON 2 lines of VFP gets confused
            lcTemp = THIS.CreateArrayXML(@la_array,lcDispField,,lnIndent+1)
            lcOutput = lcOutput + lcTemp
         ELSE
            lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcDispField + ">(array)</" + lcDispField + ">" + CRLF
         ENDIF
      CASE ISNULL(lvValue)
         IF THIS.lSkipEmptyElements
            LOOP
         ENDIF
         lcOutput = lcOutput +  REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">NULL</"+lcDispField+">" + CRLF
      CASE lcType = "C"
         IF EMPTY(lvValue) AND THIS.lSkipEmptyElements
            LOOP
         ENDIF
         IF "&" $ lvValue
            lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
         ENDIF
         IF  ">" $ lvValue
            lvValue = STRTRAN(lvValue,">","&gt;")
         ENDIF
         IF "<" $ lvValue
            lvValue = STRTRAN(lvValue, "<", "&lt;")
         ENDIF
         lcOutput = lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">" + ;
            TRIM(lvValue) +"</"+lcDispField+">" + CRLF
         LOOP
   CASE lcType = "D"
      IF EMPTY(lvValue)
         IF THIS.lSkipEmptyElements
            LOOP
         ENDIF
         lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + "></"+lcDispField+">" + CRLF
      ELSE
         lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">"  +;
            TRANSFORM(lvValue) + "</"+lcDispField+">" + CRLF
      ENDIF
   CASE lcType = "T"
      IF EMPTY(lvValue)
         IF THIS.lSkipEmptyElements
            LOOP
         ENDIF
         lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + "></"+lcDispField+">" + CRLF
      ELSE
         lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">"  + STRTRAN(TRANSFORM(lvValue)," ","T") + "</"+lcDispField+">" + CRLF
      ENDIF
   CASE lcType = "L"
      lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcDispField + ">" +;
         IIF( lvValue, "1","0") + "</" + lcDispField + ">" + CRLF

   CASE lcType = "O"
      IF THIS.lRecurseObjects
         *** The following *MUST* be separate line or else VFP gets confused
         *** in the recursion levels and generates invalid fields
         IF TYPE("lvValue.BaseClass")="C" AND lvValue.BaseClass = "Collection"
    	     lcTemp = THIS.CreateCollectionXML(lvValue,lcDispField,"item",lnIndent +1)
         ELSE
	         lcTemp= THIS.CreateObjectXML( lvValue,lcDispField,lnIndent+1)
	     ENDIF
         lcOutput = lcOutput + lcTemp
      ELSE
         lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent+1) + "<" +lcDispField + ">(Object)</"+lcDispField+">" + CRLF
      ENDIF
   CASE lcType = "Y"
      lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">"  + TRANSFORM(lvValue,"") + "</"+lcDispField+">" + CRLF
   CASE lcType = "U" 
      lcOutput = lcOutput +  REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">NULL</"+lcDispField+">" + CRLF
   OTHERWISE
      lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent+ 1) + "<" +lcDispField + ">"  + TRANSFORM(lvValue) + "</"+lcDispField+">" + CRLF
ENDCASE
ENDFOR

SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET MARK TO (lcOldMark)

IF THIS.nEncoding = 1
   RETURN THIS.EncodeXML(lcOutput + ;
      REPLICATE(CHR(9),lnIndent) + "</" + lcName + ">" + CRLF)
ENDIF

RETURN lcOutput + ;
   REPLICATE(CHR(9),lnIndent) + "</" + lcName + ">" + CRLF

ENDPROC
PROCEDURE xmltoobject
LPARAMETER lvXML, loObject, llParseCaseInsensitive
LOCAL loXML, loNode, loDocroot

THIS.lError = .F.
THIS.cErrorMsg = ""

IF NOT INLIST(VARTYPE(lvXML),"O","C")
    THIS.lError = .T.
    THIS.cErrorMsg = "No XML input passed."
	RETURN .NULL.
ENDIF

IF VARTYPE(lvXML) # "O"
  loXML = CREATEOBJECT(XML_XMLDOM_PROGID)
  loXML.LoadXML( lvXML )
ELSE
  *** Input object must be IE 5 XML object
  loXML = lvXML  
ENDIF

*** Check for parsing error
IF !EMPTY(loXML.ParseError.reason) 
   THIS.lError = .T.
   THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
                    "Line: " + TRANSFORM(loXML.ParseError.Line) + CRLF +;
                    loXML.ParseError.SrcText
   RETURN .NULL.
ENDIF

*** Make sure spaces are returned properly
loXML.PreserveWhiteSpace = .T.

*** get the Document root element node - <objects>
*loXMLObjects = loXML.ChildNodes(1)

*** get the root element node
loDocRoot = loXML.DocumentElement
IF ISNULL(loDocRoot)
    THIS.lError = .T.
   THIS.cErrorMsg = "Invalid data root. Data must be in child of document root."
   RETURN .NULL.
ENDIF

IF VARTYPE(loObject) # "O"
	loNode = loDocRoot.ChildNodes(0)
   IF loNode.NodeName = "Schema"
      loNode = loNode.NextSibling
   ENDIF
   
   loObject = THIS.BuildObjectFromXML(loNode)
   IF ISNULL(loObject)
      RETURN NULL
   ENDIF
ENDIF

loNode = loDocRoot.ChildNodes(0)
IF loNode.NodeName = "Schema"
   loNode = loNode.NextSibling
ENDIF

RETURN THIS.ParseXMLToObject( loNode,loObject, llParseCaseInsensitive )

ENDPROC
PROCEDURE foxtypetoxmltype
LPARAMETER lcFoxType

IF THIS.lUseFoxTypes
   RETURN lcFoxType
ENDIF

DO CASE
   CASE lcFoxType = "C" OR lcFoxType = "M"
      lcType = "string"
   CASE lcFoxType $ "N" or lcFoxType $ "F" 
      lcType = "float"
   case lcFoxType $ "B"
      lcType = "number"
   case lcFoxType $ "Y"
      lcType = "decimal"      
   CASE lcFoxType = "L"
      lcType = "boolean"
   CASE lcFoxType = "I"
      lcType = "i4"
   CASE lcFoxType = "D"
      lcType = "date"
   CASE lcFoxType = "T"
      lcType = "dateTime"
   CASE lcFoxType = "O"
      lcType = "object"

   OTHERWISE
      lcType = lcFoxType
ENDCASE

RETURN lcType

ENDPROC
PROCEDURE xmltypetofoxtype
LPARAMETER lcXMLtype

*** Data is in Fox format already - just return it
IF THIS.lUseFoxTypes
   RETURN lcXMLType
ENDIF   

*** Strip off any namespace
lcXMLType = LOWER(SUBSTR(lcXMLType,AT(":",lcXMLType) + 1))

DO CASE
   CASE lcXMLType $ "string,char,uri,uuid"
      lcType = "C"
   CASE lcXMLType $ "number,decimal,single,double,r4,r8,float,fixed.14.4,float.IEEE.754.32,float.IEEE.754.64" 
      lcType = "N"
   CASE lcXMLType $ "integer,i4,i1,i2,i8,ui2,ui4,ui8"
      lcType = "I"
   CASE lcXMLType = "boolean"
      lcType = "L"
   CASE lcXMLType = "object"
      lcType = "O"
   CASE lcXMLType $ "date,date.tz"
      lcType = "D"
   CASE lcXMLType $ "datetime,datetime.tz"
      lcType = "T"
   CASE lcXMLType = "record" 
      lcType = "O"
   CASE lcXMLType $ "base64Binary,bin.hex,base64binary"
      lcType = "B"  && Binary types may need different handling
   OTHERWISE
*      lcType = "C"
      lcType = "O"
ENDCASE

RETURN lcType

ENDPROC
PROCEDURE parsexmltoobject
LPARAMETER loXMLObject, loObject, llParseCaseInsensitive
LOCAL lnSize, lnX, loObject, lcField, lcType, lnProperties, loProperty,laProperties[1]
LOCAL lcOldDate, lcOldHours, lcOldCentury, lnOldStrictDate, loProperty

IF ISNULL(loXMLObject)
   THIS.cErrorMsg = "No data provided for element"
   RETURN .NULL.
ENDIF
IF VARTYPE(loObject) # "O"
   THIS.cErrorMsg = "No input object provided"
   RETURN .NULL.
ENDIF

lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lnOldStrictDate = SET("STRICTDATE")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET STRICTDATE TO 0

*** Walk the object and then pull properties 
*** from the XML to repopulate it
lnProperties = AMEMBERS(laProperties,loObject)

lnX=0
FOR lnX=1 TO lnProperties
   *** Get field name and type info
   lcField = lower(laProperties[lnX])
   IF THIS.lStripTypePrefix
      lcXMLField = SUBSTR(lcField,2)
   ELSE
      lcXMLField = lcField
   ENDIF

   IF "," + lcField + "," $ this.cPropertyexclusionlist 
      LOOP
   ENDIF

   lcType = TYPE("loObject." + lcField)
    
   *** Retrieve the XML node for the item
   loProperty = loXMLObject.SelectSingleNode(lcXMLField)
   
   IF ISNULL(loProperty)
	  *** Parse Case Sensitively - NOTE THIS IS SLOW!
	  IF llParseCaseInsensitive
	  	 FOR EACH Tnode IN loXMLObject.ChildNodes
			 IF LOWER(TNode.nodeName) = lcXMLField
			 	loProperty = TNode
			 	EXIT
			 ENDIF			
	  	 ENDFOR
	  	 IF ISNULL(loProperty)
	  	    LOOP
	  	 ENDIF
	  ELSE
	  	LOOP	  	 
	  ENDIF
   ENDIF
   lcValue = loProperty.TEXT

   DO CASE
   	  CASE lcValue == "NULL"   	  	
   	  	  STORE .null. TO ("loObject." + lcField)
   	     
      *** Arrays only support object arrays
      *** Object must already exist in first element
      CASE THIS.lRecurseObjects AND ;
              TYPE("ALEN(loObject." + lcField + ")") == "N"        
            DIMENSION laArray[1]
            laArray[1] = EVAL("loObject." + lcField + "[1]")
            THIS.ParseXMLToArray(loProperty,@laArray,llParseCaseInsensitive)
            ACOPY(laArray,loObject.&lcField)
            
      CASE lcType $ "CM"
         *loObject.&lcField =  STRTRAN(lcValue,"&#00;",CHR(0))
         STORE STRTRAN(lcValue,"&#00;",CHR(0)) TO ("loObject." + lcField)
      CASE lcType $ "NIFY"
         *loObject.&lcField = VAL(lcValue)
         STORE VAL(lcValue) TO ("loObject." + lcField)
      CASE lcType = "T"
         *loObject.&lcField = CTOT(STRTRAN(lcValue,"T"," "))
		 IF wwVFPVersion > 6
            STORE CTOT(lcValue) TO ("loObject." + lcField)
         ELSE
            STORE CTOT(STRTRAN(lcValue,"T"," ")) TO ("loObject." + lcField)
         ENDIF
      CASE lcType = "D"
		  IF wwVFPVersion > 6
            STORE TTOD(CTOT(lcValue)) TO ("loObject." + lcField)
         ELSE
            STORE TTOD(CTOT(STRTRAN(lcValue,"T"," "))) TO ("loObject." + lcField)
         ENDIF         *loObject.&lcField = CTOD(lcValue)
         *STORE CTOD(lcValue) TO ("loObject." + lcField)
         *STORE TTOD(CTOT(STRTRAN(lcValue,"T"," "))) TO ("loObject." + lcField)
      CASE lcType = "L"
         IF lcValue = "1" or lcValue = "true"
            STORE .T. TO ("loObject." + lcField)
         ELSE
            STORE .F. TO ("loObject." + lcField)
         ENDIF
      CASE THIS.lRecurseObjects and lcType = "O"
      	   loTObject = EVAL("loObject." + lcField)
            
      	   IF TYPE("loTObject.BaseClass") = "C" AND loTObject.Baseclass = "Collection"
      	   	   THIS.ParseXmlToCollection(loProperty,loTObject)
      	   ELSE
	           THIS.ParseXMLToObject(loProperty, loTObject, llParseCaseInsensitive )
	       ENDIF
      OTHERWISE
         *** If we have an object
         loObject.&lcField = .NULL.
         STORE .NULL. TO ("loObject." + lcField)
         *** OTHERWISE  && Do nothing
   ENDCASE
ENDFOR


SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET STRICTDATE TO lnOldStrictDate

RETURN loObject

ENDPROC
PROCEDURE buildobjectfromxml
LPARAMETER loObjectStructure
LOCAL loObject, llFirstPass

loObject = .NULL.

IF wwVFPVersion > 7
   IF THIS.cObjectClass = "wwLight"
      this.cObjectClass = "Empty"
   ENDIF
ENDIF

loObject = CREATE(THIS.cObjectClass)

llFirstPass = .T.
FOR EACH loField IN loObjectStructure.ChildNodes
   loAttributes = loField.ATTRIBUTES
   lcField = loField.NodeName
   
   IF llFirstPass
      IF ISNULL(loAttributes.GetNamedItem("type"))
         this.cErrorMsg = "Can't build object without a schema or DTD."
         RETURN NULL
      ENDIF
      llFirstPass=.F.
   ENDIF
   
   #IF wwVFPVersion > 7
       ADDPROPERTY(loObject,lcField)
   #ELSE
      loObject.ADDPROPERTY(lcField)
   #ENDIF
   
   lcType = THIS.XMLTypeToFoxType(loAttributes.GetNamedItem("type").TEXT)
   DO CASE
      CASE lcType = "C"
         loObject.&lcField = ""
      CASE lcType = "N"
         loObject.&lcField = 0
      CASE lcType = "L"
         loObject.&lcField = .F.
      CASE lcType $ "D"
         loObject.&lcField = {}
      CASE lcType $ "T"
         loObject.&lcField = {  /  /  :  }
      CASE lcType = "U"
         loObject.&lcField = .NULL.
*      CASE lcType = "O"
*         loObject.&lcField = .NULL.
      OTHERWISE 
         *** Must create an object first then set to .NULL.         
         *** to get Fox to read the type right
         loObject.&lcField = CREATE("Relation")
         loObject.&lcField = .NULL.
   ENDCASE
ENDFOR

RETURN loObject

ENDPROC
PROCEDURE parsexmltocursor
LPARAMETER loData, llNodeList
LOCAL lnFields, laFields(1),lnX, lcType, lcField, loValue
LOCAL lcOldDate, lcOldHours, lcOldCentury, lnOldStrictDate

#IF WWXML_USE_VFP_XMLTOCURSOR
   *** Use the XML 
   *** THIS CODE REQUIRES VFP7 SP1 or later!
   LOCAL lcXML
   lcXML = loData.XML

   *** Have to strip namespace first to get rid
   *** of wwXML schema   
   IF ("xmlns=" $ LEFT(lcXML,40) )
      lcXML = STRTRAN(lcXML,"xmlns=","_noxmlns=",1,1)
   ENDIF
   
   XMLTOCURSOR( lcXML ,ALIAS(),8192)
   RETURN .T.
#ENDIF

lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lnOldStrictDate = SET("STRICTDATE")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET STRICTDATE TO 0

lnFields = AFIELDS(laFields)

IF llNodeList
   *** Use the table level node <cursor><row><fields></row><row>...</row></table>
   loRows = loData
ELSE
   *** Directly work with the rows   <row><fields></row><row>...</row>
   loRows = loData.ChildNodes
ENDIF

FOR EACH loRow IN loRows
   APPEND BLANK
   FOR lnX = 1 TO lnFields
      lcField = LOWER(laFields[lnX,1])
      lcType  = laFields[lnX,2]

      *** This code uses the parser for individual fields
      loValue = loRow.SelectSingleNode(lcField)
      IF ISNULL(loValue)
         LOOP
      ENDIF
      lcValue = loValue.TEXT
      loValue = 0
      
      DO CASE
*!*            CASE lcValue = "NULL"
*!*               lcValue = .null.
         CASE lcType $ "CM"
            *lcValue =
         CASE lcType $ "NIF"
            lcValue = VAL(lcValue)
         CASE lcType = "T"
            IF wwVFPVERSION >= 8
               lcValue = CTOT(lcValue)  && VFP 7 includes native conversion routines
            ELSE
               lcValue = CTOT(SUBSTR(CHRTRAN(lcValue,"TZ"," "),1,16))
            ENDIF
         CASE lcType = "D"
            lcValue = CTOD(STRTRAN(lcValue,"TZ"," "))
         CASE lcType = "L"
            IF THIS.lUseFoxTypes
               lcValue = EVAL(lcValue)
            ELSE
               IF lcValue = "true" OR lcValue = "1"
                  lcValue = .T.
               ELSE
                  lcValue = .F.
               ENDIF
            ENDIF
         CASE lcType = "G"
            *** Ignore 
            LOOP
         OTHERWISE
            lcValue = EVAL(lcValue)
      ENDCASE
      REPLACE (lcField) WITH lcValue
   ENDFOR
ENDFOR

SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET STRICTDATE TO lnOldStrictDate

RETURN .T.

ENDPROC
PROCEDURE buildcursorfromxml
LPARAMETER loDataStructure, lcAlias
LOCAL lnX, lnSize, laFields(1), loRecord, loSize

IF !ISNULL(loDataStructure)
   IF loDataStructure.ChildNodes.Length = 0
      *** Try to read the schema instead
      loSchema =loDataStructure.ownerDocument.DocumentElement.selectSingleNode("Schema")
      IF !ISNULL(loSchema) AND ;
         THIS.CreateCursorfromschema(loSchema,lcAlias)
         RETURN .T.
      ENDIF
      THIS.cErrorMsg = "No rows available or schema missing."
      THIS.lerror = .T.
      RETURN .F.
   ENDIF
   
   loRecord = loDataStructure.ChildNodes(0)
   
   *** Skip over Schema Record (SQL 2000 schema)
   IF loRecord.nodeName="Schema"
      loRecord = loRecord.nextSibling
   ENDIF
   
   lnSize = loRecord.childnodes.LENGTH
   DIMENSION laFields[lnSize,4]
   lnX=0
   FOR EACH loField IN loRecord.ChildNodes
      lnX=lnX+1
      loAttributes = loField.ATTRIBUTES
      laFields[lnX,1] = loField.NodeName
      loType = loAttributes.GetNamedItem("type")
      IF ISNULL(loType)
         loType = loAttributes.GetNamedItem("dt:type")
      ENDIF
      
      laFields[lnX,2] = THIS.XMLTypeToFoxType(loType.TEXT)
      
      loSize = loAttributes.GetNamedItem("size")
      IF !ISNULL(loSize)
         laFields[lnX,3] = INT(VAL(loSize.TEXT))
      ENDIF
      
      IF laFields[lnX,3] = XML_SCHEMA_MEMOSIZE
      	 laFields[lnX,2] = "M"
      	 laFields[lnX,3] = 0
      ENDIF
      
      loPrecision = loAttributes.GetNamedItem("precision")
      IF !ISNULL(loPrecision)
         laFields[lnX,4] = VAL(loPrecision.TEXT)
      ELSE
         laFields[lnX,4] = 0
      ENDIF
      
      *** Must check for memos by checking size
      IF laFields[lnX,2] = "C" and laFields[lnX,3] = XML_SCHEMA_MEMOSIZE
         laFields[lnX,2] = "M"
         laFields[lnX,3] = "4"
      ENDIF
   ENDFOR

   CREATE CURSOR (lcAlias) FROM ARRAY laFields
ELSE
   SELE (lcAlias)
ENDIF
RETURN .T.
ENDPROC
PROCEDURE createdatastructuredtd
LPARAMETER lcName, lcRowName, loRS
LOCAL lcOutput, lnX, lcRow, lnSize, lnPrecision, lcType

IF EMPTY(lcName)
   lcName = lower(Alias())
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF

lcSpace = SPACE(10)

lcOutput = "<!ELEMENT " + lcName + " (" + lcRowName + ")*>" + CRLF

IF VARTYPE(loRS) = "O"
   DIMENSION laFields[1]
   lnFields = THIS.ADOFields(loRS,@laFields)
ELSE 
   lnFields = AFIELDS(laFields)
ENDIF

lcOutput = lcOutput + "<!ELEMENT " + lcRowName + " (" 	
FOR lnX=1 to lnFields
     laFields[lnX,1] = lower(laFields[lnX,1]) 
     IF lnX < lnFields
       lcOutput = lcOutput + laFields[lnX,1] + "," 
     ELSE
       lcOutput = lcOutput + laFields[lnX,1]
     ENDIF
ENDFOR
lcOutput = lcOutput + ")>" + CRLF

FOR lnX=1 to lnFields
   lcType = laFields[lnX,2]
   
   *** Override length and precision
   DO CASE
      CASE lcType = "M"
         lnSize = XML_SCHEMA_MEMOSIZE
         lnPrecision = 0
      CASE lcType = "Y"
         lnSize = 20
         lnPrecision = 4
      CASE lcType = "G"
         LOOP && Skip General Fields
      OTHERWISE
         lnSize = laFields[lnX,3]
         lnPrecision = laFields[lnX,4]
   ENDCASE

   lcRow = ;
           "<!ELEMENT " + laFields[lnX,1] + " (#PCDATA)>" + CRLF +;
           "<!ATTLIST " + laFields[lnX,1] + CRLF + ;
           lcSpace + 'type CDATA #FIXED "' + THIS.FoxTypeToXMLType(lcType) + '"' + CRLF+;
           lcSpace + 'size CDATA #FIXED "' + TRANSF(lnSize) + '"' + CRLF 
           
   IF !EMPTY(lnPrecision)              
      lcRow = lcRow +  ;
           lcSpace + 'precision CDATA #FIXED "' + TRANSF(lnPrecision) + '"' + CRLF 
   ENDIF
   lcOutput = lcOutput + lcRow +;
           '>' + CRLF
ENDFOR

RETURN  lcOutput

ENDPROC
PROCEDURE createobjectstructuredtd
LPARAMETER loObject, lcName
LOCAL lnPropCount, lnX, lcProperty, lcOutput, laFields(1)

IF EMPTY(lcName)
   IF VARTYPE(loObject.CLASS) = "C"
      lcName = loObject.CLASS
   ELSE
      lcName = "object"
   ENDIF
ENDIF

lcOutput = ""
lnPropCount = AMEMBERS(laFields,loObject)

lcSpace = SPACE(10)

lcOutput = lcOutput + "<!ELEMENT " + lcName + " (" 	
FOR lnX=1 to lnPropCount
     laFields[lnX] = lower(laFields[lnX]) 
     lcProperty = laFields[lnX]
     IF "," + lcProperty +  "," $ "'" + THIS.cPropertyExclusionList
        LOOP
     ENDIF
     lcOutput = lcOutput + lcProperty + "," 
ENDFOR
lcOutput = LEFT(lcOutput,LEN(lcOutput)-1) + ")>" + CRLF

FOR lnX=1 to lnPropCount
   lcProperty = laFields[lnX]
   IF "," + lcProperty +  "," $ "," + THIS.cPropertyExclusionList
      LOOP
   ENDIF
   
   lcType = TYPE("loObject." + lcProperty)
   IF lcType = "O" and THIS.lRecurseObjects
      lcOutput = THIS.CreateObjectStructureDTD(EVAL("loObject." + lcProperty),lcProperty) 
      loop
   ENDIF
   lcOutput = lcOutput + ;
           "<!ELEMENT " + lcProperty + " (#PCDATA)>" + CRLF +;
           "<!ATTLIST " + lcProperty + " " + ;
           'type CDATA #FIXED "' + THIS.FoxTypeToXMLType(lcType) + '" >' + CRLF           
ENDFOR

RETURN  lcOutput

ENDPROC
PROCEDURE loadxml
LPARAMETER lcXML, llAsync, llPreserveWhiteSpace
LOCAL loXML

THIS.lError = .f.
THIS.cErrorMsg = ""

this.oXml = null

IF VARTYPE(lcXML) = "O"
   *** Use existing ref if passed in
   loXML = lcXML
ELSE
   lcXML=IIF(EMPTY(lcXML),"",lcXML)

   IF VARTYPE(THIS.oXML) # "O"
      *** Create if it doesn't exist already
      loXML =  CREATE(XML_XMLDOM_PROGID)
      loXML.Async = llAsync
   ELSE
      *** If we have one already - reuse it!
      loXML = THIS.oXML
      loXML.Async = llAsync
   ENDIF
   loXML.LoadXML(lcXML)
ENDIF

*** Check for parsing error
IF TYPE("loxml.parseerror.reason")="C" AND ;
   !EMPTY(loXML.ParseError.reason)
      THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
         "Line: " + TRANSFORM(loXML.ParseError.LINE) + CRLF +;
         loXML.ParseError.SrcText
      THIS.lError = .T.
      RETURN .NULL.
ENDIF

loXML.PreserveWhiteSpace = .T.

this.oXML = loXML

RETURN loXML
ENDPROC
PROCEDURE cursortoadoxml
LPARAMETER lcName, lcRowName, lnIndent, llNoHeader
*** all parameters are ignored here since this is a fixed proprietary format
LOCAL lnX, lcOldDate, lnOldHours, lcOldCentury, lcXML, lnFields, lcT, lcType

*** Must handle date formatting to force YMD ANSI format
lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON

THIS.lError = .F.
THIS.cErrorMsg = ""

*** Standard ADO XML header - always the same
lcXML = ;
   [<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'] + CRLF + ;
   [	xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'] + CRLF + ;
   [	xmlns:rs='urn:schemas-microsoft-com:rowset'] + CRLF + ;
   [	xmlns:z='#RowsetSchema'>] + CRLF + ;
   [<s:Schema id='RowsetSchema'>] + CRLF + ;
   [	<s:ElementType name='row' content='eltOnly'>] + CRLF

*** Now add the Field name attribute types
lnFields = AFIELDS(laFields)
FOR lnX=1 TO lnFields
   laFields[lnX,1] = LOWER(laFields[lnX,1])
   lcXML = lcXML + [		<s:attribute type=']+laFields[lnX,1] + ['/>] + CRLF
ENDFOR

lcXML = lcXML + [		<s:extends type='rs:rowbase'/>] + CRLF + ;
   [	</s:ElementType>] + CRLF

*** Now add the actual field type information attributes
FOR lnX=1 TO lnFields
   lcType = laFields[lnX,2]
   lcRecno = TRANS(lnX)
   DO CASE
      CASE lcType = "C"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + lcRecno + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='string' dt:maxLength=']+TRANSFORM(laFields[lnX,3])+[' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "M"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1]  + [' rs:NUMBER='] + lcRecno + [' rs:maydefer='true' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='string' dt:maxLength='] + TRANSFORM(XML_SCHEMA_MEMOSIZE) +[' rs:long='true' rs:maybenull='false'/>] + CRLF

      CASE lcType = "N"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + lcRecno + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='number' dt:maxLength='] + TRANSF(laFields[lnX,3]) + [' rs:scale=']+ TRANSF(laFields[lnX,4]) + [' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "L"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + lcRecno + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='boolean' dt:maxLength='2' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "D"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + lcRecno + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='date' dt:maxLength='6' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "T"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + lcRecno + [' rs:writeunknown='true'>] + CRLF +;
            [		<s:datatype dt:type='dateTime' dt:maxLength='16' rs:scale='0' rs:precision='19' rs:fixedlength='true' rs:maybenull='false'/>] +CRLF

      *** Special Types
      CASE lcType = "I"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + TRANS(lnX) + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "Y"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER=']+ trans(lnX) + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='i8' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "F"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + trans(lnX) + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='number' dt:maxLength='19' rs:scale='5' rs:precision='8' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF
      CASE lcType = "B"
         lcT = ;
            [	<s:AttributeType NAME='] + laFields[lnX,1] + [' rs:NUMBER='] + trans(lnX) + [' rs:writeunknown='true'>] + CRLF + ;
            [		<s:datatype dt:type='float' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>] + CRLF

      OTHERWISE
         *** skip other fields for now
         *** only General
   ENDCASE

   lcXML = lcXML +  lcT + [	</s:AttributeType>] + CRLF

ENDFOR

lcXML = lcXML + [</s:Schema>] + CRLF + ;
   [<rs:data>]+ CRLF


*** And now we can add the actual records 
*** this is a single XML row with multiple attributes
SCAN
   lcXML = lcXML + [<z:row ]

   FOR lnX=1 TO lnFields
      lcXML =  lcXML + ;
         laFields[lnX,1] + "='"

      lvValue = EVAL( laFields[lnX,1] )
      lcType = laFields[lnX,2]

      DO CASE
         CASE lcType="C" OR lcType = "M"
            lcT = lvValue
            lcT = STRTRAN(lcT,"#","&#x23;")
            lcT = STRTRAN(lcT,"&","&#x26;")
            lcT = STRTRAN(lcT,"'","&#x27;")
            lcT = STRTRAN(lcT,"<","&#x3c;")
            lcT = STRTRAN(lcT,">","&#x3e;")
            lcT = STRTRAN(lcT,CHR(0),"&#x00;")
         CASE lcType = "L"
            lcT = IIF( lvValue, "True", "False")
         CASE lcType = "Y"
            lcT = LTRIM(STR(lvValue,15,4))
         CASE lcType = "D"
            IF EMPTY(lvValue)
               lcT = "1899-12-30"  && Don't ask, but this is how ADO does it!
            ELSE
               lcT = TRANSFORM(lvValue)
            ENDIF
         CASE lcType = "T"
            IF EMPTY(lvValue)
               lcT = "1889-12-30T00:00:00"
            ELSE
               lcT = STRTRAN( TRANSFORM(lvValue)," ","T") 
            ENDIF
         OTHERWISE
            lcT = TRANSF( lvValue )
      ENDCASE

      lcXML = lcXML + lcT + "' "
   ENDFOR

   lcXML = lcXML + "/>" + CRLF
ENDSCAN

*** Finish up the XML doc
lcXML = lcXML + [</rs:data>] + CRLF + [</xml>] + CRLF


SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury

RETURN lcXML
ENDPROC
PROCEDURE createerrorxml
LPARAMETER lcErrorMsg, lnErrorNumber, lnIndent
LOCAL lcXML

IF VARTYPE(lcErrorMsg) # "C"
   RETURN ""
ENDIF

IF VARTYPE(lnIndent) # "N"
   lnIndent = 1
ENDIF

lcXML = ;
   REPL(CHR(9),lnIndent) + "<error>" + CRLF 

lcXML = lcXML + THIS.AddElement("errormessage",TRIM(lcErrorMsg),lnIndent+1)

IF VARTYPE(lnErrorNumber) = "N"
   lcXML = lcXML + THIS.AddElement("errornumber",lnErrorNumber,lnIndent+1)
ENDIF

RETURN lcXML + REPL(CHR(9),lnIndent) + "</error>"


ENDPROC
PROCEDURE xmltoobjectnoparser
LPARAMETER lcXML, loObject
LOCAL lnProperties, lnX, lcXMLField, lcField, lcType, lcValue 
LOCAL laProperties[1]

THIS.lError = .F.
THIS.cErrorMsg = ""

IF EMPTY(lcXML)
    THIS.cErrorMsg = "No XML input passed."
	RETURN .NULL.
ENDIF
IF VARTYPE(loObject) # "O"
   THIS.cErrorMsg = "No input object passed."
   RETURN .NULL.
ENDIF


*** Walk the object and then pull properties 
*** from the XML to repopulate it
lnProperties = AMEMBERS(laProperties,loObject)

lnX=0
FOR lnX=1 TO lnProperties
   lcField = lower(laProperties[lnX])
   IF AT("," + lcField + ",","," + THIS.cPropertyExclusionList)>0
       LOOP
   ENDIF
   
   IF THIS.lStripTypePrefix
      lcXMLField = SUBSTR(lcField,2)
   ELSE
      lcXMLField = lcField
   ENDIF
   
   IF ATC("<" + lcXMLField + ">",lcXML) = 0
      LOOP
   ENDIF
   
   lcType = TYPE("loObject."+lcField)
   lcValue = THIS.GetObjVar(lcXMLField,lcXML)

   DO CASE
      CASE lcType $ "CM"
         loObject.&lcField =  STRTRAN(lcValue,"&#00",CHR(0))
      CASE lcType $ "NIF"
         loObject.&lcField = VAL(lcValue)
      CASE lcType = "T"
         loObject.&lcField = CTOT(lcValue)
      CASE lcType = "D"
         loObject.&lcField = CTOD(lcValue)
      CASE lcType = "L"
         IF lcValue = "True"
            loObject.&lcField = .T.
         ELSE
            loObject.&lcField = .F.
         ENDIF
      CASE lcType = "O" AND THIS.lRecurseObjects
         lcObjXML = Extract(lcXML,"<"+lcXMLField+">","</"+lcXMLField+">")
         THIS.XMLToObjectNoParser(lcObjXML,loObject.&lcField)
      OTHERWISE
         *** If we have an object
         loObject.&lcField = .NULL.
         *** OTHERWISE  && Do nothing
   ENDCASE
ENDFOR

RETURN loObject
ENDPROC
PROCEDURE createarrayxml
LPARAMETER laArray, lcName, lcRow, lnIndent
LOCAL lcOutput, lnX, lnY, lnRows, lnCols, lcField, lcType,  lvValue, lcTemp

EXTERNAL ARRAY laArray
lcRow=IIF(EMPTY(lcRow),lcName+ "_item",lcRow)
lnIndent=IIF(vartype(lnIndent) # "N",1,lnIndent)

lnRows = ALEN(laArray,1)
lnCols = ALEN(laArray,2)
IF lnCols=0
  lnCols=1
ENDIF

IF lnCols = 1
 lcOutput = REPLICATE(CHR(9),lnIndent) + [<] + lcName + [>] + CRLF
ELSE
 lcOutput = REPLICATE(CHR(9),lnIndent) + [<] + lcName + ;
            [ dim='] + TRANSFORM(lnCols) +['>] + CRLF
ENDIF

FOR lnX=1 TO lnRows

   IF lnCols = 1
      lvValue = laArray[lnX]
      lcType = VARTYPE(lvValue)

      *** Must use separate var or VFP gets confused!!!
      lcTemp = this.AddElement(lcRow,@lvValue,lnIndent + 1,;
     									 IIF(lcType # "O",[type="] + lcType + ["],[]))
   ELSE
      lcTemp = ""
      FOR lnY = 1 TO lnCols
         *** Must use separate var or VFP gets confused!!!
         lvValue = laArray[lnX,lnY]
         lcType = VARTYPE(lvValue)
         lcTemp = lcTemp + ;
                  this.AddElement(lcRow,@lvValue,lnIndent + 1,;
                                      IIF(lcType # "O",[type="] + lcType + ["],[]))
      ENDFOR
   ENDIF
      
   lcOutput = lcOutput + lcTemp
ENDFOR

RETURN lcOutput + ;
   REPLICATE(CHR(9),lnIndent) + "</" + lcName + ">" + CRLF

ENDPROC
PROCEDURE sqlcursortoxml
LPARAMETER lcSQL, lcConnectString, lcName, lcRowName, lnIndent, llNoHeader
LOCAL loSQL, lnX, lnSQLHandle

lnIndent=IIF(EMPTY(lnIndent),0,lnIndent)

IF EMPTY(lcSQL)
   THIS.cErrorMsg = "No SQL statement provided"
   THIS.lerror = .T.
   RETURN .F.
ENDIF

IF EMPTY(lcConnectString)
   lcConnectString = THIS.cSQLConnectString
   IF EMPTY(lcConnectString)
     THIS.cErrorMsg = "Unable to connect to datasource"
     THIS.lerror = .T.
     RETURN .F.
   ENDIF
ENDIF

lnSQLHandle = SQLStringConnect(lcConnectString)
IF lnSQLHandle < 1
   THIS.cErrorMsg = "Unable to connect to datasource"
   THIS.lerror = .T.
   RETURN .F.
ENDIF

IF EMPTY(lcName)
  lcName = "TXMLSQLQuery"  
ENDIF

lnResult = SQLExec(lnSQLHandle,lcSQL)
IF lnResult = -1
   lnCount = AERROR(laError)
   THIS.cErrorMsg = EXTRACT(laError[2],"Server]",".",,.T.) + "."
   THIS.lError = .T.
   SQLDisconnect(lnSQLHandle)
   RETURN .F.
ENDIF   

SQLDisconnect(lnSQLHandle)

IF lnResult = 1
   *** Only one cursor was returned so let's just render it
   RETURN THIS.CursorToXML(lcName, lcRowName, lnIndent, llNoHeader)
ENDIF

RETURN THIS.MultiCursorToXML(lcName,lnResult)


ENDPROC
PROCEDURE multicursortoxml
LPARAMETER lcCursorName, lnCount, lcRowName, lnIndent
LOCAL lnX

IF EMPTY(lcCursorName)
  lcCursorName = lower(ALias())
ENDIF
IF EMPTY(lnCount)
  lnCount = 0
ENDIF
IF EMPTY(lcRowName)
  lcRowName = "row"
ENDIF
IF EMPTY(lnIndent)
  lnIndent = 0
ENDIF

lcSchema = ""
lcXML = ""

*** Encode each cursor and concat
FOR lnX=1 to lnCount
   IF lnX=1
     lcTCursor = lcCursorName
   ELSE
     lcTCursor = lcCursorName + TRANSFORM(lnX-1)
   ENDIF
   
   SELE (lcTCursor) 
   IF THIS.nCreateDataStructure = 1
        lcSchema = lcSchema + THIS.CreateDataStructureSchema(lcTCursor,lcRowName,,lcTCursor)
   ENDIF

   lcXML = lcXML + THIS.CreateCursorXML(lcTCursor, lcRowName, lnIndent+1,;
                                      IIF(THIS.nCreateDataStructure=1,"#" + lcTCursor,""))
ENDFOR


RETURN ;
   THIS.cXMLHeader +;
   REPLICATE(CHR(9), lnIndent) + "<" + THIS.cDocRootName + ">" + CRLF + ;
   lcSchema + ;
   lcXML + ;
   REPLICATE(CHR(9), lnIndent) + "</" + THIS.cDocRootName + ">" + CRLF

ENDPROC
PROCEDURE adotoxml
LPARAMETER loRS, lcName, lcRowName, lnIndent, llNoHeader
LOCAL lcOutput, lnFields,lnX

THIS.lError = .F.
THIS.cErrorMsg = ""

IF VARTYPE(loRS) # "O"
   THIS.lError = .T.
   THIS.cErrorMsg = "No Recordset Object passed to ADOToXML()."
   RETURN ""
ENDIF
IF !llNoHeader
   lcOutput = THIS.cXMLHeader
ELSE
   lcOutput = ""
ENDIF

IF EMPTY(lcName)
   lcName = LOWER(ALIAS())
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF
IF EMPTY(lnIndent)
   lnIndent = 0
ENDIF

IF THIS.lCreateDataStructure
   lcOutput = lcOutput + ;
               "<!DOCTYPE " + THIS.cDocRootName + " [" + CRLF + ;
               "<!ELEMENT " + THIS.cDocRootName + " (" + lcName + ")>" + CRLF + ;
               THIS.CreateDataStructureDTD(lcName, lcRowName, loRS) + CRLF + ;
               "]>" + CRLF + CRLF
               
ENDIF

lcOutput = lcOutput + REPLICATE(CHR(9), lnIndent) + "<" + THIS.cDocRootName + ">" + CRLF


RETURN lcOutput + THIS.CreateADOXML(loRS, lcName, lcRowName, lnIndent) +;
       REPLICATE(CHR(9) , lnIndent) + "</" + THIS.cDocRootName + ">" + CRLF
ENDPROC
PROCEDURE createadoxml
LPARAMETER loRS, lcName, lcRowName, lnIndent
LOCAL lcOutput, lnFields, lnX, lvValue, lcValue, lcFieldName, lcFieldType
LOCAL lcOldCentury, lcTime, lcOldHours, lcOldDate, lcOldMark

IF EMPTY(lcName)
   lcName = "table"
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF
IF EMPTY(lnIndent)
   lnIndent = 1
ENDIF   

lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lcOldMark = SET("MARK")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET MARK TO "-"

DIMENSION laFieldList[1]
lnFields = THIS.ADOFields(loRS,@laFieldList)

lcOutput = REPLICATE(CHR(9),lnIndent) + [<] + lcName + [>] + CRLF

*** Now loop through table
DO WHILE !loRS.Eof
   *** Build a Field String
   lcValue=""

   lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcRowName + ">"+CRLF
   FOR lnX=1 TO lnFields
      lcfieldname=LOWER(laFieldList[lnX,1])
      lcfieldtype=laFieldList[lnX,2]

      lvValue=loRS.Fields(lnX-1).value

      DO CASE
         CASE ISNULL(lvValue)
            lcValue="NULL"
         CASE lcfieldtype = "C" or lcFieldType = "M"
            IF EMPTY(lvValue)
               lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcfieldname + "/>" + CRLF
               LOOP
            ELSE
               IF CHR(13) $ lvValue OR  ">" $ lvValue OR "<" $ lvValue OR "&" $ lvValue or CHR(0) $ lvValue
                  lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcfieldname + "><![CDATA[" +;
                     TRIM(STRTRAN(lvValue,CHR(0),"&#00;")) + "]]></" + lcfieldname + ">" + CRLF
                  LOOP
               ELSE
                  lcValue = TRIM(lvValue)
               ENDIF
            ENDIF
          CASE lcfieldtype="L"
            IF THIS.lUseFoxTypes
                lcValue=IIF(lvValue,".T.",".F.")
            ELSE
                lcValue=IIF(lvValue,"1","0")
            ENDIF
          CASE lcFieldType = "D"
             IF EMPTY(lvValue)
                lcValue = ""
             ELSE
                lcValue = DTOC(lvValue)
             ENDIF
          CASE lcFieldType = "T"
             *lcTime = TTOC(lvValue)
             IF !EMPTY(lvValue)
               lcValue = STRTRAN(TTOC(lvValue)," ","T")
               *lcValue = DTOS(lvValue) + "T" + SUBSTR(lcTime,AT(" ",lcTime)+1)
             ELSE
               lcValue = ""
             ENDIF
             
           CASE lcFieldType = "G"
             LOOP  &&& General fields are not supported 
         OTHERWISE
            lcValue = TRANSFORM(lvValue)
      ENDCASE

      lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 2) + "<" + lcfieldname + ">" +;
         lcValue + "</" + lcfieldname + ">" + CRLF
   ENDFOR && lnX=1 TO lnFields

   lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "</" + lcRowName + ">"+CRLF

   loRS.MoveNext()
ENDDO

SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET MARK TO (lcOldMark)

RETURN lcOutput + REPLICATE(CHR(9),lnIndent) + "</"+ lcName + ">" + CRLF 
ENDPROC
PROCEDURE adofields
LPARAMETER loRS, laFieldList
LOCAL lnX

lnFields = loRS.Fields.Count
DIMENSION laFieldList[lnFields,4]

FOR lnX=0 to lnFields-1
   laFieldList(lnX+1,1)= loRS.Fields(lnX).Name
   laFieldList(lnX+1,3) = loRS.Fields(lnX).DefinedSize
   laFieldList(lnX+1,4) = loRS.Fields(lnX).NumericScale
   lnfieldtype=loRS.Fields(lnX).Type
   
   DO CASE
      CASE INLIST(lnFieldType,ADCHAR,ADBSTR)
         laFieldList(lnX+1,2) = "C"
      CASE INLIST(lnFieldType,ADVARCHAR,ADLONGVARCHAR,;
                  ADWCHAR,ADVARWCHAR,ADLONGVARWCHAR,;
                  ADBINARY,ADVARBINARY,ADLONGVARBINARY)
         laFieldList(lnX+1,2) = "M"
      CASE lnFieldType = adBoolean
         laFieldList(lnX+1,2) = "L"
      CASE INLIST(lnFieldType,adDate, adDBDate)
         laFieldList(lnX+1,2) = "D"
      CASE INLIST(lnFieldType,adDBTime, adDBTimeStamp)
         laFieldList(lnX+1,2) = "T"
      CASE lnFieldType = ADNUMERIC
         laFieldList(lnX+1,2) = "N"
         laFieldList(lnX+1,3) = loRS.Fields(lnX).Precision
      CASE INLIST(lnFieldType,adInteger,adSmallInt,adTinyInt,adUnsignedInt,;
                              adUnsignedTinyInt,adUnsignedSmallInt,adUnsignedBigInt)
         laFieldList(lnX+1,2) = "I"
      CASE INLIST(lnFieldType,adCurrency)
         laFieldList(lnX+1,2) = "Y"
      CASE lnFieldType =  adDouble   
         laFieldList(lnX+1,2) = "B"
         laFieldList(lnX+1,3) = loRS.Fields(lnX).Precision
      CASE lnFieldType = adSingle
         laFieldList(lnX+1,2) = "F"
         laFieldList(lnX+1,3) = loRS.Fields(lnX).Precision
      OTHERWISE
         ERROR "Unknown Ado field type: " + TRANS(lnFieldType)
   ENDCASE

*   ? lnX,lnFieldType,laFieldList(lnX+1,1),laFieldList(lnX+1,2),laFieldList(lnX+1,3),laFieldList(lnX+1,4)
ENDFOR

RETURN lnFields
ENDPROC
PROCEDURE parsexmltoarray
LPARAMETER loXMLObject, laArray, llParseCaseInsensitive
LOCAL lnSize, lnX, loObject, lcField, lcType, lnProperties, loProperty
LOCAL laProperties[1], loProperty, lcValue, lnDimensions

IF ISNULL(loXMLObject)
   THIS.cErrorMsg = "No data provided for element"
   RETURN .F.
ENDIF

loDim = loXmlObject.Attributes.GetNamedItem("dim")
IF !ISNULL(loDim)
   lnDimensions =    VAL( loDim.Value )
   IF lnDimensions = 0
     lnDimensions = 1
   ENDIF
ELSE,,
   lnDimensions=1
ENDIF

*** Walk the object and then pull properties 
*** from the XML to repopulate it
lcName = loXMLObject.NodeName
loRows = loXMLObject.ChildNodes    &&SelectNodes(loXMLObject.NodeName + "_item")
lnRows = loRows.length

lcValue = laArray[1]
lcType = VARTYPE(laArray[1])

IF lcType = "O"
   DIMENSION laArray[lnRows]
   FOR lnX = 1 to lnRows
      laArray[lnX] = CopyObject(lcValue)   && New Obj ref created
   ENDFOR
   lcValue = 0 
ELSE
   DIMENSION laArray[lnRows]
ENDIF   

lnX=0
FOR EACH oRow in loRows
   lnX= lnX + 1

   *** If array item one is an object assume Object Array
   *** NO TYPE CHECKS OCCUR
   IF lcType = "O"
	   *** First element MUST CONTAIN object
	   THIS.ParseXMLToObject(oRow,laArray[lnX],llParseCaseInsensitive)
	   LOOP
   ENDIF

   loType = oRow.attributes.getNamedItem("type")
   IF !ISNULL(loType)
      lcType = lotype.Text
   ENDIF
   
   lcValue = oRow.TEXT
   
   DO CASE
      CASE lcType $ "CM"
         laArray[lnX] =  STRTRAN(lcValue,"&#00;",CHR(0))
      CASE lcType $ "NIF"
         laArray[lnX] = VAL(lcValue)
      CASE lcType = "T"
         laArray[lnX] = CTOT(lcValue)
      CASE lcType = "D"
         laArray[lnX] = CTOD(lcValue)
      CASE lcType = "L"
         IF lcValue = "True" OR lcValue = "1"
            laArray[lnX] = .T.
         ELSE
            laArray[lnX] = .F.
         ENDIF
      OTHERWISE
         *** If we have an object
         laArray[lnX] = .NULL.
         *** OTHERWISE  && Do nothing
   ENDCASE
ENDFOR

*** Create the multidimensional array
*** through redimensioning
IF lnDimensions > 1
   lnElems = ALEN(laArray,0) / lnDimensions
   DIMENSION laArray[lnElems,lnDimensions]
ENDIF

RETURN .T.

ENDPROC
PROCEDURE addelement
LPARAMETER lcDispField, lvValue, lnIndent, lcAttributes, lcFoxType
LOCAL lcOldData, lnOldHours, lcOldCentury,lcOldMark,lcOutput, lcResult

lnIndent=IIF(VARTYPE(lnIndent) # "N",2,lnIndent)
IF EMPTY(lcAttributes)
   lcAttributes = ""
ELSE
   lcAttributes = " " + lcAttributes
ENDIF

IF EMPTY(lcFoxType)
   lcFoxType = VARTYPE(lvValue)
ENDIF

lcOutput = ""

DO CASE
      CASE TYPE([ALEN(lvValue)]) = "N"
         IF THIS.lRecurseObjects
            *** THIS CODE MUST BE ON 2 lines of VFP gets confused
            lcResult = THIS.CreateArrayXML(@lvValue,lcDispField,,lnIndent+1)
            lcAttributes = lcAttributes + [ count="] + TRANSFORM(ALEN(lvValue)) + ["]
            IF !EMPTY(lcAttributes)
	          lcResult = STRTRAN(lcResult,"<" + lcDispField ,"<" + lcDispField + lcAttributes,1,1 )
	        ENDIF
            lcOutput = lcOutput + lcResult
         ELSE
            lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcDispField + ">(array)</" + lcDispField + ">" + CRLF
         ENDIF
   CASE ISNULL(lvValue)
      IF THIS.lSkipEmptyElements
         RETURN ""
      ENDIF
      lcOutput = lcOutput +  REPLICATE(CHR(9),lnIndent) + "<" +lcDispField +  lcAttributes + " />" + CRLF &&NULL</"+lcDispField+">" + CRLF
   CASE lcFoxType = "C"
      IF THIS.lSkipEmptyElements AND EMPTY(lvValue)
         RETURN ""
      ENDIF

      IF EMPTY(lvValue)
         RETURN  REPLICATE(CHR(9),lnIndent ) + "<" + lcDispField + lcAttributes + "/>" + CRLF
      ELSE
         IF "&" $ lvValue
            lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
         ENDIF
         IF  ">" $ lvValue
            lvValue = STRTRAN(lvValue,">","&gt;")
         ENDIF
         IF "<" $ lvValue
            lvValue = STRTRAN(lvValue, "<", "&lt;")
         ENDIF
         RETURN REPLICATE(CHR(9),lnIndent ) + "<" + lcDispField + lcAttributes +  ">" + ;
            TRIM(lvValue) + ;
            "</" + lcDispField + ">" + CRLF
      ENDIF
   CASE lcFoxType = "D" OR lcFoxType = "T"
      IF THIS.lSkipEmptyElements AND EMPTY(lvValue)
         RETURN ""
      ENDIF

	  LOCAL lcDate as Datetime
	  lcDate = ""
	  IF !EMPTY(lvValue)
			#IF wwVFPVersion > 8
				  lcDate = TTOC(lvValue,3) + ".00000"
			#ELSE

			      lcOldDate = SET("DATE")
			      lnOldHours = SET("HOURS")
			      lcOldCentury = SET("CENTURY")
			      lcOldMark = SET("MARK")

			      SET HOURS TO 24
			      SET DATE TO YMD
			      SET CENTURY ON
			      SET MARK TO "-"

				  lcDate =  STRTRAN( TRANSFORM(lvValue) + ".00000"," ","T" )

			      SET DATE TO &lcOldDate
			      SET HOURS TO lnOldHours
			      SET CENTURY &lcOldCentury
			      SET MARK TO (lcOldMark)
			   #ENDIF

	   lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent) + ;
                              "<" +lcDispField + lcAttributes +  ">"  + ;
                              lcDate + ;
                              "</"+lcDispField+">" + CRLF
      ELSE
      		   lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent) + ;
                              "<" +lcDispField + lcAttributes +  " />"  + CRLF
      ENDIF


   CASE lcFoxType = "L"
      lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent) + "<" + lcDispField + lcAttributes +  ">" +;
         IIF( lvValue, "1","0") + "</" + lcDispField + ">" + CRLF
   CASE lcFoxType = "B" OR lcFoxType = "Q"
         lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent) + "<" + lcDispField + lcAttributes +  ">" +;
         STRCONV(lvValue,13) + "</" + lcDispField + ">" + CRLF
   CASE lcFoxType = "O"
         *** The following *MUST* be separate line or else VFP gets confused
         *** in the recursion levels and generates invalid fields
         DO CASE 
         *** Deal with Collections
         CASE TYPE("lvValue.BaseClass")="C" AND lvValue.BaseClass = "Collection"
    	     lcResult = THIS.CreateCollectionXML(lvValue,lcDispField,"item",lnIndent )

         *** Check for XML DOM nodes - embed XML directly
         CASE TYPE("lvValue.NodeType") = "N" 
             lcResult="<" + lcDispField + lcAttributes +  ">" + lvValue.Xml  + "</" + lcDispField + ">"  && Embed Raw XML    
         OTHERWISE
            *** FoxPro object
	         lcResult = THIS.CreateObjectXML( lvValue,lcDispField,lnIndent)
	     ENDCASE

*!*         IF !EMPTY(lcAttributes)
*!*            lcResult = STRTRAN(lcResult,"<" + lcDispField ,"<" + lcDispField + lcAttributes,1,1 )
*!*         ENDIF
      RETURN lcResult
   OTHERWISE
      lcOutput =  lcOutput  + REPLICATE(CHR(9),lnIndent) + "<" +lcDispField + lcAttributes + ">"  + TRANSFORM(lvValue) + "</"+lcDispField+">" + CRLF
ENDCASE

RETURN lcOutput

ENDPROC
PROCEDURE setelement
LPARAMETER lcElement, lcValue, lcXMLDoc

IF EMPTY(lcXMLDoc)
   lcXMLDoc = THIS.cBody
ENDIF   

lnLoc = AT("<" + lcElement + ">",lcXMLDoc)
lnLoc2 = AT("</" + lcElement +  ">",lcXMLDoc)

IF lnLoc = 0 
   *** Possibly add a new tag?
   RETURN .F.
ENDIF   













ENDPROC
PROCEDURE adoxmltocursor
LPARAMETER lvXML, lcAlias
LOCAL loXML, lnX, lnSize, lcCreate

THIS.lError = .F.
THIS.cErrorMsg = ""

IF NOT INLIST(VARTYPE(lvXML),"O","C") OR EMPTY(lvXML)
   THIS.cErrorMsg = "No XML input passed."
   RETURN .F.
ENDIF

IF EMPTY(lcAlias)
   lcAlias = "__wwXML"
ENDIF

IF VARTYPE(lvXML) # "O"
   loXML = CREATEOBJECT(XML_XMLDOM_PROGID)
   loXML.LoadXML( lvXML )
ELSE
   *** Input object must be IE 5 XML object
   loXML = lvXML
ENDIF

*** Check for parsing error
IF !EMPTY(loXML.ParseError.reason) 
   THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
                    "Line: " + TRANSFORM(loXML.ParseError.Line) + CRLF +;
                    loXML.ParseError.SrcText
   RETURN .F.
ENDIF

*** Make sure spaces are returned properly
loXML.PreserveWhiteSpace = .T.

*** get the root element node
loDocRoot = loXML.DocumentElement
IF ISNULL(loDocRoot)
   THIS.cErrorMsg = "Invalid data root. Data must be in child of document root."
   RETURN .F.
ENDIF


IF !USED(lcAlias)
  *** Assume <?xml..><root><table><row>
  THIS.BuildCursorFromXML(loDocRoot.ChildNodes(0).ChildNodes(0),lcAlias)
ELSE
   SELE (lcAlias)
ENDIF

*** Now append the data from the XML

*** Get the Data root element - ie. the cursor name or 'cursor'
loData = loDocRoot.SelectNodes("rs:data/z:row") && SelectSingleNode("cursor")
IF ISNULL(loData)
   THIS.cErrorMsg = "No data provided for element"
   RETURN .F.
ENDIF

RETURN THIS.ParseADOXMLToCursor(loData)

ENDPROC
PROCEDURE parseadoxmltocursor
LPARAMETER loData
LOCAL lnFields, laFields(1),lnX, lcType, lcField, loRow

lcOldDate = SET("DATE")
lnOldHours = SET("HOURS")
lcOldCentury = SET("CENTURY")
lnOldStrictDate = SET("STRICTDATE")

SET HOURS TO 24
SET DATE TO YMD
SET CENTURY ON
SET STRICTDATE TO 0

lnFields = AFIELDS(laFields)

FOR EACH loRow IN loData
   APPEND BLANK
   _lcXML = loRow.XML
   FOR lnX = 1 TO lnFields
      lcField = LOWER(laFields[lnX,1])
      lcType  = laFields[lnX,2]

      *** This code uses the parser for individual fields
      loValue = loRow.Attributes.getnameditem(lcField)
      IF ISNULL(loValue)
         LOOP
      ENDIF
      lcValue = loValue.TEXT
      loValue = 0
            
      DO CASE
         CASE lcValue = "NULL"
            lcValue = .NULL.
         CASE lcType $ "CM"
            *lcValue =
         CASE lcType $ "NIF"
            lcValue = VAL(lcValue)
         CASE lcType = "T"
            lcValue = CTOT(lcValue)
         CASE lcType = "D"
            lcValue = CTOD(lcValue)
         CASE lcType = "L"
            IF THIS.lUseFoxTypes
               lcValue = EVAL(lcValue)
            ELSE
               IF lcValue = "True"
                  lcValue = .T.
               ELSE
                  lcValue = .F.
               ENDIF
            ENDIF
         CASE lcType = "G"
            LOOP
         OTHERWISE
            lcValue = EVAL(lcValue)
      ENDCASE
      REPLACE (lcField) WITH lcValue
   ENDFOR
ENDFOR

SET DATE TO &lcOldDate
SET HOURS TO lnOldHours
SET CENTURY &lcOldCentury
SET STRICTDATE TO lnStrictDate

RETURN .T.


ENDPROC
PROCEDURE encodexml
LPARAMETERS lcXML
#DEFINE USE_API .T.

IF wwVFPVersion > 6
    RETURN STRCONV(lcXML,9)
ELSE
    LOCAL oXML,lcFile, lcUTF, lnSize, lnResult

    #IF USE_API

        #DEFINE CP_ACP     0
        #DEFINE CP_UTF8    65001

        DECLARE INTEGER MultiByteToWideChar IN Win32API ;
            INTEGER nflag,;
            INTEGER reserverd, ;
            STRING INPUT,;
            INTEGER inSize,;
            STRING@ OUTPUT,;
            INTEGER SIZE


        *** Presize our buffer
        lnWCSize = LEN(lcXML) * 2 + 2
        lcWide = SPACE(lnWCSize)

        lnResult =  MultiByteToWideChar(CP_ACP, 0, lcXML, LEN(lcXML),@lcWide, lnWCSize )
        IF lnResult = 0
            RETURN ""
        ENDIF


        DECLARE INTEGER WideCharToMultiByte IN WIN32API ;
            INTEGER,;
            INTEGER,;
            STRING,;
            INTEGER,;
            STRING @,;
            INTEGER,;
            INTEGER,;
            STRING

        lnSize = LEN(lcXML)
        lcUTF = SPACE(lnSize *2 + 2)
        *lcWide = STRCONV(lcXML,5)     && Fails with large strings (over 450k)
        lnResult = WideCharToMultiByte( CP_UTF8,0,lcWide,lnSize,@lcUTF,lnSize * 2 + 2,0,NULL)
        IF lnResult = 0
            RETURN ""
        ELSE
            RETURN LEFT(lcUTF,lnResult)
        ENDIF

    #ELSE
        DECLARE INTEGER UTF8Encode ;
            IN wwIPStuff.DLL ;
            STRING lcText,;
            STRING @lcUTF
    #ENDIF

    lcUTF = SPACE(LEN(lcXML) * 2 + 2)

    #IF !USE_API
        lnLength = UTF8Encode(lcXML,@lcUTF)
    #ENDIF
    IF lnLength = 0
        RETURN ""
    ENDIF

    RETURN LEFT(lcUTF,lnLength)

    #UNDEFINE USE_API

ENDIF

ENDPROC
PROCEDURE cursortors
lcXML = THIS.CursorToADOXML()

lcFile = SYS(2023) + "\" + SYS(2015) + ".xml"
File2Var(lcFile,THIS.EncodeXML(lcXML))

oRS = CREATEOBJECT("AdoDB.RecordSet")
oRS.OPEN(lcFile)  && Load as XML document

ERASE (lcFile)

RETURN oRS
ENDPROC
PROCEDURE loadurl
LPARAMETER lcUrl, lcPostBuffer, lcUserName, lcPassword, lnTimeout
LOCAL lnSize, lcData, lnResult, llHTTPS, loIP

THIS.cErrorMsg = ""
THIS.lError = .F.


loIP = CREATE("wwHTTP")
IF VARTYPE(lnTimeout) = "N"
  loIP.nConnectTimeout = lnTimeout
ENDIF

IF !EMPTY(lcPostBuffer)
   *** Raw buffer post - XML Data only
   loIP.nHTTPPostMode = 4 && XML
   loIP.AddPostKey("",lcPostBuffer)
ENDIF   

*** Now call new HTTPGet to pull the actual data
lcResult = loIP.HTTPGet(lcUrl,lcUserName,lcPassword)
IF !EMPTY(lcResult) 
   RETURN lcResult
ELSE
   IF loIP.nError # 0
      THIS.lError = .T.
      THIS.cErrorMsg = loIP.cErrorMsg
   ENDIF
ENDIF

RETURN ""

ENDPROC
PROCEDURE ismsxmlbug
LPARAMETER llNoUI,llForceFail,lnType
PRIVATE oXML

IF EMPTY(lnType)
   lnType = 0
ENDIF
DO CASE
   CASE lnType = 2
      *** Check for MSXML 2
      loEval = CREATEOBJECT("wwEval")
      loMSXML = loEval.EVALUATE([ CREATEOBJECT("MSXML2.DOMDocument") ])
      IF loEval.lError OR llForceFail
         IF !llNoUI AND ;
               MESSAGEBOX("You have an old version of MSXML installed.  It is" + CHR(13) + ;
               "recommended that you update MSXML to a newer version." + CHR(13) + CHR(13) +;
               "Would you like more information from the Web?",32+4,"msXML Version") = 6
            GoUrl("http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/596/msdncompositedoc.xml")
         ENDIF
         RETURN .T.
      ENDIF

   OTHERWISE
      oXML=CREATEOBJECT(XML_XMLDOM_PROGID)

      loEval = CREATE("wwEval")
      loEval.EVALUATE([ oXML.LoadXML("<?XML?>") ])

      IF loEval.lError OR llForceFail
         IF !llNoUI AND ;
               MESSAGEBOX("The version of MSXML.DLL on your system contains" + CHR(13) +;
               "a bug that causes undocumented COM errors. It is" + CHR(13) + ;
               "recommended that you update MSXML to a newer version." + CHR(13) + CHR(13) +;
               "Would you like more information from the Web?",32+4,"msXML Bug") = 6
            GoUrl("http://www.west-wind.com/webconnection/msxml.asp")
         ENDIF
         RETURN .T.
      ENDIF
ENDCASE

RETURN .F.

ENDPROC
PROCEDURE createdatastructureschema
LPARAMETER lcName, lcRowName, loRS, lcSchemaID
LOCAL lcOutput, lnX, lcRow, lcType, lnFields, lcSpace, loRS, lcAttributes, lcRowName, lnSize, lnPrecision

IF EMPTY(lcName)
   lcName = lower(Alias())
ENDIF
IF EMPTY(lcRowName)
   lcRowName = "row"
ENDIF
IF EMPTY(lcSchemaId)
  lcSchemaId = "Schema"
ENDIF

lcSpace = SPACE(10)

lcOutput = ;
[<Schema name="]+ lcSchemaId +[" xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">] + CRLF +;
[   <ElementType name="] + lcName + + [" content="eltOnly" model="closed" order="many">] + CRLF +;
[		<element type="] + lcRowName + [" />] + CRLF +; 
[	</ElementType>] +CRLF + ;
[	<ElementType name="] + lcRowName + [" content="eltOnly" model="closed" order="many">] + CRLF 
  
IF VARTYPE(loRS) = "O"
   DIMENSION laFields[1]
   lnFields = THIS.ADOFields(loRS,@laFields)
ELSE 
   lnFields = AFIELDS(laFields)
ENDIF

FOR lnX=1 to lnFields
 lcOutput = lcOutput + [		<element type="] +LOWER(laFields[lnX,1]) + ["/>]  + CRLF
ENDFOR

lcOutput = lcOutput + [	</ElementType>] + CRLF
lcAttributes = ""

FOR lnX=1 to lnFields
   lcType = laFields[lnX,2]
   *** Override length and precision
   DO CASE
      CASE lcType = "M"
         lnSize = XML_SCHEMA_MEMOSIZE
         lnPrecision = 0
      CASE lcType = "Y"
         lnSize = 20
         lnPrecision = 4
      CASE lcType = "G"
         LOOP && Skip General Fields
      OTHERWISE
         lnSize = laFields[lnX,3]
         lnPrecision = laFields[lnX,4]
   ENDCASE
   
   lcType = THIS.FoxTypeToXMLType(lcType)
   
   lcOutput = lcOutput + ;
       [	<ElementType name="] + LOWER(laFields[lnX,1]) + [" content="textOnly" model="closed" dt:type="]+ lcType + [">] + CRLF +;
       [		<AttributeType name="type"/>] + CRLF +;
       [		<attribute type="type" default="]+ lcType +["/>] + CRLF +;
       [		<AttributeType name="size"/>] + CRLF + ;
       [		<attribute type="size" default="]+TRANSFORM(lnSize)+["/>] + CRLF +;
       IIF(lnPrecision # 0,;
       [		<AttributeType name="precision"/>] + CRLF + ;
       [		<attribute type="precision" default="]+TRANSFORM(lnPrecision)+["/>] + CRLF,;
       []) +;
	   [	</ElementType>] + CRLF     
ENDFOR


RETURN lcOutput + "</Schema>" + CRLF
ENDPROC
PROCEDURE createobjectstructureschema
LPARAMETER loObject, lcName,  lcSchemaID, lnRecurseType
LOCAL lnPropCount, lnX, lcProperty, lcType, lcOutput, laFields(1), lcObjectHeaders, lcObjectProperties, lcDispField

IF EMPTY(lcName)
   IF VARTYPE(loObject.CLASS) = "C"
      lcName = loObject.CLASS
   ELSE
      lcName = "object"
   ENDIF
ENDIF


IF EMPTY(lnRecurseType)
   lnRecurseType = 0
ENDIF
IF EMPTY(lcSchemaID)
   lcSchemaID = "Schema"
ENDIF

IF lnRecurseType = 0
   lcOutput = ;
      [<Schema name="] + lcSchemaID + [" xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">] + CRLF +;
      [	<ElementType name="] + lcName + [" content="eltOnly" model="closed" order="many">] + CRLF
ELSE
   lcOutput = ""
ENDIF

lnPropCount = AMEMBERS(laFields,loObject)

lcObjectHeaders = ""      && Top level objects
lcObjectProperties = ""   && Properties/Attribute descripts


IF lnRecurseType = 0 OR lnRecurseType = 1
   FOR lnX=1 TO lnPropCount
      lcProperty = LOWER(laFields[lnX])
      IF "," + lcProperty + "," $ "," + THIS.cpropertyexclusionlist + ","
         LOOP
      ENDIF

      IF THIS.lStripTypePrefix
         lcDispField = SUBSTR(lcProperty,2)
      ELSE
         lcDispField = lcProperty
      ENDIF

      IF THIS.lRecurseObjects
         IF TYPE("loObject." + lcProperty) = "O"
            lcObjectHeaders = lcObjectHeaders + ;
               [	<ElementType name="] + lcDispField +  [" content="eltOnly" model="closed" order="many">] + CRLF +;
               THIS.createobjectstructureschema(EVALUATE("loObject." + lcProperty),lcDispField,,1)
            lcOutput = lcOutput + [		<element type="] + lcDispField + ["/>] + CRLF
            LOOP
         ENDIF
      ENDIF

      lcOutput = lcOutput + [		<element type="] + lcDispField + ["/>]  + CRLF
   ENDFOR
   
   lcOutput = lcOutput + [      <AttributeType name="type"/>] + CRLF +;
                         [      <attribute type="type" default="object" />]+ CRLF +;
                         [      <AttributeType name="class"/>] + CRLF +;
                         [      <attribute type="class" default="empty" />] + CRLF
                         
   lcOutput = lcOutput + [	</ElementType>] + CRLF  + lcObjectHeaders
ENDIF

IF lnRecurseType = 1
   RETURN lcOutput + lcObjectHeaders
ENDIF

FOR lnX=1 TO lnPropCount
   lcProperty = LOWER(laFields[lnX])
   IF "," + lcProperty + "," $ "," + THIS.cpropertyexclusionlist + ","
      LOOP
   ENDIF
   lcType = THIS.FoxTypeToXMLType(TYPE("loObject." + lcProperty))

   IF THIS.lStripTypePrefix
      lcDispField = SUBSTR(lcProperty,2)
   ELSE
      lcDispField = lcProperty
   ENDIF

   IF THIS.lRecurseObjects AND lcType = "object"
      lcObjectProperties = lcObjectProperties + THIS.createobjectstructureschema(EVALUATE("loObject." + lcProperty),lcDispField,,2)
      LOOP
   ENDIF

   lcObjectProperties = lcObjectProperties + ;
      [	<ElementType name="] + LOWER(lcDispField) + [" content="textOnly" model="closed" dt:type="]+ lcType + [">] + CRLF +;
      [		<AttributeType name="type"/>] + CRLF +;
      [		<attribute type="type" default="]+ lcType +["/>] + CRLF +;
      [	</ElementType>] + CRLF
ENDFOR

lcOutput = lcOutput + lcObjectProperties

IF lnRecurseType = 2
   RETURN lcObjectProperties
ENDIF

RETURN lcOutput + "</Schema>" + CRLF

ENDPROC
PROCEDURE xmlvaluetofoxvalue
LPARAMETER lcXMLValue, lcXMLType, lvStore
LOCAL  lcType, lcOldDate, lnOldHours, lnOldCentury, lnOldStrictDate

lcType = THIS.xmltypetofoxtype(lcXMLType)
 
IF lcType $ "TD"
   lcOldDate = SET("DATE")
   lnOldHours = SET("HOURS")
   lcOldCentury = SET("CENTURY")
   lnOldStrictDate = SET("STRICTDATE")

   SET HOURS TO 24
   SET DATE TO YMD
   SET CENTURY ON
   SET STRICTDATE TO 0
ENDIF

DO CASE
   CASE UPPER(lcXMLValue) = "NULL"
      lcXMLValue = .NULL.
   CASE lcType $ "CM"   
      *** Do nothing - value is Ok
   CASE lcType $ "NIF"
      lcXMLValue = VAL(lcXMLValue)
   CASE lcType = "T"
	  lcXmlValue = CTOT(lcXmlValue)
      * lcXMLValue = CTOT(SUBSTR(CHRTRAN(lcXMLValue,"TZ"," "),1,16))
   CASE lcType = "D"
	  lcXmlValue = TTOD(CTOT(lcXmlValue))
      *lcXMLValue = CTOD(CHRTRAN(lcXMLValue,"TZ"," "))
   CASE lcType = "L"
      IF THIS.lUseFoxTypes
         lcXMLValue = EVAL(lcXMLValue)
      ELSE
         IF lcXMLValue = "1" OR LOWER(lcXMLValue) = "true" 
            lcXMLValue = .T.
         ELSE
            lcXMLValue = .F.
         ENDIF
      ENDIF
   CASE lcType = "G"
      LOOP
   CASE lcType = "B"  && Binary
      IF wwVFPVersion > 7
         lcXMLValue = STRCONV(lcXMLValue,14)
      ELSE
         lvResult = lcXMLValue
      ENDIF
   CASE lcType = "O"
       IF VARTYPE(lvStore) = "O"
          *** If we have an object passed as input - try to parse it
          
          *** Add Extra Node to XML to get complete document
          lcXMLDoc = THIS.cXMLHeader   + "<xdoc>" + lcXMLValue + "</xdoc>"
          
          *** Just convert
          lvResult = THIS.XMLToObject(lcXMLDoc,lvStore)
          RETURN lvResult
        ENDIF
        IF ISNULL(lvStore)  && Create object on the fly
          *** If we have an object passed as input - try to parse it
          lcXMLDoc = THIS.cXMLHeader   +  "<xdoc>" + lcXMLValue + "</xdoc>"
          lvResult = THIS.XMLToObject(lcXMLDoc)
          RETURN lvResult
        ENDIF
   OTHERWISE
      lcXMLValue = EVAL(lcXMLValue)
ENDCASE

IF lcType $ "TD"
   SET DATE TO &lcOldDate
   SET HOURS TO lnOldHours
   SET CENTURY &lcOldCentury
   SET STRICTDATE TO lnOldStrictDate
ENDIF

RETURN lcXMLValue
 
ENDPROC
PROCEDURE datasetxmltocursor
LPARAMETER lvXML, lcAlias, lcDataSetTableName
LOCAL loXML, x, lnSize, lcCreate, loCursor, loData

THIS.lError = .F.
THIS.cErrorMsg = ""

IF  VARTYPE(lvXML) = "C"
   IF EMPTY(lvXML)  
      THIS.lError = .T.
      THIS.cErrorMsg = "No XML input passed."
      RETURN .F.
   ENDIF

   *** Note: Parser will properly encode ASCII/ANSI doc without
   ***       the header.
   lvXML = STRTRAN(lvXML,[encoding="utf-8"],"")
ELSE
   IF TYPE("lvXML.async") # "L"
      THIS.lError = .T.
      THIS.cErrorMsg = "No XML input passed."
      RETURN .F.
   ENDIF
ENDIF

IF EMPTY(lcAlias)
   lcAlias = "__wwXML"
ENDIF

IF VARTYPE(lvXML) # "O"
   loXML = CREATEOBJECT(XML_XMLDOM_PROGID)
   loXML.LoadXML( lvXML )
ELSE
   *** Input object must be IE 5 XML object
   loXML = lvXML
ENDIF

*** Required to preserve leading spaces
loXML.PreserveWhiteSpace = .T.

*** Check for parsing error
IF !EMPTY(loXML.ParseError.reason)
   THIS.lerror = .T.
   THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
      "Line: " + TRANSFORM(loXML.ParseError.LINE) + CRLF +;
      loXML.ParseError.SrcText
   RETURN .F.
ENDIF


*** get the root element node
loDocRoot = loXML.DocumentElement
IF ISNULL(loDocRoot)
   THIS.lError = .T.
   THIS.cErrorMsg = "Invalid XML Doc root. Data must be in child of document root."
   RETURN .F.
ENDIF

*** Parse Schemas
*!*   loTableSchemas = loDocRoot.SelectNodes("xsd:schema/xsd:element/xsd:complextype/xsd:choice/xsd:element")
*!*   IF ISNULL(loTableSchemas)
*!*      THIS.lError = .T.
*!*      THIS.cErrorMsg = "No Schemas found"
*!*      RETURN .F.
*!*   ENDIF

loDiffGr = loDocRoot.SelectSingleNode("diffgr:diffgram/NewDataSet")
IF !ISNULL(loDiffGr)
   IF !EMPTY(lcDataSetTableName)
      loCursor = loDocRoot.SelectNodes("diffgr:diffgram/NewDataSet/" + lcDataSetTableName)
      IF ISNULL(loCursor)
         RETURN ""
      ENDIF
      RETURN THIS.ParseXMLToCursor(loCursor.Item(0).ParentNode,.T.)  && Hand off a node list
   ELSE
      loCursor = loDocRoot.SelectSingleNode("diffgr:diffgram/NewDataSet")
      IF ISNULL(loCursor)
         RETURN ""
      ENDIF
      RETURN THIS.ParseXMLToCursor(loCursor)
   ENDIF   
ELSE
   *** Nodes are directly under the root node
   IF !EMPTY(lcDataSetTableName)
      loCursor = loDocRoot.SelectNodes(lcDataSetTableName)
      IF ISNULL(loCursor)
         RETURN ""
      ENDIF
      RETURN THIS.ParseXMLToCursor(loCursor.item(0).ParentNode,.T.)  && Hand off a node list
   ELSE
      RETURN ""
   ENDIF   
ENDIF
ENDPROC
PROCEDURE createcursorfromschema
LPARAMETER loSchema, lcAlias
LOCAL lcSchemaXML, loFields, lnFields, lcCursor, lcRow, lcXML, lnX, lcName, loXML

IF ISNULL(loSchema)
   RETURN .F.
ENDIF

lcSchemaXML = loSchema.XML
 
loFields = loSchema.selectNodes("ElementType")
IF ISNULL(loFields)
   RETURN .F.
ENDIF

lnFields = loFields.length 
IF lnFields < 3
   RETURN .F.
ENDIF

lcCursor = loFields.item(0).Attributes.GetNamedItem("name").Text
lcRow = loFields.item(1).Attributes.GetNamedItem("name").Text

*** Create a new XML document with a single record that contains
*** contains the structure and then parse that

lcXML = ;
[<root>] + ;
  lcSchemaxml + ;
 [<] + lcCursor + [ xmlns="x-schema:#Schema"><] + lcRow + [>] + CRLF 


*** Skip over table and row level nodes
FOR lnX = 2 TO lnFields -1
   lcName = loFields.item(lnX).attributes.GetNamedItem("name").text
   lcXML = lcXML + ;
           [<] +lcName + [/>] + CRLF
ENDFOR

lcXML = lcXML + [</] + lcrow + [></] + lccursor + [></root>]

loXML = CREATEOBJECT("wwXML")
loDom = loXML.LoadXML(lcXML)
IF !EMPTY(loDom.ParseError.Reason)
   THIS.cErrorMsg = loDom.ParseError.Reason
   THIS.lError = .T.
   RETURN .F.
ENDIF

THIS.BuildCursorFromXML(loDOM.DocumentElement.SelectSingleNode(lcCursor),;
                        lcAlias)

IF THIS.lError
   RETURN .F.
ENDIF

RETURN .T.

ENDPROC
PROCEDURE xpathvaluetofoxvalue
LPARAMETERS loRootNode, lcXPath, lcType, lvStore

loValue = loRootNode.SelectSingleNode(lcXPath)
IF ISNULL(loValue)
   RETURN this.xmlvaluetofoxvalue("",lcType,@lvStore)   
ENDIF   

lcValue = loValue.Text

IF EMPTY(lcType)
   RETURN lcValue
ENDIF

RETURN this.xmlvaluetofoxvalue(lcValue,lcType,@lvStore)   


ENDPROC
PROCEDURE buildandupdateobjectfromxml
LPARAMETER loObjectStructure, loType
LOCAL loObject,lnIndex,llUseCustomTypes, ;
   lcType, ;
   loAttributes, ;
   lcField, ;
   lcFoxType

loObject = .NULL.

llUseCustomTypes = VARTYPE(loType.aProperties) # "U"

*** Create the new object   
loObject = CREATE(THIS.cObjectClass)

*** Loop through the XML document to read each property
*** and populate property from it
FOR EACH loField IN loObjectStructure.ChildNodes
   loAttributes = loField.ATTRIBUTES
   lcField = loField.NodeName

   loObject.ADDPROPERTY(lcField)
   IF llUseCustomTypes
   	  #IF wwVFPVersion < 7
    	    lnIndex = ASCAN(loType.aProperties,lcField,-1,-1)
   	  #ELSE
	       lnIndex = ASCAN(loType.aProperties,lcField,-1,-1,1)
        #ENDIF
      
      IF lnIndex > 0
         lcType = loType.aProperties[lnIndex + 1]
      ELSE
         lcType = "string"
      ENDIF
   ELSE
      lcType = loAttributes.GetNamedItem("type").TEXT
   ENDIF

*** We have to check the type for objects
lcFoxType = THIS.xmltypetofoxtype(lcType)
IF lcFoxType = "O"
   *** Build the child object and attach it!
   loTemp = this.BuildAndUpdateObjectFromXML(loField,poSDL.aTypes[2])
   loObject.&lcField = loTemp  
ELSE
   *** Just convert and return
   loObject.&lcField = this.XMLValueToFoxValue(loField.Text,lcType)
ENDIF   
   
*!*      DO CASE
*!*         CASE lcType = "C"
*!*         CASE lcType = "N"
*!*            loObject.&lcField = lvValue
*!*         CASE lcType = "L"
*!*            loObject.&lcField = 
*!*         CASE lcType $ "D"
*!*            loObject.&lcField = {}
*!*         CASE lcType $ "T"
*!*            loObject.&lcField = {  /  /  :  }
*!*         CASE lcType = "U"
*!*            loObject.&lcField = .NULL.
*!*   *      CASE lcType = "O"
*!*   *         loObject.&lcField = .NULL.
*!*         OTHERWISE 
*!*            *** Must create an object first then set to .NULL.         
*!*            *** to get Fox to read the type right
*!*            loObject.&lcField = CREATE("Relation")
*!*            loObject.&lcField = .NULL.
*!*      ENDCASE
ENDFOR

RETURN loObject

ENDPROC
PROCEDURE createcollectionxml
LPARAMETER loCollection, lcName, lcRow, lnIndent
LOCAL lcOutput, lnItem, lnX, lvValue, lcType, lcField

lnItems = loCollection.Count

*** Loop through the collection fields first (Count, KeySort)
lcOutput = this.CreateobjectXml(loCollection,lcName,lnIndent)

*** Strip off ending tags
lcOutput = STRTRAN(lcOutput,[</] + lcName + [>] + CRLF,[]) + ;
           CHR(9) + [<items>] + CRLF


FOR lnX=1 TO lnItems
   lvValue = loCollection.Item[lnX]
   lcType = VARTYPE(lvValue)
   lcField = lcRow

   lcOutput = lcOutput + this.AddElement(lcRow,@lvValue,lnIndent + 2,;
    									 IIF(lcType # "O",[key="] + loCollection.GetKey(lnX) +[" type="] + lcType + ["],;
    									                  [key="] + loCollection.GetKey(lnX)+ ["]))
ENDFOR


RETURN lcOutput + ;
   REPLICATE(CHR(9),lnIndent + 1) + "</items>" + CRLF  + ; 
   REPLICATE(CHR(9),lnIndent) + "</" + lcName + ">" + CRLF

ENDPROC
PROCEDURE parsexmltocollection
LPARAMETER loXMLObject, loCollection as Collection
LOCAL lnX, lcName, loRows, lnRows, loITem

IF ISNULL(loXMLObject)
   THIS.cErrorMsg = "No data provided for element"
   RETURN .f.
ENDIF

*** Walk the object and then pull properties 
*** from the XML to repopulate it
*lcName = loXMLObject.NodeName
loRows = loXMLObject.SelectNodes("items/item")
loCollection.KeySort =  VAL(loXmlObject.SelectSingleNode("keysort").text)
lnRows = loRows.length

*** If there's already an item in there assume it's the 'match' type
IF loCollection.Count = 1 
   lvTemplate = loCollection.item(1)
   lcTemplateType = VARTYPE(lvTemplate)
   IF lcTemplateType = "O"
      lvTemplate = CopyObject(loCollection.Item(1))
      loCollection.Remove(1)
   ENDIF
ELSE
   lvTemplate = null
   lcTemplateType = ""
ENDIF   



lnX = 0
FOR EACH oRow in loRows
   lnX= lnX + 1
   
   lcValue = oRow.TEXT
   LOCAL loT
   loT = oRow.Attributes.GetNamedItem("key")
   IF !ISNULL(loT)
      lcKey = loT.TEXT   
   ELSE
      lcKey = ""
   ENDIF
   loT = oRow.Attributes.GetNamedItem("type")
   IF !ISNULL(lot)
      lcType = loT.TEXT
   ELSE
      lcType = "C"
   ENDIF

   
   DO CASE
      CASE lcType $ "CM"
		 IF (EMPTY(lcKey))
	      	 loCollection.Add(STRTRAN(lcValue,"&#00;",CHR(0)))
      	 ELSE
    	   	 loCollection.Add(STRTRAN(lcValue,"&#00;",CHR(0)),lcKey)
       	 ENDIF

      CASE lcType = "O" OR lcType="object"
		 IF lcTemplateType="O"
		    *** Create new element by copying the template
          IF !EMPTY(lcKey)
   		 	loItem = loCollection.Add(CopyObject(lvTemplate),lcKey)
          ELSE
             loItem = loCollection.Add(CopyObject(lvTemplate))
          ENDIF
		 	this.Parsexmltoobject(oRow,loCollection.Item(lnX))
		 ENDIF
      CASE lcType $ "NIFY"
         loCollection.Add( VAL(lcValue),lcKey)
      CASE lcType = "T"
         loCollection.Add( CTOT(lcValue),lcKey)
      CASE lcType = "D"
         loCollection.Add( CTOD(lcValue),lcKey)
      CASE lcType = "L"
         IF lcValue = "True"
           loCollection.Add(.T.,lcKey)
         ELSE
           loCollection.Add(.F.,lcKey)
         ENDIF
      OTHERWISE
         *** If we have an object
         loCollection.Add(.NULL.,lcKey)
   ENDCASE
ENDFOR

RETURN .T.

ENDPROC
PROCEDURE arraytoxml
LPARAMETER laArray, lcName, lcRow, lnIndent

RETURN "<" + this.cDocrootname + ">" + CRLF +;
        this.CreateArrayXml(@laArray,lcName,lcRow,lnIndent) +;
        "</" + this.cDocrootname + ">" + CRLF
ENDPROC
PROCEDURE xmltoarray
LPARAMETER loXMLObject, laArray

Doc = this.LoadXML(lcXML)

IF TYPE("Doc.DocumentElement.ChildNodes(0)") # "O"
   THIS.cErrorMsg = "Invalid XML format for array."
   RETURN .F.
ENDIF

RETURN this.ParseXmlToArray(Doc.DocumentElement.ChildNodes(0),@laArray)

ENDPROC
PROCEDURE foxvaluetoxmlvalue
LPARAMETERS lvValue
LOCAL lcFoxType

lcFoxType = VARTYPE(lvValue)

DO CASE
*!*	      CASE TYPE([ALEN(lvValue)]) = "N"
*!*	         IF THIS.lRecurseObjects
*!*	            *** THIS CODE MUST BE ON 2 lines of VFP gets confused
*!*	            lcResult = THIS.CreateArrayXML(@lvValue,lcDispField,,lnIndent+1)
*!*	            lcAttributes = lcAttributes + [ count="] + TRANSFORM(ALEN(lvValue)) + ["]
*!*	            IF !EMPTY(lcAttributes)
*!*		          lcResult = STRTRAN(lcResult,"<" + lcDispField ,"<" + lcDispField + lcAttributes,1,1 )
*!*		        ENDIF
*!*	            lcOutput = lcOutput + lcResult
*!*	         ELSE
*!*	            lcOutput = lcOutput + REPLICATE(CHR(9),lnIndent + 1) + "<" + lcDispField + ">(array)</" + lcDispField + ">" + CRLF
*!*	         ENDIF
   CASE ISNULL(lvValue)
         RETURN ""      
   CASE lcFoxType = "C"
      IF EMPTY(lvValue)
         RETURN  ""
      ELSE
         lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
         lvValue = STRTRAN(lvValue,">","&gt;")
         lvValue = STRTRAN(lvValue, "<", "&lt;")
         RETURN lvValue
      ENDIF
   CASE lcFoxType = "D" OR lcFoxType = "T"
      IF EMPTY(lvValue)
      	 lvValue = {^1900-01-01 00:00}
      ENDIF

	  LOCAL lcDate as Datetime
	  lcDate = ""
		#IF wwVFPVersion > 8
			  lcDate = TTOC(lvValue,3) + ".00000"
		#ELSE

		      lcOldDate = SET("DATE")
		      lnOldHours = SET("HOURS")
		      lcOldCentury = SET("CENTURY")
		      lcOldMark = SET("MARK")

		      SET HOURS TO 24
		      SET DATE TO YMD
		      SET CENTURY ON
		      SET MARK TO "-"

			  lcDate =  STRTRAN( TRANSFORM(lvValue) + ".00000"," ","T" )

		      SET DATE TO &lcOldDate
		      SET HOURS TO lnOldHours
		      SET CENTURY &lcOldCentury
		      SET MARK TO (lcOldMark)
	   #ENDIF
	   
	   RETURN lcDate
   CASE lcFoxType = "L"
         RETURN IIF( lvValue, "1","0")
   CASE lcFoxType = "Q" 
         RETURN  STRCONV(lvValue,13)
   CASE lcFoxType = "Y"
         RETURN STRTRAN(TRANSFORM(lvValue),"$","",1,1)
*!*	   CASE lcFoxType = "O"
*!*	         *** The following *MUST* be separate line or else VFP gets confused
*!*	         *** in the recursion levels and generates invalid fields
*!*	         DO CASE 
*!*	         *** Deal with Collections
*!*	         CASE TYPE("lvValue.BaseClass")="C" AND lvValue.BaseClass = "Collection"
*!*	    	     lcResult = THIS.CreateCollectionXML(lvValue,lcDispField,"item",lnIndent )

*!*	         *** Check for XML DOM nodes - embed XML directly
*!*	         CASE TYPE("lvValue.NodeType") = "N" 
*!*	             lcResult="<" + lcDispField + lcAttributes +  ">" + lvValue.Xml  + "</" + lcDispField + ">"  && Embed Raw XML    
*!*	         OTHERWISE
*!*	            *** FoxPro object
*!*		         lcResult = THIS.CreateObjectXML( lvValue,lcDispField,lnIndent)
*!*		     ENDCASE

*!*	*!*         IF !EMPTY(lcAttributes)
*!*	*!*            lcResult = STRTRAN(lcResult,"<" + lcDispField ,"<" + lcDispField + lcAttributes,1,1 )
*!*	*!*         ENDIF
*!*	      RETURN lcResult
ENDCASE

RETURN TRANSFORM(lvValue)

ENDPROC
PROCEDURE adddomnode
LPARAMETERS loNode, lcName, lcValue, lcNameSpace
LOCAL loNewNode

IF EMPTY(lcNameSpace)
 lcNameSpace = ""
ENDIF

IF EMPTY(lcNameSpace)
   loNewNode = this.oXml.CreateElement(lcName)
ELSE
   loNewNode = this.oXml.createNode(1,lcName,lcNameSpace)    
ENDIF

lcType = VARTYPE(lcValue) 
DO CASE
	CASE lcType = "C"
		loNewNode.Text = lcValue
ENDCASE

loNode.AppendChild(loNewNode)

RETURN loNewNode
ENDPROC
PROCEDURE adddomattribute
LPARAMETERS loNode, lcName, lcValue, lcNameSpace

IF EMPTY(lcNameSpace)
  lcNameSpace = ""
ENDIF

loAttr = this.oXml.createNode(2,lcName,lcNameSpace)
loAttr.Text=lcValue
loNode.attributes.setNamedItem(loAttr) 

RETURN loNode
    
ENDPROC
PROCEDURE load
LPARAMETER lcFile, llAsync, llPreserveWhiteSpace
LOCAL loXML

THIS.lError = .f.
THIS.cErrorMsg = ""

this.oXml = null

IF VARTYPE(lcXML) = "O"
   *** Use existing ref if passed in
   loXML = lcXML
ELSE
   IF EMPTY(lcFile)
      this.cErrormsg = "No filename passed to load XML document."      
   	  RETURN NULL
   ENDIF
   IF VARTYPE(THIS.oXML) # "O"
      *** Create if it doesn't exist already
      loXML =  CREATE(XML_XMLDOM_PROGID)
      loXML.Async = llAsync
   ELSE
      *** If we have one already - reuse it!
      loXML = THIS.oXML
      loXML.Async = llAsync
   ENDIF
   loXML.Load(lcFile)
ENDIF

*** Check for parsing error
IF TYPE("loxml.parseerror.reason")="C" AND ;
   !EMPTY(loXML.ParseError.reason)
      THIS.cErrorMsg = loXML.ParseError.reason + CRLF + ;
         "Line: " + TRANSFORM(loXML.ParseError.LINE) + CRLF +;
         loXML.ParseError.SrcText
      THIS.lError = .T.
      RETURN .NULL.
ENDIF
loXML.PreserveWhiteSpace = .T.

this.oXML = loXML

RETURN loXML
ENDPROC
PROCEDURE adddomlinebreak
LPARAMETERS loNode, lnIndent

IF EMPTY(lnIndent) 
   lnIndent = 0
ENDIF
  
lcText = CHR(10) + REPLICATE(CHR(9),lnIndent)

LOCAL loText 
loText = loNode.OwnerDocument.createTextNode(lcText)
RETURN loNode.appendChild(loText)

ENDPROC
PROCEDURE Init
*** Exclude Custom Property Exclusions
THIS.cPropertyExclusionList = ;
 ",activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,"+;
 "class,name,parent,parentalias,parentclass,helpcontextid,whatsthishelpid," +;
 "width,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column," 

ENDPROC
       
 ..\wconnect.h^s;     g    N  N                        5   %           ~              U              	 
 
   T 
 - T     %C y 
 T    %C  B %C loObject.BaseClassb U C loObject.Classb U	  T C   @   T  class   % 
  T    5
 T     %C  D B  <  >NULL</  >C
 C
  </   >  %   T   
 H    T  
 <!DOCTYPE     [C
 C
 
 <!ELEMENT     (  )>C
 C
 C       C
 C
  ]>C
 C
  <   >C
 C
    @ T   <   >C
 C
 C          2* T   <   >C
 C
   %  8 T
  #   P T
    I T   C       
    </   >C
 C
  B   U  LOOBJECT LCNAME LNINDENT
 LLNOHEADER LNX LNCOUNT LCOUTPUT LCFIELD LCTYPE LVVALUE LCSCHEMAURL LAFIELDS THIS LERROR	 CERRORMSG CLASS
 CXMLHEADER CDOCROOTNAME LCREATEDATASTRUCTURE NCREATEDATASTRUCTURE CREATEOBJECTSTRUCTUREDTD CREATEOBJECTSTRUCTURESCHEMA CSCHEMANAME
 CSCHEMAURL CBODY CREATEOBJECTXML        %C P / T C   <   > </   >   - T C  <   > </   >   %C	 <![CDATA[   $ T C  	 <![CDATA[ ]]>  	 B  U  LCITEM LCXMLDOC LCVALUE EXTRACT THIS CBODYN           T  - T 	    % 
^  T  
  s 
 T     %C    T  CC@  %C   T  row  %C  
 T    %    T   
 H    U5 T  CC	  Q < 
  >C
 C
    A T   < 
  >C
 C
 C             T  
 <!DOCTYPE  
   [C
 C
 
 <!ELEMENT  
   (   )>C
 C
 C       C
 C
  ]>C
 C
 C
 C
 5 T  CC	  Q < 
  >C
 C
  
 T    %   T  #    T    % T  C           > B C
 C
 CC	  Q </ 
  >C
 C
  U  LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LCOUTPUT LNFIELDS LNX THIS LERROR	 CERRORMSG
 CXMLHEADER LCREATEDATASTRUCTURE NCREATEDATASTRUCTURE CDOCROOTNAME CREATEDATASTRUCTURESCHEMA CSCHEMANAME CREATEDATASTRUCTUREDTD LCSCHEMAURL
 CSCHEMAURL CREATECURSORXML             T	 
 - T	     %C   C  %C    T	 
 a$ T	   No XML input passed. B- % T  C   encoding="UTF-8"   2 %C lvXML.Asyncb L. T	 
 a$ T	   No XML input passed. B-   %C Y T  __wwXML  %C   O" T C msxml2.domdocumentN C      
 T     T 
 a %C   
E T	 
 aN T	     C
 C
  Line: C   _C
 C
     B-  T    %C  T	 
 aM T	  = Invalid XML Doc root. Data must be in child of document root. B-  %C 

 T    (  T C    %C Q% T	   Invalid XML Structure B-  %   Schema T       T C    %C  T	 
 a% T	   Invalid XML Structure B-  %   Schema T      %C 
W %C    	  
S B-  i
 F   BC  	   U  LVXML LCALIAS LNTABLEROOTLEVEL LOXML LNX LNSIZE LCCREATE LOCURSOR LODATA THIS LERROR	 CERRORMSG LOADXML PRESERVEWHITESPACE
 PARSEERROR REASON LINE SRCTEXT	 LODOCROOT DOCUMENTELEMENT
 CHILDNODES NODENAME NEXTSIBLING BUILDCURSORFROMXML PARSEXMLTOCURSOR         %C 6 
 T   
 T    T C   ( q
 T    T  CC	  Q <field  name="CC   @ "  type="CC      "  size="CC   _ " %CC   
J0 T    precision="CC   _ " # T    />C
 C
   BCC	  Q <datastructureCC  
   Name="   "   6 >C
 C
  CC	  Q </datastructure>C
 C
  U	  LCNAME LNINDENT LCOUTPUT LNX LCROW LNFIELDS LAFIELDS THIS FOXTYPETOXMLTYPE 4           	 
    
       %C  q  T  CC@  %C   T  row  %C  
 T    %C  
 T    ( %CCChC FoxProCh\g
 T   
 T   %  ;
 T 0  T CC@ C  lcxml  Z T C 9 <?xml version = "1.0" encoding="UTF-8" standalone="yes"?>C
 C
   G T CC  <  > <  > </  > </  >W T C 	 <VFPData> <  CC 
    xmlns="x-schema:  "   6 >" T C  VFPData>   >, BCC  >true< >1< >false< >0<  T C DATEv T C HOURSv T C CENTURYv T C MARKv G9( G( YMD G  G:( - T C ] T CC	  Q <  CC 
    xmlns="x-schema:  "   6 >C
 C
  ~
 T   6 T  CC	  Q <  >C
 C
   (  T	 CC   @ T
 C    %
  G@ .  T C	 
 H` C  T  NULL* 
  C	 
  M	 
  V %C 7 T  CC	  Q <	  />C
 C
  .  % & >0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > }) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 K T  CC	  Q <	  >C ` </	  >C
 C
  .  
  L %  X! T C 	  .T.  .F.6 } T C   1  06  
  D %C 
 T     T C *  
  TM %C 
 T CC    T I7 T  CC	  Q <	  />C
 C
  .  
  Ys T CC   _A 2 T C _ I T  CC	  Q <	  >  </	  >C
 C
  7 T  CC	  Q </  >C
 C
   SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:(  %  6 BC CC	  Q </   >C
 C
    / B CC	  Q </   >C
 C
  U  LCNAME	 LCROWNAME LNINDENT LCSCHEMA LCOUTPUT LNFIELDS LNX LVVALUE LCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURY LCTIME
 LCOLDHOURS	 LCOLDDATE	 LCOLDMARK
 LNENCODING LCXML THIS	 NENCODING LCALIAS
 LNOLDHOURS YMD LAFIELDLIST LUSEFOXTYPES	 ENCODEXML           %C x  %C    CY  T     t  T  object   %C  
 T   
 T    T C   b  (  T CC   @( % '  , ,	 
  , . m T  CC	  Q <property name="  " type="CC	 loObject. b	   "/>C
 C
  r BCC	  Q <objectstructure name="  ">C
 C
  CC	  Q </objectstructure>C
 C
  U  LOOBJECT LCNAME LNINDENT LNPROPCOUNT LNX
 LCPROPERTY LCOUTPUT CLASS LAPROPERTIES THIS CPROPERTYEXCLUSIONLIST FOXTYPETOXMLTYPE:      E      	 
   
      
     T
 C DATEv T C HOURSv T C CENTURYv T
 C MARKv G9( G( YMD G  G:( - %C 	 T  xmlroot  %C  N/
 T    %C O
 T    
 T   ( %CCChC FoxProCh\g*& %C loObject.BaseClassb C T -1 T   type="object" class="C   @ " & T a) T   type="object" class="empty"   T C   ba T CC	  Q < CC 
    xmlns="x-schema:  "   6  >C
 C
   ( h
 T CC   @- %C ,  , ,   ,   .  T	 C	 loObject. b T C	 loObject.  %  ^ T C \ s
 T   
 Hd
+ C ALEN(loObject.  )b Nw %  #
  % ACOPY(loObject.&lcField,la_array)
! T C       T    sH T  CC	  Q < 
 >(array)</  >C
 C
   C  %   . E T  CC	  Q <  >NULL</  >C
 C
  	  C+ %C    	 .  % & X0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > ) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 K T  CC	  Q <  >C ` </  >C
 C
  . 	  D %C  %  ` . A T  CC	  Q <  ></  >C
 C
  K T  CC	  Q <  >C _ </  >C
 C
   	  T %C v %  1 . A T  CC	  Q <  ></  >C
 C
  U T  CC	  Q <  >CC _   T </  >C
 C
   	  LBY T  CC	  Q <  >C   1  06 </  >C
 C
  	  OZ	 %  	= %C lvValue.BaseClassb C   
 Collection	' T C     item      T C          T    V	I T  CC	  Q <  >(Object)</  >C
 C
   	  Y	N T  CC	  Q <  >C   _ </  >C
 C
  	  U
E T  CC	  Q <  >NULL</  >C
 C
  2d
K T  CC	  Q <  >C _ </  >C
 C
    SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:(
  % ! 6 BC CC	  Q </  >C
 C
  "  / B CC	  Q </  >C
 C
  U#  LOOBJECT LCNAME LNINDENT LCSCHEMA LCOUTPUT LNX LNCOUNT LAFIELDS LCFIELD LCTYPE	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY	 LCOLDMARK LCTEMP LCDISPFIELD LCBASECLASS LLISEMPTYOBJECT LCCLASS LAARRAY LA_ARRAY YMD CLASS THIS CPROPERTYEXCLUSIONLIST LVVALUE LSTRIPTYPEPREFIX LRECURSEOBJECTS CREATEARRAYXML LSKIPEMPTYELEMENTS	 BASECLASS CREATECOLLECTIONXML CREATEOBJECTXML	 NENCODING	 ENCODEXML          T  - T     %CC   O C
  T  a$ T   No XML input passed. B  %C   O " T C msxml2.domdocumentN C    	   
 T     %C 
  
n T  aN T   
  C
 C
  Line: C 
  _C
 C
  
 
  B  T  a T    %C  T  aJ T  : Invalid data root. Data must be in child of document root. B  %C  O T C    %   SchemaU T     T C     %C  B   T C    %   Schema T     BC         U  LVXML LOOBJECT LLPARSECASEINSENSITIVE LOXML LONODE	 LODOCROOT THIS LERROR	 CERRORMSG LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACE DOCUMENTELEMENT
 CHILDNODES NODENAME NEXTSIBLING BUILDOBJECTFROMXML PARSEXMLTOOBJECT    %    	 B   
 H1     C	    Mb  T  string    N	    F  T  float    B  T  number    Y  T  decimal    L T  boolean    I$ T  i4    DG T  date    Tn T  dateTime    O T  object 2
 T    	 B  U 	 LCFOXTYPE THIS LUSEFOXTYPES LCTYPEj    %    	 B    T  CC  C :  \@
 HO Z%    string,char,uri,uuid  T  Ch   W number,decimal,single,double,r4,r8,float,fixed.14.4,float.IEEE.754.32,float.IEEE.754.64  T  N0    integer,i4,i1,i2,i8,ui2,ui4,ui86 T  I    boolean\ T  L    object T  O    date,date.tz T  D%    datetime,datetime.tz T  T    record T  O2   ! base64Binary,bin.hex,base64binaryD T  B 2Z T  O 	 B  U 	 LCXMLTYPE THIS LUSEFOXTYPES LCTYPEH     )        	  
   
   %C   , T   No data provided for element B  %C  O ( T   No input object provided B  T
 C DATEv T C HOURSv T C CENTURYv T
 C
 STRICTDATEv G9( G( YMD G  G(  T C	  b
 T    (  T CC  	 @ %   T C \ 
 T    % ,  ,   .  T C	 loObject. b T C      %C 
 %       %C  @ 
 T   !   %C  .   .   T   
 H   NULL J(	 loObject. 5   " C ALEN(loObject.  )b N	
  ) T C	 loObject.  [1] C       $ ACOPY(laArray,loObject.&lcField)
   CM, JC  &#00;C  (	 loObject.    NIFY* JC g(	 loObject.    T( %CCChC FoxProCh\g  JC (	 loObject.  * JCC  T  (	 loObject.     D( %CCChC FoxProCh\g# JCC (	 loObject.  L- JCCC  T  (	 loObject. 4 ENDIF         *loObject.&lcField = CTOD(lcValue)
   L! %  1   true Ja(	 loObject.   J-(	 loObject.     	   O	 T C	 loObject. ? %C loTObject.BaseClassb C   
 Collection	 C         C       !   2 loObject.&lcField = .NULL.
 J(	 loObject.    SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(
 	 B  U"  LOXMLOBJECT LOOBJECT LLPARSECASEINSENSITIVE LNSIZE LNX LCFIELD LCTYPE LNPROPERTIES
 LOPROPERTY LAPROPERTIES	 LCOLDDATE
 LCOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE THIS	 CERRORMSG
 LNOLDHOURS YMD LSTRIPTYPEPREFIX
 LCXMLFIELD CPROPERTYEXCLUSIONLIST SELECTSINGLENODE TNODE
 CHILDNODES NODENAME LCVALUE TEXT LRECURSEOBJECTS LAARRAY PARSEXMLTOARRAY	 LOTOBJECT	 BASECLASS PARSEXMLTOCOLLECTION PARSEXMLTOOBJECT       T ( %CCChC FoxProCh\gy  %   wwLightu  T   Empty   T C  N T a      T    T	  
 
 % E %CC type  6; T  + Can't build object without a schema or DTD. B  T -  C 	 
" T
 CC type     
 H 
  C loObject.&lcField = ""
 
  N loObject.&lcField = 0
 
  L loObject.&lcField = .F.
 
  D7 loObject.&lcField = {}
 
  Tn% loObject.&lcField = {  /  /  :  }
 
  U loObject.&lcField = .NULL.
 2* loObject.&lcField = CREATE("Relation")
 loObject.&lcField = .NULL.
  	 B  U  LOOBJECTSTRUCTURE LOOBJECT LLFIRSTPASS THIS COBJECTCLASS LOFIELD
 CHILDNODES LOATTRIBUTES
 ATTRIBUTES LCFIELD NODENAME GETNAMEDITEM	 CERRORMSG LCTYPE XMLTYPETOFOXTYPE TEXT(    !         	 
     T   
  % xmlns=C (= * T C  xmlns=	 _noxmlns=  C C   Ba T C DATEv T C HOURSv T
 C CENTURYv T C
 STRICTDATEv G9( G( YMD G  G(  T C 
 % d
 T    | T           (  T CC   @ T C    T C     %C  .  T   
 T  
 H-   CM@   NIFc T C g   T( %CCChC FoxProCh\g T C  # T CCC  TZ  \    D T CC  TZ  #   L %  9 T C  ! %  true	   1m T a  T -     G . 2 T C   >     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(  Ba U  LODATA
 LLNODELIST LNFIELDS LAFIELDS LNX LCTYPE LCFIELD LOVALUE	 LCOLDDATE
 LCOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE LCXML XML
 LNOLDHOURS YMD LOROWS
 CHILDNODES LOROW SELECTSINGLENODE LCVALUE TEXT THIS LUSEFOXTYPES           %C  
 %        T	 C Schema  
   # %C	 
 C 	   
  	  Ba 4 T
  $ No rows available or schema missing. T
  a B-  T C     %   Schema( T     T       
 T       T   T    T     T C type   %C  T C dt:type   # T  C  
   T C size   %C 
_  T  CC  g8  %C   
 T   M T     T C	 precision   %C 
 T  C  g " T    0 %C    C C   
	 T   M T   4   h   
 F   Ba U  LODATASTRUCTURE LCALIAS LNX LNSIZE LAFIELDS LORECORD LOSIZE
 CHILDNODES LENGTH LOSCHEMA
 OWNERDOCUMENT DOCUMENTELEMENT SELECTSINGLENODE THIS CREATECURSORFROMSCHEMA	 CERRORMSG LERROR NODENAME NEXTSIBLING LOFIELD LOATTRIBUTES
 ATTRIBUTES LOTYPE GETNAMEDITEM XMLTYPETOFOXTYPE TEXT LOPRECISION             %C  G  T  CC@  %C j  T  row  T	 C
X8 T 
 <!ELEMENT     (  )*>C
 C
  %C  O 
 
  T C  
  
  
 T C
  % T  
 <!ELEMENT    (  ( # T
  CC  
 @ %  
 T  C  
  ,  T  C  
    T   )>C
 C
   (  T C  
 
 H   ML T 

 T     Yx
 T 
 T    G . 2 T C  
  T C  
   T 
 <!ELEMENT C  
   (#PCDATA)>C
 C
 
 <!ATTLIST C  
 C
 C
 	  type CDATA #FIXED "C     "C
 C
 	  size CDATA #FIXED "C _ "C
 C
  %C 
D T  	  precision CDATA #FIXED "C _ "C
 C
  " T    >C
 C
  	 B  U  LCNAME	 LCROWNAME LORS LCOUTPUT LNX LCROW LNSIZE LNPRECISION LCTYPE LCSPACE LAFIELDS LNFIELDS THIS	 ADOFIELDS FOXTYPETOXMLTYPE           %C ~  %C    C_  T     z  T  object  
 T    T C   b T C
X% T  
 <!ELEMENT    (  ( \ T  CC   @ T C   # % ,  , '	 
 B .  T    , * T C C >= )>C
 C
   (  T C   # % ,  , ,	 
  .  T C	 loObject. b %  O 	  	A' T CC	 loObject.   	 
  .  T  
 <!ELEMENT    (#PCDATA)>C
 C
 
 <!ATTLIST     type CDATA #FIXED "C  	   " >C
 C
  	 B  U  LOOBJECT LCNAME LNPROPCOUNT LNX
 LCPROPERTY LCOUTPUT LAFIELDS CLASS LCSPACE THIS CPROPERTYEXCLUSIONLIST LCTYPE LRECURSEOBJECTS CREATEOBJECTSTRUCTUREDTD FOXTYPETOXMLTYPE        T  - T     T   %C   Od 
 T     T  CC        6 %C   O " T C msxml2.domdocumentN T      T    T     C    	  ; %C loxml.parseerror.reasonb C
 C 
  
	N T   
  C
 C
  Line: C 
  _C
 C
  
 
  T  a B  T  a T   	 B  U  LCXML LLASYNC LLPRESERVEWHITESPACE LOXML THIS LERROR	 CERRORMSG OXML ASYNC LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACES      #      	 
   T C DATEv T C HOURSv T C CENTURYv G9( G( YMD G  T
  - T
    dT 8 <xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'C
 C
 5 	xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'C
 C
 , 	xmlns:rs='urn:schemas-microsoft-com:rowset'C
 C
  	xmlns:z='#RowsetSchema'>C
 C
  <s:Schema id='RowsetSchema'>C
 C
 - 	<s:ElementType name='row' content='eltOnly'>C
 C
  T	 C   (	 # T  CC   @E T   		<s:attribute type='C    '/>C
 C
  ^ T    		<s:extends type='rs:rowbase'/>C
 C
  	</s:ElementType>C
 C
   (	 
 T C    T C _
 HMw
   CK T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='string' dt:maxLength='CC   _. ' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    MP T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER=' , ' rs:maydefer='true' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='string' dt:maxLength='C
_' ' rs:long='true' rs:maybenull='false'/>C
 C
    N~T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='number' dt:maxLength='CC   _ ' rs:scale='CC   _@ ' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Ll T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 ] 		<s:datatype dt:type='boolean' dt:maxLength='2' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    DW T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 Z 		<s:datatype dt:type='date' dt:maxLength='6' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Tf	 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 ~ 		<s:datatype dt:type='dateTime' dt:maxLength='16' rs:scale='0' rs:precision='19' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Id
 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 k 		<s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Ya T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 j 		<s:datatype dt:type='i8' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Fo T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 { 		<s:datatype dt:type='number' dt:maxLength='19' rs:scale='5' rs:precision='8' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Bo
 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 m 		<s:datatype dt:type='float' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>C
 C
  2w
 4 T  
  	</s:AttributeType>C
 C
  A T   </s:Schema>C
 C
 	 <rs:data>C
 C
  ~ T   <z:row   (	  T  C    =' T CC    T C   
 H   C	   MW
 T
   T
 C
  # &#x23; T
 C
  & &#x26; T
 C
  ' &#x27; T
 C
  < &#x3c; T
 C
  > &#x3e; T
 C
 C   &#x00;   L$ T
 C 
  True  False6   Y T
 CC ZA   D	 %C  T
 
 1899-12-30  T
 C _    To %C J  T
  1889-12-30T00:00:00 k T
 CC _   T  2 T
 C _  T  
  '   T   />C
 C
  = T  
 </rs:data>C
 C
  </xml>C
 C
  SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
	 B  U  LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LNX	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY LCXML LNFIELDS LCT LCTYPE YMD THIS LERROR	 CERRORMSG LAFIELDS LCRECNO LVVALUE#        %C   C4 	 B    %C  NZ 
 T  + T CC	  Q <error>C
 C
 0 T  C errormessageC  `    %C  N . T  C errornumber        B CC	  Q </error> U 
 LCERRORMSG
 LNERRORNUMBER LNINDENT LCXML THIS
 ADDELEMENT           
   T	 
 - T	     %C   $ T	   No XML input passed. B  %C  O ' T	   No input object passed. B  T C  b
 T    (  T CC   @( %C ,  , ,	   O .  %	 
 u T C \ 
 T     %C <  >    .  T C	 loObject. b T C     	  
 H   CMB7 loObject.&lcField =  STRTRAN(lcValue,"&#00",CHR(0))
   NIFz$ loObject.&lcField = VAL(lcValue)
   T% loObject.&lcField = CTOT(lcValue)
   D% loObject.&lcField = CTOD(lcValue)
   LQ %  True* loObject.&lcField = .T.
 M loObject.&lcField = .F.
    O 	  	- T C    <  > </  > 8 THIS.XMLToObjectNoParser(lcObjXML,loObject.&lcField)
 2 loObject.&lcField = .NULL.
  	 B  U  LCXML LOOBJECT LNPROPERTIES LNX
 LCXMLFIELD LCFIELD LCTYPE LCVALUE LAPROPERTIES THIS LERROR	 CERRORMSG CPROPERTYEXCLUSIONLIST LSTRIPTYPEPREFIX	 GETOBJVAR LRECURSEOBJECTS LCOBJXML EXTRACT      '      	 
      & T CC    _item  6# T CC  N   6 T C   T C   %   
 T   % . T CC	  Q <  >C
 C
  Y? T CC	  Q <   dim='C _ '>C
 C
    (  %  T C     T
 C E T C    C
  O  type="
  "   6
   
 T     (  T C       T
 C I T  C    C
  O  type="
  "   6
     T    / B CC	  Q </  >C
 C
  U  LAARRAY LCNAME LCROW LNINDENT LCOUTPUT LNX LNY LNROWS LNCOLS LCFIELD LCTYPE LVVALUE LCTEMP THIS
 ADDELEMENT             T CC     6 %C   ) T	 
  No SQL statement provided T	  a B-  %C  T 	   %C 
/ T	 
  Unable to connect to datasource T	  a B-   T C  % 
w/ T	 
  Unable to connect to datasource T	  a B-  %C  T  TXMLSQLQuery  T
 C   i %
 , T C z- T	 
 CC  Server] .a  . T	  a C g B-  C g %
 j BC        	    BC   
 	   U  LCSQL LCCONNECTSTRING LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LOSQL LNX LNSQLHANDLE THIS	 CERRORMSG LERROR CSQLCONNECTSTRING LNRESULT LNCOUNT LAERROR EXTRACT CURSORTOXML MULTICURSORTOXML         %C  7  T  CC@  %C W 
 T    %C z  T  row  %C  
 T   
 T   
 T     (  %  
 T     T   C _ 
 F  % 	 P" T  C       
  A T  C     C 	   #    6   e B  CC	  Q < 
  >C
 C
   CC	  Q </ 
  >C
 C
  U  LCCURSORNAME LNCOUNT	 LCROWNAME LNINDENT LNX LCSCHEMA LCXML	 LCTCURSOR THIS NCREATEDATASTRUCTURE CREATEDATASTRUCTURESCHEMA CREATECURSORXML
 CXMLHEADER CDOCROOTNAME            T 	 - T 
    %C   O  T 	 a9 T 
 ) No Recordset Object passed to ADOToXML().	 B    % 
  T     
 T     %C  T CC@  %C $ T  row  %C D
 T    %   T  
 <!DOCTYPE  
   [C
 C
 
 <!ELEMENT  
   (  )>C
 C
 C         C
 C
  ]>C
 C
 C
 C
  5 T  CC	  Q < 
  >C
 C
 J B C           CC	  Q </ 
  >C
 C
  U  LORS LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LCOUTPUT LNFIELDS LNX THIS LERROR	 CERRORMSG
 CXMLHEADER LCREATEDATASTRUCTURE CDOCROOTNAME CREATEDATASTRUCTUREDTD CREATEADOXML            	 
    
    %C j  T  table  %C   T  row  %C  
 T   T C DATEv T C HOURSv T C CENTURYv T C MARKv G9( G( YMD G  G:( -
   T C      . T CC	  Q <  >C
 C
  +   
g
 T   6 T  CC	  Q <  >C
 C
   (  T	 CC   @ T
 C    T C     
 H> C ^ T  NULL 
  C	 
  M %C 7 T  CC	  Q <	  />C
 C
  . D %C
  	  > 	  < 	  & 
 C   |f T  CC	  Q <	 
 ><![CDATA[CC C   &#00;` ]]></	  >C
 C
  .  T C `   
  L %  ! T C 	  .T.  .F.6  T C   1  06  
  DP %C 5
 T    L T C *  
  T %C 
 T CC    T 
 T     
  G . 2 T C _ I T  CC	  Q <	  >  </	  >C
 C
  7 T  CC	  Q </  >C
 C
 
 C     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:( / B CC	  Q </  >C
 C
  U  LORS LCNAME	 LCROWNAME LNINDENT LCOUTPUT LNFIELDS LNX LVVALUE LCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURY LCTIME
 LCOLDHOURS	 LCOLDDATE	 LCOLDMARK
 LNOLDHOURS YMD LAFIELDLIST THIS	 ADOFIELDS EOF FIELDS VALUE LUSEFOXTYPES MOVENEXT       T           ( ( T  C      ( T  C      ( T  C       T	 C     
 
 H  C	   # T   C' C	 
        h T   M 	   T   L C	    T   D C	    T   T 	  T T   N( T  C      $ C	       ! "  T   I C	 #  T   Y 	 $  T   B( T  C       	 % t T   F( T  C       2'  Unknown Ado field type: C	 _  	 B  U&  LORS LAFIELDLIST LNX LNFIELDS FIELDS COUNT NAME DEFINEDSIZE NUMERICSCALE LNFIELDTYPE TYPE ADCHAR ADBSTR	 ADVARCHAR
 ADLONGVARCHAR ADWCHAR
 ADVARWCHAR ADLONGVARWCHAR ADBINARY ADVARBINARY ADLONGVARBINARY	 ADBOOLEAN ADDATE ADDBDATE ADDBTIME
 ADDBTIMESTAMP	 ADNUMERIC	 PRECISION	 ADINTEGER
 ADSMALLINT	 ADTINYINT
 ADUNSIGNEDINT ADUNSIGNEDTINYINT ADUNSIGNEDSMALLINT ADUNSIGNEDBIGINT
 ADCURRENCY ADDOUBLE ADSINGLE	            	  
 	    %C   , T
   No data provided for element B-  T C dim     %C 
  T C  g %   
 T    
 T   T     T     T    T C  T CC  %  O
     (  T  C    
 T   
    
 T      T   %  O1 C  C     
   .  T C type    %C 
p T     T   
 H   CM" T  C  &#00;C     NIF T  C g   T T  C    D> T  C #   L! %  True	   1 T  a  T  -  2 T     %  T C         Ba U  LOXMLOBJECT LAARRAY LLPARSECASEINSENSITIVE LNSIZE LNX LOOBJECT LCFIELD LCTYPE LNPROPERTIES
 LOPROPERTY LAPROPERTIES LCVALUE LNDIMENSIONS THIS	 CERRORMSG LODIM
 ATTRIBUTES GETNAMEDITEM VALUE LCNAME NODENAME LOROWS
 CHILDNODES LNROWS LENGTH
 COPYOBJECT OROW PARSEXMLTOOBJECT LOTYPE TEXT LNELEMS6            	 
 # T CC  N   6 %C q 
 T      T      %C   T C  
 T	   
 H &! C
 ALEN(lvValue)b N %  ! T
 C      
 ' T    count="CC _ " %C 
~) T
 C
  <   <     T	 	 
  H T	 	 CC	  Q <  
 >(array)</   >C
 C
   C K %  	 B   8 T	 	 CC	  Q <     />C
 C
    C %   C 		 B    %C / BCC	  Q <    />C
 C
   % & 0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > J) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 C BCC	  Q <    >C ` </   >C
 C
     D	   T %   C 		 B     Q DATETIME
 T    %C 
 T C  .00000I T	 	 CC	  Q <    >  </   >C
 C
  8 T	 	 CC	  Q <     />C
 C
     L_Y T	 	 CC	  Q <    >C   1  06 </   >C
 C
    B	   QO T	 	 CC	  Q <    >C 
 </   >C
 C
    O
 H= C lvValue.BaseClassb C   
 Collection	L$ T
 C      item    $ C lvValue.NodeTypeb N1 T
  <    >   </   > 2 T
 C          	 B
  2&K T	 	 CC	  Q <    >C _ </   >C
 C
  	 B	  U  LCDISPFIELD LVVALUE LNINDENT LCATTRIBUTES	 LCFOXTYPE	 LCOLDDATA
 LNOLDHOURS LCOLDCENTURY	 LCOLDMARK LCOUTPUT LCRESULT THIS LRECURSEOBJECTS CREATEARRAYXML LSKIPEMPTYELEMENTS LCDATE	 BASECLASS CREATECOLLECTIONXML XML CREATEOBJECTXML       %C .  T     T C <   >  T C </   >  %    B-  U 	 LCELEMENT LCVALUE LCXMLDOC THIS CBODY LNLOC LNLOC2          T  - T    $ %CC   O C
 C   $ T   No XML input passed. B-  %C   T  __wwXML  %C   O " T C msxml2.domdocumentN C    	  
 T     %C 
  
N T   
  C
 C
  Line: C 
  _C
 C
  
 
  B-  T  a T    %C J T  : Invalid data root. Data must be in child of document root. B-  %C 
:" CC C         L
 F  ! T C
 rs:data/z:row   %C , T   No data provided for element B-  BC     U  LVXML LCALIAS LOXML LNX LNSIZE LCCREATE THIS LERROR	 CERRORMSG LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACE	 LODOCROOT DOCUMENTELEMENT BUILDCURSORFROMXML
 CHILDNODES LODATA SELECTNODES PARSEADOXMLTOCURSOR%   !        T C DATEv T C HOURSv T	 C CENTURYv T
 C
 STRICTDATEv G9( G( YMD G  G(  T C       T  
   (  T CC   @ T C    T C      %C J .  T   
 T  
 Hx   NULL T    CM   NIF T C g   T T C    D T C #   L %  B T C   %  Truej T a } T -     G . 2 T C   >     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(  Ba U  LODATA LNFIELDS LAFIELDS LNX LCTYPE LCFIELD LOROW	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE YMD _LCXML XML LOVALUE
 ATTRIBUTES GETNAMEDITEM LCVALUE TEXT THIS LUSEFOXTYPES LNSTRICTDATE   ( %CCChC FoxProCh\g>  BC  	       3 | MultiByteToWideChar Win32API T C  > T	 C X% T C     C  >	     %   	 B   7 | WideCharToMultiByte WIN32API T C  > T C X2 T C    	      
  %  	 B    BC  =  T CC  >X %  	 B    BC  =  U  LCXML OXML LCFILE LCUTF LNSIZE LNRESULT MULTIBYTETOWIDECHAR WIN32API LNWCSIZE LCWIDE WIDECHARTOMULTIBYTE LNLENGTH  T  C  $ T C] \C] .xml C  C       T C AdoDB.RecordSetN C    
   	 B  U  LCXML THIS CURSORTOADOXML LCFILE FILE2VAR	 ENCODEXML ORS OPENJ            	  T
     T
  - T	 C wwHTTPN %C  N  T	 
    %C 
  T	   C    	    T C       	   %C 
 	 B  : %	   6 T
  a T
  	    	 B   U  LCURL LCPOSTBUFFER
 LCUSERNAME
 LCPASSWORD	 LNTIMEOUT LNSIZE LCDATA LNRESULT LLHTTPS LOIP THIS	 CERRORMSG LERROR NCONNECTTIMEOUT
 NHTTPPOSTMODE
 ADDPOSTKEY LCRESULT HTTPGET NERROR      5  %C 2 
 T   
 HC 	  , T C wwEvalN8 T C$  CREATEOBJECT("MSXML2.DOMDocument")    %    ( %  
 C2 You have an old version of MSXML installed.  It isC
 5 recommended that you update MSXML to a newer version.C
 C
 - Would you like more information from the Web?$
 msXML Versionx	 Cz http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/596/msdncompositedoc.xml   Ba  2	" T C msxml2.domdocumentN T C wwEvalN) C  oXML.LoadXML("<?XML?>")    %    %  
 C0 The version of MSXML.DLL on your system containsC
 0 a bug that causes undocumented COM errors. It isC
 5 recommended that you update MSXML to a newer version.C
 C
 - Would you like more information from the Web?$	 msXML Bugx	= C0 http://www.west-wind.com/webconnection/msxml.asp   Ba   B- U	  LLNOUI LLFORCEFAIL LNTYPE OXML LOEVAL LOMSXML EVALUATE LERROR GOURLT      /      	  
     %C  _  T  CC@  %C   T  row  %C   T  Schema  T	 C
XT  <Schema name=" \ " xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">C
 C
     <ElementType name="  0 " content="eltOnly" model="closed" order="many">C
 C
  		<element type="  " />C
 C
  	</ElementType>C
 C
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
  %C  O
 
  T C  
     T C
    ( C T   		<element type="CC  
 @ "/>C
 C
  , T   	</ElementType>C
 C
 
 T
     ( + T C  
 
 Hu   M T 

 T     Y
 T 
 T    G . 2 T C  
  T C  
   T C    T   	<ElementType name="CC  
 @- " content="textOnly" model="closed" dt:type="  ">C
 C
  		<AttributeType name="type"/>C
 C
 " 		<attribute type="type" default="  "/>C
 C
  		<AttributeType name="size"/>C
 C
 " 		<attribute type="size" default="C _ "/>C
 C
 C  y # 		<AttributeType name="precision"/>C
 C
 ' 		<attribute type="precision" default="C _ "/>C
 C
    6 	</ElementType>C
 C
  " B 	 </Schema>C
 C
  U  LCNAME	 LCROWNAME LORS
 LCSCHEMAID LCOUTPUT LNX LCROW LCTYPE LNFIELDS LCSPACE LCATTRIBUTES LNSIZE LNPRECISION LAFIELDS THIS	 ADOFIELDS FOXTYPETOXMLTYPE      -      	 
    %C   %C  
  Cw  T   
    T  object   %C  
 T    %C   T  Schema  %   T  <Schema name=" \ " xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">C
 C
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
  
 T     T C	   b
 T
   
 T    %    2  (  T CC  	 @( % ,  , ,   , .  %   T C \ 
 T    %  ! %C	 loObject. b O T
 
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
 CC	 loObject.     9 T   		<element type="  "/>C
 C
  .  9 T   		<element type="  "/>C
 C
   T  "       <AttributeType name="type"/>C
 C
 0       <attribute type="type" default="object" />C
 C
 #       <AttributeType name="class"/>C
 C
 0       <attribute type="class" default="empty" />C
 C
 0 T   	</ElementType>C
 C
 
   % T
 B 
    ( e T CC  	 @( % ,  , ,   , . # T CC	 loObject. b   %   T C \ 

 T   ! %     object	e/ T  CC	 loObject.      .  T   	<ElementType name="C @- " content="textOnly" model="closed" dt:type="  ">C
 C
  		<AttributeType name="type"/>C
 C
 " 		<attribute type="type" default="  "/>C
 C
  	</ElementType>C
 C
   T    % 	 B  " B 	 </Schema>C
 C
  U  LOOBJECT LCNAME
 LCSCHEMAID
 LNRECURSETYPE LNPROPCOUNT LNX
 LCPROPERTY LCTYPE LCOUTPUT LAFIELDS LCOBJECTHEADERS LCOBJECTPROPERTIES LCDISPFIELD CLASS THIS CPROPERTYEXCLUSIONLIST LSTRIPTYPEPREFIX LRECURSEOBJECTS CREATEOBJECTSTRUCTURESCHEMA FOXTYPETOXMLTYPE            T C   	  %  TD  T C DATEv T C HOURSv T
 C CENTURYv T C
 STRICTDATEv G9( G( YMD G  G(  
 H a C  f NULL  T     CM   NIF5 T  C  g   TW T  C     D| T  CC     L %   T  C   # %   1 C  @ true T  a  T  -     G .   Bz( %CCChC FoxProCh\ga T  C   v
 T
       OJ %C  O) T    <xdoc>   </xdoc> T
 C      	 B
   %C F) T    <xdoc>   </xdoc> T
 C    	 B
   2a T  C    %  TD SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(  	 B   U 
 LCXMLVALUE	 LCXMLTYPE LVSTORE LCTYPE	 LCOLDDATE
 LNOLDHOURS LNOLDCENTURY LNOLDSTRICTDATE THIS XMLTYPETOFOXTYPE LCOLDCENTURY YMD LUSEFOXTYPES LVRESULT LCXMLDOC
 CXMLHEADER XMLTOOBJECTm             T	 
 - T	     %C   C  %C    T	 
 a$ T	   No XML input passed. B- % T  C   encoding="utf-8"   2 %C lvXML.asyncb L. T	 
 a$ T	   No XML input passed. B-   %C Y T  __wwXML  %C   O" T C msxml2.domdocumentN C      
 T     T 
 a %C   
E T	 
 aN T	     C
 C
  Line: C   _C
 C
     B-  T    %C  T	 
 aM T	  = Invalid XML Doc root. Data must be in child of document root. B- . T C diffgr:diffgram/NewDataSet   %C 
 %C 
3 T C diffgr:diffgram/NewDataSet/    %C g	 B    BCC    a	   . T C diffgr:diffgram/NewDataSet   %C 	 B    BC  	    f %C 
Q T C     %C 2	 B    BCC    a	   b	 B     U  LVXML LCALIAS LCDATASETTABLENAME LOXML X LNSIZE LCCREATE LOCURSOR LODATA THIS LERROR	 CERRORMSG LOADXML PRESERVEWHITESPACE
 PARSEERROR REASON LINE SRCTEXT	 LODOCROOT DOCUMENTELEMENT LODIFFGR SELECTSINGLENODE SELECTNODES PARSEXMLTOCURSOR ITEM
 PARENTNODE    '        	 
  %C  H  B-  T     T C ElementType    %C   B-  T  
  % 
  B- % T C nameC      % T C nameC     T T  <root>  <   xmlns="x-schema:#Schema"><  >C
 C
   ( & T	 C nameC       ( T   <	  />C
 C
  . T   </  ></  ></root> T
 C wwXMLN T C  
   %C   
e T      T  a B-  CC          %   B-  Ba U  LOSCHEMA LCALIAS LCSCHEMAXML LOFIELDS LNFIELDS LCCURSOR LCROW LCXML LNX LCNAME LOXML XML SELECTNODES LENGTH ITEM
 ATTRIBUTES GETNAMEDITEM TEXT LODOM LOADXML
 PARSEERROR REASON THIS	 CERRORMSG LERROR BUILDCURSORFROMXML DOCUMENTELEMENT SELECTSINGLENODE        T C      %C O  BC         T  	  %C { 	 B   BC        U
 
 LOROOTNODE LCXPATH LCTYPE LVSTORE LOVALUE SELECTSINGLENODE THIS XMLVALUETOFOXVALUE LCVALUE TEXT             T  T C 	  U T C
  N    
  T    T    C    
 % ! T C 	   %    T C  	   T  string  < T C type     T C  
   %  O T C  C  
    loObject.&lcField = loTemp  
 D loObject.&lcField = this.XMLValueToFoxValue(loField.Text,lcType)
  	 B  U  LOOBJECTSTRUCTURE LOTYPE LOOBJECT LNINDEX LLUSECUSTOMTYPES LCTYPE LOATTRIBUTES LCFIELD	 LCFOXTYPE APROPERTIES THIS COBJECTCLASS LOFIELD
 CHILDNODES
 ATTRIBUTES NODENAME ADDPROPERTY GETNAMEDITEM TEXT XMLTYPETOFOXTYPE LOTEMP BUILDANDUPDATEOBJECTFROMXML POSDL ATYPES            	  T
     T C        
 I T C  </  >C
 C
   C	  <items>C
 C
   (
 c T C      T C 
 T	  v T  C    C  O,  key="C      " type="  "  key="C      "6   V B CC	  Q </items>C
 C
 CC	  Q </  >C
 C
  U  LOCOLLECTION LCNAME LCROW LNINDENT LCOUTPUT LNITEM LNX LVVALUE LCTYPE LCFIELD LNITEMS COUNT THIS CREATEOBJECTXML ITEM
 ADDELEMENT GETKEYq    Q
 COLLECTION       %C  r , T   No data provided for element B-  T C
 items/item  	 # T 
 CC keysort    g T  
  %  = T C   T C  %  O9 T CC    C    ] T 
 T    
 T     c T   T      T C key    %C 
 T    
 T     T C type    %C 
3 T    I T  C 
 HZ_   CM %C  CC  &#00;C     # CC  &#00;C       #   O   objectr %  On %C 
- T CC        N T CC       C  C          NIFY CC g       T CC        D CC #       LE %  True' Ca     A C-      2_ C       Ba U  LOXMLOBJECT LOCOLLECTION LNX LCNAME LOROWS LNROWS LOITEM THIS	 CERRORMSG SELECTNODES KEYSORT SELECTSINGLENODE TEXT LENGTH COUNT
 LVTEMPLATE ITEM LCTEMPLATETYPE
 COPYOBJECT REMOVE OROW LCVALUE LOT
 ATTRIBUTES GETNAMEDITEM LCKEY LCTYPE ADD PARSEXMLTOOBJECTn       X B <   >C
 C
 C           </   >C
 C
  U  LAARRAY LCNAME LCROW LNINDENT THIS CDOCROOTNAME CREATEARRAYXML      T C    5 %C! Doc.DocumentElement.ChildNodes(0)b O - T   Invalid XML format for array. B-  BCC   	     U
  LOXMLOBJECT LAARRAY DOC THIS LOADXML LCXML	 CERRORMSG PARSEXMLTOARRAY DOCUMENTELEMENT
 CHILDNODES      T C  
 H+  C  C 	 B     C %C  m 	 B   0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
) lvValue = STRTRAN(lvValue,">","&gt;")
+ lvValue = STRTRAN(lvValue, "<", "&lt;")
	 B      D	   T %C  F T     lBA   Q DATETIME
 T    T C   .00000	 B    L BC    1  06   Q BC  
   Y BCC  _ $    BC  _ U  LVVALUE	 LCFOXTYPE LCDATE          %C 6 
 T     %C a  T C        T C         T	 C 
 H   	  C  T 
    C     	 B  U  LONODE LCNAME LCVALUE LCNAMESPACE	 LONEWNODE THIS OXML
 CREATEELEMENT
 CREATENODE LCTYPE TEXT APPENDCHILD        %C / 
 T     T C        T    C    	 
 	 B   U  LONODE LCNAME LCVALUE LCNAMESPACE LOATTR THIS OXML
 CREATENODE TEXT
 ATTRIBUTES SETNAMEDITEM        T  - T     T   %C  Od 
 T   E %C   8 T  ( No filename passed to load XML document. B  %C   O" T C msxml2.domdocumentN T 	   0 T    T 	    C    
  ; %C loxml.parseerror.reasonb C
 C   
	N T     C
 C
  Line: C  
 _C
 C
     T  a B  T  a T   	 B  U  LCFILE LLASYNC LLPRESERVEWHITESPACE LOXML THIS LERROR	 CERRORMSG OXML LCXML ASYNC LOAD
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACEx      %C ' 
 T    T C
 CC	  Q   T C       BC      U  LONODE LNINDENT LCTEXT LOTEXT
 OWNERDOCUMENT CREATETEXTNODE APPENDCHILD%"T   ` ,activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,H class,name,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,b width,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column, U  THIS CPROPERTYEXCLUSIONLIST objecttoxml,     	 getobjvar     cursortoxml,     xmltocursor
     createdatastructurexml     createcursorxmlu     createobjectstructurexmle     createobjectxml     xmltoobject+     foxtypetoxmltype/     xmltypetofoxtype1     parsexmltoobject$4     buildobjectfromxml=     parsexmltocursor@     buildcursorfromxmlE     createdatastructuredtdJ     createobjectstructuredtdO     loadxml1S     cursortoadoxmlU     createerrorxmlg     xmltoobjectnoparseri     createarrayxmlm     sqlcursortoxml=q     multicursortoxmlt     adotoxmlEw     createadoxmlz    	 adofieldsk     parsexmltoarray؆    
 addelement$    
 setelementT     adoxmltocursor     parseadoxmltocursorؘ    	 encodexml֜    
 cursortors`     loadurl=    
 ismsxmlbugL     createdatastructureschema     createobjectstructureschema     xmlvaluetofoxvalue     datasetxmltocursor      createcursorfromschema     xpathvaluetofoxvaluej     buildandupdateobjectfromxmls     createcollectionxml     parsexmltocollection    
 arraytoxml    
 xmltoarray<     foxvaluetoxmlvalueX    
 adddomnode     adddomattribute     load     adddomlinebreak     Init\    1 1    A  !! !A A    A  AA A  BB A BR A  3  q   A AA  3 1     A   A  A   A A  AQAB	RA  AQ A R3   R  Aq A U  Aq A A  AA R!  A  c q A   q A  qA Qq A A A  A  Qq A A A q A   A 2     A  "q UA 2A u4 1q   A  A   A   A   A A  rt"A 3Aa1  a  "  bqqQ#A A     qA  !A !A !A A A ! A !    A ! qA A !A  A A rA   BaA 2  1  1A A   A  QqAA A A $3 1R  2Aa1  a   AA R A   A  a   A A RrAA A !  A   Q A  A A Q!A A !A !A !A A ! A A  A ! A A  QA !"q A  A !!Q A A   BbA 3     Aq A R!  A c q A    q A RAA R q A A BA 3 q  A  1!!1!A!A! !!Q!1  A  3 q  A  Q    q  Q q !   A  3  q q A Qq A 2Aa  a  T qB!  A A A S  !a A A A  A A  A A A  QU A2Q! A !1 A# A Q A  B A    3 q   QA A 2 ! q A  A  % !!!!!Q! A A  3  1u A "q 3Aa  a  "   A  Q qqQS A A   3B ! 1A !!     A A !B   A A A   r 3  q2q A A q A BA 21 ! A 2A A  A A A   A q 2    A  A  R  !A Rq1 A A rQ ! !  !A  QQA BA "A  3    1A A  Q Rq!1A A aA r!1A A qA A tA  3  q   R  " A A  q A   2 123Aa  a  I#q1QA sQ  !!3"!
!
!#!!! C BB  rrQ  !A!q! q  A !  A   A rA A   2  q R A R A RA 4     Aq A Qqq A U qAA A !  A A A  1qAA!Q!Q!Q A  B A  2 1q a121 A  A r!T  qbA A A 3    q A    q A A  q A  A 2!!  q A  A R4 1q   A   A  A   A   s  qA  A!A A X3 q  R  A    A   A  A   A 5
B R2 1q !A  A   A 2Aa1  a   # bqqQ   qA  AbA   A A ! A !    A !  A "A   A A r A   2  q 21 QsQQB! qA C  2   q A ! A   A A" qA    A   $A A A  1!AQ!a!Q! A  B A q1A r 3 q2   !A  A   qA  A   A ! A   !A !A !A 3A  A 2 p A #! AC A   A  3   A r A ?  1 BAq A  AA R!  A cq A   q A "  A  q A 3 q 2Aa  a  " Q qqQ A A   Q 1B !! !  Q   A A !A   A A A   r 4 q   q=t R A { q"   A  A  D 3 B  2 qq cQA AA   A 1A A  3  q   A  bq
qA q A  !brA q A A r 3 1  A  A  1A  R  !A r1A  rQ ! !  !A  QQA RA #2 1  1A A   A  1A s  A R  qAA A !  A A A A A %A  A rAA A 1!  A A A A  A "3  qR21Aa  a  A  q 1B !"1"  1   A A !A !1  A !Q A  Q A   A 2  A  3   R  Aq A T  Aq A A  AA R!  A  c q A   q A 1  A    A A  Q  A   A A 2  q q A  q A q A RQHaA RQaa q A q A r 3 1R A   A 4   3$  1A  A S! BA PA  3 1sQ dA e3 q q A 1CA!A    A   q   A   A  1 1A 2! A A Qa!q!a!Q! !A  "A A r 3 12  RRq A 3 q q    !    A  1A 2 @ !! !@A  3 1q   A   A  !A  2 1  A A 3  q   R   q A " A A  q A   2    A r 3 %2                            +       G   7   	  I  W   ^   k            e          .    !  /  2    8  2  G       H  ,N  n    SN  P      P  T      T  d    x  d  j  x    j  t      u  |      |    Z  O        s            }                    -        M      "  t  ظ  ۼ  V      8      [  \      |      %    Y  E  h  z                 >    <    5    z  !    f   =   q 	  E   3 	  \  T @ :	  x  p P e	     $ 	    $ - 
  +  - 7 g
  m  7 '= 
    R= >      > G     ;G J \    J S z  
  T T     T 	V     2V Wb   :  xb d C  L  <d ,e [  U  Ge Ii i  s  oi Yj   |  tj k    )   N                  0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _S961BHUDJ1062505012    E        S                  |  .                           COMMENT RESERVED                        r                                                                   WINDOWS _00E01Y7TW1143834855                      Ց                        7             COMMENT RESERVED                                                      S                                    )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      wwbusiness.vcx      1      Pixels      custom       
 ..\wconnect.hnu;      
wwitemlist      1      
wwbusiness      
..\wconnect.h      Class      custom      
wwbusiness     Height = 16
Width = 99
cdatapath = 
cfilename = 
calias = 
cidtable = wws_id
odata = .NULL.
cerrormsg = 
lerror = .F.
nupdatemode = 1
nresultmode = 0
csqlcursor = TQuery
cresultxml = 
csql = 
vresult = 
cconnectstring = 
osql = .NULL.
ndatamode = 0
cskipfieldsforupdates = 
cpkfield = PK
lvalidateonsave = .F.
ohttpsql = .NULL.
cserverurl = 
ciddatapath = 
cappstartpath = 
oorigdata = .NULL.
lcompareupdates = .F.
ovalidationerrors = .NULL.
Name = "wwbusiness"
      custom                                      %         2  ^   v            U        
   
 T   %CN E 
  CN  ~  T   %C  
  T  C  N T C        C    ^J      T   	 B  U  LCCLASS X THIS AROWS LCPK CPKFIELD LOAD NCOUNTE     %  
     -  B  BC      U  LNINDEX THIS NCOUNT AROWSM     T          T       U  LOITEM THIS NCOUNT AROWS3  T     T         U  THIS NCOUNT AROWS          %C  
h  T C  N
 C   T    Ba  T    %C  
  T    T    B-  T     T   T    Ba U  LCCLASS LODATA THIS AROWS LOOBJECT GETBLANKRECORD ODATA NCOUNT      %   &  B  T     (   
 %    %CC     
  CCC        B-    T  C     %C  
  B-    T    Ba U	  LLARRAYHOLDSCLASS X THIS NCOUNT LODATA ODATA AROWS SAVE SETERROR     %    "  B-  C     T     %  
  T       T  -         Ba U  LNINDEX THIS NCOUNT AROWS loadfromcursor,      item_     add     clear4     loademptyitemarray     savetocursor     remove    1 q q    A  qa A A A  2 q q A 2 q r23 3 q q  aq A "q A r 2 q q BA A  r A  !r A A A r 2 q Bq A #rA  1A r 1                                 7        Q    #   !     #  ,   %   L    2   9     ]  O   O   z    t    )                          PROCEDURE loadfromcursor
LPARAMETERS lcClass
LOCAL x

WITH THIS
   x = 0
   IF RECCOUNT() > 0
      DIMENSION .aRows[RECCOUNT()]
   ENDIF
	SCAN
	   x=x+1
      IF !EMPTY(lcClass)
         .aRows[x] = CREATEOBJECT(lcClass)
         lcPk = .aRows[x].cPKField
         .aRows[x].Load( EVALUATE(lcPK) )
      ELSE
   	   SCATTER NAME .aRows[x] MEMO
      ENDIF
	ENDSCAN
ENDWITH

THIS.nCount = x

RETURN x
ENDPROC
PROCEDURE item
LPARAMETERS lnIndex

IF lnIndex < 1 or lnIndex > THIS.nCount
   RETURN .NULL.
ENDIF

RETURN THIS.arows[lnIndex]
ENDPROC
PROCEDURE add
LPARAMETERS loItem

THIS.nCount = THIS.nCount + 1

DIMENSION THIS.aRows[THIS.nCount]
THIS.aRows[THIS.nCount] = loItem

ENDPROC
PROCEDURE clear
THIS.nCount = 0
THIS.aRows = 0
DIMENSION THIS.aRows[1]

ENDPROC
PROCEDURE loademptyitemarray
LPARAMETERS lcClass
LOCAL loData

DIMENSION THIS.aRows[1]

IF !EMPTY(lcClass)
   loObject = CREATEOBJECT(lcClass)
   loObject.GetblankRecord()
   THIS.aRows[1] = loObject
   RETURN .T.
ENDIF


loData = THIS.oData

IF !THIS.GetBlankRecord()
   THIS.nCount = 0
   THIS.oData = loData
   RETURN .F.
ENDIF
  
THIS.aRows[1] = THIS.oData
THIS.nCount = 1

THIS.oData = loData

RETURN .T.
ENDPROC
PROCEDURE savetocursor
LPARAMETERS llArrayHoldsClass
LOCAL x

IF THIS.nCount = 0
  RETURN
ENDIF

*** Save current data item
loData = THIS.oData

* BEGIN TRANSACTION 

FOR x = 1 TO THIS.nCount
   IF llArrayHoldsClass
      IF !THIS.aRows[x].Save()
         THIS.SetError(THIS.aRows[x].Save())
         * ROLLBACK
         RETURN .F.
      ENDIF
   ELSE  
      *** Load into 'this' and Save()
      THIS.oData = THIS.arows[x]
      IF !THIS.Save()
         * ROLLBACK
         RETURN .F.
      ENDIF
   ENDIF
ENDFOR

* END TRANSACTION 

*** Restore data item
THIS.oData = loData

RETURN .T.
ENDPROC
PROCEDURE remove
LPARAMETERS lnIndex

IF lnIndex > this.nCount
   RETURN .F.
ENDIF
   
*** Delete that row
ADEL(THIS.aRows,lnIndex)

THIS.nCount = THIS.nCount - 1
IF THIS.nCount < 1
    THIS.nCount = 0
    DIMENSION THIS.aRows[1]
    THIS.aRows = .F.
ELSE
    DIMENSION THIS.aRows[THIS.nCount]
ENDIF

RETURN .T.
ENDPROC
      
wwbusiness      
wwitemlist     ncount Number of items in the list.
^arows[1,0] Array that holds the record data. Each item contains a SCATTER NAME type record.
*loadfromcursor Loads the object from the currently selected cursor.
*item Retrieves an item by index count.
*add Adds a new member to a Collection.
*clear Clears the contents of a ComboBox or ListBox control.
*loademptyitemarray Loads an empty item into the array by moving the oData member.
*savetocursor Saves each of the items in the array to disk using individual item Save() calls. Loads the oData member for each operation then performs a Save for each.
*remove Removes an item from the item array.
      !ncount = 0
Name = "wwitemlist"
      Class      Pixels     y6PROCEDURE createnewid
LOCAL lcOldAlias, lcPKField, lnX, lcIDTable, lcIDAlias, lnId, lnId2, lnRecno

THIS.SetError()

IF !THIS.OPEN()
   THIS.SetError("Error: Unable to open table.")
   RETURN -1
ENDIF

DO CASE
   CASE THIS.ndatamode = 0
      lcPKField = THIS.cPKField
      lcOldAlias=ALIAS()

      lcIDTable = THIS.cIDTable
      lcIDAlias = JUSTSTEM(lcIDTable)
   
      IF !USED(lcIDAlias)
         USE (lcIDTable) IN 0 ALIAS (lcIDAlias)
         * USE (THIS.cIddatapath + lcIdTable) IN 0 ALIAS (lcIDAlias)
         IF !USED(lcIDAlias)
            THIS.SetError("Unable to open ID table: "  + THIS.cIDDataPath + lcIDTable)
            IF USED(lcOldAlias)
               SELE (lcOldAlias)
            ENDIF

            RETURN -1
         ENDIF
      ENDIF

      *** Assume failure
      lnId = -1

      SET REPROCESS TO 2 SECONDS

      SELECT (lcIDAlias)
      LOCATE FOR UPPER(TABLENAME) = UPPER(THIS.cAlias)
      IF !FOUND()
         APPEND BLANK
         REPLACE ID WITH 0,TABLENAME WITH THIS.cAlias
      ENDIF

      FOR lnX=1 TO 10000    && Only allow 10000 loops to handle potential endless loops
         SELECT (lcIDAlias)
         IF RLOCK()
            IF ID < 2147483645
               REPLACE ID WITH ID + 1
            ELSE
               *** Allow for rollover - 
               *** this code checks for existing ids and skips
               REPLACE ID WITH 1
            ENDIF
                           
            lnId2 = ID

            SELE (THIS.cAlias)
            lnRecno = RECNO()  && Save record no

            *** Check to 
            LOCATE FOR &lcPKField = lnId2
            IF FOUND()
               UNLOCK IN (lcIDAlias)
	           IF lnRecNo # 0 AND lnRecNo <= RECCOUNT() 
    	          GOTO lnRecno
        	     ENDIF

               LOOP
            ENDIF

            *** Reset the record pointer
            IF lnRecNo # 0 AND lnRecNo <= RECCOUNT() 
               GOTO lnRecno
            ENDIF

            SELECT (lcIDAlias)
            lnId = ID
         ENDIF
         UNLOCK IN (lcIDAlias)
         EXIT
      ENDFOR

      IF USED(lcOldAlias)
         SELE (lcOldAlias)
      ENDIF

   CASE THIS.ndatamode = 2
      lnId = 0
      
      this.oSQL.AddParameter(this.cFileName,"cFileName")
      this.oSQL.AddParameter(lnId,"nID","OUT")
      IF !THIS.oSQL.ExecuteStoredProcedure("sp_ww_NewId",.t.)
         THIS.SetError("Unable to create unique ID. " + THIS.oSQL.cErrorMsg)
         RETURN -1
      ENDIF
      lnID = this.oSQL.oParameters["nID"].Value
      
   CASE THIS.ndatamode = 4
      PRIVATE pnID
      pnId = 0
      THIS.oHTTPSQL.AddSQLParameter("pnId",pnId,,.T.) 

      *** Pass these parameters so the Fox client can read them
      THIS.oHTTPSQL.AddSQLParameter("pcPKField",THIS.cPKField)
      THIS.oHTTPSQL.AddSQLParameter("pcIDTable",JUSTSTEM(THIS.cIDTable))
      
      IF THIS.oHTTPSQL.execute("Execute sp_ww_NewId '" + THIS.cFilename + "',?@pnID") < 0
         THIS.SetError("Unable to create unique ID. " + THIS.oHTTPSQL.cErrorMsg)
         RETURN -1
      ENDIF
      
      lnId = THIS.oHTTPSQL.GetSQLReturnValue("pnId")
ENDCASE

IF lnId < 1
   THIS.SetError("Unable to create unique Id.")
ENDIF

RETURN lnId

ENDPROC
PROCEDURE load
LPARAMETER lnpk, lnLookupType
LOCAL loRecord, lcPKField, lnResult, lcVarType

THIS.SetError()

lcVarType = VARTYPE(lnPK)
IF lcVarType = "L" 
   THIS.SetError("Load failed - no key passed.")
   RETURN .F.
ENDIF

*** Load(0) loads an empty record
IF lcVarType = "N" AND lnPK = 0
   RETURN THIS.Getblankrecord()
ENDIF

IF !THIS.OPEN()
   RETURN .F.
ENDIF

DO CASE
   CASE THIS.ndatamode = 0
      lcPKField = THIS.cPKField
      LOCATE FOR &lcPKField = lnpk

      IF FOUND()
         SCATTER NAME THIS.oData MEMO
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO
         ENDIF
         THIS.nUpdateMode = 1 && Edit
      ELSE
         SCATTER NAME THIS.oData MEMO BLANK
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO BLANK
         ENDIF
         THIS.SetError("GetRecord - Record not found.")
         RETURN .F.
      ENDIF
   CASE THIS.ndatamode = 2 OR This.nDataMode = 4
      PRIVATE pnPk 
      pnPk = lnPk

      IF this.nDataMode = 4
         loSQL = this.oHttpSql
         loSql.AddSqlParameter("pnPk",pnPk)
       ELSE
         loSql = this.oSql
       ENDIF
       
      lnResult = loSQL.Execute("select * from " + THIS.cFileName + " where " + THIS.cPKField + "=?pnPk")
      IF lnResult # 1
         IF loSql.lError
            THIS.SetError(loSql.cErrorMsg)
         ENDIF
         RETURN .F.
      ENDIF

      IF RECCOUNT() > 0
         SCATTER NAME THIS.oData MEMO
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO
         ENDIF
         THIS.nUpdateMode = 1 && Edit
      ELSE
         SCATTER NAME THIS.oData MEMO BLANK
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO BLANK
         ENDIF
         THIS.SetError("No match found.")
         RETURN .F.
      ENDIF
ENDCASE

RETURN .T.

ENDPROC
PROCEDURE save
LOCAL lcPKField, llRetVal, loRecord, lcSqlCommand, loSQL, loTSql
llRetVal = .T.

THIS.SetError()

*** Optional auto Validation
IF THIS.lValidateOnSave AND ;
      !THIS.VALIDATE()
   RETURN .F.
ENDIF

loRecord = THIS.oData

IF !THIS.OPEN()
   RETURN .F.
ENDIF

lcSkipVars = EVL(this.cSkipfieldsforupdates,"x@@!")

DO CASE
CASE THIS.ndatamode  = 0
   DO CASE
   CASE THIS.nupdatemode = 2      && New
      APPEND BLANK
	  GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
      THIS.nupdatemode = 1
   CASE THIS.nupdatemode = 1      && Edit
      lcPKField = THIS.cPKField
      LOCATE FOR &lcPKField = loRecord.&lcPKField
      IF FOUND()
         GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
      ELSE
         APPEND BLANK
         GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
      ENDIF
   ENDCASE


CASE THIS.ndatamode = 2
   LOCAL loSQL as wwsql, llUseNamedParameters
   loSQL = THIS.oSQL
   loSQL.lError = .F.
   
   llUseNamedParameters = WWVFPVERSION > 7
   
   DO CASE
   CASE THIS.nupdatemode = 2      && New
      loSQL.cSQL = loSQL.SQLBuildInsertStatementFromObject(loRecord,THIS.cFileName,,llUseNamedParameters)
      loSQL.Execute()
      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
      THIS.nupdatemode = 1
   CASE THIS.nupdatemode = 1      && Edit
      *** Check if exists first
      lcPKField = THIS.cPKField
      PRIVATE pvPk
      pvPk = TRANS(loRecord.&lcPKField) 
      loSQL.Execute("select " + lcPKField +" from " + THIS.cFileName + " where " + THIS.cPKField + "=?pvPk" )
      IF loSQL.lError
         THIS.SetError(loSQL.cSQL)
         RETURN .F.
      ENDIF
      
      IF RECCOUNT() < 1
         lcSqlCommand = loSQL.SQLBuildInsertStatementFromObject(loRecord,THIS.cFileName,,llUseNamedParameters)
      ELSE
         lcSqlCommand = loSQL.SqlBuildUpdateStatementFromObject(loRecord,THIS.cFileName,lcPKField,;
            IIF(THIS.lcompareupdates,THIS.oOrigData,.F.),,llUseNamedParameters )
      ENDIF
      IF !EMPTY(lcSqlCommand)
         loSQL.Execute( lcSqlCommand )
      ENDIF

      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
   ENDCASE


CASE THIS.ndatamode = 4
   loSQL = THIS.oHttpSQL
   loTSql = CREATEOBJECT("wwSQL")  && Command Builder

   DO CASE
   CASE THIS.nupdatemode = 2      && New
      loSQL.cSQL = loTSql.SQLBuildInsertStatementFromObject(loRecord,THIS.cFileName)
      loSQL.Execute()
      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
      THIS.nupdatemode = 1
   CASE THIS.nupdatemode = 1      && Edit
      *** Check if exists first
      lcPKField = THIS.cPKField
	  PRIVATE pvPkValue
      pvPkValue = TRANS(loRecord.&lcPKField)
      loSQL.Execute("select " + lcPKField +" from " + THIS.cFileName + " where " + THIS.cPKField + "=?pvPkValue" )
      IF loSQL.lError
         THIS.SetError(loSQL.cSQL)
         RETURN .F.
      ENDIF

      IF RECCOUNT() < 1
         lcSqlCommand = loTSql.SQLBuildInsertStatementFromObject(loRecord,THIS.cFileName)
      ELSE
         lcSqlCommand = loTSql.SqlBuildUpdateStatementFromObject(loRecord,THIS.cFileName,;
              lcPKField,IIF(THIS.lcompareupdates,THIS.oOrigData,.F.))
      ENDIF
      loSQL.Execute( lcSqlCommand )

      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
   ENDCASE
ENDCASE

RETURN llRetVal

ENDPROC
PROCEDURE open
LPARAMETER lcFile, lcAlias, llForceReconnect
LOCAL lcConnectString

lcFile=IIF(!EMPTY(lcFile),lcFile,THIS.cFileName)

*** Nothing passed and no MasterTable - exit
IF THIS.nDataMode = 0 AND EMPTY(lcFile)
   RETURN .F.
ENDIF

DO CASE
   CASE THIS.ndatamode = 0
      lcAlias=IIF(!EMPTY(lcAlias),lcAlias,THIS.cAlias)

      IF !EMPTY(lcFile) AND UPPER(lcFile) == UPPER(THIS.cFileName)
         THIS.cAlias = lcAlias
      ENDIF

      IF USED(lcAlias)
         SELE (lcAlias)
      ELSE
         SELE 0
         USE ( THIS.cDataPath + lcFile ) ALIAS (lcAlias) AGAIN
         IF !USED(lcAlias)
            THIS.seterror("Unable to open " + THIS.cFileName)
            RETURN .F.
         ENDIF
      ENDIF

      *** SQL Mode
   CASE THIS.ndatamode = 2
      IF ISNULL(THIS.osql) OR llForceReconnect
         THIS.osql = CREATEOBJECT("wwSQL")

         IF EMPTY(lcConnectString)
            lcConnectString = THIS.cConnectString
         ENDIF

         IF !THIS.osql.CONNECT(lcConnectString)
            THIS.seterror(THIS.osql.cErrorMsg)
            RETURN .F.
         ENDIF         
      ENDIF
	  this.oSql.cSkipFieldsForUpdates = this.cSkipfieldsforupdates
   CASE THIS.ndatamode = 4
      IF ISNULL(THIS.oHTTPsql) 
         THIS.oHTTPSql = CREATEOBJECT("wwHTTPSQL")
         THIS.oHTTPSQL.cServerUrl = THIS.cServerUrl
         * THIS.oHTTPSQL.nTransportmode = 2  && EncodeDBF cursors
         THIS.oHTTPSQL.cSQLConnectString = THIS.cConnectstring 
         THIS.oHTTPSQL.cSkipFieldsForUpdates = THIS.cSkipFieldsForUpdates
      ENDIF
ENDCASE

RETURN .T.

ENDPROC
PROCEDURE statusmessage
LPARAMETER lcMessage

wait window nowait lcMessage

ENDPROC
PROCEDURE seterror
LPARAMETER lcErrorMsg, lnError

IF PCOUNT() = 0
   THIS.cErrorMsg = ""
   THIS.lError = .F.
   RETURN
ENDIF   

THIS.cErrorMsg = lcErrorMsg
THIS.lError = .T.
ENDPROC
PROCEDURE new
LPARAMETERS llNoNewPk
LOCAL lcPKField, lnPK

*** Not setting lError and cErrorMsg here - let worker methods
*** do it for us. All code here 
THIS.SetError()

** Create a new record object
IF !THIS.getblankrecord()
   RETURN .F.
ENDIF

IF !llNoNewPk
	lnPK = THIS.CreateNewId()
   IF EMPTY(lnPk)
      THIS.SetError("Couldn't create ID. " + THIS.cErrorMsg)
      RETURN .F.   
   ENDIF
ELSE
    lnPk = 0
ENDIF		

lcPKField = THIS.cPKField
THIS.oData.&lcPKField = lnPK

THIS.nUpdateMode = 2 && New Record

RETURN .T.
ENDPROC
PROCEDURE getblankrecord
LOCAL loRecord, lnResult

THIS.SetError()

IF !THIS.OPEN()
   RETURN .F.
ENDIf

DO CASE 
  CASE THIS.ndatamode = 0
    SCATTER NAME THIS.oData MEMO BLANK
  CASE THIS.ndatamode = 2 
    lnResult = THIS.osql.Execute("select * from " + THIS.cFilename + " where 0=1")
    IF lnResult # 1
       THIS.seterror(THIS.oSQL.cErrorMsg)
       RETURN .F.
    ENDIF
    SCATTER NAME THIS.oData MEMO BLANK
 CASE THIS.nDataMode = 4
    IF THIS.oHTTPSQL.Execute("select * from " + THIS.cFileName + " where 0=1") < 0
       THIS.SetError(THIS.oHTTPsql.cErrorMsg)
       RETURN .F.
    ENDIF
    SCATTER NAME THIS.oData MEMO BLANK
ENDCASE     

IF THIS.lcompareupdates 
   SCATTER NAME THIS.oOrigData MEMO BLANK
ENDIF

RETURN .T.
ENDPROC
PROCEDURE find
LPARAMETER lcFilter
LOCAL lcCmd, lnResult

IF !THIS.OPEN()
	RETURN .F.
ENDIF

DO CASE
   CASE THIS.nDataMode = 0
      lcCmd = "LOCATE FOR " + lcFilter
      &lcCmd

      IF FOUND()
         SCATTER NAME THIS.oData MEMO
         RETURN .T.
      ENDIF
   CASE THIS.nDataMode = 2
      THIS.oSQL.cSQLCursor = "TSQLQuery"
      THIS.oSQL.cSQL = "select * from " + THIS.cFilename + " WHERE " + lcFilter
      *_cliptext = THIS.oSQL.cSQL
      lnResult = THIS.oSQL.Execute()

      IF lnResult # 1
         THIS.seterror(THIS.oSQL.cErrorMsg)
         RETURN .F.
      ENDIF
      IF RECCOUNT() > 0
         SCATTER NAME THIS.oData MEMO
         RETURN
      ENDIF
ENDCASE


RETURN .F.

ENDPROC
PROCEDURE reindex
LPARAMETERS llReturnIndexString

*** Only do this with Fox data
If This.nDataMode # 0
   Return .T.
Endif

If !OpenExclusive(This.cDataPath + This.cFileName,This.cAlias)
   Return .F.
Endif

Sele (This.cAlias)

*** Build an output string for all the index expressions
lnX = 1
lcOutStr = ""
Do While !Empty(Tag(lnX))
   lcOutStr = lcOutStr + ;
      "INDEX ON "+Lower(Sys(14,lnX))+;
      " TAG "+Lower(Tag(lnX))+;
      IIF(!Empty(Sys(2021,lnX))," FOR "+Sys(2021,lnX),"")

   If Descending(ALIAS(), lnX)
      lcOutStr = lcOutStr + " DESCENDING"
   Endif
   If Unique(ALIAS(), lnX)
      lcOutStr = lcOutStr + " UNIQUE"
   Endif

   lcOutStr=lcOutStr+Chr(13)
   lnX = lnX + 1
Enddo

IF !EMPTY(lcOutStr)
   Delete Tag All
   
   *** Now run the individual index commands
   loEval = Createobject("wwEval")
   loEval.Execute(lcOutStr)
ENDIF

Pack

Use

IF llReturnIndexString
   THIS.vResult = lcOutStr
ENDIF

RETURN .T.

ENDPROC
PROCEDURE delete
LPARAMETER lnPk
LOCAL lcPKField, lnResult

THIS.seterror()

IF !THIS.Open() 
   RETURN .F.
ENDIF   

lcPKField = THIS.cPKField

*** Try to load the record if a PK was passed
IF EMPTY(lnPK)
  lnPk = THIS.oData.&lcPKField
ENDIF

DO CASE
CASE THIS.ndatamode = 0
	*** Delete the record
	DELETE FOR &lcPKField = lnPk
CASE THIS.nDataMode = 2
    lnResult = THIS.oSql.Execute("DELETE FROM " + THIS.cFilename + " WHERE " +THIS.cPKField + " =" + TRANSFORM(lnPK) )
    IF lnResult # 1
      	THIS.seterror(THIS.oSQL.cErrorMsg)
    	RETURN .F.
    ENDIF 
CASE THIS.nDataMode = 4
    lnResult = THIS.oHTTPsql.Execute("DELETE FROM " + THIS.cFilename + " WHERE " +THIS.cPKField + " =" + TRANSFORM(lnPK) )
    IF lnResult < 0
         THIS.seterror(THIS.oSQL.cErrorMsg)
       RETURN .F.
    ENDIF 
ENDCASE

*** And clear the data area
THIS.GetBlankRecord()

RETURN .T.   
ENDPROC
PROCEDURE createtable
LPARAMETER lcFileName
ENDPROC
PROCEDURE query
LPARAMETERS lcSelect, lcCursor, lnResultmode
LOCAL lnResult

lcSelect=IIF(EMPTY(lcSelect),THIS.cSQL,lcSelect)
lcCursor=IIF(EMPTY(lcCursor),THIS.cSQLCursor,lcCursor)
lnResultmode=IIF(EMPTY(lnResultmode),THIS.nResultmode,lnResultmode)

THIS.seterror()

IF !THIS.OPEN()
   RETURN 0
ENDIF

IF EMPTY( lcSelect ) OR NOT VARTYPE( lcSelect ) = "C"
   lcSelect = THIS.cSQL
ENDIF
IF EMPTY( lcSelect )
   ** We get everything...
   lcSelect = "*"
ENDIF
IF ATC(" FROM",lcSelect) = 0
  IF THIS.nDataMode = 0
   lcSelect = lcSelect + " FROM  '" + ALLTRIM(THIS.cDataPath + THIS.cFileName) + "' "
  ELSE
   lcSelect = lcSelect + " FROM " + ALLTRIM(THIS.cFileName) + " "
  ENDIF   
   *{lcSelect = "SELECT FROM " + Alltrim(THIS.cMasterTable) + " " + Subs(lcSelect,At(" ",lcSelect)+1)
ENDIF
IF !StartsWith(lcSelect,"SELECT ",.T.)
   lcSelect = "SELECT " + lcSelect
ENDIF

THIS.cSQL = lcSelect

*** Run the SQL Statement
DO CASE
   CASE THIS.nDataMode = 0
      IF ATC(" INTO",lcSelect) = 0
         lcSelect = lcSelect + " INTO CURSOR " + lcCursor
      ENDIF

      &lcSelect

      IF !USED(lcCursor)
         RETURN 0
      ELSE
         lnResult = _TALLY
      ENDIF
   CASE THIS.nDataMode = 2
      lcOldCursor = THIS.oSQL.cSQLCursor 
      THIS.osql.cSQLCursor = lcCursor
      lnResult = THIS.osql.Execute(lcSelect)
      IF lnResult < 0
         THIS.seterror(THIS.osql.cErrorMsg)
         RETURN 0
      ENDIF
      
      THIS.oSQL.cSQLCursor = lcOldCursor

      lnResult = RECCOUNT()
   CASE THIS.nDataMode = 4
      lcOldCursor = THIS.oHTTPSQL.cSQLCursor 
      THIS.oHTTPsql.cSQLCursor = lcCursor
      lnResult = THIS.oHTTPsql.Execute(lcSelect) 
      IF lnResult < 0
         THIS.seterror(THIS.oHTTPsql.cErrorMsg)
         RETURN 0
      ENDIF
      
      THIS.oHTTPSQL.cSQLCursor = lcOldCursor
ENDCASE
 
*** Convert data if necessary
IF lnResultmode # 0
   THIS.ConvertData(lnResultmode,,lcCursor)
   USE IN (lcCursor)
ENDIF

RETURN lnResult

ENDPROC
PROCEDURE updatestructure

IF THIS.nDataMode # 0
   THIS.SetError("Update Structure is supported only for physical Fox tables...")
   RETURN .F.
ENDIF

IF EMPTY(THIS.cFileName)
   *** Nothing to do here
   RETURN .T.
ENDIF
IF EMPTY(THIS.cDatapath)
   THIS.cDataPath = ADDBS( JustPath( FULLPATH(ForceExt(THIS.cFileName,"dbf") ) ) )
ENDIF
  
*** Check if we can get it open EXCLUSIVE
IF !OpenExclusive(THIS.cDataPath + THIS.cFileName,THIS.cAlias) 
   RETURN .F.
ENDIF   

SELE (THIS.cAlias)
USE

*** Save old file name
lcFilename = THIS.cFileName
lcDatapath = THIS.cDataPath

THIS.cFileName = SYS(2015)
THIS.cDataPath = SYS(2023) + "\"

*** Create the new table
THIS.CreateTable(THIS.cDatapath + THIS.cFileName)

*** Must Open again
THIS.Open()

*** Append from the old File
APPEND FROM (lcDatapath + lcFileName)

*** Reindx now
THIS.Reindex()
THIS.Open()

*** Copy the file ontop of the old one
COPY TO (lcDataPath + lcFileName) WITH CDX

*** Close and clean up
USE
ERASE( THIS.cDatapath + THIS.cFileName + ".*" )

*** Reset to current cursor
THIS.cFileName = lcFileName
THIS.cDataPath = lcDataPath

RETURN .T.
ENDPROC
PROCEDURE convertdata
LPARAMETERS lnResultMode, lcDocRoot, lcTable, lcRow
LOCAL loXML

IF EMPTY(lnResultMode)
  *** VFP Cursor mode - just return  
  RETURN .T.
ENDIF

IF EMPTY(lcRow)
   lcRow = "datarow"
ENDIF
IF EMPTY(lcDocRoot)
   lcDocRoot = "sqlresult"
ENDIF
IF EMPTY(lcTable)
   IF lnResultMode < 10
      lcTable = LOWER(ALIAS())
   ELSE
      lcTable = LOWER(THIS.Class)
   ENDIF
ENDIF

loXML = CREATEOBJECT("wwXML")
loXML.cDocRootName = lcDocRoot

DO CASE
      *** Cursor
   CASE lnResultMode = 1
      THIS.cResultXML = loXML.CURSORTOXML(lcTable, lcRow)

     *** Cursor with Schema
   CASE lnResultMode = 2 
      loXML.nCreateDataStructure = 1
      THIS.cResultXML = loXML.CURSORTOXML(lcTable,lcRow)
     
      *** Cursor with DTD
   CASE lnResultMode = 3
      loXML.nCreateDataStructure = 2
      THIS.cResultXML = loXML.CURSORTOXML(lcTable,lcRow)

#IF VERSION(5) > 600
      *** VFP's Native CursorToXML without schema
   CASE lnResultMode = 5
      CURSORTOXML(SELECT(),"THIS.cResultXML",1,32,0,"")
      
      *** VFP's CursorToXML with Schema
   CASE lnResultMode = 6   
      CURSORTOXML(SELECT(),"THIS.cResultXML",1,32,0,"1")
#ENDIF
#IF VERSION(5) > 700
      *** DataSet
   CASE lnResultMode = 8
      LOCAL oXA as XMLAdapter
		oXA = CREATEOBJECT("XMLAdapter")
		oXA.AddTableSchema(ALIAS(),.T.,STRCONV(lcTable,5))
		oXA.ToXML("THIS.cResultXML")
#ENDIF
     
      *** Plain Object
   CASE lnResultMode = 11
      THIS.cResultXML = loXML.ObjectToXML(THIS.oData,lcTable)
      *** Plain Object with DTD

      *** Plain Object with Schema
   CASE lnResultMode = 12
      loXML.nCreateDataStructure = 1
      THIS.cResultXML = loXML.ObjectToXML(THIS.oData,lcTable)
     
      *** Plain Object with DTD
   CASE lnResultMode = 13
      loXML.nCreateDataStructure = 2
      THIS.cResultXML = loXML.ObjectToXML(THIS.oData,lcTable)
     
      *** Hierarchical Object
   CASE lnResultMode = 20
      loXML.lRecurseObjects = .T.
      loXML.cPropertyExclusionList = loXML.cPropertyExclusionList + ;
         ",cpkfield,cskipfieldsforupdates,ndatamode,lerror,nresultmode,calias,cfilename,cdatapath,csql,csqlcursor,cerrormsg,cresultxml,cconnectstring,cidtable,nupdatemode,osql,vresult,"
      loXML.cDocRootName = lcDocRoot
      THIS.cResultXML = loXML.ObjectToXML(THIS,lcTable)


   *** Miscellaneous Exports
   
      *** ADO Code here
   CASE lnResultMode = 30
      lcXML = loXML.CursorToADOXML()
      lcFile = SYS(2023) + "\" + SYS(2015) + ".xml"
      File2Var(lcFile,loXML.EncodeXML(lcXML))
      oRS = CREATEOBJECT("AdoDB.RecordSet")
      oRS.OPEN(lcFile)  && Load as XML document
      THIS.vResult = oRS

      ERASE (lcFile)
      
   CASE lnResultMode = 40
      lcFile =SYS(2023) + "\" + SYS(2015) + ".dbf"
     
      *** Must copy file so we can read it
      *** it could be cursor so just closing won't
      *** work
      COPY TO ( lcFile )
       
      THIS.vResult = EncodeDBF(lcFile,.T.)
      
      ERASE (FORCEEXT(lcFile,"*"))
    
ENDCASE

RETURN .T.

ENDPROC
PROCEDURE execute
LPARAMETERS lcSQL
LOCAL lnResult

IF !THIS.OPEN()
	RETURN 0
ENDIF

this.lError = .F.

DO CASE
   CASE THIS.ndatamode = 0
      *** Run the SQL Statement - note there's no INTO clause
      *** added by default to Fox data. If you need this you
      *** should use Query() instead or else make sure you
      *** always issue 'raw' SQL strings
      &lcSQL 

      IF THIS.lError
         lnResult = 0
      ELSE
         lnResult = _TALLY
      ENDIF
   CASE THIS.ndatamode = 2
      THIS.oSQL.cSQLCursor = THIS.cSQLCursor
      lnResult = THIS.osql.Execute(lcSQL)
      
      *** Always reset the cursor afterwards
      THIS.cSqlCursor = "TSQLQuery"

     IF lnResult < 0
         THIS.seterror(THIS.osql.cErrorMsg)
         RETURN 0
      ENDIF

      lnResult = this.oSql.nAffectedRecords
   CASE THIS.nDataMode = 4
     THIS.oHttpSQL.cSQLCursor = THIS.cSQLCursor
     lnResult = THIS.oHTTPSQL.Execute(lcSQL)
	  IF THIS.oHTTPSQL.lError
	     THIS.SetError(THIS.oHTTPSql.cErrorMsg)
	     RETURN 0
	  ENDIF
     IF lnResult < 0
      	 This.oHTtpSql.cErrorMsg
         RETURN 0
     ENDIF
ENDCASE

RETURN lnResult

ENDPROC
PROCEDURE getproperty
LPARAMETER lcProperty
LOCAL loXMLState

loXMLState = CREATEOBJECT("wwXMLState")
loXMLState.LoadXML(This.oData.XML)

RETURN loXMLState.GetProperty(lcProperty)

ENDPROC
PROCEDURE setproperty
LPARAMETERS lcProperty, lcValue
************************************************************************
* wwAsyncWebRequest :: SetProperty
****************************************
***  Function: Sets a property on the current oEvent object.
***    Assume: Doesn't load or save oEvent object
***      Pass: lcProperty
***            lvValue   -  value of any simple type
***    Return: nothing
************************************************************************
LOCAL loXMLState

loXMLState = CREATEOBJECT("wwXMLState")

loXMLState.LoadXML(This.oData.XML)
loXMLState.SetProperty(lcProperty,lcValue)

THIS.oData.XML = loXMLState.GetXML()


ENDPROC
PROCEDURE setsqlobject
LPARAMETERS lvSQL

IF VARTYPE(lvSQL) = "O"
	THIS.osql = lvSQL
	THIS.cConnectString = THIS.osql.cConnectString
	THIS.nDataMode = 2
   RETURN .T.
ENDIF

IF VARTYPE(lvSQL) = "C"
   IF ISNULL(THIS.oSQL)
      THIS.oSQL = CREATEOBJECT("wwSQL")
   ENDIF
   THIS.nDataMode = 2
   IF !THIS.oSQL.Connect(lvSQL)
      RETURN .F.
   ENDIF
ENDIF

RETURN .T.

ENDPROC
PROCEDURE close

DO CASE
CASE THIS.nDataMode = 0
   IF USED(THIS.cAlias)
      USE IN (THIS.cAlias)
   ENDIF
CASE THIS.nDataMode = 2
   *** Release the SQL object
   THIS.oSQL = .NULL.   
CASE THIS.nDataMode = 4
   THIS.oHTTPSql = .NULL.
ENDCASE
ENDPROC
PROCEDURE validate
*** Must implement code in subclass
*** Should call SetError() to set any validation errors
* this.oValidationerrors.Clear()
RETURN .T.
ENDPROC
PROCEDURE loadfromxml
LPARAMETERS lcXML, lnMode

IF VARTYPE(lnMode) # "N"
   lnMode = 0
ENDIF

DO CASE
  *** Full object - note object should be pre-created
  CASE lnMode = 2
     loXML = CREATEOBJECT("wwXML")   
     loXML.lRecurseObjects = .T.
     lvResult = loXML.XMLToObject(lcXML,THIS)
     IF loXML.lError
        THIS.SetError(loXML.cErrorMsg)
        RETURN .F.
     ENDIF
  OTHERWISE
     *** load the oData member
     loXML = CREATEOBJECT("wwXML")   
     lvResult = loXML.XMLToObject(lcXML,THIS.oData)
     IF loXML.lError
        THIS.SetError(loXML.cErrorMsg)
        RETURN .F.
     ENDIF
ENDCASE

RETURN .T.
ENDPROC
PROCEDURE importdata
LPARAMETERS lnMode, lcXML, lcAlias
LOCAL lcXML

IF EMPTY(lnMode)
    THIS.SetError("No parameter passed to importdata")
    RETURN .F.
ENDIF

DO CASE
        *** XML with no Schema/DTD
    CASE lnMode = 1
        IF EMPTY(lcAlias)
            lcAlias = "TXMLResult"
        ENDIF
        IF !USED(lcAlias)
            *** Have to create the cursor from the current table
            THIS.LOAD(0)
            #IF VERSION(5) > 600
                SELECT * FROM (ALIAS()) WHERE .F. INTO CURSOR (lcAlias) NOFILTER READWRITE
            #ELSE
                SELECT * FROM (ALIAS()) WHERE .F. INTO CURSOR (lcAlias + "_1")  NOFILTER
                WrCursor(lcAlias) && Make writeable
            #ENDIF
        ENDIF
        loXML = CREATEOBJECT("wwXML")
        RETURN loXML.XMLTOCURSOR(lcXML,lcAlias)

        *** XML with Schema or DTD
    CASE lnMode = 2 OR lnMode =3
        loXML = CREATEOBJECT("wwXML")
        RETURN loXML.XMLTOCURSOR(lcXML,lcAlias)

        *** VFP 7 XMLTOCursor
    CASE INLIST(lnMode,5,6)
        IF EMPTY(lcAlias)
            lcAlias = "TXMLResult"
        ENDIF
        XMLTOCURSOR(lcXML,lcAlias)
        RETURN .T.

        *** Object without DTD/SCHEMA - lcAlias = object reference
    CASE lnMode = 11 OR lnMode = 12 OR lnMode = 13
        loXML = CREATEOBJECT("wwXML")
        RETURN loXML.XMLToObject(lcXML,THIS.oData)

    CASE lnMode = 20
        loXML = CREATEOBJECT("wwXML")
        loXML.lRecurseObjects = .T.
        RETURN loXML.XMLToObject(lcXML,THIS)

        *** Encode DBF created string
    CASE lnMode = 40
        IF EMPTY(lcAlias)
            lcAlias = "TXMLResult"
        ENDIF
        lcFile = SYS(2023) + "\" + SYS(2015) + ".dbf"

        llResult = DecodeDBF(lcXML,lcFile)
        IF llResult
            USE (lcFile) IN 0 ALIAS __IMPORT
            #IF VERSION(5) > 600
                SELECT * FROM __IMPORT INTO CURSOR (lcAlias) NOFILTER READWRITE
            #ELSE
                SELECT * FROM __IMPORT INTO CURSOR (lcAlias) NOFILTER
                WRCURSOR()
            #ENDIF
            USE IN __IMPORT
        ENDIF

        ERASE (FORCEEXT(lcFile,"*"))
        RETURN llResult
ENDCASE

RETURN .T.

ENDPROC
PROCEDURE backup
LPARAMETERS lcPath, llCreate

THIS.SetError()

*** Retrieve all records
lnResult = THIS.Query()
IF !DIRECTORY(lcPath) 
  IF llCreate
     MD (lcPath)
  ELSE
     THIS.SetError("Backup Directory doesn't exist.")
     RETURN .F.
  ENDIF
ENDIF
   
COPY TO (ADDBS(lcPath) + THIS.cFileName)

*** Close the cursor
USE


ENDPROC
PROCEDURE createchildobject
LPARAMETERS lcClass
LOCAL loObject

IF VARTYPE(lcClass) = "O"
	loObject = lcClass
ELSE	
	loObject = CREATEOBJECT(lcClass)
ENDIF	

loObject.nDataMode = this.nDataMode

DO CASE
   CASE THIS.nDataMode = 0
      loObject.nDataMode = 0
      loObject.cDataPath = this.cDataPath
   CASE THIS.nDataMode = 2
      loObject.cConnectString = this.cConnectstring      
      loObject.SetSQLObject(THIS.oSQL)
   CASE THIS.nDataMode = 4
      loObject.nDataMode = 4
      loObject.cServerUrl = THIS.cServerUrl
      loObject.oHTTPSQL = THIS.oHTTPSQL
ENDCASE

RETURN loObject
ENDPROC
PROCEDURE setcomenvironment

*** Make all required environment settings here
*** KEEP IT SIMPLE: Remember your object is created
***                 on EVERY ASP page hit!
SET RESOURCE OFF  && best to do in compiled-in CONFIG.FPW

SET EXCLUSIVE OFF
SET REPROCESS TO 2 SECONDS
SET CPDIALOG OFF

SET DELETED ON
SET EXACT OFF
SET SAFETY OFF

*** Retrieve the DLL location and grab just the path to save!
IF application.Startmode = 3 OR Application.StartMode = 5
	THIS.cAppStartPath = ADDBS(JUSTPATH(Application.ServerName))
ELSE
    THIS.cAppStartPath = SYS(5) + ADDBS(CURDIR())
ENDIF

*** Add the startup path to the path list!
*** Add any additional relative paths as required
DO PATH WITH THIS.cAppStartpath 

ENDPROC
PROCEDURE addvalidationerror
LPARAMETERS lcError, lcCtlId

loError = CREATEOBJECT("wwValidationError")
loError.cMessage = lcError
IF !EMPTY(lcCtlId)
  loError.cObjectName = lcCtlId
ENDIF

THIS.oValidationErrors.Add( loError )
  
ENDPROC
PROCEDURE ovalidationerrors_access

IF ISNULL(THIS.oValidationErrors)
   THIS.oValidationErrors = CREATEOBJECT("wwValidationErrors")
ENDIF

RETURN THIS.ovalidationerrors
ENDPROC
PROCEDURE loadbase
LPARAMETER lcFilter, lcFieldList
LOCAL loRecord, lcPKField, lnResult

IF EMPTY(lcFieldList)
  lcFieldList = "*"
ENDIF

THIS.SetError()

IF !THIS.OPEN()
   RETURN .F.
ENDIF

DO CASE
   CASE THIS.ndatamode = 0
	 lnResult = this.Query("Select " + lcFieldList +  " from " + this.cAlias + " where " + lcFilter) 
     IF lnResult > 0
         SCATTER NAME THIS.oData MEMO
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO
         ENDIF
         THIS.nUpdateMode = 1 && Edit
      ELSE
         SCATTER NAME THIS.oData MEMO BLANK
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO BLANK
         ENDIF
         THIS.SetError("GetRecord - Record not found.")
         RETURN .F.
      ENDIF
   CASE THIS.ndatamode = 2 OR This.nDataMode = 4
      IF this.nDataMode = 4
         loSQL = this.oHttpSql
       ELSE
         loSql = this.oSql
       ENDIF
       
      lnResult = loSQL.Execute("select "  + lcFieldList + " from " + THIS.cFileName + " where " + lcFilter)
      IF lnResult # 1
         IF loSql.lError
            THIS.SetError(loSql.cErrorMsg)
         ENDIF
         RETURN .F.
      ENDIF

      IF RECCOUNT() > 0
         SCATTER NAME THIS.oData MEMO
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO
         ENDIF
         THIS.nUpdateMode = 1 && Edit
      ELSE
         SCATTER NAME THIS.oData MEMO BLANK
         IF THIS.lcompareupdates 
            SCATTER NAME THIS.oOrigData MEMO BLANK
         ENDIF
         THIS.SetError("No match found.")
         RETURN .F.
      ENDIF
ENDCASE

RETURN .T.

ENDPROC
PROCEDURE Init

#IF SHAREWARE
WAIT WINDOW NOWAIT ;
  "This is a shareware copy of wwBusiness." + CHR(13)+ CHR(13) +;
  "Please register your copy."
#ENDIF

ENDPROC
     P     O  O                        `   %   D      M  q  F            U  #          
 C 	  %C 
 
x , C Error: Unable to open table. 	 
 B 
 H ^    H T    T  C T  
  T C  %C 
n Q     %C 
j4 C Unable to open ID table:     	  %C  \
 F   
 B   T  GM(
 F  -C fC  f
 %C4
  >        (''
 F  %CS % 

. >   C
 >  
 T  
 F   T CO! LOCATE FOR &lcPKField = lnId2
 %C4 Z  %    CN		 #   .  %    CN		 #  
 F 
 T    Z  !  %C  D
 F      0
 T  " C  	 cFileName     C   nID OUT   $ %C sp_ww_NewIda   
6 C Unable to create unique ID.     	 
 B  T C nID       ^ 5 
 T   C pnId  a   " C	 pcPKField     % C	 pcIDTableC 
    C %C Execute sp_ww_NewId '   ',?@pnID    
?6 C Unable to create unique ID.     	 
 B  T C pnId     % 
+ C Unable to create unique Id. 	  	 B  U 
 LCOLDALIAS	 LCPKFIELD LNX	 LCIDTABLE	 LCIDALIAS LNID LNID2 LNRECNO THIS SETERROR OPEN	 NDATAMODE CPKFIELD CIDTABLE CIDDATAPATH	 TABLENAME CALIAS ID OSQL ADDPARAMETER	 CFILENAME EXECUTESTOREDPROCEDURE	 CERRORMSG OPARAMETERS VALUE PNID OHTTPSQL ADDSQLPARAMETER EXECUTE GETSQLRETURNVALUE         
 C   T C   %  L , C Load failed - no key passed.   B-  %  N    	 
 BC    %C 	 
  B- 
 H   
   T     LOCATE FOR &lcPKField = lnpk
 %C4h ^J   % 
 T ^J    T   
 ^J   % 
 
 ^J   - C GetRecord - Record not found.   B- "  
   
  5 
 T    % 
 H T    C pnPk     ` T    E T C select * from     where    =?pnPk   %  %   C      B-  %CN 8 ^J   % 
 $ ^J    T   
 ^J   % 
 j
 ^J    C No match found.   B-   Ba U  LNPK LNLOOKUPTYPE LORECORD	 LCPKFIELD LNRESULT	 LCVARTYPE THIS SETERROR GETBLANKRECORD OPEN	 NDATAMODE CPKFIELD ODATA LCOMPAREUPDATES	 OORIGDATA NUPDATEMODE PNPK LOSQL OHTTPSQL ADDSQLPARAMETER OSQL EXECUTE	 CFILENAME LERROR	 CERRORMSG         T a
 C   %  	 C 	 
	V  B-  T  
  %C  
  B-  T C 
  x@@!
 H     
 H 
   / 7 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
 T     
 T    / LOCATE FOR &lcPKField = loRecord.&lcPKField
 %C47 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
 	 7 GATHER NAME loRecord MEMO FIELDS EXCEPT &lcSkipVars
       Q WWSQL  T    T  -( T CCChC FoxProCh\g
 H   # T  C        
 C   %   C     B-  T      T     5 & pvPk = TRANS(loRecord.&lcPKField) 
H C select     from     where    =?pvPk   %   C     B-  %CN
  T C         F9 T C       C  	    -6      %C 
k C      %   C     B-      T    T C wwSQLN
 H   d T  C      
 C   %  P C     B-  T      T     5 * pvPkValue = TRANS(loRecord.&lcPKField)
M C select     from     where    =?pvPkValue   %  0 C     B-  %CN
_ T C       4 T C       C  	    -6    C     %   C     B-   	 B  U 	 LCPKFIELD LLRETVAL LORECORD LCSQLCOMMAND LOSQL LOTSQL THIS SETERROR LVALIDATEONSAVE VALIDATE ODATA OPEN
 LCSKIPVARS CSKIPFIELDSFORUPDATES	 NDATAMODE NUPDATEMODE CPKFIELD LLUSENAMEDPARAMETERS OSQL LERROR CSQL! SQLBUILDINSERTSTATEMENTFROMOBJECT	 CFILENAME EXECUTE	 CERRORMSG PVPK! SQLBUILDUPDATESTATEMENTFROMOBJECT LCOMPAREUPDATES	 OORIGDATA OHTTPSQL	 PVPKVALUE       ! T  CC  
      6 %    C  	[  B- 
 Hl     ^! T CC 
     6" %C  
 C  fC  f	  T     %C  
 F  Z F   Q      %C 
V& C Unable to open    	  B-      %C 
     T 
 C wwSQLN %C  T     %C   
  
 C 
 
  	  B-   T 
        %C   T  C	 wwHTTPSQLN T      T      T        Ba U  LCFILE LCALIAS LLFORCERECONNECT LCCONNECTSTRING THIS	 CFILENAME	 NDATAMODE CALIAS	 CDATAPATH SETERROR OSQL CCONNECTSTRING CONNECT	 CERRORMSG CSKIPFIELDSFORUPDATES OHTTPSQL
 CSERVERURL CSQLCONNECTSTRING     R,:   U 	 LCMESSAGEc      %Ct >  T     T  - B  T     T  a U 
 LCERRORMSG LNERROR THIS	 CERRORMSG LERROR      
 C   %C  
8  B-  %  
  T C   %C  + C Couldn't create ID.      B-   
 T    T     THIS.oData.&lcPKField = lnPK
 T 	  Ba U
 	 LLNONEWPK	 LCPKFIELD LNPK THIS SETERROR GETBLANKRECORD CREATENEWID	 CERRORMSG CPKFIELD NUPDATEMODE    
 C   %C  
1  B- 
 HB p    c 
 ^J      : T C select * from  	 
  where 0=1    %   C  
    B- 
 ^J     p> %C select * from  	 
  where 0=1    
_ C  
    B- 
 ^J    %  
 ^J 
   Ba U  LORECORD LNRESULT THIS SETERROR OPEN	 NDATAMODE ODATA OSQL EXECUTE	 CFILENAME	 CERRORMSG OHTTPSQL LCOMPAREUPDATES	 OORIGDATAx       %C  
+  B- 
 H< j      T  LOCATE FOR   
 &lcCmd
 %C4  ^J   Ba    j T   	 TSQLQuery7 T  	  select * from  
   WHERE    T C    % B C  
    B-  %CN f ^J   B   B- U  LCFILTER LCCMD LNRESULT THIS OPEN	 NDATAMODE ODATA OSQL
 CSQLCURSOR CSQL	 CFILENAME EXECUTE SETERROR	 CERRORMSG    %   "  Ba " %C       
O  B- 
 F  
 T 
 T    +CC 
q` T  	 INDEX ON CC ]@  TAG CC @CCC ]
   FOR C ]   6 %CC U T    DESCENDING  %CC TI T    UNIQUE  T  C
  T    %C 
 	  T
 C wwEvalN C  
    3 Q
 %   T     Ba U
  LLRETURNINDEXSTRING THIS	 NDATAMODE
 OPENEXCLUSIVE	 CDATAPATH	 CFILENAME CALIAS LNX LCOUTSTR ALL LOEVAL EXECUTE VRESULT      
 C   %C  
8  B-  T    %C  {   lnPk = THIS.oData.&lcPKField
 
 H        DELETE FOR &lcPKField = lnPk
   NH T C DELETE FROM  
   WHERE     =C  _  	  % J C      B-    H T C DELETE FROM  
   WHERE     =C  _  	  %  
 C      B-  
 C 
  Ba U  LNPK	 LCPKFIELD LNRESULT THIS SETERROR OPEN CPKFIELD	 NDATAMODE OSQL EXECUTE	 CFILENAME	 CERRORMSG OHTTPSQL GETBLANKRECORD
     U 
 LCFILENAME         T  CC  	      6  T CC 	     6  T CC 	     6
 C   %C 	 
 	 B   %C  
 C   C
  T      %C    T   *  %C  FROM    % 
  T/ T      FROM  'C     '  % T      FROM C       %C    SELECT a
 
 T   SELECT     T    
 H  
  s %C  INTO   1" T    
  INTO CURSOR   
 &lcSelect
 %C 
[	 B  o T     
  T     T     T C       %  
 C     	 B   T     T CN  
  T     T     T C       %  
 C     	 B   T      %   C       Q  	 B  U  LCSELECT LCCURSOR LNRESULTMODE LNRESULT THIS CSQL
 CSQLCURSOR NRESULTMODE SETERROR OPEN	 NDATAMODE	 CDATAPATH	 CFILENAME
 STARTSWITH LCOLDCURSOR OSQL EXECUTE	 CERRORMSG OHTTPSQL CONVERTDATA %    h M C= Update Structure is supported only for physical Fox tables...    B-  %C     Ba  %C    $ T   CCCC    dbfл " %C          
  B- 
 F    Q T     T     T   C] T   C] \ C        	 
 C  
    
 C   
 C  
  (   Q         .* T     T     Ba U  THIS	 NDATAMODE SETERROR	 CFILENAME	 CDATAPATH
 OPENEXCLUSIVE CALIAS
 LCFILENAME
 LCDATAPATH CREATETABLE OPEN REINDEXu         %C  0  Ba  %C W  T  datarow  %C   T 	 sqlresult  %C   %  

  T CC@   T C  @   T C wwXMLN T   
 Hg   3 T  C     	    p T 
  T  C     	     T 
  T  C     	    ) CCW THIS.cResultXML       "* CCW THIS.cResultXML   1     Q
 XMLADAPTER T C
 XMLAdapterN CCaC    C THIS.cResultXML 
     T  C          T 
  T  C         
G T 
  T  C         W T  a T    ٮ ,cpkfield,cskipfieldsforupdates,ndatamode,lerror,nresultmode,calias,cfilename,cdatapath,csql,csqlcursor,cerrormsg,cresultxml,cconnectstring,cidtable,nupdatemode,osql,vresult, T    T  C           T C  $ T C] \C] .xml C  C      T C AdoDB.RecordSetN C     T   
      (g$ T C] \C] .dbf (  T  C  a   C  *  Ba U  LNRESULTMODE	 LCDOCROOT LCTABLE LCROW LOXML THIS CLASS CDOCROOTNAME
 CRESULTXML CURSORTOXML NCREATEDATASTRUCTURE OXA ADDTABLESCHEMA TOXML OBJECTTOXML ODATA LRECURSEOBJECTS CPROPERTYEXCLUSIONLIST LCXML CURSORTOADOXML LCFILE FILE2VAR	 ENCODEXML ORS OPEN VRESULT	 ENCODEDBF      %C  
) 	 B   T  -
 HH       &lcSQL 
 %   
 T     T      > T      T C       T  	 TSQLQuery %  
' C  
  	 	 B   T        T      T C       %    C  
  	 	 B   %  

   
 	 B   	 B  U
  LCSQL LNRESULT THIS OPEN LERROR	 NDATAMODE OSQL
 CSQLCURSOR EXECUTE SETERROR	 CERRORMSG NAFFECTEDRECORDS OHTTPSQLR       T C
 wwXMLStateN C      BC      U 
 LCPROPERTY
 LOXMLSTATE LOADXML THIS ODATA XML GETPROPERTYq        T C
 wwXMLStateN C      C        T   C   U	 
 LCPROPERTY LCVALUE
 LOXMLSTATE LOADXML THIS ODATA XML SETPROPERTY GETXML     %C   OY  T     T      T   Ba  %C   C  %C    T  C wwSQLN  T   %C      
  B-   Ba U  LVSQL THIS OSQL CCONNECTSTRING	 NDATAMODE CONNECT 
 H
       E  %C   A  Q        g  T         T     U  THIS	 NDATAMODE CALIAS OSQL OHTTPSQL
  Ba U  -     %C  N- 
 T   
 H>     T C wwXMLN T  a T C        %    C 	    B-  2 T C wwXMLN T C    
    %   C 	    B-   Ba U  LCXML LNMODE LOXML LRECURSEOBJECTS LVRESULT XMLTOOBJECT THIS LERROR SETERROR	 CERRORMSG ODATA+        %C  ] 1 C! No parameter passed to importdata   B- 
 Hn     %C   T 
 TXMLResult  %C 
  C    oC-   T C wwXMLN BC            V T C wwXMLN BC       C   %C  T 
 TXMLResult  C   Ba'         
 T C wwXMLN BC   	      G T C wwXMLN T 
 a BC         ( %C ~ T 
 TXMLResult $ T C] \C] .dbf T C    
 
 %  Q     o __IMPORTǼ  Q    C  *	 B   Ba U  LNMODE LCXML LCALIAS THIS SETERROR LOAD LOXML XMLTOCURSOR XMLTOOBJECT ODATA LRECURSEOBJECTS LCFILE LLRESULT	 DECODEDBF __IMPORT     
 C   T C   %C  
 
 % Q 
     / C Backup Directory doesn't exist.   B-   (C     Q U  LCPATH LLCREATE THIS SETERROR LNRESULT QUERY	 CFILENAME7      %C   O0 
 T    H  T C  N  T    
 Hl '      T    T         T     C       ' T   T     T 	  	  	 B  U
  LCCLASS LOOBJECT	 NDATAMODE THIS	 CDATAPATH CCONNECTSTRING SETSQLOBJECT OSQL
 CSERVERURL OHTTPSQL  GT G GM( G{ G  G G." %       k  T  CC      T  C]CC      U  APPLICATION	 STARTMODE THIS
 CAPPSTARTPATH
 SERVERNAME PATHw     ! T C wwValidationErrorN T     %C 
\  T     C      U  LCERROR LCCTLID LOERROR CMESSAGE COBJECTNAME THIS OVALIDATIONERRORS ADDJ  %C   7 % T   C wwValidationErrorsN  B    U  THIS OVALIDATIONERRORS         %C 7  T  * 
 C   %C  
a  B- 
 Hr     ? T C Select    from  
   where    	  %   ^J   %    ^J 
   T   |
 ^J   %  D
 ^J 
  - C GetRecord - Record not found.   B- "       %   T     T    ? T C select    from     where      % ` %  U C      B-  %CN  ^J   %   ^J 
   T   
 ^J   %  
 ^J 
   C No match found.   B-   Ba U  LCFILTER LCFIELDLIST LORECORD	 LCPKFIELD LNRESULT THIS SETERROR OPEN	 NDATAMODE QUERY CALIAS ODATA LCOMPAREUPDATES	 OORIGDATA NUPDATEMODE LOSQL OHTTPSQL OSQL EXECUTE	 CFILENAME LERROR	 CERRORMSG  U   createnewid,      load     save     open/    
 statusmessage     seterror     news     getblankrecord     find     reindex     deleteu      createtable"     query#     updatestructure'     convertdataJ*     execute0     getpropertyZ3     setproperty3     setsqlobject4     close5     validate6     loadfromxml6    
 importdata78     backup;     createchildobject<     setcomenvironment>     addvalidationerrorp?     ovalidationerrors_access;@     loadbase@     InitD    1 1 " A  A aA  A  A A    Q Q A   A  A       A B A  A   A  A A   A B "Aa A Bq  #Q2a A A A  3  1 !q A  A "q A  A   A    A q A !q  B A R1A q A   A    A q A A r 3   q A "q A  A AQ qA q Q qA A CA  A1 1q A Aq a1q A  A A 1q A A CQ A 1q A Aq 1q A  BA 1q A A A  3  q q A  A"A     aq A A C A aq A A aA!abaA A r 3 q  3   A A  2 q   #q A   q A   A r 2   "q A  A Aaq A  Aaq A  A  A r 2 q  "q A  A   q A AqBaq A  A A A s 3 q Cq A "q A    1"A !A 2A  cA B B  A r 3 q   "q A  A  AAaq A Aaq A A  r 2 q 2  q  " A A   A A QA B A  A!A     A A11a A 2 A11a A 2A a A  3 Bq A "r A !AA #q A  A 2    C r 2 1q  r A  AA  aA    !A A R Q RA A bB r 3 q q " A   A    A Aaa A 2Aa1a A   A A  3 q q a3  z bQr4 q Raq A R!A q A A r 3  A! A A A A 2 t 2  R A  Q 1q A  R1q A A r 2  q  q A   qA E QQQQS qA  q sQqQ Q qA Ab 1 A  A r 3      q A A RC 4 q q R  A 2 A1A11A11A  2 e b  a b a a # A  3  A B3 "QA  2     A  "q A  A  A    A q A !A A 1A q A   A    A q A A r 3 8                            X   

  t  z        ]"        x"  (  E  (  (  )    +  =)  )    4  )  ,    H  >,  $/    c  ?/  2      )2  5      6  9  *    9  9  R    9  A  U    A  \F      ~F  R    `  R  7W  P    YW  W       X  Z      Z  G\      c\  S]      r]  ]      ^  `      `  li      i  j  9    j  Gm  P    om  0p  k  +  Yp  )q    3  Xq  q    8  r  ~x    p  x  +y     )   O                       Dcdatapath Location of the data
cfilename Filename of the master file of this business object.
calias The Alias of the master file.
cidtable Table used to generate new PK Ids.
odata Data member that receives all of the field names as property values.
cerrormsg Any error messages that occurred.
lerror Error flag for the previous operation. Note this property must be managed by the developer for custom methods.
nupdatemode Determines whether the data member is in edit or  new mode. 1-edit mode, 2 - New
nresultmode Determines how data requests are returned. 0 - VFP Cursor, 2 - XML, 4 - ADO rs
csqlcursor Requests that return a Fox cursor will use this name for the cursor name.
cresultxml Methods returning XML will return the XML in this property.
csql SQL String for a query
vresult Variable result property. Used at this point only for ADO recordsets returned as a result from queries.
cconnectstring SQL ConnectString if DataMode=2
osql wwSQL object that handles data connection if nDatamode = 2. All SQL commands run through this object for remote data.
ndatamode Data access mode for the business object. 0 - Fox Data native, 2 - ODBC (SQL Server)
cskipfieldsforupdates Property that holds fields that are skipped for Insert and Update statements built on the fly. Use this if you pull extra fields that aren't part of the base cursor used in Save operations.
cpkfield The field used as the primary key in the table. This field must be an integer or numeric field.
lvalidateonsave Flag that determines whether a Valid
ohttpsql wwHTTPSQL object reference used for nDataMode=4 to do data access on the Web Server.
cserverurl Full Server URL used for HTTP communication.
ciddatapath The path where the ID table for auto-generation of PKs is found. Blank by default which assumes the path is in the Fox path.
cappstartpath Location of the startup directory where the COM server is loaded. Only set if SetCOMEnvironment is called.
oorigdata Optionally used data member used to hold the original loaded data to allow comparing fields before saving.
lcompareupdates When .T. checks to see what changes have occurred prior to making updates to data.
ovalidationerrors A wwCollection of Validation Error Objects
_memberdata XML Metadata for customizable properties
*createnewid Creates a new ID number for the table using the ID table.
*load Loads the oData member with a record accessed by PK.
*save Saves the current data member in oData to the underlying table. 
*open Opens the data source or remote connection. For ODBC commands the oSQL member holds the SQL connection.
*statusmessage Displays status information. Use this method to have the business object communicate with whatever output mechanism required. Default is a WAIT WINDOW...
*seterror Sets the error flag and error message properties.
*new Creates a new oData member. Creates a PK value and sets any defaults coded in the New method.
*getblankrecord Retrieves an empty record and creates an empty oData member. Note no defaults are set.
*find Tries to find a record based on a filter string and sets the oData member. Only the first item found is returned so you probably want to reserve this for known lookups of unique items.
*reindex Used to PACK and Reindex the data files. This method should be implemented by all business objects. The default behavior simply PACKs the file.
*delete Deletes a specific item
*createtable Create the primary table for this object.
*query High level query method that is aware of the data mode in operation. For porting data between different data layers use this method for SQL commands that can run against any backend.
*updatestructure Update the structure of the file based on the CreateTable method's structure. Creates a temp table and imports the data into it then renames all.
*convertdata Converts output into the requested resultmode. 0-Cursor 1-XML 2-XML w/Schema 3-XML w/DTD 11-oData XML 12-oData XML w/Schema 13-oData XML w/DTD 20-Hierarchical XML 30-ADO 40-EncodeDBF
*execute Executes a fully qualified raw SQL statement through the class. Can be used for any backend data command using either VFP syntax or SQLExec() style SQL commands.
*getproperty Retrieves a property out of the XML field. Properties can be written with SetProperty.
*setproperty Sets a property value in the XML field. Note: for performance reasons no checks are performed if the XML field exists.
*setsqlobject Assigns existing SQL object to the oSQL object or creates one if a connection string is passed. Handles updating data mode and other admin tasks.
*close Closes the currently open master table
*validate Virtual method that can be used to hook up validation logic. No implementation in the base class.This method typically contains code that checks the content of the oData member. Note you have to call this method manually - it isn't called from the Save() 
*loadfromxml Loads the object from an XML source. 0 - load oData member, 2 - load entire object recursively (requires object to be pre-loaded with property values)
*importdata Imports data exported with ConvertData. 1-XML from Cursor 2-XML w/Schema 3-XML w/DTD 11-oData XML 12-oData XML w/Schema 13-oData XML w/DTD 20-Hierarchical XML 40-DecodeDBF
*backup 
*createchildobject Creates a Child Object and sets the appropriate connection properties by passing them on to the child object.
*setcomenvironment Sets the default com environment when running under COM and ASP especially.This method can be called from Init.
*addvalidationerror Adds a validation error to the oValidationErrors collection. Pass error string and object name (optional)
*ovalidationerrors_access 
*loadbase 
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _1EW0XXE8Z 859266697H  7  U        r  P  o            !              c      q       COMMENT RESERVED                                                      6                                   WINDOWS _RO908L0WK1126002876              6    D  U            .  :          6             COMMENT RESERVED                                                      ך                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     VERSION =   3.00      1      Class      1      	wwsql.vcx      wwsql      custom      Pixels      
..\wconnect.h      wwadosql      wwsql      wwadosql      custom      Class      custom      wwsql      
..\wconnect.h      Jluseconnection
linternalerror
lparameterreset
assigncommandparameters
      oexception
ncommandmode
      Height = 17
Width = 98
ncodepage = 0
oadoconn = .NULL.
lkeepconnection = .F.
oexception = .NULL.
ncommandmode = 1
Name = "wwadosql"
     ancodepage The codepage used to convert data coming in from the server. Use 65001 for UTF-8 Unicode encoding which works for all languages.
oadoconn ADO Connection object that is cached.
lkeepconnection
oexception Internal Error object used.
ncommandmode The command mode that we're currently in. Usually 1 for text commands, or 4 for Stored Procs.
     1ZPROCEDURE executestoredprocedure
#IF VERSION(5) > 700
PARAMETERS lcProcedure, llNoCursorReturned

IF llNoCursorReturned
   RETURN THIS.ExecuteNonQuery(lcProcedure,.t.)
ELSE
   lnResult = THIS.Execute(lcProcedure,,.t.)
   IF lnResult < 1
      RETURN .F.
   ENDIF   
ENDIF   

RETURN .T.
#ENDIF
ENDPROC
PROCEDURE execute
LPARAMETER lcSQL, lcResultCursor, llStoredProc
#IF VERSION(5) > 700
this.lInternalError = .f.

IF EMPTY(lcSQL)
   lcSQL = THIS.cSQL
ELSE
   THIS.cSQL = lcSQL
ENDIF

*** Delegate to ExecuteNonQuery for Insert and Updates
IF LOWER(lcSQL) = "insert"  OR LOWER(lcSQL) = "update" OR LOWER(lcSQL) = "set "
   IF this.ExecuteNonQuery(lcSQL)
      RETURN 1
   ENDIF
   
   RETURN -1
ENDIF

IF THIS.nSQLResult = 0
  THIS.SQLCancel()
ENDIF  

IF EMPTY(lcResultCursor)
  lcResultCursor = this.cSqlCursor
ENDIF

*** Always reset the SQL cursor
THIS.cSQLCursor = "TSQLQuery"

THIS.lError = .F.
THIS.cErrorMsg = ""
THIS.aErrors = .F.  && clear out the errors

LOCAL lnOldCP
lnOldCp = SYS(3101)
IF this.nCodePage # 0
   SYS(3001,this.nCodePage)
ENDIF

*** Hook up and optionally open the connection
IF !THIS.Connect()
   this.nSqlResult = -1
   this.lparameterreset = .t.
   IF this.nCodePage # 0
      SYS(3001,lnOldCp)
   ENDIF
   RETURN -1   
ENDIF

this.cSql = lcSql

LOCAL oCommand as ADODB.Command
*oCommand = CREATEOBJECTEX("AdoDB.Command","","")  && Early binding causes problems
oCommand = CREATEOBJECT("AdoDb.Command")
oCommand.ActiveConnection=this.oadoconn 
IF this.lNamedParameters
   oCommand.NamedParameters = .t.
ENDIF

IF llStoredProc
   this.nCommandMode = 4  && AdcmdStoredProc
   oCommand.CommandType = 4
ELSE
   this.nCommandMode = 1  && adCmdText
ENDIF   

*** Assign the SQL command Text so parms ALWAYS get parsed
oCommand.CommandText = lcSql

*** Parse parameters from oParameters collection 
*** OR using VFP syntax
THIS.AssignCommandParameters(oCommand)

*? oCommand.CommandText


*** Open Forward Only Cursor for reading
LOCAL oRS as Adodb.Recordset
oRS = oCommand.Execute()

this.lError = this.lInternalError

*** If we have an open object - we can work with it
IF VARTYPE(oRS) = "O" 
   IF oRS.State = 1  && Make sure we have a recordset
      LOCAL llError, llResult

      LOCAL ca as CursorAdapter
      ca = CREATEOBJECT("CursorAdapter")
      ca.Alias = lcResultCursor
      ca.DataSourceType = "ADO"
      *ca.SelectCmd = lcSQL 
      IF THIS.nCodePage # 0
         ca.ADOCodePage = this.nCodePage
      ENDIF   
      ca.FetchSize = 99999999
      ca.AllowInsert = .f.
      ca.AllowDelete = .f.
      ca.AllowUpdate = .f.

     
      IF USED(lcResultCursor)
         USE IN (lcResultCursor)
      ENDIF

      *** Do a cursor fill from the RECORDSET
      llResult = ca.CursorFill( .F., .F., 0, oRS)

   *!*      *** Let CA handle the parameters
   *!*      llResult = ca.CursorFill(.F., .F., 0, oCommand)

      *** If closing close immediately
      IF !this.lKeepConnection
         this.oADOConn.Close()
      ENDIF   

      IF !llResult
         this.Fillerrors()
      ELSE   
         ca.CursorDetach()
         oRS = .null.
         SELECT (lcResultCursor)
      ENDIF
   ENDIF
ELSE
   this.FillErrors()   
   
   *** If closing close immediately
   IF !this.lKeepConnection
      this.oADOConn.Close()
   ENDIF   
ENDIF

*** Loop through and update parameters
IF llStoredProc 
   FOR EACH Parm IN oCommand.Parameters   
      IF Parm.Direction = 2 OR Parm.Direction = 3
         this.oParameters[Parm.Name].Value = Parm.Value
         IF TYPE( Parm.Name ) # "U"
            lcName = Parm.Name
            &lcName = Parm.Value
         ENDIF
      ENDIF
   ENDFOR 
ENDIF

*** Reset to default
IF this.nCodePage # 0
   SYS(3001,lnOldCp)
ENDIF


IF this.lError 
   this.nSqlResult=-1
   RETURN -1
ENDIF

this.nSqlResult = 1

RETURN 1
#ENDIF
ENDPROC
PROCEDURE connect
LPARAMETER lcConnectString, llAsynch, llNoAutoTransactions
LOCAL llResult, loException
#IF VERSION(5) <  800
   this.cerrormsg = "The wwADOSql class requires VFP 8 or later"
   this.lError = .t.
   RETURN .f.
#ELSE   
*** AYSNC OPERATION NOT SUPPORTED AT THE MOMENT
*** AUTOTRANSACTIONS NOT SUPPORTED AT THE MOMENT
IF ISNULL(this.oADOConn)
   this.oADOConn = CREATEOBJECT("ADODB.Connection")
ENDIF   

IF EMPTY(lcConnectString)
   lcConnectString = THIS.cConnectString
ELSE
   THIS.cConnectString = lcConnectString
ENDIF

*this.oADOConn.ConnectionString = lcConnectString
LOCAL oConn as ADODB.Connection
oConn = CREATEOBJECT("ADODB.Connection")
   
llResult = .T.
TRY 
   IF this.oADOConn.State = 0  && adStateClosed
      THIS.oADOConn.Open(lcConnectString)
   ENDIF
CATCH TO loException
   *this.FillErrors()
   this.cErrorMsg = this.oAdoConn.Errors.item(1)
   this.lError =.t.
   llResult = .F.
ENDTRY

RETURN llResult
#ENDIF

ENDPROC
PROCEDURE Destroy
*!*   IF THIS.nSQLResult = 0
*!*      =SQLCancel(THIS.nSQLHandle)
*!*   ENDIF   

IF !ISNULL(THIS.oadoconn)
   IF this.oADOConn.State = 1
      this.oADOConn.Close()
   ENDIF
   this.oADOConn = .NULL.
ENDIF  


ENDPROC
PROCEDURE executenonquery
LPARAMETER lcSQL,  llStoredProc
#IF VERSION(5) > 700
LOCAL lnOldCp

this.lInternalError = .f.
this.naffectedrecords = 0

*** Set up or open connection
IF !this.Connect()
   RETURN .f.
ENDIF   

lnOldCp = SYS(3101)
IF this.ncodepage # 0
   SYS(3101,this.nCodePage)
ENDIF   
   
this.cSql = lcSql

LOCAL oCommand as ADODB.Command
oCommand=CREATEOBJECT("ADODB.Command")
oCommand.ActiveConnection=this.oadoconn 
IF this.lNamedParameters
   oCommand.NamedParameters = .t.
ENDIF

IF llStoredProc
   this.nCommandMode = 4  && AdcmdStoredProc
   oCommand.CommandType = 4
ELSE
   this.nCommandMode = 1  && adCmdText
ENDIF   

*** Assign the SQL command Text so parms ALWAYS get parsed
oCommand.CommandText = lcSql

*** Parse parameters from oParameters collection 
*** OR using VFP syntax
THIS.AssignCommandParameters(oCommand)

*!*   ACTIVATE SCREEN
*!*   ? oCommand.CommandText

lnRecords = 0
oCommand.Execute(@lnRecords,,128)

this.lError = this.lInternalerror 

*** Updated affected records
this.naffectedrecords = lnRecords

*** Loop through and update parameters
IF llStoredProc OR LOWER(lcSQL) = "exec"
   FOR EACH Parm IN oCommand.Parameters   
      IF Parm.Direction = 2 OR Parm.Direction = 3
         this.oParameters[Parm.Name].Value = Parm.Value
         IF TYPE( Parm.Name ) # "U"
            lcName = Parm.Name
            &lcName = Parm.Value
         ENDIF
      ENDIF
   ENDFOR 
ENDIF

IF this.nCodePage # 0
   SYS(3101,lnOldCP)
ENDIF

RETURN !this.lError
#ENDIF
ENDPROC
PROCEDURE callstoredprocedure
PARAMETERS lcProcedure, pvResult, lvParm1, lvParm2, lvParm3, lvParm4, lvParm5, lvParm6, lvParm7, lvParm8
LOCAL lnCount, lnX, lcParm

#IF VERSION(5) > 700

lnCount = PCOUNT()
IF lnCount > 2
   FOR lnX = 3 TO lnCount
      lcParm = "lvParm" + TRANSFORM(lnX-2)
      this.AddParameter( EVALUATE(lcParm),lcParm)
   ENDFOR
ENDIF
IF lnCount = 1
   pvResult = .NULL.
ENDIF

lnResult = this.Execute(lcProcedure,,.t.)

IF lnResult < 1
   RETURN .f.
ENDIF

IF !ISNULL(pvResult) AND !ISNULL(THIS.oParameters )
   FOR EACH loParm IN this.oParameters
       IF !ISNULL(loParm.Direction) AND loParm.Direction = "OUT"
          pvResult = loParm.Value
          RETURN
       ENDIF
   ENDFOR
ENDIF

RETURN .T.
   
#ENDIF   
ENDPROC
PROCEDURE assigncommandparameters
*** Private method used to write out parameters to the 
*** ADO COmmand object. Once done it clears the list of parameters
LPARAMETERS oCommand

#IF VERSION(5) > 700

LOCAL lcSQL, lcOrigSql, llParseString, lcParm
*** Extract out ?  style parameters and add them to the parm collection

lcSql = THIS.cSQL &&oCommand.CommandText
lcOrigSql = lcSQL

*** If no parameter collection is passed try to parse parms
*** THIS DOESN"T WORK BECAUSE OF THE TYPE ISSUES!
LOCAL llParseString
llParseString = .F.
IF ISNULL(THIS.oParameters)
   llParseString = .t.
ENDIF   

LOCAL llParms
llParms =  !ISNULL(this.oparameters) and this.oParameters.Count > 0

*** Parse out the VFP style parameters and add to parameters collection
lnAt = AT("?",lcSql)
DO WHILE lnAt > 0
   lcSql = SUBSTR(lcSql,lnAt+1)

   IF lcSQL = " "
      lnAt = AT("?",lcSql)
      LOOP
   ENDIF
   
   lcParm = GETWORDNUM(lcSql,1," ,")
   
   IF RIGHT(lcParm,1) # "'"  
      lcParm = CHRTRAN(lcParm,")","")
      
      *** Check for invalid chars      
      IF LEN(lcParm) > 50 OR CHRTRAN(lcParm,"?=&,%*$!","") # lcParm
         lnAt = AT("?",lcSql)
         LOOP
      ENDIF
      
      IF lcParm = "@"  && Out Parm
         lcParm = SUBSTR(lcParm,2)
         this.AddParameter( EVALUATE(lcParm),lcParm,"OUT" )
         
         *** Strip out the parm name and just leave ? 
         lcOrigSql = STRTRAN(lcOrigSql,"?@" + lcParm,"?")
      ELSE
         *** Add only named parameters if we have no collection to start with
         IF !EMPTY(lcParm) AND !llParms
            this.AddParameter( EVALUATE(lcParm),lcParm )
         ENDIF
         *** Strip out the parm name and just leave ? 
         lcOrigSql = STRTRAN(lcOrigSql,"?" + lcParm,"?",1,1)
      ENDIF

   ENDIF
   lcSQL = SUBSTR(lcSQL,2)
   lnAt = AT("?",lcSQL)
ENDDO

IF ISNULL(THIS.oParameters)
   RETURN .t.
ENDIF

*!*   ACTIVATE SCREEN 
*!*   ? lcOrigSql

IF this.nCommandmode = 1
   oCommand.CommandText = lcOrigSql
ENDIF   


*** Take the internal parameter collection and parse into ADO parameters
FOR EACH loParm IN this.oParameters
      LOCAL oParameter as ADODB.Parameter
      oParameter = CREATEOBJECTEX("ADODB.Parameter","","")  && Early Binding
      oParameter.Direction = 1
   
      oParameter.Value = loParm.Value

      IF !ISNULL(loParm.Name )
        oParameter.Name = loParm.Name
      ENDIF

      IF !ISNULL(loParm.Type)
        oParameter.Type  = loParm.Type
        IF !ISNULL(loParm.Size)
           oParameter.Size = loParm.Size
        ENDIF
        IF !ISNULL(loParm.Precision)
           oParameter.Precision = loParm.Precision
        ENDIF
      ELSE
        lcType = TYPE("loParm.Value")
        DO CASE
        CASE lcType = "C"
            LOCAL lnAdoStringType, lnAdoStringSize
            IF THIS.nCodePage = 65001  && UTF-8 Encoding (Unicode enabled)
               lnADOStringType = 202
               lnADOStringSize = 4000
            ELSE
               lnADOStringType = 200
               lnADOStringSize = 8000
            ENDIF
           
            oParameter.Type = lnAdoStringType
            IF !ISNULL(loParm.Direction) AND ;
               UPPER(loParm.Direction) = "OUT"
               oParameter.Size = lnAdoStringSize
            ELSE
               oParameter.Size = LEN(loParm.Value)
            ENDIF
            
            IF oParameter.Size < 1
               oParameter.Size = 1
            ENDIF
            
            *** Switch to Text/nTEXT over 8000/4000
            IF oParameter.Size > lnAdoStringSize
               oParameter.Type= lnAdoStringType + 1  && adLongVarWChar 
               oParameter.Size = LEN(loParm.Value)
            ENDIF

            
       CASE lcType = "N"
           oParameter.Type= 5  && adDouble
           oParameter.Size = 16
         CASE lcType = "L"
            oParameter.Type= 11  && adBoolean
         CASE lcType = "T" OR lcType = "D"
            oParameter.Type = 7 &&adDate
         CASE lcType = "W" OR lcType = "Q"
            oParameter.Type= 204  && adVarBinary
            oParameter.Size = LEN(loParm.Value)
            IF (oParameter.Size) > 8000
               oParameter.Type= 205  && adLongVarBinary
               oParameter.Size= .null.
            ENDIF
            IF oParameter.Size = 0
               oParameter.Size=1
            ENDIF
        OTHERWISE
            oParameter.Type = 12 && adVariant
        ENDCASE
      ENDIF
      
      IF !ISNULL(loParm.Direction) AND ;
         UPPER(loParm.Direction) = "OUT"
            oParameter.Direction=3  &&adOutput
      ENDIF
      
*!*   Try 
      oCommand.Parameters.Append( oParameter )
*!*      CATCH TO loException
*!*         ACTIVATE SCREEN
*!*         ? loException.Message
*!*         SET STEP ON 
*!*      EndTry
ENDFOR

*** Reset parameters on next ADD operation
this.lparameterreset = .t.

RETURN this.lError
#ENDIF
ENDPROC
      Pixels     WhatsThisHelpID = -1
cconnectstring = 
nsqlhandle = 0
csql = 
csqlcursor = TSQLQuery
cerrormsg = 
nerrorno = 0
cerrormsg2 = 
nsqlresult = -5
cskipfieldsforupdates = 
linternalerror = .F.
oparameters = .NULL.
lparameterreset = .F.
loutparameters = .F.
naffectedrecords = 0
lnamedparameters = .F.
_memberdata =      113<VFPData><memberdata name="enableconnectionpooling" type="method" display="EnableConnectionPooling"/></VFPData>

Name = "wwsql"
     	Zcconnectstring
nsqlhandle
csql
csqlcursor
cerrormsg
nerrorno
lerror
cerrormsg2
nsqlresult
nodbcerrorno
luseconnection .T. if a connection was used to connect, .f. if a DSN, UID, PWD was used. Used internally in reconnection.
cskipfieldsforupdates Used to exclude fields explicitly from the INSERT and UPDATE statement generation routines in SQLBuildInsert/UpdateStatement methods.
linternalerror
oparameters A set of SQL parameters. Also used to retrieve parameter results in stored procedure calls.
lparameterreset Internal property used to determine when statement is done and next AddParameter operation causes the parameter collection to be cleared.
loutparameters Internally set property set when any OUT parameters are set by AddParameter. This flag is used to determine whether parameters need to be parsed back into the parameters collection.
naffectedrecords Number of records affected by the last NonQuery operation.
lnamedparameters Used only with the ADO version. If set adds parameters in AddParameters as Named Parameters which allows stored procedures to call with partial parameter lists if parameters are 
_memberdata XML Metadata for customizable properties
*execute 
^aerrors[1,1] 
*fillerrors 
*setasynchmode 
*sqlcancel 
*connect Connects to a datasource via connection or connect string
*begintransaction 
*rollback 
*commit 
*addsql Adds text to the current SQL String
*connectbydsn 
*createodbcdatasource Creates an ODBC datasource
*sqlbuildinsertstatementfromobject 
*sqlbuildupdatestatementfromobject 
*callstoredprocedure 
*insertdatafromcursor 
*insertbinaryfield Inserts an Image field into a SQL Server database.
*readbinaryfield 
*executenonquery Executes a SQL Command that doesn't return a SQL result set.
*xerror 
*addparameter Adds a SQL Parameter to the current Sql command. Parameters are added as named parameters. 
*assigncommandparameters Adds named parameters assigned with AddParameter into the SQL statement.
*executestoredprocedure Executes a stored procedure on the server. Provide the Stored procedure name and use AddParameter to add any named parameters.
*close Closes a SQL connection if one is kept open
*getaffectedrows 
*enableunicodetoansimapping 
*enableconnectionpooling Enables Connection Pooling on ALL connections to SQL Server. Note: Must be called BEFORE any other commands are executed.
     VPROCEDURE execute
LPARAMETER lcSQL, lcResultCursor, llStoredProcedure
LOCAL lcParameterName
LOCAL ARRAY aCountInfo[1]

IF EMPTY(lcSQL)
   lcSQL = THIS.cSQL
ELSE
   THIS.cSQL = lcSQL
ENDIF

IF THIS.nSQLResult = 0
  THIS.SQLCancel()
ENDIF  

IF EMPTY(lcResultCursor)
  lcResultCursor = this.cSqlCursor
ENDIF

THIS.lError = .F.
THIS.cErrorMsg = ""
THIS.aErrors = .F.  && clear out the errors

*** Try to assign parameters as private vars
*** MUST DO THIS INLINE DUE TO PRIVATE VARS CREATED here
#IF wwVFPVersion > 7    && Parameters require collections
IF !ISNULL(THIS.oParameters) 
   *** Try to create each parameter
   FOR EACH loParm IN this.oParameters
      lcParameterName = loParm.Name
      IF ATC("?" + lcParameterName,lcSql) > 0 
         LOCAL &lcParameterName
         &lcParameterName = loParm.Value
         IF loParm.Direction = "OUT"
               lcSql = STRTRAN(lcSQL,"?" + lcParameterName,"?@" + lcParameterName,1,1,1)
         ENDIF
      ELSE 
         IF ATC("?@" + lcParameterName,THIS.cSQL) > 0
            LOCAL &lcParameterName
            &lcParameterName = loParm.Value
            loParm.Direction = "OUT"
            this.loutparameters = .t.
         ENDIF
      ENDIF
      
   ENDFOR   
ENDIF
#ENDIF

*** Actual Sql Executed
this.cSql = lcSql

#IF wwVFPVERSION > 8
	THIS.nSQLResult = SQLExec(THIS.nSQLHandle,lcSQL,lcResultCursor,aCountInfo) 
#ELSE
	THIS.nSQLResult = SQLExec(THIS.nSQLHandle,lcSQL,lcResultCursor) 
#ENDIF

this.lparameterreset = .t.

IF THIS.nSQLResult < 0
   THIS.lError = .t.
   THIS.FillErrors()

   *** Try Reconnecting and re-executing request
   IF (ISNULL(THIS.nODBCErrorNo) OR (THIS.nOdbcErrorNo=0) OR ;
      (THIS.nODBCErrorNo=14)) AND  THIS.Connect(THIS.cConnectString)
	#IF wwVFPVERSION > 8
		THIS.nSQLResult = SQLExec(THIS.nSQLHandle,lcSQL,lcResultCursor,aCountInfo) 
	#ELSE
		THIS.nSQLResult = SQLExec(THIS.nSQLHandle,lcSQL,lcResultCursor) 
	#ENDIF
      IF THIS.nSQLResult = -1
		 THIS.lError = .t.
		 THIS.FillErrors()
      ELSE
         THIS.FillErrors("CLEAR")
         #IF wwVFPVERSION > 8
	         this.naffectedrecords = aCountInfo[1,2]
	     #ELSE
	         this.naffectedrecords = RECCOUNT()
         #ENDIF
	  ENDIF
   ENDIF
ELSE
   THIS.lError = .F.
   IF SQLCommit(THIS.nSQLHandle) = -1
        THIS.lError = .T.
        THIS.FillErrors()
   ENDIF

#IF wwVFPVERSION > 8
	this.nAffectedRecords = aCountInfo[1,2]  &&RECCOUNT()   
#ELSE
	this.nAffectedRecords = RECCOUNT()   
#ENDIF   
   
   *** Try to parse Out parameters back into the 
   IF this.lOutparameters 
      FOR EACH loParm IN this.oParameters
         IF UPPER(loParm.Direction) = "OUT"
            lcParameterName = loParm.Name
            IF TYPE(lcParameterName) # "U"
               loParm.Value = EVALUATE(lcParameterName )
            ENDIF
         ENDIF
      ENDFOR
   ENDIF
   
ENDIF   

*** Always reset the SQL cursor
THIS.cSQLCursor = "TSQLQuery"

RETURN THIS.nSQLResult
************************************************************************
* wwSQL :: Execute
*********************************
***  Function: Executes a SQL Passthrough command on the server.
***            lError, lErrorNo and lErrorMsg get set on error
***      Pass: lcSQL    - (Optional) SQL to execute - (THIS.cSQL)
***    Return: SQL Result Code
************************************************************************
ENDPROC
PROCEDURE fillerrors
LPARAMETER lcClear
LOCAL lnLoc, lcErrorMsg

lcClear=IIF(type("lcClear")="C",UPPER(lcClear),"")

IF lcCLear = "CLEAR"
   THIS.lError=.F.
   THIS.nErrorNo = 0
   THIS.nODBCErrorno = 0
   THIS.cErrorMsg = ""
   RETURN
ENDIF
   
#DEFINE PARSESTRING "Server]"

lnCount = AERROR(laError)
IF lnCount > 0
   DIMENSION this.aErrors[1]
   ACOPY(laError,this.aErrors)

   lcErrorMsg = laError[2]
   lnLoc = ATC(PARSESTRING,lcErrorMsg)
   IF lnLoc > 0
      lcErrorMsg = SUBSTR(lcErrorMsg,lnLoc + LEN(PARSESTRING))
   ENDIF
   IF TYPE("THIS.nCodePage") = "N" 
      IF TYPE("laError[3]") = "C"
         lcErrorMsg = laError[3]
      ENDIF
      IF TYPE("laError[7]")="N"
         this.nOdbcerrorno = laError[7]
      ENDIF
   ELSE
      THIS.nODBCErrorno = laError[5]
   ENDIF

   THIS.nErrorNo = laError[1]
   IF ISNULL(THIS.nODbcerrorno) OR EMPTY(this.nOdbcErrorNo)
      this.nOdbcErrorNo = 0
   ENDIF
   THIS.cErrorMsg = lcErrorMsg + " ["+TRANS(THIS.nErrorNo)+":"+TRANSFORM(THIS.nODBCErrorNo)+"]"
ENDIF
#UNDEF PARSESTRING

ENDPROC
PROCEDURE setasynchmode
LPARAMETER llAsynch

IF SQLSETPROP(THIS.nSQLHandle, "Asynchronous", llAsynch) = 1
  RETURN .T.
ELSE
  RETURN .F.
ENDIF
ENDPROC
PROCEDURE sqlcancel
RETURN SQLCancel(THIS.nSQLHandle)
ENDPROC
PROCEDURE connect
LPARAMETER lcConnectString, llAsynch, llNoAutoTransactions

THIS.cConnectString = lcConnectString

*** Show no login
SQLSetProp(0, 'DispLogin', 3)

*** Show no warnings - fail and report as errors
SQLSetProp(0, 'DispWarnings', .F.)

IF WWVFPVERSION > 8
	*** Map binary fields to BLOB/VarBinary
	CURSORSETPROP("MapBinary",.T.,0)
ENDIF

IF ATC("=",lcConnectString) < 1
   *** Connection Passed
   THIS.nSQLHandle = SQLConnect(lcConnectString)
   llUseConnection=.T.
ELSE
   IF ATC("dsn=",lcConnectString) < 1
	   *** Full Connection string ( driver={sql server};database=WebStore;uid=test;pwd=test
	   IF ATC("server=",lcConnectString) = 0
	   	  lcConnectString = "server=.;" + lcConnectString
	   ENDIF
	   IF ATC("driver=",lcConnectString) = 0
	   	  lcConnectString = "driver={Sql Server};" + lcConnectString
	   ENDIF   
   ENDIF
   this.cConnectstring = lcConnectString    
   THIS.nSQLHandle = SQLStringConnect(  lcConnectString )
   llUseConnection = .F.
ENDIF

IF THIS.nSQLHandle < 1
   THIS.lError = .T.
   THIS.FillErrors()
   RETURN .F.
ELSE
   THIS.SetAsynchMode(llAsynch)
ENDIF   

IF llNoAutoTransactions
  SQLSETPROP(this.nSQLHandle,"Transactions" ,2 )
ENDIF  

RETURN .T.
ENDPROC
PROCEDURE begintransaction
RETURN THIS.Execute("BEGIN TRANSACTION")
ENDPROC
PROCEDURE rollback
RETURN THIS.Execute("ROLLBACK TRANSACTION")
ENDPROC
PROCEDURE commit
RETURN THIS.Execute("COMMIT TRANSACTION")
ENDPROC
PROCEDURE addsql
LPARAMETER lcCode

IF UPPER(lcCode)="CLEAR"
  THIS.cSQL=""
  RETURN
ENDIF
  
THIS.cSQL = THIS.cSQL + " " +lcCode
ENDPROC
PROCEDURE connectbydsn
LPARAMETER lcDSN,lcUID,lcPassword, llAsynch


THIS.lError = .F.
THIS.cConnectString = lcDSN
THIS.nSQLHandle = SQLConnect(lcDSN,lcUID,lcPassword)
IF THIS.nSQLHandle < 1
   THIS.lError = .T.
   THIS.FillErrors()
   RETURN .F.
ELSE
   THIS.SetAsynchMode(llAsynch)
ENDIF   

RETURN .T.

ENDPROC
PROCEDURE createodbcdatasource
LPARAMETER lcDSNName, lcConnectString
wait window "This  method is not implemented yet" nowait
RETURN
#IF .F.
DECLARE Integer SQLConfigDataSource ;
    in odbccp32.dll ;
    Integer, Integer,;
    String, String
settings="DSN=TestVFP"+chr(0)+;
         "Description=NEW_DSN_SQL7"+chr(0)+;
         "Server=Pro200"+chr(0)+;
         "Database=policia"+chr(0)+;
         "UID=Peter"+chr(0)


settings="DSN=TestVFP"+chr(0)+;
"Description=NEW_DSN_SQL7"+chr(0)+;
"Server=Pro200"+chr(0)+;
"SourceDB=C:\mssql7\data\policia.MDF"+chr(0)+;
"SourceType=MDF"+chr(0)+;
"UID=Peter"

y = SQLConfigDataSource(0,1,"TestVFP",settings)
#ENDIF



ENDPROC
PROCEDURE sqlbuildinsertstatementfromobject
LPARAMETER loData, lcFilename, loSQLRecord, llUseNamedParameters
LOCAL lcFieldList, lcValueList, loData, lnFields, lnX, lcField, lcType, lcValue,lcSQL

lcSQL = "INSERT " + lcFileName

lcFieldList = ""
lcValueList = ""

IF EMPTY(THIS.cSkipFieldsForUpdates) 
   lcSkipFields = ",TIMESTAMP_COLUMN,"
ELSE
   lcSkipFields = ",TIMESTAMP_COLUMN," + UPPER(THIS.cSkipFieldsForUpdates) + ","
ENDIF

*** If a SQL Record was passed used its structure to look for fields
*** otherwise use the data record
lnFields = AMEMBERS(laFields,IIF(VARTYPE(loSqlRecord)="O",loSqlRecord,loData) )

this.lInternalError = .F.
   
FOR lnX=1 TO lnFields
   lcField = laFields[lnX]
   
   *** We can't deal with Timestamp columns and any other fields to be skipped
   *** so just loop out of this field
   IF "," + UPPER(lcField) + ","  $ lcSkipFields
      LOOP
   ENDIF


   lcRawValue = EVALUATE("loData." + lcField)

   *** Handle case where an error occurred
   IF (this.lInternalError)
      this.lInternalError = .f.  && Field that doesn't exist in SQL but exists in local cursor
      this.lerror = .f.
      LOOP  && Skip this field
   ENDIF  
   
   lcType = VARTYPE(lcRawValue)
   
   IF !llUseNamedParameters
      DO CASE
         CASE lcType = "C"
            lcValue = ['] + TRIM(STRTRAN(lcRawValue,"'","''"))+ [']
         CASE lcType = "N" 
            lcValue = STRTRAN( TRANSFORM(lcRawValue),",",".")
         CASE lcType = "L"
            lcValue = IIF(lcRawValue,'1','0')
        CASE lcType = "D" OR lcType = "T"
         lcValue = TimeToCStrict(lcRawValue,.T.)
         CASE lcType = "Y"
            lcValue = TRANSFORM( lcRawValue,"" )
   	  CASE lcType = "X"  && NULL
            lcValue = "null"	  	 
         OTHERWISE
            LOOP   && Invalid Type - skip
      ENDCASE
      lcValueList = lcValueList + lcValue + ","
   ELSE
      LOCAL lcParmName
      lcParmName = "__" + lcField
      this.AddParameter(lcRawValue,lcParmName)
      lcValueList = lcValueList + "?" + lcParmName + ","
   ENDIF

   lcFieldList = lcFieldList + '[' +  lcField + '],'
ENDFOR

IF EMPTY(lcFieldList) OR EMPTY(lcValueList)
   RETURN ""
ELSE 
   lcFieldList = SUBSTR(lcFieldList,1,LEN(lcFieldList) - 1)
   lcValueList = SUBSTR(lcValueList,1,LEN(lcValueList) - 1)
ENDIF   

lcSQL = lcSQL + " (" + lcFieldList + ") VALUES (" +  lcValueList + ")"

RETURN lcSQL

ENDPROC
PROCEDURE sqlbuildupdatestatementfromobject
LPARAMETER loData, lcFileName, lcPkField, loOrigData, loSQLRecord, llUseNamedParameters
LOCAL loData, lnFields, lnX, lcField, lcType, lvValue, lcValue, lvPkValue, lvRawValue

IF EMPTY(lcPKField)
  lcPKField = "PK"
ENDIF

IF VARTYPE(loOrigData) = "O"
  llOrigData = .T.
  #IF VERSION(5) > 700
     IF COMPOBJ(loData,loOrigData) 
        RETURN ""
     ENDIF   
  #ENDIF
ELSE
  llOrigData = .F.
ENDIF

lcSQL = "UPDATE " + lcFileName + " SET"

IF EMPTY(THIS.cSkipFieldsForUpdates) 
   lcSkipFields = ",TIMESTAMP_COLUMN,"
ELSE
   lcSkipFields = ",TIMESTAMP_COLUMN," + UPPER(THIS.cSkipFieldsForUpdates) + ","
ENDIF

*** If a SQL Record was passed used its structure to look for fields
*** otherwise use the data record
lnFields = AMEMBERS(laFields,IIF(VARTYPE(loSqlRecord)="O",loSqlRecord,loData) )

this.lInternalerror = .f.

FOR lnX=1 TO lnFields
   lcField = laFields[lnX]

   *** We can't deal with Timestamp columns and any other fields to be skipped
   *** so just loop out of this field
   IF "," + UPPER(lcField) + ","  $ lcSkipFields
      LOOP
   ENDIF

   lvRawValue = EVALUATE("loData." + lcField)

   *** Handle case where an error occurred
   IF (this.lInternalError)
      this.lInternalError = .f.  && Field that doesn't exist in SQL but exists in local cursor
      this.lerror = .f.
      LOOP  && Skip this field
   ENDIF

   lcType = VARTYPE(lvRawValue)
   
   *** Skip the field that haven't changed if loOrigData was passed
   IF llOrigData AND lvRawValue == EVALUATE("loOrigData." + lcField)
      LOOP
   ENDIF

   IF !llUseNamedParameters   
   DO CASE
      CASE lcType = "C"
         lcValue = [']+ TRIM(STRTRAN(lvRawValue,['],[''])) + [']
      CASE lcType = "N" 
         lcValue = STRTRAN( TRANSFORM(lvRawValue),[,],[.])
      CASE lcType = "L"
         lcValue = IIF(lvRawValue,'1','0')
      CASE lcType = "D" OR lcType = "T"
         lcValue = TimeToCStrict(lvRawValue,.T.)
      CASE lcType = "Y"
         lcValue = TRANSFORM( lvRawValue,"" )
      CASE lcType = "X"
        lcValue = "null"
      OTHERWISE
         LOOP   && Invalid Type - skip
   ENDCASE

   lcSQL = lcSQL +  " ["+lcField + "]=" + lcValue + ","
   ELSE
      THIS.AddParameter(lvRawValue,"__" + lcField)
      lcSQL =  lcSql +  " [" + lcField + "]=?__" + lcField + ","
   ENDIF
ENDFOR

*** If no fields need updating return a blank string
IF LEN(lcSQL) < 1
   RETURN ""
ENDIF

lcSQL = SUBSTR(lcSQL,1,LEN(lcSQL)-1)  && Strip last comma

lvPkValue = EVALUATE("loData." + lcPKField)

IF VARTYPE(lvPkValue) = "C"
  lcSQL = lcSQL + " WHERE " + lcPkField +  "='" + lvPKValue + "'"
ELSE
   lcSQL = lcSQL + " WHERE " + lcPkField +  "=" + TRANSFORM( lvPKValue )
ENDIF   

RETURN lcSQL
ENDPROC
PROCEDURE callstoredprocedure
*** Note this parameter statement MUST BE PRIVATE (no LPARAMETERS)
PARAMETERS lcProcedure, pvResult, lvParm1, lvParm2, lvParm3, lvParm4, lvParm5, lvParm6, lvParm7, lvParm8
LOCAL lnX, lcParmString
PRIVATE pnResult 

lnParms = PCOUNT() - 2
lcParmString = ""


*** Only SP name passed - use parameters if any
IF lnParms = -1
   FOR EACH loParm IN this.oParameters
       IF !EMPTY(lcParmString)
          lcParmString = lcParmString + ","
       ENDIF
       IF loParm.Direction = "OUT"
          lcParmString = lcParmString + "?@" + loParm.Name 
       ELSE
          lcParmString = lcParmString + "?" + loParm.Name
       ENDIF
   ENDFOR
ELSE
   FOR lnX = 1 TO lnParms
      lcParmString = lcParmString + "?lvParm" + TRANSFORM(lnX) + ","
   ENDFOR

   IF !ISNULL(pvResult)
        lcParmString = lcParmString + "?@pvResult"
   ELSE
      *** Strip off trailing
      IF !EMPTY(lcParmString)
         lcParmstring = SUBSTR(lcParmString,1,LEN(lcParmString)-1)
      ENDIF
   ENDIF
ENDIF

lnResult = THIS.Execute("Exec " + lcProcedure + " " + lcParmString)
IF lnResult # 1
	RETURN .F.
ENDIF

IF !ISNULL(pvResult)
   RETURN pvResult
ENDIF

RETURN .T.
ENDPROC
PROCEDURE insertdatafromcursor
LPARAMETERS lcTable, llExitOnFirstError
LOCAL loData, lcSQL, lcErrors, lcOldAlias, loSqlRecord

lcErrors = ""

IF EMPTY(lcTable)
   lcTable = ALIAS()
ENDIF

lcOldAlias=ALIAS()

this.execute("select * from " + lcTable + " where 0=1","__TCursor")
IF THIS.lError
   RETURN .F.
ENDIF

*** Get the structure for the SQL table
SCATTER NAME loSqlRecord MEMO BLANK

SELECT (lcOldAlias)
SCAN
   SCATTER NAME loData MEMO
   
   this.lError = .f.
   lcSQL = THIS.SqlBuildinsertstatementFromObject(loData,lcTable,loSqlRecord)
   THIS.Execute( lcSQL )
   
   IF THIS.lError
      lcErrors = lcErrors + THIS.cErrorMsg + CHR(13)  + lcSQL + CHR(13) + CHR(13)
      IF llExitOnFirstError
         THIS.cErrorMsg = lcErrors
         RETURN .F.
      ENDIF
   ENDIF
ENDSCAN

IF !EMPTY(lcErrors)
	THIS.cErrorMsg = lcErrors
	THIS.lError = .t.
	RETURN .F.
ENDIF

THIS.cErrorMsg = ""

RETURN .T.
ENDPROC
PROCEDURE insertbinaryfield
LPARAMETERS lcImageData, lcField, lcTable, lcWhereClause, llIsFile
LOCAL lcContent, lnResult

IF llIsFile
   lcContent = FILETOSTR(lcImageData)
ELSE
   lcContent = lcImageData
ENDIF   

   
lcOldAlias = ALIAS()   
lcTFile = SYS(2023) + "\" + SYS(2015) + ".dbf"

SELECT 0   

CREATE TABLE (lcTFile) (Image M)
APPEND BLANK
REPLACE IMAGE WITH lcContent
USE

ll = fopen(lcTFile,12)
fseek(ll,43)
fwrite(ll,'G')
fclose(ll)

USE (lcTFile) 

IF EMPTY(lcWhereClause)
   lnResult = this.Execute("INSERT INTO " +lcTable +;
                           "(" + lcField +") values (?Image)") 
ELSE
   lnResult = this.Execute("UPDATE " +lcTable +;
                           " set " + lcField +"=?Image WHERE " + lcWhereClause) 
ENDIF                           

USE 
ERASE (lcTFile)

IF lnResult < 0
   RETURN .f.
ENDIF

RETURN .T.

ENDPROC
PROCEDURE readbinaryfield
LPARAMETERS lcField,lcTable,lcWhereClause
LOCAL lcTFileName, lcFileName, lcAlias, lcResult,llField, lnResult

IF EMPTY(lcWhereClause)
   lnResult = this.Execute("select " + lcField + " from " + lcTable)
ELSE   
   lnResult = this.Execute("select " + lcField + " from " + lcTable + " where " + lcWhereClause)
ENDIF   

IF lnResult < 1
   RETURN ""
ENDIF   
   
lcTFileName =  SYS(2023) + "\"  + SYS(2015) + ".dbf"
lcFileName = DBF()
lcAlias = ALIAS()

*** Copy out the data - cursor deletes automatically
COPY TO (lcTFileName)

*** Close the cursor
SELECT (lcAlias)
USE 

* Change the flag in the general field
llFile = fopen(lcTFilename,12)
fseek(llFile,43)
fwrite(llFile,'M')
fclose(llFile)

*** Reopen the copied file
USE (lcTFileName) ALIAS __TImage EXCL

*** Retrieve the binary field value
lcResult = EVAL("__Timage."  + lcField)

*** Close and Erase the temp file
USE
ERASE (FORCEEXT(lcTfileName,"*")

IF !EMPTY(lcAlias)
  SELECT (lcAlias)
ENDIF
  
RETURN lcResult
ENDPROC
PROCEDURE executenonquery
LPARAMETER lcSQL, llStoredProcedure

THIS.naffectedrecords = 0

lnResult = THIS.Execute(lcSQL,,llStoredProcedure)

IF lnResult = -1
   RETURN .f.
ENDIF

RETURN .t.
************************************************************************
* wwSQL :: ExecuteNonQuery
*********************************
***  Function: Executes a SQL Passthrough command on the server.
***            lError, lErrorNo and lErrorMsg get set on error
***      Pass: lcSQL    - (Optional) SQL to execute - (THIS.cSQL)
***    Return: SQL Result Code
************************************************************************

ENDPROC
PROCEDURE addparameter
LPARAMETERS lvValue, lcName, lcDirection, lcType, lnSize, lnPrecision


   IF THIS.lParameterReset OR ;
      TYPE("THIS.oParameters") # "O"
      THIS.oParameters = CREATEOBJECT("Collection")
      this.lParameterreset = .f.
   ENDIF

   IF VARTYPE(lvValue) = "C"
      lvValue = TRIM(lvValue)
   ENDIF

   loParameter = CREATEOBJECT("EMPTY")
   ADDPROPERTY(loParameter,"Value",lvValue)
   ADDPROPERTY(loParameter,"Name",.null.)
   ADDPROPERTY(loParameter,"Type",.null.)
   ADDPROPERTY(loParameter,"Size",.null.)
   ADDPROPERTY(loParameter,"Precision",.null.)
   ADDPROPERTY(loParameter,"Direction","IN")

   IF !EMPTY(lcName)
      loParameter.Name = lcName
   ENDIF
   IF !EMPTY(lcType) 
      loParameter.Type = lcType
   ENDIF
   IF VARTYPE(lnSize) =  "N"
      loParameter.Size = lnSize
   ENDIF
   IF VARTYPE(lnPrecision) = "N"
      loParameter.Precision = lnPrecision
   ENDIF
   IF VARTYPE(lcDirection) = "C"
      loParameter.Direction = UPPER(lcDirection)
      IF UPPER(lcDirection) = "OUT"
         this.lOutParameters = .t.
      ENDIF
   ENDIF

   IF !EMPTY(lcName)
      this.oParameters.Add(loParameter,lcName)
   ELSE
      this.oParameters.Add(loParameter,SYS(2015))
   ENDIF   


ENDPROC
PROCEDURE assigncommandparameters


ENDPROC
PROCEDURE executestoredprocedure
PARAMETERS lcProcedure, llNoCursorReturned
LOCAL lnCount, lnX, lcParms

*** Build up parameter string 
lcParms = ""
FOR EACH loParm IN this.oParameters 
   IF loParm.Direction = "OUT"
      lcParms = lcParms + " ?@" + loParm.Name + ","
   ELSE
      lcParms = lcParms + " ?" + loParm.Name + ","
   ENDIF
ENDFOR
IF !EMPTY(lcParms)
   lcParms = LEFT(lcParms,LEN(lcParms)-1)
ENDIF   

lnResult = this.Execute("Execute " + lcProcedure + lcParms,,.t.)
IF lnResult < 1
   RETURN .f.
ENDIF

RETURN .T.
ENDPROC
PROCEDURE close

IF THIS.nSQLResult = 0
   *** Still running a request
   =SQLCancel(THIS.nSQLHandle)
ENDIF   

IF THIS.nSQLHandle > 0
   =SQLDisconnect(THIS.nSQLHandle)
ENDIF

THIS.nSqlHandle = 0
ENDPROC
PROCEDURE getaffectedrows
LOCAL lnResult

lcOldAlias=ALIAS()

this.cSqlcursor = "__Count"
IF this.execute("SELECT @@ROWCOUNT") > -1
	lnResult = 	__Count.exp
	USE IN __Count
ELSE
	lnResult = -1
ENDIF

IF !EMPTY(lcOldAlias)
	SELECT (lcOldAlias)
ENDIF

RETURN lnResult
ENDPROC
PROCEDURE enableunicodetoansimapping
LPARAMETERS llSet

IF wwVFPVersion > 8
	IF PCOUNT()=0
	  llSet = .t.
	ENDIF

	SYS(987,llSet)
ELSE
    ERROR "Unicode mapping is supported only in VFP 9.0"	
ENDIF

ENDPROC
PROCEDURE enableconnectionpooling

Declare INTEGER SQLSetEnvAttr IN odbc32.dll ;
	Long henv,;
    Long Attribute, ;
    Long Value , ;
    Long StringLength 
    
#define  SQL_ATTR_CONNECTION_POOLING  201
#define SQL_ATTR_CP_MATCH  202
#define SQL_CP_ONE_PER_DRIVER  1
#define SQL_IS_UINTEGER -5

SqlSetEnvAttr(0,SQL_ATTR_CONNECTION_POOLING,SQL_CP_ONE_PER_DRIVER, SQL_IS_UINTEGER)

ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
   DO CASE 
     *** Invalid Connection Handle
     CASE nError = 1466 AND THIS.nErrorno <> 1466
       THIS.nErrorno = 1466
       THIS.cErrorMsg = Message()
       IF THIS.Connect(THIS.cConnectString)
          THIS.lError = .F.
          THIS.nErrorNo = 1466     && So we can trap 'recursive' errors above
          THIS.cErrorMsg = ""
          RETRY
       ENDIF
   ENDCASE    

this.lInternalerror = .t.

this.FillErrors()

*!*   lnCount = AERROR(laError)
*!*   IF lnCount > 0
*!*      DIMENSION this.aErrors[1]
*!*      ACOPY(laError,THIS.aErrors)

*!*      lcErrorMsg = laError[2]
*!*      lnLoc = ATC(PARSESTRING,lcErrorMsg)
*!*      IF lnLoc > 0
*!*         lcErrorMsg = SUBSTR(lcErrorMsg,lnLoc + LEN(PARSESTRING))
*!*      ENDIF
*!*      IF TYPE("this.nCodePage") = "N" AND !ISNULL(laError[3])
*!*         lcErrorMsg = laError[3]
*!*         IF VARTYPE(laError[7]) = "N"
*!*            this.nodbcerrorno = laError[7]
*!*         ENDIF
*!*      ENDIF

*!*      THIS.cErrorMsg = lcErrorMsg
*!*      THIS.nErrorNo = laError[1]
*!*   ELSE
*!*      THIS.cErrorMsg = Message()
*!*      THIS.nErrorNo = nError   
*!*   ENDIF

ENDPROC
PROCEDURE Destroy
THIS.Close() 

ENDPROC
PROCEDURE Init
LPARAMETER lcConnectString, llAsynch

#IF SHAREWARE
WAIT WINDOW NOWAIT ;
  "Welcome to West Wind Client Tools..." + CHR(13) + ;
  "This is a shareware copy of wwSQL." + CHR(13)+ CHR(13) +;
  "Please register your copy."
#ENDIF

IF !EMPTY(lcConnectString)
  THIS.Connect(lcConnectString,llAsynch)
ENDIF
ENDPROC
       
 ..\wconnect.h^s;     8                              a   %   $      v  T              U  s  4   
 % *  BC   a   e  T C   a   % 
a  B-   Ba U  LCPROCEDURE LLNOCURSORRETURNED THIS EXECUTENONQUERY LNRESULT EXECUTE      T  - %C  <  T     T  T     = %C  @ insert C  @ update C  @ set   %C      	 B 
 B  %    
 C    %C 	 T  	   T 	 	 TSQLQuery T 
 - T     T  - 
  T
 C] %    C  ]  %C  
 T   T  a %    C
 ] 
 B  T      Q
 ADODB.Command T C
 AdoDb.CommandN T     %  o T  a 
 %  T   T    T    T     C      Q ADODB.Recordset T C   T 
    %C  O %       Q
 CURSORADAPTER T C
 CursorAdapterN T     T !  ADO %    T "     T #  T $ - T % - T & - %C ) Q   T C--    '  % ( 
h C  )   % 

 C *  
 C +  T 
 F    
 C *  % ( 
 C  )   
 %  ,  - " %, .  , .  T / , 0 1 , 1  %C, 0 b U T2 , 0  &lcName = Parm.Value
     %    C
 ]  % 
  T  
 B  T  	 B U3  LCSQL LCRESULTCURSOR LLSTOREDPROC THIS LINTERNALERROR CSQL EXECUTENONQUERY
 NSQLRESULT	 SQLCANCEL
 CSQLCURSOR LERROR	 CERRORMSG AERRORS LNOLDCP	 NCODEPAGE CONNECT LPARAMETERRESET OCOMMAND ACTIVECONNECTION OADOCONN LNAMEDPARAMETERS NAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXT ASSIGNCOMMANDPARAMETERS ORS EXECUTE STATE LLERROR LLRESULT CA ALIAS DATASOURCETYPE ADOCODEPAGE	 FETCHSIZE ALLOWINSERT ALLOWDELETE ALLOWUPDATE
 CURSORFILL LKEEPCONNECTION CLOSE
 FILLERRORS CURSORDETACH PARM
 PARAMETERS	 DIRECTION OPARAMETERS NAME VALUE LCNAME]         %C  O # T  C ADODB.ConnectionN  %C  r  T       T       Q ADODB.Connection  T C ADODB.ConnectionN T a  %  	   C     
   ( M T  C   
  T  a T - 	 B  U  LCCONNECTSTRING LLASYNCH LLNOAUTOTRANSACTIONS LLRESULT LOEXCEPTION THIS OADOCONN CCONNECTSTRING OCONN STATE OPEN	 CERRORMSG ERRORS ITEM LERRORS  %C   
L  %    :  C      T     U  THIS OADOCONN STATE CLOSE       T  - T    %C  
I  B-  T C] %     C  ]  T     	 Q
 ADODB.Command T	 C
 ADODB.CommandN T	 
    %    T	 
 a 
 % . T   T	   F T    T	     C 	   
 T   C 	   T     T    %  C  @ execl  	  h" %     d T        %C  b U` T    &lcName = Parm.Value
     %    C ] 
 B  
 U  LCSQL LLSTOREDPROC LNOLDCP THIS LINTERNALERROR NAFFECTEDRECORDS CONNECT	 NCODEPAGE CSQL OCOMMAND ACTIVECONNECTION OADOCONN LNAMEDPARAMETERS NAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXT ASSIGNCOMMANDPARAMETERS	 LNRECORDS EXECUTE LERROR PARM
 PARAMETERS	 DIRECTION OPARAMETERS NAME VALUE LCNAMEz+ 4          	  
   
 T
 Ct %
    (
   T  lvParmC _ CC   
     %
   T   T C   a
   % 
  B-  %C 

 C
  
	l  
  h$ %C  
    OUT	d T    B    Ba U  LCPROCEDURE PVRESULT LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LNCOUNT LNX LCPARM THIS ADDPARAMETER LNRESULT EXECUTE OPARAMETERS LOPARM	 DIRECTION VALUE         T   
 T     T - %C  f  T a   $ T C  
   	  	 T
 C ?  +
  o T C 
 \ %     T
 C ?  .  T C   , %C R 'F T C  )  . %C >2 C  ?=&,%*$!    T
 C ?  .  %  @ T C \ CC    OUT   T C  ?@  ? B %C 
  
	 CC      ! T C  ?  ?   T C \ T
 C ?   %C   Ba  %   T  
         Q ADODB.Parameter% T C ADODB.Parameter     T   T     %C  
R T      %C  
 T     %C  
 T      %C  
 T       T C loParm.Valueb
 H    CF    %    O
 T  T  r
 T  T @  T   & %C  
 C  f OUT	 T     T  C  >  %  
 T    %   B T    T  C  >    Nx T   T     L T     T	   D T     W	   Qk T   T  C  > %  @? T   T    %   g T    2 T    & %C  
 C  f OUT	 T    C        T  a B   U  OCOMMAND LCSQL	 LCORIGSQL
 LLPARSESTRING LCPARM THIS CSQL OPARAMETERS LLPARMS COUNT LNAT ADDPARAMETER NCOMMANDMODE COMMANDTEXT LOPARM
 OPARAMETER	 DIRECTION VALUE NAME TYPE SIZE	 PRECISION LCTYPE LNADOSTRINGTYPE LNADOSTRINGSIZE	 NCODEPAGE
 PARAMETERS APPEND LPARAMETERRESET LERROR executestoredprocedure,      execute      connectR	     DestroyP     executenonquery     callstoredprocedure     assigncommandparameters    1   ! qq A A r 3     A Q A  A B A  A   r A!A # A A  A 1 A   A 2SA 1B1A 1     A A       A A   A A  !!qA A A A C A  A  3   (1A   A   qAA    A  4 5qA  A 4  r  #q A A!A 1 A   A  Q2!!qA A A A B A  3   qaA A  A rq A !AA A A A r 4 s 4 t  ! A r A3!a"1A A ra1A A "! aA A B !1A "q A EA $Q221A 2111A 11A   ! q     A b QA BA CAQA #!Qa A AA  A A cA CF   2                    "   3        Q       z     e          `                      3       O1  W   )                            
 ..\wconnect.h^s;     6    q6  q6                        (X   %   R-      x4  ;  0            U         
   %C  B  T     Z  T      %    
 C    %C   T  	   T 
 - T     T  - %C 
 
4   
 0 T    %C ?     LOCAL &lcParameterName
# &lcParameterName = loParm.Value
 %   OUT) T  C   ?  ?@   , %C ?@    ( LOCAL &lcParameterName
# &lcParameterName = loParm.Value
 T   OUT T  a     T    ! T  C      i T  a %   
u T 
 a
 C  B %C          C    	q! T  C      i %  9 T 
 a
 C   m C CLEAR   T  C    Z T 
 - %C  { T 
 a
 C    T  C  %  V   
 R %C  f OUTN T    %C b UJ T  C       T 	 	 TSQLQuery B   U  LCSQL LCRESULTCURSOR LLSTOREDPROCEDURE LCPARAMETERNAME
 ACOUNTINFO THIS CSQL
 NSQLRESULT	 SQLCANCEL
 CSQLCURSOR LERROR	 CERRORMSG AERRORS OPARAMETERS LOPARM NAME	 DIRECTION LOUTPARAMETERS
 NSQLHANDLE LPARAMETERRESET
 FILLERRORS NODBCERRORNO CONNECT CCONNECTSTRING NAFFECTEDRECORDS VALUEg      + T  CC lcClearb C C  f   6 %   CLEAR  T  - T    T    T     B  T C	 z %  `  
  C	  
 
 T C	  T C Server]  %  9 T C  C Server]>\ " %C THIS.nCodePageb N %C
 laError[3]b C T C	   %C
 laError[7]b N T  C	    T  C	   T  C	  %C  	 C  * T    2 T     [C  _ :C  _ ]  U  LCCLEAR LNLOC
 LCERRORMSG THIS LERROR NERRORNO NODBCERRORNO	 CERRORMSG LNCOUNT LAERROR AERRORSM    ) %C   Asynchronous  l7  Ba F  B-  U  LLASYNCH THIS
 NSQLHANDLE  BC   d U  THIS
 NSQLHANDLE8      T     C 	 DispLoginl C  DispWarnings-l( %CCChC FoxProCh\g  C	 MapBinarya   %C =  
  T  C  f T a  %C dsn=  
s %C server=   ) T  	 server=.;    %C driver=   o% T   driver={Sql Server};     T     T  C   T -  %  
 T  a
 C   B-  C   	  
 % *! C   Transactionsl  Ba U
  LCCONNECTSTRING LLASYNCH LLNOAUTOTRANSACTIONS THIS CCONNECTSTRING
 NSQLHANDLE LLUSECONNECTION LERROR
 FILLERRORS
 SETASYNCHMODE$ ! BC BEGIN TRANSACTION    U  THIS EXECUTE' $ BC ROLLBACK TRANSACTION    U  THIS EXECUTE% " BC COMMIT TRANSACTION    U  THIS EXECUTEV     %C  f CLEAR3  T     B  T         U  LCCODE THIS CSQL        T  - T     T  C    f %  
  T  a
 C   B-   C   	   Ba U
  LCDSN LCUID
 LCPASSWORD LLASYNCH THIS LERROR CCONNECTSTRING
 NSQLHANDLE
 FILLERRORS
 SETASYNCHMODE@     . R,:# This  method is not implemented yet B U 	 LCDSNNAME LCCONNECTSTRING      '        	 
   T  INSERT  
 T   
 T    %C 
   T  ,TIMESTAMP_COLUMN,  - T  ,TIMESTAMP_COLUMN,C 
 f , + T C CC  O     6b T  -  ( w T C    % ,C f , Y .  T C loData.  %   T  - T  - .  T	 C  % 

 H 	  C
$ T
  'CC  ' ''` ' 	  N8 T
 CC _ , . 	  Lg T
 C   1  06 	  D	 	  T T
 C  a  	  Y T
 C   _ 	  X T
  null 2 .  T  
  , W   T  __  C       T   ?  ,  T   [  ],  %C  C 	 B    T C C >\ T C C >\ . T    ( 
 ) VALUES (  )	 B  U  LODATA
 LCFILENAME LOSQLRECORD LLUSENAMEDPARAMETERS LCFIELDLIST LCVALUELIST LNFIELDS LNX LCFIELD LCTYPE LCVALUE LCSQL THIS CSKIPFIELDSFORUPDATES LCSKIPFIELDS LAFIELDS LINTERNALERROR
 LCRAWVALUE LERROR
 TIMETOCSTRICT
 LCPARMNAME ADDPARAMETER        '      	 
   
  %C `  T  PK  %C  O  T a %C   c 	 B      T -   T  UPDATE    SET %C   T  ,TIMESTAMP_COLUMN, A- T  ,TIMESTAMP_COLUMN,C  f , + T C CC  O     6b T  -  (  T C    % ,C f ,  .  T
 C loData.  %   T  - T  - .  T	 C
 ) %  
 C loOrigData. 	X .  % 

 Hw 	  C$ T  'CC
  ' ''` ' 	  N T CC
 _ , . 	  L T C
   1  06 	  D	 	  T8 T C 
 a  	  Y\ T C
   _ 	  X T  null 2 . & T    [  ]=  ,   C 
  __   ) T    [  ]=?__  ,   %C >
$	 B    T C C >\ T C loData.  %C  C+ T    WHERE   ='  ' ' T    WHERE   =C _ 	 B  U  LODATA
 LCFILENAME	 LCPKFIELD
 LOORIGDATA LOSQLRECORD LLUSENAMEDPARAMETERS LNFIELDS LNX LCFIELD LCTYPE LVVALUE LCVALUE	 LVPKVALUE
 LVRAWVALUE
 LLORIGDATA LCSQL THIS CSKIPFIELDSFORUPDATES LCSKIPFIELDS LAFIELDS LINTERNALERROR LERROR
 TIMETOCSTRICT ADDPARAMETER+ 4          	  
   5  T
 Ct
 T    %
        %C 
  T   ,  %   OUT  T   ?@     T   ?      
 (
 A# T   ?lvParmC
 _ ,  %C 
p T  
 ?@pvResult  %C 
 T C C >\   & T C Exec         %  B-  %C 

	 B   Ba U  LCPROCEDURE PVRESULT LVPARM1 LVPARM2 LVPARM3 LVPARM4 LVPARM5 LVPARM6 LVPARM7 LVPARM8 LNX LCPARMSTRING PNRESULT LNPARMS LOPARM THIS OPARAMETERS	 DIRECTION NAME LNRESULT EXECUTE          
 T    %C  J  T  C  T C< C select * from   
  where 0=1	 __TCursor   % 	   B- 
 ^J 
 F  ~x	 ^J  T 	 - T C        
  C     % 	 t* T    C
  C
 C
 
 % p T    B-    %C 
 T    T 	 a B-  T     Ba U  LCTABLE LLEXITONFIRSTERROR LODATA LCSQL LCERRORS
 LCOLDALIAS LOSQLRECORD THIS EXECUTE LERROR! SQLBUILDINSERTSTATEMENTFROMOBJECT	 CERRORMSG          
 % ?  T C   T 
 T     T C$ T C] \C] .dbf F   h1 	  M 
 >	   Q T
 C  C
 + C
  G C
 
 Q  %C OB T C INSERT INTO   (  ) values (?Image)   B T C UPDATE    set   =?Image WHERE      Q
    %  
 B-  Ba U
  LCIMAGEDATA LCFIELD LCTABLE
 LCWHERECLAUSE LLISFILE	 LCCONTENT LNRESULT
 LCOLDALIAS LCTFILE IMAGE LL THIS EXECUTE             %C f - T C select     from  	 
   < T C select     from    where  	 
   % 
 	 B   $ T C] \C] .dbf T C& T C ( 
 F  Q T C  C + C  M C  Q   T C	 __Timage.   Q   (FORCEEXT(lcTfileName %C 

 F  	 B  U
  LCFIELD LCTABLE
 LCWHERECLAUSE LCTFILENAME
 LCFILENAME LCALIAS LCRESULT LLFIELD LNRESULT THIS EXECUTE LLFILE __TIMAGE\      T    T C        % N  B-  Ba U  LCSQL LLSTOREDPROCEDURE THIS NAFFECTEDRECORDS LNRESULT EXECUTE|        . %   C THIS.oParametersb Ot  T  C
 CollectionN T  -  %C   C  T  C  `  T	 C EMPTYN C	  Value  
 C	  Name
 C	  Type
 C	  Size
 C	 	 Precision
 C	 	 Direction IN
 %C 
^ T	 
    %C 
 T	     %C  N T	     %C  N T	 
    %C  C' T	  C f %C f OUT# T  a   %C 
S C 	       u C 	 C]     U  LVVALUE LCNAME LCDIRECTION LCTYPE LNSIZE LNPRECISION THIS LPARAMETERRESET OPARAMETERS LOPARAMETER NAME TYPE SIZE	 PRECISION	 DIRECTION LOUTPARAMETERS ADD  U   4       
 T         %   OUTp   T    ?@ 	  ,   T    ? 	  ,   %C 
  T C C >= & T
 C Execute    a   %
 
	 B-  Ba U  LCPROCEDURE LLNOCURSORRETURNED LNCOUNT LNX LCPARMS LOPARM THIS OPARAMETERS	 DIRECTION NAME LNRESULT EXECUTEa  %    #  C   d  %    J  C   g  T     U  THIS
 NSQLRESULT
 NSQLHANDLE     T C T   __Count* %C SELECT @@ROWCOUNT  l  T     Q    T    %C 
 
 F  	 B   U  LNRESULT
 LCOLDALIAS THIS
 CSQLCURSOR EXECUTE __COUNT EXP    ( %CCChC FoxProCh\g^  %Ct K  T  a  C  ]  5 , Unicode mapping is supported only in VFP 9.0  U  LLSETD * |
 SQLSetEnvAttr
 odbc32.dll C    U 
 SQLSETENVATTR ODBC32 DLL      
 H  !      	  T   T  CE %C      T  - T   T     X   T 	 a
 C 
  U  NERROR CMETHOD NLINE THIS NERRORNO	 CERRORMSG CONNECT CCONNECTSTRING LERROR LINTERNALERROR
 FILLERRORS 
 C    U  THIS CLOSE7      %C  
0  C         U  LCCONNECTSTRING LLASYNCH THIS CONNECT execute,     
 fillerrors    
 setasynchmode    	 sqlcancel'	     connectO	     begintransaction     rollbackI     commit     addsql     connectbydsn)
     createodbcdatasource=    ! sqlbuildinsertstatementfromobject    ! sqlbuildupdatestatementfromobject     callstoredprocedure     insertdatafromcursor     insertbinaryfield     readbinaryfieldH!     executenonquery#     addparameterB$     assigncommandparametersk'     executestoredprocedurer'     close)     getaffectedrows)     enableunicodetoansimappingz*     enableconnectionpooling'+     Error+     Destroy,     Init,    1  q    A B A  A   5"1qA  11 A A B A  B  $T   QrD A     A s!A!A A A A B  : q  b A A $1A !A AA  AA BA !A 4 q q  q A 2  2  A r2  A QA A 1 A B  q  A  A r 2 2 A2 !2 q A A 2 1 A  q  A r 3  A 1 1q  " A  r!A A   A A   !A!!1!!! A A a q 1QA A   A  3 q  A R 2 A   A " A  r!A A   A A A A   !A!!1!!! A A b A A 3 A R qA  2  q  $!!A q A A  q1A  A A A bq A  A r 2  q   A  q A       q A A A  q A r 2 q    A  A BQ  A "     " "A B  q A r 3    A  A B    A #    C  A  2  "q A r ;  A R A RqAAAA A QA QA Q!a A A  A 4 4    !q A A A bq A r 2 B A B A 2 q  r   A  A  2 q  A   QA 3 w3    q A A A   1  3  	QA 1                       
     J   
    }   n     n     u          w                         6        S  |                  3  \            
     K  &  *     &  1  |  ;  1  6    `  6  V:      ~:  =  ?    =  A  m    B  D      D  I      I  I      I  K      K  L    	  L  M      N  N    !  N  UP  -  $  qP  &U  =  4  DU  SU  i  6  nU  V  m   )   q6                  5  %           )  WQ%  #  G+( wwXML G+( wwUtils U  WWXML WWUTILS            	 
 
   T 
 - T     %C y 
 T    %C  B %C loObject.BaseClassb U C loObject.Classb U	  T C   @   T  class   % 
  T    5
 T     %C  D B  <  >NULL</  >C
 C
  </   >  %   T   
 H    T  
 <!DOCTYPE     [C
 C
 
 <!ELEMENT     (  )>C
 C
 C       C
 C
  ]>C
 C
  <   >C
 C
    @ T   <   >C
 C
 C          2* T   <   >C
 C
   %  8 T
  #   P T
    I T   C       
    </   >C
 C
  B   U  LOOBJECT LCNAME LNINDENT
 LLNOHEADER LNX LNCOUNT LCOUTPUT LCFIELD LCTYPE LVVALUE LCSCHEMAURL LAFIELDS THIS LERROR	 CERRORMSG CLASS
 CXMLHEADER CDOCROOTNAME LCREATEDATASTRUCTURE NCREATEDATASTRUCTURE CREATEOBJECTSTRUCTUREDTD CREATEOBJECTSTRUCTURESCHEMA CSCHEMANAME
 CSCHEMAURL CBODY CREATEOBJECTXML        %C P / T C   <   > </   >   - T C  <   > </   >   %C	 <![CDATA[   $ T C  	 <![CDATA[ ]]>  	 B  U  LCITEM LCXMLDOC LCVALUE EXTRACT THIS CBODYN           T  - T 	    % 
^  T  
  s 
 T     %C    T  CC@  %C   T  row  %C  
 T    %    T   
 H    U5 T  CC	  Q < 
  >C
 C
    A T   < 
  >C
 C
 C             T  
 <!DOCTYPE  
   [C
 C
 
 <!ELEMENT  
   (   )>C
 C
 C       C
 C
  ]>C
 C
 C
 C
 5 T  CC	  Q < 
  >C
 C
  
 T    %   T  #    T    % T  C           > B C
 C
 CC	  Q </ 
  >C
 C
  U  LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LCOUTPUT LNFIELDS LNX THIS LERROR	 CERRORMSG
 CXMLHEADER LCREATEDATASTRUCTURE NCREATEDATASTRUCTURE CDOCROOTNAME CREATEDATASTRUCTURESCHEMA CSCHEMANAME CREATEDATASTRUCTUREDTD LCSCHEMAURL
 CSCHEMAURL CREATECURSORXML             T	 
 - T	     %C   C  %C    T	 
 a$ T	   No XML input passed. B- % T  C   encoding="UTF-8"   2 %C lvXML.Asyncb L. T	 
 a$ T	   No XML input passed. B-   %C Y T  __wwXML  %C   O" T C msxml2.domdocumentN C      
 T     T 
 a %C   
E T	 
 aN T	     C
 C
  Line: C   _C
 C
     B-  T    %C  T	 
 aM T	  = Invalid XML Doc root. Data must be in child of document root. B-  %C 

 T    (  T C    %C Q% T	   Invalid XML Structure B-  %   Schema T       T C    %C  T	 
 a% T	   Invalid XML Structure B-  %   Schema T      %C 
W %C    	  
S B-  i
 F   BC  	   U  LVXML LCALIAS LNTABLEROOTLEVEL LOXML LNX LNSIZE LCCREATE LOCURSOR LODATA THIS LERROR	 CERRORMSG LOADXML PRESERVEWHITESPACE
 PARSEERROR REASON LINE SRCTEXT	 LODOCROOT DOCUMENTELEMENT
 CHILDNODES NODENAME NEXTSIBLING BUILDCURSORFROMXML PARSEXMLTOCURSOR         %C 6 
 T   
 T    T C   ( q
 T    T  CC	  Q <field  name="CC   @ "  type="CC      "  size="CC   _ " %CC   
J0 T    precision="CC   _ " # T    />C
 C
   BCC	  Q <datastructureCC  
   Name="   "   6 >C
 C
  CC	  Q </datastructure>C
 C
  U	  LCNAME LNINDENT LCOUTPUT LNX LCROW LNFIELDS LAFIELDS THIS FOXTYPETOXMLTYPE 4           	 
    
       %C  q  T  CC@  %C   T  row  %C  
 T    %C  
 T    ( %CCChC FoxProCh\g
 T   
 T   %  ;
 T 0  T CC@ C  lcxml  Z T C 9 <?xml version = "1.0" encoding="UTF-8" standalone="yes"?>C
 C
   G T CC  <  > <  > </  > </  >W T C 	 <VFPData> <  CC 
    xmlns="x-schema:  "   6 >" T C  VFPData>   >, BCC  >true< >1< >false< >0<  T C DATEv T C HOURSv T C CENTURYv T C MARKv G9( G( YMD G  G:( - T C ] T CC	  Q <  CC 
    xmlns="x-schema:  "   6 >C
 C
  ~
 T   6 T  CC	  Q <  >C
 C
   (  T	 CC   @ T
 C    %
  G@ .  T C	 
 H` C  T  NULL* 
  C	 
  M	 
  V %C 7 T  CC	  Q <	  />C
 C
  .  % & >0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > }) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 K T  CC	  Q <	  >C ` </	  >C
 C
  .  
  L %  X! T C 	  .T.  .F.6 } T C   1  06  
  D %C 
 T     T C *  
  TM %C 
 T CC    T I7 T  CC	  Q <	  />C
 C
  .  
  Ys T CC   _A 2 T C _ I T  CC	  Q <	  >  </	  >C
 C
  7 T  CC	  Q </  >C
 C
   SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:(  %  6 BC CC	  Q </   >C
 C
    / B CC	  Q </   >C
 C
  U  LCNAME	 LCROWNAME LNINDENT LCSCHEMA LCOUTPUT LNFIELDS LNX LVVALUE LCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURY LCTIME
 LCOLDHOURS	 LCOLDDATE	 LCOLDMARK
 LNENCODING LCXML THIS	 NENCODING LCALIAS
 LNOLDHOURS YMD LAFIELDLIST LUSEFOXTYPES	 ENCODEXML           %C x  %C    CY  T     t  T  object   %C  
 T   
 T    T C   b  (  T CC   @( % '  , ,	 
  , . m T  CC	  Q <property name="  " type="CC	 loObject. b	   "/>C
 C
  r BCC	  Q <objectstructure name="  ">C
 C
  CC	  Q </objectstructure>C
 C
  U  LOOBJECT LCNAME LNINDENT LNPROPCOUNT LNX
 LCPROPERTY LCOUTPUT CLASS LAPROPERTIES THIS CPROPERTYEXCLUSIONLIST FOXTYPETOXMLTYPE?      E      	 
   
      
     T
 C DATEv T C HOURSv T C CENTURYv T
 C MARKv G9( G( YMD G  G:( - %C 	 T  xmlroot  %C  N/
 T    %C O
 T    
 T   ( %CCChC FoxProCh\gm& %C loObject.BaseClassb C- T -1 T   type="object" class="C   @ " %   
 Collection)! BC      items      i T a) T   type="object" class="empty"   T C   ba T CC	  Q < CC 
    xmlns="x-schema:  "   6  >C
 C
   ( m T CC   @- %C ,  , ,   , C .  T	 C	 loObject. b T C	 loObject.  %   T C \ 
 T   
 Hi+ C ALEN(loObject.  )b N %  f
  % ACOPY(loObject.&lcField,la_array)
! T C       T    H T  CC	  Q < 
 >(array)</  >C
 C
   C & %   . E T  CC	  Q <  >NULL</  >C
 C
  	  Cn %C    	U .  % & 0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > ) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 K T  CC	  Q <  >C ` </  >C
 C
  . 	  D? %C  %   . A T  CC	  Q <  ></  >C
 C
  ;K T  CC	  Q <  >C _ </  >C
 C
   	  T %C  %  t . A T  CC	  Q <  ></  >C
 C
  U T  CC	  Q <  >CC _   T </  >C
 C
   	  Q{O T  CC	  Q <  >C 
 </  >C
 C
  	  LY T  CC	  Q <  >C   1  06 </  >C
 C
  	  O	 %  	= %C lvValue.BaseClassb C   
 Collection	l	' T C     item    	  T C          T    	I T  CC	  Q <  >(Object)</  >C
 C
   	  Y^
N T  CC	  Q <  >C   _ </  >C
 C
  	  U
E T  CC	  Q <  >NULL</  >C
 C
  	  QO T  CC	  Q <  >C 
 </  >C
 C
  2iK T  CC	  Q <  >C _ </  >C
 C
    SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:(
  % ! 	6 BC CC	  Q </  >C
 C
  "  / B CC	  Q </  >C
 C
  U#  LOOBJECT LCNAME LNINDENT LCSCHEMA LCOUTPUT LNX LNCOUNT LAFIELDS LCFIELD LCTYPE	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY	 LCOLDMARK LCTEMP LCDISPFIELD LCBASECLASS LLISEMPTYOBJECT LCCLASS LAARRAY LA_ARRAY YMD CLASS	 BASECLASS THIS CREATECOLLECTIONXML CPROPERTYEXCLUSIONLIST LVVALUE LSTRIPTYPEPREFIX LRECURSEOBJECTS CREATEARRAYXML LSKIPEMPTYELEMENTS CREATEOBJECTXML	 NENCODING	 ENCODEXML          T  - T     %CC   O C
  T  a$ T   No XML input passed. B  %C   O " T C msxml2.domdocumentN C    	   
 T     %C 
  
n T  aN T   
  C
 C
  Line: C 
  _C
 C
  
 
  B  T  a T    %C  T  aJ T  : Invalid data root. Data must be in child of document root. B  %C  O T C    %   SchemaU T     T C     %C  B   T C    %   Schema T     BC         U  LVXML LOOBJECT LLPARSECASEINSENSITIVE LOXML LONODE	 LODOCROOT THIS LERROR	 CERRORMSG LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACE DOCUMENTELEMENT
 CHILDNODES NODENAME NEXTSIBLING BUILDOBJECTFROMXML PARSEXMLTOOBJECT    %    	 B   
 H1 *    C	    M	    Vn  T  string    N	    F  T  float    B  T  number    Y  T  decimal    L T  boolean    I0 T  i4    DS T  date    Tz T  dateTime    O T  object    Q T 
 bin.base64 2
 T    	 B  U 	 LCFOXTYPE THIS LUSEFOXTYPES LCTYPEa    %    	 B    T  CC  C :  \@
 HO Q%    string,char,uri,uuid  T  Ch   W number,decimal,single,double,r4,r8,float,fixed.14.4,float.IEEE.754.32,float.IEEE.754.64  T  N0    integer,i4,i1,i2,i8,ui2,ui4,ui86 T  I    boolean\ T  L(    object    record T  O    date,date.tz T  D%    datetime,datetime.tz T  T=   , base64Binary,bin.hex,base64binary,bin.base64; T  Q 2Q T  O 	 B  U 	 LCXMLTYPE THIS LUSEFOXTYPES LCTYPE     )        	  
   
   %C   , T   No data provided for element B  %C  O ( T   No input object provided B  T
 C DATEv T C HOURSv T C CENTURYv T
 C
 STRICTDATEv G9( G( YMD G  G(  T C	  b
 T    ( 9 T CC  	 @ %   T C \ 
 T    % ,  ,   .  T C	 loObject. b T C      %C 
 %       %C  @ 
 T   !   %C  .   .   T   
 H5   NULL J(	 loObject. 5   " C ALEN(loObject.  )b N	
  ) T C	 loObject.  [1] C       $ ACOPY(laArray,loObject.&lcField)
   CM, JC  &#00;C  (	 loObject.    NIFY* JC g(	 loObject.    T\  JC (	 loObject.    D# JCC (	 loObject.    Q+ JCC  W(	 loObject.    LC! %  1   true Ja(	 loObject.  ? J-(	 loObject.     	   O	 T C	 loObject. ? %C loTObject.BaseClassb C   
 Collection	 C         C       !   25 loObject.&lcField = .NULL.
 J(	 loObject.    SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(
 	 B  U"  LOXMLOBJECT LOOBJECT LLPARSECASEINSENSITIVE LNSIZE LNX LCFIELD LCTYPE LNPROPERTIES
 LOPROPERTY LAPROPERTIES	 LCOLDDATE
 LCOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE THIS	 CERRORMSG
 LNOLDHOURS YMD LSTRIPTYPEPREFIX
 LCXMLFIELD CPROPERTYEXCLUSIONLIST SELECTSINGLENODE TNODE
 CHILDNODES NODENAME LCVALUE TEXT LRECURSEOBJECTS LAARRAY PARSEXMLTOARRAY	 LOTOBJECT	 BASECLASS PARSEXMLTOCOLLECTION PARSEXMLTOOBJECT       T  T C  N T a      T    T	  
 
 %   %CC type   ; T  + Can't build object without a schema or DTD. B  T -  C 	 
" T
 CC type     
 
 
 H1 
  C] loObject.&lcField = ""
 
  N	 
  I loObject.&lcField = 0
 
  L loObject.&lcField = .F.
 
  D loObject.&lcField = {}
 
  T$% loObject.&lcField = {  /  /  :  }
 
  UT loObject.&lcField = .NULL.
 
  Q0 loObject.&lcField = CAST("" as Blob)        
 2* loObject.&lcField = CREATE("Relation")
 loObject.&lcField = .NULL.
  	 B  U  LOOBJECTSTRUCTURE LOOBJECT LLFIRSTPASS THIS COBJECTCLASS LOFIELD
 CHILDNODES LOATTRIBUTES
 ATTRIBUTES LCFIELD NODENAME GETNAMEDITEM	 CERRORMSG LCTYPE XMLTYPETOFOXTYPE TEXT    !         	 
     T   
  % xmlns=C (= * T C  xmlns=	 _noxmlns=  C C   Ba T C DATEv T C HOURSv T
 C CENTURYv T C
 STRICTDATEv G9( G( YMD G  G(  T C 
 % d
 T    | T           ( ~ T CC   @ T C    T C     %C  .  T   
 T  
 H-j   CMVA   NIFd T C g   T T C    D T CC  TZ  #   L2 %   T C  .! %  true	   1 T a * T -     G   S . 2j T C   >     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(  Ba U  LODATA
 LLNODELIST LNFIELDS LAFIELDS LNX LCTYPE LCFIELD LOVALUE	 LCOLDDATE
 LCOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE LCXML XML
 LNOLDHOURS YMD LOROWS
 CHILDNODES LOROW SELECTSINGLENODE LCVALUE TEXT THIS LUSEFOXTYPES W           %C  
 %        T	 C Schema  
   # %C	 
 C 	   
  	  Ba 4 T
  $ No rows available or schema missing. T
  a B-  T C     %   Schema( T     T       
 T       T   T    T     T C type   %C  T C dt:type   # T  C  
   T C size   %C 
_  T  CC  g8  %C   
 T   M T     T C	 precision   %C 
 T  C  g " T    0 %C    C C   
	 T   M T   4   h   
 F   Ba U  LODATASTRUCTURE LCALIAS LNX LNSIZE LAFIELDS LORECORD LOSIZE
 CHILDNODES LENGTH LOSCHEMA
 OWNERDOCUMENT DOCUMENTELEMENT SELECTSINGLENODE THIS CREATECURSORFROMSCHEMA	 CERRORMSG LERROR NODENAME NEXTSIBLING LOFIELD LOATTRIBUTES
 ATTRIBUTES LOTYPE GETNAMEDITEM XMLTYPETOFOXTYPE TEXT LOPRECISION             %C  G  T  CC@  %C j  T  row  T	 C
X8 T 
 <!ELEMENT     (  )*>C
 C
  %C  O 
 
  T C  
  
  
 T C
  % T  
 <!ELEMENT    (  ( # T
  CC  
 @ %  
 T  C  
  ,  T  C  
    T   )>C
 C
   (  T C  
 
 H   ML T 

 T     Yx
 T 
 T    G . 2 T C  
  T C  
   T 
 <!ELEMENT C  
   (#PCDATA)>C
 C
 
 <!ATTLIST C  
 C
 C
 	  type CDATA #FIXED "C     "C
 C
 	  size CDATA #FIXED "C _ "C
 C
  %C 
D T  	  precision CDATA #FIXED "C _ "C
 C
  " T    >C
 C
  	 B  U  LCNAME	 LCROWNAME LORS LCOUTPUT LNX LCROW LNSIZE LNPRECISION LCTYPE LCSPACE LAFIELDS LNFIELDS THIS	 ADOFIELDS FOXTYPETOXMLTYPE           %C ~  %C    C_  T     z  T  object  
 T    T C   b T C
X% T  
 <!ELEMENT    (  ( \ T  CC   @ T C   # % ,  , '	 
 B .  T    , * T C C >= )>C
 C
   (  T C   # % ,  , ,	 
  .  T C	 loObject. b %  O 	  	A' T CC	 loObject.   	 
  .  T  
 <!ELEMENT    (#PCDATA)>C
 C
 
 <!ATTLIST     type CDATA #FIXED "C  	   " >C
 C
  	 B  U  LOOBJECT LCNAME LNPROPCOUNT LNX
 LCPROPERTY LCOUTPUT LAFIELDS CLASS LCSPACE THIS CPROPERTYEXCLUSIONLIST LCTYPE LRECURSEOBJECTS CREATEOBJECTSTRUCTUREDTD FOXTYPETOXMLTYPE        T  - T     T   %C   Od 
 T     T  CC        6 %C   O " T C msxml2.domdocumentN T      T    T     C    	  ; %C loxml.parseerror.reasonb C
 C 
  
	N T   
  C
 C
  Line: C 
  _C
 C
  
 
  T  a B  T  a T   	 B  U  LCXML LLASYNC LLPRESERVEWHITESPACE LOXML THIS LERROR	 CERRORMSG OXML ASYNC LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACES      #      	 
   T C DATEv T C HOURSv T C CENTURYv G9( G( YMD G  T
  - T
    dT 8 <xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'C
 C
 5 	xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'C
 C
 , 	xmlns:rs='urn:schemas-microsoft-com:rowset'C
 C
  	xmlns:z='#RowsetSchema'>C
 C
  <s:Schema id='RowsetSchema'>C
 C
 - 	<s:ElementType name='row' content='eltOnly'>C
 C
  T	 C   (	 # T  CC   @E T   		<s:attribute type='C    '/>C
 C
  ^ T    		<s:extends type='rs:rowbase'/>C
 C
  	</s:ElementType>C
 C
   (	 
 T C    T C _
 HMw
   CK T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='string' dt:maxLength='CC   _. ' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    MP T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER=' , ' rs:maydefer='true' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='string' dt:maxLength='C
_' ' rs:long='true' rs:maybenull='false'/>C
 C
    N~T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 - 		<s:datatype dt:type='number' dt:maxLength='CC   _ ' rs:scale='CC   _@ ' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Ll T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 ] 		<s:datatype dt:type='boolean' dt:maxLength='2' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    DW T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 Z 		<s:datatype dt:type='date' dt:maxLength='6' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Tf	 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='  ' rs:writeunknown='true'>C
 C
 ~ 		<s:datatype dt:type='dateTime' dt:maxLength='16' rs:scale='0' rs:precision='19' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Id
 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 k 		<s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Ya T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 j 		<s:datatype dt:type='i8' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Fo T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 { 		<s:datatype dt:type='number' dt:maxLength='19' rs:scale='5' rs:precision='8' rs:fixedlength='true' rs:maybenull='false'/>C
 C
    Bo
 T
  	<s:AttributeType NAME='C   
 ' rs:NUMBER='C _ ' rs:writeunknown='true'>C
 C
 m 		<s:datatype dt:type='float' dt:maxLength='8' rs:precision='15' rs:fixedlength='true' rs:maybenull='false'/>C
 C
  2w
 4 T  
  	</s:AttributeType>C
 C
  A T   </s:Schema>C
 C
 	 <rs:data>C
 C
  ~ T   <z:row   (	  T  C    =' T CC    T C   
 H   C	   MW
 T
   T
 C
  # &#x23; T
 C
  & &#x26; T
 C
  ' &#x27; T
 C
  < &#x3c; T
 C
  > &#x3e; T
 C
 C   &#x00;   L$ T
 C 
  True  False6   Y T
 CC ZA   D	 %C  T
 
 1899-12-30  T
 C _    To %C J  T
  1889-12-30T00:00:00 k T
 CC _   T  2 T
 C _  T  
  '   T   />C
 C
  = T  
 </rs:data>C
 C
  </xml>C
 C
  SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
	 B  U  LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LNX	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY LCXML LNFIELDS LCT LCTYPE YMD THIS LERROR	 CERRORMSG LAFIELDS LCRECNO LVVALUE#        %C   C4 	 B    %C  NZ 
 T  + T CC	  Q <error>C
 C
 0 T  C errormessageC  `    %C  N . T  C errornumber        B CC	  Q </error> U 
 LCERRORMSG
 LNERRORNUMBER LNINDENT LCXML THIS
 ADDELEMENT           
   T	 
 - T	     %C   $ T	   No XML input passed. B  %C  O ' T	   No input object passed. B  T C  b
 T    (  T CC   @( %C ,  , ,	   O .  %	 
 u T C \ 
 T     %C <  >    .  T C	 loObject. b T C     	  
 H   CMB7 loObject.&lcField =  STRTRAN(lcValue,"&#00",CHR(0))
   NIFz$ loObject.&lcField = VAL(lcValue)
   T% loObject.&lcField = CTOT(lcValue)
   D% loObject.&lcField = CTOD(lcValue)
   LQ %  True* loObject.&lcField = .T.
 M loObject.&lcField = .F.
    O 	  	- T C    <  > </  > 8 THIS.xmltoobjectnoparser(lcObjXML,loObject.&lcField)
 2 loObject.&lcField = .NULL.
  	 B  U  LCXML LOOBJECT LNPROPERTIES LNX
 LCXMLFIELD LCFIELD LCTYPE LCVALUE LAPROPERTIES THIS LERROR	 CERRORMSG CPROPERTYEXCLUSIONLIST LSTRIPTYPEPREFIX	 GETOBJVAR LRECURSEOBJECTS LCOBJXML EXTRACT      '      	 
      & T CC    _item  6# T CC  N   6 T C   T C   %   
 T   % . T CC	  Q <  >C
 C
  Y? T CC	  Q <   dim='C _ '>C
 C
    (  %  T C     T
 C E T C    C
  O  type="
  "   6
   
 T     (  T C       T
 C I T  C    C
  O  type="
  "   6
     T    / B CC	  Q </  >C
 C
  U  LAARRAY LCNAME LCROW LNINDENT LCOUTPUT LNX LNY LNROWS LNCOLS LCFIELD LCTYPE LVVALUE LCTEMP THIS
 ADDELEMENT             T CC     6 %C   ) T	 
  No SQL statement provided T	  a B-  %C  T 	   %C 
/ T	 
  Unable to connect to datasource T	  a B-   T C  % 
w/ T	 
  Unable to connect to datasource T	  a B-  %C  T  TXMLSQLQuery  T
 C   i %
 , T C z- T	 
 CC  Server] .a  . T	  a C g B-  C g %
 j BC        	    BC   
 	   U  LCSQL LCCONNECTSTRING LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LOSQL LNX LNSQLHANDLE THIS	 CERRORMSG LERROR CSQLCONNECTSTRING LNRESULT LNCOUNT LAERROR EXTRACT CURSORTOXML MULTICURSORTOXML         %C  7  T  CC@  %C W 
 T    %C z  T  row  %C  
 T   
 T   
 T     (  %  
 T     T   C _ 
 F  % 	 P" T  C       
  A T  C     C 	   #    6   e B  CC	  Q < 
  >C
 C
   CC	  Q </ 
  >C
 C
  U  LCCURSORNAME LNCOUNT	 LCROWNAME LNINDENT LNX LCSCHEMA LCXML	 LCTCURSOR THIS NCREATEDATASTRUCTURE CREATEDATASTRUCTURESCHEMA CREATECURSORXML
 CXMLHEADER CDOCROOTNAME            T 	 - T 
    %C   O  T 	 a9 T 
 ) No Recordset Object passed to ADOToXML().	 B    % 
  T     
 T     %C  T CC@  %C $ T  row  %C D
 T    %   T  
 <!DOCTYPE  
   [C
 C
 
 <!ELEMENT  
   (  )>C
 C
 C         C
 C
  ]>C
 C
 C
 C
  5 T  CC	  Q < 
  >C
 C
 J B C           CC	  Q </ 
  >C
 C
  U  LORS LCNAME	 LCROWNAME LNINDENT
 LLNOHEADER LCOUTPUT LNFIELDS LNX THIS LERROR	 CERRORMSG
 CXMLHEADER LCREATEDATASTRUCTURE CDOCROOTNAME CREATEDATASTRUCTUREDTD CREATEADOXML            	 
    
    %C j  T  table  %C   T  row  %C  
 T   T C DATEv T C HOURSv T C CENTURYv T C MARKv G9( G( YMD G  G:( -
   T C      . T CC	  Q <  >C
 C
  +   
g
 T   6 T  CC	  Q <  >C
 C
   (  T	 CC   @ T
 C    T C     
 H> C ^ T  NULL 
  C	 
  M %C 7 T  CC	  Q <	  />C
 C
  . D %C
  	  > 	  < 	  & 
 C   |f T  CC	  Q <	 
 ><![CDATA[CC C   &#00;` ]]></	  >C
 C
  .  T C `   
  L %  ! T C 	  .T.  .F.6  T C   1  06  
  DP %C 5
 T    L T C *  
  T %C 
 T CC    T 
 T     
  G . 2 T C _ I T  CC	  Q <	  >  </	  >C
 C
  7 T  CC	  Q </  >C
 C
 
 C     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G:( / B CC	  Q </  >C
 C
  U  LORS LCNAME	 LCROWNAME LNINDENT LCOUTPUT LNFIELDS LNX LVVALUE LCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURY LCTIME
 LCOLDHOURS	 LCOLDDATE	 LCOLDMARK
 LNOLDHOURS YMD LAFIELDLIST THIS	 ADOFIELDS EOF FIELDS VALUE LUSEFOXTYPES MOVENEXT       T           ( ( T  C      ( T  C      ( T  C       T	 C     
 
 H  C	   # T   C' C	 
        h T   M 	   T   L C	    T   D C	    T   T 	  T T   N( T  C      $ C	       ! "  T   I C	 #  T   Y 	 $  T   B( T  C       	 % t T   F( T  C       2'  Unknown Ado field type: C	 _  	 B  U&  LORS LAFIELDLIST LNX LNFIELDS FIELDS COUNT NAME DEFINEDSIZE NUMERICSCALE LNFIELDTYPE TYPE ADCHAR ADBSTR	 ADVARCHAR
 ADLONGVARCHAR ADWCHAR
 ADVARWCHAR ADLONGVARWCHAR ADBINARY ADVARBINARY ADLONGVARBINARY	 ADBOOLEAN ADDATE ADDBDATE ADDBTIME
 ADDBTIMESTAMP	 ADNUMERIC	 PRECISION	 ADINTEGER
 ADSMALLINT	 ADTINYINT
 ADUNSIGNEDINT ADUNSIGNEDTINYINT ADUNSIGNEDSMALLINT ADUNSIGNEDBIGINT
 ADCURRENCY ADDOUBLE ADSINGLE	            	  
 	    %C   , T
   No data provided for element B-  T C dim     %C 
  T C  g %   
 T    
 T   T     T     T    T C  T CC  %  O
     (  T  C    
 T   
    
 T      T   %  O1 C  C     
   .  T C type    %C 
p T     T   
 H   CM" T  C  &#00;C     NIF T  C g   T T  C    D> T  C #   L! %  True	   1 T  a  T  -  2 T     %  T C         Ba U  LOXMLOBJECT LAARRAY LLPARSECASEINSENSITIVE LNSIZE LNX LOOBJECT LCFIELD LCTYPE LNPROPERTIES
 LOPROPERTY LAPROPERTIES LCVALUE LNDIMENSIONS THIS	 CERRORMSG LODIM
 ATTRIBUTES GETNAMEDITEM VALUE LCNAME NODENAME LOROWS
 CHILDNODES LNROWS LENGTH
 COPYOBJECT OROW PARSEXMLTOOBJECT LOTYPE TEXT LNELEMS6            	 
 # T CC  N   6 %C q 
 T      T      %C   T C  
 T	   
 H &! C
 ALEN(lvValue)b N %  ! T
 C      
 ' T    count="CC _ " %C 
~) T
 C
  <   <     T	 	 
  H T	 	 CC	  Q <  
 >(array)</   >C
 C
   C K %  	 B   8 T	 	 CC	  Q <     />C
 C
    C %   C 		 B    %C / BCC	  Q <    />C
 C
   % & 0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
  % > J) lvValue = STRTRAN(lvValue,">","&gt;")
  % < + lvValue = STRTRAN(lvValue, "<", "&lt;")
 C BCC	  Q <    >C ` </   >C
 C
     D	   T %   C 		 B     Q DATETIME
 T    %C 
 T C  .00000I T	 	 CC	  Q <    >  </   >C
 C
  8 T	 	 CC	  Q <     />C
 C
     L_Y T	 	 CC	  Q <    >C   1  06 </   >C
 C
    B	   QO T	 	 CC	  Q <    >C 
 </   >C
 C
    O
 H= C lvValue.BaseClassb C   
 Collection	L$ T
 C      item    $ C lvValue.NodeTypeb N1 T
  <    >   </   > 2 T
 C          	 B
  2&K T	 	 CC	  Q <    >C _ </   >C
 C
  	 B	  U  LCDISPFIELD LVVALUE LNINDENT LCATTRIBUTES	 LCFOXTYPE	 LCOLDDATA
 LNOLDHOURS LCOLDCENTURY	 LCOLDMARK LCOUTPUT LCRESULT THIS LRECURSEOBJECTS CREATEARRAYXML LSKIPEMPTYELEMENTS LCDATE	 BASECLASS CREATECOLLECTIONXML XML CREATEOBJECTXML       %C .  T     T C <   >  T C </   >  %    B-  U 	 LCELEMENT LCVALUE LCXMLDOC THIS CBODY LNLOC LNLOC2          T  - T    $ %CC   O C
 C   $ T   No XML input passed. B-  %C   T  __wwXML  %C   O " T C msxml2.domdocumentN C    	  
 T     %C 
  
N T   
  C
 C
  Line: C 
  _C
 C
  
 
  B-  T  a T    %C J T  : Invalid data root. Data must be in child of document root. B-  %C 
:" CC C         L
 F  ! T C
 rs:data/z:row   %C , T   No data provided for element B-  BC     U  LVXML LCALIAS LOXML LNX LNSIZE LCCREATE THIS LERROR	 CERRORMSG LOADXML
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACE	 LODOCROOT DOCUMENTELEMENT BUILDCURSORFROMXML
 CHILDNODES LODATA SELECTNODES PARSEADOXMLTOCURSOR%   !        T C DATEv T C HOURSv T	 C CENTURYv T
 C
 STRICTDATEv G9( G( YMD G  G(  T C       T  
   (  T CC   @ T C    T C      %C J .  T   
 T  
 Hx   NULL T    CM   NIF T C g   T T C    D T C #   L %  B T C   %  Truej T a } T -     G . 2 T C   >     SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(  Ba U  LODATA LNFIELDS LAFIELDS LNX LCTYPE LCFIELD LOROW	 LCOLDDATE
 LNOLDHOURS LCOLDCENTURY LNOLDSTRICTDATE YMD _LCXML XML LOVALUE
 ATTRIBUTES GETNAMEDITEM LCVALUE TEXT THIS LUSEFOXTYPES LNSTRICTDATE     BC  	 U  LCXML  T  C  $ T C] \C] .xml C  C       T C AdoDB.RecordSetN C    
   	 B  U  LCXML THIS CURSORTOADOXML LCFILE FILE2VAR	 ENCODEXML ORS OPENJ            	  T
     T
  - T	 C wwHTTPN %C  N  T	 
    %C 
  T	   C    	    T C       	   %C 
 	 B  : %	   6 T
  a T
  	    	 B   U  LCURL LCPOSTBUFFER
 LCUSERNAME
 LCPASSWORD	 LNTIMEOUT LNSIZE LCDATA LNRESULT LLHTTPS LOIP THIS	 CERRORMSG LERROR NCONNECTTIMEOUT
 NHTTPPOSTMODE
 ADDPOSTKEY LCRESULT HTTPGET NERROR      5  %C 2 
 T   
 HC 	  , T C wwEvalN8 T C$  CREATEOBJECT("MSXML2.DOMDocument")    %    ( %  
 C2 You have an old version of MSXML installed.  It isC
 5 recommended that you update MSXML to a newer version.C
 C
 - Would you like more information from the Web?$
 msXML Versionx	 Cz http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/596/msdncompositedoc.xml   Ba  2	" T C msxml2.domdocumentN T C wwEvalN) C  oXML.LoadXML("<?XML?>")    %    %  
 C0 The version of MSXML.DLL on your system containsC
 0 a bug that causes undocumented COM errors. It isC
 5 recommended that you update MSXML to a newer version.C
 C
 - Would you like more information from the Web?$	 msXML Bugx	= C0 http://www.west-wind.com/webconnection/msxml.asp   Ba   B- U	  LLNOUI LLFORCEFAIL LNTYPE OXML LOEVAL LOMSXML EVALUATE LERROR GOURLT      /      	  
     %C  _  T  CC@  %C   T  row  %C   T  Schema  T	 C
XT  <Schema name=" \ " xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">C
 C
     <ElementType name="  0 " content="eltOnly" model="closed" order="many">C
 C
  		<element type="  " />C
 C
  	</ElementType>C
 C
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
  %C  O
 
  T C  
     T C
    ( C T   		<element type="CC  
 @ "/>C
 C
  , T   	</ElementType>C
 C
 
 T
     ( + T C  
 
 Hu   M T 

 T     Y
 T 
 T    G . 2 T C  
  T C  
   T C    T   	<ElementType name="CC  
 @- " content="textOnly" model="closed" dt:type="  ">C
 C
  		<AttributeType name="type"/>C
 C
 " 		<attribute type="type" default="  "/>C
 C
  		<AttributeType name="size"/>C
 C
 " 		<attribute type="size" default="C _ "/>C
 C
 C  y # 		<AttributeType name="precision"/>C
 C
 ' 		<attribute type="precision" default="C _ "/>C
 C
    6 	</ElementType>C
 C
  " B 	 </Schema>C
 C
  U  LCNAME	 LCROWNAME LORS
 LCSCHEMAID LCOUTPUT LNX LCROW LCTYPE LNFIELDS LCSPACE LCATTRIBUTES LNSIZE LNPRECISION LAFIELDS THIS	 ADOFIELDS FOXTYPETOXMLTYPE      -      	 
    %C   %C  
  Cw  T   
    T  object   %C  
 T    %C   T  Schema  %   T  <Schema name=" \ " xmlns="urn:schemas-microsoft-com:xml-data" xmlns:dt="urn:schemas-microsoft-com:datatypes">C
 C
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
  
 T     T C	   b
 T
   
 T    %    2  (  T CC  	 @( % ,  , ,   , .  %   T C \ 
 T    %  ! %C	 loObject. b O T
 
  	<ElementType name=" 0 " content="eltOnly" model="closed" order="many">C
 C
 CC	 loObject.     9 T   		<element type="  "/>C
 C
  .  9 T   		<element type="  "/>C
 C
   T  "       <AttributeType name="type"/>C
 C
 0       <attribute type="type" default="object" />C
 C
 #       <AttributeType name="class"/>C
 C
 0       <attribute type="class" default="empty" />C
 C
 0 T   	</ElementType>C
 C
 
   % T
 B 
    ( e T CC  	 @( % ,  , ,   , . # T CC	 loObject. b   %   T C \ 

 T   ! %     object	e/ T  CC	 loObject.      .  T   	<ElementType name="C @- " content="textOnly" model="closed" dt:type="  ">C
 C
  		<AttributeType name="type"/>C
 C
 " 		<attribute type="type" default="  "/>C
 C
  	</ElementType>C
 C
   T    % 	 B  " B 	 </Schema>C
 C
  U  LOOBJECT LCNAME
 LCSCHEMAID
 LNRECURSETYPE LNPROPCOUNT LNX
 LCPROPERTY LCTYPE LCOUTPUT LAFIELDS LCOBJECTHEADERS LCOBJECTPROPERTIES LCDISPFIELD CLASS THIS CPROPERTYEXCLUSIONLIST LSTRIPTYPEPREFIX LRECURSEOBJECTS CREATEOBJECTSTRUCTURESCHEMA FOXTYPETOXMLTYPE            T C   	 
 HH v C  f NULLj  T     CM}    NIF  T  C  g   T	   D T C DATEv T C HOURSv T
 C CENTURYv T C
 STRICTDATEv G9( G( YMD G  G(  %  T^ T  C   y T  CC    SET DATE TO &lcOldDate
 G9(  SET CENTURY &lcOldCentury
 G(    LL %   T  C   H# %   1 C  @ true1 T  a D T  -     Gb .   B T  C     O_ %C  O) T
    <xdoc>   </xdoc> T C 
     
 T     %C [) T
    <xdoc>   </xdoc> T C 
   
 T     2v T  C   	 B   U 
 LCXMLVALUE	 LCXMLTYPE LVSTORE LCTYPE	 LCOLDDATE
 LNOLDHOURS LNOLDCENTURY LNOLDSTRICTDATE THIS XMLTYPETOFOXTYPE LCOLDCENTURY YMD LUSEFOXTYPES LCXMLDOC
 CXMLHEADER LVRESULT XMLTOOBJECTm             T	 
 - T	     %C   C  %C    T	 
 a$ T	   No XML input passed. B- % T  C   encoding="utf-8"   2 %C lvXML.asyncb L. T	 
 a$ T	   No XML input passed. B-   %C Y T  __wwXML  %C   O" T C msxml2.domdocumentN C      
 T     T 
 a %C   
E T	 
 aN T	     C
 C
  Line: C   _C
 C
     B-  T    %C  T	 
 aM T	  = Invalid XML Doc root. Data must be in child of document root. B- . T C diffgr:diffgram/NewDataSet   %C 
 %C 
3 T C diffgr:diffgram/NewDataSet/    %C g	 B    BCC    a	   . T C diffgr:diffgram/NewDataSet   %C 	 B    BC  	    f %C 
Q T C     %C 2	 B    BCC    a	   b	 B     U  LVXML LCALIAS LCDATASETTABLENAME LOXML X LNSIZE LCCREATE LOCURSOR LODATA THIS LERROR	 CERRORMSG LOADXML PRESERVEWHITESPACE
 PARSEERROR REASON LINE SRCTEXT	 LODOCROOT DOCUMENTELEMENT LODIFFGR SELECTSINGLENODE SELECTNODES PARSEXMLTOCURSOR ITEM
 PARENTNODE    '        	 
  %C  H  B-  T     T C ElementType    %C   B-  T  
  % 
  B- % T C nameC      % T C nameC     T T  <root>  <   xmlns="x-schema:#Schema"><  >C
 C
   ( & T	 C nameC       ( T   <	  />C
 C
  . T   </  ></  ></root> T
 C wwXMLN T C  
   %C   
e T      T  a B-  CC          %   B-  Ba U  LOSCHEMA LCALIAS LCSCHEMAXML LOFIELDS LNFIELDS LCCURSOR LCROW LCXML LNX LCNAME LOXML XML SELECTNODES LENGTH ITEM
 ATTRIBUTES GETNAMEDITEM TEXT LODOM LOADXML
 PARSEERROR REASON THIS	 CERRORMSG LERROR BUILDCURSORFROMXML DOCUMENTELEMENT SELECTSINGLENODE        %C 5  T  string  T C      %C u  BC         T  	  %C  	 B   BC        U
 
 LOROOTNODE LCXPATH LCTYPE LVSTORE LOVALUE SELECTSINGLENODE THIS XMLVALUETOFOXVALUE LCVALUE TEXT             T  T C 	  U T C
  N    
  T    T    C    
 %  T C 	   %    T C  	   T  string  9 T C type     T C  
   %  O T C  C  
   loObject.&lcField = loTemp
 D loObject.&lcField = THIS.xmlvaluetofoxvalue(loField.TEXT,lcType)
  	 B  U  LOOBJECTSTRUCTURE LOTYPE LOOBJECT LNINDEX LLUSECUSTOMTYPES LCTYPE LOATTRIBUTES LCFIELD	 LCFOXTYPE APROPERTIES THIS COBJECTCLASS LOFIELD
 CHILDNODES
 ATTRIBUTES NODENAME ADDPROPERTY GETNAMEDITEM TEXT XMLTYPETOFOXTYPE LOTEMP BUILDANDUPDATEOBJECTFROMXML POSDL ATYPES            	  T
     %C  N` 
 T    T CC	  Q <  >C
 C
 CC	  Q <count>C
 _ </count>C
 C
 CC	  Q <items>C
 C
   (
  T C      T C 
 T	  v T  C    C  O,  key="C      " type="  "  key="C      "6
   V B CC	  Q </items>C
 C
 CC	  Q </  >C
 C
  U  LOCOLLECTION LCNAME LCROW LNINDENT LCOUTPUT LNITEM LNX LVVALUE LCTYPE LCFIELD LNITEMS COUNT ITEM THIS
 ADDELEMENT GETKEY    Q
 COLLECTION        %C  v , T 	  No data provided for element B-  T C
 items/item  
  T C keysort    %C 
  T  C 
 g  T    %  b T C   T C  %  O^ T CC    C     T 
 T    
 T      T   T  
    T C key    %C 
 T  
  
 T     T C type    %C 
X T  
  n T  C 
 H   CM %C  CC  &#00;C     # CC  &#00;C       #   O   object %  O %C 
R T CC        s T CC       C  C          NIFY CC g       T CC        D CC #       Lj %  TrueL Ca     f C-      2 C       Ba U  LOXMLOBJECT LOCOLLECTION LNX LCNAME LOROWS LNROWS LOITEM	 LOKEYSORT THIS	 CERRORMSG SELECTNODES SELECTSINGLENODE KEYSORT TEXT LENGTH COUNT
 LVTEMPLATE ITEM LCTEMPLATETYPE
 COPYOBJECT REMOVE OROW LCVALUE LOT
 ATTRIBUTES GETNAMEDITEM LCKEY LCTYPE ADD PARSEXMLTOOBJECTn       X B <   >C
 C
 C           </   >C
 C
  U  LAARRAY LCNAME LCROW LNINDENT THIS CDOCROOTNAME CREATEARRAYXML      T C     5 %C! Doc.DocumentElement.ChildNodes(0)b O - T   Invalid XML format for array. B-  BCC        U	  LVXMLORNODE LAARRAY DOC THIS LOADXML	 CERRORMSG PARSEXMLTOARRAY DOCUMENTELEMENT
 CHILDNODES
      T C  
 H+  C  C 	 B     C %C  m 	 B   0 lvValue = STRTRAN(TRIM(lvValue),"&","&amp;")
) lvValue = STRTRAN(lvValue,">","&gt;")
+ lvValue = STRTRAN(lvValue, "<", "&lt;")
	 B      D	   T %C  F T     lBA   Q DATETIME T C   .00000	 B    L BC    1  06   Q BC  
   Y BCC  _ $    BC  _ U  LVVALUE	 LCFOXTYPE LCDATE          %C 6 
 T     %C a  T C        T C         T	 C 
 H   	  C  T 
    C     	 B  U  LONODE LCNAME LCVALUE LCNAMESPACE	 LONEWNODE THIS OXML
 CREATEELEMENT
 CREATENODE LCTYPE TEXT APPENDCHILD        %C / 
 T     T C        T    C    	 
 	 B   U  LONODE LCNAME LCVALUE LCNAMESPACE LOATTR THIS OXML
 CREATENODE TEXT
 ATTRIBUTES SETNAMEDITEM        T  - T     T   %C  Od 
 T   E %C   8 T  ( No filename passed to load XML document. B  %C   O" T C msxml2.domdocumentN T 	   0 T    T 	    C    
  ; %C loxml.parseerror.reasonb C
 C   
	N T     C
 C
  Line: C  
 _C
 C
     T  a B  T  a T   	 B  U  LCFILE LLASYNC LLPRESERVEWHITESPACE LOXML THIS LERROR	 CERRORMSG OXML LCXML ASYNC LOAD
 PARSEERROR REASON LINE SRCTEXT PRESERVEWHITESPACEx      %C ' 
 T    T C
 CC	  Q   T C       BC      U  LONODE LNINDENT LCTEXT LOTEXT
 OWNERDOCUMENT CREATETEXTNODE APPENDCHILD%"T   ` ,activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,H class,name,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,b width,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column, U  THIS CPROPERTYEXCLUSIONLIST objecttoxml\      	 getobjvarK      CURSORTOXML\      XMLTOCURSOR
      createdatastructurexmlN      CreateCursorXML      createobjectstructurexml      CreateObjectXML!      xmltoobject,      FoxTypeToXMLType0      xmltypetofoxtype2      ParseXMLToObject5      BuildObjectFromXML=      ParseXMLToCursorA      BuildCursorFromXMLNF      CreateDataStructureDTDMK      CreateObjectStructureDTDO      LOADXMLS      cursortoadoxmlV      createerrorxml	h      xmltoobjectnoparserni      CreateArrayXMLHn      sqlcursortoxmlq      MultiCursorToXMLt      adotoxmlw      CreateADOXMLz     	 ADOFieldsʁ      ParseXMLToArray7     
 AddElement     
 setelement      adoxmltocursor{      ParseADOXMLToCursor7     	 EncodeXML5     
 cursortorsY      loadurl6     
 ismsxmlbugE      createdatastructureschema      createobjectstructureschema      xmlvaluetofoxvalue|      datasetxmltocursorʸ      CreateCursorfromschemaO      xpathvaluetofoxvalue      buildandupdateobjectfromxmlC      CreateCollectionXmle      ParseXmlToCollection     
 arraytoxml     
 xmltoarrayr      foxvaluetoxmlvalue     
 adddomnode      adddomattribute      LOAD      adddomlinebreak      INIT~     
 T  
 T c
 T   / T  <?xml version="1.0"?>C
 C
 2 T % -- Override in code. Set in Init() -- T - T -
 T   
 T    T	 - T
 - T  EMPTY T  xdoc T
  T - T 333333@ T - T - T -
 T   
 T   T  Schema
 T   
 T   T  wwxml T -
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      
  !   
  "   
  #   
  $   
  %   
  &   
  '   
  (   
  )   
  *   
  +   
  ,   
  -   
  .   
  /   
  0   
  1   
  2   
  3   
  4   
  5    U  HEIGHT WIDTH CBODY
 CXMLHEADER CPROPERTYEXCLUSIONLIST LXMLHEADERSENT LCREATEDATASTRUCTURE CDTD	 CERRORMSG LUSEFOXTYPES LRECURSEOBJECTS COBJECTCLASS CDOCROOTNAME OXML LERROR CVERSION LSKIPEMPTYELEMENTS LUSEPARSERFOROBJECTIMPORT LSTRIPTYPEPREFIX CSQLCONNECTSTRING NCREATEDATASTRUCTURE CSCHEMANAME
 CSCHEMAURL	 NENCODING NAME LSQLPERSISTCONNECTION wwXML CUSTOM      1 1    A  !! !A A    A  AA A  BB A BR A  5  q   A AA  5 1     A   A  A   A A  AQAB	RA  AQ A R5   R  Aq A U  Aq A A  AA S!  A  c q A   q A  qA Qq A A A  A  Qq A A A q A   A 5     A  "q UA 2A u4 1q   A  A   A   A   A A  rt"A 3Aa1  a  "  bqqQ#A A     qA  !A !A !A A A ! A !    A ! qA A !A  A A rA   BaA 5  1  1A A   A  QqAA A A $5 1R  2Aa1  a   AA R A   A  a A   A A SrAA A !  A   Q A  A A Q!A A !A !A !A A ! A A  A ! A A  QA !!"q A  A !!Q! A A   BbA 5     Aq A R!  A c q A    q A RAA R q A A BA 5 q  A  1!!1!A!A! !!Q!1!q  A  5 q  A  Q      Q    A  5  q q A Qq A 2Aa  a  T qB!  A A A S  !a A A A  A A  A A A  QU A2Q!!1#! A Q A  B A    5 q   2 ! q A  A  "  !!!!Q!# A A  5  1u A "q 3Aa  a  "   A  Q qqQS A A   CB !!!     A A B   A A A   r 5  q2q A A q A BA 21 ! A 2A A  A A A   A q 5    A  A  R  !A Rq1 A A rQ ! !  !A  QQA BA "A  5    1A A  Q Rq!1A A aA r!1A A qA A tA  5  q   R  " A A  q A   5 123Aa  a  I#q1QA sQ  !!3"!
!
!#!!! C BB  rrQ  !A!q! q  A !  A   A rA A   5  q R A R A RA 5     Aq A Qqq A U qAA A !  A A A  1qAA!Q!Q!Q A  B A  5 1q a121 A  A r!T  qbA A A 5    q A    q A A  q A  A 2!!  q A  A R5 1q   A   A  A   A   s  qA  A!A A X5 q  R  A    A   A  A   A 5
B R5 1q !A  A   A 2Aa1  a   # bqqQ   qA  AbA   A A ! A !    A !  A "A   A A r A   5  q 21 QsQQB! qA C  5   q A ! A   A A" qA    A   $A A A  1!AQ!a!Q! A  B A q1A r 5 q2   !A  A   qA  A   A ! A   !A !A !A 3A  A 2 p A #! AC A   A  5   A r A 5  1 BAq A  AA R!  A cq A   q A "  A  q A 4 q 2Aa  a  " Q qqQ A A   Q 1B !! !  Q   A A !A   A A A   r 5 q  5 B  5 qq cQA AA   A 1A A  5  q   A  bq
qA q A  !brA q A A r 5 1  A  A  1A  R  !A r1A  rQ ! !  !A  QQA RA #5 1  1A A   A  1A s  A R  qAA A !  A A A A A %A  A rAA A 1!  A A A A  A "5  qR q 1B 1Aa  a  " 1B   !  1   A A !A !1!Q A  Q A   A  6   R  Aq A T  Aq A A  AA R!  A  c q A   q A 1  A    A A  Q  A   A A 5  q q A  q A q A RQHaA RQaa q A q A r 4 1 1A R A   A 4   3$  1A  A S! BA PA  5 1R A rQ dA d5  q A QA CA!A    A   q   A   A  1 1A 2! A A Qa!q!a!Q! !A  "A A r 5 15  RRq A 5 q q    !    A  1A 2 !! !A  5 1q   A   A  !A  5 1  A A 6  q   R   q A " A A  q A   5    A r 4 %7    "      "  R     2  !        P	   
  @ @  p  p P   	  p   @   p 0      `             P p `           9                      g  T   .   1  m     :          a   4  )        c*  -  W     -  ?  x  $  ?  kC    ;  C  k[  1    [  a      b  d  !    d  qh  F  !  h  w  k  |  jx  }      \~    !      u      ]      M        q    C  @      T  n      ܽ          %  +    j  m  K        r  e  ^              d  i  3      D    #    d    f    	 +    
             A       F	  "   z M	  *    ]	  A   # 	  ]  a$ S- 	    - : 	    ; C d
  
  ?D ~N 
  L  N T   o  @T U O  }  U *^ e    ^ 1c     c l     Pm n 3    sn o =    o u L    Iv w   0  7x $y   9  jy {}   W  E~ *   `  I    b     Ā    '  %   6Y  b  j    b  *S
&  3  G+( wwHTTP G+( wwUtils G+( wwAPI U  WWHTTP WWUTILS WWAPID  %C   1  T   C wwFileStreamN  B    U  THIS OPOSTSTREAM    # T  CC   C      6! T    
 wwIPStuff.dll  | GetLastError WIN32API %C  
       B U  LCPATH THIS CDLLPATH GETLASTERROR WIN32API PATHvX   Q STRING Q STRING Q BOOLEAN Q STRING Q STRING Q STRING  # T  CC   C      6! %   RESET Ct   %    %C 	 
  C 	 
     T      B  %Ct
)
 T   
 T      %C  CR T C _  %  
4 %C  

 H
   > T    CC  
  &   6   =C  
    
 %C 
&, T C  C
 C
   VC
 C
  ;
 T    
 %  %C m T CC @  T     -- ------7cf2a327f01aeC
 C
 & Content-Disposition: form-data; name="  
 "; filename="  "C
 C
  %C 
J9 T     Content-Type:  C
 C
    T    C
 C
  T    CC  T    C
 C
  	 %C 
" T  ; filename="  " 
 T     T     -- ------7cf2a327f01aeC
 C
 & Content-Disposition: form-data; name="   " C
 C
  %C 
9 T     Content-Type:  C
 C
    T    C
 C
 # T     C
 C
    0 T       o %C  
O
 HYK   : CCC  
  &   6   =C  
  	     K %C 
, T C  C
 C
   VC
 C
  
 T    
 % E C -- ------7cf2a327f01aeC
 C
 & Content-Disposition: form-data; name="  
 "; filename="CC @ "C
 C
  	   %C 
5 C Content-Type:  C
 C
   	    CC
 C
  	   CCC  	   CC
 C
  	   Gw C -- ------7cf2a327f01aeC
 C
 & Content-Disposition: form-data; name="   "C
 C
  	   %C 
	5 C Content-Type:  C
 C
   	    CC
 C
  	   C C
 C
  	     k C   	     U  TCKEY TCVALUE
 LLFILENAME
 LCCONTENTTYPE LCEXTRAHEADERS
 LCFILENAME
 LCOLDALIAS THIS LUSELARGEPOSTBUFFER OPOSTSTREAM CLEAR CPOSTBUFFER
 NHTTPPOSTMODE	 URLENCODE WRITE          %  
g 7 . You can't post a file unless nHttpPostMode = 2 % C                U	  LCKEY LCFILEORFILEDATA LLISFILE
 LCFILENAME
 LCCONTENTTYPE LCEXTRAHEADERS THIS
 NHTTPPOSTMODE
 ADDPOSTKEY     
 T Ct
 H%      C  O  T       # T      C
 C
  2 - T       :  C
 C
   U  LCKEY LCVALUE LNPARMCOUNT THIS
 CEXTRAHEADERS#      BC        U  LCKEY LCVALUE THIS	 ADDHEADER)     BCC     :C
   U  LCHEADER EXTRACT THIS CHTTPHEADERSY            T 	    T 
   # T  CCC  
      6` T     T  C  @# T CCC 
     6`# T CCC 
    
 6` %   http:// T  C   http://    %C http:    T  b T  R You must provide a server name (ie. www.somedomain or 111.111.111.121), not a URL.
 B  %   & T C      P6  T     T       T    T    + | InternetCloseHandle WinInet.DLL  | GetLastError WIN32API, | InternetOpen WININET.DLL0 | InternetSetOption WININET.DLL %C  
 T   ) T C           %  q T  C  T  C     B    T   5 | InternetConnect WININET.DLL. T! C            "     %!  9 C    T  C  T  C   B    T # ! 	 B  U$  LCSERVER
 LCUSERNAME
 LCPASSWORD LLHTTPS LHIP LHHTTP LNERROR
 LNHTTPPORT THIS CRESULTCODE CHTTPHEADERS CSERVER	 CUSERNAME	 CPASSWORD NERROR	 CERRORMSG	 NHTTPPORT LSECURELINK INTERNETCLOSEHANDLE WININET DLL GETLASTERROR WIN32API INTERNETOPEN INTERNETSETOPTION CHTTPPROXYNAME NHTTPCONNECTTYPE HINETCONNECTION
 CUSERAGENT CHTTPPROXYBYPASS GETSYSTEMERRORMSG
 HIPSESSION INTERNETCONNECT
 LHHTTPSESSION
 NSERVICEFLAGS HHTTPSESSION + | InternetCloseHandle WININET.DLL %  K  C     T     %     C     T     % 	    C 	    T 	    U
  INTERNETCLOSEHANDLE WININET DLL THIS LUSELARGEPOSTBUFFER OPOSTSTREAM CLEAR CPOSTBUFFER HHTTPSESSION
 HIPSESSION      '      	 
    T
    5 %C http://  
 C https://  
	  T   http://    T
    T
     %C  N 
 T  
 T   
 T    F
 T   T CC      6 T CC      6  T C   
   %C  O T
  # T
   Invalid URL passed.	 B   % T	 CC  @ https a -6 T
  	  T
  C  g# T
 C       	 
   %
  <	 B    %  m T C X
 T   
 T   
 T   + T
 C        
  
 C
  	 B  U  LCURL
 LCUSERNAME
 LCPASSWORD LCOUTPUTFILE LNERROR LNSIZE LCBUFFER SZHEAD LOURL LLHTTPS LNRESULT HINETCONNECTION HHTTPRESULT THIS CRESULTCODE NERROR	 CERRORMSG TNBUFFERSIZE INTERNETCRACKURL	 CPROTOCOL LSECURELINK	 NHTTPPORT CPORT HTTPCONNECT CSERVER LCDATA	 HTTPGETEX CPATH CQUERYSTRING	 HTTPCLOSEI      T     T   BC            U  LCURL LCOUTPUTFILE THIS	 CHTTPVERB
 NHTTPPOSTMODE HTTPGET       %  8  T   POST  %C   
n 
 C   C      BC          	  U
  LCURL
 LCPOSTDATA LCOUTPUTFILE THIS
 NHTTPPOSTMODE	 CHTTPVERB
 ISNULLOREMPTY CLEARPOSTBUFFER
 ADDPOSTKEY HTTPGETv       T   PUT %C   
T 
 C   C      BC            U	  LCURL
 LCPOSTDATA LCOUTPUTFILE THIS	 CHTTPVERB
 ISNULLOREMPTY CLEARPOSTBUFFER
 ADDPOSTKEY HTTPGET?      T   DELETE BC            U  LCURL LCOUTPUTFILE THIS	 CHTTPVERB HTTPGET              T  CC  	 	 
    6% T CC  N   C >6 T C %	   & C Accept-Encoding gzip	    %C   T 	 
   %C http:	   s T	  b T	  R You must provide a server name (ie. www.somedomain or 111.111.111.121), not a URL.
 B  T	  - T	    T	 
    T	    T	     C	  M	  5 | HttpOpenRequest WININET.DLL- %	  
 C	  
 	  	Z T	  	  
  @   %C	   %	  , T C	    
  POST  GET6 ( T CC	   

  POST  GET6   T 	   L T C	       
       AC	 ! 	      6	     T	     %   T	  C"  T	  C	 #  B	    C	 %   	 $  C	 % 	 $  %	 &  C  3	    C  	 ' / | HttpSendRequest WININET.DLL )  T) - %	  
k T) C	   
 , %C	  
 C	  *   	 T) a  
 %) 
 H C	 + 
2 T  Content-Type: 	 + C
 C
   	 , i T / Content-Type: application/x-www-form-urlencodedC
 C
 CC 
 C
 C
     6 	 , | T , Content-Type: multipart/form-data; boundary= ------7cf2a327f01aeC
 C
 C
 C
 CC      6 %	  
qB T	   	    -- ------7cf2a327f01ae --C
 C
  > C -- ------7cf2a327f01ae --C
 C
 	  -   23 T  Content-Type: text/xmlC
 C
      T CC 
     6  %C	 . 
Y %C	 / 
U B	    
 T0   1  T1 a +1  T1 - T	    %	   T	   C	  2  C	  3  ) T0 C    C >	   C	   >(  %0   T	  C"  %	  / T4 	 5 0 | InternetSetOption WinInet.dll C  /4 6  T1 a .  T	  C	 #  C  7  B	    / |
 HttpQueryInfo WININET.DLL T9 C X T:   T0 C  9 : 8  T	 ; CC9 C    ` T9 CX
 T:  T0 C  9 : 8  T	 < CC9 C    ` %C	 ; 

= T	  CC	 ; C
 C
  Content-length: C
 = g  >  T> 	 ?  %	   
 T> 	  " %	 ?   > 	 ? 	
 T> 	 ?    C  	 ;  	 	 @ 0 | InternetReadFile WININET.DLL %  $ T C X
 TB   T0 C      A  ' %C 
 T C  %  T	  + T	   Couldn't create output file C  7  B	    
 T   
 TC  
 T0  
 TD 
 TE   F 
 TF    +a
 TG C> X
 TD   TH CG > T0 C  G  H D A  %0  D  	
 %C  TI CG D = TF F I   C G D   T  D  TE E  C   E  G  	 	 @   %	  
% TF  Error: Download canceled T CF > T	  " T	   Download Cancelled ! ) %0  D  		 0  
 !  
 TB  
 T F 
 TF    %C 
 C   C    	 	 @   %0  a T	  C"  T	  C	 #  % %	    	 <  399	 T	  C	 < g T	  	 J   C  7 3 T C    B 	 C  \   69 %	  & C Content-Encoding: gzip	 ;  	B T C  K  2 %	 L  C ; charset=utf-8	 ;  	 T C   B	   UM  TCPAGE TCBUFFER TNBUFFERSIZE	 TCHEADERS
 TCFILENAME HHTTPRESULT
 LCOLDALIAS LHFILE LCVERB THIS CLINK
 LALLOWGZIP APPENDHEADER
 CEXTRAHEADERS CSERVER NERROR	 CERRORMSG LHTTPCANCELDOWNLOAD NCONTENTSIZE	 SETOPTION HHTTPSESSION HTTPOPENREQUEST WININET DLL
 LCACHEREQUEST CHTTPPROXYNAME NHTTPCONNECTTYPE NHTTPSERVICEFLAGS	 CHTTPVERB LUSELARGEPOSTBUFFER OPOSTSTREAM NLENGTH CPOSTBUFFER LSECURELINK GETLASTERROR GETSYSTEMERRORMSG WININETSETTIMEOUT NCONNECTTIMEOUT LIGNORECERTIFICATEWARNINGS ONHTTPPOSTCONNECT HTTPSENDREQUEST
 LLHASPOSTDATA NHANDLE CCONTENTTYPE
 NHTTPPOSTMODE WRITE CHTTPPROXYUSERNAME
 SETPROXYLOGIN LNRETVAL LLLOOP TOSTRING CLEAR LNCERTNO NCLIENTCERTNUMBERINDEX INTERNETSETOPTION INTERNETCLOSEHANDLE
 HTTPQUERYINFO	 LCHEADERS LNHEADERSIZE CHTTPHEADERS CRESULTCODE EXTRACT LNHTTPBUFFERSIZE NHTTPWORKBUFFERSIZE ONHTTPBUFFERUPDATE INTERNETREADFILE LNBUFFERSIZE TNSIZE LNBYTESREAD
 LNBUFFERREADS LCBUFFER LCREADBUFFER LNSIZE LCT CRESULTCODEMESSAGE GZIPUNCOMPRESSSTRING LDECODEUTF8Y     T  CC  
      6 | HTTPGetAsync   C     B U  LCURL HTTPGETASYNC THIS CDLLPATH          T    T  CC    /   6 T	  
  T    T CC      6 T CC     6 T CC     6 % 
   T  C    C     %C  
 %C  %  i T / Content-Type: application/x-www-form-urlencodedC
 C
 CC 
 C
 C
     6  %  | T , Content-Type: multipart/form-data; boundary= ------7cf2a327f01aeC
 C
 C
 C
 CC      6 %C  
{6 T     ------7cf2a327f01aeC
 C
      T CC 
     6  T CF | HTTPGetExAsync
 WWIPSTUFF.DLL T C X T C >j T C                 C  >C     6   	           T    T    B U  TCPAGE TCRESULTFILE TNRESULTSIZE	 TCHEADERS TNSECONDSBEFOREDELETE HHTTPRESULT TCSERVER THIS CSERVER
 TCUSERNAME	 CUSERNAME
 TCPASSWORD	 CPASSWORD LUSELARGEPOSTBUFFER CPOSTBUFFER OPOSTSTREAM TOSTRING CLEAR
 NHTTPPOSTMODE
 LCOLDALIAS HTTPGETEXASYNC	 WWIPSTUFF DLL TCBUFFER	 TNBUFSIZE LNRET
 HIPSESSION HHTTPSESSION LSECURELINK NHTTPCONNECTTYPE8           %C > 
 T     %C ^ 
 T     T    	 
   T	 C      %C	  O  T  # T 
  Invalid URL passed.	 B   % T
 CC	  @ https a -6 T  
  T  C	  g# T C	       
    %  s	 B   5 | HttpOpenRequest WININET.DLLQ T C   HEAD	  	  
       AC  	      6   %  [ T  C  T 
 C   C   
 C   B   / | HttpSendRequest WININET.DLL T C   ` T! C    C >   %!   T  C  T 
 C   C   
 C   B   / |
 HttpQueryInfo WININET.DLL T CP  X T# C > T! C   # "  %!   T  C  T 
 C   B    C   
 C  , T$ C#  C # \   6 T % $ 	 B$  U&  LCURL
 LCUSERNAME
 LCPASSWORD LNERROR LNSIZE LCBUFFER	 LCHEADERS THIS NERROR LOURL LLHTTPS LNRESULT INTERNETCRACKURL	 CERRORMSG	 CPROTOCOL LSECURELINK	 NHTTPPORT CPORT HTTPCONNECT CSERVER HTTPOPENREQUEST WININET DLL HHTTPRESULT HHTTPSESSION CPATH CQUERYSTRING GETLASTERROR GETSYSTEMERRORMSG INTERNETCLOSEHANDLE	 HTTPCLOSE HTTPSENDREQUEST
 CEXTRAHEADERS LNRETVAL
 HTTPQUERYINFO LNHEADERSIZE	 TCHEADERS CHTTPHEADERS
     U  LNHTTPHANDLE        U  LNBYTESDOWNLOADED
 LNBUFFERREADS LCCURRENTCHUNK LOHTTP  T   a U  THIS LHTTPCANCELDOWNLOAD(       BC         U 	 LCZIPFILE
 LCDESTINATION
 LCFILESPEC
 UNZIPFILES0        BC           U 	 LCZIPFILE
 LCFILELIST
 LNCOMPRESSION	 LLRECURSE ZIPFILES       BC      U  LCBUFFER LCDBF	 DECODEDBF(       BC         U  LCDBF	 LLHASMEMO
 LCENCODEDNAME	 ENCODEDBFC           ! T CC  
     	 6! T CC 
    
 6  T CC 	     6 %C   B 0 | InternetSetOption WinInet.dll
 T +
 T , %C 
 T  C   T C >
 T   T C         %  T  C  T  C     B-   %C 
5 T  C   T C >
 T   T C         % 1 T  C  T  C     B-   Ba U 
 TCUSERNAME
 TCPASSWORD	 HIPHANDLE
 LCUSERNAME
 LCPASSWORD LPBUFFER LPDWBUFFERLENGTH NSUCCESS THIS CHTTPPROXYUSERNAME CHTTPPROXYPASSWORD
 HIPSESSION INTERNETSETOPTION WININET DLL INTERNET_OPTION_PROXY_USERNAME INTERNET_OPTION_PROXY_PASSWORD DWBUFFERLENGTH DWOPTION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG        0 | InternetSetOption WININET.DLL T C        % {  Ba  B- U  LNHANDLE
 LNOPTIONID
 LNOPTIONVALUE LNRESULT INTERNETSETOPTION WININET DLL/          %C ;  T  /  %C U  B-  T C @ T    T     %C   http	   T
 C      # T
 C http://      T   % %     
  400
	! Ba  B- U 	 LNTIMEOUT LCURL LCLINK LCFILE	 LLSUCCESS LNHANDLE
 LNSAVETIMEOUT THIS NCONNECTTIMEOUT
 STARTSWITH LCRESULT HTTPGET NERROR CRESULTCODE          T C ?   %  j  T C   \ T  C   =  
 T     T C ://   % 
  T   http://   T C ://    T CC   =@
 H    http# T  80   httpsI T  443   ftpl T  21 2 T  80  T  C   \ T C /   %  
 T    T   /  T C   \ T  C   \  T C :  %  c T C  \ T C  =  T C EMPTYN C 	 cProtocol 
 C  cServer 
 C  cPath  
 C  cQuerystring 
 C  cPort 
	 B  U  TCURL LNAT
 LCPROTOCOL
 LCQUERYSTRING LCPORT LCSERVER LOURL     & T  CC   N      6 %   F  B  %C i  T     T     T C      T C      T C      B U 
 DWTIMEOUTSECS LNHANDLE THIS NCONNECTTIMEOUT
 HIPSESSION LLRETVAL INTERNETSETOPTION;         %C   %   200K  B OK  %C  
  T C	 MEMOWIDTHv G$( T C   G$(  T C    %    T C  \ 	 B  	 B     %C   N- T  C  _ 
 T   
 HK+    200n T  OK    201 T  Created    202 T  Accepted    204 T 
 No Content    206 T  Partial Content    500P" T  Internal Server Error    501 T  Not implemented    502 T  Bad Gateway    503  T  Service Unavailable    504 T  Gateway Timeout    505K' T  HTTP Version Not Supported    5v T  Server Error    400 T  Bad Request    401 T  Unauthorized    403 T 	 Forbidden    404# T 	 Not Found    405V T  Method Not Allowed    406 T  Not Acceptable    408# T  Server Request Timeout    409 T  Conflict    4/8 T + Invalid Request Format (Generic HTTP Error)    301a T  Moved Permanently    302! T  Found and Redirected    303 T 	 See Other    304 T  Not Modified    3 T 
 Redirected 2+
 T    	 B  U 
 LCERRORNUMBER LNMEMOWIDTH LNAT LCLINE LCRESULT THIS CRESULTCODE CHTTPHEADERS    , T  CC lnErrorb N      6: | InternetGetLastResponseInfo WININET.DLL T C X T C > C      % 
 	 B    BC  \ U  LNERROR THIS NERROR INTERNETGETLASTRESPONSEINFO WININET DLL
 LCERRORMSG LNSIZE3  %      BC      B    U  THIS LUSELARGEPOSTBUFFER OPOSTSTREAM TOSTRING CPOSTBUFFER7  %      C      T      U  THIS LUSELARGEPOSTBUFFER OPOSTSTREAM CLEAR CPOSTBUFFER     %C   NI  C rasxps    a   T     1 | InternetErrorDlg WinInet.dll T C9    / 
   C 	 
 C 
 	 B  U  LNHTTPHANDLE THIS HTTPCONNECT HHTTPSESSION INTERNETERRORDLG WININET DLL LNRESULT HWND GETSYSTEMERRORMSG	 HTTPCLOSE1             %C  H  T   My  %C s  T  CurrentUser " T C GetwwDotnetBridge() T C 	 L C8 System.Security.Cryptography.X509Certificates.StoreName.   
  T C 	 P C< System.Security.Cryptography.X509Certificates.StoreLocation.  
 
   S T C7 System.Security.Cryptography.X509Certificates.X509Store       %C 1 T
  ! Couldn't create certificate store B T T C@ System.Security.Cryptography.X509Certificates.OpenFlags.ReadOnly   C    $ T C   Certificates   T C   Count   T C
 CollectionN   (  T C       C     
 C  
 C  	 B  U  LCSTORENAME
 LCLOCATION LOBRIDGE LEMY
 LELOCATION
 LEREADONLY LOSTORE LNX LNCOUNT CREATECOMVALUE SETENUM VALUE CREATEINSTANCE THIS
 CERRORMESSAGE GETENUMVALUE OPEN LOCERTIFICATES GETPROPERTY LOCERTS LOCERT GETINDEXEDPROPERTY ADD CLOSE DISPOSE       . T  CC	 lnErrorNob N      6 %  .c 
 BC    T CX/ |
 FormatMessage WIN32API$ | GetModuleHandle WIN32API T
 C wininet.dll	  %
    
	() T C  
      C >   =
 T    % k T C  \ ( T C       C >   % ( T  Win32 API: C  \ 
 T     	 B  U 	 LNERRORNO LLAPI SZMSGBUFFER LNSIZE THIS NERROR GETLASTINTERNETERROR
 FORMATMESSAGE WIN32API GETMODULEHANDLE LNMODULE6 " %         / 
 C     U  THIS
 HIPSESSION HHTTPSESSION	 HTTPCLOSE 
 BC    U  THIS GETMESSAGEFROMRESULTCODE oPostStream_Accesst       Init      
 AddPostKey      AddPostFile
     	 AddHeader      AppendHeader     
 GetHttpHeader
      HTTPConnect[
     	 httpclosez      HTTPGet      Get      Postp      Putz      Delete[     	 HTTPGetEx      HttpGetAsync/      HttpGetExasync
0     
 HTTPGetHeader/5      OnHttpPostConnect%;      OnHTTPBufferUpdateA;      httpcanceldownload;     
 UnZipFiles;      ZipFiles#<     	 DecodeDBF<     	 EncodeDBF<     
 SetProxyLogin*=     	 SetOption@      httppingA      InternetCrackUrl\C      wininetsettimeoutF      GetMessageFromResultCodeG      getlastinterneterrortN     
 GetPostBufferO      ClearPostBufferP      SelectClientCertificateIndexP      GetCertificatesQ      getsystemerrormsgV      DestroyX      cResultCodeMessage_AccessY        
 T    
 T   
 T   
 T    T -
 T    
 T  
 T  
 T  
 T	  
 T
   
 T   
 T   
 T
 
 T   T   
 T   
 T   
 T   T -
 T   
 T    T - T 
      T CQ@_8 T  West Wind Internet Protocols CQ@_
 T   
 T   
 T   
 T   
 T  
 T   T  -
 T!  
 T"   
 T#    T$ - T% - T& -
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
      
  !   
  "   
  #   
  $   
  %   
  &   
  '    U'  CDLLPATH	 CERRORMSG	 CPASSWORD	 CUSERNAME LSECURELINK NCONNECTTIMEOUT
 HIPSESSION HHTTPSESSION NERROR NHTTPCONNECTTYPE CSERVER CLINK	 CHTTPVERB
 NHTTPPOSTMODE	 NHTTPPORT NHTTPWORKBUFFERSIZE
 CEXTRAHEADERS CHTTPHEADERS NCONTENTSIZE LHTTPCANCELDOWNLOAD CCONTENTTYPE CPOSTBUFFER LUSELARGEPOSTBUFFER OPOSTSTREAM CVERSION
 CUSERAGENT CHTTPPROXYNAME CHTTPPROXYBYPASS CHTTPPROXYUSERNAME CHTTPPROXYPASSWORD
 NSERVICEFLAGS NHTTPSERVICEFLAGS LIGNORECERTIFICATEWARNINGS NCLIENTCERTNUMBERINDEX CRESULTCODE CRESULTCODEMESSAGE
 LCACHEREQUEST
 LALLOWGZIP LDECODEUTF8 wwHTTP Custom\     1 !A  01 q 9 A B > q 11A  A B A   A c A  BB  A   !A 	A  !  A A 1A A  rA   BB  A  	QA  rQA A A  BA A > QqA Q>    1 A =  Q= q @1 112 11A ! A Cc A 3A  A [# A A  9 A BA AA < 1rSA R     A SQ1 A RQ2 A      A   7  6  QAA A A 6  1A A 6  a1 q1R aA  A ! A  [A % A  A "A A s1A s  1  A A   2!AA! A  1A  A 3! A A  r    qA R A A B  A A    3A r CA!A A     !  A A      u       " A A Q !A A A A A     A B AA WQ1A  1!A !1A  ? q  A 1 qq qA 2 AA A2aA A A  A  a1B >  1  A   A  QQ1 A RQ2 A [#A   A #A   A $ "A A    3 q 4 15  >  b= 18  "8  b>  q A A   1  q A A 1  q A A r <  q q A r >     A  q A  R 1A Rq A r : q q3!a  A SQA  Q aA   A a3   !A 3aaA Rqq ;  cB A  A "F ; q 1 r A 3 Q caA    A A R A   A AAAQAqAB!AAAAAq!BAAaAaAAA1AQ!BAAaA!q  A  ? q  b A 8 A  ; A = q RA    ?    A  A " 2 q A BBA    <   " A D  A    A A  : " A 5  5 q                          x                @  p  P 0        0               `        ` p   3                      )  x                  *     p   +  -  W  v   .  /  i     1  2       3  #4       47  A       B  C       D  I  9     QJ  iK  u     kK  	M  ~     M  N      N  oS    
  qS  ~      &  P  A    k  s  v      -    ?  K  c  B  A    X  G  C  ʟ    M  E      \  H    $  l  K    <  w  N        Q    ۮ    t  S  ұ    }  γ  M      O  &          W          "        -  
  s  
  2        7  h  L  ,  C    I  c  c    o    ~            >        >       %   J5  ;  ?  b  4;  IQ &  #  G+( wwFtp G+( wwUtils U  WWFTP WWUTILS
     U  LCPATH6 " %         / 
 C     U  THIS
 HIPSESSION HFTPSESSION FTPCLOSE    #        	 , | FtpOpenFile WININET.DLL/ | InternetReadFile WININET.DLL" T C    66 T C  C  `
       A
       A  
  %  # T  C  T  C   B   ) | FtpGetFileSize WinINet.dll
 T   T  C     T  -
 T   
 T  
 T  
 T  
 T 
 T	   T CC ` % ;0 T    Output file couldn't be created. C    BC  +as T CC    Q
 T   T    T C      
  %    	 C C  = T    T	 	 # C   	          ) %    		   B !  %  o C 
    !   C   
 T  ! C          T    C 	 B  U   LCSOURCEFILE LCTARGETFILE LHFILEHANDLE HFTPFILE TCBUFFER TNSIZE TNBUFFERSIZE LNRETVAL LNBYTESREAD
 LNBUFFERREADS FTPOPENFILE WININET DLL INTERNETREADFILE LNMODE THIS
 NFTPBINARY HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPGETFILESIZE LNUPPERSIZE NCURRENTFILESIZE LCANCELDOWNLOAD INTERNETCLOSEHANDLE LCREADBUFFER NFTPWORKBUFFERSIZE LNSIZE ONFTPBUFFERUPDATE LNBUFFERSIZE         U  LNBYTESDOWNLOADED
 LNBUFFERREADS LCCURRENTCHUNK LNTOTALBYTES LOFTP          % T  CCCC  
      6`@# T CCC 
    	 6`# T CCC 
    
 6` %   ftp://  T  C   ftp://    %    
 T    T     %  * T 
  
 	     T     T    T    + | InternetCloseHandle WinInet.DLL  | GetLastError WIN32API, | InternetOpen WININET.DLL) T C           %  F T  C  T  C     B    T   
 C  5 | InternetConnect WININET.DLL. T C            
    %  '
 T   T  C X T! C  >: | InternetGetLastResponseInfo WININET.DLL T# C   ! "  C    %   T  CC  C    ` %C  . T   Couldn't connect to FTP Server  T    T  C   T     B    T    T $   %C % 
s C $  &  	 B  U'  LCSERVER
 LCUSERNAME
 LCPASSWORD LHIP LHHTTP LNERROR
 LNHTTPPORT THIS CSERVER	 CUSERNAME	 CPASSWORD	 NHTTPPORT LPASSIVEFTP
 NSERVICEFLAGS NERROR	 CERRORMSG INTERNETCLOSEHANDLE WININET DLL GETLASTERROR WIN32API INTERNETOPEN HINETCONNECTION
 CUSERAGENT NHTTPCONNECTTYPE CHTTPPROXYNAME CHTTPPROXYBYPASS GETSYSTEMERRORMSG
 HIPSESSION WININETSETTIMEOUT INTERNETCONNECT LHFTPSESSION LCERRMSG LNERRLEN INTERNETGETLASTRESPONSEINFO LNRESULT HFTPSESSION CHTTPPROXYUSERNAME
 SETPROXYLOGINn + | InternetCloseHandle WININET.DLL C     C     T    T    U  INTERNETCLOSEHANDLE WININET DLL THIS HFTPSESSION
 HIPSESSION             T	 
   T	    , | FtpOpenFile WININET.DLL0 | InternetWriteFile WININET.DLL" T C	    6, T C	  C `C  
   @     %   T	 
 C  %	 
  B T	  C.	   ^ T	  C	    %	 
   %C	  . T	   Unable to connect to server...  T	 
   B	 
   T CC  ` % T9 T	  ) Source file doesn't exist or is in use... T	 
 	 B  T	  C   C    T	  -
 T  
 T   +a4 T C 	   %C >  !  T C >
 T   T C         %  Z T	 
 C  T	  C	   !  %    	 T    T   C      	  	    %	  ) T	   Download canceled by user ! ) %    		   , !    C   
 T   C   	  	   T	    C  B	 
  U  LCSOURCEFILE LCTARGETFILE LHFILE LNRETVAL LNBYTESREAD
 LNBUFFERREADS
 LCWRITEBUFFER HFTPFILE LNMODE THIS NERROR	 CERRORMSG FTPOPENFILE WININET DLL INTERNETWRITEFILE
 NFTPBINARY HFTPSESSION GETLASTERROR GETSYSTEMERRORMSG NCURRENTFILESIZE LCANCELDOWNLOAD TNBUFFERSIZE NFTPWORKBUFFERSIZE LNSIZE ONFTPBUFFERUPDATE INTERNETCLOSEHANDLE LNBUFFERSIZEu   #         , | FileTimeToSystemTime WIN32API T CX C    	  T CC =  T CC \  T CC \  T CC 	\  T CC \  T CC 
\ R T CC Z -CC Z -CC Z  CC Z :CC Z :CC Z BC {^  } U  LCFTIME	 LCSYSTIME LNYEAR LNMONTH LNDAY LNHOUR LNMINUTE LNSECOND LCDTIME FILETIMETOSYSTEMTIME WIN32API	 CHARTOBINV         2 T  CCC lcFTPServerb C      6`/ T CCC lcSourceb C     6`/ T CCC lcTargetb C    	 6`1 T CCC
 lcUserNameb C    
 6`1 T CCC
 lcPasswordb C     6` T  
  % ?
 T  T
 T   T C          %  	 B  * |
 FtpPutFile WinInet.dll- T C   C   C       %  9 T  C  T  C  
 C   B   
 C  	 B  U  LCFTPSERVER LCSOURCE LCTARGET
 LCUSERNAME
 LCPASSWORD LNRESULT THIS
 CFTPSERVER
 CFTPSOURCE
 CFTPTARGET	 CUSERNAME	 CPASSWORD LNBINARY
 NFTPBINARY
 FTPCONNECT
 FTPPUTFILE WININET DLL HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSE         T CC    6 %C  W  T      %C z  T     %C   T  	   %C   T  
   %C   T      T CC  `C `C ` 
  %  !	 B  . |
 FtpGetFile WinInet.dll6 T C  C `C ` 
 
       A   %   T  C  T  C  
 C   B   
 C  	 B  U  LCFTPSERVER LCSOURCE LCTARGET LNBINARY
 LCUSERNAME
 LCPASSWORD THIS
 CFTPSERVER
 CFTPSOURCE
 CFTPTARGET	 CUSERNAME	 CPASSWORD LNRESULT
 FTPCONNECT
 FTPGETFILE WININET DLL HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSEv     %C *  T  *.*  T C@X
 T   T   1 | FtpFindFirstFile WININET.DLL* T C 	    
       A   %  & T  C
  %   T   	 B   T  C  	 B      T
 C -\, T  C
 CC  
 \ T C \ T  C    T C !\ T  C   ( T  CC \  
 T / | InternetFindNextFile WinInet.DLL +C     X T   T
 C -\    , T   C
 CC  
 \ T C \ T   C    T C !\ T   C   ( T   CC \    C   	 B  U  LAFILES
 LCFILESPEC
 LSFILEFIND LNFINDHANDLE THIS NERROR FTPFINDFIRSTFILE WININET DLL HFTPSESSION GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG
 LCFILENAME LCATTRIBUTES	 CHARTOBIN LCSIZE
 PARSEFILETIME LNFILECOUNT INTERNETFINDNEXTFILE INTERNETCLOSEHANDLE          %C  H  T   *.*    T C       %  
  B  T C
 CollectionN %   	 B    (  T C EmptyN C  NameC   
" C  FullNameC   
  C  LengthC   
' C 
 FileAttributeC   
' C 
 LastWriteTimeC   
 C     	 B  U	 
 LCFILESPEC LOCOL LOFILE LNCOUNT LAFILES THIS AFTPDIR X ADD     %C    B- , | FtpCreateDirectory WININET.DLL %C         T  C  T  C 	  B-  Ba U
  LCPATH FTPCREATEDIRECTORY WININET DLL THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG     %C    B- , | FtpRemoveDirectory WININET.DLL %C         T  C  T  C 	  B-  Ba U
  LCPATH FTPREMOVEDIRECTORY WININET DLL THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG    ' |
 FtpDeleteFile WinInet.dll! %C    C      T  C  T  C 	  B   	 B  U
  LCFILE
 FTPDELETEFILE WININET DLL THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG      T    - |
 FtpCommand WININET.DLL
 T  % T	 C 
         %	    T  C  T  C 
 	 B	   %C >   T C X T C > 
 T C > / | InternetReadFile WININET.DLL
 T   T C        %    	
 T   T C  \ 
 T   
 T    C   	 B  U 	 LCCOMMAND LCBUFFER LNSIZE THIS	 CERRORMSG
 FTPCOMMAND WININET DLL LHRESULT LNRESULT HFTPSESSION NERROR GETLASTERROR GETSYSTEMERRORMSG INTERNETREADFILE LNBYTESREAD LNRETVAL INTERNETCLOSEHANDLE     ) |
 FtpRenameFile wininet.dll& T C    C   C    %    T  C	  T 
 C   B   	 B  U 	 LCOLDNAME	 LCNEWNAME
 FTPRENAMEFILE WININET DLL LNRESULT THIS HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSGv     %C    B- 0 | FtpSetCurrentDirectory WININET.DLL" BCC        - a6 U  LCPATH FTPSETCURRENTDIRECTORY WININET DLL THIS HFTPSESSION     * |
 FtpPutFile WinInet.dll" T C    6- T C 	   C   C       %    T 
 C  T  C 
  R,  
 C   B 
  	 B  U  LCSOURCE LCTARGET
 FTPPUTFILE WININET DLL LNMODE THIS
 NFTPBINARY LNRESULT HFTPSESSION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG FTPCLOSE.     T  
   T  
   U  VNEWVAL THIS	 NHTTPPORT NFTPPORT7           ! T CC  
     	 6! T CC 
    
 6  T CC 	     6 %C   B 0 | InternetSetOption WinInet.dll
 T +
 T , %C 

 T   T C >
 T   T C         %  T  C  T  C     B-   %C 
)
 T   T C >
 T   T C         % % T  C  T  C     B-   Ba U 
 TCUSERNAME
 TCPASSWORD	 HIPHANDLE
 LCUSERNAME
 LCPASSWORD LPBUFFER LPDWBUFFERLENGTH NSUCCESS THIS CHTTPPROXYUSERNAME CHTTPPROXYPASSWORD HFTPSESSION INTERNETSETOPTION WININET DLL INTERNET_OPTION_PROXY_USERNAME INTERNET_OPTION_PROXY_PASSWORD DWBUFFERLENGTH DWOPTION NERROR GETLASTERROR	 CERRORMSG GETSYSTEMERRORMSG    , T  CC lnErrorb N      6: | InternetGetLastResponseInfo WININET.DLL T C X T C > C      % 
 	 B    BC  \ U  LNERROR THIS NERROR INTERNETGETLASTRESPONSEINFO WININET DLL
 LCERRORMSG LNSIZE       . T  CC	 lnErrorNob N      6 %  .c 
 BC    T CX/ |
 FormatMessage WIN32API$ | GetModuleHandle WIN32API T
 C wininet.dll	  %
    
	() T C  
      C >   =
 T    % k T C  \ ( T C       C >   % ( T  Win32 API: C  \ 
 T     	 B  U 	 LNERRORNO LLAPI SZMSGBUFFER LNSIZE THIS NERROR GETLASTINTERNETERROR
 FORMATMESSAGE WIN32API GETMODULEHANDLE LNMODULE    & T  CC   N      6 %   F  B  %C i  T    0 | InternetSetOption WININET.DLL T     T C      T C      T C      U	 
 DWTIMEOUTSECS LNHANDLE THIS NCONNECTTIMEOUT
 HIPSESSION INTERNETSETOPTION WININET DLL LLRETVAL Init\       Destroyr       FtpGetFileEx       OnFtpBufferUpdateU     
 FtpConnect      FtpClose;
     
 FtpSendFileEx
     
 parsefiletime      FtpSendFile     
 FtpGetFileU      aFtpDirL      FtpListFiles       ftpcreatedirectory"      FtpRemoveDirectory#     
 FtpDeleteFile%     
 FtpCommand&     
 FtpRenameFile(      FtpSetDirectory)      FtpSendFileEx2*      nftpport_assignO,     
 SetProxyLogin,      GetLastInternetError+0      GetSystemErrorMsgY1      WinInetSetTimeout3     C T   T  ` T -
 T  
 T 
 T   
 T   
 T    T a
 T	  
 T
 
 T 
 T 
 T
   
 T   
 T   
 T  
 T   
 T   
 T   
 T   
 T  
 T   
 T  
 T   
 T  
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
      U 
 HELPCONTEXTID NFTPWORKBUFFERSIZE LCANCELDOWNLOAD HFTPSESSION
 NFTPBINARY
 CFTPSERVER
 CFTPSOURCE
 CFTPTARGET LPASSIVEFTP NCURRENTFILESIZE NCONNECTTIMEOUT NFTPPORT	 NHTTPPORT CSERVER	 CUSERNAME	 CPASSWORD NHTTPCONNECTTYPE CHTTPPROXYNAME CHTTPPROXYPASSWORD CHTTPPROXYUSERNAME CHTTPPROXYBYPASS NERROR	 CERRORMSG
 HIPSESSION
 CUSERAGENT
 NSERVICEFLAGS wwFtp Customm7     @1 q  1 " A >  1"cA A         !  A  q 33A B A   A A A     1 q@1  1R11rA C  A A  A  ["   !A  AA  A 2QA   1 1  "A AA B!A A  A ! A     R1A A   "AA A A A A A A B A     1 q 1 !a#b 1 qq ""   A  A A  A   =  A  A  A  A  A  A dA  A   `1   A  
C A B A 3aRR b1RRA   ; q  1 A 2q A  A rQ!qqA  1 q  q A Aq A r ; q  q A Aq A r ; q tA A  01   QA A 2   A   Q   A   ;  bA A  < q  q A " 1  "A1  A  4 q "!=  q A A      q A A    q A A r = q  b A ;   " A D  A    A A  ;  cB A  A ";                               	 @ 
  	   `                1                    P
  +  f      |    z             B   #  ('  $  E   D(  5       6  2;  :     =  VK       K  N        FR  V  H     tX  a      c  &n    B  (n  Nv  [  ]  v  x    i  y  5{    u  |  ~      ݃  '  A    f        y                6        $  x      <  ֜      j  G  >      L  x       W     %  %   C  0L  S  t  L  IQ4&  @  G+( wwScripting G+( wwUtils G+(
 wwCollections U  WWSCRIPTING WWUTILS
 WWCOLLECTIONS          T  -
 % C  T  C      T  C   <%= <%
 T   
 T      T C  - <% %> (   T    T    	  T  a 	 B  U
 	 LCASPCODE LLISFILE LCRESULT THIS LERROR FILE2VAR LOEXCEPTION
 OEXCEPTION	 CERRORMSG MESSAGE	     /       	 
   
  5  %C    ` 	 B    T -
 %   %   ~  T  C      T  C     
 T   %C  C 5   
 T    T - T   T  C     " +C <% section=    %C % T C wwNameValueCollectionN ) T C   <% section=" " %C  ! E T C    <% section="  " %> <% endsection %>  -a  %C  ! K T C  C   <% section="  " %> <% endsection %>    T  C       %C	 <% Layout   \' T C  	 <% Layout %> %C 
X# T CC   Layout=" " ` %C = ~) T C      T  C      BC  a       , %C <%= RenderContent() %>   + T  C   <%= RenderContent() %>  ) +C <%= RenderSection(   &B T  C   <%= RenderSection( <%= wwScript.RenderSection( ) +C <%= RenderPartial(   0 T C   <%= RenderPartial( %> %C  ! * T CC   RenderPartial(" " ` %C = ~ T C      T  C   C     T  <% T   %> %   N
 T!  c
 T!  
 T 
 T 
 T   " #  %C <% if     +a $ % " , T$ C    <% if  <% endif %>-a  %C$  ! # T" C    <% if  %>-a  %C" I !   T# C "  if  %>--  T& C# 
 %& % T% C $  %> <% endif %>  T  C  $ %   T  C  $      
 T	   +     		 T C    %  	 T C    !  %  f .  %  	% T C   C >  C >\ T' - %  =	   : T' - T
   : X (  T( C \ T( C( C
 C
    T C(  %
 T T C  )   (* o T' a  % + 
 T C _    T C  (*  T' a  %C  C
 T      %' 
  
	7	% T  C      C ` 	 T - T	 	  %	 p	 ! D T  C       < % ERROR: CC          % >  	 T  C   C  >CC  >X[ .   	 B   U,  TCSTRING TLISFILE TCCHILDTEMPLATETEXT LNLOC1 LNLOC2 LNINDEX
 LCEVALTEXT
 LCEXTRACTTEXT
 LCOLDERROR
 LNERRCOUNT LCTYPE LCRESULT
 LCCAPTURED LLENCODE PLEVALERROR
 ISNULLOREMPTY THIS RESOLVEVIRTUALPATH
 LCTEMPLATE FILE2VAR WWSCRIPT WWSCRIPTCONTENTPAGE WWSCRIPTISLAYOUT WWSCRIPTSECTIONS EXPANDMARKDOWN LCCAPTURED2 EXTRACT
 LCSECTIONTEXT ADD LCLAYOUT	 MERGETEXT TCDELIMITER TCDELIMITER2 LNDIFFERENT	 LCFULLTAG LCEXPRESSION LCFULLBLOCK LCEXTRACTED LLRESULT LLERROR LCEVAL
 ENCODEHTML LOEXCEPTION LERROR    Q STRING Q BOOLEAN    T     % 
b  T CC         T C       5 
 T    5	  %C 
   T	 C     T	  
   T    C  (  %  
f* T 
  Compilation Error:  
  T    T      T  a T   
  %C  
   T C  - %      	    	  T  CC     	   , %   wwScriptingHttpResponse %    T	   500 Server Error T	  	 text/html  T C	    	 B  U 
 LCTEMPLATE LLISCODESTRING LOEXCEPTION LCCODE THIS CCURRENTTEMPLATE CONVERTASPTOVFPCODE FILE2VAR _OUT RESPONSE	 ORESPONSE CREATERESPONSE ERRORNO MESSAGE LINENO LINECONTENTS LERROR	 CERRORMSG LNCODELINES LALINES CSCRIPTRESPONSECLASS STATUS CONTENTTYPE RENDERHTTPHEADER   Q STRING/           	  %C
  
i  T
  C
    T
  - %   ~  T  C   
 
   T
    
 T 
  %C  C$ 5   
 T    T -% T C wwNameValueCollectionN  T C   %C
  ` T C   fxp  T C
    fxp %C
   

 
     T
  - T
  - %
   T -  T a  T C XC  X
 1 T a 
 %  [ C   
   ( | C     
     
 B
  
 U 
 LCTEMPLATE LOEXCEPTION	 LCOUTFILE LCFILE	 LCFXPFILE	 LCWCTFILE	 LCVFPCODE
 LCFILENAME LLNEEDTOCOMPILE LLERROR THIS
 CCOMPILEDPATH LERROR RESOLVEVIRTUALPATH CCURRENTTEMPLATE WWSCRIPT WWSCRIPTCONTENTPAGE WWSCRIPTISLAYOUT WWSCRIPTSECTIONS ISDIR LNOVERSIONCHECK CONVERTANDCOMPILESCRIPT PARSEEXCEPTION   Q STRING+            %C	 
 
e  T	 
 C	 
   %   ~  T  C   	    T	    
 T
 	  %C  C 5   
 T    T -% T C wwNameValueCollectionN  T C   %C	 
 N T C   fxp  T C	 
   fxp %C	 
  

 	 
    T	  - %	   T - @ T a  T C XC  X
  T a 
 % < %C   	  
8    %C  Cm 5 
 T     5    %C	   T C	   T a  T 	   T -  T	  - T  %	  
   ^ !
   ( Z C    	   %	  V     %  %	    T   500 Server Error T  	 text/html  T C     	 B  U! 
 LCTEMPLATE LOEXCEPTION	 LCOUTFILE LCFILE	 LCFXPFILE	 LCWCTFILE	 LCVFPCODE
 LCFILENAME LLNEEDTOCOMPILE THIS
 CCOMPILEDPATH RESOLVEVIRTUALPATH CCURRENTTEMPLATE WWSCRIPT WWSCRIPTCONTENTPAGE WWSCRIPTISLAYOUT WWSCRIPTSECTIONS ISDIR LERROR LNOVERSIONCHECK CONVERTANDCOMPILESCRIPT _OUT RESPONSE LRESPONSECREATED	 ORESPONSE CREATERESPONSE LLRESPONSECREATED LSTOPONERROR PARSEEXCEPTION LTHROWEXCEPTION STATUS CONTENTTYPE RENDERHTTPHEADER    Q	 EXCEPTION     T  a T      %C 
  T CC  prg  %C 
  T C	   %     
  	  T   CC  
 	   T   C    T 
    U  LOEXCEPTION
 LCFILENAME LCFILE LNCODELINES THIS LERROR	 CERRORMSG MESSAGE FILE2VAR LALINES LINENO LINECONTENTS	 PROCEDURE
 OEXCEPTION^     %C   )5  T    	 B    T  C  N B   U 
 LORESPONSE THIS	 ORESPONSE CSCRIPTRESPONSECLASS>   Q STRING      T C   %C  r  T C   fxp T C   prg   T C    fxp T C    prg %C   
 
      %C  0
p/ T   Script file doesn't exist:   T 	 C	 ExceptionN T 	 
    T  a    B-  T CC     
  C   T a T  
   %  

     ( . T  a T 	   T   	 
  T - 	 B  U 
 LCTEMPLATE	 LCWCTFILE	 LCFXPFILE
 LCFILENAME LLRESULT THIS
 CCOMPILEDPATH ISDIR	 CERRORMSG
 OEXCEPTION MESSAGE LERROR	 LCVFPCODE CONVERTASPTOVFPCODE FILE2VAR LOEXCEPTION LSAVEVFPSOURCECODE 	    Q STRING Q BOOLEAN         	 
  T    
 T    T C   
 " +C <% section=  ) T	 C  <% section=" " %C	   ! D T
 C  <% section="	  " %> <% endsection %> %C
 5 ! K T C 	 C 
  <% section="	  " %> <% endsection %>    T C 
     %C	 <% Layout  ' T	 C 	 <% Layout %> %C	 
# T CC 	  Layout=" " `
 T     (   T C     %C   k .  T C  <% -% T C  %> %-c T   wwScriptSections.Add("C     ", [C     ] )C
 C
   T  <% IF (!wwScriptIsLayout)C
 C
      wwScriptIsLayout = .T.C
 C
       wwScript.RenderAspScript("  ")C
 C
 
     RETURNC
 C
  ENDIF %>C
 C
  T C 	    , %C <%= RenderContent() %>  x] T C  <%= RenderContent() %>2 <% wwScript.RenderAspScript(wwScriptContentPage)%> ) +C <%= RenderSection(  B T C  <%= RenderSection( <%= wwScript.RenderSection( ( %C <%= RenderPartial(  VC T C  <%= RenderPartial( <% wwScript.RenderAspScript( K T 
 LOCAL CRLFC
 C
  CRLF = CHR(13) + CHR(10)C
 C
  +a T C <%  %    T  C   _out   !  T C  = %C 
E  T  C   _out    T C  \" %  <%=   <%:/ T   <%: T C %>  %    T  C   _out   !  T C  \ T C C
 C
    % { T  C
 C
 / Response.Write(EncodeHtml(TRANSFORM( EVALUATE([C  a   ]) )))C
 C
 C
 C
  o T  C
 C
 $ Response.Write(TRANSFORM( EVALUATE([C  a   ]) ))C
 C
 C
 C
   T C  \  T C %>  %    T  C   _out   !  T C  \) T  C
 C
  C
 C
  T C  \   T   	 B  U  LCSCRIPTCODE LLADDEXCEPTIONCODE LCCODE LCLEFT LNAT
 LCCURBLOCK LCLAYOUT
 LCSECTIONTEXT
 LOSECTIONITEM
 LCCAPTURED LCCAPTURED2 THIS CSCRIPTCODE EXPANDMARKDOWN WWSCRIPTSECTIONS ADD EXTRACT LNX COUNT LCTEXT AITEMS
 ISNULLOREMPTY FIXUPLITERALSTRING CREATELITERALSTRINGEXPRESSION LLENCODE CVFPCODE;       ! +C
 <markdown>   +1 T C  
 <markdown> </markdown> %C {  ! = T CC 
 <markdown> </markdown>C
 C
 AA T CC 
 <markdown> </markdown>C
 C
   V T C Q T C" Westwind.WebConnection.StringUtils NormalizeIndentation       T - %C <%   T C  <% @@% T C  %> %@@ T a  T  C   C   
 % ' T  C   @@% <% T  C   %@@ %>  	 B   U  LCHTML
 LCCAPTURED LCCAPTURED2 LOBRIDGE GETWWDOTNETBRIDGE INVOKESTATICMETHOD LLHASSCRIPTTAGS MARKDOWN       T C      %C ; 	 B    T C  -% < % T C  %- % > BC     U 
 LCSECTIONNAME LCTEXT WWSCRIPTSECTIONS ITEM THIS	 MERGETEXT        Q
 COLLECTION %C  @ 	 B   7 %C  >
 CC
    	 CC
    	 7 B Response.Write([C      ])C
 C
   T C     T  	 
 T
 

 T      (  %C 
 G C  T   Response.Write( _ T       - T   [CC      ]% %C 
 G
    	 %  
& T  	  + CRLF )C
 C
   T   )C
 C
    %  
]& T  	 + CRLF +;C
 C
   T   )C
 C
    	 B  U  LCSTRING	 LCVARNAME LNX LCOUTPUT LOLINES THIS FIXUPLITERALSTRING SPLITSTRING LNLINES COUNT LNLINEGROUP ITEM    )       Q
 COLLECTION %C  L 	 B    T  C      C	 @ % 
/ C  > CC
     CC
    	x T C     T  	 
 T     ( k T CC   
 > % T<  Script line is too long (C _ ) - C   
   %  %  T CC   
    8 T CC   
    ] + CRLF + ;C
 C
   g %  & T    [CC   
    cB T    [CC   
    ] +  CRLF +;C
 C
    	 B  ! T  C   ] ] + ']' + [, T  C   & & ] + '&' + '&' + [	 B   U
  LCSTRING LLNOLENGTHCHECK LNMEMOWIDTH LNCOUNT LNX LCOUTPUT LNLENGTH LOLINES SPLITSTRING COUNT ITEM THIS FIXUPLITERALSTRINGz     %C  = ~j  T  C   / \ T  C   ~\C  ͨ T  C   \\ \ 	 B   U 
 LCVIRTUALPATH THIS	 CBASEPATH     &lcCommand
 B U 	 LCCOMMAND     BC   U 	 LCCOMMANDu       T    T  CE T  CE T     T    T 	 a B U
  NERROR CMETHOD NLINE THIS LINENO LINECONTENTS MESSAGE ERRORNO METHOD LERROR}      %C = # T      C
 C
  r - T       :  C
 C
   B U  LCKEY LCVALUE THIS HEADERS      # T  CC   C      6# T CC  C     6$ T CC  C    /6# T CC  L     6 %C  T  T C  a   %C f NEVER T CCa    %C 
4 T 
 ; expires=  O T     Set-Cookie:    =  ; path=  C
 C
  U  TCCOOKIE TCVALUE TCPATH TCEXPIRE MIMEDATETIME THIS COOKIES     T    
 C   T  	 302 Moved T  	 text/html C Location     
 C   U  LCURL THIS HEADERS CLEAR STATUS CONTENTTYPE APPENDHEADER END]  T    0! C Pragma no-cache   ( C
 Cache-Control no-cache    U  THIS EXPIRES APPENDHEADER     %C  $  T  , % C
 Last-ModifiedCCa   # C ExpiresCC  a   5 C
 Cache-Control public,max-age=C  _   B U  LNEXPIRATIONSECONDS THIS APPENDHEADER MIMEDATETIMEo    # T  CC   C      6 T CC  C   6 <HTML><body><h1>Access to this page is denied</h1><hr>C
 C
 M Please enter a valid username and password to access this page.</body></HTML>6 T    
 C   T  	 text/html  T   401 Unauthorized %C 
[ C     
 C   U	  TCREALM TCERRORTEXT THIS HEADERS CLEAR CONTENTTYPE STATUS WRITE END       %  , 	 B    T C  @
 HO     nonem 	 B     force  T 	 text/html
 C     cache  T 	 text/html
 C   S T   HTTP/ 	    
 C
 C
  Content-Type:  C
 C
  %C  
v- T    	 Expires:   C
 C
   %C  
 T        %C 
 
 T     
   T  a B  C
 C
  U  LCHEADER LNX
 LCCONTENTTYPE LCID THIS LHEADERWRITTEN CONTENTTYPE ADDFORCERELOAD ADDCACHEHEADER HTTPVERSION STATUS EXPIRES HEADERS COOKIES        T C  
 H3    Oh      T C    T	 C
    (	 d T C  
  %  HTTP/  T  CC
 
\ .  % 
 Content-Type:)) T 
 C C Content-Type: >\ .  %C 
`# T     C
 C
      C T 
 C  @ B  B U 
 LVCONTENTTYPE LOHEADER LCTYPE LCOUTPUT	 LCHEADERS LNX LCLINE LCSTATUS	 GETOUTPUT LNCOUNT	 LAHEADERS THIS STATUS CONTENTTYPE HEADERS      U  LCOUTPUTFILE LOVFPSCRIPT  U    U  5     %    B  T  C  _ U  LVEXPRESSION THIS LRESPONSEENDED _OUT5     %    B  T  C  _ U  LVEXPRESSION THIS LRESPONSEENDED _OUT5     %    B  T  C  _ U  LVEXPRESSION THIS LRESPONSEENDED _OUT* 
 T    
 T   
 T    U  HEADERS COOKIES _OUT 
 C    U  THIS CLEAR  T   a U  THIS LRESPONSEENDED    	 B  U  LCOUTPUT _OUT    	 B  U  LCOUTPUT _OUT 	 B   U   AspTextMerge      	 MergeText     
 ExecScript
      CompileAspScript      RenderAspScript      ParseExceptionS      CreateResponse      ConvertAndCompileScripty      ConvertAspToVFPCode       ExpandMarkdown*     
 RenderSectionl-      CreateLiteralStringExpression=.      FixUpLiteralStringS1      ResolveVirtualPath4      ExecuteCommandQ5     EvaluateCommand|5     Error5     AppendHeadero6    	 AddCookie7     Redirect8     AddForceReload9     AddCacheHeader(:     BasicAuthentication;     RenderHttpHeader<     ContentTypeHeader`?     InitA     DestroyA     OpenA     WriteA     Send-B    	 FastWriteB     ClearB     Rewind9C     EndZC    	 GetOutputC     RenderC     RenderHttpHeaderC    z
 T     T - T - T  T - T - T a T -
 T   
 T	   
 T
    T  .\ T -
 T
   
 T     T  wwScriptingResponse T  T 
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
      U 	 CERRORMSG LERROR LTHROWEXCEPTION
 OEXCEPTION LSAVEVFPSOURCECODE LEDITERRORS LSHOWFULLERRORINFO LSTOPONERROR CERRORHEADER
 CCOMPILEDPATH CCURRENTTEMPLATE	 CBASEPATH LNOVERSIONCHECK CSCRIPTCODE CVFPCODE CSCRIPTRESPONSECLASS	 ORESPONSE	 OMARKDOWNm  T  -
 T  
 T  
 T   
 T   
 T   
     
     
      U  LERROR ERRORNO LINENO MESSAGE METHOD LINECONTENTSS 
     
     
     
     
     
     
     
      U  
 T       T - T -
 T    T 	 text/html
 T    T  200 OK
 T    T  1.1
 T	    T
 -
     
     
     
     
     
     
      
  !   
  "   
  #   
  $   
  %    U 	 CFILENAME LOPENED LRESPONSEENDED CSTYLESHEET CONTENTTYPE HEADERS STATUS COOKIES HTTPVERSION EXPIRES LHEADERWRITTEN wwScripting CustomG    	 wwExecute RelationI     wwScriptingHttpResponse wwScriptingResponse:J     wwScriptingResponse CustomJ    Qq`1  @   !A     a A  P1  q " A   !QA !A  R    A T" QA  A A R A A QA q1qQA SaA A A !A  A A qQA A      A        A A 2 A A   QQ QA A A  RRA A S  ! r !  !A   A  A     A R A A bV  A A EA  A A A A  <    QA s  s ! A     BA  12q QA A  A A QA  ? 2aA  "QA  R   QA !a R A A         A    QA A A  5  2aA "QA  S   QA !a R A A        A  aD A A Tq  A s q "   A        QA A A A  A QA  <   1QA 1A A < q R A b 5 1"aa S A A a  q A       A   a A  6 q1 V" A A B A A QA r3 !A A 4A RA A A !A 1A  AA A cA #!ACA A   A b BA A bA A  < q   A A  r   A  A A  1 q q Q  A <    A rqA "  a AA RQb A  Qa A A A   1    A ! qsA  A  a !A A A  A  < q rqA  1 q  A : q  2  !  A 1   1 A B : 121A1R1 B A A < q   = < q   A R1QB ;  2c A  < 1 A " Q aa aa A 32A 2AA 2AA  S> q   "1Rq!aA A A A 1A A !!A A B 01  < = : q A A 14 q A A 13 q A A 1;    5  <  = q  < q  <  7                         
    
 	 0   <          : 0   P   @    01  r    c 1                6                    
    Y        1        P3  9       ;  C    
  1D  5S  3  Z  dT  mV    j  W  X    r  Y  _      L`  t  K    u  z              n      9        \  \  t    e    Z  W  i  \    c  l    _  f  v  /      ~    ֱ      &  ҳ      c  ε              й                '    G    1  V                              #                G  p                      i      
        
  e  n  "            =    _  0  H    ?  u  Z      p  	  %   U      \     IQT&    G+( wwRegEx B U  WWREGEX     T      U  VALUE THIS REGEX
 IGNORECASE     T      U  VALUE THIS REGEX GLOBAL     T      U  VALUE THIS REGEX	 MULTILINEG " T   C VBScript.RegExpN T    a T    a U  THIS REGEX GLOBAL
 IGNORECASEH      T     T  C       B   U  LCSOURCE LCREGEX THIS REGEX PATTERN MATCHES EXECUTE5      T     BC       U  LCSOURCE LCREGEX THIS REGEX PATTERN TEST,            5  T	 
    T C   	 
   T
    %
   	 B   
 T  "  
 (  T C     T   
 %   T C  " T  C       [ 	 B   U  LCSOURCE LCREGEX	 LCREPLACE LLISEXPRESSION	 LOMATCHES LNX LOMATCH LCREPL LCMATCH THIS REGEX PATTERN EXECUTE LNCOUNT COUNT ITEM VALUE
 FIRSTINDEX LENGTH            T  	   T C    
  T    %  w 	 B  
      (   T C  
  T    T     T C    	 B  U 	 LAMATCHES LCTEXT LCREGEX
 LCREPLACEWITH LNCOUNT LNX	 LOMATCHES THIS REGEX PATTERN EXECUTE COUNT LOMATCH ITEM LCMATCH VALUEc          (C  S   T C  C     	 B  U 	 LAMATCHES LCTEXT
 LCREPLACETEXT LNX IgnoreCase_AssignJ      
 Global_Assign       MultiLine_Assign       Init      Matcht      Test      Replacec      aStripExpressions;      aRestoreExpressions       T   T a T a T - T 
     
     
     
     
     
     
     
     
  	    U  REGEX
 IGNORECASE GLOBAL	 MULTILINE MATCHES wwRegEx Custom    M 1 q 13 q 13 q 1= "=  2 <  1A 1 11q 1 A  $Q  A !A  ; 1 2 A  r2QA  <  q A  7              @ @  =                    
  J  ?      W    C   
       G   
   "    V        h	  h      
  <  y      3       /          @   Q       G     9       %   '  >1  G6    2  νQl&  1  G+( wwPDF G+( wwEVAL G+( wwAPI U  WWPDF WWEVAL WWAPI!          T CC      6 T    
    T C wwEvalN1 C SET PRINTER TO NAME ' 	  '   % 
  / T   Couldn't set printer to  	  B- # T C] \C] .psK REPORT FORM (lcReport) &lcExtraReportClauses NOCONSOLE TO FILE &lcTFile
 G*(
    T C  pdf %CCC Ի0 T CC Ի = (   %C 0 = (  ' T   Output file not created B-   Ba U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEVAL LTSTART LNHANDLE THIS	 CERRORMSG EXECUTECOMMAND CPRINTERDRIVER LERROR LCTFILE        $ T C] \C] .pdf %C         z  T C 
   	 B  
   	 B   U  LCREPORT LCEXTRACLAUSES
 LCFILENAME LCOUTPUT THIS PRINTREPORT      %CC   B-     T C] \C] 3
 C& T C
  .FRX         
  .FRX  
  .FRT B
  U  LCOUTPUTFILE LCEXTRAREPORTCLAUSES LCFRX LLRESULT THIS PRINTREPORT      # T C] \C] .pdf %C       o  T C   
   	 B  
   	 B   U  LCEXTRACLAUSES
 LCFILENAME THIS QUICKREPORT LCOUTPUT FILE2VAR            T CC      6 T 	    %C 0l 
     T -  T -$ %C SERVERb O 
  	  T a C	]  G*(J  b REPORT FORM (lcReport) &lcExtraReportClauses NOCONSOLE TO FILE (lcOutputFile) NODIALOG NOEJECT
 G*( % e C	 ]   ( 
 d 
 Cd  %C 0   T C  %  C  !    ( 8
 R,   T a( T 	  Printing failed:    
 % P B-  %C 0j Ba 6 T 	 & Postscript output file was not created B- U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEXCEPTION LLERROR LNX LNHANDLE LLUNATTENDEDMODE THIS	 CERRORMSG SERVER LUNATTENDEDCOMMODE CPRINTERDRIVER NMAXWAITTIME WINAPI_SLEEP MESSAGE3          T CC      6 T    
    T C wwEvalN1 C SET PRINTER TO NAME ' 	  '   % 
  / T   Couldn't set printer to  	  B- # T C] \C] .psK REPORT FORM (lcReport) &lcExtraReportClauses NOCONSOLE TO FILE &lcTFile
 G*( %C 0 T C 
 N T C        
    %  C 0
' T   Output file not created B-  %' T   Output file not created B-  Ba U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEVAL LTSTART LNHANDLE THIS	 CERRORMSG EXECUTECOMMAND CPRINTERDRIVER LERROR LCTFILE LODIST CDISTILLERPROGID LNRESULT	 FILETOPDFf          T CC      6 T    
    T C wwEvalN1 C SET PRINTER TO NAME ' 	  '   % 
  / T   Couldn't set printer to  	  B- # T C] \C] .ps  T -$ %C SERVERb O 
  	Z T a C	] ] REPORT FORM (lcReport) &lcExtraReportClauses NOCONSOLE TO FILE (lcTFile) NODIALOG NOEJECT
 G*( %  C	 ]  (  T     B-  %C 0. | GhostPsToPdf
 wwipstuff.dll   %C  
s T     T  4 %C             C 0
6 T  & Final PDF output file was not created.
    B- 
    X6 T  & Postscript output file was not created B-  Ba U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEVAL LTSTART LNHANDLE THIS	 CERRORMSG EXECUTECOMMAND CPRINTERDRIVER LERROR LCTFILE LLUNATTENDEDMODE SERVER LUNATTENDEDCOMMODE LOEXCEPTION MESSAGE GHOSTPSTOPDF	 WWIPSTUFF DLL LCGHOSTSCRIPTDLLPATH CGHOSTSCRIPTDLLPATH CRESOLUTION
 CPAPERSIZE% " T   C APServer.ObjectN U  THIS OPDF  T    U  THIS OPDFK     %Ct #  T  a ! T   C    6 U  LLSET THIS OPDF ORIENTATION     #       	 
  T CC      6 T C @ T C  %C   T C]C]  %C 
 %CC] 
 5 T  ! Can't find PDF output directory:   B-  T C]    T 
  C  T 
  C 
    T 
  - T C 
   %  3 T   PDF StartPrinting() Error# CC Z B-  C 1 T  set printer to name ' 
   ' &s
F REPORT FORM (lcReport) &lcExtraReportClauses NOCONSOLE TO PRINTER 
 C 
   C 
   Ba U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEVAL LTSTART LNHANDLE LCSETPRINTERSTR LNRETVAL LCOUTPUTDIR
 LCFILESTUB	 LNSECONDS THIS	 CERRORMSG OPDF OUTPUTDIRECTORY NEWDOCUMENTNAME
 USESTATICPOOL
 STARTPRINTING	 STUPARRAY S NEWPRINTERNAME WAIT STOPPRINTINGV 2 T  % SET LIBRARY TO "FllIntf.fll" ADDITIVE
 &lcCMD
 T  C    U  LCCMD THIS OPDF
 DRIVERINIT CPRINTERDRIVERT 
 C    C      C     T    < FllIntf.fll U  THIS UNLOCKSEMAPHORE FILENAMEOPTIONS OPDF	 DRIVEREND FLLINTF FLL             %C	 
 
C  B-  T CC      6   
 
 T 
 T 
 T
  ! C	  
 
 

   C	   
   +C 0 
      T C wwEvalN1 C SET PRINTER TO NAME "	   "   %  / T	   Couldn't set printer to 	  
 C	   B- M REPORT FORM (lcReport) &lcExtraReportClauses NOEJECT NOCONSOLE TO PRINTER
 G*(
 C	   Ba U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LOEVAL LTSTART LNHANDLE LCSETPRINTERSTR LNRETVAL LCOUTPUTDIR THIS
 LOCKSEMAPHORE	 NNOPROMPT NUSEFILENAME
 NBROADCAST FILENAMEOPTIONS OPDF DEFAULTFILENAME EXECUTECOMMAND CPRINTERDRIVER LERROR	 CERRORMSG UNLOCKSEMAPHORE        # T C] \C] .pdf %C         {  T C   
   	 B  
   	 B   U  LCREPORT LCEXTRACLAUSES
 LCFILENAME LCOUTPUT THIS PRINTREPORT FILE2VAR_      T  C %C  0
k ' h1    T  C
 
 > C Q  %C wwPDF
  Q       F  T C	 REPROCESSv GM(  
 T   +CS
   	 
	 T   C
   T CS
 GM(  %C  
O
 F   	 B  U 
 LCOLDALIAS LNOLDREPROCESS LLRETVAL THIS CSEMAPHOREFILE	 TIMESTAMP ID WWPDF XX NTIMEOUT WINAPI_SLEEPW  T  CW %C wwPDF
7  Q       F  Z
 F   B U 
 LCOLDALIAS THIS CSEMAPHOREFILE WWPDF6     | Sleep WIN32API C     B U  LNTIME SLEEP WIN32API  U    U    U    U              	  T CC      6 
  T
  XFRX("XFRX#INIT") T  C
  %C	 this.oPDFb O : T 
 * Unable to create report generator instance T  -  T CC      6? %C m.lcOutputFileb C	 C
 
	 
   
	k T  
  T  - & %C this.nParamsRetValb N C 
     %   O C     # T  C 
   
     %   T 
    K* T 
  Unable to generate report.  E T 
 , Unable to set report parameters, error code C  _  C     T   B   U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LLAPPEND LOEVAL LTSTART LNHANDLE LCSETPRINTERSTR LNRETVAL LCOUTPUTDIR CXFRX THIS OPDF	 CERRORMSG LSUCCESSFUL COUTPUTNAME
 NPARAMSRETVAL	 SETPARAMS SETEMBEDDINGTYPE NEMBEDDINGTYPE
 PROCESSREPORT FINALIZEo    Y T  C         	  
      
    
      B   U  LLAPPEND THIS
 NPARAMSRETVAL OPDF	 SETPARAMS COUTPUTNAME CTEMPDIR LNOTOPENVIEWER	 CCODEPAGE LSILENT LNEWSESSION CTARGET CARCHIVE	 LADDITIVE LDELETEFILEAFTER            	  T CC      6 
 " T
  XFRX("XFRX#LISTENER") T  C
  T 
 a l %C	 this.oPDFb O: T  * Unable to create report generator instance T 
 - J T
 CC      6? %C m.lcOutputFileb C	 C
 
	 
   
	 T  
  T  - & %C this.nParamsRetValb N C 
     %  
 T
 
   noreset  T  - %    %CC
  f LBXyB LABEL FORM (m.lcReport) OBJECT this.oPDF &lcExtraReportClauses
 O REPORT FORM (m.lcReport) OBJECT this.oPDF NOPAGEEJECT &lcExtraReportClauses
  G*( 6E T  , Unable to set report parameters, error code C  _ T 
 -  C     C    T   (  T 
 - T      B 
  U  LCREPORT LCOUTPUTFILE LCEXTRAREPORTCLAUSES LLAPPEND LOEVAL LTSTART LNHANDLE LCSETPRINTERSTR LNRETVAL LCOUTPUTDIR CXFRX THIS OPDF LSUCCESSFUL	 CERRORMSG COUTPUTNAME
 NPARAMSRETVAL	 SETPARAMS LRESETPAGENO FINALIZE OERROR MESSAGE  T   a U  THIS LRESETPAGENOo    Y T  C         	  
      
    
      B   U  LLAPPEND THIS
 NPARAMSRETVAL OPDF	 SETPARAMS COUTPUTNAME CTEMPDIR LNOTOPENVIEWER	 CCODEPAGE LSILENT LNEWSESSION CTARGET CARCHIVE	 LADDITIVE LDELETEFILEAFTER PrintReportp       PrintReportToString       QuickReport      QuickReportToString       PrintReport     PrintReportI	     PrintReport:     Init     Destroy
     SetLandscapeMode+     PrintReport     Init/     Destroy     PrintReportW     PrintReportToStringm    
 LockSemaphoreS     UnlockSemaphore$     Sleep    
 DriverInit    	 DriverEnd     FileNameOptions	     DefaultFileName     PrintReport    	 SetParams      PrintReport"     ResetPageNo&    	 SetParams&    V 
 T     T  Acrobat PDFWriter
     
     
     
      U 	 CERRORMSG CPRINTERDRIVER> # T   Microsoft Print to PDF T '
      U  CPRINTERDRIVER NMAXWAITTIMEc 
 T    ! T  Xerox Phaser 1235 PS( T  PDFDISTILLER.PDFDISTILLER.1
      U 	 CERRORMSG CPRINTERDRIVER CDISTILLERPROGIDo 
 T    ! T  Lexmark C510 PS (MS)
 T    T  150x150 T  letter
      U 	 CERRORMSG CPRINTERDRIVER CGHOSTSCRIPTDLLPATH CRESOLUTION
 CPAPERSIZEj  T  
 T   
 T 
 T   
 T   
     
  	   
  
   
      U  OPDF	 CERRORMSG NTIMEOUT CPRINTERDRIVER CTEMPOUTPUTFILE  T  
 T   
 T ! T  Amyuni PDF Converter
 T      T C]
 \wwPDF.dbf
     
  
   
     
     
     
      U  OPDF	 CERRORMSG NTIMEOUT CPRINTERDRIVER CTEMPOUTPUTFILE CSEMAPHOREFILE  T  
 T   
 T    T C] T  PDF T a T - T a T - T	 - T
 - T -
 T  T
 - T -
     
      U  OPDF	 CERRORMSG COUTPUTNAME CTEMPDIR CTARGET LNOTOPENVIEWER	 CCODEPAGE LSILENT LNEWSESSION CARCHIVE	 LADDITIVE LDELETEFILEAFTER NEMBEDDINGTYPE LSUCCESSFUL
 NPARAMSRETVAL  T  
 T   
 T    T C temp5 T  PDF T a T - T a T - T	 - T
 - T -
 T  T
 - T - T -
     
     
      U  OPDF	 CERRORMSG COUTPUTNAME CTEMPDIR CTARGET LNOTOPENVIEWER	 CCODEPAGE LSILENT LNEWSESSION CARCHIVE	 LADDITIVE LDELETEFILEAFTER NEMBEDDINGTYPE LSUCCESSFUL
 NPARAMSRETVAL LRESETPAGENO wwPDF50 RELATION8*     wwPdfPrinterDriver wwPDF50*     wwDistiller wwPDF50
+    
 wwGhostScript wwPDF50+     wwActivePDF wwPDF50],     wwPDFAmyuni wwPDF50-     wwXFRX wwPDF50.     wwXFRX9 wwPDF50/      1    cq A 5a  aB!   qq A A r >   B  A   <   q A  2cBA > q r 1!  A    1  q  A    A  A !a   A A   r ! A A A A    A  q A  q A bq 1    dq A 5a  1 qq A  qq A r 01    cq A 5  A  A a   A  1q A  r 1  A Da q A   aq A r 1 ":  > q  A  1  2  bA sRq  1A A ca B1q A  a c2r 1 # s:  2 1 1  #q A     a A A c q A b  r =   2!  A   :   3rQ  A A RqA q  q   A    A  :  RaA q B  B 8 q  B 4 1 1 1  1 1r !  ! A a1A Aa1 A  QA A   : q  1 1r !!    ! A a1A A  A! A r  Q A A    1A  9  9 q  "1 0      01 1  1 P  1   C4 `1          p 1     r     `    1 0               8    3              8                    Z    .   "   ?    l   -     *     9   /  a     E     !     t   )  ).  j     >:  QA       E  .F  j     gG  {G  v     -I  I       L  X       \  ]  5     ^  	`  F     b  g  `    ?i  j       4l  n    ;  Gp  p    D  Cq  q    I   r  q    J  r  r    K  .r  ,r    L  Hr  r     N  qz    A  p  р    r  u                  9  b           	       !       "  L.  1    .  tA      B  0X  F    X  q      r                 %   6  Z
       v
  IQ&    G+( wwXmlState.prg U 
 WWXMLSTATE PRGq     %C   O,  T     j % T  C msxml2.domdocumentN T   -  U  LODOM THIS ODOM ASYNC6     T  a %C  y ( T   <   ></   > C       T  a Ba 
 %   C         C        %C   	 
(( T   <   ></   > C       T  - B-  Ba U
  LCXML LLURL THIS LLOADED	 CROOTNODE ODOM LOADXML LOAD
 PARSEERROR REASON  B     U  THIS ODOM XML     C       U 
 LCFILENAME THIS ODOM SAVE            %C  T C 
 HR  C a    C	   V  T  string   N  T  float   L T  boolean
 %   T  1 
 T  0    T	   DD T  datetime   O] B-   Gv B- 2 T  string   %  

 C    T  	  %C D T
 C /    % T C /   /     %C 
< C  
 
   B % T C /   /     %C  T
 C /     %C
 . C <   ></   > 	    T C      C  
    T    T C type   T    C      %C 
 T C description   T    C       Ba U 
 LCPROPERTY LCVALUE LCTYPE
 LCDESCRIPTION LODOM
 LOPROPERTY THIS LLOADED LOADXML ODOM LOPROPERTIES SELECTSINGLENODE	 CROOTNODE REMOVECHILD
 CREATEELEMENT APPENDCHILD TEXT LOTYPE CREATEATTRIBUTE VALUE
 ATTRIBUTES SETNAMEDITEM          %  
I  %C  
E  B   T  	 % T C /   /   
  %C   B  T     T CC type 
   @
 H + C  string xml url file
	 B (   integer
   float@ BC g   booleanp BC  1 a -6   datetime BC   B U 
 LCPROPERTY LODOM LCVALUE LCTYPE
 LOPROPERTY LOVALUE THIS LLOADED LOADXML ODOM SELECTSINGLENODE	 CROOTNODE TEXT
 ATTRIBUTES GETNAMEDITEM        %  
F  %C  
B 	 B    T    T  	 
    (       T C      T    
 / T   CC     . T   C type    " T C description    %C 
  T       T       	 B  U  LAPROPERTIES LNX LODOM LOVALUE THIS LLOADED LOADXML ODOM LOPROPERTIES DOCUMENTELEMENT
 CHILDNODES LENGTH ITEM NODENAME GETPROPERTY
 ATTRIBUTES GETNAMEDITEM TEXT
 LODESCRIPT InitU       LoadXML       GetXMLo      SaveXML      SetProperty      GetProperty{      AGetProperties	       T  
 properties   T    T -
     
     
     
     
     
     
      U 	 CROOTNODE ODOM LLOADED
 wwXMLState Relation    1 q R QA  1    A q A  A AA A q A r :  < q A 1 11   1!!!A    A Q!q !q  1A A  A  RA A A S  A RA AAA r < q q!A A A S q A     A r > q  ! A A 2qQ" A A  5 qt  r   p 0      1                    	  
  e        6  }   !          #   |       '   Q  2     b          |   "  %  J       %  .     %     s    5     IQ&  1  G+( wwXMLAdapter BC wwXMLAdapterN U  WWXMLADAPTERc    Q STRING T  C  @    U  %  C  @Q 	 B    B U  LCCURSOR LOTABLE THIS TABLES ALIAS    Q VARIANT Q BOOL %C   NH  T C      e  T C       %C   B-  % 
	 C  	  Q    C     U  LVCURSOR LLAPPEND LOTABLE THIS TABLES GETTABLE ALIAS TOCURSOR    Q STRING    %C  S  T  C %C  O 	 B     C      T  a
 T    C lcXML-a    	 B  U  LCCURSOR
 LLCHANGESONLY LCXML THIS ADDTABLESCHEMA
 ISDIFFGRAM TOXML GetTableh      	 GetCursor       GetDiffGram     ,  T  a
     
     
      U  UTF8ENCODED wwXMLAdapter
 XmlAdapter6    b@1  !a A A r 5 0QQ QA  q A  A 7 QPq     A A    4   @  1                    |  
  '      ~  '	  L      	    u   ,             %     
  >     
  IQ&    G+( wwCache U  WWCACHES %C   
? %C    L h     VARCHAR  M  M  T  T  I &    ; %C   0  F   Q       7L h1     VARCHAR  M  M  T  T  I &    Q Q         
 F    U	  THIS CCACHECURSOR CFIXEDFILENAME KEY CONTENT XML ENTERED EXPIRES ACCESSES        %C  2  T  C    T C
 C   -    %C4  % C 
 T   >	 	     T     T   %C 
 C 	 
 F  	 B  U
  LCKEY
 LCOLDALIAS	 LCCONTENT THIS GETREQUESTSPECIFICKEY OPEN KEY EXPIRES CONTENT ACCESSES        %C  2  T  C    T C
 C   -    %C4m    %C 
 
 F   U  LCKEY
 LCOLDALIAS	 LCCONTENT THIS GETREQUESTSPECIFICKEY OPEN KEYC      %C .  T    $ %C   C Requestb O	g  T  C    T C
 C   -    %C4 / >	  
 C  C   I r 
  	  
  C  @ CC    %C 
<
 F   U  LCKEY LCVALUE LNTIMEOUTSECONDS THIS NDEFAULTCACHETIMEOUT GETREQUESTSPECIFICKEY
 LCOLDALIAS OPEN KEY CONTENT EXPIRES ENTERED ACCESSES CCACHECURSOR       %C  .  T  C    T C
 C   -    T C4 %   C
	   T -  %C 
 
 F  	 B  U  LCKEY
 LCOLDALIAS THIS GETREQUESTSPECIFICKEY OPEN KEY LLCACHED EXPIRESc    Q STRING T  C
 C   q   C
 %C  
\ 
 F    U 
 LCOLDALIAS THIS OPEN CCACHECURSOR EXPIRES' $ BCC SCRIPT_NAME      @ U  REQUEST SERVERVARIABLES CQUERYSTRINGl  %C     Ba  %C    
9  B-   C
   3 &    Q U  THIS CFIXEDFILENAME
 OPENEXCLUSIVE FOR EXPIRES ALL KEY OpenF       GetItem      RemoveS      AddItem/      IsCached      Expire!      GetRequestSpecificKey      Reindex
       T  	 __wwCache
 T    T 
     
     
     
     
     
     
     
      U  CCACHECURSOR CFIXEDFILENAME NDEFAULTCACHETIMEOUT wwCache RelationI	    1 2!  !   A A A A   1 q   A       A  A   A  A  < q   A     A A  A @1   A AA      A  A  1 q q  A     A  A  A  1    A = A= "q A Rq A   A  A 5 a   P ` P    `   1                    q  E  O             .   P       >   y  R     R       +  e   @    ]  m   ^!  !  t  o   :#  $    {      )$       %   y/  6  ;  k  6  (R&  l  G+( wwUtils G+( wwApi G+(
 wwCollections G+( wwDotnetBridge G+( wwJsonSerializer U  WWUTILS WWAPI
 WWCOLLECTIONS WWDOTNETBRIDGE WWJSONSERIALIZERi       %C   A   T C wwJsonSerializerN  T    BC      U  LVVALUE LLFORMATJSON LOSERIALIZER
 ISNULLOREMPTY FORMATTEDOUTPUT	 SERIALIZEU      %C   =   T C wwJsonSerializerN  BC      U  LCJSON LOSERIALIZER
 ISNULLOREMPTY DESERIALIZEJSON  %C    
 T     ( V % A  Z	  a  z	  0  9	  _  .  T  C    T      B    U  THIS PROPERTYNAMECHARACTERFILTER LCCHARFILTER LNX         %C6  T     T C POINTv G;( . T     C     G;( 
 %   T  C      B   U	  LVVALUE LLFORMAT
 LCOLDPOINT LCJSON THIS FORMATTEDOUTPUT COUTPUT
 WRITEVALUE
 FORMATJSON       %C    - 	 B    %C   Cy 3 * Json Deserialization requires string input  %C    T  C  > T C' Westwind.WebConnection.wwJsonSerializer    %C  O      T C    	  %C 5 B 
 HF  
  Ol BC      
  A BC     2 BC   
   U  LCJSON LOSER LORES
 ISNULLOREMPTY THIS OBRIDGE GETWWDOTNETBRIDGE CREATEINSTANCE	 CERRORMSG DESERIALIZEJSONNET TYPE PARSEOBJECTJSON PARSEARRAYJSON PARSEVALUEJSON     BC      U  LCJSON THIS DESERIALIZEJSON       Q
 COLLECTION T C      %C loCol.Countb N^ 
 B  C      B   U  LCJSON LCWRITABLECURSOR LOCOL THIS DESERIALIZE COLLECTIONTOCURSOR COUNT      
  
   T C lvValueb
 HO ! C
 ALEN(lvValue)b N  C     C    T     null C  C M V
 H  C  = cursorwZ %C  = cursor: C  = cursor_rawarray: C  
=
 cursor_legacyZ C     s C   	   2 C   	     Y  T    CC   @N_ C  I N F T    C  _   L\
 %  4 T     true X T     false  C  D T C   
    W	   Q' T     "C  
 "   G   O    T C
 lvValue.Classb
 H!,   C C  
 @
 collection	 %    z T     [] # T CC lvValue.GetKey(1)Ρ

 %  C      C      .   C C  
 @ wwcollection	D
   C    
 C   +   C C  
 @	 wwdynamic	 C     2 C      2 T     null  U  LVVALUE LCTYPE LNX LA_ARRAY
 LVVALARRAY THIS
 WRITEARRAY COUTPUT WRITECURSOR WRITESTRING	 WRITEDATE LCVALUETYPE	 LLHASKEYS CLASS COUNT WRITEKEYCOLLECTION WRITECOLLECTION AITEMS WRITEDYNAMICOBJECT WRITEOBJECT          %  ;  T  C
  `  %C  k  T     "" B     T C  > %  
  T C   Q   T C   Q  7  % 
(- | JsonEncodeString
 wwipstuff.dll T a  T C    	  %  I @ JSON Encoding failed: result string exceeds 16 meg string limit.  T    C 
  U  LCVALUE LNK LCRESULT LCOUTPUT THIS TRIMSTRINGVALUES COUTPUT LNBUFFERSIZE __JSONENCODESTRINGAPI JSONENCODESTRING	 WWIPSTUFF DLL	 LNPOINTER WINAPI_NULLSTRING       %C   D3  T  C    %C  Y  T      ƞBA  %C    T  C  + T    C          U	  LVVALUE LONOW THIS OBRIDGE GETWWDOTNETBRIDGE COUTPUT
 ODOTNETBRIDGE
 TOJSONUTCDATE ASSUMEUTCDATES            T C   T     [  (   T C     C    T     ,  T  C   ,  T     ] U  LAITEMS LNROWS LNX LVITEM THIS COUTPUT
 WRITEVALUE TRIMWHITESPACE         T     T     [  (   T C      C    T     ,  T  C   ,	  T     ] U
  LOCOL LNROWS LNX LVITEM COUNT THIS COUTPUT ITEM
 WRITEVALUE TRIMWHITESPACE        T     T     {  (  * T     "C      ": CC    	    %    
  T     ,   T     } U
  LOCOLLECTION LORESULT LNROWS COUNT THIS COUTPUT LNX GETKEY
 WRITEVALUE ITEMK             T C   b T 	  	  {
 C 
  T C  
  (  T CC   @- %C ,  , ,   ,   . 
 % 4 T C    
  %  0 T C       # T 	  	  "  ": + %C ALEN(loObject.  )b N
  ) ACOPY(loObject.&lcFieldName,la_array)
 C     CC	 loObject.     T 	  	  ,  T 	 C 	   ,V T 	  	  } U  LOOBJECT LNX LNPROPERTIES LLPROPNAMES LCFIELDNAME LNINDEX	 LAMEMBERS LA_ARRAY THIS COUTPUT ENSUREPROPERTYNAMEOVERRIDES OPROPERTYNAMES PROPERTYEXCLUSIONLIST GETINDEX AITEMS
 WRITEARRAY
 WRITEVALUEG       ) %C   
 C     
	  T C     , %  	 C  	  T  C wwCollectionN   (   CC     	   T         T
    T    % CC lvValue.__Reference   T  
  U
  LVVALUE LNX LNCOUNT LCOLDEXCLUSIONLIST __PROPERTYNAMEOVERRIDES THIS PROPERTYNAMEOVERRIDES LAITEMS OPROPERTYNAMES ADD LCOLDEXCLUSIONS PROPERTYEXCLUSIONLIST WRITEOBJECT            T a& %C cursor_rawarray:   | % T  C   cursor_rawarray:     T  C   cursor:   # %C
 cursor_legacy     T -# T  C   cursor_legacy:    T C %C    T  C  %C  R T 	  	  null B  %C  o
 F   { B  T C
   
 C   T C  
 % 
 T 	  	  {"Rows":  T 	  	  [
 T   
  ~s T 	  	  {  ( E T CC  
 @ T
 C  
  %
  G . 
 %  T C      %   T C       " T 	  	  "  ": CC    %  
A T 	  	  ,   T 	  	  }, T    %C 
 F  ! T 	 C 	   ,V ] % 
, T 	  	 
 ,"Count": C _ }  U  LCCURSOR LNFIELDCOUNT LNX LCOLDCURSOR LCFIELD LLNOROWS LLEXCLUSIONS LNCOUNT THIS COUTPUT LAFIELDS ENSUREPROPERTYNAMEOVERRIDES OPROPERTYNAMES LCTYPE LNINDEX GETINDEX AITEMS
 WRITEVALUE         T C 
 cursorrow:   T C %C `  T C  %C   T     null B  %C  
 F    B  T C   T     {  ( e T C   # T     "  ":  CC  	  T     , ! T  C    ,V } %C 
 F   U
  LVVALUE LNFIELDCOUNT LNX LCOLDCURSOR LCFIELD LCCURSOR THIS COUTPUT LAFIELDS
 WRITEVALUEn  %C   
	 C   	g  T   C wwCollectionN) T    C        ,  U  THIS PROPERTYNAMEOVERRIDES OPROPERTYNAMES COUNT AITEMS@     %  C  @
9  T       ,  U 
 LCPROPERTY THIS CPROPERTYNAMEOVERRIDES       %C  5  T  C  > T C' Westwind.WebConnection.wwJsonSerializer    T C      %C   B 
 H     O  BC   	     A  BC   
  2 BC      U  LCXML LOSER LORES THIS OBRIDGE GETWWDOTNETBRIDGE CREATEINSTANCE DESERIALIZEXML TYPE PARSEOBJECTJSON PARSEARRAYJSON PARSEVALUEJSONi        T C    Value    %    YY  T C   T 	 B  U  LORES LVVALUE THIS OBRIDGE GETPROPERTY TYPE	 NDECIMALS   #          T C EMPTYN% T C   
 GetMembers	 
   T      (  T C   
  T 
 H -    O  T C  	      A T C  	   2- T C  	    T    T C = %C t T  _   %	  	   $	 .  T C 	     C   
 	 B  U  LOOBJECT LORESULT	 LOMEMBERS LOMEMBER LNCOUNT LNX LVVALUE LCNAME LCNAME_FIRST THIS OBRIDGE INVOKEMETHOD COUNT ITEM TYPE PARSEOBJECTJSON PARSEARRAYJSON PARSEVALUEJSON NAME IGNOREDOLLARVARS PROPERTYNAMECHARACTERFILTERN           T C
 CollectionN$ T C   	 GetValues  	  T  
    ( > T C     T 
 H )    O  T C   
     A T C     2) T C      C     	 B  U  LOOBJECT LOCOLLECTION LOVALUE LOVALUES LVVALUE LNCOUNT LNX THIS OBRIDGE INVOKEMETHOD COUNT ITEM TYPE PARSEOBJECTJSON PARSEARRAYJSON PARSEVALUEJSON ADDX       C    
 T     ,  BC	 loObject.  U  LOOBJECT
 LCPROPERTY LVVALUE THIS PROPERTYNAMEOVERRIDES\      C   C EMPTYN
 T     ,  BC	 loObject.  U  LOOBJECT
 LCPROPERTY THIS PROPERTYNAMEOVERRIDESa      C   C
 CollectionN
 T     ,  BC	 loObject.  U  LOOBJECT
 LCPROPERTY THIS PROPERTYNAMEOVERRIDES       %C  1  T  C  > T C' Westwind.WebConnection.wwJsonSerializer    BC      U  LCJSON LOSER THIS OBRIDGE GETWWDOTNETBRIDGE CREATEINSTANCE
 FORMATJSONx     %C   O,  T      %C  e # T  C wwJsonSerializerN  B   U  LOSERIALIZER THIS OSERIALIZER|     %C   O,  T     i  %C   Oe  T  C wwHttpN   B   U  LOHTTP THIS OHTTP            T 	 - %C   %C  
 e  T  GET ~  T  POST   T C   T    %C  
 
% T C 
  T C    / T   application/json; charset=utf-8 CC 	    T C      %   s T     T 	 a ) %C application/json    %  
 T C   T C 
  T C    	 B  	 B  U  LCURL
 LVPOSTDATA LCVERB LCRESULT LCJSON LOHTTP LOSER LORESULT THIS LERROR
 ISNULLOREMPTY CREATEWWHTTP	 CHTTPVERB CREATESERIALIZER	 SERIALIZE CCONTENTTYPE
 ADDPOSTKEY HTTPGET NERROR	 CERRORMSG CHTTPHEADERS LNOUTF8DECODING DESERIALIZEJSON
 JsonSerialize      JsonDeserialize    " PropertyNameCharacterFilter_Access"     	 Serialize*      DeserializeJsonM      Deserialize      DeserializeCursor     
 WriteValue      WriteStringo
     	 WriteDate     
 WriteArray      WriteCollection      WriteKeyCollection>      WriteObjecty      WriteDynamicObject      WriteCursor      WriteRow\      EnsurePropertyNameOverridesk       AddPropertyNameOverride!      DeserializeXml!      ParseValueJson8#      ParseObjectJson#      ParseArrayJson&      Property(      PropertyObject:)      PropertyCollection)     
 FormatJsone*      CreateSerializer=+     CreatewwHttp+     CallServiceo,       
 T     T aT ` ,activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,C class,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,b width,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column,
 T    T - T 
 T   T - T -
 T	   
      T
     T  T C DECIMALv
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
     
     
     
     
     
     
     
     
     
     
     
      U
  COUTPUT TRIMSTRINGVALUES PROPERTYEXCLUSIONLIST PROPERTYNAMEOVERRIDES ASSUMEUTCDATES NUTCTIMEOFFSETMINUTES OUTPUTDATETYPE IGNOREDOLLARVARS FORMATTEDOUTPUT PROPERTYNAMECHARACTERFILTER OBRIDGE OPROPERTYNAMES	 NDECIMALSg 
 T     T -
 T    T  T  T -
     
     
      U 	 CERRORMSG LERROR CSERVICEBASEURL OSERIALIZER OHTTP LNOUTF8DECODING wwJsonSerializer CustomT2     wwJsonServiceClient Custom5     q:  "A <  !A `1 ! qdA A 1A A  `1   A B   A  = q  " A Q1A "A Q A R q A  QQ A < q  1  QR A " < q    b    A  A !!  A qq""  A 1  A A  A A  A > q 1A  A A  qQ1 dA r   A b!A > q q RA  1A "A > q   r!A < q  rQA > q  qAA A < q qqR 2rAA A  A A 2  A A = q  A rA A Q= q  aQ A 1 1A    A  A A    A A R 2 A  q  rqQ!A A  A A ""A A A   A  A = q 1   A  A A    A A RrQ1!A   A > A = q cA 1 q  "A R q A  QQ A = q q bQA  = q 1RRQ  QQQQ QA ! !A A A "A  ; q BQ  QQQQ QA A   1  !1  1  > q q "A  1 q RA !1A  > q R A A  <  q  ! A A 3QaA RB1 A 1A Q A  5 x               a    ` @ 0        p @      p 0 p @ @   1         ` P 1                    1       
   Q    $        s
  `   !     a     0          L     4     P          Y     $        %  )  M     ,  b-       .   0       {1  2       E4  5       7  F<      =  @  *    B  I  K  X  0K  pN    u  O  P    z  (R  S      uZ  s\  ;    ]  ^  ^    _  d  v    ce  g      i  j      nm  Kn       q  q      s  it  
    d  R      P        @        >    3   ]    0  r    %   @           IQ'  !     G+(
 wwJsonService U  WWJSONSERIALIZER
 WWJSONSERVICE              	  T
  - T
  - T
 
  T
      T C wwJSONSerializerN T  
   5  
 T 
 
 T  " T CC CONTENT_TYPE   @! T	 CC HTTP_ACCEPT   @ T
   json# %C	 
 	  text/xml	T T
   xml  %C " T C CallbackMethod    %C  T C Method     
 HD   application/x-javascript   application/json %C =# BC No method specified
    T C    %C 
 5   T C     T 
 __JsonParm / C 
 C CallbackParmCount   	A% T C CallbackParmCount    %C    L T   a  T C g: %C
   
$ C ,  , ,
    , 	* BC Method access denied:  
   
 T     ( ' T  ParmC _ T C     / &lcParm = loSerializer.Deserialize(lcValue)
 T    ,  T C   ,V2 C 
 CC CallbackParmCount  ! 
	% T C CallbackParmCount    T C g: %C
   
$ C ,  , ,
    , 	* BC Method access denied:  
   
 T     (  T  ParmC _ T C      &lcParm = lcValue
 T    ,  T C   ,V 2 %C  T C Method     %C # BC No method specified
   
 T     " # $ %   T" - T%  %
  . T$  loTargetObject.  (  ) T& C$   . T$  loTargetObject.  (  ) T& C$  (%  T" a C % 
 '   
 %" 7 BC% ( 
    %
  T	 B   l %C)  O ) *  application/json	# ) *  application/x-javascript	 ) *  text/	 %C& 
 T&    	 B&   T C callback  !  %
   xml5 BC & 
 +  R T C &  ,   %C n	 B   B  (    ) U-  REQUEST LOTARGETOBJECT LCMETHOD LNPARMS LOSERIALIZER LCVALUE LNX
 LCCALLBACK LCOUTPUT LCACCEPTTYPE THIS
 ISRAWRESPONSE
 ERROROCCURRED
 LASTEXCEPTION ERRORMESSAGE FORMATTEDOUTPUT ISDEBUGMODE JSONSERVICE
 SERIALIZER
 LCCONTENTTYPE SERVERVARIABLES RESPONSEMODE PARAMS RETURNEXCEPTIONOBJECT LCPARMS GETRAWFORMDATA
 __JSONPARM LCPARM DESERIALIZEJSON	 ISFORMVAR LCPARMCOUNT
 LUTF8ENCODING ALLOWEDMETHODS QUERYSTRING LLERROR LOERROR LCCMD LOEXCEPTION LCRESULT ONERROR MESSAGE RESPONSE CONTENTTYPE RETURNXMLRESPONSE	 SERIALIZE     T  a %C   OM  T      T       T   Unknown error. T  C	 ExceptionN T       U  LOEXCEPTION THIS
 ERROROCCURRED ERRORMESSAGE MESSAGE
 LASTEXCEPTIONK       T C wwXmlN T  a BC    doc   U  LOVALUE LOXML LRECURSEOBJECTS OBJECTTOXML       T  a T     T  C	 ExceptionN T      %   xml  T 	  text/xmlS B2 <doc><isCallbackError>1</isCallbackError><message>   </message></doc> ; B# {"isCallbackError":true,"message": C   
   } U 	 LCMESSAGE LOERROR THIS
 ERROROCCURRED ERRORMESSAGE
 LASTEXCEPTION MESSAGE RESPONSEMODE RESPONSE CONTENTTYPE
 JSONSTRING
 CallMethodk       OnError'      ReturnXmlResponse      ReturnExceptionObject      
 T     T - T -
 T    T  T - T  json
     
     
     
      U  ALLOWEDMETHODS
 ISRAWRESPONSE
 ERROROCCURRED ERRORMESSAGE
 LASTEXCEPTION ISDEBUGMODE RESPONSEMODE
 wwJsonService CUSTOM    s q1  q    1   #B11A  ! A A  D 1A  QqA R A  A  rqQaB c%R A  rqQQaA c  A  1A  A r        A A  1A  A   A  A r QA   A > q  Q1 aA > q q Q q< q q  11A 3        @ p    1                    A    3   u     7          !          q"           |"       %     &       E  IQ&'  !       G+( wwSftp U  WWFTP WWDOTNETBRIDGE WWSFTP PRG 
 C    U  THIS LOAD  %C   
  B  %C   >  T   C  > T   C$ Westwind.WebConnection.SftpFtpClient     %C    c D Unable to load SFTP Client. Make sure Renci.SshNet.dll is available.C
 C
       U  THIS OSFTP OBRIDGE GETWWDOTNETBRIDGE CREATEINSTANCE	 CERRORMSG          %C  : 
 C   1 T	 C  C    C  8      
  %	 
  T    
 
 B 	 B  U  LCFTPSERVER LCFTPSOURCE
 LCLOCALTARGET LNBINARY
 LCUSERNAME
 LCPASSWORD THIS OSFTP LOAD LLRESULT DOWNLOADFILESIMPLE NFTPPORT	 CERRORMSG ERRORMESSAGE         %C  6 
 C   1 T CC      C 
 8      	  % 
  T     
 B 	 B  U
  LCFTPSERVER LCSOURCE LCTARGET
 LCUSERNAME
 LCPASSWORD THIS OSFTP LOAD LLRESULT UPLOADFILESIMPLE NFTPPORT	 CERRORMSG ERRORMESSAGE0         T    %C  I  T      %C   o  T  	   %C     T  
   %C    
 T     %C    
 T     T    T   
  T     T     T     T     %C   
 T     T      T   % T C   C  8       %C < T  " Unable to connect to SFTP server:     T    B   U  LCSERVER
 LCUSERNAME
 LCPASSWORD LOSFTPCLIENT LOSFTP THIS NERROR
 CFTPSERVER
 ISNULLOREMPTY	 CUSERNAME	 CPASSWORD OSFTP TIMEOUT NCONNECTTIMEOUT
 BUFFERSIZE NFTPWORKBUFFERSIZE	 PROXYNAME CHTTPPROXYNAME
 PROXYUSERNAME CHTTPPROXYUSERNAME
 PROXYPASSWORD CHTTPPROXYPASSWORD CPRIVATEKEYFILE PRIVATEKEYFILE PRIVATEKEYFILEPASSWORD CPRIVATEKEYFILEPASSWORD WWSFTP CONNECT NFTPPORT	 CERRORMSG ERRORMESSAGE*  %C   
#  C      U  THIS OSFTP CLOSE, 
 C    T    T    U  THIS FTPCLOSE OSFTP OBRIDGEg      T C   C     % 
W  T     
 B 	 B  U  LCFTPSOURCEFILE LCLOCALTARGETFILE LLRESULT THIS OSFTP DOWNLOADFILE	 CERRORMSG ERRORMESSAGE         T CC  @ %C 0
s 2 T  " Invalid file passed for uploading.
 B  T C        % 
  T     
 B 	 B  U	  LCLOCALSOURCEFILE LCFTPTARGETFILE LCFILE LLRESULT THIS	 CERRORMSG OSFTP
 UPLOADFILE ERRORMESSAGE=          T C     %C L 
 B  T    %  z 	 B        ( - T C   	  T    
  T      T      T    
  	 B  U  LAFILES LCPATH LOFILES LNCOUNT LNX LOFILE LOFTP FTPLISTFILES COUNT ITEM NAME LENGTH
 FILEATTRIBUTE
 LASTWRITETIME         %C  6 
 T     * T C  	 ListFiles       %C   T 	   
  B  T C
 CollectionN T      (   CC   
    	 B  U 
 LCFILESPEC LNCOUNT
 LOFILELIST LOFILES LNX THIS OBRIDGE INVOKEMETHOD OSFTP	 CERRORMSG ERRORMESSAGE COUNT ADD ITEM     %C  S 6 T  & No file specified to delete on server. B-  T C       % 
  T     
 B 	 B  U  LCFILE THIS	 CERRORMSG LLRESULT OSFTP
 DELETEFILE ERRORMESSAGE[      T C         % 
K  T      	 B  U 	 LCOLDNAME	 LCNEWNAME LLRESULT THIS OSFTP
 RENAMEFILE	 CERRORMSG ERRORMESSAGES     T C       % 
C  T      	 B  U 	 LCNEWPATH LLRESULT THIS OSFTP CHANGEDIRECTORY	 CERRORMSG ERRORMESSAGES     T C       % 
C  T      	 B  U  LCPATH LLRESULT THIS OSFTP CREATEDIRECTORY	 CERRORMSG ERRORMESSAGES     T C       % 
C  T      	 B  U  LCPATH LLRESULT THIS OSFTP REMOVEDIRECTORY	 CERRORMSG ERRORMESSAGE Initn       Load      
 FtpGetFile      FtpSendFile#     
 FtpConnect\      FtpClose/      Destroyq      FtpGetFileEx     
 FtpSendFileEx	      aFtpDir
      FtpListFiles     
 FtpDeleteFile     
 FtpRenameFile      FtpSetDirectory      FtpCreateDirectoryW      FtpRemoveDirectory       T   T  T 
 T 
 T   
 T   
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
     
     
      U  OBRIDGE OSFTP OSFTPCLIENT NFTPPORT CPRIVATEKEYFILE CPRIVATEKEYFILEPASSWORD wwSFTP wwftp:wwFtp.prg    r q 01  = 2A A "A "2A ? " A  a A   1 q" A  a A  ?    A "A !A # A ! A 23211R11A R A  ; 2A <    >   a A  <   ! A  a A  <  1R  A  A 2rQA  < q 1  A  aq A A  = q  aq A  a A  <   aA  < q  aA  < q  aA  = q  aA  5 p                P      0 0 @ <                        8        l  G      	  
  d             )   j       M   9  p     Q          U         ]     !    k   !  #  6     $  &  Y     '  (  {     *  *       +  ,       -  .       /  p0          0     
  %     <  ~     X  2S<'        G+( wwEncryption U  WWDOTNETBRIDGE WWENCRYPTIONQ  T   C  %   J &  Unable to load wwDotnetBridge  U  THIS OBRIDGE GETWWDOTNETBRIDGE#           %C =  T   %C  Ca  T   %C  C  T   %C  C  T  MD5  %C  C  T   %C  C  T  
 T    |m T	 C& Westwind.WebConnection.EncryptionUtils
 EncryptString                 
    (
  T C
  
     %C 
	   	 B	  U  LCINPUT LCENCRYPTIONKEY LLUSEBINHEX
 LCPROVIDER LCCIPHERMODE LCENCRYPTIONKEYHASHALGO LCENCRYPTIONKEYHASHSALT LCIVKEY LCERROR LCRESULT THIS OBRIDGE INVOKESTATICMETHOD LOEXCEPTION FIXCOMERRORMESSAGE MESSAGE#            	  %C H  T   %C  Cl  T   %C  C  T   %C  C  T  MD5  %C  C  T   %C  C T  
 T    m T	 C& Westwind.WebConnection.EncryptionUtils
 DecryptString                 
    (
  T C
  
     %C 
	   	 B	  U  LCENCRYPTEDTEXT LCENCRYPTIONKEY LLUSEBINHEX
 LCPROVIDER LCCIPHERMODE LCENCRYPTIONKEYHASHALGO LCENCRYPTIONKEYHASHSALT LCIVKEY LCERROR LCRESULT THIS OBRIDGE INVOKESTATICMETHOD LOEXCEPTION FIXCOMERRORMESSAGE MESSAGEC           T C   %Ct
  	X 
 T    %C {  T  MD5  T C  %  Q	   C	 
 T     C   	 W T C& Westwind.WebConnection.EncryptionUtils ComputeHash        
   C   	 	 B  U  LCTEXT LCALGORITHM
 LVHASHSALT LLUSEBINHEX
 LCSALTTYPE LCRESULT LLOLDBINHEX THIS
 GETBINHEXMODE
 SETBINHEXMODE OBRIDGE INVOKESTATICMETHOD      %C *  T  MD5 W BC& Westwind.WebConnection.EncryptionUtils GetChecksumFromFile         U 
 LCFILENAME LCMODE THIS OBRIDGE INVOKESTATICMETHOD      %C   C5  T  C   W  %C X  T  MD5 X BC& Westwind.WebConnection.EncryptionUtils GetChecksumFromBytes         U  LQBYTES LCMODE THIS OBRIDGE INVOKESTATICMETHODW    M BC& Westwind.WebConnection.EncryptionUtils
 EncryptionKey       U  LCKEY THIS OBRIDGE SETSTATICPROPERTY      %C  0  T  	 TripleDES R C& Westwind.WebConnection.EncryptionUtils EncryptionProvider      ] C& Westwind.WebConnection.EncryptionUtils EncryptionUseMd5EncryptionKey 
    U 
 LCPROVIDER LLDONTUSEMD5ENCRYPTIONKEY THIS OBRIDGE SETSTATICPROPERTY LLDONTUSEMD5ENCRYPTION     T - %Ct    5  T a I BC& Westwind.WebConnection.EncryptionUtils	 UseBinHex      U  LLMODE LLVALUE THIS OBRIDGE SETSTATICPROPERTYH E BC& Westwind.WebConnection.EncryptionUtils	 UseBinHex     U  THIS OBRIDGE GETSTATICPROPERTY Initg      
 EncryptString      
 DecryptString      ComputeHashO      GetCheckSumFromFile(      GetChecksum      SetEncryptionKey	      SetEncryptionProvider^
     
 SetBinHexMode     
 GetBinHexModee     r  T  
     
     
     
     
     
     
     
     
  	   
  
    U  OBRIDGE wwEncryption Custom
    q a1 1aA 01 4  A R A Q A QA Q A Q A    A  A  1 4   A R A Q A QA Q A Q A    A  A  = 1  A  A  A t >   A t>  RQA  A  1 q <   aA $> q   A < S5     P ` P     @ 7                    p    o   
          )   b  s     H   g       Z      !    `   #  $  5  j   '  '  P  m   x)  0+  `  t   h,  R-  z  {   .  /    }     6/  J   
  %     &  
     r  IQ^'  "     G+( MarkDownParser U  WWDOTNETBRIDGE MARKDOWNPARSERY            %  C  O( %C ^ 
 T    T  MarkdownParser %  # T  MarkdownParserExtended  T C N 7 
 T   %    T 	 -  T 
  
 T    =
 T    BC        U
 
 LCMARKDOWN LNMODE LLRELOAD LLUTF8 LLNOSANITIZEHTML LLNOHTMLALLOWED
 LOMARKDOWN LCCLASS __MARKDOWNPARSER LENCODESCRIPTBLOCKS
 LSANITIZEHTML LNOHTMLALLOWED PARSE    Q WWDOTNETBRIDGE T  C V4  T     %C  U  B-   %C markdig.dll   
  B-  U  LOBRIDGE GETWWDOTNETBRIDGE THIS OBRIDGE LOADASSEMBLYs         %  	 C  ` T   3 T C Markdig.MarkdownPipelineBuilder   T C 	 N C> Markdig.Extensions.EmphasisExtras.EmphasisExtraOptions.Default 
 J T C Markdig.MarkdownExtensions UseEmphasisExtras      B T C Markdig.MarkdownExtensions
 UseListExtras    H T C Markdig.MarkdownExtensions UseCustomContainers    ? T C Markdig.MarkdownExtensions
 UseFooters    ? T C Markdig.MarkdownExtensions
 UseFigures    A T C Markdig.MarkdownExtensions UseFootnotes    A T C Markdig.MarkdownExtensions UseCitations    C T C Markdig.MarkdownExtensions
 UsePipeTables    B T C Markdig.MarkdownExtensions
 UseGridTables     T C 	 O C? Markdig.Extensions.AutoIdentifiers.AutoIdentifierOptions.GitHub 
 G C Markdig.MarkdownExtensions UseAutoIdentifiers      A T C Markdig.MarkdownExtensions UseAutoLinks    G T C Markdig.MarkdownExtensions UseYamlFrontMatter    G T C Markdig.MarkdownExtensions UseEmojiAndSmiley  a   %  @ T C Markdig.MarkdownExtensions DisableHtml     
 % HC T
 C Markdig.MarkdownExtensions UsePragmaLines      T  C    B   U  LLFORCE
 LLPRAGMALINES	 LOBUILDER LOVALUE LOBRIDGE THIS	 OPIPELINE OBRIDGE CREATEINSTANCE CREATECOMVALUE SETENUM INVOKESTATICMETHOD LNOHTMLALLOWED LOBUILER BUILD          %  
V ' T C   <% %> @@SCRIPT   T C 	  %   T C] C  ] T  C  	 8 T C Markdig.Markdown ToHtml      
  
 %  C ]  %  
<! T C     @@SCRIPT   % 
 e T C     % T C    C
 C
 C	 `	 B  U 
 LCMARKDOWN LLUTF8 LCHTML LOSCRIPTTOKENS
 LOPIPELINE
 LNOLDCODEPAGE THIS LENCODESCRIPTBLOCKS TOKENIZESTRING CREATEPARSER OBRIDGE INVOKESTATICMETHOD DETOKENIZESTRING
 LSANITIZEHTML SANITIZEHTML      %C F , T  script|iframe|object|embed|form  %C  b 	 B   L BC" Westwind.WebConnection.StringUtils SanitizeHtml         U  LCHTML LCHTMLTAGBLACKLIST THIS OBRIDGE INVOKESTATICMETHOD) 	 C T   C
 CollectionN U  THIS OCODEBLOCKS}        C     T C      C    %C  
m  C    	 B  U 
 LCMARKDOWN LLUTF8 LCHTML THIS
 FIXCODEBLOCKS FIXICONS CLINKTARGET
 ADDLINKTARGET:    0 T  C   <a  <a target="   "  U  LCHTML THIS CLINKTARGET       +a # T C   @icon-   %C V 	 B   # T C  @icon-  4 T  C    <i class="fa fa-  "></i>  	 B   U  LCHTML LCTEXT LCICONS            %C  A 	 B    T 	 C
 CollectionN
 T   +aC" T C   ``` ```
 T   %C   ! ! T C C
 C
  %%$$ T C C
 C
  T C  %%$$C
   T
 C   ```C
 -aa  T C
  ```   T CC C
 C
   @
 H~   vfp T  foxpro   c# T  csharp   vbscript T  vbscript   vb! T  vbscript   c++G T  c_cpp   txt C  T  text
 R,   T C 
  ```M T C   ###language### CC    C
 C
 C	 `  
  C   	   T  / T  C   
 @@@codeblock_C _ @@@ 	 B   U  LCHTML LCLANG	 LCEXTRACT
 LCORIGEXTRACT LCCODE
 LCREPLACEHTML LNX THIS CCODEBLOCKSTARTHTML OCODEBLOCKS LCFIRSTLINE EXTRACT
 ENCODEHTML CCODEBLOCKENDHTML ADD Markdownk      Inits      CreateParser8      Parse]	      SanitizeHtml      Init     Parse    
 AddLinkTarget
     FixIcons0    
 FixCodeBlocks
    b  T   T  T a T a T -
     
     
     
      U 	 OPIPELINE OBRIDGE LENCODESCRIPTBLOCKS
 LSANITIZEHTML LNOHTMLALLOWEDn     T  
 T   
 T   
 T   
     
     
     
  	   
  
    U  OCODEBLOCKS CCODEBLOCKSTARTHTML CCODEBLOCKENDHTML CLINKTARGET MarkDownParser Custom     MarkDownParserExtended MarkDownParserr    q =    A 1A q   A   A R1 2!q A q A >   1"2!qrqA  1A BA  <  1qA  !1A   A A QA R =   A   A 1  =  q Q2A  = q > q q  1 A 1AA  < q # A   "  A A  A111Q1QA! A BA  5        `  = q           p 1                    `  )        @	  
  Z   %   ?    s   E          ]     E     g      4!  !  j   S"  N$  1  t   x%  %  P  w   ^'  (  `     )  /  x       b  0        /       %         E     Q'    G+(	 wwDynamic   U 	 WWDYNAMIC
 WWCOLLECTIONSd      T C   name tag classlibrary parent	 baseclass parentclass comment __collection __reference __propertynameoverrides %  	 B   T C   h
 %  	 B   T C       %C 
 B   ! C    C	 wwDynamicN
 C       B   U	 
 LCPROPERTY LVITEM	 LLSPECIAL THIS LLNATIVE __COLLECTION FIND __REFERENCE ADD       
   T  C wwCollectionN %C   Ok  T  C EMPTYN   T     T C   b  (   T C   , C   C THIS.__Reference. 
   U 
 LOBASETYPE LNX	 LNMEMBERS	 LAMEMBERS THIS __COLLECTION __REFERENCE
 LCPROPERTY      %Ct
5  T C	 wwDynamicN  C     
 CC  @    %  C  @
  T       ,  U 
 LCPROPERTY LVVALUE THIS __REFERENCE __COLLECTION ADD __PROPERTYNAMEOVERRIDES*      BC THIS.__Reference.   U 
 LCPROPERTY  B     U  THIS __REFERENCE CLASS THIS_Access`       Init      AddPropm      GetPropa      GetClassProp          T   T 
 T   K       	 
   
        
     
     
     
     
      U  __COLLECTION __REFERENCE __PROPERTYNAMEOVERRIDES TAG PARENT CLASSLIBRARY NAME ADDPROPERTY	 BASECLASS
 CHILDALIAS
 CHILDORDER COMMENT PARENTCLASS PARENTALIAS	 ONETOMANY WRITEEXPRESSION WRITEMETHOD SAVEASCLASS RELATIONALEXPR
 READMETHOD READEXPRESSION	 wwDynamic RELATION&    1q 1 q q   A b  A  A A < q   R Sq!A A =  A QQcA > q  1  1 v        p   5                      <        R  P
  B   %     B
  `   /   m    x   3   &  C     6      `       %   x    p       IQ'    G+( wwSocket U  WWSOCKET      %  +  T     . | wwSocketConnect
 wwIPStuff.DLL T C X T	 C   C 8   %	    T 
  T  CC C  ` B-  Ba U  LCSERVER LNPORT THIS LLOGSESSION CLOG WWSOCKETCONNECT	 WWIPSTUFF DLL LCERROR LNRESULT NERROR	 CERRORMSG     %  > ' C   C
 C
  CLIENT:    T C  >- | wwSocketSend
 wwIPStuff.DLL T C X  T	 C     
     %	    T   T    B-  Ba U
  LCINPUT THIS LLOGSESSION LOG LNSIZE WWSOCKETSEND	 WWIPSTUFF DLL LCERROR LNRESULT NTIMEOUT NERROR	 CERRORMSGs    %C  &  T      T C  X, | wwSocketRecv
 wwIPStuff.DLL T C X T C   	   %C 
   
  T 
   T  C C   T  	 B    T 
   % 
 ( T C C      %  c' C  C
 C
  SERVER:   	 B  U  LNSIZE THIS NBUFFERSIZE LCOUTPUTBUFFER WWSOCKETRECV	 WWIPSTUFF DLL LCERROR LNBYTES NTIMEOUT
 NLASTREADSIZE	 CERRORMSG NERROR LSTRIPNULLS LLOGSESSION LOG            T C7  X T C X %C ` 
 T 
 . | wwSocket
 wwIPStuff.DLL& T C             %    T
     T C ` BC ` U  LCINPUT LCSERVER LNSERVERPORT LNCONNECTTIMEOUT LCERROR LCHTTPRESPONSE LNRESULT WWSOCKET	 WWIPSTUFF DLL THIS NERROR2 % |
 wwSocketClose
 wwIPStuff.DLL
 C   U 
 WWSOCKETCLOSE	 WWIPSTUFF DLL|         %C     
5 	 B    T C     %  l 	 B   	 B  U	  LCINPUT LNSIZE LLRESULT	 LCRECEIVE THIS SEND LCOUTPUT RECEIVE NERRORI      %C ' 
 T     T        U  LCSTRING LCPREFIX THIS CLOG  B    U  THIS CLOG      %C  N- 
 T 
 - | wwSocketListen
 wwIPStuff.DLL T CX T C        %   T   T 	   B-  Ba U
  LNPORT	 LNTIMEOUT WWSOCKETLISTEN	 WWIPSTUFF DLL LCERROR LNRESULT THIS NERROR	 CERRORMSG        T   
 T    +C   
  T  C     %   | 	 B    	 B  U  LCSEARCH LNSIZE LCRESULT THIS NERROR RECEIVE\        %C  5  T     
 T  
 T   
 T   . +   
    	  	  	 ! T  CC   
  	 = T   	  T   	   %C >  L %   H T  5 T  % Buffer size doesn't match output size  	 B  U  LNSIZE LNTOTALREAD LNLNEXTREAD LCRESULT THIS NBUFFERSIZE
 LNNEXTREAD LCOUTPUT NERROR
 NLASTREADSIZE RECEIVE	 CERRORMSG  U   
 C    U  THIS
 DISCONNECT 
 C    U  THIS
 DISCONNECT ConnectH       SEND      receive     
 socketsend#     
 disconnect      sendreceive      LOG      getlog.      LISTENM      waitfor~	      waitforsizeE
      INIT%      DESTROY,      CLOSER     
 T  

 T  
 T    T a T -
 T    T  T  
 T   T	  wwsocket 
 
     
     
     
     
     
     
     
     
  	   
  
   
     
     
  
   
      U  NTIMEOUT NERROR	 CERRORMSG LSTRIPNULLS LLOGSESSION CLOGTEXT OLOG NBUFFERSIZE
 NLASTREADSIZE NAME CLOG wwsocket CUSTOMf
    *p1  A q A r 5 q qA  q A r 5 q  A  q A qA qA  5 q "  A dA   5 Q 5   b A RQ A  4    A 4  4  R A  q A r 5  q  qA A A  5 q   A    AAA 2AQA A  4 :  5  7          Qs    @        p      5                      "  "      o  9  <         /
  Y   7   
  W
  ~   F   
  
     I   _  *     T   J       Z          \          j   A  1     v     2        S  %       I  [                @       0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68I100QR71412009256      /  F      ]                                                   WINDOWS _68I100QR81430476336              )                                                       WINDOWS _68I100QR71412009256K      `  u            s                                               WINDOWS _68I100QR71412009256n                                                                   WINDOWS _68I100QR71412009256                  J                                                 WINDOWS _68I100QR71412009256v                  /  i                                                WINDOWS _68I100QR71412009256#      #  *#  ?#  L#      &  &                                               WINDOWS _68I100QR81411950055R(      `(  n(  }(  (                                                           WINDOWS _68I100QR71411949071(      (  (  (  )                                                           WINDOWS _68I100QR71411950055)      )  )  )  )                                                           WINDOWS _68I100QR71411949071*      )*  8*  E*  h*                                                           WINDOWS _68I100QR71411950055*      *  +  +  6+                                                           WINDOWS _68I100QR71411949071d+      s+  +  +  +                                                           WINDOWS _68I18JY6914119500552,      @,  N,  ],  ,                                                           WINDOWS _68I18JY6A1411950055,      ,  ,  ,  ,                                                           WINDOWS _68I159ZGG1412015938]-      r-  -  -  -      .  *X                                               WINDOWS _68I15FA361411950055u  v  %v  4v  Av  Nv                                                           WINDOWS _68I100QR71428250730v      v  w  w  #w      w  {                                               WINDOWS _68I16OU8N1428250484~       ~  5~  E~  R~      ~                                                 WINDOWS _68I100QR71411950055{                                                                       WINDOWS _68I100QR71411950055&      3  @  N  [                                                           WINDOWS _68I100QR71411950055ς      ܂                                                                 WINDOWS _68I100QR71411950055h      u                                                                 WINDOWS _68I100QR71411950055      !  .  <  I                                                           WINDOWS _68I100QR71411950055      Ʉ  ք                                                               WINDOWS _68I1729MH1411950055X      e  r                                                               WINDOWS _68I100QR71411950055        %  3  @                                                           WINDOWS _68I1729MI1411950055        ʆ  ؆                                                             COMMENT RESERVED                                R                                                            {                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 186
Left = 184
Width = 783
Height = 453
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR sortierung (altenr N(10), neuenr N(13,3), Persname C(35), doaktion C(10))
SELECT sortierung
INDEX on neuenr TAG neuenr
SET ORDER TO 1
ENDPROC
     _    F  F                        E   %                             U  w U h
 sortierung  N
  N
  C#  C
 F   &   
 G(( 1 U 
 SORTIERUNG ALTENR NEUENR PERSNAME DOAKTION BeforeOpenTables,     1 Qq   1                              )   F                        1      1      form      form      FORM1      Height = 597
Width = 733
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Sortierung"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdSortierung.column1.text1.FontSize = thisform.grdSortierung.column1.FontSize
thisform.grdSortierung.column2.text1.FontSize = thisform.grdSortierung.column1.FontSize
thisform.grdSortierung.column3.text1.FontSize = thisform.grdSortierung.column1.FontSize
thisform.grdSortierung.column4.text1.FontSize = thisform.grdSortierung.column1.FontSize
ENDPROC
PROCEDURE Init

DO case
	CASE modus = 0
		hssuchfile = "G" + welchesjahrc + "I13"
	CASE modus = 1
		hssuchfile = "G" + welchesjahrc + "P13"
	CASE modus = 2
		hssuchfile = "G" + welchesjahrc + "R13"		
endcase	
IF giveselect("&hssuchfile") = 0
	DO dateiopen WITH 14 
endif
*	myopen(eigdat + muser + "\G" + welchesjahrc + "R13" , 13 ,"wnw")

SELECT 13
FOR hsa = 1 TO RECCOUNT()
	GOTO hsa
	IF .not. DELETED()
		myget(13,hsa,"wnw")
		SELECT sortierung
		APPEND BLANK
		FLUSH
		replace sortierung.persname WITH wnw.personalfall
		replace sortierung.altenr WITH hsa
		replace sortierung.neuenr WITH hsa
		FLUSH
	ENDIF
	SELECT 13
NEXT
SELECT sortierung
GO top

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Destroy
SELECT sortierung
USE

ENDPROC
     `    G  G                        G@   %   M        1   |            U    C    " T           " T           " T           " T   	         U
  THISFORM SIZER	 FRMRESIZE
 GRDSORTIERUNG COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3 COLUMN4%
 H
      7  T  G  I13   a  T  G  P13     T  G  R13 ( IF giveselect("&hssuchfile") = 0 
    F
   (CNf	 # 
 %C'
Z C
   wnw  F   [ >   	  > 
   >    [  F
   F  #) % 
    T C  
  T 
 T  
     T 
  
    T      
    T  a U  MODUS
 HSSUCHFILE WELCHESJAHRC	 DATEIOPEN HSA MYGET
 SORTIERUNG PERSNAME WNW PERSONALFALL ALTENR NEUENR THISFORM HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  F   Q U 
 SORTIERUNG Resize,      Init+     Destroy/    1 !!!!2  A  A  a  qq Q A 1A A  A q Q   A    3 q A 2                                      .       7    )   G                        
commandbutton      
commandbutton      Command1      FORM1      YTop = 7
Left = 545
Height = 34
Width = 175
Caption = "nach oben"
Name = "Command1"
     xPROCEDURE Click

SKIP - 1
IF BOF()
	GO top
	RETURN
ENDIF
skip
nownr = sortierung.neuenr
nowrecnr = RECNO()
SKIP - 1
vornr = sortierung.neuenr
vorrecnr = RECNO()
SKIP
replace sortierung.neuenr WITH vornr
FLUSH
GOTO vorrecnr
replace sortierung.neuenr WITH nownr
FLUSH
GOTO nowrecnr
thisform.grdsortierung.refresh
thisform.grdsortierung.setfocus

ENDPROC
                                   Y#   %   V           e            U   
 H %C  #) B  H T     T CO
 H T    T CO H >    [	 #  >     [	 # 
    
   	  U
  NOWNR
 SORTIERUNG NEUENR NOWRECNR VORNR VORRECNR THISFORM
 GRDSORTIERUNG REFRESH SETFOCUS Click,     1   Q A A A    A A  A    2                       m      )                           
commandbutton      
commandbutton      Command2      FORM1      [Top = 49
Left = 545
Height = 34
Width = 175
Caption = "nach unten"
Name = "Command2"
     ~PROCEDURE Click

SKIP
IF EOF()
	GO bottom
	RETURN
endif
SKIP -1
nownr = sortierung.neuenr
nowrecnr = RECNO()
SKIP
nachnr = sortierung.neuenr
nachrecnr = RECNO()
SKIP - 1
replace sortierung.neuenr WITH nachnr
FLUSH
GOTO nachrecnr
replace sortierung.neuenr WITH nownr
FLUSH
GOTO nowrecnr
thisform.grdsortierung.refresh
thisform.grdsortierung.setfocus

ENDPROC
                                   +J   %   X           g            U    H %C+  #6 B 
 H T     T CO H T    T CO
 H >    [	 #  >     [	 # 
    
   	  U
  NOWNR
 SORTIERUNG NEUENR NOWRECNR NACHNR	 NACHRECNR THISFORM
 GRDSORTIERUNG REFRESH SETFOCUS Click,     1 B  Q A A   A   A  A    2                       s      )                           
commandbutton      
commandbutton      Command3      FORM1      `Top = 91
Left = 545
Height = 34
Width = 175
Caption = "Eintrag lschen"
Name = "Command3"
     XPROCEDURE Click
SELECT sortierung
IF EMPTY(sortierung.doaktion)
	replace sortierung.doaktion WITH "Lschen"
	thisform.command3.Caption = "lschen rckgngig"	
ELSE
	replace sortierung.doaktion WITH ""
	thisform.command3.Caption = "Eintrag lschen"
ENDIF
FLUSH
thisform.grdsortierung.SetFocus
thisform.grdsortierung.refresh
ENDPROC
                                   y   %   9      b  
   H            U    F   %C   U  >    Lschen% T    lschen rckgngig   >     " T    Eintrag lschen  [
    
     U 
 SORTIERUNG DOAKTION THISFORM COMMAND3 CAPTION
 GRDSORTIERUNG SETFOCUS REFRESH Click,     1 q !qQ !A A   1                       M      )                           
commandbutton      
commandbutton      Command4      FORM1      jTop = 508
Left = 545
Height = 34
Width = 175
Caption = "abbrechen OHNE speichern"
Name = "Command4"
     2PROCEDURE Click
SELECT sortierung
xrecno = RECNO()
GO top
neusortieren = false
zumlschen = false
DO WHILE .not. EOF()
	IF sortierung.altenr <> sortierung.neuenr
		neusortieren = true
	ENDIF
	IF .not. EMPTY(sortierung.doaktion)
		zumlschen = true
	endif
	SKIP
ENDDO
IF neusortieren = true .or. zumlschen = true
	IF ok("Es wurden nderungen gemacht!" + CHR(13)+CHR(10)+"Wollen Sie die nderungen wirklich verwerfen?")
		thisform.Release
	ELSE
		SELECT sortierung
		GOTO xrecno
		RETURN
	ENDIF
ELSE
	thisform.Release
endif


ENDPROC
                                      %         ?     	            U  ^ F   T CO #)
 T  
 T   +C+
  %      d 
 T    %C   
 
 T    H  %     Ek %C Es wurden nderungen gemacht!C
 C
 - Wollen Sie die nderungen wirklich verwerfen?	 %
 
   A F  	 #  B  W
 
    U 
 SORTIERUNG XRECNO NEUSORTIEREN FALSE
 ZUMLSCHEN ALTENR NEUENR TRUE DOAKTION OK THISFORM RELEASE Click,     1 q  Q    q A 1 A A A   q  A A   A 3                       '      )                           grid      grid      
grdSortierung      FORM1     ColumnCount = 4
DeleteMark = .F.
Height = 582
Left = 7
Panel = 1
ReadOnly = .F.
RecordSource = "sortierung"
RecordSourceType = 1
Top = 6
Width = 532
HighlightForeColor = 0,0,0
HighlightStyle = 2
Name = "grdSortierung"
Column1.ControlSource = "sortierung.altenr"
Column1.Width = 75
Column1.ReadOnly = .F.
Column1.Name = "Column1"
Column2.ControlSource = "sortierung.persname"
Column2.Width = 273
Column2.ReadOnly = .F.
Column2.Name = "Column2"
Column3.ControlSource = "sortierung.doaktion"
Column3.Width = 75
Column3.ReadOnly = .F.
Column3.Name = "Column3"
Column4.ControlSource = "sortierung.neuenr"
Column4.Width = 75
Column4.ReadOnly = .F.
Column4.Name = "Column4"
      PROCEDURE AfterRowColChange
LPARAMETERS nColIndex
IF EMPTY(sortierung.doaktion)
	thisform.command3.Caption = "Eintrag lschen"
ELSE
	thisform.command3.Caption = "lschen rckgngig"
endif
ENDPROC
     j    Q  Q                           %                            U  o     %C  ; " T    Eintrag lschen h % T    lschen rckgngig  U 	 NCOLINDEX
 SORTIERUNG DOAKTION THISFORM COMMAND3 CAPTION AfterRowColChange,     1 q !! QA 1                              )   Q                        header      header      Header1      FORM1.grdSortierung.Column1      "Caption = "Nr"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSortierung.Column1      xBorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSortierung.Column2      ,Caption = "Personalfall"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSortierung.Column2      xBorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSortierung.Column3      &Caption = "Aktion"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSortierung.Column3      xBorderStyle = 0
Enabled = .F.
Margin = 0
ReadOnly = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSortierung.Column4      &Caption = "Neuenr"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSortierung.Column4      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      
commandbutton      
commandbutton      Command5      FORM1      fTop = 547
Left = 547
Height = 34
Width = 175
Caption = "nderungen speichern"
Name = "Command5"
     *PROCEDURE Click
SELECT sortierung
xrecno = RECNO()
GO top
neusortieren = false
zumlschen = false
DO WHILE .not. EOF()
	IF sortierung.altenr <> sortierung.neuenr
		neusortieren = true
	ENDIF
	IF .not. EMPTY(sortierung.doaktion)
		zumlschen = true
	endif
	SKIP
ENDDO

IF neusortieren = false .and. zumlschen = false
	hinweis("Es wurden KEINE nderungen gemacht!" + CHR(13)+CHR(10)+"Es wird nichts gepeichert!.")
ELSE

	IF OK("Wollen Sie die nderungen wirklich speichern?")
		aktivereintrag = myform1.tdbnumber1.value
		*zuerst sortiern
		DO case
			CASE modus = 0
				hsmodus = "\GI"
				hsmodus2 = "I"
			CASE modus = 1
				hsmodus = "\GP"
				hsmodus2 = "P"
			CASE modus = 2
				hsmodus = "\GR"
				hsmodus2 = "R"
		endcase				
		IF neusortieren = true
			WAIT WINDOW "Neue Sortierung wird gespeichert ...." nowait
			
			FOR hsa = 1 TO 13 &&zuerst tempdateien anlegen
				IF hsa < 13
					hsxdat = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0))
					myopen("&hsxdat",80+hsa,"wvw")	
				else
					hsxdat = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0))
					myopen("&hsxdat",80+hsa,"wnw")	
				endif						
			NEXT

			select sortierung &&jetzt datenstze in tempdateien in der neuen reihenfolge speichern
			GO top
			DO WHILE .not. EOF()
				SELECT sortierung
				FOR hsa = 1 TO 13
*!*						SELECT(ALIAS(hsa))
*!*						GOTO sortierung.altenr
					IF hsa < 13
						myget(hsa,sortierung.altenr,"wvw")
						myput(80+hsa,sortierung.neuenr,"wvw")
					else
						myget(hsa,sortierung.altenr,"wnw")
						myput(80+hsa,sortierung.neuenr,"wnw")
					ENDIF
				NEXT
				SELECT sortierung				
				SKIP
			ENDDO
			FOR hsa = 1 TO 13 &&alte dateien schlieen
				myclose(hsa)
				hsxdat = eigdat + muser + "\g" + welchesjahrc + +hsmodus2 + ALLTRIM(STR(hsa,3,0))+ ".*"
				DELETE FILE "&hsxdat"
				myclose(80+hsa) &&tempdate schlieen
				
				*tempdateien umbenennen
				hsxren1 = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0)) + ".dbf"
				hsxren2 = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0)) + ".dbf"
				RENAME "&hsxren1" TO "&hsxren2"
				
				hsxren1 = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0)) + ".fpt"
				hsxren2 = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0)) + ".fpt"
				RENAME "&hsxren1" TO "&hsxren2"
				
				*datei wieder ffnen mit altem namen
				hsxdat = eigdat + muser + "\g" + welchesjahrc + +hsmodus2 + ALLTRIM(STR(hsa,3,0))
				IF hsa < 13
					myopen("&hsxdat",hsa,"wvw")
				ELSE
					myopen("&hsxdat",hsa,"wnw")
				endif				
			NEXT
			
			*bda dateien sortieren
		
			myopen(eigdat + muser + "\bda" + Right(welchesjahrc, 3) , 80 ,"BDA")
			myopen(eigdat + muser + "\bdaTemp" , 81 ,"BDA")
			
			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"BDA")
				myput(81, sortierung.neuenr,"BDA")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\bdatemp" + ".dbf"
			hsxren2 = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\bdatemp" + ".fpt"
			hsxren2 = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
			WAIT clear
			
			*jda dateien sortieren
		
			myopen(eigdat + muser + "\jda" + Right(welchesjahrc, 3) , 80 ,"JDA")
			myopen(eigdat + muser + "\jdaTemp" , 81 ,"JDA")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"JDA")
				myput(81, sortierung.neuenr,"JDA")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\jdatemp" + ".dbf"
			hsxren2 = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\jdatemp" + ".fpt"
			hsxren2 = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
			WAIT clear
			
			*zuschlge A dateien sortieren
		
			myopen(eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) , 80 ,"zuschlag")
			myopen(eigdat + muser + "\zuschlgeATemp" , 81 ,"zuschlag")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"zuschlag")
				myput(81, sortierung.neuenr,"zuschlag")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\zuschlgeAtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\zuschlgeAtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"	
			

			*zuschlge B dateien sortieren
		
			myopen(eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) , 80 ,"zuschlag")
			myopen(eigdat + muser + "\zuschlgeBTemp" , 81 ,"zuschlag")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"zuschlag")
				myput(81, sortierung.neuenr,"zuschlag")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\zuschlgeBtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\zuschlgeBtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"
					
			*Urlaubs dateien sortieren
		
			myopen(eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) , 80 ,"urlaubsblatt")
			myopen(eigdat + muser + "\urlaubTemp" , 81 ,"urlaubsblatt")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"urlaubsblatt")
				myput(81, sortierung.neuenr,"urlaubsblatt")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\urlaubtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\urlaubtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"					
					
			*SV pflicht dateien sortieren
		
			myopen(eigdat + muser + "\sv" + Right(welchesjahrc, 3) , 80 ,"Sozvers")
			myopen(eigdat + muser + "\svTemp" , 81 ,"Sozvers")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"Sozvers")
				myput(81, sortierung.neuenr,"Sozvers")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\svtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\svtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"							
	
			*kalender dateien sortieren
		
			myopen(eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) , 80 ,"Kalender")
			myopen(eigdat + muser + "\KalenderTemp" , 81 ,"Kalender")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"Kalender")
				myput(81, sortierung.neuenr,"Kalender")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\Kalendertemp" + ".dbf"
			hsxren2 = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\Kalendertemp" + ".fpt"
			hsxren2 = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
					
			*Erfahrungsdienstzeieten fr Bundesbeamte dateien sortieren
		
			myopen(eigdat + muser + "\EDZ_D" + Right(welchesjahrc, 3) , 80 ,"EDZ")
			myopen(eigdat + muser + "\EDZTemp" , 81 ,"EDZ")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"EDZ")
				myput(81, sortierung.neuenr,"EDZ")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\EDZ_D" + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\EDZtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\EDZ_D" + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\EDZtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\EDZ_D" + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"	
		
			WAIT clear			
		ENDIF

		*dann datenstze lschen 
		IF zumlschen = true
			WAIT WINDOW "Es wird gelscht ...." nowait
			SELECT sortierung
			GO top			
			DO WHILE .not. EOF()
				IF .not. EMPTY(sortierung.doaktion)
					aktionssatz = sortierung.neuenr
					FOR hsa = 1 TO 13
						*hier lschen durch dele aber KEIN PACK, dadurch simmen die Personalfallnr von TDBnumber1 noch immer
						SELECT(ALIAS(hsa))
						GOTO aktionssatz
						DELETE
						flush
					NEXT
				endif
				SELECT sortierung
				skip
			ENDDO
			hsa = 0
			FOR hsa = 1 TO 13
				SELECT(ALIAS(hsa))
				USE
			NEXT
			hsa = 0

			FOR hsa = 1 TO 13
				hsxdat = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0))
				IF hsa < 13
					myopen("&hsxdat",hsa,"wvw",.t.)
				ELSE
					myopen("&hsxdat",hsa,"wnw",.t.)				
				ENDIF
				SELECT(ALIAS(hsa))
				PACK
				FLUSH
				use
			NEXT	
			hsax = 0
			FOR hsax = 1 TO 13
				hsxdat = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsax,3,0))
				IF hsax < 13
					myopen("&hsxdat",hsax,"wvw")
				ELSE
					myopen("&hsxdat",hsax,"wnw")				
				ENDIF
			next
			WAIT clear
		endif
		hinweis("Speicherung beendet!")
		DO namenincombo
	ELSE
		SELECT sortierung
		GOTO xrecno
		return
	endif
ENDIF

SELECT 1
GO top
spin1 = 1
myform1.tdbnumber1.value = 1
DO spin_up_down
thisform.Release

ENDPROC
                                   G   %         a  -              U  t F   T CO #)
 T  
 T   +C+
  %      d 
 T    %C   
 
 T    H  %     	[ C# Es wurden KEINE nderungen gemacht!C
 C
  Es wird nichts gepeichert!.	  /> %C- Wollen Sie die nderungen wirklich speichern?
  T  
  
 Hq    T  \GI T  I   T  \GP T  P   T  \GR T  R  %  _0 R,:% Neue Sortierung wird gespeichert ....  (
 % 

# T    CC  Z# myopen("&hsxdat",80+hsa,"wvw")	
 # T    CC  Z# myopen("&hsxdat",80+hsa,"wnw")	
   F   #) +C+
 F    (
 % 

 C      wvw  CP     wvw   C      wnw  CP     wnw    F   H   (
 C   3 T    \g  CC  Z .* DELETE FILE "&hsxdat"
 CP  + T    CC  Z .dbf5 T    \G  CC  Z .dbf# RENAME "&hsxren1" TO "&hsxren2"
+ T    CC  Z .fpt5 T    \G  CC  Z .fpt# RENAME "&hsxren1" TO "&hsxren2"
- T    \g  CC  Z % 

 myopen("&hsxdat",hsa,"wvw")
  myopen("&hsxdat",hsa,"wnw")
  + C   \bdaC RP BDA & C   \bdaTempQ BDA  F   #) +C+
 CP    BDA  CQ    BDA  F   H 
 CP 
 CQ ( T    \bdaC R .* DELETE FILE "&hsxdel"
% T    \bdatemp .dbf* T    \bdaC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
% T    \bdatemp .fpt* T    \bdaC R .fpt& RENAME "&hsxren1" TO "&hsxren2"			
 R+ C   \jdaC RP JDA & C   \jdaTempQ JDA  F   #) +C+
 CP    JDA  CQ    JDA  F   H 
 CP 
 CQ ( T    \jdaC R .* DELETE FILE "&hsxdel"
% T    \jdatemp .dbf* T    \jdaC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
% T    \jdatemp .fpt* T    \jdaC R .fpt& RENAME "&hsxren1" TO "&hsxren2"			
 R7 C   \zuschlgeAC RP zuschlag 2 C   \zuschlgeATempQ zuschlag  F   #) +C+

 CP    zuschlag  CQ    zuschlag  F   H 
 CP 
 CQ / T    \zuschlgeAC R .* DELETE FILE "&hsxdel"
, T    \zuschlgeAtemp .dbf1 T    \zuschlgeAC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
, T    \zuschlgeAtemp .fpt1 T    \zuschlgeAC R .fpt$ RENAME "&hsxren1" TO "&hsxren2"	
7 C   \zuschlgeBC RP zuschlag 2 C   \zuschlgeBTempQ zuschlag  F   #) +C+
 CP    zuschlag  CQ    zuschlag  F   H 
 CP 
 CQ / T    \zuschlgeBC R .* DELETE FILE "&hsxdel"
, T    \zuschlgeBtemp .dbf1 T    \zuschlgeBC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
, T    \zuschlgeBtemp .fpt1 T    \zuschlgeBC R .fpt# RENAME "&hsxren1" TO "&hsxren2"
7 C   \urlaubC RP urlaubsblatt 2 C   \urlaubTempQ urlaubsblatt  F   #) +C+

" CP    urlaubsblatt " CQ    urlaubsblatt  F   H 
 CP 
 CQ + T    \urlaubC R .* DELETE FILE "&hsxdel"
( T    \urlaubtemp .dbf- T    \urlaubC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
( T    \urlaubtemp .fpt- T    \urlaubC R .fpt( RENAME "&hsxren1" TO "&hsxren2"					
. C   \svC RP Sozvers ) C   \svTempQ Sozvers  F   #) +C+
 CP    Sozvers  CQ    Sozvers  F   H 
 CP 
 CQ ' T    \svC R .* DELETE FILE "&hsxdel"
$ T    \svtemp .dbf) T    \svC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
$ T    \svtemp .fpt) T    \svC R .fpt* RENAME "&hsxren1" TO "&hsxren2"							
5 C  	 \KalenderC RP Kalender 0 C  
 \KalenderTempQ Kalender  F   #) +C+
" CP    Kalender  CQ    Kalender  F   H 
 CP 
 CQ - T   	 \KalenderC R .* DELETE FILE "&hsxdel"
* T   
 \Kalendertemp .dbf/ T   	 \KalenderC R .dbf# RENAME "&hsxren1" TO "&hsxren2"
* T   
 \Kalendertemp .fpt/ T   	 \KalenderC R .fpt& RENAME "&hsxren1" TO "&hsxren2"			
- C   \EDZ_DC RP EDZ & C   \EDZTempQ EDZ  F   #) +C+
+ CP    EDZ  CQ    EDZ  F   H 
 CP 
 CQ ! T    \EDZ_D .* DELETE FILE "&hsxdel"
% T    \EDZtemp .dbf# T    \EDZ_D .dbf# RENAME "&hsxren1" TO "&hsxren2"
% T    \EDZtemp .fpt# T    \EDZ_D .fpt$ RENAME "&hsxren1" TO "&hsxren2"	
 R  %    R,: Es wird gelscht .... F   #) +C+
 %C   
	 T      (
 FC 	 #   [   F   H 
 T    (
P FC  Q 
 T    (
$- T    \G  CC  Z % 

# myopen("&hsxdat",hsa,"wvw",.t.)
 ' myopen("&hsxdat",hsa,"wnw",.t.)				
  FC  3 [ Q 
 T    (
- T    \G  CC  Z % 

  myopen("&hsxdat",hsax,"wvw")
 $ myopen("&hsxdat",hsax,"wnw")				
   R ! C Speicherung beendet!	     + F  	 #  B   F  #)
 T!  T 
   " 
 # $  U% 
 SORTIERUNG XRECNO NEUSORTIEREN FALSE
 ZUMLSCHEN ALTENR NEUENR TRUE DOAKTION HINWEIS OK AKTIVEREINTRAG MYFORM1
 TDBNUMBER1 VALUE MODUS HSMODUS HSMODUS2 HSA HSXDAT EIGDAT MUSER MYGET MYPUT MYCLOSE WELCHESJAHRC HSXREN1 HSXREN2 MYOPEN HSXDEL AKTIONSSATZ HSAX NAMENINCOMBO SPIN1 SPIN_UP_DOWN THISFORM RELEASE Click,     1 q  Q    q A 1 A A A  1    A r11 11A A r Q  q q A A q A A q 1Q1Q1 A A ar Q  q A A   R1RaQ ar Q  q A A   R1RaQ t!r Q  q A A   1Au!r Q  q A A   11t!r Q  !!q A A   1r Q  q A A   qB1BTr Q  q A A   1aar Q  q A A   R11R1AR A q Q  1q  A A A A q A A  q A A  r1 qA  A A A A  q AA A Q A q  q  A A A  Q  1q  2                       *      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 578
Left = 713
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command6      FORM1      hTop = 133
Left = 546
Height = 34
Width = 175
Caption = "Alphabetisch sortieren"
Name = "Command6"
     sPROCEDURE Click
CREATE CURSOR sortierungalpha (altenr N(10), persname C(35), neuenr N(10))
INDEX on LOWER(persname) TAG persname
SET order TO 1
SELECT sortierung
GO top
DO WHILE .not. EOF()
	SELECT sortierungalpha
	APPEND BLANK
	replace sortierungalpha.altenr WITH sortierung.altenr
	replace sortierungalpha.persname WITH sortierung.persname
	FLUSH
	select sortierung
	SKIP
ENDDO
SELECT sortierungalpha
GO top

hsnr = 1
DO while .not. EOF()
	replace sortierungalpha.neuenr WITH hsnr
	FLUSH
	SKIP
	hsnr = hsnr + 1
ENDDO
SELECT sortierungalpha
GO top

DO WHILE .not. EOF()
	SELECT sortierung
	GOTO sortierungalpha.altenr
	replace sortierung.neuenr WITH sortierungalpha.neuenr
	FLUSH
	SELECT sortierungalpha
	SKIP
enddo
select sortierungalpha
USE
SELECT sortierung
GO top
thisform.grdsortierung.SetFocus
thisform.grdsortierung.refresh
ENDPROC
                                      %   2        )   A            U  E h sortierungalpha  N
  C#  N
 & C @ 
 G(( 1 F  #) +C+
  F    >      >      [ F  H  F   #)
 T  +C+
 >     [ H T    F   #) +C+
a F  #    >      [ F   H  F   Q F  #)
    
   	  U
  SORTIERUNGALPHA ALTENR PERSNAME NEUENR
 SORTIERUNG HSNR THISFORM
 GRDSORTIERUNG SETFOCUS REFRESH Click,     1 Q q Q  q Q 11A q A A q Q   A A A q Q  q  1A q A A q A q Q   1                       h      )                           
commandbutton      
commandbutton      Command7      FORM1      gTop = 175
Left = 546
Height = 34
Width = 175
Caption = "nach Nummer sortieren"
Name = "Command7"
     $PROCEDURE Click
SELECT sortierung
SET order TO 0
GO top
DO WHILE .not. EOF()
	SELECT sortierung
	replace sortierung.neuenr WITH sortierung.altenr
	FLUSH
	SKIP
enddo
SELECT sortierung
SET ORDER TO 1
GO top
thisform.grdsortierung.SetFocus
thisform.grdsortierung.refresh
ENDPROC
         m  m                        x   %          $                 U  }  F  
 G(( 0 #) +C+
F  F   >       [ H  F  
 G(( 1 #)
    
     U 
 SORTIERUNG NEUENR ALTENR THISFORM
 GRDSORTIERUNG SETFOCUS REFRESH Click,     1 q  Q  q 1A A A q  Q   1                             )   m                        label      label      Label1      FORM1      nCaption = "Klicken Sie auf den Datensatz,"
Height = 18
Left = 547
Top = 225
Width = 175
Name = "Label1"
      label      label      Label2      FORM1      lCaption = "der verschoben oder gelscht"
Height = 18
Left = 547
Top = 241
Width = 175
Name = "Label2"
      label      label      Label3      FORM1      \Caption = "werden soll."
Height = 18
Left = 547
Top = 258
Width = 175
Name = "Label3"
      label      label      Label4      FORM1      oCaption = "Mit den jeweiligen Buttons wird"
Height = 18
Left = 547
Top = 275
Width = 175
Name = "Label4"
      label      label      Label5      FORM1      kCaption = "die Aktion dann ausgefhrt."
Height = 18
Left = 547
Top = 291
Width = 175
Name = "Label5"
      label      label      Label6      FORM1      _Caption = "ABER erst durch"
Height = 18
Left = 547
Top = 321
Width = 175
Name = "Label6"
      label      label      Label7      FORM1      vFontBold = .T.
Caption = '"nderungen Speichern"'
Height = 18
Left = 547
Top = 338
Width = 175
Name = "Label7"
      label      label      Label8      FORM1      hCaption = "werden die Aktionen auch"
Height = 18
Left = 547
Top = 356
Width = 175
Name = "Label8"
      label      label      Label9      FORM1      eCaption = "wirklich gespeichert."
Height = 18
Left = 548
Top = 373
Width = 175
Name = "Label9"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
SELECT sortierung
xrecno = RECNO()
GO top
neusortieren = false
zumlschen = false
DO WHILE .not. EOF()
	IF sortierung.altenr <> sortierung.neuenr
		neusortieren = true
	ENDIF
	IF .not. EMPTY(sortierung.doaktion)
		zumlschen = true
	endif
	SKIP
ENDDO

IF neusortieren = false .and. zumlschen = false
	hinweis("Es wurden KEINE nderungen gemacht!" + CHR(13)+CHR(10)+"Es wird nichts gepeichert!.")
ELSE

	IF OK("Wollen Sie die nderungen wirklich speichern?")
		aktivereintrag = myform1.tdbnumber1.value
		*zuerst sortiern
		DO case
			CASE modus = 0
				hsmodus = "\GI"
				hsmodus2 = "I"
			CASE modus = 1
				hsmodus = "\GP"
				hsmodus2 = "P"
			CASE modus = 2
				hsmodus = "\GR"
				hsmodus2 = "R"
		endcase				
		IF neusortieren = true
			WAIT WINDOW "Neue Sortierung wird gespeichert ...." nowait
			
			FOR hsa = 1 TO 13 &&zuerst tempdateien anlegen
				IF hsa < 13
					hsxdat = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0))
					myopen("&hsxdat",80+hsa,"wvw")	
				else
					hsxdat = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0))
					myopen("&hsxdat",80+hsa,"wnw")	
				endif						
			NEXT

			select sortierung &&jetzt datenstze in tempdateien in der neuen reihenfolge speichern
			GO top
			DO WHILE .not. EOF()
				SELECT sortierung
				FOR hsa = 1 TO 13
*!*						SELECT(ALIAS(hsa))
*!*						GOTO sortierung.altenr
					IF hsa < 13
						myget(hsa,sortierung.altenr,"wvw")
						myput(80+hsa,sortierung.neuenr,"wvw")
					else
						myget(hsa,sortierung.altenr,"wnw")
						myput(80+hsa,sortierung.neuenr,"wnw")
					ENDIF
				NEXT
				SELECT sortierung				
				SKIP
			ENDDO
			FOR hsa = 1 TO 13 &&alte dateien schlieen
				myclose(hsa)
				hsxdat = eigdat + muser + "\g" + welchesjahrc + +hsmodus2 + ALLTRIM(STR(hsa,3,0))+ ".*"
				DELETE FILE "&hsxdat"
				myclose(80+hsa) &&tempdate schlieen
				
				*tempdateien umbenennen
				hsxren1 = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0)) + ".dbf"
				hsxren2 = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0)) + ".dbf"
				RENAME "&hsxren1" TO "&hsxren2"
				
				hsxren1 = eigdat + muser + hsmodus + ALLTRIM(STR(hsa,3,0)) + ".fpt"
				hsxren2 = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0)) + ".fpt"
				RENAME "&hsxren1" TO "&hsxren2"
				
				*datei wieder ffnen mit altem namen
				hsxdat = eigdat + muser + "\g" + welchesjahrc + +hsmodus2 + ALLTRIM(STR(hsa,3,0))
				IF hsa < 13
					myopen("&hsxdat",hsa,"wvw")
				ELSE
					myopen("&hsxdat",hsa,"wnw")
				endif				
			NEXT
			
			*bda dateien sortieren
		
			myopen(eigdat + muser + "\bda" + Right(welchesjahrc, 3) , 80 ,"BDA")
			myopen(eigdat + muser + "\bdaTemp" , 81 ,"BDA")
			
			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"BDA")
				myput(81, sortierung.neuenr,"BDA")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\bdatemp" + ".dbf"
			hsxren2 = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\bdatemp" + ".fpt"
			hsxren2 = eigdat + muser + "\bda" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
			WAIT clear
			
			*jda dateien sortieren
		
			myopen(eigdat + muser + "\jda" + Right(welchesjahrc, 3) , 80 ,"JDA")
			myopen(eigdat + muser + "\jdaTemp" , 81 ,"JDA")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"JDA")
				myput(81, sortierung.neuenr,"JDA")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\jdatemp" + ".dbf"
			hsxren2 = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\jdatemp" + ".fpt"
			hsxren2 = eigdat + muser + "\jda" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
			WAIT clear
			
			*zuschlge A dateien sortieren
		
			myopen(eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) , 80 ,"zuschlag")
			myopen(eigdat + muser + "\zuschlgeATemp" , 81 ,"zuschlag")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"zuschlag")
				myput(81, sortierung.neuenr,"zuschlag")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\zuschlgeAtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\zuschlgeAtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\zuschlgeA" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"	
			

			*zuschlge B dateien sortieren
		
			myopen(eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) , 80 ,"zuschlag")
			myopen(eigdat + muser + "\zuschlgeBTemp" , 81 ,"zuschlag")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"zuschlag")
				myput(81, sortierung.neuenr,"zuschlag")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\zuschlgeBtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\zuschlgeBtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\zuschlgeB" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"
					
			*Urlaubs dateien sortieren
		
			myopen(eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) , 80 ,"urlaubsblatt")
			myopen(eigdat + muser + "\urlaubTemp" , 81 ,"urlaubsblatt")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"urlaubsblatt")
				myput(81, sortierung.neuenr,"urlaubsblatt")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\urlaubtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\urlaubtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\urlaub" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"					
					
			*SV pflicht dateien sortieren
		
			myopen(eigdat + muser + "\sv" + Right(welchesjahrc, 3) , 80 ,"Sozvers")
			myopen(eigdat + muser + "\svTemp" , 81 ,"Sozvers")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"Sozvers")
				myput(81, sortierung.neuenr,"Sozvers")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\svtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\svtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\sv" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"							
	
			*kalender dateien sortieren
		
			myopen(eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) , 80 ,"Kalender")
			myopen(eigdat + muser + "\KalenderTemp" , 81 ,"Kalender")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"Kalender")
				myput(81, sortierung.neuenr,"Kalender")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\Kalendertemp" + ".dbf"
			hsxren2 = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\Kalendertemp" + ".fpt"
			hsxren2 = eigdat + muser + "\Kalender" + Right(welchesjahrc, 3) + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"			
					
			*Erfahrungsdienstzeieten fr Bundesbeamte dateien sortieren
		
			myopen(eigdat + muser + "\EDZ_D" + Right(welchesjahrc, 3) , 80 ,"EDZ")
			myopen(eigdat + muser + "\EDZTemp" , 81 ,"EDZ")

			SELECT sortierung
			GO top
			DO WHILE .not. EOF()
				myget(80, sortierung.altenr,"EDZ")
				myput(81, sortierung.neuenr,"EDZ")		
				SELECT sortierung
				SKIP
			ENDDO
			myclose(80)
			myclose(81)
			hsxdel = eigdat + muser + "\EDZ_D" + ".*"
			DELETE FILE "&hsxdel"
			
			hsxren1 = eigdat + muser + "\EDZtemp" + ".dbf"
			hsxren2 = eigdat + muser + "\EDZ_D" + ".dbf"
			RENAME "&hsxren1" TO "&hsxren2"
			
			hsxren1 = eigdat + muser + "\EDZtemp" + ".fpt"
			hsxren2 = eigdat + muser + "\EDZ_D" + ".fpt"
			RENAME "&hsxren1" TO "&hsxren2"	
		
			WAIT clear			
		ENDIF

		*dann datenstze lschen 
		IF zumlschen = true
			WAIT WINDOW "Es wird gelscht ...." nowait
			SELECT sortierung
			GO top			
			DO WHILE .not. EOF()
				IF .not. EMPTY(sortierung.doaktion)
					aktionssatz = sortierung.neuenr
					FOR hsa = 1 TO 13
						*hier lschen durch dele aber KEIN PACK, dadurch simmen die Personalfallnr von TDBnumber1 noch immer
						SELECT(ALIAS(hsa))
						GOTO aktionssatz 
						DELETE
						flush
					NEXT
				endif
				SELECT sortierung
				skip
			ENDDO
			hsa = 0
			FOR hsa = 1 TO 13
				SELECT(ALIAS(hsa))
				USE
			NEXT
			hsa = 0

			FOR hsa = 1 TO 13
				hsxdat = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsa,3,0))
				IF hsa < 13
					myopen("&hsxdat",hsa,"wvw",.t.)
				ELSE
					myopen("&hsxdat",hsa,"wnw",.t.)				
				ENDIF
				SELECT(ALIAS(hsa))
				PACK
				FLUSH
				use
			NEXT	
			hsax = 0
			FOR hsax = 1 TO 13
				hsxdat = eigdat + muser + "\G" + welchesjahrc + hsmodus2 + ALLTRIM(STR(hsax,3,0))
				IF hsax < 13
					myopen("&hsxdat",hsax,"wvw")
				ELSE
					myopen("&hsxdat",hsax,"wnw")				
				ENDIF
			next
			WAIT clear
		endif
		hinweis("Speicherung beendet!")
		DO namenincombo
	ELSE
		SELECT sortierung
		GOTO xrecno
		return
	endif
ENDIF

SELECT 1
GO top
spin1 = 1
myform1.tdbnumber1.value = 1
DO spin_up_down
thisform.Release
SCREEN = OFF
RESOURCE = OFF
ALLOWEXTERNAL = ON
_BROWSER = ""
_BUILDER = ""
_FOXREF = ""
_CONVERTER = ""
_COVERAGE
_GALLERY = ""
_GENGRAPH = ""
_GENHTML = ""
_GENMENU = ""
_GENPD = ""
_GENSCRN = ""
_GENXTAB = ""
_TASKPANE = ""
_TOOLBOX = ""
_TRANSPORT = ""
_WIZARD = ""0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68Q13N2KS1412470332      /  F      ]        B                                           WINDOWS _68Q15AA3U1430476346[      i  w                                                               WINDOWS _68Q13N2KT1430476346              !        "                                               WINDOWS _68Q13N2KU1414024887
  
  
                                                                 WINDOWS _68Q140N0J1413118447                                                                   WINDOWS _68Q140N0L1412472093f      {            w                                                 WINDOWS _68Q13N2KS1413118096|                                                                       WINDOWS _68Q13N2KT1412471456                                                                       WINDOWS _68Q13N2KU1413117967      +  :  G  i                                                       WINDOWS _68Q15AA3V1412471456                                                                       WINDOWS _68Q15AA3W1413117967      +  :  G  i        =                                               COMMENT RESERVED                                K                                                              t                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 205
Left = 307
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      tPROCEDURE BeforeOpenTables
CREATE CURSOR perssuche ( persname C(35), persnr N(10,0))
SELECT perssuche

ENDPROC
                                     &   %                             U  @ 6 h	 perssuche  C#  N
  F   U 	 PERSSUCHE PERSNAME PERSNR BeforeOpenTables,     1 aq 2                       i       )                            cursor      cursor      Cursor1      Dataenvironment      EAlias = "perssuche"
CursorSource = perssuche.dbf
Name = "Cursor1"
      2      1      form      form      FORM1      Height = 567
Width = 381
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Personalfall suchen"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     !PROCEDURE Destroy
SELECT perssuche
use
ENDPROC
PROCEDURE Init
thisform.Visible = .t.

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h
*SET STEP ON 
thisform.resize
thisform.AutoCenter = .t.
thisform.refresh
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.grdperssuche.column1.text1.FontSize = thisform.grdperssuche.column1.FontSize
thisform.grdperssuche.column2.text1.FontSize = thisform.grdperssuche.column1.FontSize
ENDPROC
                                   m   %                          U    F   Q U 	 PERSSUCHEn  T   a
      T        T       
     T   a
   	  U
  THISFORM VISIBLE SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER REFRESHW  C    " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDPERSSUCHE COLUMN1 TEXT1 FONTSIZE COLUMN2 Destroy,      InitI      Resize     1 q A 2   rq   2 "!1                       (         C   /        L        )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 549
Left = 363
TabIndex = 1
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      Text1      FORM1      Height = 22
Left = 26
TabIndex = 2
ToolTipText = "Suchebegriff eingeben, Suche startet mit ENTER"
Top = 39
Visible = .T.
Width = 249
Name = "Text1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13 .or. nkeycode = 9

	SELECT perssuche
	SET SAFETY off
	ZAP
	SET SAFETY on
	suchstr = ALLTRIM(LOWER(thisform.text1.Value))
	FOR hsa = 1 TO ALEN(zt0,1)
		IF suchstr $ LOWER(zt0(hsa))
			SELECT perssuche
			APPEND BLANK
			FLUSH
			replace perssuche.persname WITH ALLTRIM(zt0(hsa))
			replace perssuche.persnr WITH hsa
			FLUSH
		ENDIF
	NEXT
	SELECT perssuche
	GO top
	IF RECCOUNT() = 0
		WAIT WINDOW "Leider nichts gefunden.." TIMEOUT 1
		thisform.grdperssuche.refresh			
*!*			thisform.text1.SelStart = 0
*!*			thisform.text1.SelLength = LEN(thisform.text1.value)
		thisform.text1.setfocus
		return
	endif
	thisform.grdperssuche.refresh	

	IF RECCOUNT() = 1
		zti=0
		myindex=0

		zi(1+0) = perssuche.persnr - 1
		index1=zi(1+0)

		DO zgrid_click WITH perssuche.persnr - 1
		
		thisform.Release
	ELSE
		thisform.grdperssuche.setfocus
		thisform.grdperssuche.refresh
	endif		
ENDIF

ENDPROC
PROCEDURE GotFocus


ENDPROC
                                   A   %         ?  )               U       %  
   	 F  G. S G.  T CC   @  (C   % CC   @  F   [ > 	 CC    > 
   [   F  #) %CN /( R, Leider nichts gefunden..
    
   
  B 
     %CN
 T  
 T   T  
  T C    
 
    
   
 
       U  NKEYCODE
 NSHIFTALTCTRL	 PERSSUCHE SUCHSTR THISFORM TEXT1 VALUE HSA ZT0 PERSNAME PERSNR GRDPERSSUCHE REFRESH SETFOCUS ZTI MYINDEX ZI INDEX1 ZGRID_CLICK RELEASE  U   KeyPress,      GotFocus    1  r a A a qq Q A qA A A q Q   A A    B    A A 3 3                            (       1    )                           
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 11
Left = 27
Height = 22
Width = 246
Caption = "schlieen"
TabIndex = 4
TabStop = .F.
ToolTipText = "schliet das Fenster"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      .PROCEDURE Click

thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       #       )                            grid      grid      grdPerssuche      FORM1     ColumnCount = 2
DeleteMark = .F.
Height = 489
Left = 15
Panel = 1
ReadOnly = .T.
RecordSource = "perssuche"
RecordSourceType = 1
TabIndex = 3
TabStop = .T.
ToolTipText = "Auswhlen mit DOPPELKLICK"
Top = 69
Width = 353
Name = "grdPerssuche"
Column1.ControlSource = "perssuche.persname"
Column1.Width = 247
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "perssuche.persnr"
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Name = "Column2"
      header      header      Header1      FORM1.grdPerssuche.Column1      $Caption = "NAME"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdPerssuche.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	this.dblclick
ENDIF

ENDPROC
PROCEDURE DblClick
zti=0
myindex=0

zi(1+0) = perssuche.persnr - 1
index1=zi(1+0)

DO zgrid_click WITH perssuche.persnr - 1

*!*	Monat = zi(1+20) + 1
*!*	myform1.tdbnumber1.Value = perssuche.persnr &&fileneu


thisform.Release

*!*	Do Neuername &&Do attached

*!*	xxx = ALLTRIM(STR(Monat - 1,2,0))
*!*	myform1.mon&xxx..click
ENDPROC
                                      %   =      {  
   a            U  -      %  
& 
     U  NKEYCODE
 NSHIFTALTCTRL THIS DBLCLICKf 
 T   
 T   T    T C     
    U	  ZTI MYINDEX ZI	 PERSSUCHE PERSNR INDEX1 ZGRID_CLICK THISFORM RELEASE KeyPress,      DblClick     1   A 3   B 6                       b                  )                           header      header      Header1      FORM1.grdPerssuche.Column2      "Caption = "NR"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdPerssuche.Column2      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      kPROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	this.dblclick
ENDIF
ENDPROC
                                     "R   %                             U  -      %  
& 
     U  NKEYCODE
 NSHIFTALTCTRL THIS DBLCLICK KeyPress,     1   A 1                       `       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0R   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5YL0O6BCM1379031575 1 53           1.000    0.000    0.00082666.000                 F C           -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFTF  F          2T    F T  0       0 1  0TTT0 0F        WINDOWS _5YL0O6BCN           9  1                          83542.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YL0O6BCO           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5YL0O6BCP           9  7                           2188.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6IT0P5L2O1445748102 5  0       51250.000 3229.167 1666.66745625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0TTT0 0F         WINDOWS _5YL0O75AC1379031597 8  0        4895.83362187.500 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YL0O75AD1379031597 8  0        2812.500 4166.667 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0O75AE1379031597 8  0        4895.833 4166.667 1875.00023750.000                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5YL0O75AF1379031597 8  0        4895.83368645.833 1875.000 9895.833                   C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _5YL0OAB4D1379031677 8  0       11979.167 4166.667 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0OBLZH1379031713 5  0       11770.83354166.667 1666.667 8958.333                               -1   -1   -1   -1   -1   -1                     0 10  1       FFFTF  F          0T                      0FTF3 0F!        WINDOWS _5YL0OCLJJ1379031734 8  0    "   13854.167 4166.667 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               #     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0ODCMJ1379031751 8  0    $   13437.50053958.333 1875.00024687.500                   C           -1   -1   -1   -1   -1   -1               %     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F&        WINDOWS _5YL0OE7151379031771 8  0    '   15729.167 4166.667 1875.00030208.333                   C           -1   -1   -1   -1   -1   -1               (     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5YL0PAYRU1379032597 5  0    )   74375.000 6354.167 1979.16723125.000                               -1   -1   -1   -1   -1   -1               *     0 12  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _5YL0PBI161379032600 6           81562.500 6354.167  104.16727395.833                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _68R0OE9GN1412520675 8  0    +   28645.833 3333.333 1875.00076354.167                   C           -1   -1   -1   -1   -1   -1               ,     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OF3ZL1412520693 5  0    -   33125.000 3437.500 1666.667 8229.167                               -1   -1   -1   -1   -1   -1               .     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFBPS1412520697 5  0    /   33125.00045729.167 1666.667 1250.000                               -1   -1   -1   -1   -1   -1               0     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFG961412520699 5  0    1   33125.00051250.000 1666.667 1979.167                               -1   -1   -1   -1   -1   -1               2     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFL3S1412520705 5  0    3   33125.00060104.167 1666.667 1770.833                               -1   -1   -1   -1   -1   -1               4     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFPQ71412520708 5  0    5   33125.00068125.000 1666.667  625.000                               -1   -1   -1   -1   -1   -1               6     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFU7U1412520710 5  0    7   33125.00072500.000 1666.667 1145.833                               -1   -1   -1   -1   -1   -1               8     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OFY841412520713 5  0    9   33125.00077083.333 1666.667  729.167                               -1   -1   -1   -1   -1   -1               :     0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OGIJL1412520725 7  4        32916.667 3020.83318020.83376770.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _68R0OGRVV1412520740 8  0    ;   35312.500 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1               <     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OHQCX1412520761 8  0    =   35312.50044687.500 1875.000 3333.333    >              C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OIDZK1412520773 8  0    @   35312.50048645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1               A     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OIS9I1412520782 8  0    B   35312.50057500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               C     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OJ6491412520791 8  0    D   35312.50066770.833 1875.000 3437.500    E              C           -1   -1   -1   -1   -1   -1               F     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OJMLI1412520804 8  0    G   35312.50071354.167 1875.000 3437.500    H              C           -1   -1   -1   -1   -1   -1               I     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OKHA21412520824 8  0    J   35312.50075729.167 1875.000 3437.500    K              C           -1   -1   -1   -1   -1   -1               L     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH2W1412520874 8  0    M   37395.833 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1               N     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OMH2X1412520874 8  0    O   37395.83344687.500 1875.000 3333.333    P              C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH2Y1412520874 8  0    R   37395.83348645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1               S     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH2Z1412520874 8  0    T   37395.83357500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               U     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH301412520874 8  0    V   37395.83366770.833 1875.000 3437.500    W              C           -1   -1   -1   -1   -1   -1               X     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH311412520874 8  0    Y   37395.83371354.167 1875.000 3437.500    Z              C           -1   -1   -1   -1   -1   -1               [     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMH321412520874 8  0    \   37395.83375729.167 1875.000 3437.500    ]              C           -1   -1   -1   -1   -1   -1               ^     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMODY1412520879 8  0    _   39375.000 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1               `     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OMODZ1412520879 8  0    a   39375.00044687.500 1875.000 3333.333    b              C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE01412520879 8  0    d   39375.00048645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1               e     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE11412520879 8  0    f   39375.00057500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE21412520879 8  0    h   39375.00066770.833 1875.000 3437.500    i              C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE31412520879 8  0    k   39375.00071354.167 1875.000 3437.500    l              C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE41412520879 8  0    n   39375.00075729.167 1875.000 3437.500    o              C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE51412520879 8  0    q   41458.333 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1               r     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OMOE61412520879 8  0    s   41458.33344687.500 1875.000 3333.333    t              C           -1   -1   -1   -1   -1   -1               u     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE71412520879 8  0    v   41458.33348645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1               w     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE81412520879 8  0    x   41458.33357500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1               y     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOE91412520879 8  0    z   41458.33366770.833 1875.000 3437.500    {              C           -1   -1   -1   -1   -1   -1               |     0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOEA1412520879 8  0    }   41458.33371354.167 1875.000 3437.500    ~              C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMOEB1412520879 8  0       41458.33375729.167 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ731412520886 8  0       43437.500 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OMZ741412520886 8  0       43437.50044687.500 1875.000 3333.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ751412520886 8  0       43437.50048645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ761412520886 8  0       43437.50057500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ771412520886 8  0       43437.50066770.833 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ781412520886 8  0       43437.50071354.167 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OMZ791412520886 8  0       43437.50075729.167 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0ONMEJ1412520903 6           47604.167 3125.000  104.16776562.500                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _68R0ONPGM1412520905 8  0       48229.16766458.333 1875.000 3958.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0ONPGN1412520905 8  0       48229.16771041.667 1875.000 3958.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0ONPGO1412520905 8  0       48229.16775416.667 1875.000 3958.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OPEOZ1412520968 5  0       48333.333 3541.667 1666.66733854.167                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _68R0OQDHR1412520973 5  0       48333.33342812.500 1666.667 4895.833                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _68R0OQK7Z1412520981 8  0       48229.16738125.000 1875.000 4166.667                  C           -1   -1   -1   -1   -1   -1                    1 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OTW1U1412521059 8  0       45416.667 3437.500 1875.00040833.333                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _68R0OTW1V1412521059 8  0       45416.66744687.500 1875.000 3333.333                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OTW1W1412521059 8  0       45416.66748645.833 1875.000 8229.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OTW1X1412521059 8  0       45416.66757500.000 1875.000 8125.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OTW1Y1412521059 8  0       45416.66766770.833 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OTW1Z1412521059 8  0       45416.66771354.167 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OTW201412521059 8  0       45416.66775729.167 1875.000 3437.500                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _68R0OVG191412521097 6           33020.83366041.66717916.667  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _68R0OVKR41412521101 6           33020.83357187.50014583.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _68R0OVRI81412521105 6           33020.83348333.33314583.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _68R0OWAWC1412521117 6           33020.83344375.00014583.333  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              19.000    7.000   15.000   43.000                                3    1                                        0 12                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                r   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         myvdz.berschrift.caption                                     Arial                                                         "Beschreibung"                                                Arial                                                         "%"                                                           Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "J"                                                           Arial                                                         "M"                                                           Arial                                                         "T"                                                           Arial                                                         myvdz.vorzeiten0.value                                        Arial                                                         myvdz.prozent0.value                                          "999"                                                         Arial                                                         myvdz.von0.value                                              Arial                                                         myvdz.bis0.value                                              Arial                                                         myvdz.jahre0.value                                            "99"                                                          Arial                                                         myvdz.vormonate0.value                                        "99"                                                          Arial                                                         myvdz.tage0.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten1.value                                        Arial                                                         myvdz.prozent1.value                                          "999"                                                         Arial                                                         myvdz.von1.value                                              Arial                                                         myvdz.bis1.value                                              Arial                                                         myvdz.jahre1.value                                            "99"                                                          Arial                                                         myvdz.vormonate1.value                                        "99"                                                          Arial                                                         myvdz.tage1.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten2.value                                        Arial                                                         myvdz.prozent2.value                                          "999"                                                         Arial                                                         myvdz.von2.value                                              Arial                                                         myvdz.bis2.value                                              Arial                                                         myvdz.jahre2.value                                            "99"                                                          Arial                                                         myvdz.vormonate2.value                                        "99"                                                          Arial                                                         myvdz.tage2.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten3.value                                        Arial                                                         myvdz.prozent3.value                                          "999"                                                         Arial                                                         myvdz.von3.value                                              Arial                                                         myvdz.bis3.value                                              Arial                                                         myvdz.jahre3.value                                            "99"                                                          Arial                                                         myvdz.vormonate3.value                                        "99"                                                          Arial                                                         myvdz.tage3.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten4.value                                        Arial                                                         myvdz.prozent4.value                                          "999"                                                         Arial                                                         myvdz.von4.value                                              Arial                                                         myvdz.bis4.value                                              Arial                                                         myvdz.jahre4.value                                            "99"                                                          Arial                                                         myvdz.vormonate4.value                                        "99"                                                          Arial                                                         myvdz.tage4.value                                             "999"                                                         Arial                                                         myvdz.jahre6.value                                            "999"                                                         Arial                                                         myvdz.vormonate6.value                                        "999"                                                         Arial                                                         myvdz.tage6.value                                             "999"                                                         Arial                                                         4"Der Beginn der Stufenlaufzeit ist vorzuverlegen um"          Arial                                                         "Monate"                                                      Arial                                                         myvdz.vormonate7.value                                        "9999"                                                        Arial                                                         myvdz.vorzeiten5.value                                        Arial                                                         myvdz.prozent5.value                                          "999"                                                         Arial                                                         myvdz.von5.value                                              Arial                                                         myvdz.bis5.value                                              Arial                                                         myvdz.jahre5.value                                            "99"                                                          Arial                                                         myvdz.vormonate5.value                                        "99"                                                          Arial                                                         myvdz.tage5.value                                             "999"                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial                                                         .not. empty(ditext6)                                          K"Die Berechnung dient der Information und ergeht ausdrcklich ohne Gewhr!"                                                   Arial                                                         ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                alltrim(myform1.z0.Caption)                                   Arial                                                         "Dienstanschrift"                                             Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext5                                                    Arial                                                         
wnw.ztext7                                                    Arial                                                         Len(alltrim(wnw.ztext7)) > 0                                  
wnw.ztext6                                                    Arial                                                         #"Sachlich und rechnerisch richtig:"                           Arial                                                         myvdz.berschrift.caption                                     Arial                                                         "Beschreibung"                                                Arial                                                         "%"                                                           Arial                                                         "von"                                                         Arial                                                         "bis"                                                         Arial                                                         "J"                                                           Arial                                                         "M"                                                           Arial                                                         "T"                                                           Arial                                                         myvdz.vorzeiten0.value                                        Arial                                                         myvdz.prozent0.value                                          "999"                                                         Arial                                                         myvdz.von0.value                                              Arial                                                         myvdz.bis0.value                                              Arial                                                         myvdz.jahre0.value                                            "99"                                                          Arial                                                         myvdz.vormonate0.value                                        "99"                                                          Arial                                                         myvdz.tage0.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten1.value                                        Arial                                                         myvdz.prozent1.value                                          "999"                                                         Arial                                                         myvdz.von1.value                                              Arial                                                         myvdz.bis1.value                                              Arial                                                         myvdz.jahre1.value                                            "99"                                                          Arial                                                         myvdz.vormonate1.value                                        "99"                                                          Arial                                                         myvdz.tage1.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten2.value                                        Arial                                                         myvdz.prozent2.value                                          "999"                                                         Arial                                                         myvdz.von2.value                                              Arial                                                         myvdz.bis2.value                                              Arial                                                         myvdz.jahre2.value                                            "99"                                                          Arial                                                         myvdz.vormonate2.value                                        "99"                                                          Arial                                                         myvdz.tage2.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten3.value                                        Arial                                                         myvdz.prozent3.value                                          "999"                                                         Arial                                                         myvdz.von3.value                                              Arial                                                         myvdz.bis3.value                                              Arial                                                         myvdz.jahre3.value                                            "99"                                                          Arial                                                         myvdz.vormonate3.value                                        "99"                                                          Arial                                                         myvdz.tage3.value                                             "999"                                                         Arial                                                         myvdz.vorzeiten4.value                                        Arial                                                         myvdz.prozent4.value                                          "999"                                                         Arial                                                         myvdz.von4.value                                              Arial                                                         myvdz.bis4.value                                              Arial                                                         myvdz.jahre4.value                                            "99"                                                          Arial                                                         myvdz.vormonate4.value                                        "99"                                                          Arial                                                         myvdz.tage4.value                                             "999"                                                         Arial                                                         myvdz.jahre6.value                                            "999"                                                         Arial                                                         myvdz.vormonate6.value                                        "999"                                                         Arial                                                         myvdz.tage6.value                                             "999"                                                         Arial                                                         4"Der Beginn der Stufenlaufzeit ist vorzuverlegen um"          Arial                                                         "Monate"                                                      Arial                                                         myvdz.vormonate7.value                                        "9999"                                                        Arial                                                         myvdz.vorzeiten5.value                                        Arial                                                         myvdz.prozent5.value                                          "999"                                                         Arial                                                         myvdz.von5.value                                              Arial                                                         myvdz.bis5.value                                              Arial                                                         myvdz.jahre5.value                                            "99"                                                          Arial                                                         myvdz.vormonate5.value                                        "99"                                                          Arial                                                         myvdz.tage5.value                                             "999"                                                         Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               06   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6990LA3WS1414097755      /  F      ]        `                                           WINDOWS _6990LA3WT1517579952                                                                     WINDOWS _69D12J3VH1414158931                                                                   WINDOWS _69D12J3VI1414041735#      1  ?  N  p                                                           WINDOWS _69D12J3VJ1414091068                                                                       WINDOWS _69D12J3VK1414041735u                                                                       WINDOWS _69D12J3VL1414091068      )  8  E  g                                                           WINDOWS _69D12J3VM1414041735            4                                                           WINDOWS _69D12J3VN1414091068                                                                       WINDOWS _69D12J3VO1414041735Y       g   u                                                                  WINDOWS _69D12J3VP1414091068       
!  !  )!  K!                                                           WINDOWS _69D12J3VQ1414041735!      !  !  !  "                                                           WINDOWS _69D12J3VR1414091068p"      "  "  "  "                                                           WINDOWS _6990OBNHD1501844396=#      J#  W#  e#  r#                                                           WINDOWS _6990OBNHE1501844396#      #  #  	$  $      $  M%                                               WINDOWS _6990OBNHF1501844396y&      &  &  &  &      ='  '                                               WINDOWS _6990LA3WS1501844396 )      -)  :)  H)  U)                                                           WINDOWS _6990LA3WU1501844396)      )  )  )  )      *  +                                               WINDOWS _6990LA3WV1501844396-      -  -  -  -      E.  .                                               WINDOWS _6990LA3WW1501844396~/      /  /  /  /      \0  2                                               WINDOWS _6990LA3WX1517579889N5      ^5  n5  |5  5       6  8                                               WINDOWS _6990LA3X01501844396;;      H;  U;  c;  p;      ;  E<                                               WINDOWS _6990LA3X11501844396)=      6=  C=  Q=  ^=      
>  _>                                               WINDOWS _6990LA3X21501844396C?      X?  m?  ?  ?      *@  A                                               WINDOWS _6990LA3X315018443962D      GD  \D  nD  {D      E  P                                               WINDOWS _6990LA3X41501844396X      X  Y  %Y  2Y      Y  Z                                               WINDOWS _6990LA3X51501844396"\      7\  L\  ^\  k\      ]  9]                                               WINDOWS _6990LA3X61501844396^      ^  2^  D^  Q^      ^  H`                                               WINDOWS _6990LA3WS1501844396&a      3a  @a  Na  [a      a  *b                                               WINDOWS _6990LGAQ81501844396c  c  >c  Mc  Zc  gc                                                           WINDOWS _6990LGAQ91501844396c      d  d  d  *d      d  d                                               WINDOWS _6990LR9WJ1501844396e      e  e  f  f      f  ig                                               WINDOWS _6990LA3WT1501844396h      h  
i  i  *i      i  aj                                               WINDOWS _6990LA3WZ1501844396k      k  k  k  k      Ql  m                                               WINDOWS _6990LA3WS14140417354n      An  Nn  \n  in                                                           WINDOWS _69D12J3VS1414041735n      n  n  n  n                                                           WINDOWS _69D12J3VT1414041735o      o  o  o  o                                                           WINDOWS _6990LA3WS1414041735Ep      Rp  _p  mp  zp                                                           WINDOWS _6990LA3WS1414041735p      p  p  q  q                                                           WINDOWS _69D12J3VU1414041735wq      q  q  q  q                                                           WINDOWS _6990LA3WS1414041735r      r  &r  3r  @r                                                           WINDOWS _6990LA3WS1414041735r      r  r  r  r                                                           WINDOWS _6990LA3WS1414041735r      
s  s  %s  2s                                                           WINDOWS _6990LA3WS1414041735s      s  s  s  s                                                           WINDOWS _6990LA3WS1414041735t      t  (t  7t  Dt                                                           WINDOWS _6990LA3WS1414041735t      t  t  t  t                                                           WINDOWS _69D12J3VV1414041735Au      Mu  Yu  fu  su                                                           WINDOWS _69D12J3VW1414041735u      u  u  u  u                                                           WINDOWS _69D12J3VX14140417352v      ?v  Lv  [v  hv                                                           WINDOWS _69T0XMIQ11501844396v  v  v  v  w  w      x  z                                               WINDOWS _69T0XMIQW1501844396|  |  }  }  #}  0}      ~                                                 WINDOWS _6AQ0YDMBF1501844396	        3  G  T      ۃ  ؝                                               COMMENT RESERVED                                u                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR atzmaskegrid ( sp1 c(2), sp2 c(60), sp3 c(12), sp4 c(10), sp5 c(12))
SELECT atzmaskegrid



ENDPROC
     E    ,  ,                        5   %                             U  j ` h atzmaskegrid  C  C<  C  C
  C F   U  ATZMASKEGRID SP1 SP2 SP3 SP4 SP5 BeforeOpenTables,     1 q 4                              )   ,                        1      1      form      form      FORM1      Height = 637
Width = 682
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Altersteilzeit Aufstockungsbetrag"
ControlBox = .F.
Icon = prgicons\haupticon.ico
Name = "FORM1"
     	.PROCEDURE Init
myatzmaske = thisform
myatzwindow = thisform
myatzmaske.Visible = True
thisform.autocenter = .t.

altersprozenta = vorein.voratza + 70
altersprozentb = vorein.voratzb + 70

IF zi(1+4) <= 4
	ATZAufstockung = altersprozentb
ELSE
	ATZAufstockung = altersprozenta
endif
*!*	myatzmaske.MSFlexGrid1.Visible = false

register = 200

thisform.Check1.Value = IIF(.not. EMPTY(wvw.DImATZSoli),true,false) &&vorher = ATZSoli && 13.01.2023
IF welchesjahr >= 2023
	thisform.Check1.Value = .t.
	ATZSoli = True
ELSE
	thisform.Check1.Value = .f.
	ATZSoli = false
endif
thisform.Check2.Value = IIF(.not. EMPTY(wvw.DimATZKirche),true,false) &&vorher = ATZkirche && 13.01.2023

thisform.durchrechnen.click

IF thisform.Top < 0
	thisform.Top = 0
endif

*myatzgrid_tag = .t.

*thisform.grdatzAgrid.SetAll("dynamicbackcolor","gridcolor_atzAansicht()","Column")

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
ENDPROC
PROCEDURE Resize

THISFORM.sizer.frmresize()

thisform.durchrechnen.click

IF thisform.width - 12 > thisform.grdmaskegrid.width
	thisform.grdmaskegrid.width = thisform.width -12
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  26 / 669
prozsp2 =  322 / 669
prozsp3 =  106 / 669
prozsp4 =  74 / 669
prozsp5 =  106 / 669

thisform.grdmaskegrid.Width = thisform.Width - 20

grdbreite = thisform.grdmaskegrid.Width 
thisform.grdmaskegrid.column1.Width = grdbreite * prozsp1
thisform.grdmaskegrid.column2.Width = grdbreite * prozsp2
thisform.grdmaskegrid.column3.Width = grdbreite * prozsp3
thisform.grdmaskegrid.column4.Width = grdbreite * prozsp4
thisform.grdmaskegrid.column5.Width = grdbreite * prozsp5

thisform.grdmaskegrid.column1.text1.fontsize = thisform.grdmaskegrid.column1.fontsize
thisform.grdmaskegrid.column2.text1.fontsize = thisform.grdmaskegrid.column1.fontsize
thisform.grdmaskegrid.column3.text1.fontsize = thisform.grdmaskegrid.column1.fontsize
thisform.grdmaskegrid.column4.text1.fontsize = thisform.grdmaskegrid.column1.fontsize
thisform.grdmaskegrid.column5.text1.fontsize = thisform.grdmaskegrid.column1.fontsize



ENDPROC
PROCEDURE Destroy
SELECT atzmaskegrid
USE

ENDPROC
                                      %         6  <               U  
 T   
 T   T     T  a T   F T	  
 F %C  
 T 	   
 T   
 T
 ' T   CC  
    6 %   T   a
 T   % T   -
 T   ' T   CC  
    6
     %   
 T    
     T      T     
    U  
 MYATZMASKE THISFORM MYATZWINDOW VISIBLE TRUE
 AUTOCENTER ALTERSPROZENTA VOREIN VORATZA ALTERSPROZENTB VORATZB ZI ATZAUFSTOCKUNG REGISTER CHECK1 VALUE WVW
 DIMATZSOLI FALSE WELCHESJAHR ATZSOLI CHECK2 DIMATZKIRCHE DURCHRECHNEN CLICK TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZEY C    
      %       U  T        " %         	   T     T
  I? T  W? T  G? T
  7Q? T  G? T        T      T      
  T        T        T      
  T       " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE DURCHRECHNEN CLICK WIDTH GRDMASKEGRID TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2 PROZSP3 PROZSP4 PROZSP5	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 TEXT1 FONTSIZE  F   Q U  ATZMASKEGRID Init,      Resize=     Destroyo    1    BAR   A  r!   A q BA  rq 2  A "A baaaa2"!!!!5 q A 2                               1    .   9   		  #	  T    )                           grid      grid      grdmaskegrid      FORM1     )ColumnCount = 5
DeleteMark = .F.
Height = 414
Left = 6
Panel = 1
ReadOnly = .T.
RecordSource = "atzmaskegrid"
RecordSourceType = 1
RowHeight = 16
Top = 78
Width = 669
Name = "grdmaskegrid"
Column1.Alignment = 1
Column1.ControlSource = ""
Column1.Width = 26
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.Alignment = 0
Column2.ControlSource = ""
Column2.Width = 322
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = ""
Column3.Width = 106
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = ""
Column4.Width = 74
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = ""
Column5.Width = 106
Column5.ReadOnly = .T.
Column5.Name = "Column5"
      PROCEDURE Init
thisform.grdmaskegrid.Column3.DynamicBackColor = "gridcolor_grdmaskegrid(3)"
thisform.grdmaskegrid.Column5.DynamicBackColor = "gridcolor_grdmaskegrid(5)"
ENDPROC
     E    ,  ,                        5   %                             U  a / T      gridcolor_grdmaskegrid(3)/ T      gridcolor_grdmaskegrid(5) U  THISFORM GRDMASKEGRID COLUMN3 DYNAMICBACKCOLOR COLUMN5 Init,     1 1                              )   ,                        header      header      Header1      FORM1.grdmaskegrid.Column1      0Caption = ""
WordWrap = .F.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdmaskegrid.Column1      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdmaskegrid.Column2      PFontBold = .T.
Alignment = 2
Caption = "A"
WordWrap = .F.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdmaskegrid.Column2      xAlignment = 0
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdmaskegrid.Column3      PFontBold = .T.
Alignment = 2
Caption = "B"
WordWrap = .F.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdmaskegrid.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdmaskegrid.Column4      PFontBold = .T.
Alignment = 2
Caption = "C"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdmaskegrid.Column4      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdmaskegrid.Column5      PFontBold = .T.
Alignment = 2
Caption = "D"
WordWrap = .F.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdmaskegrid.Column5      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      shape      shape      Shape2      FORM1      UTop = 562
Left = 167
Height = 37
Width = 299
SpecialEffect = 0
Name = "Shape2"
      
commandbutton      
commandbutton      Command6      FORM1      tTop = 566
Left = 170
Height = 27
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command6"
      PROCEDURE Click
If thisform.ssScroll1.value > thisform.ssScroll1.Min 
	thisform.ssScroll1.value = thisform.ssScroll1.value - 1
ENDIF
thisform.ssScroll1.scroll
    
ENDPROC
     $                              r   %                             U  N  %        :  T         
      U  THISFORM	 SSSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )                           
commandbutton      
commandbutton      Command9      FORM1      uTop = 567
Left = 440
Height = 27
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command9"
      PROCEDURE Click
If thisform.ssScroll1.value < thisform.ssScroll1.Max 
	thisform.ssScroll1.value = thisform.ssScroll1.value + 1
ENDIF
thisform.ssScroll1.scroll

ENDPROC
     $                              r   %                             U  N  %        
:  T         
      U  THISFORM	 SSSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )                           shape      shape      Shape1      FORM1      UTop = 523
Left = 167
Height = 37
Width = 299
SpecialEffect = 0
Name = "Shape1"
      textbox      textbox      
tdbnumber0      FORM1      Alignment = 3
Value = 0.00
Enabled = .T.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 375
TabIndex = 112
Top = 496
Visible = .T.
Width = 86
Name = "tdbnumber0"
     -PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))

ENDPROC
PROCEDURE Valid
If register = 200 .And. startflag = False

*	thisform.durchrechnen.click

	wnw.zATZNetto = myatzmaske.tdbnumber0.Value

	thisform.durchrechnen.click

ENDIF
RETURN .t.
ENDPROC
                                   M   %          (                 U    U  M  %     	?  T     
  	 
   Ba U  REGISTER	 STARTFLAG FALSE WNW	 ZATZNETTO
 MYATZMASKE
 TDBNUMBER0 VALUE THISFORM DURCHRECHNEN CLICK InteractiveChange,      Valid3     1 4 d B q 1                       W         s   "      )                           label      label      zeile0      FORM1      }Caption = "Mindestnettogehalt"
Height = 17
Left = 8
Top = 571
Visible = .T.
Width = 111
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            checkbox      checkbox      Check1      FORM1      Top = 532
Left = 474
Height = 16
Width = 189
Alignment = 0
Caption = "regulrer Soli-Zuschlag in 16B"
TabIndex = 69
Visible = .T.
Name = "Check1"
     xPROCEDURE ProgrammaticChange
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
myindex = 1

If startflag = True
	thisform.Check1.Value = IIF(.not. EMPTY(ATZSoli),true,false) &&vorher = ATZSoli
Else
	If .not. EMPTY(thisform.Check1.Value) && vorher  = -1 25.05.2021
		ATZSoli = True
	Else
		ATZSoli = False
	Endif
ENDIF

thisform.durchrechnen.click
thisform.grdmaskegrid.refresh
ENDPROC
     j    Q  Q                        FA   %                          U    U      CCC  \g8 U  CHECK_GOTFOCUS THIS NAME 
 T   %  B $ T   CC 
    6   %C   
m 
 T    
 T    
   	 
  
   U  MYINDEX	 STARTFLAG TRUE THISFORM CHECK1 VALUE ATZSOLI FALSE DURCHRECHNEN CLICK GRDMASKEGRID REFRESH ProgrammaticChange,      GotFocus3      Clicko     1 3 2  A a   A A   1                       r                        m      )   Q                        checkbox      checkbox      Check2      FORM1      Top = 571
Left = 474
Height = 16
Width = 132
Alignment = 0
Caption = "ohne Kirchensteuer"
TabIndex = 70
Visible = .T.
Name = "Check2"
     PROCEDURE ProgrammaticChange

*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
PROCEDURE GotFocus
DO check_gotfocus WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
myindex = 2
If startflag = True
	thisform.Check2.Value = IIF(.not. EMPTY(ATZKirche),true,false) &&vorher = ATZkirche
Else
	If .not. EMPTY(thisform.Check2.Value) &&vorher = -1 25.05.2021
		ATZKirche = True
	Else
		ATZKirche = False
	Endif
Endif
*Do altersteilzeitb &&Do attached
thisform.durchrechnen.click
thisform.grdmaskegrid.refresh
ENDPROC
     l    S  S                        hf   %                          U    U      CCC  \g8 U  CHECK_GOTFOCUS THIS NAME 
 T   %  B $ T   CC 
    6   %C   
m 
 T    
 T    
   	 
  
   U  MYINDEX	 STARTFLAG TRUE THISFORM CHECK2 VALUE	 ATZKIRCHE FALSE DURCHRECHNEN CLICK GRDMASKEGRID REFRESH ProgrammaticChange,      GotFocus3      Clicko     1 4 2  A a   A A   1                       t                              )   S                        label      label      zeile2      FORM1      xCaption = "Teilzeitarbeit"
Height = 17
Left = 8
Top = 532
Visible = .T.
Width = 82
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      AutoSize = .T.
Caption = "Ersatz fr B1 bis B14: Magebliche Bezge"
Height = 17
Left = 8
Top = 498
Visible = .T.
Width = 237
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 601
Left = 8
Height = 32
Width = 131
Caption = "bertrag"
Style = 0
TabIndex = 36
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click
*SET STEP ON 
*DO sscommand1_click
If zi(1+4) = 1
	wnw.zATZNetto = myatzmaske.tdbnumber0.Value
Else
	wnw.zATZNetto = myatzmaske.tdbnumber0.Value
ENDIF

myput(13, fileneu,"wnw")

atzteil = wert(1+3) / 100000
betrag(1+3) = wert(1+3)
altersprozentb = ATZAufstockung

Do wvwout &&Do attached

lastclick = 203
lastt = betrag(1+3)

Do Berechnung &&Do attached
Do folgemonatneu &&Do attached

ENDPROC
     F    -  -                        M   %                          U    %C  +  T      I  T       C
   wnw  T C	   T
 C	 
 T   
 
 T  T C
      U  ZI WNW	 ZATZNETTO
 MYATZMASKE
 TDBNUMBER0 VALUE MYPUT FILENEU ATZTEIL WERT BETRAG ALTERSPROZENTB ATZAUFSTOCKUNG WVWOUT	 LASTCLICK LASTT
 BERECHNUNG
 FOLGEMONATNEU Click,     1 Sa aA rq r  r q 2                             )   -                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 601
Left = 140
Height = 32
Width = 131
Caption = "Drucken"
TabIndex = 37
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
     PROCEDURE Click

*DO sscommand2_click
*Procedure atzdruckenb
Do progression &&Do attached


PUBLIC hs1_sp2, hs1_sp3, hs1_sp4, hs1_sp5
PUBLIC hs1_sp2_summ, hs1_sp3_summ, hs1_sp4_summ, hs1_sp5_summ
PUBLIC hs2_sp2, hs2_sp3, hs2_sp4, hs2_sp5
PUBLIC hs2_sp2_summ, hs2_sp3_summ, hs2_sp4_summ, hs2_sp5_summ
PUBLIC hs3_sp2, hs3_sp3, hs3_sp4, hs3_sp5
PUBLIC hs3_sp2_summ, hs3_sp3_summ, hs3_sp4_summ, hs3_sp5_summ
STORE "" TO hs1_sp2, hs1_sp3, hs1_sp4, hs1_sp5
STORE "" TO hs1_sp2_summ, hs1_sp3_summ, hs1_sp4_summ, hs1_sp5_summ
STORE "" TO hs2_sp2, hs2_sp3, hs2_sp4, hs2_sp5
STORE "" TO hs2_sp2_summ, hs2_sp3_summ, hs2_sp4_summ, hs2_sp5_summ
STORE "" TO hs3_sp2, hs3_sp3, hs3_sp4, hs3_sp5
STORE "" TO hs3_sp2_summ, hs3_sp3_summ, hs3_sp4_summ, hs3_sp5_summ
crlf = CHR(13)+CHR(10)

SELECT atzmaskegrid
GO top
*!*	BROWSE

FOR hsa = 1 TO 13
	GOTO hsa
	hs1_sp2 = hs1_sp2 + ALLTRIM(atzmaskegrid.sp2) + IIF(RECNO() < 13,crlf,"")
	hs1_sp3 = hs1_sp3 + ALLTRIM(atzmaskegrid.sp3) + IIF(RECNO() < 13,crlf,"")
	hs1_sp4 = hs1_sp4 + ALLTRIM(atzmaskegrid.sp4) + IIF(RECNO() < 13,crlf,"")
	hs1_sp5 = hs1_sp5 + ALLTRIM(atzmaskegrid.sp5) + IIF(RECNO() < 13,crlf,"")
next		

GOTO 15
hs1_sp2_summ = ALLTRIM(atzmaskegrid.sp2)
hs1_sp3_summ = ALLTRIM(atzmaskegrid.sp3)
hs1_sp4_summ = ALLTRIM(atzmaskegrid.sp4)
hs1_sp5_summ = ALLTRIM(atzmaskegrid.sp5)

FOR hsa = 17 TO 19
	GOTO hsa
	hs2_sp2 = hs2_sp2 + ALLTRIM(atzmaskegrid.sp2) + IIF(RECNO() < 19,crlf,"")
	hs2_sp3 = hs2_sp3 + ALLTRIM(atzmaskegrid.sp3) + IIF(RECNO() < 19,crlf,"")
	hs2_sp4 = hs2_sp4 + ALLTRIM(atzmaskegrid.sp4) + IIF(RECNO() < 19,crlf,"")
	hs2_sp5 = hs2_sp5 + ALLTRIM(atzmaskegrid.sp5) + IIF(RECNO() < 19,crlf,"")
next

GOTO 21
hs2_sp2_summ = ALLTRIM(atzmaskegrid.sp2)
hs2_sp3_summ = ALLTRIM(atzmaskegrid.sp3)
hs2_sp4_summ = ALLTRIM(atzmaskegrid.sp4)
hs2_sp5_summ = ALLTRIM(atzmaskegrid.sp5)

FOR hsa = 23 TO 24
	GOTO hsa
	hs3_sp2 = hs3_sp2 + ALLTRIM(atzmaskegrid.sp2) + IIF(RECNO() < 24,crlf,"")
	hs3_sp3 = hs3_sp3 + ALLTRIM(atzmaskegrid.sp3) + IIF(RECNO() < 24,crlf,"")
	hs3_sp4 = hs3_sp4 + ALLTRIM(atzmaskegrid.sp4) + IIF(RECNO() < 24,crlf,"")
	hs3_sp5 = hs3_sp5 + ALLTRIM(atzmaskegrid.sp5) + IIF(RECNO() < 24,crlf,"")
next

GOTO 26
hs3_sp2_summ = ALLTRIM(atzmaskegrid.sp2)
hs3_sp3_summ = ALLTRIM(atzmaskegrid.sp3)
hs3_sp4_summ = ALLTRIM(atzmaskegrid.sp4)
hs3_sp5_summ = ALLTRIM(atzmaskegrid.sp5)

GO top

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM atz_druck1 RANGE 1,1 NOCONSOLE TO PRINTER prompt

SELECT dummy
USE

RELEASE hs1_sp2, hs1_sp3, hs1_sp4, hs1_sp5
RELEASE hs1_sp2_summ, hs1_sp3_summ, hs1_sp4_summ, hs1_sp5_summ
RELEASE hs2_sp2, hs2_sp3, hs2_sp4, hs2_sp5
RELEASE hs2_sp2_summ, hs2_sp3_summ, hs2_sp4_summ, hs2_sp5_summ
RELEASE hs3_sp2, hs3_sp3, hs3_sp4, hs3_sp5
RELEASE hs3_sp2_summ, hs3_sp3_summ, hs3_sp4_summ, hs3_sp5_summ


SELECT(oldselect)

ENDPROC
     /                              6   %   .        H   =            U      7     7     7	 
    7
     7     7     J  (     J  (     J  (	 
    J  (
     J  (     J  (     T C
 C
  F  #)  (
	 # + T  C  CCO

     6+ T  C  CCO

     6+ T  C  CCO

     6+ T  C  CCO

     6 	 # T C   T C   T C   T C    (	 # + T	 	 C  CCO
     6+ T
 
 C  CCO
     6+ T  C  CCO
     6+ T  C  CCO
     6 	 # T
 C   T C   T C   T C    (>	 # + T  C  CCO
     6+ T  C  CCO
     6+ T  C  CCO
     6+ T  C  CCO
     6 	 # T C   T C   T C   T C   #) T  C W h dummy"  C F!   [ F!  #)" ?
 atz_druck1(!"9 F!  Q <     <     <	 
    <
     <     <    
 F   U$  PROGRESSION HS1_SP2 HS1_SP3 HS1_SP4 HS1_SP5 HS1_SP2_SUMM HS1_SP3_SUMM HS1_SP4_SUMM HS1_SP5_SUMM HS2_SP2 HS2_SP3 HS2_SP4 HS2_SP5 HS2_SP2_SUMM HS2_SP3_SUMM HS2_SP4_SUMM HS2_SP5_SUMM HS3_SP2 HS3_SP3 HS3_SP4 HS3_SP5 HS3_SP2_SUMM HS3_SP3_SUMM HS3_SP4_SUMM HS3_SP5_SUMM CRLF ATZMASKEGRID HSA SP2 SP3 SP4 SP5	 OLDSELECT DUMMY FELD
 ATZ_DRUCK1 Click,     1 t 311111Qr Q s A  !!!!r A  !!!!r A  !!!!R  q Q A r Q "r A 211111 2                             )                           
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 601
Left = 404
Height = 32
Width = 131
Caption = "H i l f e"
Style = 0
TabIndex = 38
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      PROCEDURE Click
*DO sscommand3_click
If zi(1+4) < 5
	inet = 110
	Msg = "A/Altersteilzeitzuschlag/Uebersicht"
Else
	inet = 110
	Msg = "A/Altersteilzeit/Index"
ENDIF

Do insinternet &&Do attached
ENDPROC
     i    P  P                        f   %            
                U    %C  
R 
 T n0 T # A/Altersteilzeitzuschlag/Uebersicht  
 T n# T  A/Altersteilzeit/Index    U  ZI INET MSG INSINTERNET Click,     1 R   1A r 1                              )   P                        
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 601
Left = 536
Height = 32
Width = 131
Caption = "Schlieen"
TabIndex = 39
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
      0PROCEDURE Click

thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       %       )                            
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 601
Left = 272
Height = 32
Width = 131
Caption = "Progression"
Style = 0
TabIndex = 40
Visible = .T.
SpecialEffect = 0
Name = "sscommand5"
     LPROCEDURE Click
*myatzmaske.windowstate = 1
i = 1
Do Form Progress

*!*	DO sscommand5_click
*!*	IF .not. INLIST(register,84,63,65,150,199,300) &&register <> 84 .and. register <> 63 .and. register <> 65 .and. register <> 300
*!*		thisform.hide
*!*		myform1.visible = .t.
*!*	*	myform1.windowstate = 0
*!*	ENDIF

ENDPROC
                                      7   %   ]       t      l             U    
 T    Progress U  I PROGRESS Click,     1  9                       A      )                            label      label      zeile3      FORM1      rCaption = "Label0"
Height = 17
Left = 124
Top = 532
Visible = .T.
Width = 31
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 619
Left = 662
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      zeile1      FORM1      rCaption = "Label0"
Height = 17
Left = 124
Top = 571
Visible = .T.
Width = 31
TabIndex = 5
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            textbox      textbox      Text1      FORM1      mEnabled = .F.
Height = 22
Left = 472
TabIndex = 45
Top = 496
Visible = .F.
Width = 69
Name = "Text1"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        
commandbutton      
commandbutton      Command7      FORM1      tTop = 527
Left = 170
Height = 27
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command7"
      PROCEDURE Click
If thisform.ssScroll2.value > thisform.ssScroll2.Min 
	thisform.ssScroll2.value = thisform.ssScroll2.value - 1
ENDIF
thisform.ssScroll2.scroll
    
ENDPROC
     $                              r   %                             U  N  %        :  T         
      U  THISFORM	 SSSCROLL2 VALUE MIN SCROLL Click,     1 A  2                              )                           
commandbutton      
commandbutton      Command8      FORM1      uTop = 528
Left = 439
Height = 27
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command8"
      PROCEDURE Click
If thisform.ssScroll2.value < thisform.ssScroll2.Max 
	thisform.ssScroll2.value = thisform.ssScroll2.value + 1
ENDIF
thisform.ssScroll2.scroll

ENDPROC
     $                              r   %                             U  N  %        
:  T         
      U  THISFORM	 SSSCROLL2 VALUE MAX SCROLL Click,     1 A  2                              )                           shape      shape      Shape3      FORM1      QTop = 3
Left = 6
Height = 23
Width = 669
SpecialEffect = 0
Name = "Shape3"
      label      label      Label5      FORM1      AutoSize = .T.
FontBold = .T.
Alignment = 2
Caption = "Berechnung des Aufstockungsbetrags bei Alterteilzeitarbeit"
Height = 17
Left = 142
Top = 6
Width = 341
Name = "Label5"
      shape      shape      Shape5      FORM1      RTop = 24
Left = 6
Height = 54
Width = 669
SpecialEffect = 0
Name = "Shape5"
      label      label      Label6      FORM1      ZCaption = "Personalfall"
Height = 17
Left = 48
Top = 25
Width = 243
Name = "Label6"
      label      label      Label7      FORM1      ^Caption = "Besoldungsgruppe"
Height = 17
Left = 48
Top = 42
Width = 243
Name = "Label7"
      label      label      Label8      FORM1      ZCaption = "Steuerklasse"
Height = 17
Left = 48
Top = 59
Width = 243
Name = "Label8"
      line      line      Line1      FORM1      =Height = 52
Left = 42
Top = 24
Width = 0
Name = "Line1"
      line      line      Line2      FORM1      >Height = 52
Left = 366
Top = 24
Width = 0
Name = "Line2"
      label      label      Label9      FORM1      \Caption = "Vollzeitgehalt"
Height = 17
Left = 382
Top = 25
Width = 77
Name = "Label9"
      line      line      Line3      FORM1      >Height = 52
Left = 473
Top = 24
Width = 0
Name = "Line3"
      label      label      Label10      FORM1      bCaption = "Alterteilzeitgehalt"
Height = 17
Left = 531
Top = 25
Width = 96
Name = "Label10"
      label      label      Label11      FORM1      UCaption = "Anteil"
Height = 17
Left = 493
Top = 43
Width = 33
Name = "Label11"
      line      line      Line4      FORM1      >Height = 34
Left = 548
Top = 42
Width = 0
Name = "Line4"
      line      line      Line5      FORM1      ?Height = 0
Left = 473
Top = 41
Width = 200
Name = "Line5"
      label      label      Label12      FORM1      UCaption = "Betrag"
Height = 17
Left = 592
Top = 43
Width = 40
Name = "Label12"
      xslider      foxyslider.vcx      	container      	ssScroll2      FORM1     yTop = 527
Left = 189
Width = 247
Height = 26
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 100
showtips = .T.
min = 30
showtipsalways = .T.
Name = "ssScroll2"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     PROCEDURE scroll


If myatzmaske.ssScroll2.Value < 30
	Return
Endif

If myatzmaske.ssScroll2.Value > 100
	Return
Endif

If myatzmaske.ssScroll2.Value = atzteil
	Return
Endif

If startflag = True
	atzteil = wert(1+3) / 100000
	myatzmaske.ssScroll2.Value = atzteil
Else
ENDIF

atzteil = myatzmaske.ssScroll2.Value
wert(1+3) = atzteil * 100000
&&mytablett.zeile(3).Caption = atzteil + " %"
*Do altersteilzeitb &&Do attached
thisform.durchrechnen.Click

thisform.grdmaskegrid.refresh
ENDPROC
     -                              ɹ   %                          U    %    
  B  %    d:  B  %     Y  B  %    T C   T         T      T   
   	 
  
   U 
 MYATZMASKE	 SSSCROLL2 VALUE ATZTEIL	 STARTFLAG TRUE WERT THISFORM DURCHRECHNEN CLICK GRDMASKEGRID REFRESH scroll,     1 sA A rA A rA A 1 A 2  1                             )                           xslider      foxyslider.vcx      	container      	ssScroll1      FORM1     yTop = 566
Left = 189
Width = 247
Height = 26
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 100
showtips = .T.
min = 30
showtipsalways = .T.
Name = "ssScroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     PROCEDURE scroll

If myatzmaske.SSScroll1.Value < 30 
	Return
Endif

If myatzmaske.SSScroll1.Value > 100 
	Return
Endif

If ATZAufstockung = myatzmaske.SSScroll1.Value
	Return
Endif

If startflag = True
	myatzmaske.SSScroll1.Value = ATZAufstockung
	Return
ENDIF

myatzmaske.zeile1.Caption = Alltrim(Str(myatzmaske.SSScroll1.Value,10,0)) 
ATZAufstockung = myatzmaske.SSScroll1.Value
altersprozentb = ATZAufstockung

thisform.durchrechnen.Click

thisform.grdmaskegrid.refresh

ENDPROC
     I    0  0                        7   %                          U    %    
  B  %    d:  B  %     Y  B  %    T      B # T    CC    
 Z T     
 T  
 	 
  
 	  
  U 
 MYATZMASKE	 SSSCROLL1 VALUE ATZAUFSTOCKUNG	 STARTFLAG TRUE ZEILE1 CAPTION ALTERSPROZENTB THISFORM DURCHRECHNEN CLICK GRDMASKEGRID REFRESH scroll,     1 rA A rA A rA A 1A A 21   2                             )   0                        
commandbutton      
commandbutton      durchrechnen      FORM1      Top = 499
Left = 564
Height = 19
Width = 70
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     PROCEDURE Click

	
	Do alterrechnenb &&Do attached

	myatzmaske.tdbnumber0.value = wnw.zATZNetto

	myatzmaske.zeile1.Caption = ALLTRIM(STR(ATZAufstockung,4,0)) + " %"

	myatzmaske.zeile3.Caption = ALLTRIM(STR(wert(1+3) / 100000,10,0)) + " %"
	myatzmaske.ssScroll1.value = ATZAufstockung
	myatzmaske.ssScroll2.value = wert(1+3) / 100000

	SELECT atzmaskegrid
	SET SAFETY off
	ZAP
	SET SAFETY on
	FOR hsa = 1 TO 32
		APPEND BLANK
		replace atzmaskegrid.sp1 WITH ALLTRIM(STR(hsa,2,0))
		FLUSH
	next


			If altersprozentb = vorein.voratzb + 70 &&voeher 83
				thisform.label5.Caption = "Berechnung des Aufstockungsbetrags bei Altersteilzeitarbeit"
			Else
				thisform.label5.Caption = "Altersteilzeitzuschlag auf " + ALLTRIM(STR(ATZAufstockung,4,0)) + " % netto"
			ENDIF
			
		thisform.label6.Caption = myform1.z0.Caption &&.text
		thisform.label7.Caption = myform1.z5.Caption &&.text
		thisform.label8.Caption = Alltrim(myform1.z50.Caption) + "  " + Alltrim(myform1.z51.Caption)

		SELECT atzmaskegrid
		GOTO 7 - 6
		If myatzmaske.tdbnumber0.Value > 0
			replace atzmaskegrid.sp2 WITH "Magebliche Bezge lt. bes. Vorgabe"
		ELSE
			replace atzmaskegrid.sp2 WITH myform1.z7.Caption
		ENDIF
		FLUSH
		
		For i = 8 To 9
			GOTO i - 6
			xxx = ALLTRIM(STR(i,2,0))
			replace atzmaskegrid.sp2 WITH " +  " + myform1.z&xxx..Caption
			flush
		Next

		GOTO 10 - 6
		If AOK_Version = True .and. zi(1+2) = 1 .and. zi(1+4) < 7 
			replace atzmaskegrid.sp2 WITH " +  VWL"
		ELSE
			replace atzmaskegrid.sp2 WITH " +  VWL (hier unbercksichtigt)"
		ENDIF
		FLUSH
		
		For i = 11 To 15
			GOTO i - 6
			xxx="z"+ALLTRIM(STR(i,2,0))
			replace atzmaskegrid.sp2 WITH " +  " + myform1.&xxx..Caption
			flush
		Next

		GOTO 16 - 6
		replace atzmaskegrid.sp2 WITH " +  .Std.Verg.(hier unbercksichtigt)"
		FLUSH
		
		For i = 17 To 18
			GOTO i - 6
			xxx="z"+ALLTRIM(STR(i,2,0))
			replace atzmaskegrid.sp2 WITH " +  " + myform1.&xxx..Caption
			flush
		NEXT
		
		GOTO 19 - 6
		replace atzmaskegrid.sp2 WITH " +  Einm.Z. (hier unbercksichtigt)"
		FLUSH
		
		GOTO 21 - 6
		replace atzmaskegrid.sp2 WITH " = Magebl. " + myform1.z20.Caption
		FLUSH
		
		GOTO 24 - 6
		replace atzmaskegrid.sp2 WITH " ALTERSTEILZEITGEHALT"
		FLUSH
		
		GOTO 23 - 6
		replace atzmaskegrid.sp2 WITH " -   " + Alltrim(myform1.z50.Caption) + "  " + Alltrim(myform1.z51.Caption)
		FLUSH
		
		GOTO 24 - 6
		If ATZSoli = True
			replace atzmaskegrid.sp2 WITH " -   Solidarittszuschlag regulr"
		Else
			replace atzmaskegrid.sp2 WITH " -   Solidarittszuschlag (5,5 % von B15)"
		ENDIF
		FLUSH
		
		GOTO 25 - 6
		If .not. EMPTY(ATZKirche) &&vorher = True
			replace atzmaskegrid.sp2 WITH " -   Kirchensteuer hier unbercksichtigt"
		Else
			replace atzmaskegrid.sp2 WITH " -   Kirchensteuer (B17=8%,D17=individ.)"
		ENDIF
		flush

		GOTO 27 - 6
		If zi(1+2) = 1 .And. welchesjahr > 2009 .And. wnw.atzalt = True
			replace atzmaskegrid.sp2 WITH "NETTOBESOLDUNG  aus 5 Jahren"
		Else
			replace atzmaskegrid.sp2 WITH " = FIKTIVES VOLLZEIT-NETTOGEHALT"
		ENDIF
		FLUSH
		
		GOTO 29 - 6
		replace atzmaskegrid.sp2 WITH "      davon " + ALLTRIM(STR(ATZAufstockung,4,0)) + " %"
		flush
		
		GOTO 30 - 6
		replace atzmaskegrid.sp2 WITH " + Aufstockung (steuerfrei mit Progressionsvorbehalt)"
		FLUSH
		
		GOTO 32 - 6
		replace atzmaskegrid.sp2 WITH " = GARANTIERTES NETTOGEHALT"
		flush


		For i = 7 To 19
			GOTO i - 6
			If AOK_Version = True .and. zi(1+2) = 1 .and. zi(1+4) < 7 
				&&beamte bayern AOK_Version
				If sicht(1+3,1+ i - 6) - Int(sicht(1+3,1+ i - 6)) > 0 
					replace atzmaskegrid.sp3 WITH myformat(sicht(1+3,1+ i - 6), "##0.00") + "%" + ""
				else
					replace atzmaskegrid.sp3 WITH myformat(sicht(1+3,1+ i - 6), "##0") + " %" + " "
				ENDIF
				flush
			else			
				replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ i - 6) / 100, "###,##0.00") + "   "
				flush
			endif
		Next

		GOTO 21 - 6
		replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ 14) / 100, "###,##0.00") + "   "
		FLUSH
		
		For i = 23 To 25
			GOTO i - 6
			replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ i - 8) / 100, "###,##0.00") + "   "
			flush
		Next

		GOTO 27 - 6
		replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ 18) / 100, "###,##0.00") + "   "
		FLUSH
		
		GOTO 29 - 6		
		replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ 19) / 100, "###,##0.00") + "   "
		FLUSH
		
*!*			GOTO 30 - 6	
*!*			replace atzmaskegrid.sp3 WITH " + Aufstockung (steuerfrei mit Progressionsvorbehalt)"
*!*			FLUSH

		For i = 7 To 19
			GOTO i - 6
			replace atzmaskegrid.sp4 WITH myformat(sicht(1+3,1+ i - 6), "##0") + " %" + " "
			flush
		NEXT
		
		If zi(1+3) = 3
			GOTO 8 - 6
			replace atzmaskegrid.sp4 WITH " 100 % "
			flush
		Endif

		For i = 7 To 19

			GOTO i - 6

			replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ i - 6), "###,##0.00") + "   "
			flush
		Next


		GOTO 21 - 6

		replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ 14), "###,##0.00") + "   "
		FLUSH
		
		For i = 23 To 25

			GOTO i - 6

			replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ i - 8), "###,##0.00") + "   "
			flush
		Next

		GOTO 27 - 6

		replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ 18), "###,##0.00") + "   "
		flush


		GOTO 30 - 6

		replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ 20), "###,##0.00") + "   "
		flush


		GOTO 32 - 6

		replace atzmaskegrid.sp5 WITH myformat(sicht(1+4,1+ 21), "###,##0.00") + "   "
		flush

		If zi(1+2) = 3
			&&Bund
			If zi(1+22) = 7

				GOTO 30 - 6

				replace atzmaskegrid.sp1 WITH "15"
				FLUSH
				
				GOTO 30 - 6

				replace atzmaskegrid.sp2 WITH " + 20 % ATZ-Zuschlag (str.frei mit Progressionsvorbehalt)"
				flush

				For i = 23 To 25

					GOTO i - 6

					replace atzmaskegrid.sp3 WITH myformat(sicht(1+2,1+ i - 8) / 100, "###,##0.00") + "   "
					flush
				NEXT

				GOTO 30 - 6

				replace atzmaskegrid.sp3 WITH " + 20 % ATZ-Zuschlag (str.frei mit Progressionsvorbehalt)"
				flush


				For i = 0 To 4
					xxx="zeile"+ALLTRIM(STR(i,2,0))
					myatzmaske.&xxx..Visible = False
				Next

				myatzmaske.SSScroll1.Visible = False
			Endif
		ENDIF

	SELECT atzmaskegrid
	GO top
	DO WHILE .not. EOF()
		IF EMPTY(atzmaskegrid.sp2)
			DELETE
			FLUSH
		ENDIF
		SKIP
	ENDDO
	hsa = 1
	GO top
	DO WHILE .not. EOF()
		replace atzmaskegrid.sp1 WITH ALLTRIM(STR(hsa,2,0))
		FLUSH
		SKIP
		hsa = hsa + 1
	ENDDO
	GO top
	thisform.grdmaskegrid.refresh			
	


ENDPROC
         |  |                           %         3                 U      T     # T   CC  Z  %. T 	  CCC
  
 Z  % T     T   C
   F
  G. S G.   (    >
  CC  Z [  %   FZN T   ; Berechnung des Aufstockungsbetrags bei Altersteilzeitarbeit H T    Altersteilzeitzuschlag auf CC  Z  % netto  T       T      - T   C      C    F
 	 # %    g3 >
  # Magebliche Bezge lt. bes. Vorgabe  >
       [  (	

 #  T  CC  ZA replace atzmaskegrid.sp2 WITH " +  " + myform1.z&xxx..Caption
 [ 	 #/ %! "  C# 	 C# 
	` >
    +  VWL / >
    +  VWL (hier unbercksichtigt)  [  (#
 #  T   zCC  Z@ replace atzmaskegrid.sp2 WITH " +  " + myform1.&xxx..Caption
 [ 	 #
6 >
  &  +  .Std.Verg.(hier unbercksichtigt) [  (
 #  T   zCC  Z@ replace atzmaskegrid.sp2 WITH " +  " + myform1.&xxx..Caption
 [ 	 #
3 >
  #  +  Einm.Z. (hier unbercksichtigt) [	 #& >
    = Magebl.  $   [	 #% >
    ALTERSTEILZEITGEHALT [	 #3 >
    -   C      C    [	 # %% " "1 >
  !  -   Solidarittszuschlag regulr c9 >
  )  -   Solidarittszuschlag (5,5 % von B15)  [	 # %C& 
8 >
  (  -   Kirchensteuer hier unbercksichtigt 8 >
  (  -   Kirchensteuer (B17=8%,D17=individ.)  [	 #/ %C# 	 ' 	  ( " 	i- >
   NETTOBESOLDUNG  aus 5 Jahren 0 >
     = FIKTIVES VOLLZEIT-NETTOGEHALT  [	 #0 >
         davon CC  Z  % [	 #E >
  5  + Aufstockung (steuerfrei mit Progressionsvorbehalt) [	 #+ >
    = GARANTIERTES NETTOGEHALT [  (	
 # / %! "  C# 	 C# 
	q	5 %C ) CC ) 8 -	5 >
 * CC )  ##0.00+  %   i	4 >
 * CC )  ##0+   %    [ 	; >
 * CC ) d
 ###,##0.00+      [  	 #3 >
 * CC) d
 ###,##0.00+      [  (c

 # ; >
 * CC ) d
 ###,##0.00+      [ 	 #3 >
 * CC) d
 ###,##0.00+      [	 #3 >
 * CC) d
 ###,##0.00+      [  (C
 # 4 >
 , CC )  ##0+   %   [  %C# 	 # >
 ,   100 %  [   (
 # 7 >
 - CC ) 
 ###,##0.00+      [ 	 #/ >
 - CC) 
 ###,##0.00+      [  (
 # 7 >
 - CC ) 
 ###,##0.00+      [ 	 #/ >
 - CC) 
 ###,##0.00+      [	 #/ >
 - CC) 
 ###,##0.00+      [	 #/ >
 - CC) 
 ###,##0.00+      [ %C#  %C# 	 # >
   15 [	 #I >
  9  + 20 % ATZ-Zuschlag (str.frei mit Progressionsvorbehalt) [  (<
 # ; >
 * CC ) d
 ###,##0.00+      [ 	 #I >
 * 9  + 20 % ATZ-Zuschlag (str.frei mit Progressionsvorbehalt) [   (  T   zeileCC  Z$ myatzmaske.&xxx..Visible = False
  T  . /    F
  #) +C+
L %C
  D  [  H 
 T  #) +C+
 >
  CC  Z [ H T    #)
  0 1  U2 
 ALTERRECHNENB
 MYATZMASKE
 TDBNUMBER0 VALUE WNW	 ZATZNETTO ZEILE1 CAPTION ATZAUFSTOCKUNG ZEILE3 WERT	 SSSCROLL1	 SSSCROLL2 ATZMASKEGRID HSA SP1 ALTERSPROZENTB VOREIN VORATZB THISFORM LABEL5 LABEL6 MYFORM1 Z0 LABEL7 Z5 LABEL8 Z50 Z51 SP2 Z7 I XXX AOK_VERSION TRUE ZI Z20 ATZSOLI	 ATZKIRCHE WELCHESJAHR ATZALT SICHT SP3 MYFORMAT SP4 SP5 VISIBLE FALSE GRDMASKEGRID REFRESH Click,     1 s b21r a A a qQ A A  A r  q1 aA A r qA A  q A A r A A  aA r A A  1A  aA  QA  1A   A A   A A   A A  A  QA  A s RQ AA A  A A A  1A r A A  1A  1A v AA A R qA A r rA A  A r rA A  A  A  A RR "A  A r A A  A sAA 2A A r Q  !A A A A A  Q  A A A Q  4                             )   |                        BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _69C0Y4L071418090249      /  F      ]                                                   WINDOWS _69C0Y4L081533954624                                                                     WINDOWS _69E0VBCG71414102584{                                                                       WINDOWS _69C0Y4L0B1414102584        (  7  D                                                           WINDOWS _69E0VBCG81414100273                                                                       WINDOWS _69C0Y4L0A1414102584>      K  X  g  t                                                           WINDOWS _69E0VBCFT1414102584                                                                        WINDOWS _69C0Y4L0A1414102584b       o   |                                                                  WINDOWS _69C0Y4L0A1414102584       !  !  !  +!                                                           WINDOWS _69C0Z8WKQ1414102584!      !  !  !  !                                                           WINDOWS _69E0VBCGS1414100273"      %"  2"  A"  N"                                                           WINDOWS _69E0VBCFZ1414102584"      "  "  "  "                                                           WINDOWS _69E0VBCG91414102584P#      ]#  j#  y#  #                                                           WINDOWS _69E0VBCGA1414102584#      #  #  $  $                                                           WINDOWS _69E0VBCGB1414102584v$      $  $  $  $                                                           WINDOWS _69E0VBCGC1414102584	%      %  #%  2%  ?%                                                           WINDOWS _69E0VBCGD1414102584%      %  %  %  %                                                           WINDOWS _69E0VBCGE1414102584/&      <&  I&  X&  e&                                                           WINDOWS _69E0VBCGF1414102584&      &  &  &  &                                                           WINDOWS _69E0VBCGG1414102584U'      b'  o'  ~'  '                                                           WINDOWS _69E0VBCGH1414102584'      '  (  (  (                                                           WINDOWS _69E0TL6MI1414100273{(      (  (  (  (                                                           WINDOWS _69C0Y4L071414100273$)      1)  >)  M)  Z)                                                           WINDOWS _69C0Y4L071414102584)      )  )  )  *                                                           WINDOWS _69C0Y4L071414102584_*      l*  y*  *  *                                                           WINDOWS _69C0Y4L081414102584*      *  +  +  (+                                                           WINDOWS _69C0Y4L0J1414102584+      +  +  +  +                                                           WINDOWS _69C0ZSSPN1414102584,      %,  2,  A,  N,                                                           WINDOWS _69C0Y4L0A1414102584,      ,  ,  ,  ,                                                           WINDOWS _69C0Y4L0C1414102584>-      K-  X-  g-  t-                                                           WINDOWS _69C0Y4L0E1414102584-      -  -  -  .                                                           WINDOWS _69C0Y4L0G1414102584d.      q.  ~.  .  .                                                           WINDOWS _69C0Y4L0I1414102584.      /  /   /  -/                                                           WINDOWS _69C0Z8WKQ1414100273/      /  /  /  /                                                           WINDOWS _69C0Y4L071414102584'0      40  A0  P0  ]0                                                           WINDOWS _69C10IRCD14141002730      0  0  0  0                                                           WINDOWS _69C0Y4L071414102584]1      j1  w1  1  1                                                           WINDOWS _69E0TL6MI14141025841      1  	2  2  %2                                                           WINDOWS _69E0VBCFH14141025842      2  2  2  2                                                           WINDOWS _69E0VBCFI14141025843       3  -3  <3  I3                                                           WINDOWS _69E0TL6MI14141025843      3  3  3  3                                                           WINDOWS _69C0Y4L08141410258484      E4  R4  a4  n4                                                           WINDOWS _69E0TL6MI14141025844      4  4  4  5                                                           WINDOWS _69C0Y4L0J1414102584^5      k5  x5  5  5                                                           WINDOWS _69E0VBCG31414102584
6      6  $6  36  @6                                                           WINDOWS _69C0Y4L0814141025846      6  6  6  6                                                           WINDOWS _69E0VBCFJ1414102584/7      <7  I7  X7  e7                                                           WINDOWS _69C0Y4L0814141025847      7  7  7  7                                                           WINDOWS _69C0Y4L081414102584T8      a8  n8  }8  8                                                           WINDOWS _69E0TL6MI14141002738      8  9  9  9                                                           WINDOWS _69C0Y4L0G14141002739      9  9  9  9                                                           WINDOWS _69C0Y4L0H14141002736:      C:  P:  e:  r:                                                           WINDOWS _69E0VBCFV1414100273:      :  ;  ;  &;                                                           WINDOWS _69C0Y4L0C1414100273;      ;  ;  ;  ;                                                           WINDOWS _69C0Y4L0C1414100273S<      `<  m<  ~<  <                                                           WINDOWS _69C0Y4L0C1414100273<      
=  =  $=  1=                                                           WINDOWS _69C10IRCD1414101762=      =  =  =  =                                                           WINDOWS _69C0Y4L0J1414102584)>      6>  C>  Q>  ^>                                                           WINDOWS _69C0Y4L091414101762>      >  >  >  >                                                           WINDOWS _69C0Y4L0A1420580905F?      S?  `?  o?  |?                                                           WINDOWS _69C0ZSSPN1414101762?      ?  ?   @  
@                                                           WINDOWS _69C0Y4L091414102584g@      t@  @  @  @                                                           WINDOWS _69E0VBCFR1414101762@      A  A  !A  .A                                                           WINDOWS _69E0VBCFS1414102584A      A  A  A  A                                                           WINDOWS _69C0ZSSPN1414101762B      &B  3B  BB  OB                                                           WINDOWS _69C0Y4L091414102584B      B  B  B  B                                                           WINDOWS _69C0ZSSPN1414101762<C      IC  VC  eC  rC                                                           WINDOWS _69C0Y4L091414102584C      C  C  C  D                                                           WINDOWS _69E0VBCG51414101762_D      lD  yD  D  D                                                           WINDOWS _69E0VBCG61414102584D      D  
E  E  &E                                                           WINDOWS _69E0VBCG11414102584E      E  E  E  E                                                           WINDOWS _69E0VBCGI1414100273!F      .F  ;F  JF  WF                                                           WINDOWS _69E0VBCGJ1414100273F      F  F  F  F                                                           WINDOWS _69E0VBCGK1414100273rG      G  G  G  G                                                           WINDOWS _69E0VBCGL1414100273H      )H  6H  EH  RH                                                           WINDOWS _69E0VBCGM1414100273H      H  H  H  H                                                           WINDOWS _69E0VBCGN1414100273kI      xI  I  I  I                                                           WINDOWS _69E0VBCGR1418099692J      !J  .J  =J  JJ                                                           WINDOWS _69E0VBCGT1414100273J      J  J  J  J                                                           WINDOWS _69C0Y4L071414100273bK      oK  |K  K  K                                                           WINDOWS _69C0Y4L071418090249L      L  L  ,L  9L                                                           WINDOWS _69C0Y4L081414100273L      L  L  L  L                                                           WINDOWS _69E0TL6MI1414100273UM      bM  oM  ~M  M                                                           WINDOWS _69C0Y4L081414100273M      N  N  $N  1N                                                           WINDOWS _69C0Y4L071414100273N      N  N  N  N                                                           WINDOWS _69C0Y4L071418090249IO      VO  cO  rO  O                                                           WINDOWS _69C0Y4L081414100273O      O  	P  P  %P                                                           WINDOWS _69E0TL6MI1414100273P      P  P  P  P                                                           WINDOWS _69E0VBCG41414100273>Q      KQ  XQ  gQ  tQ                                                           WINDOWS _69C10IRCD1414100273Q      Q  Q  R  R                                                           WINDOWS _69C0Y4L0J1414100273R      R  R  R  R                                                           WINDOWS _69C0Z8WKQ1414100273$S      1S  >S  MS  ZS                                                           WINDOWS _69C0Y4L071414100273S      S  S  S  S                                                           WINDOWS _69C0Y4L071414100273|T      T  T  T  T                                                           WINDOWS _69E0VBCFW1414100273+U      8U  EU  TU  aU                                                           WINDOWS _69C0Y4L0J1414100273U      U  U  V  V                                                           WINDOWS _69C0Z8WKQ1414100273V      V  V  V  V                                                           WINDOWS _69C0Y4L0J1414100273"W      /W  <W  KW  XW                                                           WINDOWS _69C0Y4L071418090249W      W  W  W  W                                                           WINDOWS _69C0Y4L071414100273jX      wX  X  X  X                                                           WINDOWS _69C10IRCD1414100273X      
Y  Y  %Y  2Y                                                           WINDOWS _69C0Y4L0J1413973318Y      Y  Y  Y  Y                                                           WINDOWS _69C0Z8WKQ1533954624WZ      lZ  Z  Z  Z      2[  ^                                               WINDOWS _69C0ZSSPN1456434675ab      vb  b  b  b      2c                                                 WINDOWS _69C0Y4L0A1418090249v                  d                                                 WINDOWS _69C0Y4L0B1418090249                                                                   WINDOWS _69C0Y4L0C1418092672             -                                                       WINDOWS _69C0Y4L0D1418090249      
  )                                                    WINDOWS _69C0Y4L0E1418090249        %      
                                              WINDOWS _69C0Y4L0F1418090249              	                                              WINDOWS _69C0Y4L0G1456434867)     > S e r     #                                               WINDOWS _69C0Y4L0H1418090249             9                                               WINDOWS _69C0Y4L071415151379                                                               WINDOWS _69C10IRCK1418090249z             :                                               WINDOWS _69C10IRCL1418090249!     6 K [ h                                                    WINDOWS _69C0Y4L071414100273                                                                  WINDOWS _69E0TL6MI1414100273W     d q                                                            WINDOWS _69C0Y4L081414100273                                                                  WINDOWS _69C0ZSSPN1414102584y                                                                  WINDOWS _69C0Y4L0C1414102584	      # 2 ?                                                          WINDOWS _69C0Y4L0D1414100273                                                                  WINDOWS _69C0Y4L0E1414100273b     o |                                                            WINDOWS _69C0Y4L0F1414100273      " 0 =                                                          WINDOWS _69C0Y4L0B1414102584                                                                  WINDOWS _69E0VBCFU1414102584P     ] j y                                                           WINDOWS _69E0VBCFX1414100273                                                                  WINDOWS _69C0Y4L071414100273u                                                                  WINDOWS _69E0VBCFY1414100273E     R _ n {                                                          WINDOWS _69E0TL6MI1414100273      ,  9  H  U                                                           WINDOWS _69E0VBCG01414100273                                                                       WINDOWS _69C0Y4L071414100273E!     R! _! n! {!                                                          WINDOWS _69E0VBCG21414100273!     " " #" 0"                                                          WINDOWS _69C0Y4L071414102584"     " " " "                                                          WINDOWS _69E0TL6MI1414102584F#     S# `# o# |#                                                          WINDOWS _69C0Y4L071414102584#     # # $ $                                                          WINDOWS _69C0Y4L081414102584l$     y$ $ $ $                                                          WINDOWS _69E0VBCGO1414100273$     % % (% 5%                                                          WINDOWS _69E0VBCGP1414100273%     % % % %                                                          WINDOWS _69E0VBCGQ1414100273'&     4& A& P& ]&                                                          WINDOWS _69T0KM8SJ1418090249& & & & ' '     ( h-                                              WINDOWS _69C0Y4L0714180988251     1 1 1 1                                                          WINDOWS _6AY0WAX2X1418098825e2     r2 2 2 2                                                          WINDOWS _6AY0WHWO014180989983     3 &3 43 A3                                                          WINDOWS _6AY0X9SE914180996933     3 3 3 3                                                          WINDOWS _69E0TL6MS1418090249Y4     e4 q4 4 4     b; =                                              WINDOWS _69E0TL6MT1414100273@     @ @ @ @                                                          WINDOWS _69E0TL6MU1414157483)A     8A GA TA uA                                                          WINDOWS _69E0TL6MV1414100273A     B B B @B                                                          WINDOWS _69E0TL6MW1414098441xB     B B B B                                                          WINDOWS _69E0TL6MX14141002734C     BC PC _C C                                                          WINDOWS _69E0TL6MY1414158379C     C C C D                                                          WINDOWS _69E0TL6MZ1414100273D     D D D D                                                          WINDOWS _69E0TL6N01414157483E     E %E 2E SE                                                          WINDOWS _69E0TL6N11414100273E     E E E F                                                          WINDOWS _69E0TL6N21414157522VF     eF tF F F                                                          WINDOWS _69E0TL6N31414100273!G     /G =G LG mG                                                          WINDOWS _69E0TL6N41414157483G     G G G G                                                          WINDOWS _69E0TL6N51414100273pH     ~H H H H                                                          WINDOWS _69E0TL6N61414098441H     I I I @I                                                          WINDOWS _69E0TL6N71414100273I     I I I I                                                          WINDOWS _69E0TL6N814141574834J     CJ RJ _J J                                                          WINDOWS _69E0TL6N91414100273J     
K K *K KK                                                          WINDOWS _69E0TL6NA1414157483K     K K K K                                                          WINDOWS _69E0TL6NB1414100273NL     \L jL yL L                                                          WINDOWS _69E0TL6NC1414157483L     L L L  M                                                          WINDOWS _69E0TL6ND1414100273M     M M M M                                                          WINDOWS _69E0TL6NE1414098441$N     3N BN ON qN                                                          WINDOWS _69E0TL6NF1414100273N     N N O .O                                                          WINDOWS _69E0TL6NG1414157483fO     uO O O O                                                          WINDOWS _69E0TL6NH14141002732P     @P NP ]P P                                                          WINDOWS _69E0TL6NI1414157483P     P P P Q                                                          WINDOWS _69E0TL6NJ1414100273Q     Q Q Q Q                                                          WINDOWS _69E0TL6NK1414158403R     R &R 3R UR                                                          COMMENT RESERVED                                R                                                          R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 199
Left = 355
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR atzAgrid (sp0 C(2), sp1 C(60), sp2 C(12), sp3 C(10), sp4 C(12),sp5 C(12),sp6 C(12),sp7 C(12),sp8 C(12),sp9 C(12),sp10 C(12),sp11 C(12),sp12 C(12),sp13 C(12),sp14 C(12))
SELECT atzAgrid 
ENDPROC
     
                                 %                          U    h atzAgrid  C  C<  C  C
  C  C  C  C	  C
  C  C  C
  C  C  C F   U  ATZAGRID SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 SP10 SP11 SP12 SP13 SP14 BeforeOpenTables,     1 !q 1                              )                           1      1      form      form      FORM1      Height = 688
Width = 1034
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Altersteilzeit"
ControlBox = .F.
Closable = .F.
Icon = prgicons\haupticon.ico
AlwaysOnTop = .F.
Name = "FORM1"
     
PROCEDURE Destroy
SELECT atzAgrid 
USE

ENDPROC
PROCEDURE Init
myatzA = thisform
myatzwindow = thisform
myatzA.Visible = true

*myatzA.Top = 0 &&myform1.SSPanel2.Top
*myatzA.Height = _Screen.Height - 60 &&8820 &&8650
*myatzA.Left = 0 &&Screen.Width / 2 - 5750
*myatzA.Width = _Screen.Width &&11350
*Y = Fix((myatzA.Width - 50) / 13)

IF thisform.Top < 0
	thisform.Top = 0
ENDIF
IF thisform.left < 0
	thisform.left = 0
ENDIF
IF thisform.width > screenmaxb
	thisform.width = screenmaxb
endif
IF thisform.height > screenmaxh
	thisform.height = screenmaxh
ENDIF

register = 199

*!*	thisform.msflexgrid1.Width = thisform.Width - 20
*!*	thisform.msflexgrid1.height = thisform.height - 50

thisform.durchrechnen.click

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

*thisform.resize
thisform.autocenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.durchrechnen.click

*!*	IF thisform.width - 12 > thisform.grdatzAgrid.width
*!*		thisform.grdatzAgrid.width = thisform.width -12
*!*	ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

*!*	prozsp1 =  26 / 1020
*!*	prozsp2 =  260 / 1020
*!*	prozsp3 =  61 / 1020
*!*	prozsp4 =  2 / 1020
*!*	prozsp5 =  75 / 1020

thisform.grdatzAgrid.Width = thisform.shape74.Left + thisform.shape74.Width - thisform.grdatzAgrid.left - 1

thisform.grdatzAgrid.column1.Width = thisform.shape51.width
thisform.grdatzAgrid.column2.Width = thisform.shape52.width
thisform.grdatzAgrid.column3.Width = thisform.shape53.width
thisform.grdatzAgrid.column4.Width = thisform.shape49.width
thisform.grdatzAgrid.column5.Width = thisform.shape48.width
thisform.grdatzAgrid.column6.Width = thisform.shape47.width
thisform.grdatzAgrid.column7.Width = 1
thisform.grdatzAgrid.column8.Width = thisform.shape56.width
thisform.grdatzAgrid.column9.Width = thisform.shape59.width
thisform.grdatzAgrid.column10.Width = thisform.shape62.width
thisform.grdatzAgrid.column11.Width = 1
thisform.grdatzAgrid.column12.Width = thisform.shape65.width
thisform.grdatzAgrid.column13.Width = thisform.shape68.width
thisform.grdatzAgrid.column14.Width = thisform.shape71.width


thisform.grdatzAgrid.column1.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column2.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column3.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column4.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column5.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column6.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column7.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column8.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column9.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column10.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column11.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column12.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column13.text1.FontSize = thisform.grdatzAgrid.column1.fontsize
thisform.grdatzAgrid.column14.text1.FontSize = thisform.grdatzAgrid.column1.fontsize

thisform.grdAtzagrid.refresh
ENDPROC
                                      %         >  >               U    F   Q U  ATZAGRID0
 T   
 T   T     %   
N  T     %   
v  T     %     T     % 	 
   T 	 
  
 T 
   
 
     T 	  	   T      T  a U  MYATZA THISFORM MYATZWINDOW VISIBLE TRUE TOP LEFT WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH REGISTER DURCHRECHNEN CLICK SIZER SAVEFORMSIZE MSCREENFAKTOR_H
 AUTOCENTER C    
     " %          O  T    1 T   	   
    
 	      T    	   
 	  T    	    	  T    	    	  T    	    	  T    	    	  T    	    	  T    	  T    	    	  T    	    	  T    	    	  T    	  T     	   ! 	  T   " 	   # 	  T   $ 	   % 	 " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T    & '     ' " T     & '     ' " T   " & '     ' " T   $ & '     ' 
    (  U)  THISFORM SIZER	 FRMRESIZE DURCHRECHNEN CLICK TOP HEIGHT
 SCREENMAXH GRDATZAGRID WIDTH SHAPE74 LEFT COLUMN1 SHAPE51 COLUMN2 SHAPE52 COLUMN3 SHAPE53 COLUMN4 SHAPE49 COLUMN5 SHAPE48 COLUMN6 SHAPE47 COLUMN7 COLUMN8 SHAPE56 COLUMN9 SHAPE59 COLUMN10 SHAPE62 COLUMN11 COLUMN12 SHAPE65 COLUMN13 SHAPE68 COLUMN14 SHAPE71 TEXT1 FONTSIZE REFRESH Destroy,      InitH      Resize-    1 q A 3   HA AA AA AA    rq 2  &A aa#!!!!!!!!!!!!! 1                       *         E             
  -    )                           shape      shape      Shape52      FORM1      UTop = 157
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape52"
      shape      shape      Shape11      FORM1      TTop = 37
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape11"
      label      label      anatv      FORM1      bAlignment = 0
Caption = "anatv"
Height = 16
Left = 49
Top = 160
Width = 250
Name = "anatv"
      shape      shape      Shape18      FORM1      TTop = 97
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape18"
      shape      shape      Shape22      FORM1      TTop = 77
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape22"
      shape      shape      Shape38      FORM1      UTop = 117
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape38"
      shape      shape      Shape45      FORM1      UTop = 137
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape45"
      shape      shape      Shape7      FORM1      STop = 57
Left = 44
Height = 22
Width = 260
SpecialEffect = 0
Name = "Shape7"
      label      label      Label49      FORM1      hAlignment = 2
Caption = "Teilzeit-"
Height = 16
Left = 934
Top = 140
Width = 69
Name = "Label49"
      shape      shape      Shape32      FORM1      TTop = 97
Left = 779
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape32"
      shape      shape      Shape63      FORM1      UTop = 117
Left = 779
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape63"
      shape      shape      Shape64      FORM1      UTop = 137
Left = 779
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape64"
      shape      shape      Shape65      FORM1      UTop = 157
Left = 779
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape65"
      shape      shape      Shape66      FORM1      UTop = 117
Left = 855
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape66"
      shape      shape      Shape67      FORM1      UTop = 137
Left = 855
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape67"
      shape      shape      Shape68      FORM1      UTop = 157
Left = 855
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape68"
      shape      shape      Shape69      FORM1      UTop = 117
Left = 931
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape69"
      shape      shape      Shape70      FORM1      UTop = 137
Left = 931
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape70"
      shape      shape      Shape71      FORM1      UTop = 157
Left = 931
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape71"
      label      label      Label34      FORM1      kAlignment = 2
Caption = "vom Teilzeit"
Height = 16
Left = 551
Top = 140
Width = 69
Name = "Label34"
      label      label      Label36      FORM1      kAlignment = 2
Caption = "pauschliert."
Height = 16
Left = 627
Top = 120
Width = 72
Name = "Label36"
      shape      shape      Shape15      FORM1      TTop = 97
Left = 548
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape15"
      shape      shape      Shape54      FORM1      UTop = 117
Left = 548
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape54"
      shape      shape      Shape55      FORM1      UTop = 137
Left = 548
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape55"
      shape      shape      Shape56      FORM1      UTop = 157
Left = 548
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape56"
      shape      shape      Shape57      FORM1      UTop = 117
Left = 625
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape57"
      shape      shape      Shape58      FORM1      UTop = 137
Left = 625
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape58"
      shape      shape      Shape59      FORM1      UTop = 157
Left = 625
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape59"
      shape      shape      Shape60      FORM1      UTop = 117
Left = 703
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape60"
      shape      shape      Shape61      FORM1      UTop = 137
Left = 703
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape61"
      shape      shape      Shape62      FORM1      UTop = 157
Left = 703
Height = 22
Width = 75
SpecialEffect = 0
Name = "Shape62"
      label      label      Label29      FORM1      _Alignment = 2
Caption = ""
Height = 16
Left = 473
Top = 160
Width = 69
Name = "Label29"
      shape      shape      Shape31      FORM1      UTop = 117
Left = 469
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape31"
      label      label      Label25      FORM1      eAlignment = 2
Caption = "arbeit"
Height = 16
Left = 473
Top = 140
Width = 69
Name = "Label25"
      shape      shape      Shape24      FORM1      TTop = 97
Left = 469
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape24"
      shape      shape      Shape25      FORM1      TTop = 97
Left = 408
Height = 22
Width = 60
SpecialEffect = 0
Name = "Shape25"
      shape      shape      Shape13      FORM1      TTop = 77
Left = 469
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape13"
      shape      shape      Shape26      FORM1      TTop = 77
Left = 408
Height = 22
Width = 60
SpecialEffect = 0
Name = "Shape26"
      shape      shape      Shape34      FORM1      UTop = 117
Left = 408
Height = 22
Width = 60
SpecialEffect = 0
Name = "Shape34"
      shape      shape      Shape40      FORM1      UTop = 137
Left = 469
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape40"
      shape      shape      Shape41      FORM1      UTop = 137
Left = 408
Height = 22
Width = 60
SpecialEffect = 0
Name = "Shape41"
      shape      shape      Shape47      FORM1      nTop = 157
Left = 469
Height = 22
Width = 77
SpecialEffect = 0
BackColor = 240,240,240
Name = "Shape47"
      shape      shape      Shape48      FORM1      UTop = 157
Left = 408
Height = 22
Width = 60
SpecialEffect = 0
Name = "Shape48"
      shape      shape      Shape14      FORM1      TTop = 97
Left = 330
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape14"
      shape      shape      Shape27      FORM1      TTop = 77
Left = 330
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape27"
      shape      shape      Shape35      FORM1      UTop = 117
Left = 330
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape35"
      shape      shape      Shape42      FORM1      UTop = 137
Left = 330
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape42"
      label      label      Label30      FORM1      _Alignment = 2
Caption = ""
Height = 16
Left = 334
Top = 160
Width = 69
Name = "Label30"
      label      label      personalfall      FORM1      oAlignment = 0
Caption = "Personalfall"
Height = 16
Left = 49
Top = 40
Width = 250
Name = "personalfall"
      label      label      
entgeltgruppe      FORM1      qAlignment = 0
Caption = "Entgeltgruppe"
Height = 16
Left = 49
Top = 60
Width = 250
Name = "entgeltgruppe"
      label      label      steuerklasse      FORM1      oAlignment = 0
Caption = "steuerklasse"
Height = 16
Left = 49
Top = 80
Width = 250
Name = "steuerklasse"
      label      label      
kirchensteuer      FORM1      rAlignment = 0
Caption = "kirchensteuer"
Height = 16
Left = 49
Top = 100
Width = 250
Name = "kirchensteuer"
      label      label      	kvbeitrag      FORM1      jAlignment = 0
Caption = "kvbeitrag"
Height = 16
Left = 49
Top = 120
Width = 250
Name = "kvbeitrag"
      label      label      agatv      FORM1      bAlignment = 0
Caption = "agatv"
Height = 16
Left = 49
Top = 140
Width = 250
Name = "agatv"
      shape      shape      Shape5      FORM1      QTop = 57
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape5"
      shape      shape      Shape6      FORM1      RTop = 57
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape6"
      shape      shape      Shape9      FORM1      QTop = 37
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape9"
      shape      shape      Shape10      FORM1      STop = 37
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape10"
      shape      shape      Shape16      FORM1      RTop = 97
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape16"
      shape      shape      Shape17      FORM1      STop = 97
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape17"
      shape      shape      Shape20      FORM1      RTop = 77
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape20"
      shape      shape      Shape21      FORM1      STop = 77
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape21"
      shape      shape      Shape36      FORM1      STop = 117
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape36"
      shape      shape      Shape37      FORM1      TTop = 117
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape37"
      shape      shape      Shape43      FORM1      STop = 137
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape43"
      shape      shape      Shape44      FORM1      TTop = 137
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape44"
      shape      shape      Shape50      FORM1      STop = 157
Left = 6
Height = 22
Width = 12
SpecialEffect = 0
Name = "Shape50"
      shape      shape      Shape51      FORM1      TTop = 157
Left = 18
Height = 22
Width = 26
SpecialEffect = 0
Name = "Shape51"
      label      label      Label9      FORM1      bAlignment = 2
Caption = "20 %"
Height = 16
Left = 782
Top = 101
Width = 67
Name = "Label9"
      label      label      Label42      FORM1      jAlignment = 2
Caption = "Aufstockung"
Height = 16
Left = 782
Top = 120
Width = 69
Name = "Label42"
      label      label      Label43      FORM1      kAlignment = 2
Caption = "vom Teilzeit"
Height = 16
Left = 782
Top = 140
Width = 69
Name = "Label43"
      label      label      Label44      FORM1      lAlignment = 2
Caption = "Bruttoentgelt"
Height = 16
Left = 782
Top = 160
Width = 69
Name = "Label44"
      label      label      Label45      FORM1      kAlignment = 2
Caption = "pauschliert."
Height = 16
Left = 857
Top = 120
Width = 72
Name = "Label45"
      label      label      Label46      FORM1      hAlignment = 2
Caption = "Vollzeit-"
Height = 16
Left = 857
Top = 140
Width = 69
Name = "Label46"
      label      label      Label47      FORM1      kAlignment = 2
Caption = "Nettoentgelt"
Height = 16
Left = 857
Top = 160
Width = 69
Name = "Label47"
      label      label      Label48      FORM1      gAlignment = 2
Caption = "fiktives"
Height = 16
Left = 934
Top = 120
Width = 69
Name = "Label48"
      label      label      Label50      FORM1      kAlignment = 2
Caption = "Nettoentgelt"
Height = 16
Left = 934
Top = 160
Width = 69
Name = "Label50"
      label      label      Label18      FORM1      cAlignment = 2
Caption = "20 %"
Height = 16
Left = 552
Top = 100
Width = 69
Name = "Label18"
      label      label      Label33      FORM1      jAlignment = 2
Caption = "Aufstockung"
Height = 16
Left = 551
Top = 120
Width = 69
Name = "Label33"
      label      label      Label35      FORM1      lAlignment = 2
Caption = "Bruttoentgelt"
Height = 16
Left = 551
Top = 160
Width = 69
Name = "Label35"
      label      label      Label37      FORM1      hAlignment = 2
Caption = "Vollzeit-"
Height = 16
Left = 627
Top = 140
Width = 69
Name = "Label37"
      label      label      Label38      FORM1      kAlignment = 2
Caption = "Nettoentgelt"
Height = 16
Left = 627
Top = 160
Width = 69
Name = "Label38"
      label      label      Label39      FORM1      gAlignment = 2
Caption = "fiktives"
Height = 16
Left = 703
Top = 120
Width = 69
Name = "Label39"
      label      label      Label40      FORM1      hAlignment = 2
Caption = "Teilzeit-"
Height = 16
Left = 703
Top = 140
Width = 69
Name = "Label40"
      label      label      Label41      FORM1      kAlignment = 2
Caption = "Nettoentgelt"
Height = 16
Left = 703
Top = 160
Width = 69
Name = "Label41"
      label      label      Label21      FORM1      hAlignment = 2
Caption = "teilzeit-"
Height = 16
Left = 473
Top = 120
Width = 69
Name = "Label21"
      label      label      Label31      FORM1      _Alignment = 2
Caption = ""
Height = 16
Left = 411
Top = 160
Width = 54
Name = "Label31"
      label      label      Label13      FORM1      fAlignment = 2
Caption = "Alters-"
Height = 16
Left = 473
Top = 100
Width = 69
Name = "Label13"
      label      label      Label8      FORM1      hAlignment = 2
Caption = "bisherigem"
Height = 16
Left = 334
Top = 100
Width = 69
Name = "Label8"
      label      label      Label15      FORM1      cAlignment = 2
Caption = "zeit"
Height = 16
Left = 411
Top = 100
Width = 54
Name = "Label15"
      label      label      Label7      FORM1      zAutoSize = .F.
Alignment = 2
Caption = "fr Arbeit in"
Height = 17
Left = 334
Top = 79
Width = 69
Name = "Label7"
      label      label      Label12      FORM1      qAutoSize = .F.
Alignment = 2
Caption = "fr"
Height = 17
Left = 473
Top = 79
Width = 69
Name = "Label12"
      label      label      Label14      FORM1      sAutoSize = .F.
Alignment = 2
Caption = "Teil-"
Height = 17
Left = 411
Top = 79
Width = 54
Name = "Label14"
      label      label      Label22      FORM1      eAlignment = 2
Caption = "Umfang"
Height = 16
Left = 334
Top = 120
Width = 69
Name = "Label22"
      label      label      Label23      FORM1      eAlignment = 2
Caption = "Anteil"
Height = 16
Left = 411
Top = 120
Width = 54
Name = "Label23"
      label      label      Label26      FORM1      iAlignment = 2
Caption = "(Vollzeit)"
Height = 16
Left = 334
Top = 140
Width = 69
Name = "Label26"
      label      label      Label27      FORM1      cAlignment = 2
Caption = "in %"
Height = 16
Left = 411
Top = 140
Width = 54
Name = "Label27"
      shape      shape      Shape28      FORM1      UTop = 77
Left = 548
Height = 22
Width = 230
SpecialEffect = 0
Name = "Shape28"
      shape      shape      Shape1      FORM1      QTop = 2
Left = 7
Height = 34
Width = 270
SpecialEffect = 0
Name = "Shape1"
      label      label      Label1      FORM1      Caption = "Das vorgegebene Passwort lautet:"
Height = 16
Left = 726
Top = 627
Visible = .F.
Width = 228
TabIndex = 140
Name = "Label1"
      
commandbutton      
commandbutton      
printformx      FORM1      Top = 674
Left = 105
Height = 13
Width = 63
Caption = "printform"
Enabled = .F.
TabIndex = 162
Visible = .F.
Name = "printformx"
     gPROCEDURE Click
hinweis("Stellen Sie den Druck auf QUERFORMAT!")

hsxdir = eigdat + muser + "\Images"
If .Not. Dir("&hsxdir",vbdirectory) &&= mUser  
	mydir = eigdat + muser + "\Images"
	Mkdir "&mydir"
ENDIF

oldselect = SELECT(0)

hsxprint = eigdat + muser + "\images\" + SUBSTR(muser,2) + "_MyImage.JPG" &&ndern 2026


CLEAR RESOURCES "&hsxprint"
hsxprog = eigdat + "\system.app"

DO "&hsxprog"
loImage = _SCREEN.System.Drawing.Bitmap.FromScreen(thisform.Hwnd)

loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
*thisform.image1.Picture = "c:\pc-gehalt\images\MyImage.JPG"
CREATE CURSOR screenshot (feld1 C(200))
SELECT screenshot
APPEND blank
flush
replace feld1 with "&hsxprint"
FLUSH
GO top

REPORT FORM PCG_printform next 1 NOCONSOLE TO printer prompt

SELECT screenshot
USE

SELECT(oldselect)
ENDPROC
                                   ;   %         V     "            U  >2 C% Stellen Sie den Druck auf QUERFORMAT!   T    \Images, If .Not. Dir("&hsxdir",vbdirectory)   T    \Images Mkdir "&mydir"
  T C W6 T    \images\C \ _MyImage.JPG CLEAR RESOURCES "&hsxprint"
 T   \system.app DO "&hsxprog"
 T C
  9	 
   N loImage.Save("&hsxprint", _SCREEN.System.Drawing.Imaging.ImageFormat.JPEG)
" h
 screenshot  C F   [" replace feld1 with "&hsxprint"
 [ #) ?
 PCG_printform(!"9 F  Q
 F  U  HINWEIS HSXDIR EIGDAT MUSER MYDIR	 OLDSELECT HSXPRINT HSXPROG LOIMAGE SYSTEM DRAWING BITMAP
 FROMSCREEN THISFORM HWND
 SCREENSHOT FELD1
 PCG_PRINTFORM Click,     1 !!A  b"q Q A !A Q r A  1                       \      )                           
commandbutton      
commandbutton      durchrechnen      FORM1      ~Top = 674
Left = 3
Height = 13
Width = 100
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     IwPROCEDURE Click
With myatzA.SSScroll1
	.Max = 100
	.Min = 69
	.Value = altersprozenta
ENDWITH 

myatzA.Text1.Visible = false

SELECT atzAgrid
SET FILTER TO 
SET SAFETY OFF
ZAP
FOR hsa = 1 TO 50 - 7
	APPEND BLANK
	FLUSH
next
SET SAFETY ON

SELECT atzAgrid
	For j = 8 To 50 && - 7 &&lfd. Zeilennummer
*!*			.Row = j
		GOTO j - 7
*!*			.CellAlignment = 4
		If j < 21
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 7,2,0))
			flush
*!*				.Text = j - 7
		Endif

		If j > 21
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 8,2,0))
			flush		
*!*				.Text = j - 8
		Endif

		If j > 23
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 9,2,0))
			flush			
*!*				.Text = j - 9
		Endif

		If j > 33
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 10,2,0))
			flush			
*!*				.Text = j - 10
		Endif

		If j = 43
			replace atzAgrid.sp0 WITH "33"
			flush			
*!*				.Text = 33
		Endif

		If j > 43
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 11,2,0))
			flush			
*!*				.Text = j - 11
		Endif

		If j > 48
			replace atzAgrid.sp0 WITH ALLTRIM(STR(j - 12,2,0))
			flush			
*!*				.Text = j - 12
		Endif
	Next


		If altersprozenta = 83
			xText = "Altersteilzeitgehalt nach dem TV ATZ vom 5.5.1998 i.d.F. vom 15.3.1999"
		Else
			xText = "Altersteilzeitgehalt mit Mindestnettogehalt von " + ALLTRIM(STR(altersprozenta,10,0)) + " %"
		Endif

	thisform.atztitel.Caption = xText
	

		thisform.personalfall.Caption = myform1.z0.Caption
		thisform.entgeltgruppe.Caption = myform1.z5.Caption
		thisform.steuerklasse.Caption = Alltrim(myform1.z50.Caption) + "   " + Alltrim(myform1.z51.Caption)
		thisform.kirchensteuer.Caption = myform1.z36.Caption
		thisform.kvbeitrag.Caption = Alltrim(myform1.z52.Caption) + " " + Alltrim(myform1.z53.Caption)
		thisform.agatv.Caption = "AG-Anteil ATV-Betriebsrente " + ALLTRIM(STR(zvkumlageag,10,3)) + " %"
		xtext = ""
		Do Case && zi(1+41)
			Case zi(1+41) < 401
				xText = "AN-Anteil ATV-Betriebsrente " + ALLTRIM(STR(zi(1+41) / 100,10,2)) + " %" &&mystring(9, " ") +  &&(zvkumlagefix - zvkumlageag) + " %"
			Case  Inlist(zi(1+41), 401, 402)
				xText = "AN-Anteil ATV-Betriebsrente lt.Eing." &&mystring(9, " ") +  &&(zvkumlagefix - zvkumlageag) + " %"
			Case zi(1+41) = 403
				xText = "RG-Beitrag in Hamb. 1,25 %" &&mystring(9, " ") + 
			Case zi(1+41) > 403 &&absturz bei tv-l
				xText = "AN-Anteil ATV-Betriebsrente " + ALLTRIM(STR(zi(1+41) / 100,10,2)) + " %" &&mystring(9, " ") +  &&(zvkumlagefix - zvkumlageag) + " %"
		ENDCASE
		thisform.anatv.Caption = xText
	
	If zi(1+4) = 32
		&&11 Then
		thisform.label9.Caption = "34 %"
	Else
		thisform.label9.Caption  = "20 %"
	ENDIF
	

		GOTO 8 -7
*!*		.Text = myform1.z7.Caption
		replace atzAgrid.sp1 WITH myform1.z7.Caption
		flush

	For i = 9 To 20
*!*			.Row = i
		GOTO i -7
		xxx="z"+ALLTRIM(STR(i - 1,2,0))
*!*			.Text = " + " + myform1.&xxx..Caption + " :" &&hs myform1.z(i - 1).Caption + " :"
		replace atzAgrid.sp1 WITH " + " + myform1.&xxx..Caption + " :"
		flush
	Next

*!*		.Col = 2
	
	For i = 8 To 20
*!*			.Row = i
		GOTO i - 7
*!*			.CellAlignment = 4
		xtext = ""
		Do Case && bruz(i - 1)
			Case bruz(i - 1) = 0
				xText = "A"
			Case bruz(i - 1) = 1
				xText = "B"
			Case bruz(i - 1) = 2
				xText = "C"
			Case bruz(i - 1) = 3
				xText = "D"
			Case bruz(i - 1) = 4
				xText = "E"
			Case bruz(i - 1) = 5
				xText = "F"
			Case bruz(i - 1) = 6
				xText = "a"
			Case bruz(i - 1) = 7
				xText = "b"
			Case bruz(i - 1) = 8
				xText = "c"
			Case bruz(i - 1) = 9
				xText = "d"
			Case bruz(i - 1) = 10
				xText = "e"
			Case bruz(i - 1) = 11
				xText = "f"
			Case bruz(i - 1) = 12
				xText = "g"
		ENDCASE
		
		replace atzAgrid.sp2 WITH xtext
		FLUSH
		
	NEXT
	

	For j = 1 To 2
*!*			.Col = j
		yyy = "sp"+ALLTRIM(STR(j,2,0))
*!*			.Row = 21
		GOTO 21 - 7
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.Text = " "
*!*			.Row = 22
		GOTO 22 - 7
*!*			.Text = " = " + myform1.z20.Caption
		replace atzAgrid.&yyy WITH " = " + myform1.z20.Caption
		flush
*!*			.Row = 23
		GOTO 23 - 7
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.Row = 24
		GOTO 24 - 7
*!*			.Text = mystring(20, " ") + "Steuerpflichtige Sachbezge"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerpflichtige Sachbezge"
		flush
*!*			.Row = 25
		GOTO 25 - 7
		If zi(1+23) = 0
*!*				.Text = mystring(20, " ") + "Steuerfreibetrag"
			replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerfreibetrag"
			flush
		Else
*!*				.Text = mystring(20, " ") + "Steuerl. Hinzurechnungsbetrag"
			replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerl. Hinzurechnungsbetrag"
			flush
		Endif

*!*			.Row = 26
		GOTO 26 - 7
*!*			.Text = mystring(20, " ") + "ATV-pfl. Entgelt"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "ATV-pfl. Entgelt"
		flush
*!*			.Row = 27
		GOTO 27 - 7
*!*			.Text = mystring(20, " ") + "ATV-Umlage des AG"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "ATV-Umlage des AG"
		flush
*!*			.Row = 28
		GOTO 28 - 7
*!*			.Text = mystring(25, " ") + "davon steuerpfl. beim AN"
		replace atzAgrid.&yyy WITH mystring(25, " ") + "davon steuerpfl. beim AN"
		flush
*!*			.Row = 29
		GOTO 29 - 7
*!*			.Text = mystring(25, " ") + "davon soz.vers.pflichtig"
		replace atzAgrid.&yyy WITH mystring(25, " ") + "davon soz.vers.pflichtig"
		flush
*!*			.Row = 30
		GOTO 30 - 7
*!*			.Text = mystring(20, " ") + "Steuerpfl. Entgelt"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerpfl. Entgelt"
		flush
*!*			.Row = 31
		GOTO 31 - 7
*!*			.Text = mystring(20, " ") + "SV-beitragspfl. Entgelt"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "SV-beitragspfl. Entgelt"
		flush
*!*			.Row = 32
		GOTO 32 - 7
*!*			.Text = mystring(20, " ") + "mageblicher Betrag"
		replace atzAgrid.&yyy WITH mystring(20, " ") + "mageblicher Betrag"
		flush
*!*			.Row = 33
		GOTO 33 - 7
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.Row = 34
		GOTO 34 - 7
*!*			.Text = " - " + Alltrim(myform1.z50.Caption) + " " + Alltrim(myform1.z51.Caption) + " :"
		replace atzAgrid.&yyy WITH " - " + Alltrim(myform1.z50.Caption) + " " + Alltrim(myform1.z51.Caption) + " :"
		flush
*!*			.Row = 35
		GOTO 35 - 7
*!*			.Text = " - " + myform1.z35.Caption + " :"
		replace atzAgrid.&yyy WITH " - " + myform1.z35.Caption + " :"
		flush
*!*			.Row = 36
		GOTO 36 - 7
*!*			.Text = " - KiSt. 8 % bzw. " + myform1.z36.Caption
		replace atzAgrid.&yyy WITH " - KiSt. 8 % bzw. " + myform1.z36.Caption
		flush
*!*			.Row = 37
		GOTO 37 - 7
*!*			.Text = " - KV=14,30%/2 bzw. " + myform1.z53.Caption
		replace atzAgrid.&yyy WITH " - KV=14,30%/2 bzw. " + myform1.z53.Caption
		flush
		
		For i = 38 To 40
*!*				.Row = i
			GOTO i - 7
			xxx="z"+ALLTRIM(STR(i,2,0))
*!*				.Text = " - " + myform1.&xxx..Caption
			replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption)
			IF i = 38
				kianzabzPV = "" &&PVNEU
				IF wvw.reserve5 > 0
					kianzabzPV = " -  PV Ki. " + ALLTRIM(STR(wvw.reserve5 * 0.25,4,2)) + "%"
				endif	
				replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption) + " " + kianzabzPV		
			ELSE
				replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption)				
			endif
			flush
		NEXT
		
		
*!*			.Row = 41
		GOTO 41 - 7
*!*			.Text = " - " + myform1.z41.Caption
		replace atzAgrid.&yyy WITH " - " + myform1.z41.Caption
		FLUSH
		
*!*			.Row = 42
		GOTO 42 - 7
		If j = 1
*!*				.Text = " - " + myform1.z26.Caption
			replace atzAgrid.sp1 WITH " - " + myform1.z26.Caption
			flush
		Endif

*!*			.Row = 43
		GOTO 43 - 7
*!*			.Text = " = NETTOGEHALT" + " :"
		replace atzAgrid.&yyy WITH " = NETTOGEHALT" + " :"
		flush
*!*			.Row = 44
		GOTO 44 - 7
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.Row = 45
		GOTO 45 - 7
*!*			.Text = " + 20 %-Aufstockung v.Teilzeit-Bruttogehalts (AtG)"
		replace atzAgrid.&yyy WITH " + 20 %-Aufstockung v.Teilzeit-Bruttogehalts (AtG)"
		flush
*!*			.Row = 46
		GOTO 46 - 7
*!*			.Text = " + Aufstockung -> 70% d. Vollzeit-Nettogehalts(AtG)"
		replace atzAgrid.&yyy WITH " + Aufstockung -> 70% d. Vollzeit-Nettogehalts(AtG)"
		flush
*!*			.Row = 47
		GOTO 47 - 7
*!*			.Text = " + Aufstockung -> " + ALLTRIM(STR(altersprozenta,10,3)) + "% d. Vollzeit-Nettogehalts (TV)"
		replace atzAgrid.&yyy WITH " + Aufstockung -> " + ALLTRIM(STR(altersprozenta,10,3)) + "% d. Vollzeit-Nettogehalts (TV)"
		flush
*!*			.Row = 48
		GOTO 48 - 7
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.Row = 49
		GOTO 49 - 7
*!*			.Text = " = A U S Z A H L U N G"
		replace atzAgrid.&yyy WITH " = A U S Z A H L U N G"
		flush
	Next

	&&Spaltenweises anzeigen
	For i = 3 To 13
*!*			.Col = i
		yyy = "sp"+ALLTRIM(STR(i,2,0))
		Do Case && i
			Case (i >= 3 .And. i <= 5) .Or. (i >= 7 .And. i <= 9) .Or. (i >= 11 .And. i <= 13)
				Do Case && i
					Case i = 3
						k = 1
					Case i = 4
						k = 2
					Case i = 5
						k = 3
					Case i = 7
						k = 4
					Case i = 8
						k = 5
					Case i = 9
						k = 6
					Case i = 11
						k = 7
					Case i = 12
						k = 8
					Case i = 13
						k = 9
				ENDCASE
				
				For j = 8 To 20
*!*						.Row = j
					GOTO j - 7
					If k = 2
*!*							.Text = myformat(sicht(1+k,1+ j - 8) / 100, "###,##0") &&+ " %"
						replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 8) / 100, "###") &&+ " %"
					Else
						If k = 8 .Or. k = 12
*!*								.Text = " " + myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
							replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
						Else
*!*								.Text = myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
							replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
						Endif
					ENDIF
					flush
				Next

*!*					.Row = 22
				GOTO 22 - 7
				
				If k = 2
				Else
					If k > 2
*!*							.Text = myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
						replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
					Else
*!*							.Text = " " + myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
						replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
					Endif
					flush
				Endif
				
				For j = 24 To 32
*!*						.Row = j
					GOTO j - 7
					If i = 8 .Or. i = 12
*!*							.Text = " " + myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
						replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
					Else
*!*							.Text = myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
						replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
					ENDIF
					flush
				Next

				For j = 34 To 41
*!*						.Row = j
					GOTO j - 7
					Do Case && .Col
						Case i = 8
							Do Case && .Row
								Case j = 34
*!*										.Text = "laut"
									replace atzAgrid.&yyy WITH "laut"
								Case j = 35
*!*										.Text = "Mindest-"
									replace atzAgrid.&yyy WITH "Mindest-"
								Case j = 36
*!*										.Text = "netto-"
									replace atzAgrid.&yyy WITH "netto-"
								Case j = 37
*!*										.Text = "entgelt-"
									replace atzAgrid.&yyy WITH "entgelt-"
								Case j = 38
*!*										.Text = "tabelle"
									replace atzAgrid.&yyy WITH "tabelle"
								Case j = 39
*!*										.Text = "2008"
									replace atzAgrid.&yyy WITH "2008"
								Case j = 40
*!*										.Text = ""
									replace atzAgrid.&yyy WITH ""
								Case j = 41
*!*										.Text = ""
									replace atzAgrid.&yyy WITH ""
							ENDCASE
							FLUSH
							
						Case i = 12
							&&If sicht(1+8,1+ 22) > 530000 Then
							&&     .Text = myformat(sicht(1+k,1+ j - 11) / 100, "###,##0.00")
							&&Else
							Do Case && .Row
								Case j = 34
*!*										.Text = "lt.Mindest-"
									replace atzAgrid.&yyy WITH "lt.Mindest-"
								Case j = 35
*!*										.Text = "nettoentgelt-"
									replace atzAgrid.&yyy WITH "nettoentgelt-"
								Case j = 36
*!*										.Text = "tababelle "
									replace atzAgrid.&yyy WITH "tababelle "
								Case j = 37
*!*										.Text = "fr 83 %"
									replace atzAgrid.&yyy WITH "fr 83 %"
								Case j = 38
*!*										.Text = "(GMBl.2005,"
									replace atzAgrid.&yyy WITH "(GMBl.2005,"
								Case j = 39
*!*										.Text = "Seite107,"
									replace atzAgrid.&yyy WITH "Seite107,"
								Case j = 40
*!*										.Text = "die immer"
									replace atzAgrid.&yyy WITH "die immer"
								Case j = 41
*!*										.Text = "noch gilt)"
									replace atzAgrid.&yyy WITH "noch gilt)"
							ENDCASE
							flush
							&&End If
						Case (i >= 0 .And. i <= 7) .Or. (i >= 9 .And. i <= 11) .Or. i =  13
							&&.Text = " " + myformat(sicht(1+k,1+ j - 11) / 100, "###,##0.00")
							&&Else
*!*								.Text = myformat(sicht(1+k,1+ j - 11) / 100, "###,##0.00")
							replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 11) / 100, "###,##0.00")
							flush
					Endcase
				Next

*!*					.Row = 42
				GOTO 42 - 7
				If i = 8 .Or. i = 12
*!*						.Text = ""
					replace atzAgrid.&yyy WITH ""
				Else
*!*						.Text = myformat(sicht(1+k,1+ 37) / 100, "###,##0.00")
					replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 37) / 100, "###,##0.00")
				ENDIF
				flush
				
*!*					.Row = 43
				GOTO 43 - 7
*!*					.Text = myformat(sicht(1+k,1+ 31) / 100, "###,##0.00")
				replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 31) / 100, "###,##0.00")
				flush
				
				If i = 12
*!*						.Text = myformat(sicht(1+k,1+ 31) / 83, "###,##0.00")
					replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 31) / 83, "###,##0.00")
					flush
				Endif

				For j = 45 To 47
*!*						.Row = j
					GOTO j - 7
*!*						.Text = myformat(sicht(1+k,1+ j - 13) / 100, "###,##0.00")
					replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 13) / 100, "###,##0.00")
					flush
				Next

*!*					.Row = 49
				GOTO 49 - 7
*!*					.Text = myformat(sicht(1+k,1+ 35) / 100, "###,##0.00")
				replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 35) / 100, "###,##0.00")
				flush
		Endcase
	NEXT

yyy = "sp2" &&meine reparatur von spalte sp2
FOR j = 14 TO RECCOUNT()
	GOTO j
	replace atzAgrid.&yyy WITH " "
	FLUSH
next	
*!*		.Col = 3
	yyy = "sp3"
	For i = 45 To 49
*!*			.Row = i
		GOTO i - 7
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	Next

*!*		.Col = 4
	yyy = "sp4"
	For i = 22 To 49
*!*			.Row = i
			GOTO i - 7
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush
	Next

*!*		.Row = 32
	GOTO 32 - 7
	For i = 3 To 5
*!*			.Col = i
		yyy = "sp" + ALLTRIM(STR(i,2,0))
*!*			.Text = " "
		replace atzAgrid.&yyy WITH " "
		flush		
		&&.CellBackColor = farbenrgb(1+9)
	Next

*!*		.Col = 7
	yyy = "sp" + ALLTRIM(STR(i,2,0))
*!*		.Row = 25
	GOTO 25 - 7
*!*		.Text = "  "
	replace atzAgrid.&yyy WITH "  "
	flush		
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*		.Row = 30
	GOTO 30 - 7
*!*		.Text = "  "
	replace atzAgrid.&yyy WITH "  "
	flush		
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)

	For j = 33 To 43
*!*			.Row = j
		GOTO j - 7
*!*			.Text = "  "
		replace atzAgrid.&yyy WITH "  "
		flush			
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	Next

	For j = 46 To 49
*!*			.Row = j
		GOTO j - 7
*!*			.Text = "  "
		replace atzAgrid.&yyy WITH "  "
		flush			
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	Next

*!*		.Col = 11
	yyy = "sp11"
*!*		.Row = 25
	GOTO 25 - 7
*!*		.Text = "  "
	replace atzAgrid.&yyy WITH "  "
	flush	
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*		.Row = 30
	GOTO 30 - 7
*!*		.Text = "  "
	replace atzAgrid.&yyy WITH "  "
	flush	
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	
	For j = 33 To 43
*!*			.Row = j
		GOTO j - 7
*!*			.Text = "  "
	replace atzAgrid.&yyy WITH "  "
	flush			
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	Next

	For j = 46 To 49
*!*			.Row = j
		GOTO j - 7
*!*			.Text = "  "
		replace atzAgrid.&yyy WITH "  "
		flush		
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
	Next

*!*		.Col = 8
	yyy = "sp8"
*!*		.Row = 45
	GOTO 45 - 7
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush	
	
*!*		.Row = 49
	GOTO 49 - 7
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush		
*!*		.Col = 9
	yyy = "sp9"
*!*		.Row = 47
	GOTO 47 - 7
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush	
		

*!*		.Col = 12
	yyy = "sp12"	
	For i = 34 To 46
*!*			.Row = i
		GOTO i - 7
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
		If i > 44
*!*				.Text = ""
			replace atzAgrid.&yyy WITH ""
			flush				
		Endif
	NEXT
	
*!*		.Row = 49
	GOTO 49 - 7
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush		
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)

*!*		.Col = 13
	yyy = "sp13"
*!*		.Row = 45
*!*		.CellBackColor = QBColor(13) &&farbenrgb(1+20)
*!*		.Row = 46
	GOTO 46 - 7
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush	
*!*		.Row = 47
*!*		.CellBackColor = QBColor(13) &&farbenrgb(1+20)
*!*		.Row = 32
	GOTO 32 - 7
	For i = 3 To 5
		yyy = "sp" + ALLTRIM(STR(i,2,0))
*!*			.Col = i
*!*			.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*			.Text = ""
		replace atzAgrid.&yyy WITH ""
		flush			
	NEXT
	
*!*		.Col = 9
	yyy = "sp9"
*!*		.CellBackColor = QBColor(15) &&farbenrgb(1+9)
*!*		.Text = ""
	replace atzAgrid.&yyy WITH ""
	flush	
		
*!*		.Col = 13
	yyy = "sp13"
	replace atzAgrid.&yyy WITH ""
	flush	
		
*!*		.Col = 5
	yyy = "sp5"	
	replace atzAgrid.&yyy WITH ""
	flush		

	If zi(1+3) > 0 .And. zi(1+8) > 0
*!*			.Col = 4
		yyy = "sp4"
*!*			.Row = 9
		GOTO 9 - 7
		replace atzAgrid.&yyy WITH "bes.Ber"
		flush			
*!*			.Row = 19
		GOTO 19 - 7
		replace atzAgrid.&yyy WITH "bes.Ber"
		flush			
		
	Endif
*!*		.Col = 4
	yyy = "sp4"
*!*		.Row = 19
	GOTO 19 - 7
	If zi(1+18) < 7
*!*			.Text = "Ber."
		replace atzAgrid.&yyy WITH "Ber."
		flush			
	Endif

*!*	myatzA.MSFlexGrid1.Visible = false
myatzA.Visible = True

With myatzA.Label1
	.Visible = False
	.Caption = 'PC-Programm "Gehlter ' + ALLTRIM(STR(jahr4,4,0)) + ' im ffentlichen Dienst"' &&fragehs 2014
ENDWITH

SELECT atzagrid
SET FILTER TO .not. EMPTY(sp1)
GO top
thisform.grdatzAgrid.refresh
	

ENDPROC
     ,    ,  ,                           %   (      [,    (            U  &    :  T d T E T    T      F	  G( G. S 
 (+   [  G.  F	   (22
 #  % 
  >	  CC  Z [  % ' >	  CC  Z [  % ^ >	  CC 	 Z [  % ! >	  CC 
 Z [  % + >	   33 [  % + >	  CC  Z [  % 0. >	  CC  Z [   % SS T
 F Altersteilzeitgehalt nach dem TV ATZ vom 5.5.1998 i.d.F. vom 15.3.1999 Q T
 0 Altersteilzeitgehalt mit Mindestnettogehalt von CC 
 Z  %  T   
  T       T      . T   C       C    T      , T   C     C   C T    AG-Anteil ATV-Betriebsrente CC 
Z  %
 T
   
 HK C*  
gE T
  AN-Anteil ATV-Betriebsrente CCC*  d
Z  % CC*  1 T
 $ AN-Anteil ATV-Betriebsrente lt.Eing. C*  ' T
  RG-Beitrag in Hamb. 1,25 % C*  KE T
  AN-Anteil ATV-Betriebsrente CCC*  d
Z  %  T !  
  %C    T "   34 %  T "   20 % 	 # >	 #  $   [ % 	(^
 #%   T&  zCC%  ZB replace atzAgrid.sp1 WITH " + " + myform1.&xxx..Caption + " :"
 [  % (
 #% 
 T
   
 H C% '   T
  A C% '  T
  B C% '  T
  C C% ' < T
  D C% ' c T
  E C% '  T
  F C% '  T
  a C% '  T
  b C% '  T
  c C% ' 	& T
  d C% ' 
M T
  e C% ' t T
  f C% '  T
  g  >	 ( 
  [   ( T)  spCC  Z	 #" replace atzAgrid.&yyy WITH " "
 [	 #: replace atzAgrid.&yyy WITH " = " + myform1.z20.Caption
 [	 #" replace atzAgrid.&yyy WITH " "
 [	 #P replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerpflichtige Sachbezge"
 [	 # %C   T
E replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerfreibetrag"
 [ 
R replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerl. Hinzurechnungsbetrag"
 [ 	 #E replace atzAgrid.&yyy WITH mystring(20, " ") + "ATV-pfl. Entgelt"
 [	 #F replace atzAgrid.&yyy WITH mystring(20, " ") + "ATV-Umlage des AG"
 [	 #M replace atzAgrid.&yyy WITH mystring(25, " ") + "davon steuerpfl. beim AN"
 [	 #M replace atzAgrid.&yyy WITH mystring(25, " ") + "davon soz.vers.pflichtig"
 [	 #G replace atzAgrid.&yyy WITH mystring(20, " ") + "Steuerpfl. Entgelt"
 [	 #L replace atzAgrid.&yyy WITH mystring(20, " ") + "SV-beitragspfl. Entgelt"
 [	 #H replace atzAgrid.&yyy WITH mystring(20, " ") + "mageblicher Betrag"
 [	 #" replace atzAgrid.&yyy WITH " "
 [	 #o replace atzAgrid.&yyy WITH " - " + Alltrim(myform1.z50.Caption) + " " + Alltrim(myform1.z51.Caption) + " :"
 [	 #A replace atzAgrid.&yyy WITH " - " + myform1.z35.Caption + " :"
 [	 #I replace atzAgrid.&yyy WITH " - KiSt. 8 % bzw. " + myform1.z36.Caption
 [	 #K replace atzAgrid.&yyy WITH " - KV=14,30%/2 bzw. " + myform1.z53.Caption
 [ % &((c
 #%  T&  zCC%  ZF replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption)
 %% &	
 T*    %+ ,  : T*   -  PV Ki. CC+ ,       ?Z % [ replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption) + " " + kianzabzPV		
 [J replace atzAgrid.&yyy WITH  " - " + ALLTRIM(myform1.&xxx..Caption)				
  [ 	 #": replace atzAgrid.&yyy WITH " - " + myform1.z41.Caption
 [	 ## %  >	 #   -  -   [ 	 #$6 replace atzAgrid.&yyy WITH " = NETTOGEHALT" + " :"
 [	 #%" replace atzAgrid.&yyy WITH " "
 [	 #&S replace atzAgrid.&yyy WITH " + 20 %-Aufstockung v.Teilzeit-Bruttogehalts (AtG)"
 [	 #'T replace atzAgrid.&yyy WITH " + Aufstockung -> 70% d. Vollzeit-Nettogehalts(AtG)"
 [	 #({ replace atzAgrid.&yyy WITH " + Aufstockung -> " + ALLTRIM(STR(altersprozenta,10,3)) + "% d. Vollzeit-Nettogehalts (TV)"
 [	 #)" replace atzAgrid.&yyy WITH " "
 [	 #*7 replace atzAgrid.&yyy WITH " = A U S Z A H L U N G"
 [  % (
 T)  spCC%  Z
 H`K %  % 	 %  % 		 %  % 
	
 H % 
 T.  % 
 T.  % 
 T.  % 0
 T.  % N
 T.  % 	l
 T.  % 
 T.  % 
 T.  % 

 T. 	   ('
 #  %. IJ replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 8) / 100, "###") 
  %.  . V replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
 P replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 8) / 100, "###,##0.00")
   [ 	 # %. E  %. M replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
 S replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ 13) / 100, "###,##0.00")
  [   ( 

 #  %%  % W replace atzAgrid.&yyy WITH " " + myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
 Q replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 10) / 100, "###,##0.00")
  [   "()
 # 
 H? % 
 H]  "% replace atzAgrid.&yyy WITH "laut"
  #) replace atzAgrid.&yyy WITH "Mindest-"
  $' replace atzAgrid.&yyy WITH "netto-"
  %?) replace atzAgrid.&yyy WITH "entgelt-"
  &x( replace atzAgrid.&yyy WITH "tabelle"
  '% replace atzAgrid.&yyy WITH "2008"
  (! replace atzAgrid.&yyy WITH ""
  )! replace atzAgrid.&yyy WITH ""
  [ % !
 H8  "u, replace atzAgrid.&yyy WITH "lt.Mindest-"
  #. replace atzAgrid.&yyy WITH "nettoentgelt-"
  $+ replace atzAgrid.&yyy WITH "tababelle "
  %*) replace atzAgrid.&yyy WITH "fr 83 %"
  &g, replace atzAgrid.&yyy WITH "(GMBl.2005,"
  '* replace atzAgrid.&yyy WITH "Seite107,"
  (* replace atzAgrid.&yyy WITH "die immer"
  )+ replace atzAgrid.&yyy WITH "noch gilt)"
  [? %   % 	 % 	 % 	 % 
Q replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 11) / 100, "###,##0.00")
 [  	 ## %%  % ! replace atzAgrid.&yyy WITH ""
 XM replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 37) / 100, "###,##0.00")
  [	 #$M replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 31) / 100, "###,##0.00")
 [ %% L replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 31) / 83, "###,##0.00")
 [   -(/
 # Q replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ j - 13) / 100, "###,##0.00")
 [ 	 #*M replace atzAgrid.&yyy WITH myformat(sicht(1+k,1+ 35) / 100, "###,##0.00")
 [   T)  sp2  (CNS	 # " replace atzAgrid.&yyy WITH " "
 [  T)  sp3 % -(1
 #% " replace atzAgrid.&yyy WITH " "
 [  T)  sp4 % (1 
 #% " replace atzAgrid.&yyy WITH " "
 [ 	 # % (v  T)  spCC%  Z" replace atzAgrid.&yyy WITH " "
 [  T)  spCC%  Z	 ## replace atzAgrid.&yyy WITH "  "
 [	 ## replace atzAgrid.&yyy WITH "  "
 [  !(+B!
 # # replace atzAgrid.&yyy WITH "  "
 [   .(1!
 # # replace atzAgrid.&yyy WITH "  "
 [  T)  sp11	 ## replace atzAgrid.&yyy WITH "  "
 [	 ## replace atzAgrid.&yyy WITH "  "
 [  !(+Q"
 # # replace atzAgrid.&yyy WITH "  "
 [   .(1"
 # # replace atzAgrid.&yyy WITH "  "
 [  T)  sp8	 #&! replace atzAgrid.&yyy WITH ""
 [	 #*! replace atzAgrid.&yyy WITH ""
 [ T)  sp9	 #(! replace atzAgrid.&yyy WITH ""
 [ T)  sp12 % "(.#
 #%  %% ,#! replace atzAgrid.&yyy WITH ""
 [  	 #*! replace atzAgrid.&yyy WITH ""
 [ T)  sp13	 #'! replace atzAgrid.&yyy WITH ""
 [	 # % ($ T)  spCC%  Z! replace atzAgrid.&yyy WITH ""
 [  T)  sp9! replace atzAgrid.&yyy WITH ""
 [ T)  sp13! replace atzAgrid.&yyy WITH ""
 [ T)  sp5! replace atzAgrid.&yyy WITH ""
 [$ %C    C	   	% T)  sp4	 #( replace atzAgrid.&yyy WITH "bes.Ber"
 [	 #( replace atzAgrid.&yyy WITH "bes.Ber"
 [  T)  sp4	 # %C  
-&% replace atzAgrid.&yyy WITH "Ber."
 [  T   /    0 & T  N T  PC-Programm "Gehlter CC1  Z  im ffentlichen Dienst"  F	  G(C# 
 #)
  2 3  U4  MYATZA	 SSSCROLL1 MAX MIN VALUE ALTERSPROZENTA TEXT1 VISIBLE FALSE ATZAGRID HSA J SP0 XTEXT THISFORM ATZTITEL CAPTION PERSONALFALL MYFORM1 Z0
 ENTGELTGRUPPE Z5 STEUERKLASSE Z50 Z51
 KIRCHENSTEUER Z36	 KVBEITRAG Z52 Z53 AGATV ZVKUMLAGEAG ZI ANATV LABEL9 SP1 Z7 I XXX BRUZ SP2 YYY
 KIANZABZPV WVW RESERVE5 Z26 K TRUE LABEL1 JAHR4 GRDATZAGRID REFRESH Click,     1    A 2r a a A qQ A A a r q A B A B A B A B !A B A B A B A 1 A 21  aQaqaQA 1Rr qA  bA r "A A t                A A B s !A  A  "A  A  QRA  "A A  RA  bA  A  A  rA  A  A  "A  A  A  A  A r b AA  A A A  A  A A  bA  "A  2A  BA  A  "A  rA A s           A r  b A A A A    2A A A r r A A A r   RrRA A  A A A A A   A A  A A A r A A  A A A a !A A q "A B q #A A  q"A B  2A  2A s 2A B r 2A B  2A  2A s 2A B r 2A B  A  A  A q A A A  A  A  qA A A A A B A  A B  QRA A  A r  Q  3                       lI      )   ,                        
commandbutton      
commandbutton      
sscommand6      FORM1      Top = 3
Left = 284
Height = 31
Width = 131
Caption = "Progression"
TabIndex = 41
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand6"
      KPROCEDURE Click
*DO sscommand6_click
i = 1

Do Form Progress
ENDPROC
                                      7   %   ]       t      l             U    
 T    Progress U  I PROGRESS Click,     1  1                       @       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 3
Left = 415
Height = 31
Width = 131
Caption = "Erstattungen"
Style = 0
TabIndex = 36
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand1"
      jPROCEDURE Click
*SET STEP ON 
*DO sscommand1_click
DO FORM erstattung
SELECT ATZAGRID



ENDPROC
                                         %   b       y      q             U    
 erstattung F  U 
 ERSTATTUNG ATZAGRID Click,     1 #q 4                       _       )                            
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 3
Left = 546
Height = 31
Width = 131
Caption = "Berechnung drucken"
Style = 0
TabIndex = 40
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand5"
     PROCEDURE Click
*vorher Do atzdruckenneu
crlf = CHR(13)+CHR(10)
PUBLIC hs1_sp0 ,hs1_sp1 ,hs1_sp2 ,hs1_sp3 ,hs1_sp4 ,hs1_sp5 ,hs1_sp7 ,hs1_sp8 ,hs1_sp9 ,hs1_sp11, hs1_sp12 , hs1_sp13
PUBLIC hs1_sp1_sum ,hs1_sp3_sum ,hs1_sp5_sum ,hs1_sp7_sum ,hs1_sp8_sum ,hs1_sp9_sum ,hs1_sp11_sum, hs1_sp12_sum , hs1_sp13_sum
PUBLIC hs2_sp0 ,hs2_sp1 ,hs2_sp3 ,hs2_sp5 ,hs2_sp7 ,hs2_sp8 ,hs2_sp9 ,hs2_sp11, hs2_sp12 , hs2_sp13
PUBLIC hs3_sp0 ,hs3_sp1 ,hs3_sp3 ,hs3_sp5 ,hs3_sp9 ,hs3_sp13
PUBLIC hs4_sp1 ,hs4_sp3 ,hs4_sp5 ,hs4_sp8 ,hs4_sp9 , hs4_sp12 , hs4_sp13
PUBLIC hs5_sp0 ,hs5_sp1 ,hs5_sp5 ,hs5_sp7 ,hs5_sp8 ,hs5_sp9 ,hs5_sp11, hs5_sp12 , hs5_sp13
PUBLIC hs6_sp1 ,hs6_sp5 ,hs6_sp9 , hs6_sp13

STORE "" TO hs1_sp0 ,hs1_sp1 ,hs1_sp2 ,hs1_sp3 ,hs1_sp4 ,hs1_sp5 ,hs1_sp7 ,hs1_sp8 ,hs1_sp9 ,hs1_sp11, hs1_sp12 , hs1_sp13
STORE "" TO hs1_sp1_sum ,hs1_sp3_sum ,hs1_sp5_sum ,hs1_sp7_sum ,hs1_sp8_sum ,hs1_sp9_sum ,hs1_sp11_sum, hs1_sp12_sum , hs1_sp13_sum
STORE "" TO hs2_sp0 ,hs2_sp1 ,hs2_sp3 ,hs2_sp5 ,hs2_sp7 ,hs2_sp8 ,hs2_sp9 ,hs2_sp11, hs2_sp12 , hs2_sp13
STORE "" TO hs3_sp0 ,hs3_sp1 ,hs3_sp3 ,hs3_sp5 ,hs3_sp9 ,hs3_sp13
STORE "" TO hs4_sp1 ,hs4_sp3 ,hs4_sp5 ,hs4_sp8 ,hs4_sp9 , hs4_sp12 , hs4_sp13
STORE "" TO hs5_sp0 ,hs5_sp1 ,hs5_sp5 ,hs5_sp7 ,hs5_sp8 ,hs5_sp9 ,hs5_sp11, hs5_sp12 , hs5_sp13
STORE "" TO hs6_sp1 ,hs6_sp5 ,hs6_sp9 , hs6_sp13

FOR hsa = 1 TO 13
	GOTO hsa
	hs1_sp0 = hs1_sp0 + IIF(hsa < 10,"0"+ALLTRIM(STR(hsa,2,0)),ALLTRIM(STR(hsa,2,0)))+IIF(hsa < 13,crlf,"  ")
	hs1_sp1 = hs1_sp1 + atzagrid.sp1 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp2 = hs1_sp2 + ALLTRIM(atzagrid.sp2) + IIF(hsa < 13,crlf,"  ")
	hs1_sp3 = hs1_sp3 + atzagrid.sp3 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp4 = hs1_sp4 + atzagrid.sp4 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp5 = hs1_sp5 + atzagrid.sp5 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp7 = hs1_sp7 + atzagrid.sp7 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp8 = hs1_sp8 + atzagrid.sp8 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp9 = hs1_sp9 + atzagrid.sp9 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp11 = hs1_sp11 + atzagrid.sp11 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp12 = hs1_sp12 + atzagrid.sp12 + crlf &&IIF(hsa < 13,crlf,"  ")
	hs1_sp13 = hs1_sp13 + atzagrid.sp13 + crlf &&IIF(hsa < 13,crlf,"  ")
NEXT
*hs1_sum einfgen recno = 15
GOTO 15
hs1_sp1_sum = hs1_sp1_sum + atzagrid.sp1 
hs1_sp3_sum = hs1_sp3_sum + atzagrid.sp3
hs1_sp5_sum = hs1_sp5_sum + atzagrid.sp5
hs1_sp7_sum = hs1_sp7_sum + atzagrid.sp7
hs1_sp8_sum = hs1_sp8_sum + atzagrid.sp8
hs1_sp9_sum = hs1_sp9_sum + atzagrid.sp9
hs1_sp11_sum = hs1_sp11_sum + atzagrid.sp11
hs1_sp12_sum = hs1_sp12_sum + atzagrid.sp12
hs1_sp13_sum = hs1_sp13_sum + atzagrid.sp13

FOR hsa = 15 TO 23
	GOTO hsa + 2 &&recno 17 - 25
	hs2_sp0 = hs2_sp0 + ALLTRIM(STR(hsa,2,0)) + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp1 = hs2_sp1 + atzagrid.sp1 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp3 = hs2_sp3 + atzagrid.sp3 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp5 = hs2_sp5 + atzagrid.sp5 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp7 = hs2_sp7 + atzagrid.sp7 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp8 = hs2_sp8 + atzagrid.sp8 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp9 = hs2_sp9 + atzagrid.sp9 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp11 = hs2_sp11 + atzagrid.sp11 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp12 = hs2_sp12 + atzagrid.sp12 + crlf &&IIF(hsa < 23,crlf,"")
	hs2_sp13 = hs2_sp13 + atzagrid.sp13 + crlf &&IIF(hsa < 23,crlf,"")	
NEXT
FOR hsa = 24 TO 32
	GOTO hsa + 3 &&recno 27 - 35
	hs3_sp0 = hs3_sp0 + ALLTRIM(STR(hsa,2,0)) + crlf &&IIF(hsa < 32,crlf,"")
	hs3_sp1 = hs3_sp1 + atzagrid.sp1 + crlf &&IIF(hsa < 32,crlf,"")
	hs3_sp3 = hs3_sp3 + atzagrid.sp3 + crlf &&IIF(hsa < 32,crlf,"")
	hs3_sp5 = hs3_sp5 + atzagrid.sp5 + crlf &&IIF(hsa < 32,crlf,"")
	hs3_sp9 = hs3_sp9 + atzagrid.sp9 + crlf &&IIF(hsa < 32,crlf,"")
	hs3_sp13 = hs3_sp13 + atzagrid.sp13 + crlf &&IIF(hsa < 32,crlf,"")		
NEXT

*hs4_sum einfgen recno = 36
GOTO 36
hs4_sp1 = hs4_sp1 + atzagrid.sp1 
hs4_sp3 = hs4_sp3 + atzagrid.sp3
hs4_sp5 = hs4_sp5 + atzagrid.sp5
hs4_sp8 = hs4_sp8 + atzagrid.sp8
hs4_sp9 = hs4_sp9 + atzagrid.sp9
hs4_sp12 = hs4_sp12 + atzagrid.sp12
hs4_sp13 = hs4_sp13 + atzagrid.sp13

FOR hsa = 34 TO 36
	GOTO hsa + 4 && recno 38 - 40
	hs5_sp0 = hs5_sp0 + ALLTRIM(STR(hsa,2,0)) + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp1 = hs5_sp1 + atzagrid.sp1 + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp5 = hs5_sp5 + atzagrid.sp5 + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp7 = hs5_sp7 + atzagrid.sp7 + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp8 = hs5_sp8 + atzagrid.sp8 + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp9 = hs5_sp9 + atzagrid.sp9 + crlf &&IIF(hsa < 36,crlf,"")
	hs5_sp11 = hs5_sp11 + atzagrid.sp11 + crlf &&IIF(hsa < 36,crlf,"")	
	hs5_sp12 = hs5_sp12 + atzagrid.sp12 + crlf &&IIF(hsa < 36,crlf,"")	
	hs5_sp13 = hs5_sp13 + atzagrid.sp13 + crlf &&IIF(hsa < 36,crlf,"")		
NEXT

GOTO 42 &&auszahlungsummenzeile
hs6_sp1 = hs6_sp1 + atzagrid.sp1 
hs6_sp5 = hs6_sp5 + atzagrid.sp5
hs6_sp9 = hs6_sp9 + atzagrid.sp9
hs6_sp13 = hs6_sp13 + atzagrid.sp13

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

REPORT FORM atz_druck5 NOCONSOLE RANGE 1,1 TO PRINTER PROMPT 

SELECT dummy
USE

SELECT(oldselect)

release hs1_sp0 ,hs1_sp1 ,hs1_sp2 ,hs1_sp3 ,hs1_sp4 ,hs1_sp5 ,hs1_sp7 ,hs1_sp8 ,hs1_sp9 ,hs1_sp11, hs1_sp12 , hs1_sp13
release hs1_sp1_sum ,hs1_sp3_sum ,hs1_sp5_sum ,hs1_sp7_sum ,hs1_sp8_sum ,hs1_sp9_sum ,hs1_sp11_sum, hs1_sp12_sum , hs1_sp13_sum
release hs2_sp0 ,hs2_sp1 ,hs2_sp3 ,hs2_sp5 ,hs2_sp7 ,hs2_sp8 ,hs2_sp9 ,hs2_sp11, hs2_sp12 , hs2_sp13
release hs3_sp0 ,hs3_sp1 ,hs3_sp3 ,hs3_sp5 ,hs3_sp9 ,hs3_sp13
release hs4_sp1 ,hs4_sp3 ,hs4_sp5 ,hs4_sp8 ,hs4_sp9 , hs4_sp12 , hs4_sp13
release hs5_sp0 ,hs5_sp1 ,hs5_sp5 ,hs5_sp7 ,hs5_sp8 ,hs5_sp9 ,hs5_sp11, hs5_sp12 , hs5_sp13
release hs6_sp1 ,hs6_sp5 ,hs6_sp9 , hs6_sp13
ENDPROC
     
    
  
                        f   %         
  k               U  	 T  C
 C
 3 7        	 
   ' 7
         + 7           7  ! " # $ %  7& ' ( ) * + , ' 7- . / 0 1 2 3 4 5  76 7 8 9 9 J  (        	 
   - J  (
         1 J  (          ! J  (  ! " # $ % % J  (& ' ( ) * + , - J  (- . / 0 1 2 3 4 5  J  (6 7 8 9  : (
	 #: T T  C: 

  0CC:  Z
 CC:  Z6C: 

       6 T  ; <   . T  C; = C: 

       6 T  ; >    T  ; ?    T  ; @    T  ; A    T  ; B    T	 	 ; C    T
 
 ; D    T  ; E    T  ; F    	 # T
 
 ; <  T  ; >  T  ; @  T  ; A  T  ; B  T  ; C  T  ; D  T  ; E  T  ; F  : (
 #:  T  CC:  Z   T  ; <    T  ; >    T  ; @    T  ; A    T  ; B    T  ; C    T  ; D    T  ; E    T  ; F     : ( ^
 #:  T    CC:  Z   T! ! ; <    T" " ; >    T# # ; @    T$ $ ; C    T% % ; F    	 #$ T& & ; <  T' ' ; >  T( ( ; @  T) ) ; B  T* * ; C  T+ + ; E  T, , ; F  : "($
 #:  T- - CC:  Z   T. . ; <    T/ / ; @    T0 0 ; A    T1 1 ; B    T2 2 ; C    T3 3 ; D    T4 4 ; E    T5 5 ; F    	 #* T6 6 ; <  T7 7 ; @  T8 8 ; C  T9 9 ; F  TG C W h dummyI  C FH   [ FH  #)" ?
 atz_druck5(!"9 FH  Q
 FG 3 <        	 
   ' <
         + <           <  ! " # $ %  <& ' ( ) * + , ' <- . / 0 1 2 3 4 5  <6 7 8 9  UK  CRLF HS1_SP0 HS1_SP1 HS1_SP2 HS1_SP3 HS1_SP4 HS1_SP5 HS1_SP7 HS1_SP8 HS1_SP9 HS1_SP11 HS1_SP12 HS1_SP13 HS1_SP1_SUM HS1_SP3_SUM HS1_SP5_SUM HS1_SP7_SUM HS1_SP8_SUM HS1_SP9_SUM HS1_SP11_SUM HS1_SP12_SUM HS1_SP13_SUM HS2_SP0 HS2_SP1 HS2_SP3 HS2_SP5 HS2_SP7 HS2_SP8 HS2_SP9 HS2_SP11 HS2_SP12 HS2_SP13 HS3_SP0 HS3_SP1 HS3_SP3 HS3_SP5 HS3_SP9 HS3_SP13 HS4_SP1 HS4_SP3 HS4_SP5 HS4_SP8 HS4_SP9 HS4_SP12 HS4_SP13 HS5_SP0 HS5_SP1 HS5_SP5 HS5_SP7 HS5_SP8 HS5_SP9 HS5_SP11 HS5_SP12 HS5_SP13 HS6_SP1 HS6_SP5 HS6_SP9 HS6_SP13 HSA ATZAGRID SP1 SP2 SP3 SP4 SP5 SP7 SP8 SP9 SP11 SP12 SP13	 OLDSELECT DUMMY FELD
 ATZ_DRUCK5 Click,     1 R1qq1Qr AA  AAAAAAAAAr A q A  AAAAAAAr A  AAAA q Q A r Q "r A  2qq11                             )   
                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 3
Left = 677
Height = 31
Width = 131
Caption = "Hinweis drucken"
TabIndex = 37
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand2"
      >PROCEDURE Click
Do ATZanlage
*DO sscommand2_click
ENDPROC
                                         %   E       Z      T             U  
     U 	 ATZANLAGE Click,     1 q 2                       3       )                            
commandbutton      
commandbutton      
sscommand7      FORM1      Top = 3
Left = 808
Height = 31
Width = 105
Caption = "Export"
TabIndex = 42
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand7"
      @PROCEDURE Click
*DO sscommand7_click
Do Form Export
ENDPROC
                                      L   %   I       ^      X             U     Export U  EXPORT Click,     1  1                       5       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 672
Left = 171
Height = 15
Width = 45
Caption = "Hilfe"
Enabled = .F.
Style = 0
TabIndex = 38
Visible = .F.
SpecialEffect = 0
Alignment = 2
Name = "sscommand3"
      PROCEDURE Click
If zi(1+4) < 5
	inet = 110
	Msg = "A/Altersteilzeitzuschlag/Uebersicht"
Else
	inet = 110
	Msg = "A/Altersteilzeit/Index"
ENDIF

Do insinternet &&Do attached
*DO sscommand3_click

ENDPROC
     i    P  P                        f   %            
                U    %C  
R 
 T n0 T # A/Altersteilzeitzuschlag/Uebersicht  
 T n# T  A/Altersteilzeit/Index    U  ZI INET MSG INSINTERNET Click,     1 Q   1A r 3                              )   P                        
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 3
Left = 913
Height = 31
Width = 105
Cancel = .T.
Caption = "schlieen"
TabIndex = 39
Visible = .T.
SpecialEffect = 0
Alignment = 2
Name = "sscommand4"
      PROCEDURE Click
register = 0
altersprozenta = vorein.voratza + 70
altersprozentb = vorein.voratzb + 70
Do Berechnung &&Do attached
myform1.Visible = True

thisform.release
*DO sscommand4_click
ENDPROC
         l  l                        qk   %         #                 U  Y 
 T    T   F T   F   T  	 
 
   U  REGISTER ALTERSPROZENTA VOREIN VORATZA ALTERSPROZENTB VORATZB
 BERECHNUNG MYFORM1 VISIBLE TRUE THISFORM RELEASE Click,     1  AAq  2                              )   l                        textbox      textbox      Text1      FORM1      nEnabled = .F.
Height = 21
Left = 231
TabIndex = 45
Top = 648
Visible = .F.
Width = 673
Name = "Text1"
      PROCEDURE GotFocus
DO text_gotfocus WITH INT(VAL(SUBSTR(this.Name,5,1)))
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO text_keypress WITH INT(VAL(SUBSTR(this.Name,5,1))), nKeyCode
ENDPROC
     r    Y  Y                        IM   %                             U      CCC  \g8 U 
 TEXT_GOTFOCUS THIS NAME.        CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL
 TEXT_KEYPRESS THIS NAME GotFocus,      KeyPressj     1 2  1                       I         h          )   Y                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 669
Left = 1015
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command6      FORM1      qTop = 5
Left = 10
Height = 27
Width = 17
Picture = buttons\pfeil_links.jpg
Caption = ""
Name = "Command6"
      PROCEDURE Click
If thisform.ssScroll1.value > thisform.ssScroll1.Min 
	thisform.ssScroll1.value = thisform.ssScroll1.value - 1
ENDIF
thisform.ssScroll1.scroll
    
ENDPROC
     $                              r   %                             U  N  %        :  T         
      U  THISFORM	 SSSCROLL1 VALUE MIN SCROLL Click,     1 A  2                              )                           
commandbutton      
commandbutton      Command9      FORM1      sTop = 5
Left = 255
Height = 27
Width = 18
Picture = buttons\pfeil_rechts.jpg
Caption = ""
Name = "Command9"
      PROCEDURE Click
If thisform.ssScroll1.value < thisform.ssScroll1.Max 
	thisform.ssScroll1.value = thisform.ssScroll1.value + 1
ENDIF
thisform.ssScroll1.scroll

ENDPROC
     $                              r   %                             U  N  %        
:  T         
      U  THISFORM	 SSSCROLL1 VALUE MAX SCROLL Click,     1 A  2                              )                           shape      shape      Shape2      FORM1      TTop = 37
Left = 330
Height = 22
Width = 697
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape3      FORM1      TTop = 57
Left = 330
Height = 22
Width = 218
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape4      FORM1      TTop = 57
Left = 548
Height = 22
Width = 479
SpecialEffect = 0
Name = "Shape4"
      shape      shape      Shape8      FORM1      STop = 57
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape8"
      shape      shape      Shape12      FORM1      TTop = 37
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape12"
      label      label      atztitel      FORM1      AutoSize = .F.
FontBold = .T.
Alignment = 2
Caption = "atztitel"
Height = 17
Left = 339
Top = 39
Width = 678
Name = "atztitel"
      label      label      Label3      FORM1      iAlignment = 2
Caption = "G E H A L T"
Height = 16
Left = 339
Top = 60
Width = 196
Name = "Label3"
      label      label      Label4      FORM1      yAlignment = 2
Caption = "N E B E N R E C H U N G E N"
Height = 16
Left = 555
Top = 60
Width = 454
Name = "Label4"
      shape      shape      Shape19      FORM1      TTop = 97
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape19"
      shape      shape      Shape23      FORM1      TTop = 77
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape23"
      shape      shape      Shape29      FORM1      UTop = 77
Left = 778
Height = 22
Width = 249
SpecialEffect = 0
Name = "Shape29"
      label      label      Label16      FORM1      AutoSize = .F.
Alignment = 2
Caption = "nach dem Altersteilzeitgesetz (AtG)"
Height = 17
Left = 551
Top = 79
Width = 223
Name = "Label16"
      label      label      Label17      FORM1      AutoSize = .F.
Alignment = 2
Caption = "per Tarifvertrag ber Teilzeitarbeit (TV ATZ)"
Height = 17
Left = 783
Top = 79
Width = 237
Name = "Label17"
      shape      shape      Shape30      FORM1      UTop = 97
Left = 624
Height = 22
Width = 154
SpecialEffect = 0
Name = "Shape30"
      shape      shape      Shape33      FORM1      UTop = 97
Left = 854
Height = 22
Width = 173
SpecialEffect = 0
Name = "Shape33"
      label      label      Label19      FORM1      wAlignment = 2
Caption = "Erh.a.70% VZ-Nettoentg."
Height = 16
Left = 628
Top = 100
Width = 146
Name = "Label19"
      label      label      Label20      FORM1      {Alignment = 2
Caption = "i.a. 83,000 % VZ-Nettoentg."
Height = 16
Left = 859
Top = 100
Width = 163
Name = "Label20"
      shape      shape      Shape39      FORM1      UTop = 117
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape39"
      shape      shape      Shape46      FORM1      UTop = 137
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape46"
      shape      shape      Shape49      FORM1      UTop = 157
Left = 330
Height = 22
Width = 77
SpecialEffect = 0
Name = "Shape49"
      shape      shape      Shape53      FORM1      UTop = 157
Left = 305
Height = 22
Width = 24
SpecialEffect = 0
Name = "Shape53"
      shape      shape      Shape72      FORM1      VTop = 117
Left = 1006
Height = 22
Width = 21
SpecialEffect = 0
Name = "Shape72"
      shape      shape      Shape73      FORM1      VTop = 137
Left = 1006
Height = 22
Width = 21
SpecialEffect = 0
Name = "Shape73"
      shape      shape      Shape74      FORM1      VTop = 157
Left = 1006
Height = 22
Width = 21
SpecialEffect = 0
Name = "Shape74"
      xslider      foxyslider.vcx      	container      	ssScroll1      FORM1     tTop = 5
Left = 29
Width = 223
Height = 26
SpecialEffect = 0
TabIndex = 5
tickstyle = 1
stylecontrol = 2
max = 30
showtips = .T.
min = 1
showtipsalways = .T.
Name = "ssScroll1"
shpFocus.Name = "shpFocus"
txtFocus.Name = "txtFocus"
imgTrack.Name = "imgTrack"
imgThumb.Left = 11
imgThumb.Top = 13
imgThumb.Name = "imgThumb"
dummyLabel.Name = "dummyLabel"
     PROCEDURE scroll
If myatzA.SSScroll1.Value = 68
	Return
Endif

If myatzA.SSScroll1.Value = 69
	Return
Endif

If myatzA.SSScroll1.Value = altersprozenta
	Return
Endif

altersprozenta = myatzA.SSScroll1.Value

&&Abschluberechnung der Aufstockung TV
sicht(1+3,1+ 32) = sicht(1+7,1+ 32)
sicht(1+9,1+ 32) = sicht(1+7,1+ 32)
sicht(1+8,1+ 34) = sicht(1+8,1+ 31) * altersprozenta / 100

sicht(1+9,1+ 34) = sicht(1+8,1+ 34) - sicht(1+7,1+ 32) - sicht(1+9,1+ 31)
If sicht(1+9,1+ 34) < 0
	sicht(1+9,1+ 34) = 0
Endif

If zi(1+4) = 32
	&&AOK 100 %-Grenze&&11
	If sicht(1+9,1+ 31) + sicht(1+9,1+ 32) > sicht(1+8,1+ 31)
		sicht(1+9,1+ 34) = sicht(1+8,1+ 31) - sicht(1+9,1+ 31) - sicht(1+9,1+ 32)
	Endif
Endif

sicht(1+9,1+ 35) = sicht(1+9,1+ 31) + sicht(1+9,1+ 32) + sicht(1+9,1+ 34)
sicht(1+3,1+ 34) = sicht(1+9,1+ 34)
sicht(1+3,1+ 35) = sicht(1+3,1+ 31) + sicht(1+3,1+ 32) + sicht(1+3,1+ 34)
sicht(1+10,1+ 10) = sicht(1+3,1+ 32) + sicht(1+3,1+ 34) &&Summe der Aufstockungsbetrge

Rest = sicht(1+10,1+ 10) * 10 % 10
If Rest > 4
	sicht(1+10,1+ 10) = Fix(sicht(1+10,1+ 10)) + 1
Else
	sicht(1+10,1+ 10) = Fix(sicht(1+10,1+ 10))
ENDIF
thisform.durchrechnen.Click

*Do altersteilzeita &&Do attached
ENDPROC
     T    ;  ;                        y<   %           #               U  
 %    D  B  %    E:  B  %     Y  B  T       T !C!   T 
!C! ( T 	#C	   d6 T 
#C	# C! C
   %C
#  
? T 
#   %C  * %C
  C
! C	  6 T 
#C	  C
  C
!   6 T 
$C
  C
! C
#   T #C
# 6 T $C  C! C# + T C! C#  T CC 

G % ( T CC   $ T CC   
  	 
  U  MYATZA	 SSSCROLL1 VALUE ALTERSPROZENTA SICHT ZI REST FIX THISFORM DURCHRECHNEN CLICK scroll,     1 qA A rA A rA A 2bA RaA A ba AA  3                             )   ;                        label      label      Label2      FORM1      dAlignment = 2
Caption = "arbeit"
Height = 16
Left = 480
Top = 140
Width = 54
Name = "Label2"
      label      label      Label5      FORM1      jAlignment = 2
Caption = "v. Teilzeit-"
Height = 16
Left = 552
Top = 140
Width = 66
Name = "Label5"
      label      label      Label6      FORM1      jAlignment = 2
Caption = "pauschliert."
Height = 16
Left = 627
Top = 120
Width = 69
Name = "Label6"
      label      label      Label10      FORM1      hAlignment = 2
Caption = "Teilzeit-"
Height = 16
Left = 934
Top = 140
Width = 69
Name = "Label10"
      grid      grid      grdAtzagrid      FORM1     ColumnCount = 14
DeleteMark = .F.
HeaderHeight = 0
Height = 497
Left = 6
Panel = 1
RecordSource = "ATZAGRID"
RecordSourceType = 1
RowHeight = 14
Top = 179
Width = 1020
Name = "grdAtzagrid"
Column1.Alignment = 2
Column1.ControlSource = ""
Column1.Width = 26
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.ControlSource = ""
Column2.Width = 260
Column2.Visible = .T.
Column2.Name = "Column2"
Column3.Alignment = 0
Column3.ControlSource = ""
Column3.Width = 24
Column3.Visible = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = ""
Column4.Width = 77
Column4.Visible = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = ""
Column5.Width = 60
Column5.Visible = .T.
Column5.Name = "Column5"
Column6.Alignment = 1
Column6.ControlSource = ""
Column6.Width = 77
Column6.Visible = .T.
Column6.Name = "Column6"
Column7.ControlSource = ""
Column7.Width = 1
Column7.Visible = .T.
Column7.Name = "Column7"
Column8.Alignment = 1
Column8.ControlSource = ""
Column8.Visible = .T.
Column8.Name = "Column8"
Column9.Alignment = 1
Column9.ControlSource = ""
Column9.Visible = .T.
Column9.Name = "Column9"
Column10.Alignment = 1
Column10.ControlSource = ""
Column10.Visible = .T.
Column10.Name = "Column10"
Column11.ControlSource = ""
Column11.Width = 1
Column11.Visible = .T.
Column11.Name = "Column11"
Column12.Alignment = 1
Column12.ControlSource = ""
Column12.Width = 75
Column12.Visible = .T.
Column12.Name = "Column12"
Column13.Alignment = 1
Column13.ControlSource = ""
Column13.Visible = .T.
Column13.Name = "Column13"
Column14.Alignment = 1
Column14.ControlSource = ""
Column14.Visible = .T.
Column14.Name = "Column14"
     PROCEDURE Init
thisform.grdatzAgrid.Column3.DynamicforeColor = "gridcolor_grdatzAgrid(3)"
thisform.grdatzAgrid.Column6.DynamicBackColor = "gridcolor_grdatzAgrid(6)"
thisform.grdatzAgrid.Column8.DynamicBackColor = "gridcolor_grdatzAgrid(8)"
thisform.grdatzAgrid.Column9.DynamicBackColor = "gridcolor_grdatzAgrid(9)"
thisform.grdatzAgrid.Column10.DynamicBackColor = "gridcolor_grdatzAgrid(10)"
thisform.grdatzAgrid.Column12.DynamicBackColor = "gridcolor_grdatzAgrid(12)"
thisform.grdatzAgrid.Column13.DynamicBackColor = "gridcolor_grdatzAgrid(13)"
thisform.grdatzAgrid.Column14.DynamicBackColor = "gridcolor_grdatzAgrid(14)"
ENDPROC
                                   "   %   .      P  
   <            U  w. T      gridcolor_grdatzAgrid(3). T      gridcolor_grdatzAgrid(6). T      gridcolor_grdatzAgrid(8). T      gridcolor_grdatzAgrid(9)/ T      gridcolor_grdatzAgrid(10)/ T   	   gridcolor_grdatzAgrid(12)/ T   
   gridcolor_grdatzAgrid(13)/ T      gridcolor_grdatzAgrid(14) U  THISFORM GRDATZAGRID COLUMN3 DYNAMICFORECOLOR COLUMN6 DYNAMICBACKCOLOR COLUMN8 COLUMN9 COLUMN10 COLUMN12 COLUMN13 COLUMN14 Init,     1 1                       v      )                           header      header      Header1      FORM1.grdAtzagrid.Column1      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column1      wAlignment = 2
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column2      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column2      hBorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column3      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column3      wAlignment = 0
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column4      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column4      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column5      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column5      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column6      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column6      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column7      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column7      hBorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column8      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column8      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column9      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column9      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column10      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column10      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column11      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column11      hBorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column12      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column12      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column13      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column13      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdAtzagrid.Column14      0Caption = ""
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdAtzagrid.Column14      wAlignment = 1
BorderStyle = 0
Margin = 0
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Class                                                                                               WINDOWS _28Y0KXYG41414430532v      IS       ZS P  i  2          `  m  T                     WINDOWS _2900QSD6O1165474909G      :  *          C  Z                                               WINDOWS _2900QSD6Q1165604541K      <  ,    ӎ                                                       WINDOWS _28Z0ZFJ1N1165474909      u  e  V          |                                          }   WINDOWS _28Y0KXYG41414430532p      c  S  D        9  i                                               WINDOWS _47N0H1QNN1165049640\      O  =  .                                                             COMMENT RESERVED                        A                                                                 e                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
      xslider     p_linecount^
_databound^
_userchange^
_setup^
trackimage_assign^
thumbimage_assign^
_setuplines^
incrementstyle_assign^
tickcolor_assign^
ticksize_assign^
tickmargin_assign^
value_assign^
showfocus_assign^
_removetickmarklines^
enabled_assign^
tickdisabledcolor_assign^
controlsource_assign^
_refreshfromdata^
tickstyle_assign^
stylecontrol_assign^
      Pixels      =graphics\thumbs\style 1\thumb_horizontal_square_both_rest.bmp      =graphics\thumbs\style 1\thumb_horizontal_arrow_right_rest.bmp      Class      6      	container      xslider      BackStyle = 0
Caption = "FoxySlider"
Height = 25
Left = 3
Top = 2
Visible = .F.
Width = 61
ForeColor = 255,255,255
Name = "dummyLabel"
      xslider      
dummyLabel      label      label                                   Cc   %   '        >               U         
  z  %  v  %   X  T  	  r  T
  	     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT ENABLED _USERIMAGES
 PICTUREVAL
 THUMBIMAGE PICTURE       
  z  %  v  %   X  T  	  r  T
  	      %   
    	 $ T 
   CC   _     T 
     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT ENABLED _USERIMAGES
 PICTUREVAL _THUMBACTIVE PICTURE SHOWTIPS SHOWTIPSALWAYS TOOLTIPTEXT VALUE       W %    C _Screen.ActiveFormb O	! C THIS.FoxySliderToolTipb O	   Q LABEL T    T 	 -   C           
  U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT SHOWTIPS LOTIP FOXYSLIDERTOOLTIP VISIBLE MOUSEUP6         C             U 
 NDIRECTION NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSEWHEEL4       C     %  -% T      	  	 % T  
        C    %  
 	  
 a	) T  a  C             C            T  -  C               U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT TXTFOCUS SETFOCUS _YOFFSET TOP _XOFFSET LEFT	 _SETVALUE SHOWTIPS THISFORM
 LOCKSCREEN _SHOWTOOLTIP MOUSEUP	 MOUSEMOVE         C              %   
    	w $ T 	   CC  
 _     T 	     U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT	 MOUSEMOVE SHOWTIPS SHOWTIPSALWAYS TOOLTIPTEXT VALUE
 MouseLeave,     
 MouseEnter     MouseUp    
 MouseWheel    	 MouseDown:    	 MouseMove#    1 1 R! !A B A 2 1 R! !A B A A A 3 1t A 2 13 12QQ  A A 3 1A A 2                               7              &   $       5   '   <  o  :   6       M    )                          PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord

WITH This
	IF .Parent.Enabled
	
		IF .Parent._UserImages = 0 && Default Images
			.PictureVal = .Parent.ThumbImage 
		ELSE && User defined
			.Picture = .Parent.ThumbImage
		ENDIF 

	ENDIF 
ENDWITH
ENDPROC
PROCEDURE MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord

WITH This
	IF .Parent.Enabled
	
		IF .Parent._UserImages = 0 && Default Images
			.PictureVal = .Parent._ThumbActive 
		ELSE && User defined
			.Picture = .Parent._ThumbActive 
		ENDIF 

	ENDIF 
ENDWITH

IF This.Parent.ShowTips and This.Parent.ShowTipsAlways
	This.ToolTipText = " " + ALLTRIM(TRANSFORM(This.Parent.Value)) + " " 
ELSE
	This.ToolTipText = ""
ENDIF 

ENDPROC
PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF This.Parent.ShowTips AND ; 
		TYPE("_Screen.ActiveForm") = "O" AND ;
		TYPE("THIS.FoxySliderToolTip") = "O"
*alte		TYPE("THISFORM.FoxySliderToolTip") = "O"
	LOCAL loTip AS LABEL
*	loTip = THISFORM.FoxySliderToolTip
	loTip = THIS.FoxySliderToolTip
	loTip.Visible = .F.
ENDIF

This.Parent.MouseUp(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)

ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

This.Parent.txtFocus.SetFocus()

IF nButton = 1
	This.Parent._yOffSet = (nYCoord - This.Parent.Top) - This.Top
	This.Parent._xOffSet = (nXCoord - This.Parent.Left) - This.Left
	This.Parent._SetValue()
	IF This.Parent.ShowTips AND Thisform.ShowTips = .T. 
		Thisform.LockScreen = .T. 
			This.Parent._ShowToolTip(nButton, nShift, nXCoord, nYCoord)
			This.MouseUp(nButton, nShift, nXCoord, nYCoord)
		Thisform.LockScreen = .F. 
		This.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
	ENDIF 
ENDIF

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)

IF This.Parent.ShowTips AND This.Parent.Showtipsalways 
	This.ToolTipText = " " + ALLTRIM(TRANSFORM(This.Parent.Value)) + " " 
ELSE 
	This.ToolTipText = ""
ENDIF 

ENDPROC
      NBackStyle = 0
Height = 0
Left = -2
Top = -2
Width = 0
Name = "imgThumb"
      xslider      imgThumb      image      image     e@<name>TH_HOR_ARR_BOTH_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx`ap~Ď*ǐ*۞/45[ȵ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	A'H0@Hq
>D  Eh C| eJ6DҥM0e{p`An!Â( 7=p@Kr:UY/lKVPP[
|MO x  @c@ ;</picture>
<name>TH_HOR_ARR_BOTH_INACTIVE.GIF</name>
<picture>GIF89a       uuuwwwzzz}}}~~~                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       !   ,        	A'H0"HQD>d D Cp cxeK
JDҥM0e.H 7[vAA paЛ6\ `@L7@JjC4BWIm-ݻp ;</picture>
<name>TH_HOR_ARR_BOTH_REST.GIF</name>
<picture>GIF89a       n~!!KYLZXhcvi{KIrwxȵ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	(a)L0Hq>T`  E0 c

| eJDҥM0eBH@ C7[z萁@Л8`p @L9@JjC6BWImݻ4p ;</picture>
<name>TH_HOR_ARR_LEFT_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx}`ap~Ď*ǐ*˓+۞/ޠ/04559UXY[pqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,        	BĈ$1P jHHC&0Ǐ /h0Bc2R\)%A$8ɲ	60lĩ_ T*fΒF*ejsBP.Hׯ_!H aPX˖m
B4'x(_@ ;</picture>
<name>TH_HOR_ARR_LEFT_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺɺʼο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !   ,        	BVa@
NHA	>\Pĉ C0F$J\R%	1XM`@Ĉ7Y) @?*ѤJDh"jݪE5lK,87۷pH/  ;</picture>
<name>TH_HOR_ARR_LEFT_REST.GIF</name>
<picture>GIF89a       n~!!%#KYLZXhcvi{ECGFIGKIbacbfdgeonrwx}Ȧѱ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	"Ĉ$1PfHH:HCǏ %T0B#0R\	C%?88ɲ&,Р@.lĩ_P*fΒF*ej3
P
8bׯ_ a LX˖-@4axj_@ ;</picture>
<name>TH_HOR_ARR_RIGHT_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx}`ap~Ď*ǐ*˓+۞/ޠ/04559UXY[pqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,        AA"B[jHHC	 CΘ .PK1"<8a8͜-aX 6B4f3'SP B`H4
48m[ex   㿀 ;</picture>
<name>TH_HOR_ARR_RIGHT_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺɺʼο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !   ,        aP(8ǐ!RHHŉ0! C0QbAF$@(K$HD)˛0efLiK#@|@pϖ@=d _=}&]
Dh5D
,0aٳh50/Apʅ;m@ ;</picture>
<name>TH_HOR_ARR_RIGHT_REST.GIF</name>
<picture>GIF89a       n~!!%#KYLZXhcvi{ECGFIGKIbacbfdgeonrwx}Ȧѱ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        AA!@[fHHqPA CH $(K/<i!B8a8͜-]HQA6t4R3'SP`84B(m[e聃xjؐ!㿀 ;</picture>
<name>TH_HOR_SQ_BOTH_ACTIVE.GIF</name>
<picture>GIF89a       rwx}bǐ*ȑ+˓+ї,ޠ/005UXYpqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,       } aȠnw#JX
8 Ǐ$&X  A(S\9"B2iδSΛb
( ӧP<:hu00@ٳh
 p_@ ;</picture>
<name>TH_HOR_SQ_BOTH_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        !   ,       s ExࠠD#Jd a 2jQTI
.@`eI)tIJ4[t gΗ
4@PѣH@$HJu#  ׯ`
 /  ;</picture>
<name>TH_HOR_SQ_BOTH_REST.GIF</name>
<picture>GIF89a       " M[cvFDHFJHcbdbfegfporwx}Ȧұ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !   ,       ~ ]ng!#JH"B
Ǐ#D0A(S\)Nr2iSLs(ӧPPA <pʵ+W\'hӪP¿ ;</picture>
<name>TH_VER_ARR_BOTH_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx`ap~Ď*ǐ*۞/45[ȵ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	`A8
B@ C'2Ņ(4 HpK0B˗,i&
v3(O@ϦC]%B,y2A9zذǃFD ;</picture>
<name>TH_VER_ARR_BOTH_INACTIVE.GIF</name>
<picture>GIF89a       uuuwwwzzz}}}~~~                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       !   ,        	`A<80
@ C'Ņl" 0`䇗 "H8@A˛!DLi懜;kPF}"h%q\2ꇘB,y2?=blX#Up`A ;</picture>
<name>TH_VER_ARR_BOTH_REST.GIF</name>
<picture>GIF89a       n~!!KYLZXhcvi{KIrwxȵ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	aA8P
FPP  'Ņ L`K<0B˗,8i&
v3(O@ϦC]%B,yR@9zذǃFD ;</picture>
<name>TH_VER_ARR_DOWN_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx}`ap~Ď*ǐ*˓+۞/ޠ/04559UXY[pqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,        AMtడa

>ႅ$<(0
BN`4dTI+Y<2f˗5WޤSN6g)4L= f"!JL! B_
ǖlԲKցܹtŋ߀ ;</picture>
<name>TH_VER_ARR_DOWN_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺɺʼο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !   ,        aP`A
^ $0!(0PB%BG"K`cJ,O\H2St3&ϛ>m:3&
$BpH#:h A	WGx`?H@@`Ij,ʺ A۹n
 ;</picture>
<name>TH_VER_ARR_DOWN_REST.GIF</name>
<picture>GIF89a       n~!!%#KYLZXhcvi{ECGFIGKIbacbfdgeonrwx}Ȧѱ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        A`E``!<PAB0	B&8@@È2`TI+Y<2f˗5WޤN6g)4L=ubtĀ
 $x*
2 _ǖ,ԲKܹtŋ߀ ;</picture>
<name>TH_VER_ARR_UP_ACTIVE.GIF</name>
<picture>GIF89a       n~rwx}`ap~Ď*ǐ*˓+۞/ޠ/04559UXY[pqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,        	aA 80
Ha'FBŅ!JL!0CK)Q˗,Pi'v3(O@ϦCtRP	`'@hV 	8lHWD ;</picture>
<name>TH_VER_ARR_UP_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺɺʼο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !   ,        	x`A8p 
2X@D' 1Ņ 1N(c
*8e
1SЬYB
:yϜ;kҢJ6TөWr `aB>P` $0X@. ;</picture>
<name>TH_VER_ARR_UP_REST.GIF</name>
<picture>GIF89a       n~!!%#KYLZXhcvi{ECGFIGKIbacbfdgeonrwx}Ȧѱ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,        	aA8A
~p  '"xŅ $x2K'l1C˗*Lhi&%v3(O@ϦCtRPyA` C	B@`	.XKH7 ;</picture>
<name>TH_VER_SQ_BOTH_ACTIVE.GIF</name>
<picture>GIF89a       rwx}bǐ*ȑ+˓+ї,ޠ/005UXYpqtt|ȵ;ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              !   ,        m@`9X@.h0!,  A ǐ#Bt(eʕ&]dy2̘(o	s͞5E9'MG&ɥ#D  C2Pp`  @ .  ;</picture>
<name>TH_VER_SQ_BOTH_INACTIVE.GIF</name>
<picture>GIF89a       ¿ŵƹǺο                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        !   ,       o Ex`B`x@A B0!G"+P`cJ,O\H2St3&ϛ>m:hϚE	T͒-f1B#HР ;</picture>
<name>TH_VER_SQ_BOTH_REST.GIF</name>
<picture>GIF89a       " M[cvFDHFJHcbdbfegfporwx}Ȧұ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !   ,       ~ m@ 3Da	,h
 A0ǐ"@p(eʕ&]dy2̘(o	s͞5E9'MG&ɥ"B|0CFX
;*LXـ ;</picture>
<name>TR_HOR.GIF</name>
<picture>GIF89a                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    !   ,      x 
H*\ȰÇ#JHŋȱǏ CIɓ(S\ɲ˗	I͛8s܉R@ @
JIF*]ʴ HJիXjʵׯ`ÊK٪ ;</picture>
<name>TR_VER.GIF</name>
<picture>GIF89a                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       !   ,       
 @@	P!ÄFDJxQ#ō ?H&S\ٱ%Ǘ%Y<2fM3UԙS͞;}ItQE)ӧA*եRfzV]j
U,ױhϪZn[.ٻm}k7o_{XY
  ;</picture>
                                      %         _     G            U  6         C             U 
 NDIRECTION NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSEWHEEL       + T           + T  	    
    
   C             U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT _YOFFSET TOP IMGTHUMB _XOFFSET LEFT	 MOUSEDOWN6         C             U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT MOUSEUP
 MouseWheel,     	 MouseDown      MouseUp    1 13 12 11                                        	     2  
    )                          =PROCEDURE MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)

ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Parent._yOffSet = (nYCoord - This.Parent.Top) - This.Parent.ImgThumb.Top
This.Parent._xOffSet = (nXCoord - This.Parent.Left) - This.Parent.ImgThumb.Left

This.Parent.MouseDown(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Parent.MouseUp(nButton, nShift, nXCoord, nYCoord)
ENDPROC
      [Stretch = 2
BackStyle = 0
Height = 0
Left = -2
Top = -2
Width = 0
Name = "imgTrack"
      xslider      imgTrack      image      image     {    b  b                        .O   %   H        =               U  J      Q BOOLEAN  Q INTEGER T  T a   ?    T     T   	 
 H $ C  84  T 
   %    T   $ C  26J T 
   %  F T          T 
   %   T          T 
   %   T    2 T -  % ; C  
 
 % 7     B U  NKEYCODE
 NSHIFTALTCTRL
 LLSTAYHERE
 LNNEWVALUE THIS PARENT
 LNSMALLCHANGE
 LNLARGECHANGE SMALLCHANGE LARGECHANGE VALUE MIN MAX	 _SETVALUES     H  % D  T - T  - C    B U  THIS PARENT ENABLED	 _HASFOCUS SHPFOCUS VISIBLE	 LOSTFOCUSV     K  % G  T a T    C    B U  THIS PARENT ENABLED	 _HASFOCUS SHPFOCUS VISIBLE	 SHOWFOCUS GOTFOCUS KeyPress,     	 LostFocus
     GotFocus    1  "!   21 C!! A C!! A "! A "! A   B "  A A A B B 2     A B B 3   ! A A B 2                       p     +       E   4   .    S    )   b                       PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

LOCAL llStayHere AS Boolean
LOCAL lnNewValue AS Integer
lnNewValue = -1
llStayHere = .T.

WITH This.Parent

	LOCAL lnSmallChange, lnLargeChange

	lnSmallChange = This.Parent.SmallChange 
	lnLargeChange = This.Parent.LargeChange 
	
*    ._Orientation = 0 Horizontal 
*    ._Orientation = 1 Vertical  

	DO CASE

		** Page Up key, SHIFT UP, CTRL UP, ALT UP, SHIFT LEFT, CTRL LEFT, ALT LEFT
		CASE INLIST(nKeyCode, 18, 56, 141, 152, 52, 26, 155)
			lnNewValue = .Value - lnLargeChange
			IF lnNewValue <= .Min
				lnNewValue = .Min
			ENDIF

		** Page Down key, SHIFT DN, CTRL DN, ALT DN, SHIFT RIGHT, CTRL RIGHT, ALT RIGHT
		CASE INLIST(nKeyCode, 3, 50, 145, 160, 54, 2, 157)
			lnNewValue = .Value + lnLargeChange
			IF lnNewValue >= .Max
				lnNewValue = .Max
			ENDIF

		** 4 Right   5 Up   19 left   24 down
		** Up/Left arrows
		CASE nKeyCode = 5 OR nKeyCode = 19

			lnNewValue = .Value - lnSmallChange
			IF lnNewValue <= .Min
				lnNewValue = .Min
			ENDIF


		** Down/Right arrows
		CASE nKeyCode = 24 OR nKeyCode = 4

			lnNewValue = .Value + lnSmallChange
			IF lnNewValue >= .Max
				lnNewValue = .Max
			ENDIF

		OTHERWISE
			llStayHere = .F.

	ENDCASE

	IF lnNewValue > -1
		._SetValue(lnNewValue)
		IF llStayHere
			NODEFAULT
		ENDIF
	ENDIF

ENDWITH

RETURN
ENDPROC
PROCEDURE LostFocus
WITH This.Parent

	IF .Enabled
		._HasFocus = .F.
		.shpFocus.Visible = .F.
		.LostFocus()
	ENDIF
	
ENDWITH

RETURN

ENDPROC
PROCEDURE GotFocus
WITH This.Parent
	IF .Enabled
		._HasFocus = .T.
		.shpFocus.Visible = .ShowFocus
		.GotFocus()
	ENDIF
ENDWITH

RETURN

ENDPROC
      BHeight = 4
Left = -200
Top = 60
Width = 13
Name = "txtFocus"
      xslider      txtFocus      textbox      textbox                                      %         _     G            U  6         C             U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT MOUSEUP       + T           + T  	    
    
   C             U  NBUTTON NSHIFT NXCOORD NYCOORD THIS PARENT _YOFFSET TOP IMGTHUMB _XOFFSET LEFT	 MOUSEDOWN6         C             U 
 NDIRECTION NSHIFT NXCOORD NYCOORD THIS PARENT
 MOUSEWHEEL MouseUp,     	 MouseDown     
 MouseWheel    1 12 12 12                       x                 	     4  
    )                          ?PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Parent.MouseUp(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

This.Parent._yOffSet = (nYCoord - This.Parent.Top) - This.Parent.ImgThumb.Top
This.Parent._xOffSet = (nXCoord - This.Parent.Left) - This.Parent.ImgThumb.Left

This.Parent.MouseDown(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)

ENDPROC
      Top = -2
Left = -2
Height = 0
Width = 0
BackStyle = 0
BorderStyle = 1
Visible = .F.
BorderColor = 192,192,192
Name = "shpFocus"
      xslider      shpFocus      shape      shape     trackimage CHaracter, The full path and name of the image which represents the track
thumbimage String. The full path and name of the image which represents the thumb
incrementstyle Integer. Returns or sets a value indicating the style of increment. 0 = increment, 1 = smooth
tickcolor Integer, Returns or sets the tic line color
_linecount Internal use only. Count of tic marks.
ticksize Integer. The size of the tic lines in pixels
tickmargin Integer. The distance in pixels from border of the control to the left or top edge of the tic marks
value Returns or sets the value
_internal
_memberdata XML Metadata for customizable properties
_xoffset
_yoffset
_orientation The orientation of the contro.
showfocus Indicates if the control will display a focus rectangle when the control has the focus
_hasfocus Set to True when the control has the focus
largechange Returns/sets the increment value when the PageDown or PageUp key is pressed
max Returns/sets the maximum value of a control
min Returns/sets the minimum value of a control
smallchange Returns/sets the increment value when the left or right arrow key is pressed
tickstyle Integer, (1-4) Returns/sets a value indicating where ticks appear on a Slider control. 1 = None; 2 = Both Ticks; 3 = Top/Left; 4 = Botton/Right
changewhenfocused
tickdisabledcolor Integer, Returns or sets the tic line disabled color
controlsource Specifies the source of data to which the control is bound
_databound Internal use. Specifies if the control is bound to data
_userchange Set to True when the user changes the value of the control.
stylecontrol 0 = User Images; 1 = No Arrow; 2 = Both Arrows; 3 = Top or Left Arrow; 4 = Down or Right Arrow
_trackheight
thumbimagefocused Character, the full path of the Thumb Image used when the object has the mouse over it
thumbimagedisabled Character, the full path of the Thumb Image used when the object is disabled
_lstarted
_userimages
showtips Determines if ToolTips are shown for the slider on the specified Form. *** The form property 'ShowTips' must be set to .T. as well!!!
_thumbactive
_thumbdisabled
cversion
tickfrequency Integer, Gets or sets the interval between tick marks.
_tickcount
_mousedown
showtipsalways
*_setup Sets up the control for use
*trackimage_assign 
*thumbimage_assign 
*_setuplines Sets up the tic mark lines
*incrementstyle_assign 
*tickcolor_assign 
*ticksize_assign 
*tickmargin_assign 
*_setvalue Sets the value property
*value_assign 
*scroll Occurs when the user changes the value of the control by dragging the  thumb
*showfocus_assign 
*_removetickmarklines Removes all tick mark lines
*enabled_assign 
*tickdisabledcolor_assign 
*controlsource_assign 
*_refreshfromdata When the control is bound to a data source, refreshes the control from the data source
*_savechangestodata Saves changes to data when the control is data bound
*tickstyle_assign 
*stylecontrol_assign 
*_processimages 
*_checkerrors 
*tickfrequency_assign 
*_showtooltip 
     E/    E  E                        8   %   :      B    i=            U  
 C   
   
 C    T     T    - T    T    T	   %C  
 
   Q IMAGE T C ImageN T    
  T
    T    T   C
  F  %   T  T
 
  T   T    T   T     $ T      T    T   $ T       T   T
 
  T   T    T    T     $ T     % T      $ T      T     C  C  T   T a  %      	) C FoxySliderToolTip Label     Q LABEL T      T !  !  T " C^ T   T #  T $  T % a T  -  B U&  THIS _CHECKERRORS _PROCESSIMAGES	 BACKSTYLE
 DUMMYLABEL VISIBLE SHPFOCUS LEFT TOP BORDERWIDTH
 TRACKIMAGE LOIMAGE PICTURE LNHEIGHT HEIGHT LNWIDTH WIDTH _TRACKHEIGHT _ORIENTATION
 THUMBIMAGE _YOFFSET IMGTHUMB IMGTRACK _XOFFSET _SETUPLINES _REFRESHFROMDATA ENABLED	 _LSTARTED THISFORM SHOWTIPS	 ADDOBJECT LOTIP FOXYSLIDERTOOLTIP FONTNAME	 BACKCOLOR BORDERSTYLE	 ALIGNMENT AUTOSIZEz   Q STRING %       Q IMAGE T C ImageN T    T    T  	  T 
   
  o %     T  T  CC  @ T    T
     k T     %  . T 9   H T 9    T   T
      B U  TCTRACKIMAGE THIS
 TRACKIMAGE LOIMAGE PICTURE LCFILE LNHEIGHT HEIGHT LNWIDTH WIDTH _TRACKHEIGHT STYLECONTROL _USERIMAGES IMGTRACK
 LCTRACKIMG _ORIENTATION
 SLIDERXPIX TR_HOR TR_VER
 PICTUREVAL   Q STRING
   %   T    T    %C  ! T CC     6  %C  ! T CC	    	 6   
   
 H ^  
 | %  : T
 9   T 9   T 9   x T
 9   T 9   T 9     
  %   T
 9   T 9   T 9    T
 9   T 9   T 9     
  %  v T
 9   T 9   T 9    T
 9   T 9    T 9 !    
 V %   T
 9 "  T 9 #  T 9 $  R T
 9 %  T 9 &  T 9 '   2^  T 
  T   T   T ( 
    B U)  TCTHUMBIMAGE THIS _USERIMAGES
 THUMBIMAGE IMGTHUMB PICTURE _THUMBDISABLED THUMBIMAGEDISABLED _THUMBACTIVE THUMBIMAGEFOCUSED
 LCTHUMBIMG
 LCDISABLED LCACTIVE STYLECONTROL _ORIENTATION
 SLIDERXPIX TH_VER_SQ_BOTH_REST TH_VER_SQ_BOTH_INACTIVE TH_VER_SQ_BOTH_ACTIVE TH_HOR_SQ_BOTH_REST TH_HOR_SQ_BOTH_INACTIVE TH_HOR_SQ_BOTH_ACTIVE TH_VER_ARR_BOTH_REST TH_VER_ARR_BOTH_INACTIVE TH_VER_ARR_BOTH_ACTIVE TH_HOR_ARR_BOTH_REST TH_HOR_ARR_BOTH_INACTIVE TH_HOR_ARR_BOTH_ACTIVE TH_VER_ARR_UP_REST TH_VER_ARR_UP_INACTIVE TH_VER_ARR_UP_ACTIVE TH_HOR_ARR_LEFT_REST TH_HOR_ARR_LEFT_INACTIVE TH_HOR_ARR_LEFT_ACTIVE TH_VER_ARR_DOWN_REST TH_VER_ARR_DOWN_INACTIVE TH_VER_ARR_DOWN_ACTIVE TH_HOR_ARR_RIGHT_REST TH_HOR_ARR_RIGHT_INACTIVE TH_HOR_ARR_RIGHT_ACTIVE
 PICTUREVAL.          Q LINE
  # C  	  % 
  j 
 T	    . T	 C     
     F  %
  T       T  	  T C  8   (  %C b# T  lin_leftCC  Z C   line  T C . 
  ^% T C  	      6 %   T      " T        T    T    T   C  T C   
   %C $ T 	 lin_rightCC  Z C   line  T C . 
  % T C  	      6 %  / T      Y" T        T        T    T   C  T C   
   T        T        T   	  T C   8   (  %C # T  lin_leftCC  Z C   line  T C . 
  % T C  	      6 T    %  $ T       N" T        T   T    C  T C   
   %C $ T 	 lin_rightCC  Z C   line  T C . 
   % T C  	      6 T        %   T       " T        T   T    C  T C   
   T      B U  LNAVAILABLEWIDTH LNAVAILABLEHEIGHT	 LNSPACING LNLINECOUNT LNLINE
 LCLINENAME LOLINE THIS _REMOVETICKMARKLINES LNTICKCOUNT
 TICKFREQUENCY MAX MIN _ORIENTATION HEIGHT IMGTHUMB	 TICKSTYLE	 ADDOBJECT BORDERCOLOR ENABLED	 TICKCOLOR TICKDISABLEDCOLOR TOP LEFT
 TICKMARGIN WIDTH TICKSIZE ZORDER VISIBLE
 _LINECOUNTz    Q INTEGER %C   Na  %C   L  T     ] 	   s 
   U  TNINCREMENTSTYLE THIS INCREMENTSTYLE]    Q INTEGER %C   ND  T    
 C   V 
   U  TNLINECOLOR THIS	 TICKCOLOR _SETUPLINES]    Q INTEGER %C   ND  T    
 C   V 
   U 
 TNLINESIZE THIS TICKSIZE _SETUPLINES]    Q INTEGER %C   ND  T    
 C   V 
   U  TNLINEMARGIN THIS
 TICKMARGIN _SETUPLINES   Q INTEGER
  v  Q CONTROL T     %C   C   L	B
 Hq       T          T   	  	   %  
 
 T    % 
 T  ) T  C 
    
   T  T a T
    C  C   B U  TNVALUE THIS LOBUTTON IMGTHUMB	 LNPERCENT _ORIENTATION LEFT WIDTH TOP HEIGHT MIN MAX	 _INTERNAL VALUE _SAVECHANGESTODATA SCROLL   Q INTEGER  Q CONTROL
   T   %C   N %C    9 T      T     
 H      T 	  
  
    T        %
 5 T
 - C   O  Value assigned:C  _-  not between the properties '.Min' and '.Max'  
    B U  TNVALUE LOBUTTON THIS IMGTHUMB MIN MAX VALUE	 LNPERCENT _ORIENTATION LEFT WIDTH TOP HEIGHT	 _INTERNAL SCROLL    Q BOOLEAN
  {  %C   Le  T    % a  T      w 
    B U  TLSHOWFOCUS THIS	 SHOWFOCUS	 _HASFOCUS SHPFOCUS VISIBLE 
     %      (  # T  lin_leftCC  Z$ T 	 lin_rightCC  Z %C . b O  C     %C . b O  C      T     B U  THIS
 _LINECOUNT LNLINE	 SLEFTNAME
 SRIGHTNAME REMOVEOBJECT   Q BOOLEAN
    %C   L  T    %   
 %  w  T        T        
 %    T        T         
    B U	 	 TLENABLED THIS ENABLED _USERIMAGES IMGTHUMB
 PICTUREVAL
 THUMBIMAGE _THUMBDISABLED PICTUREZ    Q LONG %C   NA  T    
 C   S 
   U  TNTICKDISABLEDCOLOR THIS TICKDISABLEDCOLOR _SETUPLINES\    Q STRING %C   SC  T    
 C   U 
   U  TCCONTROLSOURCE THIS
 CONTROLSOURCE _REFRESHFROMDATA    Q INTEGER  Q	 EXCEPTION T   T 
    T - %C 
  ~  T  C  (   C  x  T C   %   %C  
  C        B U 
 IDATAVALUE
 OEXCEPTION THIS
 _DATABOUND
 CONTROLSOURCE MESSAGE	 _SETVALUE   Q BOOLEAN  Q	 EXCEPTION  Q STRING  Q STRING  Q STRING T 
   %   	 %C 
 % .   T C  . T C  . %C   T  a   %C  C 
4 T C   = C	 _  
 %  6 REPLACE IN &sTable &sColumn WITH This.Value NEXT 1
 
 &sCommand
  (  C 
 x        B U  BISTABLE
 OEXCEPTION SCOLUMN SCOMMAND STABLE THIS	 _LSTARTED
 _DATABOUND
 CONTROLSOURCE VALUE MESSAGE]    Q INTEGER %C   ND  T    
 C   V 
   U  TNTICKSTYLE THIS	 TICKSTYLE _SETUPLINES/     T  
   T     U  VNEWVAL THIS STYLECONTROL
 THUMBIMAGE- %C _Screen.SliderXPix.tr_horb C1  B  Q      8 o xClass C 

   image	 userStr    	 
 T  T C   QC userstrW QC xClassW 
 Q OBJECT T
 C EmptyN +a& T C  <name> </name>  %C F ! , T	 C 	 <picture>
 </picture>  C
 C 	 
 T    C
 SliderXPix 
 9  U  THIS CLASSLIBRARY XCLASS USER	 BASECLASS USERSTR CPIXSTR NPIX CPIXNAME CPIXCONTENTS LOPIX ADDPROPERTY %         T     T    + %C 
 C  C C 0
 '  Slider.TrackImage C _ B- + %C 
 C  C C 0
 '  Slider.ThumbImage C _ B-   %      X= 4 Inconsistent values for properties '.Min' and '.Max' B- 5 %C    N C    
3 * Invalid value for property '.StyleControl' B-  %C    %    
 H    2 T       V T       z T        T    2    U	  THIS STYLECONTROL
 LCTRACKIMG
 LCTHUMBIMG
 TRACKIMAGE
 THUMBIMAGE MIN MAX	 TICKSTYLE]    Q INTEGER %C   ND  T    
 C   V 
   U  TNFREQUENCY THIS
 TICKFREQUENCY _SETUPLINES      J %C _Screen.ActiveFormb O! C THIS.FoxySliderToolTipb Oa  B   Q LABEL  T    T   CC  _    % 	 a  
  	  B  T 
     
     T 
  T 
  T

 
   T
 
   %    T
   T
  
  % 	 a T      T
   T
  
  % 	 a T      %
 

   0 T
   

   %
  
V T
    T
  
  T
  
  T 	 a B U  NBUTTON NSHIFT NXCOORD NYCOORD LOTIP LCNEWCAPTION THIS FOXYSLIDERTOOLTIP VALUE VISIBLE CAPTION LNLEFT LNTOP LNWIDTH LNHEIGHT LNX LNY WIDTH HEIGHT _ORIENTATION TOP LEFT THISFORM@  %C    O9 ! C FoxySliderToolTip     U  THIS FOXYSLIDERTOOLTIP REMOVEOBJECTP        Q INTEGER  Q INTEGER
  E % A T  	  T
    %   
 T 
   
 T    %     T      T     % 
 

 T 
   %  . T    C      B U 
 NDIRECTION NSHIFT NXCOORD NYCOORD LNINCREMENT
 LNNEWVALUE THIS ENABLED
 LNSMALLCHANGE SMALLCHANGE
 LNLARGECHANGE LARGECHANGE VALUE MIN MAX	 _SETVALUE
    T    T    C  %   T    T 	    T    
 $ T      T    $ T       T    T     T    
 $ T 	     T    $ T 	      C     
   B U  THIS SHPFOCUS HEIGHT WIDTH _SETUPLINES _ORIENTATION _YOFFSET IMGTHUMB IMGTRACK TOP _TRACKHEIGHT LEFT _XOFFSET	 _SETVALUE VALUEU        T  a C    C            B U	  NBUTTON NSHIFT NXCOORD NYCOORD THIS
 _MOUSEDOWN TXTFOCUS SETFOCUS	 MOUSEMOVE 
 BC    U  THIS _SETUP        Q CONTROL T   
   %  %  e  B  T a
 H J 	   % 
    T 
   # % 
      T 
      ( T
  
 C      6 T  - T    T 
     %  

 T    % 
 T  ) T C        T T    	 J %   " T    # %      h T       ( T   C      6 T  - T    T      %  

 T    % 

 T  ) T C        T T     %  	   a	 C               B U  NBUTTON NSHIFT NXCOORD NYCOORD LOBUTTON THIS IMGTHUMB ENABLED	 _INTERNAL _ORIENTATION LEFT _XOFFSET WIDTH	 LNNEWLEFT
 _MOUSEDOWN
 LNOLDVALUE VALUE	 LNPERCENT
 LNNEWVALUE MIN MAX TOP _YOFFSET HEIGHT LNNEWTOP SHOWTIPS THISFORM _SHOWTOOLTIP$  %    
 C     U  THIS	 _LSTARTED _REFRESHFROMDATA _setup,      trackimage_assign     thumbimage_assign	     _setuplines     incrementstyle_assignG     tickcolor_assign     ticksize_assigny     tickmargin_assign    	 _setvalue     value_assign     showfocus_assign     _removetickmarklines     enabled_assign     tickdisabledcolor_assignL!     controlsource_assign!     _refreshfromdata}"     _savechangestodata#     tickstyle_assign&     stylecontrol_assign&     _processimages&     _checkerrors,)     tickfrequency_assign>,     _showtooltip,     Destroy10    
 MouseWheel0     Resize2    	 MouseDown4     Init5    	 MouseMove5     RefreshT:    1     2Q1QA 2   bABaA    bABQBA     A 1  A C 3 LQA  B    r !! !A  C B B 3  " !A A    A!!!! !!!A B!!!! !!!A B!!!! !!!A B!!!! !!!A  B    C B B 3     r A  A #1l2aB QQ !A   A B iBaB QQ !A   A B 2B  t 1m2aB QQ !A   A B jBaB QR !A   A B 2B B B B 2 !RQ  A   A 3 !R   A 3 !R   A 3 !R   A 3 ! " q  !!A  A  A A     B B 3 !"  Rr q  !!A    A  A   A B B 3 ! Q  A   A A B 3  "1A A  A A  B B B 3 ! Q ! a aA   a aA A   A A B 2  R   A 3 R   A 3 !A       A A   A A A A 4 !A  b4  A B A   a  A   A   A B B B 3 !R   A 3 q "12 A A r3 !3!Q a A A QB 2 B qq A qq A A sq A S1q A A AAAA A A A 4 !R   A 3 1A A BA A   BAK "A   "A B A 1 A BA B 7 A 2 1"!     A ! !A " A ! A  B B B 3  "! "bbABB bbABBB 2B B 3 1 A 3  3 1"  A A   "r1A 1A   A  A "r1A 1A   A  A A A D B B 3  A 2                            ;       X   X               U*        *  +    	  +  ,      ,  -      -  .    !  .  w1    <  1  4    X  5  "6  +  e  M6  7  <  v  8  %:  X    T:  /;  r    Z;  ,<  }    S<  >      />  -B      TB  C      <C  C      C  G      G  ML      xL  :M  K  &  ]M  R  V  N  R  {S    R  S  V    n  V  Z      6Z  Z      Z  e      :e  {l  9    l  l     )   E                       lPROCEDURE _setup
This._CheckErrors()

WITH This

	This._ProcessImages()

	This.BackStyle = 0 && Transparent
	This.DummyLabel.Visible = .F.

	.shpFocus.Left = 0
	.shpFocus.Top  = 0
	.BorderWidth   = 0

	IF NOT EMPTY(This.TrackImage)
		LOCAL loImage as Image
		loImage = CREATEOBJECT("Image")
		loImage.Picture = This.TrackImage
		lnHeight = loImage.Height
		lnWidth = loImage.Width
		This._Trackheight = MIN(lnHeight, lnWidth)
	ENDIF

	IF .Height > .Width
		._Orientation = 1 && Vertical

		** This causes the _Assign methods to fire
		.TrackImage = .TrackImage
		.ThumbImage = .ThumbImage

		._yOffSet = .imgThumb.Height / 2

		.imgTrack.Top = 0 + 1 && ._yOffSet
		.imgTrack.Width = This._Trackheight

		.imgTrack.Left = (.Width / 2) - (.imgTrack.Width / 2)
		.imgTrack.Height = .Height - 2 && (2 * ._yOffSet)

		.imgThumb.Top = 0
		.imgThumb.Left = (.Width / 2) - (.imgThumb.Width / 2)

	ELSE && Horizontal

		._Orientation = 0

		** This causes the _Assign methods to fire
		.TrackImage = .TrackImage
		.ThumbImage = .ThumbImage

		._xOffSet = .imgThumb.Width / 2

		.imgTrack.Left = 0 && + ._xOffSet
		.imgTrack.Height = This._Trackheight
		
		.imgTrack.Top = (.Height / 2) - (.imgTrack.Height / 2)
		.imgTrack.Width = .Width - 2 * ( ._xOffSet ) + (.ImgThumb.Width)

		.imgThumb.Top = (.Height / 2) - (.imgThumb.Height / 2)
		.imgThumb.Left = 0
	ENDIF

	._SetupLines()
	._RefreshFromData()

	.Enabled = .Enabled	&& Causes _Assign to fire
	._lStarted = .T.
ENDWITH

IF Thisform.ShowTips AND This.ShowTips 
*	Thisform.AddObject("FoxySliderToolTip", "Label")
	This.AddObject("FoxySliderToolTip", "Label")
	LOCAL loTip as Label
*	loTip = Thisform.FoxySliderToolTip
	loTip = This.FoxySliderToolTip
	loTip.FontName = Thisform.FontName 
	loTip.BackColor = RGB(255,255,225)
	loTip.BackStyle = 1 && Opaque
	loTip.BorderStyle = 1 && FixedSingle
	loTip.Alignment = 2 
	loTip.AutoSize = .T.
	loTip.Visible = .F.
ENDIF 


RETURN

ENDPROC
PROCEDURE trackimage_assign
LPARAMETERS tcTrackImage AS String

* This.StyleControl values
* 0 = User Images
* 1 = No Arrow
* 2 = Both Arrows
* 3 = Top or Left Arrow
* 4 = Down or Right Arrow

* Track Values for StyleControl = 1,2,3,4
*     Orientation = 0 Horizontal: _Screen.SliderXPix.tr_hor  
*     Orientation = 1 Vertical  : _Screen.SliderXPix.tr_ver  
IF tcTrackImage <> This.TrackImage 
	LOCAL loImage as Image 
	loImage = CREATEOBJECT("Image")
	loImage.Picture = lcFile
	lnHeight = loImage.Height
	lnWidth = loImage.Width
	This._Trackheight = lnHeight
ENDIF 


WITH This

	IF This.StyleControl = 0
		._UserImages = 1 && User
	
		tcTrackImage = LOWER(ALLTRIM(tcTrackImage))
		.TrackImage = tcTrackImage
		.imgTrack.Picture = tcTrackImage
	ELSE && Choose default images according to the Slider _Orientation

		._UserImages = 0 && Default Images

		LOCAL lcTrackImg
		IF ._Orientation = 0 && Horizontal
			lcTrackImg = _Screen.SliderXPix.tr_hor
		ELSE && Vertical
			lcTrackImg = _Screen.SliderXPix.tr_ver
		ENDIF 

		.TrackImage = lcTrackImg
		.imgTrack.PictureVal = lcTrackImg

*		ERROR 1732	&& Data type is invalid for this property.
	ENDIF

ENDWITH

RETURN

ENDPROC
PROCEDURE thumbimage_assign
LPARAMETERS tcThumbImage AS String

WITH This

	IF ._UserImages = 1 && User Defined Pictures
		.ThumbImage = tcThumbImage
		.imgThumb.Picture = .ThumbImage

		IF EMPTY(._ThumbDisabled)
			._ThumbDisabled = IIF(EMPTY(.ThumbImagedisabled), .ThumbImage, .ThumbImagedisabled)
		ENDIF
		IF EMPTY(._ThumbActive)
			._ThumbActive = IIF(EMPTY(.ThumbImageFocused), .ThumbImage, .ThumbImageFocused)
		ENDIF
	ELSE && _Style = 0 && Default Images

		LOCAL lcThumbImg, lcDisabled, lcActive

		* This.StyleControl values
		* 0 = User Images
		* 1 = No Arrow
		* 2 = Both Arrows
		* 3 = Top or Left Arrow
		* 4 = Down or Right Arrow

		* Track Values for StyleControl = 1,2,3,4
		*     Orientation = 0 Horizontal: _Screen.SliderXPix.tr_hor
		*     Orientation = 1 Vertical  : _Screen.SliderXPix.tr_ver

		DO CASE
			CASE This.StyleControl = 1 && No Arrow
				IF ._Orientation = 0 && Horizontal
					lcThumbImg = _Screen.SliderXPix.th_ver_sq_both_rest
					lcDisabled = _Screen.SliderXPix.th_ver_sq_both_inactive
					lcActive   = _Screen.SliderXPix.th_ver_sq_both_active
				ELSE && Vertical
					lcThumbImg = _Screen.SliderXPix.th_hor_sq_both_rest
					lcDisabled = _Screen.SliderXPix.th_hor_sq_both_inactive
					lcActive   = _Screen.SliderXPix.th_hor_sq_both_active
				ENDIF

			CASE This.StyleControl = 2 && Both Arrows
				IF ._Orientation = 0 && Horizontal
					lcThumbImg = _Screen.SliderXPix.th_ver_arr_both_rest
					lcDisabled = _Screen.SliderXPix.th_ver_arr_both_inactive
					lcActive   = _Screen.SliderXPix.th_ver_arr_both_active

				ELSE && Vertical
					lcThumbImg = _Screen.SliderXPix.th_hor_arr_both_rest
					lcDisabled = _Screen.SliderXPix.th_hor_arr_both_inactive
					lcActive   = _Screen.SliderXPix.th_hor_arr_both_active
				ENDIF

			CASE This.StyleControl = 3 && Top or Left arrow
				IF ._Orientation = 0 && Horizontal
					lcThumbImg = _Screen.SliderXPix.th_ver_arr_up_rest
					lcDisabled = _Screen.SliderXPix.th_ver_arr_up_inactive
					lcActive   = _Screen.SliderXPix.th_ver_arr_up_active
				ELSE && Vertical
					lcThumbImg = _Screen.SliderXPix.th_hor_arr_left_rest
					lcDisabled = _Screen.SliderXPix.th_hor_arr_left_inactive
					lcActive   = _Screen.SliderXPix.th_hor_arr_left_active
				ENDIF

			CASE This.StyleControl = 4 && Bottom or Right Arrow
				IF ._Orientation = 0 && Horizontal
					lcThumbImg = _Screen.SliderXPix.th_ver_arr_down_rest
					lcDisabled = _Screen.SliderXPix.th_ver_arr_down_inactive
					lcActive   = _Screen.SliderXPix.th_ver_arr_down_active
				ELSE && Vertical
					lcThumbImg = _Screen.SliderXPix.th_hor_arr_right_rest
					lcDisabled = _Screen.SliderXPix.th_hor_arr_right_inactive
					lcActive   = _Screen.SliderXPix.th_hor_arr_right_active
				ENDIF
			OTHERWISE

		ENDCASE

		.ThumbImage = lcThumbImg
		._ThumbDisabled = lcDisabled
		._ThumbActive = lcActive
		.imgThumb.PictureVal = lcThumbImg

		*		ERROR 1732	&& Data type is invalid for this property.
	ENDIF

ENDWITH

RETURN

ENDPROC
PROCEDURE _setuplines
LOCAL lnAvailableWidth, lnAvailableHeight, lnSpacing, lnLineCount, lnLine, lcLineName
LOCAL loLine as Line 


*!*	StyleControl
*!*	0 = User
*!*	1 = None
*!*	2 = Both arrows
*!*	3 = Top/Left
*!*	4 = Botton/Right

*!*	TickStyle
*!*	0 = None
*!*	1 = None
*!*	2 = Both Ticks
*!*	3 = Top/Left
*!*	4 = Botton/Right

WITH This

	** Remove all lines
	._RemoveTickMarkLines()

	LOCAL lnTickCount
	IF This.TickFrequency <= 0
		lnTickCount = 0
	ELSE 
		lnTickCount = MIN((This.Max - This.Min) / This.TickFrequency, This.Max - This.Min)
	ENDIF 
	

	IF ._Orientation = 1 && Vertical

		lnAvailableHeight = This.Height - This.ImgThumb.Height

		lnSpacing  = lnAvailableHeight / lnTickCount && .TickCount
		lnLineCount = INT(lnAvailableHeight / lnSpacing)

		FOR lnLine = 0 TO lnLineCount + 1
*!*				IF lnLine = 0 OR lnLine = lnLineCount
*!*					LOOP
*!*				ENDIF
		
*!*	TickStyle
*!*	0 = None
*!*	1 = None
*!*	2 = Both Ticks
*!*	3 = Top/Left
*!*	4 = Botton/Right

			IF INLIST(.TickStyle, 2, 3)	&& Top/Left or Both
		
				lcLineName = "lin_left" + ALLTRIM(STR(lnLine,4,0))
				.AddObject(lcLineName, "line")
			
				loLine = EVALUATE("." + lcLineName)
				
				WITH loLine
					.BorderColor = IIF(This.Enabled, This.TickColor, This.TickDisabledColor)
					IF lnLine = lnLineCount + 1
						.Top = (lnAvailableHeight) + (This.ImgThumb.Height / 2)
					ELSE
						.Top = (lnSpacing * lnLine) + (This.ImgThumb.Height / 2)
					ENDIF 
					.Left = This.TickMargin
					.Width = This.TickSize
					.Height = 0
					.ZOrder(1)
					.Visible = (NOT INLIST(This.TickStyle, 0, 1))
				ENDWITH

			ENDIF
		
*!*	TickStyle
*!*	0 = None
*!*	1 = None
*!*	2 = Both Ticks
*!*	3 = Top/Left
*!*	4 = Botton/Right

			IF INLIST(.TickStyle, 2, 4)	&& Bottom/Right or Both
		
				lcLineName = "lin_right" + ALLTRIM(STR(lnLine,4,0))
				.AddObject(lcLineName, "line")
			
				loLine = EVALUATE("." + lcLineName)
				
				WITH loLine
					.BorderColor = IIF(This.Enabled, This.TickColor, This.TickDisabledColor)
					IF lnLine = lnLineCount + 1
						.Top = (lnAvailableHeight) + (This.ImgThumb.Height / 2)
					ELSE
						.Top = (lnSpacing * lnLine) + (This.ImgThumb.Height / 2)
					ENDIF 
					.Left = This.Width - This.TickSize - This.TickMargin
					.Width = This.TickSize
					.Height = 0
					.ZOrder(1)
					.Visible = (NOT INLIST(This.TickStyle, 0, 1))
				ENDWITH

			ENDIF

			._LineCount = ._LineCount + 1
		
		ENDFOR

	ELSE

		&& If here ._Orientation is 0, horizontal

		LOCAL lnAvailableWidth
		lnAvailableWidth = This.Width - This.ImgThumb.Width

		lnSpacing = lnAvailableWidth / lnTickCount && .TickCount
		lnLineCount = INT(lnAvailableWidth / lnSpacing)

		FOR lnLine = 0 TO lnLineCount + 1
*!*				IF lnLine = 0 OR lnLine = lnLineCount
*!*					LOOP
*!*				ENDIF
		

*!*	TickStyle
*!*	0 = None
*!*	1 = None
*!*	2 = Both Ticks
*!*	3 = Top/Left
*!*	4 = Botton/Right

			IF INLIST(.TickStyle, 2, 3)	&& Top/Left or Both
		
				lcLineName = "lin_left" + ALLTRIM(STR(lnLine,4,0))
				.AddObject(lcLineName, "line")
			
				loLine = EVALUATE("." + lcLineName)
				
				WITH loLine
					.BorderColor = IIF(This.Enabled, This.TickColor, This.TickDisabledColor)
					.Top = This.TickMargin
					IF lnLine = lnLineCount + 1
						.Left = (lnAvailableWidth) + (This.ImgThumb.Width / 2)
					ELSE
						.Left = (lnSpacing * lnLine) + (This.ImgThumb.Width / 2)
					ENDIF 

					.Width = 0
					.Height = This.TickSize
					.ZOrder(1)
					.Visible = (NOT INLIST(This.TickStyle, 0, 1))
				ENDWITH

			ENDIF
		

*!*	TickStyle
*!*	0 = None
*!*	1 = None
*!*	2 = Both Ticks
*!*	3 = Top/Left
*!*	4 = Botton/Right

			IF INLIST(.TickStyle, 2, 4)	&& Bottom/Right or Both
		
				lcLineName = "lin_right" + ALLTRIM(STR(lnLine,4,0))
				.AddObject(lcLineName, "line")
			
				loLine = EVALUATE("." + lcLineName)
				
				WITH loLine
					.BorderColor = IIF(This.Enabled, This.TickColor, This.TickDisabledColor)
					.Top = This.Height - This.TickSize - This.TickMargin

					IF lnLine = lnLineCount + 1
						.Left = (lnAvailableWidth) + (This.ImgThumb.Width / 2)
					ELSE
						.Left = (lnSpacing * lnLine) + (This.ImgThumb.Width / 2)
					ENDIF 
					.Width = 0
					.Height = This.TickSize
					.ZOrder(1)
					.Visible = (NOT INLIST(This.TickStyle, 0, 1))
				ENDWITH

			ENDIF

			._LineCount = ._LineCount + 1
		
		ENDFOR
			
	ENDIF

ENDWITH

RETURN
ENDPROC
PROCEDURE incrementstyle_assign
LPARAMETERS tnIncrementStyle AS Integer

IF VARTYPE(tnIncrementStyle) = "N"
	IF INLIST(tnIncrementStyle, 0, 1) && 0 = increment, 1 = smooth
		This.IncrementStyle = tnIncrementStyle
	ELSE
		ERROR 11 && Function argument value, type, or count is invalid.
	ENDIF
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE tickcolor_assign
LPARAMETERS tnLineColor AS Integer

IF VARTYPE(tnLineColor) = "N"
	This.TickColor = tnLineColor
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE ticksize_assign
LPARAMETERS tnLineSize AS Integer

IF VARTYPE(tnLineSize) = "N"
	This.TickSize = tnLineSize
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE tickmargin_assign
LPARAMETERS tnLineMargin AS Integer

IF VARTYPE(tnLineMargin) = "N"
	This.TickMargin = tnLineMargin
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE _setvalue
LPARAMETERS tnValue AS Integer
WITH This

	LOCAL loButton as Control 
	loButton = .ImgThumb
	LOCAL lnPercent

	IF EMPTY(tnValue) AND VARTYPE(tnValue) = "L"
		DO CASE 
		CASE ._Orientation = 0 && Horizontal
			lnPercent = (loButton.Left / (.Width - loButton.Width))
		CASE ._Orientation = 1 && Vertical
			lnPercent = (loButton.Top / (.Height - loButton.Height))
		ENDCASE 

		* Make sure that the value will not be outside the boundaries
		IF lnPercent < 0
			lnPercent = 0
		ENDIF 
		IF lnPercent > 1
			lnPercent = 1
		ENDIF 
		tnValue = ROUND(This.Min + ((This.Max - This.Min) * lnPercent),0)
	ENDIF

	._Internal = .T.
	.Value = tnValue
	._SaveChangesToData()

	.Scroll()

ENDWITH

RETURN

ENDPROC
PROCEDURE value_assign
LPARAMETERS tnValue AS Integer

LOCAL loButton as Control 

WITH This
	loButton = .ImgThumb

	IF VARTYPE(tnValue) = "N"
	
		IF BETWEEN(tnValue, .Min, .Max)

			.Value = tnValue
			LOCAL lnPercent
			lnPercent = (.Value - .Min) / (.Max - .Min)

			DO CASE 
			CASE ._Orientation = 0 && Horizontal
				loButton.Left = (lnPercent * (.Width - loButton.Width)) &&  + (This.ImgThumb.Width / 2)
			CASE ._Orientation = 1 && Vertical
				loButton.Top = (lnPercent * (.Height - loButton.Height))
			ENDCASE 

			IF ._Internal
				._Internal = .F.
				.Scroll()
			ENDIF
			
		ELSE
			ERROR "Value assigned:" + TRANSFORM(tnValue) + " not between the properties '.Min' and '.Max'" && Function argument value, type, or count is invalid.
		ENDIF
	
	ELSE
		ERROR 1732	&& Data type is invalid for this property.
	ENDIF

ENDWITH

RETURN

ENDPROC
PROCEDURE showfocus_assign
LPARAMETERS tlShowFocus AS Boolean

WITH This
	IF VARTYPE(tlShowFocus) = "L"
		.ShowFocus = tlShowFocus
		IF ._HasFocus
			.shpFocus.Visible = tlShowFocus
		ENDIF
	ELSE
		ERROR 1732	&& Data type is invalid for this property.
	ENDIF
ENDWITH

RETURN

ENDPROC
PROCEDURE _removetickmarklines

WITH This
		
	IF ._LineCount > 0
	
		FOR lnLine = 0 TO ._LineCount + 1
			sLeftName = "lin_left" + ALLTRIM(STR(lnLine,4,0))
			sRightName = "lin_right" + ALLTRIM(STR(lnLine,4,0))

			IF TYPE("." + sLeftName) = "O"
				.RemoveObject(sLeftName)
			ENDIF

			IF TYPE("." + sRightName) = "O"
				.RemoveObject(sRightName)
			ENDIF
		ENDFOR
		
		._LineCount = 0
		
	ENDIF

ENDWITH

RETURN

ENDPROC
PROCEDURE enabled_assign
LPARAMETERS tlEnabled AS Boolean

WITH This
	IF VARTYPE(tlEnabled) = "L"
		.Enabled = tlEnabled
		IF ._UserImages = 0 && Default Images
			IF tlEnabled
				This.ImgThumb.PictureVal = This.ThumbImage 
			ELSE 
				This.ImgThumb.PictureVal = This._ThumbDisabled
			ENDIF 
		ELSE && User defined
			IF tlEnabled
				This.ImgThumb.Picture = This.ThumbImage 
			ELSE 
				This.ImgThumb.Picture = This._ThumbDisabled
			ENDIF 
		ENDIF 
	ELSE
		ERROR 1732	&& Data type is invalid for this property.
	ENDIF
ENDWITH

RETURN
ENDPROC
PROCEDURE tickdisabledcolor_assign
LPARAMETERS tnTickDisabledColor AS Long

IF VARTYPE(tnTickDisabledColor) = "N"
	This.TickDisabledColor = tnTickDisabledColor
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE controlsource_assign
LPARAMETERS tcControlSource AS String

IF VARTYPE(tcControlSource) = "S"
	This.ControlSource = tcControlSource
	This._RefreshFromData()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE _refreshfromdata
LOCAL iDataValue AS Integer
LOCAL oException AS Exception
iDataValue = NULL
oException = NULL

WITH This
	._DataBound = .F.
	IF NOT EMPTY(.ControlSource)
		TRY
			iDataValue = EVALUATE(.ControlSource)
		CATCH TO oException
			MESSAGEBOX(oException.Message)
		ENDTRY
		._DataBound = (ISNULL(oException))
	ENDIF
	IF ._DataBound
		IF NOT ISNULL(iDataValue)
			._SetValue(iDataValue)
		ENDIF
	ENDIF	
ENDWITH
RETURN


ENDPROC
PROCEDURE _savechangestodata
LOCAL bIsTable AS Boolean
LOCAL oException AS Exception
LOCAL sColumn AS String
LOCAL sCommand AS String
LOCAL sTable AS String
oException = NULL

WITH This

	IF ._lStarted AND ._DataBound

		** If the controlsource still exists
		IF NOT EMPTY(.ControlSource)


			** Check to see if the control source is a table
			IF "." $ .ControlSource
			
				sTable = GETWORDNUM(.ControlSource, 1, ".")
				sColumn = GETWORDNUM(.ControlSource, 2, ".")
				
				IF USED(sTable)
					bIsTable = .T.
				ENDIF
			
			ENDIF

			** If there is not a table open with that name, assume that sTable
			** is an object
			IF EMPTY(sTable) OR NOT USED(sTable)
				sCommand = ALLTRIM(.ControlSource) + " = " + TRANSFORM(.Value)
			ENDIF


			TRY
			
				IF bIsTable
					REPLACE IN &sTable &sColumn WITH This.Value NEXT 1
				ELSE
					&sCommand
				ENDIF
			
			CATCH TO oException
				MESSAGEBOX(oException.Message)
			ENDTRY
		
		ELSE
			._DataBound
		ENDIF

	ENDIF	

ENDWITH

RETURN
 
ENDPROC
PROCEDURE tickstyle_assign
LPARAMETERS tnTickStyle AS Integer

IF VARTYPE(tnTickStyle) = "N"
	This.TickStyle = tnTickStyle
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE stylecontrol_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.StyleControl = m.vNewVal
This.ThumbImage = This.ThumbImage
ENDPROC
PROCEDURE _processimages
* process the images
* open the class as a table
IF TYPE("_Screen.SliderXPix.tr_hor") == "C"
	RETURN
ENDIF

USE (THIS.CLASSLIBRARY) IN 0 ALIAS xClass SHARED

* get the field we want only
SELECT USER FROM xClass WHERE  NOT EMPTY(USER) AND BASECLASS="image" INTO CURSOR userStr

* store the pictures
LOCAL cPixStr,nPix,cPixname,cPixContents

nPix = 1
cPixStr = ALLTRIM(userStr.USER)

* not needed anymore so close them off
USE IN SELECT("userstr")
USE IN SELECT("xClass")

LOCAL loPix AS OBJECT
loPix = CREATEOBJECT("Empty")

* loop through the data extracting the images
DO WHILE .T.
	cPixname = STREXTRACT(cPixStr,[<name>],[</name>],nPix)
	IF EMPTY(cPixname)
		EXIT
	ENDIF
	cPixContents = STREXTRACT(cPixStr,[<picture>],[</picture>],nPix)
	ADDPROPERTY(loPix, JUSTSTEM(cPixname), cPixContents)
	nPix = nPix + 1
	* =STRTOFILE(cPixContents, "d:\Temp\" + cPixName)
ENDDO
_SCREEN.ADDPROPERTY("SliderXPix", loPix)
ENDPROC
PROCEDURE _checkerrors
* Check if the Images are Ok
IF This.StyleControl = 0 && User Images

	LOCAL lcTrackImg, lcThumbImg
	lcTrackImg = This.TrackImage
	lcThumbImg = This.ThumbImage

	* TrackImage
	IF (EMPTY(lcTrackImg)) OR ;
			(VARTYPE(lcTrackImg) <> "C") OR ;
			(NOT FILE(lcTrackImg))
		ERROR 1, "Slider.TrackImage " + TRANSFORM(lcTrackImg)
		RETURN .F.
	ENDIF

	* ButtonImage
	IF (EMPTY(lcThumbImg)) OR ;
			(VARTYPE(lcThumbImg) <> "C") OR ;
			(NOT FILE(lcThumbImg))
		ERROR 1, "Slider.ThumbImage " + TRANSFORM(lcThumbImg)
		RETURN .F.
	ENDIF
ENDIF


IF This.Min >= This.Max
	ERROR "Inconsistent values for properties '.Min' and '.Max'"
	RETURN .F.
ENDIF 


IF VARTYPE(This.StyleControl) <> "N" OR (NOT INLIST(This.StyleControl, 0, 1, 2, 3, 4))
	ERROR "Invalid value for property '.StyleControl'"
	RETURN .F.
ENDIF 


IF INLIST(This.StyleControl, 1, 2, 3, 4)
	IF This.TickStyle = 0
		DO CASE
		CASE This.StyleControl = 1
			This.TickStyle = 2
		CASE This.StyleControl = 2
			This.TickStyle = 2
		CASE This.StyleControl = 3
			This.TickStyle = 3
		CASE This.StyleControl = 4
			This.TickStyle = 4
		OTHERWISE
		ENDCASE
	ENDIF 
ENDIF 


ENDPROC
PROCEDURE tickfrequency_assign
LPARAMETERS tnFrequency AS Integer

IF VARTYPE(tnFrequency) = "N"
	This.TickFrequency = tnFrequency
	This._SetupLines()
ELSE
	ERROR 1732	&& Data type is invalid for this property.
ENDIF

ENDPROC
PROCEDURE _showtooltip
LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF TYPE("_Screen.ActiveForm") <> "O" OR TYPE("THIS.FoxySliderToolTip") <> "O" &&vorher THISFORM.FoxySliderToolTip
	RETURN
ENDIF

LOCAL loTip AS LABEL, lcNewCaption
*loTip = THISFORM.FoxySliderToolTip
loTip = THIS.FoxySliderToolTip

lcNewCaption = " " + ALLTRIM(TRANSFORM(THIS.VALUE)) + " "

IF loTip.Visible = .T. AND loTip.Caption = lcNewCaption && No need to update, go away!
	RETURN
ENDIF 

loTip.CAPTION = lcNewCaption

LOCAL lnLeft, lnTop, lnWidth, lnHeight, lnX, lnY
lnX = m.nXCoord
lnY = m.nYCoord

m.lnWidth  = m.loTip.WIDTH
m.lnHeight = m.loTip.HEIGHT


*!*	IF THIS._Orientation = 0 && Horizontal
*!*		m.lnLeft = lnX
*!*		m.lnTop = lnY - m.lnHeight - 1 - 8
*!*	ELSE && Vertical
*!*		m.lnLeft = lnX + 8
*!*		m.lnTop = lnY - m.lnHeight - 1
*!*	ENDIF

IF THIS._Orientation = 0 && Horizontal
	m.lnLeft = lnX
	m.lnTop = lnY + m.lnHeight + 1

	IF loTip.Visible = .T. 
		lnTop = loTip.Top 
	ENDIF 

ELSE && Vertical
	m.lnLeft = lnX
	m.lnTop = lnY + m.lnHeight + 1

	IF loTip.Visible = .T. 
		lnLeft = loTip.Left 
	ENDIF 

ENDIF



IF m.lnLeft + m.lnWidth > THISFORM.WIDTH
	m.lnLeft = THISFORM.WIDTH - m.lnWidth
ENDIF
IF m.lnTop < 0
	m.lnTop = 0
ENDIF

m.loTip.LEFT = m.lnLeft
m.loTip.TOP  = m.lnTop


loTip.VISIBLE = .T.

RETURN





ENDPROC
PROCEDURE Destroy
*IF VARTYPE(Thisform.FoxySliderToolTip) = "O"
IF VARTYPE(This.FoxySliderToolTip) = "O"
*	Thisform.RemoveObject("FoxySliderToolTip")
	This.RemoveObject("FoxySliderToolTip")
ENDIF 
ENDPROC
PROCEDURE MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord

LOCAL lnIncrement AS Integer
LOCAL lnNewValue AS Integer

WITH This

	IF .Enabled
		lnSmallChange = This.SmallChange 
		lnLargeChange = This.LargeChange 

		*!*	 nShift 
		*!*	 Contains a number specifying the state of modifier keys when the mouse wheel is rotated. The valid modifier keys are the SHIFT, CTRL, and ALT keys.
		*!*	 1 - SHIFT
		*!*	 2 - CTRL
		*!*	 4 - ALT
		IF nShift > 0
			lnIncrement = lnLargeChange
		ELSE
			lnIncrement = lnSmallChange
		ENDIF

		IF nDirection > 0
			lnNewValue = .Value - lnIncrement
		ELSE
			lnNewValue = .Value + lnIncrement
		ENDIF

		IF lnNewValue < .Min
			lnNewValue = .Min
		ENDIF
		IF lnNewValue > .Max
			lnNewValue = .Max
		ENDIF
		
		._SetValue(lnNewValue)

	ENDIF
	
ENDWITH

RETURN

ENDPROC
PROCEDURE Resize
WITH This

	.shpFocus.Height = .Height
	.shpFocus.Width = .Width

	._SetupLines()

	IF ._Orientation = 1 && Vertical

		._yOffSet = .imgThumb.Height / 2

		.imgTrack.Top = 0 + ._yOffSet
		.ImgTrack.Width = This._Trackheight 	
		
		.imgTrack.Left = (.Width / 2) - (.imgTrack.Width / 2)
		.imgTrack.Height = .Height - (2 * ._yOffSet)

		.imgThumb.Left = (.Width / 2) - (.imgThumb.Width / 2)
		
	ELSE && Horizontal ._Orientation = 0

		._xOffSet = .imgThumb.Width / 2
		
		.imgTrack.Left = 0 + ._xOffSet 
		.ImgTrack.Height = This._Trackheight 	
		
		.imgTrack.Top = (.Height / 2) - (.imgTrack.Height / 2)
		.imgTrack.Width = .Width - 2 * ( ._xOffSet )
	
		.imgThumb.Top = (.Height / 2) - (.imgThumb.Height / 2)

	ENDIF 

	This._SetValue(This.Value)

ENDWITH

RETURN

ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

This._MouseDown = .T.
This.txtFocus.SetFocus()

This.MouseMove(nButton, nShift, nXCoord, nYCoord)
RETURN

ENDPROC
PROCEDURE Init
*************************************************************************************
* XSlider Slider Control
* Copyright , 2007, Kevin Marois and Cesar Chalom
*
*-----------------------------------------------------------------------
*
* CHANGES:	 
* 07/12/14 KM - Replaced LineStyle and LinePosition properties with TickStyle. 
* 07/12/14 KM - Implemented MouseWheel.
* 07/12/14 KM - Renamed all 'Line' properties to 'Tick'.
* 07/12/14 KM - Removed method InteractiveChange.
* 07/12/14 KM - Added Enabled_Assign to prevent changes when the control is disabled.
* 07/12/14 KM - Added TickDisabledColor.
* 07/12/14 KM - Moved all internal calls from .Value to ._SetValue.
* 07/12/14 KM - Implemented the ControlSource property.
* 07/12/14 KM - Removed unused method GetPercent
*
* 07/12/16 CC - Added properties ThumbActive and ThumbDisabled, and code to allow other pictures
* 07/12/16 CC - Tweaked Track, and Thumb pictures to allow transparencies on all forms
* 07/12/16 CC - Tweaked Track size
* 07/12/16 CC - Changed Focus shape default border and color to meet Windows defaults for this control
* 07/12/16 CC - Modified method _AdjustPosition to make the button to stay in the tick position
*
* 07/12/17 CC - Updated and tested RESIZE() method, and added sample Test3
* 07/12/17 CC - Tweaked image "thumb_horizontal_square_both_active"
*
* 14/11/16 CC - Several tweaks and enhancements, code cleanup and samples
*               Images related to the default controls were embedded in the VCX
*				Added error messages related to invalid values passed to properties
*				Included 3 new default styles
*               New properties: ShowTips, FixedLocation, StyleControl, ThumbActive, ThumbDisabled
*
* 14/11/25 CC - Complete refactoring of the class to mke it the most similar to the original ActiveX control
*               Now works only with integer values, the thumb can only stay in fixed positions
*               Introduced the property 'TickFrequency'
*               Removed the properties 'TickCount', 'FixedLocation'
*               Removed the method '_AdjustPosition'
*
* 14/12/03 CC - Fixed Scroll event was not being fired on MouseMove()
*               Internal cleanup of embedded images
*
* 14/12/05 CC - Several tweaks in the tooltips. Tooltips now will be shown when the mouse is clicked over the Thumb
*               New Property: ShowTipsAlways, will make the tooltips to be shown also when the mouse is not clicked
*
*************************************************************************************
RETURN This._Setup()

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord

LOCAL loButton as Control 
loButton = This.ImgThumb 

WITH This

	IF .Enabled

		IF nButton <> 1 
			RETURN
		ENDIF

		._Internal = .T.  && To tell the class to fire the Scrolled() event
		DO CASE 

		CASE ._Orientation = 0 && Horizontal

			IF nXCoord <= .Left + ._XOffSet
				nXCoord = .Left + ._XOffSet
			ENDIF
			IF nXCoord >= .Left + .Width - loButton.Width + ._XOffSet
				nXCoord = .Left + .Width - loButton.Width + ._XOffSet 
			ENDIF
			
			lnNewLeft = nXCoord - .Left - IIF(This._MouseDown, 0, ._XOffSet)
			This._MouseDown= .F.
			
			lnOldValue = This.Value
			lnPercent = (lnNewLeft / (.Width - loButton.Width))
			
			* Make sure that the value will not be outside the boundaries
			IF lnPercent < 0
				lnPercent = 0
			ENDIF 
			IF lnPercent > 1
				lnPercent = 1
			ENDIF 
			lnNewValue = ROUND(This.Min + ((This.Max - This.Min) * lnPercent),0)
			This.Value = lnNewValue			
			
		CASE ._Orientation = 1 && Vertical

			IF nYCoord <= .Top + ._yOffSet
				nYCoord = .Top + ._yOffSet
			ENDIF
			IF nYCoord >= .Top + .Height - loButton.Height + ._yOffSet
				nYCoord = .Top + .Height - loButton.Height + ._yOffSet 
			ENDIF

			lnNewTop = nYCoord - .Top - IIF(This._MouseDown, 0, ._YOffSet)
			This._MouseDown= .F.

			lnOldValue = This.Value

			lnPercent = (lnNewTop / (.Height - loButton.Height))

			* Make sure that the value will not be outside the boundaries
			IF lnPercent < 0
				lnPercent = 0
			ENDIF 
			IF lnPercent > 1
				lnPercent = 1
			ENDIF 

			lnNewValue = ROUND(This.Min + ((This.Max - This.Min) * lnPercent),0)
			This.Value = lnNewValue			
		ENDCASE 

	IF This.ShowTips AND Thisform.ShowTips = .T. 
		This._ShowToolTip(nButton, nShift, nXCoord, nYCoord)
	ENDIF 



	ENDIF

ENDWITH

RETURN

ENDPROC
PROCEDURE Refresh
IF This._lStarted
	This._RefreshFromData()
ENDIF

ENDPROC
      	container     OWidth = 186
Height = 20
BackColor = 0,128,255
BorderColor = 128,128,128
trackimage = 
thumbimage = 
incrementstyle = 0
tickcolor = 0
_linecount = 0
ticksize = 5
tickmargin = 2
value = 0
_internal = .F.
_memberdata =     3379<VFPData><memberdata name="value" type="property" display="Value" favorites="True"/><memberdata name="_xoffset" type="property" display="_xOffSet"/><memberdata name="_yoffset" type="property" display="_yOffSet"/><memberdata name="orientation" type="property" display="Orientation"/><memberdata name="interactivechange" type="method" display="InteractiveChange"/><memberdata name="scroll" type="method" display="Scroll" favorites="True"/><memberdata name="valuechanged" type="method" display="ValueChanged"/><memberdata name="getnumticks" type="property" display="GetNumTicks"/><memberdata name="largechange" type="property" display="LargeChange" favorites="True"/><memberdata name="max" type="property" display="Max" favorites="True"/><memberdata name="min" type="property" display="Min" favorites="True"/><memberdata name="smallchange" type="property" display="SmallChange" favorites="True"/><memberdata name="tickfrequency" type="property" display="TickFrequency" favorites="True"/><memberdata name="tickstyle" type="property" display="TickStyle" favorites="True"/><memberdata name="fixedlocation" type="property" display="FixedLocation" favorites="True"/><memberdata name="linecolor" type="property" display="LineColor" favorites="True"/><memberdata name="linemargin" type="property" display="LineMargin" favorites="True"/><memberdata name="lineposition" type="property" display="LinePosition" favorites="True"/><memberdata name="linesize" type="property" display="LineSize" favorites="True"/><memberdata name="linestyle" type="property" display="LineStyle" favorites="True"/><memberdata name="showfocus" type="property" display="ShowFocus" favorites="True"/><memberdata name="changewhenfocused" type="property" display="ChangeWhenFocused"/><memberdata name="controlsource" type="property" display="ControlSource" favorites="True"/><memberdata name="incrementstyle" type="property" display="IncrementStyle"/><memberdata name="thumbactive" type="property" display="ThumbActive" favorites="True"/><memberdata name="thumbdisabled" type="property" display="ThumbDisabled" favorites="True"/><memberdata name="thumbimage" type="property" display="ThumbImage" favorites="True"/><memberdata name="tickcolor" type="property" display="TickColor" favorites="True"/><memberdata name="tickcount" type="property" display="TickCount" favorites="True"/><memberdata name="tickdisabledcolor" type="property" display="TickDisabledColor" favorites="True"/><memberdata name="tickmargin" type="property" display="TickMargin" favorites="True"/><memberdata name="ticksize" type="property" display="TickSize" favorites="True"/><memberdata name="trackimage" type="property" display="TrackImage" favorites="True"/><memberdata name="_updatevalue" type="method" display="_UpdateValue"/><memberdata name="processimages" type="method" display="ProcessImages" favorites="True"/><memberdata name="stylecontrol" type="property" display="StyleControl" favorites="True"/><memberdata name="thumbimagedisabled" type="property" display="ThumbImageDisabled" favorites="True"/><memberdata name="specialtrack" type="property" display="SpecialTrack"/><memberdata name="thumbimagefocused" type="property" display="ThumbImageFocused" favorites="True"/><memberdata name="showtips" type="property" display="ShowTips" favorites="True"/><memberdata name="showtipsalways" type="property" display="ShowTipsAlways"/></VFPData>

_xoffset = 0
_yoffset = 
_orientation = 0
showfocus = .T.
_hasfocus = .F.
largechange = 5
max = 10
min = 0
smallchange = 1
tickstyle = 2
changewhenfocused = .F.
tickdisabledcolor = 8421504
controlsource = 
_databound = .F.
_userchange = .F.
stylecontrol = 2
_trackheight = 6
thumbimagefocused = 
thumbimagedisabled = 
_lstarted = .F.
_userimages = 0
showtips = .F.
_thumbactive = .F.
_thumbdisabled = .F.
cversion = v0.99a 2014-12-05
tickfrequency = 2
_tickcount = 1
_mousedown = .F.
showtipsalways = .F.
Name = "xslider"
0F   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          14063.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJO           9  4                           1875.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5QV0L5TJP           9  7                           3334.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6000ZLKJC           9  8                           5000.000    0.000                                                                                                    F  FFF         FFF                  F               WINDOWS _5S10IGXF51354515618 8  0       16250.00054687.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10IDYTC1354515543 8  0       16250.000 6666.667 1770.83314583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVN1414898499 8  0       16145.833 6666.667 1770.83314583.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVO1414898499 8  0       16250.00030208.333 1666.667 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVP1414898499 8  0       16250.00021979.167 1666.667 7812.500           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F         WINDOWS _69Q17SQVQ1414898499 8  0    !   16250.00046562.500 1666.667 7708.333    "       F    F N           -1   -1   -1   -1   -1   -1    0    0    0#     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F$        WINDOWS _69Q17SQVR1414898499 8  0    %   16250.00038437.500 1666.667 7708.333    &       F    F N           -1   -1   -1   -1   -1   -1    0    0    0'     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F(        WINDOWS _69Q17SQVS1414898499 8  0    )   16250.00062916.667 1666.667 7708.333    *       F    F N           -1   -1   -1   -1   -1   -1    0    0    0+     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F,        WINDOWS _69Q17SQVT1414898499 8  0    -   16250.00054687.500 1666.667 7708.333    .       F    F N           -1   -1   -1   -1   -1   -1    0    0    0/     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F0        WINDOWS _69Q17SQVU1414898499 8  0    1   16250.00079270.833 1666.667 7708.333    2       F    F N           -1   -1   -1   -1   -1   -1    0    0    03     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F4        WINDOWS _69Q17SQVV1414898499 8  0    5   16250.00071145.833 1666.667 7708.333    6       F    F N           -1   -1   -1   -1   -1   -1    0    0    07     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F8        WINDOWS _69Q17SQVW1414898499 8  0    9   16250.00095625.000 1666.667 7708.333    :       F    F N           -1   -1   -1   -1   -1   -1    0    0    0;     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F<        WINDOWS _69Q17SQVX1414898499 8  0    =   16250.00087500.000 1666.667 7708.333    >       F    F N           -1   -1   -1   -1   -1   -1    0    0    0?     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F@        WINDOWS _5QV0L692S1351634582 8  0    A    4375.00098958.333 1666.66714791.667                   C           -1   -1   -1   -1   -1   -1               B     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FC        WINDOWS _5QV0L692T1351634582 8  0    D    2291.667 3645.833 1666.66720208.333                   C           -1   -1   -1   -1   -1   -1               E     0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0    F    4375.000 3645.833 1666.66717291.667                   C           -1   -1   -1   -1   -1   -1               G     0  8  1 0     FTFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0    H    4375.000102187.50 1666.66711562.500                   C           -1   -1   -1   -1   -1   -1               I     0  8  1 0     FFFTF  F          2T         0       0 1  0FTT0 0FJ        WINDOWS _5QV0LB0NG1351634708 8  0    K    4583.33321458.333 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1               L     1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6            9895.833 3541.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0    M    6666.66721458.333 1875.00074687.500                   C           -1   -1   -1   -1   -1   -1               N     1 10  1 0     FFFTF  F          0T         2       0 1  0FTT0 0F         WINDOWS _5S00NR6NL1354455204 8  0    O   10520.833 3645.833 1770.83317812.500                   C           -1   -1   -1   -1   -1   -1               P     1  8  1 0     FTFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5S00NRG9Z1354455206 8  0    Q   10520.83321979.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               R     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NS35V1354455221 8  0    S   10520.83330208.333 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               T     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NSU5J1354455241 8  0    U   10520.83338437.500 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               V     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S00NT39B1354455247 8  0    W   10520.83346562.500 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               X     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IDYTD1354515543 8  0    Y   16250.00030208.333 1770.833 7708.333    Z       F    F N           -1   -1   -1   -1   -1   -1    0    0    0[     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F\        WINDOWS _5S10IDYTE1354515543 8  0    ]   16250.00021979.167 1770.833 7812.500    ^       F    F N           -1   -1   -1   -1   -1   -1    0    0    0_     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F`        WINDOWS _5S10IDYTF1354515543 8  0    a   16250.00046562.500 1770.833 7708.333    b       F    F N           -1   -1   -1   -1   -1   -1    0    0    0c     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fd        WINDOWS _5S10IDYTG1354515543 8  0    e   16250.00038437.500 1770.833 7708.333    f       F    F N           -1   -1   -1   -1   -1   -1    0    0    0g     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fh        WINDOWS _5S10IDYTH1354515543 8  0    i   16250.000 3645.833 1770.833 2604.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0j     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fk        WINDOWS _5S10IGXF41354515618 8  0    l   16250.00062916.667 1770.833 7708.333    m       F    F N           -1   -1   -1   -1   -1   -1    0    0    0n     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fo        WINDOWS _5S10IGXF61354515618 8  0    p   16250.00079270.833 1770.833 7708.333    q       F    F N           -1   -1   -1   -1   -1   -1    0    0    0r     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fs        WINDOWS _5S10IGXF71354515618 8  0    t   16250.00071145.833 1770.833 7708.333    u       F    F N           -1   -1   -1   -1   -1   -1    0    0    0v     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fw        WINDOWS _5S10IMUCE1354515764 8  0    x   10520.83354687.500 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               y     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IN6YU1354515772 8  0    z   10520.83362916.667 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               {     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10INN1G1354515785 8  0    |   10520.83371145.833 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1               }     1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IO1LW1354515794 8  0    ~   10520.83379270.833 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IOAW21354515800 8  0       10520.83387395.833 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IONHE1354515810 8  0       10520.83395729.167 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5S10IY4PL1354516045 8  0       16250.00095625.000 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10IY4PM1354516045 8  0       16250.00087500.000 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10J3A231354516173 6           13125.000 3541.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J43WJ1354516195 8  0       26145.83330208.333 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WK1354516195 8  0       26145.83321979.167 1770.833 7812.500           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WL1354516195 8  0       26145.83346562.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WM1354516195 8  0       26145.83338437.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WN1354516195 8  0       26145.83362916.667 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WO1354516195 8  0       26145.83354687.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WP1354516195 8  0       26145.83379270.833 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WQ1354516195 8  0       26145.83371145.833 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WR1354516195 8  0       26145.83395625.000 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J43WS1354516195 8  0       26145.83387500.000 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _5S10J4A9Z1354516199 6           25625.000 3541.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _5S10J8PJ31354516310 5  0       26250.000 4166.667 1562.500 7083.333                               -1   -1   -1   -1   -1   -1                    1  8  1       FFFTF  F          0T                      0FTF0 0F         WINDOWS _69Q17YQ1P1414898646 6           16145.833 3541.667  104.167110104.17                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT3 0F        WINDOWS _6GK0UY9MT1431925582 8  0       16250.000103854.17 1666.667 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _6GK0UY9MU1431925582 8  0       10520.833103958.33 1770.833 7708.333                   C           -1   -1   -1   -1   -1   -1                    1  8  1 0     FTFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _6GK0UY9MV1431925582 8  0       16250.000103854.17 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _6GK0UY9MW1431925582 8  0       26145.833103854.17 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                |   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  kstgrid2.sp7                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp6                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp5                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp8                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp7                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp10                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp9                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp12                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp11                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp4                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp6                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp5                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp8                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp10                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp9                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  
kstgrid2.sp12                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp11                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp4                                                          "@Z"                                                          Arial Narrow                                                  msp3                                                          "@Z"                                                          Arial Narrow                                                  msp6                                                          "@Z"                                                          Arial Narrow                                                  msp5                                                          "@Z"                                                          Arial Narrow                                                  msp8                                                          "@Z"                                                          Arial Narrow                                                  msp7                                                          "@Z"                                                          Arial Narrow                                                  msp10                                                         "@Z"                                                          Arial Narrow                                                  msp9                                                          "@Z"                                                          Arial Narrow                                                  msp12                                                         "@Z"                                                          Arial Narrow                                                  msp11                                                         "@Z"                                                          Arial Narrow                                                  
"Gesamtsumme"                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp13                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        14                                                           Arial Narrow                                                  
kstgrid2.sp13                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp13                                                         "@Z"                                                          Arial Narrow                                                  Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  kstgrid2.sp7                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp6                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp5                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp8                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp7                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp10                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp9                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp12                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp11                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp4                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp6                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp5                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp8                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp10                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp9                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  
kstgrid2.sp12                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp11                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp4                                                          "@Z"                                                          Arial Narrow                                                  msp3                                                          "@Z"                                                          Arial Narrow                                                  msp6                                                          "@Z"                                                          Arial Narrow                                                  msp5                                                          "@Z"                                                          Arial Narrow                                                  msp8                                                          "@Z"                                                          Arial Narrow                                                  msp7                                                          "@Z"                                                          Arial Narrow                                                  msp10                                                         "@Z"                                                          Arial Narrow                                                  msp9                                                          "@Z"                                                          Arial Narrow                                                  msp12                                                         "@Z"                                                          Arial Narrow                                                  msp11                                                         "@Z"                                                          Arial Narrow                                                  
"Gesamtsumme"                                                 Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp13                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        14                                                           Arial Narrow                                                  
kstgrid2.sp13                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       msp13                                                         "@Z"                                                          Arial Narrow                                                  Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0:   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5QV0L5TJM1351634572 1 53           1.000    0.000    0.000116900.00                 F                                                            0  8   21F 3 3   TF              T    F T               0T               WINDOWS _5QV0L5TJN           9  1                          13750.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _69Q18TEUJ         0 9  3           0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0TFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJO         0 9  4            0.000    0.000 1875.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _69Q18TEUK         0 9  5            0.000    0.000    0.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0TFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5QV0L5TJP         0 9  7            0.000    0.000 3334.000    0.000            F    F              0    0    0    0    0    0    0    0    0      0  0  000F 0 0FFFFF00F 0FFF  0  0FFFFFFFF  0  0  0 0 0  0FFF0 0F         WINDOWS _5S10IGXF51354515618 8  0       18020.83353437.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10IDYTC1354515543 8  0       18020.833 6145.833 1770.83313645.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVN1414898499 8  0       17916.667 6145.833 1770.83313645.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVO1414898499 8  0       18020.83328854.167 1666.667 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _69Q17SQVP1414898499 8  0       18020.83320625.000 1666.667 7812.500           F    F N           -1   -1   -1   -1   -1   -1    0    0    0      1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F!        WINDOWS _69Q17SQVQ1414898499 8  0    "   18020.83345208.333 1666.667 7708.333    #       F    F N           -1   -1   -1   -1   -1   -1    0    0    0$     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F%        WINDOWS _69Q17SQVR1414898499 8  0    &   18020.83337083.333 1666.667 7708.333    '       F    F N           -1   -1   -1   -1   -1   -1    0    0    0(     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F)        WINDOWS _69Q17SQVS1414898499 8  0    *   18020.83361770.833 1666.667 7708.333    +       F    F N           -1   -1   -1   -1   -1   -1    0    0    0,     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F-        WINDOWS _69Q17SQVT1414898499 8  0    .   18020.83353437.500 1666.667 7708.333    /       F    F N           -1   -1   -1   -1   -1   -1    0    0    00     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F1        WINDOWS _69Q17SQVU1414898499 8  0    2   18020.83378541.667 1666.667 7708.333    3       F    F N           -1   -1   -1   -1   -1   -1    0    0    04     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F5        WINDOWS _69Q17SQVV1414898499 8  0    6   18020.83370208.333 1666.667 7708.333    7       F    F N           -1   -1   -1   -1   -1   -1    0    0    08     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F9        WINDOWS _69Q17SQVW1414898499 8  0    :   18020.83395312.500 1666.667 7708.333    ;       F    F N           -1   -1   -1   -1   -1   -1    0    0    0<     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F=        WINDOWS _69Q17SQVX1414898499 8  0    >   18020.83387083.333 1666.667 7708.333    ?       F    F N           -1   -1   -1   -1   -1   -1    0    0    0@     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0FA        WINDOWS _5QV0L692S1351634582 8  0    B    4583.33398437.500 1666.66714791.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0C     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0FD        WINDOWS _5QV0L692T1351634582 8  0    E    2500.000 3125.000 1666.66720208.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0F     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692U1351634582 8  0    G    4583.333 3125.000 1666.66717291.667            F    F C           -1   -1   -1   -1   -1   -1    0    0    0H     0  8  100F 0 0FTFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5QV0L692V1351634582 8  0    I    4583.333101666.67 1666.66711562.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0J     0  8  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  0  0  0 0 1  0FTT0 0FK        WINDOWS _5QV0LB0NG1351634708 8  0    L    4791.66720937.500 1875.00074687.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0M     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  2  0  0 0 1  0FTT0 0F         WINDOWS _5QV0LPEQ11351635187 6  0        10104.167 3020.833  104.167110104.17            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _5S00MMY3Q1354454070 8  0    N    6875.00020937.500 1875.00074687.500            F    F C           -1   -1   -1   -1   -1   -1    0    0    0O     1 10  100F 0 0FFFTF00F 0FFF  0  0TFFFFFFF  2  0  0 0 1  0FTT0 0F         WINDOWS _5S00NR6NL1354455204 8  0    P   10729.167 3125.000 1770.83316875.000            F    F C           -1   -1   -1   -1   -1   -1    0    0    0Q     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  0  0  0 0 1  0FTT0 0F         WINDOWS _5S00NRG9Z1354455206 8  0    R   10729.16720625.000 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0S     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NS35V1354455221 8  0    T   10729.16728854.167 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0U     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NSU5J1354455241 8  0    V   10729.16737083.333 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0W     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S00NT39B1354455247 8  0    X   10729.16745208.333 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0Y     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IDYTD1354515543 8  0    Z   18020.83328854.167 1770.833 7708.333    [       F    F N           -1   -1   -1   -1   -1   -1    0    0    0\     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F]        WINDOWS _5S10IDYTE1354515543 8  0    ^   18020.83320625.000 1770.833 7812.500    _       F    F N           -1   -1   -1   -1   -1   -1    0    0    0`     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fa        WINDOWS _5S10IDYTF1354515543 8  0    b   18020.83345208.333 1770.833 7708.333    c       F    F N           -1   -1   -1   -1   -1   -1    0    0    0d     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fe        WINDOWS _5S10IDYTG1354515543 8  0    f   18020.83337083.333 1770.833 7708.333    g       F    F N           -1   -1   -1   -1   -1   -1    0    0    0h     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fi        WINDOWS _5S10IDYTH1354515543 8  0    j   18020.833 3125.000 1770.833 2604.167            F    F C           -1   -1   -1   -1   -1   -1    0    0    0k     0  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fl        WINDOWS _5S10IGXF41354515618 8  0    m   18020.83361770.833 1770.833 7708.333    n       F    F N           -1   -1   -1   -1   -1   -1    0    0    0o     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fp        WINDOWS _5S10IGXF61354515618 8  0    q   18020.83378541.667 1770.833 7708.333    r       F    F N           -1   -1   -1   -1   -1   -1    0    0    0s     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Ft        WINDOWS _5S10IGXF71354515618 8  0    u   18020.83370208.333 1770.833 7708.333    v       F    F N           -1   -1   -1   -1   -1   -1    0    0    0w     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0Fx        WINDOWS _5S10IMUCE1354515764 8  0    y   10729.16753437.500 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0z     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IN6YU1354515772 8  0    {   10729.16761770.833 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0|     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10INN1G1354515785 8  0    }   10729.16770208.333 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0~     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IO1LW1354515794 8  0       10729.16778541.667 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IOAW21354515800 8  0       10729.16786979.167 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IONHE1354515810 8  0       10729.16795416.667 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 0F         WINDOWS _5S10IY4PL1354516045 8  0       18020.83395312.500 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10IY4PM1354516045 8  0       18020.83387083.333 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _5S10J3A231354516173 6  0        13333.333 3020.833  104.167110104.17            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT0 0F         WINDOWS _69Q17YQ1P1414898646 6  0        17916.667 3020.833  104.167110104.17            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0TFFFF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTT3 0F        WINDOWS _6GK0V7X301431925821 8  0       18020.833103750.00 1666.667 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS _6GK0V7X311431925821 8  0       10729.167103854.17 1770.833 7708.333            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0FTFTF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT0 6F         WINDOWS _6GK0V7X321431925821 8  0       18020.833103750.00 1770.833 7708.333           F    F N           -1   -1   -1   -1   -1   -1    0    0    0     1  8  100F 0 0TFFFF00F 0FFF  0  0TFFFFFFF  1  0  0 0 1  0FTT3 0F        WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        0  8                                                     F               WINDOWS                     23              15.000    4.000   12.000   13.000                                3    0                                        1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        1  8                                                     F               WINDOWS                     23              14.000    5.000   11.000   29.000                                3    0                                        0  8                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                8   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  
kstgrid2.sp16                                                 kstgrid2.sp7                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp6                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp5                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp8                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp7                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp10                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp9                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp12                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp11                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp4                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp6                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp5                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp8                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp10                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp9                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  
kstgrid2.sp12                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp11                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp13                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        14                                                           Arial Narrow                                                  
kstgrid2.sp13                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=1
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Arial Narrow                                                  
kstgrid2.sp16                                                 kstgrid2.sp7                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2                                                  Arial Narrow                                                  kstgrid2.sp2 = "Summe"                                        kstgrid2.sp4                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp3                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp6                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp5                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp8                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp7                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp10                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        kstgrid2.sp9                                                  "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp12                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp11                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        ditext6                                                       Arial                                                         .not. empty(ditext6)                                          ditext4                                                       Arial                                                         ditext5                                                       Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         empty(ditext6)                                                1                                                            Arial                                                         2                                                            Arial                                                         3                                                            Arial Narrow                                                  4                                                            Arial Narrow                                                  5                                                            Arial Narrow                                                  6                                                            Arial Narrow                                                  7                                                            Arial Narrow                                                  kstgrid2.sp4                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp3                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp6                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp5                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp1                                                  Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp8                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp10                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp9                                                  "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       8                                                            Arial Narrow                                                  9                                                            Arial Narrow                                                  10                                                           Arial Narrow                                                  11                                                           Arial Narrow                                                  12                                                           Arial Narrow                                                  13                                                           Arial Narrow                                                  
kstgrid2.sp12                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       
kstgrid2.sp11                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       kstgrid2.sp2 = "Summe"                                        
kstgrid2.sp13                                                 "@Z"                                                          Arial                                                         kstgrid2.sp2 = "Summe"                                        14                                                           Arial Narrow                                                  
kstgrid2.sp13                                                 "@Z"                                                          Arial Narrow                                                  kstgrid2.sp2 <> "Summe"                                       Arial Narrow                                                  Arial Narrow                                                  Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                         0
:   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _69R0P0LZS1415728899      /  F      ]        /                                           WINDOWS _69Z0L4RFS1430476491:      H  V  e  |                                                           WINDOWS _69R0P0LZT1430476491                      ##                                               WINDOWS _69R0P0LZU14157299239      9  9  :  :      v:  :                                               WINDOWS _69R0P0LZV1415729923y;      ;  ;  ;  ;      =<  <                                               WINDOWS _69R0P0LZW1415729923v=      =  =  =  =      #>  x>                                               WINDOWS _69R0P0LZX1415729923\?      i?  v?  ?  ?      	@  ^@                                               WINDOWS _69R0P0LZY1415729923BA      OA  \A  jA  wA      A  DB                                               WINDOWS _69R0P0LZZ1415729923(C      5C  BC  PC  ]C      C  *D                                               WINDOWS _69R0P0M001415729923E      E  (E  6E  CE      E  F                                               WINDOWS _69R0P0M011415729923F      G  G  G  *G      G  G                                               WINDOWS _69R0P0M021415729923H      H  H  I  I      I  I                                               WINDOWS _69R0P0M031415729923J      J  J  J  J      rK  K                                               WINDOWS _69R0P0M041415729923L      L  L  L  L      ZM  M                                               WINDOWS _69R0P0M051415729923N      N  N  N  N      DO  O                                               WINDOWS _69R0P0M061415729923}P      P  P  P  P      .Q  Q                                               WINDOWS _69R0P0M071415729923gR      tR  R  R  R      S  mS                                               WINDOWS _69R0P0M081415729923QT      ^T  kT  zT  T      U  WU                                               WINDOWS _69R0P0M091415729923;V      HV  UV  dV  qV      V  AW                                               WINDOWS _69R0P0M0A1415729923%X      2X  ?X  NX  [X      X  +Y                                               WINDOWS _69R0P0M0B1415729923Z      Z  )Z  8Z  EZ      Z  [                                               WINDOWS _69R0P0M0C1415729923[      \  \  "\  /\      \  \                                               WINDOWS _69R0P0M0D1415729923]      ]  ]  ^  ^      ^  ^                                               WINDOWS _69R0P0M0E1415729923_      _  _  _  `      ~`  `                                               WINDOWS _69R0P0M0F1415729923a      a  a  a  a      xb  b                                               WINDOWS _69R0P0M0G1415729923c      c  c  c  c      bd  d                                               WINDOWS _69R0P0M0H1415729923e      e  e  e  e      Lf  f                                               WINDOWS _69R0P0M0I1415729923g      g  g  g  g      8h  h                                               WINDOWS _69R0P0M0J1415729923si      i  i  i  i      &j  |j                                               WINDOWS _69R0P0M0K1415729923ak      nk  {k  k  k      l  jl                                               WINDOWS _69R0P0M0L1415729923Om      \m  im  xm  m      n  Xn                                               WINDOWS _69R0P0M0M1415729923=o      Jo  Wo  fo  so      o  Gp                                               WINDOWS _69R0P0M0N1415729923,q      9q  Fq  Uq  bq      q  6r                                               WINDOWS _69R0P0M0O1415729923s      (s  5s  Ds  Qs      s  %t                                               WINDOWS _69R0P0M0P1415729923
u      u  $u  3u  @u      u  v                                               WINDOWS _69R0P0M0Q1415729923v      w  w  "w  /w      w  x                                               WINDOWS _69R0P0M0R1415729923x      x  y  y  y      y  y                                               WINDOWS _69R0P0M0S1415729923z      z  z  {  {      {  {                                               WINDOWS _69R0P0M0T1415729923|      |  |  |  |      ~}  }                                               WINDOWS _69R0P0M0U1415729923~      ~  ~  ~  ~                                                       WINDOWS _69R0P0M0V1415729923      ǀ  Ԁ          p  Ɓ                                               WINDOWS _69R0P0M0W1415729923        ł  Ղ        a                                                 WINDOWS _69R0P0M0X1415729923          Ƅ  ӄ      R                                                 WINDOWS _69R0P0M0Y1415729923            Ć      C                                                 WINDOWS _69R0P0M0Z1415729923~                  4                                                 WINDOWS _69R0P0M101415729923o      |            %  {                                               WINDOWS _69R0P0M111415729923`      m  z            l                                               WINDOWS _69R0P0M121415729923Q      ^  k  {          ]                                               WINDOWS _69R0P0M131415729923B      O  \  l  y        N                                               WINDOWS _69R0P0M1414157299233      @  M  ]  j        ?                                               WINDOWS _69R0P0LZS1415728899$  4  T  c  p  }                                                           WINDOWS _69Z0L4RG71415729923        #  4  A                                                           WINDOWS _69Z0L4RG81415728899      
    '  F                                                           WINDOWS _69Z0L4RG91415728899v                                                                       WINDOWS _69Z0L4RGA1415728899@      N  \  k                                                             WINDOWS _69Z0L4RGB1415728899ǘ      ֘                                                                 COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      cPROCEDURE BeforeOpenTables
CREATE CURSOR tzgrid (sp1 C(60), sp2 N(12,2))
SELECT tzgrid
ENDPROC
                                     (   %                             U  = 3 h tzgrid  C<  N F   U  TZGRID SP1 SP2 BeforeOpenTables,     1 1q 1                       X       )                            cursor      cursor      Cursor1      Dataenvironment      ?Alias = "tzgrid"
CursorSource = tzgrid.dbf
Name = "Cursor1"
      2      1      form      form      FORM1      Height = 470
Width = 495
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Teilzeit Lupe"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     _PROCEDURE Destroy
SELECT tzgrid
USE

ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
FOR hsa = 0 TO 22
	hsxx = ALLTRIM(STR(hsa,2,0))
	thisform.zeile&hsxx..caption = ""
	thisform.kasten&hsxx..caption = ""
NEXT		

&&ffentlicher Dienst
teilzeitfak = Str(teilzeitfaktor,9,7)
If teilzeitfaktor < 1
	teilzeitfak = "0," + Substr(teilzeitfak, 3, 7)
Endif

If Len(teilzeitfak) > 9
	teilzeitfak = Leftc(teilzeitfak, 9)
Endif

thisform.caption = "T E I L Z E I T G E H A L T"

If zi(1+4) < 6 &&8 And Not zi(1+4) = 6 Then &&5 Then &&bei Beamten Sonderberechnung berspringen AOK_version
	If teiz(8) = True
		thisform.zeile8.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z8.Caption)
		teilzeitz(8) = wert(1+8) * teilzeitfaktor
	Else
		thisform.zeile8.Caption = "1,000 x " + Alltrim(myform1.z8.Caption)
		teilzeitz(8) = wert(1+8)
	Endif
	&&GoTo Familienzusch
Endif

If tzsonder = 1
	If teiz(8) = true &&False &&anfang der sprungmarke Goto ozmanuell
		thisform.zeile1.Caption = "Berechnung des Ortszuschlags nach  29 (5) u. (6) BAT:"
		thisform.zeile2.Caption = "Ortszuschlag bei Vollzeit "
		thisform.zeile3.Caption = "- Grundbetrag fr Ledige"
		thisform.zeile4.Caption = "+ " + teilzeitfak + "  Grundbetrag fr Ledige"
		thisform.zeile5.Caption = "= Ortszuschlag bei " + teilzeitfak + "  Teilzeit"
		teilzeitz(2) = wert(1+8)
		teilzeitz(3) = grundbetrag(1+15) * -1
		teilzeitz(4) = grundbetrag(1+15) * teilzeitfaktor
		teilzeitz(5) = teilzeitz(2) + teilzeitz(3) + teilzeitz(4)
		teilzeitz(8) = teilzeitz(5)

		For i = 1 To 5
			xxx=ALLTRIM(STR(i,1,0))
			thisform.zeile&xxx..Height = 20 &&HS myform1.&hszn..Height
			If i = 1
				thisform.zeile&xxx..Width = 450
			Else
				thisform.zeile&xxx..Width = 400
			Endif
		Next

		For i = 2 To 5
			xxx=ALLTRIM(STR(i,2,0))
			numbr = teilzeitz(i) / 100 &&HS vorher ohne / 100
			Do zahlintextnumbr &&Do attached
		Next
		thisform.zeile8.Caption = "Ortszuschlag lt.obiger Berechnung"
	ELSE
		thisform.zeile1.Caption = ""
		thisform.zeile2.Caption = ""
		thisform.zeile3.Caption = ""
		thisform.zeile4.Caption = ""
		thisform.zeile5.Caption = ""	
	ENDIF &&ende der sprungmarke ozmanuell:
Else
	If teiz(8) = True
		thisform.zeile8.Caption = Alltrim(Str(teilzeitfaktor,10,6)) + " x " + Alltrim(myform1.z8.Caption)
		teilzeitz(8) = wert(1+8) * teilzeitfaktor
	Else
		thisform.zeile8.Caption = "1,000 x " + Alltrim(myform1.z8.Caption)
		teilzeitz(8) = wert(1+8)
	Endif
Endif

&&Familienzusch:

&&Beginn des Normalteils
If teiz(7) = True
	thisform.zeile7.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z7.Caption)
Else
	thisform.zeile7.Caption = "1,0000 " + Alltrim(myform1.z7.Caption)
Endif

With thisform
	If teiz(7) = True
		.zeile7.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z7.Caption)
	Else
		thisform.zeile7.Caption = "1,0000 " + Alltrim(myform1.z7.Caption)
	Endif
	If teiz(9) = True
		.zeile8.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z9.Caption)
	Else

		thisform.zeile9.Caption = "1,0000 " + Alltrim(myform1.z9.Caption)
	Endif
	If teiz(8) = True
		.zeile9.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z8.Caption)
	Else
		thisform.zeile8.Caption = "1,0000 " + Alltrim(myform1.z8.Caption)
	Endif
	If teiz(11) = True
		.zeile10.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z11.Caption)
	Else
		thisform.zeile11.Caption = "1,0000 " + Alltrim(myform1.z11.Caption)
	Endif
	If teiz(10) = True
		.zeile11.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z10.Caption)
	Else
		thisform.zeile10.Caption = "1,0000 " + Alltrim(myform1.z10.Caption)
	Endif

	For i = 12 To 19
		If teiz(i) = True
			hszn="z"+Alltrim(Str(i,4,0))
			xxx=ALLTRIM(STR(i,2,0))
			.zeile&xxx..Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.&hszn..Caption)
		Else
			hszn="z"+Alltrim(Str(i,4,0))
			xxx=ALLTRIM(STR(i,2,0))
			thisform.zeile&xxx..Caption = "1,0000 " + Alltrim(myform1.&hszn..Caption)
		Endif

	Next &&If teiz(9) = true Then thisform.zeile(9).Caption = teilzeitfak + " der Allgemeinen Stellenzulage" Else thisform.zeile(9).Caption = "1,000 der Allgemeinen Stellenzulage"

	If zi(1+3) > 0 .And. teilzeitfaktor < 1 .And. zi(1+8) > 0
		.zeile18.caption = "s.Ber.   " + Alltrim(myform1.z18.Caption)
	Endif

	Do Case && zi(1+4)
		Case (zi(1+4) >= 0 .And. zi(1+4) <= 9)&&4
			If teiz(10) = True
				.zeile11.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z10.Caption)
			Else
				thisform.zeile11.Caption = "1,000 x " + Alltrim(myform1.z10.Caption)
			Endif
		Case (zi(1+4) >= 10 .And. zi(1+4) <= 27)&&5 To 17

			If teiz(10) = True
				.zeile11.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z10.Caption)
			Else
				.zeile11.Caption = "1,000 x " + Alltrim(myform1.z10.Caption)
			Endif

	Endcase

	If teiz(17) = True
		.zeile17.Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.z17.Caption)
	Else
		thisform.zeile17.Caption = "1,000 x " + Alltrim(myform1.z17.Caption)
	ENDIF
	
	.zeile21.Caption = "TEILZEITGEHALT BRUTTO"
	For i = 2 To 21
		if (i >= 2 .And. i <= 20)
			xxx=ALLTRIM(STR(i,2,0))
			thisform.zeile&xxx..Caption = alltrim(thisform.zeile&xxx..Caption) && + "....................................................."
		Endif
	Next
ENDWITH

j = (myform1.z11.Top - myform1.z7.Top) / 4

teilzeitz(21) = wert(1+21)

For i = 7 To 19
	xxx=ALLTRIM(STR(i,2,0))
	Do Case && i
		Case i = 7
			numbr = teilzahl(7)
		Case i = 8
			numbr = teilzahl(9)
		Case i = 9
			numbr = teilzahl(8)
		Case i = 10
			numbr = teilzahl(11)
		Case i = 11
			numbr = teilzahl(10)
		Case (i >= 12 .And. i <= 19)
			numbr = teilzahl(i)
	ENDCASE
	
	numbr = numbr / 100 &&HS vorher ohne diese zeile 
	
	Do zahlintextnumbr &&Do attached
	
	thisform.Kasten&xxx..Caption = wer
Next

thisform.Kasten20.Visible = False

With thisform.Kasten21
	numbr = wert(1+21) / 100 &&HS vorher ohne / 100
	
	Do zahlintextnumbr &&Do attached
	
	.Caption = wer
Endwith

thisform.zeile20.Visible = False

FOR hsa = 0 TO 22
	hsxx = ALLTRIM(STR(hsa,2,0))
	IF EMPTY(thisform.zeile&hsxx..caption)
		LOOP
	ENDIF
	SELECT tzgrid
	APPEND BLANK 
	FLUSH
	replace tzgrid.sp1 WITH ALLTRIM(thisform.zeile&hsxx..caption)
	replace tzgrid.sp2 WITH ROUND(VAL(thisform.kasten&hsxx..caption),2)
	FLUSH
NEXT

SELECT tzgrid
GO top
thisform.grdTzgrid.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 16 > thisform.grdtzgrid.width
	thisform.grdtzgrid.width = thisform.width - 16
ENDIF

*!*	IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
*!*		thisform.Top = 1
*!*	ENDIF

prozsp1 = 372 / 479
prozsp2 = 75 / 479

thisform.grdtzgrid.Width = thisform.Width - 16

grdbreite = thisform.grdtzgrid.Width 
thisform.grdtzgrid.column1.Width = grdbreite * prozsp1
thisform.grdtzgrid.column2.Width = grdbreite * prozsp2

thisform.grdtzgrid.column1.text1.fontsize = thisform.grdtzgrid.column1.fontsize
thisform.grdtzgrid.column2.text1.fontsize = thisform.grdtzgrid.column1.fontsize



ENDPROC
                                   Y   %   J      !     y            U    F   Q U  TZGRID %    
$  T        (  T CC  Z% thisform.zeile&hsxx..caption = ""
& thisform.kasten&hsxx..caption = ""
  T C 	Z % 
  T  0,C \  %C >	 T C 	 + T    T E I L Z E I T G E H A L T %C 
 %C 	 ( T  
  C   x C    T
 C	   ' T  
   1,000 x C    T
 C	    % a %C 	 I T    6 Berechnung des Ortszuschlags nach  29 (5) u. (6) BAT:- T     Ortszuschlag bei Vollzeit + T     - Grundbetrag fr Ledige5 T     +     Grundbetrag fr Ledige8 T     = Ortszuschlag bei  
   Teilzeit T
 C	  T
 C  T
 C  ' T
 C
 C
 C
  T
 C
   (o T CC  Z$ thisform.zeile&xxx..Height = 20 
 % @# thisform.zeile&xxx..Width = 450
 k# thisform.zeile&xxx..Width = 400
    ( T CC  Z T C  
 d   4 T  
  ! Ortszuschlag lt.obiger Berechnung ] T       T       T       T       T         %C 	 0 T  
  CC 
Z  x C    T
 C	   ' T  
   1,000 x C    T
 C	    %C 	 T( T    C   x C    & T     1,0000 C    
    %C 	 & T  C   x C    & T     1,0000 C     %C	 	 ;& T
  C   x C    i& T     1,0000 C     %C 	 & T  C   x C    & T  
   1,0000 C     %C 	 & T  C   x C    C& T      1,0000 C     %C
 	 & T   C   x C !   & T     1,0000 C !     (	 %C   	 l	 T"  zCC  Z T CC  ZX .zeile&xxx..Caption = Alltrim(teilzeitfak) + " x " + Alltrim(myform1.&hszn..Caption)
 	 T"  zCC  Z T CC  ZM thisform.zeile&xxx..Caption = "1,0000 " + Alltrim(myform1.&hszn..Caption)
  / %C    
	 C	  	Q
& T#  	 s.Ber.   C $   
 Hb
% C   C 		
 %C
 	 
& T   C   x C !   
' T      1,000 x C !   % C 
 C 	 %C
 	 U& T   C   x C !   % T    1,000 x C !     %C 	 & T%  C   x C &   ' T  %   1,000 x C &   & T'   TEILZEITGEHALT BRUTTO  ( %   	 T CC  ZG thisform.zeile&xxx..Caption = alltrim(thisform.zeile&xxx..Caption) 
   " T(        T
 C   (K T CC  Z
 H0
	  R
 T C)   t
 T C	)   	
 T C)   

 T C)   
 T C
)     		 T C  )   T  d  & thisform.Kasten&xxx..Caption = wer
  T  * + ,    -  T C d   T .   T  / + ,    ( T CC  Z. IF EMPTY(thisform.zeile&hsxx..caption) .  F0   [A replace tzgrid.sp1 WITH ALLTRIM(thisform.zeile&hsxx..caption)
G replace tzgrid.sp2 WITH ROUND(VAL(thisform.kasten&hsxx..caption),2)
 [  F0  #)
   1 2  %  3 4 5  T6 C5   3 4 T 
 T6  
   7 8  T  3   3 4 6  T  9   9 4 6 
   :  T  ; a U<  THISFORM TOP HSA HSXX TEILZEITFAK TEILZEITFAKTOR CAPTION ZI TEIZ TRUE ZEILE8 MYFORM1 Z8	 TEILZEITZ WERT TZSONDER ZEILE1 ZEILE2 ZEILE3 ZEILE4 ZEILE5 GRUNDBETRAG I XXX NUMBR ZAHLINTEXTNUMBR ZEILE7 Z7 Z9 ZEILE9 ZEILE10 Z11 ZEILE11 Z10 HSZN ZEILE18 Z18 ZEILE17 Z17 ZEILE21 J TEILZAHL KASTEN20 VISIBLE FALSE KASTEN21 WER ZEILE20 TZGRID	 GRDTZGRID REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     %       H  T         T  G
? T  ^
? T        T      T        T   	    " T    
       " T   	 
        U  THISFORM SIZER	 FRMRESIZE WIDTH	 GRDTZGRID PROZSP1 PROZSP2	 GRDBREITE COLUMN1 COLUMN2 TEXT1 FONTSIZE Destroy,      InitF      Resize    1 q A 3 AA qqQaA SA 21A RQ qqA B QQqqqrqA1 1A A rqaq A A 11111A  Q qqA A U aA  Qa aA Qa bA Qa aA Qa aA Qa aA raq qA B aA  QQa qA QRa QA B Ra qA bqqqA A A "rrq !A r bA 2Qr  A 2rqA A q Q A qA A r Q    A    2 A fa2"!4                       '         B             T      )                           
commandbutton      
commandbutton      Command1      FORM1      YTop = 434
Left = 8
Height = 25
Width = 479
Caption = "schlieen"
Name = "Command1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            label      label      zeile0      FORM1      Caption = "T E I L Z E I T G E H A L T"
Height = 17
Left = 126
Top = 25
Visible = .F.
Width = 153
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile1      FORM1      pCaption = "Label0"
Height = 17
Left = 68
Top = 52
Visible = .F.
Width = 59
TabIndex = 3
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      pCaption = "Label0"
Height = 17
Left = 68
Top = 67
Visible = .F.
Width = 59
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      pCaption = "Label0"
Height = 17
Left = 68
Top = 82
Visible = .F.
Width = 59
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      pCaption = "Label0"
Height = 17
Left = 68
Top = 97
Visible = .F.
Width = 59
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      qCaption = "Label0"
Height = 17
Left = 68
Top = 112
Visible = .F.
Width = 59
TabIndex = 7
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      qCaption = "Label0"
Height = 17
Left = 68
Top = 127
Visible = .F.
Width = 59
TabIndex = 8
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      FORM1      qCaption = "Label0"
Height = 17
Left = 68
Top = 142
Visible = .F.
Width = 59
TabIndex = 9
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      FORM1      rCaption = "Label0"
Height = 17
Left = 68
Top = 157
Visible = .F.
Width = 59
TabIndex = 10
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile9      FORM1      rCaption = "Label0"
Height = 17
Left = 68
Top = 172
Visible = .F.
Width = 59
TabIndex = 11
Name = "zeile9"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile10      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 187
Visible = .F.
Width = 59
TabIndex = 12
Name = "zeile10"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile11      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 202
Visible = .F.
Width = 59
TabIndex = 13
Name = "zeile11"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile12      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 217
Visible = .F.
Width = 59
TabIndex = 14
Name = "zeile12"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile13      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 232
Visible = .F.
Width = 59
TabIndex = 15
Name = "zeile13"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile14      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 247
Visible = .F.
Width = 59
TabIndex = 16
Name = "zeile14"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile15      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 262
Visible = .F.
Width = 59
TabIndex = 17
Name = "zeile15"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile16      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 277
Visible = .F.
Width = 59
TabIndex = 18
Name = "zeile16"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile17      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 292
Visible = .F.
Width = 59
TabIndex = 19
Name = "zeile17"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile18      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 307
Visible = .F.
Width = 59
TabIndex = 20
Name = "zeile18"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile19      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 322
Visible = .F.
Width = 59
TabIndex = 21
Name = "zeile19"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile20      FORM1      AutoSize = .F.
Caption = "Label0"
Height = 17
Left = 68
Top = 337
Visible = .F.
Width = 60
TabIndex = 22
Name = "zeile20"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile21      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 352
Visible = .F.
Width = 59
TabIndex = 23
Name = "zeile21"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile22      FORM1      sCaption = "Label0"
Height = 17
Left = 68
Top = 367
Visible = .F.
Width = 59
TabIndex = 24
Name = "zeile22"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      kasten0      FORM1      uCaption = "kasten0"
Height = 17
Left = 263
Top = 46
Visible = .F.
Width = 59
TabIndex = 165
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten1      FORM1      uCaption = "kasten0"
Height = 17
Left = 263
Top = 61
Visible = .F.
Width = 59
TabIndex = 166
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten2      FORM1      uCaption = "kasten0"
Height = 17
Left = 263
Top = 76
Visible = .F.
Width = 59
TabIndex = 167
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      uCaption = "kasten0"
Height = 17
Left = 263
Top = 91
Visible = .F.
Width = 59
TabIndex = 168
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 106
Visible = .F.
Width = 59
TabIndex = 169
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 121
Visible = .F.
Width = 59
TabIndex = 170
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten6      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 136
Visible = .F.
Width = 59
TabIndex = 171
Name = "kasten6"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten7      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 151
Visible = .F.
Width = 59
TabIndex = 172
Name = "kasten7"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten8      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 166
Visible = .F.
Width = 59
TabIndex = 173
Name = "kasten8"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten9      FORM1      vCaption = "kasten0"
Height = 17
Left = 263
Top = 181
Visible = .F.
Width = 59
TabIndex = 174
Name = "kasten9"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten10      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 196
Visible = .F.
Width = 59
TabIndex = 175
Name = "kasten10"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten11      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 211
Visible = .F.
Width = 59
TabIndex = 176
Name = "kasten11"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten12      FORM1      WordWrap = .F.
Caption = "kasten0"
Height = 17
Left = 263
Top = 226
Visible = .F.
Width = 59
TabIndex = 177
Name = "kasten12"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten13      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 241
Visible = .F.
Width = 59
TabIndex = 178
Name = "kasten13"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten14      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 256
Visible = .F.
Width = 59
TabIndex = 179
Name = "kasten14"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten15      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 271
Visible = .F.
Width = 59
TabIndex = 180
Name = "kasten15"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten16      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 286
Visible = .F.
Width = 59
TabIndex = 181
Name = "kasten16"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten17      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 301
Visible = .F.
Width = 59
TabIndex = 182
Name = "kasten17"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten18      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 316
Visible = .F.
Width = 59
TabIndex = 183
Name = "kasten18"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten19      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 331
Visible = .F.
Width = 59
TabIndex = 184
Name = "kasten19"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten20      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 346
Visible = .F.
Width = 59
TabIndex = 185
Name = "kasten20"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten21      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 361
Visible = .F.
Width = 59
TabIndex = 186
Name = "kasten21"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten22      FORM1      wCaption = "kasten0"
Height = 17
Left = 263
Top = 376
Visible = .F.
Width = 59
TabIndex = 187
Name = "kasten22"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 451
Left = 477
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      grid      grid      	grdTzgrid      FORM1     ColumnCount = 2
DeleteMark = .F.
Height = 417
Left = 8
Panel = 1
ReadOnly = .T.
RecordSource = "TZGRID"
RecordSourceType = 1
ScrollBars = 2
Top = 11
Width = 479
Name = "grdTzgrid"
Column1.ControlSource = "TZGRID.sp1"
Column1.Width = 372
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.ControlSource = "TZGRID.sp2"
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.Name = "Column2"
      header      header      Header1      FORM1.grdTzgrid.Column1      (Caption = "Spalte T"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTzgrid.Column1      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdTzgrid.Column2      5Alignment = 1
Caption = "Betrag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdTzgrid.Column2      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
N   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _69R0Q3EW61414947151      /  F      ]                                                       WINDOWS _69R0Q3EW71430476065                      97                                               WINDOWS _69R0U24K71414950958\      \  \  	]  ]      ]  ]                                               WINDOWS _69R0U24K81414950958^      ^  ^  ^  ^      t_  _                                               WINDOWS _69R0U24K91414950958`      `  `  `  `      Za  a                                               WINDOWS _69R0U24KA1414950958b      b  b  b  b      @c  c                                               WINDOWS _69R0U24KB1414950958yd      d  d  d  d      &e  {e                                               WINDOWS _69R0U24KC1414950958_f      lf  yf  f  f      g  ag                                               WINDOWS _69R0U24KD1414950958Eh      Rh  _h  mh  zh      h  Hi                                               WINDOWS _69R0U24KE1414950958,j      9j  Fj  Tj  aj      j  /k                                               WINDOWS _69R0U24KF1414950958l       l  -l  ;l  Hl      l  m                                               WINDOWS _69R0U24KG1414950958m      n  n  #n  0n      n  n                                               WINDOWS _69R0U24KH1414950958o      o  o  p  p      p  p                                               WINDOWS _69R0U24KI1414950958q      q  q  q  r      ~r  r                                               WINDOWS _69R0U24KJ1414950958s      s  s  s  s      ht  t                                               WINDOWS _69R0U24KK1414950958u      u  u  u  u      Rv  v                                               WINDOWS _69R0U24KL1414950958w      w  w  w  w      <x  x                                               WINDOWS _69R0U24KM1414950958uy      y  y  y  y      &z  {z                                               WINDOWS _69R0U24KN1414950958_{      l{  y{  {  {      |  e|                                               WINDOWS _69R0U24KO1414950958I}      V}  c}  r}  }      }  O~                                               WINDOWS _69R0U24KP14149509583      @  M  \  i        9                                               WINDOWS _69R0U24KQ1414950958      *  7  F  S      ΁  #                                               WINDOWS _69R0U24KR1414950958        !  0  =      ȃ                                                 WINDOWS _69R0U24KS1414950958          *  7                                                       WINDOWS _69R0U24KT1414950958            !                                                       WINDOWS _69R0U24KU1414950958Ո                    ۉ                                               WINDOWS _69R0U24KV1414950958      ̊  ي          p  ŋ                                               WINDOWS _69R0U24KW1414950958        Ì  Ҍ  ߌ      Z                                                 WINDOWS _69R0U24KX1414950958            Ɏ      D                                                 WINDOWS _69R0U24KY1414950958}                  .                                                 WINDOWS _69R0U24KZ1414950958g      t              m                                               WINDOWS _69R0U24L01414950958Q      ^  k  z          W                                               WINDOWS _69R0U24L11414950958;      H  U  d  q        A                                               WINDOWS _69R0U24L21414950958%      2  ?  N  [      ֘  +                                               WINDOWS _69R0U24L31414950958        )  8  E                                                       WINDOWS _69R0U24L41414950958          "  /                                                       WINDOWS _69R0U24L51414951010                                                                   WINDOWS _69R0U24L61414951010џ      ޟ              ڠ                                               WINDOWS _69R0U24L71414951010      ̡  ١          r  Ȣ                                               WINDOWS _69R0U24L81414951010        ǣ  ֣        `                                                 WINDOWS _69R0U24L91414951010          ĥ  ѥ      N                                                 WINDOWS _69R0U24LA1414951010                  <                                                 WINDOWS _69R0U24LB1414951010w                  +                                                 WINDOWS _69R0U24LC1414951010f      s              p                                               WINDOWS _69R0U24LD1414951010U      b  o  ~        	  _                                               WINDOWS _69R0U24LE1414951010D      Q  ^  m  z        N                                               WINDOWS _69R0U24LF14149510103      @  M  ]  j        ?                                               WINDOWS _69R0U24LG1414951010$      1  >  N  [      ڳ  0                                               WINDOWS _69R0U24LH1414951010      "  /  ?  L      ۵  1                                               WINDOWS _69R0U24LI1414951010      #  0  @  M      ̷  "                                               WINDOWS _69R0U24LJ1414951010        !  1  >                                                       WINDOWS _69R0U24LK1414951010          "  /                                                       WINDOWS _69R0U24LL1414951010                                                                    WINDOWS _69R0U24LM1414951010ھ                                                                   WINDOWS _69R0U24LN1414951010                                                                   WINDOWS _69R0U24LO1414951010                  r                                                 WINDOWS _69R0U24LP1414951010                  c                                                 WINDOWS _69R0U24LQ1414951010                  T                                                 WINDOWS _69R0U24LR1414951010                  E                                                 WINDOWS _69R0U24LS1414951010                  6                                                 WINDOWS _69R0U24LT1414951010q      ~            '  }                                               WINDOWS _69R0U24LU1414951010b      o  |            n                                               WINDOWS _69R0U24LV1414951010S      `  m  }        	  _                                               WINDOWS _69R0U24LW1414951010D      Q  ^  n  {        P                                               WINDOWS _69R0U24LX14149510105      B  O  _  l        A                                               WINDOWS _69R0U24LY1414951010&      3  @  P  ]        2                                               WINDOWS _69R0U24LZ1414951010      $  1  A  N        #                                               WINDOWS _69R0U24M01414951010        "  2  ?                                                       WINDOWS _69R0U24M11414951010          #  0                                                       WINDOWS _69R0U24M21414951010            !                                                       WINDOWS _69R0U24M31414951010                                                                   WINDOWS _69R0U24M41414951010                                                                   WINDOWS _69R0U24M51414951010                  s                                                 WINDOWS _69R0U24M61414950958                  `                                                 WINDOWS _69R0U24M71414956061                  G  {                                               WINDOWS _69R0ZPHYG1414956275J  Z  z                                                                 COMMENT RESERVED                                1                                                            Z                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 583
Width = 446
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Bruchteilgehalt"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     3xPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init

	thisform.top = myform1.top
*	myform1.enabled = .f.
	bruchteilfak = Str(bruchteilfaktor,9,7)


*!*		For i = 0 To 1
*!*			xxx=ALLTRIM(STR(i,2,0))
		With thisform.zeile0
			.FontSize = 10
			.Left = 70
			.Top = 30 &&myform1.Abereich1.Top + form1.z11.Top
			.Height = 25
			.Width = 260
			.FontBold = True
			.backcolor = thisform.backcolor
			.Visible = True
		Endwith
*!*		Next
		With thisform.zeile1
			.FontSize = 10
			.Left = 300
			.Top = 30 &&myform1.Abereich1.Top + form1.z11.Top
			.Height = 25
			.Width = 260
			.FontBold = True
			.backcolor = thisform.backcolor
			.Visible = True
		ENDWITH
		
*HS	thisform.zeile1.Left = 30

	Do Case && zi(1+22)
		Case zi(1+22) = 0
			thisform.zeile0.Caption = "Teilzeitgehalt               lt.Sp. B"
			thisform.zeile1.Caption = "   Bruchteilgehalt"

		Case  Inlist(zi(1+22), 1, 4)
			thisform.zeile0.Caption = "Ruhegehalt voll              lt.Sp. B"
			thisform.zeile1.Caption = "   gekrztes Gehalt"
		Case  Inlist(zi(1+22), 2, 3)
			thisform.zeile0.Caption = "Normales Gehalt              lt.Sp. A"
			thisform.zeile1.Caption = "Altersteilzeitgehalt"
	Endcase

	With thisform
		Do Case && zi(1+22)
			Case Inlist(zi(1+22), 0, 1, 4)
				If bruz(7) = 1
					.zeile7.Caption = "  x  " + bruchteilfak
				Else
					.zeile7.Caption = "  x  1,0000 "
				ENDIF
				
				If bruz(8) = 1
					.zeile9.Caption = "  x  " + bruchteilfak
				Else
					.zeile9.Caption = "  x  1,0000 "
				ENDIF
				
				If bruz(9) = 1
					.zeile8.Caption = "  x  " + bruchteilfak
				Else
					.zeile8.Caption = "  x  1,0000 "
				ENDIF
				
				If bruz(10) = 1
					.zeile11.Caption = "  x  " + bruchteilfak
				Else
					.zeile11.Caption = "  x  1,0000 "
				ENDIF
				
				If bruz(11) = 1
					.zeile10.Caption = "  x  " + bruchteilfak
				Else
					.zeile10.Caption = "  x  1,0000 "
				Endif

				For i = 12 To 19
					xxx=ALLTRIM(STR(i,2,0))
					If bruz(i) = 1
						.zeile&xxx..Caption = "  x  " + bruchteilfak
					Else
						.zeile&xxx..Caption = "  x  1,0000 "
					Endif
				NEXT
				
			Case zi(1+22) = 2
				If bruz(7) < 5
					.zeile7.Caption = "  x   0,5000 "
				Else
					.zeile7.Caption = "   x  1,0000 "
				ENDIF
				
				If bruz(8) < 5
					.zeile9.Caption = "  x   0,5000 "
				Else
					.zeile9.Caption = "   x  1,0000 "
				ENDIF
				
				If bruz(9) < 5
					.zeile8.Caption = "  x   0,5000 "
				Else
					.zeile8.Caption = "   x  1,0000 "
				ENDIF
				
				If bruz(10) < 5
					.zeile11.Caption = "  x   0,5000 "
				Else
					.zeile11.Caption = "   x  1,0000 "
				Endif
				If bruz(11) < 5
					.zeile10.Caption = "  x   0,5000 "
				Else
					.zeile10.Caption = "   x  1,0000 "
				Endif

				For i = 12 To 19 &&Atz
					xxx=ALLTRIM(STR(i,2,0))
					If bruz(i) < 5
						.zeile&xxx..Caption = "  x   0,5000 "
					Else
						.zeile&xxx..Caption = "   x  1,0000 "
					Endif
				NEXT
				
			Case zi(1+22) = 3
				If bruz(7) < 5
					.zeile7.Caption = "  x   0,5000 "
				Else
					.zeile7.Caption = "   x  0,0000 "
				ENDIF
				
				If bruz(8) < 5
					.zeile9.Caption = "  x   0,5000 "
				Else
					.zeile9.Caption = "   x  0,0000 "
				ENDIF
				
				If bruz(9) < 5
					.zeile8.Caption = "  x   0,5000 "
				Else
					.zeile8.Caption = "   x  0,0000 "
				ENDIF
				
				If bruz(10) < 5
					.zeile11.Caption = "  x   0,5000 "
				Else
					.zeile11.Caption = "   x  0,0000 "
				ENDIF
				
				If bruz(11) < 5
					.zeile10.Caption = "  x   0,5000 "
				Else
					.zeile10.Caption = "   x  0,0000 "
				ENDIF
				
				For i = 12 To 19 &&Atz
					xxx=ALLTRIM(STR(i,2,0))
					If bruz(i) < 5
						.zeile&xxx..Caption = "  x   0,5000 "
					Else
						.zeile&xxx..Caption = "   x  0,0000 "
					Endif
				Next
		Endcase

		If zi(1+8) > 0 .And. zi(1+3) > 0 .And. bruchteilfaktor < 1
			.zeile9.Caption = "bes.Ber."
		Endif
	Endwith

	For i = 7 To 19
		xxx=ALLTRIM(STR(i,2,0))
		*With thisform.zeile&xxx.
			thisform.zeile&xxx..FontSize = 12 &&HS myform1.z7.FontSize
			thisform.zeile&xxx..Left = 200
			hszn="z"+Alltrim(Str(i,4,0))
			thisform.zeile&xxx..Height = 25 &&HS myform1.&hszn..Height
			thisform.zeile&xxx..Width = 80
			thisform.zeile&xxx..AutoSize = True
			thisform.zeile&xxx..WordWrap = False
			thisform.zeile&xxx..backcolor = thisform.backcolor
			thisform.zeile&xxx..Visible = True
		*Endwith
	Next

	With thisform
		.zeile7.Top = 70 &&HS myform1.Abereich2.Top + myform1.z7.Top
		.zeile8.Top = 95 &&HS myform1.Abereich2.Top + myform1.z9.Top
		.zeile9.Top = 120 &&HS myform1.Abereich2.Top + myform1.z8.Top
		.zeile10.Top = 145 &&HS myform1.Abereich2.Top + myform1.z11.Top

		.zeile11.Top = 170 &&HS myform1.Abereich3.Top + myform1.z10.Top
		.zeile12.Top = 195 &&HS myform1.Abereich3.Top + myform1.z12.Top
		.zeile13.Top = 220 &&HS myform1.Abereich3.Top + myform1.z13.Top
		.zeile14.Top = 245 &&HS myform1.Abereich3.Top + myform1.z14.Top
		.zeile15.Top = 270 &&HS myform1.Abereich3.Top + myform1.z15.Top
		.zeile16.Top = 305 &&HS myform1.Abereich3.Top + myform1.z16.Top

		.zeile17.Top = 330 &&HS myform1.Abereich4.Top + myform1.z17.Top
		.zeile18.Top = 355 &&HS myform1.Abereich4.Top + myform1.z18.Top
		.zeile19.Top = 380 &&HS myform1.Abereich4.Top + myform1.z19.Top
		.zeile21.Top = 405 &&HS myform1.Abereich5.Top + myform1.z21.Top
		.zeile22.Top = 430 &&HS myform1.Abereich5.Top + myform1.z22.Top
		
		.zeile7.fontbold = true &&HS
		.zeile8.fontbold = true &&HS 
		.zeile9.fontbold = true &&HS 
		.zeile10.fontbold = true &&HS 

		.zeile11.fontbold = true &&HS 
		.zeile12.fontbold = true &&HS 
		.zeile13.fontbold = true &&HS 
		.zeile14.fontbold = true &&HS
		.zeile15.fontbold = true &&HS 
		.zeile16.fontbold = true &&HS 

		.zeile17.fontbold = true &&HS 
		.zeile18.fontbold = true &&HS 
		.zeile19.fontbold = true &&HS 
		.zeile21.fontbold = true &&HS 
		.zeile22.fontbold = true &&HS	
	Endwith

	&&bruchteilz(22) = wert(1+22)

	For i = 7 To 19
		xxx=ALLTRIM(STR(i - 6,2,0))
		xx2=ALLTRIM(STR(i,2,0))
		*With thisform.Kasten&xxx. &&(i - 6)
			thisform.Kasten&xxx..Visible = True
			thisform.Kasten&xxx..BackColor = RGB(255,255,255) &&HS hex2rgb("&H80000005") &&QBColor(15)
			thisform.Kasten&xxx..ForeColor = QBColor(0)
			thisform.Kasten&xxx..Top = thisform.zeile&xx2..Top
			thisform.Kasten&xxx..Height = 25 &&Form1.t(i).Height
			thisform.Kasten&xxx..Left = 70
			thisform.Kasten&xxx..alignment = 1
			*.Outline = True
			thisform.Kasten&xxx..Width = 100
			Do Case && i
				Case i = 7
					numbr = teilzahl(7)
				Case i = 8
					numbr = teilzahl(9)
				Case i = 9
					numbr = teilzahl(8)
				Case i = 10
					numbr = teilzahl(11)
				Case i = 11
					numbr = teilzahl(10)
				Case (i >= 12 .And. i <= 19)
					numbr = teilzahl(i)
			Endcase
			
			numbr = numbr / 100 &&HS vorher gabs die Zeile nicht
			
			Do zahlintextnumbr &&Do attached
			
			thisform.Kasten&xxx..Caption = wer
		*Endwith
	Next

	For i = 7 To 19
		xxx=ALLTRIM(STR(i + 7,2,0))
		xx2=ALLTRIM(STR(i,2,0))
	*	With thisform.Kasten&xxx. &&(i + 7)
			thisform.Kasten&xxx..Visible = True
			thisform.Kasten&xxx..BackColor = RGB(255,255,255) &&HS hex2rgb("&H80000005") &&QBColor(15)
			thisform.Kasten&xxx..ForeColor = QBColor(0)
			thisform.Kasten&xxx..Top = thisform.zeile&xx2..Top
			thisform.Kasten&xxx..Left = 320
			thisform.Kasten&xxx..alignment = 1
			thisform.Kasten&xxx..Height = 25 &&Form1.t(i).Height
			*thisform.Kasten&xxx..Outline = True
			thisform.Kasten&xxx..Width = 100
			Do Case && i
				Case i = 7
					numbr = bruchzahl(7)
				Case i = 8
					numbr = bruchzahl(9)
				Case i = 9
					If zi(1+22) > 1 .And. zi(1+22) < 4
						numbr = interim(1+8)
					Else
						numbr = bruchzahl(8)
					Endif
				Case i = 10
					numbr = bruchzahl(11)
				Case i = 11
					numbr = bruchzahl(10)
				Case (i >= 12 .And. i <= 19)
					numbr = bruchzahl(i)
			Endcase

			numbr = numbr / 100 &&HS vorher gabs die Zeile nicht

			Do zahlintextnumbr &&Do attached
			thisform.Kasten&xxx..Caption = wer
	*	Endwith
	Next
 
	For i = 27 To 28
		xxx=ALLTRIM(STR(i - 6,2,0))
		xx2=ALLTRIM(STR(i,2,0))
	*	With thisform.Kasten&xx2
			thisform.Kasten&xx2..Visible = True
			thisform.Kasten&xx2..BackColor = RGB(255,255,255) &&HS hex2rgb("&H80000005") &&QBColor(15)
			thisform.Kasten&xx2..ForeColor = QBColor(0)
			thisform.Kasten&xx2..Top = thisform.zeile&xxx..top &&(i - 6).Top
			thisform.Kasten&xx2..Height = 25 &&Form1.t(i).Height
			*thisform.Kasten&xx2.Outline = True
			thisform.Kasten&xx2..Width = 100
			numbr = wert(1+i - 6)
			
			numbr = numbr / 100 &&HS vorher gabs die Zeile nicht
						
			Do zahlintextnumbr &&Do attached
			thisform.Kasten&xx2..Caption = wer
	*	Endwith
	NEXT
	
	thisform.zeile2.top = thisform.zeile7.top
	thisform.zeile3.top = thisform.zeile8.top
	thisform.zeile4.top = thisform.zeile9.top
	thisform.zeile5.top = thisform.zeile10.top
	thisform.zeile6.top = thisform.zeile11.top
	thisform.zeile23.top = thisform.zeile12.top
	thisform.zeile24.top = thisform.zeile13.top
	thisform.zeile25.top = thisform.zeile14.top
	thisform.zeile26.top = thisform.zeile15.top
	thisform.zeile29.top = thisform.zeile16.top
	thisform.zeile30.top = thisform.zeile17.top
	thisform.zeile31.top = thisform.zeile18.top
	thisform.zeile32.top = thisform.zeile19.top
	thisform.zeile33.top = thisform.zeile27.top
	thisform.zeile34.top = thisform.zeile28.top

	thisform.zeile2.left = 10
	thisform.zeile3.left = 10
	thisform.zeile4.left = 10
	thisform.zeile5.left = 10
	thisform.zeile6.left = 10
	thisform.zeile23.left = 10
	thisform.zeile24.left = 10
	thisform.zeile25.left = 10
	thisform.zeile26.left = 10
	thisform.zeile29.left = 10
	thisform.zeile30.left = 10
	thisform.zeile31.left = 10
	thisform.zeile32.left = 10
	thisform.zeile33.left = 10
	thisform.zeile34.left = 10

	thisform.zeile2.width = 50
	thisform.zeile3.width = 50
	thisform.zeile4.width = 50
	thisform.zeile5.width = 50
	thisform.zeile6.width = 50
	thisform.zeile23.width = 50
	thisform.zeile24.width = 50
	thisform.zeile25.width = 50
	thisform.zeile26.width = 50
	thisform.zeile29.width = 50
	thisform.zeile30.width = 50
	thisform.zeile31.width = 50
	thisform.zeile32.width = 50
	thisform.zeile33.width = 50
	thisform.zeile34.width = 50

	thisform.zeile2.caption = "Zeile 08"
	thisform.zeile3.caption = "Zeile 09"
	thisform.zeile4.caption = "Zeile 10"
	thisform.zeile5.caption = "Zeile 11"
	thisform.zeile6.caption = "Zeile 12"
	thisform.zeile23.caption = "Zeile 13"
	thisform.zeile24.caption = "Zeile 14"
	thisform.zeile25.caption = "Zeile 15"
	thisform.zeile26.caption = "Zeile 16"
	thisform.zeile29.caption = "Zeile 17"
	thisform.zeile30.caption = "Zeile 18"
	thisform.zeile31.caption = "Zeile 19"
	thisform.zeile32.caption = "Zeile 20"
	thisform.zeile33.caption = "Zeile 22"
	thisform.zeile34.caption = "Zeile 23"	

	thisform.zeile2.visible = true
	thisform.zeile3.visible = true
	thisform.zeile4.visible = true
	thisform.zeile5.visible = true
	thisform.zeile6.visible = true
	thisform.zeile23.visible = true
	thisform.zeile24.visible = true
	thisform.zeile25.visible = true
	thisform.zeile26.visible = true
	thisform.zeile29.visible = true
	thisform.zeile30.visible = true
	thisform.zeile31.visible = true
	thisform.zeile32.visible = true
	thisform.zeile33.visible = true
	thisform.zeile34.visible = true
		
	thisform.zeile2.backcolor = thisform.backcolor
	thisform.zeile3.backcolor = thisform.backcolor
	thisform.zeile4.backcolor = thisform.backcolor
	thisform.zeile5.backcolor = thisform.backcolor
	thisform.zeile6.backcolor = thisform.backcolor
	thisform.zeile23.backcolor = thisform.backcolor
	thisform.zeile24.backcolor = thisform.backcolor
	thisform.zeile25.backcolor = thisform.backcolor
	thisform.zeile26.backcolor = thisform.backcolor
	thisform.zeile29.backcolor = thisform.backcolor
	thisform.zeile30.backcolor = thisform.backcolor
	thisform.zeile31.backcolor = thisform.backcolor
	thisform.zeile32.backcolor = thisform.backcolor
	thisform.zeile33.backcolor = thisform.backcolor
	thisform.zeile34.backcolor = thisform.backcolor
	
	thisform.zeile33.top = thisform.kasten27.top
	thisform.zeile34.top = thisform.kasten28.top
		
	thisform.Kasten27.left = 70
	thisform.Kasten28.left = 320

	With thisform.SSCommand1
		.Top = thisform.zeile22.Top + 40
		.Left = 10
		.Width = 400 &&Tablett.zeile(22).Width
		.Height = 25
		.Caption = "Schlieen"
		.FontBold = True
		.FontSize = 10
		.backcolor = thisform.backcolor
		.Visible = True
	ENDWITH
	
thisform.AutoCenter = .t.
IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     %    %  %                        S   %   "      .%  ~  2"            U    C     U  THISFORM SIZER	 FRMRESIZE< T      T C 	Z      T 
 T F T  T  T	  T
   T     T
       5 T 
 T , T  T  T	  T
   T     T
   
 HF C  8 T    % Teilzeitgehalt               lt.Sp. B% T        Bruchteilgehalt CC /8 T    % Ruhegehalt voll              lt.Sp. B& T        gekrztes Gehalt CC 8 T    % Normales Gehalt              lt.Sp. A' T     Altersteilzeitgehalt 
   

 H]
 CC  E %C  T     x    5 T     x  1,0000   %C h T     x     T     x  1,0000   %C	  T     x     T     x  1,0000   %C
  T     x    = T     x  1,0000   %C p T     x     T     x  1,0000    (A T CC  Z %C   
0 .zeile&xxx..Caption = "  x  " + bruchteilfak
 =( .zeile&xxx..Caption = "  x  1,0000 "
   C  %C 
 T  
   x   0,5000   T  
    x  1,0000   %C 
 T  
   x   0,5000   T  
    x  1,0000   %C	 
G T  
   x   0,5000  m T  
    x  1,0000   %C
 
 T  
   x   0,5000   T  
    x  1,0000   %C 
 T  
   x   0,5000  ' T  
    x  1,0000    ( T CC  Z %C   
) .zeile&xxx..Caption = "  x   0,5000 "
 ) .zeile&xxx..Caption = "   x  1,0000 "
   C ]
 %C 
 T  
   x   0,5000  ? T  
    x  0,0000   %C 
v T  
   x   0,5000   T  
    x  0,0000   %C	 
 T  
   x   0,5000   T  
    x  0,0000   %C
 
0	 T  
   x   0,5000  V	 T  
    x  0,0000   %C 
	 T  
   x   0,5000  	 T  
    x  0,0000    (Y
 T CC  Z %C   
$
) .zeile&xxx..Caption = "  x   0,5000 "
 U
) .zeile&xxx..Caption = "   x  0,0000 "
   / %C	   C  	  
	
 T   bes.Ber.    (4 T CC  Z& thisform.zeile&xxx..FontSize = 12 
" thisform.zeile&xxx..Left = 200
 T  zCC  Z$ thisform.zeile&xxx..Height = 25 
" thisform.zeile&xxx..Width = 80
' thisform.zeile&xxx..AutoSize = True
( thisform.zeile&xxx..WordWrap = False
6 thisform.zeile&xxx..backcolor = thisform.backcolor
& thisform.zeile&xxx..Visible = True
 
   J T  F T  _ T  x T   T   T   T   T   T   T  1 T  J T   c T!  | T"   T#   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T 
   T  
   T! 
   T" 
   T# 
     ( T CC  Z T$ CC  Z' thisform.Kasten&xxx..Visible = True
6 thisform.Kasten&xxx..BackColor = RGB(255,255,255) 
/ thisform.Kasten&xxx..ForeColor = QBColor(0)
6 thisform.Kasten&xxx..Top = thisform.zeile&xx2..Top
% thisform.Kasten&xxx..Height = 25 
" thisform.Kasten&xxx..Left = 70
& thisform.Kasten&xxx..alignment = 1
$ thisform.Kasten&xxx..Width = 100

 H   T% C&   ; T% C	&   	] T% C&   
 T% C&    T% C
&     	 T% C  &   T% % d ' & thisform.Kasten&xxx..Caption = wer
   ( T CC  Z T$ CC  Z' thisform.Kasten&xxx..Visible = True
6 thisform.Kasten&xxx..BackColor = RGB(255,255,255) 
/ thisform.Kasten&xxx..ForeColor = QBColor(0)
6 thisform.Kasten&xxx..Top = thisform.zeile&xx2..Top
# thisform.Kasten&xxx..Left = 320
& thisform.Kasten&xxx..alignment = 1
% thisform.Kasten&xxx..Height = 25 
$ thisform.Kasten&xxx..Width = 100

 H   T% C(    T% C	(   	g$ %C  C 
	J T% C	)  c T% C(    
 T% C(    T% C
(     	 T% C  (   T% % d ' & thisform.Kasten&xxx..Caption = wer
   ( T CC  Z T$ CC  Z' thisform.Kasten&xx2..Visible = True
6 thisform.Kasten&xx2..BackColor = RGB(255,255,255) 
/ thisform.Kasten&xx2..ForeColor = QBColor(0)
7 thisform.Kasten&xx2..Top = thisform.zeile&xxx..top 
% thisform.Kasten&xx2..Height = 25 
$ thisform.Kasten&xx2..Width = 100
 T% C *  T% % d ' & thisform.Kasten&xx2..Caption = wer
  T  +       T  ,       T  -       T  .       T  /       T  0       T  1       T  2       T  3       T  4       T  5       T  6        T  7    !   T  8    9   T  :    ;   T  +  
 T  ,  
 T  -  
 T  .  
 T  /  
 T  0  
 T  1  
 T  2  
 T  3  
 T  4  
 T  5  
 T  6  
 T  7  
 T  8  
 T  :  
 T  + 	 2 T  , 	 2 T  - 	 2 T  . 	 2 T  / 	 2 T  0 	 2 T  1 	 2 T  2 	 2 T  3 	 2 T  4 	 2 T  5 	 2 T  6 	 2 T  7 	 2 T  8 	 2 T  : 	 2 T  +   Zeile 08 T  ,   Zeile 09 T  -   Zeile 10 T  .   Zeile 11 T  /   Zeile 12 T  0   Zeile 13 T  1   Zeile 14 T  2   Zeile 15 T  3   Zeile 16 T  4   Zeile 17 T  5   Zeile 18 T  6   Zeile 19 T  7   Zeile 20 T  8   Zeile 22 T  :   Zeile 23 T  + 
   T  , 
   T  - 
   T  . 
   T  / 
   T  0 
   T  1 
   T  2 
   T  3 
   T  4 
   T  5 
   T  6 
   T  7 
   T  8 
   T  : 
   T  +      T  ,      T  -      T  .      T  /      T  0      T  1      T  2      T  3      T  4      T  5      T  6      T  7      T  8      T  :      T  8    <   T  :    =   T  <  F T  =  @   > { T   #  ( T 
 T	  T  T 	 Schlieen T
   T 
 T     T
    T  ? a %   @ A  TB CA    @ T 
 TB  
   C D  T      @ B  T  	   	 @ B 
   E  T  ? a UF  THISFORM TOP MYFORM1 BRUCHTEILFAK BRUCHTEILFAKTOR ZEILE0 FONTSIZE LEFT HEIGHT WIDTH FONTBOLD TRUE	 BACKCOLOR VISIBLE ZEILE1 ZI CAPTION BRUZ ZEILE7 ZEILE9 ZEILE8 ZEILE11 ZEILE10 I XXX HSZN ZEILE12 ZEILE13 ZEILE14 ZEILE15 ZEILE16 ZEILE17 ZEILE18 ZEILE19 ZEILE21 ZEILE22 XX2 NUMBR TEILZAHL ZAHLINTEXTNUMBR	 BRUCHZAHL INTERIM WERT ZEILE2 ZEILE3 ZEILE4 ZEILE5 ZEILE6 ZEILE23 ZEILE24 ZEILE25 ZEILE26 ZEILE29 ZEILE30 ZEILE31 ZEILE32 ZEILE33 ZEILE27 ZEILE34 ZEILE28 KASTEN27 KASTEN28
 SSCOMMAND1
 AUTOCENTER MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE RESIZE Resize,      Init_     1 2 2R       A        A  QQaqA   Q A R A R A R A R A rqa A A RQ A R A R A R A Q A rqa A A RQ A R A R A R A R A rqa A A A A A rqb!A!qaaB  !!"!!!!A tqraaQ!aB !A r bB rqraa1aQB A A !A r aB rqraqQBr aB 211111111111111211111111111111211111111111111baaaaaaaaaaaaaa2A   q   A    A    1                       ,         G   m3      )   %                        label      label      zeile0      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 17
Visible = .F.
Width = 59
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile1      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 32
Visible = .F.
Width = 59
TabIndex = 3
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 47
Visible = .F.
Width = 59
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 62
Visible = .F.
Width = 59
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 77
Visible = .F.
Width = 59
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      pCaption = "Label0"
Height = 17
Left = 20
Top = 92
Visible = .F.
Width = 59
TabIndex = 7
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      qCaption = "Label0"
Height = 17
Left = 20
Top = 107
Visible = .F.
Width = 59
TabIndex = 8
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      FORM1      qCaption = "Label0"
Height = 17
Left = 20
Top = 122
Visible = .F.
Width = 59
TabIndex = 9
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      FORM1      rCaption = "Label0"
Height = 17
Left = 20
Top = 137
Visible = .F.
Width = 59
TabIndex = 10
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile9      FORM1      rCaption = "Label0"
Height = 17
Left = 20
Top = 152
Visible = .F.
Width = 59
TabIndex = 11
Name = "zeile9"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile10      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 167
Visible = .F.
Width = 59
TabIndex = 12
Name = "zeile10"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile11      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 182
Visible = .F.
Width = 59
TabIndex = 13
Name = "zeile11"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile12      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 197
Visible = .F.
Width = 59
TabIndex = 14
Name = "zeile12"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile13      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 212
Visible = .F.
Width = 59
TabIndex = 15
Name = "zeile13"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile14      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 227
Visible = .F.
Width = 59
TabIndex = 16
Name = "zeile14"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile15      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 242
Visible = .F.
Width = 59
TabIndex = 17
Name = "zeile15"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile16      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 257
Visible = .F.
Width = 59
TabIndex = 18
Name = "zeile16"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile17      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 272
Visible = .F.
Width = 59
TabIndex = 19
Name = "zeile17"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile18      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 287
Visible = .F.
Width = 59
TabIndex = 20
Name = "zeile18"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile19      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 302
Visible = .F.
Width = 59
TabIndex = 21
Name = "zeile19"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile20      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 20
Top = 317
Visible = .F.
Width = 40
TabIndex = 22
Name = "zeile20"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile21      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 332
Visible = .F.
Width = 59
TabIndex = 23
Name = "zeile21"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile22      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 347
Visible = .F.
Width = 59
TabIndex = 24
Name = "zeile22"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile23      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 362
Visible = .F.
Width = 59
TabIndex = 25
Name = "zeile23"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile24      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 377
Visible = .F.
Width = 59
TabIndex = 26
Name = "zeile24"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile25      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 392
Visible = .F.
Width = 59
TabIndex = 27
Name = "zeile25"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile26      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 407
Visible = .F.
Width = 59
TabIndex = 28
Name = "zeile26"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile27      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 422
Visible = .F.
Width = 59
TabIndex = 29
Name = "zeile27"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile28      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 437
Visible = .F.
Width = 59
TabIndex = 30
Name = "zeile28"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile29      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 452
Visible = .F.
Width = 59
TabIndex = 31
Name = "zeile29"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile30      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 467
Visible = .F.
Width = 59
TabIndex = 32
Name = "zeile30"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile31      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 482
Visible = .F.
Width = 59
TabIndex = 33
Name = "zeile31"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile32      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 497
Visible = .F.
Width = 59
TabIndex = 34
Name = "zeile32"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile33      FORM1      sCaption = "Label0"
Height = 17
Left = 20
Top = 512
Visible = .F.
Width = 59
TabIndex = 35
Name = "zeile33"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      kasten0      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 24
Visible = .F.
Width = 59
TabIndex = 165
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten1      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 39
Visible = .F.
Width = 59
TabIndex = 166
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten2      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 54
Visible = .F.
Width = 59
TabIndex = 167
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 69
Visible = .F.
Width = 59
TabIndex = 168
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 84
Visible = .F.
Width = 59
TabIndex = 169
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      uCaption = "kasten0"
Height = 17
Left = 333
Top = 99
Visible = .F.
Width = 59
TabIndex = 170
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten6      FORM1      vCaption = "kasten0"
Height = 17
Left = 333
Top = 114
Visible = .F.
Width = 59
TabIndex = 171
Name = "kasten6"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten7      FORM1      vCaption = "kasten0"
Height = 17
Left = 333
Top = 129
Visible = .F.
Width = 59
TabIndex = 172
Name = "kasten7"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten8      FORM1      vCaption = "kasten0"
Height = 17
Left = 333
Top = 144
Visible = .F.
Width = 59
TabIndex = 173
Name = "kasten8"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten9      FORM1      vCaption = "kasten0"
Height = 17
Left = 333
Top = 159
Visible = .F.
Width = 59
TabIndex = 174
Name = "kasten9"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten10      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 174
Visible = .F.
Width = 59
TabIndex = 175
Name = "kasten10"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten11      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 189
Visible = .F.
Width = 59
TabIndex = 176
Name = "kasten11"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten12      FORM1      WordWrap = .F.
Caption = "kasten0"
Height = 17
Left = 333
Top = 204
Visible = .F.
Width = 59
TabIndex = 177
Name = "kasten12"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten13      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 219
Visible = .F.
Width = 59
TabIndex = 178
Name = "kasten13"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten14      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 234
Visible = .F.
Width = 59
TabIndex = 179
Name = "kasten14"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten15      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 249
Visible = .F.
Width = 59
TabIndex = 180
Name = "kasten15"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten16      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 264
Visible = .F.
Width = 59
TabIndex = 181
Name = "kasten16"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten17      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 279
Visible = .F.
Width = 59
TabIndex = 182
Name = "kasten17"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten18      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 294
Visible = .F.
Width = 59
TabIndex = 183
Name = "kasten18"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten19      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 309
Visible = .F.
Width = 59
TabIndex = 184
Name = "kasten19"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten20      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 324
Visible = .F.
Width = 59
TabIndex = 185
Name = "kasten20"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten21      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 339
Visible = .F.
Width = 59
TabIndex = 186
Name = "kasten21"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten22      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 354
Visible = .F.
Width = 59
TabIndex = 187
Name = "kasten22"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten23      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 369
Visible = .F.
Width = 59
TabIndex = 188
Name = "kasten23"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten24      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 384
Visible = .F.
Width = 59
TabIndex = 189
Name = "kasten24"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten25      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 399
Visible = .F.
Width = 59
TabIndex = 190
Name = "kasten25"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten26      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 414
Visible = .F.
Width = 59
TabIndex = 191
Name = "kasten26"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten27      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 429
Visible = .F.
Width = 59
TabIndex = 192
Name = "kasten27"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten28      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 444
Visible = .F.
Width = 59
TabIndex = 193
Name = "kasten28"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten29      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 459
Visible = .F.
Width = 59
TabIndex = 194
Name = "kasten29"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten30      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 474
Visible = .F.
Width = 59
TabIndex = 195
Name = "kasten30"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten31      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 489
Visible = .F.
Width = 59
TabIndex = 196
Name = "kasten31"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten32      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 504
Visible = .F.
Width = 59
TabIndex = 197
Name = "kasten32"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten33      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 519
Visible = .F.
Width = 59
TabIndex = 198
Name = "kasten33"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten34      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 537
Visible = .F.
Width = 59
TabIndex = 199
Name = "kasten34"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten35      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 552
Visible = .F.
Width = 59
TabIndex = 200
Name = "kasten35"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten36      FORM1      wCaption = "kasten0"
Height = 17
Left = 333
Top = 567
Visible = .F.
Width = 59
TabIndex = 201
Name = "kasten36"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      zeile34      FORM1      tCaption = "Label0"
Height = 17
Left = 20
Top = 528
Visible = .F.
Width = 59
TabIndex = 219
Name = "zeile34"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            
commandbutton      
commandbutton      
ssCommand1      FORM1      ]Top = 546
Left = 120
Height = 28
Width = 190
Caption = "schlieen"
Name = "ssCommand1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 564
Left = 426
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _69U0YDHRY1415209064      /  F      ]        N                                           WINDOWS _69U0YDHS01430476099                      3                                               WINDOWS _69U0YDHS11415153112u                                                                   WINDOWS _69U0YDHS21415151689          
  0                                                           WINDOWS _69U0YDHS31415152954[      j  y                                                               WINDOWS _69U0YDHS41415151689      (  6  E  h                                                           WINDOWS _69U0YDHS51415152954                                                                       WINDOWS _69U0YDHS61415151689R      `  n  }                                                             WINDOWS _69U0YDHS71415151689                                                                       WINDOWS _69U0YDHS81415151689                                                                       WINDOWS _69U0YDHS91415208249      !  0  =  `                                                           WINDOWS _69U0YDHSA1415153202            '                                                        WINDOWS _69U0YDHSB1415151689!      !  "  !"  ."      "  "                                               WINDOWS _69U0YDHSC1415151689#  #  $   $  -$  :$                                                           WINDOWS _69U0ZP43T1415208052$      $  $  %  %      %  :                                               COMMENT RESERVED                                J                                                            J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR erstattung (sp0 C(5), sp1 C(80), sp2 N(12,2), sp3 N(12,2))
SELECT erstattung
ENDPROC
     9                                   %                             U  e [ h
 erstattung  C  CP  N  N F   U 
 ERSTATTUNG SP0 SP1 SP2 SP3 BeforeOpenTables,     1 q 1                       w       )                            1      1      form      form      FORM1      Top = 0
Left = 0
Height = 541
Width = 619
ShowWindow = 1
DoCreate = .T.
Caption = "Erstattung durch das Arbeitsamt und zustzliche SV-Beitrge des AG"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     mPROCEDURE Destroy
SELECT erstattung
USE

ENDPROC
PROCEDURE Init
myerstattung = thisform
    
 
IF thisform.Top < 0
	thisform.Top = 0
endif

THISFORM.DURCHRECHNEN.CLICK

thisform.Visible = True

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

*thisform.durchrechnen.click

IF thisform.width - 12 > thisform.grdErstattung.width
	thisform.grdErstattung.width = thisform.width -12
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  38 / 603
prozsp2 =  437 / 603
prozsp3 =  95 / 603

thisform.grdErstattung.Width = thisform.Width - 16

grdbreite = thisform.grdErstattung.Width 

thisform.grdErstattung.column1.Width = grdbreite * prozsp1
thisform.grdErstattung.column2.Width = grdbreite * prozsp2
*thisform.grdErstattung.column3.Width = grdbreite * prozsp2
thisform.grdErstattung.column4.Width = grdbreite * prozsp3

thisform.grdErstattung.column1.text1.fontsize = thisform.grdErstattung.column1.fontsize
thisform.grdErstattung.column2.text1.fontsize = thisform.grdErstattung.column1.fontsize
*thisform.grdErstattung.column3.text1.fontsize = thisform.grdErstattung.column1.fontsize
thisform.grdErstattung.column4.text1.fontsize = thisform.grdErstattung.column1.fontsize

ENDPROC
     :    !  !                           %   9        (   h            U    F   Q U 
 ERSTATTUNG
 T    %   
1  T    
     T    %   	   T
 C	    T  
 T
  
     T     
  T 
  
  
 
    T  a U  MYERSTATTUNG THISFORM TOP DURCHRECHNEN CLICK VISIBLE TRUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER C     %       H  T        " %          ~  T     T  !? T	  g0? T
  5St*? T        T      T        T   
   	  T      
 " T           " T   
        " T            U  THISFORM SIZER	 FRMRESIZE WIDTH
 GRDERSTATTUNG TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2 PROZSP3	 GRDBREITE COLUMN1 COLUMN2 COLUMN4 TEXT1 FONTSIZE Destroy,      InitJ      Resize    1 q A 3  CA    A    2 A "A baa2"!"2                       +         F   :        W  b      )   !                        grid      grid      
grdErstattung      FORM1     	ColumnCount = 4
DeleteMark = .F.
HeaderHeight = 0
Height = 490
Left = 8
Panel = 1
ReadOnly = .T.
RecordSource = "ERSTATTUNG"
RecordSourceType = 1
ScrollBars = 2
Top = 6
Width = 603
Name = "grdErstattung"
Column1.ControlSource = "ERSTATTUNG.sp0"
Column1.Width = 38
Column1.ReadOnly = .T.
Column1.BackColor = 249,249,249
Column1.Name = "Column1"
Column2.ControlSource = "ERSTATTUNG.sp1"
Column2.Width = 437
Column2.ReadOnly = .T.
Column2.BackColor = 249,249,249
Column2.Name = "Column2"
Column3.ControlSource = "ERSTATTUNG.sp2"
Column3.Width = 10
Column3.ReadOnly = .T.
Column3.Visible = .F.
Column3.Name = "Column3"
Column4.ControlSource = "ERSTATTUNG.sp3"
Column4.Width = 95
Column4.ReadOnly = .T.
Column4.Format = "Z"
Column4.Name = "Column4"
     UPROCEDURE Init
thisform.grderstattung.Column1.DynamicFontBold = "gridcolor_grderstattung(1)"
thisform.grderstattung.Column2.DynamicFontBold = "gridcolor_grderstattung(2)"
thisform.grderstattung.Column3.DynamicFontBold = "gridcolor_grderstattung(3)"
thisform.grderstattung.Column4.DynamicFontBold = "gridcolor_grderstattung(4)"
ENDPROC
                                   $   %   A      [     O            U   0 T      gridcolor_grderstattung(1)0 T      gridcolor_grderstattung(2)0 T      gridcolor_grderstattung(3)0 T      gridcolor_grderstattung(4) U  THISFORM
 GRDERSTATTUNG COLUMN1 DYNAMICFONTBOLD COLUMN2 COLUMN3 COLUMN4 Init,     1 1                       J      )                           header      header      Header1      FORM1.grdErstattung.Column1      #Caption = "sp0"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdErstattung.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 249,249,249
Name = "Text1"
      header      header      Header1      FORM1.grdErstattung.Column2      #Caption = "sp1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdErstattung.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 249,249,249
Name = "Text1"
      header      header      Header1      FORM1.grdErstattung.Column3      #Caption = "sp2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdErstattung.Column3      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .F.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdErstattung.Column4      #Caption = "sp3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdErstattung.Column4      vBorderStyle = 0
Format = ""
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      
commandbutton      
commandbutton      
ssCommand1      FORM1      [Top = 499
Left = 170
Height = 34
Width = 139
Caption = "Drucken"
Name = "ssCommand1"
     PROCEDURE Click
*DO progress_sscommand2_click

k = 135 &&Strichlnge
a = 0
myIndex = 0

DO monatladen

*If myProgress.MSFlexGrid1.Rows = 14 
*	DO progressdrucken
*!*		oldselect = SELECT(0)
*!*		CREATE CURSOR dummy (feld C(1))
*!*		SELECT dummy
*!*		APPEND BLANK
*!*		FLUSH

*!*		SELECT dummy
*!*		GO top
SELECT erstattung
GO top

report form atz_druck4 WHILE .not. EOF() NOCONSOLE TO PRINTER prompt

*!*		SELECT dummy
*!*		USE

*!*		SELECT(oldselect)
	return
*endif

*!*	oldselect = SELECT(0)
*!*	CREATE CURSOR dummy (feld C(1))
*!*	SELECT dummy
*!*	APPEND BLANK
*!*	FLUSH

*!*	SELECT dummy
*!*	GO top

*!*	report form atz_druck4 RANGE 1,1 NOCONSOLE TO PRINTER prompt

*!*	SELECT dummy
*!*	USE

*!*	SELECT(oldselect)
ENDPROC
     G    .  .                           %                             U  ] 
 T  
 T  
 T     F  #) ?
 atz_druck4(!"9+C+
 B U  K A MYINDEX
 MONATLADEN
 ERSTATTUNG
 ATZ_DRUCK4 Click,     1    r | Q F 1                             )   .                        
commandbutton      
commandbutton      
ssCommand2      FORM1      ]Top = 499
Left = 309
Height = 34
Width = 139
Caption = "Schlieen"
Name = "ssCommand2"
      KPROCEDURE Click
myatzwindow.windowstate = 0
thisform.Release

ENDPROC
                                      4S   %   z                          U    T    
    U  MYATZWINDOW WINDOWSTATE THISFORM RELEASE Click,     1  2                       @       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 522
Left = 600
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      durchrechnen      FORM1      Top = 507
Left = 483
Height = 19
Width = 88
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     3PROCEDURE Click
    
Do progression 
    
SELECT erstattung
FOR hsa = 1 TO 32
	APPEND BLANK
	FLUSH
NEXT

FOR hsa = 15 TO 19
	GOTO hsa
	DELETE
	flush
NEXT
GOTO 25
DELETE
FLUSH

GOTO 5
replace erstattung.sp0 WITH "1."
FLUSH

GOTO 11
replace erstattung.sp0 WITH "2.1"
FLUSH        

GOTO 20
replace erstattung.sp0 WITH "2.2"
FLUSH            

GOTO 26
replace erstattung.sp0 WITH "2.3"
FLUSH           

GOTO 28
replace erstattung.sp0 WITH "3."
FLUSH           

GOTO 1
replace erstattung.sp1 WITH " Aufstockung der Beitrge zur Rentenversicherung durch den Arbeitgeber"
FLUSH        

GOTO 2
replace erstattung.sp1 WITH " Der Arbeitgeber entrichtet zustzliche Beitrge zur Rentenversicherung."
FLUSH  

GOTO 3
replace erstattung.sp1 WITH " Die Beitrge werden wie folgt berechnet:"
FLUSH  

GOTO 5
replace erstattung.sp1 WITH " Laufende Bezge"
FLUSH  

GOTO 6
replace erstattung.sp1 WITH " Fiktives beitragspflichtiges Vollzeit-Entgelt (max. BBG)"
FLUSH  

GOTO 7
replace erstattung.sp1 WITH " Davon 90 % ="
FLUSH  

GOTO 8
replace erstattung.sp1 WITH " -  Regulr verbeitragtes Altersteilzeitgehalt"
FLUSH  

GOTO 9
replace erstattung.sp1 WITH " = vom Arbeitgeber fr lfd. Gehalt noch zu verbeitragen"
FLUSH  

GOTO 11
replace erstattung.sp1 WITH " Einmalige Zahlungen (Vollzeitanteil)"
FLUSH  

GOTO 12
replace erstattung.sp1 WITH " davon 90 %"
FLUSH  

GOTO 13
replace erstattung.sp1 WITH " -  Teilzeitanteil (bereits regulr verbeitragt)"
FLUSH  

GOTO 14
replace erstattung.sp1 WITH " = Hchstbetrag   A  fr eine zustzliche Verbeitragung "
FLUSH  

GOTO 15
replace erstattung.sp1 WITH " Begrenzung auf 90 % des fiktiven Vollzeitgehalts nach AtG"
FLUSH  

GOTO 16
replace erstattung.sp1 WITH " Fiktives beitragspfl. Vollzeitentgelt nach AtG bis einschl. lfd. Monat"
FLUSH  

GOTO 17
replace erstattung.sp1 WITH " davon 90 %"
FLUSH  

GOTO 18
replace erstattung.sp1 WITH " -  bis einschl. lfd. Monat verbeitragt ohne Einmalzahlung im lfd. Monat"
FLUSH  

GOTO 19
replace erstattung.sp1 WITH " = Hchstbetrag   B  fr eine zustzliche Verbeitragung"
FLUSH  

GOTO 20
replace erstattung.sp1 WITH " Beitragsbemessungsgrenze"
FLUSH  

GOTO 21
replace erstattung.sp1 WITH " Beitragsbemessungsgrenze / 12 mal ATZ-Monate im lfd. Jahr"
FLUSH  

GOTO 22
replace erstattung.sp1 WITH " davon 90 %"
FLUSH  

GOTO 23
replace erstattung.sp1 WITH " -  bis einschl. lfd. Monat verbeitragt ohne Einmalzahlung im lfd. Monat"
FLUSH  

GOTO 24
replace erstattung.sp1 WITH " = Hchstbetrag   B  fr eine zustzliche Verbeitragung"
FLUSH  

GOTO 25
replace erstattung.sp1 WITH " = R a h m e n   B"
FLUSH  

GOTO 26
replace erstattung.sp1 WITH " Zu verbeitragen unter Bercksichtigung der Hchstbetrge A und B"
FLUSH  

GOTO 28
replace erstattung.sp1 WITH " Insgesamt vom AG zustzlich zu verbeitragendes Entgelt"
FLUSH  

GOTO 29
replace erstattung.sp1 WITH " Bei einem Beitragssatz von " + ALLTRIM(STR(rvorein * 2,8,2)) + " % ergibt sich ein zustzlicher Beitrag von"
FLUSH  

GOTO 6
replace erstattung.sp2 WITH sicht(1+ 10,1+ 1)
FLUSH       

GOTO 7
replace erstattung.sp2 WITH sicht(1+10,1+ 4)
FLUSH  

GOTO 8
replace erstattung.sp2 WITH sicht(1+10,1+ 2)
FLUSH  

GOTO 9
replace erstattung.sp2 WITH sicht(1+10,1+ 3)
FLUSH  
   
GOTO 11
replace erstattung.sp2 WITH sicht(1+11,1+ 4)
FLUSH           

GOTO 12
replace erstattung.sp2 WITH sicht(1+11,1+ 5)
FLUSH           

GOTO 13
replace erstattung.sp2 WITH sicht(1+11,1+ 6)
FLUSH           

GOTO 14
replace erstattung.sp2 WITH sicht(1+11,1+ 7)
FLUSH           

GOTO 21
replace erstattung.sp2 WITH sicht(1+11,1+ 0)
FLUSH                

GOTO 22
replace erstattung.sp2 WITH sicht(1+11,1+ 1)
FLUSH       

GOTO 23
replace erstattung.sp2 WITH sicht(1+13,1+ 4)
FLUSH       

GOTO 24
replace erstattung.sp2 WITH sicht(1+13,1+ 5)
FLUSH       

 GOTO 26
replace erstattung.sp2 WITH sicht(1+13,1+ 6)
FLUSH      

 GOTO 28
replace erstattung.sp2 WITH sicht(1+13,1+ 7)
FLUSH        

 GOTO 29
replace erstattung.sp2 WITH sicht(1+13,1+ 8)
FLUSH 
       
 GOTO 6
replace erstattung.sp3 WITH sicht(1+12,1+ 1)
FLUSH        

 GOTO 7
replace erstattung.sp3 WITH sicht(1+12,1+ 4)
FLUSH          

 GOTO 8
replace erstattung.sp3 WITH sicht(1+12,1+ 2)
FLUSH          

 GOTO 9
replace erstattung.sp3 WITH sicht(1+12,1+ 3)
FLUSH          

 GOTO 11
replace erstattung.sp3 WITH sicht(1+11,1+ 4)
FLUSH          

 GOTO 12
replace erstattung.sp3 WITH sicht(1+11,1+ 5)
FLUSH          

 GOTO 13
replace erstattung.sp3 WITH sicht(1+11,1+ 6)
FLUSH          

 GOTO 14
replace erstattung.sp3 WITH sicht(1+11,1+ 7)
FLUSH          

 GOTO 21
replace erstattung.sp3 WITH sicht(1+11,1+ 0)
FLUSH          

 GOTO 22
replace erstattung.sp3 WITH sicht(1+11,1+ 1)
FLUSH          

 GOTO 23
replace erstattung.sp3 WITH sicht(1+11,1+ 2)
FLUSH          

 GOTO 24
replace erstattung.sp3 WITH sicht(1+11,1+ 3)
FLUSH          

 GOTO 25
replace erstattung.sp3 WITH sicht(1+11,1+ 7)
FLUSH          

 GOTO 26
replace erstattung.sp3 WITH sicht(1+11,1+ 8)
FLUSH          

 GOTO 28
replace erstattung.sp3 WITH sicht(1+12,1+ 5)
FLUSH          

 GOTO 29
replace erstattung.sp3 WITH sicht(1+12,1+ 6)
FLUSH          

GO top
thisform.grdErstattung.refresh
ENDPROC
                                      %   
           
            U  I
    F   ( .   [   (Z 	 #   [ 	 #  [	 # >   1. [	 # >   2.1 [	 # >   2.2 [	 # >   2.3 [	 # >   3. [	 #V >  F  Aufstockung der Beitrge zur Rentenversicherung durch den Arbeitgeber [	 #X >  H  Der Arbeitgeber entrichtet zustzliche Beitrge zur Rentenversicherung. [	 #9 >  )  Die Beitrge werden wie folgt berechnet: [	 #  >    Laufende Bezge [	 #I >  9  Fiktives beitragspflichtiges Vollzeit-Entgelt (max. BBG) [	 # >  
  Davon 90 % = [	 #> >  .  -  Regulr verbeitragtes Altersteilzeitgehalt [	 #	G >  7  = vom Arbeitgeber fr lfd. Gehalt noch zu verbeitragen [	 #5 >  %  Einmalige Zahlungen (Vollzeitanteil) [	 # >    davon 90 % [	 #
@ >  0  -  Teilzeitanteil (bereits regulr verbeitragt) [	 #H >  8  = Hchstbetrag   A  fr eine zustzliche Verbeitragung  [	 #J >  :  Begrenzung auf 90 % des fiktiven Vollzeitgehalts nach AtG [	 #W >  G  Fiktives beitragspfl. Vollzeitentgelt nach AtG bis einschl. lfd. Monat [	 # >    davon 90 % [	 #X >  H  -  bis einschl. lfd. Monat verbeitragt ohne Einmalzahlung im lfd. Monat [	 #G >  7  = Hchstbetrag   B  fr eine zustzliche Verbeitragung [	 #) >    Beitragsbemessungsgrenze [	 #J >  :  Beitragsbemessungsgrenze / 12 mal ATZ-Monate im lfd. Jahr [	 # >    davon 90 % [	 #X >  H  -  bis einschl. lfd. Monat verbeitragt ohne Einmalzahlung im lfd. Monat [	 #G >  7  = Hchstbetrag   B  fr eine zustzliche Verbeitragung [	 #" >    = R a h m e n   B [	 #Q >  A  Zu verbeitragen unter Bercksichtigung der Hchstbetrge A und B [	 #G >  7  Insgesamt vom AG zustzlich zu verbeitragendes Entgelt [	 #m >    Bei einem Beitragssatz von CC Z+  % ergibt sich ein zustzlicher Beitrag von [	 # >  C  [	 # >  C  [	 # >  C  [	 #	 >  C  [	 # >  C  [	 # >  C  [	 #
 >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C	  [	 # >  C
  [	 # >  C
  [	 # >  C
  [	 #	 >  C
  [	 # >  C  [	 # >  C  [	 #
 >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C  [	 # >  C	  [	 # >  C
  [	 # >  C
  [ #)
 	 
   U  PROGRESSION
 ERSTATTUNG HSA SP0 SP1 RVOREIN SP2 SICHT SP3 THISFORM
 GRDERSTATTUNG REFRESH Click,     1 r r qQ A A r A A A  A A  !A  1A  1A  1A  !A  aA  A  A  A  A  A  A  qA  QA  A  A  A  A  qA  A  A  qA  A  A  A  A  qA  !A  A  qA  A  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA  qA R  1                       (      )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
 JFIF  ` `  FExif  MM *    Q         Q       Q       >Q               333ffffff33̙33ff333  f        33ff3 3 f3f33 ff f3̙ff3 f 3̙ ̙3f f̙ 3 fff3̙3f333 ff    3f  33f f f3f3f f 3f f33 f3 f33 ff3f3̙33ff33 3  f       33ff 3 33f3f 3f f3ff̙ f3 f3 3̙ ff ̙3 f3ff3f3 33 ff   3f  33 ff 3ff 3f f3 f3f 3f 33f 3ff33f33ff33  3  f      33ff3 3 f3f33 ff f3f3 ff ̙3̙ 3f f 3 ff3f̙̙3f33 3f f   3f  33 ff 3fff 3 f3 f3f 3f 33f 3                                                                                                                      C 		



	
 C     "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? ? nV5\j
Uwi2-R P{uy&a4?|i ޶.Iܱ<F$$`sTYm\Ɲme~$p_Cx< kϪ_SGIG[n&rl֏ipC

	g:`{0(ZI'I:o3$#Gte8qRM5(J3tSRe xtصketVo|oymGx~Y\aєH?bcM~z6bm^f)5ź;1Sʞ
yJ2he j>:  z !Wu?wCH/1u; Ke|ɯd薊AmAca*.6MY'ti>ImmtrxR
KMs(CnTW4E.m.ڳ_o&ĝSW[jşutJs0M.eڲKur)ʿ7E_:MkI6MokEm<&b̶y%{kʟ?Ex'YUn56iUMO%UhbTZ |>wM<6"P<)>ZMMnլߥOxuXS㢔\PRUcdqIrF6WMF
+ jo*m_H :5/_M7k[V>˦ZkM
+ZhvK(fٗk)uXj*-gw}4PMp<F T foٛ }Fุe#.(m,^iI'ypgXє1Q4ծkf{&˪`8CB8ԥF9AjJ3$$U۔ 0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6A10L5F161415861229      /  F      ]        /              :      C                       WINDOWS _6A10L5F171430476292L      X  d      q      <  '"                                               WINDOWS _6A10L5F1814158633817      7  7  7  7      P8  8                                               WINDOWS _6A10L5F1914158628389      9  9  9  9      3:  :                                               WINDOWS _6A10LDVFP1415862742d;      p;  |;  ;  ;      z=  2>                                               WINDOWS _6A10LDVFQ1415863430?      ?  ?  ?  ?                                                           WINDOWS _6A10LDVFR1415861229
@      @  +@  8@  W@                                                           WINDOWS _6A10LDVFS1415863430@      @  @  A  !A                                                           WINDOWS _6A10LDVFT1415861467_A      nA  }A  A  A                                                           WINDOWS _6A10O19ET14158627427B  GB  gB  vB  B  B                                                           COMMENT RESERVED                                C                                                            CG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      cPROCEDURE BeforeOpenTables
CREATE CURSOR lupe34 (sp1 C(70), sp2 N(12,2))
SELECT lupe34
ENDPROC
                                     (   %                             U  = 3 h lupe34  CF  N F   U  LUPE34 SP1 SP2 BeforeOpenTables,     1 1q 1                       X       )                            1      1      form      form      FORM1      Height = 579
Width = 548
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Berechnung der Steuern"
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Destroy
SELECT lupe34
USE
myform1.visible = .t.

ENDPROC
PROCEDURE Init
mylupe34 = thisform
myform1.visible = .f.

IF thisform.Top < 0
	thisform.Top = 0
endif


SELECT lupe34
FOR has = 0 TO 33
	APPEND BLANK
	FLUSH
NEXT
GO top
*DO lohnstraufbauen
replace lupe34.sp1 WITH "1.  BRUTTOGEHALT"
skip	
replace lupe34.sp1 WITH "2.   -   davon steuerfrei"
skip	

replace lupe34.sp1 WITH "3.  +   steuerpflichtige ATV-Umlage"
skip	

replace lupe34.sp1 WITH "4.  -    davon versteuert AG pauschal"
skip	

replace lupe34.sp1 WITH "5.  +   steuerpflichtige Sachleistungen"
skip		

replace lupe34.sp1 WITH "6.  +   steuerpflichtige Geldleistungen"
skip		

replace lupe34.sp1 WITH "7.   -   AG versteuert pauschal"
skip		

replace lupe34.sp1 WITH "8.   -   AN versteuert pauschal"
skip		

replace lupe34.sp1 WITH "9.   -   str.freie Betrge  3, 40 EStG"
skip		

replace lupe34.sp1 WITH "10. = STEUERPFL. ENTGELT"
skip		

replace lupe34.sp1 WITH "11. +/- Betrag lt. Lohnsteuerkarte"
skip		

replace lupe34.sp1 WITH "12.  -  Einmalzahlung"
skip		

replace lupe34.sp1 WITH "13.  -  Anteil d.Einmalzahl.an 3-4"
skip		

replace lupe34.sp1 WITH "14. =  zu versteuern vom lfd. Entgelt"
skip		

If zi(1+22) = 0 .And. bruchteilfaktor < 1 .And. stkl < 20
	If notkurz <> 1000
		Msg = ALLTRIM(STR(wert(1+2) / 10000,10,2)) + " * " + ALLTRIM(STR(wert(1+3) / 10000,10,2))
		replace lupe34.sp1 WITH "15. Nr. 14 / " + ALLTRIM(STR(wert(1+3) / 10000,10,2)) + " * " + ALLTRIM(STR(wert(1+2) / 10000,10,2)) + " = voller Monat"
	Else
		Msg = ALLTRIM(STR(wert(1+2) / 10000,10,2)) + " * " + ALLTRIM(STR(wert(1+2) / 10000,10,2))
		replace lupe34.sp1 WITH "15. Nr. 14 / " + ALLTRIM(STR(wert(1+2) / 10000,10,2)) + " * " + ALLTRIM(STR(wert(1+2) / 10000,10,2)) + " = voller Monat"
	Endif
	SKIP
	
	replace lupe34.sp1 WITH "16. Lohnsteuer aus Nr. 15 / " + Msg
	SKIP
	
	replace lupe34.sp1 WITH "17. Kirchenstr. aus Nr. 15 / " + Msg
	SKIP
	
	replace lupe34.sp1 WITH "18. Solizuschl. aus Nr. 15 / " + Msg
	skip
Else

	replace lupe34.sp1 WITH "15. Nr. 14 = voller Monat"
	skip		

	replace lupe34.sp1 WITH "16. Lohnsteuer aus Nr. 15"
	skip		

	replace lupe34.sp1 WITH "17. Solizuschl. aus Nr. 15"
	skip		

	replace lupe34.sp1 WITH "18. Kirchenstr. aus Nr. 15"
	skip		
Endif


replace lupe34.sp1 WITH	"19. Pauschale Lohnsteuer aus Nr. 8"
skip

replace lupe34.sp1 WITH	"20.  5,5 % Solizuschlag aus Nr. 19"
SKIP

If zi(1+36) = 3
	replace lupe34.sp1 WITH	"21.  0,0 %   Kirchensteuer aus Nr. 19"	
Else
	replace lupe34.sp1 WITH	"21.  " + ALLTRIM(STR(zvkkistr,5,0)) + ",0 %   Kirchensteuer aus Nr. 19"
Endif
SKIP

replace lupe34.sp1 WITH	"Steuerberechnung aus der Einmalzahlung" &&das ist ein berschrift !!!!!
SKIP

replace lupe34.sp1 WITH	"22. Str.pfl.Entgelt i.d. Vormonaten"
SKIP

replace lupe34.sp1 WITH	"23. + " + ALLTRIM(STR(12 - zi(1+20),2,0)) + " restliche Monate ohne Einmalz."
SKIP

replace lupe34.sp1 WITH	'24. = vorauss. Jahresentgelt "ohne"'
SKIP

replace lupe34.sp1 WITH	"25. + Einmalzahlung (Nr.12 + Nr.13)"
SKIP

replace lupe34.sp1 WITH	'26. = vorauss. Jahresentgelt "mit"'
SKIP

replace lupe34.sp1 WITH	"27. jeweils +/- Jahresbetrge lt.LStKarte"
SKIP

replace lupe34.sp1 WITH	"28. Lohnsteuer aus Nr. 24 mit 27"
SKIP

replace lupe34.sp1 WITH	"29. Lohnsteuer aus Nr. 26 mit 27"
SKIP

replace lupe34.sp1 WITH	"30. mehr (Nr. 29 minus Nr. 28)"
SKIP

replace lupe34.sp1 WITH	"31. 5,5 % Soli-Zuschlag aus Nr. 30"
SKIP

replace lupe34.sp1 WITH	"32. " + ALLTRIM(STR(kistrsatz * 100,10,2)) + "    % Kirchensteuer aus Nr. 30"

hslstsprung = .F.

If registerlst = 41
	*Absprung zur sprungmarke Goto lstsprung:
	hslstsprung=.T.
Endif

If hslstsprung = .F.
	zwischenraum = 0
Endif
	
*DO lohnstrinstring
*Procedure lohnstrinstring
SELECT LUPE34
GO top
replace lupe34.sp2 WITH lstrz(1+1) /100
skip

replace lupe34.sp2 WITH lstrz(1+2) /100
SKIP

replace lupe34.sp2 WITH lstrz(1+5) /100
SKIP

replace lupe34.sp2 WITH lstrz(1+6) /100
SKIP

replace lupe34.sp2 WITH lstrz(1+37) /100
SKIP

&&6. + Geldleistungen
replace lupe34.sp2 WITH lstrz(1+38) /100
SKIP

&&7. - AG pauschal
replace lupe34.sp2 WITH lstrz(1+39) /100
SKIP

&&8. - AN pauschal
replace lupe34.sp2 WITH lstrz(1+40) /100
SKIP

&&9 - steuerfrei
replace lupe34.sp2 WITH lstrz(1+41) /100
SKIP

&&10 = Steuerfpl. Entgelt
replace lupe34.sp2 WITH lstrz(1+7) /100
SKIP

&&7 +/- Betrag lt. Lohnsteuerkarte
replace lupe34.sp2 WITH lstrz(1+4) /100
SKIP

&&8 - Sonst Bezug
replace lupe34.sp2 WITH lstrz(1+3) /100
SKIP

&&9 &&- Anteil ZV
replace lupe34.sp2 WITH lstrz(1+28) /100
SKIP

&&10 && = lfd. Stpfl. Entgelt
replace lupe34.sp2 WITH lstrz(1+8) /100
SKIP

&&11 = voller Monat
replace lupe34.sp2 WITH lstrz(1+9) /100
SKIP

&&12 Lohnsteuer
replace lupe34.sp2 WITH lstrz(1+10) /100
SKIP

&&13 Kirchensteuer
replace lupe34.sp2 WITH lstrz(1+11) /100
SKIP

&&14 Solizuschlag
replace lupe34.sp2 WITH lstrz(1+12) /100
SKIP

&&15 Lohnsteuer aus Nr. 6
replace lupe34.sp2 WITH lstrz(1+30) /100
SKIP

&&16. Solizuschlag aus Nr. 16
IF lstrz(1+11) = 0
	lstrz(1+31) = 0
endif

replace lupe34.sp2 WITH lstrz(1+31) /100
SKIP

&&17. Kirchensteuer aus Nr. 16
replace lupe34.sp2 WITH lstrz(1+32) /100
SKIP
SKIP &&zeile 22 ist eine berschrift !!!!

&&Korrekturbetrag
If wnw.korrlst(1+modus) > 10000000
	wnw.korrlst(1+modus) = 0
	myput(13, fileneu,"wnw")
Endif

&&22 bisher steuerpflichtig
replace lupe34.sp2 WITH wnw.korrlst(1+modus) + (lstrz(1+14) /100)
SKIP
 
&&23 restliche Monate
replace lupe34.sp2 WITH ((lstrz(1+9) /100) - (lstrz(1+4)) /100) * (12 - zi(1+20))
SKIP

&&24 Jahresentgelt ohne
replace lupe34.sp2 WITH ((lstrz(1+9) - lstrz(1+4)) * (12 - zi(1+20)) + wnw.korrlst(1+modus) + lstrz(1+14)) / 100
SKIP

&&25 Einmalzahlung
replace lupe34.sp2 WITH lstrz(1+17) /100
SKIP

&&26 Jahresentgelt mit
replace lupe34.sp2 WITH ((lstrz(1+9) - lstrz(1+4)) * (12 - zi(1+20)) + wnw.korrlst(1+modus) + lstrz(1+14) + lstrz(1+17)) / 100
SKIP

&&27 Freibetrag
replace lupe34.sp2 WITH (lstrz(1+42) /100) + (lstrz(1+4) /100) * (12 - zi(1+20))
SKIP

For counter = 19 To 23
	IF counter = 22
		IF lstrz(1+11) = 0
			lstrz(1+counter) = 0.00
		ENDIF
	endif
	replace lupe34.sp2 WITH ROUND(lstrz(1+counter) /100,2)
	SKIP
Next


SELECT lupe34
GO top

thisform.grdlupe34.refresh


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 15 > thisform.grdlupe34.width
	thisform.grdlupe34.width = thisform.width - 15
ENDIF


prozsp1 = 426 / 533
prozsp2 = 75 / 533

thisform.grdlupe34.Width = thisform.Width - 15

grdbreite = thisform.grdlupe34.Width 
thisform.grdlupe34.column1.Width = grdbreite * prozsp1
thisform.grdlupe34.column2.Width = grdbreite * prozsp2

thisform.grdlupe34.column1.text1.fontsize = thisform.grdlupe34.column1.fontsize
thisform.grdlupe34.column2.text1.fontsize = thisform.grdlupe34.column1.fontsize



ENDPROC
     w    ^  ^                           %   $           S            U    F   Q T  a U  LUPE34 MYFORM1 VISIBLE
 T    T  - %   
?  T     F    (!j   [  #)  >   1.  BRUTTOGEHALT H) >   2.   -   davon steuerfrei H3 >  # 3.  +   steuerpflichtige ATV-Umlage H5 >  % 4.  -    davon versteuert AG pauschal H7 >  ' 5.  +   steuerpflichtige Sachleistungen H7 >  ' 6.  +   steuerpflichtige Geldleistungen H/ >   7.   -   AG versteuert pauschal H/ >   8.   -   AN versteuert pauschal H8 >  ( 9.   -   str.freie Betrge  3, 40 EStG H( >   10. = STEUERPFL. ENTGELT H2 >  " 11. +/- Betrag lt. Lohnsteuerkarte H% >   12.  -  Einmalzahlung H2 >  " 13.  -  Anteil d.Einmalzahl.an 3-4 H5 >  % 14. =  zu versteuern vom lfd. Entgelt H+ %C   	 
	 
 
	w % &> T CCC
 '
Z  * CCC
 '
Ze >  
 15. Nr. 14 / CCC
 '
Z  * CCC
 '
Z  = voller Monat > T CCC
 '
Z  * CCC
 '
Ze >  
 15. Nr. 14 / CCC
 '
Z  * CCC
 '
Z  = voller Monat  H0 >   16. Lohnsteuer aus Nr. 15 /   H1 >   17. Kirchenstr. aus Nr. 15 /   H1 >   18. Solizuschl. aus Nr. 15 /   H 5) >   15. Nr. 14 = voller Monat H) >   16. Lohnsteuer aus Nr. 15 H* >   17. Solizuschl. aus Nr. 15 H* >   18. Kirchenstr. aus Nr. 15 H 2 >  " 19. Pauschale Lohnsteuer aus Nr. 8 H2 >  " 20.  5,5 % Solizuschlag aus Nr. 19 H %C% 5 >  % 21.  0,0 %   Kirchensteuer aus Nr. 19 =F >   21.  CC  Z ,0 %   Kirchensteuer aus Nr. 19  H6 >  & Steuerberechnung aus der Einmalzahlung H3 >  # 22. Str.pfl.Entgelt i.d. Vormonaten HO >   23. + CCC  Z  restliche Monate ohne Einmalz. H3 >  # 24. = vorauss. Jahresentgelt "ohne" H3 >  # 25. + Einmalzahlung (Nr.12 + Nr.13) H2 >  " 26. = vorauss. Jahresentgelt "mit" H9 >  ) 27. jeweils +/- Jahresbetrge lt.LStKarte H0 >    28. Lohnsteuer aus Nr. 24 mit 27 H0 >    29. Lohnsteuer aus Nr. 26 mit 27 H. >   30. mehr (Nr. 29 minus Nr. 28) H2 >  " 31. 5,5 % Soli-Zuschlag aus Nr. 30 HH >   32. CC d
Z     % Kirchensteuer aus Nr. 30 T - % ))
 T a  % -I

 T    F  #) >  C d H >  C d H >  C d H >  C d H >  C& d H >  C' d H >  C( d H >  C) d H >  C* d H >  C d H >  C d H >  C d H >  C d H >  C	 d H >  C
 d H >  C d H >  C d H >  C
 d H >  C d H %C   T     >  C  d H >  C! d H H %C    %
 T     C
   wnw  ( >  C   C d H4 >  C
 dC dC  HF >  C
 C C C   C d H >  C d HN >  C
 C C C   C C d H3 >  C+ dC dC  H  ( %  %C   T            ! >  CC  dT H  F  #)
     %    X T  C    T m
 T   
  ! "  T        T #  #    
  $  T % a U&  MYLUPE34 THISFORM MYFORM1 VISIBLE TOP LUPE34 HAS SP1 ZI BRUCHTEILFAKTOR STKL NOTKURZ MSG WERT ZVKKISTR	 KISTRSATZ HSLSTSPRUNG REGISTERLST ZWISCHENRAUM SP2 LSTRZ WNW KORRLST MODUS MYPUT FILENEU COUNTER	 GRDLUPE34 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     %       H  T         T  1s? T  y? T        T      T        T   	    " T    
       " T   	 
        U  THISFORM SIZER	 FRMRESIZE WIDTH	 GRDLUPE34 PROZSP1 PROZSP2	 GRDBREITE COLUMN1 COLUMN2 TEXT1 FONTSIZE Destroy,      Initf      Resize    1 q A  3   BA s qQ A A Q A A 2A RA rA rA A A A A "A RA "A RA !Q QA A A A A  A A A A A #A "A RQ aA A bA 2A A 2A 2A "A A A A A "A   A   A t Q A A A A A A A A A A A A A A A A A A A S1A A A A qA A CA cA A A 3A rQA A A A s Q    A    3 A ca2"!4                       >         Y               2   )   ^                        
commandbutton      
commandbutton      Command1      FORM1      [Top = 543
Left = 291
Height = 31
Width = 184
Caption = "schlieen"
Name = "Command1"
      CPROCEDURE Click
thisform.release
myform1.visible = .t.
ENDPROC
                                         %   p                          U   
     T  a U  THISFORM RELEASE MYFORM1 VISIBLE Click,     1   1                       8       )                            
commandbutton      
commandbutton      Command2      FORM1      XTop = 543
Left = 72
Height = 31
Width = 184
Caption = "drucken"
Name = "Command2"
      FPROCEDURE Click
DO steuerberDrucken
SELECT lupe34
GO top
ENDPROC
                                         %   `       y      o             U       F  #) U  STEUERBERDRUCKEN LUPE34 Click,     1 q q Q 1                       ;       )                            grid      grid      	grdLupe34      FORM1     ColumnCount = 2
DeleteMark = .F.
Height = 533
Left = 7
Panel = 1
ReadOnly = .T.
RecordSource = "LUPE34"
RecordSourceType = 1
RowHeight = 15
ScrollBars = 2
Top = 6
Width = 533
Name = "grdLupe34"
Column1.ControlSource = "LUPE34.sp1"
Column1.Width = 426
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.ControlSource = "LUPE34.sp2"
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.Format = "Z"
Column2.Name = "Column2"
      PROCEDURE Init
thisform.grdlupe34.Column1.Dynamicfontbold = "gridcolor_grdlupe34_sp1(1)"
thisform.grdlupe34.Column2.DynamicBackColor = "gridcolor_grdlupe34_sp2(2)"
ENDPROC
     U    <  <                        d   %                             U  c 0 T      gridcolor_grdlupe34_sp1(1)0 T      gridcolor_grdlupe34_sp2(2) U  THISFORM	 GRDLUPE34 COLUMN1 DYNAMICFONTBOLD COLUMN2 DYNAMICBACKCOLOR Init,     1 1                              )   <                        header      header      Header1      FORM1.grdLupe34.Column1      ,Caption = " Bezeichnung"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe34.Column1      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe34.Column2      6Alignment = 1
Caption = "Betrag "
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe34.Column2      BorderStyle = 0
Format = "Z"
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 563
Left = 531
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
^   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6A10L5F161416056326      /  F      ]        t                    
                       WINDOWS _6A10L5F171430476299        +      8        u>                                               WINDOWS _6A30P43HQ1415994721e      *e  7e  Ee  Re                                                           WINDOWS _6A10L5F161415994721e      e  e  e  e                                                           WINDOWS _6A10W4MS21415994042f      $f  1f  ?f  Lf                                                           WINDOWS _6A10W4MT81416056326f      f  	g  g  %g      g  g                                               WINDOWS _6A10L5F181416056326h      h  i  i  &i      i  i                                               WINDOWS _6A10L5F161416056924j      j  j  k  k      mk  k                                               WINDOWS _6A10L5F161418165447l  l  l  l  l  l                                                           WINDOWS _6A10SQN6O1416056878xm      m  m  m  m       n  {n                                               WINDOWS _6A10W4MS31415994042oo      |o  o  o  o                                                           WINDOWS _6A10W4MSH1416056326(p      5p  Bp  Pp  ]p      p  Aq                                               WINDOWS _6A10W4MSI1415994042%r      2r  ?r  Mr  Zr                                                           WINDOWS _6A10W4MSJ1415994042r      r  s  s   s                                                           WINDOWS _6A10W4MSK1415994042s      s  s  s  s                                                           WINDOWS _6A10W4MSL1415994042t      t  t  t  t                                                           WINDOWS _6A10W4MSM1415994042Ju      Wu  du  ru  u                                                           WINDOWS _6A10W4MSN1415994042v      v  "v  0v  =v                                                           WINDOWS _6A10W4MSO1415994042v      v  v  v  v                                                           WINDOWS _6A10W4MSP1415994042w      w  w  w  w                                                           WINDOWS _6A10W4MSQ1415994042_x      lx  yx  x  x                                                           WINDOWS _6A10W4MSR1415994042,y      9y  Fy  Uy  by                                                           WINDOWS _6A10L5F161415994042z      !z  .z  =z  Jz                                                           WINDOWS _6A10W4MST1415994042z      z  z  z  z                                                           WINDOWS _6A10W4MSU1415994042{      {  {  {  {                                                           WINDOWS _6A10W4MSV1415994042K|      X|  e|  t|  |                                                           WINDOWS _6A10W4MSW1415994042}      *}  7}  F}  S}                                                           WINDOWS _6A10W4MSX1415994042}      }   ~  ~  ~                                                           WINDOWS _6A10W4MSY1415994042~      ~  ~  ~  ~                                                           WINDOWS _6A10W4MSZ1415994042|                                                                       WINDOWS _6A10W4MT01415994042;      H  U  d  q                                                           WINDOWS _6A10W4MT11415994042                                                                        WINDOWS _6A10W4MT21415994042            ρ                                                           WINDOWS _6A10W4MT31415994042H      U  b  q  ~                                                           WINDOWS _6A10W4MT41416056326             -                                                       WINDOWS _6A10W4MT51416056326߄                                                                   WINDOWS _6A10W4MT61416056326ǆ      Ԇ            v  ˇ                                               WINDOWS _6A10W4MT71416056326        Ɉ  ؈        ^                                                 WINDOWS _6A10W4MT91415994042            ͊                                                           WINDOWS _6A10W4MTA1415994042J      W  d  s                                                             WINDOWS _6A10W4MTB1415994042      
    &  3                                                           WINDOWS _6A10W4MTC1415994042        ʌ  ٌ                                                             WINDOWS _6A10W4MTD1415994042d      q  ~                                                               WINDOWS _6A10W4MTE1415994042      %  2  A  N                                                           WINDOWS _6A10W4MTF1415994042̎      َ                                                                 WINDOWS _6A10W4MTG1415994042                                                                       WINDOWS _6A10W4MTH14159940424      A  N  ]  j                                                           WINDOWS _6A10W4MTI1415994042                                                                       WINDOWS _6A10W4MTJ1415994042          ȑ  Ց                                                           WINDOWS _6A10W4MTK1415994042T      a  n  ~                                                             WINDOWS _6A10W4MTL1416056326      '  4  D  Q      Г  &                                               WINDOWS _6A10W4MTM1415994042        %  5  B                                                           WINDOWS _6A10W4MTN1415994042      ͕  ڕ                                                               WINDOWS _6A10W4MTO1415994042u                                                                       WINDOWS _6A10W4MTP1415994042*      7  D  T  a                                                           WINDOWS _6A10W4MTQ1415994042          
                                                             WINDOWS _6A10W4MTR1415994042            ͘                                                           WINDOWS _6A10W4MTS1415994042L      Y  f  v                                                             WINDOWS _6A10W4MTT1415994042          ,  9                                                           WINDOWS _6A10W4MTU1415994042      Ś  Қ                                                               WINDOWS _6A10L5F161415994090n      {                                                                 WINDOWS _6A10L5F171415994363$      1  >  N  [                                                           WINDOWS _6A10W4MTX1416056326ڜ                                                                   WINDOWS _6A10W4MTY1416056326˞      ؞              ן                                               WINDOWS _6A10W4MTZ1416056326      ɠ  ֠          r  ȡ                                               WINDOWS _6A10W4MU01416056326        Ǣ  ע        c                                                 WINDOWS _6A30O3WO31415994721          Ǥ  Ԥ                                                           WINDOWS _6A30O3WO41415994042?      M  [  j                                                             WINDOWS _6A30O3WO51415994042ѩ                                                                       WINDOWS _6A30O3WO61415994042            ֪                                                           WINDOWS _6A30O3WO71415994042(      7  F  S  r                                                           WINDOWS _6A30O3WO81415994042            -                                                           WINDOWS _6A30O3WO91415994042            ̬                                                           WINDOWS _6A30O3WOA1415994331=      K  Y  h                                                             WINDOWS _6A30O3WOB1415994042ϭ      ޭ                                                                 WINDOWS _6A30O3WOC1415994331            Ԯ                                                           WINDOWS _6A30O3WOD1415994042      -  <  I  h                                                           WINDOWS _6A30O3WOE1415994331ٯ            #                                                           WINDOWS _6A30O3WOF1415994042m      |                                                                 WINDOWS _6A30O3WOG1415994331(      6  D  S  r                                                           WINDOWS _6A30O3WOH1415994042      ˱  ڱ                                                               WINDOWS _6A10L5F161415994721w                                                                       WINDOWS _6A10L5F1614159947216      C  P  _  l                                                           WINDOWS _6A30O3WOI1415994721      $  1  @  M                                                           WINDOWS _6A10L5F161415994721            ,                                                           WINDOWS _6A10L5F171415994721                                                                       WINDOWS _6A30P43HR1415994721ܶ                                                                       WINDOWS _6A30P43HS1415994721ͷ      ڷ                                                                 WINDOWS _6A10L5F161415994721¸      ϸ  ܸ                                                               WINDOWS _6A10L5F171415994721                                                                       WINDOWS _6A30P43HT1415994721H      U  b  q  ~                                                           WINDOWS _6A30P43HU1415994721        %  4  A                                                           COMMENT RESERVED                                λ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 184
Left = 565
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR lupe39 (sp0 C(15), sp1 N(12,2), sp2 N(12,2), sp3 N(12,2), sp4 N(12,2), sp5 N(12,2), sp6 N(12,2))
SELECT lupe39

ENDPROC
         l  l                        qk   %         #                 U    h lupe39  C  N  N  N  N  N  N F   U  LUPE39 SP0 SP1 SP2 SP3 SP4 SP5 SP6 BeforeOpenTables,     1 	q 2                              )   l                        1      1      form      form      FORM1      Height = 591
Width = 764
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Berechnung der Sozialversicherung"
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     8_PROCEDURE Destroy
SELECT lupe39
USE
myform1.visible = .t.

ENDPROC
PROCEDURE Init
mylupe39 = Thisform
myform1.Visible = .F.

If Thisform.Top < 0
	Thisform.Top = 0
Endif


*!*	Select lupe39
*!*	For has = 0 To 28
*!*		Append Blank
*!*		Flush
*!*	Next
*!*	Go Top

*do sozversaufbauen

With Thisform
	.Visible = .T.
	.zeile13.Caption = Alltrim(.zeile12.Caption) + " " + Alltrim(.zeile13.Caption)

	Do monatladen &&Do attache

	.zeile0.Caption = Alltrim(.zeile0.Caption) + " " + Leftc(sumonattext(1+zi(1+20)), 3) + ". " + welchesjahrc

	If zi(1+52) < 2
		.zeile20.Caption = Alltrim(myform1.z52.Caption) + " " + Alltrim(myform1.z53.Caption) + " aus " + myformat(sozversz(1+14) / 100, "###,##0.00")
	Else
		.zeile20.Caption = Alltrim(myform1.z52.Caption)
	Endif

	If zi(1+38) < 2
		.zeile21.Caption = Alltrim(zt38(1+zi(1+38))) + " aus " + myformat(sozversz(1+14) / 100, "###,##0.00")
	Else
		.zeile21.Caption = Alltrim(zt38(1+zi(1+38)))
	Endif

	If zi(1+39) < 1
		.zeile22.Caption = Alltrim(zt39(1+zi(1+39))) + " aus " + myformat(sozversz(1+17) / 100, "###,##0.00")
	Else
		.zeile22.Caption = Alltrim(zt39(1+zi(1+39)))
	Endif

	If zi(1+40) < 1
		.zeile23.Caption = Alltrim(zt40(1+zi(1+40))) + " aus " + myformat(sozversz(1+31) / 100, "###,##0.00")
	Else
		.zeile23.Caption = Alltrim(zt40(1+zi(1+40)))
	Endif

	.zeile24.Caption = Alltrim(zt26(1+zi(1+26)))

	.Kasten20.Caption = myformat(wert(1+37) / -100, "###,##0.00") + "  "
	.Kasten21.Caption = myformat(wert(1+38) / -100, "###,##0.00") + "  "
	.Kasten22.Caption = myformat(wert(1+39) / -100, "###,##0.00") + "  "
	.Kasten23.Caption = myformat(wert(1+40) / -100, "###,##0.00") + "  "
	.Kasten24.Caption = myformat(wert(1+26) / -100, "###,##0.00") + "  "


	hssozsprung = .F.

	If registerlst = 41
		*abprung zur sprungmatrke Goto sozsprung:
		hssozsprung = .T.
	Endif

	If hssozsprung = .F.
		zwischenraum = 25
		For i = 0 To 12
			xxx=Alltrim(Str(i,3,0))

			.Kasten&xxx..BackColor = Rgb(255,255,255) &&HS hex2rgb("&H80000005") &&QBColor(15)
			.Kasten&xxx..ForeColor = QBColor(0)
			.Kasten&xxx..Alignment = 1
		Next

		j = 0

		For i = 13 To 24
			xxx=Alltrim(Str(i,2,0))
			.zeile&xxx..Visible = True

			.Kasten&xxx..BackColor = Rgb(255,255,255) &&HS hex2rgb("&H80000005") &&QBColor(15)
			.Kasten&xxx..ForeColor = QBColor(0)
			.Kasten&xxx..Alignment = 1
		Next

		.kasten0.Visible = .F.
		.kasten13.Visible = .F.

		For i = 20 To 24
			xxx=Alltrim(Str(i,2,0))
			.Kasten&xxx..FontBold = True
			.Kasten&xxx..ForeColor = QBColor(12)
		Next

	Endif
Endwith

*endpunkt der sprungmarke sozsprung:
*do sozverzinstring
hsxmod = "100"
With Thisform
	&&Brutto
	numbr = sozversz(1+1) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten1.Caption = wer + "  "

	&&Sozfrei
	numbr = sozversz(1+2) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten2.Caption = wer + "  "

	&&ZVK-Umlage
	numbr = sozversz(1+4) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten3.Caption = wer + "  "

	&&Sachbezge
	numbr = sozversz(1+5) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten4.Caption = wer + "  "

	&&Entgeltumwandlung
	numbr = sozversz(1+28) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten5.Caption = wer + "  "


	&&ATV-Kapitalbeitrag des AG
	numbr = sozversz(1+29) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten6.Caption = wer + "  "

	&&Einmalzahlung
	numbr = sozversz(1+3) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten7.Caption = wer + "  "

	&&Anteil an Einmalzahlung
	numbr = sozversz(1+27) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten8.Caption = wer + "  "

	&&Soz.vers.pfl. Entgelt
	numbr = sozversz(1+6) / Iif(hsxmod = "100",100,1)
	Do zahlintextnumbr &&Do attached
	.Kasten9.Caption = wer + "  "

	&&KV-Pflichtgrenze
	numbr = sozversz(1+14)  / Iif(hsxmod = "100",100,1) &&(7)
	Do zahlintextnumbr &&Do attached
	.Kasten10.BackColor = hex2rgb("&H80FF80")
	.Kasten10.Caption = wer + "  "

	&&RV-Pflichtgrenze
	numbr = sozversz(1+17)  / Iif(hsxmod = "100",100,1) &&(8)

	Do zahlintextnumbr &&Do attached
	.Kasten11.BackColor = hex2rgb("&HFFFF80")
	.Kasten11.Caption = wer + "  "

	For counter = 12 To 18
		numbr = sozversz(1+counter - 1)  / Iif(hsxmod = "100",100,1)
		Do zahlintextnumbr &&Do attached
		xxx=Alltrim(Str(counter + 1,2,0))
		.Kasten&xxx..Caption = wer + "  "
	Next

	.Kasten14.BackColor = hex2rgb("&HC0FFFF")
	.Kasten15.BackColor = hex2rgb("&H80FF80")
	.Kasten16.BackColor = hex2rgb("&H80FF80")

	.Kasten17.BackColor = hex2rgb("&HC0FFFF")
	.Kasten18.BackColor = hex2rgb("&HFFFF80")
	.Kasten19.BackColor = hex2rgb("&HFFFF80")


	.Kasten20.BackColor = hex2rgb("&H80FF80")
	.Kasten21.BackColor = hex2rgb("&HC0FFC0")
	.Kasten22.BackColor = hex2rgb("&HFFFF80")
	.Kasten23.BackColor = hex2rgb("&HFFFFC0")

	For i = 0 To 24
		xxx=Alltrim(Str(i,2,0))
		.zeile&xxx..Visible = True
		Do Case && i
			Case (i >= 1 .And. i <= 11) .Or. (i >= 14 .And. i <= 24)
				.Kasten&xxx..BorderStyle = 1 &&Outline = True
			Case  Inlist(i, 0, 12)
		Endcase
	Next
Endwith
crlf = CHR(13)+CHR(10)
thisform.grdlupe39.column1.header1.Caption = crlf+crlf+"1"
thisform.grdlupe39.column2.header1.Caption = "verbeitragt"+crlf+crlf+"2"
thisform.grdlupe39.column3.header1.Caption = "Bemess. Grenze"+crlf+crlf+"3"
thisform.grdlupe39.column4.header1.Caption = "ungenutzt"+crlf+"Sp 3 - Sp 2"+crlf+"4"
thisform.grdlupe39.column5.header1.Caption = "verbeitragt"+crlf+crlf+"5"
thisform.grdlupe39.column6.header1.Caption = "Bemess. Grenze"+crlf+crlf+"6"
thisform.grdlupe39.column7.header1.Caption = "ungenutzt"+crlf+"Sp 6 - Sp 5"+crlf+"7"

SELECT lupe39
FOR hsa = 1 TO 13
	APPEND BLANK
	flush
NEXT

FOR hsa = 2 TO 13
	GOTO hsa
	replace lupe39.sp0 WITH getmonatsname(hsa-2,0)
	flush
NEXT
GO top

		SELECT lupe39
		GOTO 1
		replace lupe39.sp0 WITH "s. Icon Zeile 1"			
		flush		

		
		For i = 0 To 14
			For j = 2 To 7
				sicht(1+j,1+ i) = 0
			Next
		Next

*!*			.Row = 5
*!*			.Col = 3
		If wnw.korrkv(1+modus) > 10000000
			wnw.korrkv(1+modus) = 0
			myput(13, fileneu,"wnw")
		ENDIF
		
		sicht(1+4,1+ 14) = wnw.korrkv(1+modus) / 100
*!*			.Text = myformat(sicht(1+4,1+ 14), "###,##0.00") + "   "
		SELECT lupe39
		replace lupe39.sp2 WITH sicht(1+4,1+ 14)			
		flush	
				
*!*			.Col = 6
		If wnw.korrrv(1+modus) > 10000000
			wnw.korrrv(1+modus) = 0
			myput(13, fileneu,"wnw")
		ENDIF
		
		sicht(1+7,1+ 14) = wnw.korrrv(1+modus) / 100
*!*			.Text = myformat(sicht(1+7,1+ 14), "###,##0.00") + "   "
		SELECT lupe39
		replace lupe39.sp2 WITH sicht(1+7,1+ 14)			
		flush	
		
		For i = 0 To zi(1+20)
			If i = 0
				&&Startmonat Januar ******************************************
				SELECT lupe39
				GOTO 2
				
*!*					.Row = 6
				myget(1, fileneu,"wvw")
*!*					.Col = 1
				sicht(1+2,1+ i) = wvw.tnam(1+65) / 100
*!*					.Text = myformat(sicht(1+2,1+ i), "###,##0.00") + "   "
				SELECT lupe39
				replace lupe39.sp1 WITH sicht(1+2,1+ i)			
				flush					

*!*					.Col = 2
				If sicht(1+2,1+ i) > 0
					sicht(1+3,1+ i) = KVGrenze(1+altesland) / 100
				Else
					sicht(1+3,1+ i) = 0
				ENDIF
*!*					.Text = myformat(sicht(1+3,1+ i), "###,##0.00") + "   "
				replace lupe39.sp2 WITH sicht(1+3,1+ i)			
				flush	
				
*!*					.Col = 3
				If sicht(1+2,1+ i) > 0
					sicht(1+4,1+ i) = sicht(1+3,1+ i) - sicht(1+2,1+ i)
				Else
					sicht(1+4,1+ i) = 0
				ENDIF
*!*					.Text = myformat(sicht(1+4,1+ i), "###,##0.00") + "   "
				replace lupe39.sp3 WITH sicht(1+4,1+ i)			
				FLUSH
				
*!*					.Col = 4
				sicht(1+5,1+ i) = wvw.tnam(1+28) / 100
*!*					.Text = myformat(sicht(1+5,1+ i), "###,##0.00") + "   "
				replace lupe39.sp4 WITH sicht(1+5,1+ i)			
				FLUSH
				
*!*					.Col = 5
				If sicht(1+5,1+ i) > 0
					sicht(1+6,1+ i) = RVGrenze(1+altesland) / 100
				Else
					sicht(1+6,1+ i) = 0
				ENDIF
*!*					.Text = myformat(sicht(1+6,1+ i), "###,##0.00") + "   "
				replace lupe39.sp5 WITH sicht(1+6,1+ i)			
				FLUSH
				
*!*					.Col = 6
				If sicht(1+5,1+ i) > 0
					sicht(1+7,1+ i) = sicht(1+6,1+ i) - sicht(1+5,1+ i)
				Else
					sicht(1+7,1+ i) = 0
				Endif
*!*					.Text = myformat(sicht(1+7,1+ i), "###,##0.00") + "   "
				replace lupe39.sp6 WITH sicht(1+7,1+ i)			
				FLUSH				
			Endif

			If i > 0 .And. i < zi(1+20)
				&&Zwischenmonate **************************************
				myget(i + 1, fileneu,"wvw")
				SELECT lupe39
				skip				
*!*					.Row = i + 6
*!*					.Col = 1
				sicht(1+2,1+ i) = wvw.tnam(1+65) / 100
*!*					.Text = myformat(sicht(1+2,1+ i), "###,##0.00") + "   "
				replace lupe39.sp1 WITH sicht(1+2,1+ i)			
				FLUSH
					
*!*					.Col = 2
				If sicht(1+2,1+ i) > 0
					sicht(1+3,1+ i) = KVGrenze(1+altesland) / 100
				Else
					sicht(1+3,1+ i) = 0
				ENDIF			
*!*					.Text = myformat(sicht(1+3,1+ i), "###,##0.00") + "   "
				replace lupe39.sp2 WITH sicht(1+3,1+ i)		
				FLUSH
				
*!*					.Col = 3
				&&If sicht(1+2,1+ i) > 0 Then
				sicht(1+4,1+ i) = (wnw.Luckkv(1+modus,1+ i) - wnw.Luckkv(1+modus,1+ i - 1)) / 100
				&&Else
				&&   sicht(1+4,1+ i) = wnw.Luckkv(1+modus, i - 1)
				&&End If
*!*					.Text = myformat(sicht(1+4,1+ i), "###,##0.00") + "   "
				replace lupe39.sp3 WITH sicht(1+4,1+ i)		
				FLUSH
				
*!*					.Col = 4
				sicht(1+5,1+ i) = wvw.tnam(1+28) / 100
*!*					.Text = myformat(sicht(1+5,1+ i), "###,##0.00") + "   "
				replace lupe39.sp4 WITH sicht(1+5,1+ i)	
				FLUSH
				
*!*					.Col = 5
				If sicht(1+5,1+ i) > 0
					sicht(1+6,1+ i) = RVGrenze(1+altesland) / 100
				Else
					sicht(1+6,1+ i) = 0
				ENDIF
*!*					.Text = myformat(sicht(1+6,1+ i), "###,##0.00") + "   "
				replace lupe39.sp5 WITH sicht(1+6,1+ i)	
				FLUSH

*!*					.Col = 6
				sicht(1+7,1+ i) = (wnw.Luckrv(1+modus,1+ i) - wnw.Luckrv(1+modus,1+ i - 1)) / 100
*!*					.Text = myformat(sicht(1+7,1+ i), "###,##0.00") + "   "
				replace lupe39.sp6 WITH sicht(1+7,1+ i)
				FLUSH				
			Endif

			If i = zi(1+20)
				&&Endmonat ***********************************************+
				SELECT lupe39
				skip
				j = zi(1+20) + 6
*!*					.Row = j
*!*					.Col = 1
				sicht(1+2,1+ i) = sozversz(1+14) / 100
*!*					.Text = myformat(sicht(1+2,1+ i), "###,##0.00") + "   "
				replace lupe39.sp1 WITH sicht(1+2,1+ i)
				FLUSH
				
*!*					.Col = 2
				If sicht(1+2,1+ i) > 0
					sicht(1+3,1+ i) = KVGrenze(1+altesland) / 100
				Else
					sicht(1+3,1+ i) = 0
				Endif
*!*					.Text = myformat(sicht(1+3,1+ i), "###,##0.00") + "   "
				replace lupe39.sp2 WITH sicht(1+3,1+ i)
				FLUSH
				
*!*					.Col = 3
				sicht(1+4,1+ i) = sicht(1+3,1+ i) - sicht(1+2,1+ i)
*!*					.Text = myformat(sicht(1+4,1+ i), "###,##0.00") + "   "
				replace lupe39.sp3 WITH sicht(1+4,1+ i)
				FLUSH

*!*					.Col = 4
				sicht(1+5,1+ i) = sozversz(1+17) / 100
*!*					.Text = myformat(sicht(1+5,1+ i), "###,##0.00") + "   "
				replace lupe39.sp4 WITH sicht(1+5,1+ i)
				FLUSH
				
*!*					.Col = 5
				If sicht(1+5,1+ i) > 0
					sicht(1+6,1+ i) = RVGrenze(1+altesland) / 100
				Else
					sicht(1+6,1+ i) = 0
				Endif
*!*					.Text = myformat(sicht(1+6,1+ i), "###,##0.00") + "   "
				replace lupe39.sp5 WITH sicht(1+6,1+ i)
				FLUSH

*!*					.Col = 6
				sicht(1+7,1+ i) = sicht(1+6,1+ i) - sicht(1+5,1+ i)
*!*					.Text = myformat(sicht(1+7,1+ i), "###,##0.00") + "   "
				replace lupe39.sp5 WITH sicht(1+7,1+ i)
				FLUSH				
			Endif
		Next

		For i = 0 To 12
			sicht(1+4,1+ 13) = sicht(1+4,1+ 13) + sicht(1+4,1+ i)
			sicht(1+7,1+ 13) = sicht(1+7,1+ 13) + sicht(1+7,1+ i)
		NEXT
		
		sicht(1+4,1+ 13) = sicht(1+4,1+ 13) + sicht(1+4,1+ 14)
		sicht(1+7,1+ 13) = sicht(1+7,1+ 13) + sicht(1+7,1+ 14)
*!*			.Row = 19
*!*			.Col = 3

		thisform.label38.caption = myformat(sicht(1+4,1+ 13), "###,##0.00") + "   "
*!*			.Col = 6
		thisform.label36.caption = myformat(sicht(1+7,1+ 13), "###,##0.00") + "   "

*!*			.Row = 20
*!*			.Col = 3
		thisform.label39.caption = myformat(sozversz(1+13) / 100, "###,##0.00") + "   "
*!*			.Col = 6
		thisform.label37.caption = myformat(sozversz(1+16) / 100, "###,##0.00") + "   "

*!*			.Col = 3
*!*			.Row = 19
		thisform.label38.BackColor = hex2rgb("&HC0FFFF")
*!*			.Row = 20
		thisform.label39.BackColor = hex2rgb("&H80FF80")
*!*			.Col = 6
*!*			.Row = 19
		thisform.label36.BackColor = hex2rgb("&HC0FFFF")
*!*			.Row = 20
		thisform.label37.BackColor = hex2rgb("&HFFFF80")

SELECT lupe39
GO top

thisform.grdlupe39.refresh


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize

THISFORM.sizer.frmresize()

IF thisform.width - 14 > thisform.grdlupe39.width
	thisform.grdlupe39.width = thisform.width - 14
ENDIF


prozsp1 = 118 / 755
prozsp2 = 100 /755

thisform.grdlupe39.Width = thisform.Width - 14

grdbreite = thisform.grdlupe39.Width 
thisform.grdlupe39.column1.Width = grdbreite * prozsp1
thisform.grdlupe39.column2.Width = grdbreite * prozsp2
thisform.grdlupe39.column3.Width = grdbreite * prozsp2
thisform.grdlupe39.column4.Width = grdbreite * prozsp2
thisform.grdlupe39.column5.Width = grdbreite * prozsp2
thisform.grdlupe39.column6.Width = grdbreite * prozsp2
thisform.grdlupe39.column7.Width = grdbreite * prozsp2

thisform.grdlupe39.column1.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column2.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column3.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column4.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column5.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column6.text1.fontsize = thisform.grdlupe39.column1.fontsize
thisform.grdlupe39.column7.text1.fontsize = thisform.grdlupe39.column1.fontsize


ENDPROC
     &    &  &                        s   %   W#      &  L  #            U    F   Q T  a U  LUPE39 MYFORM1 VISIBLE|
 T    T  - %   
?  T    
  J T a& T  C    C    < T	  C	    CCC 
  .   %C5 
*P T
  C     C     aus CC d
 ###,##0.00  K T
  C     %C' 
E T  CCC'    aus CC d
 ###,##0.00   T  CCC'    %C( 
.E T  CCC(    aus CC d
 ###,##0.00  U T  CCC(    %C) 
E T  CCC)    aus CC  d
 ###,##0.00   T  CCC)    T  CCC  1 T  CC& 
 ###,##0.00    1 T  CC' 
 ###,##0.00    1 T  CC( 
 ###,##0.00    1 T  CC) 
 ###,##0.00    1 T  CC 
 ###,##0.00     T  - %! ) T  a  %  -F
 T"  #  ( T$ CC#  Z. .Kasten&xxx..BackColor = Rgb(255,255,255) 
' .Kasten&xxx..ForeColor = QBColor(0)
 .Kasten&xxx..Alignment = 1
 
 T%   # 
( T$ CC#  Z .zeile&xxx..Visible = True
. .Kasten&xxx..BackColor = Rgb(255,255,255) 
' .Kasten&xxx..ForeColor = QBColor(0)
 .Kasten&xxx..Alignment = 1
  T&  - T'  - # (B T$ CC#  Z  .Kasten&xxx..FontBold = True
( .Kasten&xxx..ForeColor = QBColor(12)
    T(  100
  * T) C C(  100 d 6 *  T+  ,    * T) C C(  100 d 6 *  T-  ,    * T) C C(  100 d 6 *  T.  ,    * T) C C(  100 d 6 *  T/  ,    * T) C C(  100 d 6 *  T0  ,    * T) C C(  100 d 6 *  T1  ,    * T) C C(  100 d 6 *  T2  ,    * T) C C(  100 d 6 *  T3  ,    * T) C C(  100 d 6 *  T4  ,    * T) C C(  100 d 6 * - .Kasten10.BackColor = hex2rgb("&H80FF80")
 T5  ,    * T) C C(  100 d 6 * - .Kasten11.BackColor = hex2rgb("&HFFFF80")
 T6  ,     7 (m
2 T) C7  C(  100 d 6 *  T$ CC7  Z% .Kasten&xxx..Caption = wer + "  "
 - .Kasten14.BackColor = hex2rgb("&HC0FFFF")
- .Kasten15.BackColor = hex2rgb("&H80FF80")
- .Kasten16.BackColor = hex2rgb("&H80FF80")
- .Kasten17.BackColor = hex2rgb("&HC0FFFF")
- .Kasten18.BackColor = hex2rgb("&HFFFF80")
- .Kasten19.BackColor = hex2rgb("&HFFFF80")
- .Kasten20.BackColor = hex2rgb("&H80FF80")
- .Kasten21.BackColor = hex2rgb("&HC0FFC0")
- .Kasten22.BackColor = hex2rgb("&HFFFF80")
- .Kasten23.BackColor = hex2rgb("&HFFFFC0")
 #  ( T$ CC#  Z .zeile&xxx..Visible = True

 H4 #  # 	 #  # 	! .Kasten&xxx..BorderStyle = 1 
 C#      T8 C
 C
 " T 9 : ;  8 8  11 T 9 < ;   verbeitragt8 8  24 T 9 = ;   Bemess. Grenze8 8  3> T 9 > ;  	 ungenutzt8  Sp 3 - Sp 28  41 T 9 ? ;   verbeitragt8 8  54 T 9 @ ;   Bemess. Grenze8 8  6> T 9 A ;  	 ungenutzt8  Sp 6 - Sp 58  7 FB  C (
  [  C (
	 #C  >B D CC  E  [  #) FB 	 # >B D  s. Icon Zeile 1 [ #  (x % (t! TF % #     %CI G H   TG H I   C
 K  wnwJ  ( TF CI G H d FB  >B L CF  [ %CI G M  j TG M I   C
 K  wnwJ  ( TF CI G M d FB  >B L CF  [ #  (C G %#   FB 	 # C K  wvwN ( TF # CBO P d FB  >B Q C# F  [ %C# F  ) TF # CS R d  TF #    >B L C# F  [ %C# F  97 TF # C# F C# F  ^ TF #    >B T C# F  [( TF # CO P d >B U C# F  [ %C# F  
) TF # CS V d 2 TF #    >B W C# F  [ %C# F  7 TF # C# F C# F   TF #    >B X C# F  [   %#   # C 
	 C#  K  wvwN  FB  H( TF # CBO P d >B Q C# F  [ %C# F  ) TF # CS R d  TF #    >B L C# F  [N TF # CI # G Y CI # G Y d >B T C# F  [( TF # CO P d >B U C# F  [ %C# F  ) TF # CS V d , TF #    >B W C# F  [N TF # CI # G Z CI # G Z d >B X C# F  [  %# C C FB  H T% C % TF # C d >B Q C# F  [ %C# F  ~) TF # CS R d  TF #    >B L C# F  [7 TF # C# F C# F  >B T C# F  [% TF # C d >B U C# F  [ %C# F  ) TF # CS V d  TF #    >B W C# F  [7 TF # C# F C# F  >B W C# F  [   #  (/ TF CF C# F / TF CF C# F  + TF CF CF + TF CF CF 2 T [  CCF 
 ###,##0.00     2 T \  CCF 
 ###,##0.00     3 T ]  CC d
 ###,##0.00     3 T ^  CC d
 ###,##0.00     4 thisform.label38.BackColor = hex2rgb("&HC0FFFF")
4 thisform.label39.BackColor = hex2rgb("&H80FF80")
4 thisform.label36.BackColor = hex2rgb("&HC0FFFF")
4 thisform.label37.BackColor = hex2rgb("&HFFFF80")
 FB  #)
  9 _  % ` a b  Tc Cb  ` a T 
 Tc  
  d e  T `  ` a c  T f  f a c 
  g  T h a Ui  MYLUPE39 THISFORM MYFORM1 VISIBLE TOP ZEILE13 CAPTION ZEILE12
 MONATLADEN ZEILE0 SUMONATTEXT ZI WELCHESJAHRC ZEILE20 Z52 Z53 MYFORMAT SOZVERSZ ZEILE21 ZT38 ZEILE22 ZT39 ZEILE23 ZT40 ZEILE24 ZT26 KASTEN20 WERT KASTEN21 KASTEN22 KASTEN23 KASTEN24 HSSOZSPRUNG REGISTERLST ZWISCHENRAUM I XXX J KASTEN0 KASTEN13 HSXMOD NUMBR ZAHLINTEXTNUMBR KASTEN1 WER KASTEN2 KASTEN3 KASTEN4 KASTEN5 KASTEN6 KASTEN7 KASTEN8 KASTEN9 KASTEN10 KASTEN11 COUNTER CRLF	 GRDLUPE39 COLUMN1 HEADER1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 LUPE39 HSA SP0
 GETMONATSNAME SICHT WNW KORRKV MODUS MYPUT FILENEU SP2 KORRRV MYGET WVW TNAM SP1 KVGRENZE	 ALTESLAND SP3 SP4 RVGRENZE SP5 SP6 LUCKKV LUCKRV LABEL38 LABEL36 LABEL39 LABEL37 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTERL C     %       H  T         T  5[? T  C!? T        T      T        T   	     T   
     T        T        T   
     T       " T           " T   	        " T   
        " T           " T           " T   
        " T            U  THISFORM SIZER	 FRMRESIZE WIDTH	 GRDLUPE39 PROZSP1 PROZSP2	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 TEXT1 FONTSIZE Destroy,      Initf      Resizel     1 q A  3   BA   ar R A RQ A RQ A RQ A   A   qqqA  rqqA   rqA B A  q qq qq qq qq qq qq qq qq qq qr qr!q QA rq AQA A A Q!AAr qQ A A r A A Q r  A sqA A qA r qA qA r qA r  sr A  A A q A A A  A A q A A A q A A  A A A A  A A A A Rr A QSA  A A sA SA  A A sA A A rA $"42DBCBr Q    A    3 A ca2"!!!!!!3                       >         Y   a3     5  ~3  T8     )   &                        shape      shape      Shape2      FORM1      @Top = 539
Left = 3
Height = 34
Width = 755
Name = "Shape2"
      shape      shape      Shape1      FORM1      @Top = 260
Left = 3
Height = 22
Width = 755
Name = "Shape1"
      label      label      zeile0      FORM1      FontBold = .T.
FontSize = 12
Caption = "SOZIALVERSICHERUNG"
Height = 17
Left = 6
Top = 38
Visible = .T.
Width = 354
TabIndex = 2
Name = "zeile0"
      label      label      kasten0      FORM1      uCaption = "kasten0"
Height = 17
Left = 84
Top = 380
Visible = .F.
Width = 88
TabIndex = 165
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            
commandbutton      
commandbutton      
ssCommand2      FORM1      [Top = 2
Left = 510
Height = 31
Width = 249
Caption = "schlieen"
Name = "ssCommand2"
      CPROCEDURE Click
thisform.release
myform1.visible = .t.
ENDPROC
                                         %   p                          U   
     T  a U  THISFORM RELEASE MYFORM1 VISIBLE Click,     1   1                       8       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      WTop = 2
Left = 3
Height = 31
Width = 249
Caption = "drucken"
Name = "sscommand1"
      BPROCEDURE Click

DO sozversdrucken

SELECT lupe39

ENDPROC
                                      k   %   Y       p      h             U       F  U  SOZVERSDRUCKEN LUPE39 Click,     1 r r 2                       7       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 573
Left = 742
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
ssCommand3      FORM1      WTop = 2
Left = 256
Height = 31
Width = 249
Caption = "Hilfe"
Name = "ssCommand3"
      SPROCEDURE Click
inet = 111
Msg = "20420"
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  ) 
 T  o T  20420   U  INET MSG INSINTERNET Click,     1  !q 1                       H       )                            label      label      zeile1      FORM1      |Caption = "1.  BRUTTOGEHALT  "
Height = 17
Left = 7
Top = 60
Visible = .T.
Width = 220
TabIndex = 3
Name = "zeile1"
      label      label      zeile2      FORM1      Caption = "2.  -  davon SV-beitragsfrei "
Height = 17
Left = 7
Top = 75
Visible = .T.
Width = 220
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      Caption = "3. +  SV.pfl. ATV-Umlage-Anteil"
Height = 17
Left = 7
Top = 90
Visible = .T.
Width = 220
TabIndex = 5
Name = "zeile3"
      label      label      zeile4      FORM1      Caption = "4. +  SV-pflichtige Sachleistungen"
Height = 17
Left = 7
Top = 105
Visible = .T.
Width = 220
TabIndex = 6
Name = "zeile4"
      label      label      zeile5      FORM1      Caption = "5. +  SV-pflichtige Geldleistungen"
Height = 17
Left = 7
Top = 120
Visible = .T.
Width = 220
TabIndex = 7
Name = "zeile5"
      label      label      zeile6      FORM1      Caption = "6.  -  SV-beitragsbefreite Betrge "
Height = 17
Left = 7
Top = 135
Visible = .T.
Width = 220
TabIndex = 8
Name = "zeile6"
      label      label      zeile7      FORM1      Caption = "7.  -  Einmalzahlungen"
Height = 17
Left = 7
Top = 150
Visible = .T.
Width = 220
TabIndex = 9
Name = "zeile7"
      label      label      zeile8      FORM1      Caption = "8.  - Anteil von 7. an 3."
Height = 17
Left = 7
Top = 165
Visible = .T.
Width = 220
TabIndex = 10
Name = "zeile8"
      label      label      zeile9      FORM1      Caption = "9.  = Lfd. SOZ.VERS.Pfl.ENTGELT"
Height = 17
Left = 7
Top = 180
Visible = .T.
Width = 220
TabIndex = 11
Name = "zeile9"
      label      label      zeile10      FORM1      Caption = "KV-beitragspflichtig im lfd. Monat"
Height = 17
Left = 7
Top = 195
Visible = .T.
Width = 220
TabIndex = 12
Name = "zeile10"
      label      label      zeile11      FORM1      Caption = "RV-beitragspflichtig im lfd. Monat"
Height = 17
Left = 7
Top = 210
Visible = .T.
Width = 220
TabIndex = 13
Name = "zeile11"
      label      label      zeile13      FORM1      Caption = "Lcke zwischen Entgelt und Bemessungsgrenze Jan - lfd. Monat"
Height = 16
Left = 387
Top = 38
Visible = .T.
Width = 360
TabIndex = 14
Name = "zeile13"
      label      label      zeile12      FORM1      mCaption = ""
Height = 17
Left = 7
Top = 226
Visible = .T.
Width = 220
TabIndex = 15
Name = "zeile12"
      label      label      zeile14      FORM1      Caption = "-  in der Krankenversicherung"
Height = 17
Left = 388
Top = 63
Visible = .T.
Width = 220
TabIndex = 16
Name = "zeile14"
      label      label      zeile15      FORM1      Caption = "    -  verwendet werden"
Height = 17
Left = 389
Top = 79
Visible = .T.
Width = 220
TabIndex = 17
Name = "zeile15"
      label      label      zeile16      FORM1      Caption = "   somit krankenversicherungspflichtig"
Height = 17
Left = 389
Top = 94
Visible = .T.
Width = 220
TabIndex = 18
Name = "zeile16"
      label      label      zeile17      FORM1      Caption = "-  in der Rentenversicherung"
Height = 17
Left = 389
Top = 120
Visible = .T.
Width = 220
TabIndex = 19
Name = "zeile17"
      label      label      zeile18      FORM1      Caption = "    -  verwendet werden"
Height = 17
Left = 389
Top = 135
Visible = .T.
Width = 220
TabIndex = 20
Name = "zeile18"
      label      label      zeile19      FORM1      Caption = "   somit rentenversicherungspflichtig"
Height = 17
Left = 389
Top = 150
Visible = .T.
Width = 220
TabIndex = 21
Name = "zeile19"
      label      label      zeile20      FORM1      AutoSize = .F.
Caption = "20"
Height = 17
Left = 389
Top = 178
Visible = .T.
Width = 220
TabIndex = 22
Name = "zeile20"
      label      label      zeile21      FORM1      qCaption = "21"
Height = 17
Left = 389
Top = 193
Visible = .T.
Width = 220
TabIndex = 23
Name = "zeile21"
      label      label      zeile22      FORM1      qCaption = "22"
Height = 17
Left = 389
Top = 208
Visible = .T.
Width = 220
TabIndex = 24
Name = "zeile22"
      label      label      zeile23      FORM1      qCaption = "23"
Height = 17
Left = 389
Top = 223
Visible = .T.
Width = 220
TabIndex = 25
Name = "zeile23"
      label      label      zeile24      FORM1      qCaption = "24"
Height = 17
Left = 389
Top = 238
Visible = .T.
Width = 220
TabIndex = 26
Name = "zeile24"
      label      label      zeile25      FORM1      qCaption = "25"
Height = 17
Left = 291
Top = 359
Visible = .F.
Width = 220
TabIndex = 27
Name = "zeile25"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile26      FORM1      qCaption = "26"
Height = 17
Left = 291
Top = 374
Visible = .F.
Width = 220
TabIndex = 28
Name = "zeile26"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile27      FORM1      qCaption = "27"
Height = 17
Left = 291
Top = 389
Visible = .F.
Width = 220
TabIndex = 29
Name = "zeile27"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile28      FORM1      qCaption = "28"
Height = 17
Left = 291
Top = 404
Visible = .F.
Width = 220
TabIndex = 30
Name = "zeile28"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      kasten1      FORM1      uCaption = "kasten0"
Height = 17
Left = 240
Top = 61
Visible = .T.
Width = 88
TabIndex = 166
Name = "kasten1"
      label      label      kasten2      FORM1      uCaption = "kasten0"
Height = 17
Left = 240
Top = 76
Visible = .T.
Width = 88
TabIndex = 167
Name = "kasten2"
      label      label      kasten3      FORM1      uCaption = "kasten0"
Height = 17
Left = 240
Top = 91
Visible = .T.
Width = 88
TabIndex = 168
Name = "kasten3"
      label      label      kasten4      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 106
Visible = .T.
Width = 88
TabIndex = 169
Name = "kasten4"
      label      label      kasten5      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 121
Visible = .T.
Width = 88
TabIndex = 170
Name = "kasten5"
      label      label      kasten6      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 136
Visible = .T.
Width = 88
TabIndex = 171
Name = "kasten6"
      label      label      kasten7      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 151
Visible = .T.
Width = 88
TabIndex = 172
Name = "kasten7"
      label      label      kasten8      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 166
Visible = .T.
Width = 88
TabIndex = 173
Name = "kasten8"
      label      label      kasten9      FORM1      vCaption = "kasten0"
Height = 17
Left = 240
Top = 181
Visible = .T.
Width = 88
TabIndex = 174
Name = "kasten9"
      label      label      kasten10      FORM1      wCaption = "kasten0"
Height = 17
Left = 240
Top = 196
Visible = .T.
Width = 88
TabIndex = 175
Name = "kasten10"
      label      label      kasten11      FORM1      wCaption = "kasten0"
Height = 17
Left = 240
Top = 213
Visible = .T.
Width = 88
TabIndex = 176
Name = "kasten11"
      label      label      kasten12      FORM1      WordWrap = .F.
Caption = "kasten0"
Height = 17
Left = 240
Top = 229
Visible = .F.
Width = 88
TabIndex = 177
Name = "kasten12"
      label      label      kasten13      FORM1      wCaption = "kasten0"
Height = 17
Left = 180
Top = 380
Visible = .F.
Width = 88
TabIndex = 178
Name = "kasten13"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten14      FORM1      vCaption = "kasten0"
Height = 17
Left = 628
Top = 63
Visible = .T.
Width = 88
TabIndex = 179
Name = "kasten14"
      label      label      kasten15      FORM1      vCaption = "kasten0"
Height = 17
Left = 628
Top = 80
Visible = .T.
Width = 88
TabIndex = 180
Name = "kasten15"
      label      label      kasten16      FORM1      vCaption = "kasten0"
Height = 17
Left = 628
Top = 95
Visible = .T.
Width = 88
TabIndex = 181
Name = "kasten16"
      label      label      kasten17      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 121
Visible = .T.
Width = 88
TabIndex = 182
Name = "kasten17"
      label      label      kasten18      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 136
Visible = .T.
Width = 88
TabIndex = 183
Name = "kasten18"
      label      label      kasten19      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 151
Visible = .T.
Width = 88
TabIndex = 184
Name = "kasten19"
      label      label      kasten20      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 179
Visible = .T.
Width = 88
TabIndex = 185
Name = "kasten20"
      label      label      kasten21      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 194
Visible = .T.
Width = 88
TabIndex = 186
Name = "kasten21"
      label      label      kasten22      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 209
Visible = .T.
Width = 88
TabIndex = 187
Name = "kasten22"
      label      label      kasten23      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 224
Visible = .T.
Width = 88
TabIndex = 188
Name = "kasten23"
      label      label      kasten24      FORM1      wCaption = "kasten0"
Height = 17
Left = 628
Top = 239
Visible = .T.
Width = 88
TabIndex = 189
Name = "kasten24"
      label      label      kasten25      FORM1      wCaption = "kasten0"
Height = 17
Left = 531
Top = 359
Visible = .F.
Width = 88
TabIndex = 190
Name = "kasten25"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten26      FORM1      wCaption = "kasten0"
Height = 17
Left = 531
Top = 374
Visible = .F.
Width = 88
TabIndex = 191
Name = "kasten26"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten27      FORM1      wCaption = "kasten0"
Height = 17
Left = 531
Top = 389
Visible = .F.
Width = 88
TabIndex = 192
Name = "kasten27"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten28      FORM1      wCaption = "kasten0"
Height = 17
Left = 531
Top = 404
Visible = .F.
Width = 88
TabIndex = 193
Name = "kasten28"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            grid      grid      	grdLupe39      FORM1     cColumnCount = 7
DeleteMark = .F.
HeaderHeight = 46
Height = 257
Left = 3
Panel = 1
ReadOnly = .T.
RecordSource = "LUPE39"
RecordSourceType = 1
RowHeight = 16
ScrollBars = 2
Top = 282
Width = 755
Name = "grdLupe39"
Column1.ControlSource = "LUPE39.sp0"
Column1.Width = 118
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "LUPE39.sp1"
Column2.Width = 100
Column2.ReadOnly = .T.
Column2.Format = "Z"
Column2.Name = "Column2"
Column3.ControlSource = "LUPE39.sp2"
Column3.Width = 100
Column3.ReadOnly = .T.
Column3.Format = "Z"
Column3.Name = "Column3"
Column4.ControlSource = "LUPE39.sp3"
Column4.Width = 100
Column4.ReadOnly = .T.
Column4.Format = "Z"
Column4.Name = "Column4"
Column5.ControlSource = "LUPE39.sp4"
Column5.Width = 100
Column5.ReadOnly = .T.
Column5.Format = "Z"
Column5.Name = "Column5"
Column6.ControlSource = "LUPE39.sp5"
Column6.Width = 100
Column6.ReadOnly = .T.
Column6.Format = "Z"
Column6.Name = "Column6"
Column7.ControlSource = "LUPE39.sp6"
Column7.Width = 100
Column7.ReadOnly = .T.
Column7.Format = "Z"
Column7.Name = "Column7"
      header      header      Header1      FORM1.grdLupe39.Column1      @Alignment = 2
Caption = "!"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column2      JAlignment = 2
Caption = "verbeitragt"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column3      MAlignment = 2
Caption = "Bemess. Grenze"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column4      @Alignment = 2
Caption = " "
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column5      BAlignment = 2
Caption = "sp4"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column6      BAlignment = 2
Caption = "sp5"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLupe39.Column7      BAlignment = 2
Caption = "sp6"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLupe39.Column7      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      Label29      FORM1      Alignment = 2
Caption = "Monat"
Height = 17
Left = 7
Top = 263
Visible = .T.
Width = 123
TabIndex = 15
Name = "Label29"
      label      label      Label30      FORM1      Alignment = 2
Caption = "K R A N K E N V E R S I C H E R U N G"
Height = 17
Left = 135
Top = 263
Visible = .T.
Width = 298
TabIndex = 15
Name = "Label30"
      label      label      Label31      FORM1      Alignment = 2
Caption = "R E N T E N V E R S I C H E R U N G"
Height = 17
Left = 437
Top = 263
Visible = .T.
Width = 310
TabIndex = 15
Name = "Label31"
      label      label      Label32      FORM1      Alignment = 1
Caption = "verwendbar in Folgemonaten  "
Height = 17
Left = 132
Top = 539
Visible = .T.
Width = 201
TabIndex = 15
BackColor = 255,255,255
Name = "Label32"
      label      label      Label33      FORM1      Alignment = 1
Caption = "im lfd. Monat wurden verwendet  "
Height = 17
Left = 132
Top = 555
Visible = .T.
Width = 201
TabIndex = 15
BackColor = 255,255,255
Name = "Label33"
      label      label      Label34      FORM1      Alignment = 1
Caption = "verwendbar in Folgemonaten  "
Height = 17
Left = 436
Top = 539
Visible = .T.
Width = 201
TabIndex = 15
BackColor = 255,255,255
Name = "Label34"
      label      label      Label35      FORM1      Alignment = 1
Caption = "im lfd. Monat wurden verwendet  "
Height = 17
Left = 436
Top = 555
Visible = .T.
Width = 201
TabIndex = 15
BackColor = 255,255,255
Name = "Label35"
      label      label      Label36      FORM1      Alignment = 1
Caption = "kasten0"
Height = 17
Left = 639
Top = 539
Visible = .T.
Width = 98
TabIndex = 188
Name = "Label36"
      label      label      Label37      FORM1      Alignment = 1
Caption = "kasten0"
Height = 17
Left = 639
Top = 555
Visible = .T.
Width = 98
TabIndex = 189
Name = "Label37"
      label      label      Label38      FORM1      Alignment = 1
Caption = "kasten0"
Height = 17
Left = 336
Top = 539
Visible = .T.
Width = 98
TabIndex = 188
Name = "Label38"
      label      label      Label39      FORM1      Alignment = 1
Caption = "kasten0"
Height = 17
Left = 336
Top = 555
Visible = .T.
Width = 98
TabIndex = 189
Name = "Label39"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
 JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? X'i?~ Wo
# -'-<7g[e[Ie x|w?'w!xfǆ<+hWQv~~5{}ImncVe$%g	> x c˯_nxC,	v15Kk.V5ttY_)1GIk$ހ}5OiVWڴvѭŕZN	$F6lFB],o)母߳ ?buxgV:GaDh IF"9f A~~ƶ(;'XnN<d#^$SCyL?yPgMֱc}k
q<O'hkʩ$)B .7 j ?mۏ/~ χ(|#?]4PVkj"hYp)"'ʞTo|mw ߟ/#xK{ =-8orI%B0,A%9ާ?
6:NGeccg(@#U *@  |;;:YzNipƊUWB   JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ?  5 Exeɯ,>7.dX[<Ʊ_4R];%ۉ!Dxk[o
7:5{V$:ލ5#E--mp 9f/LLyfO@uO~ʿ~:忆.}xzMRJ:vVQ.@y4rUoA_$5|F 71q Evwٳ۰g_
 C> E7Q8+i6}ū\ !<H&3H%?Əd? ⯂Ozׇ&
͌$g`|	x؟ w7PG~<̿eax[[\LJDƯ,#a<~ mmٿ!4 
>`x':%> Ŧh
2"GQGFDo2 0fX@ p_?coRk^ ަut>$k&QP!X>\nb/߆~ioh:6TҎc`fCO:nm&wK{Pa ~)~$|kY#wkS_WI<7V\it*>Fo2- WX[13r4#42' <sG$lT:cM~WImgE)$RF)*	`M[6`6Z|)o18WjF
  @ JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? s_P_	SgEDx;Zm n|9:<Dd Mo
j֗7svybɊ_*K|M>3k~"/>7ڎm}oF?=7=$09Sd5?l߆5x_>	kx@ZGu`2gMn!y4̂[j'?|Os׃uIR+KydW'xԖ8[c]ygdWfr1]IBN}%dewmd5)3Շ/"i[zznY%ψ|s?sXoXi IS!W;,x v;|P^/js]L4m^bXlܪm| ;O=|ZE ߁~m>'ڋNľ<%hn&sʑinu/Z\|9ֵT<Ei=VT'D4	r>r_62itwNk{uCᥧ?x[6O
_A7hu.ռ)\surz侵hy|gV:q鍮Z?-8n6[$>C&]Ӻt_&TD7oo i> SC񆈗)yh:U7w]˃s 9`   k~ZIaBnr+ڳq~R|kz+}O>~Z?r|HUs#giB]Z%HԒHߕ% T $<i];&CG[=Tڡmi*FI~Ft7xF\s D? ׫~?Oٯ-f7 ޡI 7c5ʪMF)%h$i'Mj5j? JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? /+C&hu
71\YޤOo=SA*
Dz _-g{FomoiG)k&W/&r\&I'|U|%{B	s$0Xn|3O1X0EcV\~?4}-w׎5+
k/\Ѽ]*-7vBrl>wYg
g,09.j*pRRTe.Y{jM3fVի
pU,TeF9$J
QQm^Qz 'b?KxO,62_SӬgl~J$HeHFUA=?
m5o>}sRF
zg%>)BW9Umn$cY^K0C(	%,_ +~$}.mU[=cHiZI-cmA7 U	'2pn̧Bu+7ZuHԔRVZ'>_x⣏FSM8ԡqZF+FGggoV̺?5^Z3q/oWÚCEsPUdBI@RD࿋_|9Ol|#hO?|TxCPxuKGwj0<QHZ<"&)|UJ$=-R\Gy%
w<mx//\y aMow<vڬofbo
	.Iqd+'QrWV#8N2MkI'ZM|ZJyeG{	1"G<E'GOx_0iib-Ia
;tGW|]k',,Ť}i4(fM|_e3ȅP#Jc"gO*A=tM7v&l1"yǇ~m⏋~>ּ!V 	mv-RITZ6IfDȩq7fysGʕ,#WUq*V˯ܾ)IK JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? K5 /s5aN .e~TUUQ*o^R	/[<wkGQռG%Ʃi!9Hc9(Xrȿ὾ 4>CbQͷu(tyu8tKw}qxn!M񢂘g hO.^hy5 k
?^xIڤk(dovdQdxօ(F3[sũikwMgNՕ8BNM(UNj)*fԽy6wӾ|Tajf5e>%Ԭ㹛<w86HDT+;W_5_xS5mjS0Z	!Ĳ/pǨ [k =^kekX}O ھc#ݷa߿f8>˰(ЎU%VK|#9fwN:8(h`F5è;Q
=%;^Ͽd}gMծ5}Om=<!jWq8+ҿ5 !|8s]Y~OF7Z~ ~'x7<=/#;[T^qGn19x8k>0H'Ri8FJ+ޓnzfW/ne*بҦN	)9iMiJMrm'?ɮKOW?^G </y Y'n?_Hx#(#k5y{5eBv g f_~'oo-t_O[zWWk[$(̤g90xty~vMZNUt}v>'˳*409 -k7S޷.N|W JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? u(>7'T"ίNE/'&roTI#9XٳZd xs   ~".G#%Ң:o  7.0ewm>'R:-9	 R'?sy ]7^~K

6ۥ?M8doንW&ԛnXj?wRJвV?mcth<k{ @qj-%Wh~}P$s
E>|AwA/"Okvgp%E̍|w )K\_C~ )bGٿYn</6+([I>x R}Pқ˰O>O״  ^3/woxrOKudoJ+9S(i/}/m 7#x>|_L@VOcy1aub6% 45o>- > YeڝO=b&+/LD;/ڛ^k 6j/k:q/3jvnNʰ}ߕq[>=x+ž-#
RŷIi~ϺΛ6EannGٕm,3o`pl~|f o߅:Ǻ|V׉n|<tk
>kC8<G21G_գ4 CTr{vR5{>Ҝj(-iU/o+h JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? 'c ֿd?W:Ɠ/޵xnٙ
2đ{"x
sE=iZ'<;On+vgۋ^FYcR_O̸'h>6?5SPol*xn$ojAm#H"!U *]+6l<C6(m:{S
K67Jx$ȩ+SK4p${J\9gWcsL<5I:QW[k+H_/%xw-<q%Ve<$~؏gfkJ"x.dth|cwi{&{y/,uKI2HH`H`_?m_?;5d񤺆>\;Kgmٖb7-wjYҭ'kJ#ˎ(E*$hwL)LiGEJr+4۩N0Tw>38"T+ߌte +[zo	/?h~ɧxcMTU F2y6O*kcwIǘt~23>}bJxuA+UdI 896WZ>*h־&d+Dܳ,xV
dn: c{7"g¯(ZK˝egm$U@
|-#òfA4	CUawi){:Q*\>gaQR(E=/*_?g>&x{m3Tnsi-_y,M/nL!	4[o!h:_/2|=φFnjY[1KDc/>o|9t?	k^n4}$}.ϰnmWA*Mo*pO?y*Ѽ%Xft_
SX!m*<V,*7+4R޶WIۯk?xl.[Nu%9#Z6Q<ͭmn JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? oۓ쁪|@Ԣ'1m~]:I9##}@Z1ƨDܠ(+/ ??om _ϯ  JY<F#RR*&+Z'ȩujKV
jE(Ǒe%L
 j ?W/Fu Auo?wsr[i[u-nnR5EsuyNkr?C599P-g';n{yzQr:1x|4Iʤ}h֜7i^-%]O?G?~0 o ~cW+ǯkwW~"L|}1d49
G$nex;I_'x  #W~f40\MVҔ杤m>L(	:gZ2RV
3TdT\iFQԛ_ 8~[o,5_'x  #Ws4Z|_6˘Ҭ5O2@(kePITdr~\=,0hʌ%6(5Sm	F)2rnZpTFe15zire'{ JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? Ĵ/[&aYX(
/
 _OQxO/5HTIe+yYH̱X0I m  V_|-߅5_LºuExN`$v lY[4=~' EOxz^4Oo44u8eR9&<ol5z(փpjI٭3n%%cVv|] WƷ kvh S֥|Q~2x%ޙ'J[]6gԠ'F  Ww:o ·^&~|5[73E>Iz~i<zƛu	,|Σ,w8a)<dP(ޗ4jEMiSn1|׌or d=S߇_i_m+x7$ dMfUYGSxk~ÿ_7񟎴]wUor9K"'A?S^ğGĿ~,.ொ:?
hM{4^RfyXɻHf r??|=#
|]pmr$Ekx$l0?5Ğα=*bZq\ʍYsI_gΜӧh.F_U~'͟F윾6^կNdm*V_ixUUtZHib;y[{&r
+ w|$8/-KNIw,!AG<bz5ߎUkd[E,C#,hn l'>%u'7~eFNaQR16wgԕco[v? JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? W
J׭x/4>04&-{AeAcVڿ&B*(;Q@i	e/躷<IA
?X"ƁmKNF+ aOw?e_ړh[3'mRe%$df#>eº -'!5k$ͧi iyu" *ƽ8aa4~mS<9%E{m?n	Zl? 5?iAg|N6V`k[|V+`zLۮ<A]G>:n񞙪kp\]|웮渓 Py2~Ɵ	/ˬkMkc2Lm,a^e "։3a㾪W*#*{>ǱםZe+j{> PMno>69aڤk ग़¿{~ Ε۝E{kMbb()oo\W _?>9|,Oq&EUh
=Sn ?S{Voǥּ'
m1g(ų+0xWe+sLïOWWy~9~zo+
_F}A5'Yw$g? 5?-\uO4hEg0>=q Rޕ j_! ƭ7OCXt|cԯux8Γd
xVaӞᾯ
urwo29s9;ݿ# JFIF  ` `   :Exif  MM *    Q         Q       Q            C 		



	
 C     "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? o'<Uqwq3,TRְ 4Y#D$[Y)?mO+۷CL !KK;wʿȹ7C;C*3Eg:1F_
.<? mC6K#rImYbVIge  \x dKO|9P5s˦MiZG_'FHR?r7/6Z[H#φG2̰XueHPPT}i}bKV2b+K?L 1!*K;{tWʰɹ+Kgv9տ 7׼)/\j~%x="BmPhCSj$H[Gّ[	  q ğ>'XskM:Mm;ٗM׆'sE6o6
 l/įn1m:NˆwyZ+M!.#7dC0aV"(jt~kK'F
:q-Ӆg(bU.j^ɷ8rrݶk?Z Ɵ P*? ڃ>= Wö?X^pD..5R2A`p?g:'?#H#|' r⏈?jm>3Y?KMq/>t|tG7|EPuvUyK{k9<wI}G8>o쿩a~>]/nnm9-SWPgǿ?#
__ g/~(Ѽc95ClGʗDx}τUWj?H	ӟ%?
gA|/_x@|MuMFV{#uKeb`u'U:K*g9Q4]ُ`p,n#L?*r쪶%9Ic}? JFIF  ` `   C 		



	
 C   ""            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? o54.#xswj]Cʈ*7X`)P8_ھ'ee?쌺gJ m3__X4+BXՒ-!DyEUN ?_  N 9ua~.l|ɝ yi?_Z'[Yt~4ӆpG2τW5&Wk,cUa=2GkJYٸI *d?i?Es? s |Q@?\?2|(cAm+x@HIViyo:y|5G~#{WVncF	QƠ1
H dWC A [4]KƗ6VB{Z{TwpP$I ~_N?Vῃ5i-o?ҵHI\ܩ#A^\@YbRh  a~)~'M+ Tʸ
>#mIt妆X[_
"޷<ۧ$kxh"^ &4?ɢ>@0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6AP0YOW981417445733      /  F      ]                                                       WINDOWS _6AP0YOW991430476150                                                                     WINDOWS _6AP0YOW9A1417446126}	      	  	  	  	        a                                               WINDOWS _6AP0YOW9B1417445733
      
  
  
  
      0  f                                               WINDOWS _6AP0YOW9C14174461265      J  _  o  |        Y                                               COMMENT RESERVED                                                                                            <                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 162
Width = 501
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Bitte auswhlen ...."
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
IF EMPTY(_cliptext)
	thisform.optiongroup1.option1.enabled = .f.
ELSE
	thisform.optiongroup1.option1.enabled = .t.	
ENDIF

IF EMPTY(myfreischalt.text1.value)
	thisform.optiongroup1.option2.enabled = .f.
	thisform.optiongroup1.option3.enabled = .f.
ELSE
	thisform.optiongroup1.option2.enabled = .t.
	thisform.optiongroup1.option3.enabled = .t.	
ENDIF

thisform.optiongroup1.option1.Caption = "einfgen " + IIF(EMPTY(_cliptext),"","("+ALLTRIM(_cliptext)+")")
thisform.optiongroup1.option2.Caption = "kopieren " + IIF(EMPTY(myfreischalt.text1.value),"","(" + ALLTRIM(myfreischalt.text1.value)+")")
thisform.optiongroup1.option3.Caption = "lschen " + IIF(EMPTY(myfreischalt.text1.value),"","("+ALLTRIM(myfreischalt.text1.value)+")")
ENDPROC
                                      %         I     '            U   %C"  T     - >  T     a  %C     T     - T     -   T     a T     a = T    	 	 einfgen CC     (C )6K T    	 	 kopieren CC        (C    )6J T    	  lschen CC        (C    )6 U
  THISFORM OPTIONGROUP1 OPTION1 ENABLED MYFREISCHALT TEXT1 VALUE OPTION2 OPTION3 CAPTION Init,     1  A AA RAA AAA 1                             )                           optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 3
Value = 0
Height = 66
Left = 10
Top = 21
Width = 480
Name = "Optiongroup1"
Option1.Caption = "einfgen "
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 385
Option1.Name = "Option1"
Option2.Caption = "kopieren"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 385
Option2.Name = "Option2"
Option3.Caption = "lschen"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 385
Option3.Name = "Option3"
      PROCEDURE Click
IF .not. EMPTY(this.Value)
	thisform.command2.Enabled = .t.
ELSE
	thisform.command2.Enabled = .f.
endif
ENDPROC
                                   /    %                             U  D  %C   
$  T   a =  T   -  U  THIS VALUE THISFORM COMMAND2 ENABLED Click,     1 1 A 1                       |       )                           
commandbutton      
commandbutton      Command1      FORM1      [Top = 108
Left = 252
Height = 28
Width = 109
Caption = "abbrechen"
Name = "Command1"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            
commandbutton      
commandbutton      Command2      FORM1      jTop = 108
Left = 140
Height = 28
Width = 109
Caption = "ausfhren"
Enabled = .F.
Name = "Command2"
     cPROCEDURE Click

DO case
	CASE thisform.optiongroup1.Value = 1
		myfreischalt.text1.value = ""
		myfreischalt.text1.value = ALLTRIM(_cliptext)
	CASE thisform.optiongroup1.Value = 2
		_cliptext = ALLTRIM(myfreischalt.text1.value)
	CASE thisform.optiongroup1.Value = 3
		myfreischalt.text1.value = ""
endcase	
thisform.command1.click

ENDPROC
                                      %   )      P     8            U   
 H
       K  T      T   C     v  TC          T      
      U  THISFORM OPTIONGROUP1 VALUE MYFREISCHALT TEXT1 COMMAND1 CLICK Click,     1  q1AqAq1A  2                       X      )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6AR0SP41Z1417574867      /  F      ]                                                       WINDOWS _6AR0SP4201430476515                                                                     WINDOWS _6AR0SP4211417571612[      h  u                                                               WINDOWS _6AR0SP4221417578711                    P
                                               WINDOWS _6AR0SP4231417571612            *                                                           WINDOWS _6AR0SP4241417571612                                                                       WINDOWS _6AR0SP4251417571612E      U  e  s                                                             WINDOWS _6AR0SP4261417571612      
    (  5                                                           WINDOWS _6AR0SP4271417571051                                                                       WINDOWS _6AR0SP4281417571612d      q  ~                                                               WINDOWS _6AR0TBPQL1417578717        2  B  O        (                                               WINDOWS _6AR0TBPQM1417571612[7      p7  7  7  7      8  8                                               WINDOWS _6AR0TBPQN14175716129      9  9  9  9                                                           COMMENT RESERVED                                2:                                                            :[                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 435
Width = 564
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Konvertierung der Texte eines Vorjahres"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
      PROCEDURE Init
*!*	IF .not. EMPTY(mykonvertierung.text1.value)
*!*		thisform.text1.Value = SUBSTR(mykonvertierung.text1.value,1,LEN(ALLTRIM(mykonvertierung.text1.value))-8)+"TEXTE\"
*!*	endif
ENDPROC
                                      }   %   3       E      A             U    U   Init,     1 4                              )                            shape      shape      Shape1      FORM1      @Top = 73
Left = 18
Height = 31
Width = 523
Name = "Shape1"
      
commandbutton      
commandbutton      Command3      FORM1      {Top = 6
Left = 16
Height = 31
Width = 330
Caption = "1.) Text-Verzeichnis des Vorjahres auswhlen"
Name = "Command3"
     PROCEDURE Click
thisform.text1.value = GETdir("...","Texte-Verzeichnis whlen")
*jahr4 = 2020
IF STR(jahr4-1,4,0) $ thisform.text1.Value .and. "\TEXTE" $ UPPER(thisform.text1.Value) 
	HSolddir =SYS(5)+SYS(2003) && eigdat 
	hsgetdir = ALLTRIM(thisform.text1.Value)
	CD "&hsgetdir"
	hsfoundfiles = ADIR(oldfiles,"MYTEXT??.TXT")
	CD "&hsolddir"
	
	hsjahrxx = SUBSTR(xjahr1,3,2) + "," + SUBSTR(xjahr2,3,2) + "," + SUBSTR(xjahr3,3,2) + "," + SUBSTR(xjahr4,3,2)

	FOR hsa = 1 TO hsfoundfiles
		nowfile = oldfiles(hsa,1) 

		IF SUBSTR(nowfile,1,6) = "MYTEXT" .and. SUBSTR(nowfile,7,2) $ hsjahrxx &&"19,20,21,22"
			DO case
				case SUBSTR(nowfile,7,2) = SUBSTR(xjahr1,3,2) &&"19"
					thisform.check1.Value = .t.
					thisform.check1.enabled = .t.
					thisform.check1.caption = xjahr1
				case SUBSTR(nowfile,7,2) = SUBSTR(xjahr2,3,2) &&"2020"
					thisform.check2.Value = .t.
					thisform.check2.enabled = .t.
					thisform.check2.caption = xjahr2
				case SUBSTR(nowfile,7,2) = SUBSTR(xjahr3,3,2) &&"2021"
					thisform.check3.Value = .t.
					thisform.check3.enabled = .t.
					thisform.check3.caption = xjahr3
				case SUBSTR(nowfile,7,2) = SUBSTR(xjahr4,3,2) &&"2022"
					thisform.check4.Value = .t.
					thisform.check4.enabled = .t.
					thisform.check4.caption = xjahr4
					
			ENDCASE
			IF thisform.check1.enabled = .t. .and. thisform.check2.enabled = .t. .and. thisform.check3.enabled = .t. .and. thisform.check4.enabled = .t.
				EXIT
			endif
		ELSE
			loop
		ENDIF
	next
	thisform.command4.Enabled=.t.
ELSE
	hinweis("Sie mssen das TEXTE-Verzeichnis fr das Jahr " + ALLTRIM(STR(jahr4 - 1,4,0)) + " auswhlen!")
endif		
CD "&hsolddir"
ENDPROC
                                      %         8  +               U  4 T    C ... Texte-Verzeichnis whlen3< %C  Z      \TEXTEC    f	^ T C]C] T C     CD "&hsgetdir"
! T C  MYTEXT??.TXT CD "&hsolddir"
H T C	 \ ,C
 \ ,C \ ,C \ 
 ( I T C 
  2 %C \ MYTEXT C \ 	9
 H! C \C	 \ T    a T    a T    	 ! C \C
 \? T    a T    a T    
 ! C \C \ T    a T    a T     ! C \C \ T    a T    a T      B %    a     a	     a	     a	5 !  E .   T    a \ C. Sie mssen das TEXTE-Verzeichnis fr das Jahr CC  Z  auswhlen!   CD "&hsolddir"
 U  THISFORM TEXT1 VALUE JAHR4 HSOLDDIR HSGETDIR HSFOUNDFILES OLDFILES HSJAHRXX XJAHR1 XJAHR2 XJAHR3 XJAHR4 HSA NOWFILE CHECK1 ENABLED CAPTION CHECK2 CHECK3 CHECK4 COMMAND4 HINWEIS Click,     1 AaQ!!rQ" 1111B !A A  A A A  A !1                             )                           textbox      textbox      Text1      FORM1      OHeight = 24
Left = 16
ReadOnly = .T.
Top = 39
Width = 525
Name = "Text1"
      checkbox      checkbox      Check1      FORM1      Top = 81
Left = 212
Height = 19
Width = 52
Alignment = 0
Caption = "Check1"
Enabled = .F.
Visible = .T.
Name = "Check1"
      checkbox      checkbox      Check2      FORM1      rTop = 81
Left = 291
Height = 19
Width = 52
Alignment = 0
Caption = "Check1"
Enabled = .F.
Name = "Check2"
      checkbox      checkbox      Check3      FORM1      rTop = 81
Left = 371
Height = 19
Width = 52
Alignment = 0
Caption = "Check1"
Enabled = .F.
Name = "Check3"
      checkbox      checkbox      Check4      FORM1      rTop = 81
Left = 437
Height = 19
Width = 52
Alignment = 0
Caption = "Check1"
Enabled = .F.
Name = "Check4"
      label      label      Label1      FORM1      gCaption = "folgende Jahre bernehmen"
Height = 15
Left = 36
Top = 82
Width = 165
Name = "Label1"
      
commandbutton      
commandbutton      Command4      FORM1      Top = 114
Left = 16
Height = 31
Width = 330
Caption = "2.) Texte-Verzeichnis eines Vorjahres bernehmen"
Enabled = .F.
Name = "Command4"
     PROCEDURE Click

jahrstring = ""
jahrstring2 = ""
FOR hsaa = 1 TO 4
	hsaxx = ALLTRIM(STR(hsaa,1,0))
	IF .not. EMPTY(thisform.check&hsaxx..value)
		jahrstring = jahrstring + ALLTRIM(thisform.check&hsaxx..caption) + " "
		jahrstring2 = jahrstring2 + SUBSTR(ALLTRIM(thisform.check&hsaxx..caption),3,2) + IIF(hsaa < 4,", ","")
	ENDIF
NEXT

IF EMPTY(jahrstring)
	hinweis("Sie mssen die Jahre auswhlen, die bernommen werden sollen!")
	RETURN
ENDIF

thisform.command2.Enabled = .f.
thisform.command3.Enabled = .f.
thisform.command4.Enabled = .f.

thisform.check1.Enabled = .f.
thisform.check2.Enabled = .f.
thisform.check3.Enabled = .f.
thisform.check4.Enabled = .f.
*!*	thisform.check5.Enabled = .f.

HSolddir =SYS(5)+SYS(2003) && eigdat 
hsgetdir = ALLTRIM(thisform.text1.Value)
CD "&hsgetdir"
hsfoundfiles = ADIR(oldfiles,"MYTEXT??.TXT") && ADIR(oldfiles,"G20???.*")
CD "&hsolddir"

IF hsfoundfiles = 0
	hinweis("Es wurden keine Texte zur bernahme gefunden!")
	thisform.command2.Enabled = .f.
	RETURN
endif

= ASORT(oldfiles) &&sortieren nach jahr

myclose()

myopen(eigdat + "\Texte\MyText"+substr(xjahr1,3,2) , 30 ,"woerter")&&hs vorher 2011 auf kanalzahl achten !!!!!!! jahr1 immer auf 30, etc
myopen(eigdat + "\Texte\MyText"+substr(xjahr2,3,2) , 31 ,"woerter")&&hs vorher 2012
myopen(eigdat + "\Texte\MyText"+substr(xjahr3,3,2) , 32 ,"woerter")&&hs vorher 2013
myopen(eigdat + "\Texte\MyText"+substr(xjahr4,3,2) , 33 ,"woerter")&&hs vorher 2014

thisform.edit1.Value = "Es werden die Texte der Jahre (" + jahrstring + ") bernommen." + CHR(13)+CHR(10) + CHR(13)+CHR(10)

IF .not. EMPTY(thisform.check1.Value)
	SELECT 30
	GO top
	hsfilename = hsgetdir + oldfiles(2,1)
	hsdaten = FILETOSTR("&hsfilename")
	hssatz = 0
	hsstammname = ALIAS()
	DO WHILE LEN(hsdaten) > 0
		hssatz = hssatz + 1
		hsx = SUBSTR(hsdaten,1,35)
		SELECT 30
		GOTO hssatz
		replace &hsstammname..pcg_f1 WITH hssatz
		replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
		FLUSH
		hsdaten = SUBSTR(hsdaten,36)
	ENDDO	
	SELECT 30
	use
	thisform.edit1.Value = thisform.edit1.Value + hsgetdir + oldfiles(2,1) + " = " + ALLTRIM(STR(hssatz,10,0))+CHR(13)+CHR(10)				
endif

IF .not. EMPTY(thisform.check2.Value)
	SELECT 31
	GO top
	hsfilename = hsgetdir + oldfiles(3,1)
	hsdaten = FILETOSTR("&hsfilename")
	hssatz = 0
	hsstammname = ALIAS()	
	DO WHILE LEN(hsdaten) > 0
		hssatz = hssatz + 1
		hsx = SUBSTR(hsdaten,1,35)
		SELECT 31
		GOTO hssatz
		replace &hsstammname..pcg_f1 WITH hssatz
		replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
		FLUSH
		hsdaten = SUBSTR(hsdaten,36)
	ENDDO	
	SELECT 31
	use	
	thisform.edit1.Value = thisform.edit1.Value + hsgetdir + oldfiles(3,1) + " = " + ALLTRIM(STR(hssatz,10,0))+CHR(13)+CHR(10)				
ENDIF

IF .not. EMPTY(thisform.check3.Value)
	SELECT 32
	GO top
	hsfilename = hsgetdir + oldfiles(4,1)
	hsdaten = FILETOSTR("&hsfilename")
	hssatz = 0
	hsstammname = ALIAS()
	DO WHILE LEN(hsdaten) > 0
		hssatz = hssatz + 1
		hsx = SUBSTR(hsdaten,1,35)
		SELECT 32
		GOTO hssatz
		replace &hsstammname..pcg_f1 WITH hssatz
		replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
		FLUSH
		hsdaten = SUBSTR(hsdaten,36)
	ENDDO	
	SELECT 32
	use	
	thisform.edit1.Value = thisform.edit1.Value + hsgetdir + oldfiles(4,1) + " = " + ALLTRIM(STR(hssatz,10,0))+CHR(13)+CHR(10)				
ENDIF

IF .not. EMPTY(thisform.check4.Value)
	SELECT 33
	GO top
	hsfilename = hsgetdir + oldfiles(5,1)
	hsdaten = FILETOSTR("&hsfilename")
	hssatz = 0
	hsstammname = ALIAS()	
	DO WHILE LEN(hsdaten) > 0
		hssatz = hssatz + 1
		hsx = SUBSTR(hsdaten,1,35)
		SELECT 33
		GOTO hssatz
		replace &hsstammname..pcg_f1 WITH hssatz
		replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
		FLUSH
		hsdaten = SUBSTR(hsdaten,36)
	ENDDO	
	SELECT 33
	use	
	thisform.edit1.Value = thisform.edit1.Value + hsgetdir + oldfiles(5,1) + " = " + ALLTRIM(STR(hssatz,10,0))+CHR(13)+CHR(10)				
ENDIF

thisform.edit1.Value = thisform.edit1.Value + CHR(13)+CHR(10)+ "Texte-Konvertierung beendet!" +CHR(13)+CHR(10)				
thisform.edit1.SELSTART = LEN(thisform.edit1.VALUE)
thisform.edit1.sellength = 0

hsgelaufen = .t.
mykonvertierung.command2.Caption = "PC-Gehalt wird beim Verlassen der Maske beendet!"
thisform.command2.Enabled = .t.

*DO zumprogramm



ENDPROC
     u    \  \                           %   
           
            U  n
 T    
 T     (3 T CC  Z3 IF .not. EMPTY(thisform.check&hsaxx..value)/J jahrstring = jahrstring + ALLTRIM(thisform.check&hsaxx..caption) + " "
j jahrstring2 = jahrstring2 + SUBSTR(ALLTRIM(thisform.check&hsaxx..caption),3,2) + IIF(hsaa < 4,", ","")
   %C  J C= Sie mssen die Jahre auswhlen, die bernommen werden sollen!  B  T   - T   - T 	  - T 
  - T   - T   - T 
  - T C]C] T C    CD "&hsgetdir"
! T C  MYTEXT??.TXT CD "&hsolddir"
 %  : C- Es wurden keine Texte zur bernahme gefunden!  T   - B 
 C 
 C 7 C 
 \Texte\MyTextC \ woerter 7 C 
 \Texte\MyTextC \ woerter 7 C 
 \Texte\MyTextC \  woerter 7 C 
 \Texte\MyTextC \! woerter _ T    Es werden die Texte der Jahre (  
 ) bernommen.C
 C
 C
 C
  %C 
  
 F  #) T  C & hsdaten = FILETOSTR("&hsfilename")

 T   T C +C > n T   T  C #\ F 	 # , replace &hsstammname..pcg_f1 WITH hssatz
2 replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
 [ T C $\  F  QI T       C   = CC 
 ZC
 C
   %C   
] F  #) T  C & hsdaten = FILETOSTR("&hsfilename")

 T   T C +C >  T   T  C #\ F 	 # , replace &hsstammname..pcg_f1 WITH hssatz
2 replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
 [ T C $\  F  QI T       C   = CC 
 ZC
 C
   %C   
 F   #) T  C & hsdaten = FILETOSTR("&hsfilename")

 T   T C +C >  T   T  C #\ F  	 # , replace &hsstammname..pcg_f1 WITH hssatz
2 replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
 [ T C $\  F   QI T       C   = CC 
 ZC
 C
   %C 
  

 F!  #) T  C & hsdaten = FILETOSTR("&hsfilename")

 T   T C +C > 0
 T   T  C #\ F! 	 # , replace &hsstammname..pcg_f1 WITH hssatz
2 replace &hsstammname..pcg_f2 WITH ALLTRIM(hsx)
 [ T C $\  F!  QI T       C   = CC 
 ZC
 C
  Q T      C
 C
  Texte-Konvertierung beendet!C
 C
  T  ! C   > T  "   T# aC T$  % 0 PC-Gehalt wird beim Verlassen der Maske beendet! T   a U& 
 JAHRSTRING JAHRSTRING2 HSAA HSAXX HINWEIS THISFORM COMMAND2 ENABLED COMMAND3 COMMAND4 CHECK1 CHECK2 CHECK3 CHECK4 HSOLDDIR HSGETDIR TEXT1 VALUE HSFOUNDFILES OLDFILES MYCLOSE MYOPEN EIGDAT XJAHR1 XJAHR2 XJAHR3 XJAHR4 EDIT1
 HSFILENAME HSSATZ HSSTAMMNAME HSDATEN HSX SELSTART	 SELLENGTH
 HSGELAUFEN MYKONVERTIERUNG CAPTION Click,     1   qq1A A  A A cQ!!A A   rqqqb Q a  AQ  !A !A  A A b Q a  AQ  !A !A  A A b Q a  AQ  !A !A  A A b Q a  AQ  !A !A  A A 1 16                             )   \                        
commandbutton      
commandbutton      Command2      FORM1      ZTop = 390
Left = 17
Height = 31
Width = 525
Caption = "Schlieen"
Name = "Command2"
      tPROCEDURE Click
IF hsgelaufen = .t.
	hsbeenden = .t.
ELSE
	hsbeenden = .f.
endif
thisform.Release

ENDPROC
                                     sN   %                             U  >  %  a  T a -  T - 
    U 
 HSGELAUFEN	 HSBEENDEN THISFORM RELEASE Click,     1     A  2                       i       )                            editbox      editbox      Edit1      FORM1      QHeight = 232
Left = 17
ReadOnly = .T.
Top = 152
Width = 526
Name = "Edit1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0x   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6AZ0VWBLM1418163869      /  F      ]                                                       WINDOWS _6AZ0VWBLN1450741330                      	
                                               WINDOWS _6AZ0VWBLO1418425047m      z                                                                 WINDOWS _6AZ0VWBLP1418425047          &  3                                                           WINDOWS _6AZ0VWBLQ1450741324                  O  +                                               WINDOWS _6AZ0VWBLR1418425047x!      !  !  !  !                                                           WINDOWS _6AZ0VWBLS1450741330"      "  0"  @"  M"      "  $                                               WINDOWS _6AZ0VWBLT1418425047%      %  %  &  &                                                           WINDOWS _6AZ0VWBLU1418425047o&      |&  &  &  &                                                           WINDOWS _6AZ0VWBLV1418425047&'      6'  F'  T'  a'                                                           WINDOWS _6AZ0VWBLW1418425047'      '  (  (  "(                                                           WINDOWS _6AZ0VWBLX1418425047(      (  (  (  (                                                           WINDOWS _6AZ0VWBLY1418425047f)      s)  )  )  )                                                           WINDOWS _6AZ0VWBLZ1418425149#*      3*  C*  Q*  ^*                                                           WINDOWS _6AZ0VWBM01418425149*      *  +  +  +                                                           WINDOWS _6AZ0VWBM11418425149+      +  +  +  +                                                           WINDOWS _6AZ0VWBM21418425149c,      s,  ,  ,  ,                                                           WINDOWS _6AZ0VWBM31418425149#-      3-  C-  Q-  ^-                                                           WINDOWS _6AZ0VWBM41418425149-      -  .  .  .                                                           WINDOWS _6AZ0VWBM51418425149.      .  .  .  .                                                           WINDOWS _6AZ0VWBM61418425149c/      s/  /  /  /                                                           WINDOWS _6AZ0VWBM71418425149#0      30  C0  Q0  ^0                                                           WINDOWS _6AZ0VWBM814184251490      0  1  1  1                                                           WINDOWS _6AZ0VWBM914184251491      1  1  1  1                                                           WINDOWS _6AZ0VWBMA1418425149g2      w2  2  2  2                                                           WINDOWS _6AZ0VWBMB1418425149)3      93  I3  X3  e3                                                           WINDOWS _6AZ0VWBMC14184251493      3  4  4  '4                                                           WINDOWS _6AZ0VWBMD14184251494      4  4  4  4                                                           WINDOWS _6AZ0VWBME1418425149o5      5  5  5  5                                                           WINDOWS _6AZ0VWBMF141842514916      A6  Q6  `6  m6                                                           WINDOWS _6AZ0VWBMG14184251496      7  7  "7  /7                                                           WINDOWS _6AZ0VWBMH14184251497      7  7  7  7                                                           WINDOWS _6AZ0VWBMI1418425149w8      8  8  8  8                                                           WINDOWS _6AZ0VWBMJ141842514999      I9  Y9  h9  u9                                                           WINDOWS _6AZ0VWBMK14184251499      :  :  +:  8:                                                           WINDOWS _6AZ0VWBML1418425149:      :  :  :  :                                                           WINDOWS _6AZ0VWBMM1418425149;      ;  ;  ;  ;                                                           WINDOWS _6AZ0VWBMN1418425149E<      U<  e<  t<  <                                                           WINDOWS _6AZ0VWBMO1418425149=      =  (=  7=  D=                                                           WINDOWS _6AZ0VWBMP1418425149=      =  =  =  >                                                           WINDOWS _6AZ0VWBMQ1418425149>      >  >  >  >                                                           WINDOWS _6AZ0VWBMR1418425149Q?      a?  q?  ?  ?                                                           WINDOWS _6AZ0VWBMS1418425149@      $@  4@  C@  P@                                                           WINDOWS _6AZ0VWBMT1418425149@      @  @  A  A                                                           WINDOWS _6AZ0VWBMU1418425149A      A  A  A  A                                                           WINDOWS _6AZ0VWBMV1418425149]B      mB  }B  B  B                                                           WINDOWS _6AZ0VWBMW1418425149 C      0C  @C  OC  \C                                                           WINDOWS _6AZ0VWBMX1418425149C      C  D  D  D                                                           WINDOWS _6AZ0VWBMY1418425149D      D  D  D  D                                                           WINDOWS _6AZ0VWBMZ1418425149iE      yE  E  E  E                                                           WINDOWS _6AZ0VWBN01418425149,F      <F  LF  [F  hF                                                           WINDOWS _6AZ0VWBN11418425149F      F  G  G  +G                                                           WINDOWS _6AZ0VWBN21418425149G      G  G  G  G                                                           WINDOWS _6AZ0VWBN31418425149uH      H  H  H  H                                                           WINDOWS _6AZ0VWBN414184251498I      HI  XI  gI  tI                                                           WINDOWS _6AZ0VWBN51418425149I      J  J  *J  7J                                                           WINDOWS _6AZ0VWBN61418425149J      J  J  J  J                                                           WINDOWS _6AZ0VWBN71418425149K      K  K  K  K                                                           WINDOWS _6AZ0VWBN81418425149DL      TL  dL  sL  L                                                           WINDOWS _6AZ0VWBN91418425149M      M  'M  6M  CM                                                           WINDOWS _6AZ0VWBNA1418425149M      M  M  M  N                                                           WINDOWS _6AZ0VWBNB1418425149N      N  N  N  N                                                           WINDOWS _6AZ0VWBNC1418425149PO      `O  pO  O  O                                                           WINDOWS _6AZ0VWBND1418425149P      #P  3P  BP  OP                                                           WINDOWS _6AZ0VWBNE1418425149P      P  P  Q  Q                                                           WINDOWS _6AZ0VWBNF1418425149Q      Q  Q  Q  Q                                                           WINDOWS _6AZ0VWBNG1418425149\R      lR  |R  R  R                                                           WINDOWS _6AZ0VWBNH1418425149S      /S  ?S  NS  [S                                                           WINDOWS _6AZ0VWBNI1418425149S      S  T  T  T                                                           WINDOWS _6AZ0VWBNJ1418425149T      T  T  T  T                                                           WINDOWS _6AZ0VWBNK1418425149hU      xU  U  U  U                                                           WINDOWS _6AZ0VWBNL1418425149+V      ;V  KV  ZV  gV                                                           WINDOWS _6AZ0VWBNM1418425149V      V  W  W  *W                                                           WINDOWS _6AZ0VWBNN1418425149W      W  W  W  W                                                           WINDOWS _6AZ0VWBNO1418425149tX      X  X  X  X                                                           WINDOWS _6AZ0VWBNP14184251497Y      GY  WY  fY  sY                                                           WINDOWS _6AZ0VWBNQ1418425149Y      
Z  Z  )Z  6Z                                                           WINDOWS _6AZ0VWBNR1418425149Z      Z  Z  Z  Z                                                           WINDOWS _6AZ0VWBNS1418425149[      [  [  [  [                                                           WINDOWS _6AZ0VWBNT1418425149C\      S\  c\  r\  \                                                           WINDOWS _6AZ0VWBNU1418425149]      ]  &]  5]  B]                                                           WINDOWS _6AZ0VWBNV1418425149]      ]  ]  ]  ^                                                           WINDOWS _6AZ0VWBNW1418425149^      ^  ^  ^  ^                                                           WINDOWS _6AZ0VWBNX1418425149O_      __  o_  ~_  _                                                           WINDOWS _6AZ0VWBNY1418425149`      "`  2`  A`  N`                                                           WINDOWS _6AZ0VWBNZ1418425149`      `  `  a  a                                                           WINDOWS _6AZ0VWBO01418425149a      a  a  a  a                                                           WINDOWS _6AZ0VWBO11418425149[b      kb  {b  b  b                                                           WINDOWS _6AZ0VWBO21418425149c      .c  >c  Mc  Zc                                                           WINDOWS _6AZ0VWBO31418425149c      c  d  d  d                                                           WINDOWS _6AZ0VWBO41418425149d      d  d  d  d                                                           WINDOWS _6AZ0VWBO51418425149ge      we  e  e  e                                                           WINDOWS _6AZ0VWBO61418425149*f      :f  Jf  Yf  ff                                                           WINDOWS _6AZ0VWBO71418425149f      f  
g  g  )g                                                           WINDOWS _6AZ0VWBO81418425149g      g  g  g  g                                                           WINDOWS _6AZ0VWBO91418425149sh      h  h  h  h                                                           WINDOWS _6AZ0VWBOA14184251496i      Fi  Vi  ei  ri                                                           WINDOWS _6AZ0VWBOB1418425149i      	j  j  (j  5j                                                           WINDOWS _6AZ0VWBOC1418425149j      j  j  j  j                                                           WINDOWS _6AZ0VWBOD1418425149k      k  k  k  k                                                           WINDOWS _6AZ0VWBOE1418425149Bl      Rl  bl  ql  ~l                                                           WINDOWS _6AZ0VWBOF1418425149m      m  %m  4m  Am                                                           WINDOWS _6AZ0VWBOG1418425149m      m  m  m  n                                                           WINDOWS _6AZ0VWBOH1418425149n      n  n  n  n                                                           WINDOWS _6AZ0VWBOI1418425149No      ^o  no  }o  o                                                           WINDOWS _6AZ0VWBOJ1418425149p      !p  1p  @p  Mp                                                           WINDOWS _6AZ0VWBOK1418425149p      p  p  q  q                                                           WINDOWS _6AZ0VWBOL1418425149q      q  q  q  q                                                           WINDOWS _6AZ0VWBOM1418425149Zr      jr  zr  r  r                                                           WINDOWS _6AZ0VWBON1418425149s      -s  =s  Ls  Ys                                                           WINDOWS _6AZ0VWBOO1418425149s      s   t  t  t                                                           WINDOWS _6AZ0VWBOP1418425149t      t  t  t  t                                                           WINDOWS _6AZ0VWBOQ1418425149fu      vu  u  u  u                                                           WINDOWS _6AZ0VWBOR1418425047+v      @v  Uv  ev  rv      w                                                 WINDOWS _6AZ0VWBOS1418425047       5  J  Z  g      ɋ                                                 WINDOWS _6AZ0XITPI1418425047    !  0  =  J                                                           WINDOWS _6B30O6IE61418425605؎                    
                                               WINDOWS _6B30O6IE71418425047        Ĕ  є  ޔ                                                           COMMENT RESERVED                                q                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 579
Width = 541
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Neuen Speicherort festlegen"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     	IPROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS hsxxxx
FOR hsa = 1 TO 100
	DO case
		CASE hsa < 10
			hssuffix = "00" + ALLTRIM(STR(hsa,3,0))
		CASE hsa < 100
			hssuffix = "0" + ALLTRIM(STR(hsa,3,0))		
		OTHERWISE
			hssuffix = ALLTRIM(STR(hsa,3,0))
	endcase
	checkname = "check"+ALLTRIM(STR(hsa,3,0))
	thisform.&checkname..value = 0
	thisform.&checkname..caption = "User" + hssuffix
	thisform.&checkname..enabled = .f.
NEXT

TEXT TO hshelptext noshow

ALLGEMEINES zuerst:
A1) Es darf niemand sonst im PC-Gehalt arbeiten!
A2) Der zuknftige Speicherort muss VORHER angelegt sein.
A3) Es werden, in diesen Speicherort, die Ordner IMAGES, TARIFE und TEXTE
   kopiert, sofern sie noch nicht vorhanden sind.
A4) Nachdem der vorherige Speicherort ausgewhlt wurde, prft das
   Programm, welche USER-Ordner dort vorhanden sind, und hakt
   diese User auch an.   
   Es werden nur die USER-Ordner bertragen, die angehakt sind,   
   und die am neuen Speicherort NICHT vorhanden sind.
   Die Daten am vorherigen Speicherort bleiben bestehen!
A5) Nach der bertragung trgt das Programm den neuen Speicherort
   in der User-Verwaltung fr die angehakten USER ein.
A6) PC-Gehalt wird vollstnding beendet, sobald Sie diese Maske
   schlieen, sofern eine bertragung stattgefunden hat.

VORGEHENSWEISE:
V1) Klicken Sie auf den Button (1) vorheriges Verzeichnis auswhlen)
    (Siehe auch Punkt A4 oben)
V2) Klicken Sie auf den Button (2) zuknftiges Verzeichnis auswhlen)
V3) Prfen Sie die angehakten USER, und entfernen Sie diejenigen,
    die Sie NICHT bertragen wollen.
V4) Starten Sie die bertragung indem Sie den Button :
    (angehakte Verzeichnisse an den neuen Speicherort betragen)
    anklicken.
V5) Warten Sie bis dieser Button BERTRAGUNG BEENDET! anzeigt:
V6) Beenden Sie PC-Gehalt durch anklicken des letzten Buttons.
ENDTEXT

thisform.edit1.Value = hshelptext

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     
\    C
  C
                        2   %   0	      	  >   ^	            U    B    U  THISFORM TAG  C     U  THISFORM SIZER	 FRMRESIZE 4    (dE
 H+    

Y  T  00CC  Z  d
  T  0CC  Z 2  T CC  Z   T  checkCC  Z" thisform.&checkname..value = 0
4 thisform.&checkname..caption = "User" + hssuffix
& thisform.&checkname..enabled = .f.
 	 M(      ALLGEMEINES zuerst:6 0 A1) Es darf niemand sonst im PC-Gehalt arbeiten!? 9 A2) Der zuknftige Speicherort muss VORHER angelegt sein.O I A3) Es werden, in diesen Speicherort, die Ordner IMAGES, TARIFE und TEXTE7 1    kopiert, sofern sie noch nicht vorhanden sind.G A A4) Nachdem der vorherige Speicherort ausgewhlt wurde, prft dasC =    Programm, welche USER-Ordner dort vorhanden sind, und hakt     diese User auch an.   H B    Es werden nur die USER-Ordner bertragen, die angehakt sind,   ; 5    und die am neuen Speicherort NICHT vorhanden sind.> 8    Die Daten am vorherigen Speicherort bleiben bestehen!G A A5) Nach der bertragung trgt das Programm den neuen Speicherort< 6    in der User-Verwaltung fr die angehakten USER ein.E ? A6) PC-Gehalt wird vollstnding beendet, sobald Sie diese Maske> 8    schlieen, sofern eine bertragung stattgefunden hat.     VORGEHENSWEISE:J D V1) Klicken Sie auf den Button (1) vorheriges Verzeichnis auswhlen)$      (Siehe auch Punkt A4 oben)K E V2) Klicken Sie auf den Button (2) zuknftiges Verzeichnis auswhlen)G A V3) Prfen Sie die angehakten USER, und entfernen Sie diejenigen,* $     die Sie NICHT bertragen wollen.< 6 V4) Starten Sie die bertragung indem Sie den Button :F @     (angehakte Verzeichnisse an den neuen Speicherort betragen)      anklicken.D > V5) Warten Sie bis dieser Button BERTRAGUNG BEENDET! anzeigt:D > V6) Beenden Sie PC-Gehalt durch anklicken des letzten Buttons.  T     %  	 
  T C
   	 T 
 T  
   
  T    	   T    	  
    T  a U  HSXXXX HSA HSSUFFIX	 CHECKNAME
 HSHELPTEXT THISFORM EDIT1 VALUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Unload,      ResizeN      Init     1  2 2 q q  qA !AaA  a aqq1qQa QAqaAAAA 2  A    2                       %         B   \         w   >	      )   C
                        shape      shape      Shape2      FORM1      TTop = 150
Left = 6
Height = 366
Width = 529
SpecialEffect = 0
Name = "Shape2"
      shape      shape      Shape1      FORM1      STop = 118
Left = 6
Height = 30
Width = 452
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      Command3      FORM1      rTop = 4
Left = 6
Height = 31
Width = 330
Caption = "1.) vorheriges Verzeichnis auswhlen"
Name = "Command3"
     PROCEDURE Click
thisform.text1.value = myGETdir("...","alten Speicherort whlen")

IF EMPTY(thisform.text1.value)
	hinweis("Sie mssen ein Verzeichnis auswhlen!")
	RETURN
endif

HSolddir =SYS(5)+SYS(2003) && eigdat 
hsgetdir = ALLTRIM(thisform.text1.Value)

CD "&hsgetdir"

FOR hsa = 1 TO 100
	checkname = "check"+ALLTRIM(STR(hsa,3,0))
	thisform.&checkname..value = 0
	thisform.&checkname..enabled = .f.
NEXT

hsfounddir = ADIR(dirarray,"user???.","D")

IF hsfounddir = 0
	thisform.command1.Enabled = .f.
	thisform.command2.Enabled = .f.
	CD "&HSolddir"
	hinweis("Keine Daten zum bertragen gefunden!")
ELSE
	thisform.command1.Enabled = .t.	
ENDIF

FOR hsa = 1 TO ALEN(dirarray,1)
	IF .not. "D" $ dirarray(hsa,5)
		LOOP
	endif
	checkname = "check" + ALLTRIM(STR(INT(VAL(SUBSTR(dirarray(hsa,1),5,3))),3,0))
	thisform.&checkname..enabled = .t.
	thisform.&checkname..value = 1
NEXT

CD "&HSolddir"

thisform.command1.Enabled = .t.
ENDPROC
     E    ,  ,                        o   %           "               U  5 T    C ... alten Speicherort whlen  %C     2 C% Sie mssen ein Verzeichnis auswhlen!  B  T C]C] T C     CD "&hsgetdir"
  (d@  T  checkCC  Z" thisform.&checkname..value = 0
& thisform.&checkname..enabled = .f.
 ! T	 C
  user???. D %	   T    - T  
  - CD "&HSolddir"
1 C$ Keine Daten zum bertragen gefunden!   T    a   (C
  % DC  
 
4 . 4 T  checkCCCCCC  
 \g8 Z& thisform.&checkname..enabled = .t.
" thisform.&checkname..value = 1
  CD "&HSolddir"
 T    a U  THISFORM TEXT1 VALUE MYGETDIR HINWEIS HSOLDDIR HSGETDIR HSA	 CHECKNAME
 HSFOUNDDIR DIRARRAY COMMAND1 ENABLED COMMAND2 Click,     1 QR!A A bQ"r!aA ! A A A Aa!A "1                             )   ,                        textbox      textbox      Text1      FORM1      NHeight = 24
Left = 6
ReadOnly = .T.
Top = 35
Width = 525
Name = "Text1"
      
commandbutton      
commandbutton      Command1      FORM1      Top = 61
Left = 6
Height = 31
Width = 330
Caption = "2.) zuknftiges Verzeichnis auswhlen"
Enabled = .F.
Name = "Command1"
     =PROCEDURE Click
thisform.text2.value = myGETdir("...","neuen Speicherort whlen")

IF EMPTY(thisform.text2.value)
	hinweis("Sie mssen ein Verzeichnis auswhlen!")
	RETURN
ENDIF

IF .not. EMPTY(thisform.text1.Value) .and. .not. EMPTY(thisform.text2.Value)
	thisform.command2.Enabled = .t.
ENDIF

ENDPROC
                                   r   %   7      Z  
   F            U   5 T    C ... neuen Speicherort whlen  %C     2 C% Sie mssen ein Verzeichnis auswhlen!  B & %C    

 C    
	  T    a  U  THISFORM TEXT2 VALUE MYGETDIR HINWEIS TEXT1 COMMAND2 ENABLED Click,     1 QR!A A bA 2                       2      )                           textbox      textbox      Text2      FORM1      NHeight = 24
Left = 6
ReadOnly = .T.
Top = 92
Width = 525
Name = "Text2"
      label      label      Label1      FORM1      zCaption = "Kopiert werden die folgenden Verzeichnisse:"
Height = 18
Left = 16
Top = 125
Width = 252
Name = "Label1"
      checkbox      checkbox      images      FORM1      ~Top = 121
Left = 265
Height = 25
Width = 72
Alignment = 0
Caption = "Images"
Value = 1
Enabled = .F.
Name = "images"
      checkbox      checkbox      tarife      FORM1      ~Top = 121
Left = 337
Height = 25
Width = 66
Alignment = 0
Caption = "Tarife"
Value = 1
Enabled = .F.
Name = "tarife"
      checkbox      checkbox      texte      FORM1      |Top = 121
Left = 402
Height = 25
Width = 55
Alignment = 0
Caption = "Texte"
Value = 1
Enabled = .F.
Name = "texte"
      label      label      Label2      FORM1      Caption = "Gefunden wurden die folgenden USER-Verzeichnisse:"
Height = 18
Left = 10
Top = 152
Width = 518
Name = "Label2"
      checkbox      checkbox      Check1      FORM1      }Top = 170
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check1"
      checkbox      checkbox      Check2      FORM1      }Top = 187
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check2"
      checkbox      checkbox      Check3      FORM1      }Top = 204
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check3"
      checkbox      checkbox      Check4      FORM1      }Top = 221
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check4"
      checkbox      checkbox      Check5      FORM1      }Top = 238
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check5"
      checkbox      checkbox      Check6      FORM1      }Top = 255
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check6"
      checkbox      checkbox      Check7      FORM1      }Top = 272
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check7"
      checkbox      checkbox      Check8      FORM1      }Top = 289
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check8"
      checkbox      checkbox      Check9      FORM1      }Top = 306
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check9"
      checkbox      checkbox      Check10      FORM1      ~Top = 323
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check10"
      checkbox      checkbox      Check11      FORM1      ~Top = 340
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check11"
      checkbox      checkbox      Check12      FORM1      ~Top = 357
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check12"
      checkbox      checkbox      Check13      FORM1      ~Top = 374
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check13"
      checkbox      checkbox      Check14      FORM1      ~Top = 391
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check14"
      checkbox      checkbox      Check15      FORM1      ~Top = 408
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check15"
      checkbox      checkbox      Check16      FORM1      ~Top = 425
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check16"
      checkbox      checkbox      Check17      FORM1      ~Top = 442
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check17"
      checkbox      checkbox      Check18      FORM1      ~Top = 459
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check18"
      checkbox      checkbox      Check19      FORM1      ~Top = 476
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check19"
      checkbox      checkbox      Check20      FORM1      ~Top = 493
Left = 12
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check20"
      checkbox      checkbox      Check21      FORM1      Top = 168
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check21"
      checkbox      checkbox      Check22      FORM1      Top = 185
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check22"
      checkbox      checkbox      Check23      FORM1      Top = 202
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check23"
      checkbox      checkbox      Check24      FORM1      Top = 219
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check24"
      checkbox      checkbox      Check25      FORM1      Top = 236
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check25"
      checkbox      checkbox      Check26      FORM1      Top = 255
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check26"
      checkbox      checkbox      Check27      FORM1      Top = 272
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check27"
      checkbox      checkbox      Check28      FORM1      Top = 289
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check28"
      checkbox      checkbox      Check29      FORM1      Top = 306
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check29"
      checkbox      checkbox      Check30      FORM1      Top = 323
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check30"
      checkbox      checkbox      Check31      FORM1      Top = 340
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check31"
      checkbox      checkbox      Check32      FORM1      Top = 357
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check32"
      checkbox      checkbox      Check33      FORM1      Top = 374
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check33"
      checkbox      checkbox      Check34      FORM1      Top = 391
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check34"
      checkbox      checkbox      Check35      FORM1      Top = 408
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check35"
      checkbox      checkbox      Check36      FORM1      Top = 425
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check36"
      checkbox      checkbox      Check37      FORM1      Top = 442
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check37"
      checkbox      checkbox      Check38      FORM1      Top = 459
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check38"
      checkbox      checkbox      Check39      FORM1      Top = 476
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check39"
      checkbox      checkbox      Check40      FORM1      Top = 493
Left = 117
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check40"
      checkbox      checkbox      Check41      FORM1      Top = 170
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check41"
      checkbox      checkbox      Check42      FORM1      Top = 187
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check42"
      checkbox      checkbox      Check43      FORM1      Top = 204
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check43"
      checkbox      checkbox      Check44      FORM1      Top = 221
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check44"
      checkbox      checkbox      Check45      FORM1      Top = 238
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check45"
      checkbox      checkbox      Check46      FORM1      Top = 255
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check46"
      checkbox      checkbox      Check47      FORM1      Top = 272
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check47"
      checkbox      checkbox      Check48      FORM1      Top = 289
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check48"
      checkbox      checkbox      Check49      FORM1      Top = 306
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check49"
      checkbox      checkbox      Check50      FORM1      Top = 323
Left = 227
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check50"
      checkbox      checkbox      Check51      FORM1      Top = 340
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check51"
      checkbox      checkbox      Check52      FORM1      Top = 357
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check52"
      checkbox      checkbox      Check53      FORM1      Top = 374
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check53"
      checkbox      checkbox      Check54      FORM1      Top = 391
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check54"
      checkbox      checkbox      Check55      FORM1      Top = 408
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check55"
      checkbox      checkbox      Check56      FORM1      Top = 425
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check56"
      checkbox      checkbox      Check57      FORM1      Top = 442
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check57"
      checkbox      checkbox      Check58      FORM1      Top = 459
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check58"
      checkbox      checkbox      Check59      FORM1      Top = 476
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check59"
      checkbox      checkbox      Check60      FORM1      Top = 493
Left = 228
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check60"
      checkbox      checkbox      Check61      FORM1      Top = 170
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check61"
      checkbox      checkbox      Check62      FORM1      Top = 187
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check62"
      checkbox      checkbox      Check63      FORM1      Top = 204
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check63"
      checkbox      checkbox      Check64      FORM1      Top = 221
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check64"
      checkbox      checkbox      Check65      FORM1      Top = 238
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check65"
      checkbox      checkbox      Check66      FORM1      Top = 255
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check66"
      checkbox      checkbox      Check67      FORM1      Top = 272
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check67"
      checkbox      checkbox      Check68      FORM1      Top = 289
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check68"
      checkbox      checkbox      Check69      FORM1      Top = 306
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check69"
      checkbox      checkbox      Check70      FORM1      Top = 323
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check70"
      checkbox      checkbox      Check71      FORM1      Top = 340
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check71"
      checkbox      checkbox      Check72      FORM1      Top = 357
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check72"
      checkbox      checkbox      Check73      FORM1      Top = 374
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check73"
      checkbox      checkbox      Check74      FORM1      Top = 391
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check74"
      checkbox      checkbox      Check75      FORM1      Top = 408
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check75"
      checkbox      checkbox      Check76      FORM1      Top = 425
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check76"
      checkbox      checkbox      Check77      FORM1      Top = 442
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check77"
      checkbox      checkbox      Check78      FORM1      Top = 459
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check78"
      checkbox      checkbox      Check79      FORM1      Top = 476
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check79"
      checkbox      checkbox      Check80      FORM1      Top = 493
Left = 338
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check80"
      checkbox      checkbox      Check81      FORM1      Top = 170
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check81"
      checkbox      checkbox      Check82      FORM1      Top = 187
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check82"
      checkbox      checkbox      Check83      FORM1      Top = 204
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check83"
      checkbox      checkbox      Check84      FORM1      Top = 221
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check84"
      checkbox      checkbox      Check85      FORM1      Top = 238
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check85"
      checkbox      checkbox      Check86      FORM1      Top = 255
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check86"
      checkbox      checkbox      Check87      FORM1      Top = 272
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check87"
      checkbox      checkbox      Check88      FORM1      Top = 289
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check88"
      checkbox      checkbox      Check89      FORM1      Top = 306
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check89"
      checkbox      checkbox      Check90      FORM1      Top = 323
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check90"
      checkbox      checkbox      Check91      FORM1      Top = 340
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check91"
      checkbox      checkbox      Check92      FORM1      Top = 357
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check92"
      checkbox      checkbox      Check93      FORM1      Top = 374
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check93"
      checkbox      checkbox      Check94      FORM1      Top = 391
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check94"
      checkbox      checkbox      Check95      FORM1      Top = 408
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check95"
      checkbox      checkbox      Check96      FORM1      Top = 425
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check96"
      checkbox      checkbox      Check97      FORM1      Top = 442
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check97"
      checkbox      checkbox      Check98      FORM1      Top = 459
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check98"
      checkbox      checkbox      Check99      FORM1      Top = 476
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check99"
      checkbox      checkbox      Check100      FORM1      Top = 493
Left = 446
Height = 18
Width = 71
Alignment = 0
Caption = "check1"
Value = 0
Enabled = .F.
Name = "Check100"
      
commandbutton      
commandbutton      Command2      FORM1      Top = 519
Left = 15
Height = 28
Width = 511
Caption = "angehakte Verzeichnisse an den neuen Speicherort bertragen"
Enabled = .F.
Name = "Command2"
     	PROCEDURE Click
If .Not. OK("Soll die betragung gestartet werden?")
	hinweis("Vorgang wurde abgebrochen!")
	Return
Endif

msg1 = Alltrim(Thisform.text1.Value)
msg2 = Alltrim(Thisform.text2.Value)

Thisform.command1.Enabled = .F.
Thisform.command2.Enabled = .F.
Thisform.command3.Enabled = .F.
Thisform.command4.Enabled = .F.

FOR hsa = 1 TO 100
	checkname = "check"+ALLTRIM(STR(hsa,3,0))
	thisform.&checkname..enabled = .f.
NEXT

Wait Window "Verzeichnisse werden bertragen......" Nowait

myclose(0)

HSolddir = Sys(5)+Sys(2003)

Cd "&msg2"

If DirExist(msg2 + "Texte") = False
	hsxdir = msg2 + "Texte"
	Mkdir "&hsxdir"
	Thisform.command2.Caption = "Texte werden bertragen ...."
	msg1_c = msg1 + "Texte\*.*"
	msg2_c = msg2 + "Texte\*.*"

	Copy File "&msg1_c" To "&msg2_c"
Endif

If DirExist(msg2 + "Tarife") = False
	hsxdir = msg2 + "Tarife"
	Mkdir "&hsxdir"
	Thisform.command2.Caption = "Tarife werden bertragen ...."
	msg1_c = msg1 + "Tarife\*.*"
	msg2_c = msg2 + "Tarife\*.*"

	Copy File "&msg1_c" To "&msg2_c"
Endif

If DirExist(msg2 + "Images") = False
	hsxdir = msg2 + "Images"
	Mkdir "&hsxdir"
	Thisform.command2.Caption = "Images werden bertragen ...."
	msg1_c = msg1 + "Images\*.*"
	msg2_c = msg2 + "Images\*.*"

	Copy File "&msg1_c" To "&msg2_c"
Endif

For hsa = 1 To 100
	hscheck = "check"+Alltrim(Str(hsa,3,0))
	If Empty(Thisform.&hscheck..Value)
		Loop
	Endif

	hsxusername = Alltrim(Thisform.&hscheck..Caption)

	If DirExist(msg2 + hsxusername) = False
		hsxdir = msg2 + hsxusername
		Mkdir "&hsxdir"
		Thisform.command2.Caption = hsxusername + " wird bertragen ...."
		msg1_c = msg1 + hsxusername + "\*.*"
		msg2_c = msg2 + hsxusername + "\*.*"

		Copy File "&msg1_c" To "&msg2_c"
	Endif
NEXT

Thisform.command2.Caption = "Neues Verzeichnis wird beim User eingetragen ...."

*pfad in PCG_f2
myOpen(eigdatfix + "\gehalt"+Substr(xjahr4,3,2)+"sr", 200, "userdaten") &&15.sr
Select 200
hsxdatname = Alias()

msg2 = Substr(msg2,1,Len(msg2)-1)
For hsa = 1 To 100
	hscheck = "check"+Alltrim(Str(hsa,3,0))
	If Empty(Thisform.&hscheck..Value)
		Loop
	Endif

	hsxusername = Alltrim(Thisform.&hscheck..Caption)
	hsxnr = Int(Val(Substr(hsxusername,5,3)))
	Goto hsxnr

	Replace &hsxdatname..pcg_f2 With msg2
	Flush

Next

myclose("200")

Thisform.command2.Caption = "BERTRAGUNG BEENDET!"

Wait Clear

Cd "&HSolddir"
Thisform.command4.Caption = "PC-Gehalt wird geschlossen! Bitte neu starten."
thisform.command4.Enabled = .t.


ENDPROC
     
     	  	                        *   %         	  Q               U  7 %C% Soll die betragung gestartet werden?  
b ' C Vorgang wurde abgebrochen!  B  T C    T C    T  	 - T 
 	 - T  	 - T  	 - 
 (d1  T  checkCC
  Z& thisform.&checkname..enabled = .f.
 0 R,:% Verzeichnisse werden bertragen......
 C   T C]C] Cd "&msg2"
 %C  Texte  d T   Texte Mkdir "&hsxdir"
/ T 
   Texte werden bertragen .... T  	 Texte\*.* T  	 Texte\*.*$ Copy File "&msg1_c" To "&msg2_c"
  %C  Tarife  ; T   Tarife Mkdir "&hsxdir"
0 T 
   Tarife werden bertragen .... T  
 Tarife\*.* T  
 Tarife\*.*$ Copy File "&msg1_c" To "&msg2_c"
  %C  Images   T   Images Mkdir "&hsxdir"
0 T 
   Images werden bertragen .... T  
 Images\*.* T  
 Images\*.*$ Copy File "&msg1_c" To "&msg2_c"
  
 (dw  T  checkCC
  Z* If Empty(Thisform.&hscheck..Value){ . 5 hsxusername = Alltrim(Thisform.&hscheck..Caption)
 %C    s T    Mkdir "&hsxdir"
, T 
     wird bertragen .... T    \*.* T    \*.*$ Copy File "&msg1_c" To "&msg2_c"
  D T 
  1 Neues Verzeichnis wird beim User eingetragen ....9 C  \gehaltC \ sr	 userdaten  F  T C T C C >\ 
 (d  T  checkCC
  Z* If Empty(Thisform.&hscheck..Value) . 5 hsxusername = Alltrim(Thisform.&hscheck..Caption)
 T CCC \g8	 # ) Replace &hsxdatname..pcg_f2 With msg2
 [  C 200 ' T 
   BERTRAGUNG BEENDET! R Cd "&HSolddir"
A T   . PC-Gehalt wird geschlossen! Bitte neu starten. T  	 a U  OK HINWEIS MSG1 THISFORM TEXT1 VALUE MSG2 TEXT2 COMMAND1 ENABLED COMMAND2 COMMAND3 COMMAND4 HSA	 CHECKNAME MYCLOSE HSOLDDIR DIREXIST FALSE HSXDIR CAPTION MSG1_C MSG2_C HSCHECK HSXUSERNAME MYOPEN	 EIGDATFIX XJAHR4
 HSXDATNAME HSXNR Click,     1 qqA A RQraA  b a1BA q1BA q1BA rA A R1BA A B  qA A R A B rR "3                       	      )   	                        
commandbutton      
commandbutton      Command4      FORM1      ZTop = 547
Left = 15
Height = 28
Width = 511
Caption = "schlieen"
Name = "Command4"
      PROCEDURE Click
IF Thisform.command4.Caption = "PC-Gehalt wird geschlossen! Bitte neu starten."
	thisform.tag = "quit"
ELSE
	thisform.Tag = "OK"
ENDIF
thisform.release
ENDPROC
     `    G  G                        ґ   %                             U   E %    . PC-Gehalt wird geschlossen! Bitte neu starten.Y  T    quit s  T    OK 
     U  THISFORM COMMAND4 CAPTION TAG RELEASE Click,     1 QA !A  1                              )   G                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 560
Left = 521
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command5      FORM1      [Top = 4
Left = 437
Height = 31
Width = 94
Caption = "Hilfe ffnen"
Name = "Command5"
     PROCEDURE Click
IF thisform.edit1.Visible = .t.
	thisform.edit1.Visible = .f.
	thisform.command5.Caption = "Hilfe ffnen"
	IF .not. EMPTY(thisform.text1.Value)
		thisform.command1.Enabled = .t.
	ENDIF		
	thisform.command3.Enabled = .t.
	thisform.command4.Enabled = .t.
	IF .not. EMPTY(thisform.text1.Value) .and. .not. EMPTY(thisform.text2.Value)
		thisform.command2.Enabled = .t.
	ENDIF		
ELSE
	thisform.edit1.Visible = .t.
	thisform.command5.Caption = "Hilfe schlieen"
	thisform.command1.Enabled = .f.
	thisform.command3.Enabled = .f.
	thisform.command4.Enabled = .f.
	thisform.command2.Enabled = .f.
ENDIF


ENDPROC
         x  x                        ˜   %         /                 U  S %    a  T    - T     Hilfe ffnen %C    
l  T    a  T  	  a T  
  a& %C    

 C    
	  T    a  L T    a" T     Hilfe schlieen T    - T  	  - T  
  - T    -  U
  THISFORM EDIT1 VISIBLE COMMAND5 CAPTION TEXT1 VALUE COMMAND1 ENABLED COMMAND3 COMMAND4 TEXT2 COMMAND2 Click,     1 QaA aA  !A 3                       x      )   x                        editbox      editbox      Edit1      FORM1      BorderStyle = 1
Height = 402
Left = 6
ReadOnly = .T.
Top = 117
Visible = .F.
Width = 528
DisabledForeColor = 0,0,0
Name = "Edit1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6BY0WCQXJ1420838345      /  F      ]        B              M      V                       WINDOWS _6BY0WCQXL1456495604_      k  w            j  (                                               WINDOWS _6BY0WCQXV1420838345          ,  9        =                                               WINDOWS _6BY0WCQXW1420838345A      V  k  {        <                                                 WINDOWS _6BY0WCQXX1456495566                    -                                               WINDOWS _6BY0WCQXY1420643985[      h  u                                                               WINDOWS _6BY0WCQXZ1420643985            %                                                           WINDOWS _6BY0WCQY01420643985                                                                       WINDOWS _6BY0WCQY11456495604N      c  x          '  "                                               WINDOWS _6BY0WCQY21456495514I      ^  s          (                                                  WINDOWS _6BZ0L3VHK1420643985"  "  "  #  #  "#                                                           WINDOWS _6BY0WCQXJ1420714634#      #  #  #  #                                                           WINDOWS _6BY0WKEQ41420714634w&      &  &  &  &                                                           WINDOWS _6BY0WCQXL1420714634&      '  '  #'  F'                                                           WINDOWS _6BY0WCQXV1420714634'      '  '  '  (                                                           WINDOWS _6BY0WCQXW1420714634:(      I(  X(  e(  (                                                           WINDOWS _6BY0WCQXX1420714634(      )  )  $)  G)                                                           WINDOWS _6BY0WCQXY1420714634z)      )  )  )  )                                                           WINDOWS _6BY0WCQXZ14207146349*      G*  U*  d*  *                                                           WINDOWS _6BY0WCQY01420714634*      *  *  *  +                                                           COMMENT RESERVED                                w+                                                            +                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      vPROCEDURE BeforeOpenTables
SELECT 0
USE eigdat + "\tarife\mietstufen" SHARED
SELECT mietstufen
GO top

ENDPROC
                                     (   %   {                          U  7  F    Q   \tarife\mietstufen F  #) U  EIGDAT
 MIETSTUFEN BeforeOpenTables,     1  q Q 2                       k       )                            1      1      form      form      FORM1      Height = 557
Width = 683
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Mietstufen per Gemeinde auswhlen"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Init
SELECT mietstufen
IF thisform.Top < 0
	thisform.Top = 0
endif

*myatzgrid_tag = .t.

*thisform.grdatzAgrid.SetAll("dynamicbackcolor","gridcolor_atzAansicht()","Column")

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 12 > thisform.grdmietstufen.width
	thisform.grdmietstufen.width = thisform.width -12
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  157 / 668
prozsp2 =  345 / 668
prozsp3 =  75 / 668
prozsp4 =  57 / 668

thisform.grdmietstufen.Width = thisform.Width - 14

grdbreite = thisform.grdmietstufen.Width 
thisform.grdmietstufen.column1.Width = grdbreite * prozsp1
thisform.grdmietstufen.column2.Width = grdbreite * prozsp2
thisform.grdmietstufen.column3.Width = grdbreite * prozsp3
thisform.grdmietstufen.column4.Width = grdbreite * prozsp4

thisform.grdmietstufen.column1.text1.fontsize = thisform.grdmietstufen.column1.fontsize
thisform.grdmietstufen.column2.text1.fontsize = thisform.grdmietstufen.column1.fontsize
thisform.grdmietstufen.column3.text1.fontsize = thisform.grdmietstufen.column1.fontsize
thisform.grdmietstufen.column4.text1.fontsize = thisform.grdmietstufen.column1.fontsize




ENDPROC
                                   h   %         @  "               U    B    U  THISFORM TAGw  F   %   
+  T    
     T      T     
    U	 
 MIETSTUFEN THISFORM TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE C     %       H  T        " %          ~  T     T  :2	v? T	  J? T
  2	v? T  X$ص? T        T      T   
     T      	  T      
  T       " T   
      
  " T         
  " T         
  " T         
   U  THISFORM SIZER	 FRMRESIZE WIDTH
 GRDMIETSTUFEN TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2 PROZSP3 PROZSP4	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 TEXT1 FONTSIZE Unload,      InitN      Resize!    1  2 q AA  rq 2 A "A baaa2"!!!5                       %         @                   )                           
commandbutton      
commandbutton      Command1      FORM1      Top = 509
Left = 607
Height = 28
Width = 67
Caption = "abbrechen"
ToolTipText = "Schliet diese Ansicht OHNE etwas zu ndern."
Name = "Command1"
      \PROCEDURE Click
thisform.Tag = "nix"
SELECT mietstufen
use
thisform.release

ENDPROC
                                         %                             U  +  T    nix F  Q
     U  THISFORM TAG
 MIETSTUFEN RELEASE Click,     1 1q A  2                       Q       )                            
commandbutton      
commandbutton      Command2      FORM1      Top = 509
Left = 514
Height = 28
Width = 87
Caption = "bernehmen"
ToolTipText = "bertrgt die ausgewhlte Mietstufe und schliet diese Ansicht."
Name = "Command2"
      yPROCEDURE Click
thisform.Tag = "I:" + ALLTRIM(mietstufen.mietstufe)
SELECT mietstufen
use
thisform.release
ENDPROC
                                     r   %                             U  3  T    I:C   F  Q
     U  THISFORM TAG
 MIETSTUFEN	 MIETSTUFE RELEASE Click,     1 q A  1                       n       )                            textbox      textbox      Text1      FORM1      Height = 22
Left = 85
ToolTipText = "Gesuchten Gemeindenamen eingeben und SUCHEN anklicken."
Top = 500
Width = 346
Name = "Text1"
      PROCEDURE Valid
IF EMPTY(this.Value)
	SELECT mietstufen
	SET FILTER TO 
	thisform.grdmietstufen.Refresh
ENDIF
RETURN .t.
ENDPROC
     &    
  
                            %                             U  :  %C   ,  F  G(
      Ba U  THIS VALUE
 MIETSTUFEN THISFORM
 GRDMIETSTUFEN REFRESH Valid,     1 !q a  A q 1                       ~       )   
                        label      label      Label1      FORM1      UCaption = "Ortsname"
Height = 16
Left = 6
Top = 503
Width = 70
Name = "Label1"
      textbox      textbox      Text2      FORM1      Height = 22
Left = 85
ToolTipText = "Gesuchte Gemeinde-Kennziffer eingeben und SUCHEN anklicken."
Top = 527
Width = 346
Name = "Text2"
      label      label      Label2      FORM1      WCaption = "Gem.Kennz."
Height = 16
Left = 6
Top = 530
Width = 70
Name = "Label2"
      
commandbutton      
commandbutton      Command3      FORM1      Top = 500
Left = 441
Height = 22
Width = 55
Caption = "suchen"
ToolTipText = "Suche nach Gemeindenamen starten."
Name = "Command3"
     PROCEDURE Click
SELECT mietstufen
IF EMPTY(thisform.text1.Value)
	SET FILTER TO
	GO top
	thisform.grdmietstufen.refresh
	hinweis("Sie mssen einen Ortsnamen eingeben!")
	RETURN
endif
SELECT mietstufen

SET FILTER TO upper(ALLTRIM(thisform.text1.Value)) $ upper(mietstufen.ortsname) 
GO top
IF .not. EOF() &&FOUND()
	thisform.grdmietstufen.setfocus
	thisform.grdmietstufen.refresh
ELSE
	WAIT WINDOW ALLTRIM(thisform.text1.Value) + " wurde nicht gefunden!" TIMEOUT 1
endif
ENDPROC
                                      %                          U    F   %C   i  G( #)
    1 C$ Sie mssen einen Ortsnamen eingeben!  B  F   G(CC   fC   f #)
 %C+
 
    
      2 R,C     wurde nicht gefunden!  U	 
 MIETSTUFEN THISFORM TEXT1 VALUE
 GRDMIETSTUFEN REFRESH HINWEIS ORTSNAME SETFOCUS Click,     1 q Qa Q  A A q Q     !A 1                             )                           
commandbutton      
commandbutton      Command4      FORM1      Top = 527
Left = 441
Height = 22
Width = 55
Caption = "suchen"
ToolTipText = "Suche nach Gemeinde-Kennziffer starten."
Name = "Command4"
     PROCEDURE Click
IF EMPTY(thisform.text2.Value)
	hinweis("Sie mssen eine Gemeinde-Kennziffer eingeben!")
	RETURN
endif
SELECT mietstufen
SET FILTER TO 
LOCATE FOR ALLTRIM(thisform.text2.Value) $ mietstufen.gemkennz
IF FOUND()
	thisform.grdmietstufen.setfocus
	thisform.grdmietstufen.refresh
ELSE
	WAIT WINDOW ALLTRIM(thisform.text2.Value) + " wurde nicht gefunden!" TIMEOUT 1
endif
ENDPROC
                                      %   m           |            U    %C    S : C- Sie mssen eine Gemeinde-Kennziffer eingeben!  B  F  G( -C       %C4 
     
       2 R,C      wurde nicht gefunden!  U	  THISFORM TEXT2 VALUE HINWEIS
 MIETSTUFEN GEMKENNZ
 GRDMIETSTUFEN SETFOCUS REFRESH Click,     1 QA A q a     !A 1                             )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 534
Left = 666
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      grid      grid      
grdMietstufen      FORM1     ColumnCount = 4
DeleteMark = .F.
Height = 480
Left = 9
ReadOnly = .T.
RecordSource = "mietstufen"
RecordSourceType = 1
Top = 9
Width = 668
Name = "grdMietstufen"
Column1.ControlSource = "mietstufen.bundesland"
Column1.Width = 157
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "mietstufen.ortsname"
Column2.Width = 345
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "mietstufen.gemkennz"
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.ControlSource = "mietstufen.mietstufe"
Column4.Width = 57
Column4.ReadOnly = .T.
Column4.Name = "Column4"
      header      header      Header1      FORM1.grdMietstufen.Column1      +Caption = " Bundesland"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdMietstufen.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdMietstufen.Column2      -Caption = " Gemeindename"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdMietstufen.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdMietstufen.Column3      +Caption = " Gem.Kennz."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdMietstufen.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdMietstufen.Column4      )Caption = "Mietstufe"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdMietstufen.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6CZ11P6TR1423084689      /  F      ]                      E      N                       WINDOWS _6CZ11P6TT1478982770W      c  o      |      D  C,                                               WINDOWS _6CZ11P6TU1423084689y=  =  =  =  =  =                                                           WINDOWS _6CZ11P6TV1423087035`>      u>  >  >  >      ?  N?                                               WINDOWS _6CZ11P6TW1423086990@      2@  G@  W@  d@      @  A                                               WINDOWS _6CZ11P6TX1423084689
B      B  4B  DB  QB      B  C                                               WINDOWS _6CZ11P6TY1423088424C      C  D  D  *D      4H  
J                                               WINDOWS _6CZ11P6TZ1423084689.L      <L  JL  YL  ~L                                                           WINDOWS _6CZ11P6U01423084689L      L  L  L  L                                                           WINDOWS _6CZ11P6U11423084689{M      M  M  M  M                                                           WINDOWS _6CZ11P6U21423084689N       N  /N  <N  aN                                                           WINDOWS _6CZ11P6U31423084689N      N  N  O  1O                                                           WINDOWS _6CZ11P6U41423084689}O      O  O  O  O                                                           WINDOWS _6CZ11P6U51423084689MP      [P  iP  xP  P                                                           WINDOWS _6CZ11P6U61423084689P      P  P  	Q  .Q                                                           WINDOWS _6CZ11P6U71423084689Q      Q  Q  Q  Q                                                           WINDOWS _6CZ11P6U81423084689BR      QR  `R  mR  R                                                           WINDOWS _6CZ11P6U91423084689S       S  .S  =S  bS                                                           WINDOWS _6CZ11P6UA1423084689S      S  S  S  S                                                           COMMENT RESERVED                                vT                                                            T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR lstausgleich (f1 C(50), f2 N(10,2), f3 N(10,2), f4 N(10,2), f5 N(10,2), f6 N(10,2))
SELECT lstausgleich
FOR hsa = 1 TO 18
	APPEND BLANK
	FLUSH
NEXT

ENDPROC
                                      %         @     0            U    h lstausgleich  C2  N
  N
  N
  N
  N
 F    (   [  U  LSTAUSGLEICH F1 F2 F3 F4 F5 F6 HSA BeforeOpenTables,     1 q qQ A A 2                              )                           1      1      form      form      FORM1      Height = 542
Width = 829
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Jahresausgleich des Arbeitgebers"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     %PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.Height - 36 > thisform.grdlstausgleich.Height
	thisform.grdlstausgleich.Height = thisform.Height - 36 - 5
ENDIF

IF thisform.width - 16 > thisform.grdlstausgleich.width
	thisform.grdlstausgleich.width = thisform.width - 16
ENDIF


prozsp1 =  226 / 829
prozsp2 =  114 / 829

thisform.grdlstausgleich.Width = thisform.Width - 16

grdbreite = thisform.grdlstausgleich.Width 
thisform.grdlstausgleich.column1.Width = grdbreite * prozsp1

FOR hsa = 2 TO 6
	xxx = "column" + ALLTRIM(STR(hsa,2,0))
	thisform.grdlstausgleich.&xxx..Width = grdbreite * prozsp2
NEXT
thisform.grdlstausgleich.column1.text1.fontsize = thisform.grdlstausgleich.column6.fontsize
thisform.grdlstausgleich.column2.text1.fontsize = thisform.grdlstausgleich.column6.fontsize
thisform.grdlstausgleich.column3.text1.fontsize = thisform.grdlstausgleich.column6.fontsize
thisform.grdlstausgleich.column4.text1.fontsize = thisform.grdlstausgleich.column6.fontsize
thisform.grdlstausgleich.column5.text1.fontsize = thisform.grdlstausgleich.column6.fontsize
thisform.grdlstausgleich.column6.text1.fontsize = thisform.grdlstausgleich.column6.fontsize

ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif

thisform.visible = .f.
mylstausgleich = thisform &&vorher this

	k = 20 &&HS vorher mytablett.Width / 2 - 500
	Do monatladen &&Do attached
*!*		With mytablett.zeile0 
*!*			mytablett.zeile0.Top = 70
*!*			mytablett.zeile0.Left = k
*!*			mytablett.zeile0.Width = 500
*!*			mytablett.zeile0.Height = 35
*!*			mytablett.zeile0.FontSize = 12
*!*			mytablett.zeile0.FontBold = True
*!*			&&mytablett.zeile(i).BackColor = &H8000000F &&QBColor(7)
*!*			mytablett.zeile0.backcolor = mytablett.backcolor
*!*			mytablett.zeile0.Visible = True
*!*		Endwith

*!*		mytablett.zeile0.Caption = "Jahresausgleich des Arbeitgebers"

*!*		With mytablett.MSFlexGrid1
*!*			.Visible = True
*!*			.Top = 100
*!*			.Left = k
*!*			.Width = 800
*!*			.Height = 555
*!*			.Cols = 6
*!*			.Rows = 19
*!*			.FixedCols = 1
*!*			.FixedRows = 1
*!*	 
*!*			.ColWidth(0) = .Width * 0.3 * 12
*!*			.ColWidth(1) = .Width * 0.13 * 15
*!*			.ColWidth(2) = .Width * 0.165 * 15
*!*			.ColWidth(3) = .Width * 0.13 * 15
*!*			.ColWidth(4) = .Width * 0.13 * 15
*!*			.ColWidth(5) = .Width * 0.13 * 15
*!*			.Col = 0
*!*			.Row = 0
*!*			.Text = "Monat"
*!*			.Col = 1
*!*			.Text = "St.pfl. Entgelt"
*!*			.Col = 2
*!*			.Text = "+/- lt. Steuerkarte"
*!*			.Col = 3
*!*			.Text = "Lohnsteuer"
*!*			.Col = 4
*!*			.Text = "Soli.Zuschlag"
*!*			.Col = 5
*!*			.Text = "Kirchensteuer"

		sicht(1+1,1+ 12) = 0
		sicht(1+2,1+ 12) = 0
		sicht(1+3,1+ 12) = 0
		sicht(1+4,1+ 12) = 0
		sicht(1+5,1+ 12) = 0

		For i = 0 To 10
			myget(i+1, fileneu,"wvw")
			sicht(1+1,1+i) = wvw.tnam(1+27) &&Str.pfl.
			sicht(1+2,1+i) = -wvw.tnam(1+33)
			sicht(1+3,1+i) = -wvw.tnam(1+35)
			sicht(1+4,1+i) = -wvw.tnam(1+36)
			Do Case && wvw.znam(23)
				Case wvw.znam(23) = 0
					sicht(1+5,1+ i) = -wvw.tnam(1+23)
				Case wvw.znam(23) = 1
					sicht(1+5,1+ i) = wvw.tnam(1+23)
				Case wvw.znam(23) = 3
					sicht(1+5,1+ i) = 0
			Endcase
			sicht(1+1,1+ 12) = sicht(1+1,1+ 12) + myround100(sicht(1+1,1+ i),2)
			sicht(1+2,1+ 12) = sicht(1+2,1+ 12) + myround100(sicht(1+2,1+ i),2)
			sicht(1+3,1+ 12) = sicht(1+3,1+ 12) + myround100(sicht(1+3,1+ i),2)
			sicht(1+4,1+ 12) = sicht(1+4,1+ 12) + myround100(sicht(1+4,1+ i),2)
			sicht(1+5,1+ 12) = sicht(1+5,1+ 12) + myround100(sicht(1+5,1+ i),2)
		NEXT
		
		myget(12, fileneu,"wvw")

		sicht(1+1,1+ 11) = myround100(wvw.tnam(1+27),2) &&Str.pfl.
		sicht(1+1,1+ 12) = sicht(1+1,1+ 12) + myround100(sicht(1+1,1+ 11),2)
		
		If wvw.znam(23) = 0
			sicht(1+5,1+ 13) = -wvw.tnam(1+23)
		Else
			sicht(1+5,1+ 13) = wvw.tnam(1+23)
		Endif
		sicht(1+5,1+13) = myround100(sicht(1+5,1+13),2)
		
		SELECT lstausgleich

		For j = 0 To 10
			GOTO 1+j
*!*				.Row = j + 1
*!*				.Col = 0
*!*				.CellAlignment = 1
			replace lstausgleich.f1 WITH sumonattext(1+j)
*!*				.Col = 1
*!*				.CellAlignment = 7
			replace lstausgleich.f2 WITH sicht(1+1,1+ j) / 100
*!*				.Col = 2
*!*				.CellAlignment = 7
			replace lstausgleich.f3 WITH  sicht(1+5,1+ j) / 100
*!*				.Col = 3
*!*				.CellAlignment = 7
			replace lstausgleich.f4 WITH sicht(1+2,1+ j) / 100
*!*				.Col = 4
*!*				.CellAlignment = 7
			replace lstausgleich.f5 WITH sicht(1+3,1+ j) / 100
*!*				.Col = 5
*!*				.CellAlignment = 7
			replace lstausgleich.f6 WITH sicht(1+4,1+ j) / 100
			flush
		NEXT
		GOTO 12
*!*			.Row = 12
*!*			.Col = 0
*!*			.CellAlignment = 1
		replace lstausgleich.f1 WITH sumonattext(1+11)
*!*			.Col = 1
*!*			.CellAlignment = 7
		replace lstausgleich.f2 WITH sicht(1+1,1+ 11) / 100
*!*			.Col = 2
*!*			.CellAlignment = 7
		replace lstausgleich.f3 WITH sicht(1+5,1+ 13) / 100

*!*			.Row = 13
		flush
		GOTO 13
*!*			.Col = 0
*!*			.CellAlignment = 1
		replace lstausgleich.f1 WITH "Summe"
*!*			.Col = 1
*!*			.CellAlignment = 7
		replace lstausgleich.f2 WITH sicht(1+1,1+ 12) / 100
*!*			.CellBackColor = hex2rgb("&HC0FFFF")
*!*			.Col = 2
*!*			.CellAlignment = 7
		replace lstausgleich.f3 WITH (sicht(1+5,1+ 12) + sicht(1+5,1+ 13)) / 100
*!*			.CellBackColor = hex2rgb("&HC0FFFF")

*!*			.Col = 3
*!*			.CellAlignment = 7
		replace lstausgleich.f4 WITH sicht(1+2,1+ 12) / 100
*!*			.CellBackColor = hex2rgb("&HC0FFFF")
*!*			.Col = 4
*!*			.CellAlignment = 7
		replace lstausgleich.f5 WITH sicht(1+3,1+ 12) / 100
*!*			.CellBackColor = hex2rgb("&HC0FFFF")
*!*			.Col = 5
*!*			.CellAlignment = 7
		replace lstausgleich.f6 WITH sicht(1+4,1+ 12) / 100
*!*			.CellBackColor = hex2rgb("&HC0FFFF")
		flush
		GOTO 14
*!*			.Row = 14
*!*			.Col = 0
*!*			.CellAlignment = 1
		replace lstausgleich.f1 WITH "+ / - lt. Steuerkarte"

*!*			.Col = 1
*!*			.CellAlignment = 7
		replace lstausgleich.f2 WITH (sicht(1+5,1+ 12) + sicht(1+5,1+ 13)) / 100
		FLUSH
		GOTO 15
		
*!*			.Row = 15
*!*			.Col = 0
*!*			.CellAlignment = 1
		replace lstausgleich.f1 WITH "Zu verst. Entgelt"
*!*			.Col = 1
*!*			.CellAlignment = 7
		replace lstausgleich.f2 WITH (sicht(1+1,1+ 12) + sicht(1+5,1+ 12) + sicht(1+5,1+ 13)) / 100
*!*			.CellBackColor = hex2rgb("&H80FFFF")
*!*			.Col = 0
*!*			.CellAlignment = 1
*!*			.Row = 16
		FLUSH
		
		GOTO 16
		replace lstausgleich.f1 WITH "Jahressteuer lt. Tabelle"
		FLUSH
		
*!*			.Row = 17
		GOTO 17
		replace lstausgleich.f1 WITH "Ki-Steuerkappung bei " + ALLTRIM(STR(atvkistr(1+1,1+ zi(1+2)) / 10,6,2)) + " %"
		FLUSH
		
*!*			.Row = 18
		GOTO 18
		replace lstausgleich.f1 WITH "also Steuern im Dezember"
		FLUSH
		
		lzz = 1
		re4 = sicht(1+1,1+ 12) + sicht(1+5,1+ 12) + sicht(1+5,1+ 13)

		wfundf = 0
		hinzur = 0

		lzzfreib = 0
		lzzhinzu = 0

		Do steuer &&Do attached
		
		sicht(1+2,1+ 13) = lstlzz
		sicht(1+2,1+ 15) = sicht(1+2,1+ 13) - sicht(1+2,1+ 12)

		sicht(1+3,1+ 13) = solzlzz
		sicht(1+3,1+ 15) = sicht(1+3,1+ 13) - sicht(1+3,1+ 12)

		sicht(1+4,1+ 13) = Fix(bk * kistrsatz)
		sicht(1+4,1+ 15) = sicht(1+4,1+ 13) - sicht(1+4,1+ 12)

		If sicht(1+4,1+ 15) > sicht(1+1,1+ 12) * atvkistr(1+1,1+ zi(1+2)) / 1000
			sicht(1+4,1+ 15) = sicht(1+1,1+ 12) * atvkistr(1+1,1+ zi(1+2)) / 1000 - sicht(1+4,1+ 12)
		Else
		Endif

*!*			.Row = 16
		GOTO 16
*!*			.Col = 2
*!*			.CellAlignment = 7
*!*			.CellBackColor = hex2rgb("&H80FFFF")
*!*			.Col = 3
*!*			.CellAlignment = 7
		replace lstausgleich.f4 WITH sicht(1+2,1+ 13) / 100
*!*			.CellBackColor = hex2rgb("&H80FFFF")
*!*			.Col = 4
*!*			.CellAlignment = 7
		replace lstausgleich.f5 WITH sicht(1+3,1+ 13) / 100
		
*!*			.CellBackColor = hex2rgb("&H80FFFF")
*!*			.Col = 5
*!*			.CellAlignment = 7
		replace lstausgleich.f6 WITH sicht(1+4,1+ 13) / 100
*!*			.CellBackColor = hex2rgb("&H80FFFF")

*!*			.Row = 17
		GOTO 17
*!*			.Col = 5
*!*			.CellAlignment = 7
		sicht(1+4,1+ 14) = sicht(1+1,1+ 12) * atvkistr(1+1,1+ zi(1+2)) / 1000
		replace lstausgleich.f6 WITH sicht(1+4,1+ 14) / 100
		FLUSH
		
*!*			.Row = 18
*!*			.Col = 3
*!*			.CellAlignment = 7
		GOTO 18
		replace lstausgleich.f4 WITH sicht(1+2,1+ 15) / 100
*!*			.CellBackColor = QBColor(14)
*!*			.Col = 4
*!*			.CellAlignment = 7
		replace lstausgleich.f5 WITH sicht(1+3,1+ 15) / 100
*!*			.CellBackColor = QBColor(14)
*!*			.Col = 5
*!*			.CellAlignment = 7
		replace lstausgleich.f6 WITH sicht(1+4,1+ 15) / 100
*!*			.CellBackColor = QBColor(14)
		flush
*!*		Endwith

*!*		i = mytablett.MSFlexGrid1.Left
*!*		j = (mytablett.MSFlexGrid1.Width - 200) / 3
*!*		
*!*		With mytablett.SSCommand3
*!*			.Caption = "Drucken"
*!*			.Top = 10
*!*			.Left = i
*!*			.Width = j
*!*			.Height = 40
*!*			.FontSize = 10
*!*			.backcolor = mytablett.backcolor
*!*			.Visible = True
*!*		Endwith

*!*		With mytablett.SSCommand5
*!*			.Caption = "Hilfe"
*!*			.Top = 10
*!*			.Left = i + j + 100
*!*			.Width = j
*!*			.Height = 40
*!*			.FontSize = 10
*!*			.backcolor = mytablett.backcolor
*!*			.Visible = True
*!*		Endwith

*!*		With mytablett.SSCommand4
*!*			.Caption = "Schlieen"
*!*			.Top = 10
*!*			.Left = i + 200 + j * 2
*!*			.Width = j
*!*			.Height = 40
*!*			.FontSize = 10
*!*			.backcolor = mytablett.backcolor
*!*			.Visible = True
*!*		ENDWITH
*!*		mytablett.Visible = True
*!*		mytablett.msflexgrid1.setfocus	


SELECT lstausgleich
GO top

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
*thisform.AutoCenter = .t.
ENDPROC
     .                              L   %   |                       U  H C     %   $    L  T       $  %         T         T  >#r? T  ;? T        T      T   	     
 (u! T  columnCC
  Z> thisform.grdlstausgleich.&xxx..Width = grdbreite * prozsp2
 " T   	  
     
 " T     
     
 " T     
     
 " T     
     
 " T     
     
 " T     
     
  U  THISFORM SIZER	 FRMRESIZE HEIGHT GRDLSTAUSGLEICH WIDTH PROZSP1 PROZSP2	 GRDBREITE COLUMN1 HSA XXX TEXT1 FONTSIZE COLUMN6 COLUMN2 COLUMN3 COLUMN4 COLUMN5 %    
$  T      T   -
 T   
 T    T 
  T 
  T 
  T 
  T 
    (
f C  	  wvw $ T  C
  % T  C"
  c% T  C$
  c% T  C%
  c
 HT C
   % T  C
  c C
  $ T  C
   C
  T T    6 T 
C
 CC  
 6 T 
C
 CC  
 6 T 
C
 CC  
 6 T 
C
 CC  
 6 T 
C
 CC  
   C 	  wvw ' T CC
  
 2 T 
C
 CC 
  %C
   ! T C
  c ;  T C
   ' T CC 
  F    (
H
 #  >  C   >  C  d >  C  d >  C  d >  C  d >  C  d [ 	 # >  C  >  C d >  C d [	 #
 >   Summe >  C
 d' >  C
 C d >  C
 d >  C
 d >  C
 d [	 #% >   + / - lt. Steuerkarte' >  C
 C d [	 #! >   Zu verst. Entgelt2 >  C
 C
 C d [	 #( >   Jahressteuer lt. Tabelle [	 #L >   Ki-Steuerkappung bei CCCC  
Z  % [	 #( >   also Steuern im Dezember [
 T * T C
 C
 C 
 T  
 T  
 T  
 T     T   + T C C
  T ! + T C C
 ! T C# $ " + T C C
 7 %C C
 CC  	C T C
 CC  C
  	 	 # >  C d >  C d >  C d	 #8 T C
 CC   >  C d [	 # >  C d >  C d >  C d [ F  #)
   % &  T  '   ' (  T  )   ) ( 
   *  U+  THISFORM TOP VISIBLE MYLSTAUSGLEICH K
 MONATLADEN SICHT I MYGET FILENEU WVW TNAM ZNAM
 MYROUND100 LSTAUSGLEICH J F1 SUMONATTEXT F2 F3 F4 F5 F6 ATVKISTR ZI LZZ RE4 WFUNDF HINZUR LZZFREIB LZZHINZU STEUER LSTLZZ SOLZLZZ FIX BK	 KISTRSATZ SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE Resize,      Init"    1 A A ca2rA !!!!!!3 AA    q rAQQQ QAA aaaaaA rr! A qr r A A  DC  StB  TtA  #E  A  A  A      r r1 A   A  B q Q  rq 2                                 %  !    )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 525
Left = 810
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      FORM1      VTop = 9
Left = 24
Height = 34
Width = 139
Caption = "Drucken"
Name = "Command1"
      APROCEDURE Click
Do lstrausgleichdrucken &&Do attached
ENDPROC
                                         %   P       e      _             U  
     U  LSTRAUSGLEICHDRUCKEN Click,     1 q 1                       6       )                            
commandbutton      
commandbutton      Command2      FORM1      UTop = 9
Left = 343
Height = 34
Width = 139
Caption = "Hilfe"
Name = "Command2"
      PPROCEDURE Click
inet = 111
Msg = "43"
Do insinternet &&Do attached
ENDPROC
                                         %   n             }             U  & 
 T  o T  43   U  INET MSG INSINTERNET Click,     1   q 1                       E       )                            
commandbutton      
commandbutton      Command3      FORM1      YTop = 9
Left = 665
Height = 34
Width = 139
Caption = "Schlieen"
Name = "Command3"
      HPROCEDURE Click
SELECT lstausgleich
use
thisform.Release

ENDPROC
                                      i   %   i             x             U    F   Q
    U  LSTAUSGLEICH THISFORM RELEASE Click,     1 q A  2                       =       )                            grid      grid      grdLstausgleich      FORM1     ColumnCount = 6
DeleteMark = .F.
Height = 471
Left = 8
Panel = 1
ReadOnly = .T.
RecordSource = "LSTAUSGLEICH"
RecordSourceType = 1
ScrollBars = 2
Top = 55
Width = 813
Name = "grdLstausgleich"
Column1.ControlSource = "LSTAUSGLEICH.f1"
Column1.Width = 226
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.Name = "Column1"
Column2.ControlSource = "LSTAUSGLEICH.f2"
Column2.Width = 114
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.Name = "Column2"
Column3.ControlSource = "LSTAUSGLEICH.f3"
Column3.Width = 114
Column3.ReadOnly = .T.
Column3.Visible = .T.
Column3.Name = "Column3"
Column4.ControlSource = "LSTAUSGLEICH.f4"
Column4.Width = 114
Column4.ReadOnly = .T.
Column4.Visible = .T.
Column4.Name = "Column4"
Column5.ControlSource = "LSTAUSGLEICH.f5"
Column5.Width = 114
Column5.ReadOnly = .T.
Column5.Visible = .T.
Column5.Name = "Column5"
Column6.ControlSource = "LSTAUSGLEICH.f6"
Column6.Width = 114
Column6.ReadOnly = .T.
Column6.Visible = .T.
Column6.Name = "Column6"
     PROCEDURE Init
thisform.grdlstausgleich.Column2.DynamicBackColor = "gridcolor_grdlstausgleichgrid(2)"
thisform.grdlstausgleich.Column3.DynamicBackColor = "gridcolor_grdlstausgleichgrid(3)"
thisform.grdlstausgleich.Column4.DynamicBackColor = "gridcolor_grdlstausgleichgrid(4)"
thisform.grdlstausgleich.Column5.DynamicBackColor = "gridcolor_grdlstausgleichgrid(5)"
thisform.grdlstausgleich.Column6.DynamicBackColor = "gridcolor_grdlstausgleichgrid(6)"
ENDPROC
                                        %                          U  6 T       gridcolor_grdlstausgleichgrid(2)6 T       gridcolor_grdlstausgleichgrid(3)6 T       gridcolor_grdlstausgleichgrid(4)6 T       gridcolor_grdlstausgleichgrid(5)6 T       gridcolor_grdlstausgleichgrid(6) U  THISFORM GRDLSTAUSGLEICH COLUMN2 DYNAMICBACKCOLOR COLUMN3 COLUMN4 COLUMN5 COLUMN6 Init,     1 aaaaa1                             )                            header      header      Header1      FORM1.grdLstausgleich.Column1      %Caption = "Monat"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column1      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLstausgleich.Column2      >Alignment = 1
Caption = "ST.pfl. Entgelt"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column2      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLstausgleich.Column3      DAlignment = 1
Caption = "+/- lt. Lohnst.-Karte"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column3      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLstausgleich.Column4      9Alignment = 1
Caption = "Lohnsteuer"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column4      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLstausgleich.Column5      <Alignment = 1
Caption = "Soli Zuschlag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column5      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdLstausgleich.Column6      <Alignment = 1
Caption = "Kirchensteuer"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdLstausgleich.Column6      xBorderStyle = 0
Margin = 0
ReadOnly = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0	\   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5TR0XTKH11358792874      /  F      ]                                                       WINDOWS _5TR0XTKH21530289306                      i                                               WINDOWS _5TR0XTKH314232000054       5  
5  5  (5      5  6                                               WINDOWS _5TR0XTKH414232000056      6  7  7  7      7  7                                               WINDOWS _5TR0XTKH514232000058      8  8  9  9      9  9                                               WINDOWS _5TR0XTKH61423200005:      :  :  :  
;      ;  ;                                               WINDOWS _5TR0XTKH71423200005<      <  <  <  =      =  =                                               WINDOWS _5TR0XTKH81423200005>      >  >  >  >      ?  ?                                               WINDOWS _5TR0XTKH91423200005@      @  @  @  @      xA  A                                               WINDOWS _5TR0XTKHA1423200005B      B  B  B  B      oC  C                                               WINDOWS _5TR0XTKHB1423200005D      D  D  D  D      fE  E                                               WINDOWS _5TR0XTKHC1423200005F      F  F  F  F      ]G  G                                               WINDOWS _5TR0XTKHD1423200005H      H  H  H  H      VI  I                                               WINDOWS _5TR0XTKHE1423200005J      J  J  J  J      OK  K                                               WINDOWS _5TR0XTKHF1423200005L      L  L  L  L      HM  M                                               WINDOWS _5TR0XTKHG1423200005N      N  N  N  N      AO  O                                               WINDOWS _5TR0XTKHH1423200005zP      P  P  P  P      :Q  Q                                               WINDOWS _5TR0XTKHI1423200005sR      R  R  R  R      3S  S                                               WINDOWS _5TR0XTKHJ1423200005lT      yT  T  T  T      ,U  U                                               WINDOWS _5TR0XTKHK1423200047eV      rV  V  V  V      W  kW                                               WINDOWS _5TR0XTKHL1423200557OX      \X  iX  xX  X      X  RY                                               WINDOWS _5TR0XTKHM14232000056Z      EZ  TZ  aZ  nZ                                                           WINDOWS _5TR0XTKHN1423200005Z      Z  Z   [  
[                                                           WINDOWS _5TR0XTKHO1423200005t[      [  [  [  [                                                           WINDOWS _5TR0XTKHP1423200005\      "\  1\  >\  K\                                                           WINDOWS _5TR0XTKHQ1423200005\      \  \  \  \                                                           WINDOWS _5TR0XTKHR1423200005Q]      `]  o]  |]  ]                                                           WINDOWS _5TR0XTKHS1423200399]      ]  ^  ^  (^      ^  =_                                               WINDOWS _5TR0XTKHT1423200557q`      `  `  `  `       a  a                                               WINDOWS _5TR0XTKHU1423200557b      c  c  c  ,c      c  Ad                                               WINDOWS _5TR0XTKHV1423200557ue      e  e  e  e      &f  f                                               WINDOWS _5TR0XTKHW1423200557g      h  h  $h  1h      h  Gi                                               WINDOWS _5TR0XTKHX1423200557{j      j  j  j  j      ,k  k                                               WINDOWS _5TR0XTKHY1423200557l      
m  m  *m  7m      m  Mn                                               WINDOWS _5TR0XTKHZ1423200005o      o  o  o  o                                                           WINDOWS _5TR0XTKI01520849874op      p  p  p  p      Wq  d|                                               WINDOWS _5TR0XTKI11423200005      .  C  U  b        (                                               WINDOWS _5TR0XTKI21423200557         
    )                                                       WINDOWS _5TR0XTKI31423200557ڊ                    ݋                                               WINDOWS _5TR0XTKI41423200557      Ό  ی          o  č                                               WINDOWS _5TR0XTKI51423200557          ю  ގ      V                                                 WINDOWS _5TR0XTKI61423200557            Ő      =                                                 WINDOWS _5TR0XTKI71423200557v                  $  y                                               WINDOWS _5TR0XTKI81423200557]      j  w            `                                               WINDOWS _5TR0XTKI91423200557D      Q  ^  m  z        H                                               WINDOWS _5TR0XTKIA1423200557,      9  F  U  b      ژ  /                                               WINDOWS _5TR0XTKIC1423200005         -  <  I         U                                               WINDOWS _5TR0XTKID14232000059      F  S  b  o      +                                                 WINDOWS _5TR0XTKIE1423200005d      q  ~          =                                                 WINDOWS _5TR0XTKIF1423200005v                  b                                                 WINDOWS _5TR0XTKIG1423200005          Ģ  Ѣ        ܣ                                               WINDOWS _5TR0XTKIH1423200005      Ϥ  ޤ                                                           WINDOWS _5TR0XTKII1423200005        Ǧ  ٦        n  ֧                                               WINDOWS _5TR0XTKIJ1423200005          ¨  Ϩ      W                                                 WINDOWS _5TR0XTKH11358792874{                  B                                                 WINDOWS _5TR0XTKIL1423200005f      v            %                                                 WINDOWS _5TR0XTKIM1423200005M      ]  m  {                                                         WINDOWS _5TR0XTKIN1423200005<      L  \  j  w        {                                               WINDOWS _5TR0XTKIO1423200005+      ;  K  Y  f        u                                               WINDOWS _5TR0XTKIP1423200005%      5  E  S  `        \                                               WINDOWS _5TR0XTKIQ1423200005        ,  :  G      ˶  C                                               WINDOWS _5TR0XTKIR1423200005          #  0                                                        WINDOWS _5TR0XTKIS1423200005ܹ                    	                                               WINDOWS _5TR0XTKIT1423200005Ż      һ  ߻                                                           WINDOWS _5TR0XTKIU1423200005ܽ                    
                                               WINDOWS _5TR0XTKH21518032123        	    %                                                       WINDOWS _5TR0XTKIW1423200005      
    &  3        (                                               WINDOWS _5TR0XTKIX1423200005
        '  6  C        <                                               WINDOWS _5TR0XTKIY1423200005!      .  ;  K  X        ,                                               WINDOWS _5TR0XTKIZ1423200005        +  :  G        *                                               WINDOWS _5TR0XTKJ01423200005        /  =  J                                                       WINDOWS _5TR0YBN1R1423200557        	    $        7                                               WINDOWS _5TR0YBN1S1423200557k      z                                                             WINDOWS _5TR0YBN1T1423200557        
    %        8                                               WINDOWS _5TR0XTKH11423200005l      {                                                                 WINDOWS _5TR0YBN1V1423200005
        +  >  K                                                       WINDOWS _5TR0YBN1W1423200005R      a  p          +                                                 WINDOWS _5TR0YBN1X1423200005                  q  \                                               WINDOWS _5TR10MK7B1423200005                                                                       WINDOWS _5TR10MK7C1431471360                                                                     WINDOWS _5UX0SFYZ61523209817y                                                                       WINDOWS _6D10K6M4G1423200005D      Y  n          %  H                                               WINDOWS _5TR0XTKH11523282168                  d                                                 WINDOWS _5TR0XTKH11523276995                                                                   WINDOWS _5TR0XTKH11530289083          "  /        3                                               WINDOWS _77C0N8XP61530289083      '  6  G  T        .                                               WINDOWS _5TR0XTKH11530289083             -        E                                               WINDOWS _77C0NOE6D1530289083*      ?  T  d  q                                                       WINDOWS _77D0OXRFI1530289083}                  {                                                 WINDOWS _77D0P2RUL1530289083                                                                   COMMENT RESERVED                                T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      BorderStyle = 3
Height = 588
Width = 905
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Stammdaten des Personalfalles"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
mybemerkung = thisform

********************************
	With thisform
		myget(13, fileneu,"wnw")

		If Leftc(wnw.ztext0, 2) = "__"
			wnw.ztext0 = ""
		Endif

		If Substr(wnw.ztext0, 3, 1) = "/"
			wnw.ztext0 = Leftc(wnw.ztext0, 2) + "." + Substr(wnw.ztext0, 4, 2) + "." + Right(wnw.ztext0, 4)
		Endif
		.Datumsfeld0.value = wnw.ztext0


		If Leftc(wnw.ztext1, 2) = "__"
			wnw.ztext1 = ""
		Endif

		If Substr(wnw.ztext1, 3, 1) = "/"
			wnw.ztext1 = Leftc(wnw.ztext1, 2) + "." + Substr(wnw.ztext1, 4, 2) + "." + Right(wnw.ztext1, 4)
		ENDIF
		
		.Datumsfeld1.value = wnw.ztext1

		If Leftc(wnw.ztext2, 2) = "__"
			wnw.ztext2 = ""
		Endif

		If Substr(wnw.ztext2, 3, 1) = "/"
			wnw.ztext2 = Leftc(wnw.ztext2, 2) + "." + Substr(wnw.ztext2, 4, 2) + "." + Right(wnw.ztext2, 4)
		Endif
		.Datumsfeld2.value = wnw.ztext2

		.Text1.value = wnw.ZPersNr &&10
		.Text2.value = wnw.ztext3 &&11 Steuer-ID
		.Text3.value = wnw.SVNummer1 + wnw.SVNummer2 && 2 x 6
		.Text4.value = wnw.Konto &&12
		.Text5.value = wnw.BLZ &&8
		.Text6.value = wnw.ZIBAN &&24
		.Text7.value = wnw.ztext5 &&24 Strae
		.Text8.value = wnw.ztext6 &&24 Wohnort
		.Text9.value = wnw.ztext7 &&40 Einsatzdienststelle
		.Text10.value = wnw.ztext8 &&15 Tel-Nr.
		.Text11.value = wnw.ztext10 &&48 Arbeitszeit
		.Text12.value = wnw.ztext11 &&48 Urlaub
		.Text13.value = wnw.ztext12 &&47 Fortbildung
		.Text14.value = wnw.ztext13 &&50 Beurteilung
		.Text15.value = wnw.ztext14 &&100 Monatsausdruck
		.Text16.value = wnw.ztext15 &&95 Jahresausdruck
		.Text17.value = wnw.ZBIC &&14

		For i = 19 To 27 &&vorher 18 to 27
			xxx=ALLTRIM(STR(i,2,0))
			Do Case && i
				Case (i >= 18 .And. i <= 19)
					j = 24
				Case i = 20
					j = 40
				Case i = 21
					j = 15
				Case (i >= 22 .And. i <= 24)
					j = 47
				Case i = 25
					j = 50
				Case i = 26
					j = 100
				Case i = 27
					j = 95
			ENDCASE
			rrr = ALLTRIM(STR(i - 11,5,0))
			myTablett.zeile&xxx..Caption = ALLTRIM(STR(j - Len(Alltrim(myTablett.Text&rrr..value)),3,0))
		Next

		.zeile29.Caption = "Bei der Berechnung der Abzge von Einmalzahlungen"
		.zeile30.Caption = "zu bercksichtigende Betrge aus frherem Arbeitsverh."
		.zeile31.Caption = "lohnsteuerpflichtiges Entgelt"
		.zeile32.Caption = "ungenutzte Krankenvers.-Beitragsbemessungsgrenze"
		.zeile33.Caption = "ungenutzte Rentenvers. -Beitragsbemessungsgrenze"
	Endwith
********************************


thisform.text0.Value = "Stammdaten von " + zt0(1+zi(1+0))

Thisform.combo0.AddItem("keine Anrede")
Thisform.combo0.AddItem("Herrn")
Thisform.combo0.AddItem("Frau")

Do Case && wnw.anrede
	Case wnw.anrede = "a"
		Thisform.Combo0.ListIndex = 1 && vorher 0 bis 3
	Case wnw.anrede = "b"
		Thisform.Combo0.ListIndex = 2
	Case wnw.anrede = "c"
		Thisform.Combo0.ListIndex = 3
	Case wnw.anrede = "d"
		Thisform.Combo0.ListIndex = 4
Endcase

For i = 0 To 18
	xxx=Alltrim(Str(i,2,0))
	myget(20, i + 4090,"woerter")
	Thisform.zeile&xxx..Caption = Alltrim(woerter.textee)
Next

Msg = " (Ein $-Zeichen ergibt eine Zeilenschaltung)"
Thisform.zeile16.Caption = Alltrim(Thisform.zeile16.Caption)
Thisform.zeile17.Caption = Alltrim(Thisform.zeile17.Caption) + Msg
Thisform.zeile18.Caption = Alltrim(Thisform.zeile18.Caption) + Msg

If wnw.korrlst(1+modus) > 10000000
	wnw.korrlst(1+modus) = 0
Endif

Thisform.tdbnumber1.Value = wnw.korrlst(1+modus) / 100
If wnw.korrkv(1+modus) > 10000000
	wnw.korrkv(1+modus) = 0
Endif

Thisform.tdbnumber2.Value = wnw.korrkv(1+modus) / 100

If wnw.korrrv(1+modus) > 10000000
	wnw.korrrv(1+modus) = 0
ENDIF

Thisform.tdbnumber3.Value = wnw.korrrv(1+modus) / 100

For i = 18 To 27
	xxx=Alltrim(Str(i,2,0))
	Do Case && i
		Case (i >= 18 .And. i <= 19)
			j = 24
		Case i = 20
			j = 40
		Case i = 21
			j = 15
		Case (i >= 22 .And. i <= 24)
			j = 47
		Case i = 25
			j = 50
		Case i = 26
			j = 100
		Case i = 27
			j = 95
	ENDCASE
	
	rrr = Alltrim(Str(i - 11,5,0))
	
*!*		*			thisform.zeile&xxx..Top = thisform.Text&rrr..Top + 50
*!*		If i < 25
*!*			*				thisform.zeile&xxx..Left = 680
*!*		Else
*!*			*				thisform.zeile&xxx..Left = 1080
*!*		ENDIF
	
	Thisform.zeile&xxx..Caption = Alltrim(Str(j - Len(Alltrim(Thisform.Text&rrr..Value)),3,0))
Next

Do Case && zi(1+2)
	Case zi(1+2) = 1
		If welchesjahr > 2009
			If zi(1+4) < 5
				Thisform.Kasten0.Caption = " Altersteilzeit angetreten nach dem 31.12.2009:"
			Else
				Thisform.Kasten0.Caption = "Altersteilzeit vereinbart vor dem 1.1.2003:"
			Endif
		Else
			Thisform.Kasten0.Caption = "Altersteilzeit vereinbart vor dem 1.1.2003:"
		Endif

	Case zi(1+2) = 0
		If zi(1+4) < 6
			Thisform.Kasten0.Caption = "Altersteilzeit vereinbart vor dem 1.1.2011: "
		Else
			Thisform.Kasten0.Caption = "Altersteilzeit vereinbart vor dem 1.1.2003: "
		Endif
	Case zi(1+2) > 1
		Thisform.Kasten0.Caption = "Altersteilzeit vereinbart vor dem 1.1.2003: "
ENDCASE

If zi(1+2) = 1 .And. welchesjahr > 2009
	Thisform.Kasten16.Caption = "  Nettobes."
	Thisform.tdbnumber11.Value = ATZNetto
ENDIF

Thisform.Check0.Value = wnw.atzalt
Thisform.Check1.Value = wnw.zvkzusatz
Thisform.Check5.Value = wnw.zvkzusatz9

If wnw.zumlage1 = True
	Thisform.Check2.Value = True
Else
	Thisform.Check2.Value = False
Endif

If wnw.zumlage2 = True
	Thisform.Check3.Value = True
Else
	Thisform.Check3.Value = False
Endif

If wnw.zumlage3 = True
	Thisform.Check4.Value = True
Else
	Thisform.Check4.Value = False
Endif

If wnw.TVDZeile(13) > 10000000
	wnw.TVDZeile(13) = 0
ENDIF

Thisform.tdbnumber4.Value = wnw.TVDZeile(13) / 100

If wnw.TVDZeile(14) > 10000000
	wnw.TVDZeile(14) = 0
ENDIF

Thisform.tdbnumber5.Value = wnw.TVDZeile(14) / 100

thisform.zeile17.caption = "Zusatz unter Monatsabrechnung (ein $-zeichen ergibt eine Zeilenschaltung.)"
thisform.sozaminustage.Value = wnw.tvdsozaminustage
IF zi(1+2) = 0 .and. zi(1+4) = 0 .and. .f. &&BW A-beamte
	thisform.stufen_bw.Value = wnw.stufen_bw
	thisform.bwstufen_anzeige.click
endif
thisform.refresh

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

IF thisform.height > myform1.height 
	thisform.height = myform1.height - 50
endif
IF thisform.width > myform1.width 
	thisform.width = myform1.width - 50
endif

thisform.resize
thisform.AutoCenter = .t.


ENDPROC
         i  i                        q   %   j                       U    C     U  THISFORM SIZER	 FRMRESIZE-
 T   
  V C
   wnw  %C   __]  T      %C  \ / > T  C   .C  \ .C  R  T     %C   __  T      %C  \ /_> T  C   .C  \ .C  R  T	     %C 
  __ T 
     %C 
 \ /> T 
 C 
  .C 
 \ .C 
 R  T   
  T   
  T     T       T     T     T     T     T     T     T      T!   "  T#   $  T%   &  T'   (  T)   *  T+   ,  T-   .  / ( T0 CC/  Z
 H /  / 	
 T1  / 
 T1 ( / 
 T1  /  / 	@
 T1 / / ^
 T1 2 / |
 T1 d / 
 T1 _  T2 CC/  Z` myTablett.zeile&xxx..Caption = ALLTRIM(STR(j - Len(Alltrim(myTablett.Text&rrr..value)),3,0))
 B T3 4 1 Bei der Berechnung der Abzge von EinmalzahlungenG T5 4 6 zu bercksichtigende Betrge aus frherem Arbeitsverh.. T6 4  lohnsteuerpflichtiges EntgeltA T7 4 0 ungenutzte Krankenvers.-BeitragsbemessungsgrenzeA T8 4 0 ungenutzte Rentenvers. -Beitragsbemessungsgrenze 2 T 9   Stammdaten von CC; :  C keine Anrede < =  C Herrn < =  C Frau < = 
 H  >  a T < ?   >  b7 T < ?   >  c_ T < ?   >  d T < ?   /  ( T0 CC/  Z C/  woerter 9 Thisform.zeile&xxx..Caption = Alltrim(woerter.textee)
 9 T@ ,  (Ein $-Zeichen ergibt eine Zeilenschaltung) T A 4 C A 4  T B 4 C B 4 @  T C 4 C C 4 @  %CE  D   T D E   " T F  CE  D d %CE  G  ?	 T G E   " T H  CE  G d %CE  I  	 T I E   " T J  CE  I d / (f T0 CC/  Z
 H	
 /  / 	)

 T1  / G

 T1 ( / e

 T1  /  / 	

 T1 / / 

 T1 2 / 

 T1 d / 

 T1 _  T2 CC/  Z^ Thisform.zeile&xxx..Caption = Alltrim(Str(j - Len(Alltrim(Thisform.Text&rrr..Value)),3,0))
 
 Hw
 C;  %K ? %C; 
B T L 4 /  Altersteilzeit angetreten nach dem 31.12.2009: ;> T L 4 + Altersteilzeit vereinbart vor dem 1.1.2003:  > T L 4 + Altersteilzeit vereinbart vor dem 1.1.2003:  C;  =
 %C; 
? T L 4 , Altersteilzeit vereinbart vor dem 1.1.2011:  9
? T L 4 , Altersteilzeit vereinbart vor dem 1.1.2003:   C; 
? T L 4 , Altersteilzeit vereinbart vor dem 1.1.2003:  ! %C; 	 K 	
 T M 4    Nettobes. T N  O   T P   Q  T R   S  T T   U  % V W U T X  W  p T X  Y   % Z W  T [  W   T [  Y   % \ W  T ]  W   T ]  Y   %C
 ^  1 T ^ 
   T _  C
 ^ d %C ^   T ^    T `  C ^ d] T B 4 J Zusatz unter Monatsabrechnung (ein $-zeichen ergibt eine Zeilenschaltung.) T a   b ) %C;   C;  	 -	e T c   c 
  d e  
  f 
  g h  T i  i j  T k  k j  % i l i  T i l i 2  % k l k  T k l k 2 
  m  T n a Uo  MYBEMERKUNG THISFORM MYGET FILENEU WNW ZTEXT0 DATUMSFELD0 VALUE ZTEXT1 DATUMSFELD1 ZTEXT2 DATUMSFELD2 TEXT1 ZPERSNR TEXT2 ZTEXT3 TEXT3	 SVNUMMER1	 SVNUMMER2 TEXT4 KONTO TEXT5 BLZ TEXT6 ZIBAN TEXT7 ZTEXT5 TEXT8 ZTEXT6 TEXT9 ZTEXT7 TEXT10 ZTEXT8 TEXT11 ZTEXT10 TEXT12 ZTEXT11 TEXT13 ZTEXT12 TEXT14 ZTEXT13 TEXT15 ZTEXT14 TEXT16 ZTEXT15 TEXT17 ZBIC I XXX J RRR ZEILE29 CAPTION ZEILE30 ZEILE31 ZEILE32 ZEILE33 TEXT0 ZT0 ZI COMBO0 ADDITEM ANREDE	 LISTINDEX MSG ZEILE16 ZEILE17 ZEILE18 KORRLST MODUS
 TDBNUMBER1 KORRKV
 TDBNUMBER2 KORRRV
 TDBNUMBER3 WELCHESJAHR KASTEN0 KASTEN16 TDBNUMBER11 ATZNETTO CHECK0 ATZALT CHECK1	 ZVKZUSATZ CHECK5
 ZVKZUSATZ9 ZUMLAGE1 TRUE CHECK2 FALSE ZUMLAGE2 CHECK3 ZUMLAGE3 CHECK4	 TVDZEILE
 TDBNUMBER4
 TDBNUMBER5
 SOZAMINUSTAGE TVDSOZAMINUSTAGE	 STUFEN_BW BWSTUFEN_ANZEIGE CLICK REFRESH SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH MYFORM1 RESIZE
 AUTOCENTER Resize,      Init_     1 2   qA A AA A BA A ABAAAAAAAAAAAAAAArq        A A "qA $q Q1Q1Q1Q1A rqA A "A "A "rq        A A  Q!Q! A  A RQ A QA 1A baaB1 1A B1 1A B1 1A aA aA aa A   rqrqA qqA   3                       ,         G         )   i                        label      label      zeile0      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 70
Visible = .T.
Width = 139
TabIndex = 9
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile1      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 91
Visible = .T.
Width = 139
TabIndex = 10
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 114
Visible = .T.
Width = 139
TabIndex = 11
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 135
Visible = .T.
Width = 139
TabIndex = 12
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 157
Visible = .T.
Width = 139
TabIndex = 13
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 179
Visible = .T.
Width = 139
TabIndex = 14
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 201
Visible = .T.
Width = 139
TabIndex = 15
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 223
Visible = .T.
Width = 139
TabIndex = 16
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 245
Visible = .T.
Width = 139
TabIndex = 17
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile9      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 267
Visible = .T.
Width = 139
TabIndex = 18
Name = "zeile9"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile10      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 290
Visible = .T.
Width = 139
TabIndex = 19
Name = "zeile10"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile11      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 312
Visible = .T.
Width = 139
TabIndex = 20
Name = "zeile11"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile12      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 334
Visible = .T.
Width = 139
TabIndex = 21
Name = "zeile12"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile13      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 356
Visible = .T.
Width = 139
TabIndex = 22
Name = "zeile13"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile14      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 379
Visible = .T.
Width = 139
TabIndex = 23
Name = "zeile14"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile15      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 400
Visible = .T.
Width = 139
TabIndex = 24
Name = "zeile15"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile16      FORM1      Alignment = 1
Caption = "Label0"
Height = 17
Left = 9
Top = 422
Visible = .T.
Width = 139
TabIndex = 25
Name = "zeile16"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile17      FORM1      sCaption = "zeile17"
Height = 17
Left = 6
Top = 495
Visible = .T.
Width = 717
TabIndex = 3
Name = "zeile17"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile18      FORM1      pCaption = "24"
Height = 17
Left = 537
Top = 290
Visible = .T.
Width = 27
TabIndex = 53
Name = "zeile18"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            textbox      textbox      Text1      FORM1      _Height = 22
Left = 160
TabIndex = 30
Top = 155
Visible = .T.
Width = 136
Name = "Text1"
      textbox      textbox      Text2      FORM1      _Height = 22
Left = 160
TabIndex = 31
Top = 177
Visible = .T.
Width = 136
Name = "Text2"
      textbox      textbox      Text3      FORM1      _Height = 22
Left = 160
TabIndex = 32
Top = 199
Visible = .T.
Width = 136
Name = "Text3"
      textbox      textbox      Text4      FORM1      _Height = 22
Left = 160
TabIndex = 33
Top = 221
Visible = .T.
Width = 136
Name = "Text4"
      textbox      textbox      Text5      FORM1      _Height = 22
Left = 160
TabIndex = 34
Top = 243
Visible = .T.
Width = 136
Name = "Text5"
      textbox      textbox      Text6      FORM1      _Height = 22
Left = 160
TabIndex = 35
Top = 265
Visible = .T.
Width = 233
Name = "Text6"
      textbox      textbox      Text7      FORM1      oHeight = 22
Left = 160
MaxLength = 24
TabIndex = 37
Top = 287
Visible = .T.
Width = 372
Name = "Text7"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile18.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE18 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text8      FORM1      oHeight = 22
Left = 160
MaxLength = 24
TabIndex = 38
Top = 309
Visible = .T.
Width = 372
Name = "Text8"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile19.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))

ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE19 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q2                              )                           textbox      textbox      Text9      FORM1      oHeight = 22
Left = 160
MaxLength = 40
TabIndex = 39
Top = 331
Visible = .T.
Width = 372
Name = "Text9"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile20.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE20 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text10      FORM1      pHeight = 22
Left = 160
MaxLength = 15
TabIndex = 40
Top = 353
Visible = .T.
Width = 372
Name = "Text10"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile21.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE21 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text11      FORM1      pHeight = 22
Left = 160
MaxLength = 47
TabIndex = 41
Top = 375
Visible = .T.
Width = 372
Name = "Text11"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile22.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE22 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text12      FORM1      pHeight = 22
Left = 160
MaxLength = 47
TabIndex = 42
Top = 397
Visible = .T.
Width = 372
Name = "Text12"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile23.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE23 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text13      FORM1      pHeight = 22
Left = 160
MaxLength = 47
TabIndex = 43
Top = 419
Visible = .T.
Width = 372
Name = "Text13"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile24.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE24 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text0      FORM1      FontBold = .T.
FontSize = 14
Value = 
Enabled = .F.
Height = 28
Left = 9
TabIndex = 8
Top = 36
Visible = .T.
Width = 729
DisabledForeColor = 0,0,0
Name = "Text0"
      
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 4
Left = 464
Height = 26
Width = 424
Caption = "Schlieen"
Style = 0
TabIndex = 50
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click

*DO bemerkungspeichern
 
With wnw
	Do Case && mytablett.combo(0).ListIndex
		Case thisform.Combo0.ListIndex = 1 &&vorher 0 - 3
			.anrede = "a"
		Case thisform.Combo0.ListIndex = 2
			.anrede = "b"
		Case thisform.Combo0.ListIndex = 3
			.anrede = "c"
		Case thisform.Combo0.ListIndex = 4
			.anrede = "d"
	Endcase

	.ztext0 = thisform.Datumsfeld0.value
	.ztext1 = thisform.Datumsfeld1.value
	.ztext2 = thisform.Datumsfeld2.value
	.ZPersNr = Alltrim(thisform.Text1.value)
	.ztext3 = Alltrim(thisform.Text2.value)
	.SVNummer1 = Leftc(thisform.Text3.value, 6)
	.SVNummer2 = Substr(thisform.Text3.value, 7, 6)
	.Konto = Alltrim(thisform.Text4.value)
	.BLZ = Alltrim(thisform.Text5.value)
	.ZIBAN = Alltrim(thisform.Text6.value)
	.ztext5 = Alltrim(thisform.Text7.value)
	.ztext6 = Alltrim(thisform.Text8.value)
	.ztext7 = Alltrim(thisform.Text9.value)
	.ztext8 = Alltrim(thisform.Text10.value)
	.ztext10 = Alltrim(thisform.Text11.value)
	.ztext11 = Alltrim(thisform.Text12.value)
	.ztext12 = Alltrim(thisform.Text13.value)
	.ztext13 = Alltrim(thisform.Text14.value)
	.ztext14 = Alltrim(thisform.Text15.value)
	.ztext15 = Alltrim(thisform.Text16.value)
	.ZBIC = Alltrim(thisform.Text17.value)

	For i = 0 To 2
		.korrlst(1+i) = thisform.tdbnumber1.Value * 100
		.korrkv(1+i) = thisform.tdbnumber2.Value * 100
		.korrrv(1+i) = thisform.tdbnumber3.Value * 100
	Next
	.atzalt = IIF(EMPTY(thisform.Check0.Value),.f.,.t.)
	.zvkzusatz = IIF(EMPTY(thisform.Check1.Value),.f.,.t.)
	.TVdAufstieg = Alltrim(thisform.Text18.value)
	.zumlage1 = IIF(EMPTY(thisform.Check2.Value),.f.,.t.)
	.zumlage2 = IIF(EMPTY(thisform.Check3.Value),.f.,.t.)
	.zumlage3 = IIF(EMPTY(thisform.Check4.Value),.f.,.t.)
	.zvkzusatz9 = IIF(EMPTY(thisform.Check5.Value),.f.,.t.)
	.TVDZeile(13) = thisform.tdbnumber4.value * 100
	.TVDZeile(14) = thisform.tdbnumber5.value * 100
	.zATZNetto = thisform.tdbnumber11.value
	.tvdsozaminustage = thisform.sozaminustage.value
	IF .tvdsozaminustage = 0
		IF zi(1+18) < 7
			myform1.z18.caption = "Jahressonderzahlung"
		ELSE
			myform1.z18.caption = Alltrim(zt18(1+zi(1+18)))
		endif
	endif
Endwith

myput(13, fileneu,"wnw")
wnw.ztext7 = wnw.ztext7


thisform.release

If .Not. zi(1+20) = 12
	merker = zi(1+20)
	For fm = merker To 11
		zi(1+20) = fm
		Monat = fm + 1
		DO wvwin &&Get #Monat, fileneu, wvw
		Do Berechnung &&Do attached
	Next
	zi(1+20) = merker
	Monat = merker + 1
	DO wvwin &&Get #Monat, fileneu, wvw
	Do Berechnung &&Do attached
	Do anzeige &&Do attached
Endif
&&myform1.sspanel1.Visible = True
If wizardja = 0
	&&wizardja = 2
	zti = 2
	Do zaktivieren &&Do attached
	myform1.z0.Visible = True
	myform1.z2.Caption = "Bitte rechts auswhlen. "
	myform1.z2.Visible = True
ENDIF
			

ENDPROC
     
    
  
                        kP   %   	      K
  R   	            U  '
   
 H      @  T  a    f  T  b      T  c      T  d  T     T  	   T
     T C 
   T C    T C    T C   \ T C    T C    T C    T C    T C    T C    T C     T! C "   T# C $   T% C &   T' C (   T) C *   T+ C ,   T- C .   /  (" T0 /  1  d" T2 /  3  d" T4 /  5  d   T6 CC 7   - a6  T8 CC 9   - a6 T: C ;    T< CC =   - a6  T> CC ?   - a6  T@ CC A   - a6  TB CC C   - a6 TD 
 E  d TD  F  d TG  H   TI  J   %I   %CK 
& TL M N  Jahressonderzahlung ! TL M N CCCK O     C
 Q  wnwP  T      
  R  %CK 
 TS CK  T S (i TK T  TU T  V  W   TK S  TU S  V  W  X   %Y   
 TZ  [  TL \ ] ^ + TL _ N  Bitte rechts auswhlen.  TL _ ] ^   U`  WNW THISFORM COMBO0	 LISTINDEX ANREDE ZTEXT0 DATUMSFELD0 VALUE ZTEXT1 DATUMSFELD1 ZTEXT2 DATUMSFELD2 ZPERSNR TEXT1 ZTEXT3 TEXT2	 SVNUMMER1 TEXT3	 SVNUMMER2 KONTO TEXT4 BLZ TEXT5 ZIBAN TEXT6 ZTEXT5 TEXT7 ZTEXT6 TEXT8 ZTEXT7 TEXT9 ZTEXT8 TEXT10 ZTEXT10 TEXT11 ZTEXT11 TEXT12 ZTEXT12 TEXT13 ZTEXT13 TEXT14 ZTEXT14 TEXT15 ZTEXT15 TEXT16 ZBIC TEXT17 I KORRLST
 TDBNUMBER1 KORRKV
 TDBNUMBER2 KORRRV
 TDBNUMBER3 ATZALT CHECK0	 ZVKZUSATZ CHECK1 TVDAUFSTIEG TEXT18 ZUMLAGE1 CHECK2 ZUMLAGE2 CHECK3 ZUMLAGE3 CHECK4
 ZVKZUSATZ9 CHECK5	 TVDZEILE
 TDBNUMBER4
 TDBNUMBER5	 ZATZNETTO TDBNUMBER11 TVDSOZAMINUSTAGE
 SOZAMINUSTAGE ZI MYFORM1 Z18 CAPTION ZT18 MYPUT FILENEU RELEASE MERKER FM MONAT WVWIN
 BERECHNUNG ANZEIGE WIZARDJA ZTI ZAKTIVIEREN Z0 VISIBLE TRUE Z2 Click,     1   q q q q A BAAaaaaaaaaaaaaaaaar!!!A aAA!Qa A A A r1 bq1q q A 1q q q A  q 11A 3                       
      )   
                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 4
Left = 9
Height = 26
Width = 424
Caption = "Hilfe"
TabIndex = 7
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      1PROCEDURE Click

DO sscommand2_click
ENDPROC
                                         %   L       a      [             U  
     U  SSCOMMAND2_CLICK Click,     1 r 1                       &       )                            label      label      zeile19      FORM1      pCaption = "24"
Height = 17
Left = 537
Top = 312
Visible = .T.
Width = 27
TabIndex = 54
Name = "zeile19"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile20      FORM1      pCaption = "40"
Height = 17
Left = 537
Top = 334
Visible = .T.
Width = 27
TabIndex = 55
Name = "zeile20"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile21      FORM1      pCaption = "15"
Height = 17
Left = 537
Top = 356
Visible = .T.
Width = 27
TabIndex = 56
Name = "zeile21"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile22      FORM1      pCaption = "47"
Height = 17
Left = 537
Top = 378
Visible = .T.
Width = 27
TabIndex = 57
Name = "zeile22"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile23      FORM1      pCaption = "47"
Height = 17
Left = 537
Top = 401
Visible = .T.
Width = 27
TabIndex = 58
Name = "zeile23"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile24      FORM1      pCaption = "47"
Height = 17
Left = 537
Top = 422
Visible = .T.
Width = 27
TabIndex = 59
Name = "zeile24"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile25      FORM1      pCaption = "50"
Height = 17
Left = 729
Top = 469
Visible = .T.
Width = 27
TabIndex = 65
Name = "zeile25"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile26      FORM1      qCaption = "100"
Height = 17
Left = 726
Top = 517
Visible = .T.
Width = 27
TabIndex = 63
Name = "zeile26"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile27      FORM1      pCaption = "95"
Height = 17
Left = 726
Top = 562
Visible = .T.
Width = 27
TabIndex = 64
Name = "zeile27"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile29      FORM1      Alignment = 1
Caption = "Bei der Berechnung der Abzge von Einmalzahlungen"
Height = 17
Left = 373
Top = 100
Visible = .T.
Width = 414
TabIndex = 44
Name = "zeile29"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile30      FORM1      Alignment = 1
Caption = "zu bercksichtigende Betrge aus frherem Arbeitsverh."
Height = 17
Left = 373
Top = 119
Visible = .T.
Width = 414
TabIndex = 45
Name = "zeile30"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile31      FORM1      Alignment = 1
Caption = "lohnsteuerpflichtiges Entgelt"
Height = 17
Left = 373
Top = 139
Visible = .T.
Width = 414
TabIndex = 46
Name = "zeile31"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile32      FORM1      Alignment = 1
Caption = "ungenutzte Krankenvers.-Beitragsbemessungsgrenze"
Height = 17
Left = 374
Top = 161
Visible = .T.
Width = 414
TabIndex = 48
Name = "zeile32"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile33      FORM1      Alignment = 1
Caption = "ungenutzte Rentenvers. -Beitragsbemessungsgrenze"
Height = 17
Left = 373
Top = 183
Visible = .T.
Width = 414
TabIndex = 47
Name = "zeile33"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            textbox      textbox      
tdbnumber1      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 70
Top = 136
Visible = .T.
Width = 95
Name = "tdbnumber1"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            textbox      textbox      
tdbnumber2      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 71
Top = 158
Visible = .T.
Width = 95
Name = "tdbnumber2"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            textbox      textbox      
tdbnumber3      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 72
Top = 180
Visible = .T.
Width = 95
Name = "tdbnumber3"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            textbox      textbox      tdbnumber11      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 78
Top = 316
Visible = .T.
Width = 95
Name = "tdbnumber11"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            checkbox      checkbox      Check1      FORM1      |Top = 229
Left = 797
Height = 16
Width = 16
Alignment = 0
Caption = ""
TabIndex = 74
Visible = .T.
Name = "Check1"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            checkbox      checkbox      Check2      FORM1      Top = 43
Left = 752
Height = 16
Width = 84
Alignment = 0
Caption = "Umlage U1"
TabIndex = 67
Visible = .T.
Name = "Check2"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            checkbox      checkbox      Check3      FORM1      Top = 61
Left = 752
Height = 16
Width = 85
Alignment = 0
Caption = "Umlage U2"
TabIndex = 68
Visible = .T.
Name = "Check3"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            checkbox      checkbox      Check4      FORM1      Top = 81
Left = 752
Height = 16
Width = 141
Alignment = 0
Caption = "Insolvenzgeldumlage"
TabIndex = 69
Visible = .T.
Name = "Check4"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            checkbox      checkbox      Check5      FORM1      |Top = 250
Left = 797
Height = 16
Width = 16
Alignment = 0
Caption = ""
TabIndex = 75
Visible = .T.
Name = "Check5"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            checkbox      checkbox      Check0      FORM1      |Top = 208
Left = 797
Height = 16
Width = 16
Alignment = 0
Caption = ""
TabIndex = 73
Visible = .T.
Name = "Check0"
      pPROCEDURE Click
*DO check_click WITH INT(VAL(SUBSTR(this.Name,6))),IIF(EMPTY(this.Value),false,true)
ENDPROC
                                         %   3       F      B             U    U   Click,     1 2                       e       )                            textbox      textbox      
tdbnumber4      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 76
Top = 272
Visible = .T.
Width = 95
Name = "tdbnumber4"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            textbox      textbox      
tdbnumber5      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 77
Top = 294
Visible = .T.
Width = 95
Name = "tdbnumber5"
      `PROCEDURE InteractiveChange
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
ENDPROC
                                         %   3       R      N             U    U   InteractiveChange,     1 2                       U       )                            label      label      kasten2      FORM1      Alignment = 1
Caption = "BAT-Besitzstnde in Originalhhe"
Height = 17
Left = 600
Top = 274
Visible = .T.
Width = 190
TabIndex = 60
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      Alignment = 1
Caption = "Individ. Erhh. der Endstufe"
Height = 17
Left = 633
Top = 297
Visible = .T.
Width = 157
TabIndex = 61
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      Alignment = 1
Caption = "Vergtungsgruppenzulage"
Height = 17
Left = 640
Top = 319
Visible = .T.
Width = 150
TabIndex = 62
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten1      FORM1      Alignment = 1
Caption = " 39 ATV-Zusatzumlage 8 %"
Height = 17
Left = 535
Top = 229
Visible = .T.
Width = 254
TabIndex = 51
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      Alignment = 1
Caption = " 39 ATV-(K)-Zusatzumlage 9 %"
Height = 17
Left = 535
Top = 248
Visible = .T.
Width = 254
TabIndex = 52
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten16      FORM1      vCaption = "kasten0"
Height = 17
Left = 820
Top = 208
Visible = .T.
Width = 71
TabIndex = 81
Name = "kasten16"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten0      FORM1      Alignment = 1
Caption = "kasten0"
Height = 17
Left = 445
Top = 208
Visible = .T.
Width = 341
TabIndex = 49
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            combobox      combobox      Combo0      FORM1      _Height = 22
Left = 160
TabIndex = 26
Top = 66
Visible = .T.
Width = 136
Name = "Combo0"
      PROCEDURE InteractiveChange
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))

ENDPROC
PROCEDURE Click
DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE GotFocus
counter = 1

ENDPROC
     S    :  :                           %                             U    U      CCC  \g8 U  COMBO_CLICK THIS NAME 
 T   U  COUNTER InteractiveChange,      Click3      GotFocusl     1 4 2  2                       S         o                      )   :                        textbox      textbox      Text14      FORM1      mHeight = 22
Left = 6
MaxLength = 50
TabIndex = 2
Top = 466
Visible = .T.
Width = 717
Name = "Text14"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile25.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE25 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text15      FORM1      nHeight = 22
Left = 6
MaxLength = 100
TabIndex = 4
Top = 513
Visible = .T.
Width = 717
Name = "Text15"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile26.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE26 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text16      FORM1      mHeight = 22
Left = 6
MaxLength = 95
TabIndex = 6
Top = 560
Visible = .T.
Width = 717
Name = "Text16"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
thisform.zeile27.Caption = ALLTRIM(STR(this.MaxLength - LEN(ALLTRIM(this.Value))))
ENDPROC
     ,                              S   %                             U  3     % T   CC  CC  >Z U  NKEYCODE
 NSHIFTALTCTRL THISFORM ZEILE27 CAPTION THIS	 MAXLENGTH VALUE KeyPress,     1  Q1                              )                           textbox      textbox      Text17      FORM1      `Height = 22
Left = 396
TabIndex = 36
Top = 265
Visible = .F.
Width = 136
Name = "Text17"
      textbox      textbox      Datumsfeld0      FORM1      FontBold = .F.
FontSize = 11
Alignment = 0
Height = 22
Left = 160
TabIndex = 27
Top = 88
Visible = .T.
Width = 136
Name = "Datumsfeld0"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld1      FORM1      FontBold = .F.
FontSize = 11
Alignment = 0
Height = 22
Left = 160
TabIndex = 28
Top = 111
Visible = .T.
Width = 136
Name = "Datumsfeld1"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        textbox      textbox      Datumsfeld2      FORM1      FontBold = .F.
FontSize = 11
Alignment = 0
Height = 22
Left = 160
TabIndex = 29
Top = 133
Visible = .T.
Width = 136
Name = "Datumsfeld2"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO datumsfeld_keypress WITH INT(VAL(SUBSTR(this.Name,11))), nKeycode
ENDPROC
PROCEDURE LostFocus
DO datumsfeld_lostfocus WITH INT(VAL(SUBSTR(this.Name,11)))
ENDPROC
     z    a  a                           %                            U  +       CCC  \g8   U  NKEYCODE
 NSHIFTALTCTRL DATUMSFELD_KEYPRESS THIS NAME    CCC  \g8 U  DATUMSFELD_LOSTFOCUS THIS NAME KeyPress,     	 LostFocus     1  2 1                       }                   )   a                        label      label      Label34      FORM1      gCaption = "Beurteilung"
Height = 16
Left = 6
Top = 449
Width = 66
TabIndex = 1
Name = "Label34"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 567
Left = 885
TabIndex = 82
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      Text18      FORM1      Enabled = .F.
Height = 22
Left = 768
TabIndex = 66
Top = 516
Visible = .F.
Width = 136
BorderColor = 100,100,100
Name = "Text18"
      
commandbutton      
commandbutton      textkeypress      FORM1      Top = 552
Left = 810
Height = 22
Width = 64
Caption = "textkeypress"
Enabled = .F.
TabIndex = 80
Visible = .F.
Name = "textkeypress"
     PROCEDURE Click
If myindex > 6
	xxx=Alltrim(Str(myindex,6,0))
	If Len(Alltrim(thisform.Text&xxx..Value)) > j - 1
		KeyAscii = 0
	Endif

Endif

If KeyAscii = 13
	Do Case && myindex
		Case (myindex >= 3 .And. myindex <= 16)
			KeyAscii = 0
			xxx=Alltrim(Str(myindex + 1,6,0))
			thisform.Text&xxx..SetFocus
			&&Case 9
			&&     mytablett.Text(11).SetFocus
		Case myindex = 17
			thisform.Datumsfeld7.SetFocus
	Endcase
Endif

thisform.bemerkungspeichern.click 
&&If KeyAscii = 13 Then
&&bemerkungspeichern
ENDPROC
     I    0  0                        7   %                          U  . %  r  T CC   Z9 If Len(Alltrim(thisform.Text&xxx..Value)) > j - 1n 
 T     % 

 H       	 
 T   T CC   Z thisform.Text&xxx..SetFocus
   
      
     U  MYINDEX XXX KEYASCII THISFORM DATUMSFELD7 SETFOCUS BEMERKUNGSPEICHERN CLICK Click,     1 q A B    A A  3                             )   0                        textbox      textbox      
sozaminustage      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 797
TabIndex = 78
Top = 352
Visible = .T.
Width = 95
Name = "sozaminustage"
     PPROCEDURE Valid
IF welchesjahr < 2026 .and. this.Value > 0
	this.Value = 0
	hinweis("Gltig erst ab 2026!")
	RETURN
endif
IF this.Value > 3 .or. this.Value < 0
	hinweis("zulssige Eingeben sind : 0,1,2,3")
	IF this.Value > 3
		this.Value = 3
	ENDIF
	IF this.Value < 0
		this.Value = 0
	ENDIF
ENDIF
RETURN .t.

ENDPROC
                                      %   Z           i            U    %  
    	U  T   ! C Gltig erst ab 2026!  B " %      
 . C! zulssige Eingeben sind : 0,1,2,3  %    T    %   
  T      Ba U  WELCHESJAHR THIS VALUE HINWEIS Valid,     1 A A !AA AA A q 2                       E      )                           label      label      Label28      FORM1      WordWrap = .T.
Alignment = 1
Caption = "Jahressonderzahlung Minustage (Zeit statt Geld: nur TVD ab 2026)"
Height = 36
Left = 600
Top = 354
Visible = .T.
Width = 190
TabIndex = 62
Name = "Label28"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      Label35      FORM1      WordWrap = .T.
Alignment = 1
Caption = "Beamte BW:"
Enabled = .F.
Height = 14
Left = 720
Top = 411
Visible = .F.
Width = 70
TabIndex = 62
Name = "Label35"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            textbox      textbox      	stufen_bw      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Format = "9"
Height = 22
InputMask = "9"
Left = 797
MaxLength = 1
TabIndex = 78
Top = 414
Visible = .F.
Width = 31
Name = "stufen_bw"
     PROCEDURE Valid
IF this.Value > 7 .or. this.Value < 0
	hinweis("zulssige Eingeben sind : 0,1,2,3,4,5,6,7")
	IF this.Value > 7
		this.Value = 7
	ENDIF
	IF this.Value < 0
		this.Value = 0
	ENDIF
ELSE
	thisform.bwstufen_anzeige.click
ENDIF
RETURN .t.

ENDPROC
                                      %   4      _     C            U   " %        
 6 C) zulssige Eingeben sind : 0,1,2,3,4,5,6,7  %   |  T     %    
  T       
      Ba U  THIS VALUE HINWEIS THISFORM BWSTUFEN_ANZEIGE CLICK Valid,     1 !aAA AA   A q 2                             )                           label      label      Label36      FORM1      WordWrap = .T.
Alignment = 1
Caption = "neue Stufenzuordnung von 2022"
Enabled = .F.
Height = 16
Left = 600
Top = 426
Visible = .F.
Width = 190
TabIndex = 62
Name = "Label36"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            
commandbutton      
commandbutton      Command3      FORM1      vTop = 413
Left = 830
Height = 25
Width = 67
Caption = "Auswahl"
Enabled = .F.
Visible = .F.
Name = "Command3"
      PROCEDURE Click
DO FORM stufenlaufzeit_bw_parameter WITH thisform.stufen_bw.value TO xstufen_bw

IF rcv(xstufen_bw) < 0
	RETURN
ELSE
	thisform.stufen_bw.Value = rcv(xstufen_bw)
endif
thisform.bwstufen_anzeige.click
ENDPROC
         |  |                         B   %         3  	   !            U   1  stufenlaufzeit_bw_parameter(     %C    
K  B k  T   C    
     U  STUFENLAUFZEIT_BW_PARAMETER THISFORM	 STUFEN_BW VALUE
 XSTUFEN_BW RCV BWSTUFEN_ANZEIGE CLICK Click,     1 bA  A  1                              )   |                        label      label      bw_stufen_text      FORM1      WordWrap = .T.
Alignment = 1
Caption = ""
Enabled = .F.
Height = 16
Left = 156
Top = 445
Visible = .F.
Width = 744
TabIndex = 62
ForeColor = 255,0,0
Name = "bw_stufen_text"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            
commandbutton      
commandbutton      bwstufen_anzeige      FORM1      Top = 396
Left = 804
Height = 12
Width = 97
Caption = "bwstufen_anzeige"
Enabled = .F.
Visible = .F.
Name = "bwstufen_anzeige"
     LPROCEDURE Click
	DO case
		CASE thisform.stufen_bw.Value = 0
			txtstufenbw = "Es gelten die Standardwerte der Stufenlaufzeiten."
		CASE thisform.stufen_bw.Value = 1
			txtstufenbw = "1.) am 01.12.2022 bergeleitet zu A7/A8. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten."
		CASE thisform.stufen_bw.Value = 2
			txtstufenbw = "2.) am 30.11.2022 in A8/A9/A10 und S2/S3 befunden. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten."
		CASE thisform.stufen_bw.Value = 3
			txtstufenbw = "3.) am 30.11.2022 in A10, S11 befunden: bergeleitet zu A11 S9/S10. Alte LZ in S11 < 4J = S9 sonst S10. Alte LZ S11 wird S9 angerechnet."
		CASE thisform.stufen_bw.Value = 4
			txtstufenbw = "4.) Nicht in 1.) 2.) oder 3.) enthalten = bisherige Stufe minus 2. LZ der alten Stufe wird neuer Stufe angerechnet."
		CASE thisform.stufen_bw.Value = 5
			txtstufenbw = "5.) am 01.12.2024 ohne berleitung in A9/A10 in S4 befunden. = S2. Neue LZ der neuen S2 = 2 Jahre."
		CASE thisform.stufen_bw.Value = 6
			txtstufenbw = "6.) A11 durch 4.) in S1/S2 zugeordnet = Neue LZ der neuen Stufen S1/S2 = 2 Jahre."
		CASE thisform.stufen_bw.Value = 7		
			txtstufenbw = "6.) A11 durch 4.) in S1/S2 zugeordnet = Neue LZ der neuen Stufen S1/S2 = 2 Jahre."
	endcase												
	thisform.bw_stufen_text.caption = txtstufenbw
ENDPROC
     d    K  K                           %                          U  W
 H
 =      b > T 1 Es gelten die Standardwerte der Stufenlaufzeiten.      x T k 1.) am 01.12.2022 bergeleitet zu A7/A8. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten.      T u 2.) am 30.11.2022 in A8/A9/A10 und S2/S3 befunden. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten.     6 T و 3.) am 30.11.2022 in A10, S11 befunden: bergeleitet zu A11 S9/S10. Alte LZ in S11 < 4J = S9 sonst S10. Alte LZ S11 wird S9 angerechnet.      T s 4.) Nicht in 1.) 2.) oder 3.) enthalten = bisherige Stufe minus 2. LZ der alten Stufe wird neuer Stufe angerechnet.     So T b 5.) am 01.12.2024 ohne berleitung in A9/A10 in S4 befunden. = S2. Neue LZ der neuen S2 = 2 Jahre.     ^ T Q 6.) A11 durch 4.) in S1/S2 zugeordnet = Neue LZ der neuen Stufen S1/S2 = 2 Jahre.     =^ T Q 6.) A11 durch 4.) in S1/S2 zugeordnet = Neue LZ der neuen Stufen S1/S2 = 2 Jahre.  T      U  THISFORM	 STUFEN_BW VALUE TXTSTUFENBW BW_STUFEN_TEXT CAPTION Click,     1  qqq!qQ	qqqqA 11                       A      )   K                        eArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 14, 9, 23, 18, 50, 4, 1
Arial, 0, 11, 7, 17, 14, 40, 3, 0
0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6D10O809U1423203925      /  F      ]        F                                           WINDOWS _6D10O809V1531793261                    w  y                                               WINDOWS _6D10O809W1423208203+      (+  =+  M+  Z+      +  ,                                               WINDOWS _6D10O809X1423208203-      &-  ;-  K-  X-      -  ".                                               WINDOWS _6D10O809Y1423209292(/      =/  R/  b/  o/      /  Q=                                               WINDOWS _6D10O809Z1423210171G      G  G  G   H      aH  H                                               WINDOWS _6D10O80A01423203384I      I  J  J  !J                                                           WINDOWS _6D10O80A11531793261J      J  J  J  J      cK  X                                               WINDOWS _6D10O80A21423203384`      `  `  `  `      c  De                                               WINDOWS _6D10O80A31423203261'g      5g  Cg  Rg  pg                                                           WINDOWS _6D10O80A41423203261g      g  g  g  g                                                           WINDOWS _6D10O80A51423209337Wh      eh  sh  h  h                                                           WINDOWS _6D10O80A61423203261h      h  h  h  i                                                           WINDOWS _6D10O80A71423209337i      i  i  i  i                                                           WINDOWS _6D10O80A81423203961j      $j  3j  @j  ^j                                                           WINDOWS _6D10O80A91423209337j      j  j  	k  'k                                                           WINDOWS _6D10O80AA1423203961lk      {k  k  k  k                                                           WINDOWS _6D10O80AB14232039865l      Cl  Ql  `l  ~l                                                           WINDOWS _6D10O80AC1423203961l      l  l  l  
m                                                           WINDOWS _6D10O80AD1423203261m      m  m  m  m                                                           WINDOWS _6D10O80AE14232032614n      An  Nn  \n  in                                                           WINDOWS _6D10O80AF1423210009o      o  ,o  <o  Io      o  p                                               COMMENT RESERVED                                (q                                                            qQ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      zPROCEDURE BeforeOpenTables
CREATE CURSOR kvpfl (f0 C(2), f1 C(60), f2 C(12), f3 C(12), f4 C(12))
SELECT kvpfl
ENDPROC
     2                              
   %                             U  c Y h kvpfl  C  C<  C  C  C F   U  KVPFL F0 F1 F2 F3 F4 BeforeOpenTables,     1 q 1                       o       )                           1      1      form      form      FORM1      Height = 638
Width = 687
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "KV-Pflicht?"
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
myform1.visible = .f.

mykvpfl = Thisform

JAE(22, 2) = 0

With Thisform.zeile1
	xxx=Alltrim(Str(zi(1+20),2,0))
	.Caption = "Berechnung des Jahresarbeitsentgelts fr " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc
Endwith

Select kvpfl
For hsa = 1 To 25
	Append Blank
	Flush
	Replace kvpfl.f0 With Alltrim(Str(hsa,2,0))
	Flush
Next

Goto 1
Replace kvpfl.f1 With myform1.z7.Caption
Flush
Flush

Goto 2
Replace kvpfl.f1 With myform1.z9.Caption
Flush

Goto 3
Replace kvpfl.f1 With myform1.z8.Caption
Flush

Goto 4
Replace kvpfl.f1 With myform1.z11.Caption
Flush

Goto 5
Replace kvpfl.f1 With myform1.z10.Caption
Flush

For i = 6 To 11

	Goto i
	hszn="z"+Alltrim(Str(i + 6,4,0))
	Replace kvpfl.f1 With myform1.&hszn..Caption
	Flush
Next

Goto 12
Replace kvpfl.f1 With "Basis fr Jahressonderzahlung"
Flush

Goto 13
Replace kvpfl.f1 With myform1.z19.Caption
Flush

Goto 14
Replace kvpfl.f1 With myform1.z24.Caption
Flush

Goto 15
Replace kvpfl.f1 With myform1.z47.Caption
Flush

Goto 16
Replace kvpfl.f1 With myform1.z42.Caption
Flush

Goto 17
Replace kvpfl.f1 With myform1.z43.Caption
Flush

Goto 18
Replace kvpfl.f1 With myform1.z44.Caption
Flush

Goto 19
Replace kvpfl.f1 With"SV-pfl.Anteil ZVK-Umlage*)"
Flush


Goto 20
Replace kvpfl.f1 With "Zustzlicher Jahresbetrag (+/-) lt. Eingabe"
Flush

Goto 21
Replace kvpfl.f1 With "Jahresarbeitsentgelt (JAE) bei " + ditext4
Flush

Goto 22
If wert(1+29) > 0
	Replace kvpfl.f1 With "JAE bei anderen Arbeitgebern (Prog.Zeile 24 x 12)"
Else
	Replace kvpfl.f1 With "JAE bei anderen Arbeitgebern lt. Eingabe"
Endif
Flush

Goto 23
xxx=Alltrim(Str(zi(1+20),2,0))
Replace kvpfl.f1 With "Jahresarbeitsentgelt bezogen auf " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc
Flush

Goto 24
Replace kvpfl.f1 With"Jahresarbeitsentgeltgrenze " + welchesjahrc
Flush

Goto 25
Replace kvpfl.f1 With "berschreitung"
Flush

Goto 1
For j = 2 To 4
	hszn = "f" + Alltrim(Str(j,3,0))
	If j = 3
		Replace kvpfl.f3 With myformat(JAE(1, j - 1), "###,##0")
	Else
		Replace kvpfl.&hszn With myformat(JAE(1, j - 1), "###,##0.00")
	Endif
	Flush
Next

Goto 2
For j = 2 To 4
	hszn = "f" + Alltrim(Str(j,3,0))

	If j = 3
		Replace kvpfl.f3 With myformat(JAE(3, j - 1), "###,##0")
	Else
		Replace kvpfl.&hszn With myformat(JAE(3, j - 1), "###,##0.00")
	Endif
	Flush
Next

Goto 3
For j = 2 To 4
	hszn = "f" + Alltrim(Str(j,3,0))
	If j = 3
		Replace kvpfl.f3 With myformat(JAE(2, j - 1), "###,##0")
	Else
		Replace kvpfl.&hszn With myformat(JAE(2, j - 1), "###,##0.00")
	Endif
	Flush
Next

Goto 4
For j = 2 To 4
	hszn = "f" + Alltrim(Str(j,3,0))
	If j = 3
		Replace kvpfl.f3 With myformat(JAE(5, j - 1), "###,##0")
	Else
		Replace kvpfl.&hszn With myformat(JAE(5, j - 1), "###,##0.00")
	Endif
	Flush
Next

Goto 5
For j = 2 To 4
	hszn = "f" + Alltrim(Str(j,3,0))
	If j = 3
		Replace kvpfl.f3 With myformat(JAE(4, j - 1), "###,##0")
	Else
		Replace kvpfl.&hszn With myformat(JAE(4, j - 1), "###,##0.00")
	Endif
	Flush
Next

For i = 6 To 19
	Goto i
	For j = 2 To 4
		hszn = "f" + Alltrim(Str(j,3,0))
		If i = 12
			If j = 3
				Replace kvpfl.f3 With Str(JAE(i, j - 1),12,4) &&myformat(JAE(i, j - 1), "###,##0.0000")
			Else
				Replace kvpfl.&hszn With myformat(JAE(i, j - 1), "###,##0.00")
			Endif
			Flush
		Else
			If j = 3
				Replace kvpfl.f3 With myformat(JAE(i, j - 1), "###,##0")
			Else
				Replace kvpfl.&hszn With myformat(JAE(i, j - 1), "###,##0.00")
			Endif
			Flush
		Endif
	Next
Next

Replace kvpfl.f3 With myformat(JAE(19, 2), "##0.00000")
Flush

Goto 22
Replace kvpfl.f4 With myformat(JAE(22, 3), "##0.00000")
Flush

With Thisform.Command5
	If wert(1+37) > 0
		If JAE(25, 3) < 0
			.Caption = "Unterschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Keine Unterschreitung! Es ist nichts zu tun."
		Endif
	Else
		If JAE(25, 3) > 0
			.Caption = "berschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Noch keine berschreitung! Es ist nichts zu tun."
		Endif
	Endif
Endwith


Select kvpfl
For i = 20 To 25
	Goto i
	Replace kvpfl.f4 With myformat(JAE(i, 3), "###,##0.00")
	Flush
Next

If JAE(25, 3) > 0
	Replace kvpfl.f1 With "berschreitung"
Else
	Replace kvpfl.f1 With "Unterschreitung"
Endif
Flush

With mytablett.SSCommand5
	If wert(1+37) > 0
		If JAE(25, 3) < 0
			.Caption = "Unterschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Keine Unterschreitung! Es ist nichts zu tun."
		Endif
	Else
		If JAE(25, 3) > 0
			.Caption = "berschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Noch keine berschreitung! Es ist nichts zu tun."
		Endif
	Endif
Endwith

Select kvpfl
Go Top
ENDPROC
PROCEDURE Destroy
myform1.visible = .t.
ENDPROC
         y  y                        k   %   c                        U  $ T   -
 T   T       T CCC  Zs .Caption = "Berechnung des Jahresarbeitsentgelts fr " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc
  F  	 (  [ > 
 CC	  Z [ 	 # >     
  [ [	 # >     
  [	 # >     
  [	 # >     
  [	 # >     
  [  (F	 #   T  zCC  Z0 Replace kvpfl.f1 With myform1.&hszn..Caption
 [ 	 #- >   Basis fr Jahressonderzahlung [	 #
 >     
  [	 # >     
  [	 # >     
  [	 # >     
  [	 # >     
  [	 # >     
  [	 #* >   SV-pfl.Anteil ZVK-Umlage*) [	 #; >  + Zustzlicher Jahresbetrag (+/-) lt. Eingabe [	 #3 >   Jahresarbeitsentgelt (JAE) bei   [	 # %C  tA >  1 JAE bei anderen Arbeitgebern (Prog.Zeile 24 x 12) 8 >  ( JAE bei anderen Arbeitgebern lt. Eingabe  [	 # T CCC  Zv Replace kvpfl.f1 With "Jahresarbeitsentgelt bezogen auf " + Alltrim(myform1.Mon&xxx..Caption) + " " + welchesjahrc
 [	 #/ >   Jahresarbeitsentgeltgrenze   [	 # >   berschreitung [	 #  ( T  fCC  Z % 7) >  CC   ###,##0  B Replace kvpfl.&hszn With myformat(JAE(1, j - 1), "###,##0.00")
  [ 	 #  (U T  fCC  Z % ) >  CC   ###,##0  MB Replace kvpfl.&hszn With myformat(JAE(3, j - 1), "###,##0.00")
  [ 	 #  (! T  fCC  Z % ) >  CC   ###,##0  B Replace kvpfl.&hszn With myformat(JAE(2, j - 1), "###,##0.00")
  [ 	 #  ( T  fCC  Z % ) >  CC   ###,##0  B Replace kvpfl.&hszn With myformat(JAE(5, j - 1), "###,##0.00")
  [ 	 #  (	 T  fCC  Z % g	) >  CC   ###,##0  	B Replace kvpfl.&hszn With myformat(JAE(4, j - 1), "###,##0.00")
  [   (E	 #   (A T  fCC  Z % 
 % V
$ >  CC    Z 
B Replace kvpfl.&hszn With myformat(JAE(i, j - 1), "###,##0.00")
  [ = % 
* >  CC     ###,##0  5B Replace kvpfl.&hszn With myformat(JAE(i, j - 1), "###,##0.00")
  [   ' >  CC 	 ##0.00000  [	 #' >   CC 	 ##0.00000  [  !  %C&  ] %C  
2 T
 $ Unterschreitung! Was ist nun zu tun? Y: T
 , Keine Unterschreitung! Es ist nichts zu tun.   %C  1 T
 # berschreitung! Was ist nun zu tun? > T
 0 Noch keine berschreitung! Es ist nichts zu tun.    F   (T
	 # ) >   CC   
 ###,##0.00  [  %C  
 >   berschreitung 
 >   Unterschreitung  [ " #  %C&  r %C  
,2 T
 $ Unterschreitung! Was ist nun zu tun? n: T
 , Keine Unterschreitung! Es ist nichts zu tun.  
 %C  1 T
 # berschreitung! Was ist nun zu tun? 	> T
 0 Noch keine berschreitung! Es ist nichts zu tun.    F  #) U$  MYFORM1 VISIBLE MYKVPFL THISFORM JAE ZEILE1 XXX ZI KVPFL HSA F0 F1 Z7 CAPTION Z9 Z8 Z11 Z10 I HSZN Z19 Z24 Z47 Z42 Z43 Z44 DITEXT4 WERT WELCHESJAHRC J F3 MYFORMAT F4 COMMAND5	 MYTABLETT
 SSCOMMAND5  T   a U  MYFORM1 VISIBLE Init,      Destroy<    1   1A r qQ A A A  aA A  aA  aA  aA  aA r A A  A  aA  aA  aA  aA  aA  aA  A  A  1A  Q A A  aA  A  A  q !A A A  q !A A A  q !A A A  q !A A A  q !A A A r qA !A A   !A A A A A rA  qA Q! A   A A A s q A A  A A Q! A   A A A r Q 2  1                                       )   y                        
commandbutton      
commandbutton      Command1      FORM1      WTop = 3
Left = 8
Height = 25
Width = 165
Caption = " 6 SGB V"
Name = "Command1"
      WPROCEDURE Click
inet = 280
Msg = "sgb_5/__6"
Do insinternet &&Do attached
ENDPROC
                                      t   %   v                          U  .  T   T 	 sgb_5/__6   U  INET MSG INSINTERNET Click,     1  aq 1                       L       )                            
commandbutton      
commandbutton      Command2      FORM1      UTop = 3
Left = 177
Height = 25
Width = 165
Caption = "Hilfe"
Name = "Command2"
      ePROCEDURE Click
inet = 110
Msg = "/J/Jahresarbeitsentgelt"
Do insinternet &&Do attached
ENDPROC
                                         %                             U  ; 
 T  n$ T  /J/Jahresarbeitsentgelt   U  INET MSG INSINTERNET Click,     1  Aq 1                       Z       )                            
commandbutton      
commandbutton      Command3      FORM1      WTop = 3
Left = 346
Height = 25
Width = 165
Caption = "Drucken"
Name = "Command3"
     
{PROCEDURE Click
*Do jaedrucken &&Do attached

Public 1,2,3,4
Public an1_nr, an1_text,an1_text_long,an1_sp1,an1_sp2,an1_sp3
Public an_fuss1,an_fuss2,an_fuss3
Store "" To 1,2,3,4
Store "" To an1_nr, an1_text,an1_text_long,an1_sp1,an1_sp2,an1_sp3
Store "" To an_fuss1,an_fuss2,an_fuss3

k = 8 &&RAnd
j = 6650

*!*	If ausdruck < 4
*!*		If Left(Right(mySeriendruck.Label3.Caption, 11), 6) = "GEHALT"
*!*			1 = Upper(Alltrim(zt20(1+12)))
*!*		Else
*!*			1 = Upper(Alltrim(myform1.z20.Caption))
*!*		Endif
*!*	Else
	1 = Upper(Alltrim(myform1.z20.Caption))
*!*	Endif

2 = "Versicherungspflicht in der Krankenversicherung nach  5 und 6 SGB V"
3 = "hier:   " + mykvpfl.zeile1.Caption
If .not. EMPTY(mykvpfl.Check1.Value) && = -1
	4 = "Status: " + mykvpfl.Check1.Caption
Endif

SELECT kvpfl

*!*	With myTablett.MSFlexGrid1
	an1_nr = ""
	an1_text = ""
	an1_sp1 = ""
	an1_sp2 = ""
	an1_sp3 = ""
	crlf = Chr(13) + Chr(10)
	For i = 1 To 25
*!*			.Row = i
		GOTO i
*!*			.Col = 0
		an1_nr = an1_nr + ALLTRIM(kvpfl.f0) + crlf
*!*			.Col = 1

		If i < 20
			an1_text = an1_text + ALLTRIM(kvpfl.f1) + crlf
			an1_text_long = an1_text_long + "" + crlf
		Else
			an1_text = an1_text + "" + crlf
			an1_text_long = an1_text_long + ALLTRIM(kvpfl.f1) + crlf
		Endif

		If i < 20
*!*				.Col = 2
			an1_sp1 = an1_sp1 + Right("          " + kvpfl.f2, 12) + crlf
*!*				.Col = 3
			an1_sp2 = an1_sp2 + Right("          " + kvpfl.f3, 12) + crlf
		Endif
*!*			.Col = 4
		an1_sp3 = an1_sp3 + Right("          " + kvpfl.f4, 12) + crlf
	Next

	an_fuss1 = "*) in Zeile 19: Jahresbetrag unter Bercksichtigung von Freibetrgen u.a."

	an_fuss2 = mykvpfl.Command5.Caption
*!*	Endwith

iiii = 14
an_fuss3 = ""
drucktext = Alltrim(ditext7)

Do While .T.
	If Len(Alltrim(drucktext)) > 0
		i = isInstr(drucktext, "$")
		If i = 0
			an_fuss3 = an_fuss3 + drucktext
			drucktext = ""
			Exit
		Else
			an_fuss3 = an_fuss3 + Leftc(drucktext, i - 1)
			drucktext = Right(drucktext, Len(drucktext) - i)
		Endif
	Else
		Exit
	Endif
Enddo

oldselect = Select(0)
Create Cursor dummy (feld C(1))
Select dummy
Append Blank
Flush

Select dummy
Go Top

If direktzumdruckerQ() = true
	If hsseriendruck = .T.
		Report Form jaedrucken Range 1,1 Noconsole To Printer &&prompt
	Else
		Report Form jaedrucken Range 1,1 Noconsole To Printer Prompt
	Endif
Else
	Local loRepPreview, loRepListener
	loRepPreview = Null

	Do (_ReportPreview) With loRepPreview

	loExtension = Newobject("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	With loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.Height = screenmaxh &&myform1.height + 100
		.Top = 0
		.Left = 0
		.ToolbarIsVisible = .T.
	Endwith

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = Newobject('ReportListener')
	loRepListener.ListenerType = 1
	loRepListener.PreviewContainer = loRepPreview

	*REPORT FORM sozvers_drucken RANGE 1,1 NOCONSOLE preview
	Report Form jaedrucken Range 1,1 Noconsole Object loRepListener &&Noconsole Preview

	Release loRepListener
	Release loRepPreview
Endif

Select dummy
Use
Select(oldselect)

Release 1,2,3,4
Release an1_nr, an1_text,an1_text_long,an1_sp1,an1_sp2,an1_sp3
Release an_fuss1,an_fuss2,an_fuss3
ENDPROC
     
`    G
  G
                        n   %   #	      	  f   2	            U   7      7     	  7
    J  (     ! J  (     	  J  (
   
 T
  T  T  CC   fQ T D Versicherungspflicht in der Krankenversicherung nach  5 und 6 SGB V T  hier:       %C   
c T  Status:      F 
 T   
 T   
 T   
 T   
 T	    T C
 C
   (	 #  T  C    % 
> T  C    T      u T      T  C     % 
+ T  C
             R + T  C
             R  + T	 	 C
             R  V T
 I *) in Zeile 19: Jahresbetrag unter Bercksichtigung von Freibetrgen u.a. T    
 T 
 T    T  C!  +a^ %CC  > N T C    $"  %   T    
 T     ! J T  C    T  C  C  > R  Z !   T# C W h dummy%  C F$   [ F$  #) %C& '  %( a! ?
 jaedrucken(!9 " ?
 jaedrucken(!"9   * +  T* 
 V* 3 T, C MyInWindowFixer preview_fixer.prg
 *  T 
 Druckvorschau T- a T.  T/  T0 1  T2 3  T4   T5   T6 a  C , * 7  T+ C ReportListener T+ 8  T+ 9 * % ?
 jaedrucken9.+  <+  <*   F$  Q
 F#  <      <     	  <
    U:  1 2 3 4 AN1_NR AN1_TEXT
 AN1_TEXT_LONG AN1_SP1 AN1_SP2 AN1_SP3 AN_FUSS1 AN_FUSS2 AN_FUSS3 K J MYFORM1 Z20 CAPTION MYKVPFL ZEILE1 CHECK1 VALUE KVPFL CRLF I F0 F1 F2 F3 F4 COMMAND5 IIII	 DRUCKTEXT DITEXT7 ISINSTR	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK
 JAEDRUCKEN LOREPPREVIEW
 LOREPLISTENER LOEXTENSION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1 3 Q  yaA r      Qq Q QA A A b2    Qa A  A  A A A  q Q A r Q "  !A     2         A Sr q A r A  2 1                       p
      )   G
                        
commandbutton      
commandbutton      Command4      FORM1      YTop = 3
Left = 514
Height = 25
Width = 165
Caption = "Schlieen"
Name = "Command4"
      cPROCEDURE Click
SELECT kvpfl
USE
JAE(22, 2) = 0
JAE(22, 3) = 0

thisform.Release

ENDPROC
                                     ]\   %                             U  J  F   Q T   T  
    U  KVPFL JAE THISFORM RELEASE Click,     1 q A  2                       X       )                            label      label      zeile1      FORM1      sFontBold = .T.
FontSize = 12
Caption = "zeile1"
Height = 19
Left = 12
Top = 30
Width = 657
Name = "zeile1"
      checkbox      checkbox      Check1      FORM1      Top = 51
Left = 12
Height = 17
Width = 484
Alignment = 0
Caption = "Bereits am 31.12.2002 versicherungsfrei"
Name = "Check1"
     
PROCEDURE Click
*Do jaewechseln &&Do attached
JAE(21, 3) = 0
For i = 1 To 20
	JAE(21, 3) = JAE(21, 3) + JAE(i, 3)
Next
If zi(1+29) = 0 .And. wert(1+29) > 0 .And. JAE(22, 2) = 0

	JAE(22, 3) = wert(1+29) * 12 / 100
Endif
JAE(23, 3) = JAE(21, 3) + JAE(22, 3)

If TYPE("thisform.Check1.Value") <> "U"  &&trick: das geht nicht weil in VFP Forms nicht selbstndig geladen werden wenn ein control darauf zugreift
	mytablettcheckwert = IIF(EMPTY(thisform.Check1.Value),0,1)
ELSE
	mytablettcheckwert = 0
ENDIF 
&&jahreswechsel done2021
*!*		IF mytablett.Check1.Value = -1 &&Besondere JAEG
IF mytablettcheckwert = 1 &&Besondere JAEG vorher -1 29.08.2020
	Do Case && welchesjahr
*!*				Case welchesjahr = Jahr1 &&2017
*!*					JAE(24, 3) = 52200
*!*			Case welchesjahr = 2018 &&2018
*!*				JAE(24, 3) = 53100 &&52200
*!*			Case welchesjahr = 2019 &&2019
*!*				JAE(24, 3) = 54450 &&52200
*!*			Case welchesjahr = 2020 &&2020
*!*				JAE(24, 3) = 56250 &&54450 &&52200
*!*			Case welchesjahr = 2021 &&2021
*!*				JAE(24, 3) = 58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2022 &&2022
			JAE(24, 3) = 58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2023 &&2022
			JAE(24, 3) = 59850 &&58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2024 &&2022
			JAE(24, 3) = 62100 &&59850 &&58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2025 &&2022
			JAE(24, 3) = 66150 &&62100 &&59850 &&58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2026 &&2022
			JAE(24, 3) = 69750 &&62100 &&59850 &&58050 &&56250 &&54450 &&52200
		Case welchesjahr = 2027 &&2022
			JAE(24, 3) = 69750 &&62100 &&59850 &&58050 &&56250 &&54450 &&52200
	Endcase
Else&&Allgemeine JAEG
	Do Case && welchesjahr
*!*				Case welchesjahr = Jahr1 &&2017
*!*					JAE(24, 3) = 57600
*!*			Case welchesjahr = 2018 &&2018
*!*				JAE(24, 3) = 59400 &&57600
*!*			Case welchesjahr = 2019 &&2019
*!*				JAE(24, 3) = 60750 &&59400 &&57600
*!*			Case welchesjahr = 2020 &&2020
*!*				JAE(24, 3) = 62550 &&60750 &&59400 &&57600
*!*			Case welchesjahr = 2021 &&2021
*!*				JAE(24, 3) = 64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2022 &&2022
			JAE(24, 3) = 64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2023 &&2022
			JAE(24, 3) = 66600 &&64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2024 &&2022
			JAE(24, 3) = 69300 &&66600 &&64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2025 &&2022
			JAE(24, 3) = 73800 &&69300 &&66600 &&64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2026 &&2022
			JAE(24, 3) = 77400 &&69300 &&66600 &&64350 &&60750 &&59400 &&57600
		Case welchesjahr = 2027 &&2022
			JAE(24, 3) = 77400 &&69300 &&66600 &&64350 &&60750 &&59400 &&57600
	Endcase
Endif

JAE(25, 3) = JAE(23, 3) - JAE(24, 3)
&&If JAE(25, 3) < 0 Then JAE(25, 3) = 0

*Do jaewechselanzeigen &&Do attached
Select kvpfl
For i = 20 To 25
	Goto i
	Replace kvpfl.f4 With myformat(JAE(i, 3), "###,##0.00")
	Flush
Next

If JAE(25, 3) > 0
	Replace kvpfl.f1 With "berschreitung"
Else
	Replace kvpfl.f1 With "Unterschreitung"
Endif
Flush

With mytablett.SSCommand5
	If wert(1+37) > 0
		If JAE(25, 3) < 0
			.Caption = "Unterschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Keine Unterschreitung! Es ist nichts zu tun."
		Endif
	Else
		If JAE(25, 3) > 0
			.Caption = "berschreitung! Was ist nun zu tun?"
		Else
			.Caption = "Noch keine berschreitung! Es ist nichts zu tun."
		Endif
	Endif
Endwith
ENDPROC
                                   R   %         Q  J               U   T     (\ , T  C  C     6 %C   C  	 C   	 % T  C d + T  C  C  ) %C thisform.Check1.Valueb U6# T CC      6 K
 T    % 
 Hm   T       T       T      % T  f   S T  v    T  v   
 H   T  ^     T  (   $ T     R T  H     T  X.    T  X.   + T  C  C   F	   (5	 # ) >	 
 CC    
 ###,##0.00  [  %C   o >	   berschreitung  >	   Unterschreitung  [ 
   %C&  S %C   

2 T $ Unterschreitung! Was ist nun zu tun? O: T , Keine Unterschreitung! Es ist nichts zu tun.   %C   1 T # berschreitung! Was ist nun zu tun? > T 0 Noch keine berschreitung! Es ist nichts zu tun.    U  JAE I ZI WERT MYTABLETTCHECKWERT THISFORM CHECK1 VALUE WELCHESJAHR KVPFL F4 MYFORMAT F1	 MYTABLETT
 SSCOMMAND5 CAPTION Click,     1 qA aRA 1  A  +!!!!!A   +!!!!!A A t q A A  A A Q! A   A A A 1                       }
      )                           grid      grid      grdKvpfl      FORM1     ColumnCount = 5
DeleteMark = .F.
Height = 505
Left = 7
Panel = 1
ReadOnly = .T.
RecordSource = "KVPFL"
RecordSourceType = 1
ScrollBars = 2
Top = 69
Width = 671
Name = "grdKvpfl"
Column1.ControlSource = "KVPFL.f0"
Column1.Width = 29
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "KVPFL.f1"
Column2.Width = 381
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 1
Column3.ControlSource = "KVPFL.f2"
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "KVPFL.f3"
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "KVPFL.f4"
Column5.ReadOnly = .T.
Column5.Name = "Column5"
     wPROCEDURE Init
thisform.grdkvpfl.Column1.DynamicBackColor = "gridcolor_grdkvpfl(1)"
thisform.grdkvpfl.Column2.DynamicBackColor = "gridcolor_grdkvpfl(2)"
thisform.grdkvpfl.Column3.DynamicBackColor = "gridcolor_grdkvpfl(3)"
Thisform.grdkvpfl.Column4.DynamicBackColor = "gridcolor_grdkvpfl(4)"
Thisform.grdkvpfl.Column5.DynamicBackColor = "gridcolor_grdkvpfl(5)"
ENDPROC
                                      %   ]      y     k            U   + T      gridcolor_grdkvpfl(1)+ T      gridcolor_grdkvpfl(2)+ T      gridcolor_grdkvpfl(3)+ T      gridcolor_grdkvpfl(4)+ T      gridcolor_grdkvpfl(5) U  THISFORM GRDKVPFL COLUMN1 DYNAMICBACKCOLOR COLUMN2 COLUMN3 COLUMN4 COLUMN5 Init,     1 1                       l      )                           header      header      Header1      FORM1.grdKvpfl.Column1      %Caption = "Zeile"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKvpfl.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKvpfl.Column2      ,Caption = " Bezeichnung"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKvpfl.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKvpfl.Column3      6Alignment = 1
Caption = "Betrag "
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKvpfl.Column3      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKvpfl.Column4      =Alignment = 1
Caption = "Multiplikator "
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKvpfl.Column4      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKvpfl.Column5      ;Alignment = 1
Caption = "Jahresbetrag"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKvpfl.Column5      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      zeile3      FORM1      mCaption = "Bitte Zeile 20 und 22 beachten!"
Height = 15
Left = 9
Top = 576
Width = 181
Name = "zeile3"
      label      label      zeile2      FORM1      Caption = "*) in Zeile 19 Berechnungsweg siehe Klick auf Lupe-Icon in Zeile 28"
Height = 15
Left = 9
Top = 619
Width = 513
Name = "zeile2"
      
commandbutton      
commandbutton      Command5      FORM1      XTop = 595
Left = 6
Height = 22
Width = 672
Caption = "command5"
Name = "Command5"
      kPROCEDURE Click
inet = 110
Msg = "/V/Versicherungspflichtgrenze"
Do insinternet &&Do attached
ENDPROC
                                     P;   %                             U  A 
 T  n* T  /V/Versicherungspflichtgrenze   U  INET MSG INSINTERNET Click,     1  q 1                       `       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6D20MM7SX1423267633      /  F      ]        ?              _      h                       WINDOWS _6D20MM7SY1519406790q      }              j  ]                                               WINDOWS _6D20MM7SZ1423266993                                                                       WINDOWS _6D20MM7T01423268387                  1  )                                               WINDOWS _6D20MM7T11423268004          
          L                                               WINDOWS _6D20MM7T21423268088Y      n            6                                                 WINDOWS _6D20MM7T31423268004                  p                                                 WINDOWS _6D20MM7T41423268004                                                                   WINDOWS _6D20MM7T51423268069                  j                                                 WINDOWS _6D20MM7T61423268069                  `                                                   WINDOWS _6D20MM7T71423268069!      !  !  !  !      e"  "                                               WINDOWS _6D20MM7T81423268069#      #  #  #  #      g$  $                                               WINDOWS _6D20MM7T91423268069%      %  %  %  %      k&  &                                               WINDOWS _6D20MM7TA1423267633'      '  '  '  '                                                           WINDOWS _6D20MM7TB1423266993)      )  )  *  +*                                                           WINDOWS _6D20MM7TC1423267633`*      o*  ~*  *  *                                                           WINDOWS _6D20MM7TD1423266993 +      .+  <+  K+  o+                                                           WINDOWS _6D20MM7TE1423267633+      +  +  +  +                                                           WINDOWS _6D20MM7TF1423266993o,      },  ,  ,  ,                                                           WINDOWS _6D20MM7TG1423267633,      -  -  (-  L-                                                           WINDOWS _6D20NF19Q1423267569-  -  -  -  	.  .                                                           COMMENT RESERVED                                .                                                            .                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      sPROCEDURE BeforeOpenTables
CREATE CURSOR soza_andere (f0 C(35), f1 c(12), f2 C(12))
select soza_andere
ENDPROC
                                     ]\   %                             U  K A h soza_andere  C#  C  C F   U  SOZA_ANDERE F0 F1 F2 BeforeOpenTables,     1 q 1                       h       )                            1      1      form      form      FORM1      Height = 539
Width = 660
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Jahressonderzahlung (tariflich)"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
mysonderzahlung_andere = Thisform

Thisform.zeile0.Caption = "Jahressonderzahlung " + welchesjahrc

*myform1.Visible = .F.

Select soza_andere
For hsa = 1 To 25
	Append Blank
	Flush
Next


With Thisform.combo0
	For i = 10 To 23
		.AddItem(zt4(1+i))
	Next
	.AddItem("TV-Hessen")
	If AOK_Version = True
		.AddItem(zt4(1+6)) &&AOK_Version
	Else
		.AddItem("G E S P E R R T")
	Endif
	.AddItem("TV-L Pflege") &&TV-L Pflege ab 2019
	.AddItem("TV-L SuE") &&TV-L SuE
	.AddItem("TV-H Pflege") &&TV-H Pflege ab 2019
	.AddItem("TV-H SuE") &&TV-H SuE
Endwith


If zi(1+4) < 10 .Or. zi(1+4) > 24
	Thisform.combo0.ListIndex = 1+0 &&HS+1
Else
	If zi(1+2) = 7 .And. zi(1+4) = 11
		Thisform.combo0.ListIndex = 1+14 &&HS+1
	Else
		Thisform.combo0.ListIndex = 1+zi(1+4) - 10 &&HS+1
	Endif
Endif

Do jasozafllen
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

prozsp1 =  200 / 383
prozsp2 =  75 / 383

grdbreite = thisform.grdSoza_andere.Width 
thisform.grdSoza_andere.column1.Width = grdbreite * prozsp1
thisform.grdSoza_andere.column2.Width = grdbreite * prozsp2
thisform.grdSoza_andere.column3.Width = grdbreite * prozsp2

thisform.grdSoza_andere.column1.text1.fontsize = thisform.grdSoza_andere.column1.fontsize
thisform.grdSoza_andere.column2.text1.fontsize = thisform.grdSoza_andere.column1.fontsize
thisform.grdSoza_andere.column3.text1.fontsize = thisform.grdSoza_andere.column1.fontsize
ENDPROC
PROCEDURE Destroy
*myform1.visible = .t.
ENDPROC
     ~    e  e                        5   %   q        .               U  
 T   + T    Jahressonderzahlung   F   (_   [    e  
(  CC 
 	   C	 TV-Hessen	  %    CC
 	   C G E S P E R R T	   C TV-L Pflege	  C TV-L SuE	  C TV-H Pflege	  C TV-H SuE	  $ %C
 

 C
  T    
$ %C
  C
 	 T     T   C
 
     U  MYSONDERZAHLUNG_ANDERE THISFORM ZEILE0 CAPTION WELCHESJAHRC SOZA_ANDERE HSA COMBO0 I ADDITEM ZT4 AOK_VERSION TRUE ZI	 LISTINDEX JASOZAFLLEN C     T   ε? T  !ε? T      T        T   	     T   
    " T           " T   	        " T   
         U
  THISFORM SIZER	 FRMRESIZE PROZSP1 PROZSP2	 GRDBREITE GRDSOZA_ANDERE WIDTH COLUMN1 COLUMN2 COLUMN3 TEXT1 FONTSIZE  U   Init,      Resize     Destroyj    1  t qQ A A qaA q! A aaA C1 A1 A A r 2 ba2"!!2 2                       P     "   m    ,   -       ;    )   e                        label      label      zeile0      FORM1      qFontBold = .T.
FontSize = 12
Caption = "zeile0"
Height = 21
Left = 6
Top = 9
Width = 324
Name = "zeile0"
      combobox      combobox      Combo0      FORM1      ]Height = 22
Left = 6
TabIndex = 97
Top = 42
Visible = .T.
Width = 255
Name = "Combo0"
      PROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
DO jasozafllen
ENDPROC
PROCEDURE GotFocus
counter = 1

ENDPROC
                                   Z   %            	                U  
 
     U  THIS CLICK
 
     U  THIS CLICK
     U  JASOZAFLLEN 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangeJ      Clickh      GotFocus     1  2  2 r 2  2                       (         P   Z         v                      )                           
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 87
Left = 6
Height = 43
Width = 255
Caption = "Vorgabewerte"
Style = 0
TabIndex = 36
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
      PROCEDURE Click
*SET STEP ON 
iii = j + 1
Do jahressonderzahlunganlegen &&Do attached
Do jasozafllen &&Do attached
RETURN

ENDPROC
                                     A   %                             U  &  T        B U  III J JAHRESSONDERZAHLUNGANLEGEN JASOZAFLLEN Click,     1 q q A 2                              )                            
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 230
Left = 6
Height = 43
Width = 255
Caption = "Schlieen"
TabIndex = 37
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      cPROCEDURE Click

SELECT soza_andere
USE

*myform1.visible = .t.

thisform.Release
ENDPROC
                                      ez   %   h             w             U    F   Q
    U  SOZA_ANDERE THISFORM RELEASE Click,     1 r A  1                       X       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 183
Left = 6
Height = 43
Width = 255
Caption = "Hilfe"
Style = 0
TabIndex = 38
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      QPROCEDURE Click
inet = 111
Msg = "127"
Do insinternet &&Do attached
ENDPROC
                                      5   %   o             ~             U  ' 
 T  o T  127   U  INET MSG INSINTERNET Click,     1  q 1                       F       )                            
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 135
Left = 6
Height = 43
Width = 255
Caption = "Vorschrift"
TabIndex = 39
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
      3PROCEDURE Click

Do tvoedsonderzahlung
ENDPROC
                                         %   N       c      ]             U  
     U  TVOEDSONDERZAHLUNG Click,     1 r 1                       (       )                            label      label      zeile2      FORM1      Caption = "Klicken Sie nach einer nderung "
Height = 17
Left = 15
Top = 434
Visible = .T.
Width = 242
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      Caption = "in der Menzeile auf"
Height = 17
Left = 15
Top = 449
Visible = .T.
Width = 242
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      Caption = '"Daten/Alle Flle neu durchrechnen"'
Height = 17
Left = 15
Top = 464
Visible = .T.
Width = 242
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      Caption = "Ansonsten wird die nderung erst"
Height = 17
Left = 15
Top = 479
Visible = .T.
Width = 242
TabIndex = 7
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      Caption = "bei neu angelegten Fllen wirksam."
Height = 17
Left = 15
Top = 494
Visible = .T.
Width = 242
TabIndex = 8
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            grid      grid      grdSoza_andere      FORM1     ColumnCount = 3
DeleteMark = .F.
Height = 471
Left = 268
Panel = 1
ReadOnly = .T.
RecordSource = "SOZA_ANDERE"
RecordSourceType = 1
ScrollBars = 2
Top = 45
Width = 383
Name = "grdSoza_andere"
Column1.ControlSource = "SOZA_ANDERE.f0"
Column1.Width = 200
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "SOZA_ANDERE.f1"
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "SOZA_ANDERE.f2"
Column3.ReadOnly = .T.
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdSoza_andere.Column1      -Caption = "Entgeltgruppe"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSoza_andere.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSoza_andere.Column2      8Alignment = 1
Caption = "West in %"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSoza_andere.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSoza_andere.Column3      7Alignment = 1
Caption = "Ost in %"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSoza_andere.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 519
Left = 642
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6D20VFDM21423275796      /  F      ]        d                                           WINDOWS _6D20VFDM31430476521                      ]                                               WINDOWS _6D20VFDMC1423275796#      #  #  #  #                                                           WINDOWS _6D20VFDMD1423275796<$      H$  T$  q$  ~$                                                           WINDOWS _6D20VFDME1423275796'      '  '  
(  8(                                                           WINDOWS _6D20VFDMF1423275796u(      (  (  (  (                                                           WINDOWS _6D20VFDMG1423275796<)      J)  X)  g)  )                                                           WINDOWS _6D20VFDMH1423275796)      )  )  )  *                                                           WINDOWS _6D20VFDMI1423275796*      *  *  *  *                                                           WINDOWS _6D20VFDMJ1423275796+      #+  2+  ?+  j+                                                           WINDOWS _6D20VFDMK1423275796+      +  +  ,  1,                                                           WINDOWS _6D20VFDML1423276349s,      ,  ,  ,  ,                                                           WINDOWS _6D20VFDMM1423275796I-      W-  e-  t-  -                                                           WINDOWS _6D20VFDMN1423276349-      -  -  .  6.                                                           WINDOWS _6D20VFDMO1423276460.      .  .  .  .      \/  3                                               WINDOWS _6D20VFDMP1423275796k5      5  5  5  5      6  I6                                               WINDOWS _6D20VFDMQ14232757967  (7  H7  W7  d7  q7                                                           COMMENT RESERVED                                7                                                            8(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR ueberweisungsliste (f0 C(35), f1 C(35), f2 c(35), f3 C(12), f4 C(12))
SELECT ueberweisungsliste 

ENDPROC
     L    3  3                        9   %                             U  p f h ueberweisungsliste  C#  C#  C#  C  C F   U  UEBERWEISUNGSLISTE F0 F1 F2 F3 F4 BeforeOpenTables,     1 aq 2                              )   3                        1      1      form      form      FORM1      Height = 477
Width = 895
ShowWindow = 2
ScrollBars = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "berweisungsliste"
Icon = prgicons\haupticon.ico
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()

prozsp1 =  225 / 856
prozsp2 =  88 / 856

grdbreite = thisform.grdUeberweisungsliste.Width 
thisform.grdUeberweisungsliste.column1.Width = grdbreite * prozsp1
thisform.grdUeberweisungsliste.column2.Width = grdbreite * prozsp1
thisform.grdUeberweisungsliste.column3.Width = grdbreite * prozsp1
thisform.grdUeberweisungsliste.column4.Width = grdbreite * prozsp2
thisform.grdUeberweisungsliste.column5.Width = grdbreite * prozsp2

thisform.grdUeberweisungsliste.column1.text1.fontsize = thisform.grdUeberweisungsliste.column1.fontsize
thisform.grdUeberweisungsliste.column2.text1.fontsize = thisform.grdUeberweisungsliste.column1.fontsize
thisform.grdUeberweisungsliste.column3.text1.fontsize = thisform.grdUeberweisungsliste.column1.fontsize
thisform.grdUeberweisungsliste.column4.text1.fontsize = thisform.grdUeberweisungsliste.column1.fontsize
thisform.grdUeberweisungsliste.column5.text1.fontsize = thisform.grdUeberweisungsliste.column1.fontsize
ENDPROC
PROCEDURE Init
Do monatladen &&Do attached
Thisform.zeile0.Caption = "berweisungsliste fr den Monat " + Alltrim(sumonattext(1+zi(1+20))) + " " + welchesjahrc + " in EURO"

Select Ueberweisungsliste
For hsa = 1 To satzanzahl + 6
	Append Blank
	Flush
Next
Goto 1
Replace Ueberweisungsliste.f0 With "B E S O L D U N G"
Flush

sicht(1+1,1+ 1) = 0
*!*			.Col = 0
*!*			.Row = 1
*!*			.Text = "B E S O L D U N G"

j = 2
For i = 1 To satzanzahl && - 1
	myget(Monat, i,"wvw")
	myget(13, i,"wnw")
	Select Ueberweisungsliste

	If wvw.znam(4) < 10 .And. wvw.tnam(1+45) > 0
*!*			.Row = j
		Goto j
		*!*					.Col = 0
		*!*					.CellAlignment = 1
		Replace Ueberweisungsliste.f0 With zt0(1+i - 1)
		*!*					.Col = 1
		*!*					.CellAlignment = 1
		If Len(Alltrim(wnw.ZIBAN)) > 20
			Replace Ueberweisungsliste.f1 With Trim(wnw.ZIBAN)
		Else
			Replace Ueberweisungsliste.f1 With Alltrim(wnw.Konto)
		Endif
		Flush
		*!*					.Col = 2
		*!*					.CellAlignment = 1
		If Len(Trim(wnw.ZBIC)) > 10
			Replace Ueberweisungsliste.f2 With Trim(wnw.ZBIC)
		Else
			Replace Ueberweisungsliste.f2 With Alltrim(wnw.BLZ)
		Endif
		Flush
		*!*					.Col = 3
		Replace Ueberweisungsliste.f3 With myformat(wvw.tnam(1+45) / 100, "###,##0.00")
		sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + wvw.tnam(1+45)
		*!*					.Col = 4
		*!*					.CellAlignment = 7
		Replace Ueberweisungsliste.f4 With "1." + Alltrim(Str(zi(1+20) + 1,10,0)) + "." + welchesjahrc
		j = j + 1
	Endif
Next
*!*			.Col = 0
*!*			.Row = .Row + 1
Goto Recno() + 1
Replace Ueberweisungsliste.f0 With "Gesamtsumme fr " + Alltrim(sumonattext(1+zi(1+20))) + " " + welchesjahrc &&& zi(1+20) + 1 + "." + welchesjahr
*!*			.Col = 3
Replace Ueberweisungsliste.f3 With myformat(sicht(1+1,1+ 1) / 100, "###,##0.00")
Flush

*!*			j = .Row + 2
j = Recno() + 2
*!*			.Col = 0
*!*			.Row = j
Goto j
Replace Ueberweisungsliste.f0 With "E N T G E L T E"
Flush

j = j + 1
sicht(1+1,1+ 1) = 0
For i = 1 To satzanzahl
	myget(Monat, i,"wvw")
	myget(13, i,"wnw")

	Select Ueberweisungsliste
	If wvw.znam(4) > 9 .And. wvw.tnam(1+45) > 0
		*!*					.Row = j
		Goto j
		*!*					.Col = 0
		Replace Ueberweisungsliste.f0 With zt0(1+i - 1)
		Flush
		*!*					.Col = 1
		*!*					.CellAlignment = 1
		If Len(Alltrim(wnw.ZIBAN)) > 20
			Replace Ueberweisungsliste.f1 With Trim(wnw.ZIBAN)
		Else
			Replace Ueberweisungsliste.f1 With Alltrim(wnw.Konto)
		Endif
		Flush
		*!*					.Col = 2
		*!*					.CellAlignment = 1
		If Len(Trim(wnw.ZBIC)) > 10
			Replace Ueberweisungsliste.f2 With Trim(wnw.ZBIC)
		Else
			Replace Ueberweisungsliste.f2 With Alltrim(wnw.BLZ)
		Endif
		Flush
		*!*					.Col = 3
		If zi(1+52) = 12 And zi(1+26) = 2 Then
			Replace Ueberweisungsliste.f3 With myformat((wvw.tnam(1+45) + Abs(wvw.tnam(1+26))) / 100, "###,##0.00")
			sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + (wvw.tnam(1+45) + Abs(wvw.tnam(1+26)))
		Else
			Replace Ueberweisungsliste.f3 With myformat(wvw.tnam(1+45) / 100, "###,##0.00")
			sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + wvw.tnam(1+45)
		Endif
		Flush
		*!*					.Text = myformat(wvw.tnam(1+45) / 100, "###,##0.00") &&alte version
		*!*					sicht(1+1,1+ 1) = sicht(1+1,1+ 1) + wvw.tnam(1+45)

		*!*					.Col = 4
		*!*					.CellAlignment = 7
		Replace Ueberweisungsliste.f4 With Alltrim(sumonattext(1+zi(1+20))) &&& " " + welchesjahr
		Flush
		j = j + 1
	Endif
Next
*!*			.Col = 0
*!*			.Row = .Row + 1
Goto Recno() + 1
Replace Ueberweisungsliste.f0 With "Gesamtsumme fr " + Alltrim(sumonattext(1+zi(1+20))) + " " + welchesjahrc
Flush
*!*			.Col = 3
Replace Ueberweisungsliste.f3 With myformat(sicht(1+1,1+ 1) / 100, "###,##0.00")
Flush
*!*		Endwith
SELECT ueberweisungsliste
GO top


ENDPROC
     (                                 %   	      
  h   	            U  ~ C     T  /Ċ? T  7XQ? T      T        T   	     T   
     T        T       " T    
       " T   	 
       " T   
 
       " T    
       " T    
        U  THISFORM SIZER	 FRMRESIZE PROZSP1 PROZSP2	 GRDBREITE GRDUEBERWEISUNGSLISTE WIDTH COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 TEXT1 FONTSIZE   Z T     berweisungsliste fr den Monat CCC       in EURO F   (	    [ 	 #! > 
  B E S O L D U N G [ T  
 T  
 (	  C   
  wvw  C
 
  wnw  F * %C  

 C.   		 #  > 
 C
   %CC  > >  C  `  >  C    [ %CC  `>
 >  C  `  >  C    [, >  CC.  d
 ###,##0.00 + T C C.  1 >   1.CCC 
 Z .  T     #CO; > 
  Gesamtsumme fr CCC     , >  CC d
 ###,##0.00  [ T CO	 #  > 
  E N T G E L T E [ T   T   
 (	  C   
  wvw  C
 
  wnw  F * %C  	 C.   		 #  > 
 C
   [ %CC  >o >  C  `  >  C    [ %CC  `>
 >  C  `  >  C    [$ %C5  C 	}: >  CC.  CC  d
 ###,##0.00 9 T C C.  CC   , >  CC.  d
 ###,##0.00 + T C C.    [ >  CCC   [ T     #CO; > 
  Gesamtsumme fr CCC      [, >  CC d
 ###,##0.00  [ F  #) U 
 MONATLADEN THISFORM ZEILE0 CAPTION SUMONATTEXT ZI WELCHESJAHRC UEBERWEISUNGSLISTE HSA
 SATZANZAHL F0 SICHT J I MYGET MONAT WVW ZNAM TNAM ZT0 WNW ZIBAN F1 KONTO ZBIC F2 BLZ F3 MYFORMAT F4 Resize,      InitC    1 ba2"!!!!2 q r Q A A  A  qqq  Q QA A Q QA A A A  A  A qqr  A Q QA A Q QA A B A A A A A  A A r Q 3                                       )                           label      label      zeile0      FORM1      rFontBold = .T.
FontSize = 12
Caption = "zeile0"
Height = 22
Left = 4
Top = 10
Width = 741
Name = "zeile0"
      grid      grid      grdUeberweisungsliste      FORM1     \ColumnCount = 5
DeleteMark = .F.
Height = 389
Left = 4
Panel = 1
ReadOnly = .T.
RecordSource = "UEBERWEISUNGSLISTE"
RecordSourceType = 1
ScrollBars = 2
Top = 37
Width = 886
Name = "grdUeberweisungsliste"
Column1.ControlSource = "UEBERWEISUNGSLISTE.f0"
Column1.Width = 225
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "UEBERWEISUNGSLISTE.f1"
Column2.Width = 225
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "UEBERWEISUNGSLISTE.f2"
Column3.Width = 225
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.Alignment = 1
Column4.ControlSource = "UEBERWEISUNGSLISTE.f3"
Column4.Width = 88
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.Alignment = 1
Column5.ControlSource = "UEBERWEISUNGSLISTE.f4"
Column5.Width = 88
Column5.ReadOnly = .T.
Column5.Name = "Column5"
      header      header      Header1      #FORM1.grdUeberweisungsliste.Column1      5Caption = "Name des Bediensteten"
Name = "Header1"
      textbox      textbox      Text1      #FORM1.grdUeberweisungsliste.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      #FORM1.grdUeberweisungsliste.Column2      ,Caption = "Konto / IBAN"
Name = "Header1"
      textbox      textbox      Text1      #FORM1.grdUeberweisungsliste.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      #FORM1.grdUeberweisungsliste.Column3      )Caption = "BLZ / BIC"
Name = "Header1"
      textbox      textbox      Text1      #FORM1.grdUeberweisungsliste.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      #FORM1.grdUeberweisungsliste.Column4      :Alignment = 1
Caption = "Nettogehalt"
Name = "Header1"
      textbox      textbox      Text1      #FORM1.grdUeberweisungsliste.Column4      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      #FORM1.grdUeberweisungsliste.Column5      9Alignment = 1
Caption = "Flligkeit"
Name = "Header1"
      textbox      textbox      Text1      #FORM1.grdUeberweisungsliste.Column5      xAlignment = 1
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      
commandbutton      
commandbutton      Command1      FORM1      WTop = 435
Left = 3
Height = 31
Width = 424
Caption = "Drucken"
Name = "Command1"
     PROCEDURE Click
*Procedure berweisungslistedrucken

	&&ffentlicher Dienst
	&&If druckenabled = 0 Then druckmeldung: Exit Sub
	PUBLIC 1
	1 = ""
*!*		CREATE CURSOR wliste (namepfall c(30), kto c(22), blz c(12), netto c(10), faellig c(10))
*!*		SELECT wliste
	
	a = 0
	myindex = 0

	1 = myTablett.zeile0.Caption
*!*		With myTablett.MSFlexGrid1
*!*			j = 1
*!*			For i = 0 To .Rows - 1
*!*				.Row = i
*!*				.Col = 3
*!*				If Alltrim(.Text) = "0,00"
*!*				ELSE
*!*					IF i >= 1
*!*						SELECT wliste
*!*						APPEND BLANK
*!*						flush
*!*					endif
*!*					.Col = 0
*!*					replace wliste.namepfall WITH ALLTRIM(.Text)
*!*					.Col = 1
*!*					replace wliste.kto WITH ALLTRIM(.Text)
*!*					.Col = 2
*!*					replace wliste.blz WITH ALLTRIM(.Text)
*!*					.Col = 3
*!*					replace wliste.netto WITH ALLTRIM(.Text)
*!*					.Col = 4
*!*					replace wliste.faellig WITH ALLTRIM(.Text)
*!*					flush

*!*				Endif
*!*			Next
*!*		Endwith

	SELECT ueberweisungsliste
	GO top


    REPORT FORM wliste1 WHILE .not. EOF() NOCONSOLE to printer prompt
	

*!*		SELECT wliste
*!*		USE
	RELEASE 1
ENDPROC
     t    [  [                        gj   %                            U  q  7  
 T    
 T  
 T   T      F  #) ? wliste1(!"9+C+
 <   U  1 A MYINDEX	 MYTABLETT ZEILE0 CAPTION UEBERWEISUNGSLISTE WLISTE1 Click,     1 u    2q Q u 1                             )   [                        
commandbutton      
commandbutton      Command2      FORM1      [Top = 435
Left = 432
Height = 31
Width = 424
Caption = "Schlieen"
Name = "Command2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 459
Left = 876
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6EL0YJ2SC1427079379      /  F      ]                                                       WINDOWS _6EL0YJ2SD1482313883                      $
                                               WINDOWS _6EL0YJ2SC1427079553                                                                       WINDOWS _6EL0YQ0IG1482313221@      M  Z  h  u                                                           WINDOWS _6EL0YJ2SE1427080338          *                                                           WINDOWS _6EL0YJ2SF1427133474             
      z                                                  WINDOWS _6EL0YJ2SG1427080338            	      t                                                 WINDOWS _6EL0YJ2SH1427080338            
      y                                                 WINDOWS _6EL0YJ2SI1482313883|                                                                       WINDOWS _6EL0YJ2SJ1427080338V      c  p  ~                                                             WINDOWS _6EL0YJ2SK1482312617      ,  ;  H  U                                                        WINDOWS _6EL0YJ2SL1482313221!      !  !  !  !                                                           WINDOWS _6EL0YJ2SM1482313221"      "  "  "  "      #  r$                                               WINDOWS _6EL0YJ2SN1427080338#&      3&  C&  Q&  ^&      &  	)                                               WINDOWS _6EL0YJ2SO1482313221T*      d*  t*  *  *      *  :-                                               WINDOWS _6EL0YJ2SP1427080338.      .  .  .  .                                                           WINDOWS _6EL0YJ2SC1427133533$/      1/  >/  L/  Y/                                                           WINDOWS _6EM0MOJ4B1482313221/      /  /  /  0                                                           COMMENT RESERVED                                z0                                                            0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 490
Width = 375
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Tariftabellen-Faktoren"
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     iPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
SET DECIMALS TO 3
thisform.label1.Caption = ALLTRIM(thisform.label1.Caption) + " " + welchesjahrc
thisform.edit1.Value = "Die Multiplikatoren wirken nur auf die in den Tariftabellen hinterlegten Werte fr die Programmzeilen 08 bis 10. Der Multiplikator wirkt auf die Tariftabellen aller Bundeslnder und lt sich nicht auf ein bestimmtes Bundesland eingrenzen." + Chr(13) + Chr(13) + "Ein Faktor fr alle Bruttobetrge (Zeilen 08 bis 20) kann fr einen einzelnen Personalfall in Programmzeile 22 eingegeben, wenn dort die Prozent-Option gewhlt ist."

thisform.text1.Value = vorein.vormultiplikatorb * 100
thisform.text2.value = vorein.vormultiplikatora * 100

If welchermonatb < 0
	welchermonatb = 0
Endif

If welchermonata < 0
	welchermonata = 0
Endif

thisform.combo1.Clear

For ij = 1 To 12
	thisform.combo1.AddItem("Multiplikator anwenden ab " + ALLTRIM(STR(ij,2,0)) + "/" + welchesjahrc)
Next

thisform.combo1.ListIndex = welchermonatb + 1

thisform.combo2.Clear

For ij = 1 To 12
	thisform.combo2.AddItem("Multiplikator anwenden ab " + ALLTRIM(STR(ij,2,0)) + "/" + welchesjahrc)
Next

thisform.combo2.ListIndex = welchermonata + 1

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

thisform.text1.setfocus

ENDPROC
         k  k                        P   %           $               U    C     U  THISFORM SIZER	 FRMRESIZE G
($ T    C       T     Die Multiplikatoren wirken nur auf die in den Tariftabellen hinterlegten Werte fr die Programmzeilen 08 bis 10. Der Multiplikator wirkt auf die Tariftabellen aller Bundeslnder und lt sich nicht auf ein bestimmtes Bundesland eingrenzen.C
 C
 ٤ Ein Faktor fr alle Bruttobetrge (Zeilen 08 bis 20) kann fr einen einzelnen Personalfall in Programmzeile 22 eingegeben, wenn dort die Prozent-Option gewhlt ist. T      d T  	   
 d %  
7
 T    %  
Y
 T   
   
    (D C Multiplikator anwenden ab CC  Z /   
    T  
   
       (HD C Multiplikator anwenden ab CC  Z /       T      %      T C     T 
 T  
      T         T        
     T   a
      U  THISFORM LABEL1 CAPTION WELCHESJAHRC EDIT1 VALUE TEXT1 VOREIN VORMULTIPLIKATORB TEXT2 VORMULTIPLIKATORA
 WELCHERMONATB
 WELCHERMONATA COMBO1 CLEAR IJ ADDITEM	 LISTINDEX COMBO2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER SETFOCUS Resize,      Init_     1 2  Aa A  A  rAA r rAA r  A     2                       ,         G   ^      )   k                        shape      shape      Shape1      FORM1      STop = 84
Left = 6
Height = 100
Width = 364
SpecialEffect = 0
Name = "Shape1"
      shape      shape      Shape2      FORM1      TTop = 197
Left = 6
Height = 100
Width = 364
SpecialEffect = 0
Name = "Shape2"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 471
Left = 357
TabIndex = 5
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      FORM1      eTop = 6
Left = 9
Height = 28
Width = 118
Caption = "speichern"
TabIndex = 6
Name = "Command1"
     PROCEDURE Click
multiplikatorb = thisform.text1.Value / 100
If thisform.text1.Value > 200
	multiplikatorb = 1
Endif

welchermonatb = thisform.combo1.ListIndex - 1

&&multiplikatora = mytablett.combo3.ListIndex / 1000 + 0.88
multiplikatora = thisform.text2.Value / 100
If thisform.text2.Value > 200
	multiplikatora = 1
Endif

welchermonata = thisform.combo2.ListIndex - 1

Do voreinstaus &&Do attached
Do voreinstein &&Do attached

speichercheck = 1

If Monat = 0
	Monat = 1
Endif

&&berechnungauslsen                                           &&
&&Unload mytablett
thisform.Release

Do neudurchrechnen &&Do attached
DO anzeige

ENDPROC
                                      %         8                 U   T     d %   ; 
 T    T     T    d %    
 T   T	  
      
 T
  %   
 T  
        U  MULTIPLIKATORB THISFORM TEXT1 VALUE
 WELCHERMONATB COMBO1	 LISTINDEX MULTIPLIKATORA TEXT2
 WELCHERMONATA COMBO2 VOREINSTAUS VOREINSTEIN
 SPEICHERCHECK MONAT RELEASE NEUDURCHRECHNEN ANZEIGE Click,     1 qq A rsq A rr q   A  r q 2                             )                           
commandbutton      
commandbutton      Command2      FORM1      cTop = 6
Left = 129
Height = 28
Width = 118
Caption = "Hilfe"
TabIndex = 8
Name = "Command2"
      SPROCEDURE Click
inet = 111
Msg = "20445"
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  ) 
 T  o T  20445   U  INET MSG INSINTERNET Click,     1  !q 1                       H       )                            
commandbutton      
commandbutton      Command3      FORM1      gTop = 6
Left = 249
Height = 28
Width = 118
Caption = "abbrechen"
TabIndex = 7
Name = "Command3"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            label      label      Label1      FORM1      FontBold = .T.
FontSize = 14
Caption = "Einsatz der Tariftabellen im Jahr "
Height = 25
Left = 12
Top = 45
Width = 355
TabIndex = 9
Name = "Label1"
      label      label      Label2      FORM1      Caption = "Beamtenbesoldung in Prozent der Tabellenwerte"
Height = 19
Left = 12
Top = 89
Width = 346
TabIndex = 10
Name = "Label2"
      textbox      textbox      Text1      FORM1      FontBold = .T.
FontSize = 11
Alignment = 1
Format = "999.999"
Height = 24
InputMask = "999.999"
Left = 12
SelectOnEntry = .T.
TabIndex = 1
Top = 117
Width = 66
Name = "Text1"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE GotFocus
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
                                   =   %          7  
   #            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT KeyPress,      GotFocus     1  QA 2 Q1                                          )                           label      label      Label3      FORM1      Caption = "Entgelt der Tarifbeschftigten in Prozent der Tabellenwerte"
Height = 19
Left = 12
Top = 203
Width = 346
TabIndex = 11
Name = "Label3"
      textbox      textbox      Text2      FORM1      FontBold = .T.
FontSize = 11
Alignment = 1
Format = "999.999"
Height = 24
InputMask = "999.999"
Left = 12
SelectOnEntry = .T.
TabIndex = 3
Top = 231
Width = 66
Name = "Text2"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE GotFocus

This.SelStart = 0
This.SelLength = LEN(This.Text)

ENDPROC
                                   =   %          7  
   #            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT KeyPress,      GotFocus     1  QA 2 Q2                                          )                           combobox      combobox      Combo1      FORM1      OHeight = 27
Left = 12
TabIndex = 2
Top = 144
Width = 348
Name = "Combo1"
     LPROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE Click

*!*	For i = 1 To 12
*!*	    kvzahl(i) = kvbeitrag1(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    u1zahl(i) = kvbeitrag2(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    u2zahl(i) = kvbeitrag3(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    kvzahle(i) = kvbeitrag4(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    zusatz(i) = kvbeitrag5(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	Next
*!*	thisform.refresh
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
     C    *  *                        G   %   o                          U  
 
     U  THIS CLICK  U  
 
     U  THIS CLICK ProgrammaticChange,      ClickJ      InteractiveChangeQ     1  2 ;  1                       (         D           7  A      )   *                        combobox      combobox      Combo2      FORM1      OHeight = 27
Left = 12
TabIndex = 4
Top = 258
Width = 348
Name = "Combo2"
     LPROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click

*!*	For i = 1 To 12
*!*	    kvzahl(i) = kvbeitrag1(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    u1zahl(i) = kvbeitrag2(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    u2zahl(i) = kvbeitrag3(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    kvzahle(i) = kvbeitrag4(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	    zusatz(i) = kvbeitrag5(thisform.Combo1.ListIndex, i) / 100 &&, "#0.00")
*!*	Next
*!*	thisform.refresh
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
     C    *  *                        G   %   o                          U  
 
     U  THIS CLICK  U  
 
     U  THIS CLICK InteractiveChange,      ClickJ      ProgrammaticChangeQ     1  2 ;  1                       '         C           7  A      )   *                        editbox      editbox      Edit1      FORM1      _Height = 168
Left = 6
ReadOnly = .T.
TabIndex = 12
Top = 309
Width = 364
Name = "Edit1"
      label      label      Label4      FORM1      nFontBold = .T.
FontSize = 14
Caption = "%"
Height = 22
Left = 81
Top = 117
Width = 19
Name = "Label4"
      label      label      Label5      FORM1      nFontBold = .T.
FontSize = 14
Caption = "%"
Height = 22
Left = 81
Top = 232
Width = 19
Name = "Label5"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 11, 7, 18, 14, 39, 4, 0
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6EZ0PL0771427988230      /  F      ]                                                       WINDOWS _6EZ0PL0781467047440                      g                                               WINDOWS _6EZ0PL0791427988230T      a  n  |                                                             WINDOWS _6EZ0PL07A1427988230
      ,
  ;
  H
  U
                                                           WINDOWS _6EZ0PL07B1427988801
      
  
  
  
        
                                               WINDOWS _6EZ0PL07C1427988525T      i  ~            T                                               WINDOWS _6EZ0PL07M1427988230H      ]  r            %                                               WINDOWS _6EZ0Q2T701427988801    $  3  @  M                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 454
Width = 382
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Voreinstellungen"
MaxButton = .F.
MinButton = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
hserklrungstext = "Das Programm legt neue Datenstze nicht leer an, sondern fllt sie gleich mit einer Musterberechnung (z.B. fr VKA-Angestellte). " + "Wenn Sie die Schaltflche BERNEHMEN anklicken, wird die aktuell eingestellte Berechnung fr alle knftig anzulegenden Datenstze als Musterberechnung verwendet." + " Auf diese Weise knnen Sie die Arbeit mit dem Programm wesentlich erleichtern."
*!*	For i = 1 To 12
*!*		myget(20, i + 3971,"woerter")
*!*		hsxneu = ALLTRIM(woerter.textee)
*!*		IF RIGHT(hsxneu,1) = "-"
*!*			hsxneu = SUBSTR(hsxneu,1,LEN(hsxneu) -1)
*!*		endif
*!*		hserklrungstext  = ALLTRIM(hserklrungstext) + " " + hsxneu
*!*	NEXT
thisform.edit1.Value = hserklrungstext 

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
                                      %   5      s     S            U    C     U  THISFORM SIZER	 FRMRESIZEHT  ف Das Programm legt neue Datenstze nicht leer an, sondern fllt sie gleich mit einer Musterberechnung (z.B. fr VKA-Angestellte). ١ Wenn Sie die Schaltflche BERNEHMEN anklicken, wird die aktuell eingestellte Berechnung fr alle knftig anzulegenden Datenstze als Musterberechnung verwendet.O  Auf diese Weise knnen Sie die Arbeit mit dem Programm wesentlich erleichtern. T      %     T C    T 
 T  
   	  T       T 
  
   
    T  a U
  HSERKLRUNGSTEXT THISFORM EDIT1 VALUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 a9  A    2                       ,         G   x      )                           label      label      Label1      FORM1      FontBold = .T.
FontSize = 14
Caption = "V O R E I N S T E L L U N G E N"
Height = 21
Left = 45
Top = 20
Width = 285
Name = "Label1"
      editbox      editbox      Edit1      FORM1      PHeight = 217
Left = 19
ReadOnly = .T.
Top = 66
Width = 337
Name = "Edit1"
      
commandbutton      
commandbutton      
ssCommand1      FORM1      Top = 309
Left = 19
Height = 34
Width = 337
Caption = "Aktuelle Berechnung als Voreinstellung bernehmen"
Name = "ssCommand1"
     PROCEDURE Click
Do wvwout &&Do attached

wvw.znam(20) = 0

If zi(1+25) < 3 .Or. zi(1+25) > 3
	betrag(1+25) = INT(wert(1+25))
Endif

myput(70, 1,"wvw")
myput(71, 1,"wnw")

For k = 1 To 12
	myget(k, fileneu,"wvw")
	myput(k, satzanzahl,"wvw")
Next k

myget(13, fileneu,"wnw")
myput(13, satzanzahl,"wnw")

myget(1, fileneu,"wvw")
myget(13, fileneu,"wnw")

ENDPROC
     B    )  )                        I   %                          U  4    T   $ %C 
 C Z  T CC 8  CF wvw  CG wnw   (  C   	  wvw  C   
  wvw   C
 	  wnw  C
 
  wnw  C 	  wvw  C
 	  wnw  U  WVWOUT WVW ZNAM ZI BETRAG WERT MYPUT K MYGET FILENEU
 SATZANZAHL Click,     1 q bBA barA rqrq2                       u      )   )                        
commandbutton      
commandbutton      Command2      FORM1      VTop = 357
Left = 19
Height = 34
Width = 337
Caption = "Hilfe"
Name = "Command2"
      SPROCEDURE Click
inet = 111
Msg = "20500"
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  ) 
 T  o T  20500   U  INET MSG INSINTERNET Click,     1  !q 1                       H       )                            
commandbutton      
commandbutton      Command3      FORM1      ZTop = 393
Left = 19
Height = 34
Width = 337
Caption = "Schlieen"
Name = "Command3"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 432
Left = 360
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6F00N35HS1428052667      /  F      ]        V                                           WINDOWS _6F00N35HU1533300224                    g  p                                               WINDOWS _6FZ0UX32Q1430549297ߕ                                                                       WINDOWS _6F00N35I71428052525          ̖  ٖ                                                           WINDOWS _6F00N35I81428052525      '  5  D  k                                                           WINDOWS _6F00N35I91428052525        Ù  Й                                                             WINDOWS _6F00N35IA1428052525g      u                                                                 WINDOWS _6F00N35IB1428052525      
    &  M                                                           WINDOWS _6F00N35IC1428052525      ˛  ٛ                                                               WINDOWS _6F00N35ID1428052525Q      `  o  |                                                             WINDOWS _6F00N35HV1428058912      (  =  O  \                                                       WINDOWS _6F00N35HW1428058912        -  ?  L                                                       WINDOWS _6F00N35HX1428059425      à  Р  ޠ                                                             WINDOWS _6F00N35HY1430549010z            á      2  ڢ                                               WINDOWS _6F00N35HZ1428053125)      8  G  U  b                                                           WINDOWS _6F00N35I01428053032      Ȥ  դ                                                               WINDOWS _6F00N35I11428053032V      c  p  ~                                                             WINDOWS _6F00N35HS1428052667            '                                                           WINDOWS _6F00N35I31428053032            Φ      6  D                                               WINDOWS _6F00N35I41428058808ϩ      ީ                                                                 WINDOWS _6F00N35I51428053032b      q                                                                 WINDOWS _6F00N35I61533300224          (  5        4                                              WINDOWS _6F00N35HS1428052525>     K X f s                                                          WINDOWS _6F00N35HS1428053612ԋ        	                                                          WINDOWS _6F00PEV5J1428053612x                                                                  WINDOWS _6F00PEV5K1428058485       - :                                                          WINDOWS _6F00UF9O11428058485Ս    ! .                                                          COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR importstruktur (nr C(3), erklrung1 C(40), erklrung2 C(40))
SELECT importstruktur

ENDPROC
     .                              :   %                             U  N D h importstruktur  C  C(  C( F   U  IMPORTSTRUKTUR NR
 ERKLRUNG1
 ERKLRUNG2 BeforeOpenTables,     1 Aq 2                              )                           1      1      form      form      FORM1      Height = 608
Width = 742
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Import von HIS"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     kPROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.grdImportstruktur.column1.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
thisform.grdImportstruktur.column2.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
thisform.grdImportstruktur.column3.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
ENDPROC
PROCEDURE Init
thisform.combo0.AddItem("HIS ab 2007 (mit TVD und TV-L)")
thisform.combo0.ListIndex = 1
thisform.text15.Value = ""
thisform.zeile9.Value = ""
thisform.tdbnumber1.Value = 1

Do Case && modus
	Case modus = 0
		Msg = " INFO"
	Case modus = 1
		Msg = " PLAN"
	Case modus = 2
		Msg = " REAL"
Endcase

thisform.zeile9.value = welchesjahrc + " " + muser + " " + Msg

thisform.grdimportstruktur.column2.heADER1.Caption = "Dateivorspann" + CHR(13) + "Trennzeichen fr Datenfelder" + CHR(13) + "Trennzeichen fr Datenstze"
thisform.grdimportstruktur.column3.heADER1.Caption = "kein Vorspann" + CHR(13) + "; (Semikolon)" + CHR(13) + "chr(13)(Zeilenvorschub)"

SELECT importstruktur
FOR hsa = 1 TO 88
	APPEND BLANK
	FLUSH
	replace importstruktur.nr WITH ALLTRIM(STR(hsa,3,0))
	FLUSH
NEXT

GOTO 1
replace importstruktur.erklrung1 WITH "Angabe des Startmonats"
flush
skip
replace importstruktur.erklrung1 WITH "PersonalNr#VertragsNr#/"
flush
skip
replace importstruktur.erklrung1 WITH "Dienstalter"
flush
skip
replace importstruktur.erklrung1 WITH "Besoldungsdienstalter"
flush
skip
replace importstruktur.erklrung1 WITH "Bundesland"
flush
skip
replace importstruktur.erklrung1 WITH "Ehegattenbeschftigung"
flush
skip
replace importstruktur.erklrung1 WITH "Dienstverhaeltnis"
flush
skip
replace importstruktur.erklrung1 WITH "Besoldungsgruppe"
flush
skip
replace importstruktur.erklrung1 WITH "Dienstbezeichnung"
flush
skip
replace importstruktur.erklrung1 WITH "Gehaltsstufe"
flush
skip
replace importstruktur.erklrung1 WITH "Grundgehalt"
flush
skip
replace importstruktur.erklrung1 WITH "Ortszuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Ortszuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Allg.Stellenzulage"
flush
skip
replace importstruktur.erklrung1 WITH "Allg.Stellenzulage"
flush
skip
replace importstruktur.erklrung1 WITH "VWL"
flush
skip
replace importstruktur.erklrung1 WITH "VWL"
flush
skip
replace importstruktur.erklrung1 WITH "Leistungszulage"
flush
skip
replace importstruktur.erklrung1 WITH "Leistungszulage"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 1"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 1"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 2"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 2"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 3"
flush
skip
replace importstruktur.erklrung1 WITH "Zulagen 3"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerpflichtiger Zuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerpflichtiger Zuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerfreier Zuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerfreier Zuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Sonderzahlungen 1"
flush
skip
replace importstruktur.erklrung1 WITH "Sonderzahlungen 1"
flush
skip
replace importstruktur.erklrung1 WITH "Sonderzahlungen 2"
flush
skip
replace importstruktur.erklrung1 WITH "Sonderzahlungen 2"
flush
skip
replace importstruktur.erklrung1 WITH "Sonstige Bezge"
flush
skip
replace importstruktur.erklrung1 WITH "Sonstige Bezge"
flush
skip
replace importstruktur.erklrung1 WITH "Bruttogehalt"
flush
skip
replace importstruktur.erklrung1 WITH "Teilzeitgehalt"
flush
skip
replace importstruktur.erklrung1 WITH "Bruchteilsgehalt"
flush
skip
replace importstruktur.erklrung1 WITH "Versorgungsabschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerfreibetrag"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerfreibetrag"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 1"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 1"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 2"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 2"
flush
skip
replace importstruktur.erklrung1 WITH "Zusatzversorgung"
flush
skip
replace importstruktur.erklrung1 WITH "ZV Umlagesatz"
flush
skip
replace importstruktur.erklrung1 WITH "ZV Kapitalsatz"
flush
skip
replace importstruktur.erklrung1 WITH "SV-Zusatzbeitrge"
flush
skip
replace importstruktur.erklrung1 WITH "SV-Zusatzbeitrge"
flush
skip
replace importstruktur.erklrung1 WITH "Kostenstelle"
flush
skip
replace importstruktur.erklrung1 WITH "Konfession"
flush
skip
replace importstruktur.erklrung1 WITH "Lohnsteuertabelle"
flush
skip
replace importstruktur.erklrung1 WITH "Lohnsteuerausgleich AG"
flush
skip
replace importstruktur.erklrung1 WITH "Altersentlastung"
flush
skip
replace importstruktur.erklrung1 WITH "Krankenkasse"
flush
skip
replace importstruktur.erklrung1 WITH "Lohnsteuerklasse"
flush
skip
replace importstruktur.erklrung1 WITH "Kindergeld"
flush
skip
replace importstruktur.erklrung1 WITH "Kindergeld"
flush
skip
replace importstruktur.erklrung1 WITH "Krankenversicherungssatz"
flush
skip
replace importstruktur.erklrung1 WITH "Krankenversicherungsbeitrag"
flush
skip
replace importstruktur.erklrung1 WITH "Solidarittszuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Solidarittszuschlag"
flush
skip
replace importstruktur.erklrung1 WITH "Kirchensteuer"
flush
skip
replace importstruktur.erklrung1 WITH "Kirchensteuer"
flush
skip
replace importstruktur.erklrung1 WITH "Pflegeversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "Pflegeversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "Rentenversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "Rentenversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "Arbeitslosenversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "Arbeitslosenversicherung"
flush
skip
replace importstruktur.erklrung1 WITH "ATV-Betriebsrente"
flush
skip
replace importstruktur.erklrung1 WITH "ATV-Betriebsrente"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 1"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 1"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 2"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 2"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 3"
flush
skip
replace importstruktur.erklrung1 WITH "Einbehalte 3"
flush
skip
replace importstruktur.erklrung1 WITH "Nettogehalt"
flush
skip
replace importstruktur.erklrung1 WITH "regulre Wochenstundenzahl"
flush
skip
replace importstruktur.erklrung1 WITH "Teilzeit Wochenstundenzahl"
flush
skip
replace importstruktur.erklrung1 WITH "Arbeitstage Normal"
flush
skip
replace importstruktur.erklrung1 WITH "Arbeitstage Teilmonat"
flush
skip
replace importstruktur.erklrung1 WITH "Freibetrag"
flush
skip
replace importstruktur.erklrung1 WITH "U1 (Entgeltfortzahlung)"
flush
skip
replace importstruktur.erklrung1 WITH "U2 (Mutterschutz)"
flush
skip
replace importstruktur.erklrung1 WITH "Mietstufe 1-7"
flush

GOTO 1
replace importstruktur.erklrung2 WITH "Jan. = 0, Febr. = 1 usw."        
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "String (max. 35 Zeichen)"        
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 7"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH 'String "MM/JJJJ"'                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 2"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 3"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 4"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 5"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 6"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 8"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 9"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 10"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 11"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 12"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 13"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 14"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 15"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 16"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 17"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 18"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 19"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 20"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Ordnungszahl des Monats)"        
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 22"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 23"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Prozenzsatz Zeile 23H"           
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 24"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 26"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 27"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert Umlagesatz"                 
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert Kapitalbeitragssatz"        
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 28"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 28"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 29"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 30"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 31"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 32"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 33"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 34"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 35"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 43"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 38"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 36"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 37"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 39"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 40"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 41"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 42"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 44"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 45"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 46"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert"                            
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Kennzahl Zeile 47"               
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Tarifliche Wochenstundenzahl"    
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Vereinbarte Wochenstundenzahl"   
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Arbeitstage des Monats"          
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Tage mit Gehaltsanspruch"        
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "Wert des Freibetrags in Zeile 25"
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "nein = 0, ja = 1"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "nein = 0, ja = 1"                
flush                                                                    
skip                                                                     
replace importstruktur.erklrung2 WITH "0 = ohne, ansonsten 1-7"                                  
flush                                 

GOTO 1

thisform.refresh

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Destroy
IF giveselect("importstruktur") > 0
	SELECT importstruktur
	USE
endif
ENDPROC
     $    $  $                        	T   %         b$  :              U  y  C    " T           " T           " T            U	  THISFORM SIZER	 FRMRESIZE GRDIMPORTSTRUKTUR COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3>2 C HIS ab 2007 (mit TVD und TV-L)     T     T       T       T    
 H       T	   INFO    T	   PLAN    T	   REAL % T    
      	 q T   
   
 DateivorspannC
  Trennzeichen fr DatenfelderC
  Trennzeichen fr Datenstze^ T      
 kein VorspannC
 
 ; (Semikolon)C
  chr(13)(Zeilenvorschub) F   (X1  [ >  CC  Z [ 	 #& >   Angabe des Startmonats [ H' >   PersonalNr#VertragsNr#/ [ H >   Dienstalter [ H% >   Besoldungsdienstalter [ H >  
 Bundesland [ H& >   Ehegattenbeschftigung [ H! >   Dienstverhaeltnis [ H  >   Besoldungsgruppe [ H! >   Dienstbezeichnung [ H >   Gehaltsstufe [ H >   Grundgehalt [ H >   Ortszuschlag [ H >   Ortszuschlag [ H" >   Allg.Stellenzulage [ H" >   Allg.Stellenzulage [ H >   VWL [ H >   VWL [ H >   Leistungszulage [ H >   Leistungszulage [ H >  	 Zulagen 1 [ H >  	 Zulagen 1 [ H >  	 Zulagen 2 [ H >  	 Zulagen 2 [ H >  	 Zulagen 3 [ H >  	 Zulagen 3 [ H* >   Steuerpflichtiger Zuschlag [ H* >   Steuerpflichtiger Zuschlag [ H% >   Steuerfreier Zuschlag [ H% >   Steuerfreier Zuschlag [ H! >   Sonderzahlungen 1 [ H! >   Sonderzahlungen 1 [ H! >   Sonderzahlungen 2 [ H! >   Sonderzahlungen 2 [ H >   Sonstige Bezge [ H >   Sonstige Bezge [ H >   Bruttogehalt [ H >   Teilzeitgehalt [ H  >   Bruchteilsgehalt [ H# >   Versorgungsabschlag [ H  >   Steuerfreibetrag [ H  >   Steuerfreibetrag [ H >   Sachbezge 1 [ H >   Sachbezge 1 [ H >   Sachbezge 2 [ H >   Sachbezge 2 [ H  >   Zusatzversorgung [ H >  
 ZV Umlagesatz [ H >   ZV Kapitalsatz [ H! >   SV-Zusatzbeitrge [ H! >   SV-Zusatzbeitrge [ H >   Kostenstelle [ H >  
 Konfession [ H! >   Lohnsteuertabelle [ H& >   Lohnsteuerausgleich AG [ H  >   Altersentlastung [ H >   Krankenkasse [ H  >   Lohnsteuerklasse [ H >  
 Kindergeld [ H >  
 Kindergeld [ H( >   Krankenversicherungssatz [ H+ >   Krankenversicherungsbeitrag [ H$ >   Solidarittszuschlag [ H$ >   Solidarittszuschlag [ H >  
 Kirchensteuer [ H >  
 Kirchensteuer [ H" >   Pflegeversicherung [ H" >   Pflegeversicherung [ H" >   Rentenversicherung [ H" >   Rentenversicherung [ H( >   Arbeitslosenversicherung [ H( >   Arbeitslosenversicherung [ H! >   ATV-Betriebsrente [ H! >   ATV-Betriebsrente [ H >   Einbehalte 1 [ H >   Einbehalte 1 [ H >   Einbehalte 2 [ H >   Einbehalte 2 [ H >   Einbehalte 3 [ H >   Einbehalte 3 [ H >   Nettogehalt [ H* >   regulre Wochenstundenzahl [ H* >   Teilzeit Wochenstundenzahl [ H" >   Arbeitstage Normal [ H% >   Arbeitstage Teilmonat [ H >  
 Freibetrag [ H' >   U1 (Entgeltfortzahlung) [ H! >   U2 (Mutterschutz) [ H >  
 Mietstufe 1-7 [	 #( >   Jan. = 0, Febr. = 1 usw. [ H( >   String (max. 35 Zeichen) [ H  >   Kennzahl Zeile 7 [ H  >   String "MM/JJJJ" [ H  >   Kennzahl Zeile 2 [ H  >   Kennzahl Zeile 3 [ H  >   Kennzahl Zeile 4 [ H  >   Kennzahl Zeile 5 [ H  >   Kennzahl Zeile 6 [ H  >   Kennzahl Zeile 8 [ H >   Wert [ H  >   Kennzahl Zeile 9 [ H >   Wert [ H! >   Kennzahl Zeile 10 [ H >   Wert [ H! >   Kennzahl Zeile 11 [ H >   Wert [ H! >   Kennzahl Zeile 12 [ H >   Wert [ H! >   Kennzahl Zeile 13 [ H >   Wert [ H! >   Kennzahl Zeile 14 [ H >   Wert [ H! >   Kennzahl Zeile 15 [ H >   Wert [ H! >   Kennzahl Zeile 16 [ H >   Wert [ H! >   Kennzahl Zeile 17 [ H >   Wert [ H! >   Kennzahl Zeile 18 [ H >   Wert [ H! >   Kennzahl Zeile 19 [ H >   Wert [ H! >   Kennzahl Zeile 20 [ H >   Wert [ H( >   Ordnungszahl des Monats) [ H! >   Kennzahl Zeile 22 [ H! >   Kennzahl Zeile 23 [ H% >   Prozenzsatz Zeile 23H [ H! >   Kennzahl Zeile 24 [ H >   Wert [ H! >   Kennzahl Zeile 26 [ H >   Wert [ H! >   Kennzahl Zeile 27 [ H >   Wert Umlagesatz [ H( >   Wert Kapitalbeitragssatz [ H! >   Kennzahl Zeile 28 [ H >   Wert [ H! >   Kennzahl Zeile 28 [ H >   Wert [ H! >   Kennzahl Zeile 29 [ H! >   Kennzahl Zeile 30 [ H! >   Kennzahl Zeile 31 [ H! >   Kennzahl Zeile 32 [ H! >   Kennzahl Zeile 33 [ H! >   Kennzahl Zeile 34 [ H! >   Kennzahl Zeile 35 [ H! >   Kennzahl Zeile 43 [ H >   Wert [ H! >   Kennzahl Zeile 38 [ H >   Wert [ H! >   Kennzahl Zeile 36 [ H >   Wert [ H! >   Kennzahl Zeile 37 [ H >   Wert [ H! >   Kennzahl Zeile 39 [ H >   Wert [ H! >   Kennzahl Zeile 40 [ H >   Wert [ H! >   Kennzahl Zeile 41 [ H >   Wert [ H! >   Kennzahl Zeile 42 [ H >   Wert [ H! >   Kennzahl Zeile 44 [ H >   Wert [ H! >   Kennzahl Zeile 45 [ H >   Wert [ H! >   Kennzahl Zeile 46 [ H >   Wert [ H! >   Kennzahl Zeile 47 [ H, >   Tarifliche Wochenstundenzahl [ H- >   Vereinbarte Wochenstundenzahl [ H& >   Arbeitstage des Monats [ H( >   Tage mit Gehaltsanspruch [ H0 >    Wert des Freibetrags in Zeile 25 [ H  >   nein = 0, ja = 1 [ H  >   nein = 0, ja = 1 [ H' >   0 = ohne, ansonsten 1-7 [	 #
    
      T        T       
     T   a U  THISFORM COMBO0 ADDITEM	 LISTINDEX TEXT15 VALUE ZEILE9
 TDBNUMBER1 MODUS MSG WELCHESJAHRC MUSER GRDIMPORTSTRUKTUR COLUMN2 HEADER1 CAPTION COLUMN3 IMPORTSTRUKTUR HSA NR
 ERKLRUNG1
 ERKLRUNG2 REFRESH SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER5 # %C importstruktur   .  F  Q  U 
 GIVESELECT IMPORTSTRUKTUR Resize,      Init     Destroyj    1 "!!2 !1111 !!!A Rr qQ A A A  aA A qA A A A QA A A A aA A A A A A A A A A A A A A A A !A A !A A 1A A 1A A A A A A A A A A A A A A A A A A A A A A QA A QA A A A A A A A A A A A A A A A A A A A 1A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A aA A A A A A A A A A A A A A A A AA A AA A A A A A !A A !A A !A A !A A A A A A A A A A A A A A A A A A A A A A A A A A A A !A A QA A A A qA A A A A  A A A A A A A A A A A A A A A A A A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A A A A A QA A A A AA A A A AA A A A A A A A A A AA A A A AA A A A A A A A A A A A A A A A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A AA A A A A A A A aA A A A A A A A A A qA    rq  2 1q A A 1                       Q        l  k     5  1k  yk  C   )   $                        label      label      Label1      FORM1      FontSize = 20
Caption = "Import luft! Bitte warten ......"
Height = 31
Left = 51
Top = 384
Width = 643
Name = "Label1"
      grid      grid      grdImportstruktur      FORM1     8ColumnCount = 3
DeleteMark = .F.
Enabled = .T.
HeaderHeight = 57
Height = 328
Left = 13
Panel = 1
RecordSource = "IMPORTSTRUKTUR"
RecordSourceType = 1
ScrollBars = 2
Top = 227
Width = 715
Name = "grdImportstruktur"
Column1.ControlSource = "IMPORTSTRUKTUR.nr"
Column1.Enabled = .T.
Column1.Name = "Column1"
Column2.ControlSource = "IMPORTSTRUKTUR.erklrung1"
Column2.Enabled = .T.
Column2.Width = 296
Column2.Name = "Column2"
Column3.ControlSource = "IMPORTSTRUKTUR.erklrung2"
Column3.Enabled = .T.
Column3.Width = 311
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdImportstruktur.Column1      2Caption = "nr"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column1      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdImportstruktur.Column2      :Caption = "erklrung1"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column2      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdImportstruktur.Column3      :Caption = "erklrung2"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column3      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      
commandbutton      
commandbutton      
ssCommand1      FORM1      VTop = 4
Left = 14
Height = 31
Width = 357
Caption = "Hilfe"
Name = "ssCommand1"
      PPROCEDURE Click
Msg = "68"
inet = 111
Do insinternet &&Do attached
ENDPROC
                                         %   n             }             U  &  T   68
 T o   U  MSG INET INSINTERNET Click,     1   q 1                       E       )                            
commandbutton      
commandbutton      
ssCommand2      FORM1      [Top = 4
Left = 382
Height = 31
Width = 347
Caption = "Schlieen"
Name = "ssCommand2"
      0PROCEDURE Click

thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       %       )                            label      label      zeile0      FORM1      FontBold = .T.
FontSize = 14
Caption = "Import von Personalfllen"
Height = 24
Left = 248
Top = 49
Width = 246
Name = "zeile0"
      
commandbutton      
commandbutton      
ssCommand3      FORM1      gTop = 78
Left = 14
Height = 25
Width = 313
Caption = "Importdatei auswhlen"
Name = "ssCommand3"
      PROCEDURE Click
hsxx = GETFILE()

IF EMPTY(hsxx)
	RETURN
ELSE
	thisform.text15.value = hsxx
	thisform.sscommand4.enabled = true
ENDIF
RETURN
ENDPROC
     G    .  .                           %             
                U  X  T  C %C    B M  T      T      B U  HSXX THISFORM TEXT15 VALUE
 SSCOMMAND4 ENABLED TRUE Click,     1   A  11A A 1                              )   .                        textbox      textbox      Text15      FORM1      QHeight = 60
Left = 334
ReadOnly = .T.
Top = 79
Width = 396
Name = "Text15"
      label      label      zeile2      FORM1      ^Caption = "Datensatzaufbau"
Height = 24
Left = 14
Top = 143
Width = 313
Name = "zeile2"
      label      label      zeile3      FORM1      _Caption = "Importieren nach"
Height = 25
Left = 14
Top = 168
Width = 313
Name = "zeile3"
      label      label      zeile4      FORM1      dCaption = "Einfgen ab Datensatz"
Height = 25
Left = 14
Top = 195
Width = 313
Name = "zeile4"
      combobox      combobox      Combo0      FORM1      `Enabled = .F.
Height = 24
Left = 334
Top = 143
Visible = .T.
Width = 327
Name = "Combo0"
     PROCEDURE Click

thisform.oberenfilter.Click

IF thisform.akkumopt.Value = 2
	thisform.sum_oberenteil.Click
endif	    

thisform.kostenstellen.click

thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh

*thisform.sum_oberenteil.click
ENDPROC
         j  j                           %          !  	               U  _ 
      %    1 
      
     
     
   	   U
  THISFORM OBERENFILTER CLICK AKKUMOPT VALUE SUM_OBERENTEIL
 KOSTENSTELLEN
 GRDKSTGRID REFRESH GRDKSTGRID2 Click,     1  r A    3                              )   j                        textbox      textbox      zeile9      FORM1      RHeight = 25
Left = 334
ReadOnly = .T.
Top = 168
Width = 327
Name = "zeile9"
      textbox      textbox      
tdbnumber1      FORM1      EHeight = 25
Left = 334
Top = 195
Width = 45
Name = "tdbnumber1"
      
commandbutton      
commandbutton      
ssCommand4      FORM1      qTop = 565
Left = 206
Height = 31
Width = 330
Caption = "Import starten"
Enabled = .F.
Name = "ssCommand4"
     PROCEDURE Click
*!*	Do Case && mytablett.combo(0).ListIndex
*!*		Case thisform.combo0.ListIndex = 1 &&vorher 0
*!*			Do hisimportdateitvoed &&Do attached
*!*		Case thisform.combo0.ListIndex > 1 &&vorher 0
*!*			Do hisimportdatei &&Do attached
*!*	Endcase

*hisimporttvoed

	Public Array zt0(10000) &&As String * 35
	Public Array bedienst(10000) &&As Integer
	Store "" To zt0
	Store 0 To bedienst

	msg3 = ""
	thisform.Zeile3.Visible = True
*	myform1.Visible = False
	Msg = Alltrim(thisform.Text15.Text)
	myclose("#117")

	If Right(Msg, 4) = ".DAT"
*!*			myopen(Msg , 117 ,"importfile")
*!*			myget(117, 1,"importfile")
		hsimp = FILETOSTR(msg)
		impfilename = eigdat + muser + "\importf"
		SET SAFETY off
		myopen(impfilename, 117, "importfile")
		SET SAFETY on
		SELECT importf
		FOR hsa = 1 TO LEN(hsimp)
			importfile.impodatei = SUBSTR(hsimp,hsa,1)
			myput(117, hsa, "importfile")
		NEXT
		myget(117, 1, "importfile")
		Do Case && importfile.impodatei
			Case (INT(VAL(importfile.impodatei)) >= 0 .And. INT(VAL(importfile.impodatei)) <= 9)
			Case INT(VAL(importfile.impodatei)) < 0 .Or.  INT(VAL(importfile.impodatei)) > 9
				Messagebox( "Bei der Datei " + Chr(13) + Msg + Chr(13) + " handelt es sich nicht um eine Importdatei. " + Chr(13) + "Bentigt wird eine Datei namens import.dat", 0, "Falsche Datei")
				SELECT 117
				use
				Return
		Endcase
	Else
		Messagebox( "Bei der Datei " + Chr(13) + Msg + Chr(13) + " handelt es sich nicht um eine Importdatei. " + Chr(13) + "Bentigt wird eine Datei namens import.dat", 0, "Falsche Datei")
		Return
	Endif

thisform.grdImportstruktur.Visible = .f.
thisform.sscommand4.Enabled = .f.
SELECT importstruktur
USE

	myclose("#117")
	myopen(impfilename , 117, "importfile")

	index2 = LOF(117)
	thisform.Zeile6.Visible = True
	fileneualt = fileneu
	fileneu = thisform.tdbnumber1.Value
	If fileneu = 0
		fileneu = 1
	Endif

	Do grundstellung &&Do attached

	myget(13, fileneu,"wnw")
	wnw.personalfall = ""
	myput(13, fileneu,"wnw")
	Msg = ""
	index1 = 0
	For msglen = 1 To index2
		Do While .T.
			myget(117, msglen,"importfile")

			With importfile
				If .impodatei = Chr(10)
					&&msglen = msglen + 1
					&&Get #117, msglen, importfile
					&&If Not .impodatei = chr(13) Then .impodatei = chr(13)
					*spungmarke Goto neuezeile
					Exit
				Endif

				If importfile.impodatei = Chr(0)
					EXITfor = .T.
				Else
					EXITfor = .F.
				Endif

				If .impodatei = Chr(13)
					myput(wvw.znam(20) + 1, fileneu,"wvw")
					myput(13, fileneu,"wnw")
					zi(1+20) = wvw.znam(20)

					Do Neuername &&Do attached

					Do folgemonat &&Do attached


					thisform.Zeile6.Caption = Alltrim(Str(fileneu - thisform.tdbnumber1.Value + 1,10,0)) + " importierte Personalflle"
					thisform.Zeile6.Refresh

					&&         Vorbereitung fr nchsten Satz
					If gleichersatz = 0
						fileneu = fileneu + 1

						If fileneu > satzanzahl
							satzanzahl = fileneu
						Endif

						index1 = 0

						Do neuersatz &&Do attached
						Do Neuername &&Do attached
						
						myclose("#117")
						myopen(impfilename , 117, "importfile")

						wnw.personalfall = ""
						Msg = ""
						msg2 = ""
					Else
						index1 = 0
						Msg = ""
						msg2 = ""
						gleichersatz = 0
						fileneu = fileneu + 1
					Endif
				Else
					If .impodatei = ";" .And. msg2 = ";"
						.impodatei = "0" &&vorher integer 0 18.05.2022
						msglen = msglen - 1
					Endif

					If .impodatei = ";"
						index1 = index1 + 1
						msg2 = ";"
					Else
						msg2 = ""
						If .impodatei = "." &&dezimal
							.impodatei = ","
						Endif

						Do Case && index1
							Case index1 = 0 && A = neuer Satz bzw. ab Januar sonst gleicher Satz ab best. Monat
								gleichersatz = .impodatei
								Msg = Msg + .impodatei
								gleichersatz = Val(Msg)
								Op1 = gleichersatz

								If gleichersatz > 11
									gleichersatz = 11
								Endif

								msg1 = ""

							Case index1 = 1 && B = Name oder Nr. des Bediensteten
								If .impodatei < Chr(32)
									msg1 = ""
								Else
									msg1 = msg1 + .impodatei
									wnw.personalfall = msg1
								Endif
								Msg = ""
							Case index1 = 2 &&C = Dienstalter
								If gleichersatz > 0
									fileneu = fileneu - 1
								Endif
								Msg = Msg + .impodatei
								wvw.znam(1) = Val(Msg)
								msg1 = ""
								If wvw.znam(1) > 4
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Dienstalter (Zeile 7) korrigiert von " + Alltrim(Str(wvw.znam(1),10,0)) + " auf 0" + Chr(13)
									wvw.znam(1) = 0
								Endif
							Case index1 = 3 &&D = DA-Datum
								msg1 = msg1 + .impodatei
								If Len(msg1) = 7
									If INT(VAL(Leftc(msg1, 2))) > 12
										msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Dienstalter (Datum in Zeile 7) Monat korrigiert von " + Leftc(wvw.BDA, 2) + " auf 01" + Chr(13)
										wvw.BDA = "01.01." + Right(msg1, 4)
									Else
										*	If Right(msg1, 4) > "2006" .Or. Right(msg1, 4) < "1950"
										*		msg3 = msg3 + "Datensatz " + ALLTRIM(STR(fileneu,10,0)) + ", Dienstalter (Datum in Zeile 7) Jahr korrigiert von " + Right(wvw.BDA, 4) + " auf 2000" + Chr(13)
										*		wvw.BDA = "01/01/2000"
										*	Else
										*		wvw.BDA = "01/" + msg1
										*	Endif
										If Int(Val(Right(msg1, 4))) < 1950
											wvw.BDA = "01.01.2000"
										Else
											wvw.BDA = "01." + STRTRAN(msg1,"/",".")
										Endif
									Endif
								Endif
								Msg = ""
							Case index1 = 4 &&E = Bundesland
								Msg = Msg + .impodatei
								wvw.znam(2) = Val(Msg)
								msg1 = ""
								If wvw.znam(2) > 16
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Bundesland (Zeile 2) korrigiert von " + Alltrim(Str(wvw.znam(2),10,0)) + " auf 0" + Chr(13)
									wvw.znam(2) = 0
								Endif
							Case index1 = 5 &&F = Ehegattenbeschftigung
								msg1 = msg1 + .impodatei
								wvw.znam(3) = Val(msg1)
								Msg = ""
								If wvw.znam(3) > 3
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Ehegatte i..D. (Zeile 3) korrigiert von " + Alltrim(Str(wvw.znam(3),10,0)) + " auf 0" + Chr(13)
									wvw.znam(3) = 0
								Endif
							Case index1 = 6 &&G = Dienstverhltnis
								Msg = Msg + .impodatei

								wvw.znam(4) = Val(Msg)
								&&Select Case Val(Msg)
								&&Case 0
								&&     wvw.znam(4) = 0
								&&Case 1
								&&     wvw.znam(4) = 1
								&&Case 2
								&&     wvw.znam(4) = 2
								&&Case 3
								&&     wvw.znam(4) = 4
								&&Case 4
								&&     wvw.znam(4) = 5
								&&Case 5
								&&     wvw.znam(4) = 29
								&&Case 6
								&&     wvw.znam(4) = 30
								&&Case 7
								&&     wvw.znam(4) = 31
								&&Case 8
								&&     wvw.znam(4) = 33
								&&Case 9
								&&     wvw.znam(4) = 34
								&&Case 10
								&&     wvw.znam(4) = 35
								&&Case 11
								&&     wvw.znam(4) = 32
								&&Case 12
								&&     wvw.znam(4) = 36
								&&Case 13
								&&    wvw.znam(4) = 35
								&&Case 14
								&&     wvw.znam(4) = 35
								&&Case 15
								&&     wvw.znam(4) = 35
								&&Case 16
								&&     wvw.znam(4) = 26
								&&Case 17
								&&     wvw.znam(4) = 22
								&&Case 18
								&&     wvw.znam(4) = 27
								&&Case 19
								&&     wvw.znam(4) = 25
								&&Case 20
								&&     wvw.znam(4) = 35
								&&Case 21
								&&     wvw.znam(4) = 35
								&&Case 22
								&&     wvw.znam(4) = 37
								&&Case 23
								&&     wvw.znam(4) = 3
								&&End Select

								msg1 = ""
								If wvw.znam(4) > 37
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Dienstverhltnis (Zeile 4) korrigiert von " + Alltrim(Str(wvw.znam(4),10,0)) + " auf 0" + Chr(13)
									wvw.znam(4) = 0
								Endif

							Case index1 = 7 &&H = Besoldungsgruppe
								msg1 = msg1 + .impodatei
								If wvw.znam(4) = 2 .And. Val(msg1) > 3
									wvw.znam(4) = 3
								Endif

								wvw.znam(5) = Val(msg1)
								Msg = ""
								szteiler = 0
								Do Case && wvw.znam(4)
									Case wvw.znam(4) = 0
										If wvw.znam(5) > 20
											szteiler = 1
										Endif

									Case wvw.znam(4) = 1
										If wvw.znam(5) > 10
											szteiler = 1
										Endif

									Case wvw.znam(4) = 2
										If wvw.znam(5) > 3
											szteiler = 1
										Endif
										&&C
									Case wvw.znam(4) = 3
										If wvw.znam(5) > 2
											szteiler = 1
										Endif
										&& W
									Case wvw.znam(4) = 4
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&R
									Case wvw.znam(4) = 5
										If wvw.znam(5) > 6
											szteiler = 1
										Endif
										&&Anwrter
									Case wvw.znam(4) = 6
										If wvw.znam(5) > 25
											szteiler = 1
										Endif
										&&F
									Case wvw.znam(4) = 7
										If wvw.znam(5) > 25
											szteiler = 1
										Endif
										&&f
									Case wvw.znam(4) = 8
										If wvw.znam(5) > 25
											szteiler = 1
										Endif
										&&F
									Case wvw.znam(4) = 9
										If wvw.znam(5) > 7
											szteiler = 1
										Endif
										&&Anw.
									Case wvw.znam(4) = 10
										If wvw.znam(5) > 17
											szteiler = 1
										Endif
										&&TVDBund
									Case wvw.znam(4) = 11
										If wvw.znam(5) > 23
											szteiler = 1
										Endif
										&&TVDLand
									Case wvw.znam(4) = 12
										If wvw.znam(5) > 17
											szteiler = 1
										Endif
										&&TVD VKA
									Case wvw.znam(4) = 13
										If wvw.znam(5) > 19
											szteiler = 1
										Endif
										&&Krankenh
									Case (wvw.znam(4) >= 14 .And. wvw.znam(4) <= 16)
										If wvw.znam(5) > 17
											szteiler = 1
										Endif
									Case wvw.znam(4) = 17
										If wvw.znam(5) > 16
											szteiler = 1
										Endif
										&&AOK
									Case wvw.znam(4) = 18
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&Kraftfahrer Bund
									Case wvw.znam(4) = 19
										If wvw.znam(5) > 4
											szteiler = 1
										Endif
										&&Kraftfahrer Land
									Case wvw.znam(4) = 20
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&TVD Azubis
									Case wvw.znam(4) = 21
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&Prakt
									Case  Inlist(wvw.znam(4), 22, 23)
										If wvw.znam(5) > 15
											szteiler = 1
										Endif
										&&Versorg
									Case wvw.znam(4) = 24
										If wvw.znam(5) > 15
											szteiler = 1
										Endif
										&&bes. Tab.
									Case wvw.znam(4) = 25
										If wvw.znam(5) > 4
											szteiler = 1
										Endif
										&&nach Vereinb.
									Case wvw.znam(4) = 26
										If wvw.znam(5) > 1
											szteiler = 1
										Endif
										&&Gering
									Case wvw.znam(4) = 27
										If wvw.znam(5) > 2
											szteiler = 1
										Endif
										&&Ohne
									Case wvw.znam(4) = 28
										If wvw.znam(5) > 19
											szteiler = 1
										Endif
										&&BAT-Bund
									Case wvw.znam(4) = 29
										If wvw.znam(5) > 19
											szteiler = 1
										Endif
										&&BAT-Land
									Case wvw.znam(4) = 30
										If wvw.znam(5) > 16
											szteiler = 1
										Endif
										&&BAT-VKA
									Case wvw.znam(4) = 31
										If wvw.znam(5) > 14
											szteiler = 1
										Endif
										&&KR
									Case wvw.znam(4) = 32
										If wvw.znam(5) > 15
											szteiler = 1
										Endif
										&&AOK
									Case wvw.znam(4) = 33
										If wvw.znam(5) > 16
											szteiler = 1
										Endif
										&&Arb.VKA
									Case wvw.znam(4) = 34
										If wvw.znam(5) > 19
											szteiler = 1
										Endif
										&&Kraftf. Bund
									Case wvw.znam(4) = 35
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&Kraftf. Land
									Case wvw.znam(4) = 36
										If wvw.znam(5) > 4
											szteiler = 1
										Endif
										&&Azubi
									Case wvw.znam(4) = 37
										If wvw.znam(5) > 9
											szteiler = 1
										Endif
										&&Prakt
								Endcase
								If szteiler = 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Vergtungsgruppe (Zeile 5) korrigiert von " + Alltrim(Str(wvw.znam(5),10,0)) + " auf 0" + Chr(13)
									wvw.znam(5) = 0
								Endif

							Case index1 = 8 &&I = Dienstbezeichnung
								Msg = Msg + .impodatei
								wvw.znam(6) = Val(Msg)
								msg1 = ""
								If wvw.znam(6) > 40
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Dienstbezeichnung (Zeile 6) korrigiert von " + Alltrim(Str(wvw.znam(6),10,0)) + " auf 0" + Chr(13)
									wvw.znam(3) = 0
								Endif

							Case index1 = 9 &&J = Gehaltsstufe
								msg1 = msg1 + .impodatei
								wvw.znam(7) = Val(msg1)
								Msg = ""
								zi(1+4) = wvw.znam(4)
								zi(1+5) = wvw.znam(5)

								Do stufenanzahlermitteln &&Do attached

								If wvw.znam(7) > i
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Altersstufe (Zeile 8) korrigiert von " + Alltrim(Str(wvw.znam(7),10,0)) + " auf 0" + Chr(13)
									wvw.znam(5) = 0
								Endif
								If Leftc(wvw.BDA, 2) = "01"
									bdatext = wvw.BDA
									Do DAStufeberechnen &&Do attached
									wvw.znam(7) = zi(1+7)
								Endif

							Case index1 = 10 &&K = Wert Grundgehalt
								Msg = Msg + .impodatei
								wvw.tnam(1+7) = Val(Msg)
								msg1 = ""
							Case index1 = 11 &&L = Ortszuschlag
								msg1 = msg1 + .impodatei
								wvw.znam(8) = Val(msg1)
								Msg = ""
								If wvw.znam(8) > 15
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Ortszuschlag (Zeile 9) korrigiert von " + Alltrim(Str(wvw.znam(8),10,0)) + " auf 0" + Chr(13)
									wvw.znam(3) = 0
								Endif
								Do Case && wvw.znam(4)
									Case (wvw.znam(4) >= 10 .And. wvw.znam(4) <= 21)
										If wvw.znam(8) > 7
											wvw.znam(8) = wvw.znam(8) - 6
											wvw.znam(3) = 0
										Endif
								Endcase
							Case index1 = 12 &&M = OZ-Wert
								Msg = Msg + .impodatei
								wvw.tnam(1+8) = Val(Msg)
								msg1 = ""
							Case index1 = 13 && N = Allg. Stellenzulage
								msg1 = msg1 + .impodatei
								wvw.znam(9) = Val(msg1)
								Msg = ""
								If wvw.znam(9) > 4
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Allg. Stellenzulage (Zeile 10) korrigiert von " + Alltrim(Str(wvw.znam(9),10,0)) + " auf 0" + Chr(13)
									wvw.znam(9) = 0
								Endif

							Case index1 = 14 &&O = Wert Stellenzulage
								Msg = Msg + .impodatei
								wvw.tnam(1+9) = Val(Msg)
								wnw.TVDZeile(9) = Val(Msg)
								msg1 = ""
							Case index1 = 15 &&P = VWL
								msg1 = msg1 + .impodatei
								wvw.znam(10) = Val(msg1)
								Msg = ""
								If wvw.znam(10) > 7
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", VWL (Zeile 11) korrigiert von " + Alltrim(Str(wvw.znam(10),10,0)) + " auf 0" + Chr(13)
									wvw.znam(10) = 0
								Endif

							Case index1 = 16 &&Q = VWL Wert
								Msg = Msg + .impodatei
								wvw.tnam(1+10) = Val(Msg)
								msg1 = ""
							Case index1 = 17 &&R = Leistungezulage
								msg1 = msg1 + .impodatei
								wvw.znam(11) = Val(msg1)
								Msg = ""
								If wvw.znam(11) > 10
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Leistungszulage (Zeile 12) korrigiert von " + Alltrim(Str(wvw.znam(11),10,0)) + " auf 0" + Chr(13)
									wvw.znam(11) = 0
								Endif

							Case index1 = 18 &&S = Wert
								Msg = Msg + .impodatei
								wvw.tnam(1+11) = Val(Msg)
								msg1 = ""
							Case index1 = 19 &&T = Zulage 1
								msg1 = msg1 + .impodatei
								wvw.znam(12) = Val(msg1)
								Msg = ""
								If wvw.znam(12) > 120
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Zulage 1 (Zeile 13) korrigiert von " + Alltrim(Str(wvw.znam(12),10,0)) + " auf 0" + Chr(13)
									wvw.znam(12) = 0
								Endif
							Case index1 = 20 &&U = Wert Zulage 1
								Msg = Msg + .impodatei
								wvw.tnam(1+12) = Val(Msg)
								msg1 = ""

							Case index1 = 21 && V = Zulage 2
								msg1 = msg1 + .impodatei
								wvw.znam(13) = Val(msg1)
								Msg = ""
								If wvw.znam(13) > 120
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Zulage 2 (Zeile 14) korrigiert von " + Alltrim(Str(wvw.znam(13),10,0)) + " auf 0" + Chr(13)
									wvw.znam(13) = 0
								Endif

							Case index1 = 22 &&W = Wert Zulage 2
								Msg = Msg + .impodatei
								wvw.tnam(1+13) = Val(Msg)
								msg1 = ""
							Case index1 = 23 &&X = Zulage 3
								msg1 = msg1 + .impodatei
								wvw.znam(14) = Val(msg1)
								Msg = ""
								If wvw.znam(14) > 120
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Zulage 3 (Zeile 15) korrigiert von " + Alltrim(Str(wvw.znam(14),10,0)) + " auf 0" + Chr(13)
									wvw.znam(14) = 0
								Endif
							Case index1 = 24 &&Y = Wert Zulage 3
								Msg = Msg + .impodatei
								wvw.tnam(1+14) = Val(Msg)
								msg1 = ""
							Case index1 = 25 &&Z = Zuschlag1
								msg1 = msg1 + .impodatei
								wvw.znam(15) = Val(msg1)
								Msg = ""
								If wvw.znam(15) > 10
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Mehrarbeitsverg. (Zeile 16) korrigiert von " + Alltrim(Str(wvw.znam(15),10,0)) + " auf 0" + Chr(13)
									wvw.znam(15) = 0
								Endif
							Case index1 = 26 &&AA = Wert Zuschlag 1
								Msg = Msg + .impodatei
								wvw.tnam(1+15) = Val(Msg)
								msg1 = ""
							Case index1 = 27 &&AB = Steuerfreier Zuschlag
								msg1 = msg1 + .impodatei
								wvw.znam(16) = Val(msg1)
								Msg = ""
								If wvw.znam(16) > 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Str.freier Zuschlag (Zeile 17) korrigiert von " + Alltrim(Str(wvw.znam(16),10,0)) + " auf 0" + Chr(13)
									wvw.znam(16) = 0
								Endif
							Case index1 = 28 &&AC = Wert Steuerfreier Zuschlag
								Msg = Msg + .impodatei
								wvw.tnam(1+16) = Val(Msg)
								msg1 = ""
							Case index1 = 29 && AD = Sonderzahlung 1
								msg1 = msg1 + .impodatei
								wvw.znam(17) = Val(msg1)
								Msg = ""
								If wvw.znam(17) > 7
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Lfd. Sonderzahlung (Zeile 18) korrigiert von " + Alltrim(Str(wvw.znam(17),10,0)) + " auf 0" + Chr(13)
									wvw.znam(17) = 0
								Endif
							Case index1 = 30 &&AE = Wert Sonderzahlung 1
								Msg = Msg + .impodatei
								wvw.tnam(1+17) = Val(Msg)
								msg1 = ""
							Case index1 = 31 &&AF = Sonderzahlung 2
								msg1 = msg1 + .impodatei
								wvw.znam(18) = Val(msg1)
								Msg = ""
								If wvw.znam(18) > 7
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Einm. Sonderzahlung (Zeile 19) korrigiert von " + Alltrim(Str(wvw.znam(18),10,0)) + " auf 0" + Chr(13)
									wvw.znam(18) = 0
								Endif
							Case index1 = 32 &&AG = Wert Sonderzahlung 2
								Msg = Msg + .impodatei
								wvw.tnam(1+18) = Val(Msg)
								msg1 = ""
							Case index1 = 33 &&AH = Sonstige Bezge
								msg1 = msg1 + .impodatei
								wvw.znam(19) = Val(msg1)
								Msg = ""
								If wvw.znam(19) > 9
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Sonstige Bezge (Zeile 20) korrigiert von " + Alltrim(Str(wvw.znam(19),10,0)) + " auf 0" + Chr(13)
									wvw.znam(19) = 0
								Endif
							Case index1 = 34 &&AI = Wert Sonstige Bezge
								Msg = Msg + .impodatei
								wvw.tnam(1+19) = Val(Msg)
								msg1 = ""
							Case index1 = 35 && AJ = Bruttogehalt
								&&msg1 = msg1 + .impodatei
								wvw.znam(20) = gleichersatz && Val(msg1)
								Op2 = gleichersatz
								&&If gleichersatz = 0 Then gleichersatz = 1
								&&Msg = ""
								&&If wvw.znam(20) > 12 Then
								&&   msg3 = msg3 + "Datensatz " + alltrim(str(fileneu,10,0)) + ", Monat (Zeile 21) korrigiert von " + alltrim(str(wvw.znam(20),10,0)) + " auf 0" + chr(13)
								&&   wvw.znam(20) = 0
								&&End If
							Case index1 = 36 &&AK = Teilzeitgehalt
								Msg = Msg + .impodatei
								wvw.znam(21) = Val(Msg)
								msg1 = ""
								If wvw.znam(21) > 3
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Teilzeit (Zeile 22) korrigiert von " + Alltrim(Str(wvw.znam(21),10,0)) + " auf 0" + Chr(13)
									wvw.znam(21) = 0
								Endif
							Case index1 = 37 &&AL = Bruchteilsgehalt
								msg1 = msg1 + .impodatei
								wvw.znam(22) = Val(msg1)
								Msg = ""
								If wvw.znam(22) > 4
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Teilmonat (Zeile 23) korrigiert von " + Alltrim(Str(wvw.znam(22),10,0)) + " auf 0" + Chr(13)
									wvw.znam(22) = 0
								Endif
							Case index1 = 38 &&AM = Wert Versorgungsabschlag
								Msg = Msg + .impodatei
								wvw.tnam(1+46) = Val(Msg)
								msg1 = ""
							Case index1 = 39 &&AN =Steuerfreibetrag
								Msg = Msg + .impodatei
								wvw.znam(23) = Val(Msg)
								msg1 = ""
								If wvw.znam(23) > 2
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Steuerfreibetrag (Zeile 24) korrigiert von " + Alltrim(Str(wvw.znam(23),10,0)) + " auf 0" + Chr(13)
									wvw.znam(23) = 0
								Endif
							Case index1 = 40 &&AO = Wert Steuerfreibetrag
								msg1 = msg1 + .impodatei
								wvw.tnam(1+23) = Val(msg1)
								Msg = ""
							Case index1 = 41 &&AP Sachbezge lt. Eingabe
								Msg = Msg + .impodatei
								wvw.znam(24) = Val(Msg)
								msg1 = ""
								If wvw.znam(24) > 8
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Sachbezge (Zeile 25) korrigiert von " + Alltrim(Str(wvw.znam(24),10,0)) + " auf 0" + Chr(13)
									wvw.znam(24) = 0
								Endif
							Case index1 = 42 &&AQ = Wert Sachbezge lt. Eingabe
								msg1 = msg1 + .impodatei
								wvw.tnam(1+24) = Val(msg1)
								Msg = ""
							Case index1 = 43 &&AR Sachbezge 2 lt. Eingabe
								Msg = Msg + .impodatei
								wvw.znam(47) = Val(Msg)
								msg1 = ""
								If wvw.znam(47) > 8
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Sachbezge (Zeile 26) korrigiert von " + Alltrim(Str(wvw.znam(47),10,0)) + " auf 0" + Chr(13)
									wvw.znam(47) = 0
								Endif
							Case index1 = 44 &&AS = Wert Sachbezge 2
								msg1 = msg1 + .impodatei
								wvw.tnam(1+47) = Val(msg1)
								Msg = ""
							Case index1 = 45 &&AT = ZVK
								Msg = Msg + .impodatei
								wvw.znam(25) = Val(Msg)
								msg1 = ""
								If wvw.znam(25) > 39
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Zusatzversicherung (Zeile 28) korrigiert von " + Alltrim(Str(wvw.znam(25),10,0)) + " auf 0" + Chr(13)
									wvw.znam(25) = 0
								Endif
							Case index1 = 46 &&AU = Wert Umlagesatz
								msg1 = msg1 + .impodatei
								wvw.tnam(1+25) = Val(msg1)
								Msg = ""
							Case index1 = 47 &&AV = Wert = Kapitalbeitrag
								Msg = Msg + .impodatei
								wvw.tnam(1+5) = Val(Msg)
								msg1 = ""
							Case index1 = 48 &&AW = Zusatzbeitrag
								msg1 = msg1 + .impodatei
								wvw.znam(26) = Val(msg1)
								Msg = ""
								If wvw.znam(26) > 6
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Zusatzbeitrag (Zeile 42) korrigiert von " + Alltrim(Str(wvw.znam(26),10,0)) + " auf 0" + Chr(13)
									wvw.znam(26) = 0
								Endif
							Case index1 = 49 &&AX = Wert = Zusatzbeitrag
								Msg = Msg + .impodatei
								wvw.tnam(1+26) = Val(Msg)
								msg1 = ""
							Case index1 = 50 && AY = Kostenstelle
								msg1 = msg1 + .impodatei
								wvw.znam(27) = Val(msg1)
								Msg = ""
								If wvw.znam(27) > 120
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Kostenstelle (Zeile 29) korrigiert von " + Alltrim(Str(wvw.znam(27),10,0)) + " auf 0" + Chr(13)
									wvw.znam(27) = 0
								Endif
							Case index1 = 51 && AZ = Bekenntnis
								Msg = Msg + .impodatei
								wvw.znam(28) = Val(Msg)
								msg1 = ""
								If wvw.znam(28) > 6
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Bekenntnis (Zeile 30) korrigiert von " + Alltrim(Str(wvw.znam(28),10,0)) + " auf 0" + Chr(13)
									wvw.znam(28) = 0
								Endif
							Case index1 = 52 &&BA = Lohnsteuertabelle
								msg1 = msg1 + .impodatei
								wvw.znam(29) = Val(msg1)
								Msg = ""
								If wvw.znam(29) > 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Lohnsteuertabelle (Zeile 31) korrigiert von " + Alltrim(Str(wvw.znam(29),10,0)) + " auf 0" + Chr(13)
									wvw.znam(29) = 0
								Endif
							Case index1 = 53 &&BB = STeuerausgleich
								Msg = Msg + .impodatei
								wvw.znam(30) = Val(Msg)
								msg1 = ""
								If wvw.znam(30) > 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", AG-Lohnstr.Ausgleich (Zeile 32) korrigiert von " + Alltrim(Str(wvw.znam(30),10,0)) + " auf 0" + Chr(13)
									wvw.znam(30) = 0
								Endif
							Case index1 = 54 &&BC = Altersentlastung
								msg1 = msg1 + .impodatei
								wvw.znam(31) = Val(msg1)
								Msg = ""
								If wvw.znam(31) > 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Altersentlastung (Zeile 33) korrigiert von " + Alltrim(Str(wvw.znam(31),10,0)) + " auf 0" + Chr(13)
									wvw.znam(31) = 0
								Endif
							Case index1 = 55 &&BD = Krankenkasse
								Msg = Msg + .impodatei
								wvw.znam(46) = Val(Msg)
								msg1 = ""
								If Val(Msg) > 35
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Krankenkasse (Zeile 34) korrigiert von " + Msg + " auf 0" + Chr(13)
									wvw.znam(46) = 0
								ELSE
									IF Val(Msg) < 35
										wvw.znam(26) = 1
									ELSE
										wvw.znam(26) = 0
									endif
								Endif
							Case index1 = 56 &&BE = Lohnsteuerklasse
								msg1 = msg1 + .impodatei
								wvw.znam(33) = Val(msg1)
								Msg = ""
								If wvw.znam(33) > 54
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Lohnsteuerklasse (Zeile 35) korrigiert von " + Alltrim(Str(wvw.znam(33),10,0)) + " auf 0" + Chr(13)
									wvw.znam(33) = 0
								Endif
							Case index1 = 57 && BF = Kindergeld /ATZ-Aufstockung
								Msg = Msg + .impodatei
								wvw.znam(34) = Val(Msg)
								msg1 = ""
								If wvw.znam(34) > 7
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Kindergeld/ATZ (Zeile 43) korrigiert von " + Alltrim(Str(wvw.znam(34),10,0)) + " auf 0" + Chr(13)
									wvw.znam(34) = 0
								Endif
							Case index1 = 58 &&BG = Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+34) = Val(msg1)
								Msg = ""
							Case index1 = 59 &&BH = KV-Beitragssatz
								Msg = Msg + .impodatei
								wvw.znam(37) = Val(Msg)
								msg1 = ""
								If wvw.znam(37) > 150 &&129
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", KV-Beitragssatz (Zeile 38) korrigiert von " + Alltrim(Str(wvw.znam(37),10,0)) + " auf 0" + Chr(13)
									wvw.znam(37) = 0
								Endif
							Case index1 = 60 &&BI = KV-Beitrag Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+37) = Val(msg1)
								Msg = ""
							Case index1 = 61 &&BJ = Soli
								Msg = Msg + .impodatei
								wvw.znam(35) = Val(Msg)
								msg1 = ""
								If wvw.znam(35) > 3
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Solidarittszuschlag (Zeile 36) korrigiert von " + Alltrim(Str(wvw.znam(35),10,0)) + " auf 0" + Chr(13)
									wvw.znam(35) = 0
								Endif
							Case index1 = 62 &&BK = Soli-Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+35) = Val(msg1)
								Msg = ""
							Case index1 = 63 &&BL = Kisteuersatz
								Msg = Msg + .impodatei
								wvw.znam(36) = Val(Msg)
								msg1 = ""
								If wvw.znam(36) > 8
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Kirchensteuer (Zeile 37) korrigiert von " + Alltrim(Str(wvw.znam(36),10,0)) + " auf 0" + Chr(13)
									wvw.znam(36) = 0
								Endif
							Case index1 = 64 &&BM = Wert KiSteuer
								msg1 = msg1 + .impodatei
								wvw.tnam(1+36) = Val(msg1)
								Msg = ""
							Case index1 = 65 && BN = Pflegev.
								Msg = Msg + .impodatei
								wvw.znam(38) = Val(Msg)
								msg1 = ""
								If wvw.znam(38) > 8
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Pflegeversicherung (Zeile 39) korrigiert von " + Alltrim(Str(wvw.znam(38),10,0)) + " auf 0" + Chr(13)
									wvw.znam(38) = 0
								Endif
							Case index1 = 66 &&BO = PV-Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+38) = Val(msg1)
								Msg = ""
							Case index1 = 67 &&BP = RV-Satz
								Msg = Msg + .impodatei
								wvw.znam(39) = Val(Msg)
								msg1 = ""
								If wvw.znam(39) > 10
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Rentenversicherung (Zeile 40) korrigiert von " + Alltrim(Str(wvw.znam(39),10,0)) + " auf 0" + Chr(13)
									wvw.znam(39) = 0
								Endif
							Case index1 = 68 &&BQ = RV-Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+39) = Val(msg1)
								Msg = ""
							Case index1 = 69 &&BR = AV-Satz
								Msg = Msg + .impodatei
								wvw.znam(40) = Val(Msg)
								msg1 = ""
								If wvw.znam(40) > 6
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Arbeitslosenversicherung (Zeile 41) korrigiert von " + Alltrim(Str(wvw.znam(40),10,0)) + " auf 0" + Chr(13)
									wvw.znam(40) = 0
								Endif
							Case index1 = 70 &&BS = AV-Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+40) = Val(msg1)
								Msg = ""
							Case index1 = 71 && BT = ATV-AN-Satz
								Msg = Msg + .impodatei
								wvw.znam(41) = Val(Msg)
								msg1 = ""
								If wvw.znam(41) > 252
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", ATV-AN-Anteil (Zeile 42) korrigiert von " + Alltrim(Str(wvw.znam(41),10,0)) + " auf 0" + Chr(13)
									wvw.znam(41) = 0
								Endif
							Case index1 = 72 &&BU = ATV-AN-Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+41) = Val(msg1)
								Msg = ""
							Case index1 = 73 &&BV = Einbehalte 1
								Msg = Msg + .impodatei
								wvw.znam(42) = Val(Msg)
								msg1 = ""
								If wvw.znam(42) > 29
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Einbehalt 1 (Zeile 44) korrigiert von " + Alltrim(Str(wvw.znam(42),10,0)) + " auf 0" + Chr(13)
									wvw.znam(42) = 0
								Endif
							Case index1 = 74 &&BW Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+42) = Val(msg1)
								Msg = ""
							Case index1 = 75 && BX Einbehalt 2
								Msg = Msg + .impodatei
								wvw.znam(43) = Val(Msg)
								msg1 = ""
								If wvw.znam(43) > 29
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Einbehalt 2 (Zeile 45) korrigiert von " + Alltrim(Str(wvw.znam(43),10,0)) + " auf 0" + Chr(13)
									wvw.znam(43) = 0
								Endif
							Case index1 = 76 &&BY Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+43) = Val(msg1)
								Msg = ""
							Case index1 = 77 &&BZ Einbehalte 3
								Msg = Msg + .impodatei
								wvw.znam(44) = Val(Msg)
								msg1 = ""
								If wvw.znam(44) > 29
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Einbehalt 3 (Zeile 46) korrigiert von " + Alltrim(Str(wvw.znam(44),10,0)) + " auf 0" + Chr(13)
									wvw.znam(44) = 0
								Endif
							Case index1 = 78 &&CA Wert
								msg1 = msg1 + .impodatei
								wvw.tnam(1+44) = Val(msg1)
								Msg = ""
							Case index1 = 79 &&CB Nettogehalt
								Msg = Msg + .impodatei
								wvw.znam(45) = Val(Msg)
								msg1 = ""
								If wvw.znam(45) > 1
									msg3 = msg3 + "Datensatz " + Alltrim(Str(fileneu,10,0)) + ", Auszahlung (Zeile 47) korrigiert von " + Alltrim(Str(wvw.znam(45),10,0)) + " auf 0" + Chr(13)
									wvw.znam(45) = 0
								Endif
							Case index1 = 80 &&CC Wert Volle Wochenstunden 
								msg1 = msg1 + .impodatei
								wvw.tnam(1+0) = Val(msg1) * 100000
								Msg = ""
							Case index1 = 81 &&CD Teilzeeit wochenstunden
								Msg = Msg + .impodatei
								wvw.tnam(1+1) = Val(Msg) * 100000
								msg1 = ""
							Case index1 = 82 &&CE Wert volle Arbeitstage des Monats
								msg1 = msg1 + .impodatei
								wvw.tnam(1+2) = Val(msg1) * 100000
								Msg = ""
							Case index1 = 83 &&CF Wert teilzeit Arbeitstage des Monats
								Msg = Msg + .impodatei
								wvw.tnam(1+3) = Val(Msg) * 100000
								msg1 = ""
							Case index1 = 84 &&CG Wert &&freibetrag in Zile 25
								msg1 = msg1 + .impodatei
								wvw.tnam(1+23) = Val(msg1)
								Msg = ""
							Case index1 = 85 &&CG Wert U1
								msg1 = msg1 + .impodatei
								wnw.zumlage1 = Val(msg1)
								Msg = ""
							Case index1 = 86 &&CG Wert U2
								msg1 = msg1 + .impodatei
								wnw.zumlage2 = Val(msg1)
								Msg = ""
							Case index1 = 87 &&CG Wert Mietstufe
								wvw.reserve7 = VAL(msg)

							Case index1 = 88 &&CG Wert

							Case index1 = 89 &&CG Wert

							Case index1 = 90 &&CG Wert
						Endcase
					Endif
				Endif
			Endwith
			*sprungmarke neuezeile:
			Exit
		Enddo
		If EXITfor = .T.
			Exit
		Endif
	Next

	myclose("117")

	thisform.Zeile7.Visible = True
	fileneu = fileneualt
	&&satzanzahl = satzanzahl + 1

	Do neuersatz &&Do attached
	Do namenincombo &&Do attached

	zi(1+0) = thisform.tdbnumber1.Value - 1
	fileneu = zi(1+0) + 1
	spin1 = fileneu
	myform1.tdbnumber1.Value = Abs(spin1)

	Do atzrck &&Do attached
	Do Neuername &&Do attached

	If fileneu = 1 .And. Op1 = 0
		If Op2 = 0
			Do folgemonat
		Endif
	Endif
	&&myform1.Visible = True
	&&myform1.z(thisform.tdbnumber(1+1).Value - 1).Caption = zt0(1+mytablett.tdbnumber(1+1).Value - 1)

	If Len(msg3) > 0
		Messagebox( msg3, 0, "")
	ENDIF
	
	thisform.label1.caption = "Import beendet!"
ENDPROC
     V    V  V                        ב   %   uO      >V  ]  O            U  L 7  ' 7 '
 J  (  
 J ( 
 T    T     T C  	  C #117
  %C R .DAT{ T C  T 
   \importf G. C  u
 importfile  G.  F   (C >C T  C  \ Cu  
 importfile   Cu
 importfile 
 Hqw+ CC  g8  CC  g8		* CC  g8 
 CC  g8	w C Bei der Datei C
  C
 ,  handelt es sich nicht um eine Importdatei. C
 * Bentigt wird eine Datei namens import.dat 
 Falsche Dateix Fu  Q B  ( C Bei der Datei C
  C
 ,  handelt es sich nicht um eine Importdatei. C
 * Bentigt wird eine Datei namens import.dat 
 Falsche Dateix B  T   - T   - F  Q C #117
  C  u
 importfile  T Cu  T    
 T   T      %  
 T   !  C
   wnw  T" #    C
   wnw 
 T   
 T$   % ( K +aK Cu % 
 importfile 
  wK % C
  !  %  C   T& a  T& -  % C
 " CC' (    wvw  C
   wnw  T) C' (  *  + I T  , CC     
 Z  importierte Personalflle
   -  %.  r T   % / 
 T/   
 T$   0  *  C #117
  C  u
 importfile  T" #   
 T   
 T1    
 T$  
 T   
 T1   
 T.   T    sK %  ;	 1  ;	
 T  0 T% %   %  ;@ T$ $  T1  ; oK
 T1    %  .w T  , 
 HkK $   T.   T    T. C g
 T2 .  %. 
 T.  
 T3    $ q % C  
6
 T3    ` T3 3   T" # 3  
 T    $ 	 %.   T    T    T' ( C g
 T3    %C' ( 	y T  
 Datensatz CC 
 Z' , Dienstalter (Zeile 7) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 
 T3 3   %C3 >
 %CCC3 g8{
 T  
 Datensatz CC 
 Z6 , Dienstalter (Datum in Zeile 7) Monat korrigiert von C' 4   auf 01C
  T' 4  01.01.C3 R 
 %CCC3 Rg8

 T' 4 
 01.01.2000 
! T' 4  01.C3  / .   
 T    $  T    T' ( C g
 T3    %C' ( x T  
 Datensatz CC 
 Z& , Bundesland (Zeile 2) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $  T3 3   T' ( C3 g
 T    %C' ( } T  
 Datensatz CC 
 Z+ , Ehegatte i..D. (Zeile 3) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 
 T    T' ( C g
 T3    %C' ( %
~ T  
 Datensatz CC 
 Z, , Dienstverhltnis (Zeile 4) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ # T3 3  % %C' ( 
 C3 g	9 T' (   T' ( C3 g
 T   
 T5  
 H|v C' (   %C' ( 
 T5   C' (  %C' ( 

 T5   C' ( ? %C' ( ;
 T5   C' (  %C' ( |
 T5   C' (  %C' ( 	
 T5   C' (  %C' ( 
 T5   C' ( C %C' ( ?
 T5   C' (  %C' ( 
 T5   C' (  %C' ( 
 T5   C' ( 	 %C' ( 
 T5   C' ( 
G %C' ( C
 T5   C' (  %C' ( 
 T5   C' (  %C' ( 
 T5   C' ( 

 %C' ( 
 T5  + C' (  C' ( 	^ %C' ( Z
 T5   C' (  %C' ( 
 T5   C' (  %C' ( 	
 T5   C' ( ! %C' ( 
 T5   C' ( b %C' ( 	^
 T5   C' (  %C' ( 	
 T5   CC' (  %C' ( 
 T5   C' ( ) %C' ( %
 T5   C' ( j %C' ( f
 T5   C' (  %C' ( 
 T5   C' (  %C' ( 
 T5   C' ( - %C' ( )
 T5   C' ( n %C' ( j
 T5   C' (  %C' ( 
 T5   C' (  %C' ( 
 T5   C' (  1 %C' ( -
 T5   C' ( !r %C' ( n
 T5   C' ( " %C' ( 
 T5   C' ( # %C' ( 	
 T5   C' ( $5 %C' ( 1
 T5   C' ( %v %C' ( 	r
 T5    %5 ~ T  
 Datensatz CC 
 Z, , Vergtungsgruppe (Zeile 5) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $  T    T' ( C g
 T3    %C' ( ( T  
 Datensatz CC 
 Z- , Dienstbezeichnung (Zeile 6) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 	 T3 3   T' ( C3 g
 T    T) C' (  T) C' (  6  %C' ( 7 Fy T  
 Datensatz CC 
 Z' , Altersstufe (Zeile 8) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    %C' 4  01 T8 ' 4  9  T' ( C)   $ 
 T    T' : C g
 T3    $ f T3 3   T' ( C3 g
 T    %C' ( z T  
 Datensatz CC 
 Z( , Ortszuschlag (Zeile 9) korrigiert von CCC' ( 
 Z  auf 0C
  T' (   
 Hb+ C' ( 
 C' ( 	b %C' ( ^! T' ( C' (  T' (     $  T    T' : 	C g
 T3    $ 
 T3 3   T' ( 	C3 g
 T    %C	' (  T  
 Datensatz CC 
 Z0 , Allg. Stellenzulage (Zeile 10) korrigiert von CCC	' ( 
 Z  auf 0C
  T' ( 	   $ 
 T    T' : 
C g T" ; 	C g
 T3    $  T3 3   T' ( 
C3 g
 T    %C
' ( r T  
 Datensatz CC 
 Z  , VWL (Zeile 11) korrigiert von CCC
' ( 
 Z  auf 0C
  T' ( 
   $ > T    T' : C g
 T3    $ 6  T3 3   T' ( C3 g
 T    %C' ( 
2 ~ T  
 Datensatz CC 
 Z, , Leistungszulage (Zeile 12) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ ~  T    T' : C g
 T3    $ o! T3 3   T' ( C3 g
 T    %C' ( xk!w T  
 Datensatz CC 
 Z% , Zulage 1 (Zeile 13) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ ! T    T' : 
C g
 T3    $ " T3 3   T' ( 
C3 g
 T    %C
' ( x"w T  
 Datensatz CC 
 Z% , Zulage 2 (Zeile 14) korrigiert von CCC
' ( 
 Z  auf 0C
  T' ( 
   $ " T    T' : C g
 T3    $ # T3 3   T' ( C3 g
 T    %C' ( x#w T  
 Datensatz CC 
 Z% , Zulage 3 (Zeile 15) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ )$ T    T' : C g
 T3    $ "% T3 3   T' ( C3 g
 T    %C' ( 
% T  
 Datensatz CC 
 Z- , Mehrarbeitsverg. (Zeile 16) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ j% T    T' : C g
 T3    $ f& T3 3   T' ( C3 g
 T    %C' ( b& T  
 Datensatz CC 
 Z0 , Str.freier Zuschlag (Zeile 17) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ & T    T' : C g
 T3    $ ' T3 3   T' ( C3 g
 T    %C' ( ' T  
 Datensatz CC 
 Z/ , Lfd. Sonderzahlung (Zeile 18) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ ' T    T' : C g
 T3    $ ( T3 3   T' ( C3 g
 T    %C' ( ( T  
 Datensatz CC 
 Z0 , Einm. Sonderzahlung (Zeile 19) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $  5) T    T' : C g
 T3    $ !-* T3 3   T' ( C3 g
 T    %C' ( 	)*~ T  
 Datensatz CC 
 Z, , Sonstige Bezge (Zeile 20) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ "u* T    T' : C g
 T3    $ #* T' ( . 
 T< .  $ $+ T    T' ( C g
 T3    %C' ( +w T  
 Datensatz CC 
 Z% , Teilzeit (Zeile 22) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ %, T3 3   T' ( C3 g
 T    %C' ( ,x T  
 Datensatz CC 
 Z& , Teilmonat (Zeile 23) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ &, T    T' : /C g
 T3    $ '- T    T' ( C g
 T3    %C' ( - T  
 Datensatz CC 
 Z- , Steuerfreibetrag (Zeile 24) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ (. T3 3   T' : C3 g
 T    $ )/ T    T' ( C g
 T3    %C' ( /y T  
 Datensatz CC 
 Z' , Sachbezge (Zeile 25) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ *P/ T3 3   T' : C3 g
 T    $ +C0 T    T' ( /C g
 T3    %C/' ( ?0y T  
 Datensatz CC 
 Z' , Sachbezge (Zeile 26) korrigiert von CCC/' ( 
 Z  auf 0C
  T' ( /   $ ,0 T3 3   T' : 0C3 g
 T    $ -1 T    T' ( C g
 T3    %C' ( '1 T  
 Datensatz CC 
 Z/ , Zusatzversicherung (Zeile 28) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ .1 T3 3   T' : C3 g
 T    $ /2 T    T' : C g
 T3    $ 03 T3 3   T' ( C3 g
 T    %C' ( 3| T  
 Datensatz CC 
 Z* , Zusatzbeitrag (Zeile 42) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 1T3 T    T' : C g
 T3    $ 2I4 T3 3   T' ( C3 g
 T    %C' ( xE4{ T  
 Datensatz CC 
 Z) , Kostenstelle (Zeile 29) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 3<5 T    T' ( C g
 T3    %C' ( 85y T  
 Datensatz CC 
 Z' , Bekenntnis (Zeile 30) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 466 T3 3   T' ( C3 g
 T    %C' ( 26 T  
 Datensatz CC 
 Z. , Lohnsteuertabelle (Zeile 31) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 537 T    T' ( C g
 T3    %C' ( /7 T  
 Datensatz CC 
 Z1 , AG-Lohnstr.Ausgleich (Zeile 32) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 6,8 T3 3   T' ( C3 g
 T    %C' ( (8 T  
 Datensatz CC 
 Z- , Altersentlastung (Zeile 33) korrigiert von CCC' ( 
 Z  auf 0C
  T' (    $ 7^9 T    T' ( .C g
 T3    %C g#9j T  
 Datensatz CC 
 Z) , Krankenkasse (Zeile 34) korrigiert von    auf 0C
  T' ( .  Z9 %C g#
89 T' (  V9 T' (     $ 8W: T3 3   T' ( !C3 g
 T    %C!' ( 6S: T  
 Datensatz CC 
 Z- , Lohnsteuerklasse (Zeile 35) korrigiert von CCC!' ( 
 Z  auf 0C
  T' ( !   $ 9N; T    T' ( "C g
 T3    %C"' ( J;} T  
 Datensatz CC 
 Z+ , Kindergeld/ATZ (Zeile 43) korrigiert von CCC"' ( 
 Z  auf 0C
  T' ( "   $ :; T3 3   T' : #C3 g
 T    $ ;< T    T' ( %C g
 T3    %C%' ( <~ T  
 Datensatz CC 
 Z, , KV-Beitragssatz (Zeile 38) korrigiert von CCC%' ( 
 Z  auf 0C
  T' ( %   $ << T3 3   T' : &C3 g
 T    $ == T    T' ( #C g
 T3    %C#' ( = T  
 Datensatz CC 
 Z1 , Solidarittszuschlag (Zeile 36) korrigiert von CCC#' ( 
 Z  auf 0C
  T' ( #   $ >> T3 3   T' : $C3 g
 T    $ ?? T    T' ( $C g
 T3    %C$' ( 
?| T  
 Datensatz CC 
 Z* , Kirchensteuer (Zeile 37) korrigiert von CCC$' ( 
 Z  auf 0C
  T' ( $   $ @Y? T3 3   T' : %C3 g
 T    $ AT@ T    T' ( &C g
 T3    %C&' ( P@ T  
 Datensatz CC 
 Z/ , Pflegeversicherung (Zeile 39) korrigiert von CCC&' ( 
 Z  auf 0C
  T' ( &   $ B@ T3 3   T' : 'C3 g
 T    $ CA T    T' ( 'C g
 T3    %C'' ( 
A T  
 Datensatz CC 
 Z/ , Rentenversicherung (Zeile 40) korrigiert von CCC'' ( 
 Z  auf 0C
  T' ( '   $ DA T3 3   T' : (C3 g
 T    $ EB T    T' ( (C g
 T3    %C(' ( B T  
 Datensatz CC 
 Z5 , Arbeitslosenversicherung (Zeile 41) korrigiert von CCC(' ( 
 Z  auf 0C
  T' ( (   $ F(C T3 3   T' : )C3 g
 T    $ GD T    T' ( )C g
 T3    %C)' ( D| T  
 Datensatz CC 
 Z* , ATV-AN-Anteil (Zeile 42) korrigiert von CCC)' ( 
 Z  auf 0C
  T' ( )   $ HfD T3 3   T' : *C3 g
 T    $ IZE T    T' ( *C g
 T3    %C*' ( VEz T  
 Datensatz CC 
 Z( , Einbehalt 1 (Zeile 44) korrigiert von CCC*' ( 
 Z  auf 0C
  T' ( *   $ JE T3 3   T' : +C3 g
 T    $ KF T    T' ( +C g
 T3    %C+' ( Fz T  
 Datensatz CC 
 Z( , Einbehalt 2 (Zeile 45) korrigiert von CCC+' ( 
 Z  auf 0C
  T' ( +   $ LF T3 3   T' : ,C3 g
 T    $ MG T    T' ( ,C g
 T3    %C,' ( Gz T  
 Datensatz CC 
 Z( , Einbehalt 3 (Zeile 46) korrigiert von CCC,' ( 
 Z  auf 0C
  T' ( ,   $ NH T3 3   T' : -C3 g
 T    $ O
I T    T' ( -C g
 T3    %C-' ( 	Iy T  
 Datensatz CC 
 Z' , Auszahlung (Zeile 47) korrigiert von CCC-' ( 
 Z  auf 0C
  T' ( -   $ P\I T3 3   T' : C3 g 
 T    $ QI T    T' : C g 
 T3    $ RI T3 3   T' : C3 g 
 T    $ SIJ T    T' : C g 
 T3    $ TJ T3 3   T' : C3 g
 T    $ UJ T3 3   T" = C3 g
 T    $ VK T3 3   T" > C3 g
 T    $ W8K T' ? C g $ XIK $ YZK $ ZkK     !  %& aK !   C 117
  T @   
 T   0  A  T)      T C) 
 TB   TC    CB  D  *  %  2  	vL %<  rL +    %C > L C    x " T E ,  Import beendet! UF  ZT0 BEDIENST MSG3 THISFORM ZEILE3 VISIBLE TRUE MSG TEXT15 TEXT MYCLOSE HSIMP IMPFILENAME EIGDAT MUSER MYOPEN IMPORTF HSA
 IMPORTFILE	 IMPODATEI MYPUT MYGET GRDIMPORTSTRUKTUR
 SSCOMMAND4 ENABLED IMPORTSTRUKTUR INDEX2 LOF ZEILE6
 FILENEUALT FILENEU
 TDBNUMBER1 VALUE
 GRUNDSTELLUNG WNW PERSONALFALL INDEX1 MSGLEN EXITFOR WVW ZNAM ZI	 NEUERNAME
 FOLGEMONAT CAPTION REFRESH GLEICHERSATZ
 SATZANZAHL	 NEUERSATZ MSG2 OP1 MSG1 BDA SZTEILER STUFENANZAHLERMITTELN I BDATEXT DASTUFEBERECHNEN TNAM	 TVDZEILE OP2 ZUMLAGE1 ZUMLAGE2 RESERVE7 ZEILE7 NAMENINCOMBO SPIN1 MYFORM1 ATZRCK LABEL1 Click,     1      1Ra a q A  
 A A A  
A A q A 1 1 A r rq  q  AE A b   A B!qr r   A  r q        A   A 2   1 A   !   A  A  !A  A ! aA !1  A A A  ! aA ! aA !0 aA !QaA     A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A B aA ! aA ! r aA q A ! ! aA  aA A ! ! !aA ! ! !aA ! ! aA ! ! qaA ! ! qaA ! ! qaA ! ! aA ! ! !aA ! ! aA ! ! !aA ! ! aA ! b ! qaA ! aA ! ! aA ! ! aA ! ! aA ! ! aA ! ! ! aA ! ! aA ! aA ! aA ! 1aA ! aA ! 1a 1a aA A ! aA ! aA ! ! aA ! ! 1aA ! ! aA ! ! aA ! ! aA ! ! qaA ! ! aA ! ! aA ! ! aA ! ! aA ! ! aA ! ! ! ! ! !! !! !A A A A B A  A A A 2 s q Q Qr q q A A 4!A "1                       Ո      )   V                        label      label      Label5      FORM1      YCaption = "Import.dat"
Height = 18
Left = 670
Top = 146
Width = 63
Name = "Label5"
      label      label      Label7      FORM1      gCaption = "Struktur von Import.dat"
Height = 16
Left = 603
Top = 558
Width = 125
Name = "Label7"
      label      label      zeile6      FORM1      PCaption = ""
Height = 16
Left = 381
Top = 199
Width = 342
Name = "zeile6"
      label      label      zeile7      FORM1      FontBold = .T.
Caption = "  Import beendet"
Height = 19
Left = 126
Top = 108
Visible = .F.
Width = 99
ForeColor = 255,0,0
Name = "zeile7"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 591
Left = 723
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6F00N35HS1428060004      /  F      ]        V                                           WINDOWS _6F00N35HU1534163053                      !                                               WINDOWS _6F00N35HV1428060004$      $  %  #%  0%      %  %                                               WINDOWS _6F00N35HW1428060004&      &  '  '   '      '  '                                               WINDOWS _6F00N35HX1428059667(      (  (  (  (                                                           WINDOWS _6F00N35HY1450741234N)      c)  x)  )  )      *  *                                               WINDOWS _6F00N35HZ1428053125
,      ,  (,  6,  C,                                                           WINDOWS _6F00N35I01428059667,      ,  ,  ,  ,                                                           WINDOWS _6F00N35I11428059667M-      Z-  g-  u-  -                                                           WINDOWS _6F00N35HS1428059667-      -  .  .  .                                                           WINDOWS _6F00N35I31428060004.      .  .  .  .      #/  10                                               WINDOWS _6F00N35I414280588081      1  1  1  1                                                           WINDOWS _6F00N35I51428053032O2      ^2  m2  2  2                                                           WINDOWS _6F00N35I615341630532      2  3  3  "3      3  O                                               WINDOWS _6F00N35I71428052525Cb      Ob  [b  tb  b                                                           WINDOWS _6F00N35I81428052525d      d  d  d  e                                                           WINDOWS _6F00N35I91428052525Me      \e  ke  xe  e                                                           WINDOWS _6F00N35IA1428052525f      f  +f  :f  af                                                           WINDOWS _6F00N35IB1428052525f      f  f  f  f                                                           WINDOWS _6F00N35IC1428052525eg      sg  g  g  g                                                           WINDOWS _6F00N35ID1428052525g      h  h  $h  Kh                                                           WINDOWS _6F00N35HS1428059667h      h  h  h  h                                                           WINDOWS _6F00PEV5J1428053612`i      mi  zi  i  i                                                           WINDOWS _6F00PEV5K1428059667i      i  j  j  "j                                                           WINDOWS _6F00UF9O11428058485j  j  j  j  	k  k                                                           COMMENT RESERVED                                k                                                            k                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR importstruktur (nr C(3), erklrung1 C(40), erklrung2 C(40))
SELECT importstruktur

ENDPROC
     .                              :   %                             U  N D h importstruktur  C  C(  C( F   U  IMPORTSTRUKTUR NR
 ERKLRUNG1
 ERKLRUNG2 BeforeOpenTables,     1 Aq 2                              )                           1      1      form      form      FORM1      Height = 608
Width = 742
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Export nach HIS"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.grdImportstruktur.column1.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
thisform.grdImportstruktur.column2.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
thisform.grdImportstruktur.column3.text1.fontsize = thisform.grdImportstruktur.column1.fontsize
ENDPROC
PROCEDURE Init
thisform.combo0.AddItem("HIS ab 2007 (mit TVD und TV-L)")
thisform.combo0.ListIndex = 1
thisform.text15.Value = ""
thisform.zeile9.Value = ""
thisform.tdbnumber1.Value = 1

Do Case && modus
	Case modus = 0
		Msg = " INFO"
	Case modus = 1
		Msg = " PLAN"
	Case modus = 2
		Msg = " REAL"
Endcase

thisform.zeile9.value = welchesjahrc + " " + muser + " " + Msg

thisform.grdimportstruktur.column2.heADER1.Caption = "Dateivorspann" + CHR(13) + "Trennzeichen fr Datenfelder" + CHR(13) + "Trennzeichen fr Datenstze"
thisform.grdimportstruktur.column3.heADER1.Caption = "PKO_Datum_Zeit" + CHR(13) + "; (Semikolon)" + CHR(13) + "chr(13)(Zeilenvorschub)"

SELECT importstruktur
FOR hsa = 1 TO 42
	APPEND BLANK
	FLUSH
	replace importstruktur.nr WITH ALLTRIM(STR(hsa,3,0))
	FLUSH
NEXT

GOTO 1
replace importstruktur.erklrung1 WITH "Monat"
flush
skip
replace importstruktur.erklrung1 WITH "Gehaltsstufe"
flush
skip
replace importstruktur.erklrung1 WITH "Grundgehalt"
flush
skip
replace importstruktur.erklrung1 WITH "Ortszuschlagsstufe"
flush
skip
replace importstruktur.erklrung1 WITH "Allg. Stellenzulage"
flush
skip
replace importstruktur.erklrung1 WITH "VWL"
flush
skip
replace importstruktur.erklrung1 WITH "Leistungszulage"
flush
skip
replace importstruktur.erklrung1 WITH "Zulage 1"
flush
skip
replace importstruktur.erklrung1 WITH "Zulage 2"
flush
skip
replace importstruktur.erklrung1 WITH "Zulage 3"
flush
skip
replace importstruktur.erklrung1 WITH "Mehrarbeitsvergtung"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerfreie Zuschlge"
flush
skip
replace importstruktur.erklrung1 WITH "Laufende Sonderzahlungen"
flush
skip
replace importstruktur.erklrung1 WITH "Jhrliche Sonderzahlungen"
flush
skip
replace importstruktur.erklrung1 WITH "Sonstige Bezge"
flush
skip
replace importstruktur.erklrung1 WITH "Monatlicher Steuerfreibetrag"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 1 (Betrag)"
flush
skip
replace importstruktur.erklrung1 WITH "Sachbezge 2 (Betrag)"
flush
skip
replace importstruktur.erklrung1 WITH "ATV-pflichtiges Entgelt"
flush
skip
replace importstruktur.erklrung1 WITH "Steuerpflichtiges Entgelt"
flush
skip
replace importstruktur.erklrung1 WITH "KV-pflichtiges Entgelt"
flush
skip
replace importstruktur.erklrung1 WITH "RV-pflichtiges Entgelt"
flush
skip
replace importstruktur.erklrung1 WITH "KV-Beitragssatz"
flush
skip
replace importstruktur.erklrung1 WITH "KV-Beitrag-Arbeitgeberanteil"
flush
skip
replace importstruktur.erklrung1 WITH "PV-Beitragssatz"
flush
skip
replace importstruktur.erklrung1 WITH "PV-Beitrag-Arbeitgeberanteil"
flush
skip
replace importstruktur.erklrung1 WITH "RV-Beitragssatz"
flush
skip
replace importstruktur.erklrung1 WITH "RV-Beitrag-Arbeitgeberanteil"
flush
skip
replace importstruktur.erklrung1 WITH "AV-Beitragssatz"
flush
skip
replace importstruktur.erklrung1 WITH "AV-Beitrag-Arbeitgeberanteil"
flush
skip
replace importstruktur.erklrung1 WITH "ATV-AG-Umlageanteil"
flush
skip
replace importstruktur.erklrung1 WITH "ATV-AG-Kapitalbeitrag"
flush
skip
replace importstruktur.erklrung1 WITH "Lohnsteuer+Soli.Zuschlag fr ATV-AG-Anteil"
flush
skip
replace importstruktur.erklrung1 WITH "Kirchensteuer fr ATV-AG-Anteil"
flush
skip
replace importstruktur.erklrung1 WITH "AG-Sanierungszuschu ATV"
flush
skip
replace importstruktur.erklrung1 WITH "Vom AG bernommene Steuern"
flush
skip
replace importstruktur.erklrung1 WITH "Nebenkosten"
flush
skip
replace importstruktur.erklrung1 WITH "Umlage U1 (Entgeltfortzahlung)"
flush
skip
replace importstruktur.erklrung1 WITH "Umlage U2 (Mutterschutz)"
flush
skip
replace importstruktur.erklrung1 WITH "Mietstufe 0 = ohne, ansonsten 1-7"
FLUSH

GOTO 1

thisform.refresh

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Destroy
SELECT importstruktur
use
ENDPROC
     
    
  
                        -y   %         <
                 U  y  C    " T           " T           " T            U	  THISFORM SIZER	 FRMRESIZE GRDIMPORTSTRUKTUR COLUMN1 TEXT1 FONTSIZE COLUMN2 COLUMN3	2 C HIS ab 2007 (mit TVD und TV-L)     T     T       T       T    
 H       T	   INFO    T	   PLAN    T	   REAL % T    
      	 q T   
   
 DateivorspannC
  Trennzeichen fr DatenfelderC
  Trennzeichen fr Datenstze_ T       PKO_Datum_ZeitC
 
 ; (Semikolon)C
  chr(13)(Zeilenvorschub) F   (*2  [ >  CC  Z [ 	 # >   Monat [ H >   Gehaltsstufe [ H >   Grundgehalt [ H" >   Ortszuschlagsstufe [ H# >   Allg. Stellenzulage [ H >   VWL [ H >   Leistungszulage [ H >   Zulage 1 [ H >   Zulage 2 [ H >   Zulage 3 [ H$ >   Mehrarbeitsvergtung [ H% >   Steuerfreie Zuschlge [ H( >   Laufende Sonderzahlungen [ H) >   Jhrliche Sonderzahlungen [ H >   Sonstige Bezge [ H, >   Monatlicher Steuerfreibetrag [ H% >   Sachbezge 1 (Betrag) [ H% >   Sachbezge 2 (Betrag) [ H' >   ATV-pflichtiges Entgelt [ H) >   Steuerpflichtiges Entgelt [ H& >   KV-pflichtiges Entgelt [ H& >   RV-pflichtiges Entgelt [ H >   KV-Beitragssatz [ H, >   KV-Beitrag-Arbeitgeberanteil [ H >   PV-Beitragssatz [ H, >   PV-Beitrag-Arbeitgeberanteil [ H >   RV-Beitragssatz [ H, >   RV-Beitrag-Arbeitgeberanteil [ H >   AV-Beitragssatz [ H, >   AV-Beitrag-Arbeitgeberanteil [ H# >   ATV-AG-Umlageanteil [ H% >   ATV-AG-Kapitalbeitrag [ H: >  * Lohnsteuer+Soli.Zuschlag fr ATV-AG-Anteil [ H/ >   Kirchensteuer fr ATV-AG-Anteil [ H( >   AG-Sanierungszuschu ATV [ H* >   Vom AG bernommene Steuern [ H >   Nebenkosten [ H. >   Umlage U1 (Entgeltfortzahlung) [ H( >   Umlage U2 (Mutterschutz) [ H1 >  ! Mietstufe 0 = ohne, ansonsten 1-7 [	 #
    
      T        T       
     T   a U  THISFORM COMBO0 ADDITEM	 LISTINDEX TEXT15 VALUE ZEILE9
 TDBNUMBER1 MODUS MSG WELCHESJAHRC MUSER GRDIMPORTSTRUKTUR COLUMN2 HEADER1 CAPTION COLUMN3 IMPORTSTRUKTUR HSA NR
 ERKLRUNG1 REFRESH SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  F   Q U  IMPORTSTRUKTUR Resize,      Init     Destroy    1 "!!2 !1111 !!!A Rr qQ A A A  QA A A A A A !A A 1A A 1A A A A A A A A A A AA A QA A A A A A A A A A QA A QA A qA A A A aA A aA A A A A A A A A A A A A A A A A A 1A A QA A A A A A A A A A A A A A A A A    rq  2 q A 1                       Q        l  O        m        )   
                        
commandbutton      
commandbutton      
ssCommand1      FORM1      VTop = 4
Left = 14
Height = 31
Width = 357
Caption = "Hilfe"
Name = "ssCommand1"
      PPROCEDURE Click
Msg = "68"
inet = 111
Do insinternet &&Do attached
ENDPROC
                                         %   n             }             U  &  T   68
 T o   U  MSG INET INSINTERNET Click,     1   q 1                       E       )                            
commandbutton      
commandbutton      
ssCommand2      FORM1      [Top = 4
Left = 382
Height = 31
Width = 347
Caption = "Schlieen"
Name = "ssCommand2"
      0PROCEDURE Click

thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       %       )                            label      label      zeile0      FORM1      FontBold = .T.
FontSize = 14
Caption = "Export von Personalfllen"
Height = 24
Left = 248
Top = 49
Width = 246
Name = "zeile0"
      
commandbutton      
commandbutton      
ssCommand3      FORM1      gTop = 78
Left = 14
Height = 25
Width = 313
Caption = "Speicherort bestimmen"
Name = "ssCommand3"
      PROCEDURE Click
hsxx = mygetdir()

IF EMPTY(hsxx)
	RETURN
ELSE
	thisform.text15.value = hsxx
	thisform.sscommand4.enabled = true
ENDIF
RETURN
ENDPROC
     S    :  :                           %             
                U  Z  T  C  %C  !  B O  T      T      B U  HSXX MYGETDIR THISFORM TEXT15 VALUE
 SSCOMMAND4 ENABLED TRUE Click,     1   A  11A A 1                              )   :                        textbox      textbox      Text15      FORM1      QHeight = 60
Left = 334
ReadOnly = .T.
Top = 79
Width = 396
Name = "Text15"
      label      label      zeile2      FORM1      tCaption = "Datensatzaufbau  (PKO_Datum_Zeit.txt)"
Height = 24
Left = 14
Top = 143
Width = 313
Name = "zeile2"
      label      label      zeile3      FORM1      ^Caption = "Exportieren aus"
Height = 25
Left = 14
Top = 168
Width = 313
Name = "zeile3"
      label      label      zeile4      FORM1      [Caption = "ab Datensatz"
Height = 25
Left = 14
Top = 195
Width = 313
Name = "zeile4"
      combobox      combobox      Combo0      FORM1      `Enabled = .F.
Height = 24
Left = 334
Top = 143
Visible = .T.
Width = 327
Name = "Combo0"
     PROCEDURE Click

thisform.oberenfilter.Click

IF thisform.akkumopt.Value = 2
	thisform.sum_oberenteil.Click
endif	    

thisform.kostenstellen.click

thisform.grdkstgrid.refresh
thisform.grdkstgrid2.refresh

*thisform.sum_oberenteil.click
ENDPROC
         j  j                           %          !  	               U  _ 
      %    1 
      
     
     
   	   U
  THISFORM OBERENFILTER CLICK AKKUMOPT VALUE SUM_OBERENTEIL
 KOSTENSTELLEN
 GRDKSTGRID REFRESH GRDKSTGRID2 Click,     1  r A    3                              )   j                        textbox      textbox      zeile9      FORM1      RHeight = 25
Left = 334
ReadOnly = .T.
Top = 168
Width = 327
Name = "zeile9"
      textbox      textbox      
tdbnumber1      FORM1      EHeight = 25
Left = 334
Top = 195
Width = 45
Name = "tdbnumber1"
      
commandbutton      
commandbutton      
ssCommand4      FORM1      qTop = 565
Left = 206
Height = 31
Width = 330
Caption = "Export starten"
Enabled = .F.
Name = "ssCommand4"
     PROCEDURE Click
thisform.Zeile6.Visible = True
myclose("#100")
hsdate = DTOC(DATE())
hstime = TIME()
msg1 = "PKO_" + Leftc(hsDate, 2) + "-" + Substr(hsDate, 4, 2) + "-" + Right(hsDate, 2) + "_" + Leftc(hsTime, 2) + "-" + Substr(hsTime, 4, 2) + "-" + Right(hsTime, 2) + ".txt"
*!*	msg1 = "PKO_" + DTOS(DATE())+"_"+STRTRAN(TIME(),":","") + ".txt"
msg2 = SUBSTR(msg1,1,21)
thisform.Text15.Value = ALLTRIM(thisform.Text15.Value) + IIF(RIGHT(ALLTRIM(thisform.Text15.Value),1)="\","","\") + msg1

handle=Fcreate(Alltrim(thisform.Text15.Value))
*myopen(mytablett.Text15.value For Output As #100) &&,"msg2)
Fwrite(handle,Alltrim(msg2) + Chr(13) + Chr(13) + Chr(10)) && print #100, Alltrim(msg2) + Chr(13)
&&Close #100
Msg = ""
&&Open Trim$(mytablett.Text(15).Text) For Append As 100

*	For i = myTablett.tdbnumber(1+1).Value To satzanzahl - 1 alte version
For i = thisform.tdbnumber1.Value To satzanzahl &&vorher - 1
	myget(13, i,"wnw")
	For j = 1 To 12
		myget(j, i,"wvw")
		With wvw
			Msg = ""
			Msg = Msg + Alltrim(wnw.personalfall) + ";" &&Name
			Msg = Msg + Alltrim(Str(j,2,0)) + ";" &&Monat
			Msg = Msg + welchesjahrc + ";" &&Jahr
			Do altersstufeholen &&Do attached
			Msg = Msg + Alltrim(msg3) + ";" &&Grundgehaltsstufe
			Msg = Msg + Str(Round(myformat(.effz(1+7) / 100, "###,##0.00","N"),2),10,2) + ";"   &&Grundgehalt
			Do OZstufeholen &&Do attached
			Msg = Msg + Alltrim(msg3) + ";" &&OZ-Stufe
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+8) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&OZ
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+9) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&Stellenzulage
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+10) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&VWL
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+11) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Leistungszulage
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+12) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Zulage1
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+13) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Zulage2
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+14) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Zulage3
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+15) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Mehrarbeitsverg.
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+16) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Steuerfreie Zulagen
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+17) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&lfd. Sonderzahlungen
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+18) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&jhrl. Sonderzahlungen
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+19) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Sonstiger Bezug
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+23) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Steuerfreibetrag
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+24) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Sachbezge
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+47) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Sachbezge
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+30) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&ATV-pfl. Entgelt
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+27) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Steuerpfl. Entgelt
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+65) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&KV-pfl. Entgelt
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+28) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&RV-pfl. Entgelt
			Do Case && .znam(38)
				Case (.znam(38) >= 0 .And. .znam(38) <= 121)
					Msg = Msg + Alltrim(Str(Round(myformat(10 + (Fix(.znam(37) / 2) / 10), "###,##0.00","N"),2),10,2)) + ";"   &&KV-Beitragssatz
				Case .znam(38) = 122
					Msg = Msg + "10,00" + ";"
				Case .znam(38) = 123
					Msg = Msg + "befreit" + ";"
				Case  Inlist(.znam(38), 124, 125)
					Msg = Msg + "lt. Eingabe" + ";"
				Case .znam(38) = 126
					Msg = Msg + "11,00" + ";"
				Case .znam(38) = 127
					Msg = Msg + "0,00" + ";"
				Case .znam(38) = 128
					If welchesjahr >= 2019
						Msg = Msg + "bergangsb." + ";"
					Else
						Msg = Msg + "Gleitzone" + ";"
					Endif
				Case .znam(38) = 129
					If welchesjahr >= 2019
						Msg = Msg + "bergangsb." + ";"
					Else
						Msg = Msg + "Gleitzone" + ";"
					ENDIF 
				Case (wvw.znam(38) >= 0 .And. wvw.znam(38) >= 130)&&ndern 2026
					xBBeitragsatz = 0.0
					xBBeitragsatz = getkvproz(wvw.znam(38)) &&ndern 2026
					Msg = Msg + Alltrim(Str(Round(myformat(xBBeitragsatz, "###,##0.00","N"),2),10,2)) + ";"   &&KV-Beitragssatz
			Endcase
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+0) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&KV-Beitrag AG-Anteil
			Msg = Msg + Alltrim(Str(Round(myformat(vorein.vorPVvorein * 2, "###,##0.00","N"),2),10,2)) + ";"
			Msg = Msg + Alltrim(Str(Round(.effz(1+1) / 100,2),10,2)) + ";"   &&PV-Beitrag
			Msg = Msg + Alltrim(Str(Round(myformat(vorein.vorRVvorein * 2, "###,##0.00","N"),2),10,2)) + ";" &&RV-Beitragssatz
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+2) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&RV-Beitrag
			Msg = Msg + "3,30" + ";"     &&AV-Beitragssatz
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+3) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&AV-Beitrag
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+31) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&ZVK-Umlage des AG
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+5) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&ATV-Kapitalbeitrag des AG
			Msg = Msg + Alltrim(Str(Round(myformat((.tnam(1+32) + .effz(1+23)) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Lohnsteuer auf Umlage
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+6) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&Kirchensteuer auf Umlage
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+25) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&ATV-Sanierungsgeld
			If .znam(34) > 7
				Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+34) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&ATZ-Aufstockung
			Else
				Msg = Msg + "0,00" + ";"    &&ATZ-Aufstockung
			Endif
			Msg = Msg + Alltrim(Str(Round(myformat((.effz(1+4) + .effz(1+5) + .effz(1+6)) / 100, "###,##0.00","N"),2),10,2)) + ";" &&vom AB bernommene Steuern
			Msg = Msg + Alltrim(Str(Round(myformat(.tnam(1+26) / 100, "###,##0.00","N"),2),10,2)) + ";"
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+29) / 100, "###,##0.00","N"),2),10,2)) + ";"   &&Umlage1
			Msg = Msg + Alltrim(Str(Round(myformat(.effz(1+30) / 100, "###,##0.00","N"),2),10,2)) + ";"  &&Umlage2
			Msg = Msg + Alltrim(STR(myformat(.reserve7, "0","N"),1,0)) &&Mietstufe
		Endwith
		Fwrite(handle,Alltrim(Msg) + Chr(13) + Chr(13) + Chr(10)) &&Print #100, Alltrim(Msg)
		Msg = ""
	Next

	&&     Open Trim$(mytablett.Text(15).Text) For Append As 100 &&Len = Len(Msg)
	thisform.Zeile6.Caption = Alltrim(Str(i,5,0)) + " exportierte Personalflle"
Next
Fclose(handle)
*myclose("#100")
*!*		myTablett.Zeile7.Caption = "Fertig"
thisform.Zeile7.Visible = True
ENDPROC
                                      %   g      H  i   v            U   T      C #100  T CC$* T C^p T  PKO_C  -C \ -C R _C  -C \ -C R .txt T C \D T  	 
 C  	 
 CCC  	 
 R \     \6  T CC  	 
 " C C C
 C
 C
 
 T    
    
 (  C
 
  wnw   ({ C   
  wvw 
  H
 T    T  C   ;  T  CC  Z ; T    ;   T  C  ;A T  CCCC d
 ###,##0.00 N T
Z ;   T  C  ;C T  CCCCC	 d
 ###,##0.00 N T
Z ;C T  CCCCC
 d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC
 d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC0 d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCCB d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;
 H
' C&  
 C& y	P T  CCCC
CC%  

 ###,##0.00 N T
Z ; C& zH T   10,00 ; C& {{ T   befreit ; CC& |}! T   lt. Eingabe ; C& ~ T   11,00 ; C& 	 T   0,00 ; C& 	 % `	! T   bergangsb. ; 	 T  	 Gleitzone ;  C& 	 % 	! T   bergangsb. ; 	 T  	 Gleitzone ; + C&    C&  	
 T          T CC&    ; T  CCCC  
 ###,##0.00 N T
Z ; C T  CCCCC d
 ###,##0.00 N T
Z ;A T  CCCC! " 
 ###,##0.00 N T
Z ;. T  CCCC dT
Z ;A T  CCCC! # 
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ; T   3,30 ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC  d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;M T  CCCCC! C d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ; %C" 
C T  CCCCC# d
 ###,##0.00 N T
Z ; 
 T   0,00 ; V T  CCCCC C C d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;C T  CCCCC d
 ###,##0.00 N T
Z ;( T  CCC$  0 N  Z " C C C
 C
 C
 
 T    ; T   % CC
  Z  exportierte Personalflle  C  T  &    U'  THISFORM ZEILE6 VISIBLE TRUE MYCLOSE HSDATE HSTIME MSG1 MSG2 TEXT15 VALUE HANDLE MSG I
 TDBNUMBER1
 SATZANZAHL MYGET J WVW WNW PERSONALFALL WELCHESJAHRC ALTERSSTUFEHOLEN MSG3 MYFORMAT EFFZ OZSTUFEHOLEN TNAM ZNAM FIX WELCHESJAHR
 XBBEITRAGSATZ	 GETKVPROZ VOREIN VORPVVOREIN VORRVVOREIN RESERVE7 CAPTION ZEILE7 Click,     1 1  RAr" qq  aq q 1111111111111111111 qaaaaa! A a! A QA 1111111a1 A a111A ! A A  31                             )                           grid      grid      grdImportstruktur      FORM1     8ColumnCount = 3
DeleteMark = .F.
Enabled = .T.
HeaderHeight = 57
Height = 328
Left = 13
Panel = 1
RecordSource = "IMPORTSTRUKTUR"
RecordSourceType = 1
ScrollBars = 2
Top = 227
Width = 715
Name = "grdImportstruktur"
Column1.ControlSource = "IMPORTSTRUKTUR.nr"
Column1.Enabled = .T.
Column1.Name = "Column1"
Column2.ControlSource = "IMPORTSTRUKTUR.erklrung1"
Column2.Enabled = .T.
Column2.Width = 296
Column2.Name = "Column2"
Column3.ControlSource = "IMPORTSTRUKTUR.erklrung2"
Column3.Enabled = .T.
Column3.Width = 311
Column3.Name = "Column3"
      header      header      Header1      FORM1.grdImportstruktur.Column1      2Caption = "nr"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column1      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdImportstruktur.Column2      :Caption = "erklrung1"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column2      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdImportstruktur.Column3      :Caption = "erklrung2"
WordWrap = .T.
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdImportstruktur.Column3      hBorderStyle = 0
Enabled = .T.
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      Label7      FORM1      hCaption = "Struktur der Exportdatei"
Height = 16
Left = 597
Top = 558
Width = 129
Name = "Label7"
      label      label      zeile6      FORM1      PCaption = ""
Height = 16
Left = 381
Top = 199
Width = 342
Name = "zeile6"
      label      label      zeile7      FORM1      FontBold = .T.
Caption = "  Export beendet"
Height = 19
Left = 126
Top = 108
Visible = .F.
Width = 99
ForeColor = 255,0,0
Name = "zeile7"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 591
Left = 723
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0(   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6F6119XI61428525958      /  F      ]                                                   WINDOWS _6F6119XI71533955636(      4  @      M        ^                                                WINDOWS _6F6119XI81428526077V7      c7  p7  ~7  7      8  m8                                               WINDOWS _6F6119XI91428526121Q9      a9  q9  9  9      9  ;                                               WINDOWS _6F6119XIA1428526121<      <  <  =  =      u=  >                                               WINDOWS _6F6119XIB1428526121@      @  @  A  A      xA  B                                               WINDOWS _6F6119XIC1428526121D      D  D  E  E      {E  F                                               WINDOWS _6F6119XID1428526121H      H  H  I  I      ~I  J                                               WINDOWS _6F6119XIE1428526121L      L  L  L  L      6M  {N                                               WINDOWS _6F6119XIF1428526077MP      ZP  gP  uP  P      
Q  _Q                                               WINDOWS _6F6119XIG1428526077CR      XR  mR  R  R      %S  S                                               WINDOWS _6F6119XIH1428833900tT      T  T  T  T      OU  d                                               WINDOWS _6F6119XII1428526077<o      Qo  fo  xo  o      ,p  r                                               WINDOWS _6F6119XIJ1428526077t      t  t  t  t      ~u  u                                               WINDOWS _6F6119XIK1428526407zv      v  v  v  v      Ww  w                                               WINDOWS _6F6119XIL1428523759
y      y  4y  Ky  Xy      y                                                 WINDOWS _6F6119XIM1428524240t                                                                       WINDOWS _6F6119XIN1428523759      (  6  E  g                                                           WINDOWS _6F6119XIO1428524240                                                                       WINDOWS _6F6119XIP1428523759Q      _  m  |                                                             WINDOWS _6F6119XIQ1428526350֕            #                                                           WINDOWS _6F6119XIR1428523759            ߖ                                                           WINDOWS _6F6119XIS1428526350      &  5  B  d                                                           WINDOWS _6F6119XIT1428523759՗             "                                                           WINDOWS _6F6119XIU1428526350b      q                                                                 WINDOWS _6F6119XIV1428523759       .  <  K  m                                                           WINDOWS _6F6119XIW1428524240                                                                       WINDOWS _6F6119XIX1428523759S      a  o  ~                                                             WINDOWS _6F6119XIY1428524240ܚ            )                                                           WINDOWS _6F6119XIZ1428523759          ś                                                             WINDOWS _6F6119XJ01428526350      .  =  J  l                                                           WINDOWS _6F6119XJ11428523759ۜ            (                                                           WINDOWS _6F6119XJ21428526350`      o  ~                                                               WINDOWS _6F6119XJ31428523759      ,  :  I  k                                                           WINDOWS _6F6119XJ41428526350        ɞ  ֞                                                             WINDOWS _6F611T9Q51428524240i  y                                                                   WINDOWS _6F61354KK1428773141P      e  z            
                                               WINDOWS _6F613BBYS1533955636f      {            4                                                 COMMENT RESERVED                                P                                                          y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR vergliste (sp0 C(35), sp1 C(10), sp2 C(10), sp3 C(10), sp4 C(1), sp5 C(35), sp6 C(10), sp7 C(10), sp8 C(10))
SELECT vergliste
ENDPROC
         v  v                           %         -     %            U    h	 vergliste  C#  C
  C
  C
  C  C#  C
  C
	  C
 F   U
 	 VERGLISTE SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 BeforeOpenTables,     1 	q 1                              )   v                        1      1      form      form      FORM1      Height = 620
Width = 887
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Entgelt-Vergleich"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     CPROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 14 > thisform.grdVergliste.width
	thisform.grdVergliste.width = thisform.width -14
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  190 / 873
prozsp2 =  4 / 873
prozsp3 =  75 / 873

thisform.grdVergliste.Width = thisform.Width - 14

grdbreite = thisform.grdVergliste.Width 
thisform.grdVergliste.column1.Width = grdbreite * prozsp1
thisform.grdVergliste.column2.Width = grdbreite * prozsp3
thisform.grdVergliste.column3.Width = grdbreite * prozsp3
thisform.grdVergliste.column4.Width = grdbreite * prozsp3
thisform.grdVergliste.column5.Width = grdbreite * prozsp2
thisform.grdVergliste.column6.Width = grdbreite * prozsp1
thisform.grdVergliste.column7.Width = grdbreite * prozsp3
thisform.grdVergliste.column8.Width = grdbreite * prozsp3
thisform.grdVergliste.column9.Width = grdbreite * prozsp3

thisform.grdVergliste.column1.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column2.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column3.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column4.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column5.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column6.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column7.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column8.text1.fontsize = thisform.grdVergliste.column1.fontsize
thisform.grdVergliste.column9.text1.fontsize = thisform.grdVergliste.column1.fontsize
ENDPROC
PROCEDURE Init
mydifferenzA = thisform

startlauf = .T.

For k = 4791 To 4793
	myget(20, k,"woerter")
	Thisform.combo0.AddItem(Alltrim(woerter.textee))
Next

VerglAModus = modus + 1
Thisform.combo0.ListIndex = modus + 1
Thisform.combo0.Visible = True

Do monatladen

For k = 0 To 11
	Thisform.combo1.AddItem(Leftc(sumonattext(1+k), 3))
Next
If Monat = 12
	VerglAMonat = 11 + 1 &&HS
Else
	VerglAMonat = zi(1+20) + 1 &&HS
Endif

Thisform.combo1.ListIndex = VerglAMonat
Thisform.combo1.Visible = True

Thisform.combo5.Clear

If Dimen.dimsatzanzahlj1 > 0 .And. Dimen.dimsatzanzahlj1 > fileneu
	Thisform.combo2.AddItem(xjahr1) &&"2018"
	Thisform.combo5.AddItem(xjahr1) &&fragehs 2016"2018"
Endif

If Dimen.dimsatzanzahlj2 > 0 .And. Dimen.dimsatzanzahlj2 > fileneu
	Thisform.combo2.AddItem(xjahr2) &&"2019"
	Thisform.combo5.AddItem(xjahr2) &&fragehs 2016"2019"
Endif

If Dimen.dimsatzanzahlj3 > 0 .And. Dimen.dimsatzanzahlj3 > fileneu
	Thisform.combo2.AddItem(xjahr3) &&"2020"
	Thisform.combo5.AddItem(xjahr3) &&fragehs 2016"2020"
Endif

If Dimen.dimsatzanzahlj4 > 0 .And. Dimen.dimsatzanzahlj4 > fileneu
	Thisform.combo2.AddItem(xjahr4) &&"2021"
	Thisform.combo5.AddItem(xjahr4) &&fragehs 2016"2021"
Endif

If Dimen.dimsatzanzahlj5 > 0 .And. Dimen.dimsatzanzahlj5 > fileneu &&Jahreswechsel done2021
	Thisform.combo2.AddItem(xjahr5) &&"2022"
	Thisform.combo5.AddItem(xjahr5) &&fragehs 2016"2022"
Endif

VerglAJahr = welchesjahr
VerglBJahr = welchesjahr

For k = 0 To Thisform.combo2.ListCount - 1
	If Alltrim(Thisform.combo2.List(1+k)) = welchesjahrc
		Thisform.combo2.ListIndex = 1+k
		Thisform.combo5.ListIndex = 1+k
	Endif
Next
Thisform.combo2.Visible = True

For k = 4791 To 4793
	myget(20, k,"woerter")
	Thisform.combo3.AddItem(Alltrim(woerter.textee))
Next
VerglBModus = VerglAModus &&HS modus
Thisform.combo3.ListIndex = VerglBModus
Thisform.combo3.Visible = True

For k = 0 To 11
	Thisform.combo4.AddItem(Leftc(sumonattext(1+k), 3))
Next
VerglBMonat = VerglAMonat &&0 &&HS voreinstellung gleicher monat
Thisform.combo4.ListIndex = VerglBMonat &&IIF(.ListIndex = 0,1,.Listindex) &&HS vorher 0
Thisform.combo4.Visible = True

Thisform.combo5.Visible = True

Select vergliste
For hsa = 1 To 29
	Append Blank
	Flush
Next

Select vergliste
hsaxx = "sp0"
Thisform.grdvergliste.column1.header1.Caption = Alltrim(zt0(1+zi(1+0)))
Goto 1
Replace vergliste.&hsaxx With " Eheg. im ffentl. D,"
Goto 2
Replace vergliste.&hsaxx With " Dienstverhltnis"
Goto 3
Replace vergliste.&hsaxx With " Gruppe"
Goto 4
Replace vergliste.&hsaxx With " Stufe"
Goto 5
Replace vergliste.&hsaxx With " Teilzeitfaktor"
Goto 6
Replace vergliste.&hsaxx With " Bruchteilfaktor"
Goto 7
Replace vergliste.&hsaxx With ""
Goto 8
Replace vergliste.&hsaxx With " Grundgehalt "
Goto 9
Replace vergliste.&hsaxx With " Zuschlag "
Goto 10
Replace vergliste.&hsaxx With " Allg.St.Zul "
Goto 11
Replace vergliste.&hsaxx With " Verm.wirks.Leist."
Goto 12
Replace vergliste.&hsaxx With " Leist.Zulagen "
Goto 13
Replace vergliste.&hsaxx With " Zulage 1"
Goto 14
Replace vergliste.&hsaxx With " Zulage 2"
Goto 15
Replace vergliste.&hsaxx With " Zulage 3"
Goto 16
Replace vergliste.&hsaxx With " Zeitzuschlge 1"
Goto 17
Replace vergliste.&hsaxx With " Zeitzuschlge 2"
Goto 18
Replace vergliste.&hsaxx With " Urlaubsgeld"
Goto 19
Replace vergliste.&hsaxx With " Zuwendung"
Goto 20
Replace vergliste.&hsaxx With " Einmalzahlung"
Goto 21
Replace vergliste.&hsaxx With ""
Goto 22
Replace vergliste.&hsaxx With " BRUTTOGEHALT"
Goto 23
Replace vergliste.&hsaxx With " TEILZEITGEHALT"
Goto 24
Replace vergliste.&hsaxx With " BRUCHTEILGEHALT"
Goto 25
Replace vergliste.&hsaxx With ""
Goto 26
Replace vergliste.&hsaxx With " Steuerpflichtig"
Goto 27
Replace vergliste.&hsaxx With " KV-pflichtig"
Goto 28
Replace vergliste.&hsaxx With " RV-pflichtig"
Goto 29
Replace vergliste.&hsaxx With " ATV-pflichtig"
Flush
*!*			.Col = 5
hsaxx = "sp5"
Goto 1
Replace vergliste.&hsaxx With " Lohnsteuertabelle"
Goto 2
Replace vergliste.&hsaxx With " Lohnsteuerklasse"
Goto 3
Replace vergliste.&hsaxx With " Steuerfreibetrag"
Goto 4
Replace vergliste.&hsaxx With " Sachbezge"
Goto 5
Replace vergliste.&hsaxx With " Sachbezge"
Goto 6
Replace vergliste.&hsaxx With " Altersentlastungsbetr."
Goto 7
Replace vergliste.&hsaxx With " AG-Lohnstr.J.Ausgleich"
Goto 8
Replace vergliste.&hsaxx With " Kirchensteuersatz"
Goto 9
Replace vergliste.&hsaxx With " KV-Beitragssatz"
Goto 10
Replace vergliste.&hsaxx With " Umlagesatz"
Goto 11
Replace vergliste.&hsaxx With ""
Flush

Thisform.verglsichtholen.Click

*!*	If startlauf = .T.
*!*		Thisform.vergleichen.Click &&Do attached
*!*	ENDIF
startlauf = .f.

Thisform.combo0.ListIndex = verglamodus
Thisform.combo3.ListIndex = verglamodus

Select vergliste
Go Top

ENDPROC
PROCEDURE Destroy
SELECT vergliste
USE

ENDPROC
                                   ?   %         n                 U   C     %       H  T        " %          ~  T     T  yU? T	  xr? T
  m=? T        T      T        T   
   
  T      
  T      
  T      	  T        T      
  T      
  T      
 " T           " T   
        " T           " T           " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE WIDTH GRDVERGLISTE TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2 PROZSP3	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 TEXT1 FONTSIZE]
 T    T a  (d  C   woerter  CC       T	 
  T   
  T   
      ( ! CCC       % 
 T  ! T C   T     T   
 
    " %       	 C      C      " %       	 C      C      " %       	> C      C      " %       	 C       C       " % !    !  	 C "     C "     
 T# $ 
 T% $ !   (  & l! %CC   ' ( h T     T       T   
   ( C   woerter  CC   )   
 T* 	  T )  *  T )  
    (>! CCC   +   
 T,   T +  ,  T +  
  T   
  F-  . (  [  F-  T/  sp0' T 0 1 2 3 CCC 4 	 #9 Replace vergliste.&hsaxx With " Eheg. im ffentl. D,"
	 #5 Replace vergliste.&hsaxx With " Dienstverhltnis"
	 #+ Replace vergliste.&hsaxx With " Gruppe"
	 #* Replace vergliste.&hsaxx With " Stufe"
	 #3 Replace vergliste.&hsaxx With " Teilzeitfaktor"
	 #4 Replace vergliste.&hsaxx With " Bruchteilfaktor"
	 #$ Replace vergliste.&hsaxx With ""
	 #1 Replace vergliste.&hsaxx With " Grundgehalt "
	 #	. Replace vergliste.&hsaxx With " Zuschlag "
	 #
1 Replace vergliste.&hsaxx With " Allg.St.Zul "
	 #6 Replace vergliste.&hsaxx With " Verm.wirks.Leist."
	 #3 Replace vergliste.&hsaxx With " Leist.Zulagen "
	 #
- Replace vergliste.&hsaxx With " Zulage 1"
	 #- Replace vergliste.&hsaxx With " Zulage 2"
	 #- Replace vergliste.&hsaxx With " Zulage 3"
	 #4 Replace vergliste.&hsaxx With " Zeitzuschlge 1"
	 #4 Replace vergliste.&hsaxx With " Zeitzuschlge 2"
	 #0 Replace vergliste.&hsaxx With " Urlaubsgeld"
	 #. Replace vergliste.&hsaxx With " Zuwendung"
	 #2 Replace vergliste.&hsaxx With " Einmalzahlung"
	 #$ Replace vergliste.&hsaxx With ""
	 #1 Replace vergliste.&hsaxx With " BRUTTOGEHALT"
	 #3 Replace vergliste.&hsaxx With " TEILZEITGEHALT"
	 #4 Replace vergliste.&hsaxx With " BRUCHTEILGEHALT"
	 #$ Replace vergliste.&hsaxx With ""
	 #4 Replace vergliste.&hsaxx With " Steuerpflichtig"
	 #1 Replace vergliste.&hsaxx With " KV-pflichtig"
	 #1 Replace vergliste.&hsaxx With " RV-pflichtig"
	 #2 Replace vergliste.&hsaxx With " ATV-pflichtig"
 [ T/  sp5	 #6 Replace vergliste.&hsaxx With " Lohnsteuertabelle"
	 #5 Replace vergliste.&hsaxx With " Lohnsteuerklasse"
	 #5 Replace vergliste.&hsaxx With " Steuerfreibetrag"
	 #/ Replace vergliste.&hsaxx With " Sachbezge"
	 #/ Replace vergliste.&hsaxx With " Sachbezge"
	 #; Replace vergliste.&hsaxx With " Altersentlastungsbetr."
	 #; Replace vergliste.&hsaxx With " AG-Lohnstr.J.Ausgleich"
	 #6 Replace vergliste.&hsaxx With " Kirchensteuersatz"
	 #	4 Replace vergliste.&hsaxx With " KV-Beitragssatz"
	 #
/ Replace vergliste.&hsaxx With " Umlagesatz"
	 #$ Replace vergliste.&hsaxx With ""
 [
  5 6  T - T   	  T )  	  F-  #) U7  MYDIFFERENZA THISFORM	 STARTLAUF K MYGET COMBO0 ADDITEM WOERTER TEXTEE VERGLAMODUS MODUS	 LISTINDEX VISIBLE TRUE
 MONATLADEN COMBO1 SUMONATTEXT MONAT VERGLAMONAT ZI COMBO5 CLEAR DIMEN DIMSATZANZAHLJ1 FILENEU COMBO2 XJAHR1 DIMSATZANZAHLJ2 XJAHR2 DIMSATZANZAHLJ3 XJAHR3 DIMSATZANZAHLJ4 XJAHR4 DIMSATZANZAHLJ5 XJAHR5
 VERGLAJAHR WELCHESJAHR
 VERGLBJAHR	 LISTCOUNT LIST WELCHESJAHRC COMBO3 VERGLBMODUS COMBO4 VERGLBMONAT	 VERGLISTE HSA HSAXX GRDVERGLISTE COLUMN1 HEADER1 CAPTION ZT0 VERGLSICHTHOLEN CLICK  F   Q U 	 VERGLISTE Resize,      Init     Destroy    1 A "A baa2"!!!!!!!!2   A q1r rA   QA 21 "AAA "AAA "AAA "AAA "AAA   qqA A 1A  11rA  112r qQ A A r q  Q   1 A A    a 1    A A   ! A  1 A A A   !A  a Q Q     a A  AA   21r Q 3 q A 2                                    '      !  8      )                           label      label      zeile0      FORM1      FontBold = .T.
Caption = "Vergleiche A"
Height = 17
Left = 7
Top = 32
Visible = .T.
Width = 78
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            combobox      combobox      Combo0      FORM1      ]Height = 22
Left = 91
TabIndex = 97
Top = 29
Visible = .F.
Width = 69
Name = "Combo0"
     	PROCEDURE GotFocus
counter = 1

ENDPROC
PROCEDURE Click
myindex = 0
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   |   %          8  
   $            U   
 T   U  COUNTER 
 T   
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  3   4  2  1                       !         =                                  )                           combobox      combobox      Combo1      FORM1      ^Height = 22
Left = 163
TabIndex = 79
Top = 29
Visible = .F.
Width = 64
Name = "Combo1"
     _PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
myindex = 1
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   Y#   %          a  
   G            U   
 T   U  COUNTER 
 T  
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   4  3 A A  1                                ;                  
      (  T      )                           combobox      combobox      Combo2      FORM1      ^Height = 22
Left = 229
TabIndex = 80
Top = 29
Visible = .F.
Width = 64
Name = "Combo2"
     _PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
myindex = 2
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   Y#   %          a  
   G            U   
 T   U  COUNTER 
 T  
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   4  3 A A  1                                ;                  
      (  T      )                           combobox      combobox      Combo3      FORM1      ^Height = 22
Left = 673
TabIndex = 81
Top = 29
Visible = .F.
Width = 64
Name = "Combo3"
     _PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
myindex = 3
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
IF register = 65
	RETURN
endif
this.click
ENDPROC
                                   Y#   %          a  
   G            U   
 T   U  COUNTER 
 T  
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK&  %  A  B 
    U  REGISTER THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   4  3 A A  1                                ;                  
      (  T      )                           combobox      combobox      Combo4      FORM1      ^Height = 22
Left = 740
TabIndex = 82
Top = 29
Visible = .F.
Width = 64
Name = "Combo4"
     =PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
myindex = 4
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   |   %          8  
   $            U   
 T   U  COUNTER 
 T  
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   4  3  1                                ;                  
      (  2      )                           combobox      combobox      Combo5      FORM1      ^Height = 22
Left = 807
TabIndex = 83
Top = 29
Visible = .F.
Width = 64
Name = "Combo5"
     =PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
myindex = 5
thisform.vergcombos.click

*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   |   %          8  
   $            U   
 T   U  COUNTER 
 T  
     U  MYINDEX THISFORM
 VERGCOMBOS CLICK
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   4  3  1                                ;                  
      (  2      )                           label      label      zeile2      FORM1      FontBold = .T.
Caption = "mit B"
Height = 17
Left = 633
Top = 32
Visible = .T.
Width = 33
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 3
Left = 7
Height = 22
Width = 170
Caption = "Hilfe"
Style = 0
TabIndex = 36
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
      SPROCEDURE Click
Msg = "20480"
inet = 111
Do insinternet &&Do attached
ENDPROC
                                         %   q                          U  )  T   20480
 T o   U  MSG INET INSINTERNET Click,     1 ! q 1                       H       )                            
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 4
Left = 180
Height = 22
Width = 170
Caption = "Drucken"
TabIndex = 37
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
     =PROCEDURE Click

*Do vergleichdrucken &&Do attached
*harald
PUBLIC 1,2,3,4,5
STORE "" TO 1,2,3,4,5

CREATE CURSOR vergleich (sp1_text c(35), sp1_1 c(10), sp1_2 c(10), sp1_3 c(10), sp1_strich l(1), fett l(1))
SELECT vergleich

1 = Alltrim(zt0(1+zi(1+0)))
2 =  "Gehaltsvergleich "
If thisform.SSCommand3.Caption = "Arbeitgeber-Sicht"
	2 = 2 + "(AN-Sicht)"
else
	2 = 2 + "(AG-Sicht)"
ENDIF

3 = thisform.Combo1.List(thisform.Combo1.ListIndex) + crlf + thisform.Combo2.List(thisform.Combo2.ListIndex) + crlf + STRTRAN(thisform.Combo0.List(thisform.Combo0.ListIndex)," ","")
4 = thisform.Combo4.List(thisform.Combo4.ListIndex) + crlf + thisform.Combo5.List(thisform.Combo5.ListIndex) + crlf + STRTRAN(thisform.Combo3.List(thisform.Combo3.ListIndex)," ","")
5 = "Differenz"

For i = 1 To 6
	SELECT vergleich
	APPEND BLANK
	flush
	SELECT vergliste
	GOTO i
	SELECT vergleich
	replace vergleich.sp1_text WITH vergliste.sp0
	replace vergleich.sp1_1 WITH vergliste.sp1
	replace vergleich.sp1_2 WITH vergliste.sp2
	flush
Next
For i = 1 To 10
	SELECT vergleich
	APPEND BLANK
	flush		
	SELECT vergliste
	GOTO i			

	SELECT vergleich
	replace vergleich.sp1_text WITH vergliste.sp5
	replace vergleich.sp1_1 WITH vergliste.sp6
	replace vergleich.sp1_2 WITH vergliste.sp7
	flush
Next
SELECT vergleich
APPEND BLANK
flush	
replace vergleich.sp1_strich WITH .t.
flush
SELECT vergleich
APPEND BLANK
flush	
replace vergleich.sp1_text WITH "" &&leerzeile
flush

For i = 8 To 20
	If sicht(1+1,1+ i) <> 0 .Or. sicht(1+2,1+ i) <> 0
		SELECT vergleich
		APPEND BLANK
		flush	
		SELECT vergliste
		GOTO i					
		SELECT vergleich
		replace vergleich.sp1_text WITH vergliste.sp0			
		replace vergleich.sp1_1 WITH vergliste.sp1
		replace vergleich.sp1_2 WITH vergliste.sp2
		replace vergleich.sp1_3 WITH vergliste.sp3
	ENDIF
	flush
	If i = 20
		SELECT vergleich
		APPEND BLANK
		flush	
		replace vergleich.sp1_strich WITH .t.
		flush				
	Endif
Next

&&Brutto
SELECT vergleich
APPEND BLANK
flush	
SELECT vergliste		
GOTO 24
SELECT vergleich
replace vergleich.fett WITH .t.
replace vergleich.sp1_text WITH "BRUTTOGEHALT"
replace vergleich.sp1_1 WITH vergliste.sp1
replace vergleich.sp1_2 WITH vergliste.sp2
replace vergleich.sp1_3 WITH vergliste.sp3
FLUSH
SELECT vergleich
APPEND BLANK
flush			&&leerzele

For i = 26 To 29
	SELECT vergleich
	APPEND BLANK
	flush	
	SELECT vergliste
	goto i
	SELECT vergleich
	replace vergleich.sp1_text WITH vergliste.sp0
	replace vergleich.sp1_1 WITH vergliste.sp1
	replace vergleich.sp1_2 WITH vergliste.sp2
	replace vergleich.sp1_3 WITH vergliste.sp3
	flush
Next
SELECT vergleich
APPEND BLANK
flush	
replace vergleich.sp1_strich WITH .t.
flush		

SELECT vergleich
APPEND BLANK &&leerzeile
flush	

For i = 12 To 29
	If sicht(1+6,1+ i) <> 0 .Or. sicht(1+7,1+ i) <> 0
		SELECT vergleich
		APPEND BLANK
		flush	
		SELECT vergliste
		GOTO i

		SELECT vergleich
		If i = 29
			replace vergleich.fett WITH .t.
		Endif

		replace vergleich.sp1_text WITH vergliste.sp5
		replace vergleich.sp1_1 WITH vergliste.sp6
		replace vergleich.sp1_2 WITH vergliste.sp7
		replace vergleich.sp1_3 WITH vergliste.sp8
		flush
	Endif

	If mytablett.SSCommand3.Caption = "Arbeitgeber-Sicht"
		If i = 26 .Or. i = 28 .Or. i = 29
			SELECT vergleich
			APPEND BLANK
			flush	
			replace vergleich.sp1_strich WITH .t.
			flush
			APPEND BLANK &&leerzeile
			flush					
		ENDIF 
	Else
		If i = 28 .Or. i = 29
			SELECT vergleich
			APPEND BLANK
			flush	
			replace vergleich.sp1_strich WITH .t.
			flush
			APPEND BLANK &&leerzeile
			flush					
			
		Endif
	Endif
Next

SELECT vergleich
GO top

REPORT FORM vergleich WHILE .not. EOF() NOCONSOLE TO PRINTER prompt

SELECT vergleich
USE
SELECT vergliste
RELEASE 1,2,3,4,5
ENDPROC
     
    
  
                        M   %         >
     
	            U   7       J  (      l h	 vergleich  C#  C
  C
	  C

  L  L F  T  CCC
   T  Gehaltsvergleich ( %    Arbeitgeber-Sicht# T  
 (AN-Sicht) F T  
 (AG-Sicht) V T C       C       CC          V T C       C       CC           T 	 Differenz  ( F   [ F 	 #  F  >     >     >     [   (
 F   [ F 	 #  F  >     >      >   !  [  F   [ > 
 a [ F   [ >     [  (K2 %C "   C "   F   [ F 	 #  F  >     >     >     > 	  #   [ % G F   [ > 
 a [   F   [ F 	 # F  >  a >   BRUTTOGEHALT >     >     > 	  #  [ F   [  ({ F   [ F 	 #  F  >     >     >     > 	  #  [  F   [ > 
 a [ F   [  (m2 %C "   C "   F   [ F 	 #  F  % @ >  a  >     >      >   !  > 	  $  [ ( %%    Arbeitgeber-Sicht' %      F   [ > 
 a [  [  i %   e F   [ > 
 a [  [    F  #) ?	 vergleich(!"9+C+
 F  Q F  <       U&  1 2 3 4 5	 VERGLEICH SP1_TEXT SP1_1 SP1_2 SP1_3
 SP1_STRICH FETT ZT0 ZI THISFORM
 SSCOMMAND3 CAPTION COMBO1 LIST	 LISTINDEX CRLF COMBO2 COMBO0 COMBO4 COMBO5 COMBO3 I	 VERGLISTE SP0 SP1 SP2 SP5 SP6 SP7 SICHT SP3 SP8	 MYTABLETT Click,     1 tq  A baarq Q A q  q 111A A qq Q A q  r 111A A q Q A  A q Q A A r!q Q A q  q 1111A A q Q A  A A A s Q A q  q  111A q Q A rq Q A q  q 1111A A q Q A  A r Q A r!q Q A q  r  A 2111A A qq Q A  A Q A A  q Q A  A Q A B A A r Q r A q q1                       2      )   
                        
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 4
Left = 353
Height = 22
Width = 170
Caption = "Arbeitgeber-Sicht"
Style = 0
TabIndex = 38
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
     PROCEDURE Click
If thisform.SSCommand3.Caption = "Arbeitgeber-Sicht"
	thisform.SSCommand3.Caption = "Arbeitnehmer-Sicht"
	m = 1
	VerglSicht = 1
	vergleich = 1
	thisform.vergleichen.click
	vergleich = 2
	m = 0
	thisform.vergleichen.click
Else
	thisform.SSCommand3.Caption = "Arbeitgeber-Sicht"
	VerglSicht = 0
	vergleich = 1
	m = 1
	thisform.vergleichen.click
	vergleich = 2
	m = 0
	thisform.vergleichen.click
Endif
thisform.VerglSichtholen.click &&Do attached
ENDPROC
     n    U  U                           %                          U  C( %     Arbeitgeber-Sicht % T     Arbeitnehmer-Sicht
 T 
 T 
 T 
     
 T 
 T  
      /$ T     Arbeitgeber-Sicht
 T  
 T 
 T 
     
 T 
 T  
      
      U	  THISFORM
 SSCOMMAND3 CAPTION M
 VERGLSICHT	 VERGLEICH VERGLEICHEN CLICK VERGLSICHTHOLEN Click,     1 Q        A       A  1                             )   U                        
commandbutton      
commandbutton      
sscommand5      FORM1      Top = 4
Left = 526
Height = 22
Width = 170
Caption = "Exportieren"
Style = 0
TabIndex = 40
Visible = .T.
SpecialEffect = 0
Name = "sscommand5"
      ,PROCEDURE Click
Do Form Export

ENDPROC
                                      L   %   I       ^      X             U     Export U  EXPORT Click,     1  2                       !       )                            
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 4
Left = 700
Height = 22
Width = 170
Caption = "Schlieen"
TabIndex = 39
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
      pPROCEDURE Click
welchesjahrold = welchesjahr
modusalt = modus
monatalt = Monat
thisform.Release

ENDPROC
     3                                 %                             U  4 
 T   
 T  
 T  
    U  WELCHESJAHROLD WELCHESJAHR MODUSALT MODUS MONATALT MONAT THISFORM RELEASE Click,     1     2                       e       )                           
commandbutton      
commandbutton      Verglsichtholen      FORM1      Top = 31
Left = 547
Height = 22
Width = 73
Caption = "Verglsichtholen"
Enabled = .F.
Visible = .F.
Name = "Verglsichtholen"
     	PROCEDURE Click
SELECT vergliste

hsxx = "sp5"
If VerglSicht = 0
*!*	.Row = 0
	thisform.grdvergliste.column6.header1.caption = " Arbeitnehmer-Sicht"
	GOTO 12
	replace vergliste.&hsxx with " Lohnsteuer"
	GOTO 13
	replace vergliste.&hsxx with " Solidarittszuschlag"
	GOTO 14
	replace vergliste.&hsxx with " Kirchensteuer"
	GOTO 15
	replace vergliste.&hsxx with ""
	GOTO 16
	replace vergliste.&hsxx with " KV-Beitrag"
	GOTO 17
	replace vergliste.&hsxx with " PV-Beitrag"
	GOTO 18
	replace vergliste.&hsxx with " RV-Beitrag"
	GOTO 19
	replace vergliste.&hsxx with " AV-Beitrag"
	GOTO 20
	replace vergliste.&hsxx with " ATV-Beitrag"
	GOTO 21
	 IF zi(1+52) = 12 .and. zi(1+26) = 2 &&Firmenzahler
	 	replace vergliste.&hsxx with  " Zus.bei.(i.Firmz.enth.)"
	 else
		replace vergliste.&hsxx with  " Zusatzbeitrag"
	 endif
	GOTO 22
	replace vergliste.&hsxx with " Kindergeld / ATZ-Aufstockung"
	GOTO 23
	replace vergliste.&hsxx with " Einbehalt 1"
	GOTO 24
	replace vergliste.&hsxx with " Einbehalt 2"
	GOTO 25
	replace vergliste.&hsxx with " Einbehalt 2"
	GOTO 26
	replace vergliste.&hsxx with ""
	GOTO 27
	replace vergliste.&hsxx with " ABZGE INSGESAMT"
	GOTO 28
	replace vergliste.&hsxx with ""
	GOTO 29
	replace vergliste.&hsxx with " AUSZAHLUNG"
Else
*!*	.Row = 0
	thisform.grdvergliste.column6.header1.caption = "Arbeitgeber-Sicht"
	GOTO 12
	replace vergliste.&hsxx with " Bruttogehalt"
	GOTO 13
	replace vergliste.&hsxx with ""
	GOTO 14
	replace vergliste.&hsxx with " KV-AG-Anteil"
	GOTO 15
	replace vergliste.&hsxx with " PV-AG-Anteil"
	GOTO 16
	replace vergliste.&hsxx with " RV-AG-Anteil"
	GOTO 17
	replace vergliste.&hsxx with " AV-AG-Anteil"
	GOTO 18
	replace vergliste.&hsxx with " ATV-Beitrag"
	GOTO 19
	replace vergliste.&hsxx with " ATV/Pens.-Umlage"
	GOTO 20
	replace vergliste.&hsxx with " Steuern f. ATV-Umlage"
	GOTO 21
	replace vergliste.&hsxx with " KiStr. fr ATV-Umlage"
	GOTO 22
	replace vergliste.&hsxx with " ATV-Sanierungsgeld"
	GOTO 23
	replace vergliste.&hsxx with " bernommene Steuern"
	GOTO 24
	replace vergliste.&hsxx with " ATZ-Aufstockungsbetrag"
	GOTO 25
	replace vergliste.&hsxx with " Sachbezge"
	GOTO 26
	replace vergliste.&hsxx with " Kalkulatorische Kosten"
	GOTO 27
	replace vergliste.&hsxx with " Sonst. Geldleistungen"
	GOTO 28
	replace vergliste.&hsxx with " Umlagen (U1, U2, U3)"
	GOTO 29
	replace vergliste.&hsxx with " AG-GESAMTAUFWAND"
ENDIF
flush
ENDPROC
     
    
  
                           %   	      d
  V   	            U  %	 F   T  sp5 %  , T       Arbeitnehmer-Sicht	 #. replace vergliste.&hsxx with " Lohnsteuer"
	 #
8 replace vergliste.&hsxx with " Solidarittszuschlag"
	 #1 replace vergliste.&hsxx with " Kirchensteuer"
	 ## replace vergliste.&hsxx with ""
	 #. replace vergliste.&hsxx with " KV-Beitrag"
	 #. replace vergliste.&hsxx with " PV-Beitrag"
	 #. replace vergliste.&hsxx with " RV-Beitrag"
	 #. replace vergliste.&hsxx with " AV-Beitrag"
	 #/ replace vergliste.&hsxx with " ATV-Beitrag"
	 #$ %C5  C 	< replace vergliste.&hsxx with  " Zus.bei.(i.Firmz.enth.)"
 2 replace vergliste.&hsxx with  " Zusatzbeitrag"
 	 #@ replace vergliste.&hsxx with " Kindergeld / ATZ-Aufstockung"
	 #/ replace vergliste.&hsxx with " Einbehalt 1"
	 #/ replace vergliste.&hsxx with " Einbehalt 2"
	 #/ replace vergliste.&hsxx with " Einbehalt 2"
	 ## replace vergliste.&hsxx with ""
	 #4 replace vergliste.&hsxx with " ABZGE INSGESAMT"
	 ## replace vergliste.&hsxx with ""
	 #. replace vergliste.&hsxx with " AUSZAHLUNG"
 	* T      Arbeitgeber-Sicht	 #0 replace vergliste.&hsxx with " Bruttogehalt"
	 #
# replace vergliste.&hsxx with ""
	 #0 replace vergliste.&hsxx with " KV-AG-Anteil"
	 #0 replace vergliste.&hsxx with " PV-AG-Anteil"
	 #0 replace vergliste.&hsxx with " RV-AG-Anteil"
	 #0 replace vergliste.&hsxx with " AV-AG-Anteil"
	 #/ replace vergliste.&hsxx with " ATV-Beitrag"
	 #4 replace vergliste.&hsxx with " ATV/Pens.-Umlage"
	 #9 replace vergliste.&hsxx with " Steuern f. ATV-Umlage"
	 #9 replace vergliste.&hsxx with " KiStr. fr ATV-Umlage"
	 #6 replace vergliste.&hsxx with " ATV-Sanierungsgeld"
	 #7 replace vergliste.&hsxx with " bernommene Steuern"
	 #: replace vergliste.&hsxx with " ATZ-Aufstockungsbetrag"
	 #. replace vergliste.&hsxx with " Sachbezge"
	 #: replace vergliste.&hsxx with " Kalkulatorische Kosten"
	 #9 replace vergliste.&hsxx with " Sonst. Geldleistungen"
	 #8 replace vergliste.&hsxx with " Umlagen (U1, U2, U3)"
	 #4 replace vergliste.&hsxx with " AG-GESAMTAUFWAND"
  [ U	 	 VERGLISTE HSXX
 VERGLSICHT THISFORM GRDVERGLISTE COLUMN6 HEADER1 CAPTION ZI Click,     1 q     1      A !A      1 A 1    1      A   a q      AA A 1                       	      )   
                        grid      grid      grdVergliste      FORM1     eColumnCount = 9
DeleteMark = .F.
Height = 560
Left = 7
ReadOnly = .T.
RecordSource = "vergliste"
RecordSourceType = 1
ScrollBars = 2
Top = 53
Width = 873
Name = "grdVergliste"
Column1.ControlSource = "vergliste.sp0"
Column1.Width = 190
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "vergliste.sp1"
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.BackColor = 255,255,0
Column2.Name = "Column2"
Column3.ControlSource = "vergliste.sp2"
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.BackColor = 255,255,128
Column3.Name = "Column3"
Column4.ControlSource = "vergliste.sp3"
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.BackColor = 255,252,185
Column4.Name = "Column4"
Column5.ControlSource = "vergliste.sp4"
Column5.Width = 4
Column5.ReadOnly = .T.
Column5.Name = "Column5"
Column6.ControlSource = "vergliste.sp5"
Column6.Width = 190
Column6.ReadOnly = .T.
Column6.Name = "Column6"
Column7.ControlSource = "vergliste.sp6"
Column7.Width = 75
Column7.ReadOnly = .T.
Column7.BackColor = 255,255,0
Column7.Name = "Column7"
Column8.ControlSource = "vergliste.sp7"
Column8.Width = 75
Column8.ReadOnly = .T.
Column8.BackColor = 255,255,128
Column8.Name = "Column8"
Column9.ControlSource = "vergliste.sp8"
Column9.Width = 75
Column9.ReadOnly = .T.
Column9.BackColor = 255,252,185
Column9.Name = "Column9"
      header      header      Header1      FORM1.grdVergliste.Column1      $Caption = "Name"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column2      0Alignment = 2
Caption = "A"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column2      gBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,0
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column3      0Alignment = 2
Caption = "B"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,128
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column4      8Alignment = 2
Caption = "A minus B"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,252,185
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column5       Caption = ""
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column6      4Alignment = 2
Caption = "Sicht"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column7      0Alignment = 2
Caption = "A"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column7      gBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,0
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column8      0Alignment = 2
Caption = "B"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column8      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,128
Name = "Text1"
      header      header      Header1      FORM1.grdVergliste.Column9      8Alignment = 2
Caption = "A minus B"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdVergliste.Column9      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,252,185
Name = "Text1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 603
Left = 862
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      
vergcombos      FORM1      vTop = 30
Left = 297
Height = 16
Width = 58
Caption = "combos"
Enabled = .F.
Visible = .F.
Name = "vergcombos"
     PROCEDURE Click

If thisform.SSCommand1.Visible = True
	Do Case && myindex
		Case myindex = 0
			VerglAModus = thisform.combo0.Listindex &&- 1
			vergleich = 1
		Case myindex = 1
			VerglAMonat = thisform.combo1.ListIndex 
			vergleich = 1
		Case myindex = 2
			VerglAJahr = INT(VAL(Alltrim(thisform.combo2.List(thisform.combo2.ListIndex))))
			vergleich = 1
		Case myindex = 3
			VerglBModus = thisform.combo3.ListIndex &&- 1
			vergleich = 2
		Case myindex = 4
			VerglBMonat = thisform.combo4.ListIndex 
			vergleich = 2
		Case myindex = 5
			VerglBJahr = INT(VAL(Alltrim(thisform.combo5.List(thisform.combo5.ListIndex))))
			vergleich = 2
	Endcase
	IF startlauf = .f.
		thisform.vergleichen.click
	endif
Endif
ENDPROC
     Q    8  8                        I   %                          U   %     
 H$ j   U  T     
 T     T	   
  
 T    # T CCCC       
 g8
 T     T     
 T   ) T     
 T   j# T CCCC       
 g8
 T   % -
        U  THISFORM
 SSCOMMAND1 VISIBLE TRUE MYINDEX VERGLAMODUS COMBO0	 LISTINDEX	 VERGLEICH VERGLAMONAT COMBO1
 VERGLAJAHR COMBO2 LIST VERGLBMODUS COMBO3 VERGLBMONAT COMBO4
 VERGLBJAHR COMBO5	 STARTLAUF VERGLEICHEN CLICK Click,     1 r 1 1 1 1 1 1 A   A A 1                             )   8                        
commandbutton      
commandbutton      vergleichen      FORM1      |Top = 30
Left = 360
Height = 16
Width = 61
Caption = "vergleichen"
Enabled = .F.
Visible = .F.
Name = "vergleichen"
     ;SPROCEDURE Click

	&&ffentlicher Dienst
	SELECT vergliste
	xausnahme = SELECT(0)
	If vergleich = 1
		welchesjahr = VerglAJahr
		welchesjahrc = Str(welchesjahr,4,0)
		modus = VerglAModus - 1
		Monat = VerglAMonat && HS + 1
		Do dateiopen WITH xausnahme &&Do attached
	Else
		welchesjahr = VerglBJahr
		welchesjahrc = Str(welchesjahr,4,0)
		modus = VerglBModus - 1
		Monat = VerglBMonat &&HS + 1
		Do dateiopen WITH xausnahme &&Do attached
	ENDIF
	
	myget(Monat, fileneu,"wvw")

	If wvw.tnam(1+0) > 0
		sicht(1+vergleich,1+ 5) = wvw.tnam(1+1) / wvw.tnam(1+0) &&Teilzeitfaktor
	Else
		sicht(1+vergleich,1+ 5) = 0
	ENDIF
	
	If wvw.tnam(1+2) > 0
		sicht(1+vergleich,1+ 6) = wvw.tnam(1+3) / wvw.tnam(1+2) &&Bruchteilfaktor
	Else
		sicht(1+vergleich,1+ 6) = 0
	ENDIF
	
	sicht(1+vergleich,1+ 7) = 0 &&leer
	sicht(1+vergleich,1+ 8) = wvw.effz(1+7) &&Grundgehalt
	sicht(1+vergleich,1+ 9) = wvw.effz(1+8) &&Ortszuschlag
	sicht(1+vergleich,1+ 10) = wvw.effz(1+9) &&Stellenzulage
	sicht(1+vergleich,1+ 11) = wvw.effz(1+10) &&VWL
	sicht(1+vergleich,1+ 12) = wvw.effz(1+11) &&Leistungszul
	sicht(1+vergleich,1+ 13) = wvw.effz(1+12) &&Zulage1
	sicht(1+vergleich,1+ 14) = wvw.effz(1+13) &&Zulage 2
	sicht(1+vergleich,1+ 15) = wvw.effz(1+14) &&Zulage 3
	sicht(1+vergleich,1+ 16) = wvw.effz(1+15) &&Zeitzuschl.1
	sicht(1+vergleich,1+ 17) = wvw.effz(1+16) &&Zeitzuschl.2
	sicht(1+vergleich,1+ 18) = wvw.effz(1+17) &&Urlaubsgeld
	sicht(1+vergleich,1+ 19) = wvw.effz(1+18) &&Zuwendung
	sicht(1+vergleich,1+ 20) = wvw.effz(1+19) &&Einmalzahlung
	sicht(1+vergleich,1+ 21) = 0 &&leer
	sicht(1+vergleich,1+ 22) = wvw.tnam(1+20) &&Bruttogehalt
	sicht(1+vergleich,1+ 23) = wvw.tnam(1+21) &&Teilzeitgehalt
	sicht(1+vergleich,1+ 24) = wvw.tnam(1+22) &&Bruchteilgehalt
	sicht(1+vergleich,1+ 25) = 0 &&leer
	sicht(1+vergleich,1+ 26) = wvw.tnam(1+27) &&Steuerpflichtig
	sicht(1+vergleich,1+ 27) = wvw.tnam(1+65) &&KV-pflichtig
	sicht(1+vergleich,1+ 28) = wvw.tnam(1+28) &&RV-pflichig
	sicht(1+vergleich,1+ 29) = wvw.tnam(1+30) &&ZVK-pflichtig

	sicht(1+vergleich + 5,1+ 1) = 0 &&Lohnsteuertabelle
	sicht(1+vergleich + 5,1+ 2) = 0 &&Lohnsteuerklasse
	sicht(1+vergleich + 5,1+ 3) = wvw.tnam(1+23) &&Steuerfreibetrag
	sicht(1+vergleich + 5,1+ 4) = wvw.tnam(1+24) &&Abzugsfrei
	sicht(1+vergleich + 5,1+ 5) = wvw.tnam(1+47) &&Sachbezge
	sicht(1+vergleich + 5,1+ 6) = 0 &&64. Jahr vollendet
	sicht(1+vergleich + 5,1+ 7) = 0 &&Mit AG-Ausgleich
	sicht(1+vergleich + 5,1+ 8) = 0 &&Kirchensteuersatz
	sicht(1+vergleich + 5,1+ 9) = 0 &&KV-Beitragssatz
	sicht(1+vergleich + 5,1+ 10) = wvw.tnam(1+25) &&Umlagesatz
	sicht(1+vergleich + 5,1+ 11) = 0 &&leer

	If VerglSicht = 0
		sicht(1+vergleich + 5,1+ 12) = wvw.tnam(1+33) &&Lohnsteuer
		sicht(1+vergleich + 5,1+ 13) = wvw.tnam(1+35) &&Solidarittszuschl
		sicht(1+vergleich + 5,1+ 14) = wvw.tnam(1+36) &&Kirchensteur
		sicht(1+vergleich + 5,1+ 15) = 0 &&leer
		sicht(1+vergleich + 5,1+ 16) = wvw.tnam(1+37) &&KV-Beitrag
		sicht(1+vergleich + 5,1+ 17) = wvw.tnam(1+38) &&PV-Beitrag
		sicht(1+vergleich + 5,1+ 18) = wvw.tnam(1+39) &&RV-Beitrag
		sicht(1+vergleich + 5,1+ 19) = wvw.tnam(1+40) &&AV-Beitrag
		sicht(1+vergleich + 5,1+ 20) = wvw.tnam(1+41) &&ATV-Beitrag
		IF zi(1+52) = 12 .and. zi(1+26) = 2 &&firmenzahler
			sicht(1+vergleich + 5,1+ 21) = 0.00
		ELSE
			sicht(1+vergleich + 5,1+ 21) = wvw.tnam(1+26) &&zusatzbeitrag
		endif
		 &&Zusatz-Beitrag
		sicht(1+vergleich + 5,1+ 22) = wvw.tnam(1+34) &&Kindergeld
		sicht(1+vergleich + 5,1+ 23) = wvw.tnam(1+42) &&Einbehalt1
		sicht(1+vergleich + 5,1+ 24) = wvw.tnam(1+43) &&Einbehalt2
		sicht(1+vergleich + 5,1+ 25) = wvw.tnam(1+44) &&Einbehalt3
		sicht(1+vergleich + 5,1+ 26) = 0 &&leer
		sicht(1+vergleich + 5,1+ 27) = 0
		sicht(1+vergleich + 5,1+ 28) = 0
		For i = 12 To 25
			sicht(1+vergleich + 5,1+ 27) = sicht(1+vergleich + 5,1+ 27) + sicht(1+vergleich + 5,1+ i)
		NEXT
		IF zi(1+52) = 12 .and. zi(1+26) = 2 &&firmenzahler
			sicht(1+vergleich + 5,1+ 29) = wvw.tnam(1+45) + ABS(wvw.tnam(1+26))&&Auszahlung
		ELSE
			sicht(1+vergleich + 5,1+ 29) = wvw.tnam(1+45) &&zusatzbeitrag
		endif		

		
	Else
		sicht(1+vergleich + 5,1+ 12) = wvw.tnam(1+22) &&Bruttogehalt
		sicht(1+vergleich + 5,1+ 13) = 0 &&leer
		sicht(1+vergleich + 5,1+ 14) = wvw.effz(1+0) &&KV
		sicht(1+vergleich + 5,1+ 15) = wvw.effz(1+1) &&PV
		sicht(1+vergleich + 5,1+ 16) = wvw.effz(1+2) &&RV
		sicht(1+vergleich + 5,1+ 17) = wvw.effz(1+3) &&AV
		sicht(1+vergleich + 5,1+ 18) = wvw.tnam(1+5) &&Beitrag
		sicht(1+vergleich + 5,1+ 19) = wvw.tnam(1+31) &&Umlage
		sicht(1+vergleich + 5,1+ 20) = wvw.tnam(1+32) + wvw.effz(1+23) &&Steuern
		sicht(1+vergleich + 5,1+ 21) = wvw.tnam(1+6) &&Kistr.
		sicht(1+vergleich + 5,1+ 22) = wvw.effz(1+25) &&Saniierung
		sicht(1+vergleich + 5,1+ 23) = wvw.effz(1+4) + wvw.effz(1+5) + wvw.effz(1+6) &&Steuern
	
		If wvw.znam(34) > 7
			sicht(1+vergleich + 5,1+ 24) = wvw.tnam(1+34)
		Endif
		&&ATZ

		sicht(1+vergleich + 5,1+ 25) = 0
		sicht(1+vergleich + 5,1+ 26) = 0
		
		If Right(wvw.schlss(40), 1) = "1"
			If wvw.znam(24) < 10
				sicht(1+vergleich + 5,1+ 25) = wvw.tnam(1+24)
			Endif

			If wvw.znam(24) > 9 .And. wvw.znam(24) < 13
				sicht(1+vergleich + 5,1+ 26) = wvw.tnam(1+24)
			Endif
			&&Sachbezge
		Endif

		If Right(wvw.schlss(41), 1) = "1"
			If wvw.znam(47) < 10
				sicht(1+vergleich + 5,1+ 25) = sicht(1+vergleich + 5, 25) + wvw.tnam(1+47)
			Endif

			If wvw.znam(47) > 9 .And. wvw.znam(47) < 13
				sicht(1+vergleich + 5,1+ 26) = sicht(1+vergleich + 5, 26) + wvw.tnam(1+47)
			Endif
			&&Sachbezge
		Endif

		sicht(1+vergleich + 5,1+ 27) = 0
		For i = 42 To 44
			If Right(wvw.schlss(i),1+ 1) = "1"
				sicht(1+vergleich + 5,1+ 27) = sicht(1+vergleich + 5,1+ 27) + wvw.tnam(1+i)
			Endif
			&&Auszahlungen
		Next
		sicht(1+1,1+ 62) = wvw.effz(1+34) * insolvenzgeld / 100000 && Umlagen U3
		hs_rest = sicht(1+1,1+ 62) * 1000 % 1000
		If hs_rest > 499
			sicht(1+1,1+ 62) = Fix(sicht(1+1,1+ 62)) / 100 + 0.01
		Else
			sicht(1+1,1+ 62) = Fix(sicht(1+1,1+ 62)) / 100
		Endif
		sicht(1+vergleich + 5,1+ 28) = wvw.effz(1+29) + wvw.effz(1+30) + sicht(1+1,1+ 62) * 100
		sicht(1+vergleich + 5,1+ 29) = 0
		For i = 12 To 28
			sicht(1+vergleich + 5,1+ 29) = sicht(1+vergleich + 5,1+ 29) + sicht(1+vergleich + 5,1+ i)
		Next
	Endif

	&&Differenz bilden
	For i = 5 To 29
		sicht(1+3,1+ i) = sicht(1+1,1+ i) - sicht(1+2,1+ i)
	Next
	For i = 12 To 29
		sicht(1+8,1+ i) = sicht(1+6,1+ i) - sicht(1+7,1+ i)
	NEXT
	
	SELECT vergliste
	
*!*		With mytablett.MSFlexGrid1
*!*			.Visible = False
		&&Tabelle anzeigen
*!*			.Col = vergleich
*!*			.Row = 1 &&Ehegatte
		hsxaa = "sp"+ALLTRIM(STR(vergleich,3,0))
		GOTO 1
		Do Case && wvw.znam(3)
			Case wvw.znam(3) = 0
				replace vergliste.&hsxaa with "Nein"
			Case wvw.znam(3) = 1
				replace vergliste.&hsxaa with  "Ja, voll"
			Case wvw.znam(3) = 2
				replace vergliste.&hsxaa with  "mind. 50 %"
			Case wvw.znam(3) = 3
				replace vergliste.&hsxaa with  "unter 50 %"
		ENDCASE
		FLUSH

		goto 2
		Do Case && wvw.znam(4)
			Case wvw.znam(4) = 0
				replace vergliste.&hsxaa with  "Bes.O. A"
			Case wvw.znam(4) = 1
				replace vergliste.&hsxaa with  "Bes.O. B"
			Case wvw.znam(4) = 2
				replace vergliste.&hsxaa with  "Bes.O. C"
			Case wvw.znam(4) = 3
				replace vergliste.&hsxaa with  "Bes.O. W"
			Case wvw.znam(4) = 4
				replace vergliste.&hsxaa with  "Bes.O. R"
			Case wvw.znam(4) = 5
				replace vergliste.&hsxaa with  "Anwrter"
			Case wvw.znam(4) = 6
				replace vergliste.&hsxaa with  "AOK Dienstverhltnis"
			Case wvw.znam(4) = 7
				replace vergliste.&hsxaa with  "nicht belegt"
			Case wvw.znam(4) = 8
				replace vergliste.&hsxaa with  "TV-L/H Pflege"
			Case wvw.znam(4) = 9
				replace vergliste.&hsxaa with  "TV-L/H SuE"
			Case wvw.znam(4) = 10
				replace vergliste.&hsxaa with  "TVD-Bund"
			Case wvw.znam(4) = 11
				replace vergliste.&hsxaa with  "TV-L/H"
			Case wvw.znam(4) = 12
				replace vergliste.&hsxaa with  "TVD-VKA"
			Case wvw.znam(4) = 13
				replace vergliste.&hsxaa with  "TVD-K"
			Case wvw.znam(4) = 14
				replace vergliste.&hsxaa with  "TVD-E"
			Case wvw.znam(4) = 15
				replace vergliste.&hsxaa with  "TVD-F"
			Case wvw.znam(4) = 16
				replace vergliste.&hsxaa with  "TVD-S"
			Case wvw.znam(4) = 17
				replace vergliste.&hsxaa with  "TVD-AOK"
			Case wvw.znam(4) = 18
				replace vergliste.&hsxaa with  "Kf-TV-Bund"
			Case wvw.znam(4) = 19
				replace vergliste.&hsxaa with  "PKW-F-Land"
			Case wvw.znam(4) = 20
				replace vergliste.&hsxaa with  "TVD-Azubi"
			Case wvw.znam(4) = 21
				replace vergliste.&hsxaa with  "TVD-Prakt."
			Case wvw.znam(4) = 22
				replace vergliste.&hsxaa with  "TV-Versorg."
			Case wvw.znam(4) = 23
				replace vergliste.&hsxaa with  "TV-Verk."
			Case wvw.znam(4) = 24
				replace vergliste.&hsxaa with  "Bes. Tab."
			Case wvw.znam(4) = 25
				replace vergliste.&hsxaa with  "n.Vereinb."
			Case wvw.znam(4) = 26
				replace vergliste.&hsxaa with  "Geringv."
			Case wvw.znam(4) = 27
				replace vergliste.&hsxaa with  "ohne Gehalt"
			Case wvw.znam(4) = 28
				replace vergliste.&hsxaa with  "BAT Bund"
			Case wvw.znam(4) = 29
				replace vergliste.&hsxaa with  "BAT Land"
			Case wvw.znam(4) = 30
				replace vergliste.&hsxaa with  "BAT VKA"
			Case wvw.znam(4) = 31
				replace vergliste.&hsxaa with  "BAT KR"
			Case wvw.znam(4) = 32
				replace vergliste.&hsxaa with  "BAT-AOK"
			Case wvw.znam(4) = 33
				replace vergliste.&hsxaa with  "Arbeiter"
			Case wvw.znam(4) = 34
				replace vergliste.&hsxaa with  "Fahrer B."
			Case wvw.znam(4) = 35
				replace vergliste.&hsxaa with  "Fahrer L"
			Case wvw.znam(4) = 36
				replace vergliste.&hsxaa with  "Azubi."
			Case wvw.znam(4) = 37
				replace vergliste.&hsxaa with  "Prakt."
		Endcase
		FLUSH
		
		goto 3
		Do BesGrholen &&Do attached
		replace vergliste.&hsxaa with  Msg
		flush
		&&sicht(1+Vergleich,1+ 3) = 0 &&Bes.Gruppe

		goto 4
		Do alterstufeholen &&Do attached
		IF vartype(msg) = "N"
			msg = ALLTRIM(STR(msg,10,0))
		endif
		replace vergliste.&hsxaa with  Msg
		flush
		sicht(1+vergleich,1+ 4) = 0 &&Altersstufe

		hsxaa = "sp"+ALLTRIM(STR(vergleich + 5,3,0))
		goto 1 &&Lohnsteuertabelle
		If wvw.znam(29) = 0
			replace vergliste.&hsxaa with  "Allgem."
		Else
			replace vergliste.&hsxaa with  "Besond."
		Endif
		FLUSH
		
		goto 2 &&Lohnsteuerklasse
		Do Case && wvw.znam(33)
			Case (wvw.znam(33) >= 0 .And. wvw.znam(33) <= 8)
				replace vergliste.&hsxaa with  "I / " + ALLTRIM(STR(wvw.znam(33) * 0.5,10,0))
			Case (wvw.znam(33) >= 9 .And. wvw.znam(33) <= 20)
				replace vergliste.&hsxaa with  "II / " + ALLTRIM(STR(wvw.znam(33) * 0.5 - 4,10,0))
			Case (wvw.znam(33) >= 21 .And. wvw.znam(33) <= 33)
				replace vergliste.&hsxaa with  "III / " + ALLTRIM(STR(wvw.znam(33) * 0.5 - 10.5,10,0))
			Case (wvw.znam(33) >= 34 .And. wvw.znam(33) <= 46)
				replace vergliste.&hsxaa with  "IV / " + ALLTRIM(STR(15 + wvw.znam(33) * 0.5 - 17,10,0))
			Case wvw.znam(33) = 47
				replace vergliste.&hsxaa with  "V"
			Case wvw.znam(33) = 48
				replace vergliste.&hsxaa with  "VI"
			Case wvw.znam(33) = 49
				replace vergliste.&hsxaa with  "20 % p."
			Case wvw.znam(33) = 50
				replace vergliste.&hsxaa with  "25 % p."
			Case wvw.znam(33) = 51
				replace vergliste.&hsxaa with  "Eingabe"
			Case wvw.znam(33) = 52
				replace vergliste.&hsxaa with  "NV-Besch."
		Endcase
		FLUSH
		
		goto 6 &&64 Lj.
		&&If wvw.znam(31) = 0 Then
		replace vergliste.&hsxaa with  "AEB " + ALLTRIM(STR(wvw.znam(31),10,0)) &&"Nein"
		flush
		&&Else
		&&   .Text = "Ja"
		&&End If

		goto 7
		If wvw.znam(30) = 0
			replace vergliste.&hsxaa with  "Ja"
		Else
			replace vergliste.&hsxaa with  "Nein"
		Endif
		FLUSH
		
		goto 8
		Do Case && wvw.znam(36)
			Case wvw.znam(36) = 0
				replace vergliste.&hsxaa with  "8 %"
			Case wvw.znam(36) = 1
				replace vergliste.&hsxaa with  "9 %"
			Case wvw.znam(36) = 2
				replace vergliste.&hsxaa with  "lt. Eing."
			Case wvw.znam(36) = 3
				replace vergliste.&hsxaa with  "keine"
			Case wvw.znam(36) = 4
				replace vergliste.&hsxaa with  "7 % p."
			Case wvw.znam(36) = 5
				replace vergliste.&hsxaa with  "8 % p."
		Endcase
		FLUSH
		
		goto 9
		Do Case && wvw.znam(37)
			Case (wvw.znam(37) >= 0 .And. wvw.znam(37) <= 121)
				replace vergliste.&hsxaa with  Str(10 + Fix(wvw.znam(37) / 2) * 0.1,10,2) + " %"
			Case wvw.znam(37) = 122
				replace vergliste.&hsxaa with  "AG 10 %"
			Case wvw.znam(37) = 123
				replace vergliste.&hsxaa with  "befreit"
			Case  Inlist(wvw.znam(37), 124, 125)
				replace vergliste.&hsxaa with  "Eingabe"
			Case (wvw.znam(37) >= 0 .And. wvw.znam(37) >= 130)&&ndern 2026
				xBBeitragsatz = getkvproz(wvw.znam(37)) &&ndern 2026
				replace vergliste.&hsxaa with  Str(xBBeitragsatz ,10,2) + " %"
		Endcase
		flush

		For i = 5 To 6
			goto i
			For j = 1 To 3
*!*					.Col = j
				hsxaa = "sp" + ALLTRIM(STR(j,2,0))
				replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i), "##0.0000") + " "
				flush
			Next
		Next

		For i = 8 To 29
			goto i
			For j = 1 To 3
*!*					.Col = j
				hsxaa = "sp" + ALLTRIM(STR(j,2,0))
				replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00") + " "
				flush
			Next
		Next

		For i = 3 To 5
			goto i
			For j = 6 To 8
*!*					.Col = j
				hsxaa = "sp" + ALLTRIM(STR(j,2,0))
				replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00")
				flush
			Next
		Next

		goto 10
		For j = 6 To 8
*!*				.Col = j
			hsxaa = "sp" + ALLTRIM(STR(j,2,0))
			replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ 10) / 100, "###,##0.00") + " %"
			flush
		Next

		For i = 11 To 29
			goto i
			For j = 6 To 8
*!*					.Col = j
				hsxaa = "sp" + ALLTRIM(STR(j,2,0))
				replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00") + " "
				flush
			Next
		NEXT
		
		For i = 1 To 3
*!*				.Col = i
			hsxaa = "sp" + ALLTRIM(STR(i,2,0))
			goto 7
			replace vergliste.&hsxaa with  ""
			flush
			goto 21
			replace vergliste.&hsxaa with  ""
			flush
			goto 25
			replace vergliste.&hsxaa with ""
			flush
		Next
		If VerglSicht = 0
			For i = 6 To 8
*!*					.Col = i
				hsxaa = "sp" + ALLTRIM(STR(i,2,0))
				goto 11
				replace vergliste.&hsxaa with  ""
				flush
				goto 15
				replace vergliste.&hsxaa with  ""
				flush
				&&.Row = 21
				&&.Text = ""
				goto 26
				replace vergliste.&hsxaa with  ""
				flush
				goto 28
				replace vergliste.&hsxaa with  ""
				flush
			Next
		Else
			For i = 6 To 8
*!*					.Col = i
				hsxaa = "sp" + ALLTRIM(STR(i,2,0))
				goto 11
				replace vergliste.&hsxaa with  ""
				flush
				goto 13
				replace vergliste.&hsxaa with  ""
				flush
				&&.Row = 18
				&&.Text = ""
				&&.Row = 23
				&&.Text = ""
				&&.Row = 28
				&&.Text = ""
			Next
		Endif

		&&If m = 0 Then
*!*			.Visible = True
*!*		Endwith
ENDPROC
     1    1  1                        !   %   .      W1    ).            U  , F   T C W % r 
 T   T C  Z T  
 T 	  
    
 T   T C  Z T  
 T 
  
    C     wvw  %C   (/ T  C  C   M T     %C   / T  C  C    T     T   $ T  	C  $ T  
C	  $ T  C
  $ T  C  $ T  
C  $ T  C
  $ T  C  $ T  C  $ T  C  $ T  C  $ T  C  $ T  C  $ T  C   T   $ T  C  $ T  C  $ T  C   T   $ T  C  $ T  CB  $ T  C  $ T  C  ! T   ! T   ( T  C  ( T  C  ( T  C0  ! T   ! T   ! T  	 ! T  
 ( T  C  ! T    %  T
( T  
C"  ( T  C$  ( T  C%  ! T   ( T  C&  ( T  C'  ( T  C(  ( T  C)  ( T  C*  $ %C5  C 	.) T           ^( T  C   ( T  C#  ( T  C+  ( T  C,  ( T  C-  ! T   ! T   ! T     (	G T  C  C    $ %C5  C 	 
5 T  C.  CC   P
( T  C.    ( T  
C  ! T   ( T  C  ( T  C  ( T  C  ( T  C  ( T  C  ( T  C   3 T  C!  C  ( T  C  ( T  C  > T  C  C  C   %C"  ( T  C#   ! T   ! T    %CC(  R 1
 %C  

:
( T  C   * %C  	 C  

	
( T  C     %CC)  R 1v %C/  

	; T  C  C0   * %C/  	 C/  

	r; T  C  C0    ! T     *(, %CC    R 1? T  C  C     + T ?C#     T CC? G % 4 T ?CC?  d{Gz? ( T ?CC?  d B T  C  C  C? d! T     (G T  C  C       (7 T  C  C     (E7 T 	 C  C    F   T  spCC  Z	 #
 H C   ( replace vergliste.&hsxaa with "Nein"
 C  - replace vergliste.&hsxaa with  "Ja, voll"
 C  O/ replace vergliste.&hsxaa with  "mind. 50 %"
 C  / replace vergliste.&hsxaa with  "unter 50 %"
  [	 #
 H C   - replace vergliste.&hsxaa with  "Bes.O. A"
 C  >- replace vergliste.&hsxaa with  "Bes.O. B"
 C  - replace vergliste.&hsxaa with  "Bes.O. C"
 C  - replace vergliste.&hsxaa with  "Bes.O. W"
 C  
- replace vergliste.&hsxaa with  "Bes.O. R"
 C  R- replace vergliste.&hsxaa with  "Anwrter"
 C  9 replace vergliste.&hsxaa with  "AOK Dienstverhltnis"
 C  1 replace vergliste.&hsxaa with  "nicht belegt"
 C  62 replace vergliste.&hsxaa with  "TV-L/H Pflege"
 C  	}/ replace vergliste.&hsxaa with  "TV-L/H SuE"
 C  
. replace vergliste.&hsxaa with  "TVD-Bund"
 C  + replace vergliste.&hsxaa with  "TV-L/H"
 C  K- replace vergliste.&hsxaa with  "TVD-VKA"
 C  
+ replace vergliste.&hsxaa with  "TVD-K"
 C  + replace vergliste.&hsxaa with  "TVD-E"
 C  + replace vergliste.&hsxaa with  "TVD-F"
 C  W+ replace vergliste.&hsxaa with  "TVD-S"
 C  - replace vergliste.&hsxaa with  "TVD-AOK"
 C  / replace vergliste.&hsxaa with  "Kf-TV-Bund"
 C  */ replace vergliste.&hsxaa with  "PKW-F-Land"
 C  q/ replace vergliste.&hsxaa with  "TVD-Azubi"
 C  0 replace vergliste.&hsxaa with  "TVD-Prakt."
 C  0 replace vergliste.&hsxaa with  "TV-Versorg."
 C  F- replace vergliste.&hsxaa with  "TV-Verk."
 C  . replace vergliste.&hsxaa with  "Bes. Tab."
 C  / replace vergliste.&hsxaa with  "n.Vereinb."
 C  - replace vergliste.&hsxaa with  "Geringv."
 C  `0 replace vergliste.&hsxaa with  "ohne Gehalt"
 C  - replace vergliste.&hsxaa with  "BAT Bund"
 C  - replace vergliste.&hsxaa with  "BAT Land"
 C  ., replace vergliste.&hsxaa with  "BAT VKA"
 C  q+ replace vergliste.&hsxaa with  "BAT KR"
 C   , replace vergliste.&hsxaa with  "BAT-AOK"
 C  !- replace vergliste.&hsxaa with  "Arbeiter"
 C  "@. replace vergliste.&hsxaa with  "Fahrer B."
 C  #- replace vergliste.&hsxaa with  "Fahrer L"
 C  $+ replace vergliste.&hsxaa with  "Azubi."
 C  %+ replace vergliste.&hsxaa with  "Prakt."
  [	 #  & replace vergliste.&hsxaa with  Msg
 [	 #   %C  N T CC 
 Z & replace vergliste.&hsxaa with  Msg
 [ T   ! T  spCC  Z	 # %C   B, replace vergliste.&hsxaa with  "Allgem."
 v, replace vergliste.&hsxaa with  "Besond."
  [	 #
 H,"+ C!    C!  	Q replace vergliste.&hsxaa with  "I / " + ALLTRIM(STR(wvw.znam(33) * 0.5,10,0))
+ C!  	 C!  	V replace vergliste.&hsxaa with  "II / " + ALLTRIM(STR(wvw.znam(33) * 0.5 - 4,10,0))
+ C!   C!  !	 Z replace vergliste.&hsxaa with  "III / " + ALLTRIM(STR(wvw.znam(33) * 0.5 - 10.5,10,0))
+ C!  " C!  .	 \ replace vergliste.&hsxaa with  "IV / " + ALLTRIM(STR(15 + wvw.znam(33) * 0.5 - 17,10,0))
 C!  / & replace vergliste.&hsxaa with  "V"
 C!  0!' replace vergliste.&hsxaa with  "VI"
 C!  1^!, replace vergliste.&hsxaa with  "20 % p."
 C!  2!, replace vergliste.&hsxaa with  "25 % p."
 C!  3!, replace vergliste.&hsxaa with  "Eingabe"
 C!  4,". replace vergliste.&hsxaa with  "NV-Besch."
  [	 #L replace vergliste.&hsxaa with  "AEB " + ALLTRIM(STR(wvw.znam(31),10,0)) 
 [	 # %C   "' replace vergliste.&hsxaa with  "Ja"
 #) replace vergliste.&hsxaa with  "Nein"
  [	 #
 H$#$ C$   d#( replace vergliste.&hsxaa with  "8 %"
 C$  #( replace vergliste.&hsxaa with  "9 %"
 C$  #. replace vergliste.&hsxaa with  "lt. Eing."
 C$  ,$* replace vergliste.&hsxaa with  "keine"
 C$  o$+ replace vergliste.&hsxaa with  "7 % p."
 C$  $+ replace vergliste.&hsxaa with  "8 % p."
  [	 #	
 H$&+ C%    C%  y	O%T replace vergliste.&hsxaa with  Str(10 + Fix(wvw.znam(37) / 2) * 0.1,10,2) + " %"
 C%  z%, replace vergliste.&hsxaa with  "AG 10 %"
 C%  {%, replace vergliste.&hsxaa with  "befreit"
 CC%  |}&, replace vergliste.&hsxaa with  "Eingabe"
+ C%    C%  	& T  CC%  ! B replace vergliste.&hsxaa with  Str(xBBeitragsatz ,10,2) + " %"
  [  (V'	 #  " (R' T  spCC"  ZN replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i), "##0.0000") + " "
 [    ((	 #  " (( T  spCC"  ZV replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00") + " "
 [    ((	 #  " (( T  spCC"  ZP replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00")
 [  	 #
 " (Y) T  spCC"  ZX replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ 10) / 100, "###,##0.00") + " %"
 [   (*	 #  " (* T  spCC"  ZV replace vergliste.&hsxaa with  myformat(sicht(1+j,1+ i) / 100, "###,##0.00") + " "
 [    (* T  spCC  Z	 #% replace vergliste.&hsxaa with  ""
 [	 #% replace vergliste.&hsxaa with  ""
 [	 #$ replace vergliste.&hsxaa with ""
 [  %  +  (+ T  spCC  Z	 #% replace vergliste.&hsxaa with  ""
 [	 #% replace vergliste.&hsxaa with  ""
 [	 #% replace vergliste.&hsxaa with  ""
 [	 #% replace vergliste.&hsxaa with  ""
 [  ,  (, T  spCC  Z	 #% replace vergliste.&hsxaa with  ""
 [	 #
% replace vergliste.&hsxaa with  ""
 [   U# 	 VERGLISTE	 XAUSNAHME	 VERGLEICH WELCHESJAHR
 VERGLAJAHR WELCHESJAHRC MODUS VERGLAMODUS MONAT VERGLAMONAT	 DATEIOPEN
 VERGLBJAHR VERGLBMODUS VERGLBMONAT MYGET FILENEU WVW TNAM SICHT EFFZ
 VERGLSICHT ZI I ZNAM SCHLSS
 INSOLVENZGELD HS_REST FIX HSXAA
 BESGRHOLEN ALTERSTUFEHOLEN MSG
 XBBEITRAGSATZ	 GETKVPROZ J Click,     1 s   Q    Q  A  A  A AAAAAAAAAAAAAAAAAAAAA A qqA AQ A  1A A A B A A B qA B !A A !qqA A sqA qqA r   A A   !A A  q aA  q QqA aA   A A   aaqA A  A  q A A   A A   A!A A r qA A A r qaA A A r qA A A  qA A r qaA A A r QA  QA  AA A q QA  QA  QA  QA A  q QA  QA G A 5                       H;      )   1                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
S   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6FG0MPPZP1429233437      /  F      ]                                                   WINDOWS _6FG0MPPZR1447909976                                                                     WINDOWS _6FG0MPPZS1429234157                  f                                                 WINDOWS _6FG0MPPZT1429238454                       !  
"                                               WINDOWS _6FG0MPPZU1429234157#      &#  ;#  M#  Z#      #  @$                                               WINDOWS _6FG0MPPZV1429165784%      %  .%  @%  M%      %  ,&                                               WINDOWS _6FG0MPPZW1429165784&      '  '  #'  0'      '  (                                               WINDOWS _6FG0MPPZX1429231361)      )  !)  /)  <)      )  9+                                               WINDOWS _6FG0MPPZY1429231361-      -  ,-  :-  G-      -  /                                               WINDOWS _6FG0MPPZZ142916578452      B2  O2  ]2  j2                                                           WINDOWS _6FG0MPQ0014291657842      2  3  3  3                                                           WINDOWS _6FG0MPQ0114291657843      3  3  3  3                                                           WINDOWS _6FG0MPQ0214291657844      4  4  4  4                                                           WINDOWS _6FG0MPQ031429165784J5      W5  d5  r5  5                                                           WINDOWS _6FG0MPQ0414291657846      6  &6  :6  G6                                                           WINDOWS _6FG0MPQ051429165178,:      ::  H:  W:  y:                                                           WINDOWS _6FG0MPQ061429165178:      :  :  :  :                                                           WINDOWS _6FG0MPQ071429165178R;      `;  n;  };  ;                                                           WINDOWS _6FG0MPQ081429165178;      ;  ;  ;  <                                                           WINDOWS _6FG0MPQ091429165178x<      <  <  <  <                                                           WINDOWS _6FG0MPQ0A1429165178<      <  =  =  ==                                                           WINDOWS _6FG0MPQ0B1429165178=      =  =  =  =                                                           WINDOWS _6FG0MPQ0C1429165178>      %>  4>  A>  c>                                                           WINDOWS _6FG0MPQ0D1429165178>      >  >  >  ?                                                           WINDOWS _6FG0MPQ0E1429165178<?      K?  Z?  g?  ?                                                           WINDOWS _6FG0MPQ0F1429165178?      ?  @  @  7@                                                           WINDOWS _6FG0MPQ0G1429165178b@      q@  @  @  @                                                           WINDOWS _6FG0MPQ0H1429165178A      A  ,A  ;A  ]A                                                           WINDOWS _6FG0MPQ0I1429165178A      A  A  A  A                                                           WINDOWS _6FG0MPQ0J14291651786B      DB  RB  aB  B                                                           WINDOWS _6FG0MPQ0K1429165178B      B  B  B  B                                                           WINDOWS _6FG0MPQ0L1429165178\C      jC  xC  C  C                                                           WINDOWS _6FG0MPQ0M1429165178C      C  C  C  !D                                                           WINDOWS _6FG0MPQ0N1429165178D      D  D  D  D                                                           WINDOWS _6FG0MPQ0O1429165178D      
E  E  &E  IE                                                           WINDOWS _6FG0MPQ0P1429165784E      E  E  E  E                                                           WINDOWS _6FG0MPQ0Q1429165784TF      aF  nF  |F  F                                                           WINDOWS _6FG0MPQ0R1429165784G      "G  /G  =G  JG                                                           WINDOWS _6FG0MPQ0S1429165784G      G  G  H  H                                                           WINDOWS _6FG0MPQ0T1429165784H      H  H  H  H                                                           WINDOWS _6FG0MPQ0U1429165784dI      qI  ~I  I  I                                                           WINDOWS _6FG0MPQ0V1429165784J      J  +J  :J  GJ                                                           WINDOWS _6FG0MPQ0W1429165784J      J  J  J  	K                                                           WINDOWS _6FG0MPQ0X1429165784K      K  K  K  K                                                           WINDOWS _6FG0MPQ0Y1429165784YL      fL  sL  L  L                                                           WINDOWS _6FG0MPQ0Z1429165784M      #M  0M  ?M  LM                                                           WINDOWS _6FG0MPQ101429165784M      M  M  M  M                                                           WINDOWS _6FG0MPQ111429165784N      N  N  N  N                                                           WINDOWS _6FG0MPQ121429165784MO      ZO  gO  vO  O                                                           WINDOWS _6FG0MPQ131429165784P      P  )P  8P  EP                                                           WINDOWS _6FG0MPQ141429165784P      P  P  P  Q                                                           WINDOWS _6FG0MPQ151429165784yQ      Q  Q  Q  Q                                                           WINDOWS _6FG0MPQ161429165784?R      LR  YR  hR  uR                                                           WINDOWS _6FG0MPQ171429165784S      S  S  ,S  9S                                                           WINDOWS _6FG0MPQ181429165784S      S  S  S  S                                                           WINDOWS _6FG0MPQ191429165784}T      T  T  T  T                                                           WINDOWS _6FG0MPQ1A1429165784*U      7U  DU  SU  `U                                                           WINDOWS _6FG0MPQ1B1429165784U      U  V  V  !V                                                           WINDOWS _6FG0MPQ1C1429165784V      V  V  V  V                                                           WINDOWS _6FG0MPQ1D1429165784mW      zW  W  W  W                                                           WINDOWS _6FG0MPQ1E1429165784.X      ;X  HX  WX  dX                                                           WINDOWS _6FG0MPQ1F1429165784X      Y  Y  Y  *Y                                                           WINDOWS _6FG0MPQ1G1429165784Y      Y  Y  Y  Y                                                           WINDOWS _6FG0MPQ1H1429165784xZ      Z  Z  Z  Z                                                           WINDOWS _6FG0MPQ1I14291657846[      C[  P[  _[  l[                                                           WINDOWS _6FG0MPQ1J1429165784[      \  \   \  -\                                                           WINDOWS _6FG0MPQ1K1429165784\      \  \  \  \                                                           WINDOWS _6FG0MPQ1L1429165784y]      ]  ]  ]  ]                                                           WINDOWS _6FG0MPQ1M14291657846^      C^  P^  _^  l^                                                           WINDOWS _6FG0MPQ1N1429165784^       _  
_  _  )_                                                           WINDOWS _6FG0MPQ1O1429165784_      _  _  _  _                                                           WINDOWS _6FG0MPQ1P1429165784s`      `  `  `  `                                                           WINDOWS _6FG0MPQ1Q14291657845a      Ba  Oa  ^a  ka                                                           WINDOWS _6FG0MPQ1R1429165784a      b  b  !b  .b                                                           WINDOWS _6FG0MPQ1S1429165784b      b  b  b  b                                                           WINDOWS _6FG0MPQ1T1429165784vc      c  c  c  c                                                           WINDOWS _6FH0LI7C11447907362;d      Pd  ed  ud  d       e  |                                               WINDOWS _6FH0NBCBJ1429232130Ҏ                                                                   WINDOWS _6FH0NBCBK1429232130ݙ            &                                                       WINDOWS _6FH0PTA6K1447909976        ǥ                                                           WINDOWS _6FK0YCFRW1429438510        #  0                                                           COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE CURSOR szdrucken (sp0 C(10), sp1 C(12), sp2 C(8), sp3 C(12), sp4 C(8), sp5 C(12), sp6 C(8), sp7 C(12), sp8 C(12), sp9 C(12))
SELECT szdrucken
FOR hsa = 1 TO 15
	APPEND BLANK
	FLUSH
NEXT

ENDPROC
                                   (   %   H      r     b            U    h	 szdrucken  C
  C  C  C  C  C  C  C	  C
  C F    (   [  U 	 SZDRUCKEN SP0 SP1 SP2 SP3 SP4 SP5 SP6 SP7 SP8 SP9 HSA BeforeOpenTables,     1 
q qQ A A 2                              )                           1      1      form      form      FORM1      Height = 461
Width = 728
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Sonderzahlung"
Icon = prgicons\haupticon.ico
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     
wPROCEDURE Destroy
SELECT szdrucken
USE
myform1.visible = .t.
ENDPROC
PROCEDURE Init
thisform.zeile0.Caption = "Sonderzahlungen fr " + Alltrim(zt0(1+zi(1+0))) + " im Jahr " + welchesjahrc

For i = 0 To 17
	thisform.combo1.AddItem(Alltrim(zt2(1+i)))
NEXT
thisform.combo1.ListIndex = zi(1+2) + 1

thisform.combo2.AddItem("bei Vollzeit")
thisform.combo2.AddItem("bei Teilzeit")
thisform.combo2.ListIndex = 0 + 1

SELECT szdrucken
SET SAFETY off
ZAP
SET SAFETY on

FOR hsa = 1 TO 15
	APPEND BLANK
	FLUSH
NEXT

GOTO 1
replace szdrucken.sp0 with "Januar"
flush
GOTO 2
replace szdrucken.sp0 with "Februar"
flush
GOTO 3
replace szdrucken.sp0 with "Mrz"
flush
GOTO 4
replace szdrucken.sp0 with "April"
flush
GOTO 5
replace szdrucken.sp0 with "Mai "
flush
GOTO 6
replace szdrucken.sp0 with "Juni"
flush
GOTO 7
replace szdrucken.sp0 with "Juli"
flush
GOTO 8
replace szdrucken.sp0 with "August"
flush
GOTO 9
replace szdrucken.sp0 with "September"
flush
GOTO 10
replace szdrucken.sp0 with "Oktober"
flush
GOTO 11
replace szdrucken.sp0 with "November"
flush
GOTO 12
replace szdrucken.sp0 with "Dezember"
flush
GOTO 13
replace szdrucken.sp0 with ""
flush
GOTO 14
replace szdrucken.sp0 with ""
flush
GOTO 15
replace szdrucken.sp0 with "Summe"
FLUSH

thisform.combo1.ListIndex = zi(1+2) + 1

GO top

IF thisform.Top < 0
	thisform.Top = 0
endif

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize


ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

IF thisform.width - 32 > thisform.grdszdrucken.width
	thisform.grdszdrucken.width = thisform.width -32
ENDIF

IF thisform.Top + thisform.Height + thisform.Top >= screenmaxh
	thisform.Top = 1
ENDIF

prozsp1 =  75 / 696
prozsp2 =  48 / 696

thisform.grdszdrucken.Width = thisform.Width - 32

grdbreite = thisform.grdszdrucken.Width 
thisform.grdszdrucken.column1.Width = grdbreite * prozsp1
thisform.grdszdrucken.column2.Width = grdbreite * prozsp1
thisform.grdszdrucken.column3.Width = grdbreite * prozsp2
thisform.grdszdrucken.column4.Width = grdbreite * prozsp1
thisform.grdszdrucken.column5.Width = grdbreite * prozsp2
thisform.grdszdrucken.column6.Width = grdbreite * prozsp1
thisform.grdszdrucken.column7.Width = grdbreite * prozsp2
thisform.grdszdrucken.column8.Width = grdbreite * prozsp1
thisform.grdszdrucken.column9.Width = grdbreite * prozsp1
thisform.grdszdrucken.column10.Width = grdbreite * prozsp1

thisform.grdszdrucken.column1.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column2.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column3.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column4.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column5.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column6.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column7.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column8.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column9.text1.fontsize = thisform.grdszdrucken.column1.fontsize
thisform.grdszdrucken.column10.text1.fontsize = thisform.grdszdrucken.column1.fontsize


ENDPROC
     
q    X
  X
                        b}   %         	  l   	            U    F   Q T  a U 	 SZDRUCKEN MYFORM1 VISIBLEJ T     Sonderzahlungen fr CCC  	  im Jahr     (~  CCC 	       T   
 C  C bei Vollzeit     C bei Teilzeit     T   
  F  G. S G.  
 (%  [ 	 # >   Januar [	 # >   Februar [	 # >   Mrz [	 # >   April [	 # >   Mai  [	 # >   Juni [	 # >   Juli [	 # >   August [	 #	 >  	 September [	 #
 >   Oktober [	 # >   November [	 # >   Dezember [	 #
 >     [	 # >     [	 # >   Summe [ T   
 C  #) %    
m T     
      T        T       
     U  THISFORM ZEILE0 CAPTION ZT0 ZI WELCHESJAHRC I COMBO1 ADDITEM ZT2	 LISTINDEX COMBO2	 SZDRUCKEN HSA SP0 TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE6 C     %        H  T         " %          ~  T     T  a? T	  {a? T         T
      T     
   T     
   T   
  
 	  T     
   T     
 	  T     
   T     
 	  T     
   T     
   T     
  " T           " T           " T   
        " T           " T           " T           " T           " T           " T           " T            U  THISFORM SIZER	 FRMRESIZE WIDTH GRDSZDRUCKEN TOP HEIGHT
 SCREENMAXH PROZSP1 PROZSP2	 GRDBREITE COLUMN1 COLUMN2 COLUMN3 COLUMN4 COLUMN5 COLUMN6 COLUMN7 COLUMN8 COLUMN9 COLUMN10 TEXT1 FONTSIZE Destroy,      Initi      Resize    1 q A  2 rA 1r a A a rQ A A  aA  qA  AA  QA  AA  AA  AA  aA  A  qA  A  A  A  A  QA R BA  rq 4 A "A ba2"!!!!!!!!!3                       ?         Z        L   ;  l
  [    )   X
                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 9
Left = 334
Height = 22
Width = 92
Caption = "Vorgabewerte"
TabIndex = 37
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
      PPROCEDURE Click

*DO sscommand2_click
DO FORM sonderzahlung_beamte
ENDPROC
                                      J   %   e       z      t             U     sonderzahlung_beamte U  SONDERZAHLUNG_BEAMTE Click,     1 1                       E       )                            
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 9
Left = 429
Height = 22
Width = 92
Caption = "Hilfe"
Enabled = .F.
Style = 0
TabIndex = 36
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
      nPROCEDURE Click
 
*DO sscommand1_click
i = thisform.combo1.ListIndex - 1
Do sonderzahlungshilfe
ENDPROC
                                      #   %                             U  !  T        U  I THISFORM COMBO1	 LISTINDEX SONDERZAHLUNGSHILFE Click,     1 sq 1                       c       )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 9
Left = 523
Height = 22
Width = 92
Caption = "Drucken"
Style = 0
TabIndex = 38
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      BPROCEDURE Click
*DO sscommand3_click

Do szdrucken

ENDPROC
                                         %   E       Z      T             U  
     U 	 SZDRUCKEN Click,     1 s 2                       7       )                            
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 9
Left = 617
Height = 22
Width = 92
Caption = "Schlieen"
TabIndex = 39
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
      DPROCEDURE Click
thisform.Release

*DO sscommand4_click
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  3                       9       )                            label      label      zeile0      FORM1      FontBold = .T.
FontSize = 16
Caption = "Zeile0"
Height = 27
Left = 15
Top = 39
Visible = .T.
Width = 615
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            combobox      combobox      Combo1      FORM1      ]Height = 22
Left = 12
TabIndex = 79
Top = 9
Visible = .T.
Width = 195
Name = "Combo1"
     PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))
*SET STEP ON 
*Do szvollzeit &&Do attached
*Do szfllen &&Do attached
thisform.szvollzeit.click
thisform.szfllen.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
                                   H   %          9  
   %            U   
 T   U  COUNTER 
     
      U  THISFORM
 SZVOLLZEIT CLICK SZFLLEN
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange     1  2   2  3  1                                ;              R        {        )                           combobox      combobox      Combo2      FORM1      ^Height = 22
Left = 207
TabIndex = 80
Top = 9
Visible = .T.
Width = 120
Name = "Combo2"
     8PROCEDURE GotFocus
counter = 1
ENDPROC
PROCEDURE Click
*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))

Do Case && combo(2).ListIndex
	Case thisform.combo2.ListIndex = 1
		*Do szvollzeit &&Do attached
		thisform.szvollzeit.click

	Case thisform.combo2.ListIndex = 2
		*Do szteilzeit &&Do attached
		thisform.szteilzeit.click
Endcase
*Do szfllen &&Do attached
thisform.szfllen.click
ENDPROC
PROCEDURE InteractiveChange
this.click
*DO combo_checked WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
PROCEDURE ProgrammaticChange
this.click
ENDPROC
     @    '  '                           %   8                       U   
 T   U  COUNTERi 
 H
 U      1 
          U 
      
      U  THISFORM COMBO2	 LISTINDEX
 SZVOLLZEIT CLICK
 SZTEILZEIT SZFLLEN
 
     U  THIS CLICK
 
     U  THIS CLICK GotFocus,      ClickI      InteractiveChange      ProgrammaticChange    1  2  q r A  2  3  1                                ;                  
   #  -      )   '                        label      label      Label1      FORM1      wBackStyle = 1
BorderStyle = 1
Caption = "     Monat"
Height = 17
Left = 17
Top = 74
Width = 87
Name = "Label1"
      label      label      Label2      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Magebliche Besoldung"
Height = 17
Left = 103
Top = 74
Width = 251
Name = "Label2"
      label      label      Label3      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Zustzliche Anteile"
Height = 17
Left = 353
Top = 74
Width = 207
Name = "Label3"
      label      label      Label4      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Ergebniss"
Height = 17
Left = 559
Top = 74
Width = 77
Name = "Label4"
      label      label      Label5      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Auszahlung"
Height = 17
Left = 635
Top = 74
Width = 78
Name = "Label5"
      grid      grid      grdSzdrucken      FORM1     ColumnCount = 10
DeleteMark = .F.
HeaderHeight = 0
Height = 272
Left = 17
Panel = 1
RecordSource = "SZDRUCKEN"
RecordSourceType = 1
ScrollBars = 0
Top = 170
Width = 696
Name = "grdSzdrucken"
Column1.ControlSource = "SZDRUCKEN.sp0"
Column1.BackColor = 240,240,240
Column1.Name = "Column1"
Column2.ControlSource = "SZDRUCKEN.sp1"
Column2.Width = 75
Column2.Name = "Column2"
Column3.ControlSource = "SZDRUCKEN.sp2"
Column3.Width = 48
Column3.Name = "Column3"
Column4.ControlSource = "SZDRUCKEN.sp3"
Column4.Name = "Column4"
Column5.ControlSource = "SZDRUCKEN.sp4"
Column5.Width = 48
Column5.Name = "Column5"
Column6.ControlSource = "SZDRUCKEN.sp5"
Column6.Name = "Column6"
Column7.ControlSource = "SZDRUCKEN.sp6"
Column7.Width = 53
Column7.Name = "Column7"
Column8.ControlSource = "SZDRUCKEN.sp7"
Column8.Name = "Column8"
Column9.ControlSource = "SZDRUCKEN.sp8"
Column9.Name = "Column9"
Column10.ControlSource = "SZDRUCKEN.sp9"
Column10.Name = "Column10"
      header      header      Header1      FORM1.grdSzdrucken.Column1      #Caption = "sp0"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column1      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column2      #Caption = "sp1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column2      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column3      #Caption = "sp2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column3      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column4      #Caption = "sp3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column4      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column5      #Caption = "sp4"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column5      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column6      #Caption = "sp5"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column6      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column7      #Caption = "sp6"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column7      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column8      #Caption = "sp7"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column8      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column9      #Caption = "sp8"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column9      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdSzdrucken.Column10      #Caption = "sp9"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdSzdrucken.Column10      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      label      label      Label6      FORM1      mBackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 17
Top = 90
Width = 87
Name = "Label6"
      label      label      Label7      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Gehalt"
Height = 17
Left = 103
Top = 90
Width = 125
Name = "Label7"
      label      label      Label8      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Kinderzuschlge"
Height = 17
Left = 353
Top = 90
Width = 131
Name = "Label8"
      label      label      Label9      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Aus den"
Height = 17
Left = 559
Top = 90
Width = 77
Name = "Label9"
      label      label      Label10      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "im Monat"
Height = 17
Left = 635
Top = 90
Width = 78
Name = "Label10"
      label      label      Label11      FORM1      oBackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 17
Top = 106
Width = 87
Name = "Label11"
      label      label      Label12      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "ohne"
Height = 17
Left = 103
Top = 106
Width = 125
Name = "Label12"
      label      label      Label13      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Fest-"
Height = 17
Left = 353
Top = 106
Width = 77
Name = "Label13"
      label      label      Label14      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Spalten"
Height = 17
Left = 559
Top = 106
Width = 77
Name = "Label14"
      label      label      Label15      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 635
Top = 106
Width = 78
Name = "Label15"
      label      label      Label16      FORM1      oBackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 17
Top = 122
Width = 87
Name = "Label16"
      label      label      Label17      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Familien-"
Height = 17
Left = 103
Top = 122
Width = 125
Name = "Label17"
      label      label      Label18      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "betrag"
Height = 17
Left = 353
Top = 122
Width = 77
Name = "Label18"
      label      label      Label19      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "links"
Height = 17
Left = 559
Top = 122
Width = 77
Name = "Label19"
      label      label      Label20      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 635
Top = 122
Width = 78
Name = "Label20"
      label      label      Label21      FORM1      oBackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 17
Top = 138
Width = 87
Name = "Label21"
      label      label      Label22      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "zuschlag"
Height = 17
Left = 103
Top = 138
Width = 125
Name = "Label22"
      label      label      Label23      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "je Kind"
Height = 17
Left = 353
Top = 138
Width = 77
Name = "Label23"
      label      label      Label24      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 559
Top = 138
Width = 77
Name = "Label24"
      label      label      Label25      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 635
Top = 138
Width = 78
Name = "Label25"
      label      label      Label26      FORM1      oBackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 17
Top = 154
Width = 87
Name = "Label26"
      label      label      Label27      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 103
Top = 154
Width = 78
Name = "Label27"
      label      label      Label28      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 353
Top = 154
Width = 77
Name = "Label28"
      label      label      Label29      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 559
Top = 154
Width = 77
Name = "Label29"
      label      label      Label30      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 635
Top = 154
Width = 78
Name = "Label30"
      label      label      Label31      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Familien-"
Height = 17
Left = 227
Top = 90
Width = 127
Name = "Label31"
      label      label      Label32      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "zuschlag"
Height = 17
Left = 227
Top = 106
Width = 127
Name = "Label32"
      label      label      Label33      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 227
Top = 122
Width = 127
Name = "Label33"
      label      label      Label34      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 227
Top = 138
Width = 127
Name = "Label34"
      label      label      Label36      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "zu %"
Height = 17
Left = 180
Top = 154
Width = 48
Name = "Label36"
      label      label      Label35      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 227
Top = 154
Width = 78
Name = "Label35"
      label      label      Label37      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "zu %"
Height = 17
Left = 304
Top = 154
Width = 50
Name = "Label37"
      label      label      Label38      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 429
Top = 106
Width = 55
Name = "Label38"
      label      label      Label39      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 429
Top = 122
Width = 55
Name = "Label39"
      label      label      Label40      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 429
Top = 138
Width = 55
Name = "Label40"
      label      label      Label41      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Anzahl"
Height = 17
Left = 429
Top = 154
Width = 55
Name = "Label41"
      label      label      Label42      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Fest-"
Height = 17
Left = 483
Top = 106
Width = 77
Name = "Label42"
      label      label      Label43      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Betrag"
Height = 17
Left = 483
Top = 122
Width = 77
Name = "Label43"
      label      label      Label44      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = ""
Height = 17
Left = 483
Top = 138
Width = 77
Name = "Label44"
      label      label      Label45      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "EURO"
Height = 17
Left = 483
Top = 154
Width = 77
Name = "Label45"
      label      label      Label46      FORM1      Alignment = 2
BackStyle = 1
BorderStyle = 1
Caption = "Sonstiger"
Height = 17
Left = 483
Top = 90
Width = 77
Name = "Label46"
      
commandbutton      
commandbutton      szfllen      FORM1      vTop = 36
Left = 645
Height = 12
Width = 48
Caption = "szfllen"
Enabled = .F.
Visible = .F.
Name = "szfllen"
     PROCEDURE Click
	For i = 1 To 12
		sicht(1+i,1+ 12) = 0
	Next

	For m = 1 To 12
		myget(m, fileneu,"wvw")
		If wvw.znam(22) = 2 .Or. wvw.znam(1) = 3
			szteiler = 0.5
		Else
			szteiler = wvw.tnam(1+1) / wvw.tnam(1+0)
		Endif

		Do szi_holen &&Do attached
		
*alte version		myget(123, thisform.Combo1.ListIndex + 1 + (welchesjahr - Jahr1) * 20,"sonderzah")&&hs2011
		myget(123, thisform.Combo1.ListIndex + (welchesjahr - Jahr1) * 20,"sonderzah")&&hs2011
		
		sicht(1+m,1+ 2) = sonderzah.sz1lfd(szi)
		sicht(1+m,1+ 5) = sonderzah.sz2fz(szi)

		sicht(1+m,1+ 3) = sicht(1+m,1+ 1) * sicht(1+m,1+ 2) / 100
		sicht(1+m,1+ 6) = sicht(1+m,1+ 4) * sicht(1+m,1+ 5) / 100
		sicht(1+m,1+ 12) = sicht(1+m,1+ 12) + sicht(1+m,1+ 3) + sicht(1+m,1+ 6)

*!*	IF m = 11
*!*		SET STEP ON 
*!*	endif

		&&Kinderzuschlge
		If sonderzah.sztz(3) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher = 1
			sicht(1+m,1+ 7) = sonderzah.sz3ki(szi) * szteiler
		Else
			sicht(1+m,1+ 7) = sonderzah.sz3ki(szi)
		ENDIF
		
		If wvw.znam(17) > 6
			sicht(1+m,1+ 8) = 0
		Else
			sicht(1+m,1+ 8) = wvw.znam(17)
		Endif
		sicht(1+m,1+ 9) = sicht(1+m,1+ 7) * 100 * sicht(1+m,1+ 8)

		If sicht(1+m,1+ 8) > 7
			sicht(1+m,1+ 8) = 0
			sicht(1+m,1+ 9) = 0
			sicht(1+m,1+ 2) = 0
			sicht(1+m,1+ 5) = 0
			sicht(1+m,1+ 10) = wvw.tnam(1+18)
			If sicht(1+m,1+ 10) > 0
				sicht(1+m,1+ 10) = sicht(1+m,1+ 10)
			Endif
		Else
			If sonderzah.sztz(4) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
				sicht(1+m,1+ 10) = sonderzah.sz4fb(szi) * szteiler
			Else
				sicht(1+m,1+ 10) = sonderzah.sz4fb(szi)
			Endif
		Endif

		sicht(1+m,1+ 12) = sicht(1+m,1+ 12) + sicht(1+m,1+ 9) + sicht(1+m,1+ 10)

		If m = 7
			If wvw.znam(18) < 7
				If sonderzah.sztz(6) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
					sicht(1+7,1+ 7) = sonderzah.sz3ki(szi) + sonderzah.sz7jlki(szi) * szteiler
				Else
					sicht(1+7,1+ 7) = sonderzah.sz3ki(szi) + sonderzah.sz7jlki(szi)
				Endif

				If sonderzah.sztz(5) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
					sicht(1+7,1+ 10) = sonderzah.sz6jl(szi) * 100 * szteiler
				Else
					sicht(1+7,1+ 10) = sonderzah.sz6jl(szi) * 100
				Endif
			Else
				sicht(1+7,1+ 10) = wvw.tnam(1+17)
			Endif
			sicht(1+m,1+ 12) = sicht(1+m,1+ 12) + sicht(1+7,1+ 10) + sonderzah.sz7jlki(szi) * 100 * sicht(1+7,1+ 8)
		Endif

		If m = 12
			If sonderzah.szmass(2) = 1
				For j = 1 To 12
					If wnw.Besja = 22 .And. j > 6
					Else
						myget(j, fileneu,"wvw")
						If wvw.znam(22) = 2 .Or. wvw.znam(1) = 3
							szteiler = 0.5
						Else
							szteiler = wvw.tnam(1+1) / wvw.tnam(1+0)
						ENDIF
						
						Do szi_holen &&Do attached

*alte version						myget(123, thisform.Combo1.ListIndex + 1 + (welchesjahr - 2012) * 20,"sonderzah ")&&hs2011
						myget(123, thisform.Combo1.ListIndex + (welchesjahr - 2012) * 20,"sonderzah")&&hs2011
						
						sicht(1+j,1+ 2) = sonderzah.sz9dezvh(szi)
						sicht(1+j,1+ 5) = sonderzah.sz12dezfzvh(szi)
						&&Kinderfestbetrag
						If sonderzah.sztz(10) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
							sicht(1+j,1+ 7) = sonderzah.sz11dezki(szi) * szteiler
						Else
							sicht(1+j,1+ 7) = sonderzah.sz11dezki(szi)
						Endif

						&&Sonstiger Festbetrag
						If sonderzah.sztz(9) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
							sicht(1+j,1+ 10) = sonderzah.sz10dezfb(szi) * 100 * szteiler
						Else
							sicht(1+j,1+ 10) = sonderzah.sz10dezfb(szi) * 100
						Endif

						sicht(1+12,1+ 12) = sicht(1+12,1+ 12) + sicht(1+j,1+ 1) * sicht(1+j,1+ 2) / 100 + sicht(1+j,1+ 4) * sicht(1+j,1+ 5) / 100 + sicht(1+j,1+ 7) * sicht(1+j,1+ 8) * 100 + sicht(1+j,1+ 10)
					Endif
				Next
			Endif
			If sonderzah.szmass(1) = 1

				For i = 1 To 6
					For j = 1 To 12
						sicht(1+i,1+ j) = 0
					Next
				Next
				For i = 8 To 11
					For j = 1 To 12
						sicht(1+i,1+ j) = 0
					Next
				Next
				For i = 1 To 4
					sicht(1+7,1+ i) = 0
				Next

				sicht(1+12,1+ 2) = sonderzah.sz9dezvh(szi)
				sicht(1+12,1+ 5) = sonderzah.sz12dezfzvh(szi)


				&&Kinderbetrag
				If sonderzah.sztz(10) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
					sicht(1+12,1+ 7) = sonderzah.sz11dezki(szi) * szteiler
				Else
					sicht(1+12,1+ 7) = sonderzah.sz11dezki(szi)
				Endif
				&&Sonstiger Festbetrag
				If sonderzah.sztz(9) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
					sicht(1+12,1+ 10) = sicht(1+12,1+ 10) + sonderzah.sz10dezfb(szi) * 100 * szteiler
				Else
					sicht(1+12,1+ 10) = sicht(1+12,1+ 10) + sonderzah.sz10dezfb(szi) * 100
				Endif

				sicht(1+12,1+ 12) = sicht(1+12,1+ 1) * sicht(1+12,1+ 2) / 100 + sicht(1+12,1+ 4) * sicht(1+12,1+ 5) / 100 + sicht(1+12,1+ 7) * sicht(1+12,1+ 8) * 100 + sicht(1+12,1+ 10)

			Endif
			If sonderzah.szmass(1) = 0 .And. sonderzah.szmass(2) = 0

				&&Kinderbetrag
				If zi(1+18) < 7
					sicht(1+12,1+ 8) = zi(1+18)
				Endif

				If sonderzah.sztz(10) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1

					If sicht(1+12,1+ 7) = 0
						sicht(1+12,1+ 7) = sonderzah.sz11dezki(szi) * szteiler
					Endif

				Else
					If sicht(1+12,1+ 7) = 0
						sicht(1+12,1+ 7) = sonderzah.sz11dezki(szi)
					Endif

				Endif
				&&Sonstiger Festbetrag
				If sonderzah.sztz(9) = 1 .And. thisform.Combo2.ListIndex = 1 + 1 &&vorher nur = 1
					If sicht(1+12,1+ 10) = 0
						sicht(1+12,1+ 10) = sicht(1+12,1+ 10) + sonderzah.sz10dezfb(szi) * 100 * szteiler
					Endif
				Else
					If sicht(1+12,1+ 10) = 0
						sicht(1+12,1+ 10) = sicht(1+12,1+ 10) + sonderzah.sz10dezfb(szi) * 100
					Endif
				Endif

				sicht(1+12,1+ 12) = sicht(1+12,1+ 1) * sicht(1+12,1+ 2) / 100 + sicht(1+12,1+ 4) * sicht(1+12,1+ 5) / 100 + sicht(1+12,1+ 7) * sicht(1+12,1+ 8) * 100 + sicht(1+12,1+ 10)

			Endif
		Endif
	Next

	thisform.szergebnisanzeigen.click &&Do attached
	m = zi(1+20) + 1
ENDPROC
                                      %   s                       U      (4  T   
    ( C     wvw * %C   C    T       ?   T C  C    	 / C{
   
  	 sonderzah % T  C    % T  C    ; T  C  C  d; T  C  C  dF T  
C 
 C  C  ) %C   
   	_) T  C      % T  C      %C   T  	  $ T  	C   ; T  
C  dC 	  %C 	 , T  	  T  
  T    T   $ T  C   %C   (( T  C    ) %C   
   	) T  C      % T  C      F T  
C 
 C 
 C   %  %C  
@) %C   
   	1 T C    C      - T C    C     ) %C   
   	) T C    d  <% T C    d  h  T C   N T  
C 
 C C    dC	   %  %C  	  (	 %    	 	 C     wvw * %C   C  | T       ?  T C  C    	 0 C{
   
 	 sonderzah % T  C    % T  C    ) %C
   
   	z) T  C      % T  C     ) %C	   
   		- T  C     d  2	) T  C     d  T 

C

 C  C  dC  C  dC  C 	 dC      %C     (B
  (>
! T          (
  (
! T          (
 T     ! T 
C    ! T 
C    ) %C
   
   	e% T 
C      ! T 
C     ) %C	   
   	4 T 
C
 C     d  '0 T 
C
 C     d n T 

C
 C
 dC
 C
 dC
 C
	 dC
  * %C    C   	 %C! 
 T 
	C!  ) %C
   
   	g
 %C
  c
% T 
C       
 %C
  
! T 
C      ) %C	   
   	) %C
  %4 T 
C
 C     d   } %C
  y0 T 
C
 C     d  n T 

C
 C
 dC
 C
 dC
 C
	 dC
    
 
 " #  T C!  U$  I SICHT M MYGET FILENEU WVW ZNAM SZTEILER TNAM	 SZI_HOLEN THISFORM COMBO1	 LISTINDEX WELCHESJAHR JAHR1	 SONDERZAH SZ1LFD SZI SZ2FZ SZTZ COMBO2 SZ3KI SZ4FB SZ7JLKI SZ6JL SZMASS J WNW BESJA SZ9DEZVH SZ12DEZFZVH	 SZ11DEZKI	 SZ10DEZFB ZI SZERGEBNISANZEIGEN CLICK Click,     1 qA rQ A r RQa QA  AA AA   QA A b A  QA  A A q Q A r RQ QA  A R	A A A rqA A qqA A qA Q A A A B SA QA  A B AA  A A B A A  Q1                             )                           
commandbutton      
commandbutton      
szteilzeit      FORM1      zTop = 48
Left = 645
Height = 13
Width = 49
Caption = "szteilzeit"
Enabled = .F.
Visible = .F.
Name = "szteilzeit"
     PROCEDURE Click
	For j = 1 To 13
		sicht(1+j,1+ 1) = 0
		sicht(1+j,1+ 4) = 0
	Next

	For m = 1 To 12
		myget(m, fileneu,"wvw")
		If wvw.wei(7) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+7)
		Endif

		If wvw.wei(8) = True
			sicht(1+m,1+ 4) = sicht(1+m,1+ 4) + wvw.effz(1+8)
		Endif

		If wvw.wei(9) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+9)
		Endif

		If wvw.wei(10) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+10)
		Endif

		If wvw.wei(11) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+11)
		Endif

		If wvw.wei(12) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+12)
		Endif

		If wvw.wei(13) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+13)
		Endif

		If wvw.wei(14) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+14)
		Endif

		If wvw.wei(15) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+15)
		Endif

		If wvw.wei(16) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.effz(1+16)
		Endif

		sicht(1+13,1+ 1) = sicht(1+13,1+ 1) + sicht(1+m,1+ 1)
		sicht(1+13,1+ 4) = sicht(1+13,1+ 4) + sicht(1+m,1+ 4)
	Next

	&&szergebnisanzeigen
	*Do szfllen &&Do attached
	thisform.szfllen.click
ENDPROC
     O    6  6                        g   %           *               U     (
Q  T     T       ( C     wvw  %C    3 T  C  C    %C   3 T  C  C	    %C	   m3 T  C  C
    %C
   3 T  C  C    %C   3 T  C  C    %C   Z3 T  C  C
    %C
   3 T  C  C    %C   3 T  C  C    %C   G3 T  C  C    %C   3 T  C  C   / T C C  / T C C   
 	 
   U  J SICHT M MYGET FILENEU WVW WEI TRUE EFFZ THISFORM SZFLLEN CLICK Click,     1 qA r1A 1A 1A 1A 1A 1A 1A 1A 1A 1A A  1                             )   6                        
commandbutton      
commandbutton      
szvollzeit      FORM1      zTop = 63
Left = 645
Height = 10
Width = 55
Caption = "szvollzeit"
Enabled = .F.
Visible = .F.
Name = "szvollzeit"
     HPROCEDURE Click
	For j = 1 To 13
		sicht(1+j,1+ 1) = 0
		sicht(1+j,1+ 4) = 0
	Next

	For m = 1 To 12
		myget(m, fileneu,"wvw")
		Op3 = wvw.tnam(1+3) / wvw.tnam(1+2)
		
		If wvw.wei(7) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+7) * Op3
		Endif

		If wvw.wei(8) = True
			sicht(1+m,1+ 4) = sicht(1+m,1+ 4) + wvw.tnam(1+8) * Op3
		Endif

		If wvw.wei(9) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+9) * Op3
		Endif

		If wvw.wei(10) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+10) * Op3
		Endif

		If wvw.wei(11) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+11) * Op3
		Endif

		If wvw.wei(12) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+12) * Op3
		Endif

		If wvw.wei(13) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+13) * Op3
		Endif

		If wvw.wei(14) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+14) * Op3
		Endif

		If wvw.wei(15) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+15) * Op3
		Endif

		If wvw.wei(16) = True
			sicht(1+m,1+ 1) = sicht(1+m,1+ 1) + wvw.tnam(1+16) * Op3
		Endif


		sicht(1+13,1+ 1) = sicht(1+13,1+ 1) + sicht(1+m,1+ 1)
		sicht(1+13,1+ 4) = sicht(1+13,1+ 4) + sicht(1+m,1+ 4)
	Next
	&&szergebnisanzeigen
	*Do szfllen &&Do attached
	thisform.szfllen.click
ENDPROC
                                      %         ;  +               U  S   (
Q  T     T       (? C     wvw  T C  C   %C  	  7 T  C  C     %C  	 E7 T  C  C	     %C	  	 7 T  C  C
     %C
  	 7 T  C  C     %C  	 >7 T  C  C     %C  	 7 T  C  C
     %C
  	 7 T  C  C     %C  	 77 T  C  C     %C  	 7 T  C  C     %C  	 7 T  C  C    / T C C  / T C C   
 
    U
  J SICHT M MYGET FILENEU OP3 WVW TNAM WEI TRUE THISFORM SZFLLEN CLICK Click,     1 qA rqA qA qA qA qA qA qA qA qA qA A  1                       =      )                           
commandbutton      
commandbutton      szergebnisanzeigen      FORM1      Top = 444
Left = 144
Height = 16
Width = 79
Caption = "szergebnisanzeigen"
Enabled = .F.
Visible = .F.
Name = "szergebnisanzeigen"
     )PROCEDURE Click
	sicht(1+13,1+ 10) = 0
	sicht(1+13,1+ 11) = 0
	sicht(1+13,1+ 12) = 0

	For i = 1 To 12
*!*			IF i = 12
*!*				SET STEP ON 
*!*			endif
		sicht(1+i,1+ 3) = sicht(1+i,1+ 1) * sicht(1+i,1+ 2) / 100
		sicht(1+i,1+ 6) = sicht(1+i,1+ 4) * sicht(1+i,1+ 5) / 100
		IF zi(1+2) = 9 &&Niedersachsen
			IF welchesjahr < 2022
				sicht(1+i,1+ 9) = sicht(1+i,1+ 7) * 100 * sicht(1+i,1+ 8)
			ELSE
				IF zi(1+8) >= 3
					sicht(1+i,1+ 9) = (sicht(1+i,1+ 7) * 100 * 2) + (500 * 100 * (sicht(1+i,1+ 8) - 2)) &&hier
				ELSE
					sicht(1+i,1+ 9) = sicht(1+i,1+ 7) * 100 * sicht(1+i,1+ 8)
				endif
			ENDIF
		else
			sicht(1+i,1+ 9) = sicht(1+i,1+ 7) * 100 * sicht(1+i,1+ 8)
		endif
		sicht(1+i,1+ 11) = sicht(1+i,1+ 3) + sicht(1+i,1+ 6) + sicht(1+i,1+ 9) + sicht(1+i,1+ 10)
		sicht(1+13,1+ 10) = sicht(1+13,1+ 10) + sicht(1+i,1+ 10)
		sicht(1+13,1+ 11) = sicht(1+13,1+ 11) + sicht(1+i,1+ 11)
		sicht(1+13,1+ 12) = sicht(1+13,1+ 12) + sicht(1+i,1+ 12)
	Next

*!*		With mytablett.MSFlexGrid1
*!*			.Visible = False
		For j = 1 To 12
			SELECT szdrucken
			goto j && + 5
*!*				.Col = 1
			hsbxx = "sp1"
			If sicht(1+j,1+ 2) = 0
				replace szdrucken.&hsbxx with ""
			Else
				If sicht(1+j,1+ 1) > 0
					rrr = myformat(sicht(1+j,1+ 1) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 1) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				Endif
			ENDIF
			flush
*!*				.Col = 2
			hsbxx = "sp2"
			If sicht(1+j,1+ 2) > 0
				rrr = myformat(sicht(1+j,1+ 2), "###,##0.00")
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 2), "###,##0.00")&& + "   "
			Else
				replace szdrucken.&hsbxx with ""
			ENDIF
			flush
*!*				.Col = 3
			hsbxx = "sp3"
			If sicht(1+j,1+ 5) = 0
				replace szdrucken.&hsbxx with ""
			Else
				If sicht(1+j,1+ 4) > 0
					rrr = myformat(sicht(1+j,1+ 4) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 4) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				Endif
			ENDIF
			flush
*!*				.Col = 4
			hsbxx = "sp4"
			If sicht(1+j,1+ 5) > 0
				rrr = myformat(sicht(1+j,1+ 5), "###,##0.00")
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 5), "###,##0.00")&& + "   "
			Else
				replace szdrucken.&hsbxx with ""
			ENDIF
			flush
*!*				.Col = 5
			hsbxx = "sp5"
			If sicht(1+j,1+ 7) > 0
				IF zi(1+2) = 9 &&Niedersachsen
					IF welchesjahr < 2022
						rrr = myformat(sicht(1+j,1+ 7), "###,##0.00")
					ELSE
						IF zi(1+18) >= 3
							rrr = "250/500"
						ELSE
							rrr = myformat(sicht(1+j,1+ 7), "###,##0.00")
						endif
					endif
				ELSE
					rrr = myformat(sicht(1+j,1+ 7), "###,##0.00")
				endif
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 7), "###,##0.00")&& + "   "
			Else
				replace szdrucken.&hsbxx with ""
			ENDIF
			flush
*!*				.Col = 6
			hsbxx = "sp6"
			If sicht(1+j,1+ 7) = 0
				replace szdrucken.&hsbxx with ""
			Else
				If sicht(1+j,1+ 8) > 0
					IF zi(1+2) = 9 &&Niedersachsen
						IF welchesjahr < 2022
							rrr = myformat(sicht(1+j,1+ 8), "###")
						ELSE
							IF zi(1+18) >= 3
								rrr = "x2/x" + ALLTRIM(STR(sicht(1+j,1+ 8)-2,2,0))
							ELSE
								rrr = myformat(sicht(1+j,1+ 8), "###")
							ENDIF
						ENDIF
					else
						rrr = myformat(sicht(1+j,1+ 8), "###")
					endif
					replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 8), "###")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				Endif
			ENDIF
			flush
*!*				.Col = 7
			hsbxx = "sp7"
			If j = 12
				If wnw.bundesbeamter(1+11) = "j" .And. Renteab > 0
					rrr = myformat(-Renteab * 0.0085 / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat(-Renteab * 0.0085 / 100, "###,##0.00")&& + "   "
					sicht(1+12,1+ 12) = sicht(1+12,1+ 12) - Renteab * 0.0085
				Else
					If sicht(1+j,1+ 10) > 0
						rrr = myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")
						replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")&& + "   "
					Else
						replace szdrucken.&hsbxx with ""
					Endif
				Endif
			Else
				If sicht(1+j,1+ 10) > 0
					rrr = myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				Endif
			ENDIF
			flush

			If j = 12
				Do Case && zi(1+2)
					Case zi(1+2) = 9
						IF welchesjahr < 2022
							Do Case && zi(1+18)
								Case zi(1+18) = 3
									sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 28000
								Case zi(1+18) = 4
									sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 56000
								Case zi(1+18) = 5
									sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 84000
								Case zi(1+18) = 6
									sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 112000
							ENDCASE
						ELSE
*!*								Do Case && zi(1+18)
*!*									Case zi(1+18) = 3
*!*										sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 50000
*!*									Case zi(1+18) = 4
*!*										sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 100000
*!*									Case zi(1+18) = 5
*!*										sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 150000
*!*									Case zi(1+18) = 6
*!*										sicht(1+j,1+ 10) = sicht(1+j,1+ 10) + 200000
*!*								Endcase
						endif								
					Case zi(1+2) = 14
						If zi(1+18) > 2
							sicht(1+j,1+ 10) = 37444 * (zi(1+18) - 2)
						Endif
				Endcase
			Endif&&j12
			If sicht(1+j,1+ 10) > 0
				rrr = myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 10) / 100, "###,##0.00")&& + "   "
				flush
			Endif

			&&If sicht(1+j,1+ 10) > 0 Then .Text = myformat(sicht(1+j, 10) / 100, "###,##0.00") + "   " Else .Text = ""
*!*				.Col = 8
			hsbxx = "sp8"
			If j = 12
				Do Case && zi(1+2)
					Case zi(1+2) = 9
						IF welchesjahr < 2022
							Do Case && zi(1+18)
								Case zi(1+18) = 3
									sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 28000
								Case zi(1+18) = 4
									sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 56000
								Case zi(1+18) = 5
									sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 84000
								Case zi(1+18) = 6
									sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 112000
							ENDCASE
						ELSE
*!*								Do Case && zi(1+18)
*!*									Case zi(1+18) = 3
*!*										sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 50000
*!*									Case zi(1+18) = 4
*!*										sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 100000
*!*									Case zi(1+18) = 5
*!*										sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 150000
*!*									Case zi(1+18) = 6
*!*										sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 200000
*!*								Endcase
						endif						
					Case zi(1+2) = 14
						If zi(1+18) > 2
							sicht(1+j,1+ 11) = sicht(1+j,1+ 11) + 37444 * (zi(1+18) - 2)
						Endif
				Endcase
			Endif&&J12
			If sicht(1+j,1+ 11) > 0
				rrr = myformat(sicht(1+j,1+ 11) / 100, "###,##0.00")
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 11) / 100, "###,##0.00")&& + "   "
			Else
				replace szdrucken.&hsbxx with ""
			ENDIF
			flush

*!*				.Col = 9
			hsbxx = "sp9"
			If j = 12

				Do Case && zi(1+2)
					Case zi(1+2) = 9
						IF welchesjahr < 2022
							Do Case && zi(1+18)
								Case zi(1+18) = 3
									sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 28000
								Case zi(1+18) = 4
									sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 56000
								Case zi(1+18) = 5
									sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 84000
								Case zi(1+18) = 6
									sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 112000
							ENDCASE
						ELSE
							sicht(1+j,1+ 12) = sicht(1+j,1+ 11)
*!*								Do Case && zi(1+18)
*!*									Case zi(1+18) = 3
*!*										sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 50000
*!*									Case zi(1+18) = 4
*!*										sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 100000
*!*									Case zi(1+18) = 5
*!*										sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 150000
*!*									Case zi(1+18) = 6
*!*										sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 200000
*!*								Endcase
						endif						
					Case zi(1+2) = 14
						If zi(1+18) > 2
							sicht(1+j,1+ 12) = sicht(1+j,1+ 12) + 37444 * (zi(1+18) - 2)
						Endif
				Endcase
			Endif
			If sicht(1+j,1+ 12) > 0
				rrr = myformat(sicht(1+j,1+ 12) / 100, "###,##0.00")
				replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+j,1+ 12) / 100, "###,##0.00")&& + "   "
			Else
				replace szdrucken.&hsbxx with ""
			ENDIF
			flush
		Next

		Do Case && zi(1+2)
			Case (zi(1+2) >= 0 .And. zi(1+2) <= 8) .Or. (zi(1+2) >= 10 .And. zi(1+2) <= 13) .Or. (zi(1+2) >= 15 .And. zi(1+2) <= 18)

				goto 15 &&20 summe
*!*					.Col = 1
				hsbxx = "sp1"
				If sicht(1+12,1+ 2) = 0
					replace szdrucken.&hsbxx with ""
				Else
					If sicht(1+13,1+ 1) > 0
						rrr = myformat(sicht(1+13,1+ 1) / 100, "###,##0.00")
						replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+13,1+ 1) / 100, "###,##0.00")&& + "   "
					Else
						replace szdrucken.&hsbxx with ""
					Endif
				ENDIF
				flush
*!*					.Col = 3
				hsbxx = "sp3"
				If sicht(1+12,1+ 5) = 0
					replace szdrucken.&hsbxx with ""
				Else
					If sicht(1+13,1+ 4) > 0
						rrr = myformat(sicht(1+13,1+ 4) / 100, "###,##0.00")
						replace szdrucken.&hsbxx with rrr &&myformat(sicht(1+13,1+ 4) / 100, "###,##0.00") &&+ "   "
					Else
						replace szdrucken.&hsbxx with ""
					Endif
				ENDIF
				flush
*!*					.Col = 7
				hsbxx = "sp7"
				If sicht(1+13,1+ 10) > 0
					rrr = myformat((sicht(1+13,1+ 10)) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat((sicht(1+13,1+ 10)) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				ENDIF
				flush
*!*					.Col = 8
				hsbxx = "sp8"
				If sicht(1+13,1+ 11) > 0
					rrr = myformat((sicht(1+13,1+ 11)) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat((sicht(1+13,1+ 11)) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				ENDIF
				flush
*!*					.Col = 9
				hsbxx = "sp9"
				If sicht(1+13,1+ 12) > 0
					rrr = myformat((sicht(1+13,1+ 12)) / 100, "###,##0.00")
					replace szdrucken.&hsbxx with rrr &&myformat((sicht(1+13,1+ 12)) / 100, "###,##0.00")&& + "   "
				Else
					replace szdrucken.&hsbxx with ""
				ENDIF
				flush
		Endcase

*!*			.Visible = True
*!*		Endwith
ENDPROC
     /                              +   %                         U   T    T    T  
   (; T   C   C   d; T   C   C   d %C 	 % 
:; T   
C   dC 	    %C	 M T   
C   dP  C 	   ; T   
C   dC 	     2; T   
C   dC 	   U T   C   C   C 
  C   / T  C  C   / T  C  C   / T  
C
  C 
     ( F 	 #  T  sp1 %C    $ replace szdrucken.&hsbxx with ""
 : %C    
- T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 6$ replace szdrucken.&hsbxx with ""
   [ T  sp2 %C    ) T CC   
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ T  sp3 %C    A$ replace szdrucken.&hsbxx with ""
  %C    - T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
   [ T  sp4 %C    k) T CC   
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ T  sp5 %C     %C 	 % 
) T CC   
 ###,##0.00   %C L T  250/500 }) T CC   
 ###,##0.00    ) T CC   
 ###,##0.00  & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ T  sp6 %C    d$ replace szdrucken.&hsbxx with ""
 	 %C 	   	 %C 	N	 % 
" T CC 	   ###  J	 %C 	. T  x2/xCCC 	   Z F	" T CC 	   ###    x	" T CC 	   ###  & replace szdrucken.&hsbxx with rrr 
 	$ replace szdrucken.&hsbxx with ""
   [ T  sp7 % O$ %C	 
  j   	
/ T C c rh?d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
0 T  

C

    rh? K %C    - T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 G$ replace szdrucken.&hsbxx with ""
    %C    - T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
   [ % 

 H
 C 	n
 % 
b

 HP^
 C - T   C   `m C / T   C      C 
/ T   C    H  C ^
/ T   C      j
  C 
 %C 
- T   D  C     %C    D- T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 [  T  sp8 % 6
 Hv2 C 	 % 

 H C - T   C   `m C 0/ T   C      C t/ T   C    H  C / T   C        C 2 %C .< T   C   D  C     %C    - T CC   d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ T  sp9 % 
 H C 	 % 
Q
 H?M C - T   
C 
  `m C / T   
C 
     C 	/ T   
C 
   H  C M/ T   
C 
     ( T   
C     C  %C < T   
C 
  D  C     %C 
   f- T CC 
  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ 
 Hc C   C 	 C 
 C 
	 C  C 		 # T  sp1 %C
   c$ replace szdrucken.&hsbxx with ""
  %C   ) T CC  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
   [ T  sp3 %C
   V$ replace szdrucken.&hsbxx with ""
  %C   ) T CC  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
   [ T  sp7 %C   u* T CC  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [ T  sp8 %C   !* T CC  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 M$ replace szdrucken.&hsbxx with ""
  [ T  sp9 %C
   * T CC
  d
 ###,##0.00 & replace szdrucken.&hsbxx with rrr 
 $ replace szdrucken.&hsbxx with ""
  [  U  SICHT I ZI WELCHESJAHR J	 SZDRUCKEN HSBXX RRR MYFORMAT WNW
 BUNDESBEAMTER RENTEAB Click,     1 rQ! Q A A  A QA tq  A a AA A A a AA A A a AA A A a AA A Q! QA A A  A a AA A A Q!! Q !A A  !A a AA A A Aa a AA A  a AA A A  Q! QQQQA  K QQA A A aA A  Q! QQQQA  K QQA A A a AA A  Q! QQQQA  K QQA A A a AA A A  1 A a AA A A A a AA A A a AA A a AA A a AA A A 4                       )      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 444
Left = 711
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0	+   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6GD126OB21431473693      /  F      ]                                                       WINDOWS _6GD126OB31495422762                                                                     WINDOWS _6GD126OBC1431473693e'      z'  '  '  '      	(  )                                               WINDOWS _6GD126OBD1431473693*      *  *  *  *      A+  w+                                               WINDOWS _6GD126OBE1431473693F,      S,  `,  n,  {,                                                           WINDOWS _6GD126OBF1431473693 -      
-  -  (-  5-                                                           WINDOWS _6GD126OBG1431473693-      -  -  -  -                                                           WINDOWS _6GD126OBH1431473693:.      G.  T.  b.  o.                                                           WINDOWS _6GD126OBI1431473693.      .  .  /  /                                                           WINDOWS _6GD126OBJ1431473693}/      /  /  /  /                                                           WINDOWS _6GD126OBK14314736930      +0  80  F0  S0                                                           WINDOWS _6GD126OBL14314736930      0  0  0  0                                                           WINDOWS _6GD126OBM1431473693`1      m1  z1  1  1                                                           WINDOWS _6GD126OBN14314736932      2  2  *2  72                                                           WINDOWS _6GD126OBO14314736932      2  2  2  2                                                           WINDOWS _6GD126OBP1431473693Y3      f3  s3  3  3                                                           WINDOWS _6GD126OBQ14314736934      "4  /4  >4  K4                                                           WINDOWS _6GD126OBR14314736934      4  4  4  4                                                           WINDOWS _6GD126OBS1431473693O5      \5  i5  x5  5                                                           WINDOWS _6GD126OBT14314736935      5  6  6  "6                                                           WINDOWS _6GD126OBU14314736936      6  6  6  6                                                           WINDOWS _6GD126OBV1431473693&7      37  @7  O7  \7                                                           WINDOWS _6GD126OBW14314736937      7  7  7  7                                                           WINDOWS _6GD126OBX14314736938      8  8  8  8                                                           WINDOWS _6GD126OBY1431473693u9      9  9  9  9                                                           WINDOWS _6GD126OBZ1431473693U:      b:  o:  ~:  :                                                           WINDOWS _6GD126OC014314736930;      =;  J;  Y;  f;                                                           WINDOWS _6GD126OC11431473693
<      <  '<  6<  C<                                                           WINDOWS _6GD126OC21431473693<      <  =  =   =                                                           WINDOWS _6GD126OC31431473693=      =  =  =  =                                                           WINDOWS _6GD126OB21431473693>      >  >  >  >                                                           WINDOWS _6GD126OB31431531553?      ?  ?  ?  ?                                                           WINDOWS _6GD126OC61431531608p@      }@  @  @  @                                                           WINDOWS _6GD126OC71431531608GA      TA  aA  pA  }A                                                           WINDOWS _6GD126OC81431531608B      +B  8B  GB  TB                                                           WINDOWS _6GD126OC91431531608B      C  C  C  +C                                                           WINDOWS _6GD126OCA1431531608C      C  C  C  D                                                           WINDOWS _6GD126OCB1431531608D      D  D  D  D                                                           WINDOWS _6GE0U2SFO1431531584zE      E  E  E  E                                                           WINDOWS _6GE0U2SFP1431531584fF      sF  F  F  F                                                           WINDOWS _6RW0KWTMO1468353964dG  tG  G  G  G  G                                                           COMMENT RESERVED                                KH                                                            Ht                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 494
Width = 328
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Familienzuschlag"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
	&&ffentlicher Dienst
FOR hsa = 19 TO 34
	hsaxx = ALLTRIM(STR(hsa,2,0))
	thisform.label&hsaxx..caption = ""
NEXT

	&&Ermittlung des Kinderzuschlags fr 1 Kind
	Do Case && zi(1+4)
		Case zi(1+4) < 6 &&8 &&4 &&AOK_version nicht sicher ob and not zi(1+4) = 6 passt
			i = 10
	Endcase
	
	myget(filenummer, myposition,"employee")
	
	Do getvalues &&Do attached

	kinderzuschlag = grundbetrag(1+17) / 100 &&vorher ohne / 100

	*hier nrw mietstufe einfgen
	IF ((welchesjahr = 2022 .and. zi(1+20) = 11) .or. welchesjahr >= 2023) .and. zi(1+2) = 10 .and. zi(1+4) < 6 &&Beamte NRW ab 12/2022
		DO nrwfamzu_2022
	endif
	
	*hier RLP mietstufe einfgen
	IF welchesjahr >= 2022 .and. zi(1+2) = 11 .and. zi(1+4) < 6 &&Beamte RLP ab 01/2022	
		DO rlpfamzu_2022
	ENDIF

	*hier bayern mietstufe einfgen
	IF welchesjahr >= 2020 .and. zi(1+2) = 1 .and. zi(1+4) < 6 .and. .f.&&Beamte BAYERN ab 01/2023 rckwirkend bis 01/2020
		DO byfamzu_2023
		IF wvw.reserve7 = 0
			grundbetrag(1+16) = 0.00
			grundbetrag(1+17) = 0.00
			grundbetrag(1+18) = 0.00
			grundbetrag(1+19) = 0.00
			grundbetrag(1+20) = 0.00
			grundbetrag(1+21) = 0.00
			grundbetrag(1+22) = 0.00
		endif
	endif

	IF welchesjahr >= 2022 .and. zi(1+2) = 6 .and. zi(1+4) < 6 &&Beamte HH ab 01/2022	
		DO HHfamzu_2022
	ENDIF


	For i = 1 To 18
		

			Do Case && i
				Case i = 1
					Do Case && zi(1+4)
						Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
							numbr = grundbetrag(1+15) / 100 &&vorher ohne / 100
						Case (zi(1+4) >= 6 .And. zi(1+4) <= 8)
							numbr = 0
					Endcase
				Case  Inlist(i, 2, 3)
					Do Case && zi(1+4)
						Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
							numbr = (grundbetrag(1+16) / 2)  / 100 &&vorher ohne / 100
						Case (zi(1+4) >= 6 .And. zi(1+4) <= 8)
							numbr = 0
					Endcase

				Case (i >= 4 .And. i <= 9)
					numbr = grundbetrag(1+13 + i)  / 100 &&vorher ohne / 100
				Case i = 10
					numbr = wert(1+8) / 100 &&vorher ohne / 100
*!*						thisform.zeile10.FontBold = True
*!*						thisform.Kasten10.FontBold = True
				Case  Inlist(i, 11, 12)
					numbr = 0
				Case i = 13
					DO case
						*hier NRW mietstufe einfgen
						case ((welchesjahr = 2022 .and. zi(1+20) = 11) .or. welchesjahr >= 2023) .and. zi(1+2) = 10 .and. zi(1+4) < 6 &&Beamte NRW ab 12/2022
							numbr = 0.00
					
						*hier RLP mietstufe einfgen
						case welchesjahr >= 2022 .and. zi(1+2) = 11 .and. zi(1+4) < 6 &&Beamte RLP ab 01/2022	
							numbr = 0.00

						*hier HH Ergnzungszuschlag einfgen
						case welchesjahr >= 2022 .and. zi(1+2) = 6 .and. zi(1+4) < 6 &&Beamte RLP ab 01/2022	
							numbr = 0.00

						otherwise
							numbr = ((grundbetrag(1+17) / 100) - kinderzuschlag)  / 100 &&vorher ohne / 100
					endcase
				
					
				Case (i >= 14 .And. i <= 18)
					DO case
						*hier NRW mietstufe einfgen
						case ((welchesjahr = 2022 .and. zi(1+20) = 11) .or. welchesjahr >= 2023) .and. zi(1+2) = 10 .and. zi(1+4) < 6 &&Beamte NRW ab 12/2022
							numbr = 0.00
					
						*hier RLP mietstufe einfgen
						case welchesjahr >= 2022 .and. zi(1+2) = 11 .and. zi(1+4) < 6 &&Beamte RLP ab 01/2022	
							numbr = 0.00

						*hier HH Ergnzungszuschlag einfgen
						case welchesjahr >= 2022 .and. zi(1+2) = 6 .and. zi(1+4) < 6 &&Beamte RLP ab 01/2022	
							numbr = 0.00

						otherwise
							&&numbr = grundbetrag(1+i + 4) - grundbetrag(1+i + 3) - kinderzuschlag
							numbr = ((grundbetrag(1+18) / 100) - (grundbetrag(1+17) / 100) - kinderzuschlag) &&vorher ohne / 100
					endcase
			Endcase

			Do zahlintextnumbr &&Do attached
			
*			wer = Leftc(wer, Len(wer) - 1)
			xxx=ALLTRIM(STR(i+18,2,0))
			thisform.label&xxx..Caption = wer
			thisform.label&xxx..BackColor = QBColor(15)
	*	Endwith
	Next
	With thisform
*!*			.Kasten11.Visible = False
*!*			.Kasten12.Visible = False
*!*			.zeile12.Width = 450
		Do Case && zi(1+8)
			Case zi(1+8) = 0
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor

			Case zi(1+8) = 1
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				.label20.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				If zi(1+3) = 0
					.label21.BackColor = QBColor(14)
				Endif
				&&farbenrgb(1+13) &&myform1.z8.BackColor

			Case (zi(1+8) >= 2 .And. zi(1+8) <= 7)
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				.label20.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				If zi(1+3) = 0
					.label21.BackColor = QBColor(14)
				Endif
				&&farbenrgb(1+13) &&myform1.z8.BackColor
				Do Case && zi(1+4)
					Case (zi(1+4) >= 0 .And. zi(1+4) <= 5)
						yyy=ALLTRIM(STR(zi(1+8) + 2 + 18))
						.label&yyy..BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Endcase

			Case (zi(1+8) >= 8 .And. zi(1+8) <= 13)
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Do Case && zi(1+4)
					Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
						yyy=ALLTRIM(STR(zi(1+8) - 4 + 18))
						.label&yyy..BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Endcase
		Endcase
	ENDWITH
	
thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	

	


ENDPROC
     
    
  
                        p   %   A      Q
  y   _            U    C     U  THISFORM SIZER	 FRMRESIZE
   ("T  T CC   Z& thisform.label&hsaxx..caption = ""
 
 He   C 
 
 T 
  C     employee    T C	 dM %
  C 		 
  C 
	 C 
	   0 %
  C 	 C 
	S   5 %
  C 	 C 
	 -	h 
  %   d T	          T	          T	          T	          T	          T	          T	           0 %
  C 	 C 
	     (
 H+  x
 HtD C   C 	 C 
 C 	B T C	 d% C  C 	t
 T    C .
 H*D C   C 	 C 
 C 	 T C	 d% C  C 	*
 T       		d T C 	 d  
 T C	 d C 
 T    

 HM 
  C 		 
  C 
	 C 
	, T         0 
  C 	 C 
	q T         0 
  C 	 C 
	 T          2 T C	 d d     	+
 H'M 
  C 		 
  C 
	 C 
	m T         0 
  C 	 C 
	 T         0 
  C 	 C 
	 T          2'( T C	 dC	 d      T CC  Z% thisform.label&xxx..Caption = wer
/ thisform.label&xxx..BackColor = QBColor(15)
 
  *

 H&
 C	   T  C  C	 Z T  C  T  C  %C  V T  C  % C	  C	 	R	 T  C  T  C  %C   T  C  
 HN	% C   C 	N	 T CCC	 Z( .label&yyy..BackColor = QBColor(14) 
 % C	  C	 
	&
 T  C 
 H	"
D C   C 	 C 
 C 	"
 T CCC	 Z( .label&yyy..BackColor = QBColor(14) 
   
     T      T       
  !  T " a U#  HSA HSAXX ZI I MYGET
 FILENUMMER
 MYPOSITION	 GETVALUES KINDERZUSCHLAG GRUNDBETRAG WELCHESJAHR
 NRWFAMZU_2022
 RLPFAMZU_2022 BYFAMZU_2023 WVW RESERVE7 HHFAMZU_2022 NUMBR WERT ZAHLINTEXTNUMBR XXX THISFORM LABEL19	 BACKCOLOR QBCOLOR LABEL20 LABEL21 YYY SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 rqaA  Q A r Rq A q A Sq AA A q A s  AQQ A Q AQ A QS  QQQ A  QQQ A A r QB   QQRQQQQA SQQQQA  QA RQ AA A A  rq  5                       ,         G         )   
                        
commandbutton      
commandbutton      Command1      FORM1      UTop = 449
Left = 8
Height = 31
Width = 152
Caption = "Hilfe"
Name = "Command1"
      PROCEDURE Click
Do Case && zi(1+4)
	Case (zi(1+4) >= 0 .And. zi(1+4) <= 9)&&4
		myid = 20225
	Case (zi(1+4) >= 10 .And. zi(1+4) <= 27)&&5 To 22
		myid = 20360
Endcase
inet = 111
Msg = ALLTRIM(STR(myid,10,0))
Do insinternet &&Do attached
ENDPROC
     ~    e  e                        ^   %                           U   
 H
 s % C    C  		@  T O% C  
 C  	s  T O 
 T o T CC 
 Z   U  ZI MYID INET MSG INSINTERNET Click,     1  Q Q A  qq 1                              )   e                        
commandbutton      
commandbutton      Command2      FORM1      [Top = 449
Left = 165
Height = 31
Width = 152
Caption = "schlieen"
Name = "Command2"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            label      label      Label1      FORM1      }FontBold = .T.
FontSize = 14
Caption = "Familienzuschlag"
Height = 24
Left = 12
Top = 10
Width = 229
Name = "Label1"
      label      label      Label2      FORM1      YCaption = "Grundbetrag"
Height = 19
Left = 14
Top = 56
Width = 161
Name = "Label2"
      label      label      Label3      FORM1      gCaption = "1/2 Verh.Zuschl. fr sich"
Height = 19
Left = 14
Top = 77
Width = 161
Name = "Label3"
      label      label      Label4      FORM1      gCaption = "1/2 Verh.Zuschl. f. Eheg."
Height = 19
Left = 14
Top = 98
Width = 161
Name = "Label4"
      label      label      Label5      FORM1      bCaption = "Zuschlag fr 1 Kind"
Height = 19
Left = 14
Top = 119
Width = 161
Name = "Label5"
      label      label      Label6      FORM1      dCaption = "Zuschlag fr 2 Kinder"
Height = 19
Left = 14
Top = 140
Width = 161
Name = "Label6"
      label      label      Label7      FORM1      dCaption = "Zuschlag fr 3 Kinder"
Height = 19
Left = 14
Top = 161
Width = 161
Name = "Label7"
      label      label      Label8      FORM1      dCaption = "Zuschlag fr 4 Kinder"
Height = 19
Left = 14
Top = 182
Width = 161
Name = "Label8"
      label      label      Label9      FORM1      dCaption = "Zuschlag fr 5 Kinder"
Height = 19
Left = 14
Top = 203
Width = 161
Name = "Label9"
      label      label      Label10      FORM1      eCaption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 14
Top = 224
Width = 161
Name = "Label10"
      label      label      Label11      FORM1      wFontBold = .T.
Caption = "Summe der gelben Felder"
Height = 19
Left = 14
Top = 245
Width = 161
Name = "Label11"
      label      label      Label12      FORM1      ~Caption = "darin sind folgende Erhhungsbetrge enthalten"
Height = 19
Left = 14
Top = 295
Width = 285
Name = "Label12"
      label      label      Label13      FORM1      _Caption = "fr das 1. Kind"
Height = 19
Left = 14
Top = 316
Width = 161
Name = "Label13"
      label      label      Label14      FORM1      _Caption = "fr das 2. Kind"
Height = 19
Left = 14
Top = 337
Width = 161
Name = "Label14"
      label      label      Label15      FORM1      _Caption = "fr das 3. Kind"
Height = 19
Left = 14
Top = 358
Width = 161
Name = "Label15"
      label      label      Label16      FORM1      _Caption = "fr das 4. Kind"
Height = 19
Left = 14
Top = 379
Width = 161
Name = "Label16"
      label      label      Label17      FORM1      _Caption = "fr das 5. Kind"
Height = 19
Left = 14
Top = 400
Width = 161
Name = "Label17"
      label      label      Label18      FORM1      _Caption = "fr das 6. Kind"
Height = 19
Left = 14
Top = 421
Width = 161
Name = "Label18"
      label      label      Label19      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Grundbetrag"
Height = 19
Left = 202
Top = 56
Width = 107
BackColor = 255,255,255
Name = "Label19"
      label      label      Label20      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. fr sich"
Height = 19
Left = 202
Top = 77
Width = 107
BackColor = 255,255,255
Name = "Label20"
      label      label      Label21      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. f. Eheg."
Height = 19
Left = 202
Top = 98
Width = 107
BackColor = 255,255,255
Name = "Label21"
      label      label      Label22      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 1 Kind"
Height = 19
Left = 202
Top = 119
Width = 107
BackColor = 255,255,255
Name = "Label22"
      label      label      Label23      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 2 Kinder"
Height = 19
Left = 202
Top = 140
Width = 107
BackColor = 255,255,255
Name = "Label23"
      label      label      Label24      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 3 Kinder"
Height = 19
Left = 202
Top = 161
Width = 107
BackColor = 255,255,255
Name = "Label24"
      label      label      Label25      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 4 Kinder"
Height = 19
Left = 202
Top = 182
Width = 107
BackColor = 255,255,255
Name = "Label25"
      label      label      Label26      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 5 Kinder"
Height = 19
Left = 202
Top = 203
Width = 107
BackColor = 255,255,255
Name = "Label26"
      label      label      Label27      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 202
Top = 224
Width = 107
BackColor = 255,255,255
Name = "Label27"
      label      label      Label28      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 202
Top = 245
Width = 107
BackColor = 255,255,255
Name = "Label28"
      label      label      Label31      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 1. Kind"
Height = 19
Left = 202
Top = 316
Width = 107
BackColor = 255,255,255
Name = "Label31"
      label      label      Label32      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 2. Kind"
Height = 19
Left = 202
Top = 337
Width = 107
BackColor = 255,255,255
Name = "Label32"
      label      label      Label33      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 3. Kind"
Height = 19
Left = 202
Top = 358
Width = 107
BackColor = 255,255,255
Name = "Label33"
      label      label      Label34      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 4. Kind"
Height = 19
Left = 202
Top = 379
Width = 107
BackColor = 255,255,255
Name = "Label34"
      label      label      Label35      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 5. Kind"
Height = 19
Left = 202
Top = 400
Width = 107
BackColor = 255,255,255
Name = "Label35"
      label      label      Label36      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 6. Kind"
Height = 19
Left = 202
Top = 421
Width = 107
BackColor = 255,255,255
Name = "Label36"
      label      label      Label29      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 198
Top = 267
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label29"
      label      label      Label30      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 198
Top = 288
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label30"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 477
Left = 312
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0
A   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6GF0IVD851431586313      /  F      ]                                                       WINDOWS _6GF0IVD861431588620                      9                                               WINDOWS _6GF0IVD871431587529                  B                                                 WINDOWS _6GF0IVD881431587529a      v               ?                                                WINDOWS _6GF0JCXXX1431586877!      !  (!  6!  C!      !   "                                               WINDOWS _6GF0JCXXY1431586877#      #  #  ,#  9#      #  $                                               WINDOWS _6GF0JCXXZ1431586877$      %  %  "%  /%      %  &                                               WINDOWS _6GF0JCXY01431586877&      &  
'  '  %'      '  (                                               WINDOWS _6GF0JCXY11431586877(      (   )  )  )      )  )                                               WINDOWS _6GF0JCXY21431586877*      *  *  +  +      +  +                                               WINDOWS _6GF0JCXY31431586877,      ,  ,  ,  -      -  -                                               WINDOWS _6GF0JCXY41431586877.      .  .  .  .      /  /                                               WINDOWS _6GF0JCXY514315868770      0  0  0  0      1  1                                               WINDOWS _6GF0JCXY614315868772      2  2  2  2      x3  3                                               WINDOWS _6GF0JCXY714315868774      4  4  4  4      r5  5                                               WINDOWS _6GF0JCXY814315868776      6  6  6  6      l7  7                                               WINDOWS _6GF0JCXY914315868778      8  8  8  8      f9  9                                               WINDOWS _6GF0JCXYA1431586877:      :  :  :  :      `;  ;                                               WINDOWS _6GF0JCXYD1431586877<      <  <  <  <      Z=  =                                               WINDOWS _6GF0JCXYE1431586877>      >  >  >  >      T?  ?                                               WINDOWS _6GF0JCXYF1431586877@      @  @  @  @      NA  A                                               WINDOWS _6GF0JCXYG1431586877B      B  B  B  B      HC  C                                               WINDOWS _6GF0JCXYH1431586877D      D  D  D  D      BE  E                                               WINDOWS _6GF0JCXYI1431586877{F      F  F  F  F      <G  G                                               WINDOWS _6GF0JCXYJ1431587426uH      H  H  H  H      4I  I                                               WINDOWS _6GF0JCXYK1431586877mJ      zJ  J  J  J       K  vK                                               WINDOWS _6GF0JCXYL1431586877[L      hL  uL  L  L      M  dM                                               WINDOWS _6GF0JCXYM1431586877IN      VN  cN  rN  N      N  RO                                               WINDOWS _6GF0JCXYN14315868777P      DP  QP  `P  mP      P  @Q                                               WINDOWS _6GF0JCXYO1431586877%R      2R  ?R  NR  [R      R  .S                                               WINDOWS _6GF0JCXYP1431586877T       T  -T  <T  IT      T  U                                               WINDOWS _6GF0JCXYQ1431586877V      V  V  +V  8V      V  W                                               WINDOWS _6GF0JCXYR1431586877W      W  X  X  'X      X  X                                               WINDOWS _6GF0JCXYS1431586877Y      Y  Y  	Z  Z      Z  Z                                               WINDOWS _6GF0JCXYT1431586877[      [  [  [  \      \  \                                               WINDOWS _6GF0JCXYU1431586877]      ]  ]  ]  ]      t^  ^                                               WINDOWS _6GF0JCXYV1431586877_      _  _  _  _      e`  `                                               WINDOWS _6GF0JCXYW1431586877a      a  a  a  a      fb  b                                               WINDOWS _6GF0JCXYX1431586877c      c  c  c  c      Wd  d                                               WINDOWS _6GF0JCXYY1431586877e      e  e  e  e      Hf  f                                               WINDOWS _6GF0JCXYZ1431586877g      g  g  g  g      9h  h                                               WINDOWS _6GF0JCXZ01431586877ti      i  i  i  i      *j  j                                               WINDOWS _6GF0JCXZ11431586877ek      rk  k  k  k      l  ql                                               WINDOWS _6GF0JCXZ21431586877Vm      cm  pm  m  m      n  bn                                               WINDOWS _6GF0JCXZ31431586877Go      To  ao  qo  ~o      o  Sp                                               WINDOWS _6GF0JCXZ414315868778q      Eq  Rq  bq  oq      q  Dr                                               WINDOWS _6GF0JJ59R1431587031)s      6s  Cs  Ss  `s      s  4t                                               WINDOWS _6GF0JJ59S1431587031u      &u  3u  Cu  Pu      u  $v                                               WINDOWS _6GF0JJ59T1431587031	w      w  #w  3w  @w      w  x                                               WINDOWS _6GF0JJ59U1431587031x      y  y  #y  0y      y  z                                               WINDOWS _6GF0JJ59V1431587031z      z  {  {   {      {  {                                               WINDOWS _6GF0JJ59W1431587031|      |  |  }  }      }  }                                               WINDOWS _6GF0JJ59X1431587031~      ~  ~  ~                                                         WINDOWS _6GF0JJ59Y1431587031      ɀ  ր          r  ȁ                                               WINDOWS _6GF0JJ59Z1431587031        ǂ  ׂ        c                                                 WINDOWS _6GF0JJ5A01431587031          Ȅ  Մ      T                                                 WINDOWS _6GF0JJ5A11431587031            Ɔ      E                                                 WINDOWS _6GF0JJ5A21431587031                  6                                                 WINDOWS _6GF0JJ5A31431587031q      ~            '  }                                               WINDOWS _6GF0JJ5A41431587031b      o  |            n                                               WINDOWS _6GF0JJ5A51431587031S      `  m  }        	  _                                               WINDOWS _6GF0JJ5A61431587031D      Q  ^  n  {        P                                               WINDOWS _6GF0KOYKR14315880735  E  e  t                                                               COMMENT RESERVED                                                                                            E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 492
Width = 421
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Abziehbare Stufen"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     
vPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
 
*!*		With thisform.zeile0
*!*			.Top = 5
*!*			.Left = 40
*!*			.Width = 400
*!*			.Height = 30
*!*			.FontSize = 13
*!*			.FontBold = True
*!*			.Caption = "Abziehbare Stufen"
*!*			.ForeColor = QBColor(12)
*!*			.backcolor = thisform.backcolor
*!*			.Visible = True
*!*		Endwith

	With thisform.zeile20
		.Top = 6
		.Left = 40
		.Width = 400
		.Height = 35
		.FontSize = 13
		.FontBold = True
		.Caption = "Vorweg gewhrbare Stufen"
		.ForeColor = QBColor(2)
		.backcolor = thisform.backcolor
		.Visible = True
	ENDWITH
	
	If welchesjahr > 2009 .And. zi(1+2) = 3 .And. zi(1+4) = 0
		DAStufen = 8
	Endif

	For i = 1 To DAStufen
		xxx=ALLTRIM(STR(i,2,0))
	*	With thisform.zeile&xxx.
			thisform.zeile&xxx..Top = 15 + i * 24 &&25 &&50
			thisform.zeile&xxx..Left = 40
			thisform.zeile&xxx..Width = 140
			thisform.zeile&xxx..Height = 17 &&25
		*	thisform.zeile&xxx..FontSize = myform1.z8.FontSize
			thisform.zeile&xxx..FontBold = False
			thisform.zeile&xxx..Caption = "Stufe " + ALLTRIM(STR(i,3,0))
			*thisform.zeile&xxx..BackColor = QBColor(14)
			thisform.zeile&xxx..backcolor = thisform.backcolor
			thisform.zeile&xxx..Visible = True
	*	Endwith
	Next

	For i = 1 To DAStufen
		xxx=ALLTRIM(STR(i - 1,5,0))
		yyy=ALLTRIM(STR(i,5,0))
		*With thisform.Kasten&xxx.
			thisform.Kasten&xxx..Top = thisform.zeile&yyy..Top &&25 + i * 24 &&25 &&50
			thisform.Kasten&xxx..Left = 190
			thisform.Kasten&xxx..Width = 100
			thisform.Kasten&xxx..Height = 17 &&25
			*thisform.Kasten&xxx..Outline = True
			numbr = grundbetrag(1+i - 1) / 100
			Do zahlintextnumbr &&Do attached
			*wer = Leftc(wer, Len(wer) - 1)
			thisform.Kasten&xxx..Caption = wer
			thisform.Kasten&xxx..BackColor = QBColor(14)
			thisform.Kasten&xxx..Visible = True
		*Endwith
	Next

	For i = 1 To DAStufen
		thisform.Kasten29.Visible = False
		xxx=ALLTRIM(STR(i + 14,4,0))
	*	With thisform.Kasten&xxx.
			thisform.Kasten&xxx..Top = (15 + (i * 24)) + 17&&25 &&+ 25
			thisform.Kasten&xxx..Left = 290
			thisform.Kasten&xxx..Width = 100
			thisform.Kasten&xxx..Height = 17 &&25
			numbr = (grundbetrag(1+i) - grundbetrag(1+i - 1)) / 100
			Do zahlintextnumbr &&Do attached
			thisform.Kasten&xxx..Caption = wer
			thisform.Kasten&xxx..BackColor = QBColor(15)
			*thisform.Kasten&xxx..Outline = True
			thisform.Kasten&xxx..Visible = True
	*	Endwith
	NEXT

	With myTablett
		xxx=ALLTRIM(STR(zi(1+7) + 15,4,0))
		thisform.Kasten&xxx..BackColor = QBColor(10)
		xxx=ALLTRIM(STR(zi(1+7) + 16,4,0))
		thisform.Kasten&xxx..BackColor = QBColor(10)
		If zi(1+7) > 0
			xxx=ALLTRIM(STR(zi(1+7) + 14,4,0))
			thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
		Endif
		&&QBColor(12)
		If zi(1+7) > 1
			xxx=ALLTRIM(STR(zi(1+7) + 13,4,0))
			thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
		Endif
		&&QBColor(12)
		If zi(1+7) > 2
			xxx=ALLTRIM(STR(zi(1+7) + 12,4,0))
			thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
		Endif
		&&QBColor(12)
		xxx=ALLTRIM(STR(DAStufen + 14,4,0))
		thisform.Kasten&xxx..Visible = False
	Endwith

	If DAStufen < 10
		i = 40
		j = 330
	Else
		i = 380
		j = 130
	Endif

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     \    C  C                        _   %   
      
  X   :
            U    C     U  THISFORM SIZER	 FRMRESIZE      T  T ( T  T # T 
 T  & T	  Vorweg gewhrbare Stufen T
 C  T     T
   0 %  C 	 C  	 
 T    (  T CC  Z* thisform.zeile&xxx..Top = 15 + i * 24 
! thisform.zeile&xxx..Left = 40
# thisform.zeile&xxx..Width = 140
$ thisform.zeile&xxx..Height = 17 
( thisform.zeile&xxx..FontBold = False
@ thisform.zeile&xxx..Caption = "Stufe " + ALLTRIM(STR(i,3,0))
6 thisform.zeile&xxx..backcolor = thisform.backcolor
& thisform.zeile&xxx..Visible = True
   (  T CC  Z T CC  Z7 thisform.Kasten&xxx..Top = thisform.zeile&yyy..Top 
# thisform.Kasten&xxx..Left = 190
$ thisform.Kasten&xxx..Width = 100
% thisform.Kasten&xxx..Height = 17 
 T C  d  & thisform.Kasten&xxx..Caption = wer
0 thisform.Kasten&xxx..BackColor = QBColor(14)
' thisform.Kasten&xxx..Visible = True
   (  T   
   T CC  Z3 thisform.Kasten&xxx..Top = (15 + (i * 24)) + 17
# thisform.Kasten&xxx..Left = 290
$ thisform.Kasten&xxx..Width = 100
% thisform.Kasten&xxx..Height = 17 
* T C  C  d  & thisform.Kasten&xxx..Caption = wer
0 thisform.Kasten&xxx..BackColor = QBColor(15)
' thisform.Kasten&xxx..Visible = True
 
   T CCC  Z0 thisform.Kasten&xxx..BackColor = QBColor(10)
 T CCC  Z0 thisform.Kasten&xxx..BackColor = QBColor(10)
 %C   T CCC  Z8 thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
  %C 7 T CCC 
 Z8 thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
  %C  T CCC  Z8 thisform.Kasten&xxx..BackColor = hex2rgb("&H8888FF")
  T CC  Z( thisform.Kasten&xxx..Visible = False
  % 


 T ( T J A T |
 T  
      T        T       
     T   a U   THISFORM ZEILE20 TOP LEFT WIDTH HEIGHT FONTSIZE FONTBOLD TRUE CAPTION	 FORECOLOR QBCOLOR	 BACKCOLOR VISIBLE WELCHESJAHR ZI DASTUFEN I XXX YYY NUMBR GRUNDBETRAG ZAHLINTEXTNUMBR KASTEN29 FALSE	 MYTABLETT J SIZER SAVEFORMSIZE MSCREENFAKTOR_H RESIZE
 AUTOCENTER Resize,      Init_     1 2       a! A  A rq1AbaB rqr1AQq bqB r121AQq arB  QA RA RA A      A  rq  2                       ,         G   k
      )   C                        
commandbutton      
commandbutton      Command1      FORM1      VTop = 447
Left = 63
Height = 31
Width = 136
Caption = "Hilfe"
Name = "Command1"
      PROCEDURE Click
Msg = "19"
inet = 111
If welchesjahr > 2009 .And. zi(1+2) = 3 .And. zi(1+4) = 0
	Msg = "blbv.de"
	inet = "000"
Endif
Do insinternet &&Do attached

ENDPROC
     Z    A  A                           %             	                U  ~  T   19
 T o0 %  C 	 C  	p  T   blbv.de T  000    U  MSG INET WELCHESJAHR ZI INSINTERNET Click,     1   AA q 2                              )   A                        
commandbutton      
commandbutton      Command2      FORM1      [Top = 444
Left = 201
Height = 34
Width = 136
Caption = "schlieen"
Name = "Command2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            label      label      zeile0      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 31
Visible = .F.
Width = 40
TabIndex = 2
Name = "zeile0"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile1      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 46
Visible = .F.
Width = 40
TabIndex = 3
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 61
Visible = .F.
Width = 40
TabIndex = 4
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile3      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 76
Visible = .F.
Width = 40
TabIndex = 5
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 91
Visible = .F.
Width = 40
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile5      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 106
Visible = .F.
Width = 40
TabIndex = 7
Name = "zeile5"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile6      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 121
Visible = .F.
Width = 40
TabIndex = 8
Name = "zeile6"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile7      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 136
Visible = .F.
Width = 40
TabIndex = 9
Name = "zeile7"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile8      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 151
Visible = .F.
Width = 40
TabIndex = 10
Name = "zeile8"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile9      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 166
Visible = .F.
Width = 40
TabIndex = 11
Name = "zeile9"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile10      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 181
Visible = .F.
Width = 40
TabIndex = 12
Name = "zeile10"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile11      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 196
Visible = .F.
Width = 40
TabIndex = 13
Name = "zeile11"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile12      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 211
Visible = .F.
Width = 40
TabIndex = 14
Name = "zeile12"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile13      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 226
Visible = .F.
Width = 40
TabIndex = 15
Name = "zeile13"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile14      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 241
Visible = .F.
Width = 40
TabIndex = 16
Name = "zeile14"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile15      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 256
Visible = .F.
Width = 40
TabIndex = 17
Name = "zeile15"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile16      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 271
Visible = .F.
Width = 40
TabIndex = 18
Name = "zeile16"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile17      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 286
Visible = .F.
Width = 40
TabIndex = 19
Name = "zeile17"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile18      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 301
Visible = .F.
Width = 40
TabIndex = 20
Name = "zeile18"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile19      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 18
Top = 316
Visible = .F.
Width = 40
TabIndex = 21
Name = "zeile19"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile20      FORM1      AutoSize = .T.
Caption = "Label0"
Height = 17
Left = 15
Top = 6
Visible = .F.
Width = 40
TabIndex = 22
Name = "zeile20"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      kasten0      FORM1      uCaption = "kasten0"
Height = 17
Left = 117
Top = 30
Visible = .F.
Width = 59
TabIndex = 165
Name = "kasten0"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten1      FORM1      uCaption = "kasten0"
Height = 17
Left = 117
Top = 45
Visible = .F.
Width = 59
TabIndex = 166
Name = "kasten1"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten2      FORM1      uCaption = "kasten0"
Height = 17
Left = 117
Top = 60
Visible = .F.
Width = 59
TabIndex = 167
Name = "kasten2"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten3      FORM1      uCaption = "kasten0"
Height = 17
Left = 117
Top = 75
Visible = .F.
Width = 59
TabIndex = 168
Name = "kasten3"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten4      FORM1      uCaption = "kasten0"
Height = 17
Left = 117
Top = 90
Visible = .F.
Width = 59
TabIndex = 169
Name = "kasten4"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten5      FORM1      vCaption = "kasten0"
Height = 17
Left = 117
Top = 105
Visible = .F.
Width = 59
TabIndex = 170
Name = "kasten5"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten6      FORM1      vCaption = "kasten0"
Height = 17
Left = 117
Top = 120
Visible = .F.
Width = 59
TabIndex = 171
Name = "kasten6"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten7      FORM1      vCaption = "kasten0"
Height = 17
Left = 117
Top = 135
Visible = .F.
Width = 59
TabIndex = 172
Name = "kasten7"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten8      FORM1      vCaption = "kasten0"
Height = 17
Left = 117
Top = 150
Visible = .F.
Width = 59
TabIndex = 173
Name = "kasten8"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten9      FORM1      vCaption = "kasten0"
Height = 17
Left = 117
Top = 165
Visible = .F.
Width = 59
TabIndex = 174
Name = "kasten9"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten10      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 180
Visible = .F.
Width = 59
TabIndex = 175
Name = "kasten10"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten11      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 195
Visible = .F.
Width = 59
TabIndex = 176
Name = "kasten11"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten12      FORM1      WordWrap = .F.
Caption = "kasten0"
Height = 17
Left = 117
Top = 210
Visible = .F.
Width = 59
TabIndex = 177
Name = "kasten12"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten13      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 225
Visible = .F.
Width = 59
TabIndex = 178
Name = "kasten13"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten14      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 240
Visible = .F.
Width = 59
TabIndex = 179
Name = "kasten14"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten15      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 255
Visible = .F.
Width = 59
TabIndex = 180
Name = "kasten15"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten16      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 270
Visible = .F.
Width = 59
TabIndex = 181
Name = "kasten16"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten17      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 285
Visible = .F.
Width = 59
TabIndex = 182
Name = "kasten17"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten18      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 300
Visible = .F.
Width = 59
TabIndex = 183
Name = "kasten18"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten19      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 315
Visible = .F.
Width = 59
TabIndex = 184
Name = "kasten19"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten20      FORM1      wCaption = "kasten0"
Height = 17
Left = 117
Top = 330
Visible = .F.
Width = 59
TabIndex = 185
Name = "kasten20"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten21      FORM1      vCaption = "kasten0"
Height = 17
Left = 225
Top = 42
Visible = .F.
Width = 59
TabIndex = 186
Name = "kasten21"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten22      FORM1      vCaption = "kasten0"
Height = 17
Left = 225
Top = 57
Visible = .F.
Width = 59
TabIndex = 187
Name = "kasten22"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten23      FORM1      vCaption = "kasten0"
Height = 17
Left = 225
Top = 72
Visible = .F.
Width = 59
TabIndex = 188
Name = "kasten23"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten24      FORM1      vCaption = "kasten0"
Height = 17
Left = 225
Top = 87
Visible = .F.
Width = 59
TabIndex = 189
Name = "kasten24"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten25      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 102
Visible = .F.
Width = 59
TabIndex = 190
Name = "kasten25"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten26      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 117
Visible = .F.
Width = 59
TabIndex = 191
Name = "kasten26"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten27      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 132
Visible = .F.
Width = 59
TabIndex = 192
Name = "kasten27"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten28      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 147
Visible = .F.
Width = 59
TabIndex = 193
Name = "kasten28"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten29      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 162
Visible = .F.
Width = 59
TabIndex = 194
Name = "kasten29"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten30      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 177
Visible = .F.
Width = 59
TabIndex = 195
Name = "kasten30"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten31      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 192
Visible = .F.
Width = 59
TabIndex = 196
Name = "kasten31"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten32      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 207
Visible = .F.
Width = 59
TabIndex = 197
Name = "kasten32"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten33      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 222
Visible = .F.
Width = 59
TabIndex = 198
Name = "kasten33"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten34      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 240
Visible = .F.
Width = 59
TabIndex = 199
Name = "kasten34"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten35      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 255
Visible = .F.
Width = 59
TabIndex = 200
Name = "kasten35"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            label      label      kasten36      FORM1      wCaption = "kasten0"
Height = 17
Left = 225
Top = 270
Visible = .F.
Width = 59
TabIndex = 201
Name = "kasten36"
      NPROCEDURE Click
DO kasten_click WITH INT(VAL(SUBSTR(this.Name,7)))
ENDPROC
                                         %   f       {      u             U      CCC  \g8 U  KASTEN_CLICK THIS NAME Click,     1 1                       C       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 474
Left = 402
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6H00QB9VO1433035283      /  F      ]                                                       WINDOWS _6H00QB9VP1467047094                                                                     WINDOWS _6H00QB9VS1433036358                  2                                                 WINDOWS _6H00QB9VQ1433036125v                  /	  }	                                               WINDOWS _6H00QB9VT1433036358s
      
  
  
  
      $  q                                               WINDOWS _6H00QB9VU1433036358g      |            
  j
                                               WINDOWS _6H00QB9VV1433036358`      u              g                                               WINDOWS _6H00QB9VW1433036358Z      o            
  [                                               WINDOWS _6H00QB9VX1433036358Q      f  {            u                                               WINDOWS _6H00QB9VY1467047094k                                                                   WINDOWS _6H00QB9VZ1433036358                  ,  |                                               WINDOWS _6H00QB9W01433036358r                  "  r                                               WINDOWS _6H00QB9W11433036358h      }              _                                               WINDOWS _6H00QB9W21433036358U      j              K                                               WINDOWS _6H00QB9W31433036358A      V  k  |          ]                                               WINDOWS _6H00QB9W41433035283j       w                                                                     WINDOWS _6H00QB9W51433036358?!      T!  i!  z!  !      	"  ?"                                               WINDOWS _6H00QB9W61433036358#  #  >#  M#  Z#  g#                                                           COMMENT RESERVED                                #                                                            $@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 463
Width = 292
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Ntzliche Links ins Internet"
Icon = prgicons\g22ico.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
                                   @`   %         <  	   *            U    C     U  THISFORM SIZER	 FRMRESIZEV 
      T        T       
     T   a U  THISFORM SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2  rq  1                       ,         G          )                           
commandbutton      
commandbutton      Command3      FORM1      ]Top = 77
Left = 24
Height = 25
Width = 244
Caption = "Tarifvertrge"
Name = "Command3"
      FPROCEDURE Click
inet = "110"
mylink = 829
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   110 T =   U  INET MYLINK INSINTERNET Click,     1  q 1                       ;       )                            
commandbutton      
commandbutton      Command1      FORM1      jTop = 51
Left = 24
Height = 25
Width = 244
Caption = "Aktuelles bei PC-Gehalt.de"
Name = "Command1"
      FPROCEDURE Click
inet = "110"
mylink = 827
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   110 T ;   U  INET MYLINK INSINTERNET Click,     1  q 1                       ;       )                            
commandbutton      
commandbutton      Command4      FORM1      bTop = 103
Left = 24
Height = 25
Width = 244
Caption = "info@pc-gehalt.de"
Name = "Command4"
      EPROCEDURE Click
inet = "110"
mylink =830
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   110 T >   U  INET MYLINK INSINTERNET Click,     1  q 1                       :       )                            
commandbutton      
commandbutton      Command5      FORM1      fTop = 129
Left = 24
Height = 25
Width = 244
Caption = "Steuerrechner des BMF"
Name = "Command5"
      FPROCEDURE Click
inet = "000"
mylink = 831
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T ?   U  INET MYLINK INSINTERNET Click,     1  q 1                       ;       )                            
commandbutton      
commandbutton      Command6      FORM1      lTop = 155
Left = 24
Height = 25
Width = 244
Caption = "ffentlicher Dienst A bis Z"
Name = "Command6"
      DPROCEDURE Click
inet = 112
mylink = 832
DO insinternet
ENDPROC
                                         %   p                          U  % 
 T  p T @   U  INET MYLINK INSINTERNET Click,     1   q 1                       9       )                            
commandbutton      
commandbutton      Command7      FORM1      dTop = 181
Left = 24
Height = 25
Width = 244
Caption = "Personalbeurteilung"
Name = "Command7"
      FPROCEDURE Click
inet = "000"
mylink = 833
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T A   U  INET MYLINK INSINTERNET Click,     1  q 1                       ;       )                            
commandbutton      
commandbutton      Command8      FORM1      eTop = 207
Left = 24
Height = 25
Width = 244
Caption = "Kirchensteuergesetze"
Name = "Command8"
      hPROCEDURE Click
inet = "000"
mylink = 834  &&Msg = "steuer-forum-kirche.de"
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T B   U  INET MYLINK INSINTERNET Click,     1  q 1                       ]       )                            
commandbutton      
commandbutton      Command9      FORM1      dTop = 233
Left = 24
Height = 25
Width = 244
Caption = "Gesetze im Internet"
Name = "Command9"
      YPROCEDURE Click
inet = "000"
Msg = "gesetze-im-internet.de" 
DO insinternet
ENDPROC
                                         %                             U  =  T   000# T  gesetze-im-internet.de   U  INET MSG INSINTERNET Click,     1 1q 1                       N       )                            
commandbutton      
commandbutton      	Command10      FORM1      UTop = 259
Left = 24
Height = 25
Width = 244
Caption = "BMI"
Name = "Command10"
      HPROCEDURE Click
inet = "000"
mylink = 836  
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T D   U  INET MYLINK INSINTERNET Click,     1  q 1                       =       )                            
commandbutton      
commandbutton      	Command11      FORM1      `Top = 285
Left = 24
Height = 25
Width = 244
Caption = "DBB-Tarifunion"
Name = "Command11"
      HPROCEDURE Click
inet = "000"
mylink = 840  
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T H   U  INET MYLINK INSINTERNET Click,     1  q 1                       =       )                            
commandbutton      
commandbutton      	Command12      FORM1      XTop = 311
Left = 24
Height = 25
Width = 244
Caption = "Ver.di"
Name = "Command12"
      GPROCEDURE Click
inet = "000"
mylink = 841 
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T I   U  INET MYLINK INSINTERNET Click,     1  q 1                       <       )                            
commandbutton      
commandbutton      	Command13      FORM1      WTop = 337
Left = 24
Height = 25
Width = 244
Caption = "KOMBA"
Name = "Command13"
      GPROCEDURE Click
inet = "000"
mylink = 842 
DO insinternet
ENDPROC
                                      i   %   s                          U  (  T   000 T J   U  INET MYLINK INSINTERNET Click,     1  q 1                       <       )                            
commandbutton      
commandbutton      	Command14      FORM1      gTop = 363
Left = 24
Height = 25
Width = 244
Caption = "Landesbesoldungsmter"
Name = "Command14"
      ]PROCEDURE Click
inet = "310"
Msg = "/L/Besoldung-und-Versorgung"
DO insinternet
ENDPROC
                                     A   %                             U  B  T   310( T  /L/Besoldung-und-Versorgung   U  INET MSG INSINTERNET Click,     1 q 1                       R       )                            label      label      Label1      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Caption = "Ntzliche Links ins Internet"
Height = 19
Left = 24
Top = 18
Width = 244
Name = "Label1"
      
commandbutton      
commandbutton      	Command15      FORM1      zTop = 400
Left = 24
Height = 49
Width = 244
FontBold = .T.
FontSize = 14
Caption = "schlieen"
Name = "Command15"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 442
Left = 273
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 14, 9, 23, 18, 50, 4, 1
0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6GL0MHMM81431983026      /  F      ]                                                       WINDOWS _6GL0MHMM91432049995                                                                     WINDOWS _6GL0MHMMA1432049944      ,  ;  H  U                                                           WINDOWS _6GM0NW2RL1432049995                  F
  w                                               COMMENT RESERVED                                (                                                            Q                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Form1      Height = 448
Width = 606
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Form1"
WindowType = 1
AlwaysOnTop = .T.
Name = "Form1"
     VPROCEDURE Destroy
RELEASE hsstack
ENDPROC
PROCEDURE Init
crlf = CHR(13) + CHR(10)
thisform.edit1.Value = "Satznummer Hauptmaske: " + STR(myform1.tdbnumber1.value,10,0) + crlf
thisform.edit1.Value = thisform.edit1.Value + "Satznummer fileneu: " + STR(fileneu,10,0) + crlf + crlf


ASTACKINFO(hsstack)
hsrows = ALEN(hsstack,1)

FOR hsr = 1 TO hsrows
	FOR hsx = 1 TO 6
		DO case
			CASE hsx = 1
				thisform.edit1.Value = thisform.edit1.Value + "1) "+ ALLTRIM(STR(hsstack(hsr,hsx),10,0)) + crlf
			CASE hsx = 2
				thisform.edit1.Value = thisform.edit1.Value + "2) "+ ALLTRIM(hsstack(hsr,hsx)) + crlf
			CASE hsx = 3
				thisform.edit1.Value = thisform.edit1.Value + "3) "+ ALLTRIM(hsstack(hsr,hsx)) + crlf
			CASE hsx = 4
				thisform.edit1.Value = thisform.edit1.Value + "4) "+ ALLTRIM(hsstack(hsr,hsx)) + crlf
			CASE hsx = 5
				thisform.edit1.Value = thisform.edit1.Value + "5) "+ ALLTRIM(STR(hsstack(hsr,hsx),10,0)) + crlf
			CASE hsx = 6
				thisform.edit1.Value = thisform.edit1.Value + "6) "+ ALLTRIM(hsstack(hsr,hsx)) + crlf
		ENDCASE
	next
NEXT
thisform.refresh
ENDPROC
     '                              A   %   ^           }            U  
  <   U  HSSTACK T  C
 C
 @ T    Satznummer Hauptmaske: C   
 Z  E T       Satznummer fileneu: C 
 Z     C  T C  	 (  
 (
 H  
 B; T       1) CCC 	  
  
 Z   
 3 T       2) CC 	  
     
 3 T       3) CC 	  
     
 3 T       4) CC 	  
     
 Z; T       5) CCC 	  
  
 Z   
 3 T       6) CC 	  
       
    U  CRLF THISFORM EDIT1 VALUE MYFORM1
 TDBNUMBER1 FILENEU HSSTACK HSROWS HSR HSX REFRESH Destroy,      InitC     1 q 2 QQ 1rq 1111A A A  1                       "         =   K      )                           editbox      editbox      Edit1      Form1      ?Height = 403
Left = 27
Top = 5
Width = 562
Name = "Edit1"
      
commandbutton      
commandbutton      Command1      Form1      [Top = 414
Left = 237
Height = 28
Width = 136
Caption = "speichern"
Name = "Command1"
     )PROCEDURE Click
hsfilename = eigdat + muser + "\ERROR_" + DTOS(DATE())+"_"+STRTRAN(TIME(),":","") + ".txt"

handle=Fcreate(ALLTRIM(hsfilename))
FWRITE(handle,ALLTRIM(thisform.edit1.Value))
FCLOSE(handle)
hinweis("Es wurde die Datei: " + hsfilename + " erzeugt!")
thisform.release
ENDPROC
                                   =   %   (      G     7            U   : T     \ERROR_CC$ _CC^ :   .txt T CC   C C    C 2 C Es wurde die Datei:   	  erzeugt! 
    U	 
 HSFILENAME EIGDAT MUSER HANDLE THISFORM EDIT1 VALUE HINWEIS RELEASE Click,     1 a ! 1                             )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0l   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6K00YOS6G1448640866      /  F      ]                                                       WINDOWS _6K00YOS6H1518624859                                                                     WINDOWS _6K40MBLD01518623499G
      \
  q
  
  
      O                                                 WINDOWS _6K40PLNJ21518623499D      S  b  q  ~                                                           WINDOWS _6K40PLNJ11518623499      
    1  >        -                                               WINDOWS _6K00YOS7C1518623499      +  @  Q  ^        GF                                               WINDOWS _6K40PLNHU1448904705\      \  ]  ]  ']                                                           WINDOWS _6K00YOS6G1449742569]      ]  ]  ]  ]                                                           WINDOWS _6K00YOS6G1518623026^      ^  +^  9^  F^                                                           WINDOWS _6K00YOS6J1518623026^      ^  ^  ^  ^                                                           WINDOWS _6K00YOS6K15186230265_      B_  O_  ]_  j_                                                           WINDOWS _6K00YOS6G1518623206_      _  _  _  _                                                           WINDOWS _6K00YOS6M1518623026V`      c`  p`  ~`  `                                                           WINDOWS _6K00YOS6N1518623206`      `  a  a  a                                                           WINDOWS _6K00YOS6G1518623206a      a  a  a  a                                                           WINDOWS _6K00YOS6G1518623206;b      Hb  Ub  cb  pb                                                           WINDOWS _6K00YOS6G1518623206b      b  b  c  c                                                           WINDOWS _6K00YOS6S1518623206c      c  c  c  c                                                           WINDOWS _6K00YOS6T1518623206Xd      ed  rd  d  d                                                           WINDOWS _6K00YOS6G1518623206e      e  &e  4e  Ae                                                           WINDOWS _6K00YOS6G1518623206e      e  e  e  f                                                           WINDOWS _6K00YOS6W1518623206f      f  f  f  f                                                           WINDOWS _6K00YOS6X1518623206qg      ~g  g  g  g                                                           WINDOWS _6K00YOS6G1518623206Lh      Yh  fh  uh  h                                                           WINDOWS _6K00YOS6G1518623206i      i  .i  Ai  Ni      j  k                                               WINDOWS _6K00YOS6I1518623206n      n  n  1n  >n      o  o                                               WINDOWS _6K00YOS6H1518623206q      q  q  q  q      r  s                                               WINDOWS _6K00YOS771518623206u      u  u  u  u      v  w                                               WINDOWS _6K00YOS781518623206jy      yy  y  y  y      z  {                                               WINDOWS _6K00YOS791518624778}      }  ~  ~  %~        ؄                                               WINDOWS _6K00YOS7A1518623206          -  :                                                           WINDOWS _6K00YOS7B1518623206Ԉ            
                                                           WINDOWS _6K00YOS6H1518623206          Ή  ۉ                                                           WINDOWS _6K00YOS6H1518623206        
     -                                                           WINDOWS _6K30MJQHJ1518623206?      L  Y  h  u                                                           WINDOWS _6K30MJQHK1518623206          8  E      "                                                 WINDOWS _6K30NSU3L1518623206            ɐ                                                           WINDOWS _6K30NSU3M1518623206J      Y  h          s  L                                               WINDOWS _6K00YOS6G1518623206          
                                                             WINDOWS _6K30UBIXP1518623206          ͕  ڕ                                                       WINDOWS _6K00YOS6G1518623206        ϟ                                                               WINDOWS _6K40MBLD11518623499          Ġ  Ѡ        >                                               WINDOWS _6K00YOS6G1518623206            ã                                                           WINDOWS _6K40MBLD21518623206R      _  l  {                                                             WINDOWS _6K40NFGNH1518623206      .  ?  V  c      P                                                 WINDOWS _6K40NFGNI1515942698            ľ      :  o                                               WINDOWS _6K40PLNI41518623206C      S  c  q  ~        D                                               WINDOWS _6K40PLNI51518623206       0  @  N  [        "                                               WINDOWS _6K40PLNI61518623206          ,  9                                                        WINDOWS _6K40PLNI71518623206          
                                                         WINDOWS _6K40PLNI81518623206                                                                   WINDOWS _6K40PLNI91518623206                  ]                                                 WINDOWS _6K40PLNIA1518623206v                  U                                                 WINDOWS _6K40PLNIB1518623206n      ~            M                                                 WINDOWS _6K40PLNIC1518623206f      v            ,  i                                               WINDOWS _6K40PLNID1518623206E      U  e  t        
  J                                               WINDOWS _6K40PLNIE1518623206&      6  F  U  b        +                                               WINDOWS _6K40PLNIF1518623206        '  6  C                                                       WINDOWS _6K40PLNIG1518623206            $                                                       WINDOWS _6K40PLNIH1518623206                                                                   WINDOWS _6K40PLNII1518623206                  r                                                 WINDOWS _6K40PLNIJ1518623206                  S                                                 WINDOWS _6K40PLNIK1518623206l      |            4  q                                               WINDOWS _6K40PLNIL1518623206M      ]  m  |          R                                               WINDOWS _6K40PLNIM1518623206.      >  N  ]  j        3                                               WINDOWS _6K40PLNIN1518623206        /  >  K                                                       WINDOWS _6K40PLNIO1518623206             ,                                                       WINDOWS _6K40PLNIP1518623206             
                                                       WINDOWS _6K40PLNIQ1518623206                  z                                                 WINDOWS _6K40PLNIR1518623206                  [                                                 WINDOWS _6K40PLNIS1518623206t                  <  y                                               WINDOWS _6K40PLNIT1518623206U      e  u            Z                                               WINDOWS _6K40PLNIU15186232066      F  V  e  r        ;                                               WINDOWS _6K40PLNIV1518623206      '  7  F  S                                                       WINDOWS _6K40PLNIW1518623206          '  4                                                       WINDOWS _6K40PLNIX1518623206                                                                   WINDOWS _6K40PLNIY1518623206                                                                   WINDOWS _6K40PLNIZ1518623206                                                                       WINDOWS _6K40PLNJ01518623206S      b  q                                                               WINDOWS _6K40XDVED1518623206%      4  C  ^  k                                                           WINDOWS _6K00YOS6G1518623499          $  1                                                           WINDOWS _6K40Z83WA1518623499            #                                                           WINDOWS _6K410CG6G1518623206        (  5                                                           WINDOWS _6K70R982L1518623206                                                                       WINDOWS _6K70R982M1518623206                   [                                              WINDOWS _6K00YOS6G1518623206       
  )                                                          WINDOWS _6K00YOS6H1518623206                                                                  WINDOWS _6K00YOS6G1518623206      % 4 A                                                          WINDOWS _6K00YOS6H1518623206                                                                  WINDOWS _6K70R982N1518623206      + : G                                                          WINDOWS _6K70R982O1518623206        
	                                                          WINDOWS _6K70R982P1518623206 
     -
 :
 I
 V
                                                          WINDOWS _6K70R982Q1518623206
     
   '                                                          WINDOWS _6K70UYVNA1518623206=     J W f s                                                          WINDOWS _6K70UYVNB1518623206     
 
 3
 @
                                                          WINDOWS _6K70XFRR11518623206`     p        \                                               WINDOWS _6K00YOS6G1518623206              C                                              WINDOWS _6KD0LOYNC1518623206                                                                  WINDOWS _6KD0LOYND1518623206E     T c                                                            WINDOWS _6KD0LOYNE1518623206                                                                  WINDOWS _74G0NCXH31518623206]     p        -                                               WINDOWS _6K00YOS6G1518624508       + 8      m                                               WINDOWS _6K00YOS6H1518623206$     '$ 4$ C$ P$                                                          WINDOWS _75H0LAGZM1518624859$     $ $ $ %     % g'                                              WINDOWS _6K00YOS6G1448640866)     ) ) ) )                                                          WINDOWS _75H0PHI2I1518624430b*     o* |* * *                                                          COMMENT RESERVED                                +                                                          +U                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 589
Width = 813
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Sachbezug bei privater Dienstfahrzeugnutzung (TESTVERSION!!!!)"
ControlBox = .F.
Closable = .T.
WindowType = 0
Name = "FORM1"
     PROCEDURE Destroy
myform1.visible = .t.
ENDPROC
PROCEDURE Init

PUBLIC mykfzrechner
mykfzrechner = thisform

IF thisform.Top < 0
	thisform.Top = 0
endif


thisform.label20.caption = ALLTRIM(myform1.z0.caption)
thisform.label21.caption = getmonatsname(zi(1+20)) + " " + welchesjahrc
*!*	thisform.steuersatz.Value = DMSteuern * 100
FOR hsax = 1 TO 31
	checkname = "check"+ALLTRIM(STR(hsax,2,0))	
	thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))
next

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     u    \  \                        X   %                          U    T   a U  MYFORM1 VISIBLEN 7  
 T    %   
8  T     T   C   $ T   CC	    
   (   T  checkCC  ZB thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))
 
  
   T      T     
    T  a U  MYKFZRECHNER THISFORM TOP LABEL20 CAPTION MYFORM1 Z0 LABEL21
 GETMONATSNAME ZI WELCHESJAHRC HSAX	 CHECKNAME SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Destroy,      InitS      Resizee    1  2 r  BA Ar!A  rq  2 1                       (         C                   )   \                        
commandbutton      
commandbutton      
sscommand2      FORM1      Top = 540
Left = 9
Height = 32
Width = 131
Caption = "Drucken"
TabIndex = 41
ToolTipText = "Startet den Druck der Daten"
Visible = .T.
SpecialEffect = 0
Name = "sscommand2"
     1PROCEDURE Click
PUBLIC fahrzeugtageliste1,fahrzeugtageliste2
fahrzeugtageliste1 = ""
fahrzeugtageliste2 = ""

crlf = CHR(13)+CHR(10)
hsanzz = 0
IF thisform.anzahltage.Value > 0
	FOR hsax = 1 TO 31
		checkname = "check"+ALLTRIM(STR(hsax,2,0))
		IF thisform.&checkname..value > 0
			hsanzz = hsanzz + 1
			IF hsanzz <= 16
				fahrzeugtageliste1 = fahrzeugtageliste1 + ALLTRIM(thisform.&checkname..caption)+crlf
			ELSE
				fahrzeugtageliste2 = fahrzeugtageliste2 + ALLTRIM(thisform.&checkname..caption)+crlf
			endif
		endif
	next
ENDIF

oldselect = SELECT(0)
CREATE CURSOR dummy (feld C(1))
SELECT dummy
APPEND BLANK
FLUSH

SELECT dummy
GO top

IF direktzumdruckerQ() = true
	IF hsseriendruck = .t.
		Report Form kfz_sachbezug Range 1,1 NOCONSOLE TO PRINTER &&prompt
	ELSE
		Report Form kfz_sachbezug Range 1,1 NOCONSOLE TO PRINTER prompt
	endif
ELSE

	LOCAL loRepPreview, loRepListener
	loRepPreview = NULL

	DO (_ReportPreview) WITH loRepPreview

	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

	WITH loRepPreview
		.Caption = "Druckvorschau"
		.TopForm = .T.
		.CanvasCount = 1
		.ZoomLevel = 5
		.Width = screenmaxb &&myform1.width + 200
		.height = screenmaxh &&myform1.height + 100
		.top = 0
		.left = 0
		.ToolbarIsVisible = .t.
	ENDWITH 

	loRepPreview.SetExtensionHandler(loExtension)
	loRepListener = NEWOBJECT('ReportListener')
	loRepListener.ListenerType = 1 
	loRepListener.PreviewContainer = loRepPreview

* report form eb RANGE 1,1 NOCONSOLE preview
	Report Form kfz_sachbezug Range 1,1 NOCONSOLE OBJECT loRepListener &&Noconsole Preview
	
	RELEASE loRepListener
	RELEASE loRepPreview
endif

SELECT dummy
USE
SELECT(oldselect)

fahrzeugtageliste1 = ""
fahrzeugtageliste2 = ""
ENDPROC
                                      %         R  >               U   7   
 T    
 T    T C
 C
 
 T   %      (  T  checkCC  Z) IF thisform.&checkname..value > 0 T   % 8X fahrzeugtageliste1 = fahrzeugtageliste1 + ALLTRIM(thisform.&checkname..caption)+crlf
 X fahrzeugtageliste2 = fahrzeugtageliste2 + ALLTRIM(thisform.&checkname..caption)+crlf
     T	 C W h dummy  C F
   [ F
  #) %C 
 f % a5$ ?
 kfz_sachbezug(!9 b% ?
 kfz_sachbezug(!"9      T 
 V 3 T C MyInWindowFixer preview_fixer.prg
  X T 
 Druckvorschau T a T  T  T   T   T   T   T a  C     T C ReportListener T   T    ( ?
 kfz_sachbezug9.  <  <   F
  Q
 F	 
 T    
 T    U!  FAHRZEUGTAGELISTE1 FAHRZEUGTAGELISTE2 CRLF HSANZZ THISFORM
 ANZAHLTAGE VALUE HSAX	 CHECKNAME	 OLDSELECT DUMMY FELD DIREKTZUMDRUCKERQ TRUE
 HSSERIENDRUCK
 KFZ_SACHBEZUG LOREPPREVIEW
 LOREPLISTENER LOEXTENSION CAPTION TOPFORM CANVASCOUNT	 ZOOMLEVEL WIDTH
 SCREENMAXB HEIGHT
 SCREENMAXH TOP LEFT TOOLBARISVISIBLE SETEXTENSIONHANDLER LISTENERTYPE PREVIEWCONTAINER Click,     1    R qq A A A A  q Q A r Q " A QA     2         A r q A r A    1                       &      )                           textbox      textbox      maxtage      FORM1      oEnabled = .F.
Height = 19
Left = 588
TabIndex = 91
Top = 564
Visible = .F.
Width = 22
Name = "maxtage"
      
commandbutton      
commandbutton      
tagezhlen      FORM1      Top = 567
Left = 720
Height = 16
Width = 71
Caption = "tagezhlen"
Enabled = .F.
TabIndex = 90
Visible = .F.
Name = "tagezhlen"
     UPROCEDURE Click
hsaanzahl = 0
FOR hsax = 1 TO thisform.maxtage.value
	checkname = "check"+ALLTRIM(STR(hsax,2,0))	
	IF .not. EMPTY(thisform.&checkname..value)
		hsaanzahl = hsaanzahl + 1
	ENDIF
NEXT
thisform.anzahltage.value = hsaanzahl
thisform.genuztetageimmonat.value = hsaanzahl

thisform.genuztetageimmonat.valid
	
ENDPROC
                                   &-   %   X           g            U   
 T     (      T  checkCC  Z2 IF .not. EMPTY(thisform.&checkname..value)  T       T      T     
     U	 	 HSAANZAHL HSAX THISFORM MAXTAGE VALUE	 CHECKNAME
 ANZAHLTAGE GENUZTETAGEIMMONAT VALID Click,     1  !A A 11 2                       J      )                           
commandbutton      
commandbutton      	berechnen      FORM1      Top = 567
Left = 648
Height = 14
Width = 67
Caption = "berechnen"
Enabled = .F.
TabIndex = 95
Visible = .F.
Name = "berechnen"
     'QPROCEDURE Click
*1% methode ------------------------------------
*listenpreris abgerundet auf 100
IF EMPTY(thisform.optiongroup1.Value)
	RETURN
ENDIF
IF .not. EMPTY(thisform.listenpreis.Value)
	IF thisform.optiongroup1.Value = 3 &&reiner elektro
		IF EMPTY(thisform.kaufjahr.Value) 
			hinweis("Bitte das Jahr des Kaufes eingeben!")
			RETURN
		ENDIF
	ENDIF
	IF thisform.optiongroup1.Value = 2 &&hybrid
		IF EMPTY(thisform.kaufjahr.Value) .or. EMPTY(thisform.reichweite.value)
			hinweis("Bitte das Jahr des Kaufes und die Mindesreichweite eingeben!")
			RETURN
		ENDIF
	ENDIF
ELSE
	return
endif
IF thisform.genuztetageimmonat.value > 0
	IF .not. EMPTY(thisform.wenigerals180tageimjahr.Value)
		kmpauschproz = 0.002
	else
		IF thisform.genuztetageimmonat.value > 14 
			kmpauschproz = 0.03
		ELSE
			kmpauschproz = 0.002
		ENDIF
	endif
ELSE
	IF thisform.optiongroup1.Value <= 4
		IF .not. EMPTY(thisform.wenigerals180tageimjahr.Value)
			kmpauschproz = 0.002
		else
			kmpauschproz = 0.03	
		endif
	ELSE
		kmpauschproz = 0.00	
	endif
ENDIF

thisform.label13.Caption = ALLTRIM(STR(kmpauschproz,6,3))+ " % je KM x " + ALLTRIM(STR(thisform.arbeitsweg.value,4,0)) + " KM"
thisform.lblpauschalprozentsatz.caption = "Pauschalprozentsatz = " + ALLTRIM(STR(kmpauschproz,6,3))

hssp = 0.00

DO case
	CASE welchesjahr = 2020
		kmpauschsatzineuro1 = 0.30
		kmpauschsatzineuro2 = 0.30
	CASE welchesjahr = 2021
		kmpauschsatzineuro1 = 0.30
		kmpauschsatzineuro2 = 0.35
	CASE welchesjahr >= 2022
		kmpauschsatzineuro1 = 0.30
		kmpauschsatzineuro2 = 0.35
	CASE welchesjahr >= 2027
		kmpauschsatzineuro1 = 0.30
		kmpauschsatzineuro2 = 0.30
endcase

DO case
	CASE thisform.optiongroup1.Value = 1
		*verbrenner 
		* x = 1%/monat vom listenpreis brutto
		hssx = ROUND(thisform.listenpreisgerundet.Value / 100,2)
		thisform.label12.Caption = "1% der Bemessungsgrundlage"
		*y = 0,03%/km von X
		IF thisform.genuztetageimmonat.value > 0 .and. thisform.genuztetageimmonat.value <= 14
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value * thisform.genuztetageimmonat.value ,2)
		*	hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		else
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		ENDIF

		IF thisform.optiongroup2.Value >= 2 .and. thisform.genuztetageimmonat.value > 0
			IF thisform.arbeitsweg.Value <= 20
				hssp = thisform.genuztetageimmonat.Value * thisform.arbeitsweg.Value * kmpauschsatzineuro1
			ELSE
				hssp = thisform.genuztetageimmonat.Value * 20 * kmpauschsatzineuro1
				hssp = hssp + (thisform.genuztetageimmonat.Value * (thisform.arbeitsweg.value - 20) * kmpauschsatzineuro2)
			ENDIF
		ENDIF

	CASE thisform.optiongroup1.Value = 2
		*hybrid
		*x = 1%/monat vom listenpreis/2 brutto
		DO case
			CASE thisform.kaufjahr.value >=  2019 .and. thisform.kaufjahr.Value < 2024
				IF thisform.reichweite.Value >= 40
					hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
					thisform.label12.Caption = "0,5% der Bemessungsgrundlage"				
				ELSE
					hssx = ROUND(thisform.listenpreisgerundet.Value/1 / 100,2)
					thisform.label12.Caption = "1 % der Bemessungsgrundlage"				
				endif
			CASE thisform.kaufjahr.value >= 2024 .and. thisform.kaufjahr.Value <= 2024
				IF thisform.reichweite.Value >= 60
					hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
					thisform.label12.Caption = "0,5% der Bemessungsgrundlage"				
				ELSE
					hssx = ROUND(thisform.listenpreisgerundet.Value/1 / 100,2)
					thisform.label12.Caption = "1 % der Bemessungsgrundlage"				
				endif			
			CASE thisform.kaufjahr.value >= 2025
				IF thisform.reichweite.Value >= 80
					hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
					thisform.label12.Caption = "0,5% der Bemessungsgrundlage"				
				ELSE
					hssx = ROUND(thisform.listenpreisgerundet.Value/1 / 100,2)
					thisform.label12.Caption = "1 % der Bemessungsgrundlage"				
				endif			
		endcase

		*reichweite min 60KM (80km ab 2025) oder max max 50g co2
		*y = 0,03%/km von x
		IF thisform.genuztetageimmonat.value > 0 .and. thisform.genuztetageimmonat.value <= 14
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value * thisform.genuztetageimmonat.value ,2)
		*	hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		else
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		ENDIF

		IF thisform.optiongroup2.Value >= 2 .and. thisform.genuztetageimmonat.value > 0
			IF thisform.arbeitsweg.Value <= 20
				hssp = thisform.genuztetageimmonat.Value * thisform.arbeitsweg.Value * kmpauschsatzineuro1
			ELSE
				hssp = thisform.genuztetageimmonat.Value * 20 * kmpauschsatzineuro1
				hssp = hssp + (thisform.genuztetageimmonat.Value * (thisform.arbeitsweg.value - 20) * kmpauschsatzineuro2)
			ENDIF
		ENDIF

	CASE thisform.optiongroup1.Value = 3
		*elektro
		IF thisform.kaufjahr.Value < 2024 
			preisgrenze = 60000
		ELSE
			preisgrenze = 70000
		endif
		IF thisform.listenpreis.value <= preisgrenze &&60000
			hssx = ROUND(thisform.listenpreisgerundet.Value/4 / 100,2)
			thisform.label12.Caption = "0,25% der Bemessungsgrundlage"
		ELSE
			hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
			thisform.label12.Caption = "0,5% der Bemessungsgrundlage"
		ENDIF
		IF thisform.genuztetageimmonat.value > 0 .and. thisform.genuztetageimmonat.value <= 14
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value * thisform.genuztetageimmonat.value ,2)
		*	hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		else
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		ENDIF

		IF thisform.optiongroup2.Value >= 2 .and. thisform.genuztetageimmonat.value > 0
			IF thisform.arbeitsweg.Value <= 20
				hssp = thisform.genuztetageimmonat.Value * thisform.arbeitsweg.Value * kmpauschsatzineuro1
			ELSE
				hssp = thisform.genuztetageimmonat.Value * 20 * kmpauschsatzineuro1
				hssp = hssp + (thisform.genuztetageimmonat.Value * (thisform.arbeitsweg.value - 20) * kmpauschsatzineuro2)
			ENDIF
		ENDIF								

	CASE thisform.optiongroup1.Value = 4
		*S-Pedelec > 45km/h

		IF thisform.listenpreis.value <= 60000
			thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 4 / 100) * 100 * 4
			hssx = ROUND(thisform.listenpreisgerundet.Value/4 / 100,2)
			thisform.label12.Caption = "0,25% der Bemessungsgrundlage"
		ELSE
			thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 2 / 100) * 100 * 2
			hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
			thisform.label12.Caption = "0,5% der Bemessungsgrundlage"
		endif

		*x = 1%/monat vom Listenpreis/4 brutto bis max 60000
		*wenn > 60000 dann x= 1%/listenpreis/2 brutto 
		*y = 0,03%/km von x
		IF thisform.genuztetageimmonat.value > 0 .and. thisform.genuztetageimmonat.value <= 14
		hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value * thisform.genuztetageimmonat.value ,2)
		*	hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		ELSE
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		ENDIF					

	CASE thisform.optiongroup1.Value = 5
		*Fahrrad/Pedelec bis max 25km/h
		IF thisform.listenpreis.value <= 60000
			thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 4 / 100) * 100 * 4
			hssx = ROUND(thisform.listenpreisgerundet.Value/4 / 100,2)
			thisform.label12.Caption = "0,25% der Bemessungsgrundlage"
		ELSE
			thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 2 / 100) * 100 * 2
			hssx = ROUND(thisform.listenpreisgerundet.Value/2 / 100,2)
			thisform.label12.Caption = "0,5% der Bemessungsgrundlage"
		endif

		*x = 1%/monat vom Listenpreis/4 brutto bis max 60000
		*wenn > 60000 dann x= 1%/listenpreis/2 brutto 
		*y = 0,03%/km von x
		IF thisform.genuztetageimmonat.value > 0 .and. thisform.genuztetageimmonat.value <= 14
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value * thisform.genuztetageimmonat.value ,2)
		*	hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		else
			hssy = ROUND(hssx * kmpauschproz * thisform.arbeitsweg.value,2)
		endif
ENDCASE

*geldwerter vorteil = x + y
thisform.bemgrundlage1proz.Value = hssx
thisform.kmpausch1proz.Value = hssy 
thisform.anteilpauschversteuerung.Value = hssp
thisform.geldwert1proz.Value = hssx + hssy - hssp - thisform.selbstbeteiligung.value



*fahretbuch methode -----------------------------------
IF .not. EMPTY(thisform.anschaffungspreis.Value) .and. .not. EMPTY(thisform.betriebskosten.Value)
	abschreibungjahr = ROUND(thisform.anschaffungspreisnetto.Value / 6,2)
	DO case
		CASE thisform.optiongroup1.Value = 1
			abschreibungjahr = abschreibungjahr 
			thisform.label15.Caption = "100% der jahrl. Abschreibung"
		CASE thisform.optiongroup1.Value = 2
			abschreibungjahr = abschreibungjahr / 2
			thisform.label15.Caption = "50% der jahrl. Abschreibung"
		CASE thisform.optiongroup1.Value = 3
		IF thisform.listenpreis.Value <= 60000
			abschreibungjahr = abschreibungjahr / 4
			thisform.label15.Caption = "25% der jahrl. Abschreibung"
		ELSE
			abschreibungjahr = abschreibungjahr / 2
			thisform.label15.Caption = "50% der jahrl. Abschreibung"
		ENDIF
	ENDCASE
	abschreibungjahr = ROUND(abschreibungjahr ,2)

	thisform.abschreibungjahr.value = abschreibungjahr

	thisform.gesamtkostenjahr.value = thisform.abschreibungjahr.value + thisform.betriebskosten.Value
	thisform.privateranteilgesamtkosten.Value = ROUND(thisform.gesamtkostenjahr.value / 100 * thisform.privatanteil.Value,2)
	 
	geldwertmonat = ROUND(thisform.privateranteilgesamtkosten.Value / 12,2)
	thisform.geldwertfahrtb.Value = geldwertmonat - thisform.selbstbeteiligung.value
	*!*	thisform.monsteuerfahrtb.value = ROUND(thisform.geldwertfahrtb.Value / 100 * thisform.steuersatz.Value,2)
	*!*	thisform.jahrsteuerfahrtb.value = thisform.monsteuerfahrtb.value * 12

endif

ENDPROC
                                   Y   %         A                 U  ! %C      B  %C    
+ %      %C     0 C# Bitte das Jahr des Kaufes eingeben!  B   %    '$ %C     C    #I C< Bitte das Jahr des Kaufes und die Mindesreichweite eingeben!  B   7 B  %      %C    
} T	 Mb`?  %     T	 Q?  T	 Mb`?   b %    A %C    
  T	 Mb`? = T	 Q?  ^ T	           G T  
  CC	 Z  % je KM x CC     Z  KM7 T  
   Pauschalprozentsatz = CC	 Z T         
 H  B T 333333? T 333333?  ~ T 333333? T ffffff?   T 333333? T ffffff?   T 333333? T 333333? 
 HT      T C    dT- T     1% der Bemessungsgrundlage( %          	* T C 	         T   T C 	     T ( %          	 %    E! T            T      + T                  	
 Hk*          
	 %    (O  T C    dT/ T     0,5% der Bemessungsgrundlage   T C    dT. T     1 % der Bemessungsgrundlage *          	 %    <9  T C    dT/ T     0,5% der Bemessungsgrundlage   T C    dT. T     1 % der Bemessungsgrundlage      k %    P  T C    dT/ T     0,5% der Bemessungsgrundlage g  T C    dT. T     1 % der Bemessungsgrundlage  ( %          	* T C 	         T   T C 	     T ( %          		 %    M	! T           	 T      + T                   %    
	 T `   	 T p   %     e
  T C    dT0 T     0,25% der Bemessungsgrundlage 
  T C    dT/ T     0,5% der Bemessungsgrundlage ( %          	* T C 	         T :  T C 	     T ( %          	 %    ! T            T      + T                  
 %    `  + T    C    d8d  T C    dT0 T     0,25% der Bemessungsgrundlage "
+ T    C    d8d  T C    dT/ T     0,5% der Bemessungsgrundlage ( %          	x
* T C 	         T 
  T C 	     T      T %    `  P+ T    C    d8d  T C    dT0 T     0,25% der Bemessungsgrundlage + T    C    d8d  T C    dT/ T     0,5% der Bemessungsgrundlage ( %          	(* T C 	         T P  T C 	     T   T      T      T     % T           & %C    

 C    
	 T C     T
 Hi     X
 T  / T  !   100% der jahrl. Abschreibung      T  . T  !   50% der jahrl. Abschreibung     i %    `   T  . T  !   25% der jahrl. Abschreibung e T  . T  !   50% der jahrl. Abschreibung   T C T T     # T  "          , T  #  C  "  d  $  T T% C  #  T T  &  %       U'  THISFORM OPTIONGROUP1 VALUE LISTENPREIS KAUFJAHR HINWEIS
 REICHWEITE GENUZTETAGEIMMONAT WENIGERALS180TAGEIMJAHR KMPAUSCHPROZ LABEL13 CAPTION
 ARBEITSWEG LBLPAUSCHALPROZENTSATZ HSSP WELCHESJAHR KMPAUSCHSATZINEURO1 KMPAUSCHSATZINEURO2 HSSX LISTENPREISGERUNDET LABEL12 HSSY OPTIONGROUP2 PREISGRENZE BEMGRUNDLAGE1PROZ
 KMPAUSCH1PROZ ANTEILPAUSCHVERSTEUERUNG
 GELDWERT1PROZ SELBSTBETEILIGUNG ANSCHAFFUNGSPREIS BETRIEBSKOSTEN ABSCHREIBUNGJAHR ANSCHAFFUNGSPREISNETTO LABEL15 GESAMTKOSTENJAHR PRIVATERANTEILGESAMTKOSTEN PRIVATANTEIL
 GELDWERTMONAT GELDWERTFAHRTB Click,     1 SA A aqQA A A qAA A A  A A qaQ qQ QA A  qaQ QA  QA A rqR !QQ!QQ!QQ!QQA  q A q A A r q A q A q A A  A q A A r A q A  A q A A r A  A r A  A A 311Qe q qq A A !22D 2                       F'      )                           shape      shape      Shape7      FORM1      TTop = 4
Left = 642
Height = 561
Width = 165
SpecialEffect = 0
Name = "Shape7"
      shape      shape      Shape6      FORM1      QTop = 4
Left = 3
Height = 53
Width = 632
SpecialEffect = 0
Name = "Shape6"
      shape      shape      Shape1      FORM1      TTop = 240
Left = 3
Height = 139
Width = 309
SpecialEffect = 0
Name = "Shape1"
      shape      shape      Shape5      FORM1      VTop = 240
Left = 312
Height = 139
Width = 324
SpecialEffect = 0
Name = "Shape5"
      shape      shape      Shape4      FORM1      TTop = 380
Left = 3
Height = 153
Width = 309
SpecialEffect = 0
Name = "Shape4"
      shape      shape      Shape3      FORM1      STop = 59
Left = 3
Height = 182
Width = 632
SpecialEffect = 0
Name = "Shape3"
      shape      shape      Shape2      FORM1      VTop = 380
Left = 312
Height = 153
Width = 324
SpecialEffect = 0
Name = "Shape2"
      label      label      Label1      FORM1      eCaption = "Antriebsart"
Height = 18
Left = 9
Top = 97
Width = 66
TabIndex = 1
Name = "Label1"
      label      label      Label2      FORM1      sCaption = "Listenpreis Brutto in "
Height = 18
Left = 8
Top = 169
Width = 158
TabIndex = 3
Name = "Label2"
      label      label      Label3      FORM1      lCaption = "Arbeitsweg in KM"
Height = 18
Left = 8
Top = 217
Width = 158
TabIndex = 6
Name = "Label3"
      label      label      Label5      FORM1      yCaption = "Anschaffungspreis Brutto in "
Height = 18
Left = 8
Top = 423
Width = 196
TabIndex = 8
Name = "Label5"
      label      label      Label6      FORM1      Caption = "Summe Betr.kosten jhrl. Brutto in "
Height = 18
Left = 8
Top = 477
Width = 198
TabIndex = 10
Name = "Label6"
      label      label      Label7      FORM1      wCaption = "Nutzungsanteil privat in %"
Height = 18
Left = 8
Top = 504
Width = 158
TabIndex = 11
Name = "Label7"
      label      label      Label8      FORM1      Caption = "Geldw. Vorteil / Monat - Selbstb. in "
Height = 18
Left = 326
Top = 353
Width = 193
TabIndex = 13
Name = "Label8"
      label      label      Label9      FORM1      FontBold = .T.
FontSize = 14
Caption = "Grunddaten des Fahrzeuges"
Height = 25
Left = 9
Top = 65
Width = 270
TabIndex = 20
Name = "Label9"
      label      label      Label10      FORM1      FontBold = .T.
FontSize = 14
Caption = "Ergebnis 1% - Methode"
Height = 25
Left = 326
Top = 243
Width = 265
TabIndex = 21
Name = "Label10"
      label      label      Label11      FORM1      FontBold = .T.
FontSize = 14
Caption = "Ergebnis Fahrtenbuch - Methode"
Height = 25
Left = 324
Top = 385
Width = 309
TabIndex = 22
Name = "Label11"
      label      label      Label14      FORM1      Caption = "Geldw. Vorteil / Monat - Selbstb. in "
Height = 18
Left = 324
Top = 502
Width = 201
TabIndex = 23
Name = "Label14"
      textbox      textbox      listenpreis      FORM1      Alignment = 1
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 29
ToolTipText = ""
Top = 167
Width = 94
Name = "listenpreis"
     PROCEDURE Valid
IF thisform.optiongroup1.Value >= 4
	thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 4 / 100) * 100 * 4
else
	thisform.listenpreisgerundet.Value = INT(this.value/100) * 100
ENDIF

thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
     E    ,  ,                        ^   %                          U    %    B + T    C    d8d j   T    C  d8d 
      Ba U  THISFORM OPTIONGROUP1 VALUE LISTENPREISGERUNDET LISTENPREIS THIS	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPress    1 q A  q 2  QA 1                            	   $        )   ,                        textbox      textbox      
arbeitsweg      FORM1      Alignment = 1
Value = 0.00
Format = "9999"
Height = 22
InputMask = "9999"
Left = 211
TabIndex = 31
ToolTipText = "Einfacher Arbeitsweg (z.B. Hinfahrt)"
Top = 215
Width = 94
Name = "arbeitsweg"
      PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
         w  w                        !   %            
   
            U   
      Ba U  THISFORM	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPressc     1  q 2  QA 1                       5         T          )   w                        textbox      textbox      anschaffungspreis      FORM1      Alignment = 1
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 37
ToolTipText = "wirklicher Anschaffungspreis inkl. MwSt."
Top = 421
Width = 94
Name = "anschaffungspreis"
     PROCEDURE Valid
thisform.anschaffungspreisnetto.Value = ROUND(this.value/1.19,2)
thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
	
endif
ENDPROC
                                   U   %   5      l     V            U  > ' T    C  
ףp=
?T
      Ba U  THISFORM ANSCHAFFUNGSPREISNETTO VALUE THIS	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPress     1 q q 2  QB 1                       w                  )                           textbox      textbox      betriebskosten      FORM1      Alignment = 1
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 39
ToolTipText = "Alle Kosten wie Steuer, Versicherung, Reparaturen, Treibstoff, etc"
Top = 475
Width = 94
Name = "betriebskosten"
      PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
         w  w                        !   %            
   
            U   
      Ba U  THISFORM	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPressc     1  q 2  QA 1                       5         T          )   w                        textbox      textbox      privatanteil      FORM1      Alignment = 1
Value = 0.00
Format = "999.99"
Height = 22
InputMask = "9999.99"
Left = 211
TabIndex = 40
ToolTipText = "Anteil der privaten KM in den gesamten gefahrenen KM im MOnat"
Top = 502
Width = 94
Name = "privatanteil"
     8PROCEDURE Valid
thisform.label27.Caption = ALLTRIM(STR(thisform.privatanteil.Value,6,2))+ "% aus jhrl. Gesamtkosten"
thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   <   %   P           q            U  W @ T    CC    Z % aus jhrl. Gesamtkosten
      Ba U  THISFORM LABEL27 CAPTION PRIVATANTEIL VALUE	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPress     1  q 2  QA 1                                   -      )                           optiongroup      optiongroup      Optiongroup1      FORM1     XButtonCount = 5
Value = 1
Height = 28
Left = 78
Top = 92
Width = 549
TabIndex = 26
ToolTipText = "Fahrzeugantrieb auswhlen"
Name = "Optiongroup1"
Option1.Caption = "Verbrenner"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 83
Option1.Name = "Option1"
Option2.Caption = "Hybrid"
Option2.Height = 17
Option2.Left = 112
Option2.Top = 6
Option2.Width = 61
Option2.Name = "Option2"
Option3.Caption = "Elektro"
Option3.Height = 17
Option3.Left = 193
Option3.Top = 6
Option3.Width = 61
Option3.Name = "Option3"
Option4.Caption = "S-Pedelec als KFZ"
Option4.Height = 17
Option4.Left = 276
Option4.Top = 6
Option4.Width = 126
Option4.Name = "Option4"
Option5.Caption = "Fahrrad, etc"
Option5.Height = 17
Option5.Left = 435
Option5.Top = 6
Option5.Width = 92
Option5.Name = "Option5"
     KPROCEDURE InteractiveChange
IF this.Value >= 4
	thisform.genuztetageimmonat.Value = 0
	thisform.genuztetageimmonat.enabled = .f.
ELSE
	thisform.genuztetageimmonat.enabled = .t.
ENDIF

IF this.Value = 2 &&hybrid
	thisform.reichweite.enabled = .t.
	IF .not. EMPTY(thisform.kaufjahr.Value)
		DO case
			CASE thisform.kaufjahr.Value < 2024
				thisform.lblreichweite.caption = "mind. 40 KM"
			CASE thisform.kaufjahr.Value = 2024
				thisform.lblreichweite.caption = "mind. 60 KM"
			CASE thisform.kaufjahr.Value > 2024
				thisform.lblreichweite.caption = "mind. 80 KM"
		ENDCASE
	ELSE
		thisform.lblreichweite.caption = ""
	endif	
ELSE
	thisform.reichweite.enabled = .f.
	thisform.reichweite.Value = 0
	thisform.lblreichweite.caption = ""
endif	

thisform.genuztetageimmonat.valid
thisform.berechnen.click
ENDPROC
     $                                 %   m                       U   %   8  T     T   - Q  T   a  %   b T   a %C   
C
 H ?    
  T    mind. 40 KM    	 T    mind. 60 KM    ? T    mind. 80 KM  ^ T        T   - T     T      
   	 
  
   U  THIS VALUE THISFORM GENUZTETAGEIMMONAT ENABLED
 REICHWEITE KAUFJAHR
 LBLREICHWEITE CAPTION VALID	 BERECHNEN CLICK InteractiveChange,     1 A1 A Ba A  1A  11A   1                       @      )                           label      label      Label23      FORM1      FontBold = .T.
FontSize = 14
Caption = "Fahrtenbuch - Methode"
Height = 25
Left = 9
Top = 385
Width = 232
TabIndex = 42
Name = "Label23"
      label      label      Label24      FORM1      FontBold = .T.
FontSize = 14
Caption = "1% - Methode"
Height = 25
Left = 8
Top = 243
Width = 265
TabIndex = 43
Name = "Label24"
      textbox      textbox      
geldwert1proz      FORM1     	Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 44
Top = 351
Width = 94
DisabledBackColor = 128,255,0
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "geldwert1proz"
      textbox      textbox      geldwertfahrtb      FORM1     
Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 51
Top = 500
Width = 94
DisabledBackColor = 128,255,0
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "geldwertfahrtb"
      label      label      Label17      FORM1      Caption = "Listenpreis Brutto (abgerundet) in "
Height = 18
Left = 8
Top = 274
Width = 199
TabIndex = 52
Name = "Label17"
      textbox      textbox      listenpreisgerundet      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 53
Top = 272
Width = 94
DisabledForeColor = 0,0,0
Name = "listenpreisgerundet"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
         w  w                        !   %            
   
            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
      Ba U  THISFORM	 BERECHNEN CLICK KeyPress,      Valid     1  QA 2  q 1                                          )   w                        label      label      Label18      FORM1      yCaption = "Anschaffungspreis Netto in "
Height = 18
Left = 8
Top = 450
Width = 175
TabIndex = 9
Name = "Label18"
      textbox      textbox      anschaffungspreisnetto      FORM1      Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 38
Top = 448
Width = 94
DisabledForeColor = 0,0,0
Name = "anschaffungspreisnetto"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE Valid
thisform.berechnen.click
RETURN .t.
ENDPROC
         w  w                        !   %            
   
            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
      Ba U  THISFORM	 BERECHNEN CLICK KeyPress,      Valid     1  QA 2  q 1                                          )   w                        label      label      Label19      FORM1      sCaption = "genutzte Tage im Monat"
Height = 18
Left = 8
Top = 328
Width = 158
TabIndex = 7
Name = "Label19"
      textbox      textbox      genuztetageimmonat      FORM1      Alignment = 1
Value = 0.00
Format = "99"
Height = 22
InputMask = "99"
Left = 210
TabIndex = 35
ToolTipText = "wieviel tage haben Sie das Fahrzeug benutzt"
Top = 326
Width = 94
Name = "genuztetageimmonat"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
*!*		IF this.Value > 0
*!*			thisform.fahrtenerfassen.visible = .t.
*!*		ELSE
*!*			thisform.fahrtenerfassen.visible = .f.
*!*		endif	
endif
ENDPROC
PROCEDURE Valid
*!*	IF this.Value > 14 &&max 15
*!*		thisform.max14tage.visible = .t.
*!*	ELSE
*!*		thisform.max14tage.visible = .f.
*!*	ENDIF
IF thisform.genuztetageimmonat.value > 0
	IF .not. EMPTY(thisform.wenigerals180tageimjahr.Value)
		thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,002%"
	else
		IF thisform.genuztetageimmonat.value > 14
			thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,03%"
		ELSE
			thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,002%"
		ENDIF
	endif
ELSE
	IF thisform.optiongroup1.Value >= 4
		thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,00%"
	ELSE
		IF .not. EMPTY(thisform.wenigerals180tageimjahr.Value)
			thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,002%"
		else
			thisform.lblpauschalprozentsatz.caption = "KM Pauschalprozentsatz = 0,03%"
		endif
	endif
endif
thisform.berechnen.click
RETURN .t.
ENDPROC
                                      %   "           C            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT %       %C    
_ 2 T     KM Pauschalprozentsatz = 0,002%   %     1 T     KM Pauschalprozentsatz = 0,03%  2 T     KM Pauschalprozentsatz = 0,002%    %    A1 T     KM Pauschalprozentsatz = 0,00%  %C    
2 T     KM Pauschalprozentsatz = 0,002% 1 T     KM Pauschalprozentsatz = 0,03%   
      Ba U	  THISFORM GENUZTETAGEIMMONAT VALUE WENIGERALS180TAGEIMJAHR LBLPAUSCHALPROZENTSATZ CAPTION OPTIONGROUP1	 BERECHNEN CLICK KeyPress,      Valid     1  QF 2 va! q !A A  q a! A A A  q 1                               .    
    )                           label      label      lblpauschalprozentsatz      FORM1      Caption = "KM Pauschalprozentsatz = "
Height = 19
Left = 8
Top = 353
Width = 169
TabIndex = 56
Name = "lblpauschalprozentsatz"
      
commandbutton      
commandbutton      
sscommand4      FORM1      Top = 540
Left = 504
Height = 32
Width = 131
Caption = "Schlieen"
TabIndex = 54
ToolTipText = "schliet den Programmteil."
Visible = .T.
SpecialEffect = 0
Name = "sscommand4"
      PROCEDURE Click
IF .not. ok("Wirklich beenden?"+CHR(13)+"Daten werden nicht gespeichert!")
	RETURN
ENDIF

myform1.visible = .t.
thisform.Release

ENDPROC
     G    .  .                           %                             U  o L %C Wirklich beenden?C
  Daten werden nicht gespeichert!  
P  B  T  a
    U  OK MYFORM1 VISIBLE THISFORM RELEASE Click,     1 A A   2                              )   .                        label      label      Label20      FORM1      FontBold = .T.
FontSize = 14
Caption = "Mitarbeiter"
Height = 25
Left = 12
Top = 7
Width = 597
TabIndex = 19
Name = "Label20"
      label      label      Label21      FORM1      FontBold = .T.
FontSize = 14
Caption = "Monat des Jahres"
Height = 25
Left = 12
Top = 30
Width = 597
TabIndex = 18
Name = "Label21"
      	container      	container      fahrtenerfassen      FORM1      Top = 327
Left = 177
Width = 28
Height = 22
Picture = ..\program files (x86)\microsoft visual foxpro 9\
SpecialEffect = 0
TabIndex = 34
ToolTipText = "Manuelle Auswahl der Tage in diesem Monat."
Name = "fahrtenerfassen"
     MPROCEDURE Click

IF thisform.anzahltage.Value > 0
	IF .not. ok("Sollen die bestehenden Tageseintragungen gelscht werden?")
		RETURN
	ELSE
		IF thisform.check1.Enabled = .t.
			FOR hsax = 1 TO 31
				checkname = "check"+ALLTRIM(STR(hsax,2,0))	
				thisform.&checkname..value = 0
				thisform.&checkname..enabled = .f.
				thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))	
				thisform.&checkname..backcolor = RGB(240,240,240)
			next	
			thisform.anzahltage.Value = 0
			thisform.genuztetageimmonat.Value = 0
			return
		endif		
	ENDIF
ELSE
	IF thisform.check1.Enabled = .t.
		FOR hsax = 1 TO 31
			checkname = "check"+ALLTRIM(STR(hsax,2,0))	
			thisform.&checkname..value = 0
			thisform.&checkname..enabled = .f.
			thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))	
			thisform.&checkname..backcolor = RGB(240,240,240)
		next	
		thisform.anzahltage.Value = 0
		return
	endif	
ENDIF

tdate="01."+IIF(zi(1+20)+1 < 10,"0"+ALLTRIM(STR(zi(1+20)+1,2,0)),STR(zi(1+20)+1,2,0))+"."+SUBSTR(STR(welchesjahr,4,0),3,2)
endrumpf = SUBSTR(tdate,3)
tdate=CTOD(tdate)
thisform.maxtage.value = 31
thisform.maxtage.value = DAY(eom(tdate))

FOR hsax = 1 TO 31
	checkname = "check"+ALLTRIM(STR(hsax,2,0))	
	thisform.&checkname..value = 0
	thisform.&checkname..visible = .f.
	thisform.&checkname..enabled = .f.
next

thisform.anzahltage.Value = 0
*thisform.genuztetageimmonat.value = 0

FOR hsax = 1 TO thisform.maxtage.value
	checkname = "check"+ALLTRIM(STR(hsax,2,0))	
	thisform.&checkname..visible = .t.
	thisform.&checkname..enabled = .t.
	IF hsax < 10
		tdatec = "0"+ALLTRIM(STR(hsax,2,0))+endrumpf
	ELSE
		tdatec = ALLTRIM(STR(hsax,2,0))+endrumpf
	endif
	thisform.&checkname..caption = tdatec + " " + ntocdow(DOW(CTOD(tdatec)))
	DO case
		CASE "Samst" $ thisform.&checkname..caption 
			IF .not. isfeiertag(CTOD(tdatec))
				thisform.&checkname..backcolor = RGB(255,255,0) &&gelb
				thisform.&checkname..forecolor = RGB(0,0,0) &&schwarz
				thisform.&checkname..tooltiptext = ""
			ELSE
				thisform.&checkname..backcolor = RGB(255,0,0) &&rot
				thisform.&checkname..forecolor = RGB(255,255,255) &&weis
				thisform.&checkname..tooltiptext = "Feiertag"
			endif
		
		CASE "Sonnt" $ thisform.&checkname..caption 
			IF .not. isfeiertag(CTOD(tdatec))
				thisform.&checkname..backcolor = RGB(0,255,0) &&grn 
				thisform.&checkname..forecolor = RGB(0,0,0) &&schwarz
				thisform.&checkname..tooltiptext = ""
			ELSE
				thisform.&checkname..backcolor = RGB(255,0,0) &&rot
				thisform.&checkname..forecolor = RGB(255,255,255) &&weis
				thisform.&checkname..tooltiptext = "Feiertag"
			endif
		OTHERWISE
			IF .not. isfeiertag(CTOD(tdatec))
				thisform.&checkname..backcolor = RGB(240,240,240) &&grau
				thisform.&checkname..forecolor = RGB(0,0,0) &&schwarz
				thisform.&checkname..tooltiptext = ""
			ELSE
				thisform.&checkname..backcolor = RGB(255,0,0) &&rot
				thisform.&checkname..forecolor = RGB(255,255,255) &&weis	
				thisform.&checkname..tooltiptext = "Feiertag"		
			endif
	endcase
next
	
*DO FORM fahrtenerfassen
ENDPROC
                                   ׳   %   
      p  W   
            U  	 %     K %C9 Sollen die bestehenden Tageseintragungen gelscht werden? 
f  B  %    a  (z  T  checkCC  Z" thisform.&checkname..value = 0
& thisform.&checkname..enabled = .f.
C thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))	
5 thisform.&checkname..backcolor = RGB(240,240,240)
  T      T      B    %    a  (  T  checkCC  Z" thisform.&checkname..value = 0
& thisform.&checkname..enabled = .f.
C thisform.&checkname..caption = "Tag " + ALLTRIM(STR(hsax,2,0))	
5 thisform.&checkname..backcolor = RGB(240,240,240)
  T      B  n T	  01.CC
 

  0CCC
  Z CC
  Z6 .CC  Z\ T C	 \ T	 C	 # T  
   T  
  CC 	  %  (H  T  checkCC  Z" thisform.&checkname..value = 0
& thisform.&checkname..visible = .f.
& thisform.&checkname..enabled = .f.
  T       (  
  	  T  checkCC  Z& thisform.&checkname..visible = .t.
& thisform.&checkname..enabled = .t.
 % 

  T  0CC  Z  < T CC  Z  L thisform.&checkname..caption = tdatec + " " + ntocdow(DOW(CTOD(tdatec)))

 H	4 CASE "Samst" $ thisform.&checkname..caption  %CC # 
n4 thisform.&checkname..backcolor = RGB(255,255,0) 
0 thisform.&checkname..forecolor = RGB(0,0,0) 
) thisform.&checkname..tooltiptext = ""
 2 thisform.&checkname..backcolor = RGB(255,0,0) 
6 thisform.&checkname..forecolor = RGB(255,255,255) 
1 thisform.&checkname..tooltiptext = "Feiertag"
 4 CASE "Sonnt" $ thisform.&checkname..caption  %CC # 
2 thisform.&checkname..backcolor = RGB(0,255,0) 
0 thisform.&checkname..forecolor = RGB(0,0,0) 
) thisform.&checkname..tooltiptext = ""
 2 thisform.&checkname..backcolor = RGB(255,0,0) 
6 thisform.&checkname..forecolor = RGB(255,255,255) 
1 thisform.&checkname..tooltiptext = "Feiertag"
  2	 %CC # 
6	6 thisform.&checkname..backcolor = RGB(240,240,240) 
0 thisform.&checkname..forecolor = RGB(0,0,0) 
) thisform.&checkname..tooltiptext = ""
 	2 thisform.&checkname..backcolor = RGB(255,0,0) 
6 thisform.&checkname..forecolor = RGB(255,255,255) 
3 thisform.&checkname..tooltiptext = "Feiertag"		
    U  THISFORM
 ANZAHLTAGE VALUE OK CHECK1 ENABLED HSAX	 CHECKNAME GENUZTETAGEIMMONAT TDATE ZI WELCHESJAHR ENDRUMPF MAXTAGE EOM TDATEC
 ISFEIERTAG Click,     1 rA  Qq!a1QA 11A A A  Qq!a1QA 1A A A ! 1r!aaA 2aa A  AAA !aA BA! !aA  Aa !a1A A A 3                       B      )                           image      image      Image1      FORM1.fahrtenerfassen      nPicture = icons\kalender_small.jpg
Stretch = 1
Height = 20
Left = 0
Top = 0
Width = 26
Name = "Image1"
      -PROCEDURE Click
this.Parent.click
ENDPROC
                                      +   %   U       j      d             U   
      U  THIS PARENT CLICK Click,     1  1                       "       )                            checkbox      checkbox      Check1      FORM1      Top = 9
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 57
Name = "Check1"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check2      FORM1      Top = 26
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 58
Name = "Check2"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check3      FORM1      Top = 43
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 59
Name = "Check3"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check4      FORM1      Top = 60
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 60
Name = "Check4"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check5      FORM1      Top = 77
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 61
Name = "Check5"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check6      FORM1      Top = 94
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 62
Name = "Check6"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check7      FORM1      Top = 111
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 63
BackColor = 240,240,240
Name = "Check7"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check8      FORM1      Top = 128
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 64
BackColor = 240,240,240
Name = "Check8"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check9      FORM1      Top = 145
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 65
Name = "Check9"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check10      FORM1      Top = 162
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 66
Name = "Check10"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check11      FORM1      Top = 179
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 67
Name = "Check11"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check12      FORM1      Top = 196
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 68
Name = "Check12"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check13      FORM1      Top = 213
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 69
Name = "Check13"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check14      FORM1      Top = 230
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 70
Name = "Check14"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check15      FORM1      Top = 247
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 71
Name = "Check15"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check16      FORM1      Top = 264
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 72
Name = "Check16"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check17      FORM1      Top = 281
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 73
Name = "Check17"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check18      FORM1      Top = 298
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 74
Name = "Check18"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check19      FORM1      Top = 315
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 75
Name = "Check19"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check20      FORM1      Top = 332
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 76
Name = "Check20"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check21      FORM1      Top = 349
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 77
Name = "Check21"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check22      FORM1      Top = 366
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 78
Name = "Check22"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check23      FORM1      Top = 383
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 79
Name = "Check23"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check24      FORM1      Top = 400
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 80
Name = "Check24"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check25      FORM1      Top = 417
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 81
Name = "Check25"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check26      FORM1      Top = 434
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 82
Name = "Check26"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check27      FORM1      Top = 451
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 83
Name = "Check27"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check28      FORM1      Top = 468
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 84
Name = "Check28"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check29      FORM1      Top = 485
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 85
Name = "Check29"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check30      FORM1      Top = 502
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 86
Name = "Check30"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            checkbox      checkbox      Check31      FORM1      Top = 519
Left = 654
Height = 18
Width = 144
Alignment = 0
Caption = "Check1"
Enabled = .F.
TabIndex = 87
Name = "Check31"
      5PROCEDURE Click
thisform.tagezhlen.click
ENDPROC
                                      E   %   ]       r      l             U   
      U  THISFORM
 TAGEZHLEN CLICK Click,     1  1                       *       )                            label      label      Label22      FORM1      zFontBold = .T.
Caption = "Anzahl Tage"
Height = 16
Left = 654
Top = 540
Width = 72
TabIndex = 88
Name = "Label22"
      textbox      textbox      
anzahltage      FORM1      FontBold = .T.
Alignment = 3
Value = 0
Enabled = .F.
Height = 22
Left = 735
TabIndex = 89
Top = 537
Width = 46
Name = "anzahltage"
      textbox      textbox      Fahrzeugbezeichnung      FORM1      Height = 22
Left = 287
TabIndex = 25
ToolTipText = "Bezeichnung des Fahrzeugs"
Top = 65
Width = 331
Name = "Fahrzeugbezeichnung"
      label      label      Label25      FORM1      FontBold = .T.
FontSize = 12
Caption = "Bitte drucken Sie die Daten aus."
Height = 19
Left = 200
Top = 542
Width = 247
TabIndex = 92
ForeColor = 255,0,0
Name = "Label25"
      label      label      Label26      FORM1      FontBold = .T.
FontSize = 12
Caption = "Es wird nicht gespeichert !!!"
Height = 19
Left = 216
Top = 560
Width = 215
TabIndex = 93
ForeColor = 255,0,0
Name = "Label26"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 572
Left = 795
TabIndex = 94
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label4      FORM1      |Caption = "Selbstbeteiligung pro Monat in "
Height = 18
Left = 8
Top = 195
Width = 199
TabIndex = 5
Name = "Label4"
      textbox      textbox      Selbstbeteiligung      FORM1      Alignment = 1
Value = 0.00
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 211
TabIndex = 30
Top = 191
Width = 94
Name = "Selbstbeteiligung"
      PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE Valid

thisform.berechnen.click
RETURN .t.
ENDPROC
         w  w                        !   %            
   
            U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT 
      Ba U  THISFORM	 BERECHNEN CLICK KeyPress,      Valid     1  QA 2  q 1                                          )   w                        label      label      Label12      FORM1      Caption = "x% der Bemessungsgrundlage in "
Height = 18
Left = 326
Top = 275
Width = 193
TabIndex = 14
Name = "Label12"
      textbox      textbox      bemgrundlage1proz      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 49
Top = 273
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "bemgrundlage1proz"
      label      label      Label13      FORM1      uCaption = "X % je KM x KM (in )"
Height = 18
Left = 326
Top = 301
Width = 184
TabIndex = 15
Name = "Label13"
      textbox      textbox      
kmpausch1proz      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 46
Top = 299
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "kmpausch1proz"
      label      label      Label15      FORM1      xCaption = "jhrl. Abschreibung in "
Height = 18
Left = 326
Top = 426
Width = 193
TabIndex = 17
Name = "Label15"
      textbox      textbox      abschreibungjahr      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 45
Top = 424
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "abschreibungjahr"
      label      label      Label16      FORM1      Caption = "jhrl. Gesamtk. (Abschr.+Betr.k.) in "
Height = 18
Left = 326
Top = 452
Width = 202
TabIndex = 12
Name = "Label16"
      textbox      textbox      gesamtkostenjahr      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 48
Top = 450
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "gesamtkostenjahr"
      label      label      Label27      FORM1      xCaption = "x% aus Gesamtkosten in "
Height = 18
Left = 324
Top = 477
Width = 195
TabIndex = 24
Name = "Label27"
      textbox      textbox      privateranteilgesamtkosten      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 50
Top = 475
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "privateranteilgesamtkosten"
      checkbox      checkbox      wenigerals180tageimjahr      FORM1      Top = 352
Left = 210
Height = 16
Width = 94
Alignment = 0
Caption = "< 180Tg/Jahr"
Enabled = .F.
TabIndex = 36
Visible = .F.
Name = "wenigerals180tageimjahr"
      @PROCEDURE InteractiveChange
thisform.berechnen.click
ENDPROC
                                         %   \       }      w             U   
      U  THISFORM	 BERECHNEN CLICK InteractiveChange,     1  1                       5       )                            optiongroup      optiongroup      Optiongroup2      FORM1     ButtonCount = 2
BorderStyle = 0
Value = 1
Height = 21
Left = 180
Top = 299
Width = 123
TabIndex = 33
ToolTipText = "Der Anteil der KM zwischen Wohung und Arbeitssttte "
Name = "Optiongroup2"
Option1.Caption = "Nein"
Option1.Value = 1
Option1.Height = 16
Option1.Left = 4
Option1.Top = 3
Option1.Width = 48
Option1.Name = "Option1"
Option2.Caption = "Ja, AG"
Option2.Height = 16
Option2.Left = 56
Option2.Top = 3
Option2.Width = 55
Option2.Name = "Option2"
      PROCEDURE InteractiveChange
thisform.berechnen.click
ENDPROC
PROCEDURE ProgrammaticChange
thisform.berechnen.click
ENDPROC
     ?    &  &                        u   %                             U   
      U  THISFORM	 BERECHNEN CLICK 
      U  THISFORM	 BERECHNEN CLICK InteractiveChange,      ProgrammaticChange\     1  2  1                       5         ^   v       )   &                        label      label      Label29      FORM1      }Caption = "- Anteil Pauschalversteuerung"
Height = 18
Left = 326
Top = 327
Width = 184
TabIndex = 16
Name = "Label29"
      textbox      textbox      anteilpauschversteuerung      FORM1     Alignment = 1
Value = 0.00
Enabled = .F.
Format = "9999999.99"
Height = 22
InputMask = "9999999.99"
Left = 531
TabIndex = 47
Top = 325
Width = 94
DisabledBackColor = 240,240,240
DisabledForeColor = 0,0,0
BorderColor = 100,100,100
Name = "anteilpauschversteuerung"
      label      label      Label28      FORM1      qCaption = "Pausch.versteuerung"
Height = 15
Left = 8
Top = 302
Width = 120
TabIndex = 55
Name = "Label28"
      optiongroup      optiongroup      Optiongroup3      FORM1     ButtonCount = 3
BorderStyle = 0
Value = 1
Enabled = .F.
Height = 21
Left = 288
Top = 24
Width = 168
TabIndex = 32
Visible = .F.
ToolTipText = "Der Anteil der KM zwischen Wohung und Arbeitssttte "
Name = "Optiongroup3"
Option1.Caption = "Nein"
Option1.Value = 1
Option1.Height = 16
Option1.Left = 4
Option1.Top = 3
Option1.Width = 48
Option1.Name = "Option1"
Option2.Caption = "Ja, AG"
Option2.Height = 16
Option2.Left = 56
Option2.Top = 3
Option2.Width = 55
Option2.Name = "Option2"
Option3.Caption = "Ja, AN"
Option3.Height = 16
Option3.Left = 116
Option3.Top = 3
Option3.Width = 55
Option3.Name = "Option3"
      PROCEDURE ProgrammaticChange
thisform.berechnen.click
ENDPROC
PROCEDURE InteractiveChange
thisform.berechnen.click
ENDPROC
     ?    &  &                        u   %                             U   
      U  THISFORM	 BERECHNEN CLICK 
      U  THISFORM	 BERECHNEN CLICK ProgrammaticChange,      InteractiveChange\     1  2  1                       6         ^   v       )   &                        textbox      textbox      kaufjahr      FORM1      Alignment = 1
Value = 0
Format = "9999"
Height = 22
InputMask = "9999"
Left = 211
TabIndex = 27
ToolTipText = ""
Top = 120
Width = 44
Name = "kaufjahr"
     PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
PROCEDURE Valid
IF thisform.optiongroup1.Value >= 4
	thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 4 / 100) * 100 * 4
else
	thisform.listenpreisgerundet.Value = INT(this.value/100) * 100
ENDIF
IF thisform.optiongroup1.Value = 2 
	IF .not. EMPTY(thisform.kaufjahr.Value)
		DO case
			CASE thisform.kaufjahr.Value < 2024
				thisform.lblreichweite.caption = "mind. 40 KM"
			CASE thisform.kaufjahr.Value = 2024
				thisform.lblreichweite.caption = "mind. 60 KM"
			CASE thisform.kaufjahr.Value > 2024
				thisform.lblreichweite.caption = "mind. 80 KM"
		ENDCASE
	ELSE
		thisform.lblreichweite.caption = ""
	endif	
ELSE
	thisform.lblreichweite.caption = ""
endif
thisform.berechnen.click
RETURN .t.
ENDPROC
                                   &   %         3                 U  H      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT %    B + T    C    d8d j   T    C  d8d  %    m %C    
N
 H J     
  T     mind. 40 KM      T     mind. 60 KM     J T     mind. 80 KM  i T         T       
   	 
  Ba U  THISFORM OPTIONGROUP1 VALUE LISTENPREISGERUNDET LISTENPREIS THIS KAUFJAHR
 LBLREICHWEITE CAPTION	 BERECHNEN CLICK KeyPress,      Valid     1  QA 2 q A qa A  1A  1A  q 1                                   w      )                           label      label      Label30      FORM1      mCaption = "Anschaffungsjahr"
Height = 18
Left = 8
Top = 123
Width = 112
TabIndex = 4
Name = "Label30"
      textbox      textbox      
reichweite      FORM1      Alignment = 1
Value = 0
Enabled = .F.
Format = "999"
Height = 22
InputMask = "999"
Left = 211
TabIndex = 28
ToolTipText = ""
Top = 144
Width = 44
Name = "reichweite"
     PROCEDURE Valid

IF thisform.optiongroup1.Value >= 4
	thisform.listenpreisgerundet.Value = INT(thisform.listenpreis.Value / 4 / 100) * 100 * 4
else
	thisform.listenpreisgerundet.Value = INT(this.value/100) * 100
ENDIF

thisform.berechnen.click
RETURN .t.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
     E    ,  ,                        ^   %                          U    %    B + T    C    d8d j   T    C  d8d 
      Ba U  THISFORM OPTIONGROUP1 VALUE LISTENPREISGERUNDET LISTENPREIS THIS	 BERECHNEN CLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      KeyPress    1 r A  q 2  QA 1                            	   &        )   ,                        label      label      Label31      FORM1      pCaption = "mind. Reichweite KM"
Height = 18
Left = 8
Top = 147
Width = 117
TabIndex = 2
Name = "Label31"
      label      label      
lblreichweite      FORM1      eCaption = ""
Height = 18
Left = 264
Top = 147
Width = 144
TabIndex = 2
Name = "lblreichweite"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0a   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _6K40VOXBQ1448900070 1 53           1.000    0.000    0.000   -1.000                 F                                                            0 10   21F 3 3   FF              T    F T               1T               WINDOWS _6K40VOXBR           9  1                          109271.00    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6K40VOXBS           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6K40VOXBT           9  7                           2917.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _6K40VWZZU1448900284 5  0         937.500 4479.167 2395.83345416.667                               -1   -1   -1   -1   -1   -1                    1 14  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6K40VY1BQ1448900307 8  0        4375.000 4791.667 1875.00044687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40VZJOT1448900334 8  0        6875.000 4791.667 1875.00044687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40W01CX1448900345 8  0        1145.83361145.833 1875.00012395.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6K40W0BZ51448900354 8  0       10833.333 4791.667 2187.50044687.500                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6K40W0UCJ1448900366 8  0       13437.500 4895.833 1875.00044687.500                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40W64J71448900625 8  0       15833.333 4895.833 1875.00016354.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40W7BJJ1448900659 5  0       15937.50022291.667 1666.667 6562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6K40W80WV1448900674 5  0    !   15937.50022291.667 1666.667 3854.167                               -1   -1   -1   -1   -1   -1               "     0 10  1       FFFTF  F          0T                      0FTT0 0F#        WINDOWS _6K40W8JF91448900686 5  0    $   15937.50022291.667 1666.667 4270.833                               -1   -1   -1   -1   -1   -1               %     0 10  1       FFFTF  F          0T                      0FTT0 0F&        WINDOWS _6K40W8Y811448900695 5  0    '   15937.50022291.667 1666.66713437.500                               -1   -1   -1   -1   -1   -1               (     0 10  1       FFFTF  F          0T                      0FTT0 0F)        WINDOWS _6K40W9P441448900715 5  0    *   15937.50022291.667 1666.667 7291.667                               -1   -1   -1   -1   -1   -1               +     0 10  1       FFFTF  F          0T                      0FTT0 0F,        WINDOWS _6K40WAUVQ1448900744 8  0    -   18437.500 5000.000 1875.00016458.333                   C           -1   -1   -1   -1   -1   -1               .     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WBIXU1448900759 8  0    /   20937.500 5000.000 1875.00016250.000                   C           -1   -1   -1   -1   -1   -1               0     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WCGNG1448900783 8  0    1   23645.833 5000.000 1875.00016250.000                   C           -1   -1   -1   -1   -1   -1               2     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WCTCE1448900791 8  0    3   18437.50022395.833 1875.00012395.833    4              C           -1   -1   -1   -1   -1   -1               5     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WDFIG1448900808 8  0    6   20937.50022395.833 1875.00012708.333    7              C           -1   -1   -1   -1   -1   -1               8     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WDZJA1448900821 8  0    9   23645.83322395.833 1875.00012500.000    :              C           -1   -1   -1   -1   -1   -1               ;     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WEKC61448900836 8  0    <   27291.667 5208.333 2187.50035416.667                   C           -1   -1   -1   -1   -1   -1               =     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6K40WF2J61448900848 8  0    >   30833.333 5208.333 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               ?     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WFF7U1448900856 8  0    @   35937.500 5208.333 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               A     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WG6461448900876 8  0    B   38437.500 5208.333 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               C     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WGPHE1448900888 8  0    D   30833.33329895.833 1875.00010937.500    E              C           -1   -1   -1   -1   -1   -1               F     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WHEH41448900906 8  0    G   35937.50029895.833 1875.00010937.500    H              C           -1   -1   -1   -1   -1   -1               I     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WIQBE1448900939 8  0    J   42083.333 4895.833 2187.50035416.667                   C           -1   -1   -1   -1   -1   -1               K     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6K40WJ81Q1448900951 8  0    L   45729.167 4895.833 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               M     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WJ81R1448900951 8  0    N   48437.500 4895.833 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               O     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WJ81S1448900951 8  0    P   51145.833 4895.833 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               Q     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WK5KO1448900975 8  0    R   53958.333 4895.833 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1               S     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WKL9O1448900985 8  0    T   45729.16729583.333 1875.00010937.500    U              C           -1   -1   -1   -1   -1   -1               V     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WL5K81448901000 8  0    W   48437.50029583.333 1875.00010937.500    X              C           -1   -1   -1   -1   -1   -1               Y     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WLMH41448901011 8  0    Z   51145.83329583.333 1875.00010937.500    [              C           -1   -1   -1   -1   -1   -1               \     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WM73W1448901026 8  0    ]   53958.33329583.333 1875.00010937.500    ^              C           -1   -1   -1   -1   -1   -1               _     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6O1448901052 8  0    `   27291.66741875.000 2187.50033541.667                   C           -1   -1   -1   -1   -1   -1               a     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6P1448901052 8  0    b   30833.33341875.000 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               c     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6Q1448901052 8  0    d   33437.50041875.000 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               e     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6R1448901052 8  0    f   38541.66741875.000 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               g     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6S1448901052 8  0    h   30833.33366562.500 1875.000 9479.167    i              C           -1   -1   -1   -1   -1   -1               j     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WNB6T1448901052 8  0    k   33437.50066562.500 1875.000 9479.167    l              C           -1   -1   -1   -1   -1   -1               m     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WOSHK1448901091 8  0    n   38645.83366562.500 1875.000 9479.167    o              C           -1   -1   -1   -1   -1   -1               p     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10N1448901122 8  0    q   42395.83341770.833 2187.50033541.667                   C           -1   -1   -1   -1   -1   -1               r     1 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10O1448901122 8  0    s   45937.50041562.500 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               t     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10P1448901122 8  0    u   48645.83341562.500 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               v     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10Q1448901122 8  0    w   51354.16741562.500 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1               x     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10R1448901122 8  0    y   45937.50066250.000 1875.000 9479.167    z              C           -1   -1   -1   -1   -1   -1               {     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10S1448901122 8  0    |   48645.83366250.000 1875.000 9479.167    }              C           -1   -1   -1   -1   -1   -1               ~     0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WQ10T1448901122 8  0       51458.33366250.000 1875.000 9479.167                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K40WWMEI1448901285 7  4        10312.500 4375.00015729.16772083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40WXAWQ1448901301 7  4         3750.000 4270.833 5833.33372083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40WXOU41448901312 7  4        26666.667 4375.00014270.83372083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40WYHU01448901331 6           26770.83341250.00014270.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40WYMVO1448901334 7  4        41354.167 4270.83315208.33372083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40WYMVP1448901334 6           41458.33341145.83315104.167  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40X16IU1448901409 5  0       57291.667 6666.667 2395.83349375.000                               -1   -1   -1   -1   -1   -1                    1 14  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _6K40YCVHT1448902720 8  0       60104.167 8541.66733541.66725416.667                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6K40YDNYJ1448902733 8  0       60104.16748125.00033541.66725416.667                   C           -1   -1   -1   -1   -1   -1                    0 12  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6K40YG55X1448902801 8  0       57187.50056770.833 2500.00018645.833                   C           -1   -1   -1   -1   -1   -1                    1 14  1 0     FFFTF  F          2T         0       0 1  0FTT0 0F        WINDOWS _6K40ZDCXL1448903621 5  0       99062.500 5208.333 1666.66726041.667                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6K40ZDCXM1448903621 5  0       99062.50045520.833 1666.66714166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       TFFFF  F          0T                      0FTT0 0F         WINDOWS _6K40ZDCXN1448903621 6           106562.50 5208.333  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _6K40ZDCXO1448903621 6           106562.5045520.833  104.16728333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       TFFFF  F                     1             FTT0 0F         WINDOWS _6K40ZOG3Y1448903906 5  0       95000.000 5625.000 2395.83313437.500                               -1   -1   -1   -1   -1   -1                    1 14  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6K40ZOW0Q1448903908 7  4        95416.66719687.500 1875.000 2083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40ZP1HY1448903916 5  0       95312.50022291.667 2083.333 7916.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6K40ZPFIE1448903921 7  4        95416.66732708.333 1875.000 2083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40ZPFIF1448903921 5  0       95312.50035312.500 2083.33313541.667                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _6K40ZRFZU1448903972 7  4        94895.833 5312.500 3020.83372083.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40ZRWKS1448903983 6           94895.83331562.500 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40ZSYRS1448904009 6           94895.83349583.333 3020.833  104.167                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     0             FTF3 0F         WINDOWS _6K40ZVTXE1448904088 5  0       95312.50050312.500 2083.33317500.000                               -1   -1   -1   -1   -1   -1                    0 12  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6K4100R231448904203 7  4        59895.833 8333.33333958.33325833.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTT0 0F        WINDOWS _6K4100THB1448904205 7  4        59895.83347916.66733958.33325833.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTT0 0F        WINDOWS _6K70W4XW01449359220 8  0       54062.50041562.500 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K70W4XW11449359220 8  0       54166.66766250.000 1875.000 9479.167                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6K70W7HQ41449359427 5  0       107187.50 5208.333 1666.66753750.000                               -1   -1   -1   -1   -1   -1                    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _6KD0NO81P1449744469 8  0       33437.500 5208.333 1875.00024166.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6KD0NPKWB1449744506 5  0       33437.50030312.500 1666.667 2708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _6KD0NQKH51449744528 5  0       33437.50030312.500 1666.667 4166.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _6KD0NR0D31449744538 5  0       33437.50030312.500 1666.667 4062.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _6KD0NRGXR1449744551 8  0       35937.50041875.000 1875.00024375.000                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _6KD0NRGXS1449744551 8  0       35937.50066562.500 1875.000 9479.167                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _75H0L2ERL1518620215 8  0       18437.50035937.500 1875.000 6041.667                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _75H0L2ERM1518620215 8  0       18437.50042708.333 1875.000 4791.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _75H0L49SJ1518620262 8  0       18437.50050312.500 1875.00019479.167                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _75H0L49SK1518620262 8  0       18437.50070312.500 1875.000 4791.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0TTT0 0F         WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              23.000    9.000   18.000   50.000                                4    1                                        1 14                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              20.000    6.000   16.000   19.000                                4    0                                        0 12                                                     F               WINDOWS                     23              23.000    7.000   19.000   22.000                                4    0                                        1 14                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ?ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
68.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   ."Sachbezug bei privater Dienstfahrzeugnutzung"                Arial                                                         mykfzrechner.label20.caption                                  Arial                                                         mykfzrechner.label21.caption                                  Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                mykfzrechner.label9.caption                                   Arial                                                         &mykfzrechner.fahrzeugbezeichnung.value                        Arial                                                         mykfzrechner.label1.caption                                   Arial                                                         "Verbrenner"                                                  Arial                                                         #mykfzrechner.optiongroup1.value = 1                           "Hybrid"                                                      Arial                                                         #mykfzrechner.optiongroup1.value = 2                           	"Elektro"                                                     Arial                                                         #mykfzrechner.optiongroup1.value = 3                           "S-Pedelec (> 25KM/h)"                                        Arial                                                         #mykfzrechner.optiongroup1.value = 4                           "Fahrrad, etc"                                                Arial                                                         #mykfzrechner.optiongroup1.value = 5                           mykfzrechner.label2.caption                                   Arial                                                         mykfzrechner.label4.caption                                   Arial                                                         mykfzrechner.label3.caption                                   Arial                                                         mykfzrechner.listenpreis.value                                "999999.99"                                                   Arial                                                         $mykfzrechner.selbstbeteiligung.value                          "999999.99"                                                   Arial                                                         mykfzrechner.arbeitsweg.value                                 "9999"                                                        Arial                                                         mykfzrechner.label24.caption                                  Arial                                                         mykfzrechner.label17.caption                                  Arial                                                         mykfzrechner.label19.caption                                  Arial                                                         +mykfzrechner.lblpauschalprozentsatz.caption                   Arial                                                         &mykfzrechner.listenpreisgerundet.value                        "999999.99"                                                   Arial                                                         %mykfzrechner.genuztetageimmonat.value                         "999999.99"                                                   Arial                                                         mykfzrechner.label23.caption                                  Arial                                                         mykfzrechner.label5.caption                                   Arial                                                         mykfzrechner.label18.caption                                  Arial                                                         mykfzrechner.label6.caption                                   Arial                                                         mykfzrechner.label7.caption                                   Arial                                                         $mykfzrechner.anschaffungspreis.value                          "999999.99"                                                   Arial                                                         )mykfzrechner.anschaffungspreisnetto.value                     "999999.99"                                                   Arial                                                         !mykfzrechner.betriebskosten.value                             "999999.99"                                                   Arial                                                         mykfzrechner.privatanteil.value                               "999999.99"                                                   Arial                                                         mykfzrechner.label10.caption                                  Arial                                                         mykfzrechner.label12.caption                                  Arial                                                         mykfzrechner.label13.caption                                  Arial                                                         mykfzrechner.label8.caption                                   Arial                                                         $mykfzrechner.bemgrundlage1proz.value                          "999999.99"                                                   Arial                                                          mykfzrechner.kmpausch1proz.value                              "999999.99"                                                   Arial                                                          mykfzrechner.geldwert1proz.value                              "999999.99"                                                   Arial                                                         mykfzrechner.label11.caption                                  Arial                                                         mykfzrechner.label15.caption                                  Arial                                                         mykfzrechner.label16.caption                                  Arial                                                         mykfzrechner.label27.caption                                  Arial                                                         #mykfzrechner.abschreibungjahr.value                           "999999.99"                                                   Arial                                                         #mykfzrechner.gesamtkostenjahr.value                           "999999.99"                                                   Arial                                                         -mykfzrechner.privateranteilgesamtkosten.value                 "999999.99"                                                   Arial                                                         2"Auflistung der Tage mit Fahrzeugnutzung im Monat"            Arial                                                         !mykfzrechner.anzahltage.value > 0                             fahrzeugtageliste1                                            Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             fahrzeugtageliste2                                            Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             %alltrim(mykfzrechner.label21.caption)                         Arial                                                         !mykfzrechner.anzahltage.value > 0                             -"Sachlich und rechnerisch richtig (Lohnbro)"                 Arial                                                         "Zustimmung Mitarbeiter"                                      Arial                                                         "Verwendet wird : "                                           Arial Narrow                                                  "1%-Methode"                                                  Arial Narrow                                                  "Fahrtenbuch-Methode"                                         Arial Narrow                                                  "Zutreffendes bitte ankreuzen"                                Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             !mykfzrechner.anzahltage.value > 0                             mykfzrechner.label14.caption                                  Arial                                                         !mykfzrechner.geldwertfahrtb.value                             "999999.99"                                                   Arial                                                         O"Die Berechnung dient nur der Information und ergeht ausdrcklich ohne Gewhr."                                               Arial                                                         mykfzrechner.label28.caption                                  Arial                                                         "Nein"                                                        Arial                                                         #mykfzrechner.optiongroup2.value = 1                           "Ja, AG"                                                      Arial                                                         #mykfzrechner.optiongroup2.value = 2                           "Ja, AN"                                                      Arial                                                         #mykfzrechner.optiongroup2.value = 3                           mykfzrechner.label29.caption                                  Arial                                                         +mykfzrechner.anteilpauschversteuerung.value                   "999999.99"                                                   Arial                                                         mykfzrechner.label30.caption                                  Arial                                                         mykfzrechner.kaufjahr.value                                   "999999.99"                                                   Arial                                                         mykfzrechner.label31.caption                                  Arial                                                         mykfzrechner.reichweite.value                                 "999999.99"                                                   Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                      Courier New                                                   ."Sachbezug bei privater Dienstfahrzeugnutzung"                Arial                                                         mykfzrechner.label20.caption                                  Arial                                                         mykfzrechner.label21.caption                                  Arial                                                         date()                                                        Arial                                                         empty(ditext6)                                                mykfzrechner.label9.caption                                   Arial                                                         &mykfzrechner.fahrzeugbezeichnung.value                        Arial                                                         mykfzrechner.label1.caption                                   Arial                                                         "Verbrenner"                                                  Arial                                                         #mykfzrechner.optiongroup1.value = 1                           "Hybrid"                                                      Arial                                                         #mykfzrechner.optiongroup1.value = 2                           	"Elektro"                                                     Arial                                                         #mykfzrechner.optiongroup1.value = 3                           "S-Pedelec (> 25KM/h)"                                        Arial                                                         #mykfzrechner.optiongroup1.value = 4                           "Fahrrad, etc"                                                Arial                                                         #mykfzrechner.optiongroup1.value = 5                           mykfzrechner.label2.caption                                   Arial                                                         mykfzrechner.label4.caption                                   Arial                                                         mykfzrechner.label3.caption                                   Arial                                                         mykfzrechner.listenpreis.value                                "999999.99"                                                   Arial                                                         $mykfzrechner.selbstbeteiligung.value                          "999999.99"                                                   Arial                                                         mykfzrechner.arbeitsweg.value                                 "9999"                                                        Arial                                                         mykfzrechner.label24.caption                                  Arial                                                         mykfzrechner.label17.caption                                  Arial                                                         mykfzrechner.label19.caption                                  Arial                                                         +mykfzrechner.lblpauschalprozentsatz.caption                   Arial                                                         &mykfzrechner.listenpreisgerundet.value                        "999999.99"                                                   Arial                                                         %mykfzrechner.genuztetageimmonat.value                         "999999.99"                                                   Arial                                                         mykfzrechner.label23.caption                                  Arial                                                         mykfzrechner.label5.caption                                   Arial                                                         mykfzrechner.label18.caption                                  Arial                                                         mykfzrechner.label6.caption                                   Arial                                                         mykfzrechner.label7.caption                                   Arial                                                         $mykfzrechner.anschaffungspreis.value                          "999999.99"                                                   Arial                                                         )mykfzrechner.anschaffungspreisnetto.value                     "999999.99"                                                   Arial                                                         !mykfzrechner.betriebskosten.value                             "999999.99"                                                   Arial                                                         mykfzrechner.privatanteil.value                               "999999.99"                                                   Arial                                                         mykfzrechner.label10.caption                                  Arial                                                         mykfzrechner.label12.caption                                  Arial                                                         mykfzrechner.label13.caption                                  Arial                                                         mykfzrechner.label8.caption                                   Arial                                                         $mykfzrechner.bemgrundlage1proz.value                          "999999.99"                                                   Arial                                                          mykfzrechner.kmpausch1proz.value                              "999999.99"                                                   Arial                                                          mykfzrechner.geldwert1proz.value                              "999999.99"                                                   Arial                                                         mykfzrechner.label11.caption                                  Arial                                                         mykfzrechner.label15.caption                                  Arial                                                         mykfzrechner.label16.caption                                  Arial                                                         mykfzrechner.label27.caption                                  Arial                                                         #mykfzrechner.abschreibungjahr.value                           "999999.99"                                                   Arial                                                         #mykfzrechner.gesamtkostenjahr.value                           "999999.99"                                                   Arial                                                         -mykfzrechner.privateranteilgesamtkosten.value                 "999999.99"                                                   Arial                                                         2"Auflistung der Tage mit Fahrzeugnutzung im Monat"            Arial                                                         !mykfzrechner.anzahltage.value > 0                             fahrzeugtageliste1                                            Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             fahrzeugtageliste2                                            Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             %alltrim(mykfzrechner.label21.caption)                         Arial                                                         !mykfzrechner.anzahltage.value > 0                             -"Sachlich und rechnerisch richtig (Lohnbro)"                 Arial                                                         "Zustimmung Mitarbeiter"                                      Arial                                                         "Verwendet wird : "                                           Arial Narrow                                                  "1%-Methode"                                                  Arial Narrow                                                  "Fahrtenbuch-Methode"                                         Arial Narrow                                                  "Zutreffendes bitte ankreuzen"                                Arial Narrow                                                  !mykfzrechner.anzahltage.value > 0                             !mykfzrechner.anzahltage.value > 0                             mykfzrechner.label14.caption                                  Arial                                                         !mykfzrechner.geldwertfahrtb.value                             "999999.99"                                                   Arial                                                         O"Die Berechnung dient nur der Information und ergeht ausdrcklich ohne Gewhr."                                               Arial                                                         mykfzrechner.label28.caption                                  Arial                                                         "Nein"                                                        Arial                                                         #mykfzrechner.optiongroup2.value = 1                           "Ja, AG"                                                      Arial                                                         #mykfzrechner.optiongroup2.value = 2                           "Ja, AN"                                                      Arial                                                         #mykfzrechner.optiongroup2.value = 3                           mykfzrechner.label29.caption                                  Arial                                                         +mykfzrechner.anteilpauschversteuerung.value                   "999999.99"                                                   Arial                                                         mykfzrechner.label30.caption                                  Arial                                                         mykfzrechner.kaufjahr.value                                   "999999.99"                                                   Arial                                                         mykfzrechner.label31.caption                                  Arial                                                         mykfzrechner.reichweite.value                                 "999999.99"                                                   Arial                                                         Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial Narrow                                                  Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                JFIF  ` `   C 		



	
 C  , H"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? Y&mt溾`x>k Sjz
"B2A6Gsʞ#j+_{<4c?[{% w_>=\ѫf^'Qu?Pܴ6HT'Ҿ>ѢgԮUTc;R>2YBuTA*-}־*~*,{N3tyd}~qxj𦰉F;I;m觃7h>3-ᱵ%-	!W͙oM+}L e,-Zw?1_}I9zgUb$q?ԯQ޾VX<.RD+kiZw>+cޒK_WCP*;k:2 ~ Wdd}F:B.%t}2m.wmQ}2~ຟf.;0Ia$kؿjCjm)n@AvwmKK\>H,H	   I /G9tyTdjɻ5ӫ?JeqcW̓י{>mc"s$A"Pcsԯ⡛4i{$ {Tc៉M<iorVhFC̪̑o=dY~|Q v9Yfgv[ȳ({ja+iUն['rd
ڟ9oT`;j;_}Mcѝ
!bqd~|A^*8畭{?jC*llXxX#H/#9TY+ i{G%fGC8><c|O On>|T>̞.׬n$"Z45gvQ < u_= |a.-F1d	V	_eYGXZyTMXqxs^l6o^ZMŭk,RےE``Gbh:>[h6WWK5n#7t d
+_#)8xOI}\
ؙЋv}GGk=dPпUaƿ&?ି	?d/e-Y[y+euxp\_[y,<OaY7JRk{VX_FVkѡO֝4n[kmuRbҽ߶5Oa/>֬n4,r_	f	olǁ_4:m6g+,#$$ ֗ÿ^
EO¾46?7-W?t0k</EIFܬLFQӖc o ' M/6'OC]߭!\	Uzx/ w @|u=[X ֈt-&DSd*PgV}K?୺/>&h$bRĲHSq3A'jۓ?,iKc~$FܶW)"z/='MѴsXڥR:2w+]-kZǉ5EQOisyԏ|./-$Ί.Vlz*J; JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? Gs||~4gAIM>w˘>ډiycmeP sھ4/+O^>Fu̒eԒq	 Q?5~j{v/~+FV$R-xYR3AlC䘺e8b'{.KSC
.'b*R޳iIr;k'wetg4 ~#&=VR?`|+,XMÅ` X ʿ?b:+	n /|9݁byf)"$
@??_
Vu9Kv|vW,\wsiov?
ۡ"i].'vdۣQ^\,j;Nz/?zzTQ@0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6KP0OOLCR1450531808      /  F      ]                                                       WINDOWS _6KP0OOLCS1467046715                                                                     WINDOWS _6KP0OOLCT1450531808      
    '                                                           WINDOWS _6KP0OOLCU1450531808                                                                       WINDOWS _6KP0OOLCV1450531808                                                                       WINDOWS _6KP0OOLCW14505318086	      C	  P	  ^	  k	                                                           WINDOWS _6KP0OOLCX1450531808	      	  	  	  	
                                                           WINDOWS _6KP0OOLCY1467046715
      
  
  
  
                                                           WINDOWS _6KP0OOLCZ1450531808:      O  d  t                                                         COMMENT RESERVED                                                                                            
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 274
Width = 401
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "HINWEIS zu ZVK-ATV-UMLAGEN"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     8PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
ENDIF

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   &-   %   9      o     W            U  ~  %    
$  T     
      T        T       
     T   a U	  THISFORM TOP SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 AA  rq  3 1                             
     -      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 384
Left = 579
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label1      FORM1      Caption = "Die Werte werden erst gltig, wenn Sie unter dem Haupmenpunkt:"
Height = 25
Left = 10
Top = 21
Width = 381
Name = "Label1"
      label      label      Label2      FORM1      zFontBold = .T.
Alignment = 2
Caption = "PERSONALDATEN"
Height = 25
Left = 10
Top = 57
Width = 381
Name = "Label2"
      label      label      Label3      FORM1      aCaption = "den Untermenpunkt:"
Height = 25
Left = 10
Top = 93
Width = 381
Name = "Label3"
      label      label      Label4      FORM1      FontBold = .T.
Alignment = 2
Caption = "Y60 Alle Flle neu durchrechnen"
Height = 25
Left = 10
Top = 129
Width = 381
Name = "Label4"
      label      label      Label5      FORM1      _Caption = "angewhlt haben!"
Height = 25
Left = 10
Top = 168
Width = 381
Name = "Label5"
      
commandbutton      
commandbutton      Command1      FORM1      STop = 207
Left = 165
Height = 52
Width = 70
Caption = "OK"
Name = "Command1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _69Y0JN9Q61450725073      /  F      ]        N                                           WINDOWS _69Y0JN9Q71480745000                    }  ,                                               WINDOWS _69Y0JN9Q61480743880q                    |                                               WINDOWS _6KQ0V9CO61450806490z                  @  c!                                               WINDOWS _6KQ0V9CO71450740801%      %  !%  .%  ;%      %  !&                                               WINDOWS _69Y0JN9Q61454863869/'      ;'  G'  Y'  f'      l)  *                                               WINDOWS _69Y0JN9Q71450742137,      ,  -  -  7-                                                           WINDOWS _69Y0JN9Q61450808109s-      -  -  -  -      .  4                                               WINDOWS _6KS0LQS0M1454863901:      :  :  :  :                                                           WINDOWS _6KS0UNFMF1453095131`;      u;  ;  ;  ;      <  <                                               WINDOWS _6KS0UNFMG1454863901=      =  =  =  =      >  b?                                               WINDOWS _6KS0V1R9H1450740426@      @  A  A  #A                                                           WINDOWS _6KS11NGRS1450740973A      A  A  A  A                                                           WINDOWS _6KS12MPW81450741805EB  UB  uB  B  B  B                                                           WINDOWS _69Y0JN9Q61450923087,C      ;C  JC  XC  eC                                                           WINDOWS _6KT106SLX1450923087C      C  C  C  D                                                           COMMENT RESERVED                                gD                                                            D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      PROCEDURE BeforeOpenTables
CREATE cursor Dateien( NAME C (128), SIZE N (10), TIMESTAMP T, ATTRIB C (5), PATH C (128) )
ENDPROC
     7                                 %                             U  W T h Dateien  C  N
  T  C  C U  DATEIEN NAME SIZE	 TIMESTAMP ATTRIB PATH BeforeOpenTables,     1 A1                       w       )                           1      2      form      form      FORM1      DataSession = 2
Height = 451
Width = 378
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Ordner auswhlen..."
ControlBox = .F.
WindowType = 1
Name = "FORM1"
     PROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()

thisform.grddateien.coLUMN1.text1.FontSize = thisform.grddateien.coLUMN1.FontSize
ENDPROC
PROCEDURE Init
PARAMETERS hsberschrift, hscurdir
thisform.jetzt.Value = 1
thisform.vorher.Value = 0
PUBLIC hssuchvarold
hssuchvarold = ""

IF thisform.Top < 0
	thisform.Top = 0
ENDIF

DO case
	case PCOUNT() = 0
		hsberschrift = "Bitte whlen Sie einen Ordner aus!"
		hscurdir = SYS(5)+SYS(2003)
	case PCOUNT() = 1
		hscurdir = SYS(5)+SYS(2003)
ENDCASE

thisform.text3.Value = hsberschrift
thisform.text1.value = hscurdir &&SYS(5)+SYS(2003) &&"c:\temp" 

*SET PROCEDURE TO \pc-gehalt\DrivInf5 ADDITIVE
oDriveC = CreateObject( "DriveInformation", "C")
thisform.hsdrivesliste.value = oDriveC.GetAllDrivesString()

PUBLIC ARRAY drtype(LEN(ALLTRIM(thisform.hsdrivesliste.value)),3)

FOR hsayy = 1 TO LEN(ALLTRIM(thisform.hsdrivesliste.value))
	oDriveC.changedrive(substr(ALLTRIM(thisform.hsdrivesliste.value),hsayy,1))
	drtype(hsayy,1) = oDriveC.getdrivetypestring()
	drtype(hsayy,2) = oDriveC.getdrivetype()
	 DO CASE 
	 CASE drtype(hsayy,2) = 1
*!*		    LCRESULT = 'DRIVE_NOT_FOUND'
			drtype(hsayy,3) = "fragezeichen.jpg"
	 CASE drtype(hsayy,2) = 2
*!*		    LCRESULT = 'DRIVE_REMOVABLE'
			drtype(hsayy,3) = "removeable.jpg"
	 CASE drtype(hsayy,2) = 3
*!*		    LCRESULT = 'DRIVE_FIXED'
			drtype(hsayy,3) = "HDD.jpg"
	 CASE drtype(hsayy,2) = 4
*!*		    LCRESULT = 'DRIVE_REMOTE'
			drtype(hsayy,3) = "remote.jpg"
	 CASE drtype(hsayy,2) = 5
*!*		    LCRESULT = 'DRIVE_CDROM'
			drtype(hsayy,3) = "CD_DVD.jpg"
	 CASE drtype(hsayy,2) = 6
*!*		    LCRESULT = 'DRIVE_RAMDISK'
			drtype(hsayy,3) = "ram-disk.jpg"
	 OTHERWISE 
*!*		    LCRESULT = 'DRIVE_NOT_DETERMINED'
			drtype(hsayy,3) = "fragezeichen.jpg"
	 ENDCASE 	
NEXT

*release procedure DrivInf5
oDriveC.Release()

public ARRAY drivearray(LEN(thisform.hsdrivesliste.value))
PUBLIC ARRAY hsstack(1)
hsstack(1) = 1

thisform.jetzt.Value = hsstack(1)

thisform.combo1.Clear

FOR hsaxx = 1 TO LEN(thisform.hsdrivesliste.value)
	hsnowdrletter = SUBSTR(thisform.hsdrivesliste.value,hsaxx,1)+":\*.*"
	hsxanzf = adir(hsxtemp,hsnowdrletter)
	drivearray(hsaxx) = IIF(hsxanzf > 0,"","\")+SUBSTR(thisform.hsdrivesliste.value,hsaxx,1)+":"+IIF(hsxanzf > 0,""," (NOT FOUND)")
	thisform.Combo1.Picture(hsaxx) = drtype(hsaxx,3)
next
*thisform.Combo1.Picture(1) = "\pc-gehalt\prgicons\hdd.jpg"
*!*	FOR hsaxx = 1 TO LEN(thisform.hsdrivesliste.value)
*!*		thisform.Combo1.Picture(hsaxx) = drtype(hsaxx,3)
*!*	next
thisform.combo1.listindex = ATC(SUBSTR(thisform.text1.Value,1,1),thisform.hsdrivesliste.value)



SELECT dateien

thisform.command2.click
thisform.grdDateien.SetFocus

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     	=    $	  $	                           %           E   1            U    B    U  THISFORM TAG5  C    " T            U  THISFORM SIZER	 FRMRESIZE
 GRDDATEIEN COLUMN1 TEXT1 FONTSIZE 4    T    T     7 
 T    %   
i  T    
 Hz   Ct  / T  " Bitte whlen Sie einen Ordner aus! T C]C] Ct  T C]C]  T      T 	   $ T
 C DriveInformation CN T   C
   7
 CC   >!  (CC   >  CCC    \
   T
  C
   T
  C
  
 H C  
 C) T
   fragezeichen.jpg C  
 ' T
   removeable.jpg C  
   T
   HDD.jpg C  
 # T
  
 remote.jpg C  
 4# T
  
 CD_DVD.jpg C  
 r% T
   ram-disk.jpg 2) T
   fragezeichen.jpg  
 C
   7 C   >
 7  T  T   C 
      (C   >$ T C    \ :\*.* T C  _ T  C       \6C    \ :C        (NOT FOUND)6! T    C  
  , T   CC 	  \    F 
    
    ! 
  " #  T $  $ %  T &  & % 
  '  T ( a U) 
 HSBERSCHRIFT HSCURDIR THISFORM JETZT VALUE VORHER HSSUCHVAROLD TOP TEXT3 TEXT1 ODRIVEC
 HSDRIVESLISTE GETALLDRIVESSTRING DRTYPE HSAYY CHANGEDRIVE GETDRIVETYPESTRING GETDRIVETYPE RELEASE
 DRIVEARRAY HSSTACK COMBO1 CLEAR HSAXX
 HSNOWDRLETTER HSXANZF HSXTEMP PICTURE	 LISTINDEX DATEIEN COMMAND2 CLICK
 GRDDATEIEN SETFOCUS SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Unload,      ResizeN      Init     1  2 "2  11q  BA  aaA 21Cq r22R A A  R 1r AQA t    rq  2                       %         B                 	    )   $	                        
commandbutton      
commandbutton      Command1      FORM1      ZTop = 416
Left = 82
Height = 29
Width = 105
Caption = "abbrechen"
Name = "Command1"
      ZPROCEDURE Click
thisform.tag = ""

SELECT dateien
USE

thisform.Release

ENDPROC
                                      )   %   y                          U  (  T      F  Q
     U  THISFORM TAG DATEIEN RELEASE Click,     1 r A  2                       O       )                            
commandbutton      
commandbutton      Command2      FORM1      wTop = 420
Left = 306
Height = 23
Width = 70
Caption = "command2"
Enabled = .F.
Visible = .F.
Name = "Command2"
     PROCEDURE Click
cpfad = ALLTRIM(thisform.text1.Value)

nAnzahl = ADIR(Arr, cPfad+"\*.", "D")

thisform.text2.Value = thisform.text1.value
IF nanzahl > 0
	ASORT(Arr)
ENDIF

SELECT dateien

SET SAFETY OFF
ZAP
SET SAFETY ON

IF nanzahl = 0
	return
ENDIF

IF LEN(cpfad) > 3 &&ist nicht root
	APPEND BLANK
	replace dateien.name WITH ".. (zurck)"
	replace dateien.path WITH cpfad
	FLUSH
endif
FOR i = 1 TO nAnzahl
	IF "D" $ Arr(i,5) AND Arr(i,1) # "."
		INSERT INTO Dateien (NAME, SIZE, TIMESTAMP, ATTRIB, PATH) VALUES ( Arr(i,1), Arr(i,2),;
			CTOT(DTOC(Arr(i,3))+" "+ Arr(i,4)), Arr(i,5), m.cPfad)
	ENDIF
ENDFOR

SELECT dateien

FLUSH

thisform.grdDateien.RecordSource = "Dateien"

IF thisform.jetzt.Value = 0
	GO top
ELSE
	goto thisform.jetzt.Value &&hsstack(ALEN(hsstack)) 
ENDIF

thisform.grdDateien.Refresh
*thisform.refresh

*Treewalk_woody(m.cPfad)

* Ergebnis anzeigen
*BROWSE












*!*	DO filetree WITH ALLTRIM(thisform.text1.Value)

*!*	SELECT filetree
*!*	brow
ENDPROC
                                   C   %         6  $               U    T  C     T C    \*. D T       %  l 
 C   F  G. S G.  %    B  %C  >   >   .. (zurck) > 	    [  
 ( . % DC 
   C 
   .	| r Dateien   
 	 C 
  C 
  CCC 
  *  C 
  C 
  
     F  [ T    Dateien %     #)  #    
     U  CPFAD THISFORM TEXT1 VALUE NANZAHL ARR TEXT2 DATEIEN NAME PATH I SIZE	 TIMESTAMP ATTRIB
 GRDDATEIEN RECORDSOURCE JETZT REFRESH Click,     1 Q A r b A a A A 2Q A A qA A r B rQ   A  `1                             )                           textbox      textbox      Text1      FORM1      wEnabled = .F.
Height = 24
Left = 9
Top = 84
Visible = .F.
Width = 361
DisabledForeColor = 0,0,0
Name = "Text1"
      _PROCEDURE Valid
IF LEN(this.Value) > 2
	thisform.command2.click
endif
RETURN .t.
ENDPROC
                                     "R   %                             U  1  %C   ># 
      Ba U  THIS VALUE THISFORM COMMAND2 CLICK Valid,     1 a A q 1                       T       )                            grid      grid      
grdDateien      FORM1     ColumnCount = 1
FontBold = .T.
AllowHeaderSizing = .T.
DeleteMark = .F.
GridLines = 0
HeaderHeight = 0
Height = 280
Left = 8
Panel = 1
ReadOnly = .T.
RecordSource = "dateien"
RecordSourceType = 1
ScrollBars = 2
Top = 127
Width = 361
HighlightBackColor = 0,0,255
HighlightStyle = 1
Name = "grdDateien"
Column1.FontBold = .T.
Column1.ControlSource = "dateien.name"
Column1.Width = 331
Column1.ReadOnly = .T.
Column1.Visible = .T.
Column1.BackColor = 255,255,255
Column1.Name = "Column1"
     gPROCEDURE AfterRowColChange
LPARAMETERS nColIndex
IF ALLTRIM(dateien.name) = ".."
	thisform.text2.Value = thisform.text1.value
else
	thisform.text2.Value = ADDBS(ALLTRIM(dateien.path))+ALLTRIM(dateien.name)
endif
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	this.coLUMN1.text1.DblClick
	return
endif
ENDPROC
     	                              m   %   N           {            U  k     %C   ..8  T       d $ T   CC  C    U 	 NCOLINDEX DATEIEN NAME THISFORM TEXT2 VALUE TEXT1 PATH7      %  
0       B  U  NKEYCODE
 NSHIFTALTCTRL THIS COLUMN1 TEXT1 DBLCLICK AfterRowColChange,      KeyPress     1 q  AA 2  A A 1                                   \  	    )                           header      header      Header1      FORM1.grdDateien.Column1      4FontBold = .T.
Caption = "Name"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdDateien.Column1      FontBold = .T.
BorderStyle = 0
Margin = 0
ReadOnly = .T.
SelectOnEntry = .T.
Visible = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
SelectedBackColor = 0,0,255
Name = "Text1"
     jPROCEDURE DblClick

IF SUBSTR(ALLTRIM(dateien.name),1,2) = ".."
	
	thisform.jetzt.Value = hsstack(ALEN(hsstack))
	IF ALEN(hsstack) > 1
		PUBLIC ARRAY hsstack(ALEN(hsstack)-1)
	endif
*!*		thisform.jetzt.Value = thisform.vorher.Value
	thisform.vorher.Value = 0
	IF LEN(ALLTRIM(thisform.text1.value)) = 3
		neuerpfad = SUBSTR(thisform.text1.value,1,RAT("\",thisform.text1.value))
	ELSE
		neuerpfad = SUBSTR(thisform.text1.value,1,RAT("\",thisform.text1.value)-1)
		IF LEN(neuerpfad) <= 3
			IF LEN(neuerpfad) = 2
				neuerpfad = neuerpfad + "\"
			endif
		else
			IF RIGHT(neuerpfad,1) = "\"
				neuerpfad = SUBSTR(neuerpfad,1,LEN(neuerpfad)-1)
			endif	
		endif
	endif
	thisform.text1.value = neuerpfad
ELSE
	IF RECCOUNT("dateien") > 1
		PUBLIC ARRAY hsstack(aLEN(hsstack)+1)
		hsstack(ALEN(hsstack)) = RECNO("dateien")
		thisform.vorher.Value = RECNO("dateien")
		thisform.jetzt.Value = 1
		alterpfad = alltrim(thisform.text1.value)
		neuerpfad = alterpfad+IIF(RIGHT(alterpfad,1)="\","","\")+ALLTRIM(dateien.name)
		thisform.text1.value = neuerpfad
	endif
ENDIF

thisform.text1.valid

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	this.DblClick
	return
endif
hssuchvar = UPPER(CHR(nkeycode))
SELECT dateien
vorx = RECNO()
IF hssuchvarold = hssuchvar
	CONTINUE
	IF .not. FOUND()
		LOCATE FOR SUBSTR(dateien.name,1,1) = hssuchvar
		thisform.grdDateien.Refresh
	endif
else
	LOCATE FOR SUBSTR(dateien.name,1,1) = hssuchvar
endif
IF FOUND()
	hssuchvarold = hssuchvar
	thisform.grdDateien.Refresh
ELSE
	GOTO vorx
	hssuchvarold = ""
ENDIF

ENDPROC
                                      %         *  <               U  z  %CC   \ .. T   CC   %C b  7 C   T     %CC   > ' T C   C \   \ l+ T C   C \   \ %C >* %C >& T   \  h %C R \d T C C >\    T     f %C dateienNb 7 C  T C C dateienO T   C dateienO T    T	 C   3 T 	 CC	 R \     \6C    T      
   
  U  DATEIEN NAME THISFORM JETZT VALUE HSSTACK VORHER TEXT1	 NEUERPFAD	 ALTERPFAD VALID     %  
* 
    B  T CC   f F  T CO %    
 %C4
  -C  \ 
 	 
      -C  \   %C4 
 T  
 	 
   	 # 
 T     U  NKEYCODE
 NSHIFTALTCTRL THIS DBLCLICK	 HSSUCHVAR DATEIEN VORX HSSUCHVAROLD NAME THISFORM
 GRDDATEIEN REFRESH DblClick,      KeyPress    1 AAA 2q 11!A  qA A A 1 A1Q11A A  3   A A q  A   A  A       A 2                       a     #     _  )    )                           textbox      textbox      Text2      FORM1      Enabled = .F.
Height = 24
Left = 9
Top = 100
Width = 361
DisabledBackColor = 255,128,128
DisabledForeColor = 0,0,0
Name = "Text2"
      
commandbutton      
commandbutton      Command4      FORM1      \Top = 416
Left = 199
Height = 29
Width = 105
Caption = "bernehmen"
Name = "Command4"
      uPROCEDURE Click
thisform.tag = ALLTRIM(thisform.text2.Value)

SELECT dateien
USE

thisform.Release

ENDPROC
                                        %                             U  0  T   C     F  Q
     U  THISFORM TAG TEXT2 VALUE DATEIEN RELEASE Click,     1 r A  2                       j       )                            combobox      combobox      Combo1      FORM1      FontBold = .T.
PictureSelectionDisplay = 2
RowSourceType = 5
RowSource = "drivearray"
Height = 27
Left = 9
Style = 2
TabIndex = 90
Top = 67
Width = 361
ReadOnly = .F.
Name = "Combo1"
      PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
thisform.text1.Value = SUBSTR(thisform.hsdrivesliste.Value,this.ListIndex,1)+":\"
thisform.command2.click
ENDPROC
     y    `  `                           %                            U  
 
     U  THIS CLICK: * T    C      \ :\
      U  THISFORM TEXT1 VALUE
 HSDRIVESLISTE THIS	 LISTINDEX COMMAND2 CLICK InteractiveChange,      ClickJ     1  2  1                       '         C          )   `                        textbox      textbox      
hsdrivesliste      FORM1      dEnabled = .F.
Height = 24
Left = 8
Top = 418
Visible = .F.
Width = 70
Name = "hsdrivesliste"
      textbox      textbox      Text3      FORM1      vAlignment = 3
Enabled = .F.
Height = 52
Left = 8
Top = 9
Width = 361
DisabledForeColor = 0,0,0
Name = "Text3"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 434
Left = 360
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      vorher      FORM1      ]Enabled = .F.
Height = 23
Left = 6
Top = 408
Visible = .F.
Width = 36
Name = "vorher"
      textbox      textbox      jetzt      FORM1      ]Enabled = .F.
Height = 21
Left = 46
Top = 410
Visible = .F.
Width = 33
Name = "jetzt"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
 JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? odEY$P1>¹[Ѽ mk:O8ޤoa#ּo0OŽ
Oq4)"HwFͺ|OK-go6\Mnau(g`I64d OM5m'6^57w췷Y
$npB8>|WZMyw IVS_xᇈi
ֿ|F'e`	QIn+e15.'oy/WKgZ[h,BWKo2G
$[ukmkuuni=щv )xE9F忴Í/ý
V^Žk:	2 .e$
-_Htgc{ZǇu5 APgRHG*݇F|WYдRdn"~dRDTẇ$<-^PuGIטLp9_?zu[MР
JF0  e@+-u7FuhE, U,gUۊ<#Agikmm$Q(\ >? JFIF  ` `   C 		



	
 C  ! "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? >=k<K[oAIV6&<M[}ݺDC!Կ^Z[fo	ꏺ
c}]3,j>˞\;▯g>Ԇ_AZ	6<\j<FHT_*t|-}o~8u5i}βAms*\7mnj) >O_|O0gmc狮o-dnbkcQ]LQ_,Ql98ǯz{ ǅoUmA}FS{{[^8L<M"$]f#8`@H4 
|%iN]÷|a
ƣ
Kc)Լ0mH`;Hj<mH:^귞QuCOZU퍝\ f؏:DTϊ̓Mp-k"𶃪뉥iZsm%]]i]7ssMI3ve,P#y_ h|Q g߉Zeis6xvB< hՊ, qmh~=+j4' 
>ѭ?o,oyoIwv3E(mлFFw1?Л^-o8L?n<mo7cY}~JNK_\LG0aR

=&( ( JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? B촕cW`=Z0GAe(GwdDA"CC>7Oehh$Y5Ag'{2^*pv%H>y)ٍ՞,H 96׍֛ũܴX#_1*N1H| ᾁ u|gg]Zu5+EinB$%O)$Yn͸ d~؟i?g?qFHF#] h=#ƣ:Mޙ}6izth˝
;++) ?6o~5-W\մ[%t[+P֥ap겤RK-Z7Qo5ss +񧉡!t=b2g3m]S8OkW
oM:+#ZMZyֈgZ	UCd1??|-?i"o\B[t֬~|e`Yȍ ɷ7B~?5xDn%OOujbO*{v!dH]#u`W}'\iWg.M<]Fudvr3$ 8xu]?r!)u]b1%VK2am]q' |y}@xoHv4IX|oٛҌ7h,K[x<,Dy-¶wycu}5~4ZXo<Yj:̖Ih$V(#TsŘ  JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? v kO
~OnxQM<3OjoO498b7I$*W
g ğgOo	kd, ltXm<W05YM9PK "xiU_wT#?;X !^zx >ƛm/
[P'M# f U57$-6Rpd3Mz>oIiTP3qֿ;lg@~zy
[ͮ&mHM:V='AG9E, /n cS<'eZxÚ"ohw0oF	"h$x!0~P?l{O$([j?4;?x_Sk5[KG2E
?yuHS c koQjٛ?a.s$ϔ߻n1?i/5'r$xG^xjXEKIup--K ]x݆ +GK5|@wX|,Qдo^LK9R^\X}Lbv_dZǬ_"|? ~Ͽ<uxF׊-}FY|x]dBz2VA"Ɂ  JFIF  ` `   C 		



	
 C    "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? ?iIj?|%⯉^'tC;C
0YoyQ]ٶ35e 
#s	[ymk"9t=V[C>H/-	
I|Ȝ' e|G$w.k:5|Gi5MWm*ڝ9c| 
uoۓi~џ ꒢¿hЯ$vKG(i+;3߲-y|QՎj6³˕UӅ0s]=N.~w)9+5v
 QpG_Xy3Y6-!3[uJ	o e|KдxRմ]^n%rN1#y1 T@ڧ:=[BlM/PXCpYW9݂FYy {VxSTy_VE^ɷXY&e#6	w	$Q[L.UH_~yW,FմB~>sZ[dphdVg*?rtGPCt7b[>A[H@dudaO=/$V[ƺ
_\=Kotku}6{@!{{p%	!ϦBnG#ŗb$e!CqPs]=ORT59|K/j
\ PqP.pI,؀0N   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6LQ0JWDKZ1453017634      /  F      ]                                                       WINDOWS _6LQ0JWDL01501984882                                                                     WINDOWS _6LQ0JWDKZ1453017634]*      j*  w*  *  *                                                           WINDOWS _6LQ0KUB3D1453083512G+      T+  a+  o+  |+                                                           WINDOWS _6LQ0KUB3E1453034124+      +  +  +  +                                                           WINDOWS _6LQ0KUB3F1453083512=,      I,  U,  b,  o,                                                           WINDOWS _6LQ0KUB3G1453083512,      ,  ,  ,  ,                                                           WINDOWS _6LQ0KUB3H1453083512,-      8-  D-  Q-  ^-                                                           WINDOWS _6LQ0KUB3I1453083512-      -  -  -  -                                                           WINDOWS _6LQ0JWDKZ1453083512.      (.  4.  A.  N.                                                           WINDOWS _6LQ0JWDKZ1453083512.      .  .  .  .                                                           WINDOWS _6LQ0JWDKZ1453034124/      /  $/  1/  >/                                                           WINDOWS _6LQ0KUB3K1453034124/      /  /  /  /                                                           WINDOWS _6LQ0KUB3L1453034124@0      M0  Z0  h0  u0                                                           WINDOWS _6LQ0JWDKZ14530835120      0  0  1  1                                                           WINDOWS _6LQ0JWDKZ1456032691x1      1  1  1  1                                                           WINDOWS _6LQ0KUB3Q14530341242      )2  62  E2  R2                                                           WINDOWS _6LQ0KUB3R14530341242      2  2  2  2                                                           WINDOWS _6LQ0KUB3S1453034124`3      m3  z3  3  3                                                           WINDOWS _6LQ0JWDKZ14530341244      4  4  ,4  94                                                           WINDOWS _6LQ0JWDKZ14530341244      4  4  4  4                                                           WINDOWS _6LQ0JWDKZ1453034124d5      s5  5  5  5                                                           WINDOWS _6LQ0JWDKZ1453083861"6      16  @6  M6  Z6                                                           WINDOWS _6LQ0KUB3W14530341246      7  7  (7  57                                                           WINDOWS _6LQ0JWDKZ14530838617      7  
8  8  $8                                                           WINDOWS _6LQ0KUB3Y14530341248      8  8  8  8                                                           WINDOWS _6LQ0JWDKZ14530838619      9  9  9  9                                                           WINDOWS _6LQ0KUB401453034124`:      o:  ~:  :  :                                                           WINDOWS _6LQ0JWDKZ1453034124 ;      /;  >;  L;  Y;                                                           WINDOWS _6LQ0JWDKZ1453034124;      ;  ;  <  <                                                           WINDOWS _6LQ0KUB411453083512<      <  <  <  <                                                           WINDOWS _6LQ0KUB4214530341241=      >=  K=  Y=  f=                                                           WINDOWS _6LQ0JWDKZ1453034124=      =  =  >  >                                                           WINDOWS _6LQ0JWDKZ1453034124>      >  >  >  >                                                           WINDOWS _6LQ0JWDKZ1453083512X?      d?  p?  }?  ?                                                           WINDOWS _6LQ0KUB451453083512?      ?  ?  ?  @                                                           WINDOWS _6LQ0LFDAM1456032611J@      W@  d@  r@  @                                                           WINDOWS _6LQ0LFDAN1453083512@      A  #A  3A  @A      A  A                                               WINDOWS _6LQ0JWDKZ1453034124B      B  B  B  B                                                           WINDOWS _6LQ0JWDKZ1453034124eC      tC  C  C  C                                                           WINDOWS _6LQ0JWDKZ1453083512%D  5D  UD  dD  qD  ~D                                                           WINDOWS _6LQ0MDVFQ1453083512E      E  &E  4E  AE                                                           WINDOWS _6LQ115YH41453083512E      E  E  E  F                                                           WINDOWS _6LQ0JWDKZ1453017634OF      [F  gF  uF  F                                                           WINDOWS _6LQ115YH51453034124F      F  F  F  F                                                           WINDOWS _6LQ0JWDKZ1453034124EG      RG  _G  mG  zG                                                           WINDOWS _6LQ115YH61453034124G      G  G  
H  H                                                           WINDOWS _6LQ0JWDKZ1453034124H      H  H  H  H                                                           WINDOWS _6LQ115YH71453034124&I      3I  @I  OI  \I                                                           WINDOWS _6LQ115YH81453034124I      I  I  I   J                                                           WINDOWS _6LQ0JWDL01453034124J      J  J  J  J                                                           WINDOWS _6LQ115YHA1453034124GK      VK  eK  sK  K                                                           WINDOWS _6LQ0JWDKZ1453017634L      L  %L  3L  @L                                                           WINDOWS _6LQ0JWDKZ1453083861L      L  L  L   M                                                           WINDOWS _6LQ0KUB3D1453083861M      M  M  M  M                                                           WINDOWS _6LQ0JWDKZ1453083861N      N  N  N  N                                                           WINDOWS _6LQ0KUB3E1453083861^O      mO  |O  O  O                                                           WINDOWS _6LQ0JWDKZ1453083861;P      JP  YP  gP  tP                                                           WINDOWS _6LQ0KUB3F1453083861Q      'Q  6Q  DQ  QQ                                                           WINDOWS _6LQ0JWDKZ1453034124Q      R  R  !R  .R                                                           WINDOWS _6LQ0KUB3G1453019349R      R  R  R  R                                                           WINDOWS _6LQ115YHG1453034124uS      S  S  S  S                                                           WINDOWS _6LQ0KUB3H14530193495T      DT  ST  aT  nT                                                           WINDOWS _6LR0KA6IF1453083512T  U  %U  4U  EU  RU                                                           WINDOWS _6LR0KA6IG1453083512U      U  V  V  V                                                           WINDOWS _6LR0KA6IH1453083512V      V  V  V  V                                                           WINDOWS _6LR0KA6II1453083861dW      sW  W  W  W                                                           WINDOWS _6LR0KA6IJ1453083861AX      PX  _X  mX  zX                                                           WINDOWS _6LR0KA6IK1453083861Y      -Y  <Y  JY  WY                                                           WINDOWS _6LR0KA6IL1453083512Y      
Z  Z  'Z  4Z                                                           WINDOWS _6LR0KA6IM1453083512Z      Z  Z  Z  Z                                                           WINDOWS _6LR0KA6IN1453083512{[      [  [  [  [                                                           WINDOWS _6LQ0JWDKZ1453083512[      \  \  \  ,\                                                           WINDOWS _6LR0KA6IO1453083861\      \  \  \  \                                                           WINDOWS _6MX0K99QB1456032691<]      I]  V]  e]  r]                                                           WINDOWS _6MX0K99QC1456032611]      ^  ^  '^  4^                                                           COMMENT RESERVED                                ^                                                            _                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 424
Width = 775
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Werte in der PV ab 01.07.2023"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
&&AN nicht Sachsen
IF welchesjahr = 2023 .or. welchesjahr = 2024
	thisform.label1.Caption = "Ab Juli 2023 gelten die folgenden Werte in der PV:"
	thisform.text1.Value = 2.30
	thisform.text3.Value = 1.70
	thisform.text5.Value = 1.45
	thisform.text7.Value = 1.20
	thisform.text9.Value = 0.95
	thisform.text11.Value = 0.70
	thisform.text13.Value = 1.70

	&&AN Sachsen
	thisform.text15.Value = 2.80
	thisform.text17.Value = 2.20
	thisform.text19.Value = 1.95
	thisform.text21.Value = 1.70
	thisform.text23.Value = 1.45
	thisform.text25.Value = 1.20
	thisform.text27.Value = 2.20

	&&AG nicht Sachsen
	thisform.text2.Value = 1.70
	thisform.text4.Value = 1.70
	thisform.text6.Value = 1.70
	thisform.text8.Value = 1.70
	thisform.text10.Value = 1.70
	thisform.text12.Value = 1.70
	thisform.text14.Value = 1.70

	&&AG Sachsen
	thisform.text16.Value = 1.20
	thisform.text18.Value = 1.20
	thisform.text20.Value = 1.20
	thisform.text22.Value = 1.20
	thisform.text24.Value = 1.20
	thisform.text26.Value = 1.20
	thisform.text28.Value = 1.20

	&&Gesamtbeitrag
	thisform.text29.Value = 4.00
	thisform.text30.Value = 3.40
	thisform.text31.Value = 3.15
	thisform.text32.Value = 2.90
	thisform.text33.Value = 2.65
	thisform.text34.Value = 2.40
	thisform.text35.Value = 3.40
ELSE
	thisform.label1.Caption = "Ab Januar 2025 gelten die folgenden Werte in der PV:"
	thisform.text1.Value = 2.40
	thisform.text3.Value = 1.80
	thisform.text5.Value = 1.55
	thisform.text7.Value = 1.30
	thisform.text9.Value = 1.05
	thisform.text11.Value = 0.80
	thisform.text13.Value = 1.80

	&&AN Sachsen
	thisform.text15.Value = 2.90
	thisform.text17.Value = 2.30
	thisform.text19.Value = 2.05
	thisform.text21.Value = 1.80
	thisform.text23.Value = 1.55
	thisform.text25.Value = 1.30
	thisform.text27.Value = 2.30

	&&AG nicht Sachsen
	thisform.text2.Value = 1.80
	thisform.text4.Value = 1.80
	thisform.text6.Value = 1.80
	thisform.text8.Value = 1.80
	thisform.text10.Value = 1.80
	thisform.text12.Value = 1.80
	thisform.text14.Value = 1.80

	&&AG Sachsen
	thisform.text16.Value = 1.30
	thisform.text18.Value = 1.30
	thisform.text20.Value = 1.30
	thisform.text22.Value = 1.30
	thisform.text24.Value = 1.30
	thisform.text26.Value = 1.30
	thisform.text28.Value = 1.30

	&&Gesamtbeitrag
	thisform.text29.Value = 4.20
	thisform.text30.Value = 3.60
	thisform.text31.Value = 3.35
	thisform.text32.Value = 3.10
	thisform.text33.Value = 2.85
	thisform.text34.Value = 2.60
	thisform.text35.Value = 3.60
endif


crlf = CHR(13) + CHR(10)

hserklrungPV = "STABILISIERUNG DER FINANZEN" + CRLF+CRLF

hserklrungPV = hserklrungPV + "Zur Absicherung bestehender Leistungsansprche der sozialen Pflegeversicherung und der im Rahmen dieser Reform vorgesehenen Leistungsanpassungen wird der allgemeine Beitragssatz zum 1. Juli 2023 moderat um 0,35 Prozentpunkte angehoben."+crlf
hserklrungPV = hserklrungPV + "Diese Manahme ist mit Mehreinnahmen in Hhe von rund 6,6 Mrd. Euro/Jahr verbunden." +crlf
hserklrungPV = hserklrungPV + "Die Bundesregierung soll ermchtigt werden, den Beitragssatz knftig durch Rechtsverordnung festzusetzen, sofern auf kurzfristigen Finanzierungsbedarf reagiert werden muss."+crlf+crlf

hserklrungPV = hserklrungPV + "UMSETZUNG DES BESCHLUSSES DES BUNDESVERFASSUNGSGERICHTS VOM 7. April 2022"+crlf+crlf

hserklrungPV = hserklrungPV + "Ebenfalls zum 1. Juli 2023 wird der Beitragssatz zur Umsetzung des Beschlusses des Bundesverfassungsgerichts vom 7. April 2022 nach der Kinderzahl differenziert." +crlf
hserklrungPV = hserklrungPV + "Eltern zahlen dann generell 0,6 Beitragssatzpunkte weniger als Kinderlose." +crlf
hserklrungPV = hserklrungPV + "Bei kinderlosen Mitgliedern gilt ein Beitragssatz in Hhe von 4%." +crlf
hserklrungPV = hserklrungPV + "Bei Mitgliedern mit einem Kind gilt demgegenber nur ein Beitragssatz von 3,4%." +crlf
hserklrungPV = hserklrungPV + "Ab zwei Kindern wird der Beitrag whrend der Erziehungsphase bis zum 25. Lebensjahr um 0,25 Beitragssatzpunkte je Kind bis zum fnften Kind weiter abgesenkt." +crlf
hserklrungPV = hserklrungPV + "Nach der jeweiligen Erziehungsphase entfllt der Abschlag wieder. Nach der Zeit, in der der wirtschaftliche Aufwand der Kindererziehung typischerweise anfllt," 
hserklrungPV = hserklrungPV + "ist eine weitere Differenzierung zwischen Mitgliedern mit unterschiedlicher Kinderzahl nicht mehr vorgesehen." +crlf
hserklrungPV = hserklrungPV + "Bei Mitgliedern mit mehreren Kindern gilt nach der Erziehungszeit daher wieder der regulre Beitragssatz in Hhe von 3,4%."+crlf+crlf
hserklrungPV = hserklrungPV + "Der Arbeitgeberanteil betrgt immer die Hlfte des Grundbeitrages. (1,7% oder 1,2% Sachsen)"
thisform.edit1.Value = hserklrungPV

*!*	thisform.sizer.saveformsize

*!*	thisform.Height = thisform.Height * mscreenfaktor_h
*!*	thisform.width = thisform.width * mscreenfaktor_h

*!*	thisform.resize
*!*	thisform.AutoCenter = .t.
ENDPROC
                                      %   q      M  _               U    C     U  THISFORM SIZER	 FRMRESIZE %  	   E T   2 Ab Juli 2023 gelten die folgenden Werte in der PV: T   ffffff@ T   333333? T   333333? T   333333? T 	  ffffff? T 
  ffffff? T   333333? T   ffffff@ T 
  @ T   333333? T   333333? T   333333? T   333333? T   @ T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T   333333? T    333333? T !        @ T "  333333@ T #  333333	@ T $  333333@ T %  333333@ T &  333333@ T '  333333@ G T   4 Ab Januar 2025 gelten die folgenden Werte in der PV: T   333333@ T   ? T   ? T   ? T 	  ? T 
  ? T   ? T   333333@ T 
  ffffff@ T   ffffff @ T   ? T   ? T   ? T   ffffff@ T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T   ? T    ? T !  @ T "  @ T #  
@ T $  @ T %  @ T &  @ T '  @  T( C
 C
 0 T)  STABILISIERUNG DER FINANZEN( (  T) )  Zur Absicherung bestehender Leistungsansprche der sozialen Pflegeversicherung und der im Rahmen dieser Reform vorgesehenen Leistungsanpassungen wird der allgemeine Beitragssatz zum 1. Juli 2023 moderat um 0,35 Prozentpunkte angehoben.( h T) ) S Diese Manahme ist mit Mehreinnahmen in Hhe von rund 6,6 Mrd. Euro/Jahr verbunden.(  T) ) ٬ Die Bundesregierung soll ermchtigt werden, den Beitragssatz knftig durch Rechtsverordnung festzusetzen, sofern auf kurzfristigen Finanzierungsbedarf reagiert werden muss.( ( b T) ) I UMSETZUNG DES BESCHLUSSES DES BUNDESVERFASSUNGSGERICHTS VOM 7. April 2022( (  T) ) ١ Ebenfalls zum 1. Juli 2023 wird der Beitragssatz zur Umsetzung des Beschlusses des Bundesverfassungsgerichts vom 7. April 2022 nach der Kinderzahl differenziert.( _ T) ) J Eltern zahlen dann generell 0,6 Beitragssatzpunkte weniger als Kinderlose.( V T) ) A Bei kinderlosen Mitgliedern gilt ein Beitragssatz in Hhe von 4%.( d T) ) O Bei Mitgliedern mit einem Kind gilt demgegenber nur ein Beitragssatz von 3,4%.(  T) ) ٝ Ab zwei Kindern wird der Beitrag whrend der Erziehungsphase bis zum 25. Lebensjahr um 0,25 Beitragssatzpunkte je Kind bis zum fnften Kind weiter abgesenkt.(  T) ) ٟ Nach der jeweiligen Erziehungsphase entfllt der Abschlag wieder. Nach der Zeit, in der der wirtschaftliche Aufwand der Kindererziehung typischerweise anfllt, T) ) m ist eine weitere Differenzierung zwischen Mitgliedern mit unterschiedlicher Kinderzahl nicht mehr vorgesehen.(  T) ) z Bei Mitgliedern mit mehreren Kindern gilt nach der Erziehungszeit daher wieder der regulre Beitragssatz in Hhe von 3,4%.( ( l T) ) [ Der Arbeitgeberanteil betrgt immer die Hlfte des Grundbeitrages. (1,7% oder 1,2% Sachsen) T *  )  U+  WELCHESJAHR THISFORM LABEL1 CAPTION TEXT1 VALUE TEXT3 TEXT5 TEXT7 TEXT9 TEXT11 TEXT13 TEXT15 TEXT17 TEXT19 TEXT21 TEXT23 TEXT25 TEXT27 TEXT2 TEXT4 TEXT6 TEXT8 TEXT10 TEXT12 TEXT14 TEXT16 TEXT18 TEXT20 TEXT22 TEXT24 TEXT26 TEXT28 TEXT29 TEXT30 TEXT31 TEXT32 TEXT33 TEXT34 TEXT35 CRLF
 HSERKLRUNGPV EDIT1 Resize,      Init_     1 2 Q qA SQ"baA!!1	19                       ,         G         )                           label      label      Label1      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 12
Caption = "Ab Juli 2023 gelten die folgenden Werte in der PV:"
Height = 22
Left = 9
Top = 9
Width = 380
Name = "Label1"
      shape      shape      Shape1      FORM1      @Top = 41
Left = 6
Height = 328
Width = 448
Name = "Shape1"
      line      line      Line1      FORM1      ?Height = 327
Left = 165
Top = 42
Width = 0
Name = "Line1"
      line      line      Line2      FORM1      =Height = 0
Left = 6
Top = 67
Width = 447
Name = "Line2"
      line      line      Line3      FORM1      >Height = 0
Left = 6
Top = 111
Width = 447
Name = "Line3"
      line      line      Line4      FORM1      >Height = 0
Left = 6
Top = 147
Width = 447
Name = "Line4"
      line      line      Line5      FORM1      >Height = 0
Left = 6
Top = 184
Width = 447
Name = "Line5"
      line      line      Line7      FORM1      >Height = 0
Left = 7
Top = 219
Width = 447
Name = "Line7"
      line      line      Line8      FORM1      >Height = 0
Left = 7
Top = 330
Width = 447
Name = "Line8"
      line      line      Line9      FORM1      ?Height = 300
Left = 280
Top = 68
Width = 0
Name = "Line9"
      label      label      Label3      FORM1      ~FontSize = 12
Caption = "B e i t r a g s s  t z e   in %"
Height = 19
Left = 193
Top = 46
Width = 192
Name = "Label3"
      label      label      Label5      FORM1      _FontSize = 12
Caption = "AN"
Height = 17
Left = 212
Top = 70
Width = 25
Name = "Label5"
      label      label      Label7      FORM1      _FontSize = 12
Caption = "AG"
Height = 18
Left = 325
Top = 69
Width = 25
Name = "Label7"
      label      label      Label11      FORM1      fFontSize = 12
Caption = "Kinderlos"
Height = 22
Left = 9
Top = 115
Width = 69
Name = "Label11"
      label      label      Label12      FORM1      cFontSize = 12
Caption = "1 Kind"
Height = 19
Left = 9
Top = 157
Width = 93
Name = "Label12"
      label      label      Label13      FORM1      eFontSize = 12
Caption = "2 Kinder"
Height = 19
Left = 9
Top = 191
Width = 93
Name = "Label13"
      label      label      Label14      FORM1      eFontSize = 12
Caption = "3 Kinder"
Height = 20
Left = 9
Top = 230
Width = 93
Name = "Label14"
      label      label      Label15      FORM1      eFontSize = 12
Caption = "4 Kinder"
Height = 20
Left = 9
Top = 269
Width = 93
Name = "Label15"
      textbox      textbox      Text1      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 168
ReadOnly = .T.
Top = 117
Width = 51
Name = "Text1"
      textbox      textbox      Text2      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 117
Width = 51
Name = "Text2"
      textbox      textbox      Text5      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 169
ReadOnly = .T.
Top = 189
Width = 51
Name = "Text5"
      textbox      textbox      Text6      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = "9999999.99"
Height = 26
InputMask = "9999999.99"
Left = 284
ReadOnly = .T.
Top = 189
Width = 51
Name = "Text6"
      textbox      textbox      Text7      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 168
ReadOnly = .T.
Top = 225
Width = 51
Name = "Text7"
      textbox      textbox      Text8      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 225
Width = 51
Name = "Text8"
      textbox      textbox      Text9      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 168
ReadOnly = .T.
Top = 262
Width = 51
Name = "Text9"
      textbox      textbox      Text10      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 262
Width = 51
Name = "Text10"
      textbox      textbox      Text11      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 168
ReadOnly = .T.
Top = 300
Width = 51
Name = "Text11"
      textbox      textbox      Text12      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 300
Width = 51
Name = "Text12"
      editbox      editbox      Edit1      FORM1      QHeight = 327
Left = 458
ReadOnly = .T.
Top = 42
Width = 311
Name = "Edit1"
      label      label      Label2      FORM1      nFontSize = 12
Caption = "5 und mehr Kinder"
Height = 21
Left = 9
Top = 306
Width = 132
Name = "Label2"
      textbox      textbox      Text3      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 168
ReadOnly = .T.
Top = 153
Width = 51
Name = "Text3"
      textbox      textbox      Text4      FORM1      ~FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 153
Width = 51
Name = "Text4"
      line      line      Line6      FORM1      >Height = 0
Left = 7
Top = 255
Width = 447
Name = "Line6"
      line      line      Line10      FORM1      ?Height = 0
Left = 7
Top = 292
Width = 447
Name = "Line10"
      label      label      Label4      FORM1      rFontSize = 12
Caption = "mind. 1 Kind ber 25J"
Height = 19
Left = 9
Top = 333
Width = 154
Name = "Label4"
      
commandbutton      
commandbutton      Command2      FORM1      ZTop = 382
Left = 340
Height = 31
Width = 94
Caption = "Schlieen"
Name = "Command2"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            textbox      textbox      Text13      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 168
ReadOnly = .T.
Top = 336
Width = 51
Name = "Text13"
      textbox      textbox      Text14      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 283
ReadOnly = .T.
Top = 336
Width = 51
Name = "Text14"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 402
Left = 753
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      label      label      Label6      FORM1      AutoSize = .T.
FontBold = .T.
FontSize = 12
Caption = "ERLRUNGSTEXT:"
Height = 22
Left = 530
Top = 9
Width = 153
Name = "Label6"
      line      line      Line11      FORM1      @Height = 0
Left = 166
Top = 88
Width = 229
Name = "Line11"
      line      line      Line12      FORM1      @Height = 280
Left = 337
Top = 88
Width = 0
Name = "Line12"
      line      line      Line13      FORM1      @Height = 279
Left = 222
Top = 89
Width = 0
Name = "Line13"
      label      label      Label8      FORM1      cFontSize = 8
Caption = "Sachsen"
Height = 15
Left = 230
Top = 93
Width = 45
Name = "Label8"
      label      label      Label9      FORM1      cFontSize = 8
Caption = "Sachsen"
Height = 15
Left = 343
Top = 93
Width = 45
Name = "Label9"
      label      label      Label10      FORM1      cFontSize = 8
Caption = "andere"
Height = 15
Left = 176
Top = 93
Width = 37
Name = "Label10"
      label      label      Label16      FORM1      cFontSize = 8
Caption = "andere"
Height = 15
Left = 291
Top = 93
Width = 37
Name = "Label16"
      textbox      textbox      Text15      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 226
ReadOnly = .T.
Top = 117
Width = 51
Name = "Text15"
      textbox      textbox      Text16      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 341
ReadOnly = .T.
Top = 117
Width = 51
Name = "Text16"
      textbox      textbox      Text17      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 226
ReadOnly = .T.
Top = 153
Width = 51
Name = "Text17"
      textbox      textbox      Text18      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 341
ReadOnly = .T.
Top = 153
Width = 51
Name = "Text18"
      textbox      textbox      Text19      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 226
ReadOnly = .T.
Top = 189
Width = 51
Name = "Text19"
      textbox      textbox      Text20      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 341
ReadOnly = .T.
Top = 189
Width = 51
Name = "Text20"
      textbox      textbox      Text21      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 226
ReadOnly = .T.
Top = 225
Width = 51
Name = "Text21"
      textbox      textbox      Text22      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 341
ReadOnly = .T.
Top = 225
Width = 51
Name = "Text22"
      textbox      textbox      Text23      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 226
ReadOnly = .T.
Top = 262
Width = 51
Name = "Text23"
      textbox      textbox      Text24      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 341
ReadOnly = .T.
Top = 262
Width = 51
Name = "Text24"
      textbox      textbox      Text25      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 226
ReadOnly = .T.
Top = 300
Width = 51
Name = "Text25"
      textbox      textbox      Text26      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 341
ReadOnly = .T.
Top = 300
Width = 51
Name = "Text26"
      textbox      textbox      Text27      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 226
ReadOnly = .T.
Top = 336
Width = 51
Name = "Text27"
      textbox      textbox      Text28      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 341
ReadOnly = .T.
Top = 336
Width = 51
Name = "Text28"
      mwresize      ..\mail2win\mwresize.vcx      control      	Mwresize1      FORM1      Top = 402
Left = 812
lresizegridcontents = .T.
Name = "Mwresize1"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      textbox      textbox      Text29      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 400
ReadOnly = .T.
Top = 117
Width = 51
Name = "Text29"
      textbox      textbox      Text30      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 400
ReadOnly = .T.
Top = 153
Width = 51
Name = "Text30"
      textbox      textbox      Text31      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 400
ReadOnly = .T.
Top = 189
Width = 51
Name = "Text31"
      textbox      textbox      Text32      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 400
ReadOnly = .T.
Top = 225
Width = 51
Name = "Text32"
      textbox      textbox      Text33      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Format = ""
Height = 26
InputMask = ""
Left = 400
ReadOnly = .T.
Top = 262
Width = 51
Name = "Text33"
      textbox      textbox      Text34      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 400
ReadOnly = .T.
Top = 300
Width = 51
Name = "Text34"
      textbox      textbox      Text35      FORM1      FontBold = .T.
FontSize = 12
Alignment = 2
Height = 26
Left = 400
ReadOnly = .T.
Top = 336
Width = 51
Name = "Text35"
      line      line      Line14      FORM1      @Height = 300
Left = 395
Top = 68
Width = 0
Name = "Line14"
      label      label      Label17      FORM1      eFontSize = 11
Caption = "Gesamt-"
Height = 18
Left = 397
Top = 69
Width = 56
Name = "Label17"
      label      label      Label18      FORM1      eFontSize = 11
Caption = "beitrag"
Height = 18
Left = 397
Top = 90
Width = 56
Name = "Label18"
      label      label      Label19      FORM1      FontSize = 8
WordWrap = .T.
Caption = "(Hatte noch nie Kinder)"
Height = 15
Left = 9
Top = 131
Width = 150
Name = "Label19"
      label      label      Label20      FORM1      {FontSize = 8
Caption = "(auch wenn es verstorben ist.)"
Height = 13
Left = 8
Top = 352
Width = 154
Name = "Label20"
      CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6MP0MI07B1455510458      /  F      ]                                                       WINDOWS _6MP0MI07C1501985008                      %                                               WINDOWS _6MP0MI07D1456032312                  Z                                                 WINDOWS _6MP0MI07E1456032312      )  6  C                                                           WINDOWS _6MP0MI07F1456032312        
    '                                                       WINDOWS _6MX0JXB6A1501984140      /  D  T  a        6                                               COMMENT RESERVED                                
                                                            3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 205
Width = 261
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "PV Kinder-Abzug AN"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     aPROCEDURE Unload
RETURN thisform.tag
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS hspvkiabzug

IF PCOUNT() = 0
	hspvkiabzug = 1
ELSE
	hspvkiabzug = hspvkiabzug + 1
ENDIF
DO case
	CASE welchesjahr < 2023
		thisform.command4.Enabled = .f.
		thisform.command4.Visible = .f.
	CASE welchesjahr = 2023 .or. welchesjahr = 2024
		thisform.command4.Caption = "Werte in der PV ab 01.07.2023 anzeigen"
		thisform.command4.Enabled = .t.
		thisform.command4.Visible = .t.	
	CASE welchesjahr >= 2025
		thisform.command4.Caption = "Werte in der PV ab 01.01.2025 anzeigen"
		thisform.command4.Enabled = .t.
		thisform.command4.Visible = .t.	
endcase

thisform.optiongroup1.Value = hspvkiabzug

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     j    Q  Q                        	p   %   r        $               U    B    U  THISFORM TAG  C     U  THISFORM SIZER	 FRMRESIZE/ 4   %Ct % 
 T   >  T     
 HO i  
  T   - T   -  	   9 T   & Werte in der PV ab 01.07.2023 anzeigen T   a T   a  i9 T   & Werte in der PV ab 01.01.2025 anzeigen T   a T   a  T      % 	 
   T C  	 
 T 
 T  
  
   T 	  	 
   T    
  
    T  a U  HSPVKIABZUG WELCHESJAHR THISFORM COMMAND4 ENABLED VISIBLE CAPTION OPTIONGROUP1 VALUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Unload,      ResizeN      Init     1  2 2 q   A  !!A 2  A    2                       %         B   \         w   V      )   Q                        optiongroup      optiongroup      Optiongroup1      FORM1     tButtonCount = 5
Value = 1
Height = 104
Left = 10
Top = 10
Width = 241
Name = "Optiongroup1"
Option1.Caption = "weniger als 2 Kinder = minus 0,00 %"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 221
Option1.Name = "Option1"
Option2.Caption = "2 Kinder = minus 0,25 %"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 221
Option2.Name = "Option2"
Option3.Caption = "3 Kinder = minus 0,50 %"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 221
Option3.Name = "Option3"
Option4.Caption = "4 Kinder = minus 0,75 %"
Option4.Height = 17
Option4.Left = 5
Option4.Top = 62
Option4.Width = 221
Option4.Name = "Option4"
Option5.Caption = "5 oder mehr Kinder = minus 1,00 %"
Option5.Height = 17
Option5.Left = 5
Option5.Top = 81
Option5.Width = 221
Option5.Name = "Option5"
      sPROCEDURE Click
thisform.tag = "I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,1,0))
thisform.Release
ENDPROC
     
                                \   %                             U  7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE Click,     1  1                       h       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 183
Left = 240
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      FORM1      YTop = 159
Left = 93
Height = 31
Width = 88
Caption = "schlieen"
Name = "Command1"
      uPROCEDURE Click
thisform.tag = "I:"+ALLTRIM(STR(thisform.optiongroup1.Value - 1,1,0))
thisform.Release

ENDPROC
     
                                \   %                             U  7 * T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE Click,     1  2                       j       )                            
commandbutton      
commandbutton      Command4      FORM1      Top = 126
Left = 15
Height = 22
Width = 233
Caption = "Werte in der PV ab 01.07.2023 anzeigen"
Enabled = .T.
Visible = .T.
Name = "Command4"
      0PROCEDURE Click
DO FORM pvabjuli2023
ENDPROC
                                      +   %   U       j      d             U     pvabjuli2023 U  PVABJULI2023 Click,     1 A1                       %       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6NN0MYHKQ1457870165      /  F      ]                                                       WINDOWS _6NN0MYHKR1457870165                    ^                                                 COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      aTop = 0
Left = 0
Height = 480
Width = 500
DoCreate = .T.
Caption = "Form1"
Name = "FORM1"
      qPROCEDURE Init
byvergleich = "alt"
DO grundbetragholen


byvergleich = "neu"
DO grundbetragholen
ENDPROC
                                         %                             U  1  T   alt   T   neu   U  BYVERGLEICH GRUNDBETRAGHOLEN Init,     1 q q 1                       f       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0

?   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6GD126OB21431473693      /  F      ]                                                       WINDOWS _6GD126OB31531793070                      /                                               WINDOWS _6GD126OBC1531793070J      J  K  K  (K      K  O                                               WINDOWS _6GD126OBD1457872101TS      iS  ~S  S  S      S  4T                                               WINDOWS _6GD126OBE1457880500U      U  U  +U  8U                                                           WINDOWS _6GD126OBF1457879334U      U  U  U  V                                                           WINDOWS _6GD126OBG1431473693|V      V  V  V  V                                                           WINDOWS _6GD126OBH1431473693 W      -W  :W  HW  UW                                                           WINDOWS _6GD126OBI1431473693W      W  W  W  W                                                           WINDOWS _6GD126OBJ1431473693cX      pX  }X  X  X                                                           WINDOWS _6GD126OBK1431473693Y      Y  Y  ,Y  9Y                                                           WINDOWS _6GD126OBL1431473693Y      Y  Y  Y  Y                                                           WINDOWS _6GD126OBM1431473693FZ      SZ  `Z  nZ  {Z                                                           WINDOWS _6GD126OBN1431473693Z      Z  [  [  [                                                           WINDOWS _6GD126OBO1431473693[      [  [  [  [                                                           WINDOWS _6GD126OBP1431473693?\      L\  Y\  h\  u\                                                           WINDOWS _6GD126OBQ1431473693\      ]  ]  $]  1]                                                           WINDOWS _6GD126OBR1431473693]      ]  ]  ]  ]                                                           WINDOWS _6GD126OBS14314736935^      B^  O^  ^^  k^                                                           WINDOWS _6GD126OBT1431473693^      ^  ^  ^  _                                                           WINDOWS _6GD126OBU1431473693o_      |_  _  _  _                                                           WINDOWS _6GD126OBV1431473693`      `  &`  5`  B`                                                           WINDOWS _6GD126OB21431473693`      `  `  `  `                                                           WINDOWS _6GD126OB31457871628{a      a  a  a  a                                                           WINDOWS _6GD126OBC1431473693[b      hb  ub  b  b                                                           WINDOWS _6GD126OBD1431473693;c      Hc  Uc  dc  qc                                                           WINDOWS _6GD126OBE1431473693d      #d  0d  ?d  Ld                                                           WINDOWS _6GD126OBF1431473693d       e  
e  e  )e                                                           WINDOWS _6GD126OBG1431473693e      e  e  e  f                                                           WINDOWS _6GD126OBH1431473693f      f  f  f  f                                                           WINDOWS _6GD126OBI1431473693g      g  g  g  g                                                           WINDOWS _6GD126OBJ1431473693gh      th  h  h  h                                                           WINDOWS _6GD126OB21431473693Vi      ci  pi  i  i                                                           WINDOWS _6GD126OB31457872101-j      :j  Gj  Vj  cj                                                           WINDOWS _6GD126OBC1457872101k      k  k  -k  :k                                                           WINDOWS _6GD126OBD1457872101k      k  k  l  l                                                           WINDOWS _6GD126OBE1431473693l      l  l  l  l                                                           WINDOWS _6GD126OBF1431473693m      m  m  m  m                                                           WINDOWS _6GD126OBG1431473693`n      mn  zn  n  n                                                           WINDOWS _6GD126OBH1431473693Lo      Yo  fo  uo  o                                                           WINDOWS _6NN0OOCS51457871832Jp      Wp  dp  sp  p                                                           WINDOWS _6NN0OOCS61457871832q      )q  6q  Eq  Rq                                                           WINDOWS _6NN0OOCS71457871832q      	r  r  %r  2r                                                           WINDOWS _6NN0OOCS81457871832r      r  r  s  s                                                           WINDOWS _6NN0OOCS91457871832s      s  s  s  s                                                           WINDOWS _6NN0OOCSA1457871832t      t  t  t  t                                                           WINDOWS _6NN0OOCSB1457871832qu      ~u  u  u  u                                                           WINDOWS _6NN0OOCSC1457871832Nv      [v  hv  wv  v                                                           WINDOWS _6NN0OOCSD1457871832+w      8w  Ew  Tw  aw                                                           WINDOWS _6NN0OOCSE1457871832x      x  "x  1x  >x                                                           WINDOWS _6GD126OB21457872217x      y  y  "y  /y                                                           WINDOWS _6NN0OOCSF1457872217y      y  y  y  y                                                           WINDOWS _6NN0P3TJ91457872217-z      :z  Gz  Vz  cz                                                           WINDOWS _6NN0P3TJA1457872217{      {  {  -{  :{                                                           WINDOWS _6NN0P3TJB1457872217{      {  {  |  |                                                           WINDOWS _6NN0P3TJC1457872217|      |  |  |  |                                                           WINDOWS _6NN0P3TJD1457872217}      }  }  }  }                                                           WINDOWS _6NN0P3TJE1457872217`~      m~  z~  ~  ~                                                           WINDOWS _6NN0P3TJF14578722177      D  Q  `  m                                                           WINDOWS _6NN0P3TJG1457872217#      0  =  L  Y                                                           WINDOWS _6NN0XS4PJ1457880500!  1  Q  `  m  z                                                           COMMENT RESERVED                                                                                            1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 494
Width = 464
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Familienzuschlag"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     +vPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
	&&ffentlicher Dienst

FOR hsa = 19 TO 36
	hsaxx = ALLTRIM(STR(hsa,2,0))
	thisform.label&hsaxx..caption = ""
NEXT

byvergleich = "alt"
DO grundbetragholen

	&&Ermittlung des Kinderzuschlags fr 1 Kind
	Do Case && zi(1+4)
		Case zi(1+4) < 6 &&8 &&4 &&AOK_version nicht sicher ob and not zi(1+4) = 6 passt
			i = 10
	Endcase

	myget(filenummer, myposition,"employee")
	
	Do getvalues &&Do attached

	kinderzuschlag = grundbetrag(1+17) / 100 &&vorher ohne / 100

	For i = 1 To 18
			Do Case && i
				Case i = 1
					Do Case && zi(1+4)
						Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
							numbr = grundbetrag(1+15) / 100 &&vorher ohne / 100
						Case (zi(1+4) >= 6 .And. zi(1+4) <= 8)
							numbr = 0
					Endcase
				Case  Inlist(i, 2, 3)
					Do Case && zi(1+4)
						Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
							numbr = (grundbetrag(1+16) / 2)  / 100 &&vorher ohne / 100
						Case (zi(1+4) >= 6 .And. zi(1+4) <= 8)
							numbr = 0
					Endcase

				Case (i >= 4 .And. i <= 9)
					numbr = grundbetrag(1+13 + i)  / 100 &&vorher ohne / 100
				Case i = 10
					numbr = wert(1+8) / 100 &&vorher ohne / 100
*!*						thisform.zeile10.FontBold = True
*!*						thisform.Kasten10.FontBold = True
				Case  Inlist(i, 11, 12)
					numbr = 0
				Case i = 13
					numbr = ((grundbetrag(1+17) / 100) - kinderzuschlag)  / 100 &&vorher ohne / 100		
					
				Case (i >= 14 .And. i <= 18)
					numbr = ((grundbetrag(1+18) / 100) - (grundbetrag(1+17) / 100) - kinderzuschlag) &&vorher ohne / 100
			Endcase

			Do zahlintextnumbr &&Do attached
			
*			wer = Leftc(wer, Len(wer) - 1)
			xxx=ALLTRIM(STR(i+18,2,0))
			thisform.label&xxx..Caption = wer
			thisform.label&xxx..BackColor = QBColor(15)
	*	Endwith
	Next
	With thisform
*!*			.Kasten11.Visible = False
*!*			.Kasten12.Visible = False
*!*			.zeile12.Width = 450
		Do Case && zi(1+8)
			Case zi(1+8) = 0
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor

			Case zi(1+8) = 1
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				.label20.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				If zi(1+3) = 0
					.label21.BackColor = QBColor(14)
				Endif
				&&farbenrgb(1+13) &&myform1.z8.BackColor

			Case (zi(1+8) >= 2 .And. zi(1+8) <= 7)
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				.label20.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				If zi(1+3) = 0
					.label21.BackColor = QBColor(14)
				Endif
				&&farbenrgb(1+13) &&myform1.z8.BackColor
				Do Case && zi(1+4)
					Case (zi(1+4) >= 0 .And. zi(1+4) <= 5)
						yyy=ALLTRIM(STR(zi(1+8) + 2 + 18))
						.label&yyy..BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Endcase

			Case (zi(1+8) >= 8 .And. zi(1+8) <= 13)
				.label19.BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Do Case && zi(1+4)
					Case (zi(1+4) >= 0 .And. zi(1+4) <= 5) .Or. (zi(1+4) >= 10 .And. zi(1+4) <= 27)
						yyy=ALLTRIM(STR(zi(1+8) - 4 + 18))
						.label&yyy..BackColor = QBColor(14) &&farbenrgb(1+13) &&myform1.z8.BackColor
				Endcase
		Endcase
	ENDWITH


*********************** ab hier neue werte ******************
byvergleich = "neu"
DO grundbetragholen

FOR hsa = 37 TO 54
	hsaxx = ALLTRIM(STR(hsa,2,0))
	thisform.label&hsaxx..caption = ALLTRIM(STR(0.00,10,2))
	thisform.label&hsaxx..backcolor = QBColor(15) &&weis
NEXT

	&&Ermittlung des Kinderzuschlags fr 1 Kind
	Do Case && zi(1+4)
		Case zi(1+4) < 6 &&8 &&4 &&AOK_version nicht sicher ob and not zi(1+4) = 6 passt
			i = 10
	Endcase
	
	myget(filenummer, myposition,"employee")
	
	Do getvalues &&Do attached

	kinderzuschlag = 0.00 &&grundbetrag(1+17) / 100 &&vorher ohne / 100
	
	DO byfamzuparameter
	
	hsbygrundbetrag = 0.00
	hsbygrundbetrag1 = 0.00
	hsbygrundbetrag2 = 0.00
	hsbygrundbetrag3 = 0.00
	hsbygrundbetrag4 = 0.00
	hsbygrundbetrag5 = 0.00
	hsbygrundbetrag6 = 0.00
			
	FOR hsaby = 0 TO 6
		DO case
			CASE INLIST(hsaby,1,14)
				hsbykianz = 1 
			CASE INLIST(hsaby,2,8) 
				hsbykianz = 2
			CASE INLIST(hsaby,3,9) 
				hsbykianz = 3
			CASE INLIST(hsaby,4,10) 
				hsbykianz = 4
			CASE INLIST(hsaby,5,11) 
				hsbykianz = 5
			CASE INLIST(hsaby,6,12) 
				hsbykianz = 6
			OTHERWISE
				hsbykianz = 0
		ENDCASE
			
		hsbyzeile = wvw.reserve7
		
		IF hsbyzeile > 0
			*grundbetrag

			DO case
				CASE zi(1+8) = 1 &&spalte V = verjheiratete ohne kinder
					hsbyspalte = 3
					hsbygrundbetrag = byfamzu(hsbyzeile,hsbyspalte)
					thisform.label37.Caption = ALLTRIM(STR(hsbygrundbetrag,10,2))
					thisform.label37.BackColor = QBColor(14)
					thisform.label46.Caption = ALLTRIM(STR(hsbygrundbetrag,10,2))
				CASE zi(1+8) = 14 &&spalte L = ledige ohne kinder
					hsbyspalte = 2
					hsbygrundbetrag = byfamzu(hsbyzeile,hsbyspalte)
					thisform.label37.Caption = ALLTRIM(STR(hsbygrundbetrag,10,2))
					thisform.label37.BackColor = QBColor(14)
					thisform.label46.Caption = ALLTRIM(STR(hsbygrundbetrag,10,2))
			endcase
			DO case
				CASE hsbykianz = 1
					hsbyspalte = 4
					hsbygrundbetrag1 = byfamzu(hsbyzeile,hsbyspalte)

				CASE hsbykianz = 2
					hsbyspalte = 5	
					hsbygrundbetrag2 = byfamzu(hsbyzeile,hsbyspalte)		

				CASE hsbykianz = 3
					hsbyspalte = 6	
					hsbygrundbetrag3 = byfamzu(hsbyzeile,5)
					hsbygrundbetrag3 = hsbygrundbetrag3 + byfamzu(hsbyzeile,6)

				CASE hsbykianz = 4
					hsbyspalte = 7
					hsbygrundbetrag4 = byfamzu(hsbyzeile,5)
					hsbygrundbetrag4 = hsbygrundbetrag4 + byfamzu(hsbyzeile,6)
					hsbygrundbetrag4 = hsbygrundbetrag4 + byfamzu(hsbyzeile,7)

				CASE hsbykianz = 5
					hsbyspalte = 7
					hsbygrundbetrag5 = byfamzu(hsbyzeile,5)
					hsbygrundbetrag5 = hsbygrundbetrag5 + byfamzu(hsbyzeile,6)
					hsbygrundbetrag5 = hsbygrundbetrag5 + byfamzu(hsbyzeile,7) + byfamzu(hsbyzeile,7)

				CASE hsbykianz = 6
					hsbyspalte = 7	
					hsbygrundbetrag6 = byfamzu(hsbyzeile,5)
					hsbygrundbetrag6 = hsbygrundbetrag6 + byfamzu(hsbyzeile,6)
					hsbygrundbetrag6 = hsbygrundbetrag6 + byfamzu(hsbyzeile,7) + byfamzu(hsbyzeile,7) + byfamzu(hsbyzeile,7)				

			endcase														
			*erhhungsbetrag berechnen
			IF hsbykianz > 0 .and. zi(1+5) < 13 &&kleiner als A10
				DO case
					CASE zi(1+5) >= 1 .and. zi(1+5) <= 9 &&A3-A8
						DO case
							CASE zi(1+5) = 1 &&A3
								hsbyspalte = 2
							CASE zi(1+5) = 2 &&A4
								hsbyspalte = 3
							CASE zi(1+5) = 3 &&A5
								hsbyspalte = 4
							CASE zi(1+5) = 4 &&A6
								hsbyspalte = 5
							CASE zi(1+5) = 5 &&A5
								hsbyspalte = 4
							CASE zi(1+5) = 6 && A6
								hsbyspalte = 5
							CASE zi(1+5) = 7 &&A7
								hsbyspalte = 6
							CASE zi(1+5) = 8 &&A8
								hsbyspalte = 7
						endcase
						hsbyerhhungsbetrag = byerhhung(hsbyzeile,hsbyspalte) &&* hsbykianz
					CASE zi(1+5) = 9 .or. zi(+15) = 11 &&A9
						hsbyspalte = 9
						hsbyerhhungsbetrag = byerhhung(hsbyzeile,hsbyspalte) &&* hsbykianz
					CASE zi(1+5) = 10 .or. zi(+15) = 12 &&A10
						hsbyspalte = 10
						hsbyerhhungsbetrag = byerhhung(hsbyzeile,hsbyspalte) &&* hsbykianz
					OTHERWISE
						hsbyerhhungsbetrag = 0.00
				ENDCASE
			ELSE
				hsbyerhhungsbetrag = 0.00
			ENDIF

			grundbetrag(1+16) = hsbygrundbetrag * 100 &&0.00
			grundbetrag(1+17) = (hsbygrundbetrag1 + (hsbyerhhungsbetrag * 1)) * 100
			thisform.label49.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 1),10,2))
			grundbetrag(1+18) = (hsbygrundbetrag2 + (hsbyerhhungsbetrag * 2)) * 100
			thisform.label50.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 2),10,2))
			grundbetrag(1+19) = (hsbygrundbetrag3 + (hsbyerhhungsbetrag * 3)) * 100
			thisform.label51.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 3),10,2))
			grundbetrag(1+20) = (hsbygrundbetrag4 + (hsbyerhhungsbetrag * 4)) * 100
			thisform.label52.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 4),10,2))
			grundbetrag(1+21) = (hsbygrundbetrag5 + (hsbyerhhungsbetrag * 5)) * 100
			thisform.label53.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 5),10,2))
			grundbetrag(1+22) = (hsbygrundbetrag6 + (hsbyerhhungsbetrag * 6)) * 100
			thisform.label54.Caption = ALLTRIM(STR((hsbyerhhungsbetrag * 6),10,2))
		endif

		IF wvw.reserve7 = 0
			grundbetrag(1+16) = 0.00
			grundbetrag(1+17) = 0.00
			grundbetrag(1+18) = 0.00
			grundbetrag(1+19) = 0.00
			grundbetrag(1+20) = 0.00
			grundbetrag(1+21) = 0.00
			grundbetrag(1+22) = 0.00
		ENDIF
		
		DO case
			CASE hsaby = 1
				thisform.label40.Caption = ALLTRIM(STR(grundbetrag(1+17) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag1,10,2)) &&6 kind
			CASE hsaby = 2
				thisform.label41.Caption = ALLTRIM(STR(grundbetrag(1+18) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag2,10,2)) &&6 kind
			CASE hsaby = 3
				thisform.label42.Caption = ALLTRIM(STR(grundbetrag(1+19) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag3,10,2)) &&6 kind
			CASE hsaby = 4
				thisform.label43.Caption = ALLTRIM(STR(grundbetrag(1+20) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag4,10,2)) &&6 kind
			CASE hsaby = 5
				thisform.label44.Caption = ALLTRIM(STR(grundbetrag(1+21) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag5,10,2)) &&6 kind
			CASE hsaby = 6
				thisform.label45.Caption = ALLTRIM(STR(grundbetrag(1+22) / 100,10,2)) &&ALLTRIM(STR(hsbygrundbetrag6,10,2)) &&6 kind
		endcase
	next	
	
	DO case
		CASE INLIST(zi(1+8),1,14)
			thisform.label37.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label37.caption
		CASE INLIST(zi(1+8),2,8) 
			thisform.label40.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label40.caption
		CASE INLIST(zi(1+8),3,9) 
			thisform.label41.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label41.caption
		CASE INLIST(zi(1+8),4,10) 
			thisform.label42.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label42.caption
		CASE INLIST(zi(1+8),5,11) 
			thisform.label43.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label43.caption
		CASE INLIST(zi(1+8),6,12) 
			thisform.label44.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label44.caption
		CASE INLIST(zi(1+8),7,13) 
			thisform.label45.BackColor = QBColor(14)
			thisform.label46.Caption = thisform.label45.caption
	ENDCASE
		
IF zi(1+5) >= 13 .or. zi(1+5) = 0
	thisform.label49.caption = ALLTRIM(STR(0.00,10,2))
	thisform.label50.caption = ALLTRIM(STR(0.00,10,2))
	thisform.label51.caption = ALLTRIM(STR(0.00,10,2))
	thisform.label52.caption = ALLTRIM(STR(0.00,10,2))
	thisform.label53.caption = ALLTRIM(STR(0.00,10,2))
	thisform.label54.caption = ALLTRIM(STR(0.00,10,2))
endif						
thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.	


ENDPROC
                                   {   %         N  
  4            U    C     U  THISFORM SIZER	 FRMRESIZE   ($T  T CC   Z& thisform.label&hsaxx..caption = ""
  T  alt  
 H|   C 
 
 T 
  C     employee  	  T
 C d  (
 H U  
 HD C   C 	 C 
 C 	v T C d% C  C 	
 T    C b
 H^D C   C 	 C 
 C 	, T C d% C  C 	^
 T       		 T C  d  
 T C	
 d C 
 T    
 T C d
 d    	U( T C dC d
     T CC  Z% thisform.label&xxx..Caption = wer
/ thisform.label&xxx..BackColor = QBColor(15)
 
  T
 HP C	   T  C  C	  T  C  T  C  %C   T  C  % C	  C	 	| T  C  T  C  %C   T  C  
 Hx% C   C 	x T CCC	 Z( .label&yyy..BackColor = QBColor(14) 
 % C	  C	 
	P T  C 
 HLD C   C 	 C 
 C 	L T CCC	 Z( .label&yyy..BackColor = QBColor(14) 
    T  neu     %(6
 T CC   Z; thisform.label&hsaxx..caption = ALLTRIM(STR(0.00,10,2))
2 thisform.label&hsaxx..backcolor = QBColor(15) 
 
 H= C 
=
 T 
  C     employee  	  T
            T          T          T          T          T          T          T            (
 H8	 C Z
 T   C |
 T   C 	
 T   C 

 T   C 
 T   C 	
 T   2	
 T     T! " #  %!  z
 HK	]
 C	 	
 T$  T C !  $ %  T & ' CC 
Z T &  C  T ( ' CC 
Z C	 ]

 T$  T C !  $ %  T & ' CC 
Z T &  C  T ( ' CC 
Z 
 Hn
u   

 T$  T C !  $ %    

 T$  T C !  $ %    "
 T$  T C ! %  T  C ! %    
 T$  T C ! %  T  C ! %  T  C ! %    
 T$  T C ! %  T  C ! % % T  C ! % C ! %    u
 T$  T C ! %  T  C ! % 1 T  C ! % C ! % C ! %    %    C 

	
 H$ C  C 		
 H
 C 
 T$  C 

 T$  C =

 T$  C _

 T$  C 

 T$  C 

 T$  C 

 T$  C 

 T$   T) C !  $ * $ C 	 C H
 T$ 	 T) C !  $ * $ C 
 C 
 T$ 
 T) C !  $ *  2 T)            T)           T  d! T  ) d" T + ' CC) 
Z! T  ) d" T , ' CC) 
Z! T  ) d" T - ' CC) 
Z! T  ) d" T . ' CC) 
Z! T  ) d" T / ' CC) 
Z! T  ) d" T 0 ' CC) 
Z  %" #  O T          T          T          T          T          T          T          
 H`  % T 1 ' CCC d
Z  % T 2 ' CCC d
Z  % T 3 ' CCC d
Z  8% T 4 ' CCC d
Z  n% T 5 ' CCC d
Z  % T 6 ' CCC d
Z  
 H CC	  T &  C  T ( '  & '  CC	 K T 1  C  T ( '  1 '  CC	 	 T 2  C  T ( '  2 '  CC	 
 T 3  C  T ( '  3 '  CC	 & T 4  C  T ( '  4 '  CC	 o T 5  C  T ( '  5 '  CC	 
 T 6  C  T ( '  6 '  $ %C 
 C  % T + ' CC        
Z% T , ' CC        
Z% T - ' CC        
Z% T . ' CC        
Z% T / ' CC        
Z% T 0 ' CC        
Z 
  7 8  T 9  9 :  T ;  ; : 
  <  T = a U>  HSA HSAXX BYVERGLEICH GRUNDBETRAGHOLEN ZI I MYGET
 FILENUMMER
 MYPOSITION	 GETVALUES KINDERZUSCHLAG GRUNDBETRAG NUMBR WERT ZAHLINTEXTNUMBR XXX THISFORM LABEL19	 BACKCOLOR QBCOLOR LABEL20 LABEL21 YYY BYFAMZUPARAMETER HSBYGRUNDBETRAG HSBYGRUNDBETRAG1 HSBYGRUNDBETRAG2 HSBYGRUNDBETRAG3 HSBYGRUNDBETRAG4 HSBYGRUNDBETRAG5 HSBYGRUNDBETRAG6 HSABY	 HSBYKIANZ	 HSBYZEILE WVW RESERVE7
 HSBYSPALTE BYFAMZU LABEL37 CAPTION LABEL46 HSBYERHHUNGSBETRAG
 BYERHHUNG LABEL49 LABEL50 LABEL51 LABEL52 LABEL53 LABEL54 LABEL40 LABEL41 LABEL42 LABEL43 LABEL44 LABEL45 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 sqaA q  Q A r Rr  AQQ A Q AQ A QS A r QB   QQRQQQQA SQQQQA  QA RQ AA A A q rq!A  Q A r Rr RQQQQQQr Q Q Q Q Q Q   A  Q aqQ aqA   a a Q Q QQ QB  A Q Q Q Q Q Q Q Q A aA aA a QA  QA r!!!!!!A BA  QQQQQQA A  qqqqqqqA BQQQQQQA  rq  3                       ,         G   k+      )                           
commandbutton      
commandbutton      Command1      FORM1      VTop = 449
Left = 77
Height = 31
Width = 152
Caption = "Hilfe"
Name = "Command1"
     PPROCEDURE Click

IF zi(1+2) = 1 .and. (zi(1+4) >= 0 .and. zi(1+4) <= 5)&&beamte BY
	DO case
*!*			CASE welchesjahr = 2020
*!*	    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2020.pdf"
*!*			CASE welchesjahr = 2021
*!*	    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2021.pdf"
		CASE welchesjahr = 2022
    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2022.pdf"
		CASE welchesjahr = 2023
    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2023.pdf"
		CASE welchesjahr = 2024
    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2024.pdf"  
		CASE welchesjahr = 2025
    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2025.pdf"  &&jahreswechsel done 2024
		CASE welchesjahr >= 2026
    		Msg = "pc-gehalt.de/" + xjahr4 + "/beamte_by_2025.pdf"  &&jahreswechsel done 2024
    endcase  		    		    		
    DO insinternet
else
	Do Case && zi(1+4)
		Case (zi(1+4) >= 0 .And. zi(1+4) <= 9)&&4
			myid = 20225
		Case (zi(1+4) >= 10 .And. zi(1+4) <= 27)&&5 To 22
			myid = 20360
	Endcase
	inet = 111
	Msg = ALLTRIM(STR(myid,10,0))
	Do insinternet &&Do attached
ENDIF

ENDPROC
     n    U  U                        w   %                          U  `4 %C   C    C  		
 HA    5 T 
 pc-gehalt.de/  /beamte_by_2022.pdf   5 T 
 pc-gehalt.de/  /beamte_by_2023.pdf  5 T 
 pc-gehalt.de/  /beamte_by_2024.pdf  ]5 T 
 pc-gehalt.de/  /beamte_by_2025.pdf  5 T 
 pc-gehalt.de/  /beamte_by_2025.pdf    Y
 H*% C    C  		 T O% C  
 C  	* T O 
 T o T CC 
 Z    U  ZI WELCHESJAHR MSG XJAHR4 INSINTERNET MYID INET Click,     1 B %Q!Q!Q!Q!QA q   Q Q A  qq A 2                       E      )   U                        
commandbutton      
commandbutton      Command2      FORM1      [Top = 449
Left = 234
Height = 31
Width = 152
Caption = "schlieen"
Name = "Command2"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            label      label      Label1      FORM1      FontBold = .T.
FontSize = 14
Caption = "Familienzuschlag Beamte Bayern ab 2020"
Height = 24
Left = 12
Top = 10
Width = 428
Name = "Label1"
      label      label      Label2      FORM1      lCaption = "Grundbetrag (auch Stufe L / V)"
Height = 19
Left = 14
Top = 56
Width = 178
Name = "Label2"
      label      label      Label3      FORM1      gCaption = "1/2 Verh.Zuschl. fr sich"
Height = 19
Left = 14
Top = 77
Width = 161
Name = "Label3"
      label      label      Label4      FORM1      gCaption = "1/2 Verh.Zuschl. f. Eheg."
Height = 19
Left = 14
Top = 98
Width = 161
Name = "Label4"
      label      label      Label5      FORM1      bCaption = "Zuschlag fr 1 Kind"
Height = 19
Left = 14
Top = 119
Width = 161
Name = "Label5"
      label      label      Label6      FORM1      dCaption = "Zuschlag fr 2 Kinder"
Height = 19
Left = 14
Top = 140
Width = 161
Name = "Label6"
      label      label      Label7      FORM1      dCaption = "Zuschlag fr 3 Kinder"
Height = 19
Left = 14
Top = 161
Width = 161
Name = "Label7"
      label      label      Label8      FORM1      dCaption = "Zuschlag fr 4 Kinder"
Height = 19
Left = 14
Top = 182
Width = 161
Name = "Label8"
      label      label      Label9      FORM1      dCaption = "Zuschlag fr 5 Kinder"
Height = 19
Left = 14
Top = 203
Width = 161
Name = "Label9"
      label      label      Label10      FORM1      eCaption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 14
Top = 224
Width = 161
Name = "Label10"
      label      label      Label11      FORM1      wFontBold = .T.
Caption = "Summe der gelben Felder"
Height = 19
Left = 14
Top = 245
Width = 161
Name = "Label11"
      label      label      Label12      FORM1      ~Caption = "darin sind folgende Erhhungsbetrge enthalten"
Height = 19
Left = 14
Top = 295
Width = 285
Name = "Label12"
      label      label      Label13      FORM1      _Caption = "fr das 1. Kind"
Height = 19
Left = 14
Top = 316
Width = 161
Name = "Label13"
      label      label      Label14      FORM1      _Caption = "fr das 2. Kind"
Height = 19
Left = 14
Top = 337
Width = 161
Name = "Label14"
      label      label      Label15      FORM1      _Caption = "fr das 3. Kind"
Height = 19
Left = 14
Top = 358
Width = 161
Name = "Label15"
      label      label      Label16      FORM1      _Caption = "fr das 4. Kind"
Height = 19
Left = 14
Top = 379
Width = 161
Name = "Label16"
      label      label      Label17      FORM1      _Caption = "fr das 5. Kind"
Height = 19
Left = 14
Top = 400
Width = 161
Name = "Label17"
      label      label      Label18      FORM1      _Caption = "fr das 6. Kind"
Height = 19
Left = 14
Top = 421
Width = 161
Name = "Label18"
      label      label      Label19      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Grundbetrag"
Height = 19
Left = 202
Top = 56
Width = 107
BackColor = 255,255,255
Name = "Label19"
      label      label      Label20      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. fr sich"
Height = 19
Left = 202
Top = 77
Width = 107
BackColor = 255,255,255
Name = "Label20"
      label      label      Label21      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. f. Eheg."
Height = 19
Left = 202
Top = 98
Width = 107
BackColor = 255,255,255
Name = "Label21"
      label      label      Label22      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 1 Kind"
Height = 19
Left = 202
Top = 119
Width = 107
BackColor = 255,255,255
Name = "Label22"
      label      label      Label23      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 2 Kinder"
Height = 19
Left = 202
Top = 140
Width = 107
BackColor = 255,255,255
Name = "Label23"
      label      label      Label24      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 3 Kinder"
Height = 19
Left = 202
Top = 161
Width = 107
BackColor = 255,255,255
Name = "Label24"
      label      label      Label25      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 4 Kinder"
Height = 19
Left = 202
Top = 182
Width = 107
BackColor = 255,255,255
Name = "Label25"
      label      label      Label26      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 5 Kinder"
Height = 19
Left = 202
Top = 203
Width = 107
BackColor = 255,255,255
Name = "Label26"
      label      label      Label27      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 202
Top = 224
Width = 107
BackColor = 255,255,255
Name = "Label27"
      label      label      Label28      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 202
Top = 245
Width = 107
BackColor = 255,255,255
Name = "Label28"
      label      label      Label31      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 1. Kind"
Height = 19
Left = 202
Top = 316
Width = 107
BackColor = 255,255,255
Name = "Label31"
      label      label      Label32      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 2. Kind"
Height = 19
Left = 202
Top = 337
Width = 107
BackColor = 255,255,255
Name = "Label32"
      label      label      Label33      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 3. Kind"
Height = 19
Left = 202
Top = 358
Width = 107
BackColor = 255,255,255
Name = "Label33"
      label      label      Label34      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 4. Kind"
Height = 19
Left = 202
Top = 379
Width = 107
BackColor = 255,255,255
Name = "Label34"
      label      label      Label35      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 5. Kind"
Height = 19
Left = 202
Top = 400
Width = 107
BackColor = 255,255,255
Name = "Label35"
      label      label      Label36      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 6. Kind"
Height = 19
Left = 202
Top = 421
Width = 107
BackColor = 255,255,255
Name = "Label36"
      label      label      Label29      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 198
Top = 267
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label29"
      label      label      Label30      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 198
Top = 288
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label30"
      label      label      Label37      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Grundbetrag"
Height = 19
Left = 335
Top = 56
Width = 107
BackColor = 255,255,255
Name = "Label37"
      label      label      Label38      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. fr sich"
Height = 19
Left = 335
Top = 77
Width = 107
BackColor = 255,255,255
Name = "Label38"
      label      label      Label39      FORM1      Alignment = 1
BorderStyle = 1
Caption = "1/2 Verh.Zuschl. f. Eheg."
Height = 19
Left = 335
Top = 98
Width = 107
BackColor = 255,255,255
Name = "Label39"
      label      label      Label40      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 1 Kind"
Height = 19
Left = 335
Top = 119
Width = 107
BackColor = 255,255,255
Name = "Label40"
      label      label      Label41      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 2 Kinder"
Height = 19
Left = 335
Top = 140
Width = 107
BackColor = 255,255,255
Name = "Label41"
      label      label      Label42      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 3 Kinder"
Height = 19
Left = 335
Top = 161
Width = 107
BackColor = 255,255,255
Name = "Label42"
      label      label      Label43      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 4 Kinder"
Height = 19
Left = 335
Top = 182
Width = 107
BackColor = 255,255,255
Name = "Label43"
      label      label      Label44      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 5 Kinder"
Height = 19
Left = 335
Top = 203
Width = 107
BackColor = 255,255,255
Name = "Label44"
      label      label      Label45      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 335
Top = 224
Width = 107
BackColor = 255,255,255
Name = "Label45"
      label      label      Label46      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 335
Top = 245
Width = 107
BackColor = 255,255,255
Name = "Label46"
      label      label      	altewerte      FORM1      [Caption = "alte Werte"
Height = 16
Left = 249
Top = 38
Width = 60
Name = "altewerte"
      label      label      	neuewerte      FORM1      [Caption = "neue Werte"
Height = 16
Left = 377
Top = 38
Width = 64
Name = "neuewerte"
      label      label      Label49      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 1. Kind"
Height = 19
Left = 336
Top = 316
Width = 107
BackColor = 255,255,255
Name = "Label49"
      label      label      Label50      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 2. Kind"
Height = 19
Left = 336
Top = 337
Width = 107
BackColor = 255,255,255
Name = "Label50"
      label      label      Label51      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 3. Kind"
Height = 19
Left = 336
Top = 358
Width = 107
BackColor = 255,255,255
Name = "Label51"
      label      label      Label52      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 4. Kind"
Height = 19
Left = 336
Top = 379
Width = 107
BackColor = 255,255,255
Name = "Label52"
      label      label      Label53      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 5. Kind"
Height = 19
Left = 336
Top = 400
Width = 107
BackColor = 255,255,255
Name = "Label53"
      label      label      Label54      FORM1      Alignment = 1
BorderStyle = 1
Caption = "fr das 6. Kind"
Height = 19
Left = 336
Top = 421
Width = 107
BackColor = 255,255,255
Name = "Label54"
      label      label      Label47      FORM1      Alignment = 1
BorderStyle = 1
Caption = "Zuschlag fr 6 Kinder"
Height = 19
Left = 332
Top = 267
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label47"
      label      label      Label48      FORM1      FontBold = .T.
Alignment = 1
BorderStyle = 1
Caption = "Summe der gelben Felder"
Height = 19
Left = 332
Top = 288
Visible = .F.
Width = 107
BackColor = 255,255,255
Name = "Label48"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 477
Left = 447
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0

   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6QX0K63MB1465862931      /  F      ]                                                       WINDOWS _6QX0K63MC1531794736                                                                     WINDOWS _6QX0K63MD1465863877q"      ~"  "  "  "      P#  #                                               WINDOWS _6QX0K63ME1465863877$      $  $  $  $      u%  %                                               WINDOWS _6QX0K63MF1465863877&      &  &  &  &      N'  *                                               WINDOWS _6QX0K63MG1465864014f.      s.  .  .  .      /  j/                                               WINDOWS _6QX0K63MH1465864014N0      [0  h0  v0  0      0  R1                                               WINDOWS _6QX0K63MI146692187162      E2  T2  f2  s2      2  4                                               WINDOWS _6QX0K63MJ14669218715      5  5  5  5      K6  f7                                               WINDOWS _6QX0K63MK14658643468      8  8  9  9      9  ~;                                               WINDOWS _6QX0K63ML1465864014j<      <  <  <  <      N=  =                                               WINDOWS _6QX0K63MM1465864265>      >  >  >  >                                                           WINDOWS _6QX0L835F1465863877?  ?  ?  ?  ?  @                                                           COMMENT RESERVED                                @                                                            @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 461
Width = 798
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Versorgungsfreiibetrag"
Closable = .F.
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .F.
Name = "FORM1"
     PROCEDURE Init
	With thisform.Combo0
		.AddItem("Beginn der Versorgung im Jahr 2005 oder vorher")
		If welchesjahr > 2005
			.AddItem("Beginn der Versorgung im Jahr 2006")
		Endif

		If welchesjahr > 2006
			.AddItem("Beginn der Versorgung im Jahr 2007")
		Endif

		If welchesjahr > 2007
			.AddItem("Beginn der Versorgung im Jahr 2008")
		Endif

		If welchesjahr > 2008
			.AddItem("Beginn der Versorgung im Jahr 2009")
		Endif

		If welchesjahr > 2009
			.AddItem("Beginn der Versorgung im Jahr 2010")
		Endif

		If welchesjahr > 2010
			.AddItem("Beginn der Versorgung im Jahr 2011")
		Endif

		If welchesjahr > 2011
			.AddItem("Beginn der Versorgung im Jahr 2012")
		Endif

		If welchesjahr > 2012
			.AddItem("Beginn der Versorgung im Jahr 2013")
		Endif

		If welchesjahr > 2013
			.AddItem("Beginn der Versorgung im Jahr 2014")
		Endif

		If welchesjahr > 2014
			.AddItem("Beginn der Versorgung im Jahr 2015")
		Endif

		If welchesjahr > 2015
			.AddItem("Beginn der Versorgung im Jahr 2016")
		Endif
		&&fragehs
		If welchesjahr > 2016
			.AddItem("Beginn der Versorgung im Jahr 2017")
		Endif
		&&fragehs
		If welchesjahr > 2017
			.AddItem("Beginn der Versorgung im Jahr 2018")
		Endif
		&&fragehs
		If welchesjahr > 2018
			.AddItem("Beginn der Versorgung im Jahr 2019")
		Endif		
		If welchesjahr > 2019
			.AddItem("Beginn der Versorgung im Jahr 2020")
		Endif
		&&fragehs
		If welchesjahr > 2020
			.AddItem("Beginn der Versorgung im Jahr 2021")
		Endif
		If welchesjahr > 2021 &&jahreswechsel done2021
			.AddItem("Beginn der Versorgung im Jahr 2022")
		ENDIF
		If welchesjahr > 2022 &&jahreswechsel done2021
			.AddItem("Beginn der Versorgung im Jahr 2023")
		ENDIF		
		If welchesjahr > 2023 &&jahreswechsel done2021
			.AddItem("Beginn der Versorgung im Jahr 2024")
		ENDIF			
		If welchesjahr > 2024 &&jahreswechsel done2021
			.AddItem("Beginn der Versorgung im Jahr 2025")
		ENDIF	
		If welchesjahr > 2025 &&jahreswechsel done2021
			.AddItem("Beginn der Versorgung im Jahr 2026")
		ENDIF
		IF empty(wnw.versorgungsbeginn) .or. wnw.versorgungsbeginn > jahr4
			wnw.versorgungsbeginn = 2005
		ENDIF
		
		.ListIndex = wnw.Versorgungsbeginn - 2005 + 1 &&1 dazu weil sonst die Anzeige zu klein ist
		
		IF .listindex = 0
			.listindex = 1
		ENDIF
	endwith	
	
thisform.tdbnumber1.Value = wnw.Versorgungsbezug / 100		
thisform.tdbnumber2.Value = wnw.Versorgungssz / 100

		msgx = "Ab 2005 wird die Besteuerung der Renten und Pensionen schrittweise angeglichen, d.h. es wird durchgngig "
		msgx = msgx + "zu einem System der nachgelagerten Besteuerung bergangen." + Chr(13) + Chr(13) + "Nachgelagerte Besteuerung bedeutet, "
		msgx = msgx + "dass Alterseinknfte (gesetzliche Renten, Pensionen, Betriebsrenten, private Leibrenten, Riesterprodukte) erst dann versteuert "
		msgx = msgx + "werden, wenn diese an den Steuerpflichtigen ausgezahlt werden - also im Alter. "
		msgx = msgx + "Um eine Doppelbesteuerung zu vermeiden mssen im Gegenzug die Beitrge zur Altersversorgung in der Erwerbsttigenphase "
		msgx = msgx + "bis zu einem jhrlichen Hchstbetrag von der Steuer befreit werden." + Chr(13) + Chr(13) + "Der bergang "
		msgx = msgx + "erfolgt schrittweise und zwar bei der nachgelagerten Besteueung bis zum Jahr 2040 und bei der Steuerfreistellung "
		msgx = msgx + "der Altersvorsorgeaufwendungen bis zum Jahr 2025. Dementsprechend wird auch der Versorgungs- freibetrag in Abhngigkeit vom "
		msgx = msgx + "Beginn und der ursprnglichen Hhe der Versorgung schrittweise bis 2040 abgebaut."
		thisform.edit1.value = msgx &&vorher .caption bei zeile5


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
     ~    e  e                        w   %   (
        c   F
            U      }< C. Beginn der Versorgung im Jahr 2005 oder vorher  %  0 C" Beginn der Versorgung im Jahr 2006   %  0 C" Beginn der Versorgung im Jahr 2007   % 0 C" Beginn der Versorgung im Jahr 2008   % `0 C" Beginn der Versorgung im Jahr 2009   % 0 C" Beginn der Versorgung im Jahr 2010   % 0 C" Beginn der Versorgung im Jahr 2011   % 20 C" Beginn der Versorgung im Jahr 2012   % x0 C" Beginn der Versorgung im Jahr 2013   % 0 C" Beginn der Versorgung im Jahr 2014   % 0 C" Beginn der Versorgung im Jahr 2015   % J0 C" Beginn der Versorgung im Jahr 2016   % 0 C" Beginn der Versorgung im Jahr 2017   % 0 C" Beginn der Versorgung im Jahr 2018   % 0 C" Beginn der Versorgung im Jahr 2019   % b0 C" Beginn der Versorgung im Jahr 2020   % 0 C" Beginn der Versorgung im Jahr 2021   % 0 C" Beginn der Versorgung im Jahr 2022   % 40 C" Beginn der Versorgung im Jahr 2023   % z0 C" Beginn der Versorgung im Jahr 2024   % 0 C" Beginn der Versorgung im Jahr 2025   % 0 C" Beginn der Versorgung im Jahr 2026    %C      ; T    T    %  y T    T   	  
 d T   	   dv T
 i Ab 2005 wird die Besteuerung der Renten und Pensionen schrittweise angeglichen, d.h. es wird durchgngig  T
 
 : zu einem System der nachgelagerten Besteuerung bergangen.C
 C
 $ Nachgelagerte Besteuerung bedeutet,  T
 
  dass Alterseinknfte (gesetzliche Renten, Pensionen, Betriebsrenten, private Leibrenten, Riesterprodukte) erst dann versteuert ` T
 
 O werden, wenn diese an den Steuerpflichtigen ausgezahlt werden - also im Alter.  T
 
 w Um eine Doppelbesteuerung zu vermeiden mssen im Gegenzug die Beitrge zur Altersversorgung in der Erwerbsttigenphase q T
 
 C bis zu einem jhrlichen Hchstbetrag von der Steuer befreit werden.C
 C
 
 Der bergang  T
 
 q erfolgt schrittweise und zwar bei der nachgelagerten Besteueung bis zum Jahr 2040 und bei der Steuerfreistellung  T
 
 | der Altersvorsorgeaufwendungen bis zum Jahr 2025. Dementsprechend wird auch der Versorgungs- freibetrag in Abhngigkeit vom b T
 
 Q Beginn und der ursprnglichen Hhe der Versorgung schrittweise bis 2040 abgebaut. T   	 
  %     M T C     T b
 T  
      T         T        
     T   a U  THISFORM COMBO0 ADDITEM WELCHESJAHR WNW VERSORGUNGSBEGINN JAHR4	 LISTINDEX
 TDBNUMBER1 VALUE VERSORGUNGSBEZUG
 TDBNUMBER2
 VERSORGUNGSSZ MSGX EDIT1 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 !A "A "A "A "A "A "A "A "A "A "A "A "A "A !A "A !A !A !A !A !A A " A A b	!!1  A    2 1                            a       x    )   e                        label      label      zeile1      FORM1      FontBold = .T.
FontSize = 14
Caption = "Zustzliche Angaben zur "
Height = 22
Left = 18
Top = 27
Visible = .T.
Width = 318
TabIndex = 1
Name = "zeile1"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile2      FORM1      FontBold = .T.
FontSize = 14
Caption = "Berechnung des Versorgungsfreibetrags"
Height = 23
Left = 18
Top = 51
Visible = .T.
Width = 403
TabIndex = 2
Name = "zeile2"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            combobox      combobox      Combo0      FORM1      ]Height = 22
Left = 18
TabIndex = 3
Top = 93
Visible = .T.
Width = 663
Name = "Combo0"
     wPROCEDURE ProgrammaticChange
this.click
ENDPROC
PROCEDURE InteractiveChange
this.click
ENDPROC
PROCEDURE Click
*DO combo_click WITH INT(VAL(SUBSTR(this.Name,6)))

*Case register = 230 &&Versorgungsfreibetrag
*!*		Do Case && myindex
*!*			Case myindex = 0  && bestimmt combo1
			vjahr = thisform.combo0.ListIndex + 2005 - 1
			
			thisform.zeile3.Caption = "Im Jahr " + STR(vjahr,4,0) + " betrug der erste volle Monatsbetrag der Versorgung:"

			IF thisform.combo0.ListIndex + 2005 = welchesjahr
				Msg = " besteht "
			Else
				Msg = " bestand "
			ENDIF
			
			thisform.zeile4.Caption = "Im Jahr " + STR(vjahr,4,0) + Msg + " ein Rechtsanspruch auf eine Sonderzahlung zur Versorgung von:"

			wnw.Versorgungsbeginn = vjahr 
			myput(13, fileneu,"wnw")
		
			Do berechnungauslsen &&Do attached
*	Endcase
ENDPROC
PROCEDURE GotFocus
counter = 1

ENDPROC
         x  x                           %                          U  
 
     U  THIS CLICK
 
     U  THIS CLICKm T     _ T    Im Jahr C   Z4  betrug der erste volle Monatsbetrag der Versorgung: %      T 	  besteht    T 	  bestand  m T    Im Jahr C   Z >  ein Rechtsanspruch auf eine Sonderzahlung zur Versorgung von: T	 
    C
   wnw  
  U  VJAHR THISFORM COMBO0	 LISTINDEX ZEILE3 CAPTION WELCHESJAHR MSG ZEILE4 WNW VERSORGUNGSBEGINN MYPUT FILENEU BERECHNUNGAUSLSEN 
 T   U  COUNTER ProgrammaticChange,      InteractiveChangeJ      Clickh      GotFocusd    1  2  2 a aA qr 3  2                       (         P   Z         v   @        _  l      )   x                        label      label      zeile3      FORM1      rCaption = "zeile3"
Height = 17
Left = 18
Top = 134
Visible = .T.
Width = 603
TabIndex = 4
Name = "zeile3"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            label      label      zeile4      FORM1      rCaption = "zeile4"
Height = 17
Left = 18
Top = 169
Visible = .T.
Width = 603
TabIndex = 6
Name = "zeile4"
      MPROCEDURE Click
DO zeile_click WITH INT(VAL(SUBSTR(this.Name,6)))
ENDPROC
                                      J   %   e       z      t             U      CCC  \g8 U  ZEILE_CLICK THIS NAME Click,     1 1                       B       )                            textbox      textbox      
tdbnumber1      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 678
TabIndex = 5
Top = 131
Visible = .T.
Width = 95
Name = "tdbnumber1"
     PROCEDURE Valid
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
*If register = 230
	wnw.Versorgungsbezug = thisform.tdbnumber1.Value * 100
	myput(13, fileneu,"wnw")
	vbezm = wnw.Versorgungsbezug

	Do berechnungauslsen &&Do attached

*Endif


RETURN .t.
ENDPROC
     `    G  G                        ґ   %                             U  R  T      d C
   wnw  T       Ba U	  WNW VERSORGUNGSBEZUG THISFORM
 TDBNUMBER1 VALUE MYPUT FILENEU VBEZM BERECHNUNGAUSLSEN Valid,     1 qr u 1                             )   G                        textbox      textbox      
tdbnumber2      FORM1      Alignment = 3
Value = 0.00
Height = 22
Left = 678
TabIndex = 7
Top = 166
Visible = .T.
Width = 95
Name = "tdbnumber2"
     PROCEDURE Valid
*DO tdbnumber_change WITH INT(VAL(SUBSTR(this.Name,10)))
*if register = 230
	wnw.Versorgungssz = thisform.tdbnumber2.Value * 100
	myput(13, fileneu,"wnw")
	vbezs = wnw.Versorgungssz

	Do berechnungauslsen &&Do attached
*endif

RETURN .t.
ENDPROC
     ]    D  D                        k   %                             U  R  T      d C
   wnw  T       Ba U	  WNW
 VERSORGUNGSSZ THISFORM
 TDBNUMBER2 VALUE MYPUT FILENEU VBEZS BERECHNUNGAUSLSEN Valid,     1 qr s 1                             )   D                        
commandbutton      
commandbutton      
sscommand1      FORM1      Top = 202
Left = 429
Height = 35
Width = 346
Caption = "Schlieen"
Style = 0
TabIndex = 8
Visible = .T.
SpecialEffect = 0
Name = "sscommand1"
     PROCEDURE Click
*SET STEP ON 
*DO sscommand1_click
DO berechnungauslsen
thisform.release
*!*	IF register = 199
*!*		mytablett.visible = .t.
*!*		RETURN
*!*	ENDIF
*register <> 222 .and. register <> 117 .and. register <> 84 .and. register <> 63 .and. register <> 9 &&noch prfen
*!*	IF .not. INLIST(register,9,63,84,117,148,149,150,222,300)
*!*		thisform.hide
*!*		myform1.visible = .t.
*!*	*	myform1.windowstate = 0
*!*	endif
ENDPROC
                                      i   %   k             z             U      
    U  BERECHNUNGAUSLSEN THISFORM RELEASE Click,     1 s  ;                             )                            
commandbutton      
commandbutton      
sscommand3      FORM1      Top = 202
Left = 18
Height = 35
Width = 346
Caption = "Hilfe"
Style = 0
TabIndex = 9
Visible = .T.
SpecialEffect = 0
Name = "sscommand3"
      kPROCEDURE Click
inet = 111
Msg = "105"
Do insinternet &&Do attached

*DO sscommand3_click

ENDPROC
                                      5   %   o             ~             U  ' 
 T  o T  105   U  INET MSG INSINTERNET Click,     1  q 4                       `       )                            editbox      editbox      Edit1      FORM1      BackStyle = 1
BorderStyle = 0
Enabled = .F.
Height = 202
Left = 20
ScrollBars = 0
TabIndex = 10
Top = 252
Visible = .T.
Width = 753
DisabledForeColor = 0,0,0
Name = "Edit1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 432
Left = 780
TabIndex = 11
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0*   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6TK0WFUAT1480685828      /  F      ]                                                       WINDOWS _6TK0WFUAU1480685828                                                                     WINDOWS _6TK0WFUB91480685828	      
  !
  .
  ;
      
  
                                               WINDOWS _6TK0WFUBA1480685828          (  5                                                       WINDOWS _6TK0WFUBB1480685828
      
  "  3  @                                                       WINDOWS _6TK0WFUBC1480685828                                                                       WINDOWS _6TK0WFUBD1480685828F      S  `  o  |                                                           WINDOWS _6TK0WFUBE1480685828                                                                       WINDOWS _6TK0WFUBF1480685828j      w                                                                 WINDOWS _6TK0WFUBG1480685828
        $  2  ?                                                           WINDOWS _6TK0WFUBH1480685828                                                                       WINDOWS _6TK0WFUBI1480685828,      9  F  W  d                                                           WINDOWS _6TK0WFUBJ1480685828         
  !  .                                                           WINDOWS _6TK0WFUBK1480685828                  <                                                 WINDOWS _6TK0WFUBL1480685828&      3  @  \  i                                                           WINDOWS _6TK0WFUBM1480685828                                                                       WINDOWS _6TK0WFUBN1480685828                                                                       WINDOWS _6TK0WFUBO1480685828u                  -                                                 WINDOWS _6TK0WFUBP1480685828+      @  U  e  r        V                                               WINDOWS _6TK0WFUBQ1480685828$       1   >   L   Y                                                            WINDOWS _6TK0WFUBR1480685828                                                                            WINDOWS _6TK0WFUBS1480685828d!      s!  !  !  !                                                           WINDOWS _6TK0WFUBT1480685828"      %"  2"  >"  K"                                                           WINDOWS _6TK0WFUBU1480685828"      "  "  "  "      W#  #                                               WINDOWS _6TK0WFUBV1480685828$      $  $  $  $                                                           WINDOWS _6TK0WFUBW1480685828B%      O%  \%  l%  y%                                                           WINDOWS _6TK0WFUBX1480685828%      &  &  &  ,&                                                           WINDOWS _6TK0WFUBY1480685828&      &  &  &  &                                                           WINDOWS _6TK0WFUBZ1480685828'      )'  6'  J'  W'                                                           WINDOWS _6TK0WFUC01480685828'      '  '  '  (                                                           WINDOWS _6TK0WFUC11480685828o(      ~(  (  (  (      6)  -                                               WINDOWS _6TK0WFUC21480685828;1      P1  e1  u1  1      1  3                                               WINDOWS _6TK0WFUC31480685828`5      m5  z5  5  5                                                           WINDOWS _6TK0WFUC414806858285      5  6  6  &6      o6  7                                               WINDOWS _6TK0WFUC514806858289      9  )9  79  D9                                                           WINDOWS _6TK0WFUC614806858289      9  9  9  9                                                           WINDOWS _6TK0WFUC71480685828X:      m:  :  :  :      ;  <                                               WINDOWS _6TK0WFUC81480685828>      >  
?  !?  .?      ?  J                                               WINDOWS _6TK0WFUC91480685828T      T  T  T  U      U  n\                                               WINDOWS _6TK0WFUCA1480685828b      b  b  b  c      c                                                 COMMENT RESERVED                                k                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 577
Width = 669
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Hier ermitteln Sie fr Zeile 6 den Beginn der Stufenlaufzeit"
Icon = prgicons\haupticon.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
IF thisform.Top < 0
	thisform.Top = 0
endif
mystufenlaufzeit = thisform
IF EMPTY(mystufenlaufzeit.BDAdatum.value)
	mystufenlaufzeit.BDAdatum.value = CTOD("  .  .  ")
ENDIF
PUBLIC ARRAY stufenbetrag(603)
STORE 0.00 TO stufenbetrag
mystufenlaufzeit.stufenlaufzeitladen.click


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     )                                 %   i                       U    C     U  THISFORM SIZER	 FRMRESIZEJ %    
$  T     
 T    %C   g  T   C   .  .  #  7 [ J        ( 
     %   	 
   T C
    	 T  
 T  
    
  T      	   T      	  
     T   a U  THISFORM TOP MYSTUFENLAUFZEIT BDADATUM VALUE STUFENBETRAG STUFENLAUFZEITLADEN CLICK HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 AA  QA  Q   A    1                       ,         G         )                           
commandbutton      
commandbutton      hilfe      FORM1      PTop = 1
Left = 4
Height = 28
Width = 172
Caption = "Hilfe"
Name = "hilfe"
      PPROCEDURE Click
inet = 110
Msg = "S/Stufenlaufzeit"
DO insinternet
ENDPROC
                                      h   %   |                          U  4 
 T  n T  S/Stufenlaufzeit   U  INET MSG INSINTERNET Click,     1  q 1                       E       )                            
commandbutton      
commandbutton      vorschriften      FORM1      `Top = 1
Left = 178
Height = 28
Width = 172
Caption = "Vorschriften"
Name = "vorschriften"
      RPROCEDURE Click
inet = 110
Msg = "Grundgehaltsstufen"
DO insinternet
ENDPROC
                                      Q   %   ~                          U  6 
 T  n T  Grundgehaltsstufen   U  INET MSG INSINTERNET Click,     1  q 1                       G       )                            
commandbutton      
commandbutton      	schlieen      FORM1      hTop = 1
Left = 352
Height = 28
Width = 172
Cancel = .T.
Caption = "Schlieen"
Name = "schlieen"
      .PROCEDURE Click
thisform.Release

ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  2                       #       )                            shape      shape      frame2      FORM1      TTop = 40
Left = 307
Height = 98
Width = 218
SpecialEffect = 0
Name = "frame2"
      label      label      frame21      FORM1      ^Caption = " Dies gilt fr "
Height = 16
Left = 315
Top = 31
Width = 69
Name = "frame21"
      label      label      Land      FORM1      MCaption = ""
Height = 16
Left = 312
Top = 46
Width = 208
Name = "Land"
      label      label      Dienstverhltnis      FORM1      YCaption = ""
Height = 16
Left = 312
Top = 60
Width = 208
Name = "Dienstverhltnis"
      label      label      Gruppe      FORM1      OCaption = ""
Height = 16
Left = 312
Top = 74
Width = 208
Name = "Gruppe"
      label      label      Bezeichnung      FORM1      TCaption = ""
Height = 16
Left = 312
Top = 88
Width = 208
Name = "Bezeichnung"
      label      label      	Datumab16      FORM1      FontBold = .F.
Alignment = 0
Caption = "(wie im Hauptfenster)"
Height = 16
Left = 312
Top = 116
Width = 208
Name = "Datumab16"
      label      label      Bezeichnung2      FORM1      VCaption = ""
Height = 16
Left = 312
Top = 102
Width = 208
Name = "Bezeichnung2"
      
commandbutton      
commandbutton      	Ermitteln      FORM1      `Top = 140
Left = 311
Height = 29
Width = 210
Caption = "VDZ ermitteln"
Name = "Ermitteln"
      PROCEDURE Click
hsxxbdadatum = mystufenlaufzeit.BDAdatum.value
thisform.visible = .f.

DO FORM vdz WITH hsxxbdadatum
mystufenlaufzeit.visible = .t.
ENDPROC
     7                                 %                             U  A  T      T  -  vdz   T  a U  HSXXBDADATUM MYSTUFENLAUFZEIT BDADATUM VALUE THISFORM VISIBLE VDZ Click,     1 1   1                              )                           shape      shape      Beginnstufenlaufzeit      FORM1      cTop = 180
Left = 307
Height = 79
Width = 218
SpecialEffect = 0
Name = "Beginnstufenlaufzeit"
      label      label      Beginnstufenlaufzeit1      FORM1      {Caption = " Beginn der Stufenlaufzeit  "
Height = 16
Left = 315
Top = 171
Width = 143
Name = "Beginnstufenlaufzeit1"
      label      label      Beginn      FORM1      FontBold = .T.
FontSize = 18
Alignment = 2
Caption = "01.05.2000"
Height = 28
Left = 348
Top = 190
Width = 137
ForeColor = 255,0,0
Name = "Beginn"
      
commandbutton      
commandbutton      Command1      FORM1      iTop = 221
Left = 311
Height = 29
Width = 210
Caption = "bertragen nach Zeile 6"
Name = "Command1"
     PROCEDURE Click
SET CENTURY on
myform1.bdabeginn.value = ALLTRIM(mystufenlaufzeit.Beginn.Caption)
bdatext =  ALLTRIM(mystufenlaufzeit.Beginn.Caption)
SET CENTURY off
myform1.bdabeginn.value = bdatext
zi(1+1) = 0
myform1.z1.Caption = zt1(1+0)
wvw.BDA = mystufenlaufzeit.Beginn.Caption
myPut(13, fileneu, "wnw")
myform1.bdabeginn.SetFocus
keyboard "{ENTER}"
zti = 1
DO zgridaktivieren
thisform.release
ENDPROC
     F    -  -                        M   %                          U    G  T    C    T C    G T      T   T    C	  T
      C
 
  wnw 
      \ {ENTER}
 T   
    U  MYFORM1	 BDABEGINN VALUE MYSTUFENLAUFZEIT BEGINN CAPTION BDATEXT ZI Z1 ZT1 WVW BDA MYPUT FILENEU SETFOCUS ZTI ZGRIDAKTIVIEREN THISFORM RELEASE Click,     1 a Qa 11qaq  q  1                             )   -                        
commandbutton      
commandbutton      Bescheid      FORM1      bTop = 260
Left = 311
Height = 29
Width = 210
Caption = "Bescheid drucken"
Name = "Bescheid"
      rPROCEDURE Click
*Druckvorschau.druckstufenlaufzeit Druckvorschau.Blatt, dRatio
DO druckstufenlaufzeit
ENDPROC
                                      f   %   O       d      ^             U  
     U  DRUCKSTUFENLAUFZEIT Click,     1 r 1                       g       )                            shape      shape      frame1      FORM1      UTop = 301
Left = 307
Height = 52
Width = 218
SpecialEffect = 0
Name = "frame1"
      label      label      frame11      FORM1      pCaption = " Ergeb. der Stufenvernderung  "
Height = 16
Left = 315
Top = 292
Width = 172
Name = "frame11"
      textbox      textbox      Leistung      FORM1      qAlignment = 3
Value = 0.00
Height = 22
Left = 319
ReadOnly = .T.
Top = 317
Width = 106
Name = "Leistung"
      label      label      Euro      FORM1      QCaption = "Euro"
Height = 16
Left = 428
Top = 320
Width = 29
Name = "Euro"
      
commandbutton      
commandbutton      Liste      FORM1      gTop = 310
Left = 470
Height = 37
Width = 44
Picture = icons\094.ico
Caption = ""
Name = "Liste"
      FPROCEDURE Click
Msg = "1999"
inet = "111"
DO insinternet
ENDPROC
                                      i   %   s                          U  +  T   1999 T  111   U  MSG INET INSINTERNET Click,     1 q 1                       ;       )                            label      label      eingangsamt      FORM1      eWordWrap = .T.
Caption = ""
Height = 70
Left = 307
Top = 357
Width = 218
Name = "eingangsamt"
      label      label      Stichtag      FORM1      vFontBold = .T.
FontSize = 10
Caption = "STICHTAG"
Height = 18
Left = 9
Top = 36
Width = 277
Name = "Stichtag"
      shape      shape      Frame3      FORM1      RTop = 67
Left = 3
Height = 62
Width = 304
SpecialEffect = 0
Name = "Frame3"
      label      label      Frame31      FORM1      XCaption = " Vorgaben "
Height = 16
Left = 11
Top = 58
Width = 59
Name = "Frame31"
      label      label      Stufenbeginn      FORM1      fCaption = "Beginn der Stufe 1"
Height = 16
Left = 14
Top = 76
Width = 103
Name = "Stufenbeginn"
      label      label      Stufenbewegung      FORM1      eCaption = "Stufenbewegung"
Height = 16
Left = 14
Top = 103
Width = 103
Name = "Stufenbewegung"
      textbox      textbox      BDAdatum      FORM1      Format = "99.99.9999"
Height = 22
InputMask = "99.99.9999"
Left = 161
MaxLength = 10
Top = 73
Width = 112
Name = "BDAdatum"
     HPROCEDURE InteractiveChange
*this.programmaticchange
ENDPROC
PROCEDURE ProgrammaticChange
If startflag = True 
	RETURN
ENDIF
IF vartype(mystufenlaufzeit.BDAdatum.Value) <> "D"
	mydatumxx = CTOD(mystufenlaufzeit.BDAdatum.Value)
ELSE
	mydatumxx = mystufenlaufzeit.BDAdatum.Value
endif
If Day(mydatumxx) < 1 .Or. Day(mydatumxx) > 31
	RETURN 
Endif
If Month(mydatumxx) < 1 .Or. month(mydatumxx) > 12
	RETURN 
Endif
If Year(mydatumxx) < 1950 .Or. Year(mydatumxx) > jahr5 &&hs vorher 2015 Jahreswechsel
	RETURN 
ENDIF

If .not. EMPTY(mystufenlaufzeit.BDAdatum.value)
   mystufenlaufzeit.durchrechnen.click
EndIf

ENDPROC
PROCEDURE Valid
If Day(mystufenlaufzeit.BDAdatum.Value) < 1 .Or. Day(mystufenlaufzeit.BDAdatum.Value) > 31
	RETURN .f.
Endif
If Month(mystufenlaufzeit.BDAdatum.Value) < 1 .Or. Month(mystufenlaufzeit.BDAdatum.Value) > 12
	RETURN .f.
Endif
If Year(mystufenlaufzeit.BDAdatum.Value) < 1950 .Or. Year(mystufenlaufzeit.BDAdatum.Value) > jahr5 &&hs vorher 2015 Jahreswechsel
	RETURN .f.
ENDIF
mystufenlaufzeit.durchrechnen.click
RETURN 1

ENDPROC
                                   
   %         +  #               U    U   %     B  %C    DI  T C   # d  T       %C %
 C %  B   %C H
 C H  B ! %C i
 C i   B  %C   

      U	 	 STARTFLAG TRUE MYSTUFENLAUFZEIT BDADATUM VALUE	 MYDATUMXX JAHR5 DURCHRECHNEN CLICK , %C    %
 C    %3  B- , %C    H
 C    Hj  B- - %C    i
 C    i   B- 
     	 B U  MYSTUFENLAUFZEIT BDADATUM VALUE JAHR5 DURCHRECHNEN CLICK InteractiveChange,      ProgrammaticChange3      Valid    1 3 A A Q 1A A A A A A A b A 3 q A q A q A   2                       5         ^   w          =      )                           
commandbutton      
commandbutton      Kalender      FORM1      qTop = 71
Left = 273
Height = 25
Width = 20
Picture = prgicons\dropbutt.bmp
Caption = ""
Name = "Kalender"
     PROCEDURE Click
*thisform.olecontrol2.height=182

DO FORM kalender WITH IIF(VARTYPE(mystufenlaufzeit.BDAdatum.value)="C",CTOD(mystufenlaufzeit.BDAdatum.value),mystufenlaufzeit.BDAdatum.value) TO xbdadat

IF .not. EMPTY(xbdadat)
	mystufenlaufzeit.BDAdatum.value = SUBSTR(xbdadat,7,2) + "." + SUBSTR(xbdadat,5,2) + "." + SUBSTR(xbdadat,1,4) &&vorher stod(xbdadat)
ENDIF

mystufenlaufzeit.bdadatum.ProgrammaticChange 
 

ENDPROC
                                   I   %         <     .            U   D  kalender( CC    C C   #	    6 %C 
 = T   C \ .C \ .C \ 
     U  KALENDER MYSTUFENLAUFZEIT BDADATUM VALUE XBDADAT PROGRAMMATICCHANGE Click,     1 CA  3                             )                           label      label      Label1      FORM1      PCaption = ""
Height = 16
Left = 149
Top = 103
Width = 12
Name = "Label1"
      spinner      spinner      Monate      FORM1      AHeight = 21
Left = 162
Top = 100
Width = 57
Name = "Monate"
     &PROCEDURE InteractiveChange
If startflag = True 
	RETURN
endif
If EMPTY(mystufenlaufzeit.Monate.value) &&= "" Or Monate.Text = " " Then Exit Sub
	RETURN
endif
If Not EMPTY(mystufenlaufzeit.Monate.value) && = "-" Then durchrechnen
	mystufenlaufzeit.durchrechnen.Click
ENDIF

ENDPROC
     j    Q  Q                           %                            U  `  %     B  %C   2  B  %C   
Y 
      U 	 STARTFLAG TRUE MYSTUFENLAUFZEIT MONATE VALUE DURCHRECHNEN CLICK InteractiveChange,     1 A A QA A a A 2                             )   Q                        label      label      Label2      FORM1      UCaption = "Monate"
Height = 16
Left = 222
Top = 103
Width = 43
Name = "Label2"
      label      label      Datumab0      FORM1      xFontBold = .T.
Alignment = 0
Caption = "Datumab0"
Height = 16
Left = 312
Top = 438
Width = 90
Name = "Datumab0"
      
commandbutton      
commandbutton      bundalt      FORM1      uTop = 438
Left = 390
Height = 19
Width = 64
Caption = "Bundalt"
Enabled = .F.
Visible = .F.
Name = "bundalt"
     uPROCEDURE Click
With mystufenlaufzeit
	.Normal1.Caption = "24"
	.Normal2.Caption = "24"
	.Normal3.Caption = "24"
	.Normal4.Caption = "24"
	.Normal5.Caption = "36"
	.Normal6.Caption = "36"
	.Normal7.Caption = "36"
	.Normal8.Caption = "36"
	.Normal9.Caption = "48"
	.Normal10.Caption = "48"
	.Normal11.Caption = "48"
	.Normal12.Caption = "  "
EndWith
ENDPROC
     C    *  *                        7   %                          U   
     T   24 T   24 T   24 T   24 T   36 T   36 T   36 T	   36 T
   48 T   48 T   48 T
       U  MYSTUFENLAUFZEIT NORMAL1 CAPTION NORMAL2 NORMAL3 NORMAL4 NORMAL5 NORMAL6 NORMAL7 NORMAL8 NORMAL9 NORMAL10 NORMAL11 NORMAL12 Click,     1  111111111111A 1                       j      )   *                        
commandbutton      
commandbutton      durchrechnen      FORM1      Top = 435
Left = 453
Height = 19
Width = 82
Caption = "durchrechnen"
Enabled = .F.
Visible = .F.
Name = "durchrechnen"
     
PROCEDURE Click

SET CENTURY on

IF .not. VARTYPE(mystufenlaufzeit.BDAdatum.value) = "C"
	mystufenlaufzeit.Datumab1.Caption = DTOC(mystufenlaufzeit.BDAdatum.value)
ELSE
	mystufenlaufzeit.Datumab1.Caption = mystufenlaufzeit.BDAdatum.value
endif
SET CENTURY off
For i = 1 To z9
	xxx=ALLTRIM(STR(i,3,0))
    If mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14) 
    	j = i
    endif
NEXT

k = 0
For i = 1 To j - 1
	xxx=ALLTRIM(STR(i,3,0))
    k = k + INT(VAL(mystufenlaufzeit.Normal&xxx..caption))
NEXT

If mystufenlaufzeit.Monate.value > k 
	mystufenlaufzeit.Monate.value = k
endif
SET CENTURY on

IF VARTYPE(mystufenlaufzeit.BDAdatum.value) = "D"
	mystufenlaufzeit.neu1.Caption = DTOC(DateAdd("m", mystufenlaufzeit.Monate.value, mystufenlaufzeit.BDAdatum.value))
else
	mystufenlaufzeit.neu1.Caption = DTOC(DateAdd("m", mystufenlaufzeit.Monate.value, CTOD(mystufenlaufzeit.BDAdatum.value)))
endif
For i = 2 To z9
	xxx=ALLTRIM(STR(i,3,0))
	yyy=ALLTRIM(STR(i-1,3,0))
    mystufenlaufzeit.Datumab&xxx..Caption = DTOC(DateAdd("m", INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..Caption))), CTOD(ALLTRIM(mystufenlaufzeit.Datumab&yyy..Caption))))
    mystufenlaufzeit.neu&xxx..Caption = DTOC(DateAdd("m",INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..caption))), CTOD(ALLTRIM(mystufenlaufzeit.neu&yyy..Caption))))
Next
SET CENTURY off
For i = 5 To 12
    If z9 = i Then
       For m = i + 1 To 12
       	   xxx=ALLTRIM(STR(m,4,0))
           mystufenlaufzeit.Datumab&xxx..Visible = False
           mystufenlaufzeit.Stufe&xxx..Visible = False
           mystufenlaufzeit.Normal&xxx..Visible = False
           mystufenlaufzeit.neu&xxx..Visible = False
       Next
    EndIf
NEXT

xxz9 = ALLTRIM(STR(z9,4,0))
mystufenlaufzeit.Normal&xxz9..Caption = "Endstufe"

mystufenlaufzeit.Beginn.Caption = mystufenlaufzeit.neu1.Caption
 
Msg = "0" + ALLTRIM(STR(zi(1+ 20) + 1,4,0))
Msg = "01." + Right(Msg, 2) + "." + welchesjahrc
msg = CTOD(msg)

For i = 2 To z9
		xxx=ALLTRIM(STR(i,3,0))
       If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab&xxx..caption)), Msg) <= 0 
          j = i
          Exit For
       Else
          j = z9
       EndIf
NEXT

For i = 1 To 12
	xxx=ALLTRIM(STR(i,4,0))
    mystufenlaufzeit.neu&xxx..BackColor = QBColor(15)
Next

j = 0
For i = 1 To z9
		xxx=ALLTRIM(STR(i,3,0))
		rrr = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg)
       If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg) < 0 
          j = i - 1
          Exit
       EndIf
Next
If j = 0 
	j = z9
ENDIF

jjj=ALLTRIM(STR(j,4,0))
mystufenlaufzeit.neu&jjj..BackColor = QBColor(14)


mystufenlaufzeit.Leistungberechnen.click
ENDPROC
     
(    
  
                           %   	      	  Q   $	            U  : G  %C     C
=  T    C    * ^  T          G  (   T CC  ZA If mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)  
 T    
 T	    ( e T CC  Z: k = k + INT(VAL(mystufenlaufzeit.Normal&xxx..caption))
  %  
  	  T  
  	   G  %C     D, T    CC m  
       * . T    CC m  
  C    # *   (  T CC  Z T
 CC  Z mystufenlaufzeit.Datumab&xxx..Caption = DTOC(DateAdd("m", INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..Caption))), CTOD(ALLTRIM(mystufenlaufzeit.Datumab&yyy..Caption))))
 mystufenlaufzeit.neu&xxx..Caption = DTOC(DateAdd("m",INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&yyy..caption))), CTOD(ALLTRIM(mystufenlaufzeit.neu&yyy..Caption))))
  G  ( %     ( T CC  Z1 mystufenlaufzeit.Datumab&xxx..Visible = False
/ mystufenlaufzeit.Stufe&xxx..Visible = False
0 mystufenlaufzeit.Normal&xxx..Visible = False
- mystufenlaufzeit.neu&xxx..Visible = False
    T CC  Z6 mystufenlaufzeit.Normal&xxz9..Caption = "Endstufe"
 T        $ T  0CCC  Z" T  01.C R .  T C #  ( S T CC  Z[ If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab&xxx..caption)), Msg) <= 0 :
 T   ! O
 T      ( T CC  Z5 mystufenlaufzeit.neu&xxx..BackColor = QBColor(15)
 
 T    (  T CC  ZP rrr = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg)
V If DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu&xxx..caption)), Msg) < 0  T   !   %  
 T    T CC  Z5 mystufenlaufzeit.neu&jjj..BackColor = QBColor(14)

      U  MYSTUFENLAUFZEIT BDADATUM VALUE DATUMAB1 CAPTION I Z9 XXX J K MONATE NEU1 DATEADD YYY M XXZ9 BEGINN MSG ZI WELCHESJAHRC JJJ LEISTUNGBERECHNEN CLICK Click,     1 b  A a qq A A  qA r1A a  A qq
A
A a qqA A A raB! rq A   A A rqQA  qqaA A A  A rQ 1                       
      )   
                        
commandbutton      
commandbutton      Leistungberechnen      FORM1      Top = 462
Left = 459
Height = 16
Width = 123
Caption = "Leistungberechnen"
Enabled = .F.
Visible = .F.
Name = "Leistungberechnen"
     PROCEDURE Click
If zi(1+4) = 13 .Or. zi(1+4) > 14 
   mystufenlaufzeit.Frame1.Visible = False
   mystufenlaufzeit.Frame11.Visible = False
   mystufenlaufzeit.leistung.Visible = False
   mystufenlaufzeit.euro.Visible = False
   mystufenlaufzeit.liste.Visible = False      
Else
   mystufenlaufzeit.Frame1.Visible = True
   mystufenlaufzeit.Frame11.Visible = True
   mystufenlaufzeit.leistung.Visible = True
   mystufenlaufzeit.euro.Visible = True
   mystufenlaufzeit.liste.Visible = True
ENDIF

l = j
l = 0
k = 0

For i = 0 To 13
    sicht(1+1,1+ i) = 0
    sicht(1+2,1+ i) = 0
NEXT
 
k = 0
For j = 1 To z9 &&- 1
	xxx=ALLTRIM(STR(j,3,0))
    For i = 1 To INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
        k = k + 1
        stufenbetrag(k) = grundbetrag(1+ j - 1) / 100
    Next
NEXT

m = 600 - k
stufenbetrag(601) = 0
stufenbetrag(602) = 0
stufenbetrag(603) = 0

For i = k + 1 To 600
    stufenbetrag(i) = grundbetrag(z9) / 100
NEXT

Op1 = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.Datumab1.Caption)), CTOD(ALLTRIM(mystufenlaufzeit.Datumab0.Caption)))
Op2 = DateDiff_2("m", CTOD(ALLTRIM(mystufenlaufzeit.neu1.Caption)), CTOD(ALLTRIM(mystufenlaufzeit.Datumab0.Caption)))

For i = 1 To Op1
    stufenbetrag(601) = stufenbetrag(601) + stufenbetrag(i)
NEXT

For i = 1 To Op2
    stufenbetrag(602) = stufenbetrag(602) + stufenbetrag(i)
NEXT

If Op1 > Op2 
   Op3 = Op1 - Op2
   stufenbetrag(460) = stufenbetrag(602) + stufenbetrag(600) * Op3
Else
   Op3 = Op2 - Op1
   stufenbetrag(601) = stufenbetrag(601) + stufenbetrag(600) * Op3
ENDIF

stufenbetrag(603) = stufenbetrag(601) - stufenbetrag(602)

mystufenlaufzeit.Leistung.value = STR(stufenbetrag(603),10,2)
ENDPROC
     9                                ]   %   \        6   k            U  Y$ %C  
 C    T     T     T     T     T       T   	  T   	  T   	  T   	  T   	  
 T
  
 T
  
 T   
  (
f T 
   T 
   
 T    ( ) T CC  ZL For i = 1 To INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))% T  # T  C  d   T X  T Y  T Z  T [  
  (X T 
 C   d , T C mCC   #CC   # , T C mCC   #CC   #  
 ( H" T YCY C 
    
 ( " T ZCZ C 
    %   T   & T CZ CX    T   & T YCY CX   " T [CY CZ   T   CC[ 
Z U  ZI MYSTUFENLAUFZEIT FRAME1 VISIBLE FALSE FRAME11 LEISTUNG EURO LISTE TRUE L J K I SICHT Z9 XXX STUFENBETRAG GRUNDBETRAG M OP1
 DATEDIFF_2 DATUMAB1 CAPTION DATUMAB0 OP2 NEU1 OP3 VALUE Click,     1 A11111 11111A    rA  qq1A A "AAAA r!A r!A a aA "1                             )                            
commandbutton      
commandbutton      stufenlaufzeitladen      FORM1      Top = 462
Left = 330
Height = 16
Width = 126
Caption = "stufenlaufzeitladen"
Enabled = .F.
Visible = .F.
Name = "stufenlaufzeitladen"
     WPROCEDURE Click
startflag = True
myClose(87)

With mystufenlaufzeit
*.Top = form1.Top + form1.SSPanel1.Top
*.Left = form1.Left + form1.Abereich(12).Left
hsxx = ALLTRIM(STR(zi(1+20),2,0))
mystufenlaufzeit.Stichtag.Caption = "Berechnung fr den Monat " + myform1.Mon&hsxx..Caption + " " + welchesjahrc

mystufenlaufzeit.Land.Caption = zt2(1+ zi(1+2))
mystufenlaufzeit.Dienstverhltnis.Caption = zt4(1+ zi(1+4))
mystufenlaufzeit.Gruppe.Caption = zt5(1+ zi(1+5))
mystufenlaufzeit.Bezeichnung.Caption = zt6(1+ zi(1+6))
  
z7 = 1
z8 = 0
z9 = 6

do Case &&zi(1+4)
Case zi(1+4) = 0
     mystufenlaufzeit.bundalt.click
      do Case &&zi(1+2)
      Case zi(1+2) = 0 &&BW
           mystufenlaufzeit.Normal5.Caption = "36"
           mystufenlaufzeit.Normal9.Caption = "48"
      Case zi(1+2) = 1
           mystufenlaufzeit.Normal4.Caption = "36"
           mystufenlaufzeit.Normal5.Caption = "36"
           mystufenlaufzeit.Normal8.Caption = "48"
           mystufenlaufzeit.Normal9.Caption = "48"
      Case INLIST(zi(1+2),4, 5, 8, 9, 10, 12, 13, 15, 16)
      Case zi(1+2) = 11 &&Rheinland-Pfalz
           do Case &&welchesjahr
           Case welchesjahr = 2012 &&fragehs nur bei 2012 ?????
              mystufenlaufzeit.Normal11.Caption = "60"
           Case welchesjahr > 2012 &&fraghs
              mystufenlaufzeit.Normal11.Caption = "60"
           Endcase
      
      Case zi(1+2) = 3 .or. zi(1+2) = 14
           mystufenlaufzeit.Normal1.Caption = "24"
           mystufenlaufzeit.Normal2.Caption = "36"
           mystufenlaufzeit.Normal3.Caption = "36"
           mystufenlaufzeit.Normal4.Caption = "36"
           mystufenlaufzeit.Normal5.Caption = "48"
           mystufenlaufzeit.Normal6.Caption = "48"
           mystufenlaufzeit.Normal7.Caption = "48"

           If zi(1+5) < 5 
              mystufenlaufzeit.Normal5.Caption = "36"
              mystufenlaufzeit.Normal6.Caption = "36"
              mystufenlaufzeit.Normal7.Caption = "36"
           ENDIF
           
           If welchesjahr < 2009 And zi(1+2) = 3
           		mystufenlaufzeit.bundalt.click
           	ENDIF
           	
      Case zi(1+2) = 6 &&Hamburg
           mystufenlaufzeit.Normal1.Caption = "36"
           mystufenlaufzeit.Normal2.Caption = "24"
           mystufenlaufzeit.Normal3.Caption = "36"
           mystufenlaufzeit.Normal4.Caption = "48"
           mystufenlaufzeit.Normal5.Caption = "48"
           mystufenlaufzeit.Normal6.Caption = "72"
           mystufenlaufzeit.Normal7.Caption = "72"
      Case zi(1+2) = 7 &&Hessen
           If welchesjahr = 2014 And zi(1+20) > 1
              mystufenlaufzeit.Normal1.Caption = "24"
              mystufenlaufzeit.Normal2.Caption = "36"
              mystufenlaufzeit.Normal3.Caption = "36"
              mystufenlaufzeit.Normal4.Caption = "36"
              mystufenlaufzeit.Normal5.Caption = "48"
              mystufenlaufzeit.Normal6.Caption = "48"
              mystufenlaufzeit.Normal7.Caption = "48"
           EndIf
           If welchesjahr > 2014
              mystufenlaufzeit.Normal1.Caption = "24"
              mystufenlaufzeit.Normal2.Caption = "36"
              mystufenlaufzeit.Normal3.Caption = "36"
              mystufenlaufzeit.Normal4.Caption = "36"
              mystufenlaufzeit.Normal5.Caption = "48"
              mystufenlaufzeit.Normal6.Caption = "48"
              mystufenlaufzeit.Normal7.Caption = "48"
           EndIf
      EndCASE

Case zi(1+4) = 4 &&Richter Hessen ab 2014
     For i = 1 To 12
     	xxx=ALLTRIM(STR(i,2,0))
         mystufenlaufzeit.Normal&xxx..Caption = "24"
     Next
Case zi(1+4) >= 10 .or. zi(1+4) <= 12
        If welchesjahr >= 2018 And zi(1+4) = 11
          If zi(1+4) < 12 .And. zi(1+5) < 7 
          		z9 = 6
          endif
        Else
          If zi(1+4) < 12 .And. zi(1+5) < 7 
          		z9 = 5
          endif
        EndIf
     mystufenlaufzeit.Normal1.Caption = "12"
     mystufenlaufzeit.Normal2.Caption = "24"
     mystufenlaufzeit.Normal3.Caption = "36"
     mystufenlaufzeit.Normal4.Caption = "48"
     mystufenlaufzeit.Normal5.Caption = "60"
     
     If zi(1+5) = 14 Then && EG1
        mystufenlaufzeit.Normal1.Caption = "0"
        mystufenlaufzeit.Normal2.Caption = "48"
        mystufenlaufzeit.Normal3.Caption = "48"
        mystufenlaufzeit.Normal4.Caption = "48"
        mystufenlaufzeit.Normal5.Caption = "48"
     EndIf
Case zi(1+4) = 13 .or. zi(1+4) = 16 .or. zi(1+4) = 17 &&Pflege
     mystufenlaufzeit.Normal1.Caption = "12"
     mystufenlaufzeit.Normal2.Caption = "24"
     mystufenlaufzeit.Normal3.Caption = "36"
     mystufenlaufzeit.Normal4.Caption = "48"
     mystufenlaufzeit.Normal5.Caption = "60"
     
     do Case &&zi(1+5)
     Case zi(1+5) = 0 &&12
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "36"
          
     Case zi(1+5) = 2 &&11a
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 3 &&10a
          mystufenlaufzeit.Normal3.Caption = "24"
          mystufenlaufzeit.Normal4.Caption = "36"
     
     Case zi(1+5) = 4 &&9d
          mystufenlaufzeit.Normal3.Caption = "48"
          mystufenlaufzeit.Normal4.Caption = "24"
     
     Case zi(1+5) = 5 &&9c
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 6 &&9b
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Case zi(1+5) = 7 &&9a
          mystufenlaufzeit.Normal3.Caption = "60"
          mystufenlaufzeit.Normal4.Caption = "60"
     
     Endcase
     If welchesjahr > 2011
        do Case &&zi(1+4)
        Case zi(1+4) = 17
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "24"
                mystufenlaufzeit.Normal3.Caption = "36"
                mystufenlaufzeit.Normal4.Caption = "48"
                mystufenlaufzeit.Normal5.Caption = "60"
         Endcase
     EndIf
Case zi(1+4) = 14 &&SundE
    If welchesjahr < 2015 .Or. (welchesjahr = 2015 .And. zi(1+20) < 6) 
        mystufenlaufzeit.Normal1.Caption = "12"
        mystufenlaufzeit.Normal2.Caption = "36"
        mystufenlaufzeit.Normal3.Caption = "48"
        mystufenlaufzeit.Normal4.Caption = "48"
        mystufenlaufzeit.Normal5.Caption = "60"
        If zi(1+5) = 10 &&S8
            mystufenlaufzeit.Normal4.Caption = "96"
            mystufenlaufzeit.Normal5.Caption = "120"
        EndIf
    Else && > 07/2015
        do Case &&zi(1+5)
            Case zi(1+5) = 21 &&8b=21
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "72"
                mystufenlaufzeit.Normal5.Caption = "96"
            Case zi(1+5) = 10 &&S8=10
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "72"
                mystufenlaufzeit.Normal5.Caption = "96"
            otherwise &&alle anderen stufen
                mystufenlaufzeit.Normal1.Caption = "12"
                mystufenlaufzeit.Normal2.Caption = "36"
                mystufenlaufzeit.Normal3.Caption = "48"
                mystufenlaufzeit.Normal4.Caption = "48"
                mystufenlaufzeit.Normal5.Caption = "60"
        Endcase
    EndIf
Endcase


do Case &&m
Case m >= 7 .and. m <= 12
     If zi(1+4) < 10 
        mystufenlaufzeit.Height = .Stufe12.Top + 100
     Else
        mystufenlaufzeit.Height = .Stufem.Top + 60
     EndIf
Case m = 13
     mystufenlaufzeit.Height = .Stufe12.Top + 100
Endcase

EndWith


&&z7 = Beginnstufe
&&z8 = Monatevorschub
&&z9 = Endstufe
DO Case &&zi(1+4)
Case zi(1+4) = 4 &&Richter Hessen
     z7 = 1
     z8 = 0
     z9 = 12
Case zi(1+4) >= 0 .and. zi(1+4) <= 3
   
   z9 = 12
   do Case &&zi(1+2)
   Case zi(1+2) = 0
           do Case &&zi(1+5) =
           Case zi(1+5) >= 0 .and. zi(1+5) <= 7
                  z7 = 1
                  z8 = 0
                  z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13
                z7 = 3
                z8 = 48
           Case zi(1+5) = 14
                z7 = 4
                z8 = 72
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 5
                z8 = 96
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
    Case zi(1+2) = 1 && Bayern
           z9 = 11
           do Case && zi(1+5) =
           Case zi(1+5) >= 0 .and. zi(1+5) <= 7
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) >= 8 .and. zi(1+5) >= 12
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) = 13
                z7 = 2
                z8 = 24
           Case zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 72
           Case zi(1+5) > 18
                z7 = 5
                z8 = 108
           Endcase
    Case zi(1+2) = 2 &&Berlin
            z7 = 1
            z8 = 0
            z9 = 8
    Case zi(1+2) = 3 &&Bund
            z7 = 1
            z8 = 0
            z9 = 8
    
    Case zi(1+2) = 4 &&Brandenburg
           
           do Case  &&zi(1+5) =
           Case zi(1+5) >=0 .and. zi(1+5) <= 2
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 5 &&Bremen
           do Case &&zi(1+5)
           Case zi(1+5) >=0 .and. zi(1+5) <= 2
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 6 &&Hamburg
            z7 = 1
            z8 = 0
            z9 = 8
   
   Case zi(1+2) = 7 &&Hessen
           If welchesjahr < 2015 
              do Case &&zi(1+5)
              Case zi(1+5) < 3
                   z7 = 1
                   z8 = 0
                   z9 = 7
              Case zi(1+5) = 3 .or. zi(1+5) = 5
                   z7 = 1
                   z8 = 0
                   z9 = 8
              Case zi(1+5) = 4 .or. zi(1+5) = 6
                   z7 = 1
                   z8 = 0
                   z9 = 9
              Case zi(1+5) = 7
                   z7 = 1
                   z8 = 0
                   z9 = 10
              Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                   z7 = 2
                   z8 = 24
                   z9 = 11
              Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                   z7 = 3
                   z8 = 48
              Case zi(1+5) > 18
                   z7 = 6
                   z8 = 132
              Endcase
              If welchesjahr = 2014 And zi(1+20) > 1
                 z7 = 1
                 z8 = 0
                 z9 = 8
              EndIf
           EndIf
           
           If welchesjahr > 2014
              z7 = 1
              z8 = 0
              z9 = 8
           EndIf
           
   Case zi(1+2) = 8 &&MV
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8  .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 9 &&NS
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) =7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 10 &&NRW
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >=8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
           If welchesjahr = 2013 .and. zi(1+20) > 4 
              do Case &&zi(1+5)
              Case zi(1+5) = 14
                   z7 = 4
                   z8 = 72
              Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                   z7 = 5
                   z8 = 96
              Endcase
           endif
           If welchesjahr > 2013 
              do Case &&zi(1+5)
              Case zi(1+5) = 14
                   z7 = 4
                   z8 = 72
              Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                   z7 = 5
                   z8 = 96
              Endcase
           endif
           
   Case zi(1+2) = 11 &&Rheinland
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) =7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
 Case zi(1+2) = 12 &&Saarland
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13 .or. zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 96
           Case zi(1+5) > 18
                z7 = 5
                z8 = 132
           Endcase
  Case zi(1+2) = 13 &&Sachsen
           do Case &&zi(1+5)
           CASE zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .and. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) >= 13 .and. zi(1+5) <= 18
                z7 = 3
                z8 = 48
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
  Case zi(1+2) = 14 &&Sachsen-Anhalt
            z7 = 1
            z8 = 0
            z9 = 8
   Case zi(1+2) = 15 &&Schleswig
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 14 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 72
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
   Case zi(1+2) = 16 &&Thringen
           do Case &&zi(1+5)
           Case zi(1+5) < 3
                z7 = 1
                z8 = 0
                z9 = 7
           Case zi(1+5) = 3 .or. zi(1+5) = 5
                z7 = 1
                z8 = 0
                z9 = 8
           Case zi(1+5) = 4 .or. zi(1+5) = 6
                z7 = 1
                z8 = 0
                z9 = 9
           Case zi(1+5) = 7
                z7 = 1
                z8 = 0
                z9 = 10
           Case zi(1+5) >= 8 .and. zi(1+5) <= 12
                z7 = 2
                z8 = 24
                z9 = 11
           Case zi(1+5) = 13 .or. zi(1+5) = 14
                z7 = 3
                z8 = 48
           Case zi(1+5) >= 15 .and. zi(1+5) <= 18
                z7 = 4
                z8 = 72
           Case zi(1+5) > 18
                z7 = 6
                z8 = 132
           Endcase
    Endcase
Endcase
sicht(1+0,1+ 0) = 0
&&Leistung.Caption = Format(sicht(0, 0), "###,##0.00")
If z7 > 1 And zi(1+4) < 9 Then
   kommentar(1+0) = "Ist " + Trim(myform1.z5.Caption) + " das Eingangsamt, beginnt die Stufenlaufzeit " + ALLTRIM(STR(z8,4,0)) + " Monate "
   kommentar(1+1) = "vor der Einstellung. Anfangsstufe ist dann Stufe " + ALLTRIM(STR(z7,4,0)) + ". Anrechenbare Vordienstzeiten"
   kommentar(1+2) = "sind auch hier noch zustzlich zu bercksichtigen."
   mystufenlaufzeit.Eingangsamt.Caption = Trim(kommentar(1+0)) + " " + Trim(kommentar(1+1)) + " " + Trim(kommentar(1+2))
Else
   mystufenlaufzeit.Eingangsamt.Caption = ""
 
EndIf
Msg = ""

If zi(1+20) <= 9 
   mystufenlaufzeit.Datumab0.Caption = "01.0" + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
Else
   mystufenlaufzeit.Datumab0.Caption = "01." + ALLTRIM(STR(zi(1+20) + 1,2,0)) + "." + welchesjahrc
EndIf
For i = 1 To 12
	xxx=ALLTRIM(STR(i,2,0))
    mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(15)
Next
If Left(wvw.BDA, 2) = "01" Then
   mystufenlaufzeit.BDAdatum.value = wvw.BDA
   k = zi(1+7) + 1
   xxx = ALLTRIM(STR(k,4,0))
   mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
Else
   j = 0
   k = zi(1+7) + 1
   If k > z9
   		k = z9
   endif
   If k < z7 
   		k = z7
   endif
   If k <= 2
   		k = 1
   endif
   For i = 1 To k - 1
   		xxx= ALLTRIM(STR(i,4,0))
       j = j + INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
   Next
   mystufenlaufzeit.BDAdatum.value = DateAdd("m", -j, CTOD(mystufenlaufzeit.Datumab0.Caption))
 	xxx=ALLTRIM(STR(k,4,0))
   mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
EndIf

If zi(1+4) > 8 
	mystufenlaufzeit.Height = mystufenlaufzeit.Stufe6.Top + 100
endif


startflag = False


mystufenlaufzeit.durchrechnen.click
ENDPROC
     7    7  7                        V   %   1      L7    2            U  0
 T   
 CW 
   T CCC  Zt mystufenlaufzeit.Stichtag.Caption = "Berechnung fr den Monat " + myform1.Mon&hsxx..Caption + " " + welchesjahrc
 T   CC   T 	  CC 
  T   CC   T 
  CC  
 T 
 T  
 T 
 Hf
 C  B
    
 H> C   T    36 T    48 C = T    36 T    36 T    48 T    48. CC 	

k C 
 H   T    60   T    60 $ C  C   T    24 T    36 T    36 T    36 T    48 T    48 T    48 %C 
 T    36 T    36 T    36 ! % 
 C 	
      C  T    36 T    24 T    36 T    48 T    48 T    72 T    72 C >! %  C 	 T    24 T    36 T    36 T    36 T    48 T    48 T    48  % : T    24 T    36 T    36 T    36 T    48 T    48 T    48   C   ( T  CC  Z/ mystufenlaufzeit.Normal&xxx..Caption = "24"
 $ C 
 C ]! %  C 	2$ %C 
 C 
	.
 T   o$ %C 
 C 
	k
 T    T    12 T    24 T    36 T    48 T    60 %C Y T    0 T    48 T    48 T    48 T    48 3 C 
 C  C h T    12 T    24 T    36 T    48 T    60
 H	
 C  E	 T    24 T    36 C 	 T    24 T    60 C 	 T    24 T    36 C 
 T    48 T    24 C A
 T    60 T    60 C 
 T    60 T    60 C 
 T    60 T    60  % d
 H
` C ` T    12 T    24 T    36 T    48 T    60   C 
. % 
   C 
	X T    12 T    36 T    48 T    48 T    60 %C 
T T    96 T    120  

 Hm
 C  T    12 T    36 T    48 T    72 T    96 C 
i
 T    12 T    36 T    48 T    72 T    96 2
 T    12 T    36 T    48 T    48 T    60   
 H
 !  ! 	` %C 

< T " # $ d \ T " % $ <  ! 
 T " # $ d  
 H* C 
 T 
 T  
 T $ C   C 	*
 T 
 H* C  
 H:$ C   C 	
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T  C 

 T 
 T 0 C .
 T 
 T H$ C  C 	l
 T 
 T ` C 
 T 
 T   C 3
 T 
 H/$ C   C 	
 T 
 T  
 T 	$ C  C 	d
 T 
 T  
 T 
 C 

 T 
 T  C 
 T 
 T 0$ C  C 	 
 T 
 T H C /
 T 
 T l  C o
 T 
 T  
 T  C 
 T 
 T  
 T  C 
 H$ C   C 	
 T 
 T  
 T $ C  C c
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	5
 T 
 T 
 T $ C 
 C 	s
 T 
 T 0 C 
 T 
 T   C 
 H$ C   C 	
 T 
 T  
 T $ C  C ^
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	0
 T 
 T 
 T $ C 
 C 	n
 T 
 T 0 C 
 T 
 T   C 
 T 
 T  
 T  C h % 
'
 H C 
M
 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C 
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	j
 T 
 T 
 T $ C 
 C 	
 T 
 T 0 C 
 T 
 T  ! %  C 	#
 T 
 T  
 T    % d
 T 
 T  
 T   C T
 HP C 

 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C \
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	!
 T 
 T 0 C P
 T 
 T   C 	@
 Hv< C 

 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C H
 T 
 T  
 T 	 C 
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	

 T 
 T 0 C <
 T 
 T   C 
c 
 Hb( C 

 T 
 T  
 T $ C  C 
 T 
 T  
 T $ C  C 4
 T 
 T  
 T 	 C p
 T 
 T  
 T 
$ C  C 	
 T 
 T 
 T $ C 
 C 	
 T 
 T 0 C (
 T 
 T  ! %  C 	
 HZ C 
 T 
 T H$ C  C 	
 T 
 T `   % _ 
 H[  C  
 T 
 T H$ C  C 	[ 
 T 
 T `   C O"
 H K" C 
 
 T 
 T  
 T $ C  C !
 T 
 T  
 T $ C  C W!
 T 
 T  
 T 	 C !
 T 
 T  
 T 
$ C  C 	!
 T 
 T 
 T $ C 
 C 	"
 T 
 T 0 C K"
 T 
 T   C y$
 Hq"u$ C 
"
 T 
 T  
 T $ C  C "
 T 
 T  
 T $ C  C C#
 T 
 T  
 T 	 C #
 T 
 T  
 T 
$ C  C 	#
 T 
 T 
 T $ C 
 C $
 T 
 T 0$ C  C 	F$
 T 
 T ` C u$
 T 
 T   C 
e&
 H$a& C 
$
 T 
 T  
 T $ C  C 	"%
 T 
 T  
 T $ C  C m%
 T 
 T  
 T 	 C %
 T 
 T  
 T 
$ C  C 	%
 T 
 T 
 T $ C 
 C 	2&
 T 
 T 0 C a&
 T 
 T   C &
 T 
 T  
 T  C (
 H&( C 
&
 T 
 T  
 T $ C  C J'
 T 
 T  
 T $ C  C '
 T 
 T  
 T 	 C '
 T 
 T  
 T 
$ C  C 	(
 T 
 T 
 T  C 
K(
 T 
 T 0$ C  C 	(
 T 
 T H C (
 T 
 T   C *
 H(* C 
)
 T 
 T  
 T $ C  C e)
 T 
 T  
 T $ C  C )
 T 
 T  
 T 	 C )
 T 
 T  
 T 
$ C  C 	7*
 T 
 T 
 T $ C 
 C u*
 T 
 T 0$ C  C 	*
 T 
 T H C *
 T 
 T     T&    %  C 	
	,n T'  Ist C( )  `-  das Eingangsamt, beginnt die Stufenlaufzeit CC  Z  Monate t T' 1 vor der Einstellung. Anfangsstufe ist dann Stufe CC  Z . Anrechenbare VordienstzeitenE T' 2 sind auch hier noch zustzlich zu bercksichtigen.7 T *  CC' `  CC' `  CC' ` , T *     
 T+    %C 	,6 T ,   01.0CCC  Z .-  9-5 T ,   01.CCC  Z .-    (- T  CC  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(15)
  %C. / = 01>. T 0 1 . /  T2 C  T  CC2  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
 /
 T3   T2 C  %2  .
 T2    %2  
.
 T2    %2 .
 T2    (2 C/ T  CC  ZC j = j + INT(VAL(ALLTRIM(mystufenlaufzeit.Normal&xxx..Caption)))
 ' T 0 1 C m3 cC ,  #4  T  CC2  Z9 mystufenlaufzeit.Datumab&xxx..BackColor = QBColor(14)
  %C / T "  5 $ d 
 T  6 
  7   U8 	 STARTFLAG TRUE MYCLOSE MYSTUFENLAUFZEIT HSXX ZI LAND CAPTION ZT2 DIENSTVERHLTNIS ZT4 GRUPPE ZT5 BEZEICHNUNG ZT6 Z7 Z8 Z9 BUNDALT CLICK NORMAL5 NORMAL9 NORMAL4 NORMAL8 WELCHESJAHR NORMAL11 NORMAL1 NORMAL2 NORMAL3 NORMAL6 NORMAL7 I XXX M HEIGHT STUFE12 TOP STUFEM SICHT	 KOMMENTAR MYFORM1 Z5 EINGANGSAMT MSG DATUMAB0 WELCHESJAHRC WVW BDA BDADATUM VALUE K J DATEADD STUFE6 FALSE DURCHRECHNEN Click,     1    A    Q  QQQQQQQQQ !Q!QA BQQQQQQQRQQQA  A RQQQQQQQQQQQQQQQA !QQQQQQQA A RqqA AA A  A A A QQQQQRAQQQQA 1QQQQQ QQQRQQRQQRQQRQQRQQRQQB ! QQQQQQA A QQQQQQQQaA   QQQQQQQQQQQQ QQQQQA A A  Q A A B  Q   A  Q A   A   Q  Q  A  Q  A Q  A   A   Q  Q  A  Q  A Q   Q   R A   A   A   Q   A   A  Q  A Q A   A   A   Q   B   A  Q  A Q   R! Q   A   A   Q   A   A  Q  A    A A "   A R Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  Q  A  Q  A  A A ! Q  A  A A R Q   A   A   Q   A   A  Q  A Q Q   A   A   Q   A   A  A  Q  A Q Q   A   A   Q   A   A  Q  A Q   Q Q   A   A   Q   A   Q  A  Q  A Q Q   A   A   Q   A   A  A  Q  A A A AQq 1B  Ra QA qqA aQq  Q A  A  A q1A qqA RA   1                       W      )   7                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0		   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _6UC0XNRJ61482521929      /  F      ]                                                       WINDOWS _6UC0XNRJ71530287512                      b                                               WINDOWS _6UC0XNRJH1530287512	      	  	  	  	        6#                                               WINDOWS _6UC0YOYYB15232108616      6  7  7  "7                                                           WINDOWS _6UC0XNRJ615232110627      7  7  7  7      38  8                                               WINDOWS _77C0O15OD15232110629      9  9  9  :      e:  :                                               WINDOWS _77C0OHUJ71530287512;      <  <  )<  6<      <  @=                                               COMMENT RESERVED                                h>                                                            >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 392
Width = 794
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Beamte BW: neue Stufenregelung  ab 2022"
WindowType = 1
Name = "FORM1"
     PROCEDURE Init
PARAMETERS xstufen
IF PCOUNT() = 0
	xstufen = 0
ENDIF

IF VARTYPE(xstufen) <> "N" .and. VARTYPE(ystufen) <> "I"
	xstufen = INT(VAL(xstufen))
ENDIF

thisform.Tag = "I:"+alltrim(STR(xstufen,1,0))

thisform.optiongroup1.Value = xstufen

IF EMPTY(thisform.optiongroup1.Value)
	thisform.command3.Enabled = .f.
ELSE
	thisform.command3.Enabled = .t.
endif

thisform.edit2.Value = "Artikel 33"+CHR(13)+"Einordnung der vor dem 1. Dezember 2022 vorhandenen Beamtinnen und Beamten der Landesbesoldungsordnung A in die Stufen der ab 1. Dezember 2022 geltenden Anlage 6 des Landesbesoldungsgesetzes BW"
ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
                                      %   e                       U   4   %Ct % 
 T    $ %C   N C  I	^  T  CC  g8   T   I:CC   Z T      %C     T   -   T   a  T   
 Artikel 33C
  Einordnung der vor dem 1. Dezember 2022 vorhandenen Beamtinnen und Beamten der Landesbesoldungsordnung A in die Stufen der ab 1. Dezember 2022 geltenden Anlage 6 des Landesbesoldungsgesetzes BW U	  XSTUFEN YSTUFEN THISFORM TAG OPTIONGROUP1 VALUE COMMAND3 ENABLED EDIT2  B    U  THISFORM TAG Init,      UnloadC    1 q  A BA 2R A 2  1                       p                )                           optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 7
Value = 0
Height = 144
Left = 6
Top = 9
Width = 778
Name = "Optiongroup1"
Option1.Caption = "1.) am 01.12.2022 bergeleitet zu A7/A8. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten."
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.ToolTipText = "Volle Berechnung der Zeiten auf die Stufen"
Option1.Top = 5
Option1.Width = 764
Option1.Name = "Option1"
Option2.Caption = "2.) am 30.11.2022 in A8/A9/A10 und S2/S3 befunden. Neue Stufe errechnet durch insges. Erf-. und bercksichtf. Zeiten."
Option2.Height = 17
Option2.Left = 5
Option2.ToolTipText = "Stufe 3 wirf Stufe 2. Stufe2 wid Stufe 1."
Option2.Top = 24
Option2.Width = 764
Option2.Name = "Option2"
Option3.Caption = "3.) am 30.11.2022 in A10, S11 befunden: bergeleitet zu A11 S9/S10. Alte LZ in S11 < 4J = S9 sonst S10. Alte LZ S11 wird S9 angerechnet."
Option3.Height = 17
Option3.Left = 5
Option3.ToolTipText = "A10 S11 < 4J = A11 S9; A10 S11 > 4J = A11 S10. Bei S9 wird LZ in A10 S11 hinzugerechnet."
Option3.Top = 43
Option3.Width = 764
Option3.Name = "Option3"
Option4.Caption = "4.) Nicht in 1.) 2.) oder 3.) enthalten = bisherige Stufe minus 2. LZ der alten Stufe wird neuer Stufe angerechnet."
Option4.Height = 17
Option4.Left = 5
Option4.ToolTipText = "Die in der bisherigen Stufe zurckgelegte Zeit wird auf die neue Stufe angerechnet."
Option4.Top = 62
Option4.Width = 764
Option4.Name = "Option4"
Option5.Caption = "5.) am 01.12.2024 ohne berleitung in A9/A10 in S4 befunden. = S2. Neue LZ der neuen S2 = 2 Jahre."
Option5.Height = 17
Option5.Left = 5
Option5.ToolTipText = "Neue Stufe = 2 aber LZ nur 2J"
Option5.Top = 81
Option5.Width = 764
Option5.Name = "Option5"
Option6.Caption = "6.) A11 durch 4.) in S1/S2 zugeordnet = Neue LZ der neuen Stufen S1/S2 = 2 Jahre."
Option6.Height = 17
Option6.Left = 5
Option6.ToolTipText = "LZ fr S1 und S2 nur jeweils 2J."
Option6.Top = 100
Option6.Width = 764
Option6.Name = "Option6"
Option7.Caption = "7.) am 01.12.2022 in A12 S4 befunden = A12 S2 mit neuer LZ fr S2 = 2 Jahre."
Option7.Height = 17
Option7.Left = 5
Option7.ToolTipText = "neue S2 LZ = 2J."
Option7.Top = 119
Option7.Width = 764
Option7.Name = "Option7"
     PROCEDURE Click
thisform.Tag = "I:"+ALLTRIM(STR(this.Value,1,0))
thisform.command3.Enabled = .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.Tag = "I:"+ALLTRIM(STR(this.Value,1,0))
thisform.command3.Enabled = .t.

ENDPROC
PROCEDURE Option1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "1.) Fr Beamtinnen und Beamte, die sich nach der berleitung gem Artikel 32 in den Besoldungsgruppen A7 oder A 8"+" befinden, erfolgt die Stufenzuordnung unter Anrechnung ihrer bisher insgesamt erbrachten Erfahrungszeiten sowie bercksichtigungsfhiger Zeiten nach  32 LBesGBW."
ENDPROC
PROCEDURE Option1.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option2.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option2.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "2) Beamtinnen und Beamte, die sich am 30. November 2022 in Stufe 2 oder 3 einer der Besoldungsgruppen A8, A 9 oder A 10"+" befunden haben, werden gem ihrer bisher insgesamt erbrachten Erfahrungszeiten sowie"+" bercksichtigungsfhigen Zeiten nach  32 LBesGBW den Stufen 1 oder 2 ihrer ab 1. Dezember 2022 mageblichen" +" Besoldungsgruppe zugeordnet."
ENDPROC
PROCEDURE Option3.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option3.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "3) Beamtinnen und Beamte, die sich am 30. November 2022 in der Besoldungsgruppe A 10 in der Stufe 11"+" befunden haben und durch Artikel 32 dieses Gesetzes in Besoldungsgruppe A 11 bergeleitet werden,"+" werden nach der berleitung bei einer Erfahrungszeit sowie bercksichtigungsfhiger Zeit nach  32 LBesGBW"+" in dieser Stufe von weniger als vier Jahren der Stufe 9 zugewiesen, andernfalls der Stufe 10."+" Die in Stufe 11 erbrachte Erfahrungszeit sowie bercksichtigungsfhige Zeit nach  32 LBesGBW"+" wird in Stufe 9 auf die Stufenlaufzeit angerechnet."
ENDPROC
PROCEDURE Option4.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option4.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "4) Nicht in den Anwendungsbereich der Abstze 1 bis 3 fallende Beamtinnen und Beamte"+" werden derjenigen Stufe zugeordnet, die numerisch um zwei kleiner als die fr sie bisher magebliche Stufe ist."+" Die in dieser bisherigen Stufe bereits erbrachte Erfahrungszeit sowie bercksichtigungsfhige Zeit nach  32 LBesGBW"+" wird auf die Stufenlaufzeit der neu zugeordneten Stufe angerechnet."
ENDPROC
PROCEDURE Option5.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option5.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "5) Fr Beamtinnen und Beamte, die sich ohne Anwendung der Regelung in Anlage 6 des Anhangs"+" zu Artikel 2 Nummer 19 am 1. Dezember 2022 in Stufe 4 der Besoldungsgruppe A 9 oder A 10"+" befunden htten, gilt fr die neue Stufe 2 abweichend von  31 Absatz 2 Satz 1"+"LBesGBW eine Stufenlaufzeit von nur zwei Jahren."
ENDPROC
PROCEDURE Option6.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option6.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "6) Fr Beamtinnen und Beamte der Besoldungsgruppe A 11,"+" die gem Absatz 4 den Stufen 1 oder 2 zugeordnet wurden,"+" gilt fr diese beiden Stufen abweichend von  31 Absatz 2 Satz 1 LBesGBW"+" eine Stufenlaufzeit von nur zwei Jahren."
ENDPROC
PROCEDURE Option7.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = ""
ENDPROC
PROCEDURE Option7.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.edit2.Value = "7) Fr Beamtinnen und Beamte, die sich ohne Anwendung der Regelung in Anlage 6"+" des Anhangs zu Artikel 2 Nummer 19 am 1. Dezember 2022 in Stufe 4 der Besoldungsgruppe A 12"+" befunden htten, gilt fr die neue Stufe 2 abweichend von  31 Absatz 2 Satz 1 LBesGBW"+" eine Stufenlaufzeit von nur zwei Jahren."
ENDPROC
                                   ߟ   %   M      Z  1               U  7 # T    I:CC   Z T    a U  THISFORM TAG THIS VALUE COMMAND3 ENABLED7 # T    I:CC   Z T    a U  THISFORM TAG THIS VALUE COMMAND3 ENABLEDB      ,T   r 1.) Fr Beamtinnen und Beamte, die sich nach der berleitung gem Artikel 32 in den Besoldungsgruppen A7 oder A 8٣  befinden, erfolgt die Stufenzuordnung unter Anrechnung ihrer bisher insgesamt erbrachten Erfahrungszeiten sowie bercksichtigungsfhiger Zeiten nach  32 LBesGBW. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE      vT   w 2) Beamtinnen und Beamte, die sich am 30. November 2022 in Stufe 2 oder 3 einer der Besoldungsgruppen A8, A 9 oder A 10V  befunden haben, werden gem ihrer bisher insgesamt erbrachten Erfahrungszeiten sowiem  bercksichtigungsfhigen Zeiten nach  32 LBesGBW den Stufen 1 oder 2 ihrer ab 1. Dezember 2022 mageblichen  Besoldungsgruppe zugeordnet. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE^      HT   d 3) Beamtinnen und Beamte, die sich am 30. November 2022 in der Besoldungsgruppe A 10 in der Stufe 11b  befunden haben und durch Artikel 32 dieses Gesetzes in Besoldungsgruppe A 11 bergeleitet werden,k  werden nach der berleitung bei einer Erfahrungszeit sowie bercksichtigungsfhiger Zeit nach  32 LBesGBW^  in dieser Stufe von weniger als vier Jahren der Stufe 9 zugewiesen, andernfalls der Stufe 10.^  Die in Stufe 11 erbrachte Erfahrungszeit sowie bercksichtigungsfhige Zeit nach  32 LBesGBW4  wird in Stufe 9 auf die Stufenlaufzeit angerechnet. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE      T   T 4) Nicht in den Anwendungsbereich der Abstze 1 bis 3 fallende Beamtinnen und Beamtep  werden derjenigen Stufe zugeordnet, die numerisch um zwei kleiner als die fr sie bisher magebliche Stufe ist.u  Die in dieser bisherigen Stufe bereits erbrachte Erfahrungszeit sowie bercksichtigungsfhige Zeit nach  32 LBesGBWD  wird auf die Stufenlaufzeit der neu zugeordneten Stufe angerechnet. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUEg      QT   Z 5) Fr Beamtinnen und Beamte, die sich ohne Anwendung der Regelung in Anlage 6 des AnhangsY  zu Artikel 2 Nummer 19 am 1. Dezember 2022 in Stufe 4 der Besoldungsgruppe A 9 oder A 10O  befunden htten, gilt fr die neue Stufe 2 abweichend von  31 Absatz 2 Satz 10 LBesGBW eine Stufenlaufzeit von nur zwei Jahren. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE      T   7 6) Fr Beamtinnen und Beamte der Besoldungsgruppe A 11,:  die gem Absatz 4 den Stufen 1 oder 2 zugeordnet wurden,I  gilt fr diese beiden Stufen abweichend von  31 Absatz 2 Satz 1 LBesGBW)  eine Stufenlaufzeit von nur zwei Jahren. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE)        T      U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE_      IT   N 7) Fr Beamtinnen und Beamte, die sich ohne Anwendung der Regelung in Anlage 6\  des Anhangs zu Artikel 2 Nummer 19 am 1. Dezember 2022 in Stufe 4 der Besoldungsgruppe A 12W  befunden htten, gilt fr die neue Stufe 2 abweichend von  31 Absatz 2 Satz 1 LBesGBW)  eine Stufenlaufzeit von nur zwei Jahren. U  NBUTTON NSHIFT NXCOORD NYCOORD THISFORM EDIT2 VALUE Click,      InteractiveChange      Option1.MouseMove      Option1.MouseLeave     Option2.MouseLeave     Option2.MouseMoveQ     Option3.MouseLeave     Option3.MouseMove     Option4.MouseLeave!     Option4.MouseMove     Option5.MouseLeavez
     Option5.MouseMove
     Option6.MouseLeave     Option6.MouseMove     Option7.MouseLeaveG     Option7.MouseMove    1 12 13 12 112 112 1a2 112 1$2 112 12 112 12 112 1!2 112 11                       b                       e  
   
          
     G        o          A            )        R    "        
  &      
    *   "   )    .   %     
  2   (   E
  y  6   +       :   .       >    )                           editbox      editbox      Edit2      FORM1      _FontSize = 12
Height = 174
Left = 6
ReadOnly = .T.
Top = 162
Width = 778
Name = "Edit2"
      
commandbutton      
commandbutton      Command1      FORM1      [Top = 346
Left = 193
Height = 28
Width = 108
Caption = "speichern"
Name = "Command1"
      oPROCEDURE Click
thisform.Tag = "I:"+ALLTRIM(STR(thisform.optiongroup1.Value,1,0))
thisform.release
ENDPROC
     	                                    %                             U  3 & T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE Click,     1 a 1                       d       )                            
commandbutton      
commandbutton      Command2      FORM1      [Top = 346
Left = 317
Height = 28
Width = 108
Caption = "abbrechen"
Name = "Command2"
      qPROCEDURE Click
thisform.Tag = "I:"+ALLTRIM(STR(thisform.optiongroup1.Value,1,0))
thisform.release

ENDPROC
     	                                    %                             U  3 & T    I:CC     Z
     U  THISFORM TAG OPTIONGROUP1 VALUE RELEASE Click,     1 a 2                       f       )                            
commandbutton      
commandbutton      Command3      FORM1      fTop = 346
Left = 442
Height = 28
Width = 158
Caption = "Auswahl zurcksetzen"
Name = "Command3"
      PROCEDURE Click

IF .not. EMPTY(thisform.optiongroup1.Value)
	thisform.optiongroup1.Value = 0
	thisform.command3.Enabled = .f.
endif
ENDPROC
                                    4   %                             U  A  %C    
:  T      T    -  U  THISFORM OPTIONGROUP1 VALUE COMMAND3 ENABLED Click,     1 b1A 1                              )                           CArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 12, 7, 19, 15, 43, 3, 1
   %        D 8  ΐ q8Y0        U      F    [ >    A05 >            >   ףp=
g@ >   ףp=
@ >   
ףp=V}@ >   Gzy@ >   Ru@ >   
ףp="r@ >  	 Ql@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   =
ףp-@ >   zGA~@ >   Hz'z@ >   Gzv@ >        q@ >   Gzk@ >  	 )\c@ >  
 \(V@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
|@ >   Rw@ >   zGur@ >   Qj@ >   ףp=
G`@ >   q=
ףG@ >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qw@ >   R!s@ >   (\
i@ >   (\W@ >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   p=
p@ >   33333i@ >   QU@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   p=
W}@ >   y@ >   {Gq@ >   Qe@ >   QN@ >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   p@ >   Qe@ >   33333s<@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Gz2@ >   Gz\@ >   \(@ >   e@ >   zG{@ >   
x@ >  	 p=
ct@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   p=
@ >   Q@ >   (\@ >   {G{@ >   Gzw@ >   ףp=
s@ >  	 Qo@ >  
 
ףp=g@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   R?@ >   zGq}@ >   q=
ף`x@ >   
ףp=Rs@ >   (\}l@ >   Q`b@ >  	 QY@ >  
 33333cY@ >   =
ףpY@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz.@ >        y@ >   Gzr@ >   =
ףph@ >   QY@ >   QY@ >  	 QY@ >  
 (\BZ@ >   QZ@ >   QZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   q=
ףv@ >   Hzx@ >   Gz<g@ >   Gz.Y@ >   =
ףpY@ >   Q8Z@ >  	 QZ@ >  
 QZ@ >   QX[@ >   (\[@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   )\@ >   Hz~@ >   )\w@ >   
ףp=p@ >   Gzd@ >   =
ףpMY@ >  	 33333Y@ >  
 33333Z@ >   GznZ@ >   =
ףpZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   v@ >   p=
p@ >         `@ >   =
ףpY@ >   =
ףpMZ@ >   33333[@ >  	 33333[@ >  
 =
ףp
\@ >   33333\@ >   33333]@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpY@ >   (\Z@ >   33333C[@ >   (\\@ >   33333\@ >  	 =
ףpM]@ >  
 =
ףp]@ >   QX^@ >   Q^@ >  
 Gzn_@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q[@ >   33333\@ >   Q]@ >   =
ףp^@ >  	 (\B_@ >  
 =
ףp_@ >   \(L`@ >   \(`@ >  
 `@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   Q8^@ >   Q8_@ >   ףp=
'`@ >   ףp=
`@ >  	 zGa@ >  
 zGaa@ >   \(a@ >   Qb@ >  
 Qvb@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   33333c_@ >   \(\`@ >   a@ >   \(a@ >  	 \(<b@ >  
 Qb@ >   \(,c@ >   \(c@ >  
 Q&d@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(lb@ >   1c@ >  	 \(c@ >  
 d@ >   zGe@ >   e@ >  
 \(f@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qd@ >   \(d@ >  	 \(e@ >  
 ףp=
f@ >   ףp=
gg@ >   \(<h@ >  
 i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   \(f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   \(,j@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   (\=p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Gz[@ >   Q\@ >   33333C]@ >   Gz]@ >   Gz^@ >   Q8_@ >   Q_@ >  	 zGQ`@ >  
 ףp=
`@ >   zGa@ >   zGaa@ >  
 \(a@ >   Qb@ >   Qvb@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   Gz[@ >   Q\@ >   =
ףp
^@ >   33333#_@ >   \(`@ >   \(`@ >   \(<a@ >  	 a@ >  
 \(lb@ >   c@ >   Qc@ >  
 Q6d@ >   d@ >   zGqe@ >   Qf@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   33333]@ >   Q_@ >   \(,`@ >   \(`@ >   qa@ >   Qb@ >   b@ >  	 \(lc@ >  
 \(d@ >   Qd@ >   \(e@ >  
 Af@ >   \(f@ >   ףp=
g@ >   Qh@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   \(a@ >   zGb@ >   Ac@ >   c@ >   d@ >   QVe@ >   zGf@ >  	 \(f@ >  
 zGg@ >   ףp=
Wh@ >   !i@ >  
 zGi@ >   \(j@ >   \(k@ >   ףp=
gl@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   (\_@ >   Q&`@ >   \(`@ >   Qa@ >   QVb@ >   \(c@ >  	 c@ >  
 Qd@ >   zGqe@ >   \(Lf@ >  
 \(g@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   a@ >   b@ >   Qfc@ >   \(,d@ >   \(d@ >  	 ףp=
e@ >  
 \(f@ >   Qvg@ >   Qh@ >  
 1i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   Q;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   Gz>p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   ףp=
`@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   d@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   Q&f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   p=
C@ >   fffffx@ >   R뫄@ >   p=
@ >   Hz+@ >   Hz~@ >  	 Gzz@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   
ףp=@ >   (\@ >   q=
ף$@ >   Gz*@ >   {Gb~@ >   Qqz@ >  	 q=
ף|v@ >  
 33333r@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   HzwP@ >   ףp=
@ >   =
ףp~@ >   Qy@ >   )\t@ >   Gzo@ >  	 QHj@ >  
 (\j@ >        j@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz@ >   (\@ >   \(,y@ >   (\r@ >   QHj@ >   Qj@ >  	 {G"k@ >  
 (\rk@ >   (\k@ >   Q(l@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   QN}@ >   ףp=
#y@ >   ףp=
_r@ >   q=
ףXj@ >   =
ףpj@ >   =
ףpmk@ >  	 (\k@ >  
 (\-l@ >   {Gl@ >   =
ףpl@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   q=
ף@ >   {Gᖂ@ >   Gzd~@ >   w@ >   Qp@ >   Qxj@ >  	 Qj@ >  
 333333k@ >   Gzk@ >   (\k@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   HzO}@ >   33333w@ >   \(m@ >   {Gj@ >   =
ףp}k@ >   (\=l@ >  	 (\½l@ >  
 =
ףp=m@ >   (\½m@ >   33333Cn@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpj@ >   (\k@ >   (\}l@ >   =
ףp=m@ >   33333n@ >  	 =
ףpn@ >  
 {Go@ >   {Go@ >   \(p@ >  
 Yp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Qm@ >   33333n@ >   (\n@ >   {Go@ >  	 QFp@ >  
      p@ >   \(p@ >   \(Dq@ >  
 Qq@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   (\}o@ >   \(Dp@ >   Qp@ >   QTq@ >  	      q@ >  
 Qr@ >   =
ףpir@ >   {Gr@ >  
 Q&s@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   {GVp@ >   =
ףpq@ >   q@ >   =
ףpir@ >  	 =
ףpr@ >  
 \(ds@ >   {Gs@ >   =
ףpat@ >  
 =
ףpt@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(s@ >   {Gs@ >  	 t@ >  
 \(<u@ >        u@ >   {Gv@ >  
 Qw@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qt@ >   u@ >  	 =
ףpv@ >  
 Yw@ >   {G.x@ >   \(y@ >  
 =
ףpy@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   Qw@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   {@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   =
ףp@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   zG?@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   33333#m@ >   (\m@ >   (\}n@ >   (\-o@ >   Qo@ >   \(Dp@ >   Qp@ >  	 Qp@ >  
 QTq@ >        q@ >   Qr@ >  
 {Gfr@ >   {Gr@ >   Q&s@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   q=
ף(m@ >   =
ףp=n@ >   {GRo@ >   \(4p@ >   \(p@ >   {GVq@ >   Qq@ >  	 r@ >  
 s@ >   \(s@ >   \(Lt@ >  
 {Gt@ >   \(u@ >   =
ףp1v@ >   =
ףpv@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   (\o@ >   {G.p@ >   p@ >   \(tq@ >   \(r@ >        r@ >   =
ףpqs@ >  	 \($t@ >  
 Qt@ >   =
ףpu@ >   =
ףpIv@ >  
 \(w@ >   =
ףpw@ >   Qx@ >   =
ףpQy@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   {Gr@ >        Ds@ >   \(s@ >   {Gt@ >   {G^u@ >   \(v@ >   zGv@ >  	 w@ >  
 =
ףpYx@ >   !y@ >   {Gy@ >  
 Qz@ >   =
ףp{@ >   {Gf|@ >   A}@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qp@ >   {Gp@ >   Qq@ >   \(Dr@ >   Qs@ >   {Gs@ >  	 {Gt@ >  
 =
ףpau@ >   \(4v@ >   \(w@ >  
 \(w@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   r@ >   \(Ts@ >        t@ >   {Gt@ >   {Gu@ >  	 Qv@ >  
 =
ףpaw@ >   {G>x@ >   Qy@ >  
 =
ףp1z@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Hz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Q,q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   =
ףp9u@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpv@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Q@ >   =
ףp߉@ >   Q@ >   {G\@ >   Q@ >   \(҂@ >  	 (\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   zGy@ >   fffff@ >   )\@ >   \(@ >   33333@ >   π@ >  	      }@ >  
      y@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >        ڇ@ >   Gzl@ >   (\@ >   R덀@ >   Q8|@ >   Qdw@ >  	 
ףp=t@ >  
 
ףp=t@ >   Gz
u@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qa@ >   (\K@ >   p=
/@ >   =
ףpz@ >   )\t@ >   Qt@ >  	 )\Du@ >  
 Gzu@ >   Qu@ >   
ףp=
v@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   (\7@ >   (\,@ >   p=
׷y@ >   ffffft@ >   Qu@ >   |u@ >  	 )\u@ >  
 Hzv@ >   Q_v@ >   Qv@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Q@ >   R@ >   R뿂@ >   Hz~@ >   )\,x@ >   Qt@ >  	 Qu@ >  
 fffffRu@ >   fffffu@ >   fffffu@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   
ףp=8@ >   zG~@ >   |@ >   Gzt@ >   Gzu@ >   )\v@ >  	 )\|v@ >  
 v@ >   
ףp=Bw@ >   Hzw@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   $u@ >   Gzu@ >   
ףp=Jv@ >   Qv@ >   Hzww@ >  	 w@ >  
 )\Dx@ >   
ףp=x@ >   
ףp=y@ >  
 
ףp=y@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   
ףp=v@ >   fffffzw@ >   )\4x@ >   Qx@ >  	 
ףp=jy@ >  
 (\y@ >   )\lz@ >   
ףp=z@ >  
 p=
o{@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   )\x@ >   
ףp=by@ >   Q-z@ >   Hzz@ >  	 Gz{@ >  
 Gz|@ >   Q|@ >   Hz7}@ >  
 
ףp=}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   )\|y@ >   ̄z@ >   fffff{@ >   
ףp=|@ >  	 )\l}@ >  
 )\$~@ >   fffff~@ >   
ףp=@ >  
 (\7@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   Q}@ >   )\~@ >  	 )\@ >  
 (\{@ >   ףp=
@ >   Gz@ >  
 p=
@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   (\@ >   p=
ۀ@ >  	 ףp=
y@ >  
 33333@ >   p=
׻@ >   (\_@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   Q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   ףp=
U@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   GzV@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   33333Y@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   33333a@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Hzv@ >   
ףp=Jw@ >   Qw@ >   )\Tx@ >   
ףp=x@ >   
ףp=by@ >   y@ >  	 tz@ >  
 fffff{@ >   Gz{@ >   Gz|@ >  
 )\|@ >   Hz7}@ >   
ףp=}@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   fffffv@ >   (\w@ >   tx@ >   
ףp=Jy@ >   )\$z@ >   )\{@ >   Gz{@ >  	 fffff|@ >  
 )\}@ >   ̜~@ >   
ףp=@ >  
 p=
?@ >   fffff@ >   (\7@ >   (\·@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   )\Lx@ >   Hz?y@ >   
ףp=:z@ >   
ףp=2{@ >   Q/|@ >   Q7}@ >   Gz:~@ >  	 
ףp=J@ >  
 fffff.@ >   (\»@ >   QI@ >  
 Qف@ >   fffffj@ >   (\@ >   Q@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   )\|@ >   Q}@ >   
ףp=@ >   Gz
@ >   (\@ >   p=
@ >   Q@ >  	 p=
C@ >  
 (\ۂ@ >   Qu@ >   Q@ >  
 ףp=
@ >   GzR@ >   Gz@ >   33333@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qy@ >   Q7z@ >   (\O{@ >   Qo|@ >   Q}@ >   Hz~@ >  	 
ףp=@ >  
 Gz@ >   (\7@ >   Q݁@ >  
 fffff@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   )\|@ >   ~@ >   Q?@ >   Gz:@ >   Qـ@ >  	 p=
w@ >  
 fffff@ >   GzƂ@ >   33333q@ >  
 (\@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   HzS@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   (\Z@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Qz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   fffffz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   (\Á@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   (\L@ >   33333@ >   Gzڋ@ >   zG%@ >   fffffh@ >   R뫆@ >  	 )\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   )\*@ >   H@ >   q=
ףb@ >   (\|@ >   @ >   zG@ >  	 QЂ@ >  
 fffff@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
@ >   (\9@ >   QՆ@ >   )\t@ >   R@ >   Hzg@ >  	 Q|@ >  
 |@ >   \(H}@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   .@ >   Q%@ >   {G@ >   Q@ >   Q|@ >   =}@ >  	 ףp=
}@ >  
 =
ףp}@ >   {GJ~@ >   (\¥~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   =
ףp@ >   
ףp=@ >   Q؀@ >   (\|@ >   {GR}@ >   }@ >  	 ףp=
K~@ >  
 (\­~@ >   ףp=
@ >   @ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Gz܋@ >   Qډ@ >   )\@ >   W@ >   @ >   |@ >  	 E}@ >  
 ףp=
}@ >   (\~@ >   ףp=
{~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   R@ >   fffffN@ >   )\D~@ >   =
ףp5}@ >   \(}@ >   ~@ >  	 ףp=
C@ >  
 {G@ >   =
ףp%@ >   Qi@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   \(p}@ >   \(0~@ >   {G~@ >   \(@ >   {GJ@ >  	 \(@ >  
 ր@ >   \( @ >   {Gf@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q@ >   
ףp=L@ >   {Gʀ@ >   J@ >  	 Q@ >  
 (\@ >   {GJ@ >   Q@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   
ףp=@ >   \(@ >   
ףp= @ >   \(@ >  	 =
ףp
@ >  
 Gzp@ >   ΃@ >   QI@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   \(@ >   Gz\@ >   
ףp=@ >   =
ףpу@ >  	 Q@ >  
 {G҄@ >   )\R@ >   \(܅@ >  
 \(`@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   ̮@ >   Z@ >  	 Q
@ >  
 =
ףp@ >   =
ףpq@ >   \(,@ >  
 {G@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   =
ףp9@ >   
ףp=@@ >  	 Gz@ >  
 
ףp=@ >   Qɉ@ >   \(@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   {G@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Gzt@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   Q<@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   @@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   (\¥@ >   \(,@ >   ̆@ >   Q@ >   \(<@ >   \(@ >   =
ףp@ >  	 =
ףpQ@ >  
 {Gᲂ@ >   =
ףp
@ >   Gzp@ >  
 Q̓@ >   Q1@ >   =
ףp@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   33333@ >   (\e@ >   =
ףp@ >   \(@ >   \(@ >   {Gᲂ@ >   J@ >  	 33333v@ >  
 Q@ >   Q:@ >   \(ą@ >  
 
ףp=l@ >   =
ףp@ >   ̺@ >   =
ףpi@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   ڀ@ >   {G~@ >   Q)@ >   Qт@ >   =
ףp}@ >   =
ףp1@ >   =
ףpq@ >  	 Q@ >  
 R@ >   @ >   \(ԇ@ >  
 \(@ >   =
ףp]@ >   
ףp=,@ >   \(@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   Q@ >   ̲@ >   \(h@ >   "@ >   ކ@ >   Q@ >   Gzd@ >  	 {G*@ >  
 @ >   Ɗ@ >   \(@ >  
 Gzt@ >   F@ >   \(@ >   
ףp=@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   \(܁@ >   \((@ >   Q@ >   ̪@ >   r@ >   QA@ >  	 \(@ >  
 Q@ >   =
ףp@ >   Q@ >  
 =
ףp}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   \(@ >   @ >   =
ףp@ >   Qe@ >   :@ >  	 {G@ >  
 =
ףp@ >   ډ@ >   
ףp=Ċ@ >  
 \(@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qr@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   (\:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   {Gᆂ@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpy@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   ףp=
g@ >   ףp=
@ >   
ףp=V}@ >   Gzy@ >   Ru@ >   
ףp="r@ >  	 Ql@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   =
ףp-@ >   zGA~@ >   Hz'z@ >   Gzv@ >        q@ >   Gzk@ >  	 )\c@ >  
 \(V@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
|@ >   Rw@ >   zGur@ >   Qj@ >   ףp=
G`@ >   q=
ףG@ >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qw@ >   R!s@ >   (\
i@ >   (\W@ >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   p=
p@ >   33333i@ >   QU@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   p=
W}@ >   y@ >   {Gq@ >   Qe@ >   QN@ >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   p@ >   Qe@ >   33333s<@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Gz2@ >   Gz\@ >   \(@ >   e@ >   zG{@ >   
x@ >  	 p=
ct@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   p=
@ >   Q@ >   (\@ >   {G{@ >   Gzw@ >   ףp=
s@ >  	 Qo@ >  
 
ףp=g@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   R?@ >   zGq}@ >   q=
ף`x@ >   
ףp=Rs@ >   (\}l@ >   Q`b@ >  	 QY@ >  
 33333cY@ >   =
ףpY@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz.@ >        y@ >   Gzr@ >   =
ףph@ >   QY@ >   QY@ >  	 QY@ >  
 (\BZ@ >   QZ@ >   QZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   q=
ףv@ >   Hzx@ >   Gz<g@ >   Gz.Y@ >   =
ףpY@ >   Q8Z@ >  	 QZ@ >  
 QZ@ >   QX[@ >   (\[@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   )\@ >   Hz~@ >   )\w@ >   
ףp=p@ >   Gzd@ >   =
ףpMY@ >  	 33333Y@ >  
 33333Z@ >   GznZ@ >   =
ףpZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   v@ >   p=
p@ >         `@ >   =
ףpY@ >   =
ףpMZ@ >   33333[@ >  	 33333[@ >  
 =
ףp
\@ >   33333\@ >   33333]@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpY@ >   (\Z@ >   33333C[@ >   (\\@ >   33333\@ >  	 =
ףpM]@ >  
 =
ףp]@ >   QX^@ >   Q^@ >  
 Gzn_@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q[@ >   33333\@ >   Q]@ >   =
ףp^@ >  	 (\B_@ >  
 =
ףp_@ >   \(L`@ >   \(`@ >  
 `@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   Q8^@ >   Q8_@ >   ףp=
'`@ >   ףp=
`@ >  	 zGa@ >  
 zGaa@ >   \(a@ >   Qb@ >  
 Qvb@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   33333c_@ >   \(\`@ >   a@ >   \(a@ >  	 \(<b@ >  
 Qb@ >   \(,c@ >   \(c@ >  
 Q&d@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(lb@ >   1c@ >  	 \(c@ >  
 d@ >   zGe@ >   e@ >  
 \(f@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qd@ >   \(d@ >  	 \(e@ >  
 ףp=
f@ >   ףp=
gg@ >   \(<h@ >  
 i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   \(f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   \(,j@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   (\=p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Gz[@ >   Q\@ >   33333C]@ >   Gz]@ >   Gz^@ >   Q8_@ >   Q_@ >  	 zGQ`@ >  
 ףp=
`@ >   zGa@ >   zGaa@ >  
 \(a@ >   Qb@ >   Qvb@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   Gz[@ >   Q\@ >   =
ףp
^@ >   33333#_@ >   \(`@ >   \(`@ >   \(<a@ >  	 a@ >  
 \(lb@ >   c@ >   Qc@ >  
 Q6d@ >   d@ >   zGqe@ >   Qf@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   33333]@ >   Q_@ >   \(,`@ >   \(`@ >   qa@ >   Qb@ >   b@ >  	 \(lc@ >  
 \(d@ >   Qd@ >   \(e@ >  
 Af@ >   \(f@ >   ףp=
g@ >   Qh@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   \(a@ >   zGb@ >   Ac@ >   c@ >   d@ >   QVe@ >   zGf@ >  	 \(f@ >  
 zGg@ >   ףp=
Wh@ >   !i@ >  
 zGi@ >   \(j@ >   \(k@ >   ףp=
gl@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   (\_@ >   Q&`@ >   \(`@ >   Qa@ >   QVb@ >   \(c@ >  	 c@ >  
 Qd@ >   zGqe@ >   \(Lf@ >  
 \(g@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   a@ >   b@ >   Qfc@ >   \(,d@ >   \(d@ >  	 ףp=
e@ >  
 \(f@ >   Qvg@ >   Qh@ >  
 1i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   Q;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   Gz>p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   ףp=
`@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   d@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   Q&f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   p=
C@ >   fffffx@ >   R뫄@ >   p=
@ >   Hz+@ >   Hz~@ >  	 Gzz@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   
ףp=@ >   (\@ >   q=
ף$@ >   Gz*@ >   {Gb~@ >   Qqz@ >  	 q=
ף|v@ >  
 33333r@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   HzwP@ >   ףp=
@ >   =
ףp~@ >   Qy@ >   )\t@ >   Gzo@ >  	 QHj@ >  
 (\j@ >        j@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz@ >   (\@ >   \(,y@ >   (\r@ >   QHj@ >   Qj@ >  	 {G"k@ >  
 (\rk@ >   (\k@ >   Q(l@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   QN}@ >   ףp=
#y@ >   ףp=
_r@ >   q=
ףXj@ >   =
ףpj@ >   =
ףpmk@ >  	 (\k@ >  
 (\-l@ >   {Gl@ >   =
ףpl@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   q=
ף@ >   {Gᖂ@ >   Gzd~@ >   w@ >   Qp@ >   Qxj@ >  	 Qj@ >  
 333333k@ >   Gzk@ >   (\k@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   HzO}@ >   33333w@ >   \(m@ >   {Gj@ >   =
ףp}k@ >   (\=l@ >  	 (\½l@ >  
 =
ףp=m@ >   (\½m@ >   33333Cn@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpj@ >   (\k@ >   (\}l@ >   =
ףp=m@ >   33333n@ >  	 =
ףpn@ >  
 {Go@ >   {Go@ >   \(p@ >  
 Yp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Qm@ >   33333n@ >   (\n@ >   {Go@ >  	 QFp@ >  
      p@ >   \(p@ >   \(Dq@ >  
 Qq@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   (\}o@ >   \(Dp@ >   Qp@ >   QTq@ >  	      q@ >  
 Qr@ >   =
ףpir@ >   {Gr@ >  
 Q&s@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   {GVp@ >   =
ףpq@ >   q@ >   =
ףpir@ >  	 =
ףpr@ >  
 \(ds@ >   {Gs@ >   =
ףpat@ >  
 =
ףpt@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(s@ >   {Gs@ >  	 t@ >  
 \(<u@ >        u@ >   {Gv@ >  
 Qw@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qt@ >   u@ >  	 =
ףpv@ >  
 Yw@ >   {G.x@ >   \(y@ >  
 =
ףpy@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   Qw@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   {@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   =
ףp@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   zG?@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   33333#m@ >   (\m@ >   (\}n@ >   (\-o@ >   Qo@ >   \(Dp@ >   Qp@ >  	 Qp@ >  
 QTq@ >        q@ >   Qr@ >  
 {Gfr@ >   {Gr@ >   Q&s@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   q=
ף(m@ >   =
ףp=n@ >   {GRo@ >   \(4p@ >   \(p@ >   {GVq@ >   Qq@ >  	 r@ >  
 s@ >   \(s@ >   \(Lt@ >  
 {Gt@ >   \(u@ >   =
ףp1v@ >   =
ףpv@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   (\o@ >   {G.p@ >   p@ >   \(tq@ >   \(r@ >        r@ >   =
ףpqs@ >  	 \($t@ >  
 Qt@ >   =
ףpu@ >   =
ףpIv@ >  
 \(w@ >   =
ףpw@ >   Qx@ >   =
ףpQy@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   {Gr@ >        Ds@ >   \(s@ >   {Gt@ >   {G^u@ >   \(v@ >   zGv@ >  	 w@ >  
 =
ףpYx@ >   !y@ >   {Gy@ >  
 Qz@ >   =
ףp{@ >   {Gf|@ >   A}@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qp@ >   {Gp@ >   Qq@ >   \(Dr@ >   Qs@ >   {Gs@ >  	 {Gt@ >  
 =
ףpau@ >   \(4v@ >   \(w@ >  
 \(w@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   r@ >   \(Ts@ >        t@ >   {Gt@ >   {Gu@ >  	 Qv@ >  
 =
ףpaw@ >   {G>x@ >   Qy@ >  
 =
ףp1z@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Hz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Q,q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   =
ףp9u@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpv@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Q@ >   =
ףp߉@ >   Q@ >   {G\@ >   Q@ >   \(҂@ >  	 (\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   zGy@ >   fffff@ >   )\@ >   \(@ >   33333@ >   π@ >  	      }@ >  
      y@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >        ڇ@ >   Gzl@ >   (\@ >   R덀@ >   Q8|@ >   Qdw@ >  	 
ףp=t@ >  
 
ףp=t@ >   Gz
u@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qa@ >   (\K@ >   p=
/@ >   =
ףpz@ >   )\t@ >   Qt@ >  	 )\Du@ >  
 Gzu@ >   Qu@ >   
ףp=
v@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   (\7@ >   (\,@ >   p=
׷y@ >   ffffft@ >   Qu@ >   |u@ >  	 )\u@ >  
 Hzv@ >   Q_v@ >   Qv@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Q@ >   R@ >   R뿂@ >   Hz~@ >   )\,x@ >   Qt@ >  	 Qu@ >  
 fffffRu@ >   fffffu@ >   fffffu@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   
ףp=8@ >   zG~@ >   |@ >   Gzt@ >   Gzu@ >   )\v@ >  	 )\|v@ >  
 v@ >   
ףp=Bw@ >   Hzw@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   $u@ >   Gzu@ >   
ףp=Jv@ >   Qv@ >   Hzww@ >  	 w@ >  
 )\Dx@ >   
ףp=x@ >   
ףp=y@ >  
 
ףp=y@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   
ףp=v@ >   fffffzw@ >   )\4x@ >   Qx@ >  	 
ףp=jy@ >  
 (\y@ >   )\lz@ >   
ףp=z@ >  
 p=
o{@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   )\x@ >   
ףp=by@ >   Q-z@ >   Hzz@ >  	 Gz{@ >  
 Gz|@ >   Q|@ >   Hz7}@ >  
 
ףp=}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   )\|y@ >   ̄z@ >   fffff{@ >   
ףp=|@ >  	 )\l}@ >  
 )\$~@ >   fffff~@ >   
ףp=@ >  
 (\7@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   Q}@ >   )\~@ >  	 )\@ >  
 (\{@ >   ףp=
@ >   Gz@ >  
 p=
@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   (\@ >   p=
ۀ@ >  	 ףp=
y@ >  
 33333@ >   p=
׻@ >   (\_@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   Q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   ףp=
U@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   GzV@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   33333Y@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   33333a@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Hzv@ >   
ףp=Jw@ >   Qw@ >   )\Tx@ >   
ףp=x@ >   
ףp=by@ >   y@ >  	 tz@ >  
 fffff{@ >   Gz{@ >   Gz|@ >  
 )\|@ >   Hz7}@ >   
ףp=}@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   fffffv@ >   (\w@ >   tx@ >   
ףp=Jy@ >   )\$z@ >   )\{@ >   Gz{@ >  	 fffff|@ >  
 )\}@ >   ̜~@ >   
ףp=@ >  
 p=
?@ >   fffff@ >   (\7@ >   (\·@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   )\Lx@ >   Hz?y@ >   
ףp=:z@ >   
ףp=2{@ >   Q/|@ >   Q7}@ >   Gz:~@ >  	 
ףp=J@ >  
 fffff.@ >   (\»@ >   QI@ >  
 Qف@ >   fffffj@ >   (\@ >   Q@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   )\|@ >   Q}@ >   
ףp=@ >   Gz
@ >   (\@ >   p=
@ >   Q@ >  	 p=
C@ >  
 (\ۂ@ >   Qu@ >   Q@ >  
 ףp=
@ >   GzR@ >   Gz@ >   33333@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qy@ >   Q7z@ >   (\O{@ >   Qo|@ >   Q}@ >   Hz~@ >  	 
ףp=@ >  
 Gz@ >   (\7@ >   Q݁@ >  
 fffff@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   )\|@ >   ~@ >   Q?@ >   Gz:@ >   Qـ@ >  	 p=
w@ >  
 fffff@ >   GzƂ@ >   33333q@ >  
 (\@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   HzS@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   (\Z@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Qz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   fffffz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   (\Á@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   (\L@ >   33333@ >   Gzڋ@ >   zG%@ >   fffffh@ >   R뫆@ >  	 )\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   )\*@ >   H@ >   q=
ףb@ >   (\|@ >   @ >   zG@ >  	 QЂ@ >  
 fffff@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
@ >   (\9@ >   QՆ@ >   )\t@ >   R@ >   Hzg@ >  	 Q|@ >  
 |@ >   \(H}@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   .@ >   Q%@ >   {G@ >   Q@ >   Q|@ >   =}@ >  	 ףp=
}@ >  
 =
ףp}@ >   {GJ~@ >   (\¥~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   =
ףp@ >   
ףp=@ >   Q؀@ >   (\|@ >   {GR}@ >   }@ >  	 ףp=
K~@ >  
 (\­~@ >   ףp=
@ >   @ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Gz܋@ >   Qډ@ >   )\@ >   W@ >   @ >   |@ >  	 E}@ >  
 ףp=
}@ >   (\~@ >   ףp=
{~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   R@ >   fffffN@ >   )\D~@ >   =
ףp5}@ >   \(}@ >   ~@ >  	 ףp=
C@ >  
 {G@ >   =
ףp%@ >   Qi@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   \(p}@ >   \(0~@ >   {G~@ >   \(@ >   {GJ@ >  	 \(@ >  
 ր@ >   \( @ >   {Gf@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q@ >   
ףp=L@ >   {Gʀ@ >   J@ >  	 Q@ >  
 (\@ >   {GJ@ >   Q@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   
ףp=@ >   \(@ >   
ףp= @ >   \(@ >  	 =
ףp
@ >  
 Gzp@ >   ΃@ >   QI@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   \(@ >   Gz\@ >   
ףp=@ >   =
ףpу@ >  	 Q@ >  
 {G҄@ >   )\R@ >   \(܅@ >  
 \(`@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   ̮@ >   Z@ >  	 Q
@ >  
 =
ףp@ >   =
ףpq@ >   \(,@ >  
 {G@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   =
ףp9@ >   
ףp=@@ >  	 Gz@ >  
 
ףp=@ >   Qɉ@ >   \(@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   {G@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Gzt@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   Q<@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   @@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   (\¥@ >   \(,@ >   ̆@ >   Q@ >   \(<@ >   \(@ >   =
ףp@ >  	 =
ףpQ@ >  
 {Gᲂ@ >   =
ףp
@ >   Gzp@ >  
 Q̓@ >   Q1@ >   =
ףp@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   33333@ >   (\e@ >   =
ףp@ >   \(@ >   \(@ >   {Gᲂ@ >   J@ >  	 33333v@ >  
 Q@ >   Q:@ >   \(ą@ >  
 
ףp=l@ >   =
ףp@ >   ̺@ >   =
ףpi@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   ڀ@ >   {G~@ >   Q)@ >   Qт@ >   =
ףp}@ >   =
ףp1@ >   =
ףpq@ >  	 Q@ >  
 R@ >   @ >   \(ԇ@ >  
 \(@ >   =
ףp]@ >   
ףp=,@ >   \(@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   Q@ >   ̲@ >   \(h@ >   "@ >   ކ@ >   Q@ >   Gzd@ >  	 {G*@ >  
 @ >   Ɗ@ >   \(@ >  
 Gzt@ >   F@ >   \(@ >   
ףp=@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   \(܁@ >   \((@ >   Q@ >   ̪@ >   r@ >   QA@ >  	 \(@ >  
 Q@ >   =
ףp@ >   Q@ >  
 =
ףp}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   \(@ >   @ >   =
ףp@ >   Qe@ >   :@ >  	 {G@ >  
 =
ףp@ >   ډ@ >   
ףp=Ċ@ >  
 \(@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qr@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   (\:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   {Gᆂ@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpy@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   ףp=
g@ >   ףp=
@ >   
ףp=V}@ >   Gzy@ >   Ru@ >   
ףp="r@ >  	 Ql@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   =
ףp-@ >   zGA~@ >   Hz'z@ >   Gzv@ >        q@ >   Gzk@ >  	 )\c@ >  
 \(V@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
|@ >   Rw@ >   zGur@ >   Qj@ >   ףp=
G`@ >   q=
ףG@ >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qw@ >   R!s@ >   (\
i@ >   (\W@ >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   p=
p@ >   33333i@ >   QU@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   p=
W}@ >   y@ >   {Gq@ >   Qe@ >   QN@ >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   p@ >   Qe@ >   33333s<@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Gz2@ >   Gz\@ >   \(@ >   e@ >   zG{@ >   
x@ >  	 p=
ct@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   p=
@ >   Q@ >   (\@ >   {G{@ >   Gzw@ >   ףp=
s@ >  	 Qo@ >  
 
ףp=g@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   R?@ >   zGq}@ >   q=
ף`x@ >   
ףp=Rs@ >   (\}l@ >   Q`b@ >  	 QY@ >  
 33333cY@ >   =
ףpY@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz.@ >        y@ >   Gzr@ >   =
ףph@ >   QY@ >   QY@ >  	 QY@ >  
 (\BZ@ >   QZ@ >   QZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   q=
ףv@ >   Hzx@ >   Gz<g@ >   Gz.Y@ >   =
ףpY@ >   Q8Z@ >  	 QZ@ >  
 QZ@ >   QX[@ >   (\[@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   )\@ >   Hz~@ >   )\w@ >   
ףp=p@ >   Gzd@ >   =
ףpMY@ >  	 33333Y@ >  
 33333Z@ >   GznZ@ >   =
ףpZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   v@ >   p=
p@ >         `@ >   =
ףpY@ >   =
ףpMZ@ >   33333[@ >  	 33333[@ >  
 =
ףp
\@ >   33333\@ >   33333]@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpY@ >   (\Z@ >   33333C[@ >   (\\@ >   33333\@ >  	 =
ףpM]@ >  
 =
ףp]@ >   QX^@ >   Q^@ >  
 Gzn_@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q[@ >   33333\@ >   Q]@ >   =
ףp^@ >  	 (\B_@ >  
 =
ףp_@ >   \(L`@ >   \(`@ >  
 `@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   Q8^@ >   Q8_@ >   ףp=
'`@ >   ףp=
`@ >  	 zGa@ >  
 zGaa@ >   \(a@ >   Qb@ >  
 Qvb@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   33333c_@ >   \(\`@ >   a@ >   \(a@ >  	 \(<b@ >  
 Qb@ >   \(,c@ >   \(c@ >  
 Q&d@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(lb@ >   1c@ >  	 \(c@ >  
 d@ >   zGe@ >   e@ >  
 \(f@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qd@ >   \(d@ >  	 \(e@ >  
 ףp=
f@ >   ףp=
gg@ >   \(<h@ >  
 i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   \(f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   \(,j@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   (\=p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Gz[@ >   Q\@ >   33333C]@ >   Gz]@ >   Gz^@ >   Q8_@ >   Q_@ >  	 zGQ`@ >  
 ףp=
`@ >   zGa@ >   zGaa@ >  
 \(a@ >   Qb@ >   Qvb@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   Gz[@ >   Q\@ >   =
ףp
^@ >   33333#_@ >   \(`@ >   \(`@ >   \(<a@ >  	 a@ >  
 \(lb@ >   c@ >   Qc@ >  
 Q6d@ >   d@ >   zGqe@ >   Qf@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   33333]@ >   Q_@ >   \(,`@ >   \(`@ >   qa@ >   Qb@ >   b@ >  	 \(lc@ >  
 \(d@ >   Qd@ >   \(e@ >  
 Af@ >   \(f@ >   ףp=
g@ >   Qh@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   \(a@ >   zGb@ >   Ac@ >   c@ >   d@ >   QVe@ >   zGf@ >  	 \(f@ >  
 zGg@ >   ףp=
Wh@ >   !i@ >  
 zGi@ >   \(j@ >   \(k@ >   ףp=
gl@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   (\_@ >   Q&`@ >   \(`@ >   Qa@ >   QVb@ >   \(c@ >  	 c@ >  
 Qd@ >   zGqe@ >   \(Lf@ >  
 \(g@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   a@ >   b@ >   Qfc@ >   \(,d@ >   \(d@ >  	 ףp=
e@ >  
 \(f@ >   Qvg@ >   Qh@ >  
 1i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   Q;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   Gz>p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   ףp=
`@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   d@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   Q&f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   p=
C@ >   fffffx@ >   R뫄@ >   p=
@ >   Hz+@ >   Hz~@ >  	 Gzz@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   
ףp=@ >   (\@ >   q=
ף$@ >   Gz*@ >   {Gb~@ >   Qqz@ >  	 q=
ף|v@ >  
 33333r@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   HzwP@ >   ףp=
@ >   =
ףp~@ >   Qy@ >   )\t@ >   Gzo@ >  	 QHj@ >  
 (\j@ >        j@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz@ >   (\@ >   \(,y@ >   (\r@ >   QHj@ >   Qj@ >  	 {G"k@ >  
 (\rk@ >   (\k@ >   Q(l@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   QN}@ >   ףp=
#y@ >   ףp=
_r@ >   q=
ףXj@ >   =
ףpj@ >   =
ףpmk@ >  	 (\k@ >  
 (\-l@ >   {Gl@ >   =
ףpl@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   q=
ף@ >   {Gᖂ@ >   Gzd~@ >   w@ >   Qp@ >   Qxj@ >  	 Qj@ >  
 333333k@ >   Gzk@ >   (\k@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   HzO}@ >   33333w@ >   \(m@ >   {Gj@ >   =
ףp}k@ >   (\=l@ >  	 (\½l@ >  
 =
ףp=m@ >   (\½m@ >   33333Cn@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpj@ >   (\k@ >   (\}l@ >   =
ףp=m@ >   33333n@ >  	 =
ףpn@ >  
 {Go@ >   {Go@ >   \(p@ >  
 Yp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Qm@ >   33333n@ >   (\n@ >   {Go@ >  	 QFp@ >  
      p@ >   \(p@ >   \(Dq@ >  
 Qq@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   (\}o@ >   \(Dp@ >   Qp@ >   QTq@ >  	      q@ >  
 Qr@ >   =
ףpir@ >   {Gr@ >  
 Q&s@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   {GVp@ >   =
ףpq@ >   q@ >   =
ףpir@ >  	 =
ףpr@ >  
 \(ds@ >   {Gs@ >   =
ףpat@ >  
 =
ףpt@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(s@ >   {Gs@ >  	 t@ >  
 \(<u@ >        u@ >   {Gv@ >  
 Qw@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qt@ >   u@ >  	 =
ףpv@ >  
 Yw@ >   {G.x@ >   \(y@ >  
 =
ףpy@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   Qw@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   {@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   =
ףp@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   zG?@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   33333#m@ >   (\m@ >   (\}n@ >   (\-o@ >   Qo@ >   \(Dp@ >   Qp@ >  	 Qp@ >  
 QTq@ >        q@ >   Qr@ >  
 {Gfr@ >   {Gr@ >   Q&s@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   q=
ף(m@ >   =
ףp=n@ >   {GRo@ >   \(4p@ >   \(p@ >   {GVq@ >   Qq@ >  	 r@ >  
 s@ >   \(s@ >   \(Lt@ >  
 {Gt@ >   \(u@ >   =
ףp1v@ >   =
ףpv@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   (\o@ >   {G.p@ >   p@ >   \(tq@ >   \(r@ >        r@ >   =
ףpqs@ >  	 \($t@ >  
 Qt@ >   =
ףpu@ >   =
ףpIv@ >  
 \(w@ >   =
ףpw@ >   Qx@ >   =
ףpQy@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   {Gr@ >        Ds@ >   \(s@ >   {Gt@ >   {G^u@ >   \(v@ >   zGv@ >  	 w@ >  
 =
ףpYx@ >   !y@ >   {Gy@ >  
 Qz@ >   =
ףp{@ >   {Gf|@ >   A}@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qp@ >   {Gp@ >   Qq@ >   \(Dr@ >   Qs@ >   {Gs@ >  	 {Gt@ >  
 =
ףpau@ >   \(4v@ >   \(w@ >  
 \(w@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   r@ >   \(Ts@ >        t@ >   {Gt@ >   {Gu@ >  	 Qv@ >  
 =
ףpaw@ >   {G>x@ >   Qy@ >  
 =
ףp1z@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Hz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Q,q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   =
ףp9u@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpv@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Q@ >   =
ףp߉@ >   Q@ >   {G\@ >   Q@ >   \(҂@ >  	 (\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   zGy@ >   fffff@ >   )\@ >   \(@ >   33333@ >   π@ >  	      }@ >  
      y@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >        ڇ@ >   Gzl@ >   (\@ >   R덀@ >   Q8|@ >   Qdw@ >  	 
ףp=t@ >  
 
ףp=t@ >   Gz
u@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qa@ >   (\K@ >   p=
/@ >   =
ףpz@ >   )\t@ >   Qt@ >  	 )\Du@ >  
 Gzu@ >   Qu@ >   
ףp=
v@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   (\7@ >   (\,@ >   p=
׷y@ >   ffffft@ >   Qu@ >   |u@ >  	 )\u@ >  
 Hzv@ >   Q_v@ >   Qv@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Q@ >   R@ >   R뿂@ >   Hz~@ >   )\,x@ >   Qt@ >  	 Qu@ >  
 fffffRu@ >   fffffu@ >   fffffu@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   
ףp=8@ >   zG~@ >   |@ >   Gzt@ >   Gzu@ >   )\v@ >  	 )\|v@ >  
 v@ >   
ףp=Bw@ >   Hzw@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   $u@ >   Gzu@ >   
ףp=Jv@ >   Qv@ >   Hzww@ >  	 w@ >  
 )\Dx@ >   
ףp=x@ >   
ףp=y@ >  
 
ףp=y@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   
ףp=v@ >   fffffzw@ >   )\4x@ >   Qx@ >  	 
ףp=jy@ >  
 (\y@ >   )\lz@ >   
ףp=z@ >  
 p=
o{@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   )\x@ >   
ףp=by@ >   Q-z@ >   Hzz@ >  	 Gz{@ >  
 Gz|@ >   Q|@ >   Hz7}@ >  
 
ףp=}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   )\|y@ >   ̄z@ >   fffff{@ >   
ףp=|@ >  	 )\l}@ >  
 )\$~@ >   fffff~@ >   
ףp=@ >  
 (\7@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   Q}@ >   )\~@ >  	 )\@ >  
 (\{@ >   ףp=
@ >   Gz@ >  
 p=
@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   (\@ >   p=
ۀ@ >  	 ףp=
y@ >  
 33333@ >   p=
׻@ >   (\_@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   Q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   ףp=
U@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   GzV@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   33333Y@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   33333a@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Hzv@ >   
ףp=Jw@ >   Qw@ >   )\Tx@ >   
ףp=x@ >   
ףp=by@ >   y@ >  	 tz@ >  
 fffff{@ >   Gz{@ >   Gz|@ >  
 )\|@ >   Hz7}@ >   
ףp=}@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   fffffv@ >   (\w@ >   tx@ >   
ףp=Jy@ >   )\$z@ >   )\{@ >   Gz{@ >  	 fffff|@ >  
 )\}@ >   ̜~@ >   
ףp=@ >  
 p=
?@ >   fffff@ >   (\7@ >   (\·@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   )\Lx@ >   Hz?y@ >   
ףp=:z@ >   
ףp=2{@ >   Q/|@ >   Q7}@ >   Gz:~@ >  	 
ףp=J@ >  
 fffff.@ >   (\»@ >   QI@ >  
 Qف@ >   fffffj@ >   (\@ >   Q@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   )\|@ >   Q}@ >   
ףp=@ >   Gz
@ >   (\@ >   p=
@ >   Q@ >  	 p=
C@ >  
 (\ۂ@ >   Qu@ >   Q@ >  
 ףp=
@ >   GzR@ >   Gz@ >   33333@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qy@ >   Q7z@ >   (\O{@ >   Qo|@ >   Q}@ >   Hz~@ >  	 
ףp=@ >  
 Gz@ >   (\7@ >   Q݁@ >  
 fffff@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   )\|@ >   ~@ >   Q?@ >   Gz:@ >   Qـ@ >  	 p=
w@ >  
 fffff@ >   GzƂ@ >   33333q@ >  
 (\@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   HzS@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   (\Z@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Qz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   fffffz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   (\Á@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   (\L@ >   33333@ >   Gzڋ@ >   zG%@ >   fffffh@ >   R뫆@ >  	 )\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   )\*@ >   H@ >   q=
ףb@ >   (\|@ >   @ >   zG@ >  	 QЂ@ >  
 fffff@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
@ >   (\9@ >   QՆ@ >   )\t@ >   R@ >   Hzg@ >  	 Q|@ >  
 |@ >   \(H}@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   .@ >   Q%@ >   {G@ >   Q@ >   Q|@ >   =}@ >  	 ףp=
}@ >  
 =
ףp}@ >   {GJ~@ >   (\¥~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   =
ףp@ >   
ףp=@ >   Q؀@ >   (\|@ >   {GR}@ >   }@ >  	 ףp=
K~@ >  
 (\­~@ >   ףp=
@ >   @ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Gz܋@ >   Qډ@ >   )\@ >   W@ >   @ >   |@ >  	 E}@ >  
 ףp=
}@ >   (\~@ >   ףp=
{~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   R@ >   fffffN@ >   )\D~@ >   =
ףp5}@ >   \(}@ >   ~@ >  	 ףp=
C@ >  
 {G@ >   =
ףp%@ >   Qi@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   \(p}@ >   \(0~@ >   {G~@ >   \(@ >   {GJ@ >  	 \(@ >  
 ր@ >   \( @ >   {Gf@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q@ >   
ףp=L@ >   {Gʀ@ >   J@ >  	 Q@ >  
 (\@ >   {GJ@ >   Q@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   
ףp=@ >   \(@ >   
ףp= @ >   \(@ >  	 =
ףp
@ >  
 Gzp@ >   ΃@ >   QI@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   \(@ >   Gz\@ >   
ףp=@ >   =
ףpу@ >  	 Q@ >  
 {G҄@ >   )\R@ >   \(܅@ >  
 \(`@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   ̮@ >   Z@ >  	 Q
@ >  
 =
ףp@ >   =
ףpq@ >   \(,@ >  
 {G@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   =
ףp9@ >   
ףp=@@ >  	 Gz@ >  
 
ףp=@ >   Qɉ@ >   \(@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   {G@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Gzt@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   Q<@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   @@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   (\¥@ >   \(,@ >   ̆@ >   Q@ >   \(<@ >   \(@ >   =
ףp@ >  	 =
ףpQ@ >  
 {Gᲂ@ >   =
ףp
@ >   Gzp@ >  
 Q̓@ >   Q1@ >   =
ףp@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   33333@ >   (\e@ >   =
ףp@ >   \(@ >   \(@ >   {Gᲂ@ >   J@ >  	 33333v@ >  
 Q@ >   Q:@ >   \(ą@ >  
 
ףp=l@ >   =
ףp@ >   ̺@ >   =
ףpi@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   ڀ@ >   {G~@ >   Q)@ >   Qт@ >   =
ףp}@ >   =
ףp1@ >   =
ףpq@ >  	 Q@ >  
 R@ >   @ >   \(ԇ@ >  
 \(@ >   =
ףp]@ >   
ףp=,@ >   \(@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   Q@ >   ̲@ >   \(h@ >   "@ >   ކ@ >   Q@ >   Gzd@ >  	 {G*@ >  
 @ >   Ɗ@ >   \(@ >  
 Gzt@ >   F@ >   \(@ >   
ףp=@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   \(܁@ >   \((@ >   Q@ >   ̪@ >   r@ >   QA@ >  	 \(@ >  
 Q@ >   =
ףp@ >   Q@ >  
 =
ףp}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   \(@ >   @ >   =
ףp@ >   Qe@ >   :@ >  	 {G@ >  
 =
ףp@ >   ډ@ >   
ףp=Ċ@ >  
 \(@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qr@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   (\:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   {Gᆂ@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpy@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   ףp=
g@ >   ףp=
@ >   
ףp=V}@ >   Gzy@ >   Ru@ >   
ףp="r@ >  	 Ql@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   =
ףp-@ >   zGA~@ >   Hz'z@ >   Gzv@ >        q@ >   Gzk@ >  	 )\c@ >  
 \(V@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
|@ >   Rw@ >   zGur@ >   Qj@ >   ףp=
G`@ >   q=
ףG@ >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qw@ >   R!s@ >   (\
i@ >   (\W@ >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   p=
p@ >   33333i@ >   QU@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   p=
W}@ >   y@ >   {Gq@ >   Qe@ >   QN@ >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   p@ >   Qe@ >   33333s<@ >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Gz2@ >   Gz\@ >   \(@ >   e@ >   zG{@ >   
x@ >  	 p=
ct@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   p=
@ >   Q@ >   (\@ >   {G{@ >   Gzw@ >   ףp=
s@ >  	 Qo@ >  
 
ףp=g@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   R?@ >   zGq}@ >   q=
ף`x@ >   
ףp=Rs@ >   (\}l@ >   Q`b@ >  	 QY@ >  
 33333cY@ >   =
ףpY@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz.@ >        y@ >   Gzr@ >   =
ףph@ >   QY@ >   QY@ >  	 QY@ >  
 (\BZ@ >   QZ@ >   QZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   q=
ףv@ >   Hzx@ >   Gz<g@ >   Gz.Y@ >   =
ףpY@ >   Q8Z@ >  	 QZ@ >  
 QZ@ >   QX[@ >   (\[@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   )\@ >   Hz~@ >   )\w@ >   
ףp=p@ >   Gzd@ >   =
ףpMY@ >  	 33333Y@ >  
 33333Z@ >   GznZ@ >   =
ףpZ@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   v@ >   p=
p@ >         `@ >   =
ףpY@ >   =
ףpMZ@ >   33333[@ >  	 33333[@ >  
 =
ףp
\@ >   33333\@ >   33333]@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpY@ >   (\Z@ >   33333C[@ >   (\\@ >   33333\@ >  	 =
ףpM]@ >  
 =
ףp]@ >   QX^@ >   Q^@ >  
 Gzn_@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q[@ >   33333\@ >   Q]@ >   =
ףp^@ >  	 (\B_@ >  
 =
ףp_@ >   \(L`@ >   \(`@ >  
 `@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   Q8^@ >   Q8_@ >   ףp=
'`@ >   ףp=
`@ >  	 zGa@ >  
 zGaa@ >   \(a@ >   Qb@ >  
 Qvb@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   33333c_@ >   \(\`@ >   a@ >   \(a@ >  	 \(<b@ >  
 Qb@ >   \(,c@ >   \(c@ >  
 Q&d@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(lb@ >   1c@ >  	 \(c@ >  
 d@ >   zGe@ >   e@ >  
 \(f@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qd@ >   \(d@ >  	 \(e@ >  
 ףp=
f@ >   ףp=
gg@ >   \(<h@ >  
 i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   \(f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   \(,j@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   (\;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   (\=p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Gz[@ >   Q\@ >   33333C]@ >   Gz]@ >   Gz^@ >   Q8_@ >   Q_@ >  	 zGQ`@ >  
 ףp=
`@ >   zGa@ >   zGaa@ >  
 \(a@ >   Qb@ >   Qvb@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   Gz[@ >   Q\@ >   =
ףp
^@ >   33333#_@ >   \(`@ >   \(`@ >   \(<a@ >  	 a@ >  
 \(lb@ >   c@ >   Qc@ >  
 Q6d@ >   d@ >   zGqe@ >   Qf@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   33333]@ >   Q_@ >   \(,`@ >   \(`@ >   qa@ >   Qb@ >   b@ >  	 \(lc@ >  
 \(d@ >   Qd@ >   \(e@ >  
 Af@ >   \(f@ >   ףp=
g@ >   Qh@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   \(a@ >   zGb@ >   Ac@ >   c@ >   d@ >   QVe@ >   zGf@ >  	 \(f@ >  
 zGg@ >   ףp=
Wh@ >   !i@ >  
 zGi@ >   \(j@ >   \(k@ >   ףp=
gl@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   (\_@ >   Q&`@ >   \(`@ >   Qa@ >   QVb@ >   \(c@ >  	 c@ >  
 Qd@ >   zGqe@ >   \(Lf@ >  
 \(g@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   a@ >   b@ >   Qfc@ >   \(,d@ >   \(d@ >  	 ףp=
e@ >  
 \(f@ >   Qvg@ >   Qh@ >  
 1i@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   k@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   zGm@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   o@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   Q;p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   Gz>p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   8p@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   ףp=
`@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   d@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   Q&f@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   p=
C@ >   fffffx@ >   R뫄@ >   p=
@ >   Hz+@ >   Hz~@ >  	 Gzz@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   
ףp=@ >   (\@ >   q=
ף$@ >   Gz*@ >   {Gb~@ >   Qqz@ >  	 q=
ף|v@ >  
 33333r@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   HzwP@ >   ףp=
@ >   =
ףp~@ >   Qy@ >   )\t@ >   Gzo@ >  	 QHj@ >  
 (\j@ >        j@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Gz@ >   (\@ >   \(,y@ >   (\r@ >   QHj@ >   Qj@ >  	 {G"k@ >  
 (\rk@ >   (\k@ >   Q(l@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   QN}@ >   ףp=
#y@ >   ףp=
_r@ >   q=
ףXj@ >   =
ףpj@ >   =
ףpmk@ >  	 (\k@ >  
 (\-l@ >   {Gl@ >   =
ףpl@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   q=
ף@ >   {Gᖂ@ >   Gzd~@ >   w@ >   Qp@ >   Qxj@ >  	 Qj@ >  
 333333k@ >   Gzk@ >   (\k@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   HzO}@ >   33333w@ >   \(m@ >   {Gj@ >   =
ףp}k@ >   (\=l@ >  	 (\½l@ >  
 =
ףp=m@ >   (\½m@ >   33333Cn@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   =
ףpj@ >   (\k@ >   (\}l@ >   =
ףp=m@ >   33333n@ >  	 =
ףpn@ >  
 {Go@ >   {Go@ >   \(p@ >  
 Yp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Qm@ >   33333n@ >   (\n@ >   {Go@ >  	 QFp@ >  
      p@ >   \(p@ >   \(Dq@ >  
 Qq@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   (\}o@ >   \(Dp@ >   Qp@ >   QTq@ >  	      q@ >  
 Qr@ >   =
ףpir@ >   {Gr@ >  
 Q&s@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   {GVp@ >   =
ףpq@ >   q@ >   =
ףpir@ >  	 =
ףpr@ >  
 \(ds@ >   {Gs@ >   =
ףpat@ >  
 =
ףpt@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   \(s@ >   {Gs@ >  	 t@ >  
 \(<u@ >        u@ >   {Gv@ >  
 Qw@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   Qt@ >   u@ >  	 =
ףpv@ >  
 Yw@ >   {G.x@ >   \(y@ >  
 =
ףpy@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   Qw@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   {@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   =
ףp@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   zG?@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   33333#m@ >   (\m@ >   (\}n@ >   (\-o@ >   Qo@ >   \(Dp@ >   Qp@ >  	 Qp@ >  
 QTq@ >        q@ >   Qr@ >  
 {Gfr@ >   {Gr@ >   Q&s@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   q=
ף(m@ >   =
ףp=n@ >   {GRo@ >   \(4p@ >   \(p@ >   {GVq@ >   Qq@ >  	 r@ >  
 s@ >   \(s@ >   \(Lt@ >  
 {Gt@ >   \(u@ >   =
ףp1v@ >   =
ףpv@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   (\o@ >   {G.p@ >   p@ >   \(tq@ >   \(r@ >        r@ >   =
ףpqs@ >  	 \($t@ >  
 Qt@ >   =
ףpu@ >   =
ףpIv@ >  
 \(w@ >   =
ףpw@ >   Qx@ >   =
ףpQy@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   {Gr@ >        Ds@ >   \(s@ >   {Gt@ >   {G^u@ >   \(v@ >   zGv@ >  	 w@ >  
 =
ףpYx@ >   !y@ >   {Gy@ >  
 Qz@ >   =
ףp{@ >   {Gf|@ >   A}@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qp@ >   {Gp@ >   Qq@ >   \(Dr@ >   Qs@ >   {Gs@ >  	 {Gt@ >  
 =
ףpau@ >   \(4v@ >   \(w@ >  
 \(w@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   r@ >   \(Ts@ >        t@ >   {Gt@ >   {Gu@ >  	 Qv@ >  
 =
ףpaw@ >   {G>x@ >   Qy@ >  
 =
ףp1z@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   |@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qv~@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Hz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   \(:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Q,q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   =
ףp9u@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpv@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   Q@ >   =
ףp߉@ >   Q@ >   {G\@ >   Q@ >   \(҂@ >  	 (\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   zGy@ >   fffff@ >   )\@ >   \(@ >   33333@ >   π@ >  	      }@ >  
      y@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >        ڇ@ >   Gzl@ >   (\@ >   R덀@ >   Q8|@ >   Qdw@ >  	 
ףp=t@ >  
 
ףp=t@ >   Gz
u@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   Qa@ >   (\K@ >   p=
/@ >   =
ףpz@ >   )\t@ >   Qt@ >  	 )\Du@ >  
 Gzu@ >   Qu@ >   
ףp=
v@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   (\7@ >   (\,@ >   p=
׷y@ >   ffffft@ >   Qu@ >   |u@ >  	 )\u@ >  
 Hzv@ >   Q_v@ >   Qv@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Q@ >   R@ >   R뿂@ >   Hz~@ >   )\,x@ >   Qt@ >  	 Qu@ >  
 fffffRu@ >   fffffu@ >   fffffu@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   
ףp=8@ >   zG~@ >   |@ >   Gzt@ >   Gzu@ >   )\v@ >  	 )\|v@ >  
 v@ >   
ףp=Bw@ >   Hzw@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   $u@ >   Gzu@ >   
ףp=Jv@ >   Qv@ >   Hzww@ >  	 w@ >  
 )\Dx@ >   
ףp=x@ >   
ףp=y@ >  
 
ףp=y@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   
ףp=v@ >   fffffzw@ >   )\4x@ >   Qx@ >  	 
ףp=jy@ >  
 (\y@ >   )\lz@ >   
ףp=z@ >  
 p=
o{@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   )\x@ >   
ףp=by@ >   Q-z@ >   Hzz@ >  	 Gz{@ >  
 Gz|@ >   Q|@ >   Hz7}@ >  
 
ףp=}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   )\|y@ >   ̄z@ >   fffff{@ >   
ףp=|@ >  	 )\l}@ >  
 )\$~@ >   fffff~@ >   
ףp=@ >  
 (\7@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   Q}@ >   )\~@ >  	 )\@ >  
 (\{@ >   ףp=
@ >   Gz@ >  
 p=
@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   (\@ >   p=
ۀ@ >  	 ףp=
y@ >  
 33333@ >   p=
׻@ >   (\_@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   Q@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   ףp=
U@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   GzV@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   33333Y@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   33333a@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   Hzv@ >   
ףp=Jw@ >   Qw@ >   )\Tx@ >   
ףp=x@ >   
ףp=by@ >   y@ >  	 tz@ >  
 fffff{@ >   Gz{@ >   Gz|@ >  
 )\|@ >   Hz7}@ >   
ףp=}@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   fffffv@ >   (\w@ >   tx@ >   
ףp=Jy@ >   )\$z@ >   )\{@ >   Gz{@ >  	 fffff|@ >  
 )\}@ >   ̜~@ >   
ףp=@ >  
 p=
?@ >   fffff@ >   (\7@ >   (\·@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   )\Lx@ >   Hz?y@ >   
ףp=:z@ >   
ףp=2{@ >   Q/|@ >   Q7}@ >   Gz:~@ >  	 
ףp=J@ >  
 fffff.@ >   (\»@ >   QI@ >  
 Qف@ >   fffffj@ >   (\@ >   Q@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   )\|@ >   Q}@ >   
ףp=@ >   Gz
@ >   (\@ >   p=
@ >   Q@ >  	 p=
C@ >  
 (\ۂ@ >   Qu@ >   Q@ >  
 ףp=
@ >   GzR@ >   Gz@ >   33333@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   Qy@ >   Q7z@ >   (\O{@ >   Qo|@ >   Q}@ >   Hz~@ >  	 
ףp=@ >  
 Gz@ >   (\7@ >   Q݁@ >  
 fffff@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   )\|@ >   ~@ >   Q?@ >   Gz:@ >   Qـ@ >  	 p=
w@ >  
 fffff@ >   GzƂ@ >   33333q@ >  
 (\@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   Q)@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   HzS@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   p=
@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   (\Z@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   p=
W@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   Qz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   fffffz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   (\Á@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A05 >            >   (\L@ >   33333@ >   Gzڋ@ >   zG%@ >   fffffh@ >   R뫆@ >  	 )\@ >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A06 >            >   )\*@ >   H@ >   q=
ףb@ >   (\|@ >   @ >   zG@ >  	 QЂ@ >  
 fffff@ >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A07 >            >   ףp=
@ >   (\9@ >   QՆ@ >   )\t@ >   R@ >   Hzg@ >  	 Q|@ >  
 |@ >   \(H}@ >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A08 >            >   .@ >   Q%@ >   {G@ >   Q@ >   Q|@ >   =}@ >  	 ףp=
}@ >  
 =
ףp}@ >   {GJ~@ >   (\¥~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A091 >            >   =
ףp@ >   
ףp=@ >   Q؀@ >   (\|@ >   {GR}@ >   }@ >  	 ףp=
K~@ >  
 (\­~@ >   ףp=
@ >   @ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A092 >            >   Gz܋@ >   Qډ@ >   )\@ >   W@ >   @ >   |@ >  	 E}@ >  
 ףp=
}@ >   (\~@ >   ףp=
{~@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A10 >            >   R@ >   fffffN@ >   )\D~@ >   =
ףp5}@ >   \(}@ >   ~@ >  	 ףp=
C@ >  
 {G@ >   =
ףp%@ >   Qi@ >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A11 >            >            >   \(p}@ >   \(0~@ >   {G~@ >   \(@ >   {GJ@ >  	 \(@ >  
 ր@ >   \( @ >   {Gf@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A12 >            >            >            >   Q@ >   
ףp=L@ >   {Gʀ@ >   J@ >  	 Q@ >  
 (\@ >   {GJ@ >   Q@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A13 >            >            >            >   
ףp=@ >   \(@ >   
ףp= @ >   \(@ >  	 =
ףp
@ >  
 Gzp@ >   ΃@ >   QI@ >  
 =
ףp@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A14 >            >            >            >   \(@ >   Gz\@ >   
ףp=@ >   =
ףpу@ >  	 Q@ >  
 {G҄@ >   )\R@ >   \(܅@ >  
 \(`@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A15 >            >            >            >            >            >   ̮@ >   Z@ >  	 Q
@ >  
 =
ףp@ >   =
ףpq@ >   \(,@ >  
 {G@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    A16 >            >            >            >            >            >   =
ףp9@ >   
ףp=@@ >  	 Gz@ >  
 
ףp=@ >   Qɉ@ >   \(@ >  
 Q@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B01 >   {G@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B04 >   Gzt@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B06 >   Gz:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B07 >   Q<@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B09 >   =
ףp;@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    B10 >   @@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    C01 >   (\¥@ >   \(,@ >   ̆@ >   Q@ >   \(<@ >   \(@ >   =
ףp@ >  	 =
ףpQ@ >  
 {Gᲂ@ >   =
ףp
@ >   Gzp@ >  
 Q̓@ >   Q1@ >   =
ףp@ >            >    >    >    xxxxxxxxxxxx [  [ >    C02 >   33333@ >   (\e@ >   =
ףp@ >   \(@ >   \(@ >   {Gᲂ@ >   J@ >  	 33333v@ >  
 Q@ >   Q:@ >   \(ą@ >  
 
ףp=l@ >   =
ףp@ >   ̺@ >   =
ףpi@ >    >    >    xxxxxxxxxxxx [  [ >    C03 >   ڀ@ >   {G~@ >   Q)@ >   Qт@ >   =
ףp}@ >   =
ףp1@ >   =
ףpq@ >  	 Q@ >  
 R@ >   @ >   \(ԇ@ >  
 \(@ >   =
ףp]@ >   
ףp=,@ >   \(@ >    >    >    xxxxxxxxxxxx [  [ >    C04 >   Q@ >   ̲@ >   \(h@ >   "@ >   ކ@ >   Q@ >   Gzd@ >  	 {G*@ >  
 @ >   Ɗ@ >   \(@ >  
 Gzt@ >   F@ >   \(@ >   
ףp=@ >    >    >    xxxxxxxxxxxx [  [ >    R01 >            >   \(܁@ >   \((@ >   Q@ >   ̪@ >   r@ >   QA@ >  	 \(@ >  
 Q@ >   =
ףp@ >   Q@ >  
 =
ףp}@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R02 >            >            >   \(@ >   @ >   =
ףp@ >   Qe@ >   :@ >  	 {G@ >  
 =
ףp@ >   ډ@ >   
ףp=Ċ@ >  
 \(@ >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R03 >   =
ףpA@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R04 >   Qr@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R05 >   Gz@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R06 >   (\:@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R07 >   <@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    R08 >   :@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W01 >   {Gᆂ@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W02 >   ̺@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [  [ >    W03 >   =
ףpy@ >            >            >            >            >            >            >  	          >  
          >            >            >  
          >            >            >            >    >    >    xxxxxxxxxxxx [ U  NIFAMZU GRUPPE S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 KINDER NIJAHR NIMONAT
 fill_nifam0     1 r R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A AA R A AA R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A R A 1A 3                       w    BM^      6  (   2   2         (
                                   ʦ   @   `              @   @   @@  @`  @  @  @  @  `   `   `@  ``  `  `  `  `        @  `                @  `                @  `                @  `         @   @   @ @ @ ` @  @  @  @  @   @   @ @ @ ` @  @  @  @  @@  @@  @@@ @@` @@ @@ @@ @@ @`  @`  @`@ @`` @` @` @` @` @  @  @@ @` @ @ @ @ @  @  @@ @` @ @ @ @ @  @  @@ @` @ @ @ @ @  @  @@ @` @ @ @ @        @  `                @  `         @  @  @@ @` @ @ @ @ `  `  `@ `` ` ` ` `     @ `         @ `         @ `         @ `            @  `                @  `         @  @  @@ @` @ @ @ @ `  `  `@ `` ` ` ` `     @ `         @ `         @ `                                    800000000000000000000000000008  08(8  08((8  088  080  080  080  0(((((((((((8((((((((0  0(88880(0  0(00  0(80  0080  0080  008(0  008(0  8(80(  8(00  8(0(  8(0(  80(  8(8(  888  8((88888  088  088  088  8(0000(0088  0(8(808  0(((8((((((((8  080  080  080  8((((80  80(0(880  8(880  800000000000000000000008                               (       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _7340TWBY21512666870      /  F      ]        #              ,      5                       WINDOWS _7340TWBY31512724738>      J  V      c      B  	                                               WINDOWS _7340TWBY41512666955  /  O  ^  k  x                                                           WINDOWS _7340UZOI41512668197        ,  @  M      #  k                                               WINDOWS _7340UZOI51512724738            )                                                           WINDOWS _7340VZWNZ1512724738                                                                       WINDOWS _7340VZWO01512724738+      7  C  W  d                                                           WINDOWS _7340VZWO11512666870        *  9  [                                                           WINDOWS _7340VZWO21512667676                                                                   WINDOWS _7340VZWO31512666870            7                                                           WINDOWS _7340VZWO41512667676c      r            S                                                 WINDOWS _7340TWBY21512668197                       5!  !                                               WINDOWS _7340VZWO51512670006"      "  "  "  "      I#  $                                               COMMENT RESERVED                                F'                                                            'o                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      WPROCEDURE BeforeOpenTables
CREATE cursor hstmpname (nr N(5,0), namen C(35))
ENDPROC
                                        %                             U  9 6 h	 hstmpname  N   C# U 	 HSTMPNAME NR NAMEN BeforeOpenTables,     1 a1                       L       )                            1      1      form      form      FORM1      BorderStyle = 3
Height = 587
Width = 369
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Personalfall kopieren."
ControlBox = .F.
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     HPROCEDURE Init
thisform.label1.Caption = "Mit dem aktuellen Personalfall mit Nummer : " + ALLTRIM(STR(myform1.tdbnumber1.value,10,0))
thisform.label2.Caption = "Name : " + ALLTRIM(myform1.z0.caption)
thisform.command2.enabled = .f.

thisform.grdhstmpname.Enabled = .f.

IF registriert < 2 .and. lof(13) = 5
	thisform.optiongroup1.option2.enabled = .f.
else
	thisform.optiongroup1.option2.enabled = .t.
ENDIF

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
thisform.grdhstmpname.column1.text1.fontsize = thisform.grdhstmpname.column1.fontsize
thisform.grdhstmpname.column2.text1.fontsize = thisform.grdhstmpname.column1.fontsize
ENDPROC
PROCEDURE Unload
SELECT hstmpname
USE

RETURN thisform.tag
ENDPROC
         l  l                           %                          U  S T    , Mit dem aktuellen Personalfall mit Nummer : CC   
 Z& T     Name : C    T   	 - T  
 	 -  % 
 C
 	  T  
  	 -   T  
  	 a  %     % T C     T :
 T  
      T         T        
     T   a U  THISFORM LABEL1 CAPTION MYFORM1
 TDBNUMBER1 VALUE LABEL2 Z0 COMMAND2 ENABLED GRDHSTMPNAME REGISTRIERT LOF OPTIONGROUP1 OPTION2 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTERW  C    " T           " T            U  THISFORM SIZER	 FRMRESIZE GRDHSTMPNAME COLUMN1 TEXT1 FONTSIZE COLUMN2  F   Q B   U 	 HSTMPNAME THISFORM TAG Init,      Resize     Unloadc    1 1aA AA   A    3 !!2 q A  1                               ,            =  !    )   l                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 567
Left = 351
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 2
Value = 0
Height = 48
Left = 17
Top = 50
Width = 336
Name = "Optiongroup1"
Option1.Caption = "einen bereits vorhandenen Personalfall berschreiben."
Option1.Value = 0
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 325
Option1.Name = "Option1"
Option2.Caption = "die Kopie als neuen Personalfall anlegen."
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 325
Option2.Name = "Option2"
     @PROCEDURE InteractiveChange
IF this.Value = 1
	SELECT hstmpname
	arrayname = "zt0"
	
	filledoptions = ALEN(zt0,1)

	FOR hsa = 1 TO filledoptions
		APPEND BLANK
		flush
		replace hstmpname.nr WITH hsa
		replace hstmpname.namen WITH zt0(hsa)		
		flush
	NEXT

	SELECT hstmpname

	SET FILTER TO .not. EMPTY(namen)
	GO top
	
	thisform.grdhstmpname.enabled = .t.	
	
	thisform.grdhstmpname.refresh	
ELSE
	thisform.grdhstmpname.enabled = .f.	
ENDIF
IF this.Value > 0
	thisform.command2.enabled = .t.
ELSE
	thisform.command2.enabled = .f.
endif
ENDPROC
         h  h                           %                          U  % %     F  T  zt0 T C   (    [ >    >  C    [  F  G(C 
 #) T	 
  a
 	 
     T	 
  -  %     T	 
  a  T	 
  -  U  THIS VALUE	 HSTMPNAME	 ARRAYNAME
 FILLEDOPTIONS ZT0 HSA NR NAMEN THISFORM GRDHSTMPNAME ENABLED REFRESH COMMAND2 InteractiveChange,     1 Aq 2rQ A QA A r  Q   A A A 1                       5      )   h                        label      label      Label1      FORM1      hCaption = "Den aktuellen Personalfall:"
Height = 18
Left = 17
Top = 4
Width = 336
Name = "Label1"
      label      label      Label2      FORM1      UCaption = "Name : "
Height = 19
Left = 17
Top = 27
Width = 336
Name = "Label2"
      grid      grid      grdHstmpname      FORM1     ColumnCount = 2
DeleteMark = .F.
Enabled = .F.
Height = 436
Left = 67
Panel = 1
ReadOnly = .T.
RecordSource = "hstmpname"
RecordSourceType = 1
ScrollBars = 2
ToolTipText = " Mit einem KLICK das Ziel zum berschreiben auswhlen und dann Button KOPIE ERSTELLEN anklicken."
Top = 104
Width = 236
HighlightStyle = 2
Name = "grdHstmpname"
Column1.ControlSource = "hstmpname.nr"
Column1.Enabled = .F.
Column1.Width = 48
Column1.ReadOnly = .T.
Column1.Format = "99999"
Column1.InputMask = "99999"
Column1.Name = "Column1"
Column2.ControlSource = "hstmpname.namen"
Column2.Enabled = .F.
Column2.Width = 156
Column2.ReadOnly = .T.
Column2.Name = "Column2"
      header      header      Header1      FORM1.grdHstmpname.Column1      #Caption = "Nr."
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdHstmpname.Column1      BorderStyle = 0
ControlSource = "hstmpname.nr"
Enabled = .F.
Format = "99999"
InputMask = "99999"
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      QPROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,6,0))

ENDPROC
                                      Ё   %   x                          U  * ' T    I:CC   Z U  THISFORM TAG	 HSTMPNAME NR Click,     1 q2                       F       )                            header      header      Header1      FORM1.grdHstmpname.Column2      $Caption = "Name"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdHstmpname.Column2      BorderStyle = 0
ControlSource = "hstmpname.namen"
Enabled = .F.
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      PROCEDURE DblClick
thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,6,0))
thisform.release
ENDPROC
PROCEDURE Click
thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr -1,6,0))
ENDPROC
     v    ]  ]                           %                            U  4 ' T    I:CC   Z
     U  THISFORM TAG	 HSTMPNAME NR RELEASE* ' T    I:CC   Z U  THISFORM TAG	 HSTMPNAME NR DblClick,      Click     1 q 2 q1                       Y         u          )   ]                        
commandbutton      
commandbutton      Command1      FORM1      ZTop = 549
Left = 51
Height = 28
Width = 130
Caption = "abbrechen"
Name = "Command1"
      UPROCEDURE Click
thisform.Tag="I:0"
perscopymodus = 0

thisform.release
ENDPROC
                                      #   %                             U  -  T    I:0
 T  
     U  THISFORM TAG
 PERSCOPYMODUS RELEASE Click,     1 1  1                       J       )                            
commandbutton      
commandbutton      Command2      FORM1      aTop = 549
Left = 188
Height = 28
Width = 130
Caption = "Kopie erstellen"
Name = "Command2"
     PROCEDURE Click
IF hstmpname.nr = myform1.tdbnumber1.value
	hinweis("Das wre der gleiche Personalfall als Zieldatensatz!"+CHR(13)+"Bitte whlen Sie einen anderen Personalfall zum berschreiben!")
	RETURN
ENDIF

perscopymodus = thisform.optiongroup1.Value

IF thisform.optiongroup1.Value = 1
	thisform.Tag="I:"+ALLTRIM(STR(hstmpname.nr,2,0))
ELSE
	thisform.Tag="I:99999"
endif
thisform.release
ENDPROC
     L    3  3                           %           
               U  ( %        C4 Das wre der gleiche Personalfall als Zieldatensatz!C
 > Bitte whlen Sie einen anderen Personalfall zum berschreiben!  B  T     %    # T 	  I:CC    Z  T 	  I:99999 
  
  U 	 HSTMPNAME NR MYFORM1
 TDBNUMBER1 VALUE HINWEIS
 PERSCOPYMODUS THISFORM OPTIONGROUP1 TAG RELEASE Click,     1 A A 2r1 qA  1                             )   3                        !Arial, 0, 9, 5, 15, 12, 32, 3, 0
BMz       >   (               <                              
  C  C  zB  C  H  y  y      0
   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _68B0LNL4C1411469549      /  F      ]                                                       WINDOWS _68B0LNL4D1513510574                                                                     WINDOWS _68B0LS07Q1513510524 
  0
  P
  _
  l
  
                                                           WINDOWS _68B0LNL4C1513510524      %  :  J  `        
                                               WINDOWS _73H0MCDHD1513510557                                                                       WINDOWS _68B0LNL4C1513510574}                                                                       WINDOWS _73H0MQ4JE1513510574                                                                       WINDOWS _73H0MQ4JF1513510524~                  ]                                                 COMMENT RESERVED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Altersteilzeit     Height = 278
Width = 497
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Krankenkassenvorgaben"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = prgicons\g22ico.ico
WindowType = 1
AlwaysOnTop = .T.
Name = "Altersteilzeit"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
crlf = CHR(13)+CHR(10)
thisform.edit1.Value = "Diese Funktion berschreibt die Vorgaben ALLER Krankenkassen."+crlf +crlf+"Also auch die Betriebskrankenkassen 1-7 und die Ersatzkassen 1-4." +crlf+crlf+ "Wenn Sie eigene Werte darin eingetragen haben, werden diese berschrieben!"+crlf+crlf+"Bitte entfernen Sie bei diesen den Haken, wenn Sie das nicht wollen!"
thisform.check1.Value = 1
thisform.check2.Value = 1

thisform.sizer.saveformsize

thisform.Height = thisform.Height * mscreenfaktor_h
thisform.width = thisform.width * mscreenfaktor_h

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
     X    ?  ?                        3   %           
               U    C     U  THISFORM SIZER	 FRMRESIZE T  C
 C
 CT   = Diese Funktion berschreibt die Vorgaben ALLER Krankenkassen.    A Also auch die Betriebskrankenkassen 1-7 und die Ersatzkassen 1-4.    J Wenn Sie eigene Werte darin eingetragen haben, werden diese berschrieben!    D Bitte entfernen Sie bei diesen den Haken, wenn Sie das nicht wollen! T    T   
     T    	  T 
  
 	 
    T  a U
  CRLF THISFORM EDIT1 VALUE CHECK1 CHECK2 SIZER SAVEFORMSIZE HEIGHT MSCREENFAKTOR_H WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 Q111 rq  1                       ,         G         )   ?                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Altersteilzeit      Top = 258
Left = 478
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command4      Altersteilzeit      Top = 224
Left = 259
Height = 30
Width = 188
Caption = "Vorgebenwerte ausfhren"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "Command4"
     PROCEDURE Click
kkvorgaben = "nix"

DO case
	CASE thisform.check1.Value = 0 .and. thisform.check2.Value = 0
		kkvorgaben = "00"
	CASE thisform.check1.Value = 1 .and. thisform.check2.Value = 0
		kkvorgaben = "10"
	CASE thisform.check1.Value = 0 .and. thisform.check2.Value = 1
		kkvorgaben = "01"
	CASE thisform.check1.Value = 1 .and. thisform.check2.Value = 1	
		kkvorgaben = "11"		
endcase

thisform.release
ENDPROC
                                   `   %   p                       U  
 T   nix
 H  (          	T  T   00(         	  T   10(         	  T   01(        	  T   11 
    U 
 KKVORGABEN THISFORM CHECK1 VALUE CHECK2 RELEASE Click,     1      A  1                             )                           editbox      editbox      Edit1      Altersteilzeit      xFontBold = .T.
Enabled = .F.
Height = 125
Left = 9
Top = 4
Width = 481
DisabledForeColor = 0,0,0
Name = "Edit1"
      checkbox      checkbox      Check1      Altersteilzeit      Top = 150
Left = 79
Height = 25
Width = 339
FontBold = .T.
Alignment = 0
Caption = "JA, die Betriebskrankenkassen  1-7 auch berschreiben."
ForeColor = 255,0,0
Name = "Check1"
      checkbox      checkbox      Check2      Altersteilzeit      Top = 179
Left = 79
Height = 25
Width = 339
FontBold = .T.
Alignment = 0
Caption = "JA, die Ersatzkassen  1-4 auch berschreiben."
ForeColor = 255,0,0
Name = "Check2"
      
commandbutton      
commandbutton      Command1      Altersteilzeit      Top = 224
Left = 49
Height = 30
Width = 188
Caption = "abbrechen"
Style = 0
Visible = .T.
SpecialEffect = 0
Name = "Command1"
      @PROCEDURE Click
kkvorgaben = "nix"
thisform.release
ENDPROC
                                         %   l             {             U    T   nix
    U 
 KKVORGABEN THISFORM RELEASE Click,     1  1                       5       )                            BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _5RA17I1O91535726049      /  F      ]                       |'      '                       WINDOWS _5RA17I1OA1535920980'      '  '      '      (  ;;                                               WINDOWS _5RH0VEQA51517704590M      M   M  .M  ;M                                                           WINDOWS _5RH0VEQA61517704590M      M  M  M  M                                                           WINDOWS _5RH0VEQA71517704590N      N  N  )N  6N                                                           WINDOWS _5RA17I1O91517704590N      N  N  N  N                                                           WINDOWS _5RD0OG9DK1518040189N      O  O  'O  4O                                                           WINDOWS _5RA17I1O91518040189~O      O  O  O  O                                                           WINDOWS _5RA17I1OB1517704590O      P  #P  /P  <P      S  T                                               WINDOWS _5RA17I1OC1517704590U      U  U  U  U                                                           WINDOWS _5RA17I1OD1517704590QV      ^V  kV  yV  V                                                           WINDOWS _5RA17I1OE1517704590
W      W  $W  2W  ?W                                                           WINDOWS _5RA17I1OH1517704590W      W  W  W  W                                                           WINDOWS _5RA17I1OI1517704590qX      X  X  X  X      jY  Z                                               WINDOWS _5RA17I1OJ1517704590[      [  [  [  [                                                           WINDOWS _5RA17I1OK15177045900\      ?\  N\  e\  r\      3]  ]                                               WINDOWS _5RA17I1ON1517704590F_      V_  f_  w_  _      `  `                                               WINDOWS _5RA17I1OP1531793135a      a  a  a  a      ?d  
n                                               WINDOWS _5RA17I1OQ1517704590v      v  v  w  w                                                           WINDOWS _5RA17I1OR1517704590w      w  w  w  w      Tx  x                                               WINDOWS _5RA17I1OS1517704590z      z  "z  1z  >z                                                           WINDOWS _5RA17I1OT1517704590z      z  z  z  z      l{  ;|                                               WINDOWS _5RA17I1OU1517704590}      }  }  }  }                                                           WINDOWS _5RA17I1OV1517704590b~      o~  |~  ~  ~                                                           WINDOWS _5RA17I1OW1517704590      %  4  I  V                                                       WINDOWS _5RA17I1OX1517704590            ̓                                                           WINDOWS _5RA17I1OY1517704590A      P  _  t        .                                                 WINDOWS _5RA17I1OZ1517704590          І  ݆                                                           WINDOWS _5RA17I1P01517704590c      r                                                                 WINDOWS _5RA17I1O91517704590p      }                                                                 WINDOWS _5RA17I1O91517704590%      2  ?  N  [                                                           WINDOWS _5RA17I1P31517704590ى          	        Њ                                                 WINDOWS _5RD0NPFAY1517704590                  ؍                                                 WINDOWS _5RA17I1P51517704590      ʒ  ڒ          u                                                 WINDOWS _5RA17I1P61517704590'      4  A  P  ]                                                           WINDOWS _5RA17I1P71517704590ϕ      ޕ            ̖  {                                               WINDOWS _5RA17I1P81517704590ߘ                                                                       WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RA17I1PC1517704590,      ;  J  [  h      *  ٛ                                               WINDOWS _5RA17I1PD1517704590=      L  [  l  y      <                                                 WINDOWS _5RA17I1PE1517704590O      ^  m  ~                                                             WINDOWS _5RA17I1O91517704590N      [  h  v                                                             WINDOWS _5RA17I1PG1517704590         -  ;  H                                                           WINDOWS _5RA17I1O91517704590آ                                                                       WINDOWS _5RA17I1PI1517704590          ţ  ң                                                           WINDOWS _5RA17I1PJ1517704590a      n  {                                                               WINDOWS _5RA17I1PK1517704590%      2  ?  N  [                                                           WINDOWS _5RA17I1PM1517704590                                                                       WINDOWS _5RA17I1O91517704590e      r                                                                 WINDOWS _5RA17I1PO1517704590&      5  D  S  `                                                           WINDOWS _5RA17I1PP1517704590,      ;  J  Z  g                                                           WINDOWS _5RD0NPFAY15177045905      D  S  f  s      @  f                                               WINDOWS _5RA17I1PR1517704590      %  4  G  T                                                           WINDOWS _5RA17I1PS1517704590%      4  C  S  `                                                           WINDOWS _5RA17I1O91517704590.      =  L  \  i                                                           WINDOWS _5RA17I1PU15177045907      F  U  e  r                                                           WINDOWS _5RA17I1PV1517704590@      O  ^  n  {                                                           WINDOWS _5RA17I1O91517704590I      X  g  u                                                             WINDOWS _5RA17OYFE1517704590N      ]  l  |                                                             WINDOWS _5RA17OYFF1517704590X      g  v                                                               WINDOWS _5RA17OYFG1517704590h      w                                                                 WINDOWS _5RD0NPFAY1517704590r                                                                       WINDOWS _5RA17OYFI1517704590|                                                                       WINDOWS _5RA17OYFJ1517704590                                                                       WINDOWS _5RA17I1OA1517704590            ͷ                                                           WINDOWS _5RA17I1O91517913255          ȸ  ո                                                           WINDOWS _5RA17I1O91517704590˹      ع                                                                 WINDOWS _5RA17I1OB1517704590            Ⱥ                                                           WINDOWS _5RA17I1OC1517704590T      a  n  }                                                             WINDOWS _5RA17I1O91517704590      '  4  C  P                                                           WINDOWS _5RA17I1O91517704590ڼ                                                                       WINDOWS _5RA17I1OA1517704590          ý  н                                                           WINDOWS _5RD0OG9DK1517704590Z      g  t                                                               WINDOWS _5RA17I1O91517913255      '  4  C  P                                                           WINDOWS _5RA17I1O91517704590          !  .                                                           WINDOWS _5RD0MMWZ11517704590v                                                                       WINDOWS _5RA17I1O91517704590>      M  \  m  z                                                           WINDOWS _5RD0NPFAY1517704590h      w                                                                 WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0NPFAY1517704590                                                                       WINDOWS _5RA17I1OA1517704590                                                                       WINDOWS _5RD0OG9DK1517704590                                                                       WINDOWS _5RD0O5GRR1517704590                                                                       WINDOWS _5RA17I1O915177045902      ?  L  [  h                                                           WINDOWS _5RD0O5GRS1517704590        
    &                                                           WINDOWS _5RD0O5GRU1517704590                                                                       WINDOWS _5RD0O5GRV1517704590                                                                       WINDOWS _5RD0O5GRW1517704590         
    )                                                           WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0OG9DU1517704590}                                                                       WINDOWS _5RA17I1O91517704590?      N  ]  r                                                             WINDOWS _5RA17I1O91517704590r                                                                       WINDOWS _5RD0VNPXR1517704590                                                                       WINDOWS _5RD0VNPXS1517704590                                                                       WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RA17I1OB1517704590                                                                       WINDOWS _5RD0VNPXV1517704590                                                                       WINDOWS _5RD0O5GRK1517704590                                                                       WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0O5GRO1517704590                                                                       WINDOWS _5RD0O5GRQ1517704590                                                                       WINDOWS _5RD0Y43W71517704590                                                                       WINDOWS _5RD0Y43W81517704590                                                                       WINDOWS _5RD0Y43W91517704590M      Z  g  v                                                             WINDOWS _5RA17I1O91517704590
        '  6  C                                                           WINDOWS _5RD0Y43WB1517704590                                                                       WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0NPFAY1517704590                                                                       WINDOWS _5RA17I1OA1517704590                                                                       WINDOWS _5RD0OG9DK1517704590                                                                       WINDOWS _5RA17I1O91517704590          
                                                             WINDOWS _5RA17I1OB1517704590         /  D  Q                                                           WINDOWS _5RD0Y43WC1517704590%      2  ?  N  [                                                           WINDOWS _5RD0Y43WD1517704590            $                                                           WINDOWS _5RD0Y43WE1517704590                                                                   WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0Y43WG1517704590                                                                       WINDOWS _5RD0Y43WH1517704590                                                                       WINDOWS _5RD0Y43WI1517704590                                                                       WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RD0Y43WK1517704590            !                                                           WINDOWS _5RD0Y43WL1517704590      '  6  K  X                                                           WINDOWS _5RD0YTQMR1517704590,      8  D  Q  ^                                                           WINDOWS _5RA17I1O91517704590                                                                       WINDOWS _5RA17I1O91517704590v                                                                       WINDOWS _5RE0P2NFA1518094937                                                                       WINDOWS _5RE0P2NFB1518094937|                                                                       WINDOWS _5RA17I1O91517704590i      v                                                                 WINDOWS _5RD0NPFAY1517704590      $  3  F  S                                                       WINDOWS _5RF0XFC9Z1517704590!      1  A  W  d                                                           WINDOWS _5RA17I1O91517704590
        +  C  P                                                           WINDOWS _5RA17I1O915177045907      D  Q  _  l                                                           WINDOWS _5RF0XFCA01517704590           8  E                                                           WINDOWS _5RF0XFCA11517704590,      9  F  U  b                                                           WINDOWS _5RA17I1O91517704590      
    3  @                                                           WINDOWS _5RE0P0P451535672399      .  C  S  `        h                                              WINDOWS _5RA17I1O91518887339>     S h x                                                     WINDOWS _5RH0VEQAP1517704590/     > M g t                                                          WINDOWS _5RH0VEQAQ1517704590M     Z g v                                                           WINDOWS _5RK0QA2VT1517704590     $ 1 @ M                                                          WINDOWS _5RA17I1O91517704590        "                                                    WINDOWS _5RA17I1O91517704590     . > Q ^                                                    WINDOWS _5RK0R4I9I1517704590W     g w                                                      WINDOWS _5RK0R4I9J1517704590                                                                  WINDOWS _5RL0OSCDY1517704590@     M Z i v                                                          WINDOWS _5RL0OSCDZ1517704590        )                                                    WINDOWS _5RL0QOC7O1517704590        ,                                                          WINDOWS _5RL0QOC7P1517704590       * 7                                                          WINDOWS _5RA17I1O91517704590                                                                  WINDOWS _5RL0Y7AFF1517704590                                                                  WINDOWS _5RL0Z6UZS1517704590                                                                  WINDOWS _5RM0JZ1Y81517704590                                                                   WINDOWS _5RM0JZ1Y91517704590z             u $                                              WINDOWS _5RM0JZ1YA1517704590                                                                  WINDOWS _5RM0JZ1YB1517704590J     Y h v      X *                                              WINDOWS _5RM0JZ1YC1517704590                                                                  WINDOWS _5RM0JZ1YD1517704590                                                                  WINDOWS _5RM0JZ1YE1517704590{             k                                               WINDOWS _5RM0JZ1YF1517704590~                                                                  WINDOWS _5RA17I1O91517704590     , 9 H U                                                          WINDOWS _5RA17I1O91517704590       $ 1                                                          WINDOWS _5RA17I1O91517704590         
                                                          WINDOWS _5RM1A4R5U1517704590                                                                  WINDOWS _5RM1A4R5V1517704590                                                                  WINDOWS _5RM1A4R5W1517704590k     x                                                             WINDOWS _5RN0KX85O1518887339G     \ q       V                                               WINDOWS _5RN0MX5LB1517704590                                                                  WINDOWS _5RN0MX5LC1517704590d     s        G                                               WINDOWS _5RO0LJRER1517704590                                                                  WINDOWS _7520KWH1P1517836687             @  :!                                              WINDOWS _5RK0QA2VS1517704590"     " " # #     B% %                                              WINDOWS _5RK0QA2VU1517704590&     & & & '     ' (                                              WINDOWS _5RA17I1O91517973061)  *  * /* <* I*                                                          WINDOWS _7560O0TNG1517837347*     * +  + -+     + +                                              WINDOWS _7570YY6501535726131,     , , , -     . TD                                              WINDOWS _75A0JYNSZ1518887339S     S S T T     T EU                                              WINDOWS _5RA17I1O91518887339+V     @V UV eV rV     W X                                              WINDOWS _75L0Q72T51518947822gZ     |Z Z Z Z     [ [                                              COMMENT RESERVED                                \                                                          ]\                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      aTop = 221
Left = 310
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
     2PROCEDURE BeforeOpenTables
create cursor kug_namen ;
(KENNUNG    C(35),;   
SOLLBRUTTO N(10,2),;     
ISTBRUTTO  N(10,2),;     
ZEITRAUM   N( 1,0),;     
AUFSTOCK   N(10,2),;     
ANZFEIER   N( 3,0),;     
STKL       N( 1,0),;     
STKL4FAKT  N(10,4),;     
KVART      N( 1,0),;     
KVBEITRAG  N( 5,2),;     
KVZUSCHLAG N( 5,2),;     
ANPKPV     N(10,2),;     
KVAGZUSCH  N(10,2),;     
ANZKINDER  N( 4,1),;     
PVZUSCHLAG N( 1,0),;     
PVSACHSEN  N( 1,0),;     
RELIGION   N( 1,0),;     
KIRCHSTEU  N( 1,0),;     
VERSBEGIN  N( 4,0),;     
FREIBETRAG N(10,2),;     
HINZURECH  N(10,2),;     
WEST       N( 1,0),;     
U1PFLICHT  N( 1,0),;     
U2PFLICHT  N( 1,0),;     
U3PFLICHT  N( 1,0),;     
UMLAGE_U1  N( 5,2),;     
UMLAGE_U2  N( 5,2),;     
UMLAGE_U3  N( 5,2),;     
AZUBI      N( 1,0),;     
SOLLBERECH N( 1,0),;     
VL1        N(10,2),;     
VL2        N(10,2),;     
VL3        N(10,2),;     
VL4        N(10,2),;     
VL5        N(10,2),;     
VL6        N(10,2),;     
VL7        N(10,2),;     
VL8        N(10,2),;     
VL9        N(10,2),;     
VL10       N(10,2),;     
AGVL1      N(10,2),;     
AGVL2      N(10,2),;     
AGVL3      N(10,2),;     
AGVL4      N(10,2),;     
AGVL5      N(10,2),;     
AGVL6      N(10,2),;     
KL1        N(10,2),;     
KL2        N(10,2),;     
KL3        N(10,2),;     
KL4        N(10,2),;     
KL5        N(10,2),;     
KL6        N(10,2),;     
KL7        N(10,2),;     
KL8        N(10,2),;     
KL9        N(10,2),;     
KL10       N(10,2),;     
KL11       N(10,2),;     
KL12       N(10,2),;     
KL13       N(10,2),;     
AGKL1      N(10,2),;     
AGKL2      N(10,2),;     
AGKL3      N(10,2),;     
AGKL4      N(10,2),;     
AGKL5      N(10,2),;     
AGKL6      N(10,2),;     
AGVL12     N(10,2),;     
AGVL22     N(10,2),;     
AGVL32     N(10,2),;     
AGVL42     N(10,2),;     
AGVL52     N(10,2),;     
AGVL62     N(10,2),;     
AGVL72     N(10,2),;     
AGVL82     N(10,2),;     
AGKL12     N(10,2),;     
AGKL22     N(10,2),;     
AGKL32     N(10,2),;     
AGKL42     N(10,2),;     
AGKL52     N(10,2),;     
AGKL62     N(10,2),;     
AGKL72     N(10,2),;     
AGKL82     N(10,2),;     
AGKL92     N(10,2),;     
AGKL102    N(10,2),;     
AGKL112    N(10,2),;     
KUGLS1     N(10,2),;     
KUGLS2     N(10,2),;     
KUGRV      N(10,2),;     
KUGKV      N(10,2),;     
UMLINFO    C(35))        

SELECT kug_namen
APPEND BLANK
replace KENNUNG WITH ALLTRIM(myform1.z0.caption)
replace SOLLBRUTTO WITH myform1.t22.value
replace zeitraum WITH 1
replace stkl WITH zi(1+50) + 1
replace STKL4FAKT WITH myform1.t57.value

do case
	case zi(1+52) = 10 .or. zi(1+52) = 11 &&ermigt
		hskvart = 2
	case zi(1+52) = 1 .or. zi(1+52) = 8 .or. zi(1+52) = 12
		hskvart = 3
	otherwise
		hskvart = 1
endcase
*kvbeitrag1(1+0, 1 + iii) = 1460 &&allgemeiner satz = 0
*kvbeitrag2(1+0, 1 + iii) = 375 &&u1 = 1
*kvbeitrag3(1+0, 1 + iii) = 69 &&u2 = 2
*kvbeitrag4(1+0, 1 + iii) = 1400 &&ermigter satz = 3
*kvbeitrag5(1+0, 1 + iii) = 130 &&AN zusatzbeitrag = 4
replace KVART WITH hskvart
if hskvart = 1 &&normaler satz
	replace KVBEITRAG with getkvbeitrag(zi(1+46), zi(1+20), 0) / 100
endif
if hskvart = 2 &&ermigt
	replace KVBEITRAG with getkvbeitrag(zi(1+46), zi(1+20), 3) / 100
endif
if hskvart = 3 && AG zuschuss
	replace KVBEITRAG with getkvbeitrag(zi(1+46), zi(1+20), 0) / 100
endif
replace kvzuschlag with getkvbeitrag(zi(1+46), zi(1+20), 4) / 100  
replace ANZKINDER with iif(zi(1+8) < 7, zi(1+8),0)
replace PVZUSCHLAG with iif(zi(1+26) = 2 .or. zi(1+26) = 3, 1,0)
replace PVSACHSEN with iif(zi(1+2) = 13, 1,0)
replace religion with iif(zi(1+28) < 7,1,0)
replace KIRCHSTEU with iif(zi(1+2) < 2,8,9)
replace FREIBETRAG with iif(zi(1+23) = 0,myform1.t23.value,0)
replace HINZURECH with iif(zi(1+23) = 1,myform1.t23.value,0)
replace west WITH IIF(altesland = 0,1,0)
replace U1PFLICHT with iif(empty(wnw.zumlage1),0,1)
replace U2PFLICHT with iif(empty(wnw.zumlage2),0,1)
replace U3PFLICHT with iif(empty(wnw.zumlage3),0,1)
replace umlage_u1 with iif(empty(wnw.zumlage1),0,getkvbeitrag(zi(1+46), zi(1+20), 1) / 100 )
replace umlage_u2 with iif(empty(wnw.zumlage2),0,getkvbeitrag(zi(1+46), zi(1+20), 2) / 100 )
replace umlage_u3 with iif(empty(wnw.zumlage3),0,insolvenzgeld / 1000 )
replace anpkpv with myform1.t58.value + myform1.t59.value
replace kvagzusch with myform1.t37.value + myform1.t39.value

SELECT 116
DO case
	CASE welchesjahr = 2022
		hsxdat = eigdat + "\Tarife\kug_2022"
	CASE welchesjahr = 2023
		hsxdat = eigdat + "\Tarife\kug_2023"
	CASE welchesjahr = 2024
		hsxdat = eigdat + "\Tarife\kug_2024"
	CASE welchesjahr = 2025
		hsxdat = eigdat + "\Tarife\kug_2025"
	CASE welchesjahr >= 2026
		hsxdat = eigdat + "\Tarife\kug_2026"
endcase

USE "&hsxdat" ALIAS "KUG" SHARED
GO top




ENDPROC
     t    [  [                        P   %   ~        =               U  Sh	 kug_namen  C#  N
  N
  N   N
  N   N   N
	  N 
  N  N  N

  N
  N  N   N   N   N   N   N
  N
  N   N   N   N   N  N  N  N   N   N
   N
!  N
"  N
#  N
$  N
%  N
&  N
'  N
(  N
)  N
*  N
+  N
,  N
-  N
.  N
/  N
0  N
1  N
2  N
3  N
4  N
5  N
6  N
7  N
8  N
9  N
:  N
;  N
<  N
=  N
>  N
?  N
@  N
A  N
B  N
C  N
D  N
E  N
F  N
G  N
H  N
I  N
J  N
K  N
L  N
M  N
N  N
O  N
P  N
Q  N
R  N
S  N
T  N
U  N
V  N
W  N
X  N
Y  C# F    > CZ [ \  > Z ] ^ 
 >  > C3_  > Z ` ^ 
 HO$ C5_ 
 C5_ 
 Ta 3 C5_  C5_  C5_ :
 Ta  2O
 Ta  
 >	 a  %a # >
 CC/_ C_  b d  %a # >
 CC/_ C_ b d  %a 	# >
 CC/_ C_  b d # > CC/_ C_ b d' > CC	_ 
 C	_   62 > CC_  C_    6# > CC_ 
   6# > CC_ 
   6# > CC_ 
  	6) > CC_   Z c ^   6) > CC_  Z c ^   6 > Cd     6  > CCe f    6  > CCe g    6  > CCe h    66 > CCe f    CC/_ C_ b d66 > CCe g    CC/_ C_ b d6% > CCe h    i 6 > Z j ^ Z k ^  >
 Z l ^ Z m ^  Ft 
 H n ! To p  \Tarife\kug_2022 n ! To p  \Tarife\kug_2023 n 7! To p  \Tarife\kug_2024 n j! To p  \Tarife\kug_2025 n ! To p  \Tarife\kug_2026 $ USE "&hsxdat" ALIAS "KUG" SHARED
 #) Uq 	 KUG_NAMEN KENNUNG
 SOLLBRUTTO	 ISTBRUTTO ZEITRAUM AUFSTOCK ANZFEIER STKL	 STKL4FAKT KVART	 KVBEITRAG
 KVZUSCHLAG ANPKPV	 KVAGZUSCH	 ANZKINDER
 PVZUSCHLAG	 PVSACHSEN RELIGION	 KIRCHSTEU	 VERSBEGIN
 FREIBETRAG	 HINZURECH WEST	 U1PFLICHT	 U2PFLICHT	 U3PFLICHT	 UMLAGE_U1	 UMLAGE_U2	 UMLAGE_U3 AZUBI
 SOLLBERECH VL1 VL2 VL3 VL4 VL5 VL6 VL7 VL8 VL9 VL10 AGVL1 AGVL2 AGVL3 AGVL4 AGVL5 AGVL6 KL1 KL2 KL3 KL4 KL5 KL6 KL7 KL8 KL9 KL10 KL11 KL12 KL13 AGKL1 AGKL2 AGKL3 AGKL4 AGKL5 AGKL6 AGVL12 AGVL22 AGVL32 AGVL42 AGVL52 AGVL62 AGVL72 AGVL82 AGKL12 AGKL22 AGKL32 AGKL42 AGKL52 AGKL62 AGKL72 AGKL82 AGKL92 AGKL102 AGKL112 KUGLS1 KUGLS2 KUGRV KUGKV UMLINFO MYFORM1 Z0 CAPTION T22 VALUE ZI T57 HSKVART GETKVBEITRAG T23	 ALTESLAND WNW ZUMLAGE1 ZUMLAGE2 ZUMLAGE3
 INSOLVENZGELD T58 T59 T37 T39 WELCHESJAHR HSXDAT EIGDAT BeforeOpenTables,     1 1ur Q Q1 Q1 A 1   A  1A 1A 1A 1q!111aaQ  !!!!!A BQ 5                       '      )   [                        1      1      form      form      FORM1      BorderStyle = 3
Height = 631
Width = 942
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Kurzarbeitergeld berechnen (Testversion! Fehler bitte melden.)"
ControlBox = .F.
WindowType = 0
AlwaysOnTop = .F.
Name = "FORM1"
     yPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
*set sysmenu off
PUBLIC mykugmaske1
mykugmaske1 = thisform
PUBLIC rvgrundlage,kvgrundlage
rvgrundlage = 0
kvgrundlage = 0
kug_open = .t.
PUBLIC mykug
mykug = thisform
SELECT kug_namen
IF RECCOUNT() = 0
	APPEND BLANK
	FLUSH
ELSE
	GOTO 1
ENDIF
thisform.kennung.value = kug_namen.kennung
thisform.sollbrutto.value = sollbrutto  
thisform.istbrutto.value = istbrutto  
thisform.zeitraum.value = zeitraum   
thisform.aufstockung.value = aufstock  
thisform.anzfeiertage.value = anzfeier  
thisform.stkl.value = stkl  
thisform.klasseIV_faktor.value = stkl4fakt  
thisform.kvart.value = kvart  
thisform.kvbeitrag.value = kvbeitrag  
thisform.kvzusatzbeitrag.value = kvzuschlag  
thisform.anpkpv.value = anpkpv  
thisform.anzkinderfrei.value = anzkinder  
thisform.mitpvzuschlag.value = IIF(EMPTY(pvzuschlag),0,1)  
thisform.pvsachsen.value = IIF(EMPTY(pvsachsen),0,1)
thisform.religion.value =  IIF(EMPTY(religion),0,1)
thisform.kirchensteuer.value = kirchsteu  
thisform.versorgungsbeginn.value = versbegin  
thisform.freibetrag.value = freibetrag  
thisform.hinzurechbetrag.value = hinzurech  
thisform.anzkinderfrei.value = anzkinder  
thisform.west.value =  IIF(EMPTY(west),0,1)
thisform.u1pflichtig.value = IIF(EMPTY(u1pflicht),0,1)
thisform.u2pflichtig.value = IIF(EMPTY(u2pflicht),0,1)
thisform.u3pflichtig.value = IIF(EMPTY(u3pflicht),0,1)
thisform.umlage_u1.value = umlage_u1  
thisform.umlage_u2.value = umlage_u2  
thisform.umlage_u3.value = umlage_u3  
thisform.azubi.value = azubi  
thisform.sollberechnung.value = sollberech  
 thisform.sollbrutto2.value        = VL1   
 thisform.volllst.value            = VL2   
 thisform.solivoll.value           = VL3   
 thisform.kirchstvoll.value        = VL4   
 thisform.ANkvvoll.value           = VL5   
 thisform.ANkvzuvoll.value         = VL6   
 thisform.ANpvvoll.value           = VL7   
 thisform.ANrvvoll.value           = VL8   
 thisform.ANavvoll.value           = VL9   
 thisform.vollnetto.value          = VL10  
 thisform.AGkvvoll.value           = AGVL1 
 thisform.AGkvzuvoll.value         = AGVL2 
 thisform.AGpvvoll.value           = AGVL3 
 thisform.AGrvvoll.value           = AGVL4 
 thisform.AGavvoll.value           = AGVL5 
 thisform.AGsvsummevoll.value      = AGVL6 
 thisform.istbrutto2.value         = KL1   
 thisform.istlst.value             = KL2   
 thisform.feiertagssteuer.value    = KL3   
 thisform.solikurz.value           = KL4   
 thisform.kirchstkurz.value        = KL5   
 thisform.ANkvkurz.value           = KL6   
 thisform.ANkvzukurz.value         = KL7   
 thisform.ANpvkurz.value           = KL8   
 thisform.ANrvkurz.value           = KL9   
 thisform.ANavkurz.value           = KL10  
 thisform.kurzgeld.value           = KL11  
 thisform.aufstockungkurz2.value   = KL12  
 thisform.istnetto.value           = KL13  
 thisform.AGkvkurz.value           = AGKL1 
 thisform.AGkvzukurz.value         = AGKL2 
 thisform.AGpvkurz.value           = AGKL3 
 thisform.AGrvkurz.value           = AGKL4 
 thisform.AGavkurz.value           = AGKL5 
 thisform.AGsvsummekurz.value      = AGKL6 
 thisform.sollbrutto3.value        = AGVL12
 thisform.AGkvvollkug.value        = AGVL22
 thisform.AGkvzuvollkug.value      = AGVL32
 thisform.AGpvvollkug.value        = AGVL42
 thisform.AGrvvollkug.value        = AGVL52
 thisform.AGavvollkug.value        = AGVL62
 thisform.AGumlagesummevoll3.value = AGVL72
 thisform.AGgessummevollkug.value  = AGVL82
 thisform.istbrutto3.value         = AGKL12
 thisform.AGkvkurzkug.value        = AGKL22
 thisform.AGkvzukurzkug.value      = AGKL32
thisform.AGpvkurzkug.value       = AGKL42
thisform.AGrvkurzkug.value       = AGKL52
thisform.AGavkurzkug.value       = AGKL62
thisform.AGumlagesummekurz3.value= AGKL72
thisform.aufstockungkurz3.value  = AGKL82
thisform.AGsvsummekurz3.value    = AGKL92
thisform.AGKUGSVfeiertage3.value = AGKL102
thisform.AGgessummekurzkug.value = AGKL112
thisform.rechlsatzvoll.value     = kugls1
thisform.rechlsatzkurz.value     = kugls2
rvgrundlage = kugrv   
kvgrundlage = kugkv    
thisform.umlageinfo.caption = umlinfo
thisform.command3.click
thisform.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Destroy
kug_active = .f.
myform1.visible = .t.
ENDPROC
                                   ً   %         A  {   K            U    C     U  THISFORM SIZER	 FRMRESIZEU 7  
 T    7  
 T  
 T   T a 7 
 T   F  %CN x   [  	 #  T      T 	  	  T 
  
  T     T   
  T     T     T     T     T     T     T     T    # T   CC    6# T   CC    6# T   CC    6 T     T    !  T "  "  T #  $  T    # T %  CC%    6# T &  CC'    6# T (  CC)    6# T *  CC+    6 T ,  ,  T -  -  T .  .  T /  /  T 0  1  T 2  3  T 4  5  T 6  7  T 8  9  T :  ;  T <  =  T >  ?  T @  A  T B  C  T D  E  T F  G  T H  I  T J  K  T L  M  T N  O  T P  Q  T R  S  T T  U  T V  W  T X  Y  T Z  [  T \  ]  T ^  _  T `  a  T b  c  T d  e  T f  g  T h  i  T j  k  T l  m  T n  o  T p  q  T r  s  T t  u  T v  w  T x  y  T z  {  T |  }  T ~    T     T     T     T     T     T     T     T     T     T     T     T     T     T     T     T     T    
 T  
 T   T    
    
    %     T C    T 
 T  
     T       T      
    T  a U  MYKUGMASKE1 THISFORM RVGRUNDLAGE KVGRUNDLAGE KUG_OPEN MYKUG	 KUG_NAMEN KENNUNG VALUE
 SOLLBRUTTO	 ISTBRUTTO ZEITRAUM AUFSTOCKUNG AUFSTOCK ANZFEIERTAGE ANZFEIER STKL KLASSEIV_FAKTOR	 STKL4FAKT KVART	 KVBEITRAG KVZUSATZBEITRAG
 KVZUSCHLAG ANPKPV
 ANZKINDERFREI	 ANZKINDER
 MITPVZUSCHLAG
 PVZUSCHLAG	 PVSACHSEN RELIGION
 KIRCHENSTEUER	 KIRCHSTEU VERSORGUNGSBEGINN	 VERSBEGIN
 FREIBETRAG HINZURECHBETRAG	 HINZURECH WEST U1PFLICHTIG	 U1PFLICHT U2PFLICHTIG	 U2PFLICHT U3PFLICHTIG	 U3PFLICHT	 UMLAGE_U1	 UMLAGE_U2	 UMLAGE_U3 AZUBI SOLLBERECHNUNG
 SOLLBERECH SOLLBRUTTO2 VL1 VOLLLST VL2 SOLIVOLL VL3 KIRCHSTVOLL VL4 ANKVVOLL VL5
 ANKVZUVOLL VL6 ANPVVOLL VL7 ANRVVOLL VL8 ANAVVOLL VL9	 VOLLNETTO VL10 AGKVVOLL AGVL1
 AGKVZUVOLL AGVL2 AGPVVOLL AGVL3 AGRVVOLL AGVL4 AGAVVOLL AGVL5
 AGSVSUMMEVOLL AGVL6
 ISTBRUTTO2 KL1 ISTLST KL2 FEIERTAGSSTEUER KL3 SOLIKURZ KL4 KIRCHSTKURZ KL5 ANKVKURZ KL6
 ANKVZUKURZ KL7 ANPVKURZ KL8 ANRVKURZ KL9 ANAVKURZ KL10 KURZGELD KL11 AUFSTOCKUNGKURZ2 KL12 ISTNETTO KL13 AGKVKURZ AGKL1
 AGKVZUKURZ AGKL2 AGPVKURZ AGKL3 AGRVKURZ AGKL4 AGAVKURZ AGKL5
 AGSVSUMMEKURZ AGKL6 SOLLBRUTTO3 AGVL12 AGKVVOLLKUG AGVL22
 AGKVZUVOLLKUG AGVL32 AGPVVOLLKUG AGVL42 AGRVVOLLKUG AGVL52 AGAVVOLLKUG AGVL62 AGUMLAGESUMMEVOLL3 AGVL72 AGGESSUMMEVOLLKUG AGVL82
 ISTBRUTTO3 AGKL12 AGKVKURZKUG AGKL22
 AGKVZUKURZKUG AGKL32 AGPVKURZKUG AGKL42 AGRVKURZKUG AGKL52 AGAVKURZKUG AGKL62 AGUMLAGESUMMEKURZ3 AGKL72 AUFSTOCKUNGKURZ3 AGKL82 AGSVSUMMEKURZ3 AGKL92 AGKUGSVFEIERTAGE3 AGKL102 AGGESSUMMEKURZKUG AGKL112
 RECHLSATZVOLL KUGLS1
 RECHLSATZKURZ KUGLS2 KUGRV KUGKV
 UMLAGEINFO CAPTION UMLINFO COMMAND3 CLICK REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  T  - T  a U 
 KUG_ACTIVE MYFORM1 VISIBLE Resize,      Init_      Destroy    1 2 r      q  q Q A   A a1111111111111111111111111111111111111111111111111111111111111111111111111111111111111  1    A    3   1                       ,         G   )     x   G  n      )                           shape      shape      Shape5      FORM1      @Top = 2
Left = 10
Height = 581
Width = 364
Name = "Shape5"
      shape      shape      Shape6      FORM1      ATop = 582
Left = 10
Height = 46
Width = 364
Name = "Shape6"
      shape      shape      Shape4      FORM1      CTop = 356
Left = 373
Height = 273
Width = 558
Name = "Shape4"
      shape      shape      Shape3      FORM1      ATop = 2
Left = 373
Height = 355
Width = 558
Name = "Shape3"
      shape      shape      Shape2      FORM1      BTop = 132
Left = 818
Height = 157
Width = 76
Name = "Shape2"
      shape      shape      Shape1      FORM1      BTop = 133
Left = 646
Height = 157
Width = 76
Name = "Shape1"
      optiongroup      optiongroup      stkl      FORM1     ButtonCount = 6
Value = 3
Height = 115
Left = 177
Top = 126
Width = 85
TabIndex = 28
Name = "stkl"
Option1.Caption = "Klasse I"
Option1.Value = 0
Option1.Height = 17
Option1.Left = 4
Option1.Top = 2
Option1.Width = 82
Option1.Name = "Option1"
Option2.Caption = "Klasse II"
Option2.Height = 17
Option2.Left = 4
Option2.Top = 21
Option2.Width = 82
Option2.Name = "Option2"
Option3.Caption = "Klasse III"
Option3.Value = 1
Option3.Height = 17
Option3.Left = 4
Option3.Top = 40
Option3.Width = 82
Option3.Name = "Option3"
Option4.Caption = "Klasse IV"
Option4.Height = 17
Option4.Left = 4
Option4.Top = 59
Option4.Width = 82
Option4.Name = "Option4"
Option5.Caption = "Klasse V"
Option5.Height = 17
Option5.Left = 4
Option5.Top = 78
Option5.Width = 82
Option5.Name = "Option5"
Option6.Caption = "Klasse VI"
Option6.Height = 17
Option6.Left = 4
Option6.Top = 97
Option6.Width = 82
Option6.Name = "Option6"
      PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click

ENDPROC
     !                                 %                             U  2  T    - T    -
      U  THISFORM COMMAND1 ENABLED COMMAND2 COMMAND3 CLICK InteractiveChange,     1  2                       x       )                           label      label      Label1      FORM1      iCaption = "Steuerklasse"
Height = 15
Left = 79
Top = 129
Width = 75
TabIndex = 19
Name = "Label1"
      label      label      Lsatz1      FORM1      |Caption = "Leistungssatz 1"
Height = 17
Left = 214
Top = 361
Visible = .T.
Width = 93
TabIndex = 51
Name = "Lsatz1"
      label      label      Lsatz2      FORM1      |Caption = "Leistungssatz 2"
Height = 17
Left = 214
Top = 358
Visible = .F.
Width = 93
TabIndex = 50
Name = "Lsatz2"
      label      label      Label11      FORM1      pCaption = "monat. Freibetrag"
Height = 16
Left = 59
Top = 472
Width = 100
TabIndex = 15
Name = "Label11"
      textbox      textbox      
freibetrag      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 41
Top = 468
Width = 106
Name = "freibetrag"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.

ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 2                       4         \          )   C                        label      label      Label12      FORM1      sCaption = "monat.Hinzurech.Betr."
Height = 16
Left = 34
Top = 497
Width = 124
TabIndex = 8
Name = "Label12"
      textbox      textbox      hinzurechbetrag      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 42
Top = 493
Width = 106
Name = "hinzurechbetrag"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        checkbox      checkbox      	pvsachsen      FORM1      yTop = 379
Left = 271
Height = 19
Width = 88
Alignment = 0
Caption = "PV Sachen"
TabIndex = 37
Name = "pvsachsen"
      PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click
ENDPROC
     !                                 %                             U  2  T    - T    -
      U  THISFORM COMMAND1 ENABLED COMMAND2 COMMAND3 CLICK InteractiveChange,     1  1                       v       )                           optiongroup      optiongroup      kvart      FORM1     @ButtonCount = 3
Value = 1
Height = 62
Left = 176
Top = 241
Width = 180
TabIndex = 30
Name = "kvart"
Option1.Caption = "normale  ges. KV = 14,6%"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 166
Option1.Name = "Option1"
Option2.Caption = "ermig. ges. KV = 14,0%"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 22
Option2.Width = 168
Option2.Name = "Option2"
Option3.Caption = "priv. KV mit AG Zuschuss"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 40
Option3.Width = 169
Option3.Name = "Option3"
     	PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
IF this.Value = 3
	thisform.kvagzuschuss.visible = .t.
	thisform.label57.Visible = .t.
	thisform.anpkpv.enabled = .t.
	thisform.anpkpv.visible = .t.
	thisform.label13.Visible = .t.
	thisform.label59.Visible = .t.
	thisform.label38.Visible = .f.
	thisform.label60.Visible = .t.
	thisform.label52.Visible = .f.
	thisform.label61.Visible = .t.
	thisform.label40.Visible = .f.
	thisform.label62.Visible = .t.
	thisform.label27.Visible = .f.
	thisform.label63.Visible = .t.
	thisform.label33.Visible = .f.	
	thisform.label64.Visible = .t.
	thisform.label28.Visible = .f.	
	IF thisform.kvart.Value = 1
		kugkv = 14.6
	ELSE
		IF thisform.kvart.Value = 2
			kugkv = 14.0
		ELSE
			kugkv = 14.6
		ENDIF
	endif
	DO case
		CASE welchesjahr = 2022
			kugpv = 3.05
			kugdurchkv = 1.3
		CASE welchesjahr = 2023
			IF monat < 7
				kugpv = 3.05
			ELSE
				kugpv = 3.40
			endif
			kugdurchkv = 1.6
		CASE welchesjahr = 2024
			kugpv = 3.40	
			kugdurchkv = 1.7			
		CASE welchesjahr = 2025	
			kugpv = 3.60	
			kugdurchkv = 2.5			
		CASE welchesjahr = 2026	
			kugpv = 3.60
			kugdurchkv = 2.5			
		CASE welchesjahr = 2027	
			kugpv = 3.60
			kugdurchkv = 2.5
	endcase	
	IF EMPTY(thisform.anpkpv.value)
		IF thisform.sollbrutto.Value > bbgkv
			thisform.kvagzuschuss.Value = ((bbgkv / 100) * ((kugkv + kugdurcgkv + kugpv) / 2))
		ELSE
			thisform.kvagzuschuss.Value = ((thisform.sollbrutto.value / 100) * ((thisform.kvbeitrag.value + thisform.kvzusatzbeitrag.Value + kugpv) / 2))
		endif
	ELSE
		thisform.kvagzuschuss.Value = ROUND(thisform.anpkpv.value / 2,2)
	endif
ELSE
	thisform.anpkpv.value = 0.00
	thisform.anpkpv.visible = .f.
	thisform.anpkpv.enabled = .f.
	thisform.label13.Visible = .f.
	thisform.kvagzuschuss.value = 0.00
	thisform.kvagzuschuss.visible = .f.
	thisform.label59.Visible = .f.
	thisform.label38.Visible = .t.
	thisform.label57.Visible = .f.	
	thisform.label60.Visible = .f.
	thisform.label52.Visible = .t.
	thisform.label61.Visible = .f.
	thisform.label40.Visible = .t.	
	thisform.label62.Visible = .f.
	thisform.label27.Visible = .t.
	thisform.label63.Visible = .f.
	thisform.label33.Visible = .t.	
	thisform.label64.Visible = .f.
	thisform.label28.Visible = .t.		
	IF this.Value = 2
		thisform.kvbeitrag.Value = 14.0
	ELSE
		thisform.kvbeitrag.Value = 14.6
	endif
ENDIF
thisform.command3.click
ENDPROC
                                      %         q  [               U   T    - T    - %  U T    a T    a T  	  a T  	  a T  
  a T    a T    - T  
  a T    - T    a T    - T    a T    - T    a T    - T    a T    - %     T 333333-@  %     T       ,@  T 333333-@  
 H  % T ffffff@ T ?   % 
] T ffffff@ z T 333333@  T ?   T 333333@ T 333333?   T @ T       @  G T @ T       @   T @ T       @  %C  	  ' %     + T     d    #= T        d       !     Q" T    C  	  T  
 T  	           T  	  - T  	  - T  
  - T             T    - T    - T    a T    - T  
  - T    a T    - T    a T    - T    a T    - T    a T    - T    a %   T           ,@  T     333333-@  
   " #  U$  THISFORM COMMAND1 ENABLED COMMAND2 THIS VALUE KVAGZUSCHUSS VISIBLE LABEL57 ANPKPV LABEL13 LABEL59 LABEL38 LABEL60 LABEL52 LABEL61 LABEL40 LABEL62 LABEL27 LABEL63 LABEL33 LABEL64 LABEL28 KVART KUGKV WELCHESJAHR KUGPV
 KUGDURCHKV MONAT
 SOLLBRUTTO BBGKV
 KUGDURCGKV	 KVBEITRAG KVZUSATZBEITRAG COMMAND3 CLICK InteractiveChange,     1 AqQ qQ QA A  !QQ!Q QA Q!QQ!QQ!QQ!QQA Qq A  !A  A A A  1                       	      )                           label      label      Label15      FORM1      hCaption = "Aft der KV"
Height = 16
Left = 96
Top = 246
Width = 60
TabIndex = 20
Name = "Label15"
      checkbox      checkbox      
mitpvzuschlag      FORM1      Top = 379
Left = 177
Height = 19
Width = 88
Alignment = 0
Caption = "PV Zuschlag"
TabIndex = 36
Name = "mitpvzuschlag"
      PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click

ENDPROC
     !                                 %                             U  2  T    - T    -
      U  THISFORM COMMAND1 ENABLED COMMAND2 COMMAND3 CLICK InteractiveChange,     1  2                       x       )                           label      label      Label16      FORM1      mCaption = "mit PV Zuschlag"
Height = 16
Left = 61
Top = 380
Width = 96
TabIndex = 16
Name = "Label16"
      checkbox      checkbox      religion      FORM1      tTop = 397
Left = 177
Height = 19
Width = 88
Alignment = 0
Caption = "keine"
TabIndex = 38
Name = "religion"
      PROCEDURE InteractiveChange
IF .not. EMPTY(this.Value)
	thisform.kirchensteuer.Value = 0
ENDIF
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click
ENDPROC
     m    T  T                        :   %                            U  \  %C   
&  T      T   - T   -
     U	  THIS VALUE THISFORM
 KIRCHENSTEUER COMMAND1 ENABLED COMMAND2 COMMAND3 CLICK InteractiveChange,     1 11A  1                              )   T                        label      label      Label17      FORM1      tCaption = "Religionszugehrigkeit"
Height = 16
Left = 22
Top = 398
Width = 135
TabIndex = 6
Name = "Label17"
      label      label      Label18      FORM1      vCaption = "Anzahl Kinderfreibetrge"
Height = 16
Left = 19
Top = 358
Width = 138
TabIndex = 1
Name = "Label18"
      textbox      textbox      
anzkinderfrei      FORM1      Alignment = 3
Value = 1
Format = "9"
Height = 22
InputMask = "9"
Left = 177
SelectOnEntry = .T.
TabIndex = 35
Top = 354
Width = 31
Name = "anzkinderfrei"
     PROCEDURE Valid
IF EMPTY(this.Value)
	thisform.lsatz2.Visible = .t.
	thisform.lsatz1.Visible = .f.
*	thisform.mitpvzuschlag.value = 1
ELSE
	thisform.lsatz2.Visible = .f.
	thisform.lsatz1.Visible = .t.
*	thisform.mitpvzuschlag.value = 0
endif	
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
                                      %   :           d            U  y  %C   4  T   a T   - ^  T   - T   a 
     Ba U  THIS VALUE THISFORM LSATZ2 VISIBLE LSATZ1 COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChange     1 ! B  q 2 1                                H        )                           label      label      Label7      FORM1      lCaption = "Kirchensteuer %"
Height = 16
Left = 58
Top = 422
Width = 99
TabIndex = 14
Name = "Label7"
      textbox      textbox      
kirchensteuer      FORM1      Alignment = 3
Value = 8
Format = "9"
Height = 22
InputMask = "9"
Left = 177
SelectOnEntry = .T.
TabIndex = 39
Top = 417
Width = 22
Name = "kirchensteuer"
      hPROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
                                        %   |                          U  %  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 InteractiveChange,     1 1                       ]       )                            label      label      Label19      FORM1      ~Caption = "Versorgungsbeginn"
Enabled = .F.
Height = 16
Left = 40
Top = 449
Width = 117
TabIndex = 9
Name = "Label19"
      textbox      textbox      versorgungsbeginn      FORM1      Alignment = 3
Value = 2005
Enabled = .F.
Format = "9999"
Height = 22
InputMask = "9999"
Left = 177
SelectOnEntry = .T.
TabIndex = 40
Top = 444
Width = 46
Name = "versorgungsbeginn"
      label      label      Label30      FORM1      wCaption = "Bruttolohn Soll (Volllohn)"
Height = 17
Left = 21
Top = 32
Width = 137
TabIndex = 3
Name = "Label30"
      label      label      Label31      FORM1      vCaption = "Bruttolohn Ist (Kurzlohn)"
Height = 17
Left = 21
Top = 56
Width = 137
TabIndex = 4
Name = "Label31"
      textbox      textbox      
sollbrutto      FORM1      Alignment = 3
Value = 2455
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 22
Top = 28
Width = 77
Name = "sollbrutto"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        textbox      textbox      	istbrutto      FORM1      Alignment = 3
Value = 1835
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 23
Top = 52
Width = 77
Name = "istbrutto"
     ;PROCEDURE Valid
IF thisform.sollbrutto.Value / 2 < thisform.istbrutto.Value
	thisform.zeitraum.Value = 1
	thisform.zeitraum.Enabled = .f.
	thisform.zeitrauminfo.ForeColor = RGB(255,255,255) &&wei
	thisform.zeitrauminfo.BackColor = RGB(255,0,0) &&rot
ELSE
	thisform.zeitraum.Enabled = .t.
	thisform.zeitrauminfo.ForeColor = RGB(0,0,0) &&schwarz
	thisform.zeitrauminfo.Backcolor = RGB(240,240,240) &&grau
ENDIF
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
         ~  ~                           %         %                 U   ! %        
}  T     T    - T    C^ T    C  ^   T    a T    C   ^ T    C^ 
   	 
  Ba U  THISFORM
 SOLLBRUTTO VALUE	 ISTBRUTTO ZEITRAUM ENABLED ZEITRAUMINFO	 FORECOLOR	 BACKCOLOR COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChange    1 1 A  q 2 1                                 0      )   ~                        checkbox      checkbox      west      FORM1      zTop = 517
Left = 177
Height = 20
Width = 57
Alignment = 0
Caption = "WEST"
Value = 1
TabIndex = 43
Name = "west"
      PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click
ENDPROC
     !                                 %                             U  2  T    - T    -
      U  THISFORM COMMAND1 ENABLED COMMAND2 COMMAND3 CLICK InteractiveChange,     1  1                       v       )                           label      label      Label46      FORM1      jCaption = "Bundeslnder"
Height = 16
Left = 73
Top = 519
Width = 85
TabIndex = 18
Name = "Label46"
      textbox      textbox      klasseIV_Faktor      FORM1      Alignment = 3
Value = 1.000
Format = "9.999"
Height = 21
InputMask = "9.999"
Left = 270
SelectOnEntry = .T.
TabIndex = 29
Top = 182
Width = 58
Name = "klasseIV_Faktor"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        label      label      Label3      FORM1      dCaption = "Faktor"
Height = 16
Left = 286
Top = 166
Width = 39
TabIndex = 53
Name = "Label3"
      label      label      Label4      FORM1      oCaption = "Umlage U1, U2, U3"
Height = 16
Left = 46
Top = 559
Width = 111
TabIndex = 13
Name = "Label4"
      textbox      textbox      	umlage_u1      FORM1      Alignment = 3
Value = 2.0
Enabled = .T.
Format = "99.99"
Height = 22
InputMask = "99.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 47
Top = 556
Width = 37
Name = "umlage_u1"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        textbox      textbox      	umlage_u2      FORM1      Alignment = 3
Value = 0.47
Enabled = .T.
Format = "99.99"
Height = 22
InputMask = "99.99"
Left = 219
SelectOnEntry = .T.
TabIndex = 48
Top = 556
Width = 37
Name = "umlage_u2"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        textbox      textbox      	umlage_u3      FORM1      Alignment = 3
Value = 0.06
Enabled = .F.
Format = "99.99"
Height = 22
InputMask = "99.99"
Left = 261
SelectOnEntry = .T.
TabIndex = 49
Top = 556
Width = 44
Name = "umlage_u3"
      label      label      Label8      FORM1      FontBold = .T.
FontSize = 12
Caption = "Arbeitnehmer"
Height = 21
Left = 425
Top = 4
Width = 110
TabIndex = 58
Name = "Label8"
      label      label      Label9      FORM1      FontBold = .T.
FontSize = 12
Caption = "Arbeitgeber"
Height = 22
Left = 439
Top = 360
Width = 96
TabIndex = 62
Name = "Label9"
      label      label      Label20      FORM1      FontBold = .T.
FontSize = 12
Caption = "Voll-Lohn"
Height = 21
Left = 600
Top = 4
Width = 79
TabIndex = 106
Name = "Label20"
      label      label      Label21      FORM1      FontBold = .T.
FontSize = 12
Caption = "Voll-Lohn"
Height = 22
Left = 564
Top = 360
Width = 79
TabIndex = 87
Name = "Label21"
      label      label      Label22      FORM1      FontBold = .T.
FontSize = 12
Caption = "Kurz-Lohn"
Height = 21
Left = 773
Top = 4
Width = 85
TabIndex = 143
Name = "Label22"
      label      label      Label23      FORM1      FontBold = .T.
FontSize = 12
Caption = "Kurz-Lohn"
Height = 22
Left = 731
Top = 360
Width = 85
TabIndex = 115
Name = "Label23"
      line      line      Line2      FORM1      @Height = 0
Left = 388
Top = 378
Width = 527
Name = "Line2"
      label      label      Label24      FORM1      FontBold = .T.
FontSize = 10
Caption = "Brutto"
Height = 18
Left = 496
Top = 47
Width = 42
TabIndex = 71
Name = "Label24"
      textbox      textbox      volllst      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 90
Top = 67
Width = 77
DisabledForeColor = 0,0,0
Name = "volllst"
      textbox      textbox      solivoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 91
Top = 111
Width = 77
DisabledForeColor = 0,0,0
Name = "solivoll"
      textbox      textbox      sollbrutto2      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 89
Top = 45
Width = 77
DisabledForeColor = 0,0,0
Name = "sollbrutto2"
      PROCEDURE Valid


ENDPROC
                                         %   3       F      B             U    U   Valid,     1 3                              )                            textbox      textbox      kirchstvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 92
Top = 134
Width = 77
DisabledForeColor = 0,0,0
Name = "kirchstvoll"
      textbox      textbox      ANkvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 93
Top = 155
Width = 77
DisabledForeColor = 0,0,0
Name = "ANkvvoll"
      textbox      textbox      ANpvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 95
Top = 198
Width = 77
DisabledForeColor = 0,0,0
Name = "ANpvvoll"
      textbox      textbox      ANrvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 96
Top = 220
Width = 77
DisabledForeColor = 0,0,0
Name = "ANrvvoll"
      textbox      textbox      ANavvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 97
Top = 242
Width = 77
DisabledForeColor = 0,0,0
Name = "ANavvoll"
      textbox      textbox      istlst      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 129
Top = 67
Width = 77
DisabledForeColor = 0,0,0
Name = "istlst"
      textbox      textbox      solikurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 131
Top = 111
Width = 77
DisabledForeColor = 0,0,0
Name = "solikurz"
      textbox      textbox      kirchstkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 132
Top = 134
Width = 77
DisabledForeColor = 0,0,0
Name = "kirchstkurz"
      textbox      textbox      ANkvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 133
Top = 155
Width = 77
DisabledForeColor = 0,0,0
Name = "ANkvkurz"
      textbox      textbox      ANpvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 135
Top = 198
Width = 77
DisabledForeColor = 0,0,0
Name = "ANpvkurz"
      textbox      textbox      ANrvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 136
Top = 220
Width = 77
DisabledForeColor = 0,0,0
Name = "ANrvkurz"
      textbox      textbox      ANavkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 137
Top = 242
Width = 77
DisabledForeColor = 0,0,0
Name = "ANavkurz"
      textbox      textbox      
istbrutto2      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 128
Top = 45
Width = 77
DisabledForeColor = 0,0,0
Name = "istbrutto2"
      textbox      textbox      kurzgeld      FORM1      FontBold = .T.
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 138
Top = 286
Width = 77
ForeColor = 255,0,0
DisabledForeColor = 255,0,0
Name = "kurzgeld"
      label      label      Label35      FORM1      FontBold = .T.
FontSize = 10
Caption = "- Lohnsteuer"
Height = 19
Left = 456
Top = 69
Width = 82
TabIndex = 67
Name = "Label35"
      label      label      Label36      FORM1      FontBold = .T.
FontSize = 10
Caption = "- Soli"
Height = 19
Left = 501
Top = 113
Width = 37
TabIndex = 73
Name = "Label36"
      label      label      Label37      FORM1      FontBold = .T.
FontSize = 10
Caption = "- Kirch.St"
Height = 18
Left = 474
Top = 136
Width = 64
TabIndex = 70
Name = "Label37"
      label      label      Label38      FORM1      FontBold = .T.
FontSize = 10
Caption = "- KV"
Height = 20
Left = 507
Top = 155
Width = 31
TabIndex = 85
Name = "Label38"
      label      label      Label40      FORM1      FontBold = .T.
FontSize = 10
Caption = "- PV"
Height = 20
Left = 504
Top = 200
Width = 34
TabIndex = 79
Name = "Label40"
      label      label      Label42      FORM1      FontBold = .T.
FontSize = 10
Caption = "- RV"
Height = 20
Left = 505
Top = 222
Width = 33
TabIndex = 82
Name = "Label42"
      label      label      Label44      FORM1      FontBold = .T.
FontSize = 10
Caption = "- AV"
Height = 20
Left = 505
Top = 244
Width = 33
TabIndex = 83
Name = "Label44"
      label      label      Label25      FORM1      FontBold = .T.
FontSize = 10
Caption = "Kurzarbeitergeld"
Height = 20
Left = 427
Top = 288
Width = 111
TabIndex = 60
ForeColor = 255,0,0
Name = "Label25"
      line      line      Line3      FORM1      @Height = 0
Left = 387
Top = 330
Width = 527
Name = "Line3"
      label      label      Label26      FORM1      FontBold = .T.
FontSize = 10
Caption = "Nettoentgelt"
Height = 20
Left = 456
Top = 336
Width = 82
TabIndex = 69
Name = "Label26"
      textbox      textbox      	vollnetto      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 98
Top = 333
Width = 77
DisabledForeColor = 0,0,0
Name = "vollnetto"
      textbox      textbox      istnetto      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 140
Top = 333
Width = 77
DisabledForeColor = 0,0,0
Name = "istnetto"
      textbox      textbox      AGkvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 108
Top = 155
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvvoll"
      textbox      textbox      AGpvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 110
Top = 198
Width = 67
DisabledForeColor = 0,0,0
Name = "AGpvvoll"
      textbox      textbox      AGrvvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 111
Top = 220
Width = 67
DisabledForeColor = 0,0,0
Name = "AGrvvoll"
      textbox      textbox      AGavvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 112
Top = 242
Width = 67
DisabledForeColor = 0,0,0
Name = "AGavvoll"
      line      line      Line1      FORM1      ?Height = 0
Left = 387
Top = 42
Width = 527
Name = "Line1"
      label      label      Label39      FORM1      FontBold = .T.
FontSize = 12
Caption = "AN"
Height = 18
Left = 602
Top = 24
Width = 27
TabIndex = 107
Name = "Label39"
      label      label      Label43      FORM1      FontBold = .T.
FontSize = 12
Caption = "AN"
Height = 18
Left = 768
Top = 24
Width = 27
TabIndex = 142
Name = "Label43"
      textbox      textbox      
rechlsatzvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 566
TabIndex = 88
Top = 264
Visible = .F.
Width = 77
DisabledForeColor = 0,0,0
Name = "rechlsatzvoll"
      textbox      textbox      
rechlsatzkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 740
TabIndex = 141
Top = 264
Visible = .F.
Width = 77
DisabledForeColor = 0,0,0
Name = "rechlsatzkurz"
      label      label      Label49      FORM1      FontBold = .T.
FontSize = 10
Caption = "AG SV-Summe"
Height = 20
Left = 436
Top = 266
Width = 102
TabIndex = 61
Name = "Label49"
      label      label      Label50      FORM1      FontBold = .T.
FontSize = 12
Caption = "AG SV"
Height = 16
Left = 663
Top = 137
Width = 54
TabIndex = 114
Name = "Label50"
      label      label      Label51      FORM1      FontBold = .T.
FontSize = 12
Caption = "AG SV"
Height = 21
Left = 835
Top = 137
Width = 54
TabIndex = 150
Name = "Label51"
      textbox      textbox      
AGsvsummevoll      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 113
Top = 264
Width = 67
DisabledForeColor = 0,0,0
Name = "AGsvsummevoll"
      textbox      textbox      
AGsvsummekurz      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 149
Top = 264
Width = 67
DisabledForeColor = 0,0,0
Name = "AGsvsummekurz"
      textbox      textbox      
ANkvzuvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 567
TabIndex = 94
Top = 176
Width = 77
DisabledForeColor = 0,0,0
Name = "ANkvzuvoll"
      textbox      textbox      
ANkvzukurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 134
Top = 176
Width = 77
DisabledForeColor = 0,0,0
Name = "ANkvzukurz"
      label      label      Label52      FORM1      FontBold = .T.
FontSize = 10
Caption = "- KV Zuschlag"
Height = 20
Left = 450
Top = 176
Width = 89
TabIndex = 64
Name = "Label52"
      textbox      textbox      
AGkvzuvoll      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 650
TabIndex = 109
Top = 176
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvzuvoll"
      textbox      textbox      
AGkvzukurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 145
Top = 176
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvzukurz"
      textbox      textbox      AGkvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 144
Top = 155
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvkurz"
      textbox      textbox      AGpvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 146
Top = 198
Width = 67
DisabledForeColor = 0,0,0
Name = "AGpvkurz"
      textbox      textbox      AGrvkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 147
Top = 220
Width = 67
DisabledForeColor = 0,0,0
Name = "AGrvkurz"
      textbox      textbox      AGavkurz      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 822
TabIndex = 148
Top = 242
Width = 67
DisabledForeColor = 0,0,0
Name = "AGavkurz"
      label      label      Label27      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV"
Height = 20
Left = 504
Top = 408
Width = 31
TabIndex = 81
Name = "Label27"
      label      label      Label28      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ PV"
Height = 20
Left = 501
Top = 452
Width = 34
TabIndex = 74
Name = "Label28"
      label      label      Label29      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ RV"
Height = 20
Left = 502
Top = 475
Width = 33
TabIndex = 75
Name = "Label29"
      label      label      Label32      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ AV"
Height = 20
Left = 502
Top = 497
Width = 33
TabIndex = 77
Name = "Label32"
      label      label      Label33      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV Zuschlag"
Height = 20
Left = 446
Top = 430
Width = 89
TabIndex = 63
Name = "Label33"
      textbox      textbox      AGkvvollkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 100
Top = 405
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvvollkug"
      textbox      textbox      AGpvvollkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 102
Top = 449
Width = 67
DisabledForeColor = 0,0,0
Name = "AGpvvollkug"
      textbox      textbox      AGrvvollkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 103
Top = 471
Width = 67
DisabledForeColor = 0,0,0
Name = "AGrvvollkug"
      textbox      textbox      AGavvollkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 104
Top = 493
Width = 67
DisabledForeColor = 0,0,0
Name = "AGavvollkug"
      textbox      textbox      AGgessummevollkug      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 105
Top = 605
Width = 67
DisabledForeColor = 0,0,0
Name = "AGgessummevollkug"
      textbox      textbox      
AGkvzuvollkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 101
Top = 427
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvzuvollkug"
      label      label      Label34      FORM1      FontBold = .T.
FontSize = 12
Caption = "& Arbeitgeber"
Height = 18
Left = 425
Top = 22
Width = 110
TabIndex = 59
Name = "Label34"
      label      label      Label47      FORM1      FontBold = .T.
FontSize = 10
Caption = "Brutto"
Height = 19
Left = 498
Top = 386
Width = 42
TabIndex = 72
Name = "Label47"
      textbox      textbox      sollbrutto3      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 99
Top = 383
Width = 67
DisabledForeColor = 0,0,0
Name = "sollbrutto3"
      PROCEDURE Valid


ENDPROC
                                         %   3       F      B             U    U   Valid,     1 3                              )                            textbox      textbox      
istbrutto3      FORM1      Alignment = 3
Value = 0
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 116
Top = 383
Width = 67
DisabledForeColor = 0,0,0
Name = "istbrutto3"
      textbox      textbox      AGkvkurzkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 117
Top = 405
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvkurzkug"
      textbox      textbox      AGpvkurzkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 119
Top = 449
Width = 67
DisabledForeColor = 0,0,0
Name = "AGpvkurzkug"
      textbox      textbox      AGrvkurzkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 120
Top = 471
Width = 67
DisabledForeColor = 0,0,0
Name = "AGrvkurzkug"
      textbox      textbox      AGavkurzkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 122
Top = 493
Width = 67
DisabledForeColor = 0,0,0
Name = "AGavkurzkug"
      textbox      textbox      AGgessummekurzkug      FORM1      FontBold = .T.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 127
Top = 605
Width = 67
DisabledForeColor = 0,0,0
Name = "AGgessummekurzkug"
      textbox      textbox      
AGkvzukurzkug      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 118
Top = 427
Width = 67
DisabledForeColor = 0,0,0
Name = "AGkvzukurzkug"
      line      line      Line4      FORM1      @Height = 0
Left = 387
Top = 603
Width = 527
Name = "Line4"
      label      label      Label48      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ SV-Summe Kurzlohn"
Height = 20
Left = 384
Top = 563
Width = 151
TabIndex = 55
Name = "Label48"
      textbox      textbox      AGsvsummekurz3      FORM1      FontBold = .F.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 125
Top = 559
Width = 67
DisabledForeColor = 0,0,0
Name = "AGsvsummekurz3"
      checkbox      checkbox      azubi      FORM1      Top = 202
Left = 32
Height = 19
Width = 57
Alignment = 0
Caption = "AZUBI"
Enabled = .F.
TabIndex = 151
Visible = .F.
Name = "azubi"
      checkbox      checkbox      sollberechnung      FORM1      Top = 220
Left = 26
Height = 19
Width = 115
Alignment = 0
Caption = "Sollberechnung"
Enabled = .F.
TabIndex = 152
Visible = .F.
Name = "sollberechnung"
      label      label      Label5      FORM1      oCaption = "Aufstockungsbetrag"
Height = 17
Left = 43
Top = 80
Width = 115
TabIndex = 10
Name = "Label5"
      textbox      textbox      aufstockung      FORM1      Alignment = 3
Value = 0.00
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 177
SelectOnEntry = .T.
TabIndex = 26
Top = 76
Width = 77
Name = "aufstockung"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        checkbox      checkbox      lohnsteuerfrei      FORM1      Top = 78
Left = 265
Height = 19
Width = 105
Alignment = 0
Caption = "Lohnsteuerfrei"
Enabled = .F.
TabIndex = 52
Visible = .F.
Name = "lohnsteuerfrei"
      textbox      textbox      aufstockungkurz2      FORM1      FontBold = .T.
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 139
Top = 308
Width = 77
DisabledForeColor = 0,0,0
Name = "aufstockungkurz2"
      label      label      Label6      FORM1      FontBold = .T.
FontSize = 10
Caption = "Aufstockung  KUG"
Height = 20
Left = 420
Top = 310
Width = 118
TabIndex = 57
Name = "Label6"
      textbox      textbox      aufstockungkurz3      FORM1      FontBold = .F.
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 124
Top = 537
Width = 67
DisabledForeColor = 0,0,0
Name = "aufstockungkurz3"
      label      label      Label14      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ Aufstockung  KUG"
Height = 20
Left = 402
Top = 541
Width = 133
TabIndex = 56
Name = "Label14"
      textbox      textbox      AGumlagesummekurz3      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 123
Top = 515
Width = 67
DisabledForeColor = 0,0,0
Name = "AGumlagesummekurz3"
      
commandbutton      
commandbutton      Command3      FORM1      Top = 557
Left = 621
Height = 31
Width = 89
Caption = "berechnen"
Enabled = .F.
TabIndex = 153
ToolTipText = "starte die Berechnung"
Visible = .F.
Name = "Command3"
     iPROCEDURE Click
thisform.command1.Enabled = .t.

IF thisform.kvart.Value = 1
	kugkv = 14.6
ELSE
	IF thisform.kvart.Value = 2
		kugkv = 14.0
	ELSE
		kugkv = 14.6
	ENDIF
endif
DO case
	CASE welchesjahr = 2022
		kugpv = 3.05
		kugdurchkv = 1.3
		kugav = 2.4
		kuganpv = kugpv / 2
		kugagpv = kugpv / 2
		kuganpvs = 2.025
		kugagpvs = 1.025
		kuganzusatz = 0.35
		
	CASE welchesjahr = 2023
		IF monat < 7
			kugpv = 3.05
			kuganpv = kugpv / 2
			kugagpv = kugpv / 2
			kuganpvs = 2.025
			kugagpvs = 1.025
			kuganzusatz = 0.35	
		ELSE
			kugpv = 3.40
			kuganpv = kugpv / 2
			kugagpv = kugpv / 2
			kuganpvs = 2.20
			kugagpvs = 1.20
			kuganzusatz = 0.60	
		ENDIF
		kugav = 2.6
		kugdurchkv = 1.6
	
	CASE welchesjahr = 2024
		kugpv = 3.40	
		kugdurchkv = 1.7
		kugav = 2.6		
		kuganpv = kugpv / 2
		kugagpv = kugpv / 2
		kuganpvs = 2.20
		kugagpvs = 1.20
		kuganzusatz = 0.60		
	CASE welchesjahr = 2025	
		kugpv = 3.60	
		kugdurchkv = 2.5	
		kugav = 2.6		
		kuganpv = kugpv / 2
		kugagpv = kugpv / 2
		kuganpvs = 2.30
		kugagpvs = 1.30
		kuganzusatz = 0.60
	CASE welchesjahr = 2026	
		kugpv = 3.60
		kugdurchkv = 2.9	
		kugav = 2.6		
		kuganpv = kugpv / 2
		kugagpv = kugpv / 2
		kuganpvs = 2.30
		kugagpvs = 1.30
		kuganzusatz = 0.60
	CASE welchesjahr = 2027	
		kugpv = 3.60
		kugdurchkv = 2.9	
		kugav = 2.6		
		kuganpv = kugpv / 2
		kugagpv = kugpv / 2
		kuganpvs = 2.30
		kugagpvs = 1.30
		kuganzusatz = 0.60
endcase	

PUBLIC bbgrwest,bbgrost,gvdgr,sozp,bbgkv
bbgrwest = rvgrenze(1+0) &&690000
bbgrost = rvgrenze(1+1) &&645000
gvdgr = gering(1+0) &&32500
sozp = 20.0
bbgkv = kvgrenze(1+0)/100 &&4687.50 west/ost gleich
PUBLIC bbgavwest
bbgavwest = avgrenze(1+0)/100 &&6900.00
PUBLIC bbgavost
bbgavost = avgrenze(1+1)/100 &&6450.00
PUBLIC bbgrvwest
bbgrvwest = rvgrenze(1+0)/100 &&6900.00
PUBLIC bbgrvost
bbgrvost = rvgrenze(1+1)/100 &&6450.00
*!*	PUBLIC bbgkv
*!*	bbgkv = 4687.50
PUBLIC rvgrundlage,kvgrundlage
rvgrundlage = 0
kvgrundlage = 0
thisform.umlageinfo.Visible = .f.

do case
	CASE thisform.zeitraum.Value = 1
		kugprozent = IIF(thisform.anzkinderfrei.Value > 0,0.67,0.60)
	CASE thisform.zeitraum.Value = 2
		kugprozent = IIF(thisform.anzkinderfrei.Value > 0,0.77,0.70)
	CASE thisform.zeitraum.Value = 3
		kugprozent = IIF(thisform.anzkinderfrei.Value > 0,0.87,0.80)
endcase	

DO lohnsteuervariablen
DO steuerleeren

************** kug berechnung anfang *****************
*********** berechnung sollbrutto ************
lzz = 2
KVZ =  thisform.kvzusatzbeitrag.value &&1.1
lzzfreib = INT(thisform.freibetrag.Value * 100)
lzzhinzu = INT(thisform.hinzurechbetrag.Value * 100)
pkpv = INT(thisform.anpkpv.Value * 100)
pkv = thisform.kvart.Value - 1  &&0 ****** festgelegte variablen zur bestimmung des KUG **********
pvs = IIF(EMPTY(thisform.pvsachsen.Value),0,1) &&0
pvz = IIF(EMPTY(thisform.mitpvzuschlag.Value),0,1) &&0
r = IIF(EMPTY(thisform.religion.Value),1,1)
stkl = thisform.stkl.value
zkf = thisform.anzkinderfrei.value
vjahr = thisform.versorgungsbeginn.value
alter1 = 0
ajahr = 2005
krv = IIF(thisform.west.Value = 0,1,0) &&RV BBG west oder ost
AF = IIF(thisform.stkl.value = 4 .and. thisform.klasseIV_faktor.value < 1,1,0)
zmvb = 0
sonstb = 0
vkapa = 0
vmt = 0
F = IIF(thisform.stkl.value = 4,thisform.klasseIV_faktor.value,1)
bent = thisform.sollbrutto.Value * 100
IF bent = 0
	netent = 0
	RETURN
ENDIF
glohn = bent + 1000
glohn = INT((glohn / 2000)) * 2000
*thisform.sollbrutto2.Value = glohn / 100
thisform.sollbrutto2.Value = thisform.sollbrutto.value
bbgr = IIF(thisform.west.Value > 0,bbgrwest,bbgrost)
IF glohn > bbgr
	glohn = bbgr
ENDIF
re4 = glohn &&INT(thisform.sollbrutto.Value * 100)
DO steuer

abz = lstlzz + solzlzz
IF thisform.azubi.value > 0
	IF glohn <= gvdgr
		IF thisform.sollberechnung.value = 0
			IF glohnsoll <= gvdgr
				
			ELSE
				abz = (sozp * glohn / 100) + abz
			ENDIF
		endif
	ELSE
		abz = (sozp * glohn / 100) + abz
	endif	
ELSE
	abz = (sozp * glohn / 100) + abz			
endif

netentsoll = glohn - abz

*********** berechnung istbrutto ************
DO steuerleeren
lzz = 2
KVZ =  thisform.kvzusatzbeitrag.value &&1.1
lzzfreib = INT(thisform.freibetrag.Value * 100)
lzzhinzu = INT(thisform.hinzurechbetrag.Value * 100)
pkpv = INT(thisform.anpkpv.Value * 100)
pkv = thisform.kvart.Value - 1  &&0 ****** festgelegte variablen zur bestimmung des KUG **********
pvs = IIF(EMPTY(thisform.pvsachsen.Value),0,1) &&0
pvz = IIF(EMPTY(thisform.mitpvzuschlag.Value),0,1) &&0
r = IIF(EMPTY(thisform.religion.Value),1,1)
stkl = thisform.stkl.value
zkf = thisform.anzkinderfrei.value
vjahr = thisform.versorgungsbeginn.value
alter1 = 0
ajahr = 2005
krv = IIF(thisform.west.Value = 0,1,0) &&RV BBG west oder ost
AF = IIF(thisform.stkl.value = 4 .and. thisform.klasseIV_faktor.value < 1,1,0)
zmvb = 0
sonstb = 0
vkapa = 0
vmt = 0
F = IIF(thisform.stkl.value = 4,thisform.klasseIV_faktor.value,1)
bent = thisform.istbrutto.Value * 100
IF bent = 0
	netent = 0
	RETURN
ENDIF
glohn = bent + 1000
glohn = INT((glohn / 2000)) * 2000
*thisform.istbrutto2.Value = glohn / 100
thisform.istbrutto2.Value = thisform.sollbrutto.Value 
*thisform.istbrutto2.Value = thisform.istbrutto.value
bbgr = IIF(thisform.west.Value > 0,bbgrwest,bbgrost)
IF glohn > bbgr
	glohn = bbgr
ENDIF

re4 = glohn &&INT(thisform.sollbrutto.Value * 100)
DO steuer

abz = lstlzz + solzlzz
IF thisform.azubi.value > 0
	IF glohn <= gvdgr
		IF thisform.sollberechnung.value = 0
			IF glohnsoll <= gvdgr
				
			ELSE
				abz = (sozp * glohn / 100) + abz
			ENDIF
		endif
	ELSE
		abz = (sozp * glohn / 100) + abz
	endif	
ELSE
	abz = (sozp * glohn / 100) + abz			
endif

netentist = glohn - abz

*********** kug aus nettolohndifferenz bestimmen ***************
IF thisform.stkl.Value = 4 .and. thisform.klasseiv_faktor.Value < 1
	differenz = (netentsoll - netentist) / 100
	kug = differenz * kugprozent
ELSE
	IF altesland = 1 &&west
		thisform.sollbrutto2.Value = IIF(thisform.sollbrutto.value > bbgrwest,bbgrwest,thisform.sollbrutto.value)
		thisform.istbrutto2.Value = IIF(thisform.istbrutto.value > bbgrwest,bbgrwest,thisform.istbrutto.value)
	else
		thisform.sollbrutto2.Value = IIF(thisform.sollbrutto.value > bbgrost,bbgrost,thisform.sollbrutto.value)
		thisform.istbrutto2.Value = IIF(thisform.istbrutto.value > bbgrost,bbgrost,thisform.istbrutto.value)
	ENDIF
	
	SELECT kug
	GO bottom
	maxvon = kug.von
	IF thisform.sollbrutto.value >= maxvon
		GO bottom
	else
		LOCATE FOR thisform.sollbrutto.value >= von .and. thisform.sollbrutto.value <= bis .and. ls = IIF(EMPTY(thisform.anzkinderfrei.Value),2,1) .and. g = 0
	endif
	xxx = ALLTRIM(STR(thisform.stkl.Value,1,0))
	thisform.rechlsatzvoll.Value = kug.kl&xxx

	SELECT kug
	GO bottom
	maxvon = kug.von
	IF thisform.istbrutto.value >= maxvon
		GO bottom
	else
		LOCATE FOR thisform.istbrutto.value >= von .and. thisform.istbrutto.value <= bis .and. ls = IIF(EMPTY(thisform.anzkinderfrei.Value),2,1) .and. g = 0
	endif
	xxx = ALLTRIM(STR(thisform.stkl.Value,1,0))
	thisform.rechlsatzkurz.Value = kug.kl&xxx
	kug = thisform.rechlsatzvoll.value - thisform.rechlsatzkurz.value
endif
thisform.kurzgeld.Value = kug
thisform.aufstockungkurz2.Value = thisform.aufstockung.value
thisform.aufstockungkurz3.Value = thisform.aufstockung.value
*************** kug berechnung ende ****************

*************** Feiertage bercksichtigen **************
*pro feiertage 1/30 des KUG
feiertagssumme = ((kug / 30) * thisform.anzfeiertage.Value)
*************** Feiertage bercksichtigen ende **************

************** aufstockungsbetrag bercksichtigen *************
IF thisform.kurzgeld.Value + thisform.aufstockung.value > ((thisform.sollbrutto.Value - thisform.istbrutto.Value) * 0.8) 
	thisform.istbrutto2.Value = thisform.istbrutto.value + (thisform.kurzgeld.Value + thisform.aufstockung.value - ((thisform.sollbrutto.Value - thisform.istbrutto.Value) * 0.8) )
ELSE
	thisform.istbrutto2.Value = thisform.istbrutto.value
endif
************** aufstockungsbetrag bercksichtigen ende *************

*********** sv berechnungen zum grundlohn ***********
******** zuerst steuern aus sollbrutto ************
DO steuerleeren
lzz = 2
KVZ =  thisform.kvzusatzbeitrag.value &&1.1
lzzfreib = INT(thisform.freibetrag.Value * 100)
lzzhinzu = INT(thisform.hinzurechbetrag.Value * 100)
pkpv = INT(thisform.anpkpv.Value * 100)
pkv = thisform.kvart.Value - 1  &&0 ****** festgelegte variablen zur bestimmung des KUG **********
pvs = IIF(EMPTY(thisform.pvsachsen.Value),0,1) &&0
pvz = IIF(EMPTY(thisform.mitpvzuschlag.Value),0,1) &&0
r = IIF(EMPTY(thisform.religion.Value),1,1)
stkl = thisform.stkl.value
zkf = thisform.anzkinderfrei.value
vjahr = thisform.versorgungsbeginn.value
alter1 = 0
ajahr = 2005
krv = IIF(thisform.west.Value = 0,1,0) &&RV BBG west oder ost
AF = IIF(thisform.stkl.value = 4 .and. thisform.klasseIV_faktor.value < 1,1,0)
zmvb = 0
sonstb = 0
vkapa = 0
vmt = 0
F = IIF(thisform.stkl.value = 4,thisform.klasseIV_faktor.value,1)
re4 = thisform.sollbrutto.Value * 100
DO steuer

thisform.volllst.value = lstlzz/100
thisform.solivoll.value = solzlzz / 100
thisform.kirchstvoll.value = (bk * (thisform.kirchensteuer.Value / 100) / 100)

*********+ dann SV aus sollbrutto ****************
IF thisform.kvart.Value < 3
	thisform.ANkvvoll.Value = (((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * thisform.kvbeitrag.value ) / 2)
	thisform.AGkvvoll.Value = (((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * thisform.kvbeitrag.value ) / 2)
	thisform.AGkvvollkug.Value = thisform.AGkvvoll.Value
	thisform.ANkvzuvoll.Value = (((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * (thisform.Kvzusatzbeitrag.Value)) / 2)
	thisform.AGkvzuvoll.Value = (((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * (thisform.Kvzusatzbeitrag.Value)) / 2)
	thisform.AGkvzuvollkug.Value = thisform.AGkvzuvoll.Value
	IF thisform.pvsachsen.Value > 0 &&sachsen
		thisform.AGpvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * kugagpvs)
		thisform.ANpvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * IIF(EMPTY(thisform.mitpvzuschlag.value),kuganpvs ,kuganpvs + kuganzusatz  ))
	ELSE
		thisform.AGpvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * kugagpv)
		thisform.ANpvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgkv,bbgkv,thisform.sollbrutto.Value) / 100) * IIF(EMPTY(thisform.mitpvzuschlag.value),kuganpv,kuganpv + + kuganzusatz ))
	endif
	thisform.AGpvvollkug.Value = thisform.AGpvvoll.Value
ELSE

	maxkvzuschusskv = 342.19 &&7.3%
	maxkvzuschusskvzu = 25.78 &&0.55%
	maxkvzuschusspv = IIF(thisform.pvsachsen.value = 0,71.48,48.05) &&1.525% / 1.025
*!*		IF thisform.sollbrutto.Value >= bbgkv
*!*			thisform.Ankvvoll.Value = maxkvzuschusskv
*!*			thisform.Ankvzuvoll.Value = maxkvzuschusskvzu
*!*			thisform.Anpvvoll.Value = maxkvzuschusspv
*!*		ELSE

		kvpvanteil = thisform.anpkpv.Value / (kugkv + kugdurchkv + kugpv)
		thisform.Ankvvoll.Value = ROUND(IIF((kvpvanteil * kugkv) / 2 >= maxkvzuschusskv, maxkvzuschusskv,(kvpvanteil * kugkv) / 2),2)
		thisform.Ankvzuvoll.Value = IIF((kvpvanteil * kugdurchkv) / 2 >= maxkvzuschusskvzu, maxkvzuschusskvzu,(kvpvanteil * kugdurchkv) / 2)
		thisform.Anpvvoll.Value = ROUND(IIF((kvpvanteil * kugpv) / 2 >= maxkvzuschusspv, maxkvzuschusspv,(kvpvanteil * kugpv) / 2),2)
*!*		ENDIF
	
	thisform.AGkvvoll.Value = thisform.ANkvvoll.Value
	thisform.AGkvzuvoll.Value = thisform.ANkvzuvoll.Value
	thisform.AGpvvoll.Value = thisform.ANpvvoll.Value
	
	thisform.AGkvvollkug.Value = thisform.AGkvvoll.Value
	thisform.AGkvzuvollkug.Value = thisform.AGkvzuvoll.Value
	thisform.AGpvvollkug.Value = thisform.AGpvvoll.Value		
	
ENDIF

IF thisform.west.Value > 0 &&west
	thisform.ANrvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgrvwest,bbgrvwest,thisform.sollbrutto.Value) / 100) * (18.6 / 2))
	thisform.AGrvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgrvwest,bbgrvwest,thisform.sollbrutto.Value) / 100) * (18.6 / 2))
ELSE
	thisform.ANrvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgrvost,bbgrvost,thisform.sollbrutto.Value) / 100) * (18.6 / 2))
	thisform.AGrvvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgrvost,bbgrvost,thisform.sollbrutto.Value) / 100) * (18.6 / 2))
endif
thisform.AGrvvollkug.Value = thisform.AGrvvoll.Value
IF thisform.west.Value > 0 &&west
	thisform.ANavvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgavwest,bbgavwest,thisform.sollbrutto.Value) / 100) * (kugav / 2))
	thisform.AGavvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgavwest,bbgavwest,thisform.sollbrutto.Value) / 100) * (kugav / 2))
ELSE
	thisform.ANavvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgavost,bbgavost,thisform.sollbrutto.Value) / 100) * (kugav / 2))
	thisform.AGavvoll.Value = ((IIF(thisform.sollbrutto.Value > bbgavost,bbgavost,thisform.sollbrutto.Value) / 100) * (kugav / 2))
endif
thisform.AGavvollkug.Value = thisform.AGavvoll.Value
IF thisform.kvart.Value < 3
	thisform.vollnetto.Value = thisform.sollbrutto2.Value - thisform.volllst.value - thisform.solivoll.value - thisform.kirchstvoll.value - thisform.ANkvvoll.value 
	thisform.vollnetto.Value = thisform.vollnetto.Value - thisform.ANkvzuvoll.value - thisform.ANpvvoll.value - thisform.ANrvvoll.value  - thisform.ANavvoll.value
ELSE
	thisform.vollnetto.Value = thisform.sollbrutto2.Value - thisform.volllst.value - thisform.solivoll.value - thisform.kirchstvoll.value + thisform.ANkvvoll.value 
	thisform.vollnetto.Value = thisform.vollnetto.Value + thisform.ANkvzuvoll.value + thisform.ANpvvoll.value - thisform.ANrvvoll.value  - thisform.ANavvoll.value
endif
******** dann steuern aus istbrutto ************
DO steuerleeren
lzz = 2
KVZ =  thisform.kvzusatzbeitrag.value &&1.1
lzzfreib = INT(thisform.freibetrag.Value * 100)
lzzhinzu = INT(thisform.hinzurechbetrag.Value * 100)
pkpv = INT(thisform.anpkpv.Value * 100)
pkv = thisform.kvart.Value - 1  &&0 ****** festgelegte variablen zur bestimmung des KUG **********
pvs = IIF(EMPTY(thisform.pvsachsen.Value),0,1) &&0
pvz = IIF(EMPTY(thisform.mitpvzuschlag.Value),0,1) &&0
r = IIF(EMPTY(thisform.religion.Value),1,1)
stkl = thisform.stkl.value
zkf = thisform.anzkinderfrei.value
vjahr = thisform.versorgungsbeginn.value
alter1 = 0
ajahr = 2005
krv = IIF(thisform.west.Value = 0,1,0) &&RV BBG west oder ost
AF = IIF(thisform.stkl.value = 4 .and. thisform.klasseIV_faktor.value < 1,1,0)
zmvb = 0
sonstb = 0
vkapa = 0
vmt = 0
F = IIF(thisform.stkl.value = 4,thisform.klasseIV_faktor.value,1)

re4 = thisform.istbrutto2.Value * 100

DO steuer

thisform.istlst.value = lstlzz / 100
thisform.solikurz.value = solzlzz / 100
thisform.kirchstkurz.value = (bk * (thisform.kirchensteuer.Value / 100) / 100)

IF feiertagssumme > 0
	****************ALTE werte merken
	steueralt = lstlzz / 100
	solialt = solzlzz / 100
	kichsteueralt = (bk * (thisform.kirchensteuer.Value / 100) / 100)
	***** erhhte steuer ausrechnen ********
	DO steuerleeren
	lzz = 2
	KVZ =  thisform.kvzusatzbeitrag.value &&1.1
	lzzfreib = INT(thisform.freibetrag.Value * 100)
	lzzhinzu = INT(thisform.hinzurechbetrag.Value * 100)
	pkpv = INT(thisform.anpkpv.Value * 100)
	pkv = thisform.kvart.Value - 1  &&0 ****** festgelegte variablen zur bestimmung des KUG **********
	pvs = IIF(EMPTY(thisform.pvsachsen.Value),0,1) &&0
	pvz = IIF(EMPTY(thisform.mitpvzuschlag.Value),0,1) &&0
	r = IIF(EMPTY(thisform.religion.Value),1,1)
	stkl = thisform.stkl.value
	zkf = thisform.anzkinderfrei.value
	vjahr = thisform.versorgungsbeginn.value
	alter1 = 0
	ajahr = 2005
	krv = IIF(thisform.west.Value = 0,1,0) &&RV BBG west oder ost
	AF = IIF(thisform.stkl.value = 4 .and. thisform.klasseIV_faktor.value < 1,1,0)
	zmvb = 0
	sonstb = 0
	vkapa = 0
	vmt = 0
	F = IIF(thisform.stkl.value = 4,thisform.klasseIV_faktor.value,1)
	
	re4 = ((thisform.istbrutto2.Value + feiertagssumme) * 100)
	DO steuer
	
	steuerneu = lstlzz / 100
	solineu = solzlzz / 100
	kichsteuerneu = (bk * (thisform.kirchensteuer.Value / 100) / 100)
	
	******** differenz von alt - neu = mehrsteuer auf feiertagssumme *****
	thisform.feiertagssteuer.value = (steuerneu + solineu + kichsteuerneu) - (steueralt + solialt + kichsteueralt)
ELSE
	thisform.feiertagssteuer.value = 0.00
	thisform.AGKUGSVfeiertage3.Value = 0.00
endif
*********+ dann SV aus istbrutto **************** feiertags-sv zahlt nur der AG *********
IF thisform.kvart.Value < 3
	thisform.ANkvkurz.Value = (((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * thisform.kvbeitrag.value ) / 2)
	thisform.AGkvkurz.Value = (((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * thisform.kvbeitrag.value ) / 2)

	thisform.ANkvzukurz.Value = (((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * (thisform.Kvzusatzbeitrag.Value)) / 2)
	thisform.AGkvzukurz.Value = (((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * (thisform.Kvzusatzbeitrag.Value)) / 2)

	IF thisform.pvsachsen.Value > 0 &&sachsen
		thisform.AGpvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * kugagpvs)
		thisform.ANpvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * IIF(EMPTY(thisform.mitpvzuschlag.value),kuganpvs ,kuganpvs + kuganzusatz ))
	ELSE
		thisform.AGpvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * kuganpv)
		thisform.ANpvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgkv,bbgkv,thisform.istbrutto2.Value) / 100) * IIF(EMPTY(thisform.mitpvzuschlag.value),kuganpv,kuganpv + kuganzusatz))
	endif
ELSE
	maxkvzuschusskv = 342.19 &&7.3%
	maxkvzuschusskvzu = 25.78 &&0.55%
	maxkvzuschusspv = IIF(thisform.pvsachsen.value = 0,71.48,48.05) &&1.525% / 1.025
	IF thisform.istbrutto2.Value >= bbgkv
		thisform.Ankvkurz.Value = maxkvzuschusskv
		thisform.Ankvzukurz.Value = maxkvzuschusskvzu
		thisform.Anpvkurz.Value = maxkvzuschusspv
	ELSE
		kvpvanteil = thisform.anpkpv.Value / (kugkv + kugdurchkv + kugpv)
		thisform.Ankvkurz.Value = ROUND(IIF((kvpvanteil * kugkv) / 2 >= maxkvzuschusskv, maxkvzuschusskv,(kvpvanteil * kugkv) / 2),2)
		thisform.Ankvzukurz.Value = IIF((kvpvanteil * kugdurchkv) / 2 >= maxkvzuschusskvzu, maxkvzuschusskvzu,(kvpvanteil * kugdurchkv) / 2)
		thisform.Anpvkurz.Value = ROUND(IIF((kvpvanteil * kugpv) / 2 >= maxkvzuschusspv, maxkvzuschusspv,(kvpvanteil * kugpv) / 2),2)
	ENDIF
	
	thisform.AGkvkurz.Value = thisform.ANkvkurz.Value
	thisform.AGkvzukurz.Value = thisform.ANkvzukurz.Value
	thisform.AGpvkurz.Value = thisform.ANpvkurz.Value
	
	thisform.AGkvvollkug.Value = thisform.AGkvvoll.Value
	thisform.AGkvzuvollkug.Value = thisform.AGkvzuvoll.Value
	thisform.AGpvvollkug.Value = thisform.AGpvvoll.Value		
endif
IF thisform.west.Value > 0 &&west
	thisform.ANrvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgrvwest,bbgrvwest,thisform.istbrutto2.Value) / 100) * (18.6 / 2))
	thisform.AGrvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgrvwest,bbgrvwest,thisform.istbrutto2.Value) / 100) * (18.6 / 2))
ELSE
	thisform.ANrvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgrvost,bbgrvost,thisform.istbrutto2.Value) / 100) * (18.6 / 2))
	thisform.AGrvkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgrvost,bbgrvost,thisform.istbrutto2.Value) / 100) * (18.6 / 2))
endif

IF thisform.west.Value > 0 &&west
	thisform.ANavkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgavwest,bbgavwest,thisform.istbrutto2.Value) / 100) * (kugav / 2))
	thisform.AGavkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgavwest,bbgavwest,thisform.istbrutto2.Value) / 100) * (kugav / 2))
ELSE
	thisform.ANavkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgavost,bbgavost,thisform.istbrutto2.Value) / 100) * (kugav / 2))
	thisform.AGavkurz.Value = ((IIF(thisform.istbrutto2.Value > bbgavost,bbgavost,thisform.istbrutto2.Value) / 100) * (kugav / 2))
ENDIF

*thisform.istbrutto2.value = thisform.istbrutto.Value &&wieder zurck ohne aufstockung
IF thisform.kvart.Value < 3
	thisform.istnetto.Value = thisform.istbrutto2.Value - thisform.istlst.value - thisform.solikurz.value - thisform.kirchstkurz.value - thisform.ANkvkurz.value - thisform.feiertagssteuer.value
	thisform.istnetto.Value = thisform.istnetto.Value + thisform.kurzgeld.Value + thisform.aufstockungkurz2.Value - thisform.ANkvzukurz.value - thisform.ANpvkurz.value - thisform.ANrvkurz.value  - thisform.ANavkurz.value
ELSE
	thisform.istnetto.Value = thisform.istbrutto2.Value - thisform.istlst.value - thisform.solikurz.value - thisform.kirchstkurz.value + thisform.ANkvkurz.value - thisform.feiertagssteuer.value
	thisform.istnetto.Value = thisform.istnetto.Value + thisform.kurzgeld.Value + thisform.aufstockungkurz2.Value + thisform.ANkvzukurz.value + thisform.ANpvkurz.value - thisform.ANrvkurz.value  - thisform.ANavkurz.value
ENDIF

thisform.AGsvsummevoll.Value = thisform.AGkvvoll.Value + thisform.AGkvzuvoll.value + thisform.AGpvvoll.Value + thisform.AGrvvoll.Value + thisform.AGavvoll.Value
thisform.AGsvsummekurz.Value = thisform.AGkvkurz.Value + thisform.AGkvzukurz.Value + thisform.AGpvkurz.Value + thisform.AGrvkurz.Value + thisform.AGavkurz.Value
thisform.AGsvsummekurz3.Value = thisform.AGsvsummekurz.Value

PUBLIC fiktives, svwert
******** SV-Beitrge fr das KUG **************
thisform.sollbrutto3.Value = thisform.sollbrutto.value
thisform.istbrutto3.Value = thisform.istbrutto2.value

fiktives = (thisform.sollbrutto.Value - (thisform.istbrutto.Value + feiertagssumme)) * 0.8

IF thisform.kurzgeld.Value + thisform.aufstockung.value <= fiktives 
	svwert = thisform.istbrutto3.Value 
ELSE
	svwert = thisform.istbrutto3.Value + (fiktives - (thisform.kurzgeld.Value + thisform.aufstockung.value))
endif
thisform.istbrutto3.Value = thisform.istbrutto.value

IF fiktives + svwert > bbgkv &&vorher thisform.istbrutto3.Value
	kvgrundlage = bbgkv - (svwert + feiertagssumme) &&vorher thisform.istbrutto3.Value
ELSE
	kvgrundlage = fiktives 
ENDIF

********** ab hier RV **********
IF thisform.west.Value > 0 &&west
	IF fiktives + svwert > bbgrvwest &&vorher thisform.istbrutto3.Value
		rvgrundlage = bbgrvwest - svwert &&vorher thisform.istbrutto3.Value
	ELSE
		rvgrundlage = fiktives 
	ENDIF
ELSE
	IF fiktives + svwert > bbgrvost &&vorher thisform.istbrutto3.Value
		rvgrundlage = bbgrvost - svwert &&vorher thisform.istbrutto3.Value
	ELSE
		rvgrundlage = fiktives 
	ENDIF
endif

DO case
	CASE welchesjahr = 2022
		kugpvs = 2.05
	CASE welchesjahr = 2023	
		IF monat < 7
			kugpvs = 2.05
		ELSE
			kugpvs = 2.40
		endif			
	CASE welchesjahr = 2024	
		kugpvs = 2.40	
	CASE welchesjahr = 2025		
		kugpvs = 2.60
	CASE welchesjahr = 2026
		kugpvs = 2.60
	CASE welchesjahr = 2027
		kugpvs = 2.60
endcase		

IF thisform.kvart.value < 3
	thisform.AGkvkurzkug.Value = ((kvgrundlage / 100) * kugkv ) &&KV Basis
	thisform.AGkvzukurzkug.Value = ((kvgrundlage / 100) * thisform.Kvzusatzbeitrag.value) &&KVzusatz
		
	IF thisform.pvsachsen.Value > 0 &&sachsen
		thisform.AGpvkurzkug.Value = ((kvgrundlage / 100) * kugpvs) &&PV AG
	ELSE
		thisform.AGpvkurzkug.Value = ((kvgrundlage / 100) * kugpv) &&PV
	ENDIF
ELSE
	kvpvanteil = thisform.anpkpv.Value / (kugkv + kugdurchkv + kugpv)
	thisform.AGkvkurzkug.Value = IIF(thisform.AGkvkurz.Value + ((kvgrundlage / 100) * thisform.kvbeitrag.value) >= (kvpvanteil * kugkv),(kvpvanteil * kugkv),thisform.AGkvkurz.Value + ((kvgrundlage / 100) * thisform.kvbeitrag.value )) &&KV Basis
	thisform.AGkvzukurzkug.Value = IIF(thisform.AGkvzukurz.Value + ((kvgrundlage / 100) * thisform.kvzusatzbeitrag.value) >= (kvpvanteil * kugdurchkv),(kvpvanteil * kugdurchkv),thisform.AGkvzukurz.Value + ((kvgrundlage / 100) * thisform.kvbeitrag.value )) &&KV Basis
	thisform.AGpvkurzkug.Value = IIF(thisform.AGpvkurz.Value + ((kvgrundlage / 100) *  kugpv) >= (kvpvanteil * kugpv),(kvpvanteil * kugpv),thisform.AGpvkurz.Value + ((kvgrundlage / 100) * kugpv )) &&KV Basis
endif
thisform.AGrvkurzkug.Value = ((rvgrundlage / 100) * 18.6) &&RV

IF thisform.u1pflichtig.Value > 0
	u1proz = thisform.umlage_u1.Value
ELSE
	u1proz = 0.00
endif
IF thisform.u2pflichtig.Value > 0
	u2proz = thisform.umlage_u2.Value
ELSE
	u2proz = 0.00
ENDIF
IF thisform.u3pflichtig.Value > 0
	u3proz = thisform.umlage_u3.Value
ELSE
	u3proz = 0.00
endif
thisform.AGumlagesummevoll3.value = ((thisform.sollbrutto3.Value / 100) * u1proz) + ((thisform.sollbrutto3.Value / 100) * u2proz) + ((thisform.sollbrutto3.Value / 100) * u3proz)
thisform.AGumlagesummekurz3.value = ((thisform.istbrutto3.Value / 100) * u1proz) + ((thisform.istbrutto3.Value / 100) * u2proz) + ((thisform.istbrutto3.Value / 100) * u3proz)

svsummefeiertage = 0
svkvfeier = feiertagssumme / 100 * thisform.kvbeitrag.value
svkvzufeier = feiertagssumme / 100 * thisform.kvzusatzbeitrag.Value
svpvfeier = feiertagssumme / 100 * IIF(thisform.pvsachsen.Value > 0,kugpvs,kugpv)
svrvfeier = feiertagssumme / 100 * 18.6
svavfeier = feiertagssumme / 100 * kugav
IF EMPTY(thisform.u1pflichtig.Value)
	svu1feier = 0
ELSE
	svu1feier = feiertagssumme / 100 * thisform.umlage_u1.value
ENDIF
IF EMPTY(thisform.u2pflichtig.Value)
	svu2feier = 0
ELSE
	svu2feier = feiertagssumme / 100 * thisform.umlage_u2.value
ENDIF
IF EMPTY(thisform.u3pflichtig.Value)
	svu3feier = 0
ELSE
	svu3feier = feiertagssumme / 100 * thisform.umlage_u3.value
endif
svsummefeiertage = svkvfeier + svkvzufeier + svpvfeier + svrvfeier + svavfeier

thisform.AGKUGSVfeiertage3.Value = feiertagssumme + svsummefeiertage
thisform.agumlagesummekurz3.Value = thisform.agumlagesummekurz3.Value + svu1feier + svu2feier + svu3feier
thisform.umlageinfo.caption = "inkl. " + ALLTRIM(STR(svu1feier + svu2feier + svu3feier,10,2)) + " KUG Feiertage"
IF svu1feier + svu2feier + svu3feier > 0
	thisform.umlageinfo.Visible = .t.
endif
thisform.AGgessummevollkug.Value = thisform.sollbrutto3.Value + thisform.AGkvvollkug.Value + thisform.AGkvzuvollkug.value + thisform.AGpvvollkug.Value + thisform.AGrvvollkug.Value + thisform.AGavvollkug.Value + thisform.AGumlagesummevoll3.value
thisform.AGgessummekurzkug.Value = thisform.istbrutto3.Value + thisform.AGkvkurzkug.Value + thisform.AGkvzukurzkug.Value + thisform.AGpvkurzkug.Value + thisform.AGrvkurzkug.Value + thisform.AGavkurzkug.Value + thisform.AGsvsummekurz3.Value + thisform.aufstockungkurz3.value + thisform.AGumlagesummekurz3.value + thisform.AGKUGSVfeiertage3.value


thisform.command1.Enabled = .t. &&drucken erst wenn durchgerechnet wurde
thisform.command2.Enabled = .t. &&drucken erst wenn durchgerechnet wurde
ENDPROC
     C    C  C                        zA   %   J>      B  0  Y>            U  @6 T    a %    =  T 333333-@   %    q  T       ,@   T 333333-@  
 H b  U T ffffff@ T ? T	 333333@ T
   T   T 333333 @ T
 ffffff? T ffffff?   % 
 T ffffff@ T
   T   T 333333 @ T
 ffffff? T ffffff? l T 333333@ T
   T   T @ T
 333333? T 333333?  T	 @ T ?  L T 333333@ T 333333? T	 @ T
   T   T @ T
 333333? T 333333?   T @ T       @ T	 @ T
   T   T ffffff@ T
 ? T 333333?   T @ T 333333@ T	 @ T
   T   T ffffff@ T
 ? T 333333?  b T @ T 333333@ T	 @ T
   T   T ffffff@ T
 ? T 333333?  7      T C  T C  T C  T       4@ T C d 7  T C d 7  T C d 7  T C d 7  T C d 7  
 T  
 T   T     -
 Hq   !  5 T" C  #    q=
ףp? 333333?6   !  %5 T" C  #    p=
ף? ffffff?6   !  q5 T" C  #    ףp=
? ?6  $  % 
 T&  T'   (   T) C  *  d8 T+ C  ,  d8 T- C  .  d8 T/     # T0 CC  1     6# T2 CC  3     6# T4 CC  5    6 T6   6   T7   #   T8   9  
 T:   T; % T< C  =      66 T> C  6     ?  
	   6
 T@  
 TA  
 TB  
 TC  + TD C  6     ?   6 TE   F  d %E  	
 TG   B  TH E  TH CH 8 T  I    F  % TJ C  =       6 %H J A

 TH J  
 TK H  L  TM N O  %  P   
 %H  
 %  Q   
 %R  
 
 TM  H dM     TM  H dM   , TM  H dM   TS H M  % 
 T&  T'   (   T) C  *  d8 T+ C  ,  d8 T- C  .  d8 T/     # T0 CC  1     6# T2 CC  3     6# T4 CC  5    6 T6   6   T7   #   T8   9  
 T:   T; % T< C  =      66 T> C  6     ?  
	   6
 T@  
 TA  
 TB  
 TC  + TD C  6     ?   6 TE   T  d %E  z

 TG   B  TH E  TH CH 8 T  U    F  % TJ C  =       6 %H J 
 TH J  
 TK H  L  TM N O  %  P    %H   %  Q    %R    TM  H dM     TM  H dM    TM  H dM   TV H M ( %  6     ?  
	U TW S V d TX W "   %Y 1 T  I  C  F     	   F  61 T  U  C  T     	   T  6 :1 T  I  C  F     	   F  61 T  U  C  T     	   T  6  FX  #6 TZ X [  %  F  Z v #6 Q -  F  [    F  \ 	 ] CC  #    6	 ^  	  T_ CC  6   Z- thisform.rechlsatzvoll.Value = kug.kl&xxx
 FX  #6 TZ X [  %  T  Z U #6 Q -  T  [    T  \ 	 ] CC  #    6	 ^  	  T_ CC  6   Z- thisform.rechlsatzkurz.Value = kug.kl&xxx
 TX   `    a    T  b  X  T  c    d   T  e    d   Tf X   g  ? %  b    d    F    T  ?P T  U    T    b    d    F    T  ? / T  U    T    % 
 T&  T'   (   T) C  *  d8 T+ C  ,  d8 T- C  .  d8 T/     # T0 CC  1     6# T2 CC  3     6# T4 CC  5    6 T6   6   T7   #   T8   9  
 T:   T; % T< C  =      66 T> C  6     ?  
	   6
 T@  
 TA  
 TB  
 TC  + TD C  6     ?   6 TK   F  d L  T  h  N d T  i  O d' T  j  k   l  dd %    
eF T  m  C  F     	   F  6d  n  F T  o  C  F     	   F  6d  n   T  p    o  G T  q  C  F     	   F  6d  (  G T  r  C  F     	   F  6d  (   T  s    r   %  1   ; T  t  C  F     	   F  6d
 U T  u  C  F     	   F  6dCC  3       6 H; T  t  C  F     	   F  6d U T  u  C  F     	   F  6dCC  3   
  
  6  T  v    t   1 Tw ףp=
cu@ Tx Hz9@5 Ty C  1    QQ@ fffffH@6  Tz   .     < T  m  CCz  w  w  z  6T7 T  q  Cz  x  x  z  6< T  u  CCz  y  y  z  6T T  o    m   T  r    q   T  t    u   T  p    o   T  s    r   T  v    t    %  =   D T  {  C  F     	   F  6d"@D T  |  C  F     	   F  6d"@ dD T  {  C  F     	   F  6d"@D T  |  C  F     	   F  6d"@  T  }    |   %  =   @ T  ~  C  F     	   F  6d	 @ T    C  F     	   F  6d	  @ T  ~  C  F     	   F  6d	 @ T    C  F     	   F  6d	   T         %    
VA T      I    h    i    j    m  A T          q    u    {    ~   A T      I    h    i    j    m  A T          q    u    {    ~    % 
 T&  T'   (   T) C  *  d8 T+ C  ,  d8 T- C  .  d8 T/     # T0 CC  1     6# T2 CC  3     6# T4 CC  5    6 T6   6   T7   #   T8   9  
 T:   T; % T< C  =      66 T> C  6     ?  
	   6
 T@  
 TA  
 TB  
 TC  + TD C  6     ?   6 TK   U  d L  T    N d T    O d' T    k   l  dd %f  ;# T N d T O d! T k   l  dd % 
 T&  T'   (   T) C  *  d8 T+ C  ,  d8 T- C  .  d8 T/     # T0 CC  1     6# T2 CC  3     6# T4 CC  5    6 T6   6   T7   #   T8   9  
 T:   T; % T< C  =      66 T> C  6     ?  
	   6
 T@  
 TA  
 TB  
 TC  + TD C  6     ?   6 TK   U  f d L  T N d T O d! T k   l  dd) T           y# T             T              %    
%F T    C  U     	   U  6d  n  F T    C  U     	   U  6d  n  G T    C  U     	   U  6d  (  G T    C  U     	   U  6d  (   %  1   U%; T    C  U     	   U  6d
 U T    C  U     	   U  6dCC  3       6 %; T    C  U     	   U  6d
 U T    C  U     	   U  6dCC  3   
  
  6  ( Tw ףp=
cu@ Tx Hz9@5 Ty C  1    QQ@ fffffH@6 %  U   & T    w  T    x  T    y  '  Tz   .     < T    CCz  w  w  z  6T7 T    Cz  x  x  z  6< T    CCz  y  y  z  6T  T         T         T         T  p    o   T  s    r   T  v    t    %  =   (D T    C  U     	   U  6d"@D T    C  U     	   U  6d"@ L)D T    C  U     	   U  6d"@D T    C  U     	   U  6d"@  %  =   )@ T    C  U     	   U  6d	 @ T    C  U     	   U  6d	  o*@ T    C  U     	   U  6d	 @ T    C  U     	   U  6d	   %    
*+K T      U                      U T          b    c                   +K T      U                      U T          b    c                   A T      o    r    t    |      A T                         T         7   T      F   T      U  / T   F    T  f ?! %  b    d   - T      F-- T        b    d    T      T   %   - T   f  -
 T    %  =   - %   - T    -
 T    D. %   +. T    @.
 T    
 HU.q/  |. T ffffff @  . % 
. T ffffff @ . T 333333@   . T 333333@  #/ T @  J/ T @  q/ T @  %    
)0 T     d # T     d  (   %  1    0 T     d  %0 T     d   n1  Tz   .     c T    C     d  n  z   z        d  n  6c T    C     d  (  z   z        d  n  6W T    C     d z   z        d 6 % T     d2@ %     1 T      1 T           %     2 T      )2 T           %     W2 T      t2 T          K T        d     d     d K T        d     d     d 
 T   T f d  n   T f d  (  - T f dC  1       6 T f d2@ T f d	  %C    3
 T   3 T f d      %C    4
 T   >4 T f d      %C    d4
 T   4 T f d      T       T    f  % T           A T     inkl. CC   
Z  KUG Feiertage %    O5 T     a U T          p    s    v    }          s T                                  e           T    a T    a U  THISFORM COMMAND1 ENABLED KVART VALUE KUGKV WELCHESJAHR KUGPV
 KUGDURCHKV KUGAV KUGANPV KUGAGPV KUGANPVS KUGAGPVS KUGANZUSATZ MONAT BBGRWEST BBGROST GVDGR SOZP BBGKV RVGRENZE GERING KVGRENZE	 BBGAVWEST AVGRENZE BBGAVOST	 BBGRVWEST BBGRVOST RVGRUNDLAGE KVGRUNDLAGE
 UMLAGEINFO VISIBLE ZEITRAUM
 KUGPROZENT
 ANZKINDERFREI LOHNSTEUERVARIABLEN STEUERLEEREN LZZ KVZ KVZUSATZBEITRAG LZZFREIB
 FREIBETRAG LZZHINZU HINZURECHBETRAG PKPV ANPKPV PKV PVS	 PVSACHSEN PVZ
 MITPVZUSCHLAG R RELIGION STKL ZKF VJAHR VERSORGUNGSBEGINN ALTER1 AJAHR KRV WEST AF KLASSEIV_FAKTOR ZMVB SONSTB VKAPA VMT F BENT
 SOLLBRUTTO NETENT GLOHN SOLLBRUTTO2 BBGR RE4 STEUER ABZ LSTLZZ SOLZLZZ AZUBI SOLLBERECHNUNG	 GLOHNSOLL
 NETENTSOLL	 ISTBRUTTO
 ISTBRUTTO2	 NETENTIST	 DIFFERENZ KUG	 ALTESLAND MAXVON VON BIS LS G XXX
 RECHLSATZVOLL
 RECHLSATZKURZ KURZGELD AUFSTOCKUNGKURZ2 AUFSTOCKUNG AUFSTOCKUNGKURZ3 FEIERTAGSSUMME ANZFEIERTAGE VOLLLST SOLIVOLL KIRCHSTVOLL BK
 KIRCHENSTEUER ANKVVOLL	 KVBEITRAG AGKVVOLL AGKVVOLLKUG
 ANKVZUVOLL
 AGKVZUVOLL
 AGKVZUVOLLKUG AGPVVOLL ANPVVOLL AGPVVOLLKUG MAXKVZUSCHUSSKV MAXKVZUSCHUSSKVZU MAXKVZUSCHUSSPV
 KVPVANTEIL ANRVVOLL AGRVVOLL AGRVVOLLKUG ANAVVOLL AGAVVOLL AGAVVOLLKUG	 VOLLNETTO ISTLST SOLIKURZ KIRCHSTKURZ	 STEUERALT SOLIALT
 KICHSTEUERALT	 STEUERNEU SOLINEU
 KICHSTEUERNEU FEIERTAGSSTEUER AGKUGSVFEIERTAGE3 ANKVKURZ AGKVKURZ
 ANKVZUKURZ
 AGKVZUKURZ AGPVKURZ ANPVKURZ ANRVKURZ AGRVKURZ ANAVKURZ AGAVKURZ ISTNETTO
 AGSVSUMMEVOLL
 AGSVSUMMEKURZ AGSVSUMMEKURZ3 FIKTIVES SVWERT SOLLBRUTTO3
 ISTBRUTTO3 KUGPVS AGKVKURZKUG
 AGKVZUKURZKUG AGPVKURZKUG AGRVKURZKUG U1PFLICHTIG U1PROZ	 UMLAGE_U1 U2PFLICHTIG U2PROZ	 UMLAGE_U2 U3PFLICHTIG U3PROZ	 UMLAGE_U3 AGUMLAGESUMMEVOLL3 AGUMLAGESUMMEKURZ3 SVSUMMEFEIERTAGE	 SVKVFEIER SVKVZUFEIER	 SVPVFEIER	 SVRVFEIER	 SVAVFEIER	 SVU1FEIER	 SVU2FEIER	 SVU3FEIER CAPTION AGGESSUMMEVOLLKUG AGGESSUMMEKURZKUG AGAVKURZKUG COMMAND2 Click,     1 rQ qQ QA A  !QQQQQQ"QQQQ QQQQA QQ"QQQQQQ!QQQQQQ!QQQQQQ!QQQQQQA rQQq Qq Qq Qq Q    qQqQqQA r q  1q111111  Qa    q A A !Q A  q qq A A  A  A s  1q111111  Qa    q A A !R A  q qq A A  A  A a  A r Q qQ  A r Q qQ  A A 1 A u  1q111111  Qa    qq rqqsaaqqqQ QA  RQQqB rAA AAA q A q A r  1q111111  Qa    rr rqqr  1q111111  Qa    q  A raarqrQ QA  QQQq111 qA A qAA AAA r A sQ QA  1 A Ra  A sQ  A  Q  A A  !Q!Q QA !Q!Q!Q!QA r1r A  11qA Qr1 QA q1 QA q1 QA  QQ  A Q  A Q  A rQA Q11                       i      )   C                        
commandbutton      
commandbutton      Command1      FORM1     Top = 589
Left = 69
Height = 35
Width = 37
Picture = icons\1_druck.jpg
DisabledPicture = icons\1_druck.bmp
Caption = ""
Enabled = .F.
TabIndex = 154
ToolTipText = "druckt die Berechnung (erst nachdem berechnet wurde verfgbar)"
Name = "Command1"
     !PROCEDURE Click

SELECT kug_namen
IF RECCOUNT() = 0
	APPEND BLANK
	FLUSH
ELSE
	GOTO 1
endif
replace kennung WITH thisform.kennung.value
replace sollbrutto WITH thisform.sollbrutto.value
replace istbrutto WITH thisform.istbrutto.value
replace zeitraum  WITH thisform.zeitraum.value
replace aufstock WITH thisform.aufstockung.value
replace anzfeier WITH thisform.anzfeiertage.value
replace stkl WITH thisform.stkl.value
replace stkl4fakt WITH thisform.klasseIV_faktor.value
replace kvart WITH thisform.kvart.value
replace kvbeitrag WITH thisform.kvbeitrag.value
replace kvzuschlag WITH thisform.kvzusatzbeitrag.value
replace anpkpv WITH thisform.anpkpv.value
replace anzkinder WITH thisform.anzkinderfrei.value
replace pvzuschlag WITH IIF(EMPTY(thisform.mitpvzuschlag.value),0,1)
replace pvsachsen WITH IIF(EMPTY(thisform.pvsachsen.value),0,1)
replace religion WITH IIF(EMPTY(thisform.religion.value),0,1)
replace kirchsteu WITH thisform.kirchensteuer.value
replace versbegin WITH thisform.versorgungsbeginn.value
replace freibetrag WITH thisform.freibetrag.value
replace hinzurech WITH thisform.hinzurechbetrag.value
replace anzkinder WITH thisform.anzkinderfrei.value
replace west WITH IIF(EMPTY(thisform.west.value),0,1)
replace u1pflicht WITH IIF(EMPTY(thisform.u1pflichtig.value),0,1)
replace u2pflicht WITH IIF(EMPTY(thisform.u2pflichtig.value),0,1)
replace u3pflicht WITH IIF(EMPTY(thisform.u3pflichtig.value),0,1)
replace umlage_u1 WITH thisform.umlage_u1.value
replace umlage_u2 WITH thisform.umlage_u2.value
replace umlage_u3 WITH thisform.umlage_u3.value
replace azubi WITH thisform.azubi.value
replace sollberech WITH thisform.sollberechnung.value
replace VL1    with thisform.sollbrutto2.value
replace VL2    with thisform.volllst.value
replace VL3    with thisform.solivoll.value
replace VL4    with thisform.kirchstvoll.value
replace VL5    with thisform.ANkvvoll.value
replace VL6    with thisform.ANkvzuvoll.value
replace VL7    with thisform.ANpvvoll.value
replace VL8    with thisform.ANrvvoll.value
replace VL9    with thisform.ANavvoll.value
replace VL10   with thisform.vollnetto.value
replace AGVL1  with thisform.AGkvvoll.value
replace AGVL2  with thisform.AGkvzuvoll.value
replace AGVL3  with thisform.AGpvvoll.value
replace AGVL4  with thisform.AGrvvoll.value
replace AGVL5  with thisform.AGavvoll.value
replace AGVL6  with thisform.AGsvsummevoll.value
replace KL1    with thisform.istbrutto2.value
replace KL2    with thisform.istlst.value
replace KL3    with thisform.feiertagssteuer.value
replace KL4    with thisform.solikurz.value
replace KL5    with thisform.kirchstkurz.value
replace KL6    with thisform.ANkvkurz.value
replace KL7    with thisform.ANkvzukurz.value
replace KL8    with thisform.ANpvkurz.value
replace KL9    with thisform.ANrvkurz.value
replace KL10   with thisform.ANavkurz.value
replace KL11   with thisform.kurzgeld.value
replace KL12   with thisform.aufstockungkurz2.value
replace KL13   with thisform.istnetto.value
replace AGKL1  with thisform.AGkvkurz.value
replace AGKL2  with thisform.AGkvzukurz.value
replace AGKL3  with thisform.AGpvkurz.value
replace AGKL4  with thisform.AGrvkurz.value
replace AGKL5  with thisform.AGavkurz.value
replace AGKL6  with thisform.AGsvsummekurz.value
replace AGVL12 with thisform.sollbrutto3.value
replace AGVL22 with thisform.AGkvvollkug.value 
replace AGVL32 with thisform.AGkvzuvollkug.value  
replace AGVL42 with thisform.AGpvvollkug.value  
replace AGVL52 with thisform.AGrvvollkug.value  
replace AGVL62 with thisform.AGavvollkug.value  
replace AGVL72 with thisform.AGumlagesummevoll3.value  
replace AGVL82 with thisform.AGgessummevollkug.value  
replace AGKL12 with thisform.istbrutto3.value  
replace AGKL22 with thisform.AGkvkurzkug.value  
replace AGKL32 with thisform.AGkvzukurzkug.value  
replace AGKL42  with thisform.AGpvkurzkug.value 
replace AGKL52  with thisform.AGrvkurzkug.value 
replace AGKL62  with thisform.AGavkurzkug.value 
replace AGKL72  with thisform.AGumlagesummekurz3.value 
replace AGKL82  with thisform.aufstockungkurz3.value 
replace AGKL92  with thisform.AGsvsummekurz3.value 
replace AGKL102 with thisform.AGKUGSVfeiertage3.value 
replace AGKL112 with thisform.AGgessummekurzkug.value 
replace kugls1  with thisform.rechlsatzvoll.value 
replace kugls2  with thisform.rechlsatzkurz.value 
replace kugrv with rvgrundlage 
replace kugkv with kvgrundlage
replace umlinfo  with IIF(thisform.anzfeiertage.value > 0,thisform.umlageinfo.caption,"")
flush
REPORT FORM kug_druck NEXT 1 NOCONSOLE TO PRINTER prompt
 
ENDPROC
     p    W  W                        :   %   7        d   F            U  n F   %CN     [ 1 	 #  >     >     >     >     >     >	  
   >     >  
   >     >     >     >     >    # > CC      6# > CC      6# > CC      6 >     >     >     >     >    # >  CC       6# >! CC "     6# ># CC $     6# >% CC &     6 >'  '   >(  (   >)  )   >*  *   >+  ,   >-  .   >/  0   >1  2   >3  4   >5  6   >7  8   >9  :   >;  <   >=  >   >?  @   >A  B   >C  D   >E  F   >G  H   >I  J   >K  L   >M  N   >O  P   >Q  R   >S  T   >U  V   >W  X   >Y  Z   >[  \   >]  ^   >_  `   >a  b   >c  d   >e  f   >g  h   >i  j   >k  l   >m  n   >o  p   >q  r   >s  t   >u  v   >w  x   >y  z   >{  |   >}  ~   >     >     >     >     >     >     >     >     >     >     >     >     >     >     >    
 >  
 >  + > C 
          6 [ ?	 kug_druck(!"9 U 	 KUG_NAMEN KENNUNG THISFORM VALUE
 SOLLBRUTTO	 ISTBRUTTO ZEITRAUM AUFSTOCK AUFSTOCKUNG ANZFEIER ANZFEIERTAGE STKL	 STKL4FAKT KLASSEIV_FAKTOR KVART	 KVBEITRAG
 KVZUSCHLAG KVZUSATZBEITRAG ANPKPV	 ANZKINDER
 ANZKINDERFREI
 PVZUSCHLAG
 MITPVZUSCHLAG	 PVSACHSEN RELIGION	 KIRCHSTEU
 KIRCHENSTEUER	 VERSBEGIN VERSORGUNGSBEGINN
 FREIBETRAG	 HINZURECH HINZURECHBETRAG WEST	 U1PFLICHT U1PFLICHTIG	 U2PFLICHT U2PFLICHTIG	 U3PFLICHT U3PFLICHTIG	 UMLAGE_U1	 UMLAGE_U2	 UMLAGE_U3 AZUBI
 SOLLBERECH SOLLBERECHNUNG VL1 SOLLBRUTTO2 VL2 VOLLLST VL3 SOLIVOLL VL4 KIRCHSTVOLL VL5 ANKVVOLL VL6
 ANKVZUVOLL VL7 ANPVVOLL VL8 ANRVVOLL VL9 ANAVVOLL VL10	 VOLLNETTO AGVL1 AGKVVOLL AGVL2
 AGKVZUVOLL AGVL3 AGPVVOLL AGVL4 AGRVVOLL AGVL5 AGAVVOLL AGVL6
 AGSVSUMMEVOLL KL1
 ISTBRUTTO2 KL2 ISTLST KL3 FEIERTAGSSTEUER KL4 SOLIKURZ KL5 KIRCHSTKURZ KL6 ANKVKURZ KL7
 ANKVZUKURZ KL8 ANPVKURZ KL9 ANRVKURZ KL10 ANAVKURZ KL11 KURZGELD KL12 AUFSTOCKUNGKURZ2 KL13 ISTNETTO AGKL1 AGKVKURZ AGKL2
 AGKVZUKURZ AGKL3 AGPVKURZ AGKL4 AGRVKURZ AGKL5 AGAVKURZ AGKL6
 AGSVSUMMEKURZ AGVL12 SOLLBRUTTO3 AGVL22 AGKVVOLLKUG AGVL32
 AGKVZUVOLLKUG AGVL42 AGPVVOLLKUG AGVL52 AGRVVOLLKUG AGVL62 AGAVVOLLKUG AGVL72 AGUMLAGESUMMEVOLL3 AGVL82 AGGESSUMMEVOLLKUG AGKL12
 ISTBRUTTO3 AGKL22 AGKVKURZKUG AGKL32
 AGKVZUKURZKUG AGKL42 AGPVKURZKUG AGKL52 AGRVKURZKUG AGKL62 AGAVKURZKUG AGKL72 AGUMLAGESUMMEKURZ3 AGKL82 AUFSTOCKUNGKURZ3 AGKL92 AGSVSUMMEKURZ3 AGKL102 AGKUGSVFEIERTAGE3 AGKL112 AGGESSUMMEKURZKUG KUGLS1
 RECHLSATZVOLL KUGLS2
 RECHLSATZKURZ KUGRV RVGRUNDLAGE KUGKV KVGRUNDLAGE UMLINFO
 UMLAGEINFO CAPTION	 KUG_DRUCK Click,     1 r Q A   A 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111  A 2                             )   W                        textbox      textbox      AGumlagesummevoll3      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 569
TabIndex = 121
Top = 515
Width = 67
DisabledForeColor = 0,0,0
Name = "AGumlagesummevoll3"
      label      label      Label53      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ Umlagesumme"
Height = 20
Left = 423
Top = 518
Width = 112
TabIndex = 76
Name = "Label53"
      label      label      Label54      FORM1      Caption = "Bezug in Monaten"
Enabled = .F.
Height = 17
Left = 531
Top = 675
Visible = .F.
Width = 102
TabIndex = 5
Name = "Label54"
      checkbox      checkbox      u1pflichtig      FORM1      tTop = 537
Left = 177
Height = 16
Width = 33
Alignment = 0
Caption = "U1"
TabIndex = 44
Name = "u1pflichtig"
      PROCEDURE InteractiveChange
IF this.Value > 0
	thisform.umlage_u1.enabled = .t.
ELSE
	thisform.umlage_u1.enabled = .f.
endif		
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click

ENDPROC
         l  l                        qk   %          #  
               U  t  %    %  T   a >  T   -  T   - T   -
     U	  THIS VALUE THISFORM	 UMLAGE_U1 ENABLED COMMAND1 COMMAND2 COMMAND3 CLICK InteractiveChange,     1 A A  2                              )   l                        checkbox      checkbox      u2pflichtig      FORM1      tTop = 537
Left = 222
Height = 16
Width = 33
Alignment = 0
Caption = "U2"
TabIndex = 45
Name = "u2pflichtig"
      PROCEDURE InteractiveChange
IF this.Value > 0
	thisform.umlage_u2.enabled = .t.
ELSE
	thisform.umlage_u2.enabled = .f.
endif	
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click
ENDPROC
         l  l                        qk   %          #  
               U  t  %    %  T   a >  T   -  T   - T   -
     U	  THIS VALUE THISFORM	 UMLAGE_U2 ENABLED COMMAND1 COMMAND2 COMMAND3 CLICK InteractiveChange,     1 A A  1                              )   l                        checkbox      checkbox      u3pflichtig      FORM1      tTop = 536
Left = 262
Height = 16
Width = 33
Alignment = 0
Caption = "U3"
TabIndex = 46
Name = "u3pflichtig"
      PROCEDURE InteractiveChange
IF this.Value > 0
	thisform.umlage_u3.enabled = .t.
ELSE
	thisform.umlage_u3.enabled = .f.
endif	
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
thisform.command3.click
ENDPROC
         l  l                        qk   %          #  
               U  t  %    %  T   a >  T   -  T   - T   -
     U	  THIS VALUE THISFORM	 UMLAGE_U3 ENABLED COMMAND1 COMMAND2 COMMAND3 CLICK InteractiveChange,     1 A A  1                              )   l                        label      label      Label55      FORM1      rCaption = "Pflicht. U1, U2, U3"
Height = 16
Left = 53
Top = 539
Width = 104
TabIndex = 12
Name = "Label55"
      label      label      Label56      FORM1      lCaption = "Anz. Feiertage"
Height = 17
Left = 75
Top = 104
Width = 83
TabIndex = 11
Name = "Label56"
      textbox      textbox      Anzfeiertage      FORM1      Alignment = 3
Value = 0
Format = "99"
Height = 22
InputMask = "99"
Left = 177
SelectOnEntry = .T.
TabIndex = 27
Top = 100
Width = 77
Name = "Anzfeiertage"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        textbox      textbox      feiertagssteuer      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 739
TabIndex = 130
Top = 89
Width = 77
DisabledForeColor = 0,0,0
Name = "feiertagssteuer"
      label      label      Label41      FORM1      FontBold = .T.
FontSize = 10
Caption = "- Feiertagssteuern"
Height = 19
Left = 420
Top = 90
Width = 118
TabIndex = 68
Name = "Label41"
      label      label      Label45      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KUG+SV f. Feiertage"
Height = 20
Left = 384
Top = 583
Width = 151
TabIndex = 54
Name = "Label45"
      textbox      textbox      AGKUGSVfeiertage3      FORM1      FontBold = .F.
FontSize = 10
Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 748
TabIndex = 126
Top = 581
Width = 67
DisabledForeColor = 0,0,0
Name = "AGKUGSVfeiertage3"
      label      label      
umlageinfo      FORM1      AutoSize = .T.
WordWrap = .T.
Caption = "inkl. 0,00 f. KUG Feiertage"
Height = 32
Left = 819
Top = 512
Visible = .F.
Width = 83
TabIndex = 156
Name = "umlageinfo"
      label      label      Label10      FORM1      rCaption = "KV Beitrag / Zusatz"
Height = 16
Left = 54
Top = 307
Width = 110
TabIndex = 17
Name = "Label10"
      textbox      textbox      Kvzusatzbeitrag      FORM1      Alignment = 3
Value = 0.9
Format = "99.99"
Height = 22
InputMask = "99.99"
Left = 250
SelectOnEntry = .T.
TabIndex = 32
Top = 303
Width = 45
Name = "Kvzusatzbeitrag"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        label      label      Label13      FORM1      Caption = "priv. AN KV PV Beitrge"
Height = 16
Left = 32
Top = 332
Visible = .F.
Width = 129
TabIndex = 7
Name = "Label13"
      textbox      textbox      anpkpv      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 179
SelectOnEntry = .T.
TabIndex = 33
Top = 328
Visible = .F.
Width = 77
Name = "anpkpv"
     PROCEDURE Valid
*!*	IF this.Value / 2 <= thisform.kvagzuschuss.Value
*!*		thisform.kvagzuschuss.Value = ROUND(this.Value / 2,2)
*!*	ELSE
*!*		thisform.kvagzuschuss.Value = ((thisform.sollbrutto.Value / 100) * ((thisform.kvbeitrag.value + thisform.kvzusatzbeitrag.Value) / 2))
*!*	ENDIF
*!*	RETURN .t.
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       W                )   C                        textbox      textbox      KVAGzuschuss      FORM1      Alignment = 3
Value = 0.00
Enabled = .F.
Format = "99999.99"
Height = 22
InputMask = "99999.99"
Left = 287
SelectOnEntry = .T.
TabIndex = 34
ToolTipText = "maximaler Zuschuss"
Top = 328
Visible = .F.
Width = 77
Name = "KVAGzuschuss"
      label      label      Label57      FORM1      qCaption = "AG"
Height = 18
Left = 266
Top = 331
Visible = .F.
Width = 21
TabIndex = 157
Name = "Label57"
      textbox      textbox      	kvbeitrag      FORM1      Alignment = 3
Value = 14.6
Format = "99.99"
Height = 22
InputMask = "99.99"
Left = 180
SelectOnEntry = .T.
TabIndex = 31
Top = 303
Width = 45
Name = "kvbeitrag"
      PROCEDURE Valid
thisform.command3.click
RETURN .t.
ENDPROC
PROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
     \    C  C                           %                             U   
      Ba U  THISFORM COMMAND3 CLICK%  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 Valid,      InteractiveChangeb     1  q 2 1                       4         \          )   C                        label      label      Label58      FORM1      cCaption = " / "
Height = 15
Left = 233
Top = 308
Width = 12
TabIndex = 158
Name = "Label58"
      label      label      Label59      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV AG Zuschuss"
Height = 20
Left = 421
Top = 156
Visible = .F.
Width = 117
TabIndex = 84
Name = "Label59"
      label      label      Label60      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV AG Zuschlag"
Height = 20
Left = 420
Top = 178
Visible = .F.
Width = 120
TabIndex = 65
Name = "Label60"
      label      label      Label61      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ PV AG Zuschuss"
Height = 20
Left = 420
Top = 200
Visible = .F.
Width = 126
TabIndex = 78
Name = "Label61"
      label      label      Label62      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV AG Zuschuss"
Height = 22
Left = 418
Top = 406
Visible = .F.
Width = 117
TabIndex = 86
Name = "Label62"
      label      label      Label63      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ KV AG Zuschlag"
Height = 20
Left = 418
Top = 429
Visible = .F.
Width = 120
TabIndex = 66
Name = "Label63"
      label      label      Label64      FORM1      FontBold = .T.
FontSize = 10
Caption = "+ PV AG Zuschuss"
Height = 20
Left = 418
Top = 451
Visible = .F.
Width = 126
TabIndex = 80
Name = "Label64"
      
commandbutton      
commandbutton      Command4      FORM1      Top = 589
Left = 318
Height = 35
Width = 49
Picture = icons\exit.ico
Cancel = .T.
Caption = ""
TabIndex = 155
ToolTipText = "schliet das Fenster ohne zu spichern"
Name = "Command4"
     @PROCEDURE Click
IF .not. ok("Wirklich beenden?"+CHR(13)+"Daten werden nicht gespeichert!")
	RETURN
ENDIF

select kug_namen
*IF ok("Daten Speichern ?")
	IF RECCOUNT() = 0
		APPEND BLANK
		FLUSH
	ELSE
		GOTO 1
	ENDIF
	replace kennung WITH thisform.kennung.value
	replace sollbrutto WITH thisform.sollbrutto.value
	replace istbrutto WITH thisform.istbrutto.value
	replace zeitraum  WITH thisform.zeitraum.value
	replace aufstock WITH thisform.aufstockung.value
	replace anzfeier WITH thisform.anzfeiertage.value
	replace stkl WITH thisform.stkl.value
	replace stkl4fakt WITH thisform.klasseIV_faktor.value
	replace kvart WITH thisform.kvart.value
	replace kvbeitrag WITH thisform.kvbeitrag.value
	replace kvzuschlag WITH thisform.kvzusatzbeitrag.value
	replace anpkpv WITH thisform.anpkpv.value
	replace anzkinder WITH thisform.anzkinderfrei.value
	replace pvzuschlag WITH IIF(EMPTY(thisform.mitpvzuschlag.value),0,1)
	replace pvsachsen WITH IIF(EMPTY(thisform.pvsachsen.value),0,1)
	replace religion WITH IIF(EMPTY(thisform.religion.value),0,1)
	replace kirchsteu WITH thisform.kirchensteuer.value
	replace versbegin WITH thisform.versorgungsbeginn.value
	replace freibetrag WITH thisform.freibetrag.value
	replace hinzurech WITH thisform.hinzurechbetrag.value
	replace anzkinder WITH thisform.anzkinderfrei.value
	replace west WITH IIF(EMPTY(thisform.west.value),0,1)
	replace u1pflicht WITH IIF(EMPTY(thisform.u1pflichtig.value),0,1)
	replace u2pflicht WITH IIF(EMPTY(thisform.u2pflichtig.value),0,1)
	replace u3pflicht WITH IIF(EMPTY(thisform.u3pflichtig.value),0,1)
	replace umlage_u1 WITH thisform.umlage_u1.value
	replace umlage_u2 WITH thisform.umlage_u2.value
	replace umlage_u3 WITH thisform.umlage_u3.value
	replace azubi WITH thisform.azubi.value
	replace sollberech WITH thisform.sollberechnung.value
	replace VL1    with thisform.sollbrutto2.value
	replace VL2    with thisform.volllst.value
	replace VL3    with thisform.solivoll.value
	replace VL4    with thisform.kirchstvoll.value
	replace VL5    with thisform.ANkvvoll.value
	replace VL6    with thisform.ANkvzuvoll.value
	replace VL7    with thisform.ANpvvoll.value
	replace VL8    with thisform.ANrvvoll.value
	replace VL9    with thisform.ANavvoll.value
	replace VL10   with thisform.vollnetto.value
	replace AGVL1  with thisform.AGkvvoll.value
	replace AGVL2  with thisform.AGkvzuvoll.value
	replace AGVL3  with thisform.AGpvvoll.value
	replace AGVL4  with thisform.AGrvvoll.value
	replace AGVL5  with thisform.AGavvoll.value
	replace AGVL6  with thisform.AGsvsummevoll.value
	replace KL1    with thisform.istbrutto2.value
	replace KL2    with thisform.istlst.value
	replace KL3    with thisform.feiertagssteuer.value
	replace KL4    with thisform.solikurz.value
	replace KL5    with thisform.kirchstkurz.value
	replace KL6    with thisform.ANkvkurz.value
	replace KL7    with thisform.ANkvzukurz.value
	replace KL8    with thisform.ANpvkurz.value
	replace KL9    with thisform.ANrvkurz.value
	replace KL10   with thisform.ANavkurz.value
	replace KL11   with thisform.kurzgeld.value
	replace KL12   with thisform.aufstockungkurz2.value
	replace KL13   with thisform.istnetto.value
	replace AGKL1  with thisform.AGkvkurz.value
	replace AGKL2  with thisform.AGkvzukurz.value
	replace AGKL3  with thisform.AGpvkurz.value
	replace AGKL4  with thisform.AGrvkurz.value
	replace AGKL5  with thisform.AGavkurz.value
	replace AGKL6  with thisform.AGsvsummekurz.value
	replace AGVL12 with thisform.sollbrutto3.value
	replace AGVL22 with thisform.AGkvvollkug.value 
	replace AGVL32 with thisform.AGkvzuvollkug.value  
	replace AGVL42 with thisform.AGpvvollkug.value  
	replace AGVL52 with thisform.AGrvvollkug.value  
	replace AGVL62 with thisform.AGavvollkug.value  
	replace AGVL72 with thisform.AGumlagesummevoll3.value  
	replace AGVL82 with thisform.AGgessummevollkug.value  
	replace AGKL12 with thisform.istbrutto3.value  
	replace AGKL22 with thisform.AGkvkurzkug.value  
	replace AGKL32 with thisform.AGkvzukurzkug.value  
	replace AGKL42  with thisform.AGpvkurzkug.value 
	replace AGKL52  with thisform.AGrvkurzkug.value 
	replace AGKL62  with thisform.AGavkurzkug.value 
	replace AGKL72  with thisform.AGumlagesummekurz3.value 
	replace AGKL82  with thisform.aufstockungkurz3.value 
	replace AGKL92  with thisform.AGsvsummekurz3.value 
	replace AGKL102 with thisform.AGKUGSVfeiertage3.value 
	replace AGKL112 with thisform.AGgessummekurzkug.value 
	replace kugls1  with thisform.rechlsatzvoll.value 
	replace kugls2  with thisform.rechlsatzkurz.value 
	replace kugrv with rvgrundlage 
	replace kugkv with kvgrundlage	
	replace umlinfo  with IIF(thisform.anzfeiertage.value > 0,thisform.umlageinfo.caption,"")
	FLUSH
*ENDIF
kug_open = .f.
*SET SYSMENU on

SELECT 116
use

SELECT kug_namen
USE

thisform.release
myform1.visible = .t.

ENDPROC
                                      %           m               U  L %C Wirklich beenden?C
  Daten werden nicht gespeichert!  
P  B  F  %CN t   [  	 #  >     >     >     >     >  	   >
     >     >
     >     >     >     >     >    # > CC      6# > CC      6# > CC      6 >     >     >     >      >    # >! CC !     6# >" CC #     6# >$ CC %     6# >& CC '     6 >(  (   >)  )   >*  *   >+  +   >,  -   >.  /   >0  1   >2  3   >4  5   >6  7   >8  9   >:  ;   ><  =   >>  ?   >@  A   >B  C   >D  E   >F  G   >H  I   >J  K   >L  M   >N  O   >P  Q   >R  S   >T  U   >V  W   >X  Y   >Z  [   >\  ]   >^  _   >`  a   >b  c   >d  e   >f  g   >h  i   >j  k   >l  m   >n  o   >p  q   >r  s   >t  u   >v  w   >x  y   >z  {   >|  }   >~     >     >     >     >     >     >     >     >     >     >     >     >     >     >     >    
 >  
 >  + > C           6 [ T - Ft  Q F  Q
    T  a U  OK	 KUG_NAMEN KENNUNG THISFORM VALUE
 SOLLBRUTTO	 ISTBRUTTO ZEITRAUM AUFSTOCK AUFSTOCKUNG ANZFEIER ANZFEIERTAGE STKL	 STKL4FAKT KLASSEIV_FAKTOR KVART	 KVBEITRAG
 KVZUSCHLAG KVZUSATZBEITRAG ANPKPV	 ANZKINDER
 ANZKINDERFREI
 PVZUSCHLAG
 MITPVZUSCHLAG	 PVSACHSEN RELIGION	 KIRCHSTEU
 KIRCHENSTEUER	 VERSBEGIN VERSORGUNGSBEGINN
 FREIBETRAG	 HINZURECH HINZURECHBETRAG WEST	 U1PFLICHT U1PFLICHTIG	 U2PFLICHT U2PFLICHTIG	 U3PFLICHT U3PFLICHTIG	 UMLAGE_U1	 UMLAGE_U2	 UMLAGE_U3 AZUBI
 SOLLBERECH SOLLBERECHNUNG VL1 SOLLBRUTTO2 VL2 VOLLLST VL3 SOLIVOLL VL4 KIRCHSTVOLL VL5 ANKVVOLL VL6
 ANKVZUVOLL VL7 ANPVVOLL VL8 ANRVVOLL VL9 ANAVVOLL VL10	 VOLLNETTO AGVL1 AGKVVOLL AGVL2
 AGKVZUVOLL AGVL3 AGPVVOLL AGVL4 AGRVVOLL AGVL5 AGAVVOLL AGVL6
 AGSVSUMMEVOLL KL1
 ISTBRUTTO2 KL2 ISTLST KL3 FEIERTAGSSTEUER KL4 SOLIKURZ KL5 KIRCHSTKURZ KL6 ANKVKURZ KL7
 ANKVZUKURZ KL8 ANPVKURZ KL9 ANRVKURZ KL10 ANAVKURZ KL11 KURZGELD KL12 AUFSTOCKUNGKURZ2 KL13 ISTNETTO AGKL1 AGKVKURZ AGKL2
 AGKVZUKURZ AGKL3 AGPVKURZ AGKL4 AGRVKURZ AGKL5 AGAVKURZ AGKL6
 AGSVSUMMEKURZ AGVL12 SOLLBRUTTO3 AGVL22 AGKVVOLLKUG AGVL32
 AGKVZUVOLLKUG AGVL42 AGPVVOLLKUG AGVL52 AGRVVOLLKUG AGVL62 AGAVVOLLKUG AGVL72 AGUMLAGESUMMEVOLL3 AGVL82 AGGESSUMMEVOLLKUG AGKL12
 ISTBRUTTO3 AGKL22 AGKVKURZKUG AGKL32
 AGKVZUKURZKUG AGKL42 AGPVKURZKUG AGKL52 AGRVKURZKUG AGKL62 AGAVKURZKUG AGKL72 AGUMLAGESUMMEKURZ3 AGKL82 AUFSTOCKUNGKURZ3 AGKL92 AGSVSUMMEKURZ3 AGKL102 AGKUGSVFEIERTAGE3 AGKL112 AGGESSUMMEKURZKUG KUGLS1
 RECHLSATZVOLL KUGLS2
 RECHLSATZKURZ KUGRV RVGRUNDLAGE KUGKV KVGRUNDLAGE UMLINFO
 UMLAGEINFO CAPTION KUG_OPEN RELEASE MYFORM1 VISIBLE Click,     1 A A r Q A   A 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111  A   A r A   2                       5      )                           label      label      Label65      FORM1      mCaption = "Name oder Kennung"
Height = 17
Left = 38
Top = 9
Width = 120
TabIndex = 2
Name = "Label65"
      textbox      textbox      kennung      FORM1      Enabled = .F.
Height = 22
Left = 178
SelectOnEntry = .T.
TabIndex = 21
ToolTipText = ""
Top = 5
Width = 192
DisabledForeColor = 0,0,0
Name = "kennung"
      hPROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
                                        %   |                          U  %  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 InteractiveChange,     1 1                       ]       )                            label      label      Label66      FORM1      FontBold = .T.
FontSize = 10
Caption = "Gesamtbelastung AG"
Height = 20
Left = 394
Top = 607
Width = 141
TabIndex = 54
Name = "Label66"
      
commandbutton      
commandbutton      Command5      FORM1      bTop = 53
Left = 264
Height = 24
Width = 100
Caption = "Istlohn ermitteln"
Name = "Command5"
      PROCEDURE Click
DO FORM kug_istlohn WITH thisform.sollbrutto.Value TO hsistl

hsistl = rcv(hsistl)

IF EMPTY(hsistl)
	RETURN
ENDIF

thisform.istbrutto.Value = hsistl

thisform.istbrutto.refresh

thisform.command3.click
ENDPROC
         r  r                           %         )  
               U  z !  kug_istlohn(     T C    %C F  B  T    
    
   	  U
  KUG_ISTLOHN THISFORM
 SOLLBRUTTO VALUE HSISTL RCV	 ISTBRUTTO REFRESH COMMAND3 CLICK Click,     1 " A A 2  1                              )   r                        optiongroup      optiongroup      zeitraum      FORM1     *ButtonCount = 3
Value = 1
Enabled = .F.
Height = 28
Left = 652
Top = 629
Width = 193
TabIndex = 24
Visible = .F.
Name = "zeitraum"
Option1.Caption = "1-3 M."
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 55
Option1.Name = "Option1"
Option2.Caption = "4-6 M."
Option2.Height = 17
Option2.Left = 66
Option2.Top = 6
Option2.Width = 54
Option2.Name = "Option2"
Option3.Caption = "ab 7.M."
Option3.Height = 17
Option3.Left = 130
Option3.Top = 6
Option3.Width = 58
Option3.Name = "Option3"
      hPROCEDURE InteractiveChange
thisform.command1.Enabled = .f.
thisform.command2.Enabled = .f.
ENDPROC
                                        %   |                          U  %  T    - T    - U  THISFORM COMMAND1 ENABLED COMMAND2 InteractiveChange,     1 1                       ]       )                            
commandbutton      
commandbutton      zeitrauminfo      FORM1      Top = 631
Left = 494
Height = 23
Width = 31
FontBold = .F.
Caption = "info"
Enabled = .F.
TabIndex = 25
Visible = .F.
ForeColor = 0,0,0
BackColor = 240,240,240
Name = "zeitrauminfo"
      PROCEDURE Click
MESSAGEBOX("1-3 M. = 60% / 67%, 4-6 M. = 70% / 77%, ab 7. M. = 80% / 87%" + CHR(13) +"Falls das Istbrutto grer als 50% des Sollbruttos ist, gilt nur die Stufe 1.",48)
ENDPROC
     L    3  3                        9   %                             U    C< 1-3 M. = 60% / 67%, 4-6 M. = 70% / 77%, ab 7. M. = 80% / 87%C
 M Falls das Istbrutto grer als 50% des Sollbruttos ist, gilt nur die Stufe 1.0x U   Click,     1 !
1                              )   3                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 614
Left = 928
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command6      FORM1      mTop = 29
Left = 264
Height = 21
Width = 100
Anchor = 0
Caption = "Erklrung Brutto"
Name = "Command6"
      6PROCEDURE Click
DO FORM kug_brutto_hilfe

ENDPROC
                                      E   %   ]       r      l             U     kug_brutto_hilfe U  KUG_BRUTTO_HILFE Click,     1 2                       +       )                            
commandbutton      
commandbutton      Command2      FORM1     Top = 589
Left = 118
Height = 35
Width = 39
Picture = prgicons\vorschau.bmp
DisabledPicture = prgicons\vorschau.bmp
Caption = ""
Enabled = .T.
TabIndex = 154
ToolTipText = "Vorschau der Berechnung (erst nachdem berechnet wurde verfgbar)"
Name = "Command2"
     5PROCEDURE Click
SELECT kug_namen
IF RECCOUNT() = 0
	APPEND BLANK
	FLUSH
ELSE
	GOTO 1
endif
replace kennung WITH thisform.kennung.value
replace sollbrutto WITH thisform.sollbrutto.value
replace istbrutto WITH thisform.istbrutto.value
replace zeitraum  WITH thisform.zeitraum.value
replace aufstock WITH thisform.aufstockung.value
replace anzfeier WITH thisform.anzfeiertage.value
replace stkl WITH thisform.stkl.value
replace stkl4fakt WITH thisform.klasseIV_faktor.value
replace kvart WITH thisform.kvart.value
replace kvbeitrag WITH thisform.kvbeitrag.value
replace kvzuschlag WITH thisform.kvzusatzbeitrag.value
replace anpkpv WITH thisform.anpkpv.value
replace anzkinder WITH thisform.anzkinderfrei.value
replace pvzuschlag WITH IIF(EMPTY(thisform.mitpvzuschlag.value),0,1)
replace pvsachsen WITH IIF(EMPTY(thisform.pvsachsen.value),0,1)
replace religion WITH IIF(EMPTY(thisform.religion.value),0,1)
replace kirchsteu WITH thisform.kirchensteuer.value
replace versbegin WITH thisform.versorgungsbeginn.value
replace freibetrag WITH thisform.freibetrag.value
replace hinzurech WITH thisform.hinzurechbetrag.value
replace anzkinder WITH thisform.anzkinderfrei.value
replace west WITH IIF(EMPTY(thisform.west.value),0,1)
replace u1pflicht WITH IIF(EMPTY(thisform.u1pflichtig.value),0,1)
replace u2pflicht WITH IIF(EMPTY(thisform.u2pflichtig.value),0,1)
replace u3pflicht WITH IIF(EMPTY(thisform.u3pflichtig.value),0,1)
replace umlage_u1 WITH thisform.umlage_u1.value
replace umlage_u2 WITH thisform.umlage_u2.value
replace umlage_u3 WITH thisform.umlage_u3.value
replace azubi WITH thisform.azubi.value
replace sollberech WITH thisform.sollberechnung.value
replace VL1    with thisform.sollbrutto2.value
replace VL2    with thisform.volllst.value
replace VL3    with thisform.solivoll.value
replace VL4    with thisform.kirchstvoll.value
replace VL5    with thisform.ANkvvoll.value
replace VL6    with thisform.ANkvzuvoll.value
replace VL7    with thisform.ANpvvoll.value
replace VL8    with thisform.ANrvvoll.value
replace VL9    with thisform.ANavvoll.value
replace VL10   with thisform.vollnetto.value
replace AGVL1  with thisform.AGkvvoll.value
replace AGVL2  with thisform.AGkvzuvoll.value
replace AGVL3  with thisform.AGpvvoll.value
replace AGVL4  with thisform.AGrvvoll.value
replace AGVL5  with thisform.AGavvoll.value
replace AGVL6  with thisform.AGsvsummevoll.value
replace KL1    with thisform.istbrutto2.value
replace KL2    with thisform.istlst.value
replace KL3    with thisform.feiertagssteuer.value
replace KL4    with thisform.solikurz.value
replace KL5    with thisform.kirchstkurz.value
replace KL6    with thisform.ANkvkurz.value
replace KL7    with thisform.ANkvzukurz.value
replace KL8    with thisform.ANpvkurz.value
replace KL9    with thisform.ANrvkurz.value
replace KL10   with thisform.ANavkurz.value
replace KL11   with thisform.kurzgeld.value
replace KL12   with thisform.aufstockungkurz2.value
replace KL13   with thisform.istnetto.value
replace AGKL1  with thisform.AGkvkurz.value
replace AGKL2  with thisform.AGkvzukurz.value
replace AGKL3  with thisform.AGpvkurz.value
replace AGKL4  with thisform.AGrvkurz.value
replace AGKL5  with thisform.AGavkurz.value
replace AGKL6  with thisform.AGsvsummekurz.value
replace AGVL12 with thisform.sollbrutto3.value
replace AGVL22 with thisform.AGkvvollkug.value 
replace AGVL32 with thisform.AGkvzuvollkug.value  
replace AGVL42 with thisform.AGpvvollkug.value  
replace AGVL52 with thisform.AGrvvollkug.value  
replace AGVL62 with thisform.AGavvollkug.value  
replace AGVL72 with thisform.AGumlagesummevoll3.value  
replace AGVL82 with thisform.AGgessummevollkug.value  
replace AGKL12 with thisform.istbrutto3.value  
replace AGKL22 with thisform.AGkvkurzkug.value  
replace AGKL32 with thisform.AGkvzukurzkug.value  
replace AGKL42  with thisform.AGpvkurzkug.value 
replace AGKL52  with thisform.AGrvkurzkug.value 
replace AGKL62  with thisform.AGavkurzkug.value 
replace AGKL72  with thisform.AGumlagesummekurz3.value 
replace AGKL82  with thisform.aufstockungkurz3.value 
replace AGKL92  with thisform.AGsvsummekurz3.value 
replace AGKL102 with thisform.AGKUGSVfeiertage3.value 
replace AGKL112 with thisform.AGgessummekurzkug.value 
replace kugls1  with thisform.rechlsatzvoll.value 
replace kugls2  with thisform.rechlsatzkurz.value 
replace kugrv with rvgrundlage 
replace kugkv with kvgrundlage
replace umlinfo  with IIF(thisform.anzfeiertage.value > 0,thisform.umlageinfo.caption,"")
FLUSH

*!*	LOCAL loRepPreview, loRepListener
*!*	loRepPreview = NULL

*!*	DO (_ReportPreview) WITH loRepPreview

*!*	loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

*!*	WITH loRepPreview
*!*		.Caption = "Druckvorschau"
*!*		.TopForm = .T.
*!*		.CanvasCount = 1
*!*		.ZoomLevel = 5
*!*		.Width = screenmaxb &&myform1.width + 200
*!*		.height = screenmaxh &&myform1.height + 100
*!*		.top = 0
*!*		.left = 0
*!*		.ToolbarIsVisible = .t.
*!*	ENDWITH 

*!*	loRepPreview.SetExtensionHandler(loExtension)
*!*	loRepListener = NEWOBJECT('ReportListener')
*!*	loRepListener.ListenerType = 1 
*!*	loRepListener.PreviewContainer = loRepPreview

*!*	*REPORT FORM lstrnachweis2 WHILE .not. EOF() NOCONSOLE preview
*!*	*Report Form lstrnachweis2 WHILE .not. EOF() NOCONSOLE OBJECT loRepListener &&Noconsole Preview

*!*	SELECT kug_namen

*!*	REPORT FORM kug_druck NEXT 1 NOCONSOLE OBJECT loRepListener

*!*	RELEASE loRepListener
*!*	RELEASE loRepPreview	

REPORT FORM kug_druck NEXT 1 NOCONSOLE PREVIEW &&TO PRINTER prompt
 
ENDPROC
     p    W  W                        :   %   5        e   D            U  l F   %CN     [ 1 	 #  >     >     >     >     >     >	  
   >     >  
   >     >     >     >     >    # > CC      6# > CC      6# > CC      6 >     >     >     >     >    # >  CC       6# >! CC "     6# ># CC $     6# >% CC &     6 >'  '   >(  (   >)  )   >*  *   >+  ,   >-  .   >/  0   >1  2   >3  4   >5  6   >7  8   >9  :   >;  <   >=  >   >?  @   >A  B   >C  D   >E  F   >G  H   >I  J   >K  L   >M  N   >O  P   >Q  R   >S  T   >U  V   >W  X   >Y  Z   >[  \   >]  ^   >_  `   >a  b   >c  d   >e  f   >g  h   >i  j   >k  l   >m  n   >o  p   >q  r   >s  t   >u  v   >w  x   >y  z   >{  |   >}  ~   >     >     >     >     >     >     >     >     >     >     >     >     >     >     >    
 >  
 >  + > C 
          6 [ ?	 kug_druck9 U 	 KUG_NAMEN KENNUNG THISFORM VALUE
 SOLLBRUTTO	 ISTBRUTTO ZEITRAUM AUFSTOCK AUFSTOCKUNG ANZFEIER ANZFEIERTAGE STKL	 STKL4FAKT KLASSEIV_FAKTOR KVART	 KVBEITRAG
 KVZUSCHLAG KVZUSATZBEITRAG ANPKPV	 ANZKINDER
 ANZKINDERFREI
 PVZUSCHLAG
 MITPVZUSCHLAG	 PVSACHSEN RELIGION	 KIRCHSTEU
 KIRCHENSTEUER	 VERSBEGIN VERSORGUNGSBEGINN
 FREIBETRAG	 HINZURECH HINZURECHBETRAG WEST	 U1PFLICHT U1PFLICHTIG	 U2PFLICHT U2PFLICHTIG	 U3PFLICHT U3PFLICHTIG	 UMLAGE_U1	 UMLAGE_U2	 UMLAGE_U3 AZUBI
 SOLLBERECH SOLLBERECHNUNG VL1 SOLLBRUTTO2 VL2 VOLLLST VL3 SOLIVOLL VL4 KIRCHSTVOLL VL5 ANKVVOLL VL6
 ANKVZUVOLL VL7 ANPVVOLL VL8 ANRVVOLL VL9 ANAVVOLL VL10	 VOLLNETTO AGVL1 AGKVVOLL AGVL2
 AGKVZUVOLL AGVL3 AGPVVOLL AGVL4 AGRVVOLL AGVL5 AGAVVOLL AGVL6
 AGSVSUMMEVOLL KL1
 ISTBRUTTO2 KL2 ISTLST KL3 FEIERTAGSSTEUER KL4 SOLIKURZ KL5 KIRCHSTKURZ KL6 ANKVKURZ KL7
 ANKVZUKURZ KL8 ANPVKURZ KL9 ANRVKURZ KL10 ANAVKURZ KL11 KURZGELD KL12 AUFSTOCKUNGKURZ2 KL13 ISTNETTO AGKL1 AGKVKURZ AGKL2
 AGKVZUKURZ AGKL3 AGPVKURZ AGKL4 AGRVKURZ AGKL5 AGAVKURZ AGKL6
 AGSVSUMMEKURZ AGVL12 SOLLBRUTTO3 AGVL22 AGKVVOLLKUG AGVL32
 AGKVZUVOLLKUG AGVL42 AGPVVOLLKUG AGVL52 AGRVVOLLKUG AGVL62 AGAVVOLLKUG AGVL72 AGUMLAGESUMMEVOLL3 AGVL82 AGGESSUMMEVOLLKUG AGKL12
 ISTBRUTTO3 AGKL22 AGKVKURZKUG AGKL32
 AGKVZUKURZKUG AGKL42 AGPVKURZKUG AGKL52 AGRVKURZKUG AGKL62 AGAVKURZKUG AGKL72 AGUMLAGESUMMEKURZ3 AGKL82 AUFSTOCKUNGKURZ3 AGKL92 AGSVSUMMEKURZ3 AGKL102 AGKUGSVFEIERTAGE3 AGKL112 AGGESSUMMEKURZKUG KUGLS1
 RECHLSATZVOLL KUGLS2
 RECHLSATZKURZ KUGRV RVGRUNDLAGE KUGKV KVGRUNDLAGE UMLINFO
 UMLAGEINFO CAPTION	 KUG_DRUCK Click,     1 q Q A   A 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111  A 02                       *      )   W                        
commandbutton      
commandbutton      Command7      FORM1      Top = 589
Left = 18
Height = 35
Width = 40
Picture = prgicons\table_6206092.png
DisabledPicture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
ToolTipText = "KUG Tabelle anzeigen"
Name = "Command7"
      APROCEDURE Click
DO FORM kug_tabelle
SELECT kug_namen
ENDPROC
                                      8   %   e       |      t             U     kug_tabelle F  U  KUG_TABELLE	 KUG_NAMEN Click,     1 1q 1                       6       )                            
commandbutton      
commandbutton      Command8      FORM1     !Top = 589
Left = 168
Height = 35
Width = 37
Picture = prgicons\arbeitsamt.jpg
DisabledPicture = ..\program files (x86)\microsoft visual foxpro 9\
Caption = ""
Enabled = .T.
TabIndex = 154
ToolTipText = "Link zur Webseite des Arbeitsamtes fr Kurzarbeitergeld"
Name = "Command8"
     PROCEDURE Click


 msglink = "htt"+"ps://www.arbeitsagentur.de/unternehmen/finanziell/kurzarbeitergeldformen/kurzarbeitergeld-anzeige-antrag-berechnung/kurzarbeitergeld-dokumente-hochladen"

public map_url 
map_url=msglink

do shellexec

GoUrl(map_url)
ENDPROC
                                      %   ,      I     ;            U    T   htt٘ ps://www.arbeitsagentur.de/unternehmen/finanziell/kurzarbeitergeldformen/kurzarbeitergeld-anzeige-antrag-berechnung/kurzarbeitergeld-dokumente-hochladen 7 
 T      C    U  MSGLINK MAP_URL	 SHELLEXEC GOURL Click,     1 
r  r  1                             )                           
commandbutton      
commandbutton      Command9      FORM1     Top = 589
Left = 216
Height = 35
Width = 37
Picture = prgicons\download.bmp
DisabledPicture = prgicons\download.bmp
Caption = ""
Enabled = .T.
TabIndex = 154
ToolTipText = "Links vom Arbeitsamt fr Kurzarbeitergeld.. Formulare, etc."
Name = "Command9"
      5PROCEDURE Click


 DO FORM kug_download
ENDPROC
                                      +   %   U       j      d             U     kug_download U  KUG_DOWNLOAD Click,     1 C1                       *       )                            Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
Arial, 1, 10, 6, 16, 13, 34, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
0   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _5RH0W0HXR1353217798 1 53           1.000    0.000    0.00082666.000                 F                                                          0 10   21F 3 3   TF              T    F T               0T               WINDOWS _5RH0W0HXS           9  1                          110521.00    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5RH0W0HXT           9  4                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5RH0W0HXU           9  7                              0.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _5RN128SAE1353616978 5  0       20833.33324687.500 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN12JVNN1353617261 5  0       38958.333 5104.167 1666.66711770.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN12K8R11353617268 5  0       40833.333 5520.833 1666.66711354.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN12KI211353617274 5  0       42500.000 5104.167 1666.66711770.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN0KZDDE1353600494 5  0        7500.00064479.167 1666.667 7708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0KZK821353600499 8  0        7395.83373020.833 1875.000 8020.833                   C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN0Y9XPE1353613168 8  0       7604.16716458.333 1875.00042708.333                   C           -1   -1   -1   -1   -1   -1                    1 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN0YHNED1353613490 5  0       14166.667 3125.000 1666.667 5625.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YHUFP1353613495 5  0       14166.66718437.500 1666.667 6145.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YIDWT1353613507 5  0       14166.66733854.167 1666.667 7500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0YIZHH1353613526 5  0       14166.66750937.500 1666.667 8854.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YJBQB1353613532 5  0       14166.66765729.167 1666.667 7916.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YJO4P1353613542 5  0       17500.000 3125.000 1666.667 4062.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YL8VR1353613580 5  0       17500.00020729.167 1666.667 6562.500                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YLF011353613587 5  0       17500.00034895.833 1666.667 9583.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YLWQ31353613601 5  0       10937.50037708.333 1666.667 6666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0YMRKX1353613618 5  0       10937.500 3125.000 1666.667 8229.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YN2U71353613626 5  0       20729.16729687.500 1666.667 7500.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YNXQF1353613648 5  0       10937.50018020.833 1666.66710104.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YOOKU1353613674 5  0       20729.167 3333.333 1666.667 7708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YP6ZW1353613679 5  0       20729.16716979.167 1666.667 6875.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YPLMK1353613702 5  0       17500.00051354.167 1666.667 9375.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YQQ6A1353613717 5  0       10937.50049895.833 1666.667 1666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YQX0Y1353613719 5  0       10937.50060520.833 1666.667 1666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YR1BE1353613722 5  0       10937.50071041.667 1666.667 1666.667                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN0YSJJM1353613764 5  0       20729.16742395.833 1666.667 9479.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0YSQS61353613765 5  0       20729.16761354.167 1666.66711250.000                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0YUVS41353613816 7  4         9791.667 1770.83313854.16779687.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0YVBNS1353613832 5  0        7500.000 2083.333 2083.33313333.333                               -1   -1   -1   -1   -1   -1                    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN0YZQIY1353613939 5  0       10937.50012083.333 1666.667 3958.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN0Z0DH21353613955 5  0       10937.50012083.333 1666.667 2708.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN0Z0ULG1353613968 5  0       10937.50028958.333 1666.667 6354.167                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN0ZOQH5135361457217  0        10520.83351875.000 2500.000 2395.833                                                                                    1       FFFTF  F       1   F         0             FTT0 0F        WINDOWS _5RN0ZTE8E1353614692 8  0       10833.33354270.833 1875.000 4166.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5RN0ZUWI0135361471317  0        10520.83362708.333 2500.000 2395.833                                                                                    1       FFFTF  F       1   F         0             FTT0 0F        WINDOWS _5RN0ZUWI11353614713 8  0       10833.33365104.167 1875.000 4166.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5RN0ZVOLY135361473317  0        10520.83373437.500 2500.000 2395.833                                                                                    1       FFFTF  F       1   F         0             FTT0 0F        WINDOWS _5RN0ZVOLZ1353614733 8  0       10833.33375833.333 1875.000 4166.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F        WINDOWS _5RN0ZWLCK1353614756 7  4        10416.66770312.500 2812.50010416.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0ZWQKW1353614760 7  4        10416.66759583.333 2812.50010416.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0ZX0RU1353614766 7  4        10416.66749062.500 2812.50010000.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0ZXTJZ1353614787 7  4        10416.66717187.500 2812.50019791.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0ZY8ZT1353614797 7  4        10416.667 2395.833 2812.50014166.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN0ZYW051353614819 8  0       14062.500 9270.833 1875.000 7291.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN0ZZE1L1353614825 8  0       14062.50025416.667 1875.000 6666.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN1000BJ1353614840 8  0       14062.50042083.333 1875.000 6666.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN100TOH1353614861 8  0       14062.50060416.667 1875.000 3541.667                  C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN101N151353614885 5  0       14166.66774375.000 1666.667 4895.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN101TOB1353614886 5  0       14166.66774375.000 1666.667 5208.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN102LQB1353614904 5  0       14166.66774375.000 1666.667 5520.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN102VHF1353614913 5  0       14166.66774375.000 1666.667 5833.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN10398Z1353614922 5  0       14166.66774375.000 1666.667 5520.833                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F        WINDOWS _5RN103J2V1353614928 5  0       14166.66774375.000 1666.667 5833.333                               -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RN10C25V1353615145 5  0      17500.000 8125.000 1666.667 4895.833                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RN10CQVL1353615157 5  0      17500.000 8125.000 1666.667 8750.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RN10DCVA1353615173 5  0      17500.000 8125.000 1666.66711562.500                               -1   -1   -1   -1   -1   -1               	    0 10  1       FFFTF  F          0T                      0FTT0 0F
       WINDOWS _5RN10VZY81353615773 8  0      17395.83328020.833 1875.000 5000.000                 C           -1   -1   -1   -1   -1   -1               
    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN10WU4M1353615786 8  0      17395.83345000.000 1875.000 4479.167                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN10XTIS1353615811 8  0    17395.83361458.333 1875.000 7083.333                 N           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RN1101LU1353615864 7  4        13645.83365104.167 2812.50015625.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN110SD61353615884 7  4        13645.83350104.167 2812.50014479.167                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN1116NM1353615893 7  4        13645.83333229.167 2812.50016354.167                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN111OIE1353615907 7  4        13645.83317812.500 2812.50014895.833                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN112VAY1353615936 7  4        13645.833 2604.167 2812.50014583.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN1140L21353615963 7  4        16979.167 2604.167 2812.50017187.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN114MLK1353615979 7  4        16979.16720416.667 2812.50013333.333                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11525K1353615989 7  4        16979.16734270.833 2812.50015937.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN115BOC1353615996 7  4        16979.16750729.167 2812.50018437.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11716S1353616039 8  0      10833.33344791.667 1875.000 3437.500                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RN117RS1135361605717  0        20312.50012083.333 2500.000 2395.833                                                                                   1       FFFTF  F       1   F         0             FTT0 0F       WINDOWS _5RN118H8F135361607517  0        20312.50025000.000 2500.000 2395.833                                                                                   1       FFFTF  F       1   F         0             FTT0 0F       WINDOWS _5RN1194ZP1353616091 8  0      20625.00037812.500 1875.000 1666.667                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _5RN11FOHR1353616253 7  4        10416.66737395.833 2812.50011250.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11HCGD1353616296 7  4        20208.333 2708.333 2812.50012812.500                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11HULZ1353616308 7  4        20208.33316145.833 2812.50012500.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11I1UJ1353616312 7  4        20208.33329270.833 2812.50011979.167                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11IKW31353616327 8  0     20625.00052708.333 1875.000 7083.333    !             N           -1   -1   -1   -1   -1   -1               "    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RN11JGD51353616347 8  0#  $  20625.00073125.000 1875.000 7083.333    %             N           -1   -1   -1   -1   -1   -1               &    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RN11K3911353616364 7  4        20208.33341770.833 2812.50018541.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11KR8D1353616380 7  4        20208.33360833.333 2812.50020000.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RN11Z9ER1353616744 5  0    '  20729.16739791.667 1666.667 1250.000                               -1   -1   -1   -1   -1   -1               (    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN1238NQ1353616842 5  0    )  10937.50052291.667 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               *    0 10  1       FFFTF  F          0T                      0FTT0 0F+       WINDOWS _5RN123YJ41353616858 5  0    ,  10937.50063229.167 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               -    0 10  1       FFFTF  F          0T                      0FTT0 0F.       WINDOWS _5RN124M0O1353616875 5  0    /  10937.50073958.333 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               0    0 10  1       FFFTF  F          0T                      0FTT0 0F1       WINDOWS _5RN129RI61353617003 5  0    2  20833.33311770.833 1666.667 3125.000                               -1   -1   -1   -1   -1   -1               3    0 10  1       FFFTF  F          0T                      0FTT0 0F4       WINDOWS _5RN12G6IL1353617166 5  0    5  26562.500 2708.333 2083.33313645.833                               -1   -1   -1   -1   -1   -1               6    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN12GOY71353617175 5  0    7  60000.000 2916.667 2083.33312291.667                               -1   -1   -1   -1   -1   -1               8    1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN12HUYP1353617206 5  0    9  26666.66723333.333 1666.667 6354.167                               -1   -1   -1   -1   -1   -1               :    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12I25V1353617211 5  0    ;  26562.50042395.833 1666.667 6770.833                               -1   -1   -1   -1   -1   -1               <    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12IJEF1353617224 5  0    =  29583.33313229.167 1666.667 3645.833                               -1   -1   -1   -1   -1   -1               >    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12IONB1353617228 5  0    ?  31458.333 9375.000 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               @    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12IV111353617235 5  0    A  33333.333 5937.500 1666.66710937.500                               -1   -1   -1   -1   -1   -1               B    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12J5NJ1353617242 5  0    C  35208.333 3854.167 1666.66713020.833                               -1   -1   -1   -1   -1   -1               D    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12JHKF1353617252 5  0    E  37083.333 7708.333 1666.667 9166.667                               -1   -1   -1   -1   -1   -1               F    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12KSFX1353617410 5  0    G  38958.33314166.667 1666.667 2708.333                               -1   -1   -1   -1   -1   -1               H    0 10  1       FFFTF  F          0T                      0FTT0 0FI       WINDOWS _5RN12LAN71353617421 5  0    J  40833.333 8333.333 1666.667 8541.667                               -1   -1   -1   -1   -1   -1               K    0 10  1       FFFTF  F          0T                      0FTT0 0FL       WINDOWS _5RN12LK7D1353617429 5  0    M  42500.00014166.667 1666.667 2708.333                               -1   -1   -1   -1   -1   -1               N    0 10  1       FFFTF  F          0T                      0FTT0 0FO       WINDOWS _5RN12LUCX1353617433 5  0    P  44375.00014166.667 1666.667 2708.333                               -1   -1   -1   -1   -1   -1               Q    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12M0J51353617437 5  0    R  46250.00014166.667 1666.667 2708.333                               -1   -1   -1   -1   -1   -1               S    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12M7GV1353617444 5  0    T  48125.000 7500.000 1666.667 9375.000                               -1   -1   -1   -1   -1   -1               U    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12MEDH1353617448 5  0    V  49895.833 5833.333 1666.66711145.833                               -1   -1   -1   -1   -1   -1               W    1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RN12ML7B1353617454 5  0    X  51770.833 6041.667 1666.66710833.333                               -1   -1   -1   -1   -1   -1               Y    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12MZY51353617460 6           53750.000 2083.333  104.16778333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RN12N1QB1353617466 5  0    Z  54270.833 9583.333 1666.667 7291.667                               -1   -1   -1   -1   -1   -1               [    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RN12NIQT1353617474 6           28958.333 2083.333  104.16778333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RN12P1B91353617522 8  0    \  29479.16722916.667 1875.000 6770.833    ]             C           -1   -1   -1   -1   -1   -1               ^    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RN12PZRA1353617536 8  0    _  31354.16722916.667 1875.000 6770.833    `             C           -1   -1   -1   -1   -1   -1               a    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JN9OI1353664832 8  0    b  35104.16722916.667 1875.000 6770.833    c             C           -1   -1   -1   -1   -1   -1               d    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JNV321353664846 8  0    e  36979.16722916.667 1875.000 6770.833    f             C           -1   -1   -1   -1   -1   -1               g    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JOGIG1353664859 8  0    h  38854.16722916.667 1875.000 6770.833    i             C           -1   -1   -1   -1   -1   -1               j    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JP0CW1353664874 8  0    k  40729.16722916.667 1875.000 6770.833    l             C           -1   -1   -1   -1   -1   -1               m    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JPG9O1353664885 8  0    n  42395.83322916.667 1875.000 6770.833    o             C           -1   -1   -1   -1   -1   -1               p    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JPWCU1353664897 8  0    q  44270.83322916.667 1875.000 6770.833    r             C           -1   -1   -1   -1   -1   -1               s    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JQ7QA1353664904 8  0    t  46145.83322916.667 1875.000 6770.833    u             C           -1   -1   -1   -1   -1   -1               v    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JQRWO1353664917 8  0    w  54270.83322916.667 1875.000 6770.833    x             C           -1   -1   -1   -1   -1   -1               y    1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJQ1353664980 8  0    z  29479.16742395.833 1875.000 6770.833    {             C           -1   -1   -1   -1   -1   -1               |    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJR1353664980 8  0    }  31354.16742395.833 1875.000 6770.833    ~             C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJS1353664980 8  0      35104.16742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJT1353664980 8  0      36979.16742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJU1353664980 8  0      38854.16742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJV1353664980 8  0      40729.16742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJW1353664980 8  0      42395.83342395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJX1353664980 8  0      44270.83342395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JTAJY1353664980 8  0      46145.83342395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JUFI61353665009 8  0      33229.16742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JXC5Y1353665081 8  0      49791.66742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          0T         1       0 1  0TTT0 0F         WINDOWS _5RO0JXZWO1353665098 8  0      51666.66742395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0JYGBJ1353665109 8  0      54270.83342395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K3UI41353665242 8  0      38854.16731250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K3UI51353665242 8  0      40729.16731250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K3UI61353665242 8  0      42395.83331250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K3UI71353665242 8  0      44270.83331250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K5LYJ1353665288 8  0      46145.83331250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K66D91353665305 5  0      36562.50031979.167 2083.333 5104.167                               -1   -1   -1   -1   -1   -1                   1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0K8LD71353665361 8  0      48020.83331250.000 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0K9OF11353665388 7  4        36145.83330520.83314479.167 8125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RO0KABCL1353665403 8  0      38854.16750520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCM1353665403 8  0      40729.16750520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCN1353665403 8  0      42395.83350520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCO1353665403 8  0      44270.83350520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCP1353665403 8  0      46145.83350520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCQ1353665403 5  0      36562.50051250.000 2083.333 5104.167                               -1   -1   -1   -1   -1   -1                   1 12  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KABCR1353665403 8  0      48020.83350520.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KABCS1353665403 7  4        36145.83349791.66714479.167 8125.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RO0KL2QQ1353665672 5  0      60000.00023333.333 1666.667 6354.167                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RO0KL2QR1353665672 5  0      59895.83342395.833 1666.667 6770.833                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RO0KL2QS1353665672 6           62291.667 2083.333  104.16778333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RO0KLOSW1353665687 5  0      62916.66713229.167 1666.667 3645.833                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RO0KLOSX1353665687 8  0      62812.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KLOSY1353665687 8  0      62812.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0KM9181353665702 5  0      64791.667 5104.167 1666.66711770.833                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KM9191353665702 5  0      66666.667 5520.833 1666.66711354.167                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KM91A1353665702 5  0      68541.667 5104.167 1666.66711770.833                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KM91B1353665702 5  0      64791.66713750.000 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KM91C1353665702 5  0      66666.667 7916.667 1666.667 8958.333                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KM91D1353665702 5  0      68541.66713750.000 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F       WINDOWS _5RO0KMO541353665712 5  0      70416.66714166.667 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KMO551353665712 5  0      72291.66714166.667 1666.667 3125.000                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KN7461353665724 5  0      74166.667 6666.667 1666.66710312.500                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KNIXQ1353665733 5  0      76041.667 4895.833 1666.66712083.333                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KO2MM1353665746 5  0      77916.667 2916.667 1666.66713958.333                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KO9MK1353665751 5  0      79791.667 3229.167 1666.66713645.833                               -1   -1   -1   -1   -1   -1                   0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0KQ3JC1353665797 6           82083.333 2083.333  104.16778333.333                               -1   -1   -1   -1   -1   -1    1    8                 0       FFFTF  F                     1             FTF3 0F         WINDOWS _5RO0KRLWA1353665835 5  0      82916.667 3020.833 1666.66713854.167                               -1   -1   -1   -1   -1   -1                   1 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0L2QMP1353666112 8  0      64687.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L2QMQ1353666112 8  0      66562.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L2QMR1353666112 8  0      68437.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L2QMS1353666112 8  0      70312.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L2QMT1353666112 8  0      72187.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L51S21353666168 8  0      74062.50022916.667 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L6C2G1353666200 8  0      64687.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1               	    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L6C2H1353666200 8  0    
  66562.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L6C2I1353666200 8  0    
  68437.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L6C2J1353666200 8  0      70312.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L6C2K1353666200 8  0      72187.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L8HDJ1353666254 8  0      74062.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L99UJ1353666275 8  0      75937.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0L9TOP1353666288 8  0      77812.50042395.833 1875.000 6770.833                 C           -1   -1   -1   -1   -1   -1                   0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0LAEB71353666301 8  0      79687.50042395.833 1875.000 6770.833                  C           -1   -1   -1   -1   -1   -1               !    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0LBNK31353666332 8  0    "  82604.16722916.667 1875.000 6770.833    #             C           -1   -1   -1   -1   -1   -1               $    1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0LBNK41353666332 8  0    %  82604.16742395.833 1875.000 6770.833    &             C           -1   -1   -1   -1   -1   -1               '    1 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0LK0VL1353666680 8  0    (  74062.50049895.833 1875.00021145.833                   C           -1   -1   -1   -1   -1   -1               )    0 10  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F*       WINDOWS _5RO0M1UF61353667113 5  0    +  17500.00069791.667 1666.667 5104.167                               -1   -1   -1   -1   -1   -1               ,    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0M3B081353667149 8  0-  .  17395.83375312.500 1875.000 5104.167                   N           -1   -1   -1   -1   -1   -1               /    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0M4FSK1353667178 7  4        16979.16769583.333 2812.50011250.000                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RO0MET741353667444 5  0    0  30416.66760833.333 1666.66711875.000                               -1   -1   -1   -1   -1   -1               1    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0MGP9Y1353667482 5  0    2  32187.50066979.167 1666.667 9583.333                               -1   -1   -1   -1   -1   -1               3    0 10  1       FFFTF  F          0T                      0FTT0 0F4       WINDOWS _5RO0MH5AC1353667494 5  0    5  32187.50066979.167 1666.667 9583.333                               -1   -1   -1   -1   -1   -1               6    0 10  1       FFFTF  F          0T                      0FTT0 0F7       WINDOWS _5RO0MK4FU1353667584 5  0    8  34375.00061458.333 1666.667 7500.000                               -1   -1   -1   -1   -1   -1               9    0 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS _5RO0MKSJM1353667585 5  0    :  36354.16760937.500 1666.667 8020.833                               -1   -1   -1   -1   -1   -1               ;    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0ML8501353667595 8  0    <  34270.83370000.000 1875.000 6770.833    =             C           -1   -1   -1   -1   -1   -1               >    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0ML8511353667595 8  0    ?  36145.83370000.000 1875.000 6770.833    @             C           -1   -1   -1   -1   -1   -1               A    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0MN3BW1353667641 5  0    B  42187.50064479.167 1666.667 4479.167                               -1   -1   -1   -1   -1   -1               C    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0MNHIG1353667652 5  0    D  44062.50064479.167 1666.667 4479.167                               -1   -1   -1   -1   -1   -1               E    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0MNZKQ1353667664 8  0    F  42083.33370000.000 1875.000 6770.833    G             C           -1   -1   -1   -1   -1   -1               H    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0MNZKR1353667664 8  0    I  43958.33370000.000 1875.000 6770.833    J             C           -1   -1   -1   -1   -1   -1               K    0 10  1 0     FFFTF  F          0T         1       0 1  0FTT0 0F         WINDOWS _5RO0MPW531353667712 5  0    L  40104.16760833.333 1666.66712083.333                               -1   -1   -1   -1   -1   -1               M    0 10  1       FFFTF  F          0T                      0FTT0 0F         WINDOWS _5RO0MQKOP1353667728 7  4        29895.83360208.333 8645.83317916.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _5RO0MQLSF1353667729 7  4        39895.83360208.333 7187.50017916.667                               -1   -1   -1   -1   -1   -1    1    8    0            0       FFFTF  F                     0             FTF3 0F         WINDOWS _7510WP78X1517517307 8  0    N   3125.000 1875.000 1875.00069062.500                   C           -1   -1   -1   -1   -1   -1               P    5 12  1 0     FFFTF  F          0T         0       0 1  0FTT0 0F         WINDOWS _7540RZTC01517709429 5  0    Q  88125.000 3645.833 1666.66753750.000                               -1   -1   -1   -1   -1   -1               S    1 10  1       FFFTF  F          0T                      0FTF3 0F         WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                   T    0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   U    1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                   V    1 10                                                     F               WINDOWS                     23              16.000    5.000   13.000   15.000                                3    0                                   W    0 10                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                   X    5 12                                                     F               WINDOWS                     25   Y  Z                                                       F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Arial                                                         "NEIN"                                                        Arial                                                         kug_namen.pvsachsen = 0                                       "+ KV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV AG Zuschlag"                                            Arial                                                         kug_namen.kvart = 3                                           "+ PV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           
"Druckdatum:"                                                 Arial                                                         date()                                                        Arial                                                         kennung                                                       KUG_NAMEN.kennung                                             Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         
"Aufstockung"                                                 Arial                                                         "Anz. Feiertage"                                              Arial                                                         "Steuerklasse"                                                Arial                                                         "KV-Art"                                                      Arial                                                         "KV-Beitrag"                                                  Arial                                                         "KV-Zus. Beitrag"                                             Arial                                                         "Anz.Kinder"                                                  Arial                                                         "Bundeslnder"                                                Arial                                                         "Kirch.Steuer"                                                Arial                                                         "Zeitraum Monate"                                             Arial                                                         
"PV-Zuschlag"                                                 Arial                                                         "PV-Sachen"                                                   Arial                                                         "priv. KV Beitrag"                                            Arial                                                         "U1"                                                          Arial                                                         "U2"                                                          Arial                                                         "U3"                                                          Arial                                                         "mon. Freibetrag"                                             Arial                                                         "mon. Hinzu.Betrag"                                           Arial                                                         " Grunddaten von"                                             Arial                                                         "WEST"                                                        Arial                                                         kug_namen.west = 1                                            "OST"                                                         Arial                                                         kug_namen.west = 0                                            "12 Monate"                                                   Arial                                                         kug_namen.zeitraum = 1                                        
"ckecker.jpg"..\pc-gehalt\ckecker.jpg"                        kug_namen.u1pflicht = 1                                       kug_namen.umlage_u1                                           "9.999"                                                       Arial                                                         kug_namen.u1pflicht = 1                                       
"ckecker.jpg"..\pc-gehalt\ckecker.jpg"                        kug_namen.u2pflicht = 1                                       kug_namen.umlage_u2                                           "9.999"                                                       Arial                                                         kug_namen.u2pflicht = 1                                       
"ckecker.jpg"..\pc-gehalt\ckecker.jpg"                        kug_namen.u3pflicht = 1                                       kug_namen.umlage_u3                                           "9.999"                                                       Arial                                                         kug_namen.u3pflicht = 1                                       kug_namen.sollbrutto                                          
"99999.99"                                                    Arial                                                         kug_namen.istbrutto                                           
"99999.99"                                                    Arial                                                         kug_namen.aufstock                                            
"99999.99"                                                    Arial                                                         kug_namen.anzfeier                                            "999"                                                         Arial                                                         
"Klasse I"                                                    Arial                                                         kug_namen.stkl = 1                                            "Klasse II"                                                   Arial                                                         kug_namen.stkl = 2                                            "Klasse III"                                                  Arial                                                         kug_namen.stkl = 3                                            "Klasse IV"                                                   Arial                                                         kug_namen.stkl = 4                                            
"Klasse V"                                                    Arial                                                         kug_namen.stkl = 5                                            "Klasse VI"                                                   Arial                                                         kug_namen.stkl = 6                                            	"ges. KV"                                                     Arial                                                         kug_namen.kvart = 1                                           "erm. ges. KV"                                               Arial                                                         kug_namen.kvart = 2                                           "priv. KV AG Zusch."                                          Arial                                                         kug_namen.kvart = 3                                           kug_namen.kvbeitrag                                           "99.999"                                                      Arial                                                         kug_namen.kvzuschlag                                          "99.99"                                                       Arial                                                         anpkpv                                                        KUG_NAMEN.anpkpv                                              
"99999.99"                                                    Arial                                                         kug_namen.anzkinder                                           "999"                                                         Arial                                                         
"ckecker.jpg"..\pc-gehalt\ckecker.jpg"                        kug_namen.pvzuschlag = 1                                      
"ckecker.jpg"..\pc-gehalt\ckecker.jpg"                        kug_namen.pvsachsen = 1                                       kug_namen.kirchsteu                                           "9"                                                           Arial                                                         anpkpv                                                        KUG_NAMEN.freibetrag                                          
"99999.99"                                                    Arial                                                         anpkpv                                                        KUG_NAMEN.hinzurech                                           
"99999.99"                                                    Arial                                                         "%"                                                           Arial                                                         "NEIN"                                                        Arial                                                         kug_namen.u1pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.u2pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.u3pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.pvzuschlag = 0                                      "ARBEITNEHMER"                                                Arial                                                         
"ARBEITGEBER"                                                 Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         "Brutto"                                                      Arial                                                         "- Lohnsteuer"                                                Arial                                                         "- Feiertagssteuern"                                          Arial                                                         "- Solidarittszuschlag"                                      Arial                                                         "- Kirchensteuer"                                             Arial                                                         "- KV"                                                        Arial                                                         kug_namen.kvart < 3                                           "- KV Zuschlag"                                               Arial                                                         kug_namen.kvart < 3                                           "- PV"                                                        Arial                                                         kug_namen.kvart < 3                                           "- RV"                                                        Arial                                                         "- AV"                                                        Arial                                                         
"AG SV-Summe"                                                 Arial                                                         "Kurzarbeitergeld"                                            Arial                                                         "Aufstockung KUG"                                             Arial                                                         "Nettoentgelt"                                                Arial                                                         
kug_namen.VL1                                                 
"99999.99"                                                    Arial Narrow                                                  
kug_namen.VL2                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL3                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL4                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL5                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL6                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL7                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL8                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL9                                                 
"99999.99"                                                    Arial                                                         kug_namen.VL10                                                
"99999.99"                                                    Arial                                                         
kug_namen.KL1                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL2                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL4                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL5                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL6                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL7                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL8                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL9                                                 
"99999.99"                                                    Arial                                                         kug_namen.KL10                                                
"99999.99"                                                    Arial                                                         
kug_namen.KL3                                                 
"99999.99"                                                    Arial                                                         kug_namen.KL11                                                
"99999.99"                                                    Arial                                                         kug_namen.KL12                                                
"99999.99"                                                    Arial                                                         kug_namen.KL13                                                
"99999.99"                                                    Arial                                                         kug_namen.AGVL1                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL2                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL3                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL4                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL5                                               
"99999.99"                                                    Arial                                                         "AG SV"                                                       Arial                                                         kug_namen.AGVL6                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL1                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL2                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL3                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL4                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL5                                               
"99999.99"                                                    Arial                                                         "AG SV"                                                       Arial                                                         kug_namen.AGKL6                                               
"99999.99"                                                    Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         "Brutto"                                                      Arial                                                         kug_namen.AGVL12                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL12                                              
"99999.99"                                                    Arial                                                         "+ KV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV AG Zuschlag"                                            Arial                                                         kug_namen.kvart = 3                                           "+ PV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV"                                                        Arial                                                         kug_namen.kvart < 3                                           "+ KV Zuschlag"                                               Arial                                                         kug_namen.kvart < 3                                           "+ PV"                                                        Arial                                                         kug_namen.kvart < 3                                           "+ RV"                                                        Arial                                                         "+ AV"                                                        Arial                                                         "+ Umlagesumme"                                               Arial                                                         "+ Aufstockung KUG"                                           Arial                                                         "+ SV-Summe Kurzlohn"                                         Arial                                                         "+KUG+SV f. Feiertage"                                        Arial                                                         "Gesamtbelastung AG"                                          Arial                                                         kug_namen.AGVL22                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL32                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL42                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL52                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL62                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL72                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL22                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL32                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL42                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL52                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL62                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL72                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL82                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL92                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL102                                             
"99999.99"                                                    Arial                                                         kug_namen.AGVL82                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL112                                             
"99999.99"                                                    Arial                                                         kug_namen.umlinfo                                             Arial                                                         .not. empty(umlinfo)                                          
"Kl4-Fakt"                                                    Arial                                                         anpkpv                                                        KUG_NAMEN.stkl4fakt                                           Arial                                                         "KUG berechnet aus"                                           Arial                                                         "Leistungssatz 1"                                             Arial                                                         mykug.lsatz1.visible = .t.                                    "Leistungssatz 2"                                             Arial                                                         mykug.lsatz2.visible = .t.                                    "fr Voll-Lohn"                                               Arial                                                         "fr Kurz-Lohn"                                               Arial                                                         kug_namen.kugls1                                              
"99999.99"                                                    Arial                                                         kug_namen.kugls2                                              
"99999.99"                                                    Arial                                                         "RV aus"                                                      Arial                                                         "KV aus"                                                      Arial                                                         kugrv                                                         
"99999.99"                                                    Arial                                                         kugkv                                                         
"99999.99"                                                    Arial                                                         "SV Berechnung aus"                                           Arial                                                         e"Beiblatt zur Gehaltsabrechnung: Kurzarbeitergeld fr " + getmonatsname(zi(1+20))+ " " + welchesjahrc                         Arial                                                         O"Die Berechnung dient nur der Information und ergeht ausdrcklich ohne Gewhr."                                               Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                               DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Arial                                                         "NEIN"                                                        Arial                                                         kug_namen.pvsachsen = 0                                       "+ KV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV AG Zuschlag"                                            Arial                                                         kug_namen.kvart = 3                                           "+ PV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           
"Druckdatum:"                                                 Arial                                                         date()                                                        Arial                                                         kennung                                                       KUG_NAMEN.kennung                                             Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         
"Aufstockung"                                                 Arial                                                         "Anz. Feiertage"                                              Arial                                                         "Steuerklasse"                                                Arial                                                         "KV-Art"                                                      Arial                                                         "KV-Beitrag"                                                  Arial                                                         "KV-Zus. Beitrag"                                             Arial                                                         "Anz.Kinder"                                                  Arial                                                         "Bundeslnder"                                                Arial                                                         "Kirch.Steuer"                                                Arial                                                         "Zeitraum Monate"                                             Arial                                                         
"PV-Zuschlag"                                                 Arial                                                         "PV-Sachen"                                                   Arial                                                         "priv. KV Beitrag"                                            Arial                                                         "U1"                                                          Arial                                                         "U2"                                                          Arial                                                         "U3"                                                          Arial                                                         "mon. Freibetrag"                                             Arial                                                         "mon. Hinzu.Betrag"                                           Arial                                                         " Grunddaten von"                                             Arial                                                         "WEST"                                                        Arial                                                         kug_namen.west = 1                                            "OST"                                                         Arial                                                         kug_namen.west = 0                                            "12 Monate"                                                   Arial                                                         kug_namen.zeitraum = 1                                        &"..\..\..\..\..\pc-gehalt\ckecker.jpg"                        kug_namen.u1pflicht = 1                                       kug_namen.umlage_u1                                           "9.999"                                                       Arial                                                         kug_namen.u1pflicht = 1                                       &"..\..\..\..\..\pc-gehalt\ckecker.jpg"                        kug_namen.u2pflicht = 1                                       kug_namen.umlage_u2                                           "9.999"                                                       Arial                                                         kug_namen.u2pflicht = 1                                       &"..\..\..\..\..\pc-gehalt\ckecker.jpg"                        kug_namen.u3pflicht = 1                                       kug_namen.umlage_u3                                           "9.999"                                                       Arial                                                         kug_namen.u3pflicht = 1                                       kug_namen.sollbrutto                                          
"99999.99"                                                    Arial                                                         kug_namen.istbrutto                                           
"99999.99"                                                    Arial                                                         kug_namen.aufstock                                            
"99999.99"                                                    Arial                                                         kug_namen.anzfeier                                            "999"                                                         Arial                                                         
"Klasse I"                                                    Arial                                                         kug_namen.stkl = 1                                            "Klasse II"                                                   Arial                                                         kug_namen.stkl = 2                                            "Klasse III"                                                  Arial                                                         kug_namen.stkl = 3                                            "Klasse IV"                                                   Arial                                                         kug_namen.stkl = 4                                            
"Klasse V"                                                    Arial                                                         kug_namen.stkl = 5                                            "Klasse VI"                                                   Arial                                                         kug_namen.stkl = 6                                            	"ges. KV"                                                     Arial                                                         kug_namen.kvart = 1                                           "erm. ges. KV"                                               Arial                                                         kug_namen.kvart = 2                                           "priv. KV AG Zusch."                                          Arial                                                         kug_namen.kvart = 3                                           kug_namen.kvbeitrag                                           "99.999"                                                      Arial                                                         kug_namen.kvzuschlag                                          "99.99"                                                       Arial                                                         anpkpv                                                        KUG_NAMEN.anpkpv                                              
"99999.99"                                                    Arial                                                         kug_namen.anzkinder                                           "999"                                                         Arial                                                         &"..\..\..\..\..\pc-gehalt\ckecker.jpg"                        kug_namen.pvzuschlag = 1                                      &"..\..\..\..\..\pc-gehalt\ckecker.jpg"                        kug_namen.pvsachsen = 1                                       kug_namen.kirchsteu                                           "9"                                                           Arial                                                         anpkpv                                                        KUG_NAMEN.freibetrag                                          
"99999.99"                                                    Arial                                                         anpkpv                                                        KUG_NAMEN.hinzurech                                           
"99999.99"                                                    Arial                                                         "%"                                                           Arial                                                         "NEIN"                                                        Arial                                                         kug_namen.u1pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.u2pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.u3pflicht = 0                                       "NEIN"                                                        Arial                                                         kug_namen.pvzuschlag = 0                                      "ARBEITNEHMER"                                                Arial                                                         
"ARBEITGEBER"                                                 Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         "Brutto"                                                      Arial                                                         "- Lohnsteuer"                                                Arial                                                         "- Feiertagssteuern"                                          Arial                                                         "- Solidarittszuschlag"                                      Arial                                                         "- Kirchensteuer"                                             Arial                                                         "- KV"                                                        Arial                                                         kug_namen.kvart < 3                                           "- KV Zuschlag"                                               Arial                                                         kug_namen.kvart < 3                                           "- PV"                                                        Arial                                                         kug_namen.kvart < 3                                           "- RV"                                                        Arial                                                         "- AV"                                                        Arial                                                         
"AG SV-Summe"                                                 Arial                                                         "Kurzarbeitergeld"                                            Arial                                                         "Aufstockung KUG"                                             Arial                                                         "Nettoentgelt"                                                Arial                                                         
kug_namen.VL1                                                 
"99999.99"                                                    Arial Narrow                                                  
kug_namen.VL2                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL3                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL4                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL5                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL6                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL7                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL8                                                 
"99999.99"                                                    Arial                                                         
kug_namen.VL9                                                 
"99999.99"                                                    Arial                                                         kug_namen.VL10                                                
"99999.99"                                                    Arial                                                         
kug_namen.KL1                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL2                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL4                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL5                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL6                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL7                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL8                                                 
"99999.99"                                                    Arial                                                         
kug_namen.KL9                                                 
"99999.99"                                                    Arial                                                         kug_namen.KL10                                                
"99999.99"                                                    Arial                                                         
kug_namen.KL3                                                 
"99999.99"                                                    Arial                                                         kug_namen.KL11                                                
"99999.99"                                                    Arial                                                         kug_namen.KL12                                                
"99999.99"                                                    Arial                                                         kug_namen.KL13                                                
"99999.99"                                                    Arial                                                         kug_namen.AGVL1                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL2                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL3                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL4                                               
"99999.99"                                                    Arial                                                         kug_namen.AGVL5                                               
"99999.99"                                                    Arial                                                         "AG SV"                                                       Arial                                                         kug_namen.AGVL6                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL1                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL2                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL3                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL4                                               
"99999.99"                                                    Arial                                                         kug_namen.AGKL5                                               
"99999.99"                                                    Arial                                                         "AG SV"                                                       Arial                                                         kug_namen.AGKL6                                               
"99999.99"                                                    Arial                                                         "Voll-Lohn"                                                   Arial                                                         "Kurz-Lohn"                                                   Arial                                                         "Brutto"                                                      Arial                                                         kug_namen.AGVL12                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL12                                              
"99999.99"                                                    Arial                                                         "+ KV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV AG Zuschlag"                                            Arial                                                         kug_namen.kvart = 3                                           "+ PV AG Zuschuss"                                            Arial                                                         kug_namen.kvart = 3                                           "+ KV"                                                        Arial                                                         kug_namen.kvart < 3                                           "+ KV Zuschlag"                                               Arial                                                         kug_namen.kvart < 3                                           "+ PV"                                                        Arial                                                         kug_namen.kvart < 3                                           "+ RV"                                                        Arial                                                         "+ AV"                                                        Arial                                                         "+ Umlagesumme"                                               Arial                                                         "+ Aufstockung KUG"                                           Arial                                                         "+ SV-Summe Kurzlohn"                                         Arial                                                         "+KUG+SV f. Feiertage"                                        Arial                                                         "Gesamtbelastung AG"                                          Arial                                                         kug_namen.AGVL22                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL32                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL42                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL52                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL62                                              
"99999.99"                                                    Arial                                                         kug_namen.AGVL72                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL22                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL32                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL42                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL52                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL62                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL72                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL82                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL92                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL102                                             
"99999.99"                                                    Arial                                                         kug_namen.AGVL82                                              
"99999.99"                                                    Arial                                                         kug_namen.AGKL112                                             
"99999.99"                                                    Arial                                                         kug_namen.umlinfo                                             Arial                                                         .not. empty(umlinfo)                                          
"Kl4-Fakt"                                                    Arial                                                         anpkpv                                                        KUG_NAMEN.stkl4fakt                                           Arial                                                         "KUG berechnet aus"                                           Arial                                                         "Leistungssatz 1"                                             Arial                                                         mykug.lsatz1.visible = .t.                                    "Leistungssatz 2"                                             Arial                                                         mykug.lsatz2.visible = .t.                                    "fr Voll-Lohn"                                               Arial                                                         "fr Kurz-Lohn"                                               Arial                                                         kug_namen.kugls1                                              
"99999.99"                                                    Arial                                                         kug_namen.kugls2                                              
"99999.99"                                                    Arial                                                         "RV aus"                                                      Arial                                                         "KV aus"                                                      Arial                                                         kugrv                                                         
"99999.99"                                                    Arial                                                         kugkv                                                         
"99999.99"                                                    Arial                                                         "SV Berechnung aus"                                           Arial                                                         e"Beiblatt zur Gehaltsabrechnung: Kurzarbeitergeld fr " + getmonatsname(zi(1+20))+ " " + welchesjahrc                         Arial                                                         O"Die Berechnung dient nur der Information und ergeht ausdrcklich ohne Gewhr."                                               Arial                                                         Arial                                                         Arial                                                         Arial                                                         Arial Narrow                                                  Arial                                                         dataenvironment                                               _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
                          JFIF  ` `   ZExif  MM *           J        Q       Q      Q              C 		



	
 C  % '"            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? dQ&Cdr9q|U+M-oTf
#rsY_?Ğ)UOp3w >-GPu;PY߽! 9hIQ&~K8VqsI] |4]!k=}?Ѯ_8  w}Hb-L/
b$&P]H=
X<)ZOb(lm,c@  `@'	G\YK|7t`-DhN\
oCQ̥u}C-*N1i?X>\^}&|w?h^Ffh%p;ӏB(fRJkg?(ajʅuiEٟ ͵fq(HFs[J?ٓN g˿~,Wֵ1yp=lUK*gy-*=+hh֚~FH',<WW ۰|+~Mhuk+%pbٸy 4OQոk6e>ˣrw֚ۭ| ot9 [l ":a;}
\6UVnm@s= zAox\``0+[Vߍ-iZ6ȕ(\10tot8;2,}<ҍ(QVj_GFYLu!cw d3AO_Mc5N<Jwgފt%K~e[z.p{HOk	K~5{Q-0={QEUz0seY'	l4$HКƞ#m0 h_Y~?NѠK~iA%̽3@4Q\X\
rN|K7b{_ԡpUA(y JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ?  j߱ÏK&xO~jW@TݴNp3m G	  % ( :	 e    g/ }?ù~jN7uۍξ",c1m%J[*dz:d=o
$O4npNX:
Iok V Oǆ>6Xi)-4V\fp-/h.Wi?0ʤX kƿ ;EphzUyVq,@U9' QE 0B   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _7520KW9JQ1517571485      /  F      ]                                                       WINDOWS _7520KW9JR1517902890                      -                                               WINDOWS _7520KW9JQ1517703329          
  
                                                           WINDOWS _7520KW9JS1517703329l
      
  
  
  
      $  p                                               WINDOWS _7520KW9JT1517703329Y      n                                                             WINDOWS _7520KW9JQ1517704626Y      h  w            g                                               WINDOWS _7520KW9JR1517703329L      Y  f  t                                                             WINDOWS _7520MOKL71517703329          3  @                                                       WINDOWS _7520KW9JS1517703329W      d  q                                                               WINDOWS _7520KW9JT1517704626        *  >  K                                                        WINDOWS _7520MOKL51517703329       !  !  !  *!                                                           WINDOWS _7520MOKL61517704626!      !  !  !  !                                                           WINDOWS _7520MOKL71517703329"      "  "  "  "                                                           WINDOWS _7520KW9JQ1517704626R#      a#  p#  #  #      $  a$                                               WINDOWS _7520KW9JR1517703329F%      S%  `%  n%  {%                                                           WINDOWS _7520KW9JS1517704626&      &   &  9&  F&                                                           WINDOWS _7520KW9JT1517703329&      &  
'  '  %'                                                           WINDOWS _7520KW9JQ1517704626'      '  '  '  '                                                           WINDOWS _7520KW9JQ1517834929z(      (  (  (  (      V)  +                                               WINDOWS _7520NZ0381517834929.      *.  ?.  Q.  ^.      .  2                                               WINDOWS _7520KW9JQ15177033294      4  4  4  4                                                           WINDOWS _7520KW9JQ1517704626"5      15  @5  S5  `5      5  36                                               WINDOWS _7520KW9JR15177033297      %7  27  @7  M7                                                           WINDOWS _7520O6IAE15177033297      7  7  7  7                                                           WINDOWS _7520O6IAF15177046268      8  8  8  8      Y9  9                                               WINDOWS _7520O6IAG1517703329:      :  :  :  :                                                           WINDOWS _7520O6IAH1517704626E;      T;  c;  ;  ;                                                           WINDOWS _7520O6IAI15177033299<      F<  S<  b<  o<                                                           WINDOWS _7520O6IAJ1517704626<      =  =  .=  ;=      =  >                                               WINDOWS _7520O6IAK1517703329>      >  ?  ?  #?                                                           WINDOWS _7520O6IAL1517704626?      ?  ?  ?  ?                                                           WINDOWS _7520O6IAM1517703329@      @  @  @  @                                                           WINDOWS _7520O6IAN1517704626SA      bA  qA  A  A                                                           WINDOWS _7520P9PNL15177046261B      @B  OB  cB  pB      C  `C                                               WINDOWS _7520P9PNM1517703329ED      RD  _D  nD  {D                                                           WINDOWS _7530OANHJ1517703329 E      
E  E  (E  5E                                                           WINDOWS _7520KW9JQ1517703329E      E  E  E  E      WF  K                                               WINDOWS _7520KW9JQ1517703329>O      NO  ^O  lO  yO      P  XU                                               WINDOWS _7520KW9JQ1517703329X      X  Y  Y  Y      Y  ^                                               WINDOWS _7520KW9JQ1517703329d      $d  4d  Bd  Od      d  i                                               WINDOWS _7520KW9JQ1517703329Go      Wo  go  uo  o      p  &u                                               WINDOWS _7520KW9JQ1517703329zz      z  z  z  z      @{  V                                               WINDOWS _7530OANHK1517703329        ʅ  ؅        p                                                 WINDOWS _7520KW9JQ1517703329ܐ                                                                       WINDOWS _7520KW9JQ1517703329                                                                       WINDOWS _7520KW9JQ1517704626$      3  B  O  \        	                                               WINDOWS _7520KW9JR1517704626        $  1  >                                                       WINDOWS _7520KW9JQ1517704626            !        Ϸ                                               WINDOWS _7520KW9JS1517704626̾      ۾            ſ                                                 WINDOWS _7520KW9JT1517704626                                                                   WINDOWS _7520KW9JQ1517704626                    x                                               WINDOWS _7520KW9JR1517704626u                  m  Z                                               WINDOWS _7530URAF41517703329W      l            #  2                                               WINDOWS _7520KW9JR1517703329      ( 7 D                                                          WINDOWS _7530URAF51517703329                                                                  WINDOWS _7530URAF61517703329R     _ l {                                                           WINDOWS _7530URAF71517704626       ! .      $                                              WINDOWS _7530URAF81517704626M     \ k x      0 {                                              WINDOWS _7530URAF91517704626               &                                              WINDOWS _7530URAFA1517704626,     
- - *- 7-     - /4                                              WINDOWS _7530URAFB1517704626X:     g: v: : :     >; A                                              WINDOWS _7530URAFC1517704626G     G G G G     H N                                              WINDOWS _7530URAFD1517704626U     U *U 8U EU     U =\                                              WINDOWS _7540LM1O81517703329fb vb b b b b                                                          COMMENT RESERVED                                \c                                                          c                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Form1      Height = 315
Width = 876
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Istlohn ermitteln"
ControlBox = .F.
ClipControls = .T.
WindowType = 1
Name = "Form1"
     vPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PARAMETERS kugbruttolohn

PUBLIC mykugmaske2
mykugmaske2 = thisform

IF PCOUNT() = 0
	kugbruttolohn = 4000
ENDIF

thisform.bruttolohn.Value = kugbruttolohn

thisform.stundenlohn.Enabled = .f.
thisform.sollstd_voll_2.Enabled = .f.
thisform.fehlstunden_monat_2.Enabled = .f.
thisform.text2.Value = "08:00"
thisform.text3.Value = "08:00"
thisform.text4.Value = "08:00"
thisform.text5.Value = "08:00"
thisform.text6.Value = "08:00"

thisform.refresh

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

IF thisform.height > mykugmaske1.height 
	thisform.height = mykugmaske1.height - 50
endif
IF thisform.width > mykugmaske1.width 
	thisform.width = mykugmaske1.width - 50
endif
thisform.resize
thisform.AutoCenter = .t.

ENDPROC
PROCEDURE Unload
RETURN thisform.tag
ENDPROC
                                   @   %         %  &               U    C     U  THISFORM SIZER	 FRMRESIZE 4   7 
 T   %Ct :  T    T      T   - T   - T   - T 	   08:00 T 
   08:00 T    08:00 T    08:00 T 
   08:00
    %    < T C    T Q
 T  
     T       T       %     T    2  %     T    2 
    T  a U 
 KUGBRUTTOLOHN MYKUGMASKE2 THISFORM
 BRUTTOLOHN VALUE STUNDENLOHN ENABLED SOLLSTD_VOLL_2 FEHLSTUNDEN_MONAT_2 TEXT2 TEXT3 TEXT4 TEXT5 TEXT6 REFRESH HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH MYKUGMASKE1 RESIZE
 AUTOCENTER  B    U  THISFORM TAG Resize,      Init_      Unload    1 2 q r   A 2   A  rqA qqA   3  1                       ,         G   ;     $   X  k  /    )                           shape      shape      Shape1      Form1      STop = 40
Left = 8
Height = 230
Width = 311
SpecialEffect = 0
Name = "Shape1"
      
commandbutton      
commandbutton      Command1      Form1      iTop = 280
Left = 332
Height = 25
Width = 94
Caption = "abbrechen"
TabIndex = 28
Name = "Command1"
      DPROCEDURE Click
thisform.Tag = "N:0"
thisform.Release

ENDPROC
                                      K]   %   h             w             U     T    N:0
     U  THISFORM TAG RELEASE Click,     1 1 2                       9       )                            
commandbutton      
commandbutton      Command2      Form1      jTop = 280
Left = 450
Height = 25
Width = 94
Caption = "bernehmen"
TabIndex = 29
Name = "Command2"
      PROCEDURE Click
IF thisform.optiongroup1.Value = 1
	thisform.Tag = "N:"+ALLTRIM(STR(thisform.istlohn.value))
ELSE
	thisform.Tag = "N:"+ALLTRIM(STR(thisform.istlohn_2.value))
endif
thisform.Release
ENDPROC
     b    I  I                        d   %                             U  p  %    7   T    N:CC    Z _   T    N:CC    Z 
     U  THISFORM OPTIONGROUP1 VALUE TAG ISTLOHN	 ISTLOHN_2 RELEASE Click,     1 q A  1                              )   I                        textbox      textbox      
bruttolohn      Form1      ~Alignment = 3
Value = 0.00
Enabled = .T.
Height = 22
Left = 211
TabIndex = 8
Top = 88
Width = 93
Name = "bruttolohn"
      CPROCEDURE Valid
thisform.berechnen1.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN1 CLICK Valid,     1  q 2                       8       )                            label      label      Label1      Form1      pCaption = "a) Bruttolohn (Soll)"
Height = 18
Left = 13
Top = 90
Width = 192
TabIndex = 2
Name = "Label1"
      optiongroup      optiongroup      Optiongroup1      Form1     ButtonCount = 2
Value = 1
Height = 20
Left = 10
Top = 17
Width = 614
TabIndex = 1
Name = "Optiongroup1"
Option1.Caption = "Monatsgehalt"
Option1.Value = 1
Option1.Height = 16
Option1.Left = 5
Option1.Top = 2
Option1.Width = 106
Option1.Name = "Option1"
Option2.Caption = "Stundenlohn"
Option2.Height = 16
Option2.Left = 324
Option2.Top = 1
Option2.Width = 106
Option2.Name = "Option2"
     PROCEDURE InteractiveChange
IF this.Value = 1
	thisform.bruttolohn.Enabled = .t.
	thisform.sollstd_voll.Enabled = .t.
	thisform.fehlstunden_monat.Enabled = .t.
	
	thisform.stundenlohn.Enabled = .f.
	thisform.sollstd_voll_2.Enabled = .f.
	thisform.fehlstunden_monat_2.Enabled = .f.
	thisform.check1.Enabled = .f.
	thisform.check2.Enabled = .f.
	thisform.check3.Enabled = .f.
	thisform.check4.Enabled = .f.
	thisform.check5.Enabled = .f.
	thisform.check6.Enabled = .f.
	thisform.check7.Enabled = .f.
ELSE
	thisform.bruttolohn.Enabled = .f.
	thisform.sollstd_voll.Enabled = .f.
	thisform.fehlstunden_monat.Enabled = .f.
	
	thisform.stundenlohn.Enabled = .t.
	thisform.sollstd_voll_2.Enabled = .t.
	thisform.fehlstunden_monat_2.Enabled = .t.
	thisform.check1.Enabled = .t.
	thisform.check2.Enabled = .t.
	thisform.check3.Enabled = .t.
	thisform.check4.Enabled = .t.
	thisform.check5.Enabled = .t.
	thisform.check6.Enabled = .t.
	thisform.check7.Enabled = .t.
endif
ENDPROC
         f  f                        =0   %                          U   %     T   a T   a T   a T   - T   - T 	  - T 
  - T   - T   - T 
  - T   - T   - T   -  T   - T   - T   - T   a T   a T 	  a T 
  a T   a T   a T 
  a T   a T   a T   a  U  THIS VALUE THISFORM
 BRUTTOLOHN ENABLED SOLLSTD_VOLL FEHLSTUNDEN_MONAT STUNDENLOHN SOLLSTD_VOLL_2 FEHLSTUNDEN_MONAT_2 CHECK1 CHECK2 CHECK3 CHECK4 CHECK5 CHECK6 CHECK7 InteractiveChange,     1 A A 1                             )   f                        label      label      Label2      Form1      xCaption = "b) wchentliche Sollstunden"
Height = 16
Left = 13
Top = 118
Width = 192
TabIndex = 3
Name = "Label2"
      textbox      textbox      sollstd_voll      Form1      rAlignment = 3
Value = 0.00
Height = 22
Left = 211
TabIndex = 9
Top = 115
Width = 93
Name = "sollstd_voll"
      CPROCEDURE Valid
thisform.berechnen1.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN1 CLICK Valid,     1  q 2                       8       )                            label      label      Label3      Form1      }Caption = "c) ergibt monatliche Sollstunden"
Height = 16
Left = 13
Top = 146
Width = 192
TabIndex = 4
Name = "Label3"
      textbox      textbox      sollstd_voll_monat      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 211
TabIndex = 10
Top = 143
Width = 93
DisabledForeColor = 0,0,0
Name = "sollstd_voll_monat"
      label      label      Label4      Form1      vCaption = "d) monatliche Fehlstunden"
Height = 16
Left = 13
Top = 174
Width = 192
TabIndex = 5
Name = "Label4"
      textbox      textbox      fehlstunden_monat      Form1      xAlignment = 3
Value = 0.00
Height = 22
Left = 211
TabIndex = 11
Top = 171
Width = 93
Name = "fehlstunden_monat"
      CPROCEDURE Valid
thisform.berechnen1.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN1 CLICK Valid,     1  q 2                       8       )                            label      label      Label5      Form1      Caption = "e) monatliche Ist-Stundendifferenz"
Height = 16
Left = 13
Top = 203
Width = 192
TabIndex = 6
Name = "Label5"
      textbox      textbox      stundendiff_monat      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 211
TabIndex = 12
Top = 200
Width = 93
DisabledForeColor = 0,0,0
Name = "stundendiff_monat"
      label      label      Label6      Form1      sCaption = "Ist-Lohn (= a x e / c)"
Height = 16
Left = 13
Top = 232
Width = 192
TabIndex = 7
Name = "Label6"
      textbox      textbox      istlohn      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 211
TabIndex = 13
Top = 229
Width = 93
DisabledForeColor = 0,0,0
Name = "istlohn"
      
commandbutton      
commandbutton      
berechnen1      Form1      Top = 280
Left = -5
Height = 25
Width = 100
Caption = "berechnen 1"
Enabled = .F.
TabIndex = 30
Visible = .F.
Name = "berechnen1"
     PROCEDURE Click
IF .not. EMPTY(thisform.brUTTOLOHN.Value)
	IF zi(1+4) = 25
		thisform.sollstd_voll_monat.value = ROUND(thisform.sollstd_voll.Value * 4.33,2) &&52 / 12,2) Arbeitsamt wert
	ELSE
		thisform.sollstd_voll_monat.value = ROUND(thisform.sollstd_voll.Value * 4.348,2) &&52 / 12,2) Tarifvertragwert
	endif		
	IF .not. EMPTY(thisform.fehlstunden_monat.Value)
		thisform.stundendiff_monat.Value = thisform.sollstd_voll_monat.value - thisform.fehlstunden_monat.Value
		thisform.istlohn.Value = ROUND(thisform.bruttolohn.value * thisform.stundendiff_monat.Value / thisform.sollstd_voll_monat.value,2)
		
	ENDIF
endif
ENDPROC
     .                              ^   %           
               U   %C    
  %C U * T    C    RQ@T  * T    C    1Zd@T  %C    
 # T            2 T    C            T   U	  THISFORM
 BRUTTOLOHN VALUE ZI SOLLSTD_VOLL_MONAT SOLLSTD_VOLL FEHLSTUNDEN_MONAT STUNDENDIFF_MONAT ISTLOHN Click,     1 aQ A a1!B A 1                       v      )                           
commandbutton      
commandbutton      
berechnen2      Form1      Top = 284
Left = 583
Height = 25
Width = 100
Caption = "berechnen 2"
Enabled = .F.
TabIndex = 31
Visible = .F.
Name = "berechnen2"
     
PROCEDURE Click
IF .not. EMPTY(thisform.stundenlohn.Value) .and. .not. EMPTY(thisform.sollstd_voll_2.Value)
	IF zi(1+4) = 25
		thisform.sollstd_voll_monat_2.Value = ROUND(thisform.sollstd_voll_2.value * 4.33,2) &&52 / 12,2)
	ELSE
		thisform.sollstd_voll_monat_2.Value = ROUND(thisform.sollstd_voll_2.value * 4.348,2) &&52 / 12,2)
	endif
	thisform.bruttolohn_2.Value = ROUND(thisform.stundenlohn.Value * thisform.sollstd_voll_monat_2.Value,2)
endif
IF .not. EMPTY(thisform.fehlstunden_monat_2.Value)
	thisform.stundendiff_monat_2.Value = thisform.sollstd_voll_monat_2.value - thisform.fehlstunden_monat_2.Value
	thisform.istlohn_2.Value = ROUND(thisform.bruttolohn_2.value * thisform.stundendiff_monat_2.Value / thisform.sollstd_voll_monat_2.value,2)	
ENDIF

ENDPROC
         h  h                           %                          U  9& %C    

 C    
	  %C e * T    C    RQ@T  * T    C    1Zd@T ( T    C        T  %C    
2# T            2 T  	  C            T  U
  THISFORM STUNDENLOHN VALUE SOLLSTD_VOLL_2 ZI SOLLSTD_VOLL_MONAT_2 BRUTTOLOHN_2 FEHLSTUNDEN_MONAT_2 STUNDENDIFF_MONAT_2	 ISTLOHN_2 Click,     1 aQ A A a1!A 2                             )   h                        shape      shape      Shape2      Form1      UTop = 40
Left = 317
Height = 230
Width = 311
SpecialEffect = 0
Name = "Shape2"
      textbox      textbox      stundenlohn      Form1      Alignment = 3
Value = 0.00
Enabled = .T.
Height = 22
Left = 524
TabIndex = 21
Top = 59
Width = 93
Name = "stundenlohn"
      CPROCEDURE Valid
thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       8       )                            label      label      Label7      Form1      sCaption = "a) Brutto-Stundenlohn"
Height = 18
Left = 326
Top = 60
Width = 192
TabIndex = 14
Name = "Label7"
      label      label      Label8      Form1      zCaption = "b) wchentliche Sollstunden "
Height = 16
Left = 326
Top = 90
Width = 201
TabIndex = 16
Name = "Label8"
      textbox      textbox      sollstd_voll_2      Form1      Alignment = 3
Value = 0.00
Format = ""
Height = 22
InputMask = ""
Left = 524
TabIndex = 22
Top = 87
Width = 93
Name = "sollstd_voll_2"
      CPROCEDURE Valid
thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       8       )                            label      label      Label9      Form1      Caption = "c) ergibt monatliche Sollstunden"
Height = 16
Left = 326
Top = 118
Width = 192
TabIndex = 17
Name = "Label9"
      textbox      textbox      sollstd_voll_monat_2      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 524
TabIndex = 23
Top = 115
Width = 93
DisabledForeColor = 0,0,0
Name = "sollstd_voll_monat_2"
      label      label      Label10      Form1      ~Caption = "e) monatliche KUG-Fehlstunden "
Height = 16
Left = 326
Top = 174
Width = 192
TabIndex = 18
Name = "Label10"
      textbox      textbox      fehlstunden_monat_2      Form1      zAlignment = 3
Value = 0.00
Height = 22
Left = 524
TabIndex = 25
Top = 171
Width = 93
Name = "fehlstunden_monat_2"
      CPROCEDURE Valid
thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       8       )                            label      label      Label11      Form1      Caption = "f) monatliche Ist-Stundendifferenz"
Height = 16
Left = 326
Top = 203
Width = 192
TabIndex = 19
Name = "Label11"
      textbox      textbox      stundendiff_monat_2      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 524
TabIndex = 26
Top = 200
Width = 93
DisabledForeColor = 0,0,0
Name = "stundendiff_monat_2"
      label      label      Label12      Form1      vCaption = "Ist-Lohn (= d x f / c)"
Height = 16
Left = 326
Top = 232
Width = 192
TabIndex = 20
Name = "Label12"
      textbox      textbox      	istlohn_2      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 524
TabIndex = 27
Top = 229
Width = 93
DisabledForeColor = 0,0,0
Name = "istlohn_2"
      textbox      textbox      Bruttolohn_2      Form1      Alignment = 3
Value = 0.00
Enabled = .F.
Height = 22
Left = 524
TabIndex = 24
Top = 143
Width = 93
DisabledForeColor = 0,0,0
Name = "Bruttolohn_2"
      CPROCEDURE Valid
thisform.berechnen2.click
RETURN .t.

ENDPROC
                                         %   d       {      s             U   
      Ba U  THISFORM
 BERECHNEN2 CLICK Valid,     1  q 2                       8       )                            label      label      Label13      Form1      }Caption = "d) Bruttolohn Soll ( = a x c)"
Height = 18
Left = 326
Top = 145
Width = 192
TabIndex = 15
Name = "Label13"
      shape      shape      Shape3      Form1      UTop = 40
Left = 626
Height = 230
Width = 237
SpecialEffect = 0
Name = "Shape3"
      checkbox      checkbox      Check1      Form1      Top = 59
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Sonntag"
Enabled = .F.
TabIndex = 32
Name = "Check1"
     RPROCEDURE InteractiveChange

IF EMPTY(this.Value)
	thisform.text1.Enabled = .f.
	thisform.text8.Value = "  :  "
ELSE
	thisform.text1.Enabled = .t.
ENDIF
this.DblClick
*!*	IF .not. EMPTY(thisform.text1.Value) 
*!*		hsxstd = 60 * INT(val(SUBSTR(thisform.text1.Value,1,2))) 
*!*		hsxsmin = INT(val(SUBSTR(thisform.text1.Value,4,2)))
*!*		xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
*!*		hsxgesmin = (hsxstd + hsxsmin) * xmal
*!*		hsxstd = INT(hsxgesmin / 60)
*!*		hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
*!*		hsxmin = hsxgesmin - (hsxstd * 60)
*!*		hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
*!*		thisform.text8.Value = hsxstdc+":"+hsxminc
*!*		thisform.stdrechnen.click
*!*	endif


ENDPROC
PROCEDURE DblClick
IF .not. EMPTY(thisform.text1.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text1.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text1.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text8.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif


ENDPROC
         l  l                           %                          U  e  %C   ;  T   - T      :   T  T   a 
     U  THIS VALUE THISFORM TEXT1 ENABLED TEXT8 DBLCLICKM %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT1 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT8
 STDRECHNEN CLICK InteractiveChange,      DblClick     1 " A   1 a1a1aaa A 3                            
   #  G      )   l                        checkbox      checkbox      Check2      Form1      Top = 87
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Monntag"
Enabled = .F.
TabIndex = 33
Name = "Check2"
     MPROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text2.Enabled = .f.
	thisform.text9.Value = "  :  "
ELSE
	thisform.text2.Enabled = .t.
ENDIF
this.DblClick

*!*	IF .not. EMPTY(thisform.text2.Value) 
*!*		hsxstd = 60 * INT(val(SUBSTR(thisform.text2.Value,1,2))) 
*!*		hsxsmin = INT(val(SUBSTR(thisform.text2.Value,4,2)))
*!*		xmal = getanzwochentagimmonat("2",monat,welchesjahr)	
*!*		hsxgesmin = (hsxstd + hsxsmin) * xmal
*!*		hsxstd = INT(hsxgesmin / 60)
*!*		hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
*!*		hsxmin = hsxgesmin - (hsxstd * 60)
*!*		hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
*!*		thisform.text9.Value = hsxstdc+":"+hsxminc
*!*		thisform.stdrechnen.click
*!*	endif
ENDPROC
PROCEDURE DblClick
 IF .not. EMPTY(thisform.text2.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text2.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text2.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text9.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
         j  j                           %                          U  e  %C   ;  T   - T      :   T  T   a 
     U  THIS VALUE THISFORM TEXT2 ENABLED TEXT9 DBLCLICKM %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT2 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT9
 STDRECHNEN CLICK InteractiveChange,      DblClick     1 ! A  ? a1a1aaa A 2                             	     B      )   j                        checkbox      checkbox      Check3      Form1      Top = 115
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Dienstag"
Enabled = .F.
TabIndex = 34
Name = "Check3"
     PROCEDURE DblClick
IF .not. EMPTY(thisform.text3.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text3.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text3.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text10.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
PROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text3.Enabled = .f.
	thisform.text10.Value = "  :  "
ELSE
	thisform.text3.Enabled = .t.
ENDIF
IF .not. EMPTY(thisform.text3.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text3.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text3.Value,4,2)))
	xmal = getanzwochentagimmonat("3",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text10.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif
ENDPROC
     L    3  3                           %   k        !               U  M %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT3 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT10
 STDRECHNEN CLICK %C   ;  T   - T      :   T  T   a  %C   
# T <CCC   \g8 T CCC   \g8 T C 3 
   	  T     T C <86 T
 C 

  0CC  Z C  Z6 T   <6 T C 

  0CC  Z C  Z6 T   
  : 
      U  THIS VALUE THISFORM TEXT3 ENABLED TEXT10 HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC
 STDRECHNEN CLICK DblClick,      InteractiveChange    1 a1a1aaa A 3 ! A a1a1aaa A 1                       7        _        )   3                        checkbox      checkbox      Check4      Form1      Top = 144
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Mittwoch"
Enabled = .F.
TabIndex = 35
Name = "Check4"
     PROCEDURE DblClick
IF .not. EMPTY(thisform.text4.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text4.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text4.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text11.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
PROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text4.Enabled = .f.
	thisform.text11.Value = "  :  "
ELSE
	thisform.text4.Enabled = .t.
ENDIF
IF .not. EMPTY(thisform.text4.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text4.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text4.Value,4,2)))
	xmal = getanzwochentagimmonat("4",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text11.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
     L    3  3                           %   k        !               U  M %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT4 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT11
 STDRECHNEN CLICK %C   ;  T   - T      :   T  T   a  %C   
# T <CCC   \g8 T CCC   \g8 T C 4 
   	  T     T C <86 T
 C 

  0CC  Z C  Z6 T   <6 T C 

  0CC  Z C  Z6 T   
  : 
      U  THIS VALUE THISFORM TEXT4 ENABLED TEXT11 HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC
 STDRECHNEN CLICK DblClick,      InteractiveChange    1 a1a1aaa A 3 ! A a1a1aaa A 2                       7        _        )   3                        checkbox      checkbox      Check5      Form1      Top = 171
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Donnerstag"
Enabled = .F.
TabIndex = 36
Name = "Check5"
     PROCEDURE DblClick
IF .not. EMPTY(thisform.text5.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text5.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text5.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text12.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
PROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text5.Enabled = .f.
	thisform.text12.Value = "  :  "
ELSE
	thisform.text5.Enabled = .t.
ENDIF
IF .not. EMPTY(thisform.text5.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text5.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text5.Value,4,2)))
	xmal = getanzwochentagimmonat("5",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text12.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif
ENDPROC
     L    3  3                           %   k        !               U  M %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT5 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT12
 STDRECHNEN CLICK %C   ;  T   - T      :   T  T   a  %C   
# T <CCC   \g8 T CCC   \g8 T C 5 
   	  T     T C <86 T
 C 

  0CC  Z C  Z6 T   <6 T C 

  0CC  Z C  Z6 T   
  : 
      U  THIS VALUE THISFORM TEXT5 ENABLED TEXT12 HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC
 STDRECHNEN CLICK DblClick,      InteractiveChange    1 a1a1aaa A 3 ! A a1a1aaa A 1                       7        _        )   3                        checkbox      checkbox      Check6      Form1      Top = 200
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Freitag"
Enabled = .F.
TabIndex = 37
Name = "Check6"
     PROCEDURE DblClick
IF .not. EMPTY(thisform.text6.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text6.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text6.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text13.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
PROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text6.Enabled = .f.
	thisform.text13.Value = "  :  "
ELSE
	thisform.text6.Enabled = .t.
ENDIF
IF .not. EMPTY(thisform.text6.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text6.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text6.Value,4,2)))
	xmal = getanzwochentagimmonat("6",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text13.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif
ENDPROC
     L    3  3                           %   k        !               U  M %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT6 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT13
 STDRECHNEN CLICK %C   ;  T   - T      :   T  T   a  %C   
# T <CCC   \g8 T CCC   \g8 T C 6 
   	  T     T C <86 T
 C 

  0CC  Z C  Z6 T   <6 T C 

  0CC  Z C  Z6 T   
  : 
      U  THIS VALUE THISFORM TEXT6 ENABLED TEXT13 HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC
 STDRECHNEN CLICK DblClick,      InteractiveChange    1 a1a1aaa A 3 ! A a1a1aaa A 1                       7        _        )   3                        checkbox      checkbox      Check7      Form1      Top = 228
Left = 637
Height = 23
Width = 69
Alignment = 0
Caption = "Samstag"
Enabled = .F.
TabIndex = 38
Name = "Check7"
     PROCEDURE DblClick
IF .not. EMPTY(thisform.text7.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text7.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text7.Value,4,2)))
	xmal = getanzwochentagimmonat("1",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text14.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
PROCEDURE InteractiveChange
IF EMPTY(this.Value)
	thisform.text7.Enabled = .f.
	thisform.text14.Value = "  :  "
ELSE
	thisform.text7.Enabled = .t.
ENDIF
IF .not. EMPTY(thisform.text7.Value) 
	hsxstd = 60 * INT(val(SUBSTR(thisform.text7.Value,1,2))) 
	hsxsmin = INT(val(SUBSTR(thisform.text7.Value,4,2)))
	xmal = getanzwochentagimmonat("7",monat,welchesjahr)	
	hsxgesmin = (hsxstd + hsxsmin) * xmal
	hsxstd = INT(hsxgesmin / 60)
	hsxstdc = IIF(hsxstd < 10,"0"+ALLTRIM(STR(hsxstd,2,0)),STR(hsxstd,2,0))
	hsxmin = hsxgesmin - (hsxstd * 60)
	hsxminc = IIF(hsxmin < 10,"0"+ALLTRIM(STR(hsxmin,2,0)),STR(hsxmin,2,0))
	thisform.text14.Value = hsxstdc+":"+hsxminc
	thisform.stdrechnen.click
endif

ENDPROC
     L    3  3                           %   k        !               U  M %C    
F# T <CCC    \g8 T CCC    \g8 T C 1      T	     T C	 <86 T
 C 

  0CC  Z C  Z6 T 	  <6 T C 

  0CC  Z C  Z6 T  
  
  : 
       U  THISFORM TEXT7 VALUE HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC TEXT14
 STDRECHNEN CLICK %C   ;  T   - T      :   T  T   a  %C   
# T <CCC   \g8 T CCC   \g8 T C 7 
   	  T     T C <86 T
 C 

  0CC  Z C  Z6 T   <6 T C 

  0CC  Z C  Z6 T   
  : 
      U  THIS VALUE THISFORM TEXT7 ENABLED TEXT14 HSXSTD HSXSMIN XMAL GETANZWOCHENTAGIMMONAT MONAT WELCHESJAHR	 HSXGESMIN HSXSTDC HSXMIN HSXMINC
 STDRECHNEN CLICK DblClick,      InteractiveChange    1 a1a1aaa A 3 ! A a1a1aaa A 2                       7        _        )   3                        label      label      Label14      Form1      iCaption = "Arbeitstage"
Height = 16
Left = 638
Top = 22
Width = 68
TabIndex = 46
Name = "Label14"
      label      label      Label15      Form1      cCaption = "HH:MM"
Height = 16
Left = 726
Top = 22
Width = 43
TabIndex = 47
Name = "Label15"
      textbox      textbox      Text1      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 39
Top = 60
Width = 49
Name = "Text1"
     PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check1.DblClick 

RETURN 1
ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK1 DBLCLICK(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      Click     KeyPressQ    1 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   2 Q2  QA 1                            -     I  1   0   h    5    )                           textbox      textbox      Text3      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 41
Top = 116
Width = 49
Name = "Text3"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check3.DblClick 
RETURN 1

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK3 DBLCLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Click,      Validy      KeyPressQ    1 Q2 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3  QA 1                       C         _   I     0   h    5    )                           textbox      textbox      Text4      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 42
Top = 145
Width = 49
Name = "Text4"
     PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check4.DblClick 
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK4 DBLCLICK(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      Click     KeyPressQ    1 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3 Q2  QA 1                            -     I  1   0   h    5    )                           textbox      textbox      Text5      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 43
Top = 172
Width = 49
Name = "Text5"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check5.DblClick 
RETURN 1

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK5 DBLCLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Click,      Validy      KeyPressQ    1 Q2 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3  QA 1                       C         _   I     0   h    5    )                           textbox      textbox      Text6      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 44
Top = 201
Width = 49
Name = "Text6"
     PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check6.DblClick 
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK6 DBLCLICK(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      Click     KeyPressQ    1 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3 Q2  QA 1                            -     I  1   0   h    5    )                           textbox      textbox      Text7      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 45
Top = 229
Width = 49
Name = "Text7"
     PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check7.DblClick 
RETURN 1

ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK7 DBLCLICKH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Click,      Validy      KeyPressQ    1 Q2 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3  QA 1                       C         _   I     0   h    5    )                           textbox      textbox      Text2      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 723
SelectOnEntry = .T.
TabIndex = 40
Top = 88
Width = 49
Name = "Text2"
     PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
thisform.check2.DblClick 
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode = 13
	This.SelStart = 0
	This.SelLength = LEN(This.Text)
endif
ENDPROC
                                   	   %         s  6               U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B  %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gnj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;)n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 
    	 B U  THIS VALUE THISFORM CHECK2 DBLCLICK(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXTH      %  
A  T    T  C  >  U  NKEYCODE
 NSHIFTALTCTRL THIS SELSTART	 SELLENGTH TEXT Valid,      Click     KeyPressQ    1 1 A b!Q A ! A ! A a! A b!Q A ! A ! A a! A   3 Q2  QA 1                            -     I  1   0   h    5    )                           
commandbutton      
commandbutton      
stdrechnen      Form1      {Top = 283
Left = 719
Height = 23
Width = 89
Caption = "stdrechnen"
Enabled = .F.
Visible = .F.
Name = "stdrechnen"
     PROCEDURE Click
hsxgesmin = 0
hsxgesmin2 = 0
FOR hsa = 8 TO 14
	hsfeld = "text" + ALLTRIM(STR(hsa,2,0))
	hsfeld2 = "text" + ALLTRIM(STR(hsa-7,2,0))
	hscheck = "check" + ALLTRIM(STR(hsa-7,2,0))
	IF LEN(ALLTRIM(thisform.&hsfeld..value)) = 5 .and. .not. EMPTY(thisform.&hscheck..value)
		hsstdmin = INT(VAL(SUBSTR(thisform.&hsfeld..value,1,2))) * 60
		hsmin = INT(VAL(SUBSTR(thisform.&hsfeld..value,4,2)))
		hsxgesmin = hsxgesmin + hsstdmin + hsmin
		
		hsstdmin2 = INT(VAL(SUBSTR(thisform.&hsfeld2..value,1,2))) * 60
		hsmin2 = INT(VAL(SUBSTR(thisform.&hsfeld2..value,4,2)))
		hsxgesmin2 = hsxgesmin2 + hsstdmin2 + hsmin2		
	ENDIF
NEXT

hsstdmin = (hsxgesmin / 60)
thisform.sollstd_voll_monat_2.Value = ROUND(hsstdmin,2)
		
hsstdmin2 = (hsxgesmin2 / 60)
thisform.sollstd_voll_2.Value = ROUND(hsstdmin2,2)
		
*!*	hsmin = hsxgesmin - hsstdmin
*!*	hsminc = IIF(hsmin < 10,"0"+ALLTRIM(STR(hsmin,2,0)),STR(hsmin,2,0))
*!*	hsstdminc = IIF(hsstdmin < 10,"0"+ALLTRIM(STR(hsstdmin,2,0)),STR(hsstdmin,2,0))
ENDPROC
                                   '   %   9      r     H            U  x
 T   
 T    ( T  textCC  Z# T  textCC  Z$ T  checkCC  Z` IF LEN(ALLTRIM(thisform.&hsfeld..value)) = 5 .and. .not. EMPTY(thisform.&hscheck..value)A hsstdmin = INT(VAL(SUBSTR(thisform.&hsfeld..value,1,2))) * 60
9 hsmin = INT(VAL(SUBSTR(thisform.&hsfeld..value,4,2)))
 T      C hsstdmin2 = INT(VAL(SUBSTR(thisform.&hsfeld2..value,1,2))) * 60
; hsmin2 = INT(VAL(SUBSTR(thisform.&hsfeld2..value,4,2)))
 T   	    T   < T
   C T T  < T
 
  C T U 	 HSXGESMIN
 HSXGESMIN2 HSA HSFELD HSFELD2 HSCHECK HSSTDMIN HSMIN	 HSSTDMIN2 HSMIN2 THISFORM SOLLSTD_VOLL_MONAT_2 VALUE SOLLSTD_VOLL_2 Click,     1   q1AQ2QA A ""5                             )                           label      label      Label16      Form1      eCaption = "Tagesstd"
Height = 16
Left = 719
Top = 6
Width = 56
TabIndex = 46
Name = "Label16"
      label      label      Label17      Form1      cCaption = "HH:MM"
Height = 16
Left = 792
Top = 22
Width = 43
TabIndex = 47
Name = "Label17"
      label      label      Label18      Form1      fCaption = "Monatsstd"
Height = 16
Left = 783
Top = 6
Width = 61
TabIndex = 46
Name = "Label18"
      textbox      textbox      Text8      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 39
Top = 60
Width = 49
Name = "Text8"
     CPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
     !                                 %   1        0   O            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  2                       C         _   8      )                           textbox      textbox      Text9      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 41
Top = 88
Width = 49
Name = "Text9"
     CPROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
     !                                 %   1        0   O            U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT Valid,      Click    1 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  3 Q1                            -     8  1    )                           textbox      textbox      Text10      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 42
Top = 116
Width = 49
Name = "Text10"
     CPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
     !                                 %   1        0   O            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  2                       C         _   8      )                           textbox      textbox      Text11      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 43
Top = 145
Width = 49
Name = "Text11"
     CPROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
     !                                 %   1        0   O            U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT Valid,      Click    1 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  3 Q1                            -     8  1    )                           textbox      textbox      Text12      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 44
Top = 172
Width = 49
Name = "Text12"
     CPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
     !                                 %   1        0   O            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  2                       C         _   8      )                           textbox      textbox      Text13      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 45
Top = 201
Width = 49
Name = "Text13"
     CPROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
PROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
     !                                 %   1        0   O            U  # %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE(  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT Valid,      Click    1 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  3 Q1                            -     8  1    )                           textbox      textbox      Text14      Form1      FontBold = .T.
Alignment = 2
Enabled = .F.
Format = "99:99"
Height = 22
InputMask = "99:99"
Left = 789
TabIndex = 40
Top = 229
Width = 49
Name = "Text14"
     CPROCEDURE Click
This.SelStart = 0
This.SelLength = LEN(This.Text)
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) .or. ALLTRIM(this.Value) = ":"
	RETURN 1
ENDIF

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

IF LEN(this.value) <> 5
	WAIT WINDOW "Lnge falsch 23:59" TIMEOUT 1
	this.value = "  :  "
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,1,2)) > 23
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf 23:"+SUBSTR(this.Value,4,2),0,"Zeitangabe ist falsch!")
	this.value = "23:"+SUBSTR(this.value,4,2)
	RETURN 0
ENDIF
IF VAL(SUBSTR(this.value,4,2)) > 59
	MESSAGEBOX("Zeitangabe wurde korrigiert von " + this.value + " auf " + SUBSTR(this.Value,1,2) + ":59",0,"Zeitangabe ist falsch!")
	this.value = SUBSTR(this.value,1,2)+":59"
	RETURN 0
ENDIF
IF empty(SUBSTR(this.value,4,2)) .or. SUBSTR(this.value,4,2) $ "0 , 0,"
	this.value = SUBSTR(this.value,1,2)+":00"
	RETURN 1
ENDIF
RETURN 1

ENDPROC
     !                                 %   1        0   O            U  (  T     T   C   > U  THIS SELSTART	 SELLENGTH TEXT# %C    C    :, 	 B  %C   > " R, Lnge falsch 23:59 T      :  	 B   %CC   \g=j C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0,]" T   C   \ :00	 B 	 B %C   >" R, Lnge falsch 23:59 T      :  	 B   %CC   \gwj C  Zeitangabe wurde korrigiert von      auf 23:C   \  Zeitangabe ist falsch!x" T    23:C   \	 B   %CC   \g;2n C  Zeitangabe wurde korrigiert von      auf C   \ :59  Zeitangabe ist falsch!x" T   C   \ :59	 B  6 %CC   \ C   \ 0 , 0," T   C   \ :00	 B 	 B U  THIS VALUE Click,      Validy     1 Q2 1 A b!Q A ! A ! A a! A  b!Q A ! A ! A a! A  2                       C         _   8      )                           mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Form1      Top = 293
Left = 854
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _7560OLOVW1517837206      /  F      ]                                                       WINDOWS _7560OLOVX1518040279                      
                                               WINDOWS _7560OLOVY1517902566                                                                       WINDOWS _7560OWRU51517837482Q      f  {                                                           WINDOWS _7560OWRU61518040279          !  .                                                           WINDOWS _7560OWRU71517837482    .  =  J  W                                                           COMMENT RESERVED                                
                                                            6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      Form1      Height = 306
Width = 774
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Erklrung Bruttolohn bei KUG"
Name = "Form1"
     PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
crlf = CHR(13)+CHR(10)
bruttotext = "Der Berechnung des Kurzarbeitergeldes liegt die Differenz aus dem Ist-Entgelt (tatschliches Bruttoentgelt im Monat der Kurzarbeit)" + crlf
bruttotext = bruttotext + "und dem Soll-Entgelt (beitragspflichtiges Bruttoentgelt, das die Arbeitnehmerinnen bzw. der Arbeitnehmer ohne den Arbeitsausfall" + crlf
bruttotext = bruttotext + "im Anspruchsmonat verdient htte) zugrunde. Als Soll-Entgelt ist daher grundstzlich das regelmige laufende Arbeitsentgelt" + crlf
bruttotext = bruttotext + "im Sinne der Sozialversicherung bis zur Beitragsbemessungsgrenze zu bercksichtigen." + crlf + crlf

bruttotext = bruttotext + "Wie beim Arbeitslosengeld ist damit der Entgeltausfall bis zur Hhe des Entgelts abgesichert, fr das Beitrge entrichtet werden." + crlf
bruttotext = bruttotext + "Liegt auch whrend der Kurzarbeit das erzielte Ist-Entgelt oberhalb der Beitragsbemessungsgrenze, kann daher" + crlf
bruttotext = bruttotext + "kein Kurzarbeitergeld gezahlt werden."
  

thisform.edit1.Value = bruttotext
  
IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)
IF thisform.height > mykugmaske1.height 
	thisform.height = mykugmaske1.height - 50
endif
IF thisform.width > mykugmaske1.width 
	thisform.width = mykugmaske1.width - 50
endif
thisform.resize
thisform.AutoCenter = .t. 
ENDPROC
     s    Z  Z                        8   %                          U    C     U  THISFORM SIZER	 FRMRESIZE T  C
 C
  T ك Der Berechnung des Kurzarbeitergeldes liegt die Differenz aus dem Ist-Entgelt (tatschliches Bruttoentgelt im Monat der Kurzarbeit)   T  ـ und dem Soll-Entgelt (beitragspflichtiges Bruttoentgelt, das die Arbeitnehmerinnen bzw. der Arbeitnehmer ohne den Arbeitsausfall   T  | im Anspruchsmonat verdient htte) zugrunde. Als Soll-Entgelt ist daher grundstzlich das regelmige laufende Arbeitsentgelt  m T  T im Sinne der Sozialversicherung bis zur Beitragsbemessungsgrenze zu bercksichtigen.     T  ف Wie beim Arbeitslosengeld ist damit der Entgeltausfall bis zur Hhe des Entgelts abgesichert, fr das Beitrge entrichtet werden.   T  l Liegt auch whrend der Kurzarbeit das erzielte Ist-Entgelt oberhalb der Beitragsbemessungsgrenze, kann daher  6 T  % kein Kurzarbeitergeld gezahlt werden. T     %     T C    T 
 T  
  	 
  T       T       %    ^ T    2  %     T    2 
  
  T  a U  CRLF
 BRUTTOTEXT THISFORM EDIT1 VALUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH MYKUGMASKE1 RESIZE
 AUTOCENTER Resize,      Init_     1 2 QA	Q		b	a3  A  qqA qqA   1                       ,         G         )   Z                        editbox      editbox      Edit1      Form1      zEnabled = .F.
Height = 248
Left = 18
ReadOnly = .F.
Top = 14
Width = 744
DisabledForeColor = 0,0,0
Name = "Edit1"
      
commandbutton      
commandbutton      Command1      Form1      _Top = 269
Left = 651
Height = 28
Width = 106
Caption = "BMAS Anzeigen"
Name = "Command1"
      PROCEDURE Click
msg = "bmas.de/DE/Service/Corona/Fragen-und-Antworten/Fragen-und-Antworten-KUG/faq-kug-kurzarbeit-und-qualifizierung.html"
DO insinternet
ENDPROC
     D    +  +                        д   %                             U    T  r bmas.de/DE/Service/Corona/Fragen-und-Antworten/Fragen-und-Antworten-KUG/faq-kug-kurzarbeit-und-qualifizierung.html   U  MSG INSINTERNET Click,     1 q 1                              )   +                        label      label      Label1      Form1      FontBold = .T.
Caption = "Ausfhrliche Erklrung zum Kurzarbeitergeld vom Bundesministerium fr Arbeit und Soziales finden Sie hier"
Height = 17
Left = 26
Top = 274
Width = 618
Name = "Label1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      Form1      Top = 284
Left = 758
Width = 16
Height = 21
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _75A0JBWXV1518095117      /  F      ]                                                       WINDOWS _75A0JBWXX1518488341                                                                     WINDOWS _75A0JBWXV1518094486	      	  	  	  
                                                           WINDOWS _75A0JBWXW1518094486                                                                       WINDOWS _75A0JBWXX1518094373Q      `  o  |                                                             WINDOWS _75A0JBWXY1518094486	        %  4  P                                                           WINDOWS _75A0JBWXZ1518094373                                                                       WINDOWS _75A0JBWY01518094486B      P  ^  m                                                             WINDOWS _75A0JBWY11518094373                                                                       WINDOWS _75A0JBWY21518094486                                                                       WINDOWS _75A0JBWY31518094373
        +  8  T                                                           WINDOWS _75A0JBWY41518094486                                                                       WINDOWS _75A0JBWY51518094373N      ]  l  y                                                             WINDOWS _75A0JBWY61518094486        "  1  M                                                           WINDOWS _75A0JBWY71518094373                                                                       WINDOWS _75A0JBWY81518094486H      V  d  s                                                             WINDOWS _75A0JBWY91518094373                                                                       WINDOWS _75A0JBWYA1518094486                                                                       WINDOWS _75A0JBWYB1518094373      #  2  ?  [                                                           WINDOWS _75A0JBWYC1518094486                                                                       WINDOWS _75A0JBWYD1518094373V      e  t                                                               WINDOWS _75A0JGI4G1518094486        *  9  V                                                           WINDOWS _75A0JGI4H1518094486                                                                       WINDOWS _75A0JPSDH1518097562A      T  g  {                                                         WINDOWS _75A0JZ4FC1518094950   *   J   Y   f   s                                                            WINDOWS _75A0K5APO1518098931!      %!  :!  J!  W!      !  
"                                               WINDOWS _75A0KHGGI1518488341"      #  #  )#  6#      #  !*                                               COMMENT RESERVED                                -                                                            -,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Top = 0
Left = 0
Height = 517
Width = 818
ShowWindow = 1
DoCreate = .T.
Caption = "Form1"
WindowType = 0
Name = "FORM1"
     
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init
PUBLIC mykug3
mykug3 = thisform

thisform.Caption = "Kurzarbeitergeldtabelle fr das Jahr " + welchesjahrc

SELECT kug
SET FILTER TO 
GO top

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

IF thisform.height > mykugmaske1.height 
	thisform.height = mykugmaske1.height - 50
endif
IF thisform.width > mykugmaske1.width 
	thisform.width = mykugmaske1.width - 50
ENDIF

thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     4                              /   %   p                       U    C     U  THISFORM SIZER	 FRMRESIZEr 7  
 T   9 T  % Kurzarbeitergeldtabelle fr das Jahr   F  G( #) %      T C    T  
 T  
  	 
  T       T       %    ! T    2  %    S T    2 
  
  T  a U  MYKUG3 THISFORM CAPTION WELCHESJAHRC KUG HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH MYKUGMASKE1 RESIZE
 AUTOCENTER Resize,      Init_     1 2 q  r a Q   A  rqA qqA   2                       ,         G         )                           grid      grid      grdKug      FORM1     ColumnCount = 10
DeleteMark = .F.
Height = 451
Left = 11
ReadOnly = .T.
RecordSource = "kug"
RecordSourceType = 1
Top = 11
Width = 790
Name = "grdKug"
Column1.ControlSource = "kug.von"
Column1.Width = 75
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "kug.bis"
Column2.Width = 75
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "kug.ls"
Column3.Width = 75
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.ControlSource = "kug.kl1"
Column4.Width = 75
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.ControlSource = "kug.kl2"
Column5.Width = 75
Column5.ReadOnly = .T.
Column5.Name = "Column5"
Column6.ControlSource = "kug.kl3"
Column6.Width = 75
Column6.ReadOnly = .T.
Column6.Name = "Column6"
Column7.ControlSource = "kug.kl4"
Column7.Width = 75
Column7.ReadOnly = .T.
Column7.Name = "Column7"
Column8.ControlSource = "kug.kl5"
Column8.Width = 75
Column8.ReadOnly = .T.
Column8.Name = "Column8"
Column9.ControlSource = "kug.kl6"
Column9.Width = 75
Column9.ReadOnly = .T.
Column9.Name = "Column9"
Column10.ControlSource = "kug.ohne_st"
Column10.Width = 75
Column10.ReadOnly = .T.
Column10.Name = "Column10"
      header      header      Header1      FORM1.grdKug.Column1      2Alignment = 1
Caption = "Von"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column2      2Alignment = 1
Caption = "Bis"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column3      ;Alignment = 1
Caption = "Leitungssatz"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column4      :Alignment = 1
Caption = "St.klasse 1"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column4      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column5      :Alignment = 1
Caption = "St.klasse 2"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column5      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column6      ;Alignment = 1
Caption = "St. Klasse 3"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column6      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column7      ;Alignment = 1
Caption = "St. Klasse 4"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column7      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column8      ;Alignment = 1
Caption = "St. Klasse 5"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column8      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column9      ;Alignment = 1
Caption = "St. Klasse 6"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column9      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      FORM1.grdKug.Column10      :Alignment = 1
Caption = "ohne_steuer"
Name = "Header1"
      textbox      textbox      Text1      FORM1.grdKug.Column10      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      optiongroup      optiongroup      Optiongroup1      FORM1     ButtonCount = 3
Value = 1
Height = 32
Left = 12
Top = 474
Width = 267
Name = "Optiongroup1"
Option1.Caption = "Beide"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 7
Option1.Width = 61
Option1.Name = "Option1"
Option2.Caption = "ohne Kinder"
Option2.Height = 17
Option2.Left = 71
Option2.Top = 7
Option2.Width = 91
Option2.Name = "Option2"
Option3.Caption = "mit Kinder"
Option3.Height = 17
Option3.Left = 172
Option3.Top = 7
Option3.Width = 87
Option3.Name = "Option3"
      PROCEDURE InteractiveChange
SELECT kug
DO case
 	CASE this.Value = 1
 		SET FILTER TO 
 	CASE this.Value = 2
 		SET FILTER TO kug.ls = 2
 	CASE this.Value = 3
 		SET FILTER TO kug.ls = 1
 ENDCASE
 GO top
 thisform.refresh
ENDPROC
         g  g                        p   %            
               U    F  
 H z    .  G(   T  G(      z  G(     #)
    U  KUG THIS VALUE LS THISFORM REFRESH InteractiveChange,     1 q  Aa A!A!A Q  1                              )   g                        mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 496
Left = 798
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command1      FORM1      [Top = 475
Left = 685
Height = 27
Width = 109
Caption = "schlieen"
Name = "Command1"
      HPROCEDURE Click
SELECT kug
SET FILTER TO 
thisform.release
ENDPROC
                                         %   b       {      q             U    F   G(
    U  KUG THISFORM RELEASE Click,     1 q a  1                       =       )                            
commandbutton      
commandbutton      Command2      FORM1      YTop = 475
Left = 568
Height = 27
Width = 109
Caption = "drucken"
Name = "Command2"
     PROCEDURE Click
PUBLIC maxwert
maxwert = 0
SELECT kug
kug_rec = RECNO()

DO case
	CASE thisform.optiongroup1.Value = 1
		kuganz = RECCOUNT()
	CASE thisform.optiongroup1.Value = 2
		COUNT FOR kug.ls = 2 TO kuganz
	CASE thisform.optiongroup1.Value = 3
		COUNT FOR kug.ls = 1 TO kuganz
ENDCASE

kugseiten = IIF(kuganz / 46 > INT(kuganz / 46),INT(kuganz / 46) + 1, kuganz / 46)

IF .not. ok("Der Ausdruck ist " + ALLTRIM(STR(kugseiten,2,0)) + " Seiten lang." + CHR(13) + "Wollen Sie wirklich drucken?")
	RETURN
ENDIF

GO bottom
maxwert = kug.von

GO top
REPORT FORM kug_tabelle while .not. EOF() NOCONSOLE TO PRINTER prompt
	
*!*	IF direktzumdruckerQ() = true
*!*		REPORT FORM kug_tabelle while .not. EOF() NOCONSOLE TO PRINTER prompt
*!*	else
*!*		LOCAL loRepPreview, loRepListener
*!*		loRepPreview = NULL

*!*		DO (_ReportPreview) WITH loRepPreview

*!*		loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg")              && Contains the Class defined above

*!*		WITH loRepPreview
*!*			.Caption = "Druckvorschau"
*!*			.TopForm = .T.
*!*			.CanvasCount = 1
*!*			.ZoomLevel = 5
*!*			.Width = screenmaxb &&myform1.width + 200
*!*			.height = screenmaxh &&myform1.height + 100
*!*			.top = 0
*!*			.left = 0
*!*			.ToolbarIsVisible = .t.
*!*		ENDWITH 

*!*		loRepPreview.SetExtensionHandler(loExtension)
*!*		loRepListener = NEWOBJECT('ReportListener')
*!*		loRepListener.ListenerType = 1 
*!*		loRepListener.PreviewContainer = loRepPreview

*!*		SELECT kug
*!*		GO top

*!*		REPORT FORM kug_tabelle WHILE .not. EOF() NOCONSOLE OBJECT loRepListener
*!*	ENDIF

SELECT kug
GOTO kug_rec

ENDPROC
                                   2   %   7      x     F            U   7  
 T    F  T CO
 H4      W  T CN        (         (  7 T C .C .8 C .8  .6h %C Der Ausdruck ist CC  Z
  Seiten lang.C
  Wollen Sie wirklich drucken?	 
V B  #6 T   
  #) ? kug_tabelle(!"9+C+
 F 	 #  U  MAXWERT KUG KUG_REC THISFORM OPTIONGROUP1 VALUE KUGANZ LS	 KUGSEITEN OK VON KUG_TABELLE Click,     1 q  q   q qQqQA rA A R R  q  2                       w      )                           !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0'   
                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               OBJTYPE    N                  OBJCODE    N                  NAME       M"                  EXPR       M&                  VPOS       N*   	              HPOS       N3   	              HEIGHT     N<   	              WIDTH      NE   	              STYLE      MN                  PICTURE    MR                  ORDER      MV                 UNIQUE     LZ                  COMMENT    M[                  ENVIRON    L_                  BOXCHAR    C`                  FILLCHAR   Ca                  TAG        Mb                  TAG2       Mf                 PENRED     Nj                  PENGREEN   No                  PENBLUE    Nt                  FILLRED    Ny                  FILLGREEN  N~                  FILLBLUE   N                  PENSIZE    N                  PENPAT     N                  FILLPAT    N                  FONTFACE   M                  FONTSTYLE  N                  FONTSIZE   N                  MODE       N                  RULER      N                  RULERLINES N                  GRID       L                  GRIDV      N                  GRIDH      N                  FLOAT      L                  STRETCH    L                  STRETCHTOP L                  TOP        L                  BOTTOM     L                  SUPTYPE    N                  SUPREST    N                  NOREPEAT   L                  RESETRPT   N                  PAGEBREAK  L                  COLBREAK   L                  RESETPAGE  L                  GENERAL    N                  SPACING    N                  DOUBLE     L                  SWAPHEADER L                  SWAPFOOTER L                  EJECTBEFOR L                  EJECTAFTER L                  PLAIN      L                  SUMMARY    L                  ADDALIAS   L                  OFFSET     N                  TOPMARGIN  N                  BOTMARGIN  N                  TOTALTYPE  N                  RESETTOTAL N                  RESOID     N                  CURPOS     L                  SUPALWAYS  L                  SUPOVFLOW  L                  SUPRPCOL   N                  SUPGROUP   N                  SUPVALCHNG L                  SUPEXPR    M                  USER       M                  
                                                                                                                                                                                                                                                                        WINDOWS _75A0LFOE31518096386 1 53           1.000    0.000    0.000   -1.000                 F C         -1   -1   -1   -1   -1   -1                    0 10  121F 3 3FFFFF  F          0T    F T  0       0 1  1TTF0 0F         WINDOWS _75A0LFOE4           9  1                           9584.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _75A0LFOE5           9  4                           2084.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _75A0LFOE6           9  7                           4167.000    0.000                                                                                                    F  FFF           F                  F               WINDOWS _75A0LFZQF1518096394 8  0         833.333 3750.000 2708.33352604.167                   C           -1   -1   -1   -1   -1   -1                    1 16  1 0     FFFTF  F          0T         0       0 1  1FTT0 0F         WINDOWS _75A0LFZQG1518096394 8  0        4375.00055937.500 2187.50018645.833            F    F C           -1   -1   -1   -1   -1   -1    0    0    0     1 12  100F 0 0FFFTF00F 0FFF  0  2TFFFFFFF  1  0  0 0 1  0FTF0 0F         WINDOWS _75A0LHTNT1518096438 6  0         6770.833 3958.333  104.16772187.500            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _75A0LHTNU1518096438 5  0        7187.500 8645.833 1666.667 2604.167                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _75A0LHTNV1518096438 5  0        7187.50016458.333 1666.667 1979.167                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _75A0LHTNW1518096438 5  0        7187.50019270.833 1666.667 1458.333                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTF3 0F         WINDOWS _75A0LHTNX1518096438 5  0        7187.50021562.500 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTNY1518096438 5  0        7187.50029270.833 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTNZ1518096438 5  0        7187.50036979.167 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTO01518096438 5  0        7187.50044687.500 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTO11518096438 5  0        7187.50052187.500 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTO21518096438 5  0        7187.50060208.333 1666.667 6770.833                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTO31518096438 5  0        7187.50067812.500 1666.667 8125.000                              -1   -1   -1    0    0    0                    1 10  1       FFFTF00F          0T         0            1FTT0 0F         WINDOWS _75A0LHTO41518096438 6  0         9270.833 3958.333  104.16772187.500            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _75A0LI7YO1518096450 8  0       11770.833 4375.000 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YP1518096450 8  0       11770.83311666.667 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1TTF3 6F        WINDOWS _75A0LI7YQ1518096450 8  0       11770.83318958.333 1875.000 1770.833                  N           -1   -1   -1   -1   -1   -1                    0 10  1       FFFTF00T 0     0  0T         1  0    0 1  1FTF3 6F         WINDOWS _75A0LI7YR1518096450 8  0       11770.83321354.167 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YS1518096450 8  0       11770.83329062.500 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YT1518096450 8  0       11770.83336770.833 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YU1518096450 8  0       11770.83344479.167 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YV1518096450 8  0       11770.83352395.833 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YW1518096450 8  0       11770.83360000.000 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LI7YX1518096450 8  0       11770.83369062.500 1875.000 6875.000                  N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1FTF3 0F         WINDOWS _75A0LINSQ1518096460 6  0        16041.667 3958.333  104.16772187.500            F    F             -1   -1   -1   -1   -1   -1    1    8    0      0  0  000F 0 0FFFTF00F 0FFF  0  0FFFFFFFF  1  0  0 0 0  0FTF3 0F         WINDOWS _75F0JDEXH1518487663 5  0        3958.333 3958.333 2604.16729479.167                               -1   -1   -1   -1   -1   -1                    1 16  1       FFFTF  F          0T                      1FTT0 0F        WINDOWS _75F0JHAMS1518487722 5  0        3958.333 3958.333 2500.00028958.333                               -1   -1   -1   -1   -1   -1                    1 16  1       FFFTF  F          0T                      1FTT0 0F        WINDOWS _75F0JHVQV1518487736 5  0        3958.333 3958.333 2500.00021145.833                               -1   -1   -1   -1   -1   -1                    1 16  1       FFFTF  F          0T                      1FTT0 0F        WINDOWS _75F0K736C1518488364 8  0       11770.83311666.667 1875.000 6875.000                   N           -1   -1   -1   -1   -1   -1                    0 10  1 0     FFFTF00T 0     0  0T         1  0    0 1  1TTF3 6F        WINDOWS                     23              16.000    8.000   12.000   10.000                                4    0                                        0 10                                                     F               WINDOWS                     23              25.000   10.000   19.000   55.000                                5    1                                        1 16                                                     F               WINDOWS                     23              20.000    8.000   15.000   42.000                                4    1                                        1 12                                                     F               WINDOWS                     23              16.000    6.000   13.000   34.000                                3    0                                        1 10                                                     F               WINDOWS                     23              16.000    6.000   13.000   35.000                                3    0                                        0 10                                                     F               WINDOWS                     25                                                              F                                                                                                                      F                   @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Courier New                                                   5"Kurzarbeitsgeldtabelle fr das Jahr " + welchesjahrc         Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         "Von"                                                         "@I"                                                          Arial                                                         "Bis"                                                         "@I"                                                          Arial                                                         "Ls"                                                          "@I"                                                          Arial                                                         "St-Klasse1"                                                  "@I"                                                          Arial                                                         "St.Klasse2"                                                  "@I"                                                          Arial                                                         "St.Klasse3"                                                  "@I"                                                          Arial                                                         "St.Klasse4"                                                  "@I"                                                          Arial                                                         "St.Klasse5"                                                  "@I"                                                          Arial                                                         "St.Klasse6"                                                  "@I"                                                          Arial                                                         
"ohne Steuer"                                                 "@I"                                                          Arial                                                         VON                                                           	"9999.99"                                                     Arial                                                         BIS                                                           	"9999.99"                                                     Arial                                                         kug.von < maxwert                                             LS                                                            "9"                                                           Arial                                                         KL1                                                           	"9999.99"                                                     Arial                                                         KL2                                                           	"9999.99"                                                     Arial                                                         KL3                                                           	"9999.99"                                                     Arial                                                         KL4                                                           	"9999.99"                                                     Arial                                                         KL5                                                           	"9999.99"                                                     Arial                                                         KL6                                                           	"9999.99"                                                     Arial                                                         OHNE_ST                                                       	"9999.99"                                                     Arial                                                         "Leistungssatz 1 (mit Kinder)"                                Arial                                                         mykug3.optiongroup1.value = 3                                 "Leistungssatz 2 (ohne Kinder)"                               Arial                                                         mykug3.optiongroup1.value = 2                                 "Leistungssatz 1 und 2"                                       Arial                                                         mykug3.optiongroup1.value = 1                                  "> " +alltrim(str(kug.von,10,2))                              Arial                                                         kug.von = maxwert                                             Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                                     DRIVER=winspool
DEVICE=Samsung M267x 287x Series
OUTPUT=192.168.2.5
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=7
PRINTQUALITY=600
DUPLEX=1
TTOPTION=3
COLLATE=1
                                          J  -  winspool  Samsung M267x 287x Series  192.168.2.5                                                                     Samsung M267x 287x Series         lׁ 	 4d   X       A4                                                                                  SECD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x -   A r i a l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         U n t i t l e d                                                                                                                                 0 : 0 : 0 : 0 : 0                                    d                                                                                   X  2 2 2 2 2 2 2 2 2                                                                                                                                                                                                              A 4                                                                                                                                                                                                                                                                                                                                                                                                             d d  d  d  d  d                                                                                                                                                                                                                              	     	     	     44            4    4v!?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Courier New                                                   5"Kurzarbeitsgeldtabelle fr das Jahr " + welchesjahrc         Arial                                                         dtoc(date()) + ", " + time()                                  Arial                                                         "Von"                                                         "@I"                                                          Arial                                                         "Bis"                                                         "@I"                                                          Arial                                                         "Ls"                                                          "@I"                                                          Arial                                                         "St-Klasse1"                                                  "@I"                                                          Arial                                                         "St.Klasse2"                                                  "@I"                                                          Arial                                                         "St.Klasse3"                                                  "@I"                                                          Arial                                                         "St.Klasse4"                                                  "@I"                                                          Arial                                                         "St.Klasse5"                                                  "@I"                                                          Arial                                                         "St.Klasse6"                                                  "@I"                                                          Arial                                                         
"ohne Steuer"                                                 "@I"                                                          Arial                                                         VON                                                           	"9999.99"                                                     Arial                                                         BIS                                                           	"9999.99"                                                     Arial                                                         kug.von < maxwert                                             LS                                                            "9"                                                           Arial                                                         KL1                                                           	"9999.99"                                                     Arial                                                         KL2                                                           	"9999.99"                                                     Arial                                                         KL3                                                           	"9999.99"                                                     Arial                                                         KL4                                                           	"9999.99"                                                     Arial                                                         KL5                                                           	"9999.99"                                                     Arial                                                         KL6                                                           	"9999.99"                                                     Arial                                                         OHNE_ST                                                       	"9999.99"                                                     Arial                                                         "Leistungssatz 1 (mit Kinder)"                                Arial                                                         mykug3.optiongroup1.value = 3                                 "Leistungssatz 2 (ohne Kinder)"                               Arial                                                         mykug3.optiongroup1.value = 2                                 "Leistungssatz 1 und 2"                                       Arial                                                         mykug3.optiongroup1.value = 1                                  "> " +alltrim(str(kug.von,10,2))                              Arial                                                         kug.von = maxwert                                             Courier New                                                   Arial                                                         Arial                                                         Arial                                                         Arial                                                         dataenvironment                                               YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
                               0	   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _75L0W6BC61518893078      /  F      ]                                                       WINDOWS _75L0W6BC71518947785                      -	                                               WINDOWS _75L0W6BC61518893078`      u                                                             WINDOWS _75M0KKAOO1518947573                  @                                                 WINDOWS _75M0KKAOP1518947573                  i                                                 WINDOWS _75L0W6BC81518947573                                                                   WINDOWS _75L0W6BC71518947573          &  3                                                       WINDOWS _75L0W6BC61518947573
        4  D  Q        .                                               WINDOWS _75L0W6BC615189477851      F  [  k  x                                                       WINDOWS _75L0W6BCG1518947444                                                                       WINDOWS _75L0W6BCH1518893078q                                                                     WINDOWS _75M0KSGQ01518947649g      |               P                                                COMMENT RESERVED                                !                                                            !H                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Top = 0
Left = 0
Height = 276
Width = 420
ShowWindow = 1
DoCreate = .T.
Caption = "Anzeigen von KUG-Formularen, etc."
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     xPROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
PROCEDURE Init


public kug_url 
kug_url = ""

thisform.command1.Tag = "https://www.arbeitsagentur.de/datei/merkblatt-8a-kurzarbeitergeld_ba036300.pdf"
thisform.command2.Tag = "https://www.arbeitsagentur.de/datei/merkblatt-8d-saison-kug_ba034265.pdf"
thisform.command3.Tag = "https://www.arbeitsagentur.de/datei/anzeige-kug101_ba034890.pdf"
thisform.command4.Tag = "https://www.arbeitsagentur.de/datei/antrag-kurzarbeitergeld-ab-abrechnungsmonat-august-2024_ba049836.pdf"
thisform.command5.Tag = "https://www.arbeitsagentur.de/datei/abrechnungsliste-kug-108_ba051399.pdf"
thisform.command6.Tag = "https://www.arbeitsagentur.de/datei/hinweise-kurzarbeitergeld_ba036330.pdf"
thisform.command7.Tag = "https://www.arbeitsagentur.de/datei/dok_ba029760.pdf"

IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

*!*	IF thisform.height > mykugmaske1.height 
*!*		thisform.height = mykugmaske1.height - 50
*!*	endif
*!*	IF thisform.width > mykugmaske1.width 
*!*		thisform.width = mykugmaske1.width - 50
*!*	endif
thisform.resize
thisform.AutoCenter = .t.

ENDPROC
     +                                 %   m                       U    C     U  THISFORM SIZER	 FRMRESIZEL 7  
 T    a T   N https://www.arbeitsagentur.de/datei/merkblatt-8a-kurzarbeitergeld_ba036300.pdf[ T   H https://www.arbeitsagentur.de/datei/merkblatt-8d-saison-kug_ba034265.pdfR T   ? https://www.arbeitsagentur.de/datei/anzeige-kug101_ba034890.pdf{ T   h https://www.arbeitsagentur.de/datei/antrag-kurzarbeitergeld-ab-abrechnungsmonat-august-2024_ba049836.pdf\ T   I https://www.arbeitsagentur.de/datei/abrechnungsliste-kug-108_ba051399.pdf] T   J https://www.arbeitsagentur.de/datei/hinweise-kurzarbeitergeld_ba036330.pdfG T 	  4 https://www.arbeitsagentur.de/datei/dok_ba029760.pdf % 
    T
 C  
  T 
 T
  
     T 
  
  
  T     
 
    T  a U  KUG_URL THISFORM COMMAND1 TAG COMMAND2 COMMAND3 COMMAND4 COMMAND5 COMMAND6 COMMAND7 HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER Resize,      Init_     1 2 s  !q  A    2                       ,         G   m      )                           
commandbutton      
commandbutton      Command7      FORM1      oTop = 201
Left = 39
Height = 24
Width = 355
Caption = "Weisungen zum Kurzarbeitergeld"
Name = "Command7"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command6      FORM1      oTop = 175
Left = 39
Height = 24
Width = 355
Caption = "Hinweise zum  Antragsverfahren"
Name = "Command6"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command5      FORM1      vTop = 150
Left = 39
Height = 24
Width = 355
Caption = "Abrechnungsliste fr Kurzarbeitergeld"
Name = "Command5"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command4      FORM1      lTop = 125
Left = 39
Height = 24
Width = 355
Caption = "Antrag auf Kurzarbeitergeld"
Name = "Command4"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command3      FORM1      kTop = 99
Left = 39
Height = 24
Width = 355
Caption = "Anzeige ber Arbeitsausfall"
Name = "Command3"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command2      FORM1      tTop = 74
Left = 39
Height = 24
Width = 355
Caption = "Merkblatt 8d Saison-Kurzarbeitergeld"
Name = "Command2"
      YPROCEDURE Click

kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                       N       )                            
commandbutton      
commandbutton      Command1      FORM1      {Top = 48
Left = 39
Height = 24
Width = 355
Caption = "Merkblatt 8a kurzarbeitergeld (Arbeitgeber)"
Name = "Command1"
      PROCEDURE Click
*der link wird im init des formulares ins tag des buttons geschrieben
kug_url = ALLTRIM(this.Tag)
do shellexec

GoUrl(kug_url)
ENDPROC
                                         %                             U  *  T  C     C     U  KUG_URL THIS TAG	 SHELLEXEC GOURL Click,     1 "q  1                              )                            label      label      Label1      FORM1      FontBold = .T.
FontSize = 12
Caption = "Zum Anzeigen einen Button anklicken"
Height = 23
Left = 64
Top = 16
Width = 291
Name = "Label1"
      mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 260
Left = 403
TabIndex = 19
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      
commandbutton      
commandbutton      Command8      FORM1      fTop = 233
Left = 121
Height = 32
Width = 177
Caption = "schlieen und zurck"
Name = "Command8"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
0   m                   PLATFORM   C                  UNIQUEID   C	   
               TIMESTAMP  N   
               CLASS      M                  CLASSLOC   M!                  BASECLASS  M%                  OBJNAME    M)                  PARENT     M-                  PROPERTIES M1                  PROTECTED  M5                  METHODS    M9                  OBJCODE    M=                 OLE        MA                  OLE2       ME                  RESERVED1  MI                  RESERVED2  MM                  RESERVED3  MQ                  RESERVED4  MU                  RESERVED5  MY                  RESERVED6  M]                  RESERVED7  Ma                  RESERVED8  Me                  USER       Mi                  
                                                                                                                                                                                                                                                                        COMMENT Screen                                                                                              WINDOWS _75Z0M4GJW1519800938      /  F      ]                                                       WINDOWS _75Z0M4GJX1519802423                      7                                               WINDOWS _75Z0M57II1519801097          (  5                                                           WINDOWS _75Z0M57IJ1519801097}                  '  [                                               WINDOWS _75Z0MAUNO1519801097*  :  Z  i  v                                                             COMMENT RESERVED                                                                                            :                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
      1      1      form      form      FORM1      Height = 425
Width = 688
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Erklrung TVD freiw. Mehrarbeit"
WindowType = 1
AlwaysOnTop = .T.
Name = "FORM1"
     PROCEDURE Init
crlf = CHR(13)+CHR(10)
tvdtext = "Ab 2026 ist es mglich, da der Mitarbeiter freiwillig bis zu 3 Std. Mehrarbeit leistet. Es mssen AG UND AN freiwillig zustimmen."+crlf
tvdtext = tvdtext + "Die Mehrarbeitsstunden sind KEINE berstunden und sind auf max. 18 Monate befristet, knnen aber danach um bis zu weitere 18 Monate verlngert werden." + crlf +crlf

tvdtext = tvdtext + "Die Mehrarbeitsstunden (1, 2 oder 3 Std.) addieren Sie auf Zeile 22 im linken Eingabefeld hinzu. Dadurch werden die Entgeldbestadteile um diesem Faktor erhht."+crlf+crlf
tvdtext = tvdtext + "Da nicht alle Entgeldbestandteile um diesen Faktor erhht werden gilt Folgendes:"+crlf
tvdtext = tvdtext + 'Die VWL auf Zeile 12 mssen in der Spalte [T] nicht das "x" sondern den "-" eingestellt bekommen. Das Gleiche gilt auch auf Zeile 18.'+crlf+crlf

tvdtext = tvdtext + "Zustzlich zu den erhhten Entgeldbestandteilen gibt es noch einen Stundenzuschlag von 10% (EG 9c bis 15) bzw 25% (EG 1 bis 9b)."+crlf
tvdtext = tvdtext + "Diesen Zuschlag mssen Sie auf den Zeilen 44, 45 oder 46 auswhlen. Es knnen 1, 2 oder 3 Stunden ausgwhlt werden. Es sind die letzten 3 Auswahlmglichkeiten auf der rechten Seite."+crlf
tvdtext = tvdtext + 'Der Zuschlagsbetrag wird automatisch errechnet. Die Sonderregelungen dazu werden automatisch eingestellt und der Button, rechts neben der jeweiligen Beschriftung, wird auf "022300" oder "022400" eingestellt.'
thisform.edit1.value = tvdtext


IF thisform.Height * mscreenfaktor_h > screenmaxH
	dpifaktor = round(screenmaxH / (thisform.Height * mscreenfaktor_h),2)
ELSE
	dpifaktor = 1
endif
thisform.sizer.saveformsize

thisform.Height = thisform.Height * (mscreenfaktor_h * dpifaktor)
thisform.width = thisform.width * (mscreenfaktor_h * dpifaktor)

thisform.resize
thisform.AutoCenter = .t.
ENDPROC
PROCEDURE Resize
THISFORM.sizer.frmresize()
ENDPROC
                                   *   %         L                 U   T  C
 C
  T ق Ab 2026 ist es mglich, da der Mitarbeiter freiwillig bis zu 3 Std. Mehrarbeit leistet. Es mssen AG UND AN freiwillig zustimmen.   T  ٖ Die Mehrarbeitsstunden sind KEINE berstunden und sind auf max. 18 Monate befristet, knnen aber danach um bis zu weitere 18 Monate verlngert werden.     T  ٟ Die Mehrarbeitsstunden (1, 2 oder 3 Std.) addieren Sie auf Zeile 22 im linken Eingabefeld hinzu. Dadurch werden die Entgeldbestadteile um diesem Faktor erhht.    e T  P Da nicht alle Entgeldbestandteile um diesen Faktor erhht werden gilt Folgendes:   T   Die VWL auf Zeile 12 mssen in der Spalte [T] nicht das "x" sondern den "-" eingestellt bekommen. Das Gleiche gilt auch auf Zeile 18.     T  ـ Zustzlich zu den erhhten Entgeldbestandteilen gibt es noch einen Stundenzuschlag von 10% (EG 9c bis 15) bzw 25% (EG 1 bis 9b).   T  ٵ Diesen Zuschlag mssen Sie auf den Zeilen 44, 45 oder 46 auswhlen. Es knnen 1, 2 oder 3 Stunden ausgwhlt werden. Es sind die letzten 3 Auswahlmglichkeiten auf der rechten Seite.   T   Der Zuschlagsbetrag wird automatisch errechnet. Die Sonderregelungen dazu werden automatisch eingestellt und der Button, rechts neben der jeweiligen Beschriftung, wird auf "022300" oder "022400" eingestellt. T     %     T C    T 
 T  
  	 
  T       T      
    T 
 a U  CRLF TVDTEXT THISFORM EDIT1 VALUE HEIGHT MSCREENFAKTOR_H
 SCREENMAXH	 DPIFAKTOR SIZER SAVEFORMSIZE WIDTH RESIZE
 AUTOCENTER  C     U  THISFORM SIZER	 FRMRESIZE Init,      Resize    1 Q1	
Q	R	1  A    2 1                       B        _  y      )                           editbox      editbox      Edit1      FORM1      @Height = 296
Left = 15
Top = 35
Width = 657
Name = "Edit1"
      
commandbutton      
commandbutton      Command1      FORM1      [Top = 372
Left = 256
Height = 37
Width = 174
Caption = "schlieen"
Name = "Command1"
      ,PROCEDURE Click
thisform.release
ENDPROC
                                         %   P       e      _             U  
 
     U  THISFORM RELEASE Click,     1  1                       !       )                            mwresize      ..\mail2win\mwresize.vcx      control      Sizer      FORM1      Top = 406
Left = 669
lresizegridcontents = .T.
Name = "Sizer"
lblShading.Name = "lblShading"
lblHighLight.Name = "lblHighLight"
      !Arial, 0, 9, 5, 15, 12, 32, 3, 0
 JFIF  ` `   C 		



	
 C   "            	
    } !1AQa"q2#BR$3br	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz        	
   w !1AQaq"2B	#3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz   ? =| 	۟
 Cc#^ /wG$?'G?/#ZSf$fɷdnFaȟ
gן'Ǆt+kM>o	izm.}dag,X^gq0;<c >|A%:'7F</Z!/&$|ȻTe*2F(	 &?* 7h߈v;>9c}'ⶪ.1Ikݾi]KƲK8Ϻ ğN/'|	~ў:gZXx2w2x>|u[{Y."!G۽di|cGt٬ ld'~<AEYN1faV	%8%(II5tOt*%x;z kWM#6z`W)anڅu:Dml.(@BM
      6   (               
                   ̗~~{zz~~YcjV`j deaRcfvb csyiu{נi {mSci| 톄|ew~E[fn v/@C ]]Q`kh| }tp{y{~]^T Βz{RMD 봫ƽnrm[v х}vF`lm ꜖߱e|c ֛ʽᢚ`u} Ľܾtn ˿q  ƥֽ̹Ƶ ܡó־̽ þ͸Ǻ Ŀ饝ح~ ܫ|Ƶkj\ ú~q{]]Qº ÿƿúŲ˿PG= ¾|jc ÿtn  ½ɫ ûʽú ǦͿ  PNG

   
IHDR           szz   sBIT|d   sRGB    gAMA  a   	pHYs    (J   tEXtSoftware www.inkscape.org<  iTXtXML:com.adobe.xmp     <?xpacket begin='﻿' id='W5M0MpCehiHzreSzNTczkc9d'?>
<x:xmpmeta xmlns:x="adobe:ns:meta/"><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"><rdf:Description rdf:about="uuid:faf5bdd5-ba3d-11da-ad31-d33d75182f1b" xmlns:tiff="http://ns.adobe.com/tiff/1.0/"><tiff:Orientation>1</tiff:Orientation></rdf:Description></rdf:RDF></x:xmpmeta>
<?xpacket end='w'?>,  IDATXG׿kA]`4	BFI'Sv(VAA,$JZB84ռw/^>00gy ,b
yK
;oT0
܍/:z1*gx[a!}Vo=MVg<,D9	c܂l`0pUT)zl`5G8^1z-V g`#}W|~[>4R6lZ5\Ri!܏	cG*<|<[p3B8MMyM@>g)WRS^S6Ї᰸BʕԔ5\h9TM(>(No(R-Z)OvqD[n&|qQuwZ:    IENDB`BMJ
      6   (   #            
                                                         ;;;PPP         VVVppp                                                                                 NNN                                             fff               DDD                                    XXX      222                                                      pc-gehalt.prg c:\users\haral\appdata\local\temp\ pc-gehalt.fxp ..\..\program files (x86)\microsoft visual foxpro 9\wizards\ foxqstrt.bmp ..\ pc-gehalt.vcx ..\ pc-gehalt.vct wizstyle.vcx wizstyle.vct ..\ mwresize.vcx ..\ mwresize.vct ..\ logo.jpg ..\ pc-gehalt-logo.gif ..\icons\ istgleich.ico exit.jpg appwiz.vcx appwiz.vct trffcg.gif ico1469.ico f_druck.bmp sw_druck.bmp 1_druck.bmp 2_druck.bmp 3_druck.bmp a_druck.bmp etiq07.ico calendr1.ico uhr.ico calc.ico 064.ico rahmen.ico kopf.ico refresh.ico i-urlaubstagerechner.bmp jda32bmp.bmp sv32bmp.gif eagle8.jpg ico1513.ico 1205short.ico 1206short.ico 1205.ico 1206.ico wwsmtp.prg wwsmtp.fxp wwdotnetbridge.prg wwdotnetbridge.fxp wwutils.prg wwutils.fxp wwapi.prg wwapi.fxp wwcollections.prg wwcollections.fxp exit.ico ..\ arw07lt.ico ..\ blandauswahl.scx ..\ blandauswahl.sct ..\ dienstauswahl.scx ..\ dienstauswahl.sct ..\ entgeltgruppenauswahl.scx ..\ entgeltgruppenauswahl.sct shellexec.prg shellexec.fxp defs.prg defs.fxp internet.prg internet.fxp ..\ kv.scx ..\ kv.sct konvertierte\starten.prg starten.fxp konvertierte\ber_anzeige.prg ber_anzeige.fxp ..\ splash.scx ..\ splash.sct erzeuge_klassen.prg erzeuge_klassen.fxp konvertierte\ber_soz.prg ber_soz.fxp konvertierte\ber_steuer.prg ber_steuer.fxp konvertierte\ber_tarife.prg ber_tarife.fxp konvertierte\ber_zulagen.prg ber_zulagen.fxp konvertierte\ber_kern.prg ber_kern.fxp konvertierte\drittes.prg drittes.fxp konvertierte\druck_atz.prg druck_atz.fxp konvertierte\druck_bda.prg druck_bda.fxp konvertierte\druck_gehalt.prg druck_gehalt.fxp konvertierte\druck_kasse.prg druck_kasse.fxp konvertierte\drucken.prg drucken.fxp konvertierte\eingaben.prg eingaben.fxp konvertierte\farben.prg farben.fxp konvertierte\form_z.prg form_z.fxp konvertierte\fnftes.prg fnftes.fxp konvertierte\jahre.prg jahre.fxp konvertierte\jahrsicht.prg jahrsicht.fxp konvertierte\kvumstellen.prg kvumstellen.fxp konvertierte\modul00.prg modul00.fxp konvertierte\screenanzeige.prg screenanzeige.fxp konvertierte\sortieren.prg sortieren.fxp konvertierte\startscreen.prg startscreen.fxp konvertierte\tab_bemerk.prg tab_bemerk.fxp konvertierte\tab_nachzahl.prg tab_nachzahl.fxp konvertierte\tab_oz.prg tab_oz.fxp konvertierte\tab_progr.prg tab_progr.fxp konvertierte\tab_soz.prg tab_soz.fxp konvertierte\tab_steuern.prg tab_steuern.fxp konvertierte\tab_tarife.prg tab_tarife.fxp konvertierte\tab_teilzeit.prg tab_teilzeit.fxp konvertierte\tab_z.prg tab_z.fxp konvertierte\tab_vke.prg tab_vke.fxp konvertierte\tab_voe.prg tab_voe.fxp konvertierte\tab_weih.prg tab_weih.fxp konvertierte\tab_zulagen.prg tab_zulagen.fxp konvertierte\tab_zvk.prg tab_zvk.fxp konvertierte\tablettcode.prg tablettcode.fxp konvertierte\tvdmodul.prg tvdmodul.fxp konvertierte\viertes.prg viertes.fxp konvertierte\zweites.prg zweites.fxp konvertierte\atz.prg ..\ arbeitszeit.scx ..\ arbeitszeit.sct ..\ freischaltung.scx ..\ freischaltung.sct konvertierte\datenstart.prg datenstart.fxp ..\ tarife.scx ..\ tarife.sct konvertierte\tarife.prg ..\prgicons\ backspace_klein.ico fernglas_16.png 092_kreuz.ico getriebe.bmp cancel_klein_rot.png drucker_klein.png kalender_klein.png buch_klein.png buch_chm_klein.png exit_klein.jpg ..\ zkind.scx ..\ zkind.sct ..\ sonderregelungen.scx ..\ sonderregelungen.sct ..\ zahlenrechnen.scx ..\ zahlenrechnen.sct ..\ umlagekassen.scx ..\ umlagekassen.sct ..\ vdz.scx ..\ vdz.sct ..\ progress.scx ..\ progress.sct ..\ urlaubsber.scx ..\ urlaubsber.sct ..\ textedit.scx ..\ textedit.sct ..\ seriendruck.scx ..\ seriendruck.sct ..\ struktur.scx ..\ struktur.sct ..\ sv.scx ..\ sv.sct ..\ jda.scx ..\ jda.sct ..\ form3.scx ..\ form3.sct ..\ tablett.scx ..\ tablett.sct ..\ zuschlge.scx ..\ zuschlge.sct ..\ hhergruppierung.scx ..\ hhergruppierung.sct ..\ form1.scx ..\ form1.sct ..\ ..\ konvertierte\neuername.prg neuername.fxp konvertierte\lohnstr.prg lohnstr.fxp ..\ nettoberechnung.scx ..\ nettoberechnung.sct ..\ hotline.scx ..\ hotline.sct ..\ lizenzinhaber.scx ..\ lizenzinhaber.sct konvertierte\datenbernahme.prg datenbernahme.fxp ..\ xauswahl.scx ..\ xauswahl.sct ..\ atzgrid.scx ..\ atzgrid.sct konvertierte\tablett_frm.prg tablett_frm.fxp drivinf5.prg drivinf5.fxp ..\ datenbernahmeausdemvorjahr.scx ..\ datenbernahmeausdemvorjahr.sct ..\ textliste.frx ..\ textliste.frt ..\ stufenlaufzeit.scx ..\ stufenlaufzeit.sct konvertierte\druckvorschau_frm.prg druckvorschau_frm.fxp ..\ dummyreport.dbf ..\ gkv-liste.frx ..\ gkv-liste.frt ..\ fallgruppen.scx ..\ fallgruppen.sct konvertierte\jda_frm.prg jda_frm.fxp lumier01.ico hilang.gif buch_chm_klein.ico upbutt.bmp ..\ zulagen.scx ..\ zulagen.sct lupe_klein.jpg rot_weis.jpg strukturausgleich.ico progress.jpg hher.ico bda_8.ico gitter_klein.png fragezeichen.png teilzeit.png zweipfeile.png notiz_klein.jpg verkleinern.ico ..\ atz_druck1.frx ..\ atz_druck1.frt ..\ atz_druck2.frx ..\ atz_druck2.frt ..\ atz_druck3.frx ..\ atz_druck3.frt ..\ atz_druck4.frx ..\ atz_druck4.frt ..\ atz_druck5.frx ..\ atz_druck5.frt ..\ atz_druck6.frx ..\ atz_druck6.frt ..\ abrechnung_1.frx ..\ abrechnung_1.frt ..\ abrechnung_2.frx ..\ abrechnung_2.frt ..\ abrechnung_3.frx ..\ abrechnung_3.frt ..\ anlage.frx ..\ anlage.frt ..\ eb.frx ..\ eb.frt ..\ tariftabelle_drucken.frx ..\ tariftabelle_drucken.frt ..\ tarifekopieren.scx ..\ tarifekopieren.sct ..\ an_sicht1.frx ..\ an_sicht1.frt ..\ ag_sicht1.frx ..\ ag_sicht1.frt ..\ ag_sicht2.frx ..\ ag_sicht2.frt ..\ kontrolle1.frx ..\ kontrolle1.frt ..\ wliste1.frx ..\ wliste1.frt ..\ jasoza1.frx ..\ jasoza1.frt ..\ leistung1.frx ..\ leistung1.frt ..\ leistung2.frx ..\ leistung2.frt ..\ lohnsteuerausgleich.frx ..\ lohnsteuerausgleich.frt ..\ steuerdrucken.frx ..\ steuerdrucken.frt ..\ sozvers_drucken.frx ..\ sozvers_drucken.frt ..\ knappschaftnachweis.frx ..\ knappschaftnachweis.frt ..\ beitragsnachweis.frx ..\ beitragsnachweis.frt ..\ beitragsnachweis2.frx ..\ beitragsnachweis2.frt 069.ico arw03rt.ico checkmrk.ico diskette0.ico diskkopie.ico doss20.ico dropbutt.bmp ico2407.ico katalog.ico kreuz2.bmp loeschen.ico neu.ico notices.ico oeffnen.gif preisupdate.ico agrund4.gif schliessen.gif suchen.gif ..\ zvk1.frx ..\ zvk1.frt ..\ lstrnachweis1.frx ..\ lstrnachweis1.frt ..\ lstrnachweis2.frx ..\ lstrnachweis2.frt ..\ lst_bescheinigung.frx ..\ lst_bescheinigung.frt ..\ druckvorschau.scx ..\ druckvorschau.sct 094.ico anlage_schrge_linie.jpg konvertierte\sv_frm.prg sv_frm.fxp ..\images\ myimage.jpg ..\ arbeitszeit.frx ..\ arbeitszeit.frt ..\ urlaubsanspruch.frx ..\ urlaubsanspruch.frt ..\ jaedrucken.frx ..\ jaedrucken.frt ..\ teilzeit_drucken.frx ..\ teilzeit_drucken.frt ..\ teilzeit_rechner.scx ..\ teilzeit_rechner.sct ..\ taschenrechner.scx ..\ taschenrechner.sct konvertierte\zuschlge.prg zuschlge.fxp ..\ zuschlge.frx ..\ zuschlge.frt ..\ pcg_printform.frx ..\ pcg_printform.frt ..\ rechenweg.frx ..\ rechenweg.frt ..\ jda1.frx ..\ jda1.frt ..\ jda2.frx ..\ jda2.frt konvertierte\arbeitszeit_frm.prg arbeitszeit_frm.fxp ..\ vergleich.frx ..\ vergleich.frt ..\buttons\ pfeil_links.jpg pfeil_rechts.jpg konvertierte\struktur.prg struktur.fxp ..\ struktur_druck.frx ..\ struktur_druck.frt ..\ dynamisierung_drucken.frx ..\ dynamisierung_drucken.frt ..\ umlagekassen_drucken.frx ..\ umlagekassen_drucken.frt ..\ kfb_auswahl.scx ..\ kfb_auswahl.sct konvertierte\zahlenrechnen_frm.prg zahlenrechnen_frm.fxp ..\ export.scx ..\ export.sct ..\ form2.scx ..\ form2.sct ..\ urlaubsberechnung.frx ..\ urlaubsberechnung.frt jubijahre.jpg ..\ nachricht.scx ..\ nachricht.sct konvertierte\gehalt00.prg gehalt00.fxp preview_fixer.prg preview_fixer.fxp ..\ konvertierungsprotokol.frx ..\ konvertierungsprotokol.frt treppe.ico ..\ bdastufen.frx ..\ bdastufen.frt ..\ bdaberechnung.frx ..\ bdaberechnung.frt ..\ bdabescheid.frx ..\ bdabescheid.frt konvertierte\progress.prg progress.fxp ..\ bdaform.scx ..\ bdaform.sct bda.ico ..\ arbeitszeit_druck.frx ..\ arbeitszeit_druck.frt ..\ eingabefeldeditieren.scx ..\ eingabefeldeditieren.sct ..\ pfadeunduser.scx ..\ pfadeunduser.sct ..\ yauswahl.scx ..\ yauswahl.sct ..\ kalender.scx ..\ kalender.sct doppelpfeil_links.jpg doppelpfeil_rechts.jpg ..\ komprimieren.scx ..\ komprimieren.sct ..\ kompridruck.frx ..\ kompridruck.frt ..\ krankengeld.scx ..\ krankengeld.sct ..\ krankengeld.frx ..\ krankengeld.frt ..\ krankengeld_zuschuss.scx ..\ krankengeld_zuschuss.sct ..\ krankengeld_zuschuss.frx ..\ krankengeld_zuschuss.frt ..\ dienstunfhigkeit.scx ..\ dienstunfhigkeit.sct ..\ dienstfhigkeit.frx ..\ dienstfhigkeit.frt disabled3.jpg ..\ szdrucken.frx ..\ szdrucken.frt ..\ wochenarbzeit.scx ..\ wochenarbzeit.sct ..\ kalen.scx ..\ kalen.sct ..\ beihilfe.scx ..\ beihilfe.sct ..\ beihilfe.frx ..\ beihilfe.frt g22ico.ico ..\ edz_bescheid2.frx ..\ edz_bescheid2.frt ..\ edz_bescheid1.frx ..\ edz_bescheid1.frt ..\ nderungsbersicht.scx ..\ nderungsbersicht.sct ..\ get_nderungszeitraum.scx ..\ get_nderungszeitraum.sct ..\ form3_2.scx ..\ form3_2.sct ico213_rot.ico ..\ kirchensteuer.scx ..\ kirchensteuer.sct ..\ sozversdaten.scx ..\ sozversdaten.sct ..\ zvk_atv_umlagen.scx ..\ zvk_atv_umlagen.sct ..\ pensionsumlagen.scx ..\ pensionsumlagen.sct ..\ kindergeldvorgaben.scx ..\ kindergeldvorgaben.sct ..\ altersteilzeitvorgaben.scx ..\ altersteilzeitvorgaben.sct ..\ form3_3.scx ..\ form3_3.sct ..\ sonderzahlung_beamte.scx ..\ sonderzahlung_beamte.sct ..\ updaten.scx ..\ updaten.sct ..\ nachweislistezumdrucken.scx ..\ nachweislistezumdrucken.sct ..\ weihnachten_anzeigen.scx ..\ weihnachten_anzeigen.sct wwclient.prg wwclient.fxp wweval.prg wweval.fxp wwconfig.prg wwconfig.fxp wwbusinessobject.prg wwbusinessobject.fxp wwsql.prg wwsql.fxp ..\ wwipstuff.vcx ..\ wwipstuff.vct ..\ wwxml.vcx ..\ wwxml.vct ..\ wwbusiness.vcx ..\ wwbusiness.vct ..\ wwsql.vcx ..\ wwsql.vct wwxml.prg wwxml.fxp wwhttp.prg wwhttp.fxp wwftp.prg wwftp.fxp wwscripting.prg wwscripting.fxp wwregex.prg wwregex.fxp wwpdf.prg wwpdf.fxp wwxmlstate.prg wwxmlstate.fxp wwxmladapter.prg wwxmladapter.fxp wwcache.prg wwcache.fxp wwjsonserializer.prg wwjsonserializer.fxp wwjsonservice.prg wwjsonservice.fxp wwsftp.prg wwsftp.fxp wwencryption.prg wwencryption.fxp markdownparser.prg markdownparser.fxp wwdynamic.prg wwdynamic.fxp wwsocket.prg wwsocket.fxp ..\ pcg_sortieren.scx ..\ pcg_sortieren.sct ..\ config.fpw ..\ personalfallsuchen.scx ..\ personalfallsuchen.sct ..\ vdzbescheid.frx ..\ vdzbescheid.frt ..\ atzmaske.scx ..\ atzmaske.sct ..\ atza.scx ..\ atza.sct ..\ foxyslider.vcx ..\ foxyslider.vct ..\ leistung3.frx ..\ leistung3.frt ..\ leistung4.frx ..\ leistung4.frt ..\ teilzeitlupe.scx ..\ teilzeitlupe.sct ..\ bruchteilgehalt.scx ..\ bruchteilgehalt.sct ..\ erstattung.scx ..\ erstattung.sct trffcg.jpg ..\ lupezeile34.scx ..\ lupezeile34.sct ..\ lupezeile39.scx ..\ lupezeile39.sct ico1469.jpg verkleinern.jpg etiq07.jpg calendr1.jpg uhr.jpg calc.jpg 064.jpg rahmen.jpg kopf.jpg refresh.jpg sv32bmp.jpg ico1513.jpg ..\ freischaltmenu.scx ..\ freischaltmenu.sct ..\ textkonvert.scx ..\ textkonvert.sct ..\ neuenspeicherort.scx ..\ neuenspeicherort.sct ..\ gemeindeauswahl.scx ..\ gemeindeauswahl.sct ..\ lstausgleich.scx ..\ lstausgleich.sct ..\ bemerkungen.scx ..\ bemerkungen.sct ..\ kvpfl.scx ..\ kvpfl.sct ..\ sonderzahlung_andere.scx ..\ sonderzahlung_andere.sct ..\ ueberweisungsliste.scx ..\ ueberweisungsliste.sct ..\ tabellenfaktoren.scx ..\ tabellenfaktoren.sct ..\ voreinstellungen.scx ..\ voreinstellungen.sct ..\ importhis.scx ..\ importhis.sct ..\ exporthis.scx ..\ exporthis.sct ..\ differenza.scx ..\ differenza.sct ..\ szdrucken.scx ..\ szdrucken.sct ..\ ozuschlag.scx ..\ ozuschlag.sct ..\ leistungszulagen.scx ..\ leistungszulagen.sct ..\ internetlinks.scx ..\ internetlinks.sct ..\ showstack.scx ..\ showstack.sct ..\ kfzrechner.scx ..\ kfzrechner.sct ..\ kfz_sachbezug.frx ..\ kfz_sachbezug.frt auto.jpg kalender_small.jpg ..\ neudurchrechnen_anzeige.scx ..\ neudurchrechnen_anzeige.sct ..\ mygetdir.scx ..\ mygetdir.sct fragezeichen.jpg hdd.jpg ram-disk.jpg remote.jpg removeable.jpg ..\ pvabjuli2023.scx ..\ pvabjuli2023.sct ..\ pvkiabzug.scx ..\ pvkiabzug.sct ..\ byortszuvergleich.scx ..\ byortszuvergleich.sct ..\ ozuschlagby.scx ..\ ozuschlagby.sct ..\ versorgungsfreibetrag.scx ..\ versorgungsfreibetrag.sct ..\ stufenlaufzeit_bw.scx ..\ stufenlaufzeit_bw.sct ..\ stufenlaufzeit_bw_parameter.scx ..\ stufenlaufzeit_bw_parameter.sct nifamzu_build.prg nifamzu_build.fxp jahr25.bmp haupticon.ico ..\ perscopy.scx ..\ perscopy.sct copy.bmp ..\ kkvorgabenwahl.scx ..\ kkvorgabenwahl.sct ..\ kug_neu2.scx ..\ kug_neu2.sct ..\ kug_druck.frx ..\ kug_druck.frt arbeitsamt.jpg ..\ ckecker.jpg ..\ kug_istlohn.scx ..\ kug_istlohn.sct ..\ kug_brutto_hilfe.scx ..\ kug_brutto_hilfe.sct ..\ kug_tabelle.scx ..\ kug_tabelle.sct ..\ kug_tabelle.frx ..\ kug_tabelle.frt ..\ kug_download.scx ..\ kug_download.sct ..\ tvdmehrstd.scx ..\ tvdmehrstd.sct 1_druck.jpg vorschau.bmp table_6206092.png download.bmp  )       1            N ?   |           N                                 v> ?              v> v ?              v                 <	               <	 #x               #x                  
              
  %           ֘ ?   .          ֘  ?   9            
  D            
  O            
  [           F 
  g          F ! 
  t          ! ( 
            ( `. 
            `. 4 
            4 7 
            7 : 
            : xC 
            xC vF 
            vF tI 
            tI 2R 
            2R pS 
            pS T 
            T 4W 
            4W Y 
            Y ] 
            ] b 
  '          b e 
  2          e h 
  >          h k 
  L          k n 
  Z          n q 
  c           q Φ    w           Φ 
               
                                                
 
            
 C             	C G             G W &  *          	W [ ;  ?          [ Z# Q  U          	Z# * g  k          * [              [ f               f                               	                              V               V T    C          	T  S  W           6 b  f           6                   2               2 3               3                     1            q    [           q                                                 (               (     +            ?    T           ?     z            R               R .Z               .Z 8               8 /    	           / z    .           z      Y                             O;                O;  b                b                         1                  ^             ^                ^  !               ! 5!!               5!! ("!               ("! h"!    )	           h"! j!    V	           j! j!    	           j! 7k!    	           7k! !    	           ! "    	           " #    
           # #e#    A
           #e# U$    j
           U$ VR%    
           VR% Z&    
           Z& &    
           & 1p'              	1p' ?'             ?' o*             	o* "* *  .          "* B* @  D           B* *    r          	* 5+             5+ -              - ).    	          ). .             . .             . .             . ?. 
            ?. A.             A. B.             B. C.   *          C. dE.   =          dE. NF.   L          NF. 8H.   _          	8H. S. n  r          S. mn. |            	mn. .             . r/             	r/ X+/             X+/ /             	/ %/             %/ 0   
          	0 A0 
  
          A0 `1 
  "
          	`1 (1 *
  .
          (1 >h1 ;
  ?
          	>h1 Ǣ1 L
  P
          Ǣ1 x2 _
  c
          	x2 =3 r
  v
          =3 4 
  
          	4 4 
  
          4 095 
  
          	095 s5 
  
          s5 CY6 
  
          	CY6 6 
  
          6 K@8 
  
          	K@8 8 
  
          8 d:              	d: :             : D;             	D; ; (  ,          ; 2> 8  <          	2> > H  L          > mA Z  ^          	mA J<B l  p          J<B C             	C D             D .P             	.P ŚP             ŚP aP   /           aP hR               hR S              	S '.S             '.S އS (  ,          	އS S @  D          S S P  T          	S %S `  d          %S (S v  z           (S >T              	>T bHT             bHT T             	T T             T j~U              j~U 
V               
V 
W    ;          	
W <W H  L          <W  {W l  p          
 {W RW             RW ҬW             	ҬW W             W X              X \              \ i\             
i\ i\ /  3          i\ \ A  E          	\ \ S  W          \ 
l] g  k           
l] ]              ] ]             ] _             _ %
_             %
_ _             	_ '_             '_ `             ` `             ` \a             \a a 
            a 'a 
  (          'a )a 
  5          )a +a 
  ?          +a -a 
  I          -a /a 
  Z          /a 0a 
  k          0a 1a 
  x          1a 2Ra 
            2Ra xSa 
            
xSa ia             ia a             
a QSb             QSb Qb             
Qb c             c N*c   
          
N*c ASc             ASc vc ,  0          
vc c ?  C          c d R  V          
d |e e  i          |e f x  |          
f g             g rg             
rg {g             {g {Vh             
{Vh 3h             3h Li             
Li 0j 	  
          0j [k             
[k .k '  +          .k l 2  6          
l 4Vl =  A          4Vl l Z  ^          	l l w  {          l l             
l  Lm              Lm  m             
 m Jn             Jn Rn             
Rn ?o             ?o o             
o o             o p $  (          
p /p 7  ;          /p Hp H  L          
Hp p Y  ]          p iq i  m          
iq q y  }          q q             
q 'r             'r 'Gr             
'Gr }r             }r r             
r r             r s             
s /s %  )          /s Qs =  A          
Qs s U  Y          s t q  u          
t t             t 6u             
6u cPv             cPv 
w             
w w             w w             w Mw             Mw Kw             Kw Iw   "          Iw G"w   0          G"w &w   ;          &w )w   H          )w -w   T          -w 4w   `          4w 7w   k          7w :w   x          :w =w             =w FBw             FBw DEw             DEw +z             +z z             z Ģz             
Ģz {             { I{             
I{ l{             l{ /|             
/| |             | } *  .          
} :} @  D          :} e} Z  ^          	e} r} t  x          r} ՠ}             ՠ} ӣ} 
            ӣ} } 
             } }              }              
               C             
C &ց #  '          &ց g ;  ?          
g 7 S  W          7 7 f  j          
7  y  }           &             	& D?             D?              	 m             m .H              .H     &          
 @ 4  8          @ L F  J          
L ] X  \          ] e n  r          
e z             z р             
р Ʌ             Ʌ x             
x i             i G              G /              
/               D #  '          D I 5  A          I 
 5  Q           
 &    |          
& Q             Q u             
u B             B B             
B               4             	4  = -  1           = |c A  E           |c ik    x          	ik z             z 骉             	骉 jԉ             jԉ yw             
yw 
ߋ             
ߋ M             M *V             	*V .] 
            .] ph               ph m    H           m     g          
  y  }                         M             
M 	S             	S              
               }              
} b'             b' b[ &  *           b[ G\    T          	G\  a  e           sb q  u          sb qe 
            
qe                            	                            	                            	  !  %           , 2  6          	, O C  G          O  T  X           . 
  e          . N 
  {          	N <W             <W 	r             
	r i             i 钕             	钕 -             - 6             
6 2               2 2Ֆ     $           	2Ֆ ( 4   8           (  Q   U           
  n   r                           	 e)               e) !               
! W                W  J               J N   !          
N l !  !          l ě ,!  0!          	ě I؛ >!  B!          I؛  T!  X!          	 F j!  n!          F  x!  |!          	  !  !           ; !  !          
; q( !  !          q( qR !  !          qR /_   !          
/_  !  !            !  !          
  "  "           .M "  "          	.M -W -"  1"          -W q H"  L"          	q Zz c"  g"          Zz  "  "          	 ܤ "  "          ܤ m "  "          m p 
  "          	p  "  "           =˧ "  "          	=˧  "  "           / #  #          	/ b] $#  (#          b]  <#  @#          	 Y% T#  X#          Y%  l#  p#          	 敩 #  #          敩 ϩ #  #          	ϩ _ީ #  #          _ީ \ #  #          	\ ) #  #          ) q֪ $  $          	q֪ s $  $          s F 5$  9$          	F ɫ R$  V$          ɫ H b$  f$          	H S r$  v$          S t $  $          	t 탬 $  $          탬 "׬ $  $           "׬ ۬    $           ۬      %                 )%            u    K%           u Э    j%          Э ׭ t%  x%          ׭ ޔ %  %          ޔ  %  %           &" %  %          &" O( %  %          O( x  %  %          x  & %  %          &  %  %                 &            }    &           }     *&                D&            L    `&           L V    v&           V )f    &           )f vj    &           vj Tv    &           Tv 0    &           0 |Ŷ    '           |Ŷ ܶ    1'           ܶ     M'                q'                '                '          	 . '  '          . W '  '          W u '  '          	u  '  '           { (  (          
{ ^_ +(  /(          ^_ ޻ ?(  C(          	޻ ָ S(  W(          ָ  d(  h(          	 0׹ u(  y(          0׹ -* (  (          -* 1 (  (          1 N (  (          
N u (  (          u u? (  (          
u? } (  (          } ˽ (  (          	˽  (  )           U )  )          	U  ')  +)            ?)  C)          	 4 W)  [)          4   j)  n)             
  })          	  )  )           B> )  )          	B> Qj )  )          Qj H& )  )          H& A+ 
  )          A+ 0 
  )          0 R7 
  )          R7 )> 
  )          )>  D 
  *           D I 
  *          I P 
  *          P U 
  %*          U [ 
  0*          [ a 
  9*          a Kh 
  E*          Kh >m 
  Q*          	>m Bt ]*  a*          Bt ~ t*  x*          	~  *  *           E *  *          	E f *  *          f   *  *          	  g *  *          g  *  +          	  +  +           3 *+  .+          	3 ^ ?+  C+          ^ e S+  W+          	e s g+  k+          s ( u+  y+          	(  +  +           ! +  +          	! - +  +          - f +  +          	f r +  +          r c ,  ,          	c  %,  ),            >,  B,          	  W,  [,           a i,  m,          	a q {,  ,          q N ,  ,          	N _ ,  ,          _  ,  ,          	 8/ ,  ,          8/  ,  ,          	 w1 ,  ,          w1 y ,  ,          	y  
-  -           , &-  *-          	, s9 ?-  C-          s9 ] U-  Y-          	] Jd k-  o-          Jd t }-  -          	t  -  -            -  -          
 C3 -  -          C3 C -  -          C E 
  -          E | 
  -          	| 4 -  .          4 < .  !.          	<  =.  A.            N.  R.           
   _.          
    p.           d   x.          d    .           "   .          	" 	H .  .          	H  .  .          	 | .  .          |  .  .          	 l .  .          l p /  /          	p L !/  %/          L }q 5/  9/          	}q { I/  M/          {  g/  k/          	  /  /           3 /  /          	3  /  /            /  /            (    0          (    %0           D)   00          	D) 3 >0  B0          3 [ O0  S0          [ [   `0          	[ c i0  m0          c x 0  0          	x m 0  0          m & 0  0          
&  0  0            0  0               0            $ 0  0          	$ D 0   1          D J 1  1          	J  $1  (1            =1  A1          	 S V1  Z1          S  j1  n1          
 0 ~1  1          0 k 1  1          	k j 1  1          j  1  1          	  1  1            1  1            
  1           ]   2          ] (   2          ( r   #2           A       Nt       .    0.r	*H
.c0._10
	`He 0\
+7N0L0
+70	  010
	`He  /kA5as
\~=};0o0WH`U6Ɋ֔0
	*H
 0{10	UGB10UGreater Manchester10USalford10U
Comodo CA Limited1!0UAAA Certificate Services0
210525000000Z
281231235959Z0V10	UGB10U
Sectigo Limited1-0+U$Sectigo Public Code Signing Root R460"0
	*H
  0
 "$t.#6G#+>}1QoRЇc$;}'keӥiI9mn䠃'ښ
+PK[d6~J=qas<3W47]=v?fҔ1im4zxܒPdǪ-j/n!@
ٞv' ֺ)p6.O2tFkG5w3Oc.-ekqm>,ugmcc6iE>nZ_[˝00@
8gS0eoti>h;g3H@dFsleU[WxF|p@)\+EgO(^Lz>2F 6귪F
:	fX\)08<F65|
v~@ʒ5zѵ nobP{? u"Z _ 00U#0
#>)00U2뒚5H/(@Bp 6\0U0U00U%0
+0U 00U  0g0CU<0:08642http://crl.comodoca.com/AAACertificateServices.crl04+(0&0$+0http://ocsp.comodoca.com0
	*H
  tDiF$
g:E}RN!9k^- y;SʹD\cg@Dr*2]@gB'r#8L FO&|fQ6TXl .S)oO	]ƋHR12L=l9s9 hH86%wňLf}/cΘi߬<][/tϸ~׃bEGRU靌:bQ$)XE{Z00bmR;y !
0
	*H
 0V10	UGB10U
Sectigo Limited1-0+U$Sectigo Public Code Signing Root R460
210322000000Z
360321235959Z0T10	UGB10U
Sectigo Limited1+0)U"Sectigo Public Code Signing CA R3600
	*H
  0 +S5?`CjSSl~Xye3 FFlCx@PVN$y6cUb*j}aj$c/ѿv&1xR:ڛ]=-m#{Ub$r`q6ל3!%O>$EӖpcx?NѪeW~+(D̪`
HiZsw^5hu9WB%$4RQ͑:qw,ܟ@h9o>iMS>ZMŤLnc~`DBܿ5![~W=S;kgIlG Lv\~G8`F~@FYo[ d0`0U#02뒚5H/(@Bp 6\0U* (oH+T)0U0U0 0U%0
+0U 00U  0g0KUD0B0@><:http://crl.sectigo.com/SectigoPublicCodeSigningRootR46.crl0{+o0m0F+0:http://crt.sectigo.com/SectigoPublicCodeSigningRootR46.p7c0#+0http://ocsp.sectigo.com0
	*H
  wc6n{ uDaVqё?@@rd9<Kڇ `
+qrF]9#r,z~!,)*O1`GTljA!s~|)Q1Zb
 w퀚Y:\YD_z}eϰ0"LWxRsR%84mC9N&ef{.
=&Z<Ǽ3<z7?=;T,@1lLputs7!:o)˭ʦ(NNӍ^J&Rglb)ڷuCp70AFꔳ:;/ԥI)ѯέ7_%In0PPd}kQ|P/aǏD67kV,5il`T۞*5wӿV<Yh 4{L|_J+ꢊmLJ(?9r~K&jמ+ephN/(ٰk0c0ˠ~8<mXVM#Q0
	*H
 0T10	UGB10U
Sectigo Limited1+0)U"Sectigo Public Code Signing CA R360
231220000000Z
261219235959Z0\10	UDE10UBaden-Württemberg10U
Harald Schmidt10UHarald Schmidt0"0
	*H
  0
 qZ@}zO|6R)3,}W5ͩ9<"9ez=bf&l6o\;*Gg{ܜj
ÂL9vŮf*th+j ¼Je
=Y'@D,5EH渖M_(@(}FjP
r.:8bmdC'	d3@</m@aEgh5F4*tNRc:"(l}|޴tjoeZ;Q>e
9V>hv9OJKBjIkS*(4BTn*56T7PM3CǸgV*RxZΔe7ͱՄxZ AFJR5lF@3!V,Ac}##8B|+?M: _'hJOȘr2%raT3vb"d0
8"\O 00U#0* (oH+T)0U
2Ge94
%0U0U0 0U%0
+0JU C0A05+10%0#+https://sectigo.com/CPS0g0IUB0@0><:8http://crl.sectigo.com/SectigoPublicCodeSigningCAR36.crl0y+m0k0D+08http://crt.sectigo.com/SectigoPublicCodeSigningCAR36.crt0#+0http://ocsp.sectigo.com0U0info@pc-gehalt.de0
	*H
  -d~)q׎!ͤt۳
KOw(M'Ѐ LcZBn^F0~Kw2bI{&hXjXx8_L!1wNy5{OeVȘgs籺6fܩK!ol$4u
WXZZOAl3U+8/H3
jF@k5ow]dCP'5<5iJ0zf.` <A1fњE.vJVY
Kų~('A<ޗݳ
ǐ?'%Nm０t
:OoSLgzAn$,yPߵN^;ܾv.6fں4'yE݀100h0T10	UGB10U
Sectigo Limited1+0)U"Sectigo Public Code Signing CA R36~8<mXVM#Q0
	`He |0
+710 0	*H
	1
+70
+710
+70/	*H
	1" lc OhxUL[%.`S?0
	*H
  @<,(C,$K+ڈ%g4$	َeeuʊ"X[sMfng`id$s9DKjD1?yOe6.m]ПOq|;~!Q,A\F]FB#2T{ yÞ{71R
۫3˫-d]7C
܃!,J_k
;4G¸Dw%QbhB'y$ɛpet >>]gM}Č+Y ;"t2!:<N
ixx6聾>.@
"/Փu(uSnצ_8+MwM)$,C\qbdI$+ԆW,}#S@I(w)[bLf(+͉Rc6G:{
l Uj̹?'?nQ0
+710	*H
010
	`He 0*H
	0
+1010
	`He  h?c{-^ U[uH/lu5L`u20260113144355Zvt0r10	UGB10UWest Yorkshire10U
Sectigo Limited100.U'Sectigo Public Time Stamping Signer R360b0ʠ );nק4zN$0
	*H
 0U10	UGB10U
Sectigo Limited1,0*U#Sectigo Public Time Stamping CA R360
250327000000Z
360321235959Z0r10	UGB10UWest Yorkshire10U
Sectigo Limited100.U'Sectigo Public Time Stamping Signer R360"0
	*H
  0
 ӄnSx=Kx<ܔSgac`E6.\?]MSGI"2P
(<G~McLݓ[mć=?4;{x
~ɡi?ЌԇT`:b]I9w9!@!Aa	XZ V߳I٣r"u4YK4oUf<\dƣM_3Yլ<XFPydMA}^lh	ٚ'}>hv
8cĻ	w&ۈɆPTXWU]8}N0]
HJO˱ކMW&adp<:L2BtT6M]G)pQ
ra]9_io*nX=dAfy٣!)ǼR%t)Y.HN e0%Fk#p Dց=+-,/|5[)מK!?'Gkvj3 00U#0_XL1zaBRa20Ua*7d(`1Ќ,O0U0U0 0U%0
+0JU C0A05+10%0#+https://sectigo.com/CPS0g0JUC0A0?=;9http://crl.sectigo.com/SectigoPublicTimeStampingCAR36.crl0z+n0l0E+09http://crt.sectigo.com/SectigoPublicTimeStampingCAR36.crt0#+0http://ocsp.sectigo.com0
	*H
  >rQ!e.=RKD.5.q\ʧܚ
F-18l>IM"3"vGjT61cjDdy-nٙ#eݑ4pxWdKDDV%q3ݹuiYYu>*:D8WD*#&OSjAs
a-7):r'vi^yHpwUhȤY2?ݦwCMY6y`QrqiTy8D#c$44ۢq~t^[ڬ*MQmi!'
riFJm]f)T(-`-4E#00z#Si>\?0
	*H
 0W10	UGB10U
Sectigo Limited1.0,U%Sectigo Public Time Stamping Root R460
210322000000Z
360321235959Z0U10	UGB10U
Sectigo Limited1,0*U#Sectigo Public Time Stamping CA R3600
	*H
  0 ͘CAn+3~&4䉌"T>&"3p+RV7\kvmKq%pəA &ΖCڤAV<ԩ-Dhar3#qof%]xM vU3`f};	9G‰/{,YuˏLR.x~9@oRQͽ`lHGiٕ>_!&$֗ iKÃ, g³Q+V+"IbpeA!)$^̧XܱE^PNr>r\'$*Qh],V?q.Ә}7)n =$)<Vy8
Y` \0X0U#0wj?l/
=%0U_XL1zaBRa20U0U0 0U%0
+0U 
00U  0LUE0C0A?=;http://crl.sectigo.com/SectigoPublicTimeStampingRootR46.crl0|+p0n0G+0;http://crt.sectigo.com/SectigoPublicTimeStampingRootR46.p7c0#+0http://ocsp.sectigo.com0
	*H
  { 5X%XL-gtb&!UTiơFv[h_C@LgMcH'0ar9RCmr*1ΜR~ޣ(ȂQITq^4%59)$J+U%%P`=!cx#Ρ=f~\ĳ;\MYDk:+%	\Ĝ@u~n<~NB~zj4WhI4 J$ǿ&$|J ON&L۾v.aU*IV?7z΅EݬّXeR1^6@@`B0<'3ҸU#oCdZNG}|
G{JVHa`Ǥؿ*ay:@'8ġ h&fG<EpKmK^Lzt\)qLJ<,ő"@1<0YxVl_w-	#kP*A;ƓaZIT>ǭ1'6k9\}00j6°|:磳6uh0
	*H
 010	UUS10U
New Jersey10UJersey City10U
The USERTRUST Network1.0,U%USERTrust RSA Certification Authority0
210322000000Z
380118235959Z0W10	UGB10U
Sectigo Limited1.0,U%Sectigo Public Time Stamping Root R460"0
	*H
  0
 عEg&TT|IZٔDA@wv,S^ В%/WXnbD2G-e':F:<z,~7١ǰkѬ**{*hݬ(ƪ!Q'Y{<x
ww8hm)(odQn
q_M+z"ɢ.J)B4ZzS]@Eu&u
nu~Z
4ߖo:'z֩?l@#EH0b&]ರ"ʛQʮtnPݕ02 2yoV^#70Bɰ-L*hKDbLaOХm"X5`
^*sFªuG, k6-(8Ev^u˽$J*B[zohb]\G"Xk-H<l^cb&/ey{M0㑖ĮmQFg
{d' $/ 00U#0SyZ+JT؛f0Uwj?l/
=%0U0U00U%0
+0U 
00U  0PUI0G0ECA?http://crl.usertrust.com/USERTrustRSACertificationAuthority.crl05+)0'0%+0http://ocsp.usertrust.com0
	*H
  eAhD;%~CĢ9k Z1QKK'h-g[avI&Q_mC/=Pu;-l"&ɬ X9Uԡ=&Pdm%@DϘ,U6#=1[kALF/"ul? L@^2m?Wp	?`CUV\o1;W."Fb]S[lA_.lhS&TETpbM3:	\Y882Sb)♀Z4~=!ۏasm#d"~dFBJhao`켓&)ɚVHN#	G)(i$X甶k"HK%2ԻQW?m*ƶ	ݢ,]n(Ne׋.TPfo:^\@9:Raz"/>	'}uqOw=+0? ϣGt
73 )	(U=?100j0U10	UGB10U
Sectigo Limited1,0*U#Sectigo Public Time Stamping CA R36 );nק4zN$0
	`He 0	*H
	1
*H
	0	*H
	1
260113144355Z0?	*H
	120TbIDs QTO䭢Cއ,Jm~=b0z*H
	1i0e0a08Df>tKA0ƮTx|=UHiJz0o0[Y0W10	UGB10U
Sectigo Limited1.0,U%Sectigo Public Time Stamping Root R46z#Si>\?0=c-a|А5đޒB00010	UUS10U
New Jersey10UJersey City10U
The USERTRUST Network1.0,U%USERTrust RSA Certification Authority6°|:磳6uh0
	*H
  \E뤖aa٧bc[i	TVg0UYɠc:dqAHHNVř#pXKW.XW\o;=udųu)</V@@k_FXTRS12[%%-*<iB:N4mÿwK2aI9`on١ Fw}%/]JF6;8Z-^ap_|<V}'<0e0p
#Afh޶퐊߹Qg%م~%0iFKvD7m& reXņ8^՜aVtGu&PV;4[c%X&@BY)_Wߔ1oY-{55&g	SB:( unB]3A,V  M&\" kwV'ƀfCLM#i(-(?N1Pf`  